1000 ;
1010 ;(C) 1985
1020 ;
1030 ;
1040 ;DOT CL EQU 7.88198
1050 ;
1060 CIA EQU $DD00
1070 PA EQU CIA
1080 PB EQU CIA+1
1090 DDRA EQU CIA+2
1100 DDRB EQU CIA+3
1110 ICR EQU CIA+13
1120 CRA EQU CIA+14
1130 SDR EQU CIA+12
1140 ;
1150 ;
1160 ;
1170 INIT SEI
1180 LDY #0
1190 STY DDRB ; EINGANG
1200 LDA DDRA
1210 AND #251; PA2 AUF EINGANG
1220 STA DDRA
1230 ;
1240 LDA #0
1250 STA CRA ; SP AUF AUSGANG
1260 JSR RESET
1270 ;
1280 LDA #<BITMAP
1290 STA PTR1
1300 LDA #>BITMAP
1310 STA PTR1+1
1320 ;
1330 JSR VSYNC
1350 ;
1360 ;BEGINN
1370 ;
1380 LDA #40 ; ANZ.SPALTEN
1390 STA TMP1
1400 LOOP1 JSR VSYNC
1410 LDX #10 ; UEBERLESEN
1420 LOOP2 JSR GETBYTE
1430 DEX
1440 BNE LOOP2
1450 LDX #200 ; ZEILEN
1460 LOOP3 JSR GETBYTE
1470 STA (PTR1),Y
1480 INC PTR1
1490 BNE WEITER1
1500 INC PTR1+1
1510 WEITER1 DEX
1520 BNE LOOP3
1530 ;
1540 DEC TMP1
1550 BNE LOOP1
1560 ;
1570 ;UMRECHNUNG
1580 ;
1590 ;
1600 LDA #<BITMAP
1610 STA PTR1
1620 LDA #>BITMAP
1630 STA PTR1+1
1640 LDA #<HIRES
1650 STA PTR2
1660 LDA #>HIRES
1670 STA PTR2+1
1680 ;
1690 LDA #40
1700 STA TMP1
1710 LDA #0
1711 STA TMP2
1712 ULOOP2 LDX #200
1720 ULOOP3 LDA (PTR1),Y
1730 INC PTR1
1740 BNE UMR1
1750 INC PTR1+1
1760 UMR 1 STA (PTR2),Y
1770 INC TMP2
1780 LDA TMP2
1790 CMP #8
1800 BEQ
1810 INC PTR2
1820 BNE UMR2
1830 INC PTR2+1
1840 UMR2 DEX
1850 BNE ULOOP3
READY.
