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 #216
1240 STA 53270
1250 LDX #0
1260 SETCOLS LDA #240+12
1270 STA $0400,X
1280 STA $0500,X
1290 STA $0600,X
1300 STA $0700,X
1310 LDA #11
1320 STA $D800,X
1330 STA $D900,X
1340 STA $DA00,X
1350 STA $DB00,X
1360 INX
1370 BNE SETCOLS
1380 ;
1390 LDA #0
1400 STA BOUNCECOUNTER
1410 LDA 53273
1420 STA 53273
1430 CLI
1440 ;
1450 RTS
1460 ;
1470 ;
1480 MAIN LDA #1
1490 STA 53273
1500 LDA #27
1510 STA 53265
1520 BNE MAIN1
1530 ;
1540 RESET LDA #0
1550 STA BOUNCECOUNTER
1560 ;
1570 MAIN1 DEC BOUNCECOUNTER
1580 LDA BOUNCECOUNTER;LDX
1590 ;LDA TABELLE,X
1600 ;BEQ RESET
1610 ;
1620 TAY
1630 LOOP1 LDX 53266
1640 LOOP2 CPX 53266
1650 BEQ LOOP2
1660 LDA 53266
1670 AND #7
1680 EOR #52
1690 STA 53265
1700 ;
1710 DEY
1720 BNE LOOP1
1730 ;JSR NOBORD
1740 JMP $EA31
1750 PLA
1760 TAY
1770 PLA
1780 TAX
1790 PLA
1800 RTI
1810 ;
1820 ;
1830 ;
1840 LDA #250
1850 NOBORD CMP 53266
1860 BNE NOBORD
1870 LDA #19
1880 STA 53265
1890 LDA #1
1900 STA 53280
1910 LDA #1
1920 STA 53273
1930 RTS
1940 ;
1950 ;
1960 TABELLE DFB 50,50,50,51,51,51,52,52,52
1970 DFB 53,53,53,54,54,55,55,56,57,58,60,62,65
1980 DFB 62,60,58,57,56,55,54,54,53,53,53,52
1990 DFB 52,52,51,51,51,0
READY.
