C64 Software  <  SCA: The C64 Software Collection / DIGITISER #2

  Run
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.