home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1989 June / Antic_Magazine_1989_06_Antic_Side_A.atr / select.m65 < prev    next >
Text File  |  2023-02-26  |  545b  |  1 lines
  1. 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 ¢