1000 ORG 20000
1010 ;
1020 BOUNCECOUNTEREQU 2
1030 ;
1040 SEI
1050 LDA #<MAIN
1060 STA 788
1070 LDA #>MAIN
1080 STA 789
1090 LDA #127
1100 STA 56333
1110 LDA 56333
1120 LDA #45;48
1130 STA 53266
1140 LDA #27
1150 STA 53265
1160 LDA #129
1170 STA 53274
1180 LDA #1
1190 STA 53273
1200 ;
1210 LDA #24
1220 STA 53272
1230 LDA #0
1240 STA BOUNCECOUNTER
1250 LDA 53273
1260 STA 53273
1270 CLI
1280 ;
1290 RTS
1300 ;
1310 ;
1320 MAIN LDA #1
1330 STA 53273
1360 LDA #27
1370 STA 53265
1380 BNE MAIN1
1390 ;
1400 RESET LDA #0
1410 STA BOUNCECOUNTER
1420 ;
1430 MAIN1 DEC BOUNCECOUNTER
1450 LDA BOUNCECOUNTER;LDX
1460 ;LDA TABELLE,X
1470 ;BEQ RESET
1490 ;
1500 TAY
1510 LOOP1 LDX 53266
1520 LOOP2 CPX 53266
1530 BEQ LOOP2
1540 LDA 53266
1580 AND #7
1590 EOR #52
1600 STA 53265
1610 ;
1620 DEY
1630 BNE LOOP1
1640 ;JSR NOBORD
1650 JMP $EA31
1660 PLA
1670 TAY
1680 PLA
1690 TAX
1700 PLA
1710 RTI
1720 ;
1730 ;
1740 ;
1750 LDA #250
1760 NOBORD CMP 53266
1770 BNE NOBORD
1780 LDA #19
1790 STA 53265
1800 LDA #1
1810 STA 53280
1820 LDA #1
1830 STA 53273
1840 RTS
1850 ;
1860 ;
1870 TABELLE DFB 50,50,50,51,51,51,52,52,52
1880 DFB 53,53,53,54,54,55,55,56,57,58,60,62,65
1890 DFB 62,60,58,57,56,55,54,54,53,53,53,52
1900 DFB 52,52,51,51,51,0
READY.
