TECHTECH.ASCII
FILE INFORMATION
FILENAME(S): TECHTECH.ASCII
FILE TYPE(S): SEQ
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 01:13:04
APPEARS ON: 1 disk(s)
FILE HASH
7788a9cce188ec775b533f3d330ee2edf3cedf16d0423bc3d0efad44da3f2de0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10308 SEITE A | TECHTECH.ASCII | SEQ | C64er | 8 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 31 30 30 20 3B 20 20 20 20 20 20 3B 20 54 |..100 ; ; T| 00000010: 45 43 48 54 45 43 48 20 38 30 0D 31 31 30 20 3B |ECHTECH 80.110 ;| 00000020: 20 20 20 20 20 20 3B 20 28 43 29 31 39 39 32 20 | ; (C)1992 | 00000030: 50 41 55 4C 20 47 55 4C 44 45 4E 41 41 52 0D 31 |PAUL GULDENAAR.1| 00000040: 32 30 20 3B 20 20 20 20 20 20 3B 0D 31 33 30 20 |20 ; ;.130 | 00000050: 20 20 20 20 20 20 20 4F 52 47 20 24 31 33 30 30 | ORG $1300| 00000060: 0D 31 34 30 20 20 20 20 20 20 20 20 4A 4D 50 20 |.140 JMP | 00000070: 54 45 43 48 20 20 3B 54 45 43 48 54 45 43 48 20 |TECH ;TECHTECH | 00000080: 38 30 2E 0D 31 35 30 20 20 20 20 20 20 20 20 4A |80..150 J| 00000090: 4D 50 20 50 55 54 50 49 43 3B 56 49 43 50 49 43 |MP PUTPIC;VICPIC| 000000A0: 20 4E 41 43 48 20 56 44 43 2E 0D 31 36 30 20 54 | NACH VDC..160 T| 000000B0: 45 43 48 20 20 20 53 45 49 0D 31 37 30 20 20 20 |ECH SEI.170 | 000000C0: 20 20 20 20 20 4C 44 41 20 23 24 30 42 20 20 3B | LDA #$0B ;| 000000D0: 56 49 43 20 41 55 53 2E 0D 31 38 30 20 20 20 20 |VIC AUS..180 | 000000E0: 20 20 20 20 53 54 41 20 24 44 30 31 31 0D 31 39 | STA $D011.19| 000000F0: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 |0 LDA #$0| 00000100: 31 20 20 3B 46 41 53 54 20 4D 4F 44 45 20 45 49 |1 ;FAST MODE EI| 00000110: 4E 2E 0D 32 30 30 20 20 20 20 20 20 20 20 53 54 |N..200 ST| 00000120: 41 20 24 44 30 33 30 0D 32 31 30 20 20 20 20 20 |A $D030.210 | 00000130: 20 20 20 4C 44 41 20 23 24 46 30 20 20 3B 47 45 | LDA #$F0 ;GE| 00000140: 52 49 4E 47 53 54 45 53 20 56 44 43 2D 0D 32 32 |RINGSTES VDC-.22| 00000150: 30 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 32 |0 LDX #$2| 00000160: 34 20 20 3B 52 41 4D 20 41 55 46 46 52 49 53 48 |4 ;RAM AUFFRISH| 00000170: 2D 0D 32 33 30 20 20 20 20 20 20 20 20 4A 53 52 |-.230 JSR| 00000180: 20 24 43 44 43 43 20 3B 54 45 4D 50 4F 2E 0D 32 | $CDCC ;TEMPO..2| 00000190: 34 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |40 LDA #$| 000001A0: 33 46 0D 32 35 30 20 20 20 20 20 20 20 20 4C 44 |3F.250 LD| 000001B0: 58 20 23 24 31 43 20 20 3B 36 34 4B 20 56 44 43 |X #$1C ;64K VDC| 000001C0: 2D 52 41 4D 2E 0D 32 36 30 20 20 20 20 20 20 20 |-RAM..260 | 000001D0: 20 4A 53 52 20 24 43 44 43 43 0D 32 37 30 20 20 | JSR $CDCC.270 | 000001E0: 20 20 20 20 20 20 4C 44 41 20 23 24 38 37 20 20 | LDA #$87 | 000001F0: 3B 48 49 52 45 53 20 45 49 4E 2E 0D 32 38 30 20 |;HIRES EIN..280 | 00000200: 20 20 20 20 20 20 20 4C 44 58 20 23 24 31 39 0D | LDX #$19.| 00000210: 32 39 30 20 20 20 20 20 20 20 20 4A 53 52 20 24 |290 JSR $| 00000220: 43 44 43 43 0D 33 30 30 20 20 20 20 20 20 20 20 |CDCC.300 | 00000230: 4C 44 41 20 23 24 34 30 20 20 3B 56 49 44 45 4F |LDA #$40 ;VIDEO| 00000240: 20 44 49 53 50 4C 41 59 0D 33 31 30 20 20 20 20 | DISPLAY.310 | 00000250: 20 20 20 20 4C 44 58 20 23 24 30 43 20 20 3B 42 | LDX #$0C ;B| 00000260: 45 49 20 24 34 30 30 30 2E 0D 33 32 30 20 20 20 |EI $4000..320 | 00000270: 20 20 20 20 20 4A 53 52 20 24 43 44 43 43 0D 33 | JSR $CDCC.3| 00000280: 33 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |30 LDA #$| 00000290: 37 46 20 20 3B 36 33 20 5A 59 4B 4C 45 4E 20 50 |7F ;63 ZYKLEN P| 000002A0: 52 4F 0D 33 34 30 20 20 20 20 20 20 20 20 4C 44 |RO.340 LD| 000002B0: 58 20 23 24 30 30 20 20 3B 52 41 53 54 45 52 5A |X #$00 ;RASTERZ| 000002C0: 45 49 4C 45 2E 0D 33 35 30 20 20 20 20 20 20 20 |EILE..350 | 000002D0: 20 4A 53 52 20 24 43 44 43 43 0D 33 36 30 20 20 | JSR $CDCC.360 | 000002E0: 20 20 20 20 20 20 4C 44 41 20 23 24 46 46 20 20 | LDA #$FF | 000002F0: 3B 57 49 43 48 54 49 47 21 3A 4C 45 54 5A 54 45 |;WICHTIG!:LETZTE| 00000300: 53 0D 33 37 30 20 20 20 20 20 20 20 20 4C 44 58 |S.370 LDX| 00000310: 20 23 24 31 32 20 20 3B 42 59 54 45 20 56 4F 4E | #$12 ;BYTE VON| 00000320: 20 56 44 43 2D 52 41 4D 0D 33 38 30 20 20 20 20 | VDC-RAM.380 | 00000330: 20 20 20 20 4A 53 52 20 24 43 44 43 43 20 3B 56 | JSR $CDCC ;V| 00000340: 45 52 41 4E 54 57 4F 52 54 4C 49 43 48 0D 33 39 |ERANTWORTLICH.39| 00000350: 30 20 20 20 20 20 20 20 20 49 4E 58 20 20 20 20 |0 INX | 00000360: 20 20 20 3B 46 55 52 20 52 41 4E 44 46 4C 41 43 | ;FUR RANDFLAC| 00000370: 4B 45 52 4E 0D 34 30 30 20 20 20 20 20 20 20 20 |KERN.400 | 00000380: 4A 53 52 20 24 43 44 43 43 20 3B 42 45 49 20 53 |JSR $CDCC ;BEI S| 00000390: 4F 46 54 2D 53 43 52 4F 4C 4C 2C 0D 34 31 30 20 |OFT-SCROLL,.410 | 000003A0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 | LDA #$00 | 000003B0: 20 3B 47 4C 45 49 43 48 20 47 45 49 53 54 45 52 | ;GLEICH GEISTER| 000003C0: 2D 0D 34 32 30 20 20 20 20 20 20 20 20 4A 53 52 |-.420 JSR| 000003D0: 20 24 43 44 43 41 20 3B 42 59 54 45 20 42 45 49 | $CDCA ;BYTE BEI| 000003E0: 20 43 36 34 2E 0D 34 33 30 20 20 20 20 20 20 20 | C64..430 | 000003F0: 20 4C 44 41 20 23 24 41 30 20 20 3B 53 45 54 5A | LDA #$A0 ;SETZ| 00000400: 20 43 4F 50 59 2D 42 49 54 2E 0D 34 34 30 20 20 | COPY-BIT..440 | 00000410: 20 20 20 20 20 20 4C 44 58 20 23 24 31 38 0D 34 | LDX #$18.4| 00000420: 35 30 20 20 20 20 20 20 20 20 4A 53 52 20 24 43 |50 JSR $C| 00000430: 44 43 43 0D 34 36 30 20 20 20 20 20 20 20 20 4C |DCC.460 L| 00000440: 44 59 20 23 24 30 30 0D 34 37 30 20 20 20 20 20 |DY #$00.470 | 00000450: 20 20 20 53 54 59 20 43 4F 55 4E 54 20 20 3B 42 | STY COUNT ;B| 00000460: 45 57 45 47 55 4E 47 53 53 54 41 52 54 2E 0D 34 |EWEGUNGSSTART..4| 00000470: 38 30 20 20 20 20 20 20 20 20 53 54 59 20 24 46 |80 STY $F| 00000480: 42 20 20 20 20 3B 4D 41 43 48 20 54 41 42 45 4C |B ;MACH TABEL| 00000490: 4C 45 0D 34 39 30 20 20 20 20 20 20 20 20 53 54 |LE.490 ST| 000004A0: 59 20 24 46 43 20 20 20 20 3B 4D 49 54 20 53 54 |Y $FC ;MIT ST| 000004B0: 41 52 54 2D 0D 35 30 30 20 54 31 20 20 20 20 20 |ART-.500 T1 | 000004C0: 4C 44 41 20 24 46 43 20 20 20 20 3B 41 44 44 52 |LDA $FC ;ADDR| 000004D0: 45 53 53 45 4E 20 56 4F 4E 0D 35 31 30 20 20 20 |ESSEN VON.510 | 000004E0: 20 20 20 20 20 53 54 41 20 24 31 39 30 30 2C 59 | STA $1900,Y| 000004F0: 3B 4A 45 44 45 4D 0D 35 32 30 20 20 20 20 20 20 |;JEDEM.520 | 00000500: 20 20 4C 44 41 20 24 46 42 20 20 20 20 3B 50 49 | LDA $FB ;PI| 00000510: 58 45 4C 5A 45 49 4C 45 2E 0D 35 33 30 20 20 20 |XELZEILE..530 | 00000520: 20 20 20 20 20 53 54 41 20 24 31 38 30 30 2C 59 | STA $1800,Y| 00000530: 0D 35 34 30 20 20 20 20 20 20 20 20 43 4C 43 0D |.540 CLC.| 00000540: 35 35 30 20 20 20 20 20 20 20 20 41 44 43 20 23 |550 ADC #| 00000550: 24 35 30 0D 35 36 30 20 20 20 20 20 20 20 20 53 |$50.560 S| 00000560: 54 41 20 24 46 42 0D 35 37 30 20 20 20 20 20 20 |TA $FB.570 | 00000570: 20 20 42 43 43 20 54 32 0D 35 38 30 20 20 20 20 | BCC T2.580 | 00000580: 20 20 20 20 49 4E 43 20 24 46 43 0D 35 39 30 20 | INC $FC.590 | 00000590: 54 32 20 20 20 20 20 49 4E 59 0D 36 30 30 20 20 |T2 INY.600 | 000005A0: 20 20 20 20 20 20 43 50 59 20 23 24 43 38 0D 36 | CPY #$C8.6| 000005B0: 31 30 20 20 20 20 20 20 20 20 42 4E 45 20 54 31 |10 BNE T1| 000005C0: 0D 36 32 30 20 53 43 52 45 45 4E 20 4C 44 58 20 |.620 SCREEN LDX | 000005D0: 43 4F 55 4E 54 0D 36 33 30 20 20 20 20 20 20 20 |COUNT.630 | 000005E0: 20 4C 44 41 20 23 24 31 39 20 20 20 3B 56 44 43 | LDA #$19 ;VDC| 000005F0: 2D 52 45 47 20 46 55 52 0D 36 34 30 20 20 20 20 |-REG FUR.640 | 00000600: 20 20 20 20 53 54 41 20 24 44 36 30 30 20 20 3B | STA $D600 ;| 00000610: 58 2D 53 4F 46 54 53 43 52 4F 4C 4C 0D 36 35 30 |X-SOFTSCROLL.650| 00000620: 20 20 20 20 20 20 20 20 4C 44 41 20 24 31 36 30 | LDA $160| 00000630: 30 2C 58 3B 53 4F 46 54 53 43 52 4F 4C 4C 2D 0D |0,X;SOFTSCROLL-.| 00000640: 36 36 30 20 20 20 20 20 20 20 20 45 4F 52 20 23 |660 EOR #| 00000650: 24 30 37 20 20 20 3B 57 45 52 54 45 20 46 55 52 |$07 ;WERTE FUR| 00000660: 20 45 52 53 54 45 0D 36 37 30 20 20 20 20 20 20 | ERSTE.670 | 00000670: 20 20 4F 52 41 20 23 24 38 30 20 20 20 3B 50 49 | ORA #$80 ;PI| 00000680: 58 45 4C 5A 45 49 4C 45 2E 0D 36 38 30 20 20 20 |XELZEILE..680 | 00000690: 20 20 20 20 20 53 54 41 20 24 44 36 30 31 0D 36 | STA $D601.6| 000006A0: 39 30 20 20 20 20 20 20 20 20 49 4E 58 0D 37 30 |90 INX.70| 000006B0: 30 20 20 20 20 20 20 20 20 53 54 58 20 43 4F 55 |0 STX COU| 000006C0: 4E 54 0D 37 31 30 20 20 20 20 20 20 20 20 4C 44 |NT.710 LD| 000006D0: 41 20 23 24 32 30 20 20 20 3B 57 41 52 54 45 20 |A #$20 ;WARTE | 000006E0: 41 55 46 20 4F 42 45 4E 2D 0D 37 32 30 20 53 43 |AUF OBEN-.720 SC| 000006F0: 31 20 20 20 20 42 49 54 20 24 44 36 30 30 20 20 |1 BIT $D600 | 00000700: 3B 52 41 4E 44 20 44 45 53 0D 37 33 30 20 20 20 |;RAND DES.730 | 00000710: 20 20 20 20 20 42 45 51 20 53 43 31 20 20 20 20 | BEQ SC1 | 00000720: 3B 53 49 43 48 54 42 41 52 45 53 0D 37 34 30 20 |;SICHTBARES.740 | 00000730: 53 43 32 20 20 20 20 42 49 54 20 24 44 36 30 30 |SC2 BIT $D600| 00000740: 20 20 3B 53 43 48 49 52 4D 53 2E 0D 37 35 30 20 | ;SCHIRMS..750 | 00000750: 20 20 20 20 20 20 20 42 4E 45 20 53 43 32 0D 37 | BNE SC2.7| 00000760: 36 30 20 20 20 20 20 20 20 20 4A 53 52 20 57 41 |60 JSR WA| 00000770: 49 54 39 30 20 3B 57 41 52 54 45 20 32 27 45 52 |IT90 ;WARTE 2'ER| 00000780: 20 5A 45 49 4C 45 0D 37 37 30 20 20 20 20 20 20 | ZEILE.770 | 00000790: 20 20 4C 44 59 20 23 24 30 30 0D 37 38 30 20 53 | LDY #$00.780 S| 000007A0: 4F 46 54 20 20 20 4C 44 41 20 24 31 36 30 30 2C |OFT LDA $1600,| 000007B0: 58 3B 53 45 54 5A 45 20 53 4F 46 54 53 43 52 4F |X;SETZE SOFTSCRO| 000007C0: 4C 4C 0D 37 39 30 20 20 20 20 20 20 20 20 45 4F |LL.790 EO| 000007D0: 52 20 23 24 30 37 20 20 20 3B 57 45 52 54 45 20 |R #$07 ;WERTE | 000007E0: 45 49 4E 45 52 0D 38 30 30 20 20 20 20 20 20 20 |EINER.800 | 000007F0: 20 4F 52 41 20 23 24 38 30 20 20 20 3B 50 49 58 | ORA #$80 ;PIX| 00000800: 45 4C 5A 45 49 4C 45 2E 0D 38 31 30 20 20 20 20 |ELZEILE..810 | 00000810: 20 20 20 20 53 54 41 20 24 44 36 30 31 0D 38 32 | STA $D601.82| 00000820: 30 20 20 20 20 20 20 20 20 4A 53 52 20 57 41 49 |0 JSR WAI| 00000830: 54 37 33 20 3B 5A 45 49 4C 45 20 54 49 4D 49 4E |T73 ;ZEILE TIMIN| 00000840: 47 2E 0D 38 33 30 20 20 20 20 20 20 20 20 4C 44 |G..830 LD| 00000850: 41 20 24 31 38 30 30 2C 59 3B 42 45 52 45 43 48 |A $1800,Y;BERECH| 00000860: 4E 45 0D 38 34 30 20 20 20 20 20 20 20 20 43 4C |NE.840 CL| 00000870: 43 20 20 20 20 20 20 20 20 3B 4E 41 43 48 53 54 |C ;NACHST| 00000880: 45 0D 38 35 30 20 20 20 20 20 20 20 20 41 44 43 |E.850 ADC| 00000890: 20 24 31 37 30 30 2C 58 3B 48 41 52 44 53 43 52 | $1700,X;HARDSCR| 000008A0: 4F 4C 4C 0D 38 36 30 20 20 20 20 20 20 20 20 53 |OLL.860 S| 000008B0: 54 41 20 24 31 41 30 30 2C 59 3B 50 4F 53 49 54 |TA $1A00,Y;POSIT| 000008C0: 49 4F 4E 2E 0D 38 37 30 20 20 20 20 20 20 20 20 |ION..870 | 000008D0: 4C 44 41 20 24 31 39 30 30 2C 59 0D 38 38 30 20 |LDA $1900,Y.880 | 000008E0: 20 20 20 20 20 20 20 41 44 43 20 23 24 30 30 0D | ADC #$00.| 000008F0: 38 39 30 20 20 20 20 20 20 20 20 53 54 41 20 24 |890 STA $| 00000900: 31 42 30 30 2C 59 0D 39 30 30 20 20 20 20 20 20 |1B00,Y.900 | 00000910: 20 20 49 4E 58 0D 39 31 30 20 20 20 20 20 20 20 | INX.910 | 00000920: 20 49 4E 59 0D 39 32 30 20 20 20 20 20 20 20 20 | INY.920 | 00000930: 43 50 59 20 23 24 35 44 0D 39 33 30 20 20 20 20 |CPY #$5D.930 | 00000940: 20 20 20 20 42 4E 45 20 53 4F 46 54 0D 39 34 30 | BNE SOFT.940| 00000950: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 38 37 | LDA #$87| 00000960: 20 20 20 3B 4B 45 49 4E 20 53 4F 46 54 53 43 52 | ;KEIN SOFTSCR| 00000970: 4F 4C 4C 0D 39 35 30 20 20 20 20 20 20 20 20 53 |OLL.950 S| 00000980: 54 41 20 24 44 36 30 31 20 20 3B 55 42 52 49 47 |TA $D601 ;UBRIG| 00000990: 45 53 20 53 43 48 49 52 4D 2E 0D 39 36 30 20 20 |ES SCHIRM..960 | 000009A0: 20 20 20 20 20 20 4C 44 41 20 24 31 38 30 30 2C | LDA $1800,| 000009B0: 59 20 3B 42 45 52 45 43 48 4E 45 20 4C 45 54 5A |Y ;BERECHNE LETZ| 000009C0: 54 45 0D 39 37 30 20 20 20 20 20 20 20 20 43 4C |TE.970 CL| 000009D0: 43 20 20 20 20 20 20 20 20 20 3B 57 45 52 54 45 |C ;WERTE| 000009E0: 20 46 55 52 0D 39 38 30 20 20 20 20 20 20 20 20 | FUR.980 | 000009F0: 41 44 43 20 24 31 37 30 30 2C 58 20 3B 48 41 52 |ADC $1700,X ;HAR| 00000A00: 44 53 43 52 4F 4C 4C 2E 0D 39 39 30 20 20 20 20 |DSCROLL..990 | 00000A10: 20 20 20 20 53 54 41 20 24 31 41 30 30 2C 59 0D | STA $1A00,Y.| 00000A20: 31 30 30 30 20 20 20 20 20 20 20 20 4C 44 41 20 |1000 LDA | 00000A30: 24 31 39 30 30 2C 59 0D 31 30 31 30 20 20 20 20 |$1900,Y.1010 | 00000A40: 20 20 20 20 41 44 43 20 23 24 30 30 0D 31 30 32 | ADC #$00.102| 00000A50: 30 20 20 20 20 20 20 20 20 53 54 41 20 24 31 42 |0 STA $1B| 00000A60: 30 30 2C 59 0D 31 30 33 30 20 20 20 20 20 20 20 |00,Y.1030 | 00000A70: 20 4C 44 58 20 23 24 31 32 20 20 20 3B 53 45 54 | LDX #$12 ;SET| 00000A80: 5A 45 20 55 50 44 41 54 45 2E 0D 31 30 34 30 20 |ZE UPDATE..1040 | 00000A90: 20 20 20 20 20 20 20 53 54 58 20 24 44 36 30 30 | STX $D600| 00000AA0: 20 20 3B 4E 41 43 48 20 44 49 45 53 45 53 0D 31 | ;NACH DIESES.1| 00000AB0: 30 35 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 |050 LDA #| 00000AC0: 24 34 30 20 20 20 3B 41 44 44 52 45 53 53 20 57 |$40 ;ADDRESS W| 00000AD0: 49 52 44 0D 31 30 36 30 20 20 20 20 20 20 20 20 |IRD.1060 | 00000AE0: 53 54 41 20 24 44 36 30 31 20 20 3B 4B 4F 50 49 |STA $D601 ;KOPI| 00000AF0: 45 52 54 2E 0D 31 30 37 30 20 20 20 20 20 20 20 |ERT..1070 | 00000B00: 20 49 4E 58 0D 31 30 38 30 20 20 20 20 20 20 20 | INX.1080 | 00000B10: 20 53 54 58 20 24 44 36 30 30 0D 31 30 39 30 20 | STX $D600.1090 | 00000B20: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D | LDA #$00.| 00000B30: 31 31 30 30 20 20 20 20 20 20 20 20 53 54 41 20 |1100 STA | 00000B40: 24 44 36 30 31 0D 31 31 31 30 20 53 43 33 20 20 |$D601.1110 SC3 | 00000B50: 20 20 42 49 54 20 24 44 36 30 30 20 20 3B 41 44 | BIT $D600 ;AD| 00000B60: 44 52 45 53 53 0D 31 31 32 30 20 20 20 20 20 20 |DRESS.1120 | 00000B70: 20 20 42 50 4C 20 53 43 33 20 20 20 20 3B 55 42 | BPL SC3 ;UB| 00000B80: 45 52 47 45 54 52 41 47 45 4E 3F 0D 31 31 33 30 |ERGETRAGEN?.1130| 00000B90: 20 43 4F 50 59 20 20 20 4C 44 59 20 23 24 30 30 | COPY LDY #$00| 00000BA0: 20 20 20 3B 48 49 45 52 20 57 45 52 44 45 4E 20 | ;HIER WERDEN | 00000BB0: 39 34 0D 31 31 34 30 20 43 31 20 20 20 20 20 4C |94.1140 C1 L| 00000BC0: 44 41 20 23 24 32 30 20 20 20 3B 50 49 58 45 4C |DA #$20 ;PIXEL| 00000BD0: 5A 45 49 4C 45 4E 0D 31 31 35 30 20 20 20 20 20 |ZEILEN.1150 | 00000BE0: 20 20 20 53 54 41 20 24 44 36 30 30 20 20 3B 56 | STA $D600 ;V| 00000BF0: 4F 4E 20 42 4C 4F 43 4B 41 44 52 45 53 0D 31 31 |ON BLOCKADRES.11| 00000C00: 36 30 20 20 20 20 20 20 20 20 4C 44 41 20 24 31 |60 LDA $1| 00000C10: 42 30 30 2C 59 3B 4E 41 43 48 20 44 41 53 20 55 |B00,Y;NACH DAS U| 00000C20: 50 44 41 54 45 0D 31 31 37 30 20 20 20 20 20 20 |PDATE.1170 | 00000C30: 20 20 53 54 41 20 24 44 36 30 31 20 20 3B 41 44 | STA $D601 ;AD| 00000C40: 52 45 53 20 4B 4F 50 49 45 52 54 2E 0D 31 31 38 |RES KOPIERT..118| 00000C50: 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 |0 LDA #$2| 00000C60: 31 20 20 20 3B 44 41 53 20 55 50 44 41 54 45 20 |1 ;DAS UPDATE | 00000C70: 57 49 52 44 0D 31 31 39 30 20 20 20 20 20 20 20 |WIRD.1190 | 00000C80: 20 53 54 41 20 24 44 36 30 30 20 20 3B 41 55 54 | STA $D600 ;AUT| 00000C90: 4F 4D 41 54 49 53 43 48 0D 31 32 30 30 20 20 20 |OMATISCH.1200 | 00000CA0: 20 20 20 20 20 4C 44 41 20 24 31 41 30 30 2C 59 | LDA $1A00,Y| 00000CB0: 3B 48 49 4E 41 55 46 20 47 45 5A 41 48 4C 54 2E |;HINAUF GEZAHLT.| 00000CC0: 0D 31 32 31 30 20 20 20 20 20 20 20 20 53 54 41 |.1210 STA| 00000CD0: 20 24 44 36 30 31 20 20 3B 44 41 53 20 42 4C 4F | $D601 ;DAS BLO| 00000CE0: 43 4B 41 44 52 45 53 0D 31 32 32 30 20 20 20 20 |CKADRES.1220 | 00000CF0: 20 20 20 20 4C 44 41 20 23 24 31 45 20 20 20 3B | LDA #$1E ;| 00000D00: 4B 4F 4D 4D 54 20 41 55 53 20 44 49 45 0D 31 32 |KOMMT AUS DIE.12| 00000D10: 33 30 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |30 STA $D| 00000D20: 36 30 30 20 20 3B 48 41 52 44 53 43 52 4F 4C 4C |600 ;HARDSCROLL| 00000D30: 2D 0D 31 32 34 30 20 20 20 20 20 20 20 20 4C 44 |-.1240 LD| 00000D40: 41 20 23 24 35 30 20 20 20 3B 54 41 42 45 4C 4C |A #$50 ;TABELL| 00000D50: 45 3A 20 44 41 53 0D 31 32 35 30 20 20 20 20 20 |E: DAS.1250 | 00000D60: 20 20 20 53 54 41 20 24 44 36 30 31 20 20 3B 50 | STA $D601 ;P| 00000D70: 49 58 45 4C 5A 45 49 4C 45 41 44 52 45 53 0D 31 |IXELZEILEADRES.1| 00000D80: 32 36 30 20 43 32 20 20 20 20 20 42 49 54 20 24 |260 C2 BIT $| 00000D90: 44 36 30 30 20 20 3B 50 4C 55 53 20 44 45 4E 20 |D600 ;PLUS DEN | 00000DA0: 4F 46 46 53 45 54 0D 31 32 37 30 20 20 20 20 20 |OFFSET.1270 | 00000DB0: 20 20 20 42 50 4C 20 43 32 0D 31 32 38 30 20 20 | BPL C2.1280 | 00000DC0: 20 20 20 20 20 20 49 4E 59 0D 31 32 39 30 20 20 | INY.1290 | 00000DD0: 20 20 20 20 20 20 43 50 59 20 23 24 35 45 0D 31 | CPY #$5E.1| 00000DE0: 33 30 30 20 20 20 20 20 20 20 20 42 4E 45 20 43 |300 BNE C| 00000DF0: 31 0D 31 33 31 30 20 20 20 20 20 20 20 20 4C 44 |1.1310 LD| 00000E00: 41 20 23 24 46 46 20 20 20 3B 4C 45 45 52 54 41 |A #$FF ;LEERTA| 00000E10: 53 54 45 0D 31 33 32 30 20 20 20 20 20 20 20 20 |STE.1320 | 00000E20: 43 4D 50 20 24 44 43 30 31 20 20 3B 47 45 44 52 |CMP $DC01 ;GEDR| 00000E30: 55 43 4B 54 3F 0D 31 33 33 30 20 20 20 20 20 20 |UCKT?.1330 | 00000E40: 20 20 42 4E 45 20 44 4F 4E 45 20 20 20 3B 4A 41 | BNE DONE ;JA| 00000E50: 20 45 4E 44 45 2E 0D 31 33 34 30 20 20 20 20 20 | ENDE..1340 | 00000E60: 20 20 20 4A 4D 50 20 53 43 52 45 45 4E 0D 31 33 | JMP SCREEN.13| 00000E70: 35 30 20 44 4F 4E 45 20 20 20 43 4D 50 20 24 44 |50 DONE CMP $D| 00000E80: 43 30 31 20 20 3B 57 41 52 54 45 20 42 49 53 20 |C01 ;WARTE BIS | 00000E90: 4B 45 49 4E 45 0D 31 33 36 30 20 20 20 20 20 20 |KEINE.1360 | 00000EA0: 20 20 42 4E 45 20 44 4F 4E 45 20 20 20 3B 54 41 | BNE DONE ;TA| 00000EB0: 53 54 45 20 4D 45 48 52 0D 31 33 37 30 20 20 20 |STE MEHR.1370 | 00000EC0: 20 20 20 20 20 43 4C 49 20 20 20 20 20 20 20 20 | CLI | 00000ED0: 3B 47 45 44 52 55 43 4B 54 20 57 49 52 44 2E 0D |;GEDRUCKT WIRD..| 00000EE0: 31 33 38 30 20 20 20 20 20 20 20 20 52 54 53 0D |1380 RTS.| 00000EF0: 31 33 39 30 20 57 41 49 54 39 30 20 4A 53 52 20 |1390 WAIT90 JSR | 00000F00: 57 41 49 54 31 37 0D 31 34 30 30 20 57 41 49 54 |WAIT17.1400 WAIT| 00000F10: 37 33 20 4A 53 52 20 57 41 49 54 31 37 0D 31 34 |73 JSR WAIT17.14| 00000F20: 31 30 20 20 20 20 20 20 20 20 4A 53 52 20 57 41 |10 JSR WA| 00000F30: 49 54 31 37 0D 31 34 32 30 20 20 20 20 20 20 20 |IT17.1420 | 00000F40: 20 4A 53 52 20 57 41 49 54 31 37 0D 31 34 33 30 | JSR WAIT17.1430| 00000F50: 20 20 20 20 20 20 20 20 4C 44 41 20 28 24 41 41 | LDA ($AA| 00000F60: 29 2C 59 0D 31 34 34 30 20 57 41 49 54 31 37 20 |),Y.1440 WAIT17 | 00000F70: 4C 44 41 20 28 24 41 41 29 2C 59 0D 31 34 35 30 |LDA ($AA),Y.1450| 00000F80: 20 57 41 49 54 31 32 20 52 54 53 0D 31 34 36 30 | WAIT12 RTS.1460| 00000F90: 20 50 55 54 50 49 43 20 53 45 49 20 20 20 20 20 | PUTPIC SEI | 00000FA0: 20 20 20 3B 50 49 53 54 55 52 45 20 56 4F 4E 20 | ;PISTURE VON | 00000FB0: 56 49 43 0D 31 34 37 30 20 20 20 20 20 20 20 20 |VIC.1470 | 00000FC0: 53 54 41 20 24 46 44 20 20 20 20 3B 4E 41 43 48 |STA $FD ;NACH| 00000FD0: 20 56 44 43 2D 46 4F 52 4D 41 54 0D 31 34 38 30 | VDC-FORMAT.1480| 00000FE0: 20 20 20 20 20 20 20 20 53 54 58 20 24 46 45 0D | STX $FE.| 00000FF0: 31 34 39 30 20 20 20 20 20 20 20 20 4C 44 41 20 |1490 LDA | 00001000: 23 24 30 30 20 20 20 3B 50 49 43 54 55 52 45 20 |#$00 ;PICTURE | 00001010: 42 45 49 0D 31 35 30 30 20 20 20 20 20 20 20 20 |BEI.1500 | 00001020: 53 54 41 20 24 46 42 20 20 20 20 3B 24 38 30 30 |STA $FB ;$800| 00001030: 30 20 49 4D 0D 31 35 31 30 20 20 20 20 20 20 20 |0 IM.1510 | 00001040: 20 4C 44 41 20 23 24 38 30 20 20 20 3B 42 41 4E | LDA #$80 ;BAN| 00001050: 4B 20 30 2E 0D 31 35 32 30 20 20 20 20 20 20 20 |K 0..1520 | 00001060: 20 53 54 41 20 24 46 43 0D 31 35 33 30 20 20 20 | STA $FC.1530 | 00001070: 20 20 20 20 20 4C 44 41 20 23 24 31 39 20 20 20 | LDA #$19 | 00001080: 3B 32 35 20 5A 45 49 4C 45 4E 2E 0D 31 35 34 30 |;25 ZEILEN..1540| 00001090: 20 20 20 20 20 20 20 20 53 54 41 20 54 45 4C 31 | STA TEL1| 000010A0: 0D 31 35 35 30 20 50 31 20 20 20 20 20 4C 44 59 |.1550 P1 LDY| 000010B0: 20 23 24 30 30 0D 31 35 36 30 20 50 32 20 20 20 | #$00.1560 P2 | 000010C0: 20 20 53 54 59 20 54 45 4C 32 0D 31 35 37 30 20 | STY TEL2.1570 | 000010D0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 38 20 | LDA #$28 | 000010E0: 20 20 3B 34 30 20 53 50 41 4C 54 45 4E 2E 0D 31 | ;40 SPALTEN..1| 000010F0: 35 38 30 20 20 20 20 20 20 20 20 53 54 41 20 54 |580 STA T| 00001100: 45 4C 33 0D 31 35 39 30 20 20 20 20 20 20 20 20 |EL3.1590 | 00001110: 4C 44 41 20 24 46 45 20 20 20 20 3B 53 45 54 5A |LDA $FE ;SETZ| 00001120: 45 20 55 50 44 41 54 45 2D 0D 31 36 30 30 20 20 |E UPDATE-.1600 | 00001130: 20 20 20 20 20 20 4C 44 58 20 23 24 31 32 20 20 | LDX #$12 | 00001140: 20 3B 41 44 44 52 45 53 53 2E 0D 31 36 31 30 20 | ;ADDRESS..1610 | 00001150: 20 20 20 20 20 20 20 4A 53 52 20 24 43 44 43 43 | JSR $CDCC| 00001160: 0D 31 36 32 30 20 20 20 20 20 20 20 20 4C 44 41 |.1620 LDA| 00001170: 20 24 46 44 0D 31 36 33 30 20 20 20 20 20 20 20 | $FD.1630 | 00001180: 20 49 4E 58 0D 31 36 34 30 20 20 20 20 20 20 20 | INX.1640 | 00001190: 20 4A 53 52 20 24 43 44 43 43 0D 31 36 35 30 20 | JSR $CDCC.1650 | 000011A0: 47 45 54 20 20 20 20 53 54 58 20 24 46 46 30 31 |GET STX $FF01| 000011B0: 20 20 3B 48 4F 4C 45 20 42 59 54 45 20 41 55 53 | ;HOLE BYTE AUS| 000011C0: 0D 31 36 36 30 20 20 20 20 20 20 20 20 4C 44 41 |.1660 LDA| 000011D0: 20 28 24 46 42 29 2C 59 3B 42 41 4E 4B 20 30 2E | ($FB),Y;BANK 0.| 000011E0: 0D 31 36 37 30 20 20 20 20 20 20 20 20 4C 44 58 |.1670 LDX| 000011F0: 20 23 24 30 30 0D 31 36 38 30 20 20 20 20 20 20 | #$00.1680 | 00001200: 20 20 53 54 58 20 24 46 46 30 30 0D 31 36 39 30 | STX $FF00.1690| 00001210: 20 20 20 20 20 20 20 20 4A 53 52 20 24 43 44 43 | JSR $CDC| 00001220: 41 20 20 3B 42 59 54 45 20 4E 41 43 48 20 56 44 |A ;BYTE NACH VD| 00001230: 43 2E 0D 31 37 30 30 20 20 20 20 20 20 20 20 54 |C..1700 T| 00001240: 59 41 20 20 20 20 20 20 20 20 3B 4E 41 43 48 53 |YA ;NACHS| 00001250: 54 45 53 20 42 59 54 45 2E 0D 31 37 31 30 20 20 |TES BYTE..1710 | 00001260: 20 20 20 20 20 20 43 4C 43 0D 31 37 32 30 20 20 | CLC.1720 | 00001270: 20 20 20 20 20 20 41 44 43 20 23 24 30 38 0D 31 | ADC #$08.1| 00001280: 37 33 30 20 20 20 20 20 20 20 20 54 41 59 0D 31 |730 TAY.1| 00001290: 37 34 30 20 20 20 20 20 20 20 20 42 43 43 20 50 |740 BCC P| 000012A0: 33 0D 31 37 35 30 20 20 20 20 20 20 20 20 49 4E |3.1750 IN| 000012B0: 43 20 24 46 43 0D 31 37 36 30 20 50 33 20 20 20 |C $FC.1760 P3 | 000012C0: 20 20 44 45 43 20 54 45 4C 33 0D 31 37 37 30 20 | DEC TEL3.1770 | 000012D0: 20 20 20 20 20 20 20 42 4E 45 20 47 45 54 0D 31 | BNE GET.1| 000012E0: 37 38 30 20 20 20 20 20 20 20 20 4C 44 41 20 23 |780 LDA #| 000012F0: 24 35 30 20 20 20 3B 41 44 44 52 45 53 53 20 4E |$50 ;ADDRESS N| 00001300: 41 43 48 53 54 45 0D 31 37 39 30 20 20 20 20 20 |ACHSTE.1790 | 00001310: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 3B 56 | CLC ;V| 00001320: 44 43 2D 50 49 58 45 4C 5A 45 49 4C 45 2E 0D 31 |DC-PIXELZEILE..1| 00001330: 38 30 30 20 20 20 20 20 20 20 20 41 44 43 20 24 |800 ADC $| 00001340: 46 44 0D 31 38 31 30 20 20 20 20 20 20 20 20 53 |FD.1810 S| 00001350: 54 41 20 24 46 44 0D 31 38 32 30 20 20 20 20 20 |TA $FD.1820 | 00001360: 20 20 20 42 43 43 20 50 34 0D 31 38 33 30 20 20 | BCC P4.1830 | 00001370: 20 20 20 20 20 20 49 4E 43 20 24 46 45 0D 31 38 | INC $FE.18| 00001380: 34 30 20 50 34 20 20 20 20 20 44 45 43 20 24 46 |40 P4 DEC $F| 00001390: 43 0D 31 38 35 30 20 20 20 20 20 20 20 20 4C 44 |C.1850 LD| 000013A0: 59 20 54 45 4C 32 20 20 20 3B 38 20 50 49 58 45 |Y TEL2 ;8 PIXE| 000013B0: 4C 5A 45 49 4C 45 4E 0D 31 38 36 30 20 20 20 20 |LZEILEN.1860 | 000013C0: 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 3B | INY ;| 000013D0: 47 45 48 41 54 3F 0D 31 38 37 30 20 20 20 20 20 |GEHAT?.1870 | 000013E0: 20 20 20 43 50 59 20 23 24 30 38 0D 31 38 38 30 | CPY #$08.1880| 000013F0: 20 20 20 20 20 20 20 20 42 43 43 20 50 32 0D 31 | BCC P2.1| 00001400: 38 39 30 20 20 20 20 20 20 20 20 4C 44 41 20 24 |890 LDA $| 00001410: 46 42 20 20 20 20 3B 4A 41 20 4E 41 43 48 53 54 |FB ;JA NACHST| 00001420: 45 0D 31 39 30 30 20 20 20 20 20 20 20 20 43 4C |E.1900 CL| 00001430: 43 20 20 20 20 20 20 20 20 3B 56 49 43 20 5A 45 |C ;VIC ZE| 00001440: 49 4C 45 2E 0D 31 39 31 30 20 20 20 20 20 20 20 |ILE..1910 | 00001450: 20 41 44 43 20 23 24 34 30 0D 31 39 32 30 20 20 | ADC #$40.1920 | 00001460: 20 20 20 20 20 20 53 54 41 20 24 46 42 0D 31 39 | STA $FB.19| 00001470: 33 30 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 |30 LDA $F| 00001480: 43 0D 31 39 34 30 20 20 20 20 20 20 20 20 41 44 |C.1940 AD| 00001490: 43 20 23 24 30 31 0D 31 39 35 30 20 20 20 20 20 |C #$01.1950 | 000014A0: 20 20 20 53 54 41 20 24 46 43 0D 31 39 36 30 20 | STA $FC.1960 | 000014B0: 20 20 20 20 20 20 20 44 45 43 20 54 45 4C 31 0D | DEC TEL1.| 000014C0: 31 39 37 30 20 20 20 20 20 20 20 20 42 4E 45 20 |1970 BNE | 000014D0: 50 31 0D 31 39 38 30 20 20 20 20 20 20 20 20 43 |P1.1980 C| 000014E0: 4C 49 20 20 20 20 20 20 20 20 3B 46 45 52 54 49 |LI ;FERTI| 000014F0: 47 2E 0D 31 39 39 30 20 20 20 20 20 20 20 20 52 |G..1990 R| 00001500: 54 53 0D 32 30 30 30 20 54 45 4C 31 20 20 20 44 |TS.2000 TEL1 D| 00001510: 41 54 20 24 30 30 0D 32 30 31 30 20 54 45 4C 32 |AT $00.2010 TEL2| 00001520: 20 20 20 44 41 54 20 24 30 30 0D 32 30 32 30 20 | DAT $00.2020 | 00001530: 54 45 4C 33 20 20 20 44 41 54 20 24 30 30 0D 32 |TEL3 DAT $00.2| 00001540: 30 33 30 20 43 4F 55 4E 54 20 20 44 41 54 20 24 |030 COUNT DAT $| 00001550: 30 30 0D 0A 52 45 41 44 59 2E 0D 0A 0D |00..READY.... |
..100 ; ; TECHTECH 80.110 ; ;
(C)1992 PAUL GULDENAAR.120 ; ;.130
ORG $1300.140 JMP TECH ;T
ECHTECH 80..150 JMP PUTPIC;VICPIC
NACH VDC..160 TECH SEI.170 LDA
#$0B ;VIC AUS..180 STA $D011.19
0 LDA #$01 ;FAST MODE EIN..200
STA $D030.210 LDA #$F0 ;GE
RINGSTES VDC-.220 LDX #$24 ;RAM
AUFFRISH-.230 JSR $CDCC ;TEMPO..2
40 LDA #$3F.250 LDX #$1C
;64K VDC-RAM..260 JSR $CDCC.270
LDA #$87 ;HIRES EIN..280 L
DX #$19.290 JSR $CDCC.300
LDA #$40 ;VIDEO DISPLAY.310 LDX
#$0C ;BEI $4000..320 JSR $CDCC.3
30 LDA #$7F ;63 ZYKLEN PRO.340
LDX #$00 ;RASTERZEILE..350
JSR $CDCC.360 LDA #$FF ;WICHTIG
!:LETZTES.370 LDX #$12 ;BYTE VON
VDC-RAM.380 JSR $CDCC ;VERANTWOR
TLICH.390 INX ;FUR RANDFLAC
KERN.400 JSR $CDCC ;BEI SOFT-SCRO
LL,.410 LDA #$00 ;GLEICH GEISTER
-.420 JSR $CDCA ;BYTE BEI C64..43
0 LDA #$A0 ;SETZ COPY-BIT..440
LDX #$18.450 JSR $CDCC.460
LDY #$00.470 STY COUNT ;B
EWEGUNGSSTART..480 STY $FB ;MA
CH TABELLE.490 STY $FC ;MIT ST
ART-.500 T1 LDA $FC ;ADDRESSEN VO
N.510 STA $1900,Y;JEDEM.520
LDA $FB ;PIXELZEILE..530 STA
$1800,Y.540 CLC.550 ADC #
$50.560 STA $FB.570 BCC T2
.580 INC $FC.590 T2 INY.600
CPY #$C8.610 BNE T1.620 SCR
EEN LDX COUNT.630 LDA #$19 ;VDC
-REG FUR.640 STA $D600 ;X-SOFTSC
ROLL.650 LDA $1600,X;SOFTSCROLL-.
660 EOR #$07 ;WERTE FUR ERSTE.6
70 ORA #$80 ;PIXELZEILE..680
STA $D601.690 INX.700
STX COUNT.710 LDA #$20 ;WARTE
AUF OBEN-.720 SC1 BIT $D600 ;RAND DE
S.730 BEQ SC1 ;SICHTBARES.740
SC2 BIT $D600 ;SCHIRMS..750 B
NE SC2.760 JSR WAIT90 ;WARTE 2'ER
ZEILE.770 LDY #$00.780 SOFT LD
A $1600,X;SETZE SOFTSCROLL.790 EO
R #$07 ;WERTE EINER.800 ORA #$8
0 ;PIXELZEILE..810 STA $D601.82
0 JSR WAIT73 ;ZEILE TIMING..830
LDA $1800,Y;BERECHNE.840 CL
C ;NACHSTE.850 ADC $1700,X
;HARDSCROLL.860 STA $1A00,Y;POSIT
ION..870 LDA $1900,Y.880 A
DC #$00.890 STA $1B00,Y.900
INX.910 INY.920 CPY #$5D
.930 BNE SOFT.940 LDA #$87
;KEIN SOFTSCROLL.950 STA $D601
;UBRIGES SCHIRM..960 LDA $1800,
Y ;BERECHNE LETZTE.970 CLC
;WERTE FUR.980 ADC $1700,X ;HAR
DSCROLL..990 STA $1A00,Y.1000
LDA $1900,Y.1010 ADC #$00.102
0 STA $1B00,Y.1030 LDX #$1
2 ;SETZE UPDATE..1040 STX $D600
;NACH DIESES.1050 LDA #$40 ;A
DDRESS WIRD.1060 STA $D601 ;KOPI
ERT..1070 INX.1080 STX $D6
00.1090 LDA #$00.1100 STA
$D601.1110 SC3 BIT $D600 ;ADDRESS.11
20 BPL SC3 ;UBERGETRAGEN?.1130
COPY LDY #$00 ;HIER WERDEN 94.1140
C1 LDA #$20 ;PIXELZEILEN.1150
STA $D600 ;VON BLOCKADRES.1160
LDA $1B00,Y;NACH DAS UPDATE.1170
STA $D601 ;ADRES KOPIERT..1180
LDA #$21 ;DAS UPDATE WIRD.1190
STA $D600 ;AUTOMATISCH.1200 LDA
$1A00,Y;HINAUF GEZAHLT..1210 STA
$D601 ;DAS BLOCKADRES.1220 LDA
#$1E ;KOMMT AUS DIE.1230 STA $D
600 ;HARDSCROLL-.1240 LDA #$50
;TABELLE: DAS.1250 STA $D601 ;P
IXELZEILEADRES.1260 C2 BIT $D600 ;P
LUS DEN OFFSET.1270 BPL C2.1280
INY.1290 CPY #$5E.1300
BNE C1.1310 LDA #$FF ;LEERTA
STE.1320 CMP $DC01 ;GEDRUCKT?.13
30 BNE DONE ;JA ENDE..1340
JMP SCREEN.1350 DONE CMP $DC01 ;WA
RTE BIS KEINE.1360 BNE DONE ;TA
STE MEHR.1370 CLI ;GEDRUCK
T WIRD..1380 RTS.1390 WAIT90 JSR
WAIT17.1400 WAIT73 JSR WAIT17.1410
JSR WAIT17.1420 JSR WAIT17.1430
LDA ($AA),Y.1440 WAIT17 LDA ($AA
),Y.1450 WAIT12 RTS.1460 PUTPIC SEI
;PISTURE VON VIC.1470 STA $FD
;NACH VDC-FORMAT.1480 STX $FE.
1490 LDA #$00 ;PICTURE BEI.1500
STA $FB ;$8000 IM.1510
LDA #$80 ;BANK 0..1520 STA $FC
.1530 LDA #$19 ;25 ZEILEN..1540
STA TEL1.1550 P1 LDY #$00.15
60 P2 STY TEL2.1570 LDA #$28
;40 SPALTEN..1580 STA TEL3.1590
LDA $FE ;SETZE UPDATE-.1600
LDX #$12 ;ADDRESS..1610 J
SR $CDCC.1620 LDA $FD.1630
INX.1640 JSR $CDCC.1650 GET S
TX $FF01 ;HOLE BYTE AUS.1660 LDA
($FB),Y;BANK 0..1670 LDX #$00.16
80 STX $FF00.1690 JSR $CDC
A ;BYTE NACH VDC..1700 TYA
;NACHSTES BYTE..1710 CLC.1720
ADC #$08.1730 TAY.1740
BCC P3.1750 INC $FC.1760 P3
DEC TEL3.1770 BNE GET.1780
LDA #$50 ;ADDRESS NACHSTE.1790
CLC ;VDC-PIXELZEILE..1800
ADC $FD.1810 STA $FD.1820
BCC P4.1830 INC $FE.1840 P4
DEC $FC.1850 LDY TEL2 ;8 PIXE
LZEILEN.1860 INY ;GEHAT?.1
870 CPY #$08.1880 BCC P2.1
890 LDA $FB ;JA NACHSTE.1900
CLC ;VIC ZEILE..1910
ADC #$40.1920 STA $FB.1930
LDA $FC.1940 ADC #$01.1950
STA $FC.1960 DEC TEL1.1970
BNE P1.1980 CLI ;FERTI
G..1990 RTS.2000 TEL1 DAT $00.2
010 TEL2 DAT $00.2020 TEL3 DAT $00.2
030 COUNT DAT $00..READY....
> CLICK IMAGE PREVIEW FOR FULL MODAL