HARDCOPY.SRC
FILE INFORMATION
FILENAME(S): HARDCOPY.SRC
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-02 22:11:37
APPEARS ON: 3 disk(s)
FILE HASH
b28c5e0537d64fac328cd043249ec10bdbaddf2686cc8584b1eeaca85a4964d1
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 1 U 2 86 | HARDCOPY.SRC | PRG | Treasure Chest - ToGuMi | 3 | 0 | DOWNLOAD FILE |
| HEFT 1 86 | HARDCOPY.SRC | PRG | C64er | 15 | 0 | DOWNLOAD FILE |
| HEFT 1 86 | HARDCOPY.SRC | PRG | DuncanTwain | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 E8 03 9F 32 2C 38 2C 32 2C 22 48 41 |.......2,8,2,"HA|
00000010: 52 44 43 4F 50 59 2E 4F 42 4A 2C 50 2C 57 22 00 |RDCOPY.OBJ,P,W".|
00000020: 2B 08 F2 03 9E 39 AC 34 30 39 36 00 52 08 FC 03 |+....9.4096.R...|
00000030: 3B AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |;...............|
00000040: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000050: AC AC 00 79 08 06 04 3B AC 20 20 20 20 20 20 4C |...y...;. L|
00000060: 4F 57 53 43 52 45 45 4E 48 41 52 44 43 4F 50 59 |OWSCREENHARDCOPY|
00000070: 20 20 20 20 20 20 20 20 AC 00 A0 08 10 04 3B AC | ......;.|
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 43 4C | INCL|
00000090: 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AC |. .|
000000A0: 00 C7 08 1A 04 3B AC 20 20 20 47 52 41 46 49 4B |.....;. GRAFIK|
000000B0: AB 20 55 4E 44 20 52 45 56 45 52 53 5A 45 49 43 |. UND REVERSZEIC|
000000C0: 48 45 4E 20 20 20 AC 00 ED 08 24 04 3B AC 20 20 |HEN ....$.;. |
000000D0: 20 20 20 45 50 53 91 AD 57 49 45 53 45 4D 41 4E | EPS..WIESEMAN|
000000E0: 4E 20 26 20 4B 4F 4D 50 2E 20 20 20 AC 00 13 09 |N & KOMP. ....|
000000F0: 2E 04 3B AC 20 20 20 20 20 20 20 20 20 56 45 52 |..;. VER|
00000100: 53 49 91 20 31 2E 32 20 20 20 20 20 20 20 20 20 |SI. 1.2 |
00000110: 20 20 AC 00 3A 09 38 04 3B AC 20 20 20 20 48 41 | ..:.8.;. HA|
00000120: 52 41 4C 44 20 4D 45 59 45 52 20 32 31 2E 30 35 |RALD MEYER 21.05|
00000130: 2E 31 39 38 35 20 20 20 20 AC 00 61 09 42 04 3B |.1985 ..a.B.;|
00000140: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000150: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000160: AC 00 7E 09 4C 04 2E 4F 50 54 20 4F 32 20 20 3B |..~.L..OPT O2 ;|
00000170: 20 43 4F 44 45 20 41 55 46 20 44 49 53 4B 00 9A | CODE AUF DISK..|
00000180: 09 56 04 AC B2 20 24 43 30 30 30 20 3B 20 53 54 |.V... $C000 ; ST|
00000190: 41 52 54 41 44 52 45 53 53 45 00 BC 09 60 04 3B |ARTADRESSE...`.;|
000001A0: 20 52 4F 55 54 49 4E 45 4E 20 44 45 53 20 42 45 | ROUTINEN DES BE|
000001B0: 54 52 49 45 42 53 53 59 54 45 4D 53 00 E4 09 6A |TRIEBSSYTEMS...j|
000001C0: 04 3B AC AC AC AC AC AC AC AC AC AC AC AC AC AC |.;..............|
000001D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000001E0: AC AC AC AC 00 EA 09 74 04 3B 00 09 0A 7E 04 9F |.......t.;...~..|
000001F0: 20 20 20 20 B2 20 24 46 46 43 30 20 3B 20 46 49 | . $FFC0 ; FI|
00000200: 4C 45 20 4F 45 46 A5 45 4E 00 2E 0A 88 04 53 45 |LE OEF.EN.....SE|
00000210: 54 4E 41 4D 20 20 B2 20 24 46 46 42 44 20 3B 20 |TNAM . $FFBD ; |
00000220: 46 49 C3 41 4D 45 4E 20 53 45 54 5A 45 4E 00 52 |FI.AMEN SETZEN.R|
00000230: 0A 92 04 53 45 54 46 4C 53 20 20 B2 20 24 46 46 |...SETFLS . $FF|
00000240: 42 41 20 3B 20 46 49 4C 45 50 41 52 41 4D 45 54 |BA ; FILEPARAMET|
00000250: 45 52 00 75 0A 9C 04 99 20 20 20 B2 20 24 46 46 |ER.u.... . $FF|
00000260: 44 32 20 3B 20 5A 45 49 43 48 45 4E 20 41 55 53 |D2 ; ZEICHEN AUS|
00000270: 47 45 42 45 4E 00 9A 0A A6 04 9C 43 48 20 20 20 |GEBEN......CH |
00000280: B2 20 24 46 46 43 43 20 3B 20 42 49 4C 44 53 43 |. $FFCC ; BILDSC|
00000290: 48 2E AB 41 55 53 47 41 42 45 00 BE 0A B0 04 43 |H..AUSGABE.....C|
000002A0: 48 4B 4F 55 54 20 20 B2 20 24 46 46 43 39 20 3B |HKOUT . $FFC9 ;|
000002B0: 20 41 55 53 47 41 42 45 47 45 52 41 45 54 00 E0 | AUSGABEGERAET..|
000002C0: 0A BA 04 A0 20 20 20 B2 20 24 46 46 43 33 20 3B |.... . $FFC3 ;|
000002D0: 20 46 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E | FILE SCHLIESSEN|
000002E0: 00 FA 0A C4 04 90 20 20 20 20 B2 20 24 46 46 45 |...... . $FFE|
000002F0: 31 20 3B 20 90 56 45 4B A4 52 00 1F 0B CE 04 49 |1 ; .VEK.R.....I|
00000300: 52 51 80 20 20 B2 20 24 45 41 33 31 20 3B 20 4B |RQ. . $EA31 ; K|
00000310: 45 52 4E 41 4C AB 49 52 51 AB 52 4F 55 54 2E 00 |ERNAL.IRQ.ROUT..|
00000320: 40 0B D8 04 4C 4F 56 49 44 45 4F 20 B2 20 24 44 |@...LOVIDEO . $D|
00000330: 30 31 38 20 3B 20 56 49 44 45 B0 41 4D 20 4C 4F |018 ; VIDE.AM LO|
00000340: 00 64 0B E2 04 43 48 52 47 45 4E 31 20 B2 20 24 |.d...CHRGEN1 . $|
00000350: 44 30 30 30 20 3B 20 31 2E 5A 45 49 43 48 45 4E |D000 ; 1.ZEICHEN|
00000360: 53 41 54 5A 00 88 0B EC 04 43 48 52 47 45 4E 32 |SATZ.....CHRGEN2|
00000370: 20 B2 20 24 44 38 30 30 20 3B 20 32 2E 5A 45 49 | . $D800 ; 2.ZEI|
00000380: 43 48 45 4E 53 41 54 5A 00 8E 0B F6 04 3B 00 AC |CHENSATZ.....;..|
00000390: 0B 00 05 3B 20 42 45 4E 4F 45 54 49 47 54 45 20 |...; BENOETIGTE |
000003A0: 53 50 45 49 43 48 45 52 5A 45 4C C3 00 D4 0B 0A |SPEICHERZEL.....|
000003B0: 05 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |.; .............|
000003C0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000003D0: AC AC AC AC 00 DA 0B 14 05 3B 00 FC 0B 1E 05 43 |.........;.....C|
000003E0: 55 52 53 B0 20 20 B2 20 32 30 34 20 20 20 3B 20 |URS. . 204 ; |
000003F0: 43 55 52 53 B0 20 41 55 53 AD 41 4E 00 1C 0C 28 |CURS. AUS.AN...(|
00000400: 05 49 52 51 56 45 4B 20 20 B2 20 24 30 33 31 34 |.IRQVEK . $0314|
00000410: 20 3B 20 49 45 51 AB 56 45 4B A4 52 00 3D 0C 32 | ; IEQ.VEK.R.=.2|
00000420: 05 54 41 53 54 45 20 20 20 B2 20 24 43 35 20 20 |.TASTE . $C5 |
00000430: 20 3B 20 88 5A 54 45 20 54 41 53 54 45 00 63 0C | ; .ZTE TASTE.c.|
00000440: 3C 05 46 31 20 20 20 20 20 20 B2 20 34 20 20 20 |<.F1 . 4 |
00000450: 20 20 3B 20 46 31 AB 4D 41 54 52 49 58 4E 55 4D | ; F1.MATRIXNUM|
00000460: 4D 45 52 00 84 0C 46 05 43 52 20 20 20 20 20 20 |MER...F.CR |
00000470: B2 20 31 33 20 20 20 20 3B 20 43 41 52 52 49 41 |. 13 ; CARRIA|
00000480: 47 45 20 8E 00 A1 0C 50 05 45 53 43 20 20 20 20 |GE ....P.ESC |
00000490: 20 B2 20 32 37 20 20 20 20 3B 20 45 53 43 41 50 | . 27 ; ESCAP|
000004A0: 45 00 C6 0C 5A 05 41 44 52 45 53 53 45 20 B2 20 |E...Z.ADRESSE . |
000004B0: 24 46 38 20 20 20 3B 20 5A 45 49 43 48 45 4E 41 |$F8 ; ZEICHENA|
000004C0: 44 52 45 53 53 45 00 E8 0C 64 05 5A 45 49 43 48 |DRESSE...d.ZEICH|
000004D0: 45 4E 20 B2 20 24 44 36 20 20 20 3B 20 5A 45 49 |EN . $D6 ; ZEI|
000004E0: 43 48 45 4E 43 4F 44 45 00 0D 0D 6E 05 56 49 52 |CHENCODE...n.VIR|
000004F0: 41 4D 20 20 20 B2 20 24 31 35 20 20 20 3B 20 5A |AM . $15 ; Z|
00000500: 45 49 43 48 45 4E 41 44 52 45 53 53 45 00 33 0D |EICHENADRESSE.3.|
00000510: 78 05 5A 52 4F 4D 20 20 20 20 B2 20 24 46 39 20 |x.ZROM . $F9 |
00000520: 20 20 3B 20 5A 45 49 43 48 45 4E 47 45 4E 45 52 | ; ZEICHENGENER|
00000530: 41 A4 52 00 55 0D 82 05 4D 41 53 4B 45 20 20 20 |A.R.U...MASKE |
00000540: B2 20 24 39 44 20 20 20 3B 20 42 49 54 AB 41 42 |. $9D ; BIT.AB|
00000550: 46 52 41 47 45 00 5B 0D 8C 05 3B 00 78 0D 96 05 |FRAGE.[...;.x...|
00000560: 3B 20 B5 45 52 52 55 50 54 20 49 4E 49 54 49 41 |; .ERRUPT INITIA|
00000570: 4C 49 53 49 45 52 45 4E 00 A0 0D A0 05 3B 20 AC |LISIEREN.....; .|
00000580: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000590: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000005A0: 00 A6 0D AA 05 3B 00 CB 0D B4 05 53 45 49 20 20 |.....;.....SEI |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 49 52 51 | ; IRQ|
000005C0: 20 56 45 52 48 49 4E 44 45 52 4E 00 EF 0D BE 05 | VERHINDERN.....|
000005D0: 4C 44 41 20 23 B3 53 54 41 52 54 20 20 20 20 20 |LDA #.START |
000005E0: 3B 20 49 52 51 20 56 45 4B A4 52 20 41 55 46 00 |; IRQ VEK.R AUF.|
000005F0: 15 0E C8 05 4C 44 59 20 23 B1 53 54 41 52 54 20 |....LDY #.START |
00000600: 20 20 20 20 3B 20 44 49 45 53 45 53 20 50 52 4F | ; DIESES PRO|
00000610: 47 52 41 4D 4D 00 24 0E D2 05 53 54 41 20 49 52 |GRAMM.$...STA IR|
00000620: 51 56 45 4B 00 35 0E DC 05 53 54 59 20 49 52 51 |QVEK.5...STY IRQ|
00000630: 56 45 4B AA 31 00 57 0E E6 05 43 4C 49 20 20 20 |VEK.1.W...CLI |
00000640: 20 20 20 20 20 20 20 20 20 20 3B 20 49 52 51 20 | ; IRQ |
00000650: B8 49 47 45 42 45 4E 00 76 0E F0 05 52 54 53 20 |.IGEBEN.v...RTS |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 49 4E | ; IN|
00000670: 49 54 2E 20 80 45 00 7C 0E FA 05 3B 00 82 0E 04 |IT. .E.|...;....|
00000680: 06 3B 00 A1 0E 0E 06 3B 20 46 31 20 47 45 44 52 |.;.....; F1 GEDR|
00000690: 55 45 43 4B 54 2C 20 44 41 4E 4E 20 53 54 41 52 |UECKT, DANN STAR|
000006A0: 54 00 C9 0E 18 06 3B 20 AC AC AC AC AC AC AC AC |T.....; ........|
000006B0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000006C0: AC AC AC AC AC AC AC AC AC 00 CF 0E 22 06 3B 00 |............".;.|
000006D0: F3 0E 2C 06 53 54 41 52 54 20 4C 44 41 20 54 41 |..,.START LDA TA|
000006E0: 53 54 45 20 3B 20 54 41 53 54 45 4E 41 42 46 52 |STE ; TASTENABFR|
000006F0: 41 47 45 00 18 0F 36 06 43 4D 50 20 23 46 31 20 |AGE...6.CMP #F1 |
00000700: 20 20 20 20 20 20 20 20 3B 20 54 41 53 54 45 20 | ; TASTE |
00000710: B2 20 46 31 20 22 3F 22 00 3C 0F 40 06 42 4E 45 |. F1 "?".<.@.BNE|
00000720: 20 4C 31 20 20 20 20 20 20 20 20 20 20 3B 20 4E | L1 ; N|
00000730: 45 49 4E 2C 20 44 41 4E 4E 20 80 45 00 5C 0F 4A |EIN, DANN .E.\.J|
00000740: 06 4C 44 41 20 23 30 30 20 20 20 20 20 20 20 20 |.LDA #00 |
00000750: 20 3B 20 54 41 53 54 80 52 55 43 4B 00 7B 0F 54 | ; TAST.RUCK.{.T|
00000760: 06 53 54 41 20 54 41 53 54 45 20 20 20 20 20 20 |.STA TASTE |
00000770: 20 3B 20 4C 4F 45 53 43 48 45 4E 00 A0 0F 5E 06 | ; LOESCHEN...^.|
00000780: 4A 53 52 20 48 44 43 4F 50 59 20 20 20 20 20 20 |JSR HDCOPY |
00000790: 3B 20 50 52 4F 47 52 41 4D 4D 42 45 47 49 4E 4E |; PROGRAMMBEGINN|
000007A0: 00 C3 0F 68 06 4C 31 20 20 4A 4D 50 20 49 52 51 |...h.L1 JMP IRQ|
000007B0: 80 20 20 3B 20 5A 55 4D 20 4B 45 52 4E 41 4C AB |. ; ZUM KERNAL.|
000007C0: 49 52 51 00 C9 0F 72 06 3B 00 CF 0F 7C 06 3B 00 |IRQ...r.;...|.;.|
000007D0: E5 0F 86 06 3B 20 5A 45 52 4F 50 41 47 45 20 52 |....; ZEROPAGE R|
000007E0: 45 54 54 45 4E 00 0D 10 90 06 3B 20 AC AC AC AC |ETTEN.....; ....|
000007F0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000800: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 13 10 |................|
00000810: 9A 06 3B 00 34 10 A4 06 48 44 43 4F 50 59 20 4C |..;.4...HDCOPY L|
00000820: 44 58 20 23 24 46 46 20 3B 20 42 59 54 45 20 32 |DX #$FF ; BYTE 2|
00000830: 35 35 AB 30 00 50 10 AE 06 4C 32 20 20 4C 44 41 |55.0.P...L2 LDA|
00000840: 20 30 2C 58 20 20 20 20 20 3B 20 4C 41 44 45 4E | 0,X ; LADEN|
00000850: 00 73 10 B8 06 53 54 41 20 4D 45 4D B0 59 2C 58 |.s...STA MEM.Y,X|
00000860: 20 20 20 20 3B 20 55 4E 44 20 53 50 45 49 43 48 | ; UND SPEICH|
00000870: 45 52 4E 00 98 10 C2 06 44 45 58 20 20 20 20 20 |ERN.....DEX |
00000880: 20 20 20 20 20 20 20 20 3B 20 4E 41 45 43 48 53 | ; NAECHS|
00000890: 54 45 53 20 42 59 54 45 00 BB 10 CC 06 42 4E 45 |TES BYTE.....BNE|
000008A0: 20 4C 32 20 20 20 20 20 20 20 20 20 20 3B 20 58 | L2 ; X|
000008B0: B2 30 2C 20 44 41 4E 4E 20 80 45 00 C7 10 D6 06 |.0, DANN .E.....|
000008C0: 4C 44 41 20 23 30 31 00 E7 10 E0 06 53 54 41 20 |LDA #01.....STA |
000008D0: 43 55 52 53 B0 20 20 20 20 20 20 3B 41 55 53 53 |CURS. ;AUSS|
000008E0: 43 48 41 4C 54 45 4E 00 ED 10 EA 06 3B 00 F3 10 |CHALTEN.....;...|
000008F0: F4 06 3B 00 10 11 FE 06 3B 20 44 52 55 43 4B 45 |..;.....; DRUCKE|
00000900: 52 46 49 4C 45 20 4F 45 46 46 45 4E 20 55 4E 44 |RFILE OEFFEN UND|
00000910: 00 2D 11 08 07 3B 20 5A 45 49 C3 B6 C0 44 20 49 |.-...; ZEI...D I|
00000920: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 55 11 |NITIALISIEREN.U.|
00000930: 12 07 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC |..; ............|
00000940: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000950: AC AC AC AC AC 00 71 11 1C 07 4C 44 41 20 23 31 |......q...LDA #1|
00000960: 32 36 20 20 20 20 20 3B 20 46 49 C3 55 4D 4D 45 |26 ; FI.UMME|
00000970: 52 00 93 11 26 07 4C 44 58 20 23 34 20 20 20 20 |R...&.LDX #4 |
00000980: 20 20 20 3B 20 47 45 52 41 45 54 45 41 44 52 45 | ; GERAETEADRE|
00000990: 53 53 45 00 B7 11 30 07 4C 44 59 20 23 31 20 20 |SSE...0.LDY #1 |
000009A0: 20 20 20 20 20 3B 20 53 45 4B 55 4E 44 41 45 52 | ; SEKUNDAER|
000009B0: 41 44 52 45 53 53 45 00 DB 11 3A 07 4A 53 52 20 |ADRESSE...:.JSR |
000009C0: 53 45 54 46 4C 53 20 20 20 3B 20 50 41 52 41 4D |SETFLS ; PARAM|
000009D0: 45 54 45 52 20 53 45 54 5A 45 4E 00 FB 11 44 07 |ETER SETZEN...D.|
000009E0: 4C 44 41 20 23 30 20 20 20 20 20 20 20 3B 20 4B |LDA #0 ; K|
000009F0: 45 49 4E 20 46 49 C3 41 4D 45 4E 00 1B 12 4E 07 |EIN FI.AMEN...N.|
00000A00: 4A 53 52 20 53 45 54 4E 41 4D 20 20 20 3B 20 4E |JSR SETNAM ; N|
00000A10: 41 4D 45 4E 20 53 45 54 5A 45 4E 00 37 12 58 07 |AMEN SETZEN.7.X.|
00000A20: 4A 53 52 20 9F 20 20 20 20 20 3B 20 46 49 4C 45 |JSR . ; FILE|
00000A30: 20 4F 45 46 A5 45 4E 00 4F 12 62 07 4C 44 58 20 | OEF.EN.O.b.LDX |
00000A40: 23 31 32 36 20 20 20 20 20 3B 20 41 4C 4C 45 00 |#126 ; ALLE.|
00000A50: 74 12 6C 07 4A 53 52 20 43 48 4B 4F 55 54 20 20 |t.l.JSR CHKOUT |
00000A60: 20 3B 20 41 55 53 47 41 42 45 4E 20 41 55 46 20 | ; AUSGABEN AUF |
00000A70: 23 31 32 36 00 7A 12 76 07 3B 00 9C 12 80 07 3B |#126.z.v.;.....;|
00000A80: 20 44 52 55 43 4B 45 52 20 41 55 46 20 45 49 4E | DRUCKER AUF EIN|
00000A90: 5A 45 49 4C 49 47 45 4E 20 B6 C0 44 00 C2 12 8A |ZEILIGEN ..D....|
00000AA0: 07 4C 44 41 20 23 45 53 43 20 20 20 20 20 3B 20 |.LDA #ESC ; |
00000AB0: 45 53 43 AB 53 45 51 55 45 4E 5A AB 42 45 47 49 |ESC.SEQUENZ.BEGI|
00000AC0: 4E 4E 00 E2 12 94 07 4A 53 52 20 99 20 20 20 20 |NN.....JSR . |
00000AD0: 3B 20 C7 28 32 37 29 20 41 4E 20 44 52 55 43 4B |; .(27) AN DRUCK|
00000AE0: 45 52 00 FF 12 9E 07 4C 44 41 20 23 22 33 22 20 |ER.....LDA #"3" |
00000AF0: 20 20 20 20 3B 20 22 33 22 AA C7 28 32 34 29 00 | ; "3"..(24).|
00000B00: 09 13 A8 07 4A 53 52 20 99 00 15 13 B2 07 4C 44 |....JSR ......LD|
00000B10: 41 20 23 32 34 00 2F 13 BC 07 4A 53 52 20 99 20 |A #24./...JSR . |
00000B20: 20 20 20 3B 20 41 4E 20 44 52 55 43 4B 45 52 00 | ; AN DRUCKER.|
00000B30: 35 13 C6 07 3B 00 4E 13 D0 07 3B 20 5A 45 49 47 |5...;.N...; ZEIG|
00000B40: 45 52 20 41 55 46 20 56 49 44 45 B0 41 4D 00 75 |ER AUF VIDE.AM.u|
00000B50: 13 DA 07 3B 20 AC AC AC AC AC AC AC AC AC AC AC |...; ...........|
00000B60: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000B70: AC AC AC AC AC 00 7B 13 E4 07 3B 00 90 13 EE 07 |......{...;.....|
00000B80: 56 49 44 45 B0 41 4D 20 4C 44 41 20 23 24 30 30 |VIDE.AM LDA #$00|
00000B90: 00 B3 13 F8 07 4C 44 59 20 24 32 38 38 20 20 20 |.....LDY $288 |
00000BA0: 20 20 3B 20 56 49 44 45 B0 41 4D 41 44 52 45 53 | ; VIDE.AMADRES|
00000BB0: 53 45 4E 00 D1 13 02 08 53 54 41 20 56 49 52 41 |SEN.....STA VIRA|
00000BC0: 4D 20 20 20 20 3B 20 55 45 42 45 52 47 45 42 45 |M ; UEBERGEBE|
00000BD0: 4E 00 E1 13 0C 08 53 54 59 20 56 49 52 41 4D AA |N.....STY VIRAM.|
00000BE0: 31 00 E7 13 16 08 3B 00 ED 13 20 08 3B 00 0B 14 |1.....;... .;...|
00000BF0: 2A 08 3B 20 5A 45 49 43 48 45 4E 20 56 4F 4D 20 |*.; ZEICHEN VOM |
00000C00: 53 43 52 45 45 4E 20 48 4F C3 2C 00 2D 14 34 08 |SCREEN HO.,.-.4.|
00000C10: 3B 20 43 48 41 52 41 4B 54 45 52 47 45 4E 45 52 |; CHARAKTERGENER|
00000C20: 41 A4 52 20 4C 45 53 45 4E 20 55 4E 44 00 50 14 |A.R LESEN UND.P.|
00000C30: 3E 08 3B 20 5A 45 49 43 48 45 4E 4D 41 54 52 49 |>.; ZEICHENMATRI|
00000C40: 58 20 5A 55 53 41 4D 4D 45 4E 53 45 54 5A 45 4E |X ZUSAMMENSETZEN|
00000C50: 00 78 14 48 08 3B 20 AC AC AC AC AC AC AC AC AC |.x.H.; .........|
00000C60: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000C70: AC AC AC AC AC AC AC AC 00 7E 14 52 08 3B 00 9C |.........~.R.;..|
00000C80: 14 5C 08 4C 44 58 20 23 32 35 20 20 20 20 20 20 |.\.LDX #25 |
00000C90: 3B 20 5A 45 49 C3 41 4E 5A 41 48 4C 00 A2 14 66 |; ZEI.ANZAHL...f|
00000CA0: 08 3B 00 B7 14 70 08 3B 20 41 55 53 47 41 42 45 |.;...p.; AUSGABE|
00000CB0: 53 43 48 4C 45 8B 45 00 DF 14 7A 08 3B 20 AC AC |SCHLE.E...z.; ..|
00000CC0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000CD0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................|
00000CE0: E5 14 84 08 3B 00 05 15 8E 08 41 55 53 47 20 4A |....;.....AUSG J|
00000CF0: 53 52 20 90 3B 20 90 54 41 53 54 45 20 41 42 46 |SR .; .TASTE ABF|
00000D00: 52 41 47 45 4E 00 28 15 98 08 42 45 51 20 48 44 |RAGEN.(...BEQ HD|
00000D10: 80 45 20 20 20 3B 20 47 45 44 52 55 45 43 4B 54 |.E ; GEDRUECKT|
00000D20: 2C 44 41 4E 4E 20 80 45 00 2E 15 A2 08 3B 00 47 |,DANN .E.....;.G|
00000D30: 15 AC 08 3B 20 49 53 54 20 5A 45 49 4C 45 20 4C |...; IST ZEILE L|
00000D40: 45 45 52 20 22 3F 22 00 6F 15 B6 08 3B 20 AC AC |EER "?".o...; ..|
00000D50: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000D60: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................|
00000D70: 75 15 C0 08 3B 00 81 15 CA 08 4C 44 59 20 23 33 |u...;.....LDY #3|
00000D80: 39 00 96 15 D4 08 4C 39 20 4C 44 41 20 28 56 49 |9.....L9 LDA (VI|
00000D90: 52 41 4D 29 2C 59 00 A2 15 DE 08 43 4D 50 20 23 |RAM),Y.....CMP #|
00000DA0: 33 32 00 AE 15 E8 08 42 4E 45 20 4C 31 30 00 B6 |32.....BNE L10..|
00000DB0: 15 F2 08 44 45 59 00 C1 15 FC 08 42 50 4C 20 4C |...DEY.....BPL L|
00000DC0: 39 00 CD 15 06 09 4C 44 41 20 23 43 52 00 D7 15 |9.....LDA #CR...|
00000DD0: 10 09 4A 53 52 20 99 00 E3 15 1A 09 4A 4D 50 20 |..JSR ......JMP |
00000DE0: 4C 31 31 00 E9 15 24 09 3B 00 02 16 2E 09 3B 20 |L11...$.;.....; |
00000DF0: 43 48 52 47 45 4E AB 41 44 52 45 53 53 45 20 48 |CHRGEN.ADRESSE H|
00000E00: 4F C3 00 26 16 38 09 3B 20 47 52 4F 53 53 AD 4B |O..&.8.; GROSS.K|
00000E10: 4C 45 49 4E 20 4F 44 45 52 20 47 52 4F 53 53 AD |LEIN ODER GROSS.|
00000E20: 47 52 41 46 49 43 00 4E 16 42 09 3B 20 AC AC AC |GRAFIC.N.B.; ...|
00000E30: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000E40: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 54 |...............T|
00000E50: 16 4C 09 3B 00 7A 16 56 09 4C 31 30 20 4A 53 52 |.L.;.z.V.L10 JSR|
00000E60: 20 43 48 52 54 45 53 54 20 3B 53 43 48 52 8B 54 | CHRTEST ;SCHR.T|
00000E70: 4D 4F 44 55 53 AB 54 45 53 54 00 80 16 60 09 3B |MODUS.TEST...`.;|
00000E80: 00 9C 16 6A 09 3B 20 44 52 55 43 4B 5A 45 49 4C |...j.; DRUCKZEIL|
00000E90: 45 20 56 B0 42 45 52 45 49 54 45 4E 00 C4 16 74 |E V.BEREITEN...t|
00000EA0: 09 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |.; .............|
00000EB0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000EC0: AC AC AC AC 00 CA 16 7E 09 3B 00 EA 16 88 09 4C |.......~.;.....L|
00000ED0: 44 59 20 23 37 20 20 20 20 20 20 20 20 20 20 20 |DY #7 |
00000EE0: 20 3B 20 36 20 43 4F 44 45 53 00 0E 17 92 09 4C | ; 6 CODES.....L|
00000EF0: 33 20 20 4C 44 41 20 47 52 41 46 49 4B 2C 59 20 |3 LDA GRAFIK,Y |
00000F00: 20 3B 20 45 53 43 AB 53 45 51 55 45 4E 5A 00 27 | ; ESC.SEQUENZ.'|
00000F10: 17 9C 09 4A 53 52 20 99 20 20 20 20 20 20 20 20 |...JSR . |
00000F20: 20 3B 20 53 80 45 4E 00 4E 17 A6 09 44 45 59 20 | ; S.EN.N...DEY |
00000F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 | ; |
00000F40: 4E 41 45 43 48 53 54 45 52 20 43 4F 44 45 00 71 |NAECHSTER CODE.q|
00000F50: 17 B0 09 42 4E 45 20 4C 33 20 20 20 20 20 20 20 |...BNE L3 |
00000F60: 20 20 20 20 20 3B 20 46 45 52 54 49 47 20 22 3F | ; FERTIG "?|
00000F70: 22 00 77 17 BA 09 3B 00 91 17 C4 09 3B 20 4E 45 |".w...;.....; NE|
00000F80: 55 45 20 5A 45 49 4C 45 20 42 45 47 49 4E 4E 45 |UE ZEILE BEGINNE|
00000F90: 4E 00 B9 17 CE 09 3B 20 AC AC AC AC AC AC AC AC |N.....; ........|
00000FA0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000FB0: AC AC AC AC AC AC AC AC AC 00 BF 17 D8 09 3B 00 |..............;.|
00000FC0: DC 17 E2 09 4C 44 59 20 23 30 20 20 3B 20 5A 45 |....LDY #0 ; ZE|
00000FD0: 49 4C 45 20 56 91 20 4E 45 55 45 4D 00 E2 17 EC |ILE V. NEUEM....|
00000FE0: 09 3B 00 05 18 F6 09 3B 20 5A 45 49 4C 45 20 41 |.;.....; ZEILE A|
00000FF0: 42 41 52 42 45 49 54 45 4E 2C 20 32 2E 20 53 43 |BARBEITEN, 2. SC|
00001000: 48 4C 45 8B 45 00 2A 18 00 0A 3B 20 5A 45 49 43 |HLE.E.*...; ZEIC|
00001010: 48 45 4E 20 48 4F C3 20 55 4E 44 20 49 4D 20 55 |HEN HO. UND IM U|
00001020: 50 20 42 45 41 52 42 45 49 2E 00 52 18 0A 0A 3B |P BEARBEI..R...;|
00001030: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............|
00001040: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001050: AC AC 00 70 18 14 0A 3B 20 5A 45 49 43 48 45 4E |...p...; ZEICHEN|
00001060: 20 56 2E 20 42 49 4C 44 53 43 48 2E 20 48 4F C3 | V. BILDSCH. HO.|
00001070: 00 8E 18 1E 0A 4C 35 20 20 4C 44 41 20 23 30 20 |.....L5 LDA #0 |
00001080: 20 20 3B 20 5A 45 49 43 48 45 4E 20 56 91 00 B0 | ; ZEICHEN V...|
00001090: 18 28 0A 4C 44 41 20 28 56 49 52 41 4D 29 2C 59 |.(.LDA (VIRAM),Y|
000010A0: 3B 20 42 49 4C 44 53 43 48 49 52 4D 20 48 4F C3 |; BILDSCHIRM HO.|
000010B0: 00 CA 18 32 0A 53 54 41 20 5A 45 49 43 48 45 4E |...2.STA ZEICHEN|
000010C0: 20 20 3B 20 4D 45 52 4B 45 4E 00 E8 18 3C 0A 4A | ; MERKEN...<.J|
000010D0: 53 52 20 41 55 53 57 45 52 54 20 20 3B 20 42 45 |SR AUSWERT ; BE|
000010E0: 41 52 42 45 49 54 45 4E 00 0B 19 46 0A 49 4E 59 |ARBEITEN...F.INY|
000010F0: 20 20 20 20 20 20 20 20 20 20 3B 20 53 50 41 4C | ; SPAL|
00001100: 54 45 20 45 52 48 4F 45 48 45 4E 00 29 19 50 0A |TE ERHOEHEN.).P.|
00001110: 43 50 59 20 23 34 30 20 20 20 20 20 20 3B 20 5A |CPY #40 ; Z|
00001120: 45 49 C3 80 45 20 22 3F 22 00 4C 19 5A 0A 42 4E |EI..E "?".L.Z.BN|
00001130: 45 20 4C 35 20 20 20 20 20 20 20 3B 20 42 49 4C |E L5 ; BIL|
00001140: 44 53 43 48 2E AB 80 45 20 22 3F 22 00 52 19 64 |DSCH...E "?".R.d|
00001150: 0A 3B 00 6E 19 6E 0A 3B 20 4E 45 55 45 20 5A 45 |.;.n.n.; NEUE ZE|
00001160: 49 4C 45 20 56 B0 42 45 52 45 49 54 45 4E 00 96 |ILE V.BEREITEN..|
00001170: 19 78 0A 3B 20 AC AC AC AC AC AC AC AC AC AC AC |.x.; ...........|
00001180: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001190: AC AC AC AC AC AC 00 9C 19 82 0A 3B 00 B8 19 8C |...........;....|
000011A0: 0A 4C 31 31 20 4C 44 41 20 23 34 30 3B 20 34 30 |.L11 LDA #40; 40|
000011B0: 20 53 50 41 4C 54 45 4E 00 DF 19 96 0A 43 4C 43 | SPALTEN.....CLC|
000011C0: 20 20 20 20 3B 20 5A 45 49 47 45 52 20 41 55 46 | ; ZEIGER AUF|
000011D0: 20 4E 41 45 43 48 53 54 45 20 5A 45 49 4C 45 00 | NAECHSTE ZEILE.|
000011E0: 04 1A A0 0A 41 44 43 20 56 49 52 41 4D 20 20 20 |....ADC VIRAM |
000011F0: 20 3B 20 4E 45 55 45 20 5A 45 49 4C 45 20 53 45 | ; NEUE ZEILE SE|
00001200: 54 5A 45 4E 00 12 1A AA 0A 53 54 41 20 56 49 52 |TZEN.....STA VIR|
00001210: 41 4D 00 1E 1A B4 0A 42 43 43 20 4C 31 32 00 30 |AM.....BCC L12.0|
00001220: 1A BE 0A 49 4E 43 20 56 49 52 41 4D 20 AA 20 31 |...INC VIRAM . 1|
00001230: 00 55 1A C8 0A 4C 31 32 20 44 45 58 20 20 20 20 |.U...L12 DEX |
00001240: 20 20 20 3B 20 5A 45 49 C3 20 45 52 4E 49 45 44 | ; ZEI. ERNIED|
00001250: 52 49 47 45 4E 00 7A 1A D2 0A 42 4E 45 20 41 55 |RIGEN.z...BNE AU|
00001260: 53 47 20 20 20 20 20 20 3B 20 53 43 52 45 45 4E |SG ; SCREEN|
00001270: 20 5A 55 20 80 45 20 22 3F 22 00 99 1A DC 0A 48 | ZU .E "?".....H|
00001280: 44 80 45 20 4C 44 41 20 23 31 33 3B 20 5A 55 4D |D.E LDA #13; ZUM|
00001290: 20 80 45 20 43 52 20 41 4E 00 B6 1A E6 0A 4A 53 | .E CR AN.....JS|
000012A0: 52 20 99 20 20 20 20 20 3B 20 44 52 55 43 4B 45 |R . ; DRUCKE|
000012B0: 52 20 53 80 45 4E 00 BC 1A F0 0A 3B 00 DF 1A FA |R S.EN.....;....|
000012C0: 0A 3B 20 46 45 52 54 49 47 2C 20 44 41 4E 4E 20 |.; FERTIG, DANN |
000012D0: 46 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E 00 |FILE SCHLIESSEN.|
000012E0: 07 1B 04 0B 3B 20 AC AC AC AC AC AC AC AC AC AC |....; ..........|
000012F0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001300: AC AC AC AC AC AC AC 00 0D 1B 0E 0B 3B 00 25 1B |............;.%.|
00001310: 18 0B 4C 44 41 20 23 31 32 36 20 3B 20 46 49 C3 |..LDA #126 ; FI.|
00001320: 55 4D 4D 45 52 00 48 1B 22 0B 4A 53 52 20 A0 3B |UMMER.H.".JSR .;|
00001330: 20 44 52 55 43 4B 45 52 44 41 54 45 49 20 53 43 | DRUCKERDATEI SC|
00001340: 48 4C 49 45 53 53 45 4E 00 62 1B 2C 0B 4A 53 52 |HLIESSEN.b.,.JSR|
00001350: 20 9C 43 48 3B 20 9D 20 41 55 46 20 53 43 52 45 | .CH; . AUF SCRE|
00001360: 45 4E 00 68 1B 36 0B 3B 00 6E 1B 40 0B 3B 00 8C |EN.h.6.;.n.@.;..|
00001370: 1B 4A 0B 3B 20 5A 45 52 4F 50 41 47 45 20 57 49 |.J.; ZEROPAGE WI|
00001380: 45 44 45 52 48 45 52 53 54 45 4C C3 00 B4 1B 54 |EDERHERSTEL....T|
00001390: 0B 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |.; .............|
000013A0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000013B0: AC AC AC AC 00 BA 1B 5E 0B 3B 00 D9 1B 68 0B 4C |.......^.;...h.L|
000013C0: 44 58 20 23 24 46 46 20 20 20 20 20 20 20 20 3B |DX #$FF ;|
000013D0: 20 5A 45 52 4F 50 41 47 45 00 F5 1B 72 0B 4C 34 | ZEROPAGE...r.L4|
000013E0: 20 20 4C 44 41 20 4D 45 4D B0 59 2C 58 3B 20 57 | LDA MEM.Y,X; W|
000013F0: 49 45 44 45 52 00 14 1C 7C 0B 53 54 41 20 24 30 |IEDER...|.STA $0|
00001400: 30 2C 58 20 20 20 20 20 20 20 3B 20 48 45 52 53 |0,X ; HERS|
00001410: 54 45 4C C3 00 1C 1C 86 0B 44 45 58 00 27 1C 90 |TEL......DEX.'..|
00001420: 0B 42 4E 45 20 4C 34 00 2D 1C 9A 0B 3B 00 4F 1C |.BNE L4.-...;.O.|
00001430: A4 0B 52 54 53 20 20 20 20 20 20 20 20 20 20 20 |..RTS |
00001440: 20 20 3B 20 48 41 52 44 43 4F 50 59 20 80 45 00 | ; HARDCOPY .E.|
00001450: 55 1C AE 0B 3B 00 5B 1C B8 0B 3B 00 61 1C C2 0B |U...;.[...;.a...|
00001460: 3B 00 67 1C CC 0B 3B 00 85 1C D6 0B 3B 20 43 48 |;.g...;.....; CH|
00001470: 41 52 41 4B 54 45 52 47 45 4E 45 52 41 A4 52 20 |ARAKTERGENERA.R |
00001480: 4C 45 53 45 4E 00 AD 1C E0 0B 3B 20 AC AC AC AC |LESEN.....; ....|
00001490: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000014A0: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 B3 1C |................|
000014B0: EA 0B 3B 00 D5 1C F4 0B 41 55 53 57 45 52 54 20 |..;.....AUSWERT |
000014C0: 50 48 41 3B 20 20 52 45 47 49 53 54 45 52 20 52 |PHA; REGISTER R|
000014D0: 45 54 54 45 4E 00 DD 1C FE 0B 54 58 41 00 E5 1C |ETTEN.....TXA...|
000014E0: 08 0C 50 48 41 00 ED 1C 12 0C 54 59 41 00 F5 1C |..PHA.....TYA...|
000014F0: 1C 0C 50 48 41 00 FB 1C 26 0C 3B 00 21 1D 30 0C |..PHA...&.;.!.0.|
00001500: 3B 20 41 44 52 45 53 53 45 20 49 4D 20 43 48 41 |; ADRESSE IM CHA|
00001510: 52 41 4B 54 45 52 52 41 4D 20 42 45 52 45 43 48 |RAKTERRAM BERECH|
00001520: 2E 00 39 1D 3A 0C 3B 20 B2 20 5A 45 49 43 48 45 |..9.:.; . ZEICHE|
00001530: 4E 43 4F 44 45 20 AC 20 38 00 61 1D 44 0C 3B 20 |NCODE . 8.a.D.; |
00001540: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001550: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001560: AC 00 67 1D 4E 0C 3B 00 8A 1D 58 0C 4C 44 41 20 |..g.N.;...X.LDA |
00001570: 5A 45 49 43 48 45 4E 3B 20 5A 45 49 43 48 45 4E |ZEICHEN; ZEICHEN|
00001580: 43 4F 44 45 20 4C 41 44 45 4E 00 AF 1D 62 0C 53 |CODE LADEN...b.S|
00001590: 54 41 20 41 44 52 45 53 53 45 3B 20 41 44 52 45 |TA ADRESSE; ADRE|
000015A0: 53 53 45 20 49 4D 20 5A 45 49 43 48 45 4E AB 00 |SSE IM ZEICHEN..|
000015B0: CE 1D 6C 0C 4C 44 41 20 23 30 20 20 20 20 20 3B |..l.LDA #0 ;|
000015C0: 20 52 4F 4D 20 46 45 53 54 53 54 45 4C C3 00 E0 | ROM FESTSTEL...|
000015D0: 1D 76 0C 53 54 41 20 41 44 52 45 53 53 45 AA 31 |.v.STA ADRESSE.1|
000015E0: 00 FD 1D 80 0C 41 53 4C 20 41 44 52 45 53 53 45 |.....ASL ADRESSE|
000015F0: 3B 20 5A 45 49 43 48 45 4E 43 4F 44 45 00 0F 1E |; ZEICHENCODE...|
00001600: 8A 0C 52 4F 4C 20 41 44 52 45 53 53 45 AA 31 00 |..ROL ADRESSE.1.|
00001610: 1F 1E 94 0C 41 53 4C 20 41 44 52 45 53 53 45 00 |....ASL ADRESSE.|
00001620: 31 1E 9E 0C 52 4F 4C 20 41 44 52 45 53 53 45 AA |1...ROL ADRESSE.|
00001630: 31 00 41 1E A8 0C 41 53 4C 20 41 44 52 45 53 53 |1.A...ASL ADRESS|
00001640: 45 00 5B 1E B2 0C 52 4F 4C 20 41 44 52 45 53 53 |E.[...ROL ADRESS|
00001650: 45 AA 31 20 3B 20 4D 41 4C 20 38 00 6D 1E BC 0C |E.1 ; MAL 8.m...|
00001660: 4C 44 41 20 41 44 52 45 53 53 45 AA 31 00 87 1E |LDA ADRESSE.1...|
00001670: C6 0C 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 |..CLC |
00001680: 20 20 3B 20 55 4E 44 00 A6 1E D0 0C 41 44 43 20 | ; UND.....ADC |
00001690: 5A 52 4F 4D AA 31 20 20 20 20 3B 20 52 4F 4D 41 |ZROM.1 ; ROMA|
000016A0: 44 52 45 53 53 45 00 C3 1E DA 0C 53 54 41 20 41 |DRESSE.....STA A|
000016B0: 44 52 45 53 53 45 AA 31 20 3B 20 41 44 44 49 45 |DRESSE.1 ; ADDIE|
000016C0: 52 45 4E 00 C9 1E E4 0C 3B 00 F0 1E EE 0C 3B 20 |REN.....;.....; |
000016D0: 43 48 41 52 41 4B 54 45 52 47 45 4E 2E 20 4C 45 |CHARAKTERGEN. LE|
000016E0: 53 45 4E 20 55 4E 44 20 5A 45 49 43 48 45 4E AB |SEN UND ZEICHEN.|
000016F0: 00 16 1F F8 0C 3B 20 4D 41 54 52 49 58 20 46 55 |.....; MATRIX FU|
00001700: 45 52 20 44 52 55 43 4B 45 52 20 41 55 46 42 45 |ER DRUCKER AUFBE|
00001710: 52 45 49 54 45 4E 00 3E 1F 02 0D 3B 20 AC AC AC |REITEN.>...; ...|
00001720: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001730: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 44 |...............D|
00001740: 1F 0C 0D 3B 00 68 1F 16 0D 4C 44 58 20 24 30 31 |...;.h...LDX $01|
00001750: 20 20 20 20 20 20 20 20 3B 20 53 50 45 49 43 48 | ; SPEICH|
00001760: 45 52 53 45 4C 45 4B 54 00 87 1F 20 0D 4C 44 41 |ERSELEKT... .LDA|
00001770: 20 23 25 31 30 30 30 30 30 30 30 20 3B 20 42 49 | #%10000000 ; BI|
00001780: 54 AB 4D 41 53 4B 45 00 A6 1F 2A 0D 53 54 41 20 |T.MASKE...*.STA |
00001790: 4D 41 53 4B 45 20 20 20 20 20 20 3B 20 53 50 45 |MASKE ; SPE|
000017A0: 49 43 48 45 52 4E 00 C0 1F 34 0D 4C 31 34 20 4C |ICHERN...4.L14 L|
000017B0: 44 41 20 23 24 30 30 20 20 20 3B 20 43 4F 44 45 |DA #$00 ; CODE|
000017C0: 00 DE 1F 3E 0D 50 48 41 20 20 20 20 20 20 20 20 |...>.PHA |
000017D0: 20 20 20 20 3B 20 4C 4F 45 53 43 48 45 4E 00 04 | ; LOESCHEN..|
000017E0: 20 48 0D 4C 44 59 20 23 37 20 20 20 20 20 20 20 | H.LDY #7 |
000017F0: 20 20 3B 20 38 20 42 59 54 45 53 20 41 42 46 52 | ; 8 BYTES ABFR|
00001800: 41 47 45 4E 00 0A 20 52 0D 3B 00 31 20 5C 0D 3B |AGEN.. R.;.1 \.;|
00001810: 20 43 48 52 AB 52 41 4D 20 45 49 4E 53 43 48 41 | CHR.RAM EINSCHA|
00001820: 4C 54 45 4E 20 26 20 42 59 54 45 20 4C 45 53 45 |LTEN & BYTE LESE|
00001830: 4E 00 59 20 66 0D 3B 20 AC AC AC AC AC AC AC AC |N.Y f.; ........|
00001840: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001850: AC AC AC AC AC AC AC AC AC 00 5F 20 70 0D 3B 00 |.........._ p.;.|
00001860: 7D 20 7A 0D 4C 31 35 20 53 45 49 20 20 20 20 20 |} z.L15 SEI |
00001870: 3B 20 49 52 51 20 53 50 45 52 52 45 4E 00 A5 20 |; IRQ SPERREN.. |
00001880: 84 0D 4C 44 41 20 23 30 31 3A AF 20 23 32 35 31 |..LDA #01:. #251|
00001890: 20 20 20 20 20 20 20 20 3B 20 5A 45 49 43 48 45 | ; ZEICHE|
000018A0: 4E AB 52 4F 4D 00 C3 20 8E 0D 53 54 41 20 24 30 |N.ROM.. ..STA $0|
000018B0: 31 20 20 20 20 20 3B 20 53 45 4C 45 4B 54 49 45 |1 ; SELEKTIE|
000018C0: 52 45 4E 00 E2 20 98 0D 4C 44 41 20 28 41 44 52 |REN.. ..LDA (ADR|
000018D0: 45 53 53 45 29 2C 59 20 3B 20 43 4F 44 45 20 48 |ESSE),Y ; CODE H|
000018E0: 4F C3 00 06 21 A2 0D AF 20 4D 41 53 4B 45 20 20 |O...!... MASKE |
000018F0: 20 20 20 20 20 3B 20 4D 41 53 4B 45 4E 56 45 52 | ; MASKENVER|
00001900: 47 4C 45 49 43 48 00 0C 21 AC 0D 3B 00 2D 21 B6 |GLEICH..!..;.-!.|
00001910: 0D 3B 20 43 48 52 AB 52 4F 4D 20 57 49 45 44 45 |.; CHR.ROM WIEDE|
00001920: 52 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 55 21 |R EINSCHALTEN.U!|
00001930: C0 0D 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC |..; ............|
00001940: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001950: AC AC AC AC AC 00 5B 21 CA 0D 3B 00 7E 21 D4 0D |......[!..;.~!..|
00001960: 53 54 58 20 24 30 31 20 20 20 20 20 3B 20 4E B0 |STX $01 ; N.|
00001970: 4D 20 53 50 45 49 43 48 45 52 4B 91 46 2E 00 A0 |M SPEICHERK.F...|
00001980: 21 DE 0D 43 4C 49 20 20 20 20 20 20 20 20 20 3B |!..CLI ;|
00001990: 20 57 49 45 44 45 52 20 48 45 52 53 54 45 4C C3 | WIEDER HERSTEL.|
000019A0: 00 AB 21 E8 0D 42 45 51 20 4C 36 00 CC 21 F2 0D |..!..BEQ L6..!..|
000019B0: 50 4C 41 20 20 20 20 20 20 20 20 20 3B 20 43 4F |PLA ; CO|
000019C0: 44 45 20 4C 41 44 45 4E 20 55 4E 44 00 ED 21 FC |DE LADEN UND..!.|
000019D0: 0D 43 4C 43 20 20 20 20 20 20 20 20 20 3B 20 43 |.CLC ; C|
000019E0: 4F 44 45 20 4C 41 44 45 4E 20 55 4E 44 00 14 22 |ODE LADEN UND.."|
000019F0: 06 0E 41 44 43 20 4E 57 45 52 54 2C 59 20 3B 20 |..ADC NWERT,Y ; |
00001A00: 42 49 54 57 45 52 54 20 5A 55 20 43 4F 44 45 20 |BITWERT ZU CODE |
00001A10: 41 44 44 2E 00 31 22 10 0E 50 48 41 20 20 20 20 |ADD..1"..PHA |
00001A20: 20 20 20 20 20 3B 20 55 4E 44 20 4D 45 52 4B 45 | ; UND MERKE|
00001A30: 4E 00 52 22 1A 0E 4C 36 20 20 44 45 59 20 20 20 |N.R"..L6 DEY |
00001A40: 20 20 3B 20 4E 41 45 43 48 53 54 45 53 20 42 59 | ; NAECHSTES BY|
00001A50: 54 45 00 77 22 24 0E 42 50 4C 20 4C 31 35 20 20 |TE.w"$.BPL L15 |
00001A60: 20 20 20 3B 20 38 20 42 49 54 53 20 47 45 4C 45 | ; 8 BITS GELE|
00001A70: 53 45 4E 20 22 3F 22 00 92 22 2E 0E 50 4C 41 20 |SEN "?".."..PLA |
00001A80: 20 20 20 20 20 20 20 20 3B 20 4A 41 2C 20 44 41 | ; JA, DA|
00001A90: 4E 4E 00 AB 22 38 0E 4A 53 52 20 99 20 20 20 3B |NN.."8.JSR . ;|
00001AA0: 20 41 4E 20 44 52 55 43 4B 45 52 00 CC 22 42 0E | AN DRUCKER.."B.|
00001AB0: 4C 53 52 20 4D 41 53 4B 45 20 20 20 3B 20 4D 41 |LSR MASKE ; MA|
00001AC0: 53 4B 45 20 45 52 48 4F 45 48 45 4E 00 F2 22 4C |SKE ERHOEHEN.."L|
00001AD0: 0E 42 43 43 20 4C 31 34 20 20 20 20 20 3B 20 4E |.BCC L14 ; N|
00001AE0: 41 45 43 48 53 54 45 20 50 55 4E 4B 54 5A 45 49 |AECHSTE PUNKTZEI|
00001AF0: 4C 45 00 F8 22 56 0E 3B 00 12 23 60 0E 3B 20 52 |LE.."V.;..#`.; R|
00001B00: 45 47 49 53 54 45 52 20 57 49 45 44 45 52 20 48 |EGISTER WIEDER H|
00001B10: 4F C3 00 3A 23 6A 0E 3B 20 AC AC AC AC AC AC AC |O..:#j.; .......|
00001B20: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001B30: AC AC AC AC AC AC AC AC AC AC 00 40 23 74 0E 3B |...........@#t.;|
00001B40: 00 5E 23 7E 0E 50 4C 41 20 3B 20 52 45 47 49 53 |.^#~.PLA ; REGIS|
00001B50: 54 45 52 20 57 49 45 44 45 52 20 48 4F C3 00 66 |TER WIEDER HO..f|
00001B60: 23 88 0E 54 41 59 00 6E 23 92 0E 50 4C 41 00 76 |#..TAY.n#..PLA.v|
00001B70: 23 9C 0E 54 41 58 00 7E 23 A6 0E 50 4C 41 00 86 |#..TAX.~#..PLA..|
00001B80: 23 B0 0E 52 54 53 00 8C 23 BA 0E 3B 00 B3 23 C4 |#..RTS..#..;..#.|
00001B90: 0E 3B 20 41 4E 46 41 4E 47 53 41 44 52 45 53 53 |.; ANFANGSADRESS|
00001BA0: 45 20 44 45 53 20 43 48 41 52 41 4B 54 45 52 52 |E DES CHARAKTERR|
00001BB0: 41 4D 53 00 CE 23 CE 0E 3B 20 46 45 53 54 53 54 |AMS..#..; FESTST|
00001BC0: 45 4C C3 20 55 4E 44 20 4D 45 52 4B 45 4E 00 F6 |EL. UND MERKEN..|
00001BD0: 23 D8 0E 3B 20 AC AC AC AC AC AC AC AC AC AC AC |#..; ...........|
00001BE0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001BF0: AC AC AC AC AC AC 00 FC 23 E2 0E 3B 00 11 24 EC |........#..;..$.|
00001C00: 0E 43 48 52 54 45 53 54 20 4C 44 41 20 23 24 30 |.CHRTEST LDA #$0|
00001C10: 30 00 37 24 F6 0E 53 54 41 20 5A 52 4F 4D 20 20 |0.7$..STA ZROM |
00001C20: 20 20 20 3B 20 5A 45 49 43 48 45 4E 53 41 54 5A | ; ZEICHENSATZ|
00001C30: 41 44 52 2E 20 4C 4F 00 5B 24 00 0F 4C 44 41 20 |ADR. LO.[$..LDA |
00001C40: 4C 4F 56 49 44 45 4F 20 20 3B 20 5A 45 49 43 48 |LOVIDEO ; ZEICH|
00001C50: 45 4E 53 41 54 5A AB 50 41 47 45 00 6C 24 0A 0F |ENSATZ.PAGE.l$..|
00001C60: AF 20 23 25 30 30 30 30 30 30 31 30 00 78 24 14 |. #%00000010.x$.|
00001C70: 0F 42 4E 45 20 4C 31 36 00 99 24 1E 0F 4C 44 41 |.BNE L16..$..LDA|
00001C80: 20 23 B1 43 48 52 47 45 4E 31 20 20 20 20 20 20 | #.CHRGEN1 |
00001C90: 20 20 20 3B 24 44 30 30 30 00 AA 24 28 0F 53 54 | ;$D000..$(.ST|
00001CA0: 41 20 5A 52 4F 4D 20 AA 20 31 00 B7 24 32 0F 2E |A ZROM . 1..$2..|
00001CB0: 42 59 54 20 24 32 43 00 D8 24 3C 0F 4C 31 36 20 |BYT $2C..$<.L16 |
00001CC0: 4C 44 41 20 23 B1 43 48 52 47 45 4E 32 20 20 20 |LDA #.CHRGEN2 |
00001CD0: 20 20 3B 24 44 38 30 30 00 E9 24 46 0F 53 54 41 | ;$D800..$F.STA|
00001CE0: 20 5A 52 4F 4D 20 AA 20 31 00 0F 25 50 0F 52 54 | ZROM . 1..%P.RT|
00001CF0: 53 20 20 20 20 20 20 20 20 20 20 20 3B 20 5A 55 |S ; ZU|
00001D00: 4D 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D 00 |M HAUPTPROGRAMM.|
00001D10: 15 25 5A 0F 3B 00 1B 25 64 0F 3B 00 21 25 6E 0F |.%Z.;..%d.;.!%n.|
00001D20: 3B 00 41 25 78 0F 3B 54 41 42 45 4C 4C 45 20 33 |;.A%x.;TABELLE 3|
00001D30: 32 30 20 42 49 54 4D 55 53 54 45 52 44 41 54 45 |20 BITMUSTERDATE|
00001D40: 4E 00 5B 25 82 0F 47 52 41 46 49 4B 20 2E 42 59 |N.[%..GRAFIK .BY|
00001D50: 54 20 30 2C 24 30 31 2C 24 34 30 00 61 25 8C 0F |T 0,$01,$40.a%..|
00001D60: 3B 00 84 25 96 0F 3B 45 50 53 91 20 41 55 46 20 |;..%..;EPS. AUF |
00001D70: 45 49 4E 5A 45 4C 4E 41 44 45 4C 41 4E 53 54 45 |EINZELNADELANSTE|
00001D80: 55 45 8A 47 00 9D 25 A0 0F 2E 42 59 54 20 34 2C |UE.G..%...BYT 4,|
00001D90: 22 2A 22 2C 45 53 43 2C 43 52 2C 32 34 00 A3 25 |"*",ESC,CR,24..%|
00001DA0: AA 0F 3B 00 C6 25 B4 0F 3B 54 41 42 45 4C 4C 45 |..;..%..;TABELLE|
00001DB0: 20 46 55 45 52 20 42 49 54 AB 57 45 52 54 49 47 | FUER BIT.WERTIG|
00001DC0: 4B 45 49 54 45 4E 00 EA 25 BE 0F 4E 57 45 52 54 |KEITEN..%..NWERT|
00001DD0: 20 2E 42 59 54 20 31 32 38 2C 36 34 2C 33 32 2C | .BYT 128,64,32,|
00001DE0: 31 36 2C 38 2C 34 2C 32 2C 31 00 F0 25 C8 0F 3B |16,8,4,2,1..%..;|
00001DF0: 00 0F 26 D2 0F 3B 5A 45 49 43 48 45 4E 53 41 54 |..&..;ZEICHENSAT|
00001E00: 5A 20 53 54 41 52 54 41 44 52 45 53 53 45 4E 00 |Z STARTADRESSEN.|
00001E10: 20 26 DC 0F 4D 45 4D B0 59 20 2E 42 59 54 20 30 | &..MEM.Y .BYT 0|
00001E20: 00 27 26 E6 0F 2E 80 00 32 26 F0 0F 9E 34 39 31 |.'&.....2&...491|
00001E30: 35 32 00 00 00 |52... |
.......2,8,2,"HARDCOPY.OBJ,P,W".+....9.4
096.R...;...............................
...Y...;. LOWSCREENHARDCOPY
.. ...;. INCL. .
.G...;. GRAFIK. UND REVERSZEICHEN ..
..$.;. EPS..WIESEMANN & KOMP. ....
..;. VERSI. 1.2 ..:.8.
;. HARALD MEYER 21.05.1985 ..A.B.;
..................................~.L..O
PT O2 ; CODE AUF DISK...V... $C000 ; ST
ARTADRESSE...`.; ROUTINEN DES BETRIEBSSY
TEMS...J.;..............................
.......T.;...~.. . $FFC0 ; FILE OEF.E
N.....SETNAM . $FFBD ; FICAMEN SETZEN.R
...SETFLS . $FFBA ; FILEPARAMETER.U....
. $FFD2 ; ZEICHEN AUSGEBEN......CH
. $FFCC ; BILDSCH..AUSGABE.....CHKOUT .
$FFC9 ; AUSGABEGERAET..... . $FFC3 ;
FILE SCHLIESSEN...D.. . $FFE1 ; .VEK
.R...N.IRQ. . $EA31 ; KERNAL.IRQ.ROUT..
@.X.LOVIDEO . $D018 ; VIDE.AM LO.D...CHR
GEN1 . $D000 ; 1.ZEICHENSATZ.....CHRGEN2
. $D800 ; 2.ZEICHENSATZ.....;.....; BEN
OETIGTE SPEICHERZELC.T...; .............
.....................Z...;.....CURS. .
204 ; CURS. AUS.AN...(.IRQVEK . $0314
; IEQ.VEK.R.=.2.TASTE . $C5 ; .ZTE
TASTE.C.<.F1 . 4 ; F1.MATRIXNUM
MER...F.CR . 13 ; CARRIAGE ....P
.ESC . 27 ; ESCAPE.F.Z.ADRESSE .
$F8 ; ZEICHENADRESSE...D.ZEICHEN . $D6
; ZEICHENCODE...N.VIRAM . $15 ; Z
EICHENADRESSE.3.X.ZROM . $F9 ; ZEIC
HENGENERA.R.U...MASKE . $9D ; BIT.AB
FRAGE.[...;.X...; .ERRUPT INITIALISIEREN
. . .; .................................
.....;.K...SEI ; IRQ VERHIND
ERN.....LDA #.START ; IRQ VEK.R AUF.
..H.LDY #.START ; DIESES PROGRAMM.$.
R.STA IRQVEK.5...STY IRQVEK.1.W...CLI
; IRQ .IGEBEN.V...RTS
; INIT. .E.|...;.....;.....; F1 GEDR
UECKT, DANN START.I...; ................
..................O.".;...,.START LDA TA
STE ; TASTENABFRAGE...6.CMP #F1
; TASTE . F1 "?".<.@.BNE L1 ; N
EIN, DANN .E.\.J.LDA #00 ; TAST.
RUCK.{.T.STA TASTE ; LOESCHEN. .^.
JSR HDCOPY ; PROGRAMMBEGINN.C.H.L1
JMP IRQ. ; ZUM KERNAL.IRQ.I.R.;.O.|.;.
....; ZEROPAGE RETTEN.....; ............
..........................;.4...HDCOPY L
DX #$FF ; BYTE 255.0.P...L2 LDA 0,X
; LADEN.S...STA MEM.Y,X ; UND SPEICH
ERN...B.DEX ; NAECHSTES BYTE
...L.BNE L2 ; X.0, DANN .E.G.V.
LDA #01.....STA CURS. ;AUSSCHALTEN.
....;.....;.....; DRUCKERFILE OEFFEN UND
.-...; ZEIC..D INITIALISIEREN.U...; ....
..............................Q...LDA #1
26 ; FICUMMER...&.LDX #4 ; GER
AETEADRESSE...0.LDY #1 ; SEKUNDAER
ADRESSE...:.JSR SETFLS ; PARAMETER SET
ZEN...D.LDA #0 ; KEIN FICAMEN...N.
JSR SETNAM ; NAMEN SETZEN.7.X.JSR .
; FILE OEF.EN.O.B.LDX #126 ; ALLE.
T.L.JSR CHKOUT ; AUSGABEN AUF #126.Z.V
.;.....; DRUCKER AUF EINZEILIGEN ..D.B..
.LDA #ESC ; ESC.SEQUENZ.BEGINN.....J
SR . ; G(27) AN DRUCKER.....LDA #"3"
; "3".G(24).....JSR ......LDA #24./.
..JSR . ; AN DRUCKER.5.F.;.N.P.; ZEIG
ER AUF VIDE.AM.U.Z.; ...................
..............{...;.....VIDE.AM LDA #$00
.....LDY $288 ; VIDE.AMADRESSEN.Q...
STA VIRAM ; UEBERGEBEN.....STY VIRAM.
1.....;... .;...*.; ZEICHEN VOM SCREEN H
OC,.-.4.; CHARAKTERGENERA.R LESEN UND.P.
>.; ZEICHENMATRIX ZUSAMMENSETZEN.X.H.; .
.................................~.R.;..
.\.LDX #25 ; ZEICANZAHL...F.;...P.;
AUSGABESCHLE.E...Z.; ..................
....................;.....AUSG JSR .; .T
ASTE ABFRAGEN.(...BEQ HD.E ; GEDRUECKT
,DANN .E.....;.G...; IST ZEILE LEER "?".
O...; ..................................
U...;...J.LDY #39...T.L9 LDA (VIRAM),Y..
...CMP #32.....BNE L10.....DEY.A...BPL L
9.M...LDA #CR.W...JSR ......JMP L11...$.
;.....; CHRGEN.ADRESSE HOC.&.8.; GROSS.K
LEIN ODER GROSS.GRAFIC.N.B.; ...........
.......................T.L.;.Z.V.L10 JSR
CHRTEST ;SCHR.TMODUS.TEST...`.;...J.; D
RUCKZEILE V.BEREITEN.D.T.; .............
.....................J.~.;.....LDY #7
; 6 CODES.....L3 LDA GRAFIK,Y
; ESC.SEQUENZ.'...JSR . ; S.EN.
N...DEY ; NAECHSTER CODE.Q
...BNE L3 ; FERTIG "?".W...;.
..D.; NEUE ZEILE BEGINNEN...N.; ........
............................X.;.....LDY
#0 ; ZEILE V. NEUEM.....;.....; ZEILE A
BARBEITEN, 2. SCHLE.E.*...; ZEICHEN HOC
UND IM UP BEARBEI..R...; ...............
...................P...; ZEICHEN V. BILD
SCH. HOC.....L5 LDA #0 ; ZEICHEN V...
.(.LDA (VIRAM),Y; BILDSCHIRM HOC.J.2.STA
ZEICHEN ; MERKEN...<.JSR AUSWERT ; BE
ARBEITEN...F.INY ; SPALTE ERHOE
HEN.).P.CPY #40 ; ZEIC.E "?".L.Z.BN
E L5 ; BILDSCH...E "?".R.D.;.N.N.;
NEUE ZEILE V.BEREITEN...X.; ...........
...........................;.....L11 LDA
#40; 40 SPALTEN.....CLC ; ZEIGER AUF
NAECHSTE ZEILE... .ADC VIRAM ; NEUE
ZEILE SETZEN.....STA VIRAM.....BCC L12.0
...INC VIRAM . 1.U.H.L12 DEX ; ZEI
C ERNIEDRIGEN.Z.R.BNE AUSG ; SCREEN
ZU .E "?".....HD.E LDA #13; ZUM .E CR A
N.....JSR . ; DRUCKER S.EN.....;....
.; FERTIG, DANN FILE SCHLIESSEN.....; ..
....................................;.%.
..LDA #126 ; FICUMMER.H.".JSR ; DRUCKER
DATEI SCHLIESSEN.B.,.JSR .CH; . AUF SCRE
EN.H.6.;.N.@.;...J.; ZEROPAGE WIEDERHERS
TELC...T.; .............................
.......^.;.Y.H.LDX #$FF ; ZEROPAG
E...R.L4 LDA MEM.Y,X; WIEDER...|.STA $0
0,X ; HERSTELC.....DEX.'...BNE L4.
-...;.O...RTS ; HARDCOPY .E.
U...;.[...;.A.B.;.G.L.;...V.; CHARAKTERG
ENERA.R LESEN.....; ....................
..................;.U...AUSWERT PHA; RE
GISTER RETTEN.....TXA.....PHA.....TYA...
..PHA...&.;.!.0.; ADRESSE IM CHARAKTERRA
M BERECH..9.:.; . ZEICHENCODE . 8.A.D.;
..................................G.N.;.
..X.LDA ZEICHEN; ZEICHENCODE LADEN...B.S
TA ADRESSE; ADRESSE IM ZEICHEN..N.L.LDA
#0 ; ROM FESTSTELC...V.STA ADRESSE.1
.....ASL ADRESSE; ZEICHENCODE.....ROL AD
RESSE.1.....ASL ADRESSE.1...ROL ADRESSE.
1.A...ASL ADRESSE.[...ROL ADRESSE.1 ; MA
L 8.M...LDA ADRESSE.1...F.CLC
; UND...P.ADC ZROM.1 ; ROMADRESSE.C
.Z.STA ADRESSE.1 ; ADDIEREN.I...;.....;
CHARAKTERGEN. LESEN UND ZEICHEN......; M
ATRIX FUER DRUCKER AUFBEREITEN.>...; ...
...............................D...;.H..
.LDX $01 ; SPEICHERSELEKT... .LDA
#%10000000 ; BIT.MASKE...*.STA MASKE
; SPEICHERN...4.L14 LDA #$00 ; CODE
...>.PHA ; LOESCHEN.. H.LDY #
7 ; 8 BYTES ABFRAGEN.. R.;.1 \.;
CHR.RAM EINSCHALTEN & BYTE LESEN.Y F.;
.................................._ P.;.
} Z.L15 SEI ; IRQ SPERREN.. ..LDA #0
1:. #251 ; ZEICHEN.ROM.C ..STA $0
1 ; SELEKTIEREN.. ..LDA (ADRESSE),Y
; CODE HOC..!... MASKE ; MASKENVER
GLEICH..!..;.-!..; CHR.ROM WIEDER EINSCH
ALTEN.U!..; ............................
......[!J.;.~!T.STX $01 ; N.M SPEICH
ERK.F.. !..CLI ; WIEDER HERSTELC
..!..BEQ L6.L!..PLA ; CODE LADEN
UND..!..CLC ; CODE LADEN UND.."
..ADC NWERT,Y ; BITWERT ZU CODE ADD..1".
.PHA ; UND MERKEN.R"..L6 DEY
; NAECHSTES BYTE.W"$.BPL L15 ; 8 B
ITS GELESEN "?".."..PLA ; JA, DA
NN.."8.JSR . ; AN DRUCKER.L"B.LSR MASK
E ; MASKE ERHOEHEN.."L.BCC L14 ; N
AECHSTE PUNKTZEILE.."V.;..#`.; REGISTER
WIEDER HOC.:#J.; .......................
...........@#T.;.^#~.PLA ; REGISTER WIED
ER HOC.F#..TAY.N#..PLA.V#..TAX.~#..PLA..
#..RTS..#..;..#D.; ANFANGSADRESSE DES CH
ARAKTERRAMS.N#N.; FESTSTELC UND MERKEN..
#X.; ...................................
#..;..$..CHRTEST LDA #$00.7$..STA ZROM
; ZEICHENSATZADR. LO.[$..LDA LOVIDEO
; ZEICHENSATZ.PAGE.L$... #%00000010.X$.
.BNE L16..$..LDA #.CHRGEN1 ;$D00
0..$(.STA ZROM . 1..$2..BYT $2C.X$<.L16
LDA #.CHRGEN2 ;$D800..$F.STA ZROM .
1..%P.RTS ; ZUM HAUPTPROGRAMM.
.%Z.;..%D.;.!%N.;.A%X.;TABELLE 320 BITMU
STERDATEN.[%..GRAFIK .BYT 0,$01,$40.A%..
;..%..;EPS. AUF EINZELNADELANSTEUE.G..%
..BYT 4,"*",ESC,CR,24..%..;.F%..;TABELLE
FUER BIT.WERTIGKEITEN..%..NWERT .BYT 12
8,64,32,16,8,4,2,1..%H.;..&R.;ZEICHENSAT
Z STARTADRESSEN. &..MEM.Y .BYT 0.'&.....
2&...49152...
> CLICK IMAGE PREVIEW FOR FULL MODAL