Antic Magazine 1983 May/Antic_Vol_2_No_2_May_1983.atr/rewrsect.asm

Assembly Source File | 1983-01-01 | 686 b | 1 lines

10 ;  *********************¢20 ;  * DISK READ/WRITE   *¢30 ;  *  ON SECTOR 720    *¢40 ;  * by Chuck McMath   *¢50 ;  *********************¢60 DUNIT = $301¢70 DCOMND = $302¢80 DBUF = $304¢90 DAUX1 = $30A¢0100 DAUX2 = $30B¢0110 DSKINV = $E453¢0120 *=$600  ; START ON PAGE 6¢0130  PLA    ; # OF ARGS.¢0140  PLA¢0150  PLA    ; GET COMMAND¢0160  STA DCOMND  ; AND STORE¢0170  PLA     ; GET BUFFER¢0180  STA DBUF+1  ; ADDRESS AND¢0190  PLA   ; STORE IT¢0200  STA DBUF¢0210  LDA #1   ; OPERATE ON¢0220  STA DUNIT  ;  UNIT 1¢0230  LDA #208   ; SET FOR¢0240  STA DAUX1  ; SECTOR¢0250  LDA #2     ; 720¢0260  STA DAUX2¢0270  JSR DSKINV ; DISK HANDLER¢0280  RTS        ; BACK TO BASIC¢0290  .END¢