0100 ;;;;;;;;;;;;;;;;;;;;;;;;;;;›0110 ;                         ;›0120 ;       REPEAT KEY        ;›0130 ;                         ;›0140 ; BY SAMMIE J. MCCAA, JR. ;›0150 ;                         ;›0160 ;  ANALOG COMPUTING #16   ;›0170 ;                         ;›0180 ;;;;;;;;;;;;;;;;;;;;;;;;;;;›0190 ;›0200 ; ** EQUATES **›0210 ;›0220 BOOT =  $09›0230 CASINI = $02›0240 SRTIMR = $022B›0250 SETVBV = $E45C›0260 SYSVBV = $E45F›0270 PAUSE = 10›0280 ORG =   $0100›0290 ;›0300     *=  ORG›0310 ;›0320 INIT›0330     LDY #WAIT&255 ; CHANGE IMMEDIATE›0340     LDX #WAIT/256 ; VERTICAL BLANK›0350     LDA #6      ; VECTOR›0360     JSR SETVBV›0370     LDA #ORG&255 ; TRICK COMPUTER›0380     STA CASINI  ; INTO THINKING›0390     LDA #ORG/256 ; THERE HAS BEEN›0400     STA CASINI+1 ; A CASSETTE BOO›0410     LDA #3›0420     STA BOOT›0430     RTS ›0440 ;›0450 WAIT›0460     LDA SRTIMR  ; GET TIMER VALUE›0470     CMP #PAUSE+1 ; IS IT > PAUSE?›0480     BCC STORE›0490     LDA #PAUSE  ; MAKE IT = PAUSE›0500 STORE›0510     STA SRTIMR  ; SAVE NEW RESULT›0520     JMP SYSVBV  ; AND RETURN›0530 ;›0540     .END ›