;Demo 2 zum Bootsektor-Lader.
;Eine Startmeldung ausgeben und die Steprate von Laufwerk A: einstellen.
;Bei sektoren/track>=15 wird die Steprate auf 6ms gestellt.
;Achtung! Funktioniert nur ab der offiziellen TOS 1.4 Version!
;Dies dient nur als Beispiel, wie man an die Bootsektor-Daten kommt.
;Da HD-FORMAT als Accessory die Steprate mit den eingestellten Default-
;Werten berschreibt, sollte man dort die Steprate fr A: ausschalten.
;Beim GFA-Assembler muž auch dies erst in Assembler-Source gewandelt werden!

start:          pea       start_text(pc)   ;Startmeldung ausgeben
                move.w    #9,-(sp)      ;Cconws
                trap      #1            ;Gemdos
                addq.w    #6,sp         ;Stack s„ubern
                pea       version(pc)
                move.w    #9,-(sp)
                trap      #1
                addq.w    #6,sp
                pea       mid_text(pc)
                move.w    #9,-(sp)
                trap      #1
                addq.w    #6,sp
                pea       datum(pc)
                move.w    #9,-(sp)
                trap      #1
                addq.w    #6,sp
                pea       end_text(pc)
                move.w    #9,-(sp)
                trap      #1
                addq.w    #6,sp
;start-46 ist der Anfang des Rootsektors und 24/25 die Position von Spt
                lea.l     start-46+24(pc),a0
                move.b    1(a0),d0      ;in 68000er Format wandeln
                lsl.w     #8,d0
                move.b    (a0),d0
                cmpi.w    #15,d0        ;weniger als 15 Sektoren ?
                bcs       ende          ;ja, alles so lassen wie es war
                pea       0             ;Drive A: / 6 ms
                move.w    #41,-(sp)     ;Floprate
                trap      #14           ;Xbios
                addq.w    #6,sp
;Return wird schon ausgefhrt

                .data 
start_text:     .dc.b 13,10,27,'J',27,'p'
                .dc.b ' Bootsektor-Lader fr HD-FORMAT '
                .dc.b 27,'q',13,10,' V',0
mid_text:       .dc.b ' (C) T. Muthmann ',0
end_text:       .dc.b 13,10,10,0

