GROSSCOPY.SRC
FILE INFORMATION
FILENAME(S): GROSSCOPY.SRC
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 01:12:42
APPEARS ON: 2 disk(s)
FILE HASH
2701ad99ebb772928fa2d037f4776f532cec6430a58cee73a071707fdb2a72a8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10712 12 87 | GROSSCOPY.SRC | PRG | C64er, DuncanTwain | 31 | 0 | DOWNLOAD FILE |
| 10712 12 87 | GROSSCOPY.SRC | PRG | DuncanTwain | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FB 1F E8 03 3B 20 2A 2A 2A 2A 20 48 41 52 |......; **** HAR|
00000010: 44 43 4F 50 59 20 47 52 4F 53 53 20 38 30 31 20 |DCOPY GROSS 801 |
00000020: 2A 2A 2A 2A 00 01 20 F2 03 3B 00 15 20 FC 03 20 |****.. ..;.. .. |
00000030: 2E 45 51 58 53 50 41 4C 54 45 3D 24 46 42 00 26 |.EQXSPALTE=$FB.&|
00000040: 20 06 04 20 2E 45 51 59 50 4F 53 3D 24 46 44 00 | .. .EQYPOS=$FD.|
00000050: 37 20 10 04 20 2E 45 51 58 50 4F 53 3D 24 34 41 |7 .. .EQXPOS=$4A|
00000060: 00 4A 20 1A 04 20 2E 45 51 58 43 4F 55 4E 54 3D |.J .. .EQXCOUNT=|
00000070: 24 34 39 00 5B 20 24 04 20 2E 45 51 42 59 54 45 |$49.[ $. .EQBYTE|
00000080: 3D 24 30 32 00 61 20 2E 04 3B 00 75 20 38 04 20 |=$02.a ..;.u 8. |
00000090: 2E 45 51 50 52 49 4E 54 3D 24 46 46 44 32 00 7B |.EQPRINT=$FFD2.{|
000000A0: 20 42 04 3B 00 89 20 4C 04 20 2E 42 41 24 43 30 | B.;.. L. .BA$C0|
000000B0: 30 30 00 A1 20 56 04 20 2E 4F 42 22 47 52 4F 53 |00.. V. .OB"GROS|
000000C0: 53 43 4F 50 59 2C 50 2C 57 22 00 AF 20 60 04 20 |SCOPY,P,W".. `. |
000000D0: 2E 4C 49 34 2C 34 2C 37 00 B5 20 6A 04 3B 00 CB |.LI4,4,7.. j.;..|
000000E0: 20 74 04 3B 20 44 52 55 43 4B 45 52 20 4F 45 46 | t.; DRUCKER OEF|
000000F0: 46 4E 45 4E 00 D8 20 7E 04 20 4C 44 41 23 24 30 |FNEN.. ~. LDA#$0|
00000100: 31 00 E4 20 88 04 20 53 54 41 24 42 38 00 F1 20 |1.. .. STA$B8.. |
00000110: 92 04 20 4C 44 41 23 24 30 34 00 FD 20 9C 04 20 |.. LDA#$04.. .. |
00000120: 53 54 41 24 42 41 00 0A 21 A6 04 20 4C 44 41 23 |STA$BA..!.. LDA#|
00000130: 24 30 30 00 16 21 B0 04 20 53 54 41 24 42 39 00 |$00..!.. STA$B9.|
00000140: 22 21 BA 04 20 53 54 41 24 42 37 00 30 21 C4 04 |"!.. STA$B7.0!..|
00000150: 20 4A 53 52 24 46 46 43 30 00 3D 21 CE 04 20 4C | JSR$FFC0.=!.. L|
00000160: 44 58 23 24 30 31 00 4B 21 D8 04 20 4A 53 52 24 |DX#$01.K!.. JSR$|
00000170: 46 46 43 39 00 58 21 E2 04 20 4C 44 41 23 24 30 |FFC9.X!.. LDA#$0|
00000180: 38 00 66 21 EC 04 20 4A 53 52 50 52 49 4E 54 00 |8.f!.. JSRPRINT.|
00000190: 73 21 F6 04 20 4C 44 41 23 24 30 44 00 81 21 00 |s!.. LDA#$0D..!.|
000001A0: 05 20 4A 53 52 50 52 49 4E 54 00 8E 21 0A 05 20 |. JSRPRINT..!.. |
000001B0: 4C 44 41 23 24 30 30 00 9A 21 14 05 20 53 54 41 |LDA#$00..!.. STA|
000001C0: 24 32 38 00 A6 21 1E 05 20 53 54 41 24 32 37 00 |$28..!.. STA$27.|
000001D0: B2 21 28 05 20 53 54 41 24 32 36 00 B8 21 32 05 |.!(. STA$26..!2.|
000001E0: 3B 00 DF 21 3C 05 3B 20 53 54 41 52 54 57 45 52 |;..!<.; STARTWER|
000001F0: 54 45 20 46 55 45 52 20 58 53 50 41 4C 54 45 2D |TE FUER XSPALTE-|
00000200: 53 43 48 4C 45 49 46 45 00 EC 21 46 05 20 4C 44 |SCHLEIFE..!F. LD|
00000210: 41 23 24 30 30 00 FC 21 50 05 20 53 54 41 58 53 |A#$00..!P. STAXS|
00000220: 50 41 4C 54 45 00 0E 22 5A 05 20 53 54 41 58 53 |PALTE.."Z. STAXS|
00000230: 50 41 4C 54 45 2B 31 00 1B 22 64 05 20 4C 44 41 |PALTE+1.."d. LDA|
00000240: 23 24 32 45 00 2A 22 6E 05 20 53 54 41 58 43 4F |#$2E.*"n. STAXCO|
00000250: 55 4E 54 00 30 22 78 05 3B 00 4E 22 82 05 3B 20 |UNT.0"x.;.N"..; |
00000260: 42 45 47 49 4E 4E 20 31 2E 20 59 50 4F 53 2D 53 |BEGINN 1. YPOS-S|
00000270: 43 48 4C 45 49 46 45 00 60 22 8C 05 58 4C 4F 4F |CHLEIFE.`"..XLOO|
00000280: 50 20 4C 44 41 23 24 43 38 00 6D 22 96 05 20 53 |P LDA#$C8.m".. S|
00000290: 54 41 59 50 4F 53 00 8B 22 A0 05 3B 20 58 50 4F |TAYPOS.."..; XPO|
000002A0: 53 2D 52 4F 55 54 49 4E 45 20 46 55 45 52 20 31 |S-ROUTINE FUER 1|
000002B0: 42 59 54 45 00 A1 22 AA 05 59 4C 4F 4F 50 31 20 |BYTE.."..YLOOP1 |
000002C0: 4C 44 41 58 53 50 41 4C 54 45 00 B3 22 B4 05 20 |LDAXSPALTE..".. |
000002D0: 4C 44 58 58 53 50 41 4C 54 45 2B 31 00 C0 22 BE |LDXXSPALTE+1..".|
000002E0: 05 20 53 54 41 58 50 4F 53 00 CF 22 C8 05 20 53 |. STAXPOS..".. S|
000002F0: 54 58 58 50 4F 53 2B 31 00 DC 22 D2 05 20 4C 44 |TXXPOS+1..".. LD|
00000300: 41 23 24 30 30 00 E9 22 DC 05 20 53 54 41 42 59 |A#$00..".. STABY|
00000310: 54 45 00 F7 22 E6 05 20 4A 53 52 4E 45 58 54 32 |TE..".. JSRNEXT2|
00000320: 00 05 23 F0 05 20 4A 53 52 4E 45 58 54 32 00 13 |..#.. JSRNEXT2..|
00000330: 23 FA 05 20 4A 53 52 4E 45 58 54 32 00 23 23 04 |#.. JSRNEXT2.##.|
00000340: 06 20 4A 53 52 42 49 54 54 45 53 54 00 2C 23 0E |. JSRBITTEST.,#.|
00000350: 06 20 43 4C 43 00 3A 23 18 06 20 42 45 51 4E 55 |. CLC.:#.. BEQNU|
00000360: 4C 4C 31 00 43 23 22 06 20 53 45 43 00 55 23 2C |LL1.C#". SEC.U#,|
00000370: 06 4E 55 4C 4C 31 20 52 4F 52 42 59 54 45 00 62 |.NULL1 RORBYTE.b|
00000380: 23 36 06 20 4C 44 41 42 59 54 45 00 6B 23 40 06 |#6. LDABYTE.k#@.|
00000390: 20 53 45 43 00 74 23 4A 06 20 52 4F 52 00 86 23 | SEC.t#J. ROR..#|
000003A0: 54 06 20 4A 53 52 46 41 53 54 50 52 49 4E 54 00 |T. JSRFASTPRINT.|
000003B0: 98 23 5E 06 20 4A 53 52 46 41 53 54 50 52 49 4E |.#^. JSRFASTPRIN|
000003C0: 54 00 B8 23 68 06 3B 20 45 4E 44 45 20 44 45 52 |T..#h.; ENDE DER|
000003D0: 20 31 2E 20 59 50 4F 53 2D 53 43 48 4C 45 49 46 | 1. YPOS-SCHLEIF|
000003E0: 45 00 C5 23 72 06 20 4C 44 59 59 50 4F 53 00 CE |E..#r. LDYYPOS..|
000003F0: 23 7C 06 20 44 45 59 00 DB 23 86 06 20 53 54 59 |#|. DEY..#.. STY|
00000400: 59 50 4F 53 00 EA 23 90 06 20 42 4E 45 59 4C 4F |YPOS..#.. BNEYLO|
00000410: 4F 50 31 00 0A 24 9A 06 3B 20 44 52 55 43 4B 45 |OP1..$..; DRUCKE|
00000420: 52 5A 45 49 4C 45 20 41 42 53 43 48 4C 49 45 53 |RZEILE ABSCHLIES|
00000430: 53 45 4E 00 17 24 A4 06 20 4C 44 41 23 24 30 44 |SEN..$.. LDA#$0D|
00000440: 00 29 24 AE 06 20 4A 53 52 46 41 53 54 50 52 49 |.)$.. JSRFASTPRI|
00000450: 4E 54 00 39 24 B8 06 20 4C 44 41 58 53 50 41 4C |NT.9$.. LDAXSPAL|
00000460: 54 45 00 42 24 C2 06 20 43 4C 43 00 4F 24 CC 06 |TE.B$.. CLC.O$..|
00000470: 20 41 44 43 23 24 30 33 00 5C 24 D6 06 20 42 43 | ADC#$03.\$.. BC|
00000480: 43 4C 53 42 31 00 6E 24 E0 06 20 49 4E 43 58 53 |CLSB1.n$.. INCXS|
00000490: 50 41 4C 54 45 2B 31 00 82 24 EA 06 4C 53 42 31 |PALTE+1..$..LSB1|
000004A0: 20 53 54 41 58 53 50 41 4C 54 45 00 A4 24 F4 06 | STAXSPALTE..$..|
000004B0: 3B 20 42 45 47 49 4E 4E 20 44 45 52 20 32 2E 20 |; BEGINN DER 2. |
000004C0: 59 50 4F 53 2D 53 43 48 4C 45 49 46 45 00 B1 24 |YPOS-SCHLEIFE..$|
000004D0: FE 06 20 4C 44 41 23 24 43 38 00 BE 24 08 07 20 |.. LDA#$C8..$.. |
000004E0: 53 54 41 59 50 4F 53 00 DE 24 12 07 3B 20 32 2E |STAYPOS..$..; 2.|
000004F0: 58 50 4F 53 20 52 4F 55 54 49 4E 45 20 46 55 45 |XPOS ROUTINE FUE|
00000500: 52 20 31 42 59 54 45 00 F4 24 1C 07 59 4C 4F 4F |R 1BYTE..$..YLOO|
00000510: 50 32 20 4C 44 41 58 53 50 41 4C 54 45 00 06 25 |P2 LDAXSPALTE..%|
00000520: 26 07 20 4C 44 58 58 53 50 41 4C 54 45 2B 31 00 |&. LDXXSPALTE+1.|
00000530: 13 25 30 07 20 53 54 41 58 50 4F 53 00 22 25 3A |.%0. STAXPOS."%:|
00000540: 07 20 53 54 58 58 50 4F 53 2B 31 00 2F 25 44 07 |. STXXPOS+1./%D.|
00000550: 20 4C 44 41 23 24 30 30 00 3C 25 4E 07 20 53 54 | LDA#$00.<%N. ST|
00000560: 41 42 59 54 45 00 4C 25 58 07 20 4A 53 52 42 49 |ABYTE.L%X. JSRBI|
00000570: 54 54 45 53 54 00 55 25 62 07 20 43 4C 43 00 63 |TTEST.U%b. CLC.c|
00000580: 25 6C 07 20 42 45 51 4E 55 4C 4C 32 00 6C 25 76 |%l. BEQNULL2.l%v|
00000590: 07 20 53 45 43 00 7E 25 80 07 4E 55 4C 4C 32 20 |. SEC.~%..NULL2 |
000005A0: 52 4F 52 42 59 54 45 00 8C 25 8A 07 20 4A 53 52 |RORBYTE..%.. JSR|
000005B0: 49 4E 43 52 58 00 9A 25 94 07 20 4A 53 52 4E 45 |INCRX..%.. JSRNE|
000005C0: 58 54 32 00 A9 25 9E 07 20 4C 44 41 58 43 4F 55 |XT2..%.. LDAXCOU|
000005D0: 4E 54 00 B6 25 A8 07 20 43 4D 50 23 24 30 31 00 |NT..%.. CMP#$01.|
000005E0: C5 25 B2 07 20 42 4E 45 4E 4F 52 4D 41 4C 00 D2 |.%.. BNENORMAL..|
000005F0: 25 BC 07 20 4C 53 52 42 59 54 45 00 DF 25 C6 07 |%.. LSRBYTE..%..|
00000600: 20 4C 53 52 42 59 54 45 00 EC 25 D0 07 20 4C 53 | LSRBYTE..%.. LS|
00000610: 52 42 59 54 45 00 F9 25 DA 07 20 4C 53 52 42 59 |RBYTE..%.. LSRBY|
00000620: 54 45 00 05 26 E4 07 20 4A 4D 50 41 55 53 00 19 |TE..&.. JMPAUS..|
00000630: 26 EE 07 4E 4F 52 4D 41 4C 20 4A 53 52 4E 45 58 |&..NORMAL JSRNEX|
00000640: 54 32 00 27 26 F8 07 20 4A 53 52 4E 45 58 54 32 |T2.'&.. JSRNEXT2|
00000650: 00 37 26 02 08 41 55 53 20 4C 44 41 42 59 54 45 |.7&..AUS LDABYTE|
00000660: 00 40 26 0C 08 20 53 45 43 00 49 26 16 08 20 52 |.@&.. SEC.I&.. R|
00000670: 4F 52 00 5B 26 20 08 20 4A 53 52 46 41 53 54 50 |OR.[& . JSRFASTP|
00000680: 52 49 4E 54 00 6D 26 2A 08 20 4A 53 52 46 41 53 |RINT.m&*. JSRFAS|
00000690: 54 50 52 49 4E 54 00 8D 26 34 08 3B 20 45 4E 44 |TPRINT..&4.; END|
000006A0: 45 20 44 45 52 20 32 2E 20 59 50 4F 53 2D 53 43 |E DER 2. YPOS-SC|
000006B0: 48 4C 45 49 46 45 00 9A 26 3E 08 20 4C 44 59 59 |HLEIFE..&>. LDYY|
000006C0: 50 4F 53 00 A3 26 48 08 20 44 45 59 00 B0 26 52 |POS..&H. DEY..&R|
000006D0: 08 20 53 54 59 59 50 4F 53 00 BF 26 5C 08 20 42 |. STYYPOS..&\. B|
000006E0: 4E 45 59 4C 4F 4F 50 32 00 DD 26 66 08 3B 20 44 |NEYLOOP2..&f.; D|
000006F0: 52 55 43 4B 5A 45 49 4C 45 20 41 42 53 43 48 4C |RUCKZEILE ABSCHL|
00000700: 49 45 53 53 45 4E 00 EA 26 70 08 20 4C 44 41 23 |IESSEN..&p. LDA#|
00000710: 24 30 44 00 FC 26 7A 08 20 4A 53 52 46 41 53 54 |$0D..&z. JSRFAST|
00000720: 50 52 49 4E 54 00 0C 27 84 08 20 4C 44 41 58 53 |PRINT..'.. LDAXS|
00000730: 50 41 4C 54 45 00 15 27 8E 08 20 43 4C 43 00 22 |PALTE..'.. CLC."|
00000740: 27 98 08 20 41 44 43 23 24 30 34 00 2F 27 A2 08 |'.. ADC#$04./'..|
00000750: 20 42 43 43 4C 53 42 32 00 41 27 AC 08 20 49 4E | BCCLSB2.A'.. IN|
00000760: 43 58 53 50 41 4C 54 45 2B 31 00 55 27 B6 08 4C |CXSPALTE+1.U'..L|
00000770: 53 42 32 20 53 54 41 58 53 50 41 4C 54 45 00 75 |SB2 STAXSPALTE.u|
00000780: 27 C0 08 3B 20 45 4E 44 45 20 44 45 52 20 58 53 |'..; ENDE DER XS|
00000790: 50 41 4C 54 45 2D 53 43 48 4C 45 49 46 45 00 84 |PALTE-SCHLEIFE..|
000007A0: 27 CA 08 20 44 45 43 58 43 4F 55 4E 54 00 91 27 |'.. DECXCOUNT..'|
000007B0: D4 08 20 42 45 51 45 4E 44 45 00 9F 27 DE 08 20 |.. BEQENDE..'.. |
000007C0: 4A 4D 50 58 4C 4F 4F 50 00 B8 27 E8 08 3B 20 45 |JMPXLOOP..'..; E|
000007D0: 4E 44 45 20 44 45 53 20 50 52 4F 47 52 41 4D 4D |NDE DES PROGRAMM|
000007E0: 53 00 C9 27 F2 08 45 4E 44 45 20 4C 44 41 23 24 |S..'..ENDE LDA#$|
000007F0: 30 46 00 D7 27 FC 08 20 4A 53 52 50 52 49 4E 54 |0F..'.. JSRPRINT|
00000800: 00 E5 27 06 09 20 4A 53 52 24 46 46 43 43 00 F2 |..'.. JSR$FFCC..|
00000810: 27 10 09 20 4C 44 41 23 24 30 31 00 00 28 1A 09 |'.. LDA#$01..(..|
00000820: 20 4A 53 52 24 46 46 43 33 00 09 28 24 09 20 52 | JSR$FFC3..($. R|
00000830: 54 53 00 0F 28 2E 09 3B 00 2C 28 38 09 3B 20 4E |TS..(..;.,(8.; N|
00000840: 41 45 43 48 53 54 45 53 20 42 49 54 20 45 49 4E |AECHSTES BIT EIN|
00000850: 42 41 55 45 4E 00 41 28 42 09 4E 45 58 54 32 20 |BAUEN.A(B.NEXT2 |
00000860: 4A 53 52 42 49 54 54 45 53 54 00 58 28 4C 09 3B |JSRBITTEST.X(L.;|
00000870: 20 5A 57 45 49 4D 41 4C 20 45 49 4E 42 41 55 45 | ZWEIMAL EINBAUE|
00000880: 4E 00 65 28 56 09 20 42 45 51 4E 55 4C 4C 00 6E |N.e(V. BEQNULL.n|
00000890: 28 60 09 20 53 45 43 00 7B 28 6A 09 20 52 4F 52 |(`. SEC.{(j. ROR|
000008A0: 42 59 54 45 00 84 28 74 09 20 53 45 43 00 91 28 |BYTE..(t. SEC..(|
000008B0: 7E 09 20 52 4F 52 42 59 54 45 00 9F 28 88 09 20 |~. RORBYTE..(.. |
000008C0: 4A 4D 50 49 4E 43 52 58 00 AC 28 92 09 4E 55 4C |JMPINCRX..(..NUL|
000008D0: 4C 20 43 4C 43 00 B9 28 9C 09 20 52 4F 52 42 59 |L CLC..(.. RORBY|
000008E0: 54 45 00 C2 28 A6 09 20 43 4C 43 00 CF 28 B0 09 |TE..(.. CLC..(..|
000008F0: 20 52 4F 52 42 59 54 45 00 E4 28 BA 09 3B 20 49 | RORBYTE..(..; I|
00000900: 4E 43 52 45 4D 45 4E 54 20 58 50 4F 53 00 F2 28 |NCREMENT XPOS..(|
00000910: C4 09 49 4E 43 52 58 20 43 4C 43 00 FF 28 CE 09 |..INCRX CLC..(..|
00000920: 20 49 4E 43 58 50 4F 53 00 0B 29 D8 09 20 42 4E | INCXPOS..).. BN|
00000930: 45 4C 53 42 00 1A 29 E2 09 20 49 4E 43 58 50 4F |ELSB..).. INCXPO|
00000940: 53 2B 31 00 26 29 EC 09 4C 53 42 20 52 54 53 00 |S+1.&)..LSB RTS.|
00000950: 3C 29 F6 09 3B 20 42 49 54 54 45 53 54 2D 52 4F |<)..; BITTEST-RO|
00000960: 55 54 49 4E 45 00 50 29 00 0A 42 49 54 54 45 53 |UTINE.P)..BITTES|
00000970: 54 20 4C 44 58 59 50 4F 53 00 59 29 0A 0A 20 44 |T LDXYPOS.Y).. D|
00000980: 45 58 00 62 29 14 0A 20 54 58 41 00 6B 29 1E 0A |EX.b).. TXA.k)..|
00000990: 20 4C 53 52 00 74 29 28 0A 20 4C 53 52 00 7D 29 | LSR.t)(. LSR.})|
000009A0: 32 0A 20 4C 53 52 00 86 29 3C 0A 20 54 41 59 00 |2. LSR..)<. TAY.|
000009B0: 8F 29 46 0A 20 43 4C 43 00 98 29 50 0A 20 54 58 |.)F. CLC..)P. TX|
000009C0: 41 00 A5 29 5A 0A 20 41 4E 44 23 24 30 37 00 B6 |A..)Z. AND#$07..|
000009D0: 29 64 0A 20 41 44 43 4D 41 4C 54 41 42 2C 59 00 |)d. ADCMALTAB,Y.|
000009E0: C2 29 6E 0A 20 53 54 41 24 46 37 00 CF 29 78 0A |.)n. STA$F7..)x.|
000009F0: 20 4C 44 41 58 50 4F 53 00 DC 29 82 0A 20 41 4E | LDAXPOS..).. AN|
00000A00: 44 23 24 46 38 00 E8 29 8C 0A 20 41 44 43 24 46 |D#$F8..).. ADC$F|
00000A10: 37 00 F4 29 96 0A 20 53 54 41 24 46 37 00 06 2A |7..).. STA$F7..*|
00000A20: A0 0A 20 4C 44 41 4D 41 4C 54 41 42 31 2C 59 00 |.. LDAMALTAB1,Y.|
00000A30: 13 2A AA 0A 20 41 44 43 23 24 32 30 00 22 2A B4 |.*.. ADC#$20."*.|
00000A40: 0A 20 41 44 43 58 50 4F 53 2B 31 00 2E 2A BE 0A |. ADCXPOS+1..*..|
00000A50: 20 53 54 41 24 46 38 00 3B 2A C8 0A 20 4C 44 41 | STA$F8.;*.. LDA|
00000A60: 58 50 4F 53 00 48 2A D2 0A 20 41 4E 44 23 24 30 |XPOS.H*.. AND#$0|
00000A70: 37 00 51 2A DC 0A 20 54 41 59 00 63 2A E6 0A 20 |7.Q*.. TAY.c*.. |
00000A80: 4C 44 41 48 4F 43 48 54 41 42 2C 59 00 70 2A F0 |LDAHOCHTAB,Y.p*.|
00000A90: 0A 20 4C 44 59 23 24 30 30 00 80 2A FA 0A 20 41 |. LDY#$00..*.. A|
00000AA0: 4E 44 28 24 46 37 29 2C 59 00 8C 2A 04 0B 20 42 |ND($F7),Y..*.. B|
00000AB0: 45 51 45 4E 44 00 99 2A 0E 0B 20 4C 44 41 23 24 |EQEND..*.. LDA#$|
00000AC0: 46 46 00 A5 2A 18 0B 45 4E 44 20 52 54 53 00 C3 |FF..*..END RTS..|
00000AD0: 2A 22 0B 4D 41 4C 54 41 42 20 2E 42 59 24 30 30 |*".MALTAB .BY$00|
00000AE0: 2C 24 34 30 2C 24 38 30 2C 24 43 30 00 DB 2A 2C |,$40,$80,$C0..*,|
00000AF0: 0B 20 2E 42 59 24 30 30 2C 24 34 30 2C 24 38 30 |. .BY$00,$40,$80|
00000B00: 2C 24 43 30 00 F3 2A 36 0B 20 2E 42 59 24 30 30 |,$C0..*6. .BY$00|
00000B10: 2C 24 34 30 2C 24 38 30 2C 24 43 30 00 0B 2B 40 |,$40,$80,$C0..+@|
00000B20: 0B 20 2E 42 59 24 30 30 2C 24 34 30 2C 24 38 30 |. .BY$00,$40,$80|
00000B30: 2C 24 43 30 00 23 2B 4A 0B 20 2E 42 59 24 30 30 |,$C0.#+J. .BY$00|
00000B40: 2C 24 34 30 2C 24 38 30 2C 24 43 30 00 3B 2B 54 |,$40,$80,$C0.;+T|
00000B50: 0B 20 2E 42 59 24 30 30 2C 24 34 30 2C 24 38 30 |. .BY$00,$40,$80|
00000B60: 2C 24 43 30 00 47 2B 5E 0B 20 2E 42 59 24 30 30 |,$C0.G+^. .BY$00|
00000B70: 00 66 2B 68 0B 4D 41 4C 54 41 42 31 20 2E 42 59 |.f+h.MALTAB1 .BY|
00000B80: 24 30 30 2C 24 30 31 2C 24 30 32 2C 24 30 33 00 |$00,$01,$02,$03.|
00000B90: 7E 2B 72 0B 20 2E 42 59 24 30 35 2C 24 30 36 2C |~+r. .BY$05,$06,|
00000BA0: 24 30 37 2C 24 30 38 00 96 2B 7C 0B 20 2E 42 59 |$07,$08..+|. .BY|
00000BB0: 24 30 41 2C 24 30 42 2C 24 30 43 2C 24 30 44 00 |$0A,$0B,$0C,$0D.|
00000BC0: AE 2B 86 0B 20 2E 42 59 24 30 46 2C 24 31 30 2C |.+.. .BY$0F,$10,|
00000BD0: 24 31 31 2C 24 31 32 00 C6 2B 90 0B 20 2E 42 59 |$11,$12..+.. .BY|
00000BE0: 24 31 34 2C 24 31 35 2C 24 31 36 2C 24 31 37 00 |$14,$15,$16,$17.|
00000BF0: DE 2B 9A 0B 20 2E 42 59 24 31 39 2C 24 31 41 2C |.+.. .BY$19,$1A,|
00000C00: 24 31 42 2C 24 31 43 00 EA 2B A4 0B 20 2E 42 59 |$1B,$1C..+.. .BY|
00000C10: 24 31 45 00 09 2C AE 0B 48 4F 43 48 54 41 42 20 |$1E..,..HOCHTAB |
00000C20: 2E 42 59 24 38 30 2C 24 34 30 2C 24 32 30 2C 24 |.BY$80,$40,$20,$|
00000C30: 31 30 00 21 2C B8 0B 20 2E 42 59 24 30 38 2C 24 |10.!,.. .BY$08,$|
00000C40: 30 34 2C 24 30 32 2C 24 30 31 00 27 2C C2 0B 3B |04,$02,$01.',..;|
00000C50: 00 3F 2C CC 0B 3B 20 46 41 53 54 50 52 49 4E 54 |.?,..; FASTPRINT|
00000C60: 2D 52 4F 55 54 49 4E 45 00 55 2C D6 0B 46 41 53 |-ROUTINE.U,..FAS|
00000C70: 54 50 52 49 4E 54 20 43 4D 50 23 24 30 44 00 64 |TPRINT CMP#$0D.d|
00000C80: 2C E0 0B 20 42 45 51 52 45 54 55 52 4E 00 70 2C |,.. BEQRETURN.p,|
00000C90: EA 0B 20 43 4D 50 24 32 36 00 7E 2C F4 0B 20 42 |.. CMP$26.~,.. B|
00000CA0: 4E 45 4E 45 55 45 53 00 8A 2C FE 0B 20 49 4E 43 |NENEUES..,.. INC|
00000CB0: 24 32 37 00 96 2C 08 0C 20 4C 44 41 24 32 37 00 |$27..,.. LDA$27.|
00000CC0: A3 2C 12 0C 20 42 4E 45 4D 41 52 4B 00 AF 2C 1C |.,.. BNEMARK..,.|
00000CD0: 0C 20 49 4E 43 24 32 38 00 BF 2C 26 0C 4D 41 52 |. INC$28..,&.MAR|
00000CE0: 4B 20 4C 44 41 24 32 36 00 C8 2C 30 0C 20 52 54 |K LDA$26..,0. RT|
00000CF0: 53 00 D9 2C 3A 0C 4E 45 55 45 53 20 53 54 41 24 |S..,:.NEUES STA$|
00000D00: 32 39 00 E9 2C 44 0C 20 4A 53 52 5A 46 45 52 54 |29..,D. JSRZFERT|
00000D10: 49 47 00 F5 2C 4E 0C 20 4C 44 41 24 32 39 00 01 |IG..,N. LDA$29..|
00000D20: 2D 58 0C 20 53 54 41 24 32 36 00 0A 2D 62 0C 20 |-X. STA$26..-b. |
00000D30: 52 54 53 00 1C 2D 6C 0C 52 45 54 55 52 4E 20 4C |RTS..-l.RETURN L|
00000D40: 44 41 24 32 36 00 29 2D 76 0C 20 43 4D 50 23 24 |DA$26.)-v. CMP#$|
00000D50: 38 30 00 37 2D 80 0C 20 42 45 51 4D 41 52 4B 32 |80.7-.. BEQMARK2|
00000D60: 00 47 2D 8A 0C 20 4A 53 52 5A 46 45 52 54 49 47 |.G-.. JSRZFERTIG|
00000D70: 00 59 2D 94 0C 4D 41 52 4B 32 20 4C 44 41 23 24 |.Y-..MARK2 LDA#$|
00000D80: 30 30 00 65 2D 9E 0C 20 53 54 41 24 32 38 00 71 |00.e-.. STA$28.q|
00000D90: 2D A8 0C 20 53 54 41 24 32 37 00 7D 2D B2 0C 20 |-.. STA$27.}-.. |
00000DA0: 53 54 41 24 32 36 00 8A 2D BC 0C 20 4C 44 41 23 |STA$26..-.. LDA#|
00000DB0: 24 30 44 00 98 2D C6 0C 20 4A 53 52 50 52 49 4E |$0D..-.. JSRPRIN|
00000DC0: 54 00 A1 2D D0 0C 20 52 54 53 00 B4 2D DA 0C 5A |T..-.. RTS..-..Z|
00000DD0: 46 45 52 54 49 47 20 4C 44 41 24 32 36 00 C2 2D |FERTIG LDA$26..-|
00000DE0: E4 0C 20 42 45 51 4D 41 52 4B 33 00 CE 2D EE 0C |.. BEQMARK3..-..|
00000DF0: 20 4C 44 41 24 32 38 00 DC 2D F8 0C 20 42 45 51 | LDA$28..-.. BEQ|
00000E00: 4D 41 52 4B 34 00 E9 2D 02 0D 20 4C 44 41 23 24 |MARK4..-.. LDA#$|
00000E10: 31 41 00 F7 2D 0C 0D 20 4A 53 52 50 52 49 4E 54 |1A..-.. JSRPRINT|
00000E20: 00 04 2E 16 0D 20 4C 44 41 23 24 46 46 00 12 2E |..... LDA#$FF...|
00000E30: 20 0D 20 4A 53 52 50 52 49 4E 54 00 1E 2E 2A 0D | . JSRPRINT...*.|
00000E40: 20 4C 44 41 24 32 36 00 2C 2E 34 0D 20 4A 53 52 | LDA$26.,.4. JSR|
00000E50: 50 52 49 4E 54 00 3A 2E 3E 0D 20 4A 53 52 50 52 |PRINT.:.>. JSRPR|
00000E60: 49 4E 54 00 47 2E 48 0D 20 4C 44 41 23 24 30 30 |INT.G.H. LDA#$00|
00000E70: 00 53 2E 52 0D 20 53 54 41 24 32 38 00 64 2E 5C |.S.R. STA$28.d.\|
00000E80: 0D 4D 41 52 4B 34 20 4C 44 41 24 32 37 00 72 2E |.MARK4 LDA$27.r.|
00000E90: 66 0D 20 42 45 51 45 49 4E 45 53 00 7F 2E 70 0D |f. BEQEINES...p.|
00000EA0: 20 43 4D 50 23 24 30 34 00 8F 2E 7A 0D 20 42 43 | CMP#$04...z. BC|
00000EB0: 53 57 44 48 4F 4C 45 4E 00 9B 2E 84 0D 20 4C 44 |SWDHOLEN..... LD|
00000EC0: 58 24 32 37 00 A7 2E 8E 0D 20 4C 44 41 24 32 36 |X$27..... LDA$26|
00000ED0: 00 BA 2E 98 0D 4D 41 52 4B 35 20 4A 53 52 50 52 |.....MARK5 JSRPR|
00000EE0: 49 4E 54 00 C3 2E A2 0D 20 44 45 58 00 D1 2E AC |INT..... DEX....|
00000EF0: 0D 20 42 4E 45 4D 41 52 4B 35 00 DF 2E B6 0D 20 |. BNEMARK5..... |
00000F00: 4A 4D 50 4D 41 52 4B 36 00 F3 2E C0 0D 57 44 48 |JMPMARK6.....WDH|
00000F10: 4F 4C 45 4E 20 4C 44 41 23 24 31 41 00 01 2F CA |OLEN LDA#$1A../.|
00000F20: 0D 20 4A 53 52 50 52 49 4E 54 00 0D 2F D4 0D 20 |. JSRPRINT../.. |
00000F30: 4C 44 41 24 32 37 00 1B 2F DE 0D 20 4A 53 52 50 |LDA$27../.. JSRP|
00000F40: 52 49 4E 54 00 27 2F E8 0D 20 4C 44 41 24 32 36 |RINT.'/.. LDA$26|
00000F50: 00 35 2F F2 0D 20 4A 53 52 50 52 49 4E 54 00 47 |.5/.. JSRPRINT.G|
00000F60: 2F FC 0D 4D 41 52 4B 36 20 4C 44 41 23 24 30 30 |/..MARK6 LDA#$00|
00000F70: 00 53 2F 06 0E 20 53 54 41 24 32 37 00 64 2F 10 |.S/.. STA$27.d/.|
00000F80: 0E 45 49 4E 45 53 20 4C 44 41 24 32 36 00 72 2F |.EINES LDA$26.r/|
00000F90: 1A 0E 20 4A 53 52 50 52 49 4E 54 00 80 2F 24 0E |.. JSRPRINT../$.|
00000FA0: 4D 41 52 4B 33 20 52 54 53 00 89 2F 2E 0E 20 2E |MARK3 RTS../.. .|
00000FB0: 45 4E 00 00 00 |EN... |
X.....; **** HARDCOPY GROSS 801 ****.. .
.;.. .. .EQXSPALTE=$FB.& .. .EQYPOS=$FD.
7 .. .EQXPOS=$4A.J .. .EQXCOUNT=$49.[ $.
.EQBYTE=$02.A ..;.U 8. .EQPRINT=$FFD2.{
B.;.. L. .BA$C000.. V. .OB"GROSSCOPY,P,
W".. `. .LI4,4,7.. J.;.K T.; DRUCKER OEF
FNEN.X ~. LDA#$01.. .. STA$B8.. .. LDA#$
04.. .. STA$BA..!.. LDA#$00..!.. STA$B9.
"!.. STA$B7.0!D. JSR$FFC0.=!N. LDX#$01.K
!X. JSR$FFC9.X!.. LDA#$08.F!.. JSRPRINT.
S!.. LDA#$0D..!.. JSRPRINT..!.. LDA#$00.
.!.. STA$28..!.. STA$27..!(. STA$26..!2.
;..!<.; STARTWERTE FUER XSPALTE-SCHLEIFE
..!F. LDA#$00..!P. STAXSPALTE.."Z. STAXS
PALTE+1.."D. LDA#$2E.*"N. STAXCOUNT.0"X.
;.N"..; BEGINN 1. YPOS-SCHLEIFE.`"..XLOO
P LDA#$C8.M".. STAYPOS.." .; XPOS-ROUTIN
E FUER 1BYTE.."..YLOOP1 LDAXSPALTE.."..
LDXXSPALTE+1..".. STAXPOS.O"H. STXXPOS+1
.."R. LDA#$00..".. STABYTE..".. JSRNEXT2
..#.. JSRNEXT2..#.. JSRNEXT2.##.. JSRBIT
TEST.,#.. CLC.:#.. BEQNULL1.C#". SEC.U#,
.NULL1 RORBYTE.B#6. LDABYTE.K#@. SEC.T#J
. ROR..#T. JSRFASTPRINT..#^. JSRFASTPRIN
T..#H.; ENDE DER 1. YPOS-SCHLEIFE.E#R. L
DYYPOS.N#|. DEY..#.. STYYPOS..#.. BNEYLO
OP1..$..; DRUCKERZEILE ABSCHLIESSEN..$..
LDA#$0D.)$.. JSRFASTPRINT.9$.. LDAXSPAL
TE.B$B. CLC.O$L. ADC#$03.\$V. BCCLSB1.N$
.. INCXSPALTE+1..$..LSB1 STAXSPALTE..$..
; BEGINN DER 2. YPOS-SCHLEIFE..$.. LDA#$
C8..$.. STAYPOS..$..; 2.XPOS ROUTINE FUE
R 1BYTE..$..YLOOP2 LDAXSPALTE..%&. LDXXS
PALTE+1..%0. STAXPOS."%:. STXXPOS+1./%D.
LDA#$00.<%N. STABYTE.L%X. JSRBITTEST.U%
B. CLC.C%L. BEQNULL2.L%V. SEC.~%..NULL2
RORBYTE..%.. JSRINCRX..%.. JSRNEXT2..%..
LDAXCOUNT..%.. CMP#$01.E%.. BNENORMAL.R
%.. LSRBYTE..%F. LSRBYTE..%P. LSRBYTE..%
Z. LSRBYTE..&.. JMPAUS..&..NORMAL JSRNEX
T2.'&.. JSRNEXT2.7&..AUS LDABYTE.@&.. SE
C.I&.. ROR.[& . JSRFASTPRINT.M&*. JSRFAS
TPRINT..&4.; ENDE DER 2. YPOS-SCHLEIFE..
&>. LDYYPOS..&H. DEY..&R. STYYPOS..&\. B
NEYLOOP2..&F.; DRUCKZEILE ABSCHLIESSEN..
&P. LDA#$0D..&Z. JSRFASTPRINT..'.. LDAXS
PALTE..'.. CLC."'.. ADC#$04./'.. BCCLSB2
.A'.. INCXSPALTE+1.U'..LSB2 STAXSPALTE.U
'..; ENDE DER XSPALTE-SCHLEIFE..'J. DECX
COUNT..'T. BEQENDE..'.. JMPXLOOP..'..; E
NDE DES PROGRAMMS.I'..ENDE LDA#$0F.W'..
JSRPRINT..'.. JSR$FFCC..'.. LDA#$01..(..
JSR$FFC3..($. RTS..(..;.,(8.; NAECHSTES
BIT EINBAUEN.A(B.NEXT2 JSRBITTEST.X(L.;
ZWEIMAL EINBAUEN.E(V. BEQNULL.N(`. SEC.
{(J. RORBYTE..(T. SEC..(~. RORBYTE..(..
JMPINCRX..(..NULL CLC..(.. RORBYTE.B(..
CLC.O(.. RORBYTE..(..; INCREMENT XPOS..(
D.INCRX CLC..(N. INCXPOS..)X. BNELSB..).
. INCXPOS+1.&)..LSB RTS.<)..; BITTEST-RO
UTINE.P)..BITTEST LDXYPOS.Y).. DEX.B)..
TXA.K).. LSR.T)(. LSR.})2. LSR..)<. TAY.
.)F. CLC..)P. TXA..)Z. AND#$07..)D. ADCM
ALTAB,Y.B)N. STA$F7.O)X. LDAXPOS..).. AN
D#$F8..).. ADC$F7..).. STA$F7..* . LDAMA
LTAB1,Y..*.. ADC#$20."*.. ADCXPOS+1..*..
STA$F8.;*H. LDAXPOS.H*R. AND#$07.Q*.. T
AY.C*.. LDAHOCHTAB,Y.P*.. LDY#$00..*.. A
ND($F7),Y..*.. BEQEND..*.. LDA#$FF..*..E
ND RTS.C*".MALTAB .BY$00,$40,$80,$C0..*,
. .BY$00,$40,$80,$C0..*6. .BY$00,$40,$80
,$C0..+@. .BY$00,$40,$80,$C0.#+J. .BY$00
,$40,$80,$C0.;+T. .BY$00,$40,$80,$C0.G+^
. .BY$00.F+H.MALTAB1 .BY$00,$01,$02,$03.
~+R. .BY$05,$06,$07,$08..+|. .BY$0A,$0B,
$0C,$0D..+.. .BY$0F,$10,$11,$12.F+.. .BY
$14,$15,$16,$17..+.. .BY$19,$1A,$1B,$1C.
.+.. .BY$1E..,..HOCHTAB .BY$80,$40,$20,$
10.!,.. .BY$08,$04,$02,$01.',B.;.?,L.; F
ASTPRINT-ROUTINE.U,V.FASTPRINT CMP#$0D.D
,.. BEQRETURN.P,.. CMP$26.~,.. BNENEUES.
.,.. INC$27..,.. LDA$27..,.. BNEMARK..,.
. INC$28..,&.MARK LDA$26.H,0. RTS.Y,:.NE
UES STA$29..,D. JSRZFERTIG..,N. LDA$29..
-X. STA$26..-B. RTS..-L.RETURN LDA$26.)-
V. CMP#$80.7-.. BEQMARK2.G-.. JSRZFERTIG
.Y-..MARK2 LDA#$00.E-.. STA$28.Q-.. STA$
27.}-.. STA$26..-.. LDA#$0D..-F. JSRPRIN
T..-P. RTS..-Z.ZFERTIG LDA$26.B-.. BEQMA
RK3.N-.. LDA$28..-.. BEQMARK4..-.. LDA#$
1A..-.. JSRPRINT..... LDA#$FF... . JSRPR
INT...*. LDA$26.,.4. JSRPRINT.:.>. JSRPR
INT.G.H. LDA#$00.S.R. STA$28.D.\.MARK4 L
DA$27.R.F. BEQEINES..P. CMP#$04...Z. BC
SWDHOLEN..... LDX$27..... LDA$26.....MAR
K5 JSRPRINT.C... DEX.Q... BNEMARK5.....
JMPMARK6.....WDHOLEN LDA#$1A../J. JSRPRI
NT../T. LDA$27../.. JSRPRINT.'/.. LDA$26
.5/.. JSRPRINT.G/..MARK6 LDA#$00.S/.. ST
A$27.D/..EINES LDA$26.R/.. JSRPRINT../$.
MARK3 RTS../.. .EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL