Transactor/Transactor_15_1987_Transactor_Publishing.d64/speedups

Commodore BASIC | 2023-02-26 | 514b | 31 lines

0 rem speedups (a. walduck, june/86)  :
1 :
2 rem 2 statements, 0 functions
3 :
4 rem keyword chars: 8
5 :
6 rem keyword    routine   line  ser #
7 rem s/fast     fas       15274  203
8 rem s/slow     slo       15290  204
9 :
10 rem ================================
11 :
164 .asc "fas[212]slo[215]"
1164 .word fas-1,slo-1
15274 fas lda $d011
15276 and #$ef
15278 sta $d011
15280 lda $d030
15282 ora #1
15284 sta $d030
15286 rts
15288 ;
15290 slo lda $d011
15292 ora #$10
15294 sta $d011
15296 lda $d030
15298 and #$ef
15300 sta $d030
15302 rts
15304 ;