Write Sector example#

0100 ;***************************************
0110 ;*  Demonstration 1 fuer Kommando $50  *
0120 ;***************************************
0130 ;
0140 DATBUF = $5000
0150 SECNUM = 1
0160 ;
0170     .OPT NO LIST
0180     .OPT OBJ
0190     *=  $4000
0200 ;
0210     LDA #$31    ; Bus ID
0220     STA $0300
0230     LDA #1      ; Laufwerks Nummer = 1
0240     STA $0301
0250     LDA #$50    ; Kommando $50
0260     STA $0302
0270     LDA #$80    ; Status fuer Daten schreiben
0280     STA $0303
0290     LDA # <DATBUF ; Adresse fuer Datenbuffer Low
0300     STA $0304
0310     LDA # >DATBUF ; Adresse fuer Datenbuffer High
0320     STA $0305
0330     LDA #7      ; Wert fuer Timeout = 7 Sekunden
0340     STA $0306
0350     LDA #$80    ; 128 Bytes (in SD+MD) schreiben
0360     STA $0308
0370     LDA #0
0380     STA $0309
0390     LDA # <SECNUM ; Sector Nummer Low Byte
0400     STA $030A
0410     LDA # >SECNUM ; Sector Nummer High Byte
0420     STA $030B
0430     JSR $E459   ; Einsprung der SIO-Routine im OS
0440     BMI ERROR
0450     CLC
0460     RTS
0470 ERROR SEC
0480     RTS
0100 ;***************************************
0110 ;*  Demonstration 2 fuer Kommando $50  *
0120 ;***************************************
0130 ;
0140 PRGBUF = $8000
0150 ;
0160     .OPT NO LIST
0170     .OPT OBJ
0180     *=  $4000
0190 ;
0200     LDA #$31    ; Bus ID
0210     STA $0300
0220     LDA #1      ; Laufwerks Nummer = 1
0230     STA $0301
0240     LDA #$50    ; Kommando $50 Sector ohne Verify schreiben
0250     STA $0302
0260     LDA #$80    ; Status fuer Daten schreiben
0270     STA $0303
0280     LDA # <DATBUF ; Adresse fuer Datenbuffer Low
0290     STA $0304
0300     LDA # >DATBUF ; Adresse fuer Datenbuffer High
0310     STA $0305
0320     LDA #7      ; Wert fuer Timeout = 7 Sekunden
0330     STA $0306
0340     LDA #$80    ; 128 Bytes (in SD+MD) schreiben
0350     STA $0308
0360     LDA #0
0370     STA $0309
0380     LDA # <PRGBUF ; Adresse fuer Programmbuffer Low
0390     STA $030A
0400     LDA # >PRGBUF ; Adresse fuer Programmbuffer High
0410     STA $030B
0420     JSR $E459   ; Einsprung der SIO-Routine im OS
0430     BMI ERROR
0440     CLC
0450     RTS
0460 ERROR SEC
0470     RTS
0480 ;
0490 DATBUF
0500     LDA #$FA
0510     JMP $FFA5   ; HEXOUT