TECHTECH.ASM
FILE INFORMATION
FILENAME(S): TECHTECH.ASM
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 01:13:04
APPEARS ON: 1 disk(s)
FILE HASH
37f03f72f48bf3dbd05f5096b7134cbe68de02b25a2f258458a1ce8e37650113
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10308 SEITE A | TECHTECH.ASM | PRG | C64er | 27 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 3C 15 3C 64 00 3B 20 3B 20 54 45 43 48 54 45 |.<.<d.; ; TECHTE|
00000010: 43 48 20 38 30 00 34 3C 6E 00 3B 20 3B 20 28 43 |CH 80.4<n.; ; (C|
00000020: 29 31 39 39 32 20 50 41 55 4C 20 47 55 4C 44 45 |)1992 PAUL GULDE|
00000030: 4E 41 41 52 00 3C 3C 78 00 3B 20 3B 00 4A 3C 82 |NAAR.<<x.; ;.J<.|
00000040: 00 CF 52 47 20 24 31 33 30 30 00 66 3C 8C 00 CA |..RG $1300.f<...|
00000050: 4D 50 20 54 45 43 48 20 20 3B 54 45 43 48 54 45 |MP TECH ;TECHTE|
00000060: 43 48 20 38 30 2E 00 86 3C 96 00 CA 4D 50 20 50 |CH 80...<...MP P|
00000070: 55 54 50 49 43 3B 56 49 43 50 49 43 20 4E 41 43 |UTPIC;VICPIC NAC|
00000080: 48 20 56 44 43 2E 00 93 3C A0 00 54 45 43 48 20 |H VDC...<..TECH |
00000090: 53 45 49 00 AB 3C AA 00 CC 44 41 20 23 24 30 42 |SEI..<...DA #$0B|
000000A0: 20 20 3B 56 49 43 20 41 55 53 2E 00 B9 3C B4 00 | ;VIC AUS...<..|
000000B0: D3 54 41 20 24 44 30 31 31 00 D7 3C BE 00 CC 44 |.TA $D011..<...D|
000000C0: 41 20 23 24 30 31 20 20 3B 46 41 53 54 20 4D 4F |A #$01 ;FAST MO|
000000D0: 44 45 20 45 49 4E 2E 00 E5 3C C8 00 D3 54 41 20 |DE EIN...<...TA |
000000E0: 24 44 30 33 30 00 04 3D D2 00 CC 44 41 20 23 24 |$D030..=...DA #$|
000000F0: 46 30 20 20 3B 47 45 52 49 4E 47 53 54 45 53 20 |F0 ;GERINGSTES |
00000100: 56 44 43 AB 00 21 3D DC 00 CC 44 58 20 23 24 32 |VDC..!=...DX #$2|
00000110: 34 20 20 3B 52 41 4D 20 41 55 46 46 52 49 53 48 |4 ;RAM AUFFRISH|
00000120: AB 00 37 3D E6 00 CA 53 52 20 24 43 44 43 43 20 |..7=...SR $CDCC |
00000130: 3B 54 45 4D 50 4F 2E 00 44 3D F0 00 CC 44 41 20 |;TEMPO..D=...DA |
00000140: 23 24 33 46 00 60 3D FA 00 CC 44 58 20 23 24 31 |#$3F.`=...DX #$1|
00000150: 43 20 20 3B 36 34 4B 20 56 44 43 AB 52 41 4D 2E |C ;64K VDC.RAM.|
00000160: 00 6E 3D 04 01 CA 53 52 20 24 43 44 43 43 00 88 |.n=...SR $CDCC..|
00000170: 3D 0E 01 CC 44 41 20 23 24 38 37 20 20 3B 48 49 |=...DA #$87 ;HI|
00000180: 52 45 53 20 45 49 4E 2E 00 95 3D 18 01 CC 44 58 |RES EIN...=...DX|
00000190: 20 23 24 31 39 00 A3 3D 22 01 CA 53 52 20 24 43 | #$19..="..SR $C|
000001A0: 44 43 43 00 C0 3D 2C 01 CC 44 41 20 23 24 34 30 |DCC..=,..DA #$40|
000001B0: 20 20 3B 56 49 44 45 4F 20 44 49 53 50 4C 41 59 | ;VIDEO DISPLAY|
000001C0: 00 DA 3D 36 01 CC 44 58 20 23 24 30 43 20 20 3B |..=6..DX #$0C ;|
000001D0: 42 45 49 20 24 34 30 30 30 2E 00 E8 3D 40 01 CA |BEI $4000...=@..|
000001E0: 53 52 20 24 43 44 43 43 00 05 3E 4A 01 CC 44 41 |SR $CDCC..>J..DA|
000001F0: 20 23 24 37 46 20 20 3B 36 33 20 5A 59 4B 4C 45 | #$7F ;63 ZYKLE|
00000200: 4E 20 50 52 4F 00 21 3E 54 01 CC 44 58 20 23 24 |N PRO.!>T..DX #$|
00000210: 30 30 20 20 3B 52 41 53 54 45 52 5A 45 49 4C 45 |00 ;RASTERZEILE|
00000220: 2E 00 2F 3E 5E 01 CA 53 52 20 24 43 44 43 43 00 |../>^..SR $CDCC.|
00000230: 4F 3E 68 01 CC 44 41 20 23 24 46 46 20 20 3B 57 |O>h..DA #$FF ;W|
00000240: 49 43 48 54 49 47 21 3A 4C 45 54 5A 54 45 53 00 |ICHTIG!:LETZTES.|
00000250: 6F 3E 72 01 CC 44 58 20 23 24 31 32 20 20 3B 42 |o>r..DX #$12 ;B|
00000260: 59 54 45 20 56 4F 4E 20 56 44 43 AB 52 41 4D 00 |YTE VON VDC.RAM.|
00000270: 8D 3E 7C 01 CA 53 52 20 24 43 44 43 43 20 3B 56 |.>|..SR $CDCC ;V|
00000280: 45 52 41 4E 54 57 4F 52 54 4C 49 43 48 00 AD 3E |ERANTWORTLICH..>|
00000290: 86 01 C9 4E 58 20 20 20 20 20 20 20 3B 46 55 52 |...NX ;FUR|
000002A0: 20 52 41 4E 44 46 4C 41 43 4B 45 52 4E 00 CD 3E | RANDFLACKERN..>|
000002B0: 90 01 CA 53 52 20 24 43 44 43 43 20 3B 42 45 49 |...SR $CDCC ;BEI|
000002C0: 20 53 4F 46 54 AB 53 43 52 4F 4C 4C 2C 00 EC 3E | SOFT.SCROLL,..>|
000002D0: 9A 01 CC 44 41 20 23 24 30 30 20 20 3B 47 4C 45 |...DA #$00 ;GLE|
000002E0: 49 43 48 20 47 45 49 53 54 45 52 AB 00 09 3F A4 |ICH GEISTER...?.|
000002F0: 01 CA 53 52 20 24 43 44 43 41 20 3B 42 59 54 45 |..SR $CDCA ;BYTE|
00000300: 20 42 45 49 20 43 36 34 2E 00 27 3F AE 01 CC 44 | BEI C64..'?...D|
00000310: 41 20 23 24 41 30 20 20 3B 53 45 54 5A 20 43 4F |A #$A0 ;SETZ CO|
00000320: 50 59 AB 42 49 54 2E 00 34 3F B8 01 CC 44 58 20 |PY.BIT..4?...DX |
00000330: 23 24 31 38 00 42 3F C2 01 CA 53 52 20 24 43 44 |#$18.B?...SR $CD|
00000340: 43 43 00 4F 3F CC 01 CC 44 59 20 23 24 30 30 00 |CC.O?...DY #$00.|
00000350: 6F 3F D6 01 D3 54 59 20 43 4F 55 4E 54 20 20 3B |o?...TY COUNT ;|
00000360: 42 45 57 45 47 55 4E 47 53 53 54 41 52 54 2E 00 |BEWEGUNGSSTART..|
00000370: 8C 3F E0 01 D3 54 59 20 24 46 42 20 20 20 20 3B |.?...TY $FB ;|
00000380: 4D 41 43 48 20 54 41 42 45 4C 4C 45 00 A7 3F EA |MACH TABELLE..?.|
00000390: 01 D3 54 59 20 24 46 43 20 20 20 20 3B 4D 49 54 |..TY $FC ;MIT|
000003A0: 20 53 54 41 52 54 AB 00 C8 3F F4 01 54 31 20 4C | START...?..T1 L|
000003B0: 44 41 20 24 46 43 20 20 20 20 3B 41 44 44 52 45 |DA $FC ;ADDRE|
000003C0: 53 53 45 4E 20 56 4F 4E 00 DE 3F FE 01 D3 54 41 |SSEN VON..?...TA|
000003D0: 20 24 31 39 30 30 2C 59 3B 4A 45 44 45 4D 00 FA | $1900,Y;JEDEM..|
000003E0: 3F 08 02 CC 44 41 20 24 46 42 20 20 20 20 3B 50 |?...DA $FB ;P|
000003F0: 49 58 45 4C 5A 45 49 4C 45 2E 00 0A 40 12 02 D3 |IXELZEILE...@...|
00000400: 54 41 20 24 31 38 30 30 2C 59 00 12 40 1C 02 C3 |TA $1800,Y..@...|
00000410: 4C 43 00 1F 40 26 02 C1 44 43 20 23 24 35 30 00 |LC..@&..DC #$50.|
00000420: 2B 40 30 02 D3 54 41 20 24 46 42 00 36 40 3A 02 |+@0..TA $FB.6@:.|
00000430: C2 43 43 20 54 32 00 42 40 44 02 C9 4E 43 20 24 |.CC T2.B@D..NC $|
00000440: 46 43 00 4D 40 4E 02 54 32 20 49 4E 59 00 5A 40 |FC.M@N.T2 INY.Z@|
00000450: 58 02 C3 50 59 20 23 24 43 38 00 65 40 62 02 C2 |X..PY #$C8.e@b..|
00000460: 4E 45 20 54 31 00 7A 40 6C 02 53 43 52 45 45 4E |NE T1.z@l.SCREEN|
00000470: 20 4C 44 58 20 43 4F 55 4E 54 00 96 40 76 02 CC | LDX COUNT..@v..|
00000480: 44 41 20 23 24 31 39 20 20 20 3B 56 44 43 AB 52 |DA #$19 ;VDC.R|
00000490: 45 47 20 46 55 52 00 B3 40 80 02 D3 54 41 20 24 |EG FUR..@...TA $|
000004A0: 44 36 30 30 20 20 3B 58 AB 53 4F 46 54 53 43 52 |D600 ;X.SOFTSCR|
000004B0: 4F 4C 4C 00 CF 40 8A 02 CC 44 41 20 24 31 36 30 |OLL..@...DA $160|
000004C0: 30 2C 58 3B 53 4F 46 54 53 43 52 4F 4C 4C AB 00 |0,X;SOFTSCROLL..|
000004D0: EF 40 94 02 C5 4F 52 20 23 24 30 37 20 20 20 3B |.@...OR #$07 ;|
000004E0: 57 45 52 54 45 20 46 55 52 20 45 52 53 54 45 00 |WERTE FUR ERSTE.|
000004F0: 0B 41 9E 02 CF 52 41 20 23 24 38 30 20 20 20 3B |.A...RA #$80 ;|
00000500: 50 49 58 45 4C 5A 45 49 4C 45 2E 00 19 41 A8 02 |PIXELZEILE...A..|
00000510: D3 54 41 20 24 44 36 30 31 00 21 41 B2 02 C9 4E |.TA $D601.!A...N|
00000520: 58 00 2F 41 BC 02 D3 54 58 20 43 4F 55 4E 54 00 |X./A...TX COUNT.|
00000530: 4F 41 C6 02 CC 44 41 20 23 24 32 30 20 20 20 3B |OA...DA #$20 ;|
00000540: 57 41 52 54 45 20 41 55 46 20 4F 42 45 4E AB 00 |WARTE AUF OBEN..|
00000550: 6C 41 D0 02 53 43 31 20 42 49 54 20 24 44 36 30 |lA..SC1 BIT $D60|
00000560: 30 20 20 3B 52 41 4E 44 20 44 45 53 00 87 41 DA |0 ;RAND DES..A.|
00000570: 02 C2 45 51 20 53 43 31 20 20 20 20 3B 53 49 43 |..EQ SC1 ;SIC|
00000580: 48 54 42 41 52 45 53 00 A4 41 E4 02 53 43 32 20 |HTBARES..A..SC2 |
00000590: 42 49 54 20 24 44 36 30 30 20 20 3B 53 43 48 49 |BIT $D600 ;SCHI|
000005A0: 52 4D 53 2E 00 B0 41 EE 02 C2 4E 45 20 53 43 32 |RMS...A...NE SC2|
000005B0: 00 D1 41 F8 02 CA 53 52 20 57 41 49 54 39 30 20 |..A...SR WAIT90 |
000005C0: 3B 57 41 52 54 45 20 32 27 45 52 20 5A 45 49 4C |;WARTE 2'ER ZEIL|
000005D0: 45 00 DE 41 02 03 CC 44 59 20 23 24 30 30 00 04 |E..A...DY #$00..|
000005E0: 42 0C 03 53 4F 46 54 20 4C 44 41 20 24 31 36 30 |B..SOFT LDA $160|
000005F0: 30 2C 58 3B 53 45 54 5A 45 20 53 4F 46 54 53 43 |0,X;SETZE SOFTSC|
00000600: 52 4F 4C 4C 00 20 42 16 03 C5 4F 52 20 23 24 30 |ROLL. B...OR #$0|
00000610: 37 20 20 20 3B 57 45 52 54 45 20 45 49 4E 45 52 |7 ;WERTE EINER|
00000620: 00 3C 42 20 03 CF 52 41 20 23 24 38 30 20 20 20 |.<B ..RA #$80 |
00000630: 3B 50 49 58 45 4C 5A 45 49 4C 45 2E 00 4A 42 2A |;PIXELZEILE..JB*|
00000640: 03 D3 54 41 20 24 44 36 30 31 00 68 42 34 03 CA |..TA $D601.hB4..|
00000650: 53 52 20 57 41 49 54 37 33 20 3B 5A 45 49 4C 45 |SR WAIT73 ;ZEILE|
00000660: 20 54 49 4D 49 4E 47 2E 00 81 42 3E 03 CC 44 41 | TIMING...B>..DA|
00000670: 20 24 31 38 30 30 2C 59 3B 42 45 52 45 43 48 4E | $1800,Y;BERECHN|
00000680: 45 00 99 42 48 03 C3 4C 43 20 20 20 20 20 20 20 |E..BH..LC |
00000690: 20 3B 4E 41 43 48 53 54 45 00 B4 42 52 03 C1 44 | ;NACHSTE..BR..D|
000006A0: 43 20 24 31 37 30 30 2C 58 3B 48 41 52 44 53 43 |C $1700,X;HARDSC|
000006B0: 52 4F 4C 4C 00 CE 42 5C 03 D3 54 41 20 24 31 41 |ROLL..B\..TA $1A|
000006C0: 30 30 2C 59 3B 50 4F 53 49 54 49 4F 4E 2E 00 DE |00,Y;POSITION...|
000006D0: 42 66 03 CC 44 41 20 24 31 39 30 30 2C 59 00 EB |Bf..DA $1900,Y..|
000006E0: 42 70 03 C1 44 43 20 23 24 30 30 00 FB 42 7A 03 |Bp..DC #$00..Bz.|
000006F0: D3 54 41 20 24 31 42 30 30 2C 59 00 03 43 84 03 |.TA $1B00,Y..C..|
00000700: C9 4E 58 00 0B 43 8E 03 C9 4E 59 00 18 43 98 03 |.NX..C...NY..C..|
00000710: C3 50 59 20 23 24 35 44 00 25 43 A2 03 C2 4E 45 |.PY #$5D.%C...NE|
00000720: 20 53 4F 46 54 00 45 43 AC 03 CC 44 41 20 23 24 | SOFT.EC...DA #$|
00000730: 38 37 20 20 20 3B 4B 45 49 4E 20 53 4F 46 54 53 |87 ;KEIN SOFTS|
00000740: 43 52 4F 4C 4C 00 65 43 B6 03 D3 54 41 20 24 44 |CROLL.eC...TA $D|
00000750: 36 30 31 20 20 3B 55 42 52 49 47 45 53 20 53 43 |601 ;UBRIGES SC|
00000760: 48 49 52 4D 2E 00 86 43 C0 03 CC 44 41 20 24 31 |HIRM...C...DA $1|
00000770: 38 30 30 2C 59 20 3B 42 45 52 45 43 48 4E 45 20 |800,Y ;BERECHNE |
00000780: 4C 45 54 5A 54 45 00 A1 43 CA 03 C3 4C 43 20 20 |LETZTE..C...LC |
00000790: 20 20 20 20 20 20 20 3B 57 45 52 54 45 20 46 55 | ;WERTE FU|
000007A0: 52 00 BE 43 D4 03 C1 44 43 20 24 31 37 30 30 2C |R..C...DC $1700,|
000007B0: 58 20 3B 48 41 52 44 53 43 52 4F 4C 4C 2E 00 CE |X ;HARDSCROLL...|
000007C0: 43 DE 03 D3 54 41 20 24 31 41 30 30 2C 59 00 DE |C...TA $1A00,Y..|
000007D0: 43 E8 03 CC 44 41 20 24 31 39 30 30 2C 59 00 EB |C...DA $1900,Y..|
000007E0: 43 F2 03 C1 44 43 20 23 24 30 30 00 FB 43 FC 03 |C...DC #$00..C..|
000007F0: D3 54 41 20 24 31 42 30 30 2C 59 00 19 44 06 04 |.TA $1B00,Y..D..|
00000800: CC 44 58 20 23 24 31 32 20 20 20 3B 53 45 54 5A |.DX #$12 ;SETZ|
00000810: 45 20 55 50 44 41 54 45 2E 00 35 44 10 04 D3 54 |E UPDATE..5D...T|
00000820: 58 20 24 44 36 30 30 20 20 3B 4E 41 43 48 20 44 |X $D600 ;NACH D|
00000830: 49 45 53 45 53 00 52 44 1A 04 CC 44 41 20 23 24 |IESES.RD...DA #$|
00000840: 34 30 20 20 20 3B 41 44 44 52 45 53 53 20 57 49 |40 ;ADDRESS WI|
00000850: 52 44 00 6B 44 24 04 D3 54 41 20 24 44 36 30 31 |RD.kD$..TA $D601|
00000860: 20 20 3B 4B 4F 50 49 45 52 54 2E 00 73 44 2E 04 | ;KOPIERT..sD..|
00000870: C9 4E 58 00 81 44 38 04 D3 54 58 20 24 44 36 30 |.NX..D8..TX $D60|
00000880: 30 00 8E 44 42 04 CC 44 41 20 23 24 30 30 00 9C |0..DB..DA #$00..|
00000890: 44 4C 04 D3 54 41 20 24 44 36 30 31 00 B8 44 56 |DL..TA $D601..DV|
000008A0: 04 53 43 33 20 42 49 54 20 24 44 36 30 30 20 20 |.SC3 BIT $D600 |
000008B0: 3B 41 44 44 52 45 53 53 00 D6 44 60 04 C2 50 4C |;ADDRESS..D`..PL|
000008C0: 20 53 43 33 20 20 20 20 3B 55 42 45 52 47 45 54 | SC3 ;UBERGET|
000008D0: 52 41 47 45 4E 3F 00 FA 44 6A 04 43 4F 50 59 20 |RAGEN?..Dj.COPY |
000008E0: 4C 44 59 20 23 24 30 30 20 20 20 3B 48 49 45 52 |LDY #$00 ;HIER|
000008F0: 20 57 45 52 44 45 4E 20 39 34 00 19 45 74 04 43 | WERDEN 94..Et.C|
00000900: 31 20 4C 44 41 20 23 24 32 30 20 20 20 3B 50 49 |1 LDA #$20 ;PI|
00000910: 58 45 4C 5A 45 49 4C 45 4E 00 38 45 7E 04 D3 54 |XELZEILEN.8E~..T|
00000920: 41 20 24 44 36 30 30 20 20 3B 56 4F 4E 20 42 4C |A $D600 ;VON BL|
00000930: 4F 43 4B 41 44 52 45 53 00 58 45 88 04 CC 44 41 |OCKADRES.XE...DA|
00000940: 20 24 31 42 30 30 2C 59 3B 4E 41 43 48 20 44 41 | $1B00,Y;NACH DA|
00000950: 53 20 55 50 44 41 54 45 00 77 45 92 04 D3 54 41 |S UPDATE.wE...TA|
00000960: 20 24 44 36 30 31 20 20 3B 41 44 52 45 53 20 4B | $D601 ;ADRES K|
00000970: 4F 50 49 45 52 54 2E 00 97 45 9C 04 CC 44 41 20 |OPIERT...E...DA |
00000980: 23 24 32 31 20 20 20 3B 44 41 53 20 55 50 44 41 |#$21 ;DAS UPDA|
00000990: 54 45 20 57 49 52 44 00 B3 45 A6 04 D3 54 41 20 |TE WIRD..E...TA |
000009A0: 24 44 36 30 30 20 20 3B 41 55 54 4F 4D 41 54 49 |$D600 ;AUTOMATI|
000009B0: 53 43 48 00 D3 45 B0 04 CC 44 41 20 24 31 41 30 |SCH..E...DA $1A0|
000009C0: 30 2C 59 3B 48 49 4E 41 55 46 20 47 45 5A 41 48 |0,Y;HINAUF GEZAH|
000009D0: 4C 54 2E 00 F2 45 BA 04 D3 54 41 20 24 44 36 30 |LT...E...TA $D60|
000009E0: 31 20 20 3B 44 41 53 20 42 4C 4F 43 4B 41 44 52 |1 ;DAS BLOCKADR|
000009F0: 45 53 00 10 46 C4 04 CC 44 41 20 23 24 31 45 20 |ES..F...DA #$1E |
00000A00: 20 20 3B 4B 4F 4D 4D 54 20 41 55 53 20 44 49 45 | ;KOMMT AUS DIE|
00000A10: 00 2C 46 CE 04 D3 54 41 20 24 44 36 30 30 20 20 |.,F...TA $D600 |
00000A20: 3B 48 41 52 44 53 43 52 4F 4C 4C AB 00 49 46 D8 |;HARDSCROLL..IF.|
00000A30: 04 CC 44 41 20 23 24 35 30 20 20 20 3B 54 41 42 |..DA #$50 ;TAB|
00000A40: 45 4C 4C 45 3A 20 44 41 53 00 69 46 E2 04 D3 54 |ELLE: DAS.iF...T|
00000A50: 41 20 24 44 36 30 31 20 20 3B 50 49 58 45 4C 5A |A $D601 ;PIXELZ|
00000A60: 45 49 4C 45 41 44 52 45 53 00 8C 46 EC 04 43 32 |EILEADRES..F..C2|
00000A70: 20 42 49 54 20 24 44 36 30 30 20 20 3B 50 4C 55 | BIT $D600 ;PLU|
00000A80: 53 20 44 45 4E 20 4F 46 46 53 45 54 00 97 46 F6 |S DEN OFFSET..F.|
00000A90: 04 C2 50 4C 20 43 32 00 9F 46 00 05 C9 4E 59 00 |..PL C2..F...NY.|
00000AA0: AC 46 0A 05 C3 50 59 20 23 24 35 45 00 B7 46 14 |.F...PY #$5E..F.|
00000AB0: 05 C2 4E 45 20 43 31 00 D1 46 1E 05 CC 44 41 20 |..NE C1..F...DA |
00000AC0: 23 24 46 46 20 20 20 3B 4C 45 45 52 54 41 53 54 |#$FF ;LEERTAST|
00000AD0: 45 00 EB 46 28 05 C3 4D 50 20 24 44 43 30 31 20 |E..F(..MP $DC01 |
00000AE0: 20 3B 47 45 44 52 55 43 4B 54 3F 00 04 47 32 05 | ;GEDRUCKT?..G2.|
00000AF0: C2 4E 45 20 44 4F 4E 45 20 20 20 3B 4A 41 20 45 |.NE DONE ;JA E|
00000B00: 4E 44 45 2E 00 13 47 3C 05 CA 4D 50 20 53 43 52 |NDE...G<..MP SCR|
00000B10: 45 45 4E 00 38 47 46 05 44 4F 4E 45 20 43 4D 50 |EEN.8GF.DONE CMP|
00000B20: 20 24 44 43 30 31 20 20 3B 57 41 52 54 45 20 42 | $DC01 ;WARTE B|
00000B30: 49 53 20 4B 45 49 4E 45 00 53 47 50 05 C2 4E 45 |IS KEINE.SGP..NE|
00000B40: 20 44 4F 4E 45 20 20 20 3B 54 41 53 54 45 20 4D | DONE ;TASTE M|
00000B50: 45 48 52 00 72 47 5A 05 C3 4C 49 20 20 20 20 20 |EHR.rGZ..LI |
00000B60: 20 20 20 3B 47 45 44 52 55 43 4B 54 20 57 49 52 | ;GEDRUCKT WIR|
00000B70: 44 2E 00 7A 47 64 05 D2 54 53 00 90 47 6E 05 57 |D..zGd..TS..Gn.W|
00000B80: 41 49 54 39 30 20 4A 53 52 20 57 41 49 54 31 37 |AIT90 JSR WAIT17|
00000B90: 00 A6 47 78 05 57 41 49 54 37 33 20 4A 53 52 20 |..Gx.WAIT73 JSR |
00000BA0: 57 41 49 54 31 37 00 B5 47 82 05 CA 53 52 20 57 |WAIT17..G...SR W|
00000BB0: 41 49 54 31 37 00 C4 47 8C 05 CA 53 52 20 57 41 |AIT17..G...SR WA|
00000BC0: 49 54 31 37 00 D4 47 96 05 CC 44 41 20 28 24 41 |IT17..G...DA ($A|
00000BD0: 41 29 2C 59 00 EB 47 A0 05 57 41 49 54 31 37 20 |A),Y..G..WAIT17 |
00000BE0: 4C 44 41 20 28 24 41 41 29 2C 59 00 FA 47 AA 05 |LDA ($AA),Y..G..|
00000BF0: 57 41 49 54 31 32 20 52 54 53 00 21 48 B4 05 50 |WAIT12 RTS.!H..P|
00000C00: 55 54 50 49 43 20 53 45 49 20 20 20 20 20 20 20 |UTPIC SEI |
00000C10: 20 3B 50 49 53 54 55 52 45 20 56 4F 4E 20 56 49 | ;PISTURE VON VI|
00000C20: 43 00 41 48 BE 05 D3 54 41 20 24 46 44 20 20 20 |C.AH...TA $FD |
00000C30: 20 3B 4E 41 43 48 20 56 44 43 AB 46 4F 52 4D 41 | ;NACH VDC.FORMA|
00000C40: 54 00 4D 48 C8 05 D3 54 58 20 24 46 45 00 69 48 |T.MH...TX $FE.iH|
00000C50: D2 05 CC 44 41 20 23 24 30 30 20 20 20 3B 50 49 |...DA #$00 ;PI|
00000C60: 43 54 55 52 45 20 42 45 49 00 82 48 DC 05 D3 54 |CTURE BEI..H...T|
00000C70: 41 20 24 46 42 20 20 20 20 3B 24 38 30 30 30 20 |A $FB ;$8000 |
00000C80: 49 4D 00 9A 48 E6 05 CC 44 41 20 23 24 38 30 20 |IM..H...DA #$80 |
00000C90: 20 20 3B 42 41 4E 4B 20 30 2E 00 A6 48 F0 05 D3 | ;BANK 0...H...|
00000CA0: 54 41 20 24 46 43 00 C1 48 FA 05 CC 44 41 20 23 |TA $FC..H...DA #|
00000CB0: 24 31 39 20 20 20 3B 32 35 20 5A 45 49 4C 45 4E |$19 ;25 ZEILEN|
00000CC0: 2E 00 CE 48 04 06 D3 54 41 20 54 45 4C 31 00 DE |...H...TA TEL1..|
00000CD0: 48 0E 06 50 31 20 4C 44 59 20 23 24 30 30 00 EE |H..P1 LDY #$00..|
00000CE0: 48 18 06 50 32 20 53 54 59 20 54 45 4C 32 00 0A |H..P2 STY TEL2..|
00000CF0: 49 22 06 CC 44 41 20 23 24 32 38 20 20 20 3B 34 |I"..DA #$28 ;4|
00000D00: 30 20 53 50 41 4C 54 45 4E 2E 00 17 49 2C 06 D3 |0 SPALTEN...I,..|
00000D10: 54 41 20 54 45 4C 33 00 35 49 36 06 CC 44 41 20 |TA TEL3.5I6..DA |
00000D20: 24 46 45 20 20 20 20 3B 53 45 54 5A 45 20 55 50 |$FE ;SETZE UP|
00000D30: 44 41 54 45 AB 00 4E 49 40 06 CC 44 58 20 23 24 |DATE..NI@..DX #$|
00000D40: 31 32 20 20 20 3B 41 44 44 52 45 53 53 2E 00 5C |12 ;ADDRESS..\|
00000D50: 49 4A 06 CA 53 52 20 24 43 44 43 43 00 68 49 54 |IJ..SR $CDCC.hIT|
00000D60: 06 CC 44 41 20 24 46 44 00 70 49 5E 06 C9 4E 58 |..DA $FD.pI^..NX|
00000D70: 00 7E 49 68 06 CA 53 52 20 24 43 44 43 43 00 A0 |.~Ih..SR $CDCC..|
00000D80: 49 72 06 47 45 54 20 53 54 58 20 24 46 46 30 31 |Ir.GET STX $FF01|
00000D90: 20 20 3B 48 4F 4C 45 20 42 59 54 45 20 41 55 53 | ;HOLE BYTE AUS|
00000DA0: 00 B8 49 7C 06 CC 44 41 20 28 24 46 42 29 2C 59 |..I|..DA ($FB),Y|
00000DB0: 3B 42 41 4E 4B 20 30 2E 00 C5 49 86 06 CC 44 58 |;BANK 0...I...DX|
00000DC0: 20 23 24 30 30 00 D3 49 90 06 D3 54 58 20 24 46 | #$00..I...TX $F|
00000DD0: 46 30 30 00 F2 49 9A 06 CA 53 52 20 24 43 44 43 |F00..I...SR $CDC|
00000DE0: 41 20 20 3B 42 59 54 45 20 4E 41 43 48 20 56 44 |A ;BYTE NACH VD|
00000DF0: 43 2E 00 11 4A A4 06 D4 59 41 20 20 20 20 20 20 |C...J...YA |
00000E00: 20 20 3B 4E 41 43 48 53 54 45 53 20 42 59 54 45 | ;NACHSTES BYTE|
00000E10: 2E 00 19 4A AE 06 C3 4C 43 00 26 4A B8 06 C1 44 |...J...LC.&J...D|
00000E20: 43 20 23 24 30 38 00 2E 4A C2 06 D4 41 59 00 39 |C #$08..J...AY.9|
00000E30: 4A CC 06 C2 43 43 20 50 33 00 45 4A D6 06 C9 4E |J...CC P3.EJ...N|
00000E40: 43 20 24 46 43 00 55 4A E0 06 50 33 20 44 45 43 |C $FC.UJ..P3 DEC|
00000E50: 20 54 45 4C 33 00 61 4A EA 06 C2 4E 45 20 47 45 | TEL3.aJ...NE GE|
00000E60: 54 00 81 4A F4 06 CC 44 41 20 23 24 35 30 20 20 |T..J...DA #$50 |
00000E70: 20 3B 41 44 44 52 45 53 53 20 4E 41 43 48 53 54 | ;ADDRESS NACHST|
00000E80: 45 00 A1 4A FE 06 C3 4C 43 20 20 20 20 20 20 20 |E..J...LC |
00000E90: 20 3B 56 44 43 AB 50 49 58 45 4C 5A 45 49 4C 45 | ;VDC.PIXELZEILE|
00000EA0: 2E 00 AD 4A 08 07 C1 44 43 20 24 46 44 00 B9 4A |...J...DC $FD..J|
00000EB0: 12 07 D3 54 41 20 24 46 44 00 C4 4A 1C 07 C2 43 |...TA $FD..J...C|
00000EC0: 43 20 50 34 00 D0 4A 26 07 C9 4E 43 20 24 46 45 |C P4..J&..NC $FE|
00000ED0: 00 DF 4A 30 07 50 34 20 44 45 43 20 24 46 43 00 |..J0.P4 DEC $FC.|
00000EE0: FD 4A 3A 07 CC 44 59 20 54 45 4C 32 20 20 20 3B |.J:..DY TEL2 ;|
00000EF0: 38 20 50 49 58 45 4C 5A 45 49 4C 45 4E 00 14 4B |8 PIXELZEILEN..K|
00000F00: 44 07 C9 4E 59 20 20 20 20 20 20 20 20 3B 47 45 |D..NY ;GE|
00000F10: 48 41 54 3F 00 21 4B 4E 07 C3 50 59 20 23 24 30 |HAT?.!KN..PY #$0|
00000F20: 38 00 2C 4B 58 07 C2 43 43 20 50 32 00 47 4B 62 |8.,KX..CC P2.GKb|
00000F30: 07 CC 44 41 20 24 46 42 20 20 20 20 3B 4A 41 20 |..DA $FB ;JA |
00000F40: 4E 41 43 48 53 54 45 00 62 4B 6C 07 C3 4C 43 20 |NACHSTE.bKl..LC |
00000F50: 20 20 20 20 20 20 20 3B 56 49 43 20 5A 45 49 4C | ;VIC ZEIL|
00000F60: 45 2E 00 6F 4B 76 07 C1 44 43 20 23 24 34 30 00 |E..oKv..DC #$40.|
00000F70: 7B 4B 80 07 D3 54 41 20 24 46 42 00 87 4B 8A 07 |{K...TA $FB..K..|
00000F80: CC 44 41 20 24 46 43 00 94 4B 94 07 C1 44 43 20 |.DA $FC..K...DC |
00000F90: 23 24 30 31 00 A0 4B 9E 07 D3 54 41 20 24 46 43 |#$01..K...TA $FC|
00000FA0: 00 AD 4B A8 07 C4 45 43 20 54 45 4C 31 00 B8 4B |..K...EC TEL1..K|
00000FB0: B2 07 C2 4E 45 20 50 31 00 D0 4B BC 07 C3 4C 49 |...NE P1..K...LI|
00000FC0: 20 20 20 20 20 20 20 20 3B 46 45 52 54 49 47 2E | ;FERTIG.|
00000FD0: 00 D8 4B C6 07 D2 54 53 00 E9 4B D0 07 54 45 4C |..K...TS..K..TEL|
00000FE0: 31 20 44 41 54 20 24 30 30 00 FA 4B DA 07 54 45 |1 DAT $00..K..TE|
00000FF0: 4C 32 20 44 41 54 20 24 30 30 00 0B 4C E4 07 54 |L2 DAT $00..L..T|
00001000: 45 4C 33 20 44 41 54 20 24 30 30 00 1D 4C EE 07 |EL3 DAT $00..L..|
00001010: 43 4F 55 4E 54 20 44 41 54 20 24 30 30 00 00 00 |COUNT DAT $00...|
.<.<D.; ; TECHTECH 80.4<N.; ; (C)1992 PA
UL GULDENAAR.<<X.; ;.J<..ORG $1300.F<..J
MP TECH ;TECHTECH 80...<..JMP PUTPIC;VI
CPIC NACH VDC...< .TECH SEI..<..LDA #$0B
;VIC AUS...<..STA $D011.W<..LDA #$01
;FAST MODE EIN...<H.STA $D030..=R.LDA #$
F0 ;GERINGSTES VDC..!=..LDX #$24 ;RAM
AUFFRISH..7=..JSR $CDCC ;TEMPO..D=..LDA
#$3F.`=..LDX #$1C ;64K VDC.RAM..N=..JSR
$CDCC..=..LDA #$87 ;HIRES EIN...=..LDX
#$19..=".JSR $CDCC..=,.LDA #$40 ;VIDEO
DISPLAY.Z=6.LDX #$0C ;BEI $4000...=@.J
SR $CDCC..>J.LDA #$7F ;63 ZYKLEN PRO.!>
T.LDX #$00 ;RASTERZEILE../>^.JSR $CDCC.
O>H.LDA #$FF ;WICHTIG!:LETZTES.O>R.LDX
#$12 ;BYTE VON VDC.RAM..>|.JSR $CDCC ;V
ERANTWORTLICH..>..INX ;FUR RANDFLA
CKERN.M>..JSR $CDCC ;BEI SOFT.SCROLL,..>
..LDA #$00 ;GLEICH GEISTER...?..JSR $CD
CA ;BYTE BEI C64..'?..LDA #$A0 ;SETZ CO
PY.BIT..4?..LDX #$18.B?B.JSR $CDCC.O?L.L
DY #$00.O?V.STY COUNT ;BEWEGUNGSSTART..
.?..STY $FB ;MACH TABELLE..?..STY $FC
;MIT START..H?..T1 LDA $FC ;ADDRE
SSEN VON..?..STA $1900,Y;JEDEM..?..LDA $
FB ;PIXELZEILE...@..STA $1800,Y..@..C
LC..@&.ADC #$50.+@0.STA $FB.6@:.BCC T2.B
@D.INC $FC.M@N.T2 INY.Z@X.CPY #$C8.E@B.B
NE T1.Z@L.SCREEN LDX COUNT..@V.LDA #$19
;VDC.REG FUR..@..STA $D600 ;X.SOFTSCR
OLL.O@..LDA $1600,X;SOFTSCROLL...@..EOR
#$07 ;WERTE FUR ERSTE..A..ORA #$80 ;
PIXELZEILE...A..STA $D601.!A..INX./A..ST
X COUNT.OAF.LDA #$20 ;WARTE AUF OBEN..
LAP.SC1 BIT $D600 ;RAND DES..AZ.BEQ SC1
;SICHTBARES..A..SC2 BIT $D600 ;SCHI
RMS...A..BNE SC2.QA..JSR WAIT90 ;WARTE 2
'ER ZEILE..A..LDY #$00..B..SOFT LDA $160
0,X;SETZE SOFTSCROLL. B..EOR #$07 ;WER
TE EINER.<B .ORA #$80 ;PIXELZEILE..JB*
.STA $D601.HB4.JSR WAIT73 ;ZEILE TIMING.
..B>.LDA $1800,Y;BERECHNE..BH.CLC
;NACHSTE..BR.ADC $1700,X;HARDSCROLL.NB\
.STA $1A00,Y;POSITION...BF.LDA $1900,Y..
BP.ADC #$00..BZ.STA $1B00,Y..C..INX..C..
INY..C..CPY #$5D.%C..BNE SOFT.EC..LDA #$
87 ;KEIN SOFTSCROLL.EC..STA $D601 ;UB
RIGES SCHIRM...C..LDA $1800,Y ;BERECHNE
LETZTE..CJ.CLC ;WERTE FUR..CT.AD
C $1700,X ;HARDSCROLL..NC..STA $1A00,Y..
C..LDA $1900,Y..C..ADC #$00..C..STA $1B0
0,Y..D..LDX #$12 ;SETZE UPDATE..5D..ST
X $D600 ;NACH DIESES.RD..LDA #$40 ;AD
DRESS WIRD.KD$.STA $D601 ;KOPIERT..SD..
INX..D8.STX $D600..DB.LDA #$00..DL.STA $
D601..DV.SC3 BIT $D600 ;ADDRESS.VD`.BPL
SC3 ;UBERGETRAGEN?..DJ.COPY LDY #$00
;HIER WERDEN 94..ET.C1 LDA #$20 ;PI
XELZEILEN.8E~.STA $D600 ;VON BLOCKADRES
.XE..LDA $1B00,Y;NACH DAS UPDATE.WE..STA
$D601 ;ADRES KOPIERT...E..LDA #$21 ;
DAS UPDATE WIRD..E..STA $D600 ;AUTOMATI
SCH.SE..LDA $1A00,Y;HINAUF GEZAHLT...E..
STA $D601 ;DAS BLOCKADRES..FD.LDA #$1E
;KOMMT AUS DIE.,FN.STA $D600 ;HARDSCR
OLL..IFX.LDA #$50 ;TABELLE: DAS.IF..ST
A $D601 ;PIXELZEILEADRES..F..C2 BIT $D6
00 ;PLUS DEN OFFSET..F..BPL C2..F..INY.
.F..CPY #$5E..F..BNE C1.QF..LDA #$FF ;
LEERTASTE..F(.CMP $DC01 ;GEDRUCKT?..G2.
BNE DONE ;JA ENDE...G<.JMP SCREEN.8GF.
DONE CMP $DC01 ;WARTE BIS KEINE.SGP.BNE
DONE ;TASTE MEHR.RGZ.CLI ;GEDR
UCKT WIRD..ZGD.RTS..GN.WAIT90 JSR WAIT17
..GX.WAIT73 JSR WAIT17..G..JSR WAIT17.DG
..JSR WAIT17.TG..LDA ($AA),Y..G .WAIT17
LDA ($AA),Y..G..WAIT12 RTS.!H..PUTPIC SE
I ;PISTURE VON VIC.AH..STA $FD
;NACH VDC.FORMAT.MHH.STX $FE.IHR.LDA #$
00 ;PICTURE BEI..H..STA $FB ;$8000
IM..H..LDA #$80 ;BANK 0...H..STA $FC.A
H..LDA #$19 ;25 ZEILEN..NH..STA TEL1..
H..P1 LDY #$00..H..P2 STY TEL2..I".LDA #
$28 ;40 SPALTEN...I,.STA TEL3.5I6.LDA
$FE ;SETZE UPDATE..NI@.LDX #$12 ;AD
DRESS..\IJ.JSR $CDCC.HIT.LDA $FD.PI^.INX
.~IH.JSR $CDCC. IR.GET STX $FF01 ;HOLE
BYTE AUS..I|.LDA ($FB),Y;BANK 0..EI..LDX
#$00.SI..STX $FF00..I..JSR $CDCA ;BYTE
NACH VDC...J..TYA ;NACHSTES BYTE
...J..CLC.&J..ADC #$08..JB.TAY.9JL.BCC P
3.EJV.INC $FC.UJ..P3 DEC TEL3.AJ..BNE GE
T..J..LDA #$50 ;ADDRESS NACHSTE..J..CL
C ;VDC.PIXELZEILE...J..ADC $FD..J
..STA $FD.DJ..BCC P4.PJ&.INC $FE..J0.P4
DEC $FC..J:.LDY TEL2 ;8 PIXELZEILEN..K
D.INY ;GEHAT?.!KN.CPY #$08.,KX.BC
C P2.GKB.LDA $FB ;JA NACHSTE.BKL.CLC
;VIC ZEILE..OKV.ADC #$40.{K..STA
$FB..K..LDA $FC..K..ADC #$01. K..STA $FC
..K..DEC TEL1..K..BNE P1.PK..CLI
;FERTIG..XKF.RTS..KP.TEL1 DAT $00..KZ.TE
L2 DAT $00..L..TEL3 DAT $00..L..COUNT DA
T $00...
> CLICK IMAGE PREVIEW FOR FULL MODAL