1000 ;
1010 ; SCA WRITER 1
1020 ;
1030 ; (C) STI 1986
1040 ;
1050 ;
1060 ORG 2304
1070 TMP1 EQU 252
1080 TEXT EQU 8192
1090 ;
1100 ;
1110 ANFANG SEI
1120 LDA #<ISR
1130 STA 788
1140 LDA #>ISR
1150 STA 789
1160 LDA 56333
1170 CLI
1180 LDA #15
1190 STA 54296
1200 LDA #54
1210 STA 1
1220 JSR 44544
1230 LDA #55
1240 STA 1
1250 ;
1260 LDY #0
1270 STY 53280
1280 STY 53281
1290 JSR WRITER
1300 ;
1310 LDA #<TEXT
1320 STA TMP1
1330 LDA #>TEXT
1340 STA TMP1+1
1350 ;
1360 JSR CURSOR
1370 ;
1380 HALLO JSR 65508
1390 BEQ HALLO
1400 CMP #133 ; F1
1410 BNE WEITER1
1420 LDA #0
1430 WEITER1 CMP #136 ; F7
1440 BNE WEITER2
1450 LDA #14 ; KLEIN
1460 WEITER2 CMP #140
1470 BNE WEITER3
1480 LDA #142 ; GROSS
1490 WEITER3 LDY #0
1500 STA (TMP1),Y
1510 TAX
1520 BEQ ENDE
1530 JSR PRINTIT
1540 INC TMP1
1550 BNE HALLO
1560 INC TMP1+1
1570 BNE HALLO
1580 ;
1590 ENDE LDA #0
1600 STA 54296
1610 LDA #1
1620 LDX #8
1630 LDY #1
1640 JSR 65466
1650 LDA 49152
1660 LDX #1
1670 LDY #192
1680 JSR 65469
1690 JSR 65472
1700 LDX #1
1710 JSR $FFC9 ; CKOUT
1720 LDX #0
1730 SCHREIBH LDA HEADER,X
1740 JSR 65490
1750 INX
1760 CPX #HENDE-HEADER
1770 BCC SCHREIBH
1780 ;
1790 LDY #0
1800 STY TMP1
1810 LDA #32
1820 STA TMP1+1
1830 ;
1840 SCHREIBD LDY #0
1850 LDA (TMP1),Y
1860 BEQ GANZFERTG
1870 JSR 65490
1880 INC TMP1
1890 BNE SCHREIBD
1900 INC TMP1+1
1910 BNE SCHREIBD
1920 ;
1930 GANZFERTG JSR 65490
1940 JSR $FFCC
1950 LDA #1
1960 JSR $FFC3
1970 JMP 64738
1980 ;
1990 ;
2000 ;
2010 ;
2020 WRITER LDY #0
2030 STY TMP1
2040 LDA #32
2050 STA TMP1+1
2060 ;
2070 JSR CURSOR
2080 ;
2090 NEXTLET LDA (TMP1),Y
2100 BEQ NIXMEHR
2110 JSR PRINTIT
2120 LDA 162
2130 CLC
2140 ADC #4
2150 WARTE CMP 162
2160 BNE WARTE
2170 ;
2180 INC TMP1
2190 BNE NEXTLET
2200 INC TMP1+1
2210 BNE NEXTLET
2220 ;
2230 NIXMEHR RTS
2240 ;
2250 ;
2260 PRINTIT JSR 65490
2270 STY 212
2280 LDA 211
2290 CLC
2300 ADC #3
2310 ASL
2320 ASL
2330 ASL
2340 STA 53248
2350 ROL
2360 AND #1
2370 STA 53264
2380 LDA 214
2390 ASL
2400 ASL
2410 ASL
2420 CLC
2430 ADC #50
2440 STA 53249
2450 RTS
2460 ;
2470 ;
2480 CURSOR LDA #11
2490 STA 2040
2500 LDA #1
2510 STA 53287
2520 STA 53269
2530 ;
2540 LDX #63
2550 TYA
2560 SPRITEWEG STA 704,X
2570 DEX
2580 BPL SPRITEWEG
2590 ;
2600 LDA #255
2610 STA 704
2620 STA 707
2630 STA 722
2640 STA 725
2650 LDA #195
2660 STA 710
2670 STA 713
2680 STA 716
2690 STA 719
2700 RTS
2710 ;
2720 ;
2730 ISR LDA #54
2740 STA 1
2750 JSR 44556
2760 LDA #55
2770 STA 1
2780 JMP 59953
2790 ;
2800 ;
2810 HEADER DFB 1,8,15,8,250,255,158
2820 DFB "",0,0,0
2830 ;
2840 LDY #0
2850 STY 53280
2860 STY 53281
2870 LDA #162
2880 STA TMP1
2890 LDA #8
2900 STA TMP1+1
2910 ;
2920 LDA #11
2930 STA 2040
2940 LDA #1
2950 STA 53287
2960 STA 53269
2970 ;
2980 LDX #63
2990 TYA
3000 AD1 STA 704,X
3010 DEX
3020 BPL AD1
3030 ;
3040 LDA #255
3050 STA 704
3060 STA 707
3070 STA 722
3080 STA 725
3090 LDA #195
3100 STA 710
3110 STA 713
3120 STA 716
3130 STA 719
3140 ;
3150 AD2 LDA (TMP1),Y
3160 AD4 BEQ AD4
3170 JSR 65490
3180 STY 212
3190 LDA 211
3200 CLC
3210 ADC #3
3220 ASL
3230 ASL
3240 ASL
3250 STA 53248
3260 ROL
3270 AND #1
3280 STA 53264
3290 LDA 214
3300 ASL
3310 ASL
3320 ASL
3330 CLC
3340 ADC #50
3350 STA 53249
3360 ;
3370 LDA #15
3380 STA 54296
3390 LDA 162
3400 CLC
3410 ADC #4
3420 AD3 CMP 162
3430 BNE AD3
3440 ;
3450 STY 54296
3460 INC TMP1
3470 BNE AD2
3480 INC TMP1+1
3490 BNE AD2
3500 ;
3510 DFB 0,0,0,0,0,240,0,0,0,240,0,0,0,240,0,0,0
3520 HENDE ;
READY.
