SPEED-COPY QUELL
FILE INFORMATION
FILENAME(S): SPEED-COPY QUELL
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 01:12:40
APPEARS ON: 2 disk(s)
FILE HASH
c6848fd30200ce3bb02853e7b11e35a8c885ec01e054d0db77f8878d09f56ce2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SH 11 86 I | SPEED-COPY QUELL | PRG | C64er | 29 | 1 | DOWNLOAD FILE |
| L686S11D VORD | SPEED-COPY QUELL | PRG | DuncanTwain | 6 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F DE 1F E8 03 3B 00 FB 1F F2 03 3B 20 2A 2A |......;.....; **|
00000010: 2A 2A 2A 20 53 50 45 45 44 2D 43 4F 50 59 20 2A |*** SPEED-COPY *|
00000020: 2A 2A 2A 2A 00 01 20 FC 03 3B 00 1B 20 06 04 3B |****.. ..;.. ..;|
00000030: 20 20 20 20 48 41 52 44 43 4F 50 59 2D 52 4F 55 | HARDCOPY-ROU|
00000040: 54 49 4E 45 00 3A 20 10 04 3B 20 4D 49 54 20 55 |TINE.: ..; MIT U|
00000050: 53 45 52 2D 44 45 46 2E 2D 43 48 41 52 41 43 54 |SER-DEF.-CHARACT|
00000060: 45 52 53 00 40 20 1A 04 3B 00 57 20 24 04 3B 20 |ERS.@ ..;.W $.; |
00000070: 20 20 20 20 20 20 53 54 41 52 20 53 47 2D 31 30 | STAR SG-10|
00000080: 00 5D 20 2E 04 3B 00 7B 20 38 04 3B 20 20 20 28 |.] ..;.{ 8.; (|
00000090: 43 29 20 31 39 38 36 20 42 59 20 4A 2E 20 4B 4E |C) 1986 BY J. KN|
000000A0: 41 55 45 52 00 81 20 42 04 3B 00 87 20 4C 04 3B |AUER.. B.;.. L.;|
000000B0: 00 8D 20 56 04 3B 00 9B 20 60 04 2E 42 41 20 24 |.. V.;.. `..BA $|
000000C0: 43 30 30 30 00 A1 20 6A 04 3B 00 B7 20 74 04 2E |C000.. j.;.. t..|
000000D0: 47 4C 20 42 53 4F 55 54 20 3D 20 24 46 46 44 32 |GL BSOUT = $FFD2|
000000E0: 00 CD 20 7E 04 2E 47 4C 20 4B 4F 4D 4D 41 20 3D |.. ~..GL KOMMA =|
000000F0: 20 24 41 45 46 44 00 E3 20 88 04 2E 47 4C 20 42 | $AEFD.. ...GL B|
00000100: 59 54 45 58 20 3D 20 24 42 37 39 45 00 F9 20 92 |YTEX = $B79E.. .|
00000110: 04 2E 47 4C 20 43 4B 4F 55 54 20 3D 20 24 46 46 |..GL CKOUT = $FF|
00000120: 43 39 00 FF 20 9C 04 3B 00 05 21 A6 04 3B 00 2D |C9.. ..;..!..;.-|
00000130: 21 B0 04 2E 47 4C 20 48 49 52 45 53 20 3D 20 24 |!...GL HIRES = $|
00000140: 32 30 30 30 20 20 3B 20 47 52 41 46 49 4B 53 50 |2000 ; GRAFIKSP|
00000150: 45 49 43 48 45 52 00 60 21 BA 04 2E 47 4C 20 47 |EICHER.`!...GL G|
00000160: 52 41 5A 47 20 3D 20 24 43 39 20 20 20 20 3B 20 |RAZG = $C9 ; |
00000170: 5A 45 49 47 45 52 20 41 55 46 20 47 52 41 46 49 |ZEIGER AUF GRAFI|
00000180: 4B 53 50 45 49 43 48 45 52 00 88 21 C4 04 2E 47 |KSPEICHER..!...G|
00000190: 4C 20 4D 41 53 4B 45 20 3D 20 24 42 44 20 20 20 |L MASKE = $BD |
000001A0: 20 3B 20 42 49 54 2D 54 45 53 54 2D 4D 41 53 4B | ; BIT-TEST-MASK|
000001B0: 45 00 B3 21 CE 04 2E 47 4C 20 53 50 41 4C 54 20 |E..!...GL SPALT |
000001C0: 3D 20 24 42 36 20 20 20 20 3B 20 45 52 52 45 43 |= $B6 ; ERREC|
000001D0: 48 4E 45 54 45 20 53 50 41 4C 54 45 00 E0 21 D8 |HNETE SPALTE..!.|
000001E0: 04 2E 47 4C 20 5A 45 49 4C 4E 20 3D 20 24 39 36 |..GL ZEILN = $96|
000001F0: 20 20 20 20 3B 20 5A 55 20 44 52 55 43 4B 45 4E | ; ZU DRUCKEN|
00000200: 44 45 20 5A 45 49 4C 45 4E 00 0A 22 E2 04 2E 47 |DE ZEILEN.."...G|
00000210: 4C 20 53 43 48 4C 45 20 3D 20 24 39 45 20 20 20 |L SCHLE = $9E |
00000220: 20 3B 20 53 43 48 4C 45 49 46 45 4E 5A 41 45 48 | ; SCHLEIFENZAEH|
00000230: 4C 45 52 00 10 22 EC 04 3B 00 16 22 F6 04 3B 00 |LER.."..;.."..;.|
00000240: 34 22 00 05 3B 20 2A 2A 2A 20 49 4E 49 54 49 41 |4"..; *** INITIA|
00000250: 4C 49 53 49 45 52 55 4E 47 20 2A 2A 2A 00 3A 22 |LISIERUNG ***.:"|
00000260: 0A 05 3B 00 40 22 0F 05 3B 00 62 22 14 05 49 4E |..;.@"..;.b"..IN|
00000270: 49 54 20 4A 53 52 4B 4F 4D 4D 41 3B 20 54 45 53 |IT JSRKOMMA; TES|
00000280: 54 20 41 55 46 20 4B 4F 4D 4D 41 00 8B 22 1E 05 |T AUF KOMMA.."..|
00000290: 20 4A 53 52 42 59 54 45 58 3B 20 46 49 4C 45 4E | JSRBYTEX; FILEN|
000002A0: 55 4D 4D 45 52 20 49 4E 53 20 58 2D 52 45 47 49 |UMMER INS X-REGI|
000002B0: 53 54 45 52 00 B5 22 28 05 20 4A 53 52 43 4B 4F |STER.."(. JSRCKO|
000002C0: 55 54 3B 20 41 55 53 47 41 42 45 47 45 52 41 45 |UT; AUSGABEGERAE|
000002D0: 54 20 53 45 54 5A 45 4E 20 28 43 4D 44 29 00 BB |T SETZEN (CMD)..|
000002E0: 22 32 05 3B 00 E2 22 3C 05 20 4C 44 41 23 3C 28 |"2.;.."<. LDA#<(|
000002F0: 48 49 52 45 53 29 3B 20 4C 4F 57 2D 42 59 54 45 |HIRES); LOW-BYTE|
00000300: 20 44 45 52 20 47 52 41 46 49 4B 00 0A 23 46 05 | DER GRAFIK..#F.|
00000310: 20 4C 44 59 23 3E 28 48 49 52 45 53 29 3B 20 48 | LDY#>(HIRES); H|
00000320: 49 47 48 2D 42 59 54 45 20 44 45 52 20 47 52 41 |IGH-BYTE DER GRA|
00000330: 46 49 4B 00 18 23 50 05 20 53 54 41 47 52 41 5A |FIK..#P. STAGRAZ|
00000340: 47 00 28 23 5A 05 20 53 54 59 47 52 41 5A 47 2B |G.(#Z. STYGRAZG+|
00000350: 31 00 2E 23 64 05 3B 00 51 23 6E 05 20 4C 44 41 |1..#d.;.Q#n. LDA|
00000360: 23 24 38 30 3B 20 4D 41 53 4B 45 20 49 4E 49 54 |#$80; MASKE INIT|
00000370: 49 41 4C 49 53 49 45 52 45 4E 00 70 23 78 05 20 |IALISIEREN.p#x. |
00000380: 53 54 41 4D 41 53 4B 45 3B 20 20 28 20 25 31 30 |STAMASKE; ( %10|
00000390: 30 30 20 30 30 30 30 20 29 00 76 23 82 05 3B 00 |00 0000 ).v#..;.|
000003A0: 94 23 8C 05 20 4A 53 52 4B 4F 4D 4D 41 3B 20 54 |.#.. JSRKOMMA; T|
000003B0: 45 53 54 20 41 55 46 20 4B 4F 4D 4D 41 00 B1 23 |EST AUF KOMMA..#|
000003C0: 96 05 20 4A 53 52 42 59 54 45 58 3B 20 4E 4F 52 |.. JSRBYTEX; NOR|
000003D0: 4D 41 4C 2F 49 4E 56 45 52 53 00 D0 23 A0 05 20 |MAL/INVERS..#.. |
000003E0: 4C 44 41 23 24 30 30 3B 20 4E 4F 52 4D 41 4C 45 |LDA#$00; NORMALE|
000003F0: 20 48 41 52 44 43 4F 50 59 00 DE 23 AA 05 20 53 | HARDCOPY..#.. S|
00000400: 54 41 45 4F 52 2B 31 00 F9 23 B4 05 20 44 45 58 |TAEOR+1..#.. DEX|
00000410: 3B 20 58 20 44 45 43 52 45 4D 45 4E 54 49 45 52 |; X DECREMENTIER|
00000420: 45 4E 00 2A 24 BE 05 20 42 50 4C 57 45 49 54 45 |EN.*$.. BPLWEITE|
00000430: 52 3B 20 57 45 4E 4E 20 44 45 52 20 49 4E 48 41 |R; WENN DER INHA|
00000440: 4C 54 20 3E 20 30 20 57 41 52 2C 20 44 41 4E 4E |LT > 0 WAR, DANN|
00000450: 20 4F 4B 00 50 24 C8 05 20 44 45 43 45 4F 52 2B | OK.P$.. DECEOR+|
00000460: 31 3B 20 53 4F 4E 53 54 20 49 4E 56 45 52 53 45 |1; SONST INVERSE|
00000470: 20 48 41 52 44 43 4F 50 59 00 56 24 D2 05 3B 00 | HARDCOPY.V$..;.|
00000480: 68 24 DC 05 57 45 49 54 45 52 20 4C 44 41 23 32 |h$..WEITER LDA#2|
00000490: 34 00 8B 24 E6 05 20 53 54 41 5A 45 49 4C 4E 3B |4..$.. STAZEILN;|
000004A0: 20 5A 55 20 44 52 55 43 4B 45 4E 44 45 20 5A 45 | ZU DRUCKENDE ZE|
000004B0: 49 4C 45 4E 00 91 24 F0 05 3B 00 C3 24 FA 05 20 |ILEN..$..;..$.. |
000004C0: 4C 44 59 23 31 39 3B 20 32 30 20 53 54 45 55 45 |LDY#19; 20 STEUE|
000004D0: 52 5A 45 49 43 48 45 4E 20 5A 55 52 20 49 4E 49 |RZEICHEN ZUR INI|
000004E0: 54 49 41 4C 49 53 49 45 52 55 4E 47 00 F9 24 04 |TIALISIERUNG..$.|
000004F0: 06 2E 42 59 20 24 32 43 20 20 20 20 20 20 20 20 |..BY $2C |
00000500: 20 20 20 20 20 20 20 20 20 20 3B 20 56 45 52 53 | ; VERS|
00000510: 54 45 43 4B 54 45 52 20 42 49 54 2D 42 45 46 45 |TECKTER BIT-BEFE|
00000520: 48 4C 00 FF 24 0E 06 3B 00 05 25 18 06 3B 00 21 |HL..$..;..%..;.!|
00000530: 25 22 06 3B 20 2A 2A 2A 20 48 41 55 50 54 50 52 |%".; *** HAUPTPR|
00000540: 4F 47 52 41 4D 4D 20 2A 2A 2A 00 27 25 2C 06 3B |OGRAMM ***.'%,.;|
00000550: 00 2D 25 36 06 3B 00 5F 25 40 06 48 50 47 20 4C |.-%6.;._%@.HPG L|
00000560: 44 59 23 34 3B 20 35 20 53 54 45 55 45 52 5A 45 |DY#4; 5 STEUERZE|
00000570: 49 43 48 45 4E 20 5A 55 52 20 55 44 43 2D 44 45 |ICHEN ZUR UDC-DE|
00000580: 46 49 4E 49 54 49 4F 4E 00 7F 25 4A 06 4C 4F 4F |FINITION..%J.LOO|
00000590: 50 31 20 4C 44 41 43 4F 44 45 31 2C 59 3B 20 43 |P1 LDACODE1,Y; C|
000005A0: 4F 44 45 20 3D 3E 20 41 00 9D 25 54 06 20 4A 53 |ODE => A..%T. JS|
000005B0: 52 42 53 4F 55 54 3B 20 55 4E 44 20 41 4E 20 44 |RBSOUT; UND AN D|
000005C0: 52 55 43 4B 45 52 00 B5 25 5E 06 20 44 45 59 3B |RUCKER..%^. DEY;|
000005D0: 20 5A 41 45 48 4C 45 52 20 44 45 43 52 2E 00 E1 | ZAEHLER DECR...|
000005E0: 25 68 06 20 42 50 4C 4C 4F 4F 50 31 3B 20 57 45 |%h. BPLLOOP1; WE|
000005F0: 4E 4E 20 4E 4F 43 48 20 4E 49 43 48 54 20 46 45 |NN NOCH NICHT FE|
00000600: 52 54 49 47 2C 20 44 41 4E 4E 00 E7 25 72 06 3B |RTIG, DANN..%r.;|
00000610: 00 05 26 7C 06 20 4C 44 58 23 35 32 3B 20 35 33 |..&|. LDX#52; 53|
00000620: 20 53 4F 4E 44 45 52 5A 45 49 43 48 45 4E 00 2D | SONDERZEICHEN.-|
00000630: 26 86 06 4C 4F 4F 50 32 20 4C 44 41 23 31 33 39 |&..LOOP2 LDA#139|
00000640: 3B 20 41 54 54 52 49 42 55 54 42 59 54 45 20 44 |; ATTRIBUTBYTE D|
00000650: 45 53 20 55 44 43 00 4E 26 90 06 20 4A 53 52 42 |ES UDC.N&.. JSRB|
00000660: 53 4F 55 54 3B 20 41 4E 20 44 52 55 43 4B 45 52 |SOUT; AN DRUCKER|
00000670: 20 53 45 4E 44 45 4E 00 54 26 9A 06 3B 00 6F 26 | SENDEN.T&..;.o&|
00000680: A4 06 20 4C 44 41 23 34 3B 20 35 20 53 50 41 4C |.. LDA#4; 5 SPAL|
00000690: 54 45 4E 20 44 45 46 2E 00 7D 26 AE 06 20 53 54 |TEN DEF..}&.. ST|
000006A0: 41 53 43 48 4C 45 00 AD 26 B8 06 4C 4F 4F 50 33 |ASCHLE..&..LOOP3|
000006B0: 20 4A 53 52 53 50 44 45 46 3B 20 53 50 41 4C 54 | JSRSPDEF; SPALT|
000006C0: 45 20 42 45 52 45 43 48 4E 45 4E 20 55 4E 44 20 |E BERECHNEN UND |
000006D0: 53 45 4E 44 45 4E 00 D1 26 C2 06 20 4C 44 41 23 |SENDEN..&.. LDA#|
000006E0: 30 3B 20 4C 45 45 52 45 20 53 50 41 4C 54 45 20 |0; LEERE SPALTE |
000006F0: 41 4E 20 44 52 55 43 4B 45 52 00 DF 26 CC 06 20 |AN DRUCKER..&.. |
00000700: 4A 53 52 42 53 4F 55 54 00 FC 26 D6 06 20 44 45 |JSRBSOUT..&.. DE|
00000710: 43 53 43 48 4C 45 3B 20 5A 41 45 48 4C 45 52 20 |CSCHLE; ZAEHLER |
00000720: 44 45 43 52 2E 00 28 27 E0 06 20 42 50 4C 4C 4F |DECR..('.. BPLLO|
00000730: 4F 50 33 3B 20 57 45 4E 4E 20 4E 4F 43 48 20 4E |OP3; WENN NOCH N|
00000740: 49 43 48 54 20 46 45 52 54 49 47 2C 20 44 41 4E |ICHT FERTIG, DAN|
00000750: 4E 00 2E 27 EA 06 3B 00 52 27 F4 06 20 4A 53 52 |N..'..;.R'.. JSR|
00000760: 53 50 44 45 46 3B 20 4C 45 54 5A 54 45 20 53 50 |SPDEF; LETZTE SP|
00000770: 41 4C 54 45 20 49 4D 20 55 44 43 00 70 27 FE 06 |ALTE IM UDC.p'..|
00000780: 20 44 45 58 3B 20 45 49 4E 20 5A 45 49 43 48 45 | DEX; EIN ZEICHE|
00000790: 4E 20 57 45 4E 49 47 45 52 00 8E 27 08 07 20 42 |N WENIGER..'.. B|
000007A0: 50 4C 4C 4F 4F 50 32 3B 20 35 33 20 47 45 53 43 |PLLOOP2; 53 GESC|
000007B0: 48 41 46 46 54 20 3F 00 94 27 12 07 3B 00 C0 27 |HAFFT ?..'..;..'|
000007C0: 1C 07 20 4C 44 41 23 31 33 39 3B 20 41 54 54 52 |.. LDA#139; ATTR|
000007D0: 49 42 55 54 42 59 54 45 20 46 55 45 52 20 35 34 |IBUTBYTE FUER 54|
000007E0: 2E 20 5A 45 49 43 48 45 4E 00 CE 27 26 07 20 4A |. ZEICHEN..'&. J|
000007F0: 53 52 42 53 4F 55 54 00 D4 27 30 07 3B 00 FA 27 |SRBSOUT..'0.;..'|
00000800: 44 07 20 4A 53 52 53 50 44 45 46 3B 20 31 2E 20 |D. JSRSPDEF; 1. |
00000810: 53 50 41 4C 54 45 20 44 45 53 20 5A 45 49 43 48 |SPALTE DES ZEICH|
00000820: 45 4E 53 00 1A 28 4E 07 20 4C 44 41 23 30 3B 20 |ENS..(N. LDA#0; |
00000830: 55 4E 44 20 45 49 4E 45 20 4C 45 45 52 53 50 41 |UND EINE LEERSPA|
00000840: 4C 54 45 00 28 28 58 07 20 4A 53 52 42 53 4F 55 |LTE.((X. JSRBSOU|
00000850: 54 00 3C 28 62 07 20 4A 53 52 53 50 44 45 46 3B |T.<(b. JSRSPDEF;|
00000860: 20 53 2E 4F 2E 00 47 28 67 07 20 4C 44 41 23 30 | S.O..G(g. LDA#0|
00000870: 00 55 28 6C 07 20 4A 53 52 42 53 4F 55 54 00 5B |.U(l. JSRBSOUT.[|
00000880: 28 76 07 3B 00 7D 28 80 07 20 4C 44 59 23 38 3B |(v.;.}(.. LDY#8;|
00000890: 20 44 49 45 20 4C 45 54 5A 54 45 4E 20 34 20 53 | DIE LETZTEN 4 S|
000008A0: 50 41 4C 54 45 4E 00 B0 28 8A 07 4C 4F 4F 50 34 |PALTEN..(..LOOP4|
000008B0: 20 4A 53 52 42 53 4F 55 54 3B 20 20 44 45 53 20 | JSRBSOUT; DES |
000008C0: 4C 45 54 5A 54 45 4E 20 5A 45 49 43 48 45 4E 53 |LETZTEN ZEICHENS|
000008D0: 20 28 20 4C 45 45 52 20 29 00 B9 28 94 07 20 44 | ( LEER )..(.. D|
000008E0: 45 59 00 C7 28 9E 07 20 42 4E 45 4C 4F 4F 50 34 |EY..(.. BNELOOP4|
000008F0: 00 CD 28 A8 07 3B 00 D3 28 B2 07 3B 00 F3 28 BC |..(..;..(..;..(.|
00000900: 07 20 4C 44 59 23 33 33 3B 20 44 45 46 49 4E 49 |. LDY#33; DEFINI|
00000910: 45 52 54 45 20 5A 45 49 43 48 45 4E 00 21 29 C6 |ERTE ZEICHEN.!).|
00000920: 07 4C 4F 4F 50 35 20 54 59 41 3B 20 28 20 41 53 |.LOOP5 TYA; ( AS|
00000930: 43 49 49 20 33 33 20 42 49 53 20 38 35 20 29 20 |CII 33 BIS 85 ) |
00000940: 41 55 53 44 52 55 43 4B 45 4E 00 2F 29 D0 07 20 |AUSDRUCKEN./).. |
00000950: 4A 53 52 42 53 4F 55 54 00 38 29 DA 07 20 49 4E |JSRBSOUT.8).. IN|
00000960: 59 00 44 29 E4 07 20 43 4D 50 23 38 36 00 52 29 |Y.D).. CMP#86.R)|
00000970: EE 07 20 42 4E 45 4C 4F 4F 50 35 00 58 29 F3 07 |.. BNELOOP5.X)..|
00000980: 3B 00 78 29 F8 07 20 44 45 43 5A 45 49 4C 4E 3B |;.x).. DECZEILN;|
00000990: 20 5A 45 49 4C 45 4E 5A 41 48 4C 20 44 45 43 52 | ZEILENZAHL DECR|
000009A0: 2E 00 99 29 02 08 20 42 50 4C 48 50 47 3B 20 46 |...).. BPLHPG; F|
000009B0: 45 52 54 49 47 20 3F 20 4E 45 49 4E 2C 20 44 41 |ERTIG ? NEIN, DA|
000009C0: 4E 4E 00 9F 29 16 08 3B 00 B1 29 20 08 20 4C 44 |NN..)..;..) . LD|
000009D0: 41 23 31 33 3B 20 3C 43 52 3E 00 C8 29 2A 08 20 |A#13; <CR>..)*. |
000009E0: 4A 53 52 42 53 4F 55 54 3B 20 20 53 45 4E 44 45 |JSRBSOUT; SENDE|
000009F0: 4E 00 DC 29 3E 08 20 4A 4D 50 24 46 46 43 43 3B |N..)>. JMP$FFCC;|
00000A00: 20 45 4E 44 45 00 E2 29 48 08 3B 00 E8 29 52 08 | ENDE..)H.;..)R.|
00000A10: 3B 00 0D 2A 5C 08 3B 20 2A 2A 2A 20 38 2D 42 49 |;..*\.; *** 8-BI|
00000A20: 54 2D 53 50 41 4C 54 45 20 42 45 52 45 43 48 4E |T-SPALTE BERECHN|
00000A30: 45 4E 20 2A 2A 2A 00 13 2A 66 08 3B 00 19 2A 70 |EN ***..*f.;..*p|
00000A40: 08 3B 00 3A 2A 7A 08 53 50 44 45 46 20 4C 44 41 |.;.:*z.SPDEF LDA|
00000A50: 23 30 3B 20 53 50 41 4C 54 45 20 4C 4F 45 53 43 |#0; SPALTE LOESC|
00000A60: 48 45 4E 00 48 2A 84 08 20 53 54 41 53 50 41 4C |HEN.H*.. STASPAL|
00000A70: 54 00 4E 2A 8E 08 3B 00 61 2A 98 08 20 4C 44 59 |T.N*..;.a*.. LDY|
00000A80: 23 37 3B 20 38 20 42 49 54 53 00 90 2A A2 08 4C |#7; 8 BITS..*..L|
00000A90: 4F 4F 50 36 20 4C 44 41 28 47 52 41 5A 47 29 2C |OOP6 LDA(GRAZG),|
00000AA0: 59 3B 20 5A 55 47 45 48 4F 45 52 49 47 45 53 20 |Y; ZUGEHOERIGES |
00000AB0: 42 59 54 45 20 3D 3E 20 41 00 B7 2A AC 08 45 4F |BYTE => A..*..EO|
00000AC0: 52 20 45 4F 52 23 24 30 30 3B 20 45 56 45 4E 54 |R EOR#$00; EVENT|
00000AD0: 55 45 4C 4C 20 49 4E 56 45 52 54 49 45 52 45 4E |UELL INVERTIEREN|
00000AE0: 00 E3 2A B6 08 20 41 4E 44 4D 41 53 4B 45 3B 20 |..*.. ANDMASKE; |
00000AF0: 45 4E 54 53 50 52 45 43 48 45 4E 44 45 53 20 42 |ENTSPRECHENDES B|
00000B00: 49 54 20 47 45 53 45 54 5A 54 20 3F 00 F4 2A C0 |IT GESETZT ?..*.|
00000B10: 08 20 42 45 51 4D 31 3B 20 4E 45 49 4E 00 FA 2A |. BEQM1; NEIN..*|
00000B20: CA 08 3B 00 25 2B D4 08 20 4C 44 41 53 50 41 4C |..;.%+.. LDASPAL|
00000B30: 54 3B 20 4A 41 2C 20 44 41 4E 4E 20 45 4E 54 53 |T; JA, DANN ENTS|
00000B40: 50 52 45 43 48 45 4E 44 45 53 20 42 49 54 00 55 |PRECHENDES BIT.U|
00000B50: 2B DE 08 20 4F 52 41 43 4F 44 45 32 2C 59 3B 20 |+.. ORACODE2,Y; |
00000B60: 20 49 4D 20 5A 57 49 53 43 48 45 4E 53 50 45 49 | IM ZWISCHENSPEI|
00000B70: 43 48 45 52 20 46 55 45 52 20 45 49 4E 45 00 75 |CHER FUER EINE.u|
00000B80: 2B E8 08 20 53 54 41 53 50 41 4C 54 3B 20 20 20 |+.. STASPALT; |
00000B90: 53 50 41 4C 54 45 20 53 45 54 5A 54 45 4E 00 7B |SPALTE SETZTEN.{|
00000BA0: 2B F2 08 3B 00 AA 2B FC 08 4D 31 20 44 45 59 3B |+..;..+..M1 DEY;|
00000BB0: 20 4E 41 45 43 48 53 54 45 53 20 42 59 54 45 20 | NAECHSTES BYTE |
00000BC0: 42 5A 57 2E 20 42 49 54 20 49 4E 20 42 49 54 2D |BZW. BIT IN BIT-|
00000BD0: 4D 41 50 00 B8 2B 06 09 20 42 50 4C 4C 4F 4F 50 |MAP..+.. BPLLOOP|
00000BE0: 36 00 BE 2B 10 09 3B 00 E6 2B 1A 09 20 4C 44 41 |6..+..;..+.. LDA|
00000BF0: 53 50 41 4C 54 3B 20 42 45 52 45 43 48 4E 45 54 |SPALT; BERECHNET|
00000C00: 45 20 53 50 41 4C 54 45 20 53 45 4E 44 45 4E 00 |E SPALTE SENDEN.|
00000C10: F4 2B 24 09 20 4A 53 52 42 53 4F 55 54 00 FA 2B |.+$. JSRBSOUT..+|
00000C20: 2E 09 3B 00 35 2C 38 09 20 52 4F 52 4D 41 53 4B |..;.5,8. RORMASK|
00000C30: 45 3B 20 56 45 52 47 4C 45 49 43 48 53 42 49 54 |E; VERGLEICHSBIT|
00000C40: 20 49 4E 20 4D 41 53 4B 45 20 4E 41 43 48 20 52 | IN MASKE NACH R|
00000C50: 45 43 48 54 53 20 53 43 48 49 45 42 45 4E 00 64 |ECHTS SCHIEBEN.d|
00000C60: 2C 42 09 20 42 43 43 52 45 54 55 52 4E 3B 20 38 |,B. BCCRETURN; 8|
00000C70: 20 42 49 54 53 20 42 45 41 52 42 45 49 54 45 54 | BITS BEARBEITET|
00000C80: 20 3F 20 4E 45 49 4E 2C 20 44 41 4E 4E 00 A0 2C | ? NEIN, DANN..,|
00000C90: 4C 09 20 52 4F 52 4D 41 53 4B 45 3B 20 4A 41 2C |L. RORMASKE; JA,|
00000CA0: 20 44 41 4E 4E 20 56 45 52 47 4C 45 49 43 48 53 | DANN VERGLEICHS|
00000CB0: 42 49 54 20 57 49 45 44 45 52 20 41 4E 20 31 2E |BIT WIEDER AN 1.|
00000CC0: 20 50 4F 53 49 54 49 4F 4E 00 A6 2C 56 09 3B 00 | POSITION..,V.;.|
00000CD0: DD 2C 60 09 20 4C 44 41 47 52 41 5A 47 3B 20 47 |.,`. LDAGRAZG; G|
00000CE0: 52 41 46 49 4B 5A 45 49 47 45 52 20 55 4D 20 38 |RAFIKZEIGER UM 8|
00000CF0: 20 45 52 48 4F 45 48 45 4E 20 28 20 4C 4F 57 2D | ERHOEHEN ( LOW-|
00000D00: 42 59 54 45 20 29 00 E8 2C 6A 09 20 41 44 43 23 |BYTE )..,j. ADC#|
00000D10: 38 00 F6 2C 74 09 20 53 54 41 47 52 41 5A 47 00 |8..,t. STAGRAZG.|
00000D20: 1D 2D 7E 09 20 42 43 43 52 45 54 55 52 4E 3B 20 |.-~. BCCRETURN; |
00000D30: 55 45 42 45 52 54 52 41 47 20 3F 20 4E 45 49 4E |UEBERTRAG ? NEIN|
00000D40: 2C 20 44 41 4E 4E 00 48 2D 88 09 20 49 4E 43 47 |, DANN.H-.. INCG|
00000D50: 52 41 5A 47 2B 31 3B 20 20 53 4F 4E 53 54 20 48 |RAZG+1; SONST H|
00000D60: 49 47 48 2D 42 59 54 45 20 45 52 48 4F 45 48 45 |IGH-BYTE ERHOEHE|
00000D70: 4E 00 4E 2D 92 09 3B 00 66 2D 9C 09 52 45 54 55 |N.N-..;.f-..RETU|
00000D80: 52 4E 20 52 54 53 3B 20 5A 55 52 55 45 43 4B 00 |RN RTS; ZURUECK.|
00000D90: 6C 2D B0 09 3B 00 72 2D BA 09 3B 00 8C 2D C4 09 |l-..;.r-..;..-..|
00000DA0: 3B 20 2A 2A 2A 20 53 54 45 55 45 52 43 4F 44 45 |; *** STEUERCODE|
00000DB0: 53 20 2A 2A 2A 00 92 2D CE 09 3B 00 98 2D D8 09 |S ***..-..;..-..|
00000DC0: 3B 00 B4 2D E2 09 43 4F 44 45 31 20 2E 42 59 38 |;..-..CODE1 .BY8|
00000DD0: 36 2C 33 33 2C 31 2C 22 2A 22 2C 32 37 00 C5 2D |6,33,1,"*",27..-|
00000DE0: EC 09 2E 42 59 20 31 2C 22 24 22 2C 32 37 00 D6 |...BY 1,"$",27..|
00000DF0: 2D F6 09 2E 42 59 20 30 2C 22 2A 22 2C 32 37 00 |-...BY 0,"*",27.|
00000E00: E7 2D 00 0A 2E 42 59 20 38 2C 22 41 22 2C 32 37 |.-...BY 8,"A",27|
00000E10: 00 F9 2D 0A 0A 2E 42 59 20 36 38 2C 22 51 22 2C |..-...BY 68,"Q",|
00000E20: 32 37 00 0B 2E 14 0A 2E 42 59 20 31 33 2C 22 4D |27......BY 13,"M|
00000E30: 22 2C 32 37 00 11 2E 1E 0A 3B 00 17 2E 28 0A 3B |",27.....;...(.;|
00000E40: 00 39 2E 32 0A 43 4F 44 45 32 20 2E 42 59 31 32 |.9.2.CODE2 .BY12|
00000E50: 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 |8,64,32,16,8,4,2|
00000E60: 2C 31 00 3F 2E 3C 0A 3B 00 45 2E 46 0A 3B 00 58 |,1.?.<.;.E.F.;.X|
00000E70: 2E 50 0A 3B 20 2A 2A 2A 20 45 4E 44 45 20 2A 2A |.P.; *** ENDE **|
00000E80: 2A 00 5E 2E 5A 0A 3B 00 64 2E 64 0A 3B 00 00 00 |*.^.Z.;.d.d.;...|
X.....;.....; ***** SPEED-COPY *****.. .
.;.. ..; HARDCOPY-ROUTINE.: ..; MIT U
SER-DEF.-CHARACTERS.@ ..;.W $.; ST
AR SG-10.] ..;.{ 8.; (C) 1986 BY J. KN
AUER.. B.;.. L.;.. V.;.. `..BA $C000.. J
.;.. T..GL BSOUT = $FFD2.M ~..GL KOMMA =
$AEFD.. ...GL BYTEX = $B79E.. ...GL CKO
UT = $FFC9.. ..;..!..;.-!...GL HIRES = $
2000 ; GRAFIKSPEICHER.`!...GL GRAZG = $
C9 ; ZEIGER AUF GRAFIKSPEICHER..!D..G
L MASKE = $BD ; BIT-TEST-MASKE..!N..G
L SPALT = $B6 ; ERRECHNETE SPALTE..!X
..GL ZEILN = $96 ; ZU DRUCKENDE ZEILE
N.."...GL SCHLE = $9E ; SCHLEIFENZAEH
LER.."..;.."..;.4"..; *** INITIALISIERUN
G ***.:"..;.@"..;.B"..INIT JSRKOMMA; TES
T AUF KOMMA..".. JSRBYTEX; FILENUMMER IN
S X-REGISTER.."(. JSRCKOUT; AUSGABEGERAE
T SETZEN (CMD).."2.;.."<. LDA#<(HIRES);
LOW-BYTE DER GRAFIK..#F. LDY#>(HIRES); H
IGH-BYTE DER GRAFIK..#P. STAGRAZG.(#Z. S
TYGRAZG+1..#D.;.Q#N. LDA#$80; MASKE INIT
IALISIEREN.P#X. STAMASKE; ( %1000 0000
).V#..;..#.. JSRKOMMA; TEST AUF KOMMA..#
.. JSRBYTEX; NORMAL/INVERS.P# . LDA#$00;
NORMALE HARDCOPY..#.. STAEOR+1..#.. DEX
; X DECREMENTIEREN.*$.. BPLWEITER; WENN
DER INHALT > 0 WAR, DANN OK.P$H. DECEOR+
1; SONST INVERSE HARDCOPY.V$R.;.H$..WEIT
ER LDA#24..$.. STAZEILN; ZU DRUCKENDE ZE
ILEN..$..;.C$.. LDY#19; 20 STEUERZEICHEN
ZUR INITIALISIERUNG..$...BY $2C
; VERSTECKTER BIT-BEFEHL..$..;
..%..;.!%".; *** HAUPTPROGRAMM ***.'%,.;
.-%6.;._%@.HPG LDY#4; 5 STEUERZEICHEN ZU
R UDC-DEFINITION.%J.LOOP1 LDACODE1,Y; C
ODE => A..%T. JSRBSOUT; UND AN DRUCKER..
%^. DEY; ZAEHLER DECR...%H. BPLLOOP1; WE
NN NOCH NICHT FERTIG, DANN..%R.;..&|. LD
X#52; 53 SONDERZEICHEN.-&..LOOP2 LDA#139
; ATTRIBUTBYTE DES UDC.N&.. JSRBSOUT; AN
DRUCKER SENDEN.T&..;.O&.. LDA#4; 5 SPAL
TEN DEF..}&.. STASCHLE..&..LOOP3 JSRSPDE
F; SPALTE BERECHNEN UND SENDEN.Q&B. LDA#
0; LEERE SPALTE AN DRUCKER..&L. JSRBSOUT
..&V. DECSCHLE; ZAEHLER DECR..('.. BPLLO
OP3; WENN NOCH NICHT FERTIG, DANN..'..;.
R'.. JSRSPDEF; LETZTE SPALTE IM UDC.P'..
DEX; EIN ZEICHEN WENIGER..'.. BPLLOOP2;
53 GESCHAFFT ?..'..;..'.. LDA#139; ATTR
IBUTBYTE FUER 54. ZEICHEN.N'&. JSRBSOUT.
T'0.;..'D. JSRSPDEF; 1. SPALTE DES ZEICH
ENS..(N. LDA#0; UND EINE LEERSPALTE.((X.
JSRBSOUT.<(B. JSRSPDEF; S.O..G(G. LDA#0
.U(L. JSRBSOUT.[(V.;.}(.. LDY#8; DIE LET
ZTEN 4 SPALTEN..(..LOOP4 JSRBSOUT; DES
LETZTEN ZEICHENS ( LEER )..(.. DEY.G(..
BNELOOP4.M(..;.S(..;..(.. LDY#33; DEFINI
ERTE ZEICHEN.!)F.LOOP5 TYA; ( ASCII 33 B
IS 85 ) AUSDRUCKEN./)P. JSRBSOUT.8)Z. IN
Y.D).. CMP#86.R).. BNELOOP5.X)..;.X).. D
ECZEILN; ZEILENZAHL DECR...).. BPLHPG; F
ERTIG ? NEIN, DANN..)..;..) . LDA#13; <C
R>.H)*. JSRBSOUT; SENDEN..)>. JMP$FFCC;
ENDE..)H.;..)R.;..*\.; *** 8-BIT-SPALTE
BERECHNEN ***..*F.;..*P.;.:*Z.SPDEF LDA
#0; SPALTE LOESCHEN.H*.. STASPALT.N*..;.
A*.. LDY#7; 8 BITS..*..LOOP6 LDA(GRAZG),
Y; ZUGEHOERIGES BYTE => A..*..EOR EOR#$0
0; EVENTUELL INVERTIEREN..*.. ANDMASKE;
ENTSPRECHENDES BIT GESETZT ?..*.. BEQM1;
NEIN..*J.;.%+T. LDASPALT; JA, DANN ENTS
PRECHENDES BIT.U+.. ORACODE2,Y; IM ZWIS
CHENSPEICHER FUER EINE.U+.. STASPALT;
SPALTE SETZTEN.{+..;..+..M1 DEY; NAECHST
ES BYTE BZW. BIT IN BIT-MAP..+.. BPLLOOP
6..+..;..+.. LDASPALT; BERECHNETE SPALTE
SENDEN..+$. JSRBSOUT..+..;.5,8. RORMASK
E; VERGLEICHSBIT IN MASKE NACH RECHTS SC
HIEBEN.D,B. BCCRETURN; 8 BITS BEARBEITET
? NEIN, DANN. ,L. RORMASKE; JA, DANN VE
RGLEICHSBIT WIEDER AN 1. POSITION..,V.;.
.,`. LDAGRAZG; GRAFIKZEIGER UM 8 ERHOEHE
N ( LOW-BYTE )..,J. ADC#8..,T. STAGRAZG.
.-~. BCCRETURN; UEBERTRAG ? NEIN, DANN.H
-.. INCGRAZG+1; SONST HIGH-BYTE ERHOEHE
N.N-..;.F-..RETURN RTS; ZURUECK.L-..;.R-
..;..-D.; *** STEUERCODES ***..-N.;..-X.
;..-..CODE1 .BY86,33,1,"*",27.E-...BY 1,
"$",27.V-...BY 0,"*",27..-...BY 8,"A",27
..-...BY 68,"Q",27......BY 13,"M",27....
.;...(.;.9.2.CODE2 .BY128,64,32,16,8,4,2
,1.?.<.;.E.F.;.X.P.; *** ENDE ***.^.Z.;.
D.D.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL