0 REM SPEED (GUIDO STRBEN 11/85)      :
1 :
2 REM  1 STATEMENT, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS:  5
5 :
6 REM KEYWORD   ROUTINE   LINE   SER #
7 REM S/SPEED   SPD      12448    171
8 :
9 REM =================================
10 :
153 .ASC "SPEE[196]"
1153 .WORD SPD-1
2125 JSR MORVEC
2555 JSR KILVEC
9162 MORVEC =*
9165 JSR SPDON
9178 RTS
9180 ;
9182 KILVEC =*
9185 JSR SPDOFF
9198 RTS
9200 ;
12448 SPD JSR $B79E
12450 STX XBYTE
12452 CPX #0
12454 BEQ SPDOFF
12456 LDA $0326
12458 CMP PRVEC
12460 BEQ SP1
12462 LDA $0327
12464 CMP PRVEC+1
12466 BNE SP3
12468 SP1 LDA #<DLY
12470 LDY #>DLY
12472 SP2 STA $0326
12474 STY $0327
12476 SP3 RTS
12478 ;
12480 DLY PHA
12482 TXA
12484 PHA
12486 TYA
12488 PHA
12490 LDX XBYTE
12492 DL1 LDY #$C8
12494 DL2 DEY
12496 BNE DL2
12498 DEX
12500 BNE DL1
12502 PLA
12504 TAY
12506 PLA
12508 TAX
12510 PLA
12512 JMP (PRVEC)
12514 ;
12516 SPDON LDA $0326
12518 LDY $0327
12520 STA PRVEC
12522 STY PRVEC+1
12524 RTS
12526 ;
12528 SPDOFF LDA PRVEC
12530 LDY PRVEC+1
12532 BNE SP2
12534 ;
12536 .IF >(*&255)+1: *=*+(*&1)
12538 PRVEC .WORD 0
12540 XBYTE .BYTE 0
12542 ;