VG-CP80X.SRC
FILE INFORMATION
FILENAME(S): VG-CP80X.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 01:12:34
APPEARS ON: 1 disk(s)
FILE HASH
035ca86415f482a901cfb94f009a400c3b9ad150e0a511ee924cbeeebe44ce4c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 10 86 II | VG-CP80X.SRC | PRG | C64er, DuncanTwain | 21 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 32 00 9E 39 AC 34 30 39 36 00 13 08 |....2..9.4096...| 00000010: 64 00 3B 00 19 08 6E 00 3B 00 25 08 78 00 2E 4F |d.;...n.;.%.x..O| 00000020: 50 54 20 4F 4F 00 4C 08 82 00 3B 41 4E 50 41 53 |PT OO.L...;ANPAS| 00000030: 53 55 4E 47 20 56 4F 4E 20 43 50 20 38 30 58 20 |SUNG VON CP 80X | 00000040: 41 4E 20 56 49 5A 41 57 52 49 54 45 00 70 08 8C |AN VIZAWRITE.p..| 00000050: 00 3B 55 4D 4C 41 55 54 45 20 55 4E 44 20 53 54 |.;UMLAUTE UND ST| 00000060: 45 55 45 52 43 4F 44 45 53 20 57 45 52 44 45 4E |EUERCODES WERDEN| 00000070: 00 99 08 96 00 3B 56 4F 4D 20 43 50 20 38 30 58 |.....;VOM CP 80X| 00000080: 20 52 49 43 48 54 49 47 20 41 55 53 47 45 47 45 | RICHTIG AUSGEGE| 00000090: 42 45 4E 2C 20 57 45 4E 4E 00 C3 08 A0 00 3B 45 |BEN, WENN.....;E| 000000A0: 52 20 41 4C 53 20 45 50 53 4F 4E 2D 44 52 55 43 |R ALS EPSON-DRUC| 000000B0: 4B 45 52 20 28 45 29 20 41 4E 47 45 53 54 45 55 |KER (E) ANGESTEU| 000000C0: 45 52 54 00 CD 08 AA 00 3B 57 49 52 44 00 03 09 |ERT.....;WIRD...| 000000D0: B4 00 3B 5A 55 53 41 45 54 5A 4C 49 43 48 20 49 |..;ZUSAETZLICH I| 000000E0: 53 54 20 45 53 20 4D 4F 45 47 4C 49 43 48 20 47 |ST ES MOEGLICH G| 000000F0: 52 41 46 49 4B 45 4E 20 5A 55 20 44 52 55 43 4B |RAFIKEN ZU DRUCK| 00000100: 45 4E 21 00 09 09 BE 00 3B 00 1A 09 C8 00 3B 56 |EN!.....;.....;V| 00000110: 45 52 53 49 4F 4E 20 32 2E 32 00 20 09 D2 00 3B |ERSION 2.2. ...;| 00000120: 00 3C 09 DC 00 3B 28 43 29 20 31 39 38 36 20 4D |.<...;(C) 1986 M| 00000130: 41 52 4B 54 26 54 45 43 48 4E 49 4B 00 42 09 E6 |ARKT&TECHNIK.B..| 00000140: 00 3B 00 59 09 F0 00 3B 20 20 20 20 20 20 20 57 |.;.Y...; W| 00000150: 52 49 54 54 45 4E 20 42 59 00 6D 09 FA 00 3B 20 |RITTEN BY.m...; | 00000160: 20 20 20 20 20 20 52 41 4C 46 20 C3 5A 00 86 09 | RALF .Z...| 00000170: 04 01 3B 20 20 20 20 20 41 4D 20 4C AF 47 52 41 |..; AM L.GRA| 00000180: 42 45 4E 20 31 32 00 A2 09 0E 01 3B 20 20 20 20 |BEN 12.....; | 00000190: 34 32 39 30 20 42 4F 43 48 4F 4C 54 AB 42 41 52 |4290 BOCHOLT.BAR| 000001A0: 4C 4F 00 A8 09 18 01 3B 00 AE 09 22 01 3B 00 D8 |LO.....;...".;..| 000001B0: 09 2C 01 50 52 49 4E 54 20 20 3D 20 24 46 31 43 |.,.PRINT = $F1C| 000001C0: 41 3B 41 55 53 47 41 42 45 20 45 49 4E 45 53 20 |A;AUSGABE EINES | 000001D0: 5A 45 49 43 48 45 4E 53 00 FD 09 36 01 47 52 41 |ZEICHENS...6.GRA| 000001E0: 50 48 43 4F 44 45 20 3D 20 24 41 38 3B 43 4F 44 |PHCODE = $A8;COD| 000001F0: 45 20 46 55 45 52 20 47 52 41 46 49 4B 00 1B 0A |E FUER GRAFIK...| 00000200: 40 01 43 52 20 3D 20 24 30 44 3B 43 41 52 52 49 |@.CR = $0D;CARRI| 00000210: 41 47 45 20 52 45 54 55 52 4E 20 00 21 0A 4A 01 |AGE RETURN .!.J.| 00000220: 3B 00 27 0A 54 01 3B 00 34 0A 5E 01 2A 3D 20 24 |;.'.T.;.4.^.*= $| 00000230: 30 32 41 37 00 3A 0A 68 01 3B 00 6F 0A 72 01 47 |02A7.:.h.;.o.r.G| 00000240: 52 41 46 49 4B 20 20 20 20 20 20 53 54 59 20 59 |RAFIK STY Y| 00000250: 5A 57 3B 59 2D 52 45 47 49 53 54 45 52 20 5A 57 |ZW;Y-REGISTER ZW| 00000260: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 |ISCHENSPEICHERN.| 00000270: 86 0A 7C 01 20 20 20 20 20 20 20 20 20 20 20 20 |..|. | 00000280: 4C 44 59 20 23 30 00 B0 0A 86 01 20 20 20 20 20 |LDY #0..... | 00000290: 20 20 20 20 20 20 20 53 54 59 20 46 4C 41 47 3B | STY FLAG;| 000002A0: 46 4C 41 47 20 46 55 45 52 20 4E 49 42 42 4C 45 |FLAG FUER NIBBLE| 000002B0: 00 E7 0A 90 01 42 49 4E 33 32 30 20 20 20 20 20 |.....BIN320 | 000002C0: 20 4C 44 41 20 54 41 42 45 4C 4C 45 33 2C 59 3B | LDA TABELLE3,Y;| 000002D0: 44 52 55 43 4B 45 52 20 41 55 46 20 33 32 30 20 |DRUCKER AUF 320 | 000002E0: 42 49 4E 41 45 52 2D 00 12 0B 9A 01 20 20 20 20 |BINAER-..... | 000002F0: 20 20 20 20 20 20 20 20 4A 53 52 20 50 52 49 4E | JSR PRIN| 00000300: 54 3B 44 41 54 45 4E 20 45 49 4E 53 54 45 4C 4C |T;DATEN EINSTELL| 00000310: 45 4E 00 26 0B A4 01 20 20 20 20 20 20 20 20 20 |EN.&... | 00000320: 20 20 20 49 4E 59 00 3D 0B AE 01 20 20 20 20 20 | INY.=... | 00000330: 20 20 20 20 20 20 20 43 50 59 20 23 34 00 58 0B | CPY #4.X.| 00000340: B8 01 20 20 20 20 20 20 20 20 20 20 20 20 42 4E |.. BN| 00000350: 45 20 42 49 4E 33 32 30 00 88 0B C2 01 20 20 20 |E BIN320..... | 00000360: 20 20 20 20 20 20 20 20 20 4C 44 59 20 59 5A 57 | LDY YZW| 00000370: 3B 59 2D 52 45 47 49 53 54 45 52 20 5A 55 52 55 |;Y-REGISTER ZURU| 00000380: 45 43 4B 48 4F 4C 45 4E 00 BB 0B CC 01 20 20 20 |ECKHOLEN..... | 00000390: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 47 | LDA #<G| 000003A0: 52 41 50 48 4F 55 54 3B 4F 55 54 50 55 54 56 45 |RAPHOUT;OUTPUTVE| 000003B0: 4B 54 4F 52 20 45 52 4E 45 55 54 00 F1 0B D6 01 |KTOR ERNEUT.....| 000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 | STA | 000003D0: 24 30 33 32 36 3B 56 45 52 53 54 45 4C 4C 45 4E |$0326;VERSTELLEN| 000003E0: 20 46 55 45 52 20 41 55 53 47 41 42 45 20 56 4F | FUER AUSGABE VO| 000003F0: 4E 00 17 0C E0 01 20 20 20 20 20 20 20 20 20 20 |N..... | 00000400: 20 20 4C 44 41 20 23 3E 47 52 41 50 48 4F 55 54 | LDA #>GRAPHOUT| 00000410: 3B 47 52 41 46 49 4B 00 50 0C EA 01 20 20 20 20 |;GRAFIK.P... | 00000420: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 33 32 | STA $032| 00000430: 37 3B 4F 55 54 50 55 54 56 45 4B 54 4F 52 20 45 |7;OUTPUTVEKTOR E| 00000440: 52 4E 45 55 54 20 56 45 52 53 54 45 4C 4C 45 4E |RNEUT VERSTELLEN| 00000450: 00 64 0C F4 01 45 58 49 54 32 20 20 20 20 20 20 |.d...EXIT2 | 00000460: 20 43 4C 43 00 78 0C FE 01 20 20 20 20 20 20 20 | CLC.x... | 00000470: 20 20 20 20 20 52 54 53 00 7E 0C 1C 02 3B 00 B4 | RTS.~...;..| 00000480: 0C 26 02 47 52 41 50 48 4F 55 54 20 20 20 20 43 |.&.GRAPHOUT C| 00000490: 4D 50 20 23 47 52 41 50 48 43 4F 44 45 3B 50 52 |MP #GRAPHCODE;PR| 000004A0: 55 45 46 45 4E 2C 20 4F 42 20 5A 45 49 4C 45 4E |UEFEN, OB ZEILEN| 000004B0: 45 4E 44 45 00 CB 0C 30 02 20 20 20 20 20 20 20 |ENDE...0. | 000004C0: 20 20 20 20 20 42 4E 45 20 47 31 00 FE 0C 3A 02 | BNE G1...:.| 000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 43 4C 43 3B | CLC;| 000004E0: 45 4E 44 45 20 44 45 52 20 47 52 41 46 49 4B 5A |ENDE DER GRAFIKZ| 000004F0: 45 49 4C 45 20 45 52 52 45 49 43 48 54 2E 00 34 |EILE ERREICHT..4| 00000500: 0D 44 02 20 20 20 20 20 20 20 20 20 20 20 20 4A |.D. J| 00000510: 4D 50 20 49 4E 49 54 3B 4F 55 54 50 55 54 2D 56 |MP INIT;OUTPUT-V| 00000520: 45 4B 54 4F 52 20 5A 55 52 55 45 43 4B 53 54 45 |EKTOR ZURUECKSTE| 00000530: 4C 4C 45 4E 00 6E 0D 4E 02 47 31 20 20 20 20 20 |LLEN.n.N.G1 | 00000540: 20 20 20 20 20 43 4D 50 20 23 36 33 3B 50 52 55 | CMP #63;PRU| 00000550: 45 46 45 4E 2C 20 4F 42 20 49 4C 4C 45 47 41 4C |EFEN, OB ILLEGAL| 00000560: 45 52 20 43 4F 44 45 20 28 30 2D 36 33 29 00 88 |ER CODE (0-63)..| 00000570: 0D 58 02 20 20 20 20 20 20 20 20 20 20 20 20 42 |.X. B| 00000580: 43 43 20 45 58 49 54 32 00 C4 0D 62 02 20 20 20 |CC EXIT2...b. | 00000590: 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 25 30 | AND #%0| 000005A0: 30 30 30 31 31 31 31 3B 4E 55 52 20 55 4E 54 45 |0001111;NUR UNTE| 000005B0: 52 45 53 20 4E 49 42 42 4C 45 20 56 45 52 57 45 |RES NIBBLE VERWE| 000005C0: 4E 44 45 4E 00 E8 0D 6C 02 20 20 20 20 20 20 20 |NDEN...l. | 000005D0: 20 20 20 20 20 50 48 41 3B 20 55 4E 44 20 41 55 | PHA; UND AU| 000005E0: 46 20 53 54 41 50 45 4C 00 1C 0E 76 02 20 20 20 |F STAPEL...v. | 000005F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 4C 41 | LDA FLA| 00000600: 47 3B 4F 42 45 52 45 53 20 4F 44 45 52 20 55 4E |G;OBERES ODER UN| 00000610: 54 45 52 45 53 20 4E 49 42 42 4C 45 00 38 0E 80 |TERES NIBBLE.8..| 00000620: 02 20 20 20 20 20 20 20 20 20 20 20 20 42 4E 45 |. BNE| 00000630: 20 4E 49 42 42 4C 45 32 00 3E 0E 8A 02 3B 00 5E | NIBBLE2.>...;.^| 00000640: 0E 94 02 4E 49 42 42 4C 45 31 20 20 20 20 20 49 |...NIBBLE1 I| 00000650: 4E 43 20 46 4C 41 47 3B 46 4C 41 47 3D 31 00 86 |NC FLAG;FLAG=1..| 00000660: 0E 9E 02 20 20 20 20 20 20 20 20 20 20 20 20 50 |... P| 00000670: 4C 41 3B 4E 49 42 42 4C 45 20 5A 55 52 55 45 43 |LA;NIBBLE ZURUEC| 00000680: 4B 48 4F 4C 45 4E 00 B6 0E A8 02 20 20 20 20 20 |KHOLEN..... | 00000690: 20 20 20 20 20 20 20 53 54 41 20 53 54 4F 52 45 | STA STORE| 000006A0: 3B 55 4E 44 20 5A 57 49 53 43 48 45 4E 53 50 45 |;UND ZWISCHENSPE| 000006B0: 49 43 48 45 52 4E 00 CA 0E B2 02 20 20 20 20 20 |ICHERN..... | 000006C0: 20 20 20 20 20 20 20 43 4C 43 00 DE 0E BC 02 20 | CLC..... | 000006D0: 20 20 20 20 20 20 20 20 20 20 20 52 54 53 00 E4 | RTS..| 000006E0: 0E C6 02 3B 00 04 0F D0 02 4E 49 42 42 4C 45 32 |...;.....NIBBLE2| 000006F0: 20 20 20 20 20 44 45 43 20 46 4C 41 47 3B 46 4C | DEC FLAG;FL| 00000700: 41 47 3D 30 00 2C 0F DA 02 20 20 20 20 20 20 20 |AG=0.,... | 00000710: 20 20 20 20 20 50 4C 41 3B 4E 49 42 42 4C 45 20 | PLA;NIBBLE | 00000720: 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 61 0F E4 |ZURUECKHOLEN.a..| 00000730: 02 20 20 20 20 20 20 20 20 20 20 20 20 41 53 4C |. ASL| 00000740: 3B 55 4E 44 20 55 4D 20 34 20 42 49 54 20 4E 41 |;UND UM 4 BIT NA| 00000750: 43 48 20 4C 49 4E 4B 53 20 53 43 48 49 45 42 45 |CH LINKS SCHIEBE| 00000760: 4E 00 7D 0F EE 02 20 20 20 20 20 20 20 20 20 20 |N.}... | 00000770: 20 20 41 53 4C 3A 41 53 4C 3A 41 53 4C 00 B6 0F | ASL:ASL:ASL...| 00000780: F8 02 20 20 20 20 20 20 20 20 20 20 20 20 4F 52 |.. OR| 00000790: 41 20 53 54 4F 52 45 3B 56 45 52 4B 4E 55 45 50 |A STORE;VERKNUEP| 000007A0: 46 45 4E 20 4D 49 54 20 55 4E 54 45 52 45 4D 20 |FEN MIT UNTEREM | 000007B0: 4E 49 42 42 4C 45 00 DD 0F 02 03 20 20 20 20 20 |NIBBLE..... | 000007C0: 20 20 20 20 20 20 20 4A 53 52 20 50 52 49 4E 54 | JSR PRINT| 000007D0: 3B 55 4E 44 20 41 55 53 47 45 42 45 4E 00 F1 0F |;UND AUSGEBEN...| 000007E0: 0C 03 20 20 20 20 20 20 20 20 20 20 20 20 52 54 |.. RT| 000007F0: 53 00 F7 0F 16 03 3B 00 FD 0F 20 03 3B 00 03 10 |S.....;... .;...| 00000800: 2A 03 3B 00 10 10 34 03 AC B2 20 24 30 33 36 35 |*.;...4... $0365| 00000810: 00 43 10 3E 03 49 4E 49 54 20 20 20 20 20 20 20 |.C.>.INIT | 00000820: 20 4C 44 41 20 23 3C 53 54 41 52 54 20 3B 4F 55 | LDA #<START ;OU| 00000830: 54 50 55 54 2D 56 45 4B 54 4F 52 20 41 45 4E 44 |TPUT-VEKTOR AEND| 00000840: 45 52 4E 00 5D 10 48 03 20 20 20 20 20 20 20 20 |ERN.].H. | 00000850: 20 20 20 20 53 54 41 20 24 30 33 32 36 00 79 10 | STA $0326.y.| 00000860: 52 03 20 20 20 20 20 20 20 20 20 20 20 20 4C 44 |R. LD| 00000870: 41 20 23 3E 53 54 41 52 54 00 93 10 5C 03 20 20 |A #>START...\. | 00000880: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 | STA $0| 00000890: 33 32 37 00 A7 10 66 03 20 20 20 20 20 20 20 20 |327...f. | 000008A0: 20 20 20 20 52 54 53 00 AD 10 70 03 3B 00 DD 10 | RTS...p.;...| 000008B0: 7A 03 53 54 41 52 54 20 20 20 20 20 20 20 50 48 |z.START PH| 000008C0: 41 3B 44 52 55 43 4B 42 59 54 45 20 41 55 46 20 |A;DRUCKBYTE AUF | 000008D0: 53 54 41 50 45 4C 20 52 45 54 54 45 4E 00 02 11 |STAPEL RETTEN...| 000008E0: 84 03 20 20 20 20 20 20 20 20 20 20 20 20 4C 44 |.. LD| 000008F0: 41 20 24 39 41 20 20 3B 50 52 55 45 46 45 4E 20 |A $9A ;PRUEFEN | 00000900: 4F 42 00 2F 11 8E 03 20 20 20 20 20 20 20 20 20 |OB./... | 00000910: 20 20 20 43 4D 50 20 23 24 30 34 3B 41 55 53 47 | CMP #$04;AUSG| 00000920: 41 42 45 20 41 55 46 20 44 52 55 43 4B 45 52 00 |ABE AUF DRUCKER.| 00000930: 50 11 98 03 20 20 20 20 20 20 20 20 20 20 20 20 |P... | 00000940: 42 4E 45 20 45 4E 44 45 20 20 20 3B 4E 45 49 4E |BNE ENDE ;NEIN| 00000950: 00 85 11 A2 03 20 20 20 20 20 20 20 20 20 20 20 |..... | 00000960: 20 50 4C 41 20 3B 57 45 4E 4E 20 4A 41 2C 20 44 | PLA ;WENN JA, D| 00000970: 52 55 43 4B 42 59 54 45 20 5A 55 52 55 45 43 4B |RUCKBYTE ZURUECK| 00000980: 48 4F 4C 45 4E 00 A4 11 AC 03 20 20 20 20 20 20 |HOLEN..... | 00000990: 20 20 20 20 20 20 43 4D 50 20 23 47 52 41 50 48 | CMP #GRAPH| 000009A0: 43 4F 44 45 00 BB 11 B6 03 20 20 20 20 20 20 20 |CODE..... | 000009B0: 20 20 20 20 20 42 4E 45 20 53 31 00 D6 11 C0 03 | BNE S1.....| 000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 | JMP | 000009D0: 47 52 41 46 49 4B 00 08 12 CA 03 53 31 20 20 20 |GRAFIK.....S1 | 000009E0: 20 20 20 20 20 20 20 50 48 41 20 3B 55 4E 44 20 | PHA ;UND | 000009F0: 53 4F 46 4F 52 54 20 57 49 45 44 45 52 20 41 55 |SOFORT WIEDER AU| 00000A00: 46 20 53 54 41 50 45 4C 00 3F 12 D4 03 20 20 20 |F STAPEL.?... | 00000A10: 20 20 20 20 20 20 20 20 20 53 54 59 20 59 5A 57 | STY YZW| 00000A20: 20 20 20 3B 59 52 45 47 49 53 54 45 52 20 5A 57 | ;YREGISTER ZW| 00000A30: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 |ISCHENSPEICHERN.| 00000A40: 58 12 DE 03 20 20 20 20 20 20 20 20 20 20 20 20 |X... | 00000A50: 4C 44 59 20 23 24 30 37 00 93 12 E8 03 53 55 43 |LDY #$07.....SUC| 00000A60: 48 20 20 20 20 20 20 20 20 43 4D 50 20 54 41 42 |H CMP TAB| 00000A70: 45 4C 4C 45 31 2C 59 3B 44 52 55 43 4B 42 59 54 |ELLE1,Y;DRUCKBYT| 00000A80: 45 20 4D 49 54 20 5A 55 20 41 45 4E 44 45 52 4E |E MIT ZU AENDERN| 00000A90: 44 45 4E 00 C3 12 F2 03 3B 20 20 20 20 20 20 20 |DEN.....; | 00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AB0: 5A 45 49 43 48 45 4E 20 56 45 52 47 4C 45 49 43 |ZEICHEN VERGLEIC| 00000AC0: 48 45 4E 00 F0 12 FC 03 20 20 20 20 20 20 20 20 |HEN..... | 00000AD0: 20 20 20 20 42 45 51 20 54 41 55 53 43 48 31 3B | BEQ TAUSCH1;| 00000AE0: 5A 45 49 43 48 45 4E 20 47 45 46 55 4E 44 45 4E |ZEICHEN GEFUNDEN| 00000AF0: 00 04 13 06 04 20 20 20 20 20 20 20 20 20 20 20 |..... | 00000B00: 20 44 45 59 00 2B 13 10 04 20 20 20 20 20 20 20 | DEY.+... | 00000B10: 20 20 20 20 20 42 50 4C 20 53 55 43 48 20 3B 57 | BPL SUCH ;W| 00000B20: 45 49 54 45 52 53 55 43 48 45 4E 00 5E 13 1A 04 |EITERSUCHEN.^...| 00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 | BNE | 00000B40: 53 4D 41 4C 4C 54 45 53 54 3B 4B 45 49 4E 20 55 |SMALLTEST;KEIN U| 00000B50: 4D 4C 41 55 54 20 47 45 46 55 4E 44 45 4E 00 8D |MLAUT GEFUNDEN..| 00000B60: 13 24 04 54 41 55 53 43 48 31 20 20 20 20 20 50 |.$.TAUSCH1 P| 00000B70: 4C 41 3B 44 52 55 43 4B 42 59 54 45 20 56 4F 4D |LA;DRUCKBYTE VOM| 00000B80: 20 53 54 41 50 45 4C 20 48 4F 4C 45 4E 00 CA 13 | STAPEL HOLEN...| 00000B90: 2E 04 20 20 20 20 20 20 20 20 20 20 20 20 4C 44 |.. LD| 00000BA0: 41 20 54 41 42 45 4C 4C 45 32 2C 59 20 3B 45 52 |A TABELLE2,Y ;ER| 00000BB0: 53 41 54 5A 42 59 54 45 20 41 55 53 20 54 41 42 |SATZBYTE AUS TAB| 00000BC0: 45 4C 4C 45 20 48 4F 4C 45 4E 00 01 14 38 04 20 |ELLE HOLEN...8. | 00000BD0: 20 20 20 20 20 20 20 20 20 20 20 50 48 41 3B 55 | PHA;U| 00000BE0: 4E 44 20 41 4C 53 20 4E 45 55 45 53 20 44 52 55 |ND ALS NEUES DRU| 00000BF0: 43 4B 42 59 54 45 20 5A 55 4D 20 53 54 41 50 45 |CKBYTE ZUM STAPE| 00000C00: 4C 00 15 14 42 04 20 20 20 20 20 20 20 20 20 20 |L...B. | 00000C10: 20 20 43 4C 43 00 51 14 4C 04 20 20 20 20 20 20 | CLC.Q.L. | 00000C20: 20 20 20 20 20 20 42 43 43 20 45 4E 44 45 31 3B | BCC ENDE1;| 00000C30: 45 53 43 54 45 53 54 20 4B 41 4E 4E 20 45 4E 54 |ESCTEST KANN ENT| 00000C40: 46 41 4C 4C 45 4E 2C 20 44 41 20 55 4D 4C 41 55 |FALLEN, DA UMLAU| 00000C50: 54 00 80 14 56 04 53 4D 41 4C 4C 54 45 53 54 20 |T...V.SMALLTEST | 00000C60: 20 20 50 4C 41 3B 44 52 55 43 4B 42 59 54 45 20 | PLA;DRUCKBYTE | 00000C70: 56 4F 4D 20 53 54 41 50 45 4C 20 48 4F 4C 45 4E |VOM STAPEL HOLEN| 00000C80: 00 C1 14 60 04 20 20 20 20 20 20 20 20 20 20 20 |...`. | 00000C90: 20 43 4D 50 20 23 31 35 3B 20 4D 49 54 20 43 4F | CMP #15; MIT CO| 00000CA0: 44 45 20 46 55 45 52 20 53 43 48 4D 41 4C 53 43 |DE FUER SCHMALSC| 00000CB0: 48 52 49 46 54 20 56 45 52 47 4C 45 49 43 48 45 |HRIFT VERGLEICHE| 00000CC0: 4E 00 DD 14 6A 04 20 20 20 20 20 20 20 20 20 20 |N...j. | 00000CD0: 20 20 42 4E 45 20 4E 4F 53 4D 41 4C 4C 00 07 15 | BNE NOSMALL...| 00000CE0: 74 04 20 20 20 20 20 20 20 20 20 20 20 20 4C 44 |t. LD| 00000CF0: 59 20 53 4D 41 4C 4C 46 4C 47 3B 46 4C 41 47 20 |Y SMALLFLG;FLAG | 00000D00: 50 52 55 45 46 45 4E 00 24 15 7E 04 20 20 20 20 |PRUEFEN.$.~. | 00000D10: 20 20 20 20 20 20 20 20 42 45 51 20 53 4D 41 4C | BEQ SMAL| 00000D20: 4C 4F 4E 20 00 62 15 88 04 20 20 20 20 20 20 20 |LON .b... | 00000D30: 20 20 20 20 20 4F 52 41 20 23 31 32 38 3B 20 42 | ORA #128; B| 00000D40: 49 54 20 37 20 53 45 54 5A 45 4E 20 46 55 45 52 |IT 7 SETZEN FUER| 00000D50: 20 53 43 48 4D 41 4C 53 43 48 52 49 46 54 20 41 | SCHMALSCHRIFT A| 00000D60: 55 53 00 79 15 92 04 53 4D 41 4C 4C 4F 46 46 20 |US.y...SMALLOFF | 00000D70: 20 20 20 4C 44 59 20 23 30 00 B8 15 9C 04 20 20 | LDY #0..... | 00000D80: 20 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 | .BYTE | 00000D90: 24 32 43 3B 20 44 49 45 20 46 4F 4C 47 45 4E 44 |$2C; DIE FOLGEND| 00000DA0: 45 4E 20 32 20 42 59 54 45 53 20 55 45 42 45 52 |EN 2 BYTES UEBER| 00000DB0: 53 50 52 49 4E 47 45 4E 00 CF 15 A6 04 53 4D 41 |SPRINGEN.....SMA| 00000DC0: 4C 4C 4F 4E 20 20 20 20 20 4C 44 59 20 23 31 00 |LLON LDY #1.| 00000DD0: EC 15 B0 04 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000DE0: 53 54 59 20 53 4D 41 4C 4C 46 4C 47 00 1C 16 BA |STY SMALLFLG....| 00000DF0: 04 4E 4F 53 4D 41 4C 4C 20 20 20 20 20 50 48 41 |.NOSMALL PHA| 00000E00: 3B 44 52 55 43 4B 42 59 54 45 20 57 49 45 44 45 |;DRUCKBYTE WIEDE| 00000E10: 52 20 41 55 46 20 53 54 41 50 45 4C 00 35 16 C4 |R AUF STAPEL.5..| 00000E20: 04 45 53 43 54 45 53 54 20 20 20 20 20 4C 44 41 |.ESCTEST LDA| 00000E30: 20 54 45 53 54 00 58 16 CE 04 20 20 20 20 20 20 | TEST.X... | 00000E40: 20 20 20 20 20 20 43 4D 50 20 23 32 37 3B 45 53 | CMP #27;ES| 00000E50: 43 41 50 45 43 4F 44 45 00 93 16 D8 04 20 20 20 |CAPECODE..... | 00000E60: 20 20 20 20 20 20 20 20 20 42 45 51 20 45 4E 44 | BEQ END| 00000E70: 45 31 3B 56 4F 52 48 45 52 47 45 47 41 4E 47 45 |E1;VORHERGEGANGE| 00000E80: 4E 45 52 20 43 4F 44 45 20 57 41 52 20 45 53 43 |NER CODE WAR ESC| 00000E90: 41 50 45 00 C4 16 E2 04 3B 20 20 20 20 20 20 20 |APE.....; | 00000EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 3D 3D | ===| 00000EB0: 3E 20 42 59 54 45 20 4E 49 43 48 54 20 41 45 4E |> BYTE NICHT AEN| 00000EC0: 44 45 52 4E 00 D8 16 EC 04 54 41 55 53 43 48 32 |DERN.....TAUSCH2| 00000ED0: 20 20 20 20 20 50 4C 41 00 F0 16 F6 04 20 20 20 | PLA..... | 00000EE0: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 36 35 | CMP #65| 00000EF0: 00 1D 17 00 05 20 20 20 20 20 20 20 20 20 20 20 |..... | 00000F00: 20 42 43 43 20 45 58 49 54 20 3B 4B 4C 45 49 4E | BCC EXIT ;KLEIN| 00000F10: 45 52 20 41 4C 53 20 36 35 20 28 41 29 00 35 17 |ER ALS 65 (A).5.| 00000F20: 0A 05 20 20 20 20 20 20 20 20 20 20 20 20 43 4D |.. CM| 00000F30: 50 20 23 39 31 00 64 17 14 05 20 20 20 20 20 20 |P #91.d... | 00000F40: 20 20 20 20 20 20 42 43 53 20 57 45 49 54 45 52 | BCS WEITER| 00000F50: 3B 47 52 4F 45 53 53 45 52 20 41 4C 53 20 39 30 |;GROESSER ALS 90| 00000F60: 20 28 5A 29 00 91 17 1E 05 20 20 20 20 20 20 20 | (Z)..... | 00000F70: 20 20 20 20 20 4F 52 41 20 23 25 31 30 30 30 30 | ORA #%10000| 00000F80: 30 30 30 20 3B 42 49 54 20 37 20 53 45 54 5A 45 |000 ;BIT 7 SETZE| 00000F90: 4E 00 BE 17 28 05 20 20 20 20 20 20 20 20 20 20 |N...(. | 00000FA0: 20 20 42 43 43 20 45 58 49 54 20 3B 53 50 52 49 | BCC EXIT ;SPRI| 00000FB0: 4E 47 54 20 48 49 45 52 20 49 4D 4D 45 52 00 D6 |NGT HIER IMMER..| 00000FC0: 17 32 05 57 45 49 54 45 52 20 20 20 20 20 20 43 |.2.WEITER C| 00000FD0: 4D 50 20 23 39 37 00 02 18 3C 05 20 20 20 20 20 |MP #97...<. | 00000FE0: 20 20 20 20 20 20 20 42 43 43 20 45 58 49 54 3B | BCC EXIT;| 00000FF0: 4B 4C 45 49 4E 45 52 20 41 4C 53 20 39 37 20 28 |KLEINER ALS 97 (| 00001000: 61 29 00 1B 18 46 05 20 20 20 20 20 20 20 20 20 |a)...F. | 00001010: 20 20 20 43 4D 50 20 23 31 32 33 00 49 18 50 05 | CMP #123.I.P.| 00001020: 20 20 20 20 20 20 20 20 20 20 20 20 42 43 53 20 | BCS | 00001030: 45 58 49 54 3B 47 52 4F 45 53 53 45 52 20 41 4C |EXIT;GROESSER AL| 00001040: 53 20 31 32 32 20 28 7A 29 00 77 18 5A 05 20 20 |S 122 (z).w.Z. | 00001050: 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 25 | AND #%| 00001060: 31 31 30 31 31 31 31 31 3B 42 49 54 20 35 20 4C |11011111;BIT 5 L| 00001070: 4F 45 53 43 48 45 4E 00 8B 18 64 05 45 58 49 54 |OESCHEN...d.EXIT| 00001080: 20 20 20 20 20 20 20 20 50 48 41 00 BA 18 6E 05 | PHA...n.| 00001090: 45 4E 44 45 31 20 20 20 20 20 20 20 4C 44 59 20 |ENDE1 LDY | 000010A0: 59 5A 57 3B 59 52 45 47 49 53 54 45 52 20 5A 55 |YZW;YREGISTER ZU| 000010B0: 52 55 45 43 4B 48 4F 4C 45 4E 00 E5 18 78 05 45 |RUECKHOLEN...x.E| 000010C0: 4E 44 45 20 20 20 20 20 20 20 20 50 4C 41 3B 44 |NDE PLA;D| 000010D0: 52 55 43 4B 42 59 54 45 20 5A 55 52 55 45 43 4B |RUCKBYTE ZURUECK| 000010E0: 48 4F 4C 45 4E 00 1E 19 82 05 20 20 20 20 20 20 |HOLEN..... | 000010F0: 20 20 20 20 20 20 53 54 41 20 54 45 53 54 3B 55 | STA TEST;U| 00001100: 4E 44 20 46 55 45 52 20 45 53 43 54 45 53 54 20 |ND FUER ESCTEST | 00001110: 42 45 49 4D 20 4E 41 45 43 48 53 54 45 4E 00 4C |BEIM NAECHSTEN.L| 00001120: 19 8C 05 3B 20 20 20 20 20 20 20 20 20 20 20 20 |...; | 00001130: 20 20 20 20 20 20 20 20 20 45 49 4E 53 50 52 55 | EINSPRU| 00001140: 4E 47 20 53 50 45 49 43 48 45 52 4E 00 88 19 96 |NG SPEICHERN....| 00001150: 05 20 20 20 20 20 20 20 20 20 20 20 20 4A 4D 50 |. JMP| 00001160: 20 50 52 49 4E 54 3B 53 50 52 55 4E 47 20 5A 55 | PRINT;SPRUNG ZU| 00001170: 4D 20 4E 4F 52 4D 41 4C 45 4E 20 4F 55 54 50 55 |M NORMALEN OUTPU| 00001180: 54 2D 56 45 4B 54 4F 52 00 8E 19 A0 05 3B 00 C1 |T-VEKTOR.....;..| 00001190: 19 AA 05 54 41 42 45 4C 4C 45 31 20 20 20 20 2E |...TABELLE1 .| 000011A0: 42 59 54 45 20 20 39 31 2C 39 32 2C 39 33 2C 31 |BYTE 91,92,93,1| 000011B0: 32 36 2C 31 32 33 2C 31 32 34 2C 31 32 35 2C 36 |26,123,124,125,6| 000011C0: 34 00 F3 19 B4 05 3B 20 20 20 20 20 20 20 20 20 |4.....; | 000011D0: 20 20 20 20 20 20 20 20 20 20 20 20 53 4F 4C 4C | SOLL| 000011E0: 45 4E 20 47 45 54 41 55 53 43 48 54 20 57 45 52 |EN GETAUSCHT WER| 000011F0: 44 45 4E 00 26 1A BE 05 54 41 42 45 4C 4C 45 32 |DEN.&...TABELLE2| 00001200: 20 20 20 20 2E 42 59 54 45 20 20 32 31 39 2C 32 | .BYTE 219,2| 00001210: 32 30 2C 32 32 31 2C 39 34 2C 39 31 2C 39 32 2C |20,221,94,91,92,| 00001220: 39 33 2C 31 39 32 00 5E 1A C8 05 3B 20 20 20 20 |93,192.^...; | 00001230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001240: 20 53 4F 4C 4C 45 4E 20 44 41 46 55 45 52 20 47 | SOLLEN DAFUER G| 00001250: 45 44 52 55 43 4B 54 20 57 45 52 44 45 4E 00 98 |EDRUCKT WERDEN..| 00001260: 1A D2 05 59 5A 57 20 20 20 20 20 20 20 20 20 2E |...YZW .| 00001270: 42 59 54 45 20 30 30 20 3B 5A 57 49 53 43 48 45 |BYTE 00 ;ZWISCHE| 00001280: 4E 53 50 45 49 43 48 45 52 20 46 55 45 52 20 59 |NSPEICHER FUER Y| 00001290: 52 45 47 49 53 54 45 52 00 CF 1A DC 05 54 45 53 |REGISTER.....TES| 000012A0: 54 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 |T .BYTE 0| 000012B0: 30 3B 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 |0;ZWISCHENSPEICH| 000012C0: 45 52 20 46 55 45 52 20 45 53 43 54 45 53 54 00 |ER FUER ESCTEST.| 000012D0: FC 1A E6 05 53 4D 41 4C 4C 46 4C 47 20 20 20 20 |....SMALLFLG | 000012E0: 2E 42 59 54 45 20 30 30 3B 46 4C 41 47 20 46 55 |.BYTE 00;FLAG FU| 000012F0: 45 52 20 53 4D 41 4C 4C 54 45 53 54 00 2F 1B F0 |ER SMALLTEST./..| 00001300: 05 54 41 42 45 4C 4C 45 33 20 20 20 20 2E 42 59 |.TABELLE3 .BY| 00001310: 54 45 20 24 31 42 2C 24 34 42 2C 24 34 30 2C 24 |TE $1B,$4B,$40,$| 00001320: 30 31 3B 45 53 43 41 50 45 20 4B 20 33 32 30 00 |01;ESCAPE K 320.| 00001330: 61 1B FA 05 53 54 4F 52 45 20 20 20 20 20 20 20 |a...STORE | 00001340: 2E 42 59 54 45 20 30 30 3B 53 50 45 49 43 48 45 |.BYTE 00;SPEICHE| 00001350: 52 20 46 55 45 52 20 47 52 41 46 49 4B 42 59 54 |R FUER GRAFIKBYT| 00001360: 45 00 9A 1B 04 06 46 4C 41 47 20 20 20 20 20 20 |E.....FLAG | 00001370: 20 20 2E 42 59 54 45 20 30 30 3B 46 4C 41 47 20 | .BYTE 00;FLAG | 00001380: 46 55 45 52 20 4F 42 45 52 45 53 2F 55 4E 54 45 |FUER OBERES/UNTE| 00001390: 52 45 53 20 4E 49 42 42 4C 45 00 A0 1B 0E 06 3B |RES NIBBLE.....;| 000013A0: 00 A6 1B 18 06 3B 00 00 00 |.....;... |
....2..9.4096...D.;...N.;.%.X..OPT OO.L.
..;ANPASSUNG VON CP 80X AN VIZAWRITE.P..
.;UMLAUTE UND STEUERCODES WERDEN.....;VO
M CP 80X RICHTIG AUSGEGEBEN, WENN.C. .;E
R ALS EPSON-DRUCKER (E) ANGESTEUERT.M...
;WIRD.....;ZUSAETZLICH IST ES MOEGLICH G
RAFIKEN ZU DRUCKEN!.....;...H.;VERSION 2
.2. .R.;.<...;(C) 1986 MARKT&TECHNIK.B..
.;.Y...; WRITTEN BY.M...; RA
LF CZ.....; AM L.GRABEN 12.....;
4290 BOCHOLT.BARLO.....;...".;.X.,.PRINT
= $F1CA;AUSGABE EINES ZEICHENS...6.GRA
PHCODE = $A8;CODE FUER GRAFIK...@.CR = $
0D;CARRIAGE RETURN .!.J.;.'.T.;.4.^.*= $
02A7.:.H.;.O.R.GRAFIK STY YZW;Y-REG
ISTER ZWISCHENSPEICHERN...|.
LDY #0..... STY FLAG;FLAG FUE
R NIBBLE.....BIN320 LDA TABELLE3,Y;
DRUCKER AUF 320 BINAER-.....
JSR PRINT;DATEN EINSTELLEN.&...
INY.=... CPY #4.X...
BNE BIN320...B. LDY YZW
;Y-REGISTER ZURUECKHOLEN...L.
LDA #<GRAPHOUT;OUTPUTVEKTOR ERNEUT...V.
STA $0326;VERSTELLEN FUER AU
SGABE VON..... LDA #>GRAPHOUT
;GRAFIK.P... STA $0327;OUTPUT
VEKTOR ERNEUT VERSTELLEN.D...EXIT2
CLC.X... RTS.~...;...&.GRAPH
OUT CMP #GRAPHCODE;PRUEFEN, OB ZEILEN
ENDE.K.0. BNE G1...:.
CLC;ENDE DER GRAFIKZEILE ERREICHT..4
.D. JMP INIT;OUTPUT-VEKTOR ZU
RUECKSTELLEN.N.N.G1 CMP #63;PRU
EFEN, OB ILLEGALER CODE (0-63)...X.
BCC EXIT2.D.B. AND #%0
0001111;NUR UNTERES NIBBLE VERWENDEN...L
. PHA; UND AUF STAPEL...V.
LDA FLAG;OBERES ODER UNTERES NI
BBLE.8... BNE NIBBLE2.>...;.^
...NIBBLE1 INC FLAG;FLAG=1.....
PLA;NIBBLE ZURUECKHOLEN.....
STA STORE;UND ZWISCHENSPEICHERN.J
... CLC..... RTS..
.F.;...P.NIBBLE2 DEC FLAG;FLAG=0.,.Z
. PLA;NIBBLE ZURUECKHOLEN.A..
. ASL;UND UM 4 BIT NACH LINKS
SCHIEBEN.}... ASL:ASL:ASL...
.. ORA STORE;VERKNUEPFEN MIT
UNTEREM NIBBLE..... JSR PRINT
;UND AUSGEBEN..... RTS.....;.
.. .;...*.;...4... $0365.C.>.INIT
LDA #<START ;OUTPUT-VEKTOR AENDERN.].H.
STA $0326.Y.R. LD
A #>START...\. STA $0327...F.
RTS...P.;...Z.START PH
A;DRUCKBYTE AUF STAPEL RETTEN.....
LDA $9A ;PRUEFEN OB./...
CMP #$04;AUSGABE AUF DRUCKER.P...
BNE ENDE ;NEIN.....
PLA ;WENN JA, DRUCKBYTE ZURUECKHOLEN...
.. CMP #GRAPHCODE.....
BNE S1.V... JMP GRAFIK..
.J.S1 PHA ;UND SOFORT WIEDER AU
F STAPEL.?.T. STY YZW ;YREG
ISTER ZWISCHENSPEICHERN.X...
LDY #$07.....SUCH CMP TABELLE1,Y;
DRUCKBYTE MIT ZU AENDERNDEN.C...;
ZEICHEN VERGLEICHEN.....
BEQ TAUSCH1;ZEICHEN GEFUNDEN
..... DEY.+... BPL
SUCH ;WEITERSUCHEN.^... BNE
SMALLTEST;KEIN UMLAUT GEFUNDEN...$.TAUSC
H1 PLA;DRUCKBYTE VOM STAPEL HOLEN.J.
.. LDA TABELLE2,Y ;ERSATZBYTE
AUS TABELLE HOLEN...8. PHA;U
ND ALS NEUES DRUCKBYTE ZUM STAPEL...B.
CLC.Q.L. BCC ENDE1;
ESCTEST KANN ENTFALLEN, DA UMLAUT...V.SM
ALLTEST PLA;DRUCKBYTE VOM STAPEL HOLEN
.A.`. CMP #15; MIT CODE FUER
SCHMALSCHRIFT VERGLEICHEN...J.
BNE NOSMALL...T. LDY SMALLF
LG;FLAG PRUEFEN.$.~. BEQ SMAL
LON .B... ORA #128; BIT 7 SET
ZEN FUER SCHMALSCHRIFT AUS.Y...SMALLOFF
LDY #0..... .BYTE $2C; DIE
FOLGENDEN 2 BYTES UEBERSPRINGEN.O...SMA
LLON LDY #1..... STY SMAL
LFLG.....NOSMALL PHA;DRUCKBYTE WIEDE
R AUF STAPEL.5.D.ESCTEST LDA TEST.X.
N. CMP #27;ESCAPECODE...X.
BEQ ENDE1;VORHERGEGANGENER CODE
WAR ESCAPE.D...; ===
> BYTE NICHT AENDERN.X...TAUSCH2 PLA
..... CMP #65.....
BCC EXIT ;KLEINER ALS 65 (A).5...
CMP #91.D... BCS WEITER
;GROESSER ALS 90 (Z)..... ORA
#%10000000 ;BIT 7 SETZEN...(.
BCC EXIT ;SPRINGT HIER IMMER.V.2.WEITE
R CMP #97...<. BCC EXIT;
KLEINER ALS 97 (A)...F. CMP #
123.I.P. BCS EXIT;GROESSER AL
S 122 (Z).W.Z. AND #%11011111
;BIT 5 LOESCHEN...D.EXIT PHA...N.
ENDE1 LDY YZW;YREGISTER ZURUECKHOL
EN...X.ENDE PLA;DRUCKBYTE ZURUECK
HOLEN..... STA TEST;UND FUER
ESCTEST BEIM NAECHSTEN.L...;
EINSPRUNG SPEICHERN.....
JMP PRINT;SPRUNG ZUM NORMALEN OUTPU
T-VEKTOR... .;.A...TABELLE1 .BYTE 91
,92,93,126,123,124,125,64.....;
SOLLEN GETAUSCHT WERDEN.&...
TABELLE2 .BYTE 219,220,221,94,91,92,
93,192.^.H.; SOLLEN
DAFUER GEDRUCKT WERDEN...R.YZW .
BYTE 00 ;ZWISCHENSPEICHER FUER YREGISTER
.O...TEST .BYTE 00;ZWISCHENSPEICH
ER FUER ESCTEST.....SMALLFLG .BYTE 00
;FLAG FUER SMALLTEST./...TABELLE3 .BY
TE $1B,$4B,$40,$01;ESCAPE K 320.A...STOR
E .BYTE 00;SPEICHER FUER GRAFIKBYT
E.....FLAG .BYTE 00;FLAG FUER OBE
RES/UNTERES NIBBLE. ...;.....;...
> CLICK IMAGE PREVIEW FOR FULL MODAL