1000 ;
1010 ; BREITSCHRIFT
1020 ;
1030 ORG 49152
1040 ;
1050 CSET EQU $D000
1060 CSET2 EQU $E000
1070 TMP1 EQU 250
1080 TMP2 EQU 252
1090 TMP3 EQU 254
1100 TMP4 EQU 2
1110 TMP5 EQU 3
1120 ;
1130 ;
1140 INIT LDY #0
1150 STY TMP1
1160 STY TMP2
1170 STY TMP3
1180 LDA #>CSET
1190 STA TMP1+1
1200 LDA #>CSET2
1210 STA TMP2+1
1220 ;
1230 VERSCHIEBEN SEI
1240 LDA #51
1250 STA 1
1260 LDX #16
1270 LOOP1 LDA (TMP1),Y
1280 STA (TMP2),Y
1290 INY
1300 BNE LOOP1
1310 INC TMP1+1
1320 INC TMP2+1
1330 DEX
1340 BNE LOOP1
1350 LDA #53
1360 STA 1
1370 ;
1380 ;
1390 VERBREITERN LDX #1
1400 LDA #>CSET2
1410 STA TMP1+1
1420 LDA #>CSET2+4
1430 STA TMP2+1
1440 LDA #>CSET2+6
1450 STA TMP3+1
1460 ;
1470 LDA #2
1480 STA TMP5
1490 LOOP2 LDA (TMP1),Y
1500 STA TMP4
1510 JSR SCHIEB
1520 STA (TMP2),Y
1530 JSR SCHIEB
1540 STA (TMP3),Y
1550 INY
1560 BNE LOOP2
1570 INC TMP1+1
1580 INC TMP2+1
1590 INC TMP3+1
1600 DEC TMP5
1610 BNE LOOP2
1620 ;
1630 RVSSPACE LDX #7
1640 LDA #255
1650 RSP1 STA 58624,X
1660 STA 59136,X
1670 DEX
1680 BPL RSP1
1690 ;
1700 ;
1710 LDA #148
1720 STA 56576
1730 LDA #24
1740 STA 53272
1750 LDA #196
1760 STA 648
1770 LDA #55
1780 STA 1
1790 CLI
1800 LDA #147
1810 JSR 65490
1820 ;
1830 ;
1840 LDA #<OUTPUT
1850 STA 806
1860 LDA #>OUTPUT
1870 STA 807
1880 ;
1890 RTS
1900 ;
1910 SCHIEB LDX #4
1920 SCHIEB1 ASL TMP4
1930 PHP
1940 ROL
1950 PLP
1960 ROL
1970 DEX
1980 BNE SCHIEB1
1990 RTS
2000 ;
2010 ;
2020 ;
2030 OUTPUT PHA
2040 LDA $9A
2050 CMP #3
2060 BNE NORMAL
2070 LDA 199 ;RVS
2080 BEQ NORMAL
2090 PLA
2100 PHA
2110 CMP #32
2120 BCC NORMAL
2130 BEQ SPACE
2140 CMP #96
2150 BCS NORMAL
2160 ;
2170 JSR $E716
2180 PLA
2190 ORA #128
2200 JMP $E716
2210 ;
2220 SPACE PLA
2230 LDA #0
2240 STA 199
2250 LDA #32
2260 JSR $E716
2270 JSR $E716
2280 INC 199
2290 RTS
2300 ;
2310 NORMAL JMP $F1CB
READY.
