home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1989 June
/
Antic_Magazine_1989_06_Antic_Side_A.atr
/
select.m65
< prev
next >
Wrap
Text File
|
2023-02-26
|
545b
|
1 lines
0100 ;AUTORUN PICKER¢0110 ;BY J.STRAUTMAN/C.JACKSON¢0120 ;(c)1989, ANTIC PUBLISHING INC.¢0130 CONSOL = $D01F ;Console keys¢0140 DOSVEC = $0A ;Load DUP.SYS¢0150 *= $8000¢0160 START¢0170 LDA DOSVEC ;Grab current¢0180 STA VECTOR ;DOS vector¢0190 LDA DOSVEC+1¢0200 STA VECTOR+1¢0210 LDA CONSOL ;CONSOL key¢0220 AND #$02 ;Is it SELECT?¢0230 BNE CONT¢0240 JMP (VECTOR) ;Load DUP.SYS¢0250 CONT RTS ;Load AUTORUN¢0260 VECTOR¢0270 .WORD 0,0¢0280 *= $02E2¢0290 .WORD START¢0300 .END ¢