ZEPPO.SRC
FILE INFORMATION
FILENAME(S): ZEPPO.SRC
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 01:12:52
APPEARS ON: 2 disk(s)
FILE HASH
80ae5666087a9d88ceb8c7fbf918c8d2b73dbdee2c9e8dc9a6fccaf90e6539fe
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10809 SEITE A | ZEPPO.SRC | PRG | C64er, DuncanTwain | 16 | 8 | DOWNLOAD FILE |
| 15943 | ZEPPO.SRC | PRG | C64er | 15 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F ED 1F 06 00 2E 45 51 20 53 43 52 45 45 4E |.......EQ SCREEN|
00000010: 3D 24 43 37 30 30 00 FF 1F 08 00 2E 45 51 20 53 |=$C700......EQ S|
00000020: 49 44 3D 35 34 32 37 32 00 17 20 0C 00 2E 45 51 |ID=54272.. ...EQ|
00000030: 20 43 4F 55 4E 54 32 3D 43 4F 55 4E 54 31 2B 31 | COUNT2=COUNT1+1|
00000040: 00 2C 20 10 00 2E 45 51 20 47 45 54 42 59 54 3D |., ...EQ GETBYT=|
00000050: 24 42 37 39 45 00 41 20 12 00 2E 45 51 20 43 48 |$B79E.A ...EQ CH|
00000060: 4B 43 4F 4D 3D 24 41 45 46 44 00 56 20 14 00 2E |KCOM=$AEFD.V ...|
00000070: 45 51 20 43 48 52 47 4F 54 3D 24 30 30 37 39 00 |EQ CHRGOT=$0079.|
00000080: 6B 20 16 00 2E 45 51 20 43 48 52 47 45 54 3D 24 |k ...EQ CHRGET=$|
00000090: 30 30 37 33 00 7F 20 18 00 2E 45 51 20 45 52 52 |0073.. ...EQ ERR|
000000A0: 4F 52 3D 24 41 34 33 37 00 93 20 1A 00 2E 45 51 |OR=$A437.. ...EQ|
000000B0: 20 50 52 49 4E 54 3D 24 41 42 31 45 00 A6 20 1C | PRINT=$AB1E.. .|
000000C0: 00 2E 45 51 20 4F 50 45 4E 3D 24 46 46 43 30 00 |..EQ OPEN=$FFC0.|
000000D0: BB 20 1E 00 2E 45 51 20 53 45 54 46 4C 53 3D 24 |. ...EQ SETFLS=$|
000000E0: 46 46 42 41 00 D0 20 20 00 2E 45 51 20 43 48 4B |FFBA.. ..EQ CHK|
000000F0: 4F 55 54 3D 24 46 46 43 39 00 E4 20 22 00 2E 45 |OUT=$FFC9.. "..E|
00000100: 51 20 43 4C 52 43 48 3D 24 46 46 43 43 00 F8 20 |Q CLRCH=$FFCC.. |
00000110: 24 00 2E 45 51 20 43 4C 4F 53 45 3D 24 46 46 43 |$..EQ CLOSE=$FFC|
00000120: 33 00 0B 21 26 00 2E 45 51 20 50 49 4E 53 3D 24 |3..!&..EQ PINS=$|
00000130: 46 46 44 32 00 1F 21 28 00 2E 45 51 20 44 52 55 |FFD2..!(..EQ DRU|
00000140: 43 4B 3D 24 41 41 41 30 00 32 21 2A 00 2E 45 51 |CK=$AAA0.2!*..EQ|
00000150: 20 48 4F 4D 45 3D 24 45 35 36 36 00 46 21 2C 00 | HOME=$E566.F!,.|
00000160: 2E 45 51 20 51 55 45 53 54 3D 24 41 42 34 35 00 |.EQ QUEST=$AB45.|
00000170: 5B 21 2E 00 2E 45 51 20 53 45 54 4E 41 4D 3D 24 |[!...EQ SETNAM=$|
00000180: 46 46 42 44 00 61 21 32 00 3B 00 74 21 34 00 2E |FFBD.a!2.;.t!4..|
00000190: 45 51 20 5A 57 31 3D 24 36 39 20 3B AE 00 87 21 |EQ ZW1=$69 ;...!|
000001A0: 36 00 2E 45 51 20 5A 57 32 3D 24 36 41 20 3B C2 |6..EQ ZW2=$6A ;.|
000001B0: 00 9A 21 38 00 2E 45 51 20 4E 55 4D 45 3D 24 36 |..!8..EQ NUME=$6|
000001C0: 42 3B C2 00 B3 21 3A 00 2E 45 51 20 53 49 47 4E |B;...!:..EQ SIGN|
000001D0: 3D 24 36 43 3B AB 49 4D 20 41 52 47 00 C6 21 3C |=$6C;.IM ARG..!<|
000001E0: 00 2E 45 51 20 5A 31 3D 24 36 44 20 20 3B BD 00 |..EQ Z1=$6D ;..|
000001F0: D9 21 3E 00 3B 5A 45 52 4F 2D 41 44 52 45 53 53 |.!>.;ZERO-ADRESS|
00000200: 45 5E 00 DF 21 40 00 3B 00 FA 21 42 00 2E 45 51 |E^..!@.;..!B..EQ|
00000210: 20 43 4F 55 4E 54 31 3D 24 36 31 3B 5A 41 45 48 | COUNT1=$61;ZAEH|
00000220: 4C 45 52 00 03 22 46 00 3B 2D 2D 2D 00 16 22 5A |LER.."F.;---.."Z|
00000230: 00 2E 4F 42 22 5A 45 50 50 4F 2C 50 2C 57 22 00 |..OB"ZEPPO,P,W".|
00000240: 2A 22 63 00 2E 42 41 20 24 43 35 41 38 3B 35 30 |*"c..BA $C5A8;50|
00000250: 36 30 30 00 46 22 64 00 20 4A 53 52 43 48 4B 43 |600.F"d. JSRCHKC|
00000260: 4F 4D 3B 46 4F 4C 47 54 20 4B 4F 4D 4D 41 3F 00 |OM;FOLGT KOMMA?.|
00000270: 67 22 6E 00 20 4A 53 52 47 45 54 42 59 54 3B 44 |g"n. JSRGETBYT;D|
00000280: 52 55 43 4B 44 49 43 48 54 45 20 48 4F 4C 45 4E |RUCKDICHTE HOLEN|
00000290: 00 74 22 78 00 20 53 54 58 4E 55 4D 45 00 7A 22 |.t"x. STXNUME.z"|
000002A0: 82 00 3B 00 92 22 8C 00 20 43 50 58 23 35 3B 53 |..;..".. CPX#5;S|
000002B0: 49 43 48 45 52 48 45 49 54 53 2D 00 9E 22 96 00 |ICHERHEITS-.."..|
000002C0: 20 42 43 53 45 52 52 00 B1 22 A0 00 20 43 50 58 | BCSERR..".. CPX|
000002D0: 23 30 3B 41 42 46 52 41 47 45 00 BC 22 AA 00 20 |#0;ABFRAGE..".. |
000002E0: 42 4E 45 4F 4B 00 C8 22 B4 00 45 52 52 20 52 54 |BNEOK.."..ERR RT|
000002F0: 53 00 CE 22 BE 00 3B 00 E7 22 C8 00 4F 4B 20 4C |S.."..;.."..OK L|
00000300: 44 41 36 34 38 3B 42 49 4C 44 53 43 48 49 52 4D |DA648;BILDSCHIRM|
00000310: 00 FF 22 D2 00 20 53 54 41 53 43 4D 45 52 4B 2B |..".. STASCMERK+|
00000320: 31 3B 4D 45 52 4B 45 4E 00 05 23 DC 00 3B 00 1C |1;MERKEN..#..;..|
00000330: 23 E6 00 20 4A 53 52 43 48 4B 43 4F 4D 3B 32 2E |#.. JSRCHKCOM;2.|
00000340: 4B 4F 4D 4D 41 00 2F 23 F0 00 20 4C 44 41 23 3E |KOMMA./#.. LDA#>|
00000350: 28 53 43 52 45 45 4E 29 00 4D 23 FA 00 20 53 54 |(SCREEN).M#.. ST|
00000360: 41 36 34 38 3B 45 52 53 41 54 5A 2D 42 49 4C 44 |A648;ERSATZ-BILD|
00000370: 53 43 48 49 52 4D 00 58 23 04 01 20 4C 44 58 23 |SCHIRM.X#.. LDX#|
00000380: 30 00 64 23 0E 01 20 4C 44 41 23 33 32 00 86 23 |0.d#.. LDA#32..#|
00000390: 18 01 52 4D 4B 54 20 53 54 41 53 43 52 45 45 4E |..RMKT STASCREEN|
000003A0: 2C 58 3B 5A 2E 54 2E 4C 4F 45 53 43 48 45 4E 00 |,X;Z.T.LOESCHEN.|
000003B0: 8F 23 22 01 20 44 45 58 00 9C 23 2C 01 20 42 4E |.#". DEX..#,. BN|
000003C0: 45 52 4D 4B 54 00 A2 23 36 01 3B 00 AF 23 40 01 |ERMKT..#6.;..#@.|
000003D0: 20 4A 53 52 48 4F 4D 45 00 D7 23 4A 01 20 4A 53 | JSRHOME..#J. JS|
000003E0: 52 44 52 55 43 4B 3B 22 50 52 49 4E 54 22 2D 42 |RDRUCK;"PRINT"-B|
000003F0: 45 46 45 48 4C 20 41 55 53 46 55 45 48 52 45 4E |EFEHL AUSFUEHREN|
00000400: 00 DD 23 54 01 3B 00 E3 23 5E 01 3B 00 F1 23 68 |..#T.;..#^.;..#h|
00000410: 01 20 4C 44 41 24 44 30 31 41 00 00 24 6D 01 20 |. LDA$D01A..$m. |
00000420: 53 54 41 52 49 52 4D 2B 31 00 0D 24 70 01 20 4C |STARIRM+1..$p. L|
00000430: 44 41 23 24 46 30 00 31 24 71 01 20 53 54 41 24 |DA#$F0.1$q. STA$|
00000440: 44 30 31 41 3B 56 49 43 2D 49 4E 54 45 52 52 55 |D01A;VIC-INTERRU|
00000450: 50 54 20 53 50 45 52 52 45 4E 00 37 24 72 01 3B |PT SPERREN.7$r.;|
00000460: 00 4F 24 77 01 20 53 45 49 3B 4B 45 49 4E 20 49 |.O$w. SEI;KEIN I|
00000470: 4E 54 45 52 52 55 50 54 00 6B 24 7C 01 20 4C 44 |NTERRUPT.k$|. LD|
00000480: 41 23 31 32 3B 4C 4F 47 2E 20 46 49 4C 45 4E 55 |A#12;LOG. FILENU|
00000490: 4D 4D 45 52 00 85 24 86 01 20 4C 44 58 23 34 3B |MMER..$.. LDX#4;|
000004A0: 47 45 52 41 45 54 3D 44 52 55 43 4B 45 52 00 97 |GERAET=DRUCKER..|
000004B0: 24 90 01 20 4C 44 59 23 30 3B 53 45 4B 2E 41 44 |$.. LDY#0;SEK.AD|
000004C0: 00 AD 24 9A 01 20 4A 53 52 53 45 54 46 4C 53 3B |..$.. JSRSETFLS;|
000004D0: 53 45 54 5A 45 4E 00 C7 24 A4 01 20 4C 44 41 23 |SETZEN..$.. LDA#|
000004E0: 30 3B 4B 45 49 4E 27 46 49 4C 45 4E 41 4D 45 27 |0;KEIN'FILENAME'|
000004F0: 00 D6 24 AE 01 20 4A 53 52 53 45 54 4E 41 4D 00 |..$.. JSRSETNAM.|
00000500: DC 24 B8 01 3B 00 E9 24 C2 01 20 4A 53 52 4F 50 |.$..;..$.. JSROP|
00000510: 45 4E 00 F5 24 CC 01 20 4C 44 58 23 31 32 00 16 |EN..$.. LDX#12..|
00000520: 25 D6 01 20 4A 53 52 43 48 4B 4F 55 54 3B 41 55 |%.. JSRCHKOUT;AU|
00000530: 53 47 41 42 45 20 41 55 46 20 44 41 54 45 49 00 |SGABE AUF DATEI.|
00000540: 1C 25 E0 01 3B 00 22 25 EA 01 3B 00 35 25 F4 01 |.%..;."%..;.5%..|
00000550: 20 4C 44 41 23 32 37 3B 45 53 43 41 50 45 00 42 | LDA#27;ESCAPE.B|
00000560: 25 FE 01 20 4A 53 52 50 49 4E 53 00 51 25 08 02 |%.. JSRPINS.Q%..|
00000570: 20 4C 44 58 4E 55 4D 45 3B CD 00 64 25 12 02 20 | LDXNUME;..d%.. |
00000580: 4C 44 41 44 41 54 31 2D 31 2C 58 3B A7 00 77 25 |LDADAT1-1,X;..w%|
00000590: 1C 02 20 4A 53 52 50 49 4E 53 3B A7 43 4F 44 45 |.. JSRPINS;.CODE|
000005A0: 00 8C 25 26 02 20 4C 44 58 4E 55 4D 45 3B A7 20 |..%&. LDXNUME;. |
000005B0: 20 46 55 45 52 00 A7 25 30 02 20 4C 44 41 44 41 | FUER..%0. LDADA|
000005C0: 54 32 2D 31 2C 58 3B A7 44 52 55 43 4B 45 52 2D |T2-1,X;.DRUCKER-|
000005D0: 00 B6 25 3A 02 20 4A 53 52 50 49 4E 53 3B A7 00 |..%:. JSRPINS;..|
000005E0: C5 25 44 02 20 4C 44 58 4E 55 4D 45 3B A7 00 E0 |.%D. LDXNUME;...|
000005F0: 25 4E 02 20 4C 44 41 44 41 54 33 2D 31 2C 58 3B |%N. LDADAT3-1,X;|
00000600: A7 20 28 45 50 53 4F 4E 29 00 EF 25 58 02 20 4A |. (EPSON)..%X. J|
00000610: 53 52 50 49 4E 53 3B CE 00 F5 25 62 02 3B 00 12 |SRPINS;...%b.;..|
00000620: 26 6C 02 4D 45 52 4B 45 52 20 4C 44 41 23 36 30 |&l.MERKER LDA#60|
00000630: 3B 36 30 20 5A 45 49 43 48 45 4E 00 21 26 76 02 |;60 ZEICHEN.!&v.|
00000640: 20 53 54 41 43 4F 55 4E 54 31 00 27 26 80 02 3B | STACOUNT1.'&..;|
00000650: 00 38 26 8A 02 20 4C 44 41 44 41 54 34 2D 31 2C |.8&.. LDADAT4-1,|
00000660: 58 00 45 26 94 02 20 53 54 41 4E 55 4D 45 00 53 |X.E&.. STANUME.S|
00000670: 26 9E 02 20 4C 44 41 24 44 44 30 30 00 5E 26 A8 |&.. LDA$DD00.^&.|
00000680: 02 20 41 4E 44 23 33 00 69 26 B2 02 20 45 4F 52 |. AND#3.i&.. EOR|
00000690: 23 33 00 72 26 BC 02 20 43 4C 43 00 7B 26 C6 02 |#3.r&.. CLC.{&..|
000006A0: 20 52 4F 52 00 84 26 D0 02 20 52 4F 52 00 8D 26 | ROR..&.. ROR..&|
000006B0: DA 02 20 52 4F 52 00 99 26 E4 02 20 53 54 41 5A |.. ROR..&.. STAZ|
000006C0: 57 31 00 9F 26 EE 02 3B 00 B8 26 F8 02 20 4C 44 |W1..&..;..&.. LD|
000006D0: 58 23 24 44 30 3B 5A 45 49 43 48 45 4E 2D 52 4F |X#$D0;ZEICHEN-RO|
000006E0: 4D 00 C6 26 02 03 20 4C 44 41 24 44 30 31 38 00 |M..&.. LDA$D018.|
000006F0: D2 26 0C 03 20 41 4E 44 23 31 34 00 E5 26 16 03 |.&.. AND#14..&..|
00000700: 20 43 4D 50 23 34 3B 4E 4F 52 4D 41 4C 3F 00 F1 | CMP#4;NORMAL?..|
00000710: 26 20 03 20 42 45 51 4E 4F 52 00 F7 26 2A 03 3B |& . BEQNOR..&*.;|
00000720: 00 1F 27 34 03 20 4C 44 58 23 24 44 38 3B 5A 45 |..'4. LDX#$D8;ZE|
00000730: 49 43 48 45 4E 2D 52 4F 4D 20 28 4B 4C 45 49 4E |ICHEN-ROM (KLEIN|
00000740: 53 43 48 52 49 46 54 29 00 41 27 3E 03 20 43 4D |SCHRIFT).A'>. CM|
00000750: 50 23 36 3B 4E 4F 52 4D 41 4C 45 20 4B 4C 45 49 |P#6;NORMALE KLEI|
00000760: 4E 53 43 48 52 49 46 54 20 3F 00 4D 27 48 03 20 |NSCHRIFT ?.M'H. |
00000770: 42 45 51 4E 4F 52 00 53 27 52 03 3B 00 5C 27 5C |BEQNOR.S'R.;.\'\|
00000780: 03 20 41 53 4C 00 77 27 66 03 20 41 53 4C 3B 32 |. ASL.w'f. ASL;2|
00000790: 20 20 42 49 54 20 4E 41 43 48 20 4C 49 4E 4B 53 | BIT NACH LINKS|
000007A0: 00 83 27 70 03 20 4F 52 41 5A 57 31 00 8C 27 7A |..'p. ORAZW1..'z|
000007B0: 03 20 54 41 58 00 9E 27 84 03 4E 4F 52 20 53 54 |. TAX..'..NOR ST|
000007C0: 58 5A 45 49 43 2B 31 00 B9 27 8E 03 3B 2D 2D 2D |XZEIC+1..'..;---|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007E0: 2D 2D 00 C9 27 98 03 53 54 41 52 54 20 4C 44 41 |--..'..START LDA|
000007F0: 23 30 00 DB 27 A2 03 20 53 54 41 41 55 53 47 41 |#0..'.. STAAUSGA|
00000800: 42 45 2B 31 00 E1 27 AC 03 3B 00 F4 27 B6 03 4B |BE+1..'..;..'..K|
00000810: 4E 41 4B 20 4C 44 41 43 4F 55 4E 54 31 00 04 28 |NAK LDACOUNT1..(|
00000820: C0 03 20 42 4E 45 41 55 53 47 41 42 45 00 0A 28 |.. BNEAUSGABE..(|
00000830: CA 03 3B 00 25 28 D4 03 20 4C 44 41 23 31 33 3B |..;.%(.. LDA#13;|
00000840: 5A 45 49 4C 45 4E 56 4F 52 53 43 48 55 42 00 32 |ZEILENVORSCHUB.2|
00000850: 28 DE 03 20 4A 53 52 50 49 4E 53 00 5A 28 E8 03 |(.. JSRPINS.Z(..|
00000860: 20 4A 53 52 43 4C 52 43 48 3B 4B 45 49 4E 45 20 | JSRCLRCH;KEINE |
00000870: 44 52 55 43 4B 45 52 41 55 53 47 41 42 45 20 4D |DRUCKERAUSGABE M|
00000880: 45 48 52 00 6F 28 F2 03 20 4C 44 41 23 31 32 3B |EHR.o(.. LDA#12;|
00000890: 46 4C 2D 4E 55 4D 4D 45 00 7D 28 FC 03 20 4A 53 |FL-NUMME.}(.. JS|
000008A0: 52 43 4C 4F 53 45 00 96 28 06 04 53 43 4D 45 52 |RCLOSE..(..SCMER|
000008B0: 4B 20 4C 44 41 23 24 46 46 3B 44 55 4D 4D 59 00 |K LDA#$FF;DUMMY.|
000008C0: A2 28 10 04 20 53 54 41 36 34 38 00 B9 28 12 04 |.(.. STA648..(..|
000008D0: 52 49 52 4D 20 4C 44 41 23 24 46 46 3B 44 55 4D |RIRM LDA#$FF;DUM|
000008E0: 4D 59 00 E2 28 16 04 20 53 54 41 24 44 30 31 41 |MY..(.. STA$D01A|
000008F0: 3B 56 49 43 2D 49 4E 54 45 52 52 55 50 54 20 45 |;VIC-INTERRUPT E|
00000900: 52 4D 4F 45 47 4C 49 43 48 45 4E 00 EB 28 1A 04 |RMOEGLICHEN..(..|
00000910: 20 43 4C 49 00 01 29 24 04 20 52 54 53 3B 52 20 | CLI..)$. RTS;R |
00000920: 55 45 43 4B 53 50 52 55 4E 47 00 07 29 2E 04 3B |UECKSPRUNG..)..;|
00000930: 00 1D 29 38 04 41 55 53 47 41 42 45 20 4C 44 41 |..)8.AUSGABE LDA|
00000940: 53 43 52 45 45 4E 00 26 29 42 04 20 43 4C 43 00 |SCREEN.&)B. CLC.|
00000950: 31 29 4C 04 20 4C 44 58 23 30 00 3A 29 56 04 20 |1)L. LDX#0.:)V. |
00000960: 52 4F 4C 00 43 29 60 04 20 54 41 59 00 4C 29 6A |ROL.C)`. TAY.L)j|
00000970: 04 20 54 58 41 00 55 29 74 04 20 52 4F 4C 00 5E |. TXA.U)t. ROL.^|
00000980: 29 7E 04 20 54 41 58 00 67 29 88 04 20 54 59 41 |)~. TAX.g).. TYA|
00000990: 00 70 29 92 04 20 52 4F 4C 00 79 29 9C 04 20 54 |.p).. ROL.y).. T|
000009A0: 41 59 00 82 29 A6 04 20 54 58 41 00 8B 29 B0 04 |AY..).. TXA..)..|
000009B0: 20 52 4F 4C 00 94 29 BA 04 20 54 41 58 00 9D 29 | ROL..).. TAX..)|
000009C0: C4 04 20 54 59 41 00 A6 29 CE 04 20 52 4F 4C 00 |.. TYA..).. ROL.|
000009D0: AF 29 D8 04 20 54 41 59 00 B8 29 E2 04 20 54 58 |.).. TAY..).. TX|
000009E0: 41 00 C5 29 EC 04 20 52 4F 4C 3B 2A 20 38 00 CB |A..).. ROL;* 8..|
000009F0: 29 F6 04 3B 00 D4 29 00 05 20 43 4C 43 00 EB 29 |)..;..).. CLC..)|
00000A00: 0A 05 5A 45 49 43 20 41 44 43 23 24 46 46 3B 44 |..ZEIC ADC#$FF;D|
00000A10: 55 4D 4D 59 00 F8 29 14 05 20 53 54 41 5A 31 2B |UMMY..).. STAZ1+|
00000A20: 31 00 03 2A 1E 05 20 53 54 59 5A 31 00 09 2A 28 |1..*.. STYZ1..*(|
00000A30: 05 3B 00 0F 2A 32 05 3B 00 1A 2A 3C 05 20 4C 44 |.;..*2.;..*<. LD|
00000A40: 58 23 30 00 20 2A 46 05 3B 00 30 2A 50 05 4D 41 |X#0. *F.;.0*P.MA|
00000A50: 52 4B 33 20 4C 44 59 23 30 00 39 2A 5A 05 20 53 |RK3 LDY#0.9*Z. S|
00000A60: 45 49 00 46 2A 64 05 20 4C 44 41 23 24 33 31 00 |EI.F*d. LDA#$31.|
00000A70: 5B 2A 6E 05 20 53 54 41 31 3B 20 52 41 4D 2D 4B |[*n. STA1; RAM-K|
00000A80: 4F 4E 46 2E 00 68 2A 78 05 20 53 54 59 53 49 47 |ONF..h*x. STYSIG|
00000A90: 4E 00 7D 2A 82 05 4D 41 52 4B 20 4C 44 41 28 5A |N.}*..MARK LDA(Z|
00000AA0: 31 29 2C 59 3B CD 00 90 2A 8C 05 20 41 4E 44 42 |1),Y;...*.. ANDB|
00000AB0: 49 54 44 41 54 2C 58 3B A7 00 9F 2A 96 05 20 42 |ITDAT,X;...*.. B|
00000AC0: 45 51 4E 4F 52 50 3B A7 00 B8 2A A0 05 20 4C 44 |EQNORP;...*.. LD|
00000AD0: 41 42 49 54 44 41 54 2C 59 3B A7 20 20 42 59 54 |ABITDAT,Y;. BYT|
00000AE0: 45 00 CC 2A AA 05 4E 4F 52 50 20 4F 52 41 53 49 |E..*..NORP ORASI|
00000AF0: 47 4E 3B A7 C3 00 E3 2A B4 05 20 53 54 41 53 49 |GN;....*.. STASI|
00000B00: 47 4E 3B A7 20 20 4B 49 50 50 45 4E 00 EE 2A BE |GN;. KIPPEN..*.|
00000B10: 05 20 49 4E 59 3B A7 00 FB 2A C8 05 20 43 50 59 |. INY;...*.. CPY|
00000B20: 23 38 3B A7 00 0A 2B D2 05 20 42 4E 45 4D 41 52 |#8;...+.. BNEMAR|
00000B30: 4B 3B CE 00 17 2B DC 05 20 4C 44 59 4E 55 4D 45 |K;...+.. LDYNUME|
00000B40: 00 23 2B E6 05 20 53 54 59 5A 57 32 00 2F 2B F0 |.#+.. STYZW2./+.|
00000B50: 05 20 53 54 58 5A 57 31 00 35 2B FA 05 3B 00 42 |. STXZW1.5+..;.B|
00000B60: 2B 04 06 20 4C 44 41 23 24 33 37 00 4C 2B 0E 06 |+.. LDA#$37.L+..|
00000B70: 20 53 54 41 31 00 55 2B 18 06 20 43 4C 49 00 5B | STA1.U+.. CLI.[|
00000B80: 2B 22 06 3B 00 6B 2B 2C 06 4D 41 52 4B 32 20 4C |+".;.k+,.MARK2 L|
00000B90: 44 58 23 31 00 78 2B 36 06 20 4C 44 41 53 49 47 |DX#1.x+6. LDASIG|
00000BA0: 4E 00 8E 2B 40 06 20 4A 53 52 50 49 4E 53 3B 41 |N..+@. JSRPINS;A|
00000BB0: 55 53 44 52 55 43 4B 00 A1 2B 4A 06 20 44 45 43 |USDRUCK..+J. DEC|
00000BC0: 5A 57 32 3B 44 49 43 48 54 45 00 AF 2B 54 06 20 |ZW2;DICHTE..+T. |
00000BD0: 42 4E 45 4D 41 52 4B 32 00 BB 2B 5E 06 20 4C 44 |BNEMARK2..+^. LD|
00000BE0: 58 5A 57 31 00 D9 2B 68 06 20 49 4E 58 3B 4E 41 |XZW1..+h. INX;NA|
00000BF0: 45 43 48 53 54 45 20 50 49 58 45 4C 2D 52 45 49 |ECHSTE PIXEL-REI|
00000C00: 48 45 00 E4 2B 72 06 20 43 50 58 23 38 00 F2 2B |HE..+r. CPX#8..+|
00000C10: 7C 06 20 42 4E 45 4D 41 52 4B 33 00 F8 2B 86 06 ||. BNEMARK3..+..|
00000C20: 3B 00 FE 2B 90 06 3B 00 0D 2C 9A 06 20 44 45 43 |;..+..;..,.. DEC|
00000C30: 43 4F 55 4E 54 31 00 1F 2C A4 06 20 49 4E 43 41 |COUNT1..,.. INCA|
00000C40: 55 53 47 41 42 45 2B 31 00 38 2C AE 06 20 4A 4D |USGABE+1.8,.. JM|
00000C50: 50 4B 4E 41 4B 3B 52 55 45 43 4B 53 50 52 55 4E |PKNAK;RUECKSPRUN|
00000C60: 47 00 5B 2C 10 27 42 49 54 44 41 54 20 2E 42 59 |G.[,.'BITDAT .BY|
00000C70: 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 |128,64,32,16,8,4|
00000C80: 2C 32 2C 31 00 77 2C 1A 27 44 41 54 31 20 2E 42 |,2,1.w,.'DAT1 .B|
00000C90: 59 24 34 42 2C 24 35 39 2C 24 34 43 2C 24 35 41 |Y$4B,$59,$4C,$5A|
00000CA0: 00 93 2C 24 27 44 41 54 32 20 2E 42 59 24 45 30 |..,$'DAT2 .BY$E0|
00000CB0: 2C 24 43 30 2C 24 43 30 2C 24 38 30 00 A7 2C 2E |,$C0,$C0,$80..,.|
00000CC0: 27 44 41 54 33 20 2E 42 59 31 2C 33 2C 33 2C 37 |'DAT3 .BY1,3,3,7|
00000CD0: 00 BB 2C 38 27 44 41 54 34 20 2E 42 59 31 2C 32 |..,8'DAT4 .BY1,2|
00000CE0: 2C 32 2C 34 00 C3 2C 20 4E 2E 45 4E 00 CC 2C 40 |,2,4.., N.EN..,@|
00000CF0: 9C 54 45 58 54 00 D2 2C 50 C3 3B 00 D8 2C 51 C3 |.TEXT..,P.;..,Q.|
00000D00: 3B 00 DE 2C 52 C3 3B 00 04 2D 53 C3 3B 20 45 49 |;..,R.;..-S.; EI|
00000D10: 4E 20 50 52 4F 47 52 41 4D 4D 20 56 4F 4E 20 4F |N PROGRAMM VON O|
00000D20: 4C 49 56 45 52 20 4D 4F 45 4C 4C 45 52 00 0A 2D |LIVER MOELLER..-|
00000D30: 54 C3 3B 00 10 2D 55 C3 3B 00 16 2D 56 C3 3B 00 |T.;..-U.;..-V.;.|
00000D40: 00 00 |.. |
X......EQ SCREEN=$C700......EQ SID=54272
.. ...EQ COUNT2=COUNT1+1., ...EQ GETBYT=
$B79E.A ...EQ CHKCOM=$AEFD.V ...EQ CHRGO
T=$0079.K ...EQ CHRGET=$0073. ...EQ ERR
OR=$A437.. ...EQ PRINT=$AB1E.. ...EQ OPE
N=$FFC0.. ...EQ SETFLS=$FFBA.P ..EQ CHK
OUT=$FFC9.. "..EQ CLRCH=$FFCC.. $..EQ CL
OSE=$FFC3..!&..EQ PINS=$FFD2..!(..EQ DRU
CK=$AAA0.2!*..EQ HOME=$E566.F!,..EQ QUES
T=$AB45.[!...EQ SETNAM=$FFBD.A!2.;.T!4..
EQ ZW1=$69 ;...!6..EQ ZW2=$6A ;B..!8..EQ
NUME=$6B;B..!:..EQ SIGN=$6C;.IM ARG.F!<
..EQ Z1=$6D ;..Y!>.;ZERO-ADRESSE^..!@.;
..!B..EQ COUNT1=$61;ZAEHLER.."F.;---.."Z
..OB"ZEPPO,P,W".*"C..BA $C5A8;50600.F"D.
JSRCHKCOM;FOLGT KOMMA?.G"N. JSRGETBYT;D
RUCKDICHTE HOLEN.T"X. STXNUME.Z"..;.."..
CPX#5;SICHERHEITS-..".. BCSERR.." . CPX
#0;ABFRAGE..".. BNEOK.H"..ERR RTS.N"..;.
."H.OK LDA648;BILDSCHIRM.."R. STASCMERK+
1;MERKEN..#..;..#.. JSRCHKCOM;2.KOMMA./#
.. LDA#>(SCREEN).M#.. STA648;ERSATZ-BILD
SCHIRM.X#.. LDX#0.D#.. LDA#32..#..RMKT S
TASCREEN,X;Z.T.LOESCHEN..#". DEX..#,. BN
ERMKT..#6.;..#@. JSRHOME.W#J. JSRDRUCK;"
PRINT"-BEFEHL AUSFUEHREN..#T.;..#^.;..#H
. LDA$D01A..$M. STARIRM+1..$P. LDA#$F0.1
$Q. STA$D01A;VIC-INTERRUPT SPERREN.7$R.;
.O$W. SEI;KEIN INTERRUPT.K$|. LDA#12;LOG
. FILENUMMER..$.. LDX#4;GERAET=DRUCKER..
$.. LDY#0;SEK.AD..$.. JSRSETFLS;SETZEN.G
$.. LDA#0;KEIN'FILENAME'.V$.. JSRSETNAM.
.$..;..$B. JSROPEN..$L. LDX#12..%V. JSRC
HKOUT;AUSGABE AUF DATEI..%..;."%..;.5%..
LDA#27;ESCAPE.B%.. JSRPINS.Q%.. LDXNUME
;M.D%.. LDADAT1-1,X;..W%.. JSRPINS;.CODE
..%&. LDXNUME;. FUER..%0. LDADAT2-1,X;.
DRUCKER-..%:. JSRPINS;..E%D. LDXNUME;...
%N. LDADAT3-1,X;. (EPSON)..%X. JSRPINS;N
..%B.;..&L.MERKER LDA#60;60 ZEICHEN.!&V.
STACOUNT1.'&..;.8&.. LDADAT4-1,X.E&.. S
TANUME.S&.. LDA$DD00.^&.. AND#3.I&.. EOR
#3.R&.. CLC.{&F. ROR..&P. ROR..&Z. ROR..
&.. STAZW1..&..;..&.. LDX#$D0;ZEICHEN-RO
M.F&.. LDA$D018.R&.. AND#14..&.. CMP#4;N
ORMAL?..& . BEQNOR..&*.;..'4. LDX#$D8;ZE
ICHEN-ROM (KLEINSCHRIFT).A'>. CMP#6;NORM
ALE KLEINSCHRIFT ?.M'H. BEQNOR.S'R.;.\'\
. ASL.W'F. ASL;2 BIT NACH LINKS..'P. OR
AZW1..'Z. TAX..'..NOR STXZEIC+1..'..;---
------------------.I'..START LDA#0..'..
STAAUSGABE+1..'..;..'..KNAK LDACOUNT1..(
.. BNEAUSGABE..(J.;.%(T. LDA#13;ZEILENVO
RSCHUB.2(.. JSRPINS.Z(.. JSRCLRCH;KEINE
DRUCKERAUSGABE MEHR.O(.. LDA#12;FL-NUMME
.}(.. JSRCLOSE..(..SCMERK LDA#$FF;DUMMY.
.(.. STA648..(..RIRM LDA#$FF;DUMMY..(..
STA$D01A;VIC-INTERRUPT ERMOEGLICHEN..(..
CLI..)$. RTS;R UECKSPRUNG..)..;..)8.AUS
GABE LDASCREEN.&)B. CLC.1)L. LDX#0.:)V.
ROL.C)`. TAY.L)J. TXA.U)T. ROL.^)~. TAX.
G).. TYA.P).. ROL.Y).. TAY..).. TXA..)..
ROL..).. TAX..)D. TYA..)N. ROL..)X. TAY
..).. TXA.E).. ROL;* 8.K)..;.T).. CLC..)
..ZEIC ADC#$FF;DUMMY..).. STAZ1+1..*.. S
TYZ1..*(.;..*2.;..*<. LDX#0. *F.;.0*P.MA
RK3 LDY#0.9*Z. SEI.F*D. LDA#$31.[*N. STA
1; RAM-KONF..H*X. STYSIGN.}*..MARK LDA(Z
1),Y;M..*.. ANDBITDAT,X;...*.. BEQNORP;.
..* . LDABITDAT,Y;. BYTE.L*..NORP ORASI
GN;.C..*.. STASIGN;. KIPPEN..*.. INY;..
.*H. CPY#8;...+R. BNEMARK;N..+.. LDYNUME
.#+.. STYZW2./+.. STXZW1.5+..;.B+.. LDA#
$37.L+.. STA1.U+.. CLI.[+".;.K+,.MARK2 L
DX#1.X+6. LDASIGN..+@. JSRPINS;AUSDRUCK.
.+J. DECZW2;DICHTE..+T. BNEMARK2..+^. LD
XZW1.Y+H. INX;NAECHSTE PIXEL-REIHE..+R.
CPX#8..+|. BNEMARK3..+..;..+..;..,.. DEC
COUNT1..,.. INCAUSGABE+1.8,.. JMPKNAK;RU
ECKSPRUNG.[,.'BITDAT .BY128,64,32,16,8,4
,2,1.W,.'DAT1 .BY$4B,$59,$4C,$5A..,$'DAT
2 .BY$E0,$C0,$C0,$80..,.'DAT3 .BY1,3,3,7
..,8'DAT4 .BY1,2,2,4.C, N.EN.L,@.TEXT.R,
PC;.X,QC;..,RC;..-SC; EIN PROGRAMM VON O
LIVER MOELLER..-TC;..-UC;..-VC;...
> CLICK IMAGE PREVIEW FOR FULL MODAL