1000 ORG 4096
1010 ;
1020 ANF EQU $2000
1030 END EQU $9000
1040 RATE EQU 6
1050 TIMES EQU 5
1060 ;
1070 PTR EQU 252
1080 TIMCOUNT EQU 254
1090 ;
1100 ;
1110 ANF LDA #11
1120 STA 53265
1130 SEI
1140 LDA #TIMES
1150 STA TIMCOUNT
1160 ;
1170 INIT LDA #<ANF
1180 STA PTR
1190 LDA #>ANF
1200 STA PTR+1
1210 LDY #0
1220 LOOP LDA (PTR),Y
1230 JSR CONVERT
1240 STA 54296
1241 STA 53280
1250 INC PTR
1260 BNE A1
1270 INC PTR+1
1280 A1 LDA PTR+1
1290 CMP #>END
1300 BNE A2
1310 LDA PTR
1320 CMP #<END
1330 BNE A2
1340 ;
1350 DEC TIMCOUNT
1360 BNE INIT
1370 CLI
1380 LDA #27
1390 STA 53265
1400 RTS
1410 ;
1420 A2 LDX #RATE
1430 LOOP2 DEX
1440 BNE LOOP2
1450 JMP LOOP
1460 ;
1470 CONVERT LSR
1480 LSR
1490 LSR
1500 LSR
1510 TAX
1520 LDA TAB,X
1530 CONV2 RTS
1540 ;
1550 TAB DFB 8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7
READY.
