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 

---

Back to previous page