!!!Speedy 1050 example -- read tack {{{ 0100 ;*********************************** 0110 ;* Demonstration fuer Kommando $62 * 0120 ;* 'Read Track' - Befehl * 0130 ;*********************************** 0140 ; 0150 TRKDAT = $5000 ; Adresse der kompletten Trackdaten 0160 TRKLEN = $0900 ; $900 SD, $D00 MD, $1200 DD 0170 SECTOR = 1 ; Anfangssektor eines Tracks 0180 ; 0190 .OPT NO LIST 0200 .OPT OBJ 0210 *= $4000 0220 ; 0230 LDA #$31 ; Bus ID 0240 STA $0300 0250 LDA #1 ; Laufwerks Nummer = 1 0260 STA $0301 0270 LDA #$62 ; Kommando $62 0280 STA $0302 0290 LDA #$40 ; Status fuer Daten lesen 0300 STA $0303 0310 LDA # <TRKDAT ; Trackdaten Low Byte 0320 STA $0304 0330 LDA # >TRKDAT ; Trackdaten High Byte 0340 STA $0305 0350 LDA #7 ; Wert fuer Timeout = 7 Sekunden 0360 STA $0306 0370 LDA # <TRKLEN ; Tracklaenge Low Byte 0380 STA $0308 0390 LDA # >TRKLEN ; Tracklaenge High Byte 0400 STA $0309 0410 LDA # <SECTOR 0420 STA $030A 0430 LDA # >SECTOR 0440 STA $030B 0450 JSR $E459 ; Einsprung der SIO-Routine im OS 0460 BMI ERROR 0470 CLC 0480 RTS 0490 ERROR SEC 0500 RTS }}}