home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1983 May
/
Antic_Vol_2_No_2_May_1983.atr
/
rewrsect.asm
< prev
next >
Wrap
Assembly Source File
|
2021-01-28
|
686b
|
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¢