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 ›