Antic Magazine 1989 June/Antic_Magazine_1989_06_Antic_Side_A.atr/nullhand.m65

Text File | 2023-02-26 | 961b | 1 lines

0100 ; ADD A NULL HANDLER¢0110 ; BY BOB MARTIN¢0120 ; (c)1989, ANTIC PUBLISHING INC.¢0130 ;¢0140 HATABS = $031A¢0150 ;¢0160     *=  $0600¢0170 ;¢0180 ;INSERT THE N: DEVICE IN HATABS¢0200 ;  LOOK FOR EMPTY SPOT IN HATABS¢0210 ;¢0220 INSERT¢0230     LDX #0¢0240 NEXTPLACE¢0250     LDA HATABS,X¢0260     BEQ ESPOT¢0270     INX ¢0280     INX ¢0290     INX ¢0300     BNE NEXTPLACE¢0310     BEQ INSERT¢0320 ;¢0330 ;  FOUND AN EMPYT SPOT¢0340 ;¢0350 ESPOT¢0360     LDA #'N¢0370     STA HATABS,X¢0380     LDA #NULLT&$FF¢0390     STA HATABS+1,X¢0400     LDA #NULLT/$0100¢0410     STA HATABS+2,X¢0420     RTS ¢0430 ;¢0440 ;HANDLER TABLE¢0450 ;¢0460 NULLT¢0470     .WORD NULL-1¢0480     .WORD NULL-1¢0490     .WORD NULL-1¢0500     .WORD NULL-1¢0510     .WORD NULL-1¢0520     JMP NULL¢0530 ;¢0540 ;NULL HANDLER¢0550 ;¢0560 NULL¢0570     LDA #1¢0580     TAY ¢0590     RTS ¢0600 ;¢0610 ; RUN INITIALIZATION STEP¢0620 ;¢0630     *=  $02E2¢0640     .WORD INSERT¢0650     .END ¢