1000 ORG 20000
1010 ;
1020 BOUNCECOUNTEREQU 2
1030 BOUNCEHOEHE EQU 48;174
1040 ;
1050 SEI
1060 LDA #<MAIN
1070 STA 788
1080 LDA #>MAIN
1090 STA 789
1100 LDA #127
1110 STA 56333
1120 LDA 56333
1130 LDA #BOUNCEHOEHE
1140 STA 53266
1150 LDA #27
1160 STA 53265
1170 LDA #129
1180 STA 53274
1190 LDA #1
1200 STA 53273
1210 ;
1220 LDA #24
1230 STA 53272
1240 LDA #216
1250 STA 53270
1260 LDX #0
1270 SETCOLS LDA #176+12
1280 STA $0400,X
1290 STA $0500,X
1300 STA $0600,X
1310 STA $0700,X
1320 LDA #15
1330 STA $D800,X
1340 STA $D900,X
1350 STA $DA00,X
1360 STA $DB00,X
1370 INX
1380 BNE SETCOLS
1390 LDA #0
1400 STA 53281
1410 ;
1420 LDA #0
1430 STA BOUNCECOUNTER
1440 LDA 53273
1450 STA 53273
1460 CLI
1470 ;
1480 RTS
1490 ;
1500 ;
1510 ;
1520 RESET LDA #0
1530 STA BOUNCECOUNTER
1540 ;
1550 MAIN INC BOUNCECOUNTER;DEC
1560 LDX BOUNCECOUNTER;LDA
1570 LDA TABELLE,X
1580 BEQ RESET
1590 ;
1600 TAY
1610 LOOP1 LDX 53266
1620 LOOP2 CPX 53266
1630 BEQ LOOP2
1640 LDA 53266
1650 AND #7
1660 EOR #52
1670 STA 53265
1680 ;
1690 DEY
1700 BNE LOOP1
1710 JSR NOBORDER
1720 JMP $EA31
1730 PLA
1740 TAY
1750 PLA
1760 TAX
1770 PLA
1780 RTI
1790 ;
1800 ;
1810 ;
1820 NOBORDER LDA #250
1830 NOBORD CMP 53266
1840 BNE NOBORD
1850 LDA #59
1860 STA 53265
1870 LDA #1
1880 STA 53273
1890 RTS
1900 ;
1910 ;
1920 TABELLE DFB 1,1,1,2,2,2,3,3,3
1930 DFB 4,4,4,5,5,6,6,7,8,9,11,13,16,20,25,31,38,46
1940 DFB 38,31,25,20,16,13,11,9,8,7,6,5,5,4,4,4,3,3,3,2,2,2,0
READY.
