VG-PRINT.SRC
FILE INFORMATION
FILENAME(S): VG-PRINT.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 01:12:34
APPEARS ON: 2 disk(s)
FILE HASH
eb81384d3903e5d8f79066019d4c282d68b90956f6f49491a7e9631cc2800111
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 10 86 II | VG-PRINT.SRC | PRG | C64er, DuncanTwain | 21 | 1 | DOWNLOAD FILE |
| AUSGABE 10 86 II | VG-PRINT.SRC | PRG | earthshaker | 21 | 1 | 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 1F 08 78 00 3B 00 |d.;...n.;...x.;.| 00000020: 36 08 82 00 3B 56 49 5A 41 57 52 49 54 45 20 47 |6...;VIZAWRITE G| 00000030: 52 41 46 49 4B 99 00 4A 08 8C 00 3B 20 20 20 20 |RAFIK..J...; | 00000040: 56 45 52 53 49 91 20 33 2E 30 00 50 08 96 00 3B |VERSI. 3.0.P...;| 00000050: 00 6C 08 A0 00 3B 28 43 29 20 31 39 38 36 20 4D |.l...;(C) 1986 M| 00000060: 41 52 4B 54 26 54 45 43 48 4E 49 4B 00 72 08 AA |ARKT&TECHNIK.r..| 00000070: 00 3B 00 87 08 B4 00 3B 20 20 20 20 20 57 52 49 |.;.....; WRI| 00000080: 54 54 45 4E 20 42 59 00 99 08 BE 00 3B 20 20 20 |TTEN BY.....; | 00000090: 20 20 52 41 4C 46 20 C3 5A 00 B0 08 C8 00 3B 20 | RALF .Z.....; | 000000A0: 20 20 41 4D 20 4C AF 47 52 41 42 45 4E 20 31 32 | AM L.GRABEN 12| 000000B0: 00 CA 08 D2 00 3B 20 20 34 32 39 30 20 42 4F 43 |.....; 4290 BOC| 000000C0: 48 4F 4C 54 AB 42 41 52 4C 4F 00 D0 08 DC 00 3B |HOLT.BARLO.....;| 000000D0: 00 DC 08 E6 00 2E 4F 50 54 20 4F 4F 00 E2 08 F0 |......OPT OO....| 000000E0: 00 3B 00 0A 09 FA 00 AC B2 20 24 30 33 36 35 3B |.;....... $0365;| 000000F0: 53 54 41 52 54 41 44 52 45 53 53 45 20 44 45 53 |STARTADRESSE DES| 00000100: 20 50 52 4F 47 52 41 4D 4D 53 00 10 09 04 01 3B | PROGRAMMS.....;| 00000110: 00 3A 09 0E 01 50 52 49 4E 54 20 20 3D 20 24 46 |.:...PRINT = $F| 00000120: 31 43 41 3B 41 55 53 47 41 42 45 20 45 49 4E 45 |1CA;AUSGABE EINE| 00000130: 53 20 5A 45 49 43 48 45 4E 53 00 5F 09 18 01 47 |S ZEICHENS._...G| 00000140: 52 41 50 48 43 4F 44 45 20 3D 20 24 41 38 3B 43 |RAPHCODE = $A8;C| 00000150: 4F 44 45 20 46 55 45 52 20 47 52 41 46 49 4B 00 |ODE FUER GRAFIK.| 00000160: 7D 09 22 01 43 52 20 3D 20 24 30 44 3B 43 41 52 |}.".CR = $0D;CAR| 00000170: 52 49 41 47 45 20 52 45 54 55 52 4E 20 00 83 09 |RIAGE RETURN ...| 00000180: 2C 01 3B 00 B0 09 36 01 49 4E 49 54 20 20 20 20 |,.;...6.INIT | 00000190: 20 20 20 4C 44 41 20 23 3C 4E 45 57 4F 55 54 3B | LDA #<NEWOUT;| 000001A0: 4F 55 54 50 55 54 56 45 4B 54 4F 52 20 41 55 46 |OUTPUTVEKTOR AUF| 000001B0: 00 E3 09 40 01 20 20 20 20 20 20 20 20 20 20 20 |...@. | 000001C0: 53 54 41 20 24 30 33 32 36 3B 45 49 47 45 4E 45 |STA $0326;EIGENE| 000001D0: 20 52 4F 55 54 49 4E 45 20 56 45 52 53 54 45 4C | ROUTINE VERSTEL| 000001E0: 4C 45 4E 00 FF 09 4A 01 20 20 20 20 20 20 20 20 |LEN...J. | 000001F0: 20 20 20 4C 44 41 20 23 3E 4E 45 57 4F 55 54 00 | LDA #>NEWOUT.| 00000200: 18 0A 54 01 20 20 20 20 20 20 20 20 20 20 20 53 |..T. S| 00000210: 54 41 20 24 30 33 32 37 00 2B 0A 5E 01 20 20 20 |TA $0327.+.^. | 00000220: 20 20 20 20 20 20 20 20 52 54 53 00 31 0A 68 01 | RTS.1.h.| 00000230: 3B 00 62 0A 72 01 4E 45 57 4F 55 54 20 20 20 20 |;.b.r.NEWOUT | 00000240: 20 50 48 41 3B 5A 55 20 44 52 55 43 4B 45 4E 44 | PHA;ZU DRUCKEND| 00000250: 45 53 20 42 59 54 45 20 41 55 46 20 53 54 41 50 |ES BYTE AUF STAP| 00000260: 45 4C 00 99 0A 7C 01 20 20 20 20 20 20 20 20 20 |EL...|. | 00000270: 20 20 4C 44 41 20 24 39 41 3B 50 52 55 45 46 45 | LDA $9A;PRUEFE| 00000280: 4E 2C 20 4F 42 20 41 55 53 47 41 42 45 20 41 55 |N, OB AUSGABE AU| 00000290: 46 20 44 52 55 43 4B 45 52 00 AF 0A 86 01 20 20 |F DRUCKER..... | 000002A0: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 34 00 | CMP #4.| 000002B0: E6 0A 90 01 20 20 20 20 20 20 20 20 20 20 20 42 |.... B| 000002C0: 4E 45 20 4E 4F 50 52 49 4E 54 45 52 3B 41 55 53 |NE NOPRINTER;AUS| 000002D0: 47 41 42 45 20 4E 49 43 48 54 20 41 55 46 20 44 |GABE NICHT AUF D| 000002E0: 52 55 43 4B 45 52 00 10 0B 9A 01 20 20 20 20 20 |RUCKER..... | 000002F0: 20 20 20 20 20 20 50 4C 41 3B 44 52 55 43 4B 42 | PLA;DRUCKB| 00000300: 59 54 45 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E |YTE ZURUECKHOLEN| 00000310: 00 46 0B A4 01 20 20 20 20 20 20 20 20 20 20 20 |.F... | 00000320: 43 4D 50 20 23 47 52 41 50 48 43 4F 44 45 3B 50 |CMP #GRAPHCODE;P| 00000330: 52 55 45 46 45 4E 2C 20 4F 42 20 47 52 41 46 49 |RUEFEN, OB GRAFI| 00000340: 4B 5A 45 49 4C 45 00 79 0B AE 01 20 20 20 20 20 |KZEILE.y... | 00000350: 20 20 20 20 20 20 42 4E 45 20 4E 4F 47 52 41 50 | BNE NOGRAP| 00000360: 48 49 4B 3B 4E 4F 52 4D 41 4C 45 52 20 54 45 58 |HIK;NORMALER TEX| 00000370: 54 41 55 53 44 52 55 43 4B 00 AD 0B B8 01 20 20 |TAUSDRUCK..... | 00000380: 20 20 20 20 20 20 20 20 20 53 54 59 20 59 5A 57 | STY YZW| 00000390: 3B 59 2D 52 45 47 49 53 54 45 52 20 5A 57 49 53 |;Y-REGISTER ZWIS| 000003A0: 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 C3 0B |CHENSPEICHERN...| 000003B0: C2 01 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 |.. LDY| 000003C0: 20 23 30 00 EC 0B CC 01 20 20 20 20 20 20 20 20 | #0..... | 000003D0: 20 20 20 53 54 59 20 46 4C 41 47 3B 46 4C 41 47 | STY FLAG;FLAG| 000003E0: 20 46 55 45 52 20 4E 49 42 42 4C 45 00 22 0C D6 | FUER NIBBLE."..| 000003F0: 01 42 49 4E 33 32 30 20 20 20 20 20 4C 44 41 20 |.BIN320 LDA | 00000400: 54 41 42 45 4C 4C 45 31 2C 59 3B 44 52 55 43 4B |TABELLE1,Y;DRUCK| 00000410: 45 52 20 41 55 46 20 33 32 30 20 42 49 4E 41 45 |ER AUF 320 BINAE| 00000420: 52 2D 00 4C 0C E0 01 20 20 20 20 20 20 20 20 20 |R-.L... | 00000430: 20 20 4A 53 52 20 50 52 49 4E 54 3B 44 41 54 45 | JSR PRINT;DATE| 00000440: 4E 20 45 49 4E 53 54 45 4C 4C 45 4E 00 5F 0C EA |N EINSTELLEN._..| 00000450: 01 20 20 20 20 20 20 20 20 20 20 20 49 4E 59 00 |. INY.| 00000460: 75 0C F4 01 20 20 20 20 20 20 20 20 20 20 20 43 |u... C| 00000470: 50 59 20 23 35 00 8F 0C FE 01 20 20 20 20 20 20 |PY #5..... | 00000480: 20 20 20 20 20 42 4E 45 20 42 49 4E 33 32 30 00 | BNE BIN320.| 00000490: BE 0C 08 02 20 20 20 20 20 20 20 20 20 20 20 4C |.... L| 000004A0: 44 59 20 59 5A 57 3B 59 2D 52 45 47 49 53 54 45 |DY YZW;Y-REGISTE| 000004B0: 52 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 F0 |R ZURUECKHOLEN..| 000004C0: 0C 12 02 20 20 20 20 20 20 20 20 20 20 20 4C 44 |... LD| 000004D0: 41 20 23 3C 47 52 41 50 48 4F 55 54 3B 4F 55 54 |A #<GRAPHOUT;OUT| 000004E0: 50 55 54 56 45 4B 54 4F 52 20 45 52 4E 45 55 54 |PUTVEKTOR ERNEUT| 000004F0: 00 25 0D 1C 02 20 20 20 20 20 20 20 20 20 20 20 |.%... | 00000500: 53 54 41 20 24 30 33 32 36 3B 56 45 52 53 54 45 |STA $0326;VERSTE| 00000510: 4C 4C 45 4E 20 46 55 45 52 20 41 55 53 47 41 42 |LLEN FUER AUSGAB| 00000520: 45 20 56 4F 4E 00 4A 0D 26 02 20 20 20 20 20 20 |E VON.J.&. | 00000530: 20 20 20 20 20 4C 44 41 20 23 3E 47 52 41 50 48 | LDA #>GRAPH| 00000540: 4F 55 54 3B 47 52 41 46 49 4B 00 82 0D 30 02 20 |OUT;GRAFIK...0. | 00000550: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 | STA $0| 00000560: 33 32 37 3B 4F 55 54 50 55 54 56 45 4B 54 4F 52 |327;OUTPUTVEKTOR| 00000570: 20 45 52 4E 45 55 54 20 56 45 52 53 54 45 4C 4C | ERNEUT VERSTELL| 00000580: 45 4E 00 95 0D 3A 02 45 58 49 54 20 20 20 20 20 |EN...:.EXIT | 00000590: 20 20 43 4C 43 00 A8 0D 44 02 20 20 20 20 20 20 | CLC...D. | 000005A0: 20 20 20 20 20 52 54 53 00 D2 0D 4E 02 4E 4F 50 | RTS...N.NOP| 000005B0: 52 49 4E 54 45 52 20 20 50 4C 41 3B 44 52 55 43 |RINTER PLA;DRUC| 000005C0: 4B 42 59 54 45 20 5A 55 52 55 45 43 4B 48 4F 4C |KBYTE ZURUECKHOL| 000005D0: 45 4E 00 02 0E 58 02 4E 4F 47 52 41 50 48 49 43 |EN...X.NOGRAPHIC| 000005E0: 20 20 4A 4D 50 20 50 52 49 4E 54 3B 4E 4F 52 4D | JMP PRINT;NORM| 000005F0: 41 4C 45 20 4F 55 54 50 55 54 2D 52 4F 55 54 49 |ALE OUTPUT-ROUTI| 00000600: 4E 45 00 08 0E 62 02 3B 00 3D 0E 6C 02 47 52 41 |NE...b.;.=.l.GRA| 00000610: 50 48 4F 55 54 20 20 20 43 4D 50 20 23 47 52 41 |PHOUT CMP #GRA| 00000620: 50 48 43 4F 44 45 3B 50 52 55 45 46 45 4E 2C 20 |PHCODE;PRUEFEN, | 00000630: 4F 42 20 5A 45 49 4C 45 4E 45 4E 44 45 00 53 0E |OB ZEILENENDE.S.| 00000640: 76 02 20 20 20 20 20 20 20 20 20 20 20 42 4E 45 |v. BNE| 00000650: 20 47 31 00 85 0E 80 02 20 20 20 20 20 20 20 20 | G1..... | 00000660: 20 20 20 43 4C 43 3B 45 4E 44 45 20 44 45 52 20 | CLC;ENDE DER | 00000670: 47 52 41 46 49 4B 5A 45 49 4C 45 20 45 52 52 45 |GRAFIKZEILE ERRE| 00000680: 49 43 48 54 2E 00 BA 0E 8A 02 20 20 20 20 20 20 |ICHT...... | 00000690: 20 20 20 20 20 4A 4D 50 20 49 4E 49 54 3B 4F 55 | JMP INIT;OU| 000006A0: 54 50 55 54 2D 56 45 4B 54 4F 52 20 5A 55 52 55 |TPUT-VEKTOR ZURU| 000006B0: 45 43 4B 53 54 45 4C 4C 45 4E 00 F3 0E 94 02 47 |ECKSTELLEN.....G| 000006C0: 31 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 36 |1 CMP #6| 000006D0: 33 3B 50 52 55 45 46 45 4E 2C 20 4F 42 20 49 4C |3;PRUEFEN, OB IL| 000006E0: 4C 45 47 41 4C 45 52 20 43 4F 44 45 20 28 30 2D |LEGALER CODE (0-| 000006F0: 36 33 29 00 0B 0F 9E 02 20 20 20 20 20 20 20 20 |63)..... | 00000700: 20 20 20 42 43 43 20 45 58 49 54 00 46 0F A8 02 | BCC EXIT.F...| 00000710: 20 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 | AND #| 00000720: 25 30 30 30 30 31 31 31 31 3B 4E 55 52 20 55 4E |%00001111;NUR UN| 00000730: 54 45 52 45 53 20 4E 49 42 42 4C 45 20 56 45 52 |TERES NIBBLE VER| 00000740: 57 45 4E 44 45 4E 00 69 0F B2 02 20 20 20 20 20 |WENDEN.i... | 00000750: 20 20 20 20 20 20 50 48 41 3B 20 55 4E 44 20 41 | PHA; UND A| 00000760: 55 46 20 53 54 41 50 45 4C 00 9C 0F BC 02 20 20 |UF STAPEL..... | 00000770: 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 4C 41 | LDA FLA| 00000780: 47 3B 4F 42 45 52 45 53 20 4F 44 45 52 20 55 4E |G;OBERES ODER UN| 00000790: 54 45 52 45 53 20 4E 49 42 42 4C 45 00 B7 0F C6 |TERES NIBBLE....| 000007A0: 02 20 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 |. BNE | 000007B0: 4E 49 42 42 4C 45 32 00 BD 0F D0 02 3B 00 DC 0F |NIBBLE2.....;...| 000007C0: DA 02 4E 49 42 42 4C 45 31 20 20 20 20 49 4E 43 |..NIBBLE1 INC| 000007D0: 20 46 4C 41 47 3B 46 4C 41 47 3D 31 00 03 10 E4 | FLAG;FLAG=1....| 000007E0: 02 20 20 20 20 20 20 20 20 20 20 20 50 4C 41 3B |. PLA;| 000007F0: 4E 49 42 42 4C 45 20 5A 55 52 55 45 43 4B 48 4F |NIBBLE ZURUECKHO| 00000800: 4C 45 4E 00 32 10 EE 02 20 20 20 20 20 20 20 20 |LEN.2... | 00000810: 20 20 20 53 54 41 20 53 54 4F 52 45 3B 55 4E 44 | STA STORE;UND| 00000820: 20 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 | ZWISCHENSPEICHE| 00000830: 52 4E 00 45 10 F8 02 20 20 20 20 20 20 20 20 20 |RN.E... | 00000840: 20 20 43 4C 43 00 58 10 02 03 20 20 20 20 20 20 | CLC.X... | 00000850: 20 20 20 20 20 52 54 53 00 5E 10 0C 03 3B 00 7D | RTS.^...;.}| 00000860: 10 16 03 4E 49 42 42 4C 45 32 20 20 20 20 44 45 |...NIBBLE2 DE| 00000870: 43 20 46 4C 41 47 3B 46 4C 41 47 3D 30 00 A4 10 |C FLAG;FLAG=0...| 00000880: 20 03 20 20 20 20 20 20 20 20 20 20 20 50 4C 41 | . PLA| 00000890: 3B 4E 49 42 42 4C 45 20 5A 55 52 55 45 43 4B 48 |;NIBBLE ZURUECKH| 000008A0: 4F 4C 45 4E 00 D8 10 2A 03 20 20 20 20 20 20 20 |OLEN...*. | 000008B0: 20 20 20 20 41 53 4C 3B 55 4E 44 20 55 4D 20 34 | ASL;UND UM 4| 000008C0: 20 42 49 54 20 4E 41 43 48 20 4C 49 4E 4B 53 20 | BIT NACH LINKS | 000008D0: 53 43 48 49 45 42 45 4E 00 F3 10 34 03 20 20 20 |SCHIEBEN...4. | 000008E0: 20 20 20 20 20 20 20 20 41 53 4C 3A 41 53 4C 3A | ASL:ASL:| 000008F0: 41 53 4C 00 2B 11 3E 03 20 20 20 20 20 20 20 20 |ASL.+.>. | 00000900: 20 20 20 4F 52 41 20 53 54 4F 52 45 3B 56 45 52 | ORA STORE;VER| 00000910: 4B 4E 55 45 50 46 45 4E 20 4D 49 54 20 55 4E 54 |KNUEPFEN MIT UNT| 00000920: 45 52 45 4D 20 4E 49 42 42 4C 45 00 51 11 48 03 |EREM NIBBLE.Q.H.| 00000930: 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 50 | JSR P| 00000940: 52 49 4E 54 3B 55 4E 44 20 41 55 53 47 45 42 45 |RINT;UND AUSGEBE| 00000950: 4E 00 64 11 52 03 20 20 20 20 20 20 20 20 20 20 |N.d.R. | 00000960: 20 52 54 53 00 6A 11 5C 03 3B 00 A3 11 66 03 59 | RTS.j.\.;...f.Y| 00000970: 5A 57 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |ZW .BYTE | 00000980: 30 30 3B 5A 57 49 53 43 48 45 4E 53 50 45 49 43 |00;ZWISCHENSPEIC| 00000990: 48 45 52 20 46 55 45 52 20 59 2D 52 45 47 49 53 |HER FUER Y-REGIS| 000009A0: 54 45 52 00 C8 11 70 03 54 41 42 45 4C 4C 45 31 |TER...p.TABELLE1| 000009B0: 20 20 20 2E 42 59 54 45 20 24 31 42 3B 45 53 43 | .BYTE $1B;ESC| 000009C0: 41 50 45 20 53 80 45 4E 00 F7 11 71 03 2E 42 59 |APE S.EN...q..BY| 000009D0: 54 45 20 24 32 41 3B 27 AC 27 20 46 55 45 52 20 |TE $2A;'.' FUER | 000009E0: 38 AB 4E 41 44 45 4C AB 42 49 54 4D 55 53 54 45 |8.NADEL.BITMUSTE| 000009F0: 52 AB 4D 4F 44 55 53 00 2C 12 72 03 2E 42 59 54 |R.MODUS.,.r..BYT| 00000A00: 45 20 24 30 36 3B 4D 4F 44 55 53 20 30 AB 36 20 |E $06;MODUS 0.6 | 00000A10: 41 4E 57 41 45 48 C3 2C 48 49 45 52 20 36 20 56 |ANWAEH.,HIER 6 V| 00000A20: B0 45 49 4E 47 45 53 54 45 4C 4C 54 00 50 12 73 |.EINGESTELLT.P.s| 00000A30: 03 2E 42 59 54 45 20 24 34 30 2C 24 30 31 3B 33 |..BYTE $40,$01;3| 00000A40: 32 30 AB 50 55 4E 4B 54 45 AB 44 49 43 48 54 45 |20.PUNKTE.DICHTE| 00000A50: 00 81 12 7A 03 53 54 4F 52 45 20 20 20 20 20 20 |...z.STORE | 00000A60: 2E 42 59 54 45 20 30 30 3B 53 50 45 49 43 48 45 |.BYTE 00;SPEICHE| 00000A70: 52 20 46 55 45 52 20 47 52 41 46 49 4B 42 59 54 |R FUER GRAFIKBYT| 00000A80: 45 00 B9 12 84 03 46 4C 41 47 20 20 20 20 20 20 |E.....FLAG | 00000A90: 20 2E 42 59 54 45 20 30 30 3B 46 4C 41 47 20 46 | .BYTE 00;FLAG F| 00000AA0: 55 45 52 20 4F 42 45 52 45 53 2F 55 4E 54 45 52 |UER OBERES/UNTER| 00000AB0: 45 53 20 4E 49 42 42 4C 45 00 BF 12 8E 03 3B 00 |ES NIBBLE.....;.| 00000AC0: C5 12 98 03 3B 00 CB 12 A2 03 3B 00 00 00 |....;.....;... |
....2..9.4096...D.;...N.;...X.;.6...;VIZ
AWRITE GRAFIK..J...; VERSI. 3.0.P...;
.L. .;(C) 1986 MARKT&TECHNIK.R...;.....;
WRITTEN BY.....; RALF CZ...H.;
AM L.GRABEN 12.J.R.; 4290 BOCHOLT.BAR
LO.P...;......OPT OO.....;....... $0365;
STARTADRESSE DES PROGRAMMS.....;.:...PRI
NT = $F1CA;AUSGABE EINES ZEICHENS._...G
RAPHCODE = $A8;CODE FUER GRAFIK.}.".CR =
$0D;CARRIAGE RETURN ...,.;...6.INIT
LDA #<NEWOUT;OUTPUTVEKTOR AUF...@.
STA $0326;EIGENE ROUTINE VERSTEL
LEN...J. LDA #>NEWOUT...T.
STA $0327.+.^. RTS.1.H.
;.B.R.NEWOUT PHA;ZU DRUCKENDES BYTE
AUF STAPEL...|. LDA $9A;PRUEFE
N, OB AUSGABE AUF DRUCKER.....
CMP #4..... BNE NOPRINTER;AUS
GABE NICHT AUF DRUCKER..... PL
A;DRUCKBYTE ZURUECKHOLEN.F...
CMP #GRAPHCODE;PRUEFEN, OB GRAFIKZEILE.Y
... BNE NOGRAPHIK;NORMALER TEX
TAUSDRUCK..... STY YZW;Y-REGIS
TER ZWISCHENSPEICHERN.C.B. LDY
#0...L. STY FLAG;FLAG FUER NI
BBLE.".V.BIN320 LDA TABELLE1,Y;DRUCK
ER AUF 320 BINAER-.L... JSR PR
INT;DATEN EINSTELLEN._... INY.
U... CPY #5..... BNE
BIN320..... LDY YZW;Y-REGISTE
R ZURUECKHOLEN..... LDA #<GRAP
HOUT;OUTPUTVEKTOR ERNEUT.%...
STA $0326;VERSTELLEN FUER AUSGABE VON.J.
&. LDA #>GRAPHOUT;GRAFIK...0.
STA $0327;OUTPUTVEKTOR ERNEUT
VERSTELLEN...:.EXIT CLC...D.
RTS.R.N.NOPRINTER PLA;DRUCKBYTE ZU
RUECKHOLEN...X.NOGRAPHIC JMP PRINT;NORM
ALE OUTPUT-ROUTINE...B.;.=.L.GRAPHOUT
CMP #GRAPHCODE;PRUEFEN, OB ZEILENENDE.S.
V. BNE G1..... CLC;E
NDE DER GRAFIKZEILE ERREICHT......
JMP INIT;OUTPUT-VEKTOR ZURUECKSTELL
EN.....G1 CMP #63;PRUEFEN, OB IL
LEGALER CODE (0-63)..... BCC E
XIT.F... AND #%00001111;NUR UN
TERES NIBBLE VERWENDEN.I... PH
A; UND AUF STAPEL..... LDA FLA
G;OBERES ODER UNTERES NIBBLE...F.
BNE NIBBLE2...P.;...Z.NIBBLE1 INC
FLAG;FLAG=1..... PLA;NIBBLE Z
URUECKHOLEN.2... STA STORE;UND
ZWISCHENSPEICHERN.E... CLC.X.
.. RTS.^...;.}...NIBBLE2 DE
C FLAG;FLAG=0... . PLA;NIBBLE
ZURUECKHOLEN.X.*. ASL;UND UM 4
BIT NACH LINKS SCHIEBEN...4.
ASL:ASL:ASL.+.>. ORA STORE;VER
KNUEPFEN MIT UNTEREM NIBBLE.Q.H.
JSR PRINT;UND AUSGEBEN.D.R.
RTS.J.\.;...F.YZW .BYTE 00;ZWISC
HENSPEICHER FUER Y-REGISTER.H.P.TABELLE1
.BYTE $1B;ESCAPE S.EN...Q..BYTE $2A;'
.' FUER 8.NADEL.BITMUSTER.MODUS.,.R..BYT
E $06;MODUS 0.6 ANWAEHC,HIER 6 V.EINGEST
ELLT.P.S..BYTE $40,$01;320.PUNKTE.DICHTE
...Z.STORE .BYTE 00;SPEICHER FUER G
RAFIKBYTE.....FLAG .BYTE 00;FLAG F
UER OBERES/UNTERES NIBBLE.....;.E...;.K.
..;...
> CLICK IMAGE PREVIEW FOR FULL MODAL