1000 ; SAVE"",8
1010 ;
1020 ; RASTER SCROLLER
1030 ; &
1040 ; IRQ MULTISYSTEM
1050 ; &
1060 ; HIRES-TITEL (8192)
1070 ;
1080 ;
1090 ; 25.11.85
1100 ;
1110 ;
1120 ORG 49152
1130 ;
1140 TSND1 EQU 249
1150 TSND2 EQU 250
1160 SCLOLLPTR EQU 251
1170 RASTERZAEHLEREQU 252
1180 RASTERANZAHL EQU 253
1190 TEXTPTR EQU 254
1200 ANZAHLSUBS EQU 1
1210 ;
1220 NORMISR EQU $EA31
1230 ;
1240 ;
1250 ;
1260 LDA #151
1270 STA 56576
1280 ;
1290 INITSCLOLL LDA #14+32
1300 LDX #0
1310 QUAAK STA 1024,X
1320 STA 1280,X
1330 STA 1536,X
1340 STA 1792,X
1350 INX
1360 BNE QUAAK
1370 ;
1380 ;
1390 LDX #79
1400 ISCLOLL1 LDA #3 ;SCHRIFTFARBE
1410 STA 56216,X
1420 LDA #32 ;SPACE
1430 STA 1944,X
1440 DEX
1450 BPL ISCLOLL1
1460 ;
1470 LDA #<TEXT
1480 STA TEXTPTR
1490 LDA #>TEXT
1500 STA TEXTPTR+1
1510 ;
1520 LDA #1
1530 STA ISRCTAB
1540 ;
1550 ;
1560 INITIRQ SEI
1570 LDA #>ISR
1580 STA 789
1590 LDA #<ISR
1600 STA 788
1610 LDA #129
1620 STA 53274
1630 LDA #127
1640 STA 56333
1650 ;
1660 LDA RASTERL
1670 STA 53266
1680 LDA RASTERH
1690 STA 53265
1700 ;
1710 LDX #0
1720 STX RASTERZAEHLER
1730 LDA #3
1740 STA RASTERANZAHL
1750 ;
1760 CLI
1770 ;
1780 ;
1790 LDA #0
1800 JSR 49664
1810 ;
1820 HATSCHI JSR SOUND
1830 LDX 56321
1840 INX
1850 BEQ HATSCHI
1860 ;
1870 LDA #15
1880 STA TSND1
1890 KEUCH LDA #12 ; DAUER
1900 STA TSND2
1910 XUNDHEIT JSR SOUND
1920 DEC TSND2
1930 BNE XUNDHEIT
1940 LDX TSND1
1950 BEQ RASTERAUS
1960 DEX
1970 STX TSND1
1980 STX 54296
1990 JMP KEUCH
2000 ;
2010 SOUND LDA 53265
2020 BMI SOUND
2030 SOUND1 LDA 53265
2040 BPL SOUND1
2050 JMP 49670
2060 ;
2070 JMP 17235
2080 EOR (0,X)
2090 ;
2100 ;
2110 ;
2120 RASTERAUS SEI
2130 LDA 53273
2140 STA 53273
2150 LDA #<NORMISR
2160 STA 788
2170 LDA #>NORMISR
2180 STA 789
2190 LDX #128
2200 STX 53274
2210 INX
2220 STX 56333
2230 CLI
2240 RTS
2250 ;
2260 ;
2270 ;
2280 ISR LDX RASTERZAEHLER
2290 LDY RASTERL,X
2300 LDA RASTERH,X
2310 STA 53265
2320 LDA BCOL,X
2330 STA 53280
2340 STA 53281
2350 LDA SR1,X
2360 STA 53272
2370 STY 53266
2380 LDA SR2,X
2390 BNE ISR0
2400 LDA SCLOLLPTR
2410 ISR0 STA 53270
2420 ;
2430 LDA 53273
2440 STA 53273
2450 ;
2460 INX
2470 CPX RASTERANZAHL
2480 BCC ISR1
2490 LDX #0
2500 ISR1 STX RASTERZAEHLER
2510 BNE ISR4
2520 ;
2530 ;
2540 LDX #0
2550 ISR2 DEC ISRCTAB,X
2560 BEQ DOIT
2570 ISR3 INX
2580 CPX #ANZAHLSUBS
2590 BCC ISR2
2600 ;
2610 ISR4 ;
2620 ISR5 PLA
2630 TAY
2640 PLA
2650 TAX
2660 PLA
2670 RTI
2680 ;
2690 DOIT TXA
2700 PHA
2710 ASL
2720 TAX
2730 LDA ISRVTAB,X
2740 STA ISRVECTOR
2750 LDA ISRVTAB+1,X
2760 STA ISRVECTOR+1
2770 ;
2780 DFB 32 ; JSR
2790 ISRVECTOR DFB 0,0
2800 ;
2810 TAY
2820 PLA
2830 TAX
2840 TYA
2850 STA ISRCTAB,X
2860 JMP ISR3
2870 ;
2880 ;
2890 ;
2900 ;
2910 SCLOLL LDA SCLOLLPTR
2920 AND #7
2930 SEC
2940 SBC #2 ;GESCHW.
2950 BPL SCLOLL4
2960 ;
2970 LDX #0
2980 SCLOLL1 LDA 1985,X
2990 STA 1984,X
3000 INX
3010 CPX #39
3020 BNE SCLOLL1
3030 LDX #0
3040 LDA (TEXTPTR,X)
3050 BNE SCLOLL2
3060 ;
3070 LDA #<TEXT
3080 STA TEXTPTR
3090 LDA #>TEXT
3100 STA TEXTPTR+1
3110 LDA TEXT
3120 ;
3130 SCLOLL2 AND #63
3140 STA 2023
3150 INC TEXTPTR
3160 BNE SCLOLL3
3170 INC TEXTPTR+1
3180 SCLOLL3 LDA #7
3190 ;
3200 SCLOLL4 STA SCLOLLPTR
3210 LDA #1;WIEDERHOLUNG
3220 RTS
3230 ;
3240 ;
3250 ;
3260 ;
3270 ISRCTAB DFB 0,0,0,0,0,0,0,0
3280 ;
3290 ISRVTAB DFB <SCLOLL,>SCLOLL
3300 DFB 0,0,0,0,0,0
3310 ;
3320 ;
3330 RASTERL DFB 236,255,20
3340 RASTERH DFB 59,27,27
3350 BCOL DFB 0,6,0
3360 SR1 DFB 24,21,21
3370 SR2 DFB 24,0,8
3380 ;
3390 ;
3400 ORG 16384
3410 ;
3420 TEXT DFB ""
3430 DFB ""
3440 DFB ""
3450 DFB ""
3460 DFB ""
3470 DFB ""
3480 DFB ""
3490 DFB ""
3500 DFB "",0
READY.
