SOURCE BIG-COPY
FILE INFORMATION
FILENAME(S): SOURCE BIG-COPY
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-12-02 02:14:52
APPEARS ON: 1 disk(s)
FILE HASH
6c079fd1d51a66977eb43adf27c001e2380e4dbeb9858d6671e3d56981be8bc5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 07 | SOURCE BIG-COPY | PRG | The BAM Archive | 4 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 4F 55 54 20 34 00 28 08 01 00 |......OUT 4.(...|
00000010: AC B2 24 43 30 30 30 20 21 53 54 41 52 54 41 44 |..$C000 !STARTAD|
00000020: 52 45 53 20 48 45 58 2E 00 45 08 02 00 21 AC AC |RES HEX..E...!..|
00000030: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000040: AC AC AC AC AC 00 4B 08 03 00 21 00 51 08 04 00 |......K...!.Q...|
00000050: 21 00 6C 08 05 00 21 20 48 49 20 52 45 53 20 48 |!.l...! HI RES H|
00000060: 41 52 44 43 4F 50 59 20 44 55 41 4C 00 87 08 06 |ARDCOPY DUAL....|
00000070: 00 21 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |.! .............|
00000080: AC AC AC AC AC AC AC 00 A8 08 07 00 21 20 44 4F |............! DO|
00000090: B0 20 9E AC 2C 53 54 20 57 B0 44 20 45 45 4E 20 |. ..,ST W.D EEN |
000000A0: 56 45 52 47 52 4F 54 45 00 CB 08 08 00 21 20 48 |VERGROTE.....! H|
000000B0: 49 52 45 53 48 41 52 44 43 4F 50 59 20 4F 50 20 |IRESHARDCOPY OP |
000000C0: 44 45 20 31 35 32 36 2F 38 30 32 00 E4 08 09 00 |DE 1526/802.....|
000000D0: 21 20 50 52 49 4E 54 45 52 20 55 49 54 47 45 56 |! PRINTER UITGEV|
000000E0: 4F 45 52 44 00 EA 08 0A 00 21 00 11 09 0B 00 21 |OERD.....!.....!|
000000F0: 20 53 54 AC 34 30 39 36 B2 42 45 47 49 4E 41 44 | ST.4096.BEGINAD|
00000100: 52 45 53 20 48 49 AB 52 45 53 20 42 49 54 4D 41 |RES HI.RES BITMA|
00000110: 50 00 2D 09 0C 00 21 20 56 2E 42 2E 20 53 59 53 |P.-...! V.B. SYS|
00000120: 2A 2C 32 20 20 44 49 41 2D 53 48 4F 57 00 33 09 |*,2 DIA-SHOW.3.|
00000130: 0D 00 21 00 45 09 0E 00 21 20 56 37 20 32 33 2E |..!.E...! V7 23.|
00000140: 30 31 2E 38 35 00 4B 09 0F 00 21 00 66 09 10 00 |01.85.K...!.f...|
00000150: 21 20 28 43 29 20 27 38 35 20 42 59 20 53 4F 4D |! (C) '85 BY SOM|
00000160: 45 52 53 20 50 2E 00 6C 09 11 00 21 00 81 09 12 |ERS P..l...!....|
00000170: 00 21 20 54 41 42 45 4C 20 56 4F 4F 52 20 53 54 |.! TABEL VOOR ST|
00000180: 3A 00 A7 09 13 00 21 20 AC AC AC AC AC AC AC AC |:.....! ........|
00000190: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000001A0: AC AC AC AC AC AC AC 00 CD 09 14 00 21 20 48 49 |............! HI|
000001B0: AB 52 45 53 20 47 52 41 46 49 43 20 41 49 44 2E |.RES GRAFIC AID.|
000001C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 53 54 B2 32 00 F1 09 |.........ST.2...|
000001D0: 15 00 21 20 36 34 20 B5 45 52 4E 2E 2E 2E 2E 2E |..! 64 .ERN.....|
000001E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 53 54 B2 |.............ST.|
000001F0: 32 00 15 0A 16 00 21 20 50 41 B5 20 4D 41 47 49 |2.....! PA. MAGI|
00000200: 43 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |C...............|
00000210: 2E 53 54 B2 34 00 3B 0A 17 00 21 20 44 4F 4F 44 |.ST.4.;...! DOOD|
00000220: 4C 45 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |LER.............|
00000230: 2E 2E 2E 2E 2E 2E 2E 53 54 B2 36 00 5F 0A 18 00 |.......ST.6._...|
00000240: 21 20 4B 4F 41 4C 41 50 41 B5 45 52 2E 2E 2E 2E |! KOALAPA.ER....|
00000250: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 53 54 B2 36 00 |...........ST.6.|
00000260: 85 0A 19 00 21 20 53 43 52 45 45 4E AB 47 52 41 |....! SCREEN.GRA|
00000270: 50 48 49 43 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |PHICS...........|
00000280: 53 54 B2 31 30 00 AB 0A 1A 00 21 20 55 4C 54 52 |ST.10.....! ULTR|
00000290: 41 AB 42 41 53 49 43 2E 2E 2E 2E 2E 2E 2E 2E 2E |A.BASIC.........|
000002A0: 2E 2E 2E 2E 2E 2E 53 54 B2 31 30 00 D1 0A 1B 00 |......ST.10.....|
000002B0: 21 20 53 55 50 45 52 47 52 41 46 49 43 20 36 34 |! SUPERGRAFIC 64|
000002C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 53 54 B2 31 30 AD 31 |.........ST.10.1|
000002D0: 34 00 F6 0A 1C 00 21 20 53 49 4D 91 53 20 42 41 |4.....! SIM.S BA|
000002E0: 53 49 43 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |SIC.............|
000002F0: 2E 53 54 B2 31 34 00 1C 0B 1D 00 21 AC AC AC AC |.ST.14.....!....|
00000300: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000310: AC AC AC AC AC AC AC AC AC AC AC AC 00 22 0B 1E |............."..|
00000320: 00 21 00 37 0B 1F 00 21 20 96 45 4E 49 54 49 45 |.!.7...! .ENITIE|
00000330: 20 4C 41 42 45 4C 53 00 4E 0B 20 00 21 20 AC AC | LABELS.N. .! ..|
00000340: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 54 |...............T|
00000350: 0B 21 00 21 00 76 0B 22 00 53 46 50 B2 24 46 46 |.!.!.v.".SFP.$FF|
00000360: 42 41 20 21 5A 45 54 20 46 49 4C 45 AB 50 41 52 |BA !ZET FILE.PAR|
00000370: 41 4D 45 54 45 52 00 8A 0B 23 00 9F B2 24 46 46 |AMETER...#...$FF|
00000380: 43 30 20 21 9F 20 46 49 4C 45 00 AF 0B 24 00 43 |C0 !. FILE...$.C|
00000390: 4B 4F 55 54 B2 24 46 46 43 39 20 21 5A 45 54 20 |KOUT.$FFC9 !ZET |
000003A0: 4F 55 54 50 55 54 20 44 45 56 49 43 45 20 9D 00 |OUTPUT DEVICE ..|
000003B0: D4 0B 25 00 50 52 A4 55 54 B2 24 46 46 44 32 20 |..%.PR.UT.$FFD2 |
000003C0: 21 54 45 4B 45 4E 20 49 4E 20 41 20 50 4C 41 41 |!TEKEN IN A PLAA|
000003D0: 54 53 45 4E 00 F2 0B 26 00 A1 42 59 54 B2 24 42 |TSEN...&..BYT.$B|
000003E0: 37 39 45 20 21 38 AB 42 49 54 20 A1 41 4C 20 48 |79E !8.BIT .AL H|
000003F0: 41 C3 00 15 0C 27 00 53 A5 50 B2 24 46 46 42 44 |A....'.S.P.$FFBD|
00000400: 20 21 5A 45 54 20 46 49 C3 41 41 4D 20 50 41 52 | !ZET FI.AAM PAR|
00000410: 41 4D 45 54 2E 00 2D 0C 28 00 A0 B2 24 46 46 43 |AMET..-.(...$FFC|
00000420: 33 20 21 53 4C 55 49 54 20 46 49 4C 45 00 4E 0C |3 !SLUIT FILE.N.|
00000430: 29 00 9C 43 48 B2 24 46 46 43 43 20 21 49 AB A4 |)..CH.$FFCC !I..|
00000440: 45 54 53 45 4E 20 4F AB 53 43 48 45 52 4D 00 6D |ETSEN O.SCHERM.m|
00000450: 0C 2A 00 43 4B 43 4F 4D B2 24 41 45 46 44 20 21 |.*.CKCOM.$AEFD !|
00000460: 54 45 53 54 20 4F 50 20 43 4F 4D 4D 41 00 95 0C |TEST OP COMMA...|
00000470: 2B 00 45 52 52 B0 B2 24 42 32 34 38 20 21 46 4F |+.ERR..$B248 !FO|
00000480: 55 54 20 27 49 4C 4C 45 47 41 4C 20 51 55 41 4E |UT 'ILLEGAL QUAN|
00000490: 54 49 54 59 27 00 B6 0C 2C 00 88 B2 24 30 33 34 |TITY'...,...$034|
000004A0: 32 20 21 34 20 42 59 54 45 27 53 20 43 48 41 52 |2 !4 BYTE'S CHAR|
000004B0: 2E AB 96 49 4E 2E 00 DA 0C 2D 00 43 48 52 88 B2 |...IN....-.CHR..|
000004C0: 24 30 33 33 45 20 21 34 20 42 59 54 45 27 53 20 |$033E !4 BYTE'S |
000004D0: 43 48 41 52 2E AB 96 49 4E 2E 00 F8 0C 2E 00 53 |CHAR...IN......S|
000004E0: 50 41 43 B2 24 30 33 33 44 20 21 53 50 41 54 49 |PAC.$033D !SPATI|
000004F0: 45 20 54 45 4C 4C 45 52 00 15 0D 2F 00 54 45 54 |E TELLER.../.TET|
00000500: 45 B2 24 30 33 33 43 20 21 54 45 4B 45 4E 20 54 |E.$033C !TEKEN T|
00000510: 45 4C 4C 45 52 00 2F 0D 30 00 54 45 50 4F B2 24 |ELLER./.0.TEPO.$|
00000520: 46 45 20 21 54 45 4B 45 4E 20 50 4F B5 45 52 00 |FE !TEKEN PO.ER.|
00000530: 35 0D 31 00 21 00 45 0D 32 00 21 20 50 52 4F 47 |5.1.!.E.2.! PROG|
00000540: 52 41 4D 4D 41 00 55 0D 33 00 21 20 AC AC AC AC |RAMMA.U.3.! ....|
00000550: AC AC AC AC AC 00 5B 0D 34 00 21 00 85 0D 35 00 |......[.4.!...5.|
00000560: 53 54 41 52 54 20 4A 53 52 20 43 4B 43 4F 4D 20 |START JSR CKCOM |
00000570: 21 50 20 48 41 C3 20 49 4E 20 54 45 4B 45 4E AB |!P HA. IN TEKEN.|
00000580: 50 4F B5 45 52 00 92 0D 36 00 4A 53 52 20 A1 42 |PO.ER...6.JSR .B|
00000590: 59 54 00 9E 0D 37 00 43 50 58 20 23 31 36 00 AA |YT...7.CPX #16..|
000005A0: 0D 38 00 42 43 43 20 CB 45 44 00 B7 0D 39 00 4A |.8.BCC .ED...9.J|
000005B0: 4D 50 20 45 52 52 B0 00 C3 0D 3A 00 CB 45 44 20 |MP ERR....:..ED |
000005C0: 54 58 41 00 CD 0D 3B 00 41 53 4C 20 41 00 D7 0D |TXA...;.ASL A...|
000005D0: 3C 00 41 53 4C 20 41 00 E1 0D 3D 00 41 53 4C 20 |<.ASL A...=.ASL |
000005E0: 41 00 EB 0D 3E 00 41 53 4C 20 41 00 FA 0D 3F 00 |A...>.ASL A...?.|
000005F0: 53 54 41 20 54 45 50 4F AA 31 00 05 0E 40 00 4C |STA TEPO.1...@.L|
00000600: 44 41 20 23 30 00 12 0E 41 00 53 54 41 20 54 45 |DA #0...A.STA TE|
00000610: 50 4F 00 30 0E 42 00 4C 44 41 20 23 31 30 36 20 |PO.0.B.LDA #106 |
00000620: 21 4F 50 45 4E 20 31 30 36 2C 34 2C 36 2C 22 22 |!OPEN 106,4,6,""|
00000630: 00 3B 0E 43 00 4C 44 58 20 23 34 00 46 0E 44 00 |.;.C.LDX #4.F.D.|
00000640: 4C 44 59 20 23 36 00 54 0E 45 00 4A 53 52 20 4F |LDY #6.T.E.JSR O|
00000650: 50 46 49 4C 00 7C 0E 46 00 4C 44 58 20 23 31 30 |PFIL.|.F.LDX #10|
00000660: 36 20 21 50 52 49 4E 54 23 31 30 36 2C 43 48 52 |6 !PRINT#106,CHR|
00000670: 24 28 32 30 29 20 52 53 50 41 54 2E 00 8A 0E 47 |$(20) RSPAT....G|
00000680: 00 4A 53 52 20 43 4B 4F 55 54 00 96 0E 48 00 4C |.JSR CKOUT...H.L|
00000690: 44 41 20 23 32 30 00 A4 0E 49 00 4A 53 52 20 50 |DA #20...I.JSR P|
000006A0: 52 A4 55 54 00 C1 0E 4A 00 4C 44 41 20 23 31 30 |R.UT...J.LDA #10|
000006B0: 35 20 21 4F 50 45 4E 31 30 35 2C 34 2C 35 2C 22 |5 !OPEN105,4,5,"|
000006C0: 22 00 CC 0E 4B 00 4C 44 58 20 23 34 00 D7 0E 4C |"...K.LDX #4...L|
000006D0: 00 4C 44 59 20 23 35 00 E5 0E 4D 00 4A 53 52 20 |.LDY #5...M.JSR |
000006E0: 4F 50 46 49 4C 00 03 0F 4E 00 4C 44 41 20 23 31 |OPFIL...N.LDA #1|
000006F0: 30 30 20 21 4F 50 45 4E 20 31 30 30 2C 34 2C 30 |00 !OPEN 100,4,0|
00000700: 2C 22 22 00 0E 0F 4F 00 4C 44 58 20 23 34 00 19 |,""...O.LDX #4..|
00000710: 0F 50 00 4C 44 59 20 23 30 00 27 0F 51 00 4A 53 |.P.LDY #0.'.Q.JS|
00000720: 52 20 4F 50 46 49 4C 00 3C 0F 52 00 4C 44 58 20 |R OPFIL.<.R.LDX |
00000730: 23 31 30 30 20 21 43 4D 44 31 30 30 00 4A 0F 53 |#100 !CMD100.J.S|
00000740: 00 4A 53 52 20 43 4B 4F 55 54 00 62 0F 54 00 4C |.JSR CKOUT.b.T.L|
00000750: 44 41 20 23 31 34 31 20 21 50 52 49 4E 54 23 31 |DA #141 !PRINT#1|
00000760: 30 30 00 70 0F 55 00 4A 53 52 20 50 52 A4 55 54 |00.p.U.JSR PR.UT|
00000770: 00 8E 0F 56 00 4C 44 41 20 23 30 20 21 54 45 4B |...V.LDA #0 !TEK|
00000780: 45 4E 2D 54 45 4C 4C 45 52 20 4F 50 20 30 00 9B |EN-TELLER OP 0..|
00000790: 0F 57 00 53 54 41 20 54 45 54 45 00 BF 0F 58 00 |.W.STA TETE...X.|
000007A0: 48 41 4C 56 45 20 4A 53 52 20 48 41 4C 45 44 20 |HALVE JSR HALED |
000007B0: 21 55 50 50 45 52 20 44 45 45 4C 20 99 45 4E 00 |!UPPER DEEL .EN.|
000007C0: E6 0F 59 00 4C 44 41 20 54 45 50 4F 20 21 54 45 |..Y.LDA TEPO !TE|
000007D0: 50 4F 20 4F 50 20 42 45 47 49 4E 20 4C 4F 57 45 |PO OP BEGIN LOWE|
000007E0: 52 20 44 45 45 4C 00 EE 0F 5A 00 53 45 43 00 FC |R DEEL...Z.SEC..|
000007F0: 0F 5B 00 53 42 43 20 23 B3 33 31 36 00 09 10 5C |.[.SBC #.316...\|
00000800: 00 53 54 41 20 54 45 50 4F 00 18 10 5D 00 4C 44 |.STA TEPO...].LD|
00000810: 41 20 54 45 50 4F AA 31 00 26 10 5E 00 53 42 43 |A TEPO.1.&.^.SBC|
00000820: 20 23 B1 33 31 36 00 35 10 5F 00 53 54 41 20 54 | #.316.5._.STA T|
00000830: 45 50 4F AA 31 00 53 10 60 00 4A 53 52 20 48 41 |EPO.1.S.`.JSR HA|
00000840: 4C 45 44 20 21 4C 4F 57 45 52 20 44 45 45 4C 20 |LED !LOWER DEEL |
00000850: 99 45 4E 00 78 10 61 00 4C 44 41 20 54 45 50 4F |.EN.x.a.LDA TEPO|
00000860: 20 21 54 45 50 4F 20 4F 50 20 4E 49 45 55 57 20 | !TEPO OP NIEUW |
00000870: 48 41 4C 46 44 45 45 4C 00 80 10 62 00 53 45 43 |HALFDEEL...b.SEC|
00000880: 00 8B 10 63 00 53 42 43 20 23 34 00 98 10 64 00 |...c.SBC #4...d.|
00000890: 53 54 41 20 54 45 50 4F 00 A6 10 65 00 42 43 53 |STA TEPO...e.BCS|
000008A0: 20 4C 49 4A 4E 4F 00 B5 10 66 00 44 45 43 20 54 | LIJNO...f.DEC T|
000008B0: 45 50 4F AA 31 00 D9 10 67 00 4C 49 4A 4E 4F 20 |EPO.1...g.LIJNO |
000008C0: 49 4E 43 20 54 45 54 45 20 21 20 52 45 45 44 53 |INC TETE ! REEDS|
000008D0: 20 41 4C 4C 45 20 44 45 C3 00 E6 10 68 00 4C 44 | ALLE DE....h.LD|
000008E0: 41 20 54 45 54 45 00 05 11 69 00 43 4D 50 20 23 |A TETE...i.CMP #|
000008F0: 32 35 20 21 52 45 45 44 53 20 32 35 20 52 45 47 |25 !REEDS 25 REG|
00000900: 45 4C 53 20 99 00 25 11 6A 00 42 4E 45 20 48 41 |ELS ..%.j.BNE HA|
00000910: 4C 56 45 20 21 4E 45 45 4E 20 44 41 4E 20 4F 50 |LVE !NEEN DAN OP|
00000920: 4E 49 45 55 57 00 48 11 6B 00 45 49 4E 44 20 4C |NIEUW.H.k.EIND L|
00000930: 44 41 20 23 31 30 35 20 21 A0 31 30 35 20 20 32 |DA #105 !.105 2|
00000940: 35 20 52 45 47 2E 41 46 00 52 11 6C 00 4A 53 52 |5 REG.AF.R.l.JSR|
00000950: 20 A0 00 69 11 6D 00 4C 44 41 20 23 31 33 20 21 | ..i.m.LDA #13 !|
00000960: 50 52 49 4E 54 23 31 30 30 00 77 11 6E 00 4A 53 |PRINT#100.w.n.JS|
00000970: 52 20 50 52 A4 55 54 00 8E 11 6F 00 4C 44 41 20 |R PR.UT...o.LDA |
00000980: 23 31 30 30 20 21 43 4C 4F 53 45 31 30 30 00 98 |#100 !CLOSE100..|
00000990: 11 70 00 4A 53 52 20 A0 00 B9 11 71 00 4C 44 58 |.p.JSR ....q.LDX|
000009A0: 20 23 31 30 36 20 21 50 52 49 4E 54 23 31 30 36 | #106 !PRINT#106|
000009B0: 2C 43 48 52 24 28 33 36 29 00 C7 11 72 00 4A 53 |,CHR$(36)...r.JS|
000009C0: 52 20 43 4B 4F 55 54 00 EA 11 73 00 4C 44 41 20 |R CKOUT...s.LDA |
000009D0: 23 33 36 20 21 52 45 47 45 4C 41 46 53 C0 44 20 |#36 !REGELAFS.D |
000009E0: 54 45 52 55 47 20 4E B0 4D 2E 00 F8 11 74 00 4A |TERUG N.M....t.J|
000009F0: 53 52 20 50 52 A4 55 54 00 05 12 75 00 4C 44 41 |SR PR.UT...u.LDA|
00000A00: 20 23 31 30 36 00 0F 12 76 00 4A 53 52 20 A0 00 | #106...v.JSR ..|
00000A10: 2B 12 77 00 4A 4D 50 20 9C 43 48 20 21 45 49 4E |+.w.JMP .CH !EIN|
00000A20: 44 20 50 52 4F 47 52 41 4D 4D 41 00 3A 12 78 00 |D PROGRAMMA.:.x.|
00000A30: 21 20 4F 50 45 4E 46 49 4C 45 00 4A 12 79 00 21 |! OPENFILE.J.y.!|
00000A40: AC AC AC AC AC AC AC AC AC AC 00 5C 12 7A 00 4F |...........\.z.O|
00000A50: 50 46 49 4C 20 4A 53 52 20 53 46 50 00 67 12 7B |PFIL JSR SFP.g.{|
00000A60: 00 4C 44 41 20 23 30 00 73 12 7C 00 4A 53 52 20 |.LDA #0.s.|.JSR |
00000A70: 53 A5 50 00 7D 12 7D 00 4A 4D 50 20 9F 00 89 12 |S.P.}.}.JMP ....|
00000A80: 7E 00 21 20 48 41 4C 45 44 00 96 12 7F 00 21 AC |~.! HALED.....!.|
00000A90: AC AC AC AC AC AC 00 BA 12 80 00 48 41 4C 45 44 |...........HALED|
00000AA0: 20 4C 44 41 20 23 30 20 21 53 50 41 54 49 45 54 | LDA #0 !SPATIET|
00000AB0: 45 4C 4C 45 52 20 4F 50 20 30 00 C7 12 81 00 53 |ELLER OP 0.....S|
00000AC0: 54 41 20 53 50 41 43 00 DA 12 82 00 43 91 53 50 |TA SPAC.....C.SP|
00000AD0: 20 4A 53 52 20 45 58 52 4F 4D 00 E8 12 83 00 4A | JSR EXROM.....J|
00000AE0: 53 52 20 4D 49 52 52 B0 00 F5 12 84 00 4A 53 52 |SR MIRR......JSR|
00000AF0: 20 5A 45 52 4F 00 03 13 85 00 42 45 51 20 53 50 | ZERO.....BEQ SP|
00000B00: 43 55 50 00 10 13 86 00 4A 53 52 20 96 43 48 52 |CUP.....JSR .CHR|
00000B10: 00 23 13 87 00 53 50 43 55 50 20 49 4E 43 20 53 |.#...SPCUP INC S|
00000B20: 50 41 43 00 31 13 88 00 4A 53 52 20 4D 49 52 52 |PAC.1...JSR MIRR|
00000B30: B0 00 3E 13 89 00 4A 53 52 20 5A 45 52 4F 00 4C |..>...JSR ZERO.L|
00000B40: 13 8A 00 42 45 51 20 56 47 44 53 50 00 59 13 8B |...BEQ VGDSP.Y..|
00000B50: 00 4A 53 52 20 96 43 48 52 00 80 13 8C 00 56 47 |.JSR .CHR.....VG|
00000B60: 44 53 50 20 4C 44 41 20 54 45 50 4F 20 21 54 45 |DSP LDA TEPO !TE|
00000B70: 50 4F 20 4F 50 20 56 4F 4C 47 2E 54 45 4B 45 4E |PO OP VOLG.TEKEN|
00000B80: 00 88 13 8D 00 43 4C 43 00 93 13 8E 00 41 44 43 |.....CLC.....ADC|
00000B90: 20 23 38 00 A0 13 8F 00 53 54 41 20 54 45 50 4F | #8.....STA TEPO|
00000BA0: 00 AC 13 90 00 42 43 43 20 4F 4A 33 00 BB 13 91 |.....BCC OJ3....|
00000BB0: 00 49 4E 43 20 54 45 50 4F AA 31 00 E0 13 92 00 |.INC TEPO.1.....|
00000BC0: 4F 4A 33 20 49 4E 43 20 53 50 41 43 20 21 52 45 |OJ3 INC SPAC !RE|
00000BD0: 45 44 53 20 41 4C 4C 45 20 53 50 41 54 49 45 53 |EDS ALLE SPATIES|
00000BE0: 00 ED 13 93 00 4C 44 41 20 53 50 41 43 00 F9 13 |.....LDA SPAC...|
00000BF0: 94 00 43 4D 50 20 23 38 30 00 06 14 95 00 42 4E |..CMP #80.....BN|
00000C00: 45 20 43 91 53 50 00 22 14 96 00 4C 44 41 20 23 |E C.SP."...LDA #|
00000C10: 31 33 20 21 43 41 52 2E 52 45 54 2E 4C 2E 46 45 |13 !CAR.RET.L.FE|
00000C20: 45 44 00 30 14 97 00 4A 53 52 20 50 52 A4 55 54 |ED.0...JSR PR.UT|
00000C30: 00 3E 14 98 00 54 45 52 55 47 20 52 54 53 00 4A |.>...TERUG RTS.J|
00000C40: 14 99 00 21 20 45 58 52 4F 4D 00 57 14 9A 00 21 |...! EXROM.W...!|
00000C50: AC AC AC AC AC AC AC 00 6F 14 9B 00 45 58 52 4F |........o...EXRO|
00000C60: 4D 20 53 45 49 20 21 20 52 4F 4D 20 55 49 54 00 |M SEI ! ROM UIT.|
00000C70: 79 14 9C 00 4C 44 41 20 31 00 8A 14 9D 00 AF 20 |y...LDA 1...... |
00000C80: 23 25 31 31 31 31 31 31 30 30 00 94 14 9E 00 53 |#%11111100.....S|
00000C90: 54 41 20 31 00 9F 14 9F 00 4C 44 59 20 23 30 00 |TA 1.....LDY #0.|
00000CA0: B4 14 A0 00 52 4F 4D 20 4C 44 41 20 28 54 45 50 |....ROM LDA (TEP|
00000CB0: 4F 29 2C 59 00 C3 14 A1 00 53 54 41 20 43 48 52 |O),Y.....STA CHR|
00000CC0: 88 2C 59 00 CB 14 A2 00 49 4E 59 00 D6 14 A3 00 |.,Y.....INY.....|
00000CD0: 43 50 59 20 23 34 00 E2 14 A4 00 42 4E 45 20 52 |CPY #4.....BNE R|
00000CE0: 4F 4D 00 F6 14 A5 00 4C 44 41 20 31 20 21 20 52 |OM.....LDA 1 ! R|
00000CF0: 4F 4D 20 41 41 4E 00 00 15 A6 00 B0 41 20 23 33 |OM AAN......A #3|
00000D00: 00 0A 15 A7 00 53 54 41 20 31 00 12 15 A8 00 43 |.....STA 1.....C|
00000D10: 4C 49 00 1A 15 A9 00 52 54 53 00 2B 15 AA 00 4D |LI.....RTS.+...M|
00000D20: 49 52 52 B0 20 4C 44 59 20 23 30 00 3C 15 AB 00 |IRR. LDY #0.<...|
00000D30: 54 52 49 50 31 20 4C 44 58 20 23 30 00 51 15 AC |TRIP1 LDX #0.Q..|
00000D40: 00 54 52 49 50 32 20 52 4F 4C 20 43 48 52 88 2C |.TRIP2 ROL CHR.,|
00000D50: 58 00 60 15 AD 00 42 43 43 20 42 54 52 49 50 31 |X.`...BCC BTRIP1|
00000D60: 00 6A 15 AE 00 52 4F 4C 20 41 00 72 15 AF 00 53 |.j...ROL A.r...S|
00000D70: 45 43 00 7C 15 B0 00 52 4F 4C 20 41 00 8B 15 B1 |EC.|...ROL A....|
00000D80: 00 4A 4D 50 20 42 54 52 49 50 32 00 9C 15 B2 00 |.JMP BTRIP2.....|
00000D90: 42 54 52 49 50 31 20 52 4F 4C 20 41 00 A4 15 B3 |BTRIP1 ROL A....|
00000DA0: 00 43 4C 43 00 AE 15 B4 00 52 4F 4C 20 41 00 BD |.CLC.....ROL A..|
00000DB0: 15 B5 00 42 54 52 49 50 32 20 49 4E 58 00 C8 15 |...BTRIP2 INX...|
00000DC0: B6 00 43 50 58 20 23 34 00 D6 15 B7 00 42 4E 45 |..CPX #4.....BNE|
00000DD0: 20 54 52 49 50 32 00 E2 15 B8 00 53 54 41 20 88 | TRIP2.....STA .|
00000DE0: 2C 59 00 EA 15 B9 00 49 4E 59 00 F5 15 BA 00 43 |,Y.....INY.....C|
00000DF0: 50 59 20 23 34 00 03 16 BB 00 42 4E 45 20 54 52 |PY #4.....BNE TR|
00000E00: 49 50 31 00 0B 16 BC 00 52 54 53 00 1B 16 BD 00 |IP1.....RTS.....|
00000E10: 5A 45 52 4F 20 4C 44 58 20 23 30 00 23 16 BE 00 |ZERO LDX #0.#...|
00000E20: 54 58 41 00 35 16 BF 00 4C 4F 4F 50 30 20 43 4D |TXA.5...LOOP0 CM|
00000E30: 50 20 88 2C 58 00 42 16 C0 00 42 4E 45 20 4F 55 |P .,X.B...BNE OU|
00000E40: 54 30 00 4A 16 C1 00 49 4E 58 00 55 16 C2 00 43 |T0.J...INX.U...C|
00000E50: 50 58 20 23 34 00 63 16 C3 00 42 4E 45 20 4C 4F |PX #4.c...BNE LO|
00000E60: 4F 50 30 00 70 16 C4 00 4F 55 54 30 20 52 54 53 |OP0.p...OUT0 RTS|
00000E70: 00 7B 16 C5 00 21 20 96 43 48 52 00 89 16 C6 00 |.{...! .CHR.....|
00000E80: 21 AC AC AC AC AC AC AC AC 00 AB 16 C7 00 96 43 |!..............C|
00000E90: 48 52 20 4C 44 58 20 23 31 30 35 20 21 54 45 4B |HR LDX #105 !TEK|
00000EA0: 45 4E 20 96 49 4E 49 45 52 45 4E 00 B9 16 C8 00 |EN .INIEREN.....|
00000EB0: 4A 53 52 20 43 4B 4F 55 54 00 C4 16 C9 00 4C 44 |JSR CKOUT.....LD|
00000EC0: 58 20 23 30 00 D4 16 CA 00 53 80 43 20 4C 44 41 |X #0.....S.C LDA|
00000ED0: 20 88 2C 58 00 E2 16 CB 00 4A 53 52 20 50 52 A4 | .,X.....JSR PR.|
00000EE0: 55 54 00 F0 16 CC 00 4A 53 52 20 50 52 A4 55 54 |UT.....JSR PR.UT|
00000EF0: 00 F8 16 CD 00 49 4E 58 00 03 17 CE 00 43 50 58 |.....INX.....CPX|
00000F00: 20 23 34 00 0F 17 CF 00 42 4E 45 20 53 80 43 00 | #4.....BNE S.C.|
00000F10: 1B 17 D0 00 4C 44 41 20 23 31 33 00 29 17 D1 00 |....LDA #13.)...|
00000F20: 4A 53 52 20 50 52 A4 55 54 00 44 17 D2 00 4C 44 |JSR PR.UT.D...LD|
00000F30: 58 20 23 31 30 30 20 21 45 4E 20 55 49 54 53 54 |X #100 !EN UITST|
00000F40: 55 52 45 4E 00 52 17 D3 00 4A 53 52 20 43 4B 4F |UREN.R...JSR CKO|
00000F50: 55 54 00 5E 17 D4 00 4A 53 52 20 43 4F 4C 00 6B |UT.^...JSR COL.k|
00000F60: 17 D5 00 4C 44 41 20 23 32 35 34 00 79 17 D6 00 |...LDA #254.y...|
00000F70: 4A 53 52 20 50 52 A4 55 54 00 86 17 D7 00 4C 44 |JSR PR.UT.....LD|
00000F80: 41 20 23 31 34 31 00 94 17 D8 00 4A 4D 50 20 50 |A #141.....JMP P|
00000F90: 52 A4 55 54 00 9E 17 D9 00 21 20 43 4F 4C 00 A9 |R.UT.....! COL..|
00000FA0: 17 DA 00 21 AC AC AC AC AC 00 BA 17 DB 00 43 4F |...!..........CO|
00000FB0: 4C 20 4C 44 58 20 53 50 41 43 00 C9 17 DC 00 42 |L LDX SPAC.....B|
00000FC0: 45 51 20 4F 55 54 43 4F 4C 00 D6 17 DD 00 4C 44 |EQ OUTCOL.....LD|
00000FD0: 41 20 23 24 32 30 00 EC 17 DE 00 4C 4F 4F 50 43 |A #$20.....LOOPC|
00000FE0: 4F 4C 20 4A 53 52 20 50 52 A4 55 54 00 F4 17 DF |OL JSR PR.UT....|
00000FF0: 00 44 45 58 00 04 18 E0 00 42 4E 45 20 4C 4F 4F |.DEX.....BNE LOO|
00001000: 50 43 4F 4C 00 13 18 E1 00 4F 55 54 43 4F 4C 20 |PCOL.....OUTCOL |
00001010: 52 54 53 00 19 18 E2 00 80 00 00 00 FF |RTS.......... |
......OUT 4.(.....$C000 !STARTADRES HEX.
.E...!........................K...!.Q...
!.L...! HI RES HARDCOPY DUAL.....! .....
....................! DO. ..,ST W.D EEN
VERGROTE.K...! HIRESHARDCOPY OP DE 1526/
802.....! PRINTER UITGEVOERD.....!.....!
ST.4096.BEGINADRES HI.RES BITMAP.-...!
V.B. SYS*,2 DIA-SHOW.3...!.E...! V7 23.
01.85.K...!.F...! (C) '85 BY SOMERS P..L
...!.....! TABEL VOOR ST:.....! ........
........................M...! HI.RES GRA
FIC AID..........ST.2.....! 64 .ERN.....
.............ST.2.....! PA. MAGIC.......
.........ST.4.;...! DOODLER.............
.......ST.6._...! KOALAPA.ER............
...ST.6.....! SCREEN.GRAPHICS...........
ST.10.....! ULTRA.BASIC...............ST
.10.Q...! SUPERGRAFIC 64.........ST.10.1
4.....! SIM.S BASIC..............ST.14..
...!................................."..
.!.7...! .ENITIE LABELS.N. .! ..........
.......T.!.!.V.".SFP.$FFBA !ZET FILE.PAR
AMETER...#...$FFC0 !. FILE...$.CKOUT.$FF
C9 !ZET OUTPUT DEVICE ..T.%.PR.UT.$FFD2
!TEKEN IN A PLAATSEN...&..BYT.$B79E !8.B
IT .AL HAC...'.S.P.$FFBD !ZET FICAAM PAR
AMET..-.(. .$FFC3 !SLUIT FILE.N.)..CH.$F
FCC !I..ETSEN O.SCHERM.M.*.CKCOM.$AEFD !
TEST OP COMMA...+.ERR..$B248 !FOUT 'ILLE
GAL QUANTITY'...,...$0342 !4 BYTE'S CHAR
...IN..Z.-.CHR..$033E !4 BYTE'S CHAR...I
N......SPAC.$033D !SPATIE TELLER.../.TET
E.$033C !TEKEN TELLER./.0.TEPO.$FE !TEKE
N PO.ER.5.1.!.E.2.! PROGRAMMA.U.3.! ....
......[.4.!...5.START JSR CKCOM !P HAC I
N TEKEN.PO.ER...6.JSR .BYT...7.CPX #16..
.8.BCC KED...9.JMP ERR..C.:.KED TXA.M.;.
ASL A.W.<.ASL A...=.ASL A...>.ASL A...?.
STA TEPO.1...@.LDA #0...A.STA TEPO.0.B.L
DA #106 !OPEN 106,4,6,"".;.C.LDX #4.F.D.
LDY #6.T.E.JSR OPFIL.|.F.LDX #106 !PRINT
#106,CHR$(20) RSPAT....G.JSR CKOUT...H.L
DA #20...I.JSR PR.UT.A.J.LDA #105 !OPEN1
05,4,5,"".L.K.LDX #4.W.L.LDY #5...M.JSR
OPFIL...N.LDA #100 !OPEN 100,4,0,""...O.
LDX #4...P.LDY #0.'.Q.JSR OPFIL.<.R.LDX
#100 !CMD100.J.S.JSR CKOUT.B.T.LDA #141
!PRINT#100.P.U.JSR PR.UT...V.LDA #0 !TEK
EN-TELLER OP 0...W.STA TETE...X.HALVE JS
R HALED !UPPER DEEL .EN...Y.LDA TEPO !TE
PO OP BEGIN LOWER DEEL...Z.SEC...[.SBC #
.316...\.STA TEPO...].LDA TEPO.1.&.^.SBC
#.316.5._.STA TEPO.1.S.`.JSR HALED !LOW
ER DEEL .EN.X.A.LDA TEPO !TEPO OP NIEUW
HALFDEEL...B.SEC...C.SBC #4...D.STA TEPO
...E.BCS LIJNO...F.DEC TEPO.1.Y.G.LIJNO
INC TETE ! REEDS ALLE DEC...H.LDA TETE..
.I.CMP #25 !REEDS 25 REGELS ..%.J.BNE HA
LVE !NEEN DAN OPNIEUW.H.K.EIND LDA #105
! 105 25 REG.AF.R.L.JSR .I.M.LDA #13 !
PRINT#100.W.N.JSR PR.UT...O.LDA #100 !CL
OSE100...P.JSR ...Q.LDX #106 !PRINT#106
,CHR$(36).G.R.JSR CKOUT...S.LDA #36 !REG
ELAFS.D TERUG N.M....T.JSR PR.UT...U.LDA
#106...V.JSR .+.W.JMP .CH !EIND PROGRA
MMA.:.X.! OPENFILE.J.Y.!...........\.Z.O
PFIL JSR SFP.G.{.LDA #0.S.|.JSR S.P.}.}.
JMP ....~.! HALED....!............HALED
LDA #0 !SPATIETELLER OP 0.G...STA SPAC.
Z...C.SP JSR EXROM.....JSR MIRR......JSR
ZERO.....BEQ SPCUP.....JSR .CHR.#...SPC
UP INC SPAC.1...JSR MIRR..>...JSR ZERO.L
...BEQ VGDSP.Y...JSR .CHR.....VGDSP LDA
TEPO !TEPO OP VOLG.TEKEN.....CLC.....ADC
#8. ...STA TEPO.....BCC OJ3.....INC TEP
O.1.....OJ3 INC SPAC !REEDS ALLE SPATIES
.....LDA SPAC.....CMP #80.....BNE C.SP."
...LDA #13 !CAR.RET.L.FEED.0...JSR PR.UT
.>...TERUG RTS.J...! EXROM.W...!........
O...EXROM SEI ! ROM UIT.Y...LDA 1......
#%11111100.....STA 1.....LDY #0... .ROM
LDA (TEPO),Y.C...STA CHR.,Y.K...INY.V...
CPY #4.....BNE ROM.....LDA 1 ! ROM AAN..
....A #3.....STA 1.....CLI.....RTS.+...M
IRR. LDY #0.<...TRIP1 LDX #0.Q...TRIP2 R
OL CHR.,X.`...BCC BTRIP1.J...ROL A.R...S
EC.|...ROL A.....JMP BTRIP2.....BTRIP1 R
OL A.....CLC.....ROL A.....BTRIP2 INX.H.
..CPX #4.V...BNE TRIP2.....STA .,Y.....I
NY.....CPY #4.....BNE TRIP1.....RTS.....
ZERO LDX #0.#...TXA.5...LOOP0 CMP .,X.B.
..BNE OUT0.J.A.INX.U.B.CPX #4.C.C.BNE LO
OP0.P.D.OUT0 RTS.{.E.! .CHR...F.!.......
....G..CHR LDX #105 !TEKEN .INIEREN...H.
JSR CKOUT.D.I.LDX #0.T.J.S.C LDA .,X...K
.JSR PR.UT...L.JSR PR.UT...M.INX...N.CPX
#4...O.BNE S.C...P.LDA #13.).Q.JSR PR.U
T.D.R.LDX #100 !EN UITSTUREN.R.S.JSR CKO
UT.^.T.JSR COL.K.U.LDA #254.Y.V.JSR PR.U
T...W.LDA #141...X.JMP PR.UT...Y.! COL..
.Z.!..........COL LDX SPAC.I...BEQ OUTCO
L.V...LDA #$20.....LOOPCOL JSR PR.UT....
.DEX.....BNE LOOPCOL.....OUTCOL RTS.....
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL