SYMPRINT.PAL
FILE INFORMATION
FILENAME(S): SYMPRINT.PAL
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 16:59:35
APPEARS ON: 2 disk(s)
FILE HASH
dd788bdb01a3d0696e12a7c64edef7c670b58e8f6555e3b4647ceb792acd586f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PAL POWER | SYMPRINT.PAL | PRG | High Voltage Complete C64 Collection | 16 | 3 | DOWNLOAD FILE |
| UTILITIE | SYMPRINT.PAL | PRG | DuncanTwain | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 0A 00 8F 22 53 3D 53 41 56 45 22 40 |..!...."S=SAVE"@|
00000010: 30 3A 53 59 4D 50 52 49 4E 54 2E 50 41 4C 22 2C |0:SYMPRINT.PAL",|
00000020: 38 00 3A 08 14 00 9F 32 2C 38 2C 31 2C 22 40 30 |8.:....2,8,1,"@0|
00000030: 3A 53 59 4D 50 52 49 4E 54 22 00 43 08 1E 00 9E |:SYMPRINT".C....|
00000040: 37 30 30 00 4F 08 28 00 2E 4F 50 54 20 4F 32 00 |700.O.(..OPT O2.|
00000050: 5E 08 3C 00 46 49 4C 4E 55 4D 20 B2 20 31 00 6E |^.<.FILNUM . 1.n|
00000060: 08 46 00 4F 55 54 46 49 4C 4E 20 B2 20 32 00 7B |.F.OUTFILN . 2.{|
00000070: 08 50 00 A5 C3 20 B2 20 24 42 37 00 8A 08 5A 00 |.P... . $B7...Z.|
00000080: A5 50 54 52 20 B2 20 24 42 42 00 A1 08 5F 00 2E |.PTR . $BB..._..|
00000090: 4C 53 54 20 38 2C 34 2C 22 50 41 4C 44 45 46 36 |LST 8,4,"PALDEF6|
000000A0: 34 00 B0 08 64 00 53 54 52 C3 20 B2 20 46 41 BD |4...d.STR. . FA.|
000000B0: 00 C3 08 78 00 53 54 52 50 54 52 20 B2 20 46 41 |...x.STRPTR . FA|
000000C0: 4D 53 42 00 D0 08 8C 00 4D 41 58 C3 20 B2 20 38 |MSB.....MAX. . 8|
000000D0: 00 D6 08 A0 00 3B 00 DC 08 AA 00 3B 00 E6 08 B4 |.....;.....;....|
000000E0: 00 AC B2 24 31 39 00 F5 08 BE 00 53 50 54 52 20 |...$19.....SPTR |
000000F0: AC B2 AC AA 32 00 04 09 C8 00 53 59 4D 4C 20 AC |....2.....SYML .|
00000100: B2 AC AA 31 00 14 09 D2 00 53 42 4F 54 4D 20 AC |...1.....SBOTM .|
00000110: B2 AC AA 32 00 26 09 DC 00 4E 55 4D 53 59 4D 53 |...2.&...NUMSYMS|
00000120: 20 AC B2 AC AA 32 00 35 09 E6 00 50 C6 4E 54 20 | ....2.5...P.NT |
00000130: AC B2 AC AA 32 00 44 09 F0 00 45 4E 54 C5 20 AC |....2.D...ENT. .|
00000140: B2 AC AA 32 00 4A 09 FA 00 3B 00 53 09 04 01 2E |...2.J...;.S....|
00000150: 42 41 53 00 71 09 0E 01 99 3A 85 22 53 59 4D 42 |BAS.q....:."SYMB|
00000160: 4F 4C 20 54 41 42 4C 45 20 46 49 4C 45 22 3B 53 |OL TABLE FILE";S|
00000170: 24 00 88 09 18 01 85 22 4F 55 54 50 55 54 20 44 |$......"OUTPUT D|
00000180: 45 56 49 43 45 22 3B 44 00 AE 09 22 01 8B 44 B1 |EVICE";D..."..D.|
00000190: B2 38 A7 85 22 53 45 51 55 45 4E 54 49 41 4C 20 |.8.."SEQUENTIAL |
000001A0: 46 49 4C 45 20 4E 41 4D 45 22 3B 4E 41 24 00 BC |FILE NAME";NA$..|
000001B0: 09 2C 01 9F 31 2C 38 2C 32 2C 53 24 00 CB 09 36 |.,..1,8,2,S$...6|
000001C0: 01 9F 32 2C 44 2C 33 2C 4E 41 24 00 DB 09 40 01 |..2,D,3,NA$...@.|
000001D0: 9E 22 53 59 4D 50 52 49 4E 54 22 00 EE 09 4A 01 |."SYMPRINT"...J.|
000001E0: A0 31 3A 8B 44 B1 32 AF 44 B3 36 A7 98 32 00 F7 |.1:.D.2.D.6..2..|
000001F0: 09 54 01 A0 32 3A 80 00 FD 09 5E 01 3B 00 0A 0A |.T..2:....^.;...|
00000200: 68 01 53 59 4D 99 20 B2 20 AC 00 1A 0A 72 01 4C |h.SYM. . ....r.L|
00000210: 44 58 20 23 46 49 4C 4E 55 4D 00 28 0A 7C 01 4A |DX #FILNUM.(.|.J|
00000220: 53 52 20 43 48 4B 49 4E 00 36 0A 86 01 4C 44 41 |SR CHKIN.6...LDA|
00000230: 20 4D 45 4D A4 50 00 43 0A 90 01 53 54 41 20 53 | MEM.P.C...STA S|
00000240: 50 54 52 00 53 0A 9A 01 4C 44 41 20 4D 45 4D A4 |PTR.S...LDA MEM.|
00000250: 50 AA 31 00 62 0A A4 01 53 54 41 20 53 50 54 52 |P.1.b...STA SPTR|
00000260: AA 31 00 6D 0A AE 01 4C 44 41 20 23 30 00 7D 0A |.1.m...LDA #0.}.|
00000270: B8 01 53 54 41 20 4E 55 4D 53 59 4D 53 00 8F 0A |..STA NUMSYMS...|
00000280: C2 01 53 54 41 20 4E 55 4D 53 59 4D 53 AA 31 00 |..STA NUMSYMS.1.|
00000290: A0 0A CC 01 4C 44 4C 4F 50 20 4C 44 59 20 53 54 |....LDLOP LDY ST|
000002A0: 00 AC 0A D6 01 42 4E 45 20 93 56 52 00 B9 0A E0 |.....BNE .VR....|
000002B0: 01 4C 44 41 20 53 50 54 52 00 C1 0A EA 01 53 45 |.LDA SPTR.....SE|
000002C0: 43 00 CC 0A F4 01 53 42 43 20 23 31 00 D9 0A FE |C.....SBC #1....|
000002D0: 01 53 54 41 20 53 50 54 52 00 E6 0A 08 02 42 43 |.STA SPTR.....BC|
000002E0: 53 20 4E 44 53 42 00 F5 0A 12 02 44 45 43 20 53 |S NDSB.....DEC S|
000002F0: 50 54 52 AA 31 00 04 0B 1C 02 4E 44 53 42 20 4A |PTR.1.....NDSB J|
00000300: 53 52 20 85 00 15 0B 26 02 53 54 41 20 28 53 50 |SR ....&.STA (SP|
00000310: 54 52 29 2C 59 00 23 0B 30 02 4A 4D 50 20 4C 44 |TR),Y.#.0.JMP LD|
00000320: 4C 4F 50 00 34 0B 3A 02 93 56 52 20 4A 53 52 20 |LOP.4.:..VR JSR |
00000330: 9C 43 48 4E 00 41 0B 44 02 4C 44 41 20 53 50 54 |.CHN.A.D.LDA SPT|
00000340: 52 00 4F 0B 4E 02 53 54 41 20 53 42 4F 54 4D 00 |R.O.N.STA SBOTM.|
00000350: 5E 0B 58 02 4C 44 41 20 53 50 54 52 AA 31 00 6E |^.X.LDA SPTR.1.n|
00000360: 0B 62 02 53 54 41 20 53 42 4F 54 4D AA 31 00 74 |.b.STA SBOTM.1.t|
00000370: 0B 6C 02 3B 00 97 0B 76 02 3B 4E 4F 57 20 50 55 |.l.;...v.;NOW PU|
00000380: 54 20 54 48 45 4D 20 49 4E 20 38 20 43 48 41 52 |T THEM IN 8 CHAR|
00000390: 20 42 4C 4F 43 4B 53 00 9D 0B 80 02 3B 00 AB 0B | BLOCKS.....;...|
000003A0: 8A 02 4C 44 41 20 45 4F 56 41 52 00 B8 0B 94 02 |..LDA EOVAR.....|
000003B0: 53 54 41 20 53 50 54 52 00 C8 0B 9E 02 4C 44 41 |STA SPTR.....LDA|
000003C0: 20 45 4F 56 41 52 AA 31 00 D7 0B A8 02 53 54 41 | EOVAR.1.....STA|
000003D0: 20 53 50 54 52 AA 31 00 E8 0B B2 02 44 4F 4D B0 | SPTR.1.....DOM.|
000003E0: 45 20 4C 44 59 20 23 30 00 F8 0B BC 02 49 4E 43 |E LDY #0.....INC|
000003F0: 20 4E 55 4D 53 59 4D 53 00 05 0C C6 02 42 4E 45 | NUMSYMS.....BNE|
00000400: 20 4E 42 4D 31 00 17 0C D0 02 49 4E 43 20 4E 55 | NBM1.....INC NU|
00000410: 4D 53 59 4D 53 AA 31 00 2E 0C DA 02 4E 42 4D 31 |MSYMS.1.....NBM1|
00000420: 20 4C 44 41 20 28 53 42 4F 54 4D 29 2C 59 00 3F | LDA (SBOTM),Y.?|
00000430: 0C E4 02 53 54 41 20 28 53 50 54 52 29 2C 59 00 |...STA (SPTR),Y.|
00000440: 47 0C EE 02 49 4E 59 00 59 0C F8 02 4C 44 41 20 |G...INY.Y...LDA |
00000450: 28 53 42 4F 54 4D 29 2C 59 00 6A 0C 02 03 53 54 |(SBOTM),Y.j...ST|
00000460: 41 20 28 53 50 54 52 29 2C 59 00 72 0C 0C 03 49 |A (SPTR),Y.r...I|
00000470: 4E 59 00 84 0C 16 03 4C 44 41 20 28 53 42 4F 54 |NY.....LDA (SBOT|
00000480: 4D 29 2C 59 00 8C 0C 20 03 50 48 41 00 99 0C 2A |M),Y... .PHA...*|
00000490: 03 AF 20 23 25 30 31 31 31 00 C0 0C 34 03 43 4C |.. #%0111...4.CL|
000004A0: 43 3A 20 41 44 43 20 23 33 3B 91 45 20 81 20 52 |C: ADC #3;.E . R|
000004B0: 45 44 55 43 54 49 91 2C 20 32 20 81 20 C5 55 45 |EDUCTI., 2 . .UE|
000004C0: 00 CD 0C 3E 03 53 54 41 20 53 59 4D 4C 00 D5 0C |...>.STA SYML...|
000004D0: 48 03 50 4C 41 00 DD 0C 52 03 4C 53 52 00 E5 0C |H.PLA...R.LSR...|
000004E0: 5C 03 4C 53 52 00 FD 0C 66 03 4C 53 52 3B A1 20 |\.LSR...f.LSR;. |
000004F0: 88 54 45 52 20 49 4E 20 50 4C 41 43 45 00 05 0D |.TER IN PLACE...|
00000500: 70 03 43 4C 43 00 12 0D 7A 03 41 44 43 20 23 22 |p.CLC...z.ADC #"|
00000510: 41 22 00 23 0D 84 03 53 54 41 20 28 53 50 54 52 |A".#...STA (SPTR|
00000520: 29 2C 59 00 32 0D 8E 03 52 45 53 54 4C 50 20 49 |),Y.2...RESTLP I|
00000530: 4E 59 00 3F 0D 98 03 43 50 59 20 53 59 4D 4C 00 |NY.?...CPY SYML.|
00000540: 5E 0D A2 03 42 43 53 20 54 48 53 49 4D 44 3B 54 |^...BCS THSIMD;T|
00000550: 48 49 53 20 53 59 4D 42 4F 4C 20 44 91 45 00 70 |HIS SYMBOL D.E.p|
00000560: 0D AC 03 4C 44 41 20 28 53 42 4F 54 4D 29 2C 59 |...LDA (SBOTM),Y|
00000570: 00 81 0D B6 03 53 54 41 20 28 53 50 54 52 29 2C |.....STA (SPTR),|
00000580: 59 00 90 0D C0 03 4A 4D 50 20 52 45 53 54 4C 50 |Y.....JMP RESTLP|
00000590: 00 A7 0D CA 03 54 48 53 49 4D 44 20 43 50 59 20 |.....THSIMD CPY |
000005A0: 23 4D 41 58 C3 AA 32 00 B7 0D D4 03 42 43 53 20 |#MAX..2.....BCS |
000005B0: 4E 4F 53 50 43 45 53 00 C4 0D DE 03 4C 44 41 20 |NOSPCES.....LDA |
000005C0: 23 22 20 22 00 D5 0D E8 03 53 54 41 20 28 53 50 |#" ".....STA (SP|
000005D0: 54 52 29 2C 59 00 DD 0D F2 03 49 4E 59 00 EC 0D |TR),Y.....INY...|
000005E0: FC 03 42 4E 45 20 54 48 53 49 4D 44 00 01 0E 06 |..BNE THSIMD....|
000005F0: 04 4E 4F 53 50 43 45 53 20 4C 44 41 20 53 50 54 |.NOSPCES LDA SPT|
00000600: 52 00 09 0E 10 04 43 4C 43 00 19 0E 1A 04 41 44 |R.....CLC.....AD|
00000610: 43 20 23 4D 41 58 C3 AA 32 00 26 0E 24 04 53 54 |C #MAX..2.&.$.ST|
00000620: 41 20 53 50 54 52 00 34 0E 2E 04 42 43 43 20 4E |A SPTR.4...BCC N|
00000630: 4F 42 4D 33 00 43 0E 38 04 49 4E 43 20 53 50 54 |OBM3.C.8.INC SPT|
00000640: 52 AA 31 00 57 0E 42 04 4E 4F 42 4D 33 20 4C 44 |R.1.W.B.NOBM3 LD|
00000650: 41 20 53 42 4F 54 4D 00 5F 0E 4C 04 43 4C 43 00 |A SBOTM._.L.CLC.|
00000660: 6C 0E 56 04 41 44 43 20 53 59 4D 4C 00 7A 0E 60 |l.V.ADC SYML.z.`|
00000670: 04 53 54 41 20 53 42 4F 54 4D 00 82 0E 6A 04 54 |.STA SBOTM...j.T|
00000680: 41 58 00 92 0E 74 04 4C 44 41 20 53 42 4F 54 4D |AX...t.LDA SBOTM|
00000690: AA 31 00 9D 0E 7E 04 41 44 43 20 23 30 00 AD 0E |.1...~.ADC #0...|
000006A0: 88 04 53 54 41 20 53 42 4F 54 4D AA 31 00 BE 0E |..STA SBOTM.1...|
000006B0: 92 04 43 4D 50 20 20 4D 45 4D A4 50 AA 31 00 CC |..CMP MEM.P.1..|
000006C0: 0E 9C 04 42 43 43 20 44 4F 4D B0 45 00 DA 0E A6 |...BCC DOM.E....|
000006D0: 04 43 50 58 20 4D 45 4D A4 50 00 E8 0E B0 04 42 |.CPX MEM.P.....B|
000006E0: 43 43 20 44 4F 4D B0 45 00 EE 0E BA 04 3B 00 FE |CC DOM.E.....;..|
000006F0: 0E C4 04 3B 4E 4F 57 20 57 45 20 53 B0 54 00 04 |...;NOW WE S.T..|
00000700: 0F CE 04 3B 00 24 0F D8 04 3B 41 20 53 C0 44 41 |...;.$...;A S.DA|
00000710: 52 44 20 42 55 42 42 4C 45 20 53 B0 54 20 49 53 |RD BUBBLE S.T IS|
00000720: 20 44 91 45 00 34 0F E2 04 4C 44 41 20 4E 55 4D | D.E.4...LDA NUM|
00000730: 53 59 4D 53 00 43 0F EC 04 53 45 43 3A 53 42 43 |SYMS.C...SEC:SBC|
00000740: 20 23 31 00 50 0F F6 04 53 54 41 20 50 C6 4E 54 | #1.P...STA P.NT|
00000750: 00 62 0F 00 05 4C 44 41 20 4E 55 4D 53 59 4D 53 |.b...LDA NUMSYMS|
00000760: AA 31 00 6D 0F 0A 05 53 42 43 20 23 30 00 7C 0F |.1.m...SBC #0.|.|
00000770: 14 05 53 54 41 20 50 C6 4E 54 AA 31 00 90 0F 1E |..STA P.NT.1....|
00000780: 05 44 4F 50 41 53 53 20 4C 44 41 20 50 C6 4E 54 |.DOPASS LDA P.NT|
00000790: 00 9D 0F 28 05 53 54 41 20 45 4E 54 C5 00 AC 0F |...(.STA ENT....|
000007A0: 32 05 4C 44 41 20 50 C6 4E 54 AA 31 00 BB 0F 3C |2.LDA P.NT.1...<|
000007B0: 05 53 54 41 20 45 4E 54 C5 AA 31 00 C9 0F 46 05 |.STA ENT..1...F.|
000007C0: 4C 44 41 20 45 4F 56 41 52 00 D7 0F 50 05 53 54 |LDA EOVAR...P.ST|
000007D0: 41 20 53 42 4F 54 4D 00 EB 0F 5A 05 43 4C 43 3A |A SBOTM...Z.CLC:|
000007E0: 41 44 43 20 23 4D 41 58 C3 AA 32 00 F8 0F 64 05 |ADC #MAX..2...d.|
000007F0: 53 54 41 20 53 50 54 52 00 08 10 6E 05 4C 44 41 |STA SPTR...n.LDA|
00000800: 20 45 4F 56 41 52 AA 31 00 18 10 78 05 53 54 41 | EOVAR.1...x.STA|
00000810: 20 53 42 4F 54 4D AA 31 00 23 10 82 05 41 44 43 | SBOTM.1.#...ADC|
00000820: 20 23 30 00 32 10 8C 05 53 54 41 20 53 50 54 52 | #0.2...STA SPTR|
00000830: AA 31 00 44 10 96 05 44 4F 53 59 4D 42 20 4C 44 |.1.D...DOSYMB LD|
00000840: 59 20 23 32 00 5C 10 A0 05 4D B0 45 43 4D 50 20 |Y #2.\...M.ECMP |
00000850: 4C 44 41 20 28 53 50 54 52 29 2C 59 00 6E 10 AA |LDA (SPTR),Y.n..|
00000860: 05 43 4D 50 20 28 53 42 4F 54 4D 29 2C 59 00 7D |.CMP (SBOTM),Y.}|
00000870: 10 B4 05 42 43 43 20 45 58 43 48 4E 47 00 8C 10 |...BCC EXCHNG...|
00000880: BE 05 42 4E 45 20 4E 58 43 48 4E 47 00 94 10 C8 |..BNE NXCHNG....|
00000890: 05 49 4E 59 00 A4 10 D2 05 43 50 59 20 23 32 AA |.INY.....CPY #2.|
000008A0: 4D 41 58 C3 00 B3 10 DC 05 42 43 43 20 4D B0 45 |MAX......BCC M.E|
000008B0: 43 4D 50 00 C2 10 E6 05 42 43 53 20 4E 58 43 48 |CMP.....BCS NXCH|
000008C0: 4E 47 00 D4 10 F0 05 45 58 43 48 4E 47 20 4C 44 |NG.....EXCHNG LD|
000008D0: 59 20 23 30 00 EB 10 FA 05 45 58 4C 4F 50 20 4C |Y #0.....EXLOP L|
000008E0: 44 41 20 28 53 50 54 52 29 2C 59 00 F3 10 04 06 |DA (SPTR),Y.....|
000008F0: 54 41 58 00 05 11 0E 06 4C 44 41 20 28 53 42 4F |TAX.....LDA (SBO|
00000900: 54 4D 29 2C 59 00 16 11 18 06 53 54 41 20 28 53 |TM),Y.....STA (S|
00000910: 50 54 52 29 2C 59 00 1E 11 22 06 54 58 41 00 30 |PTR),Y...".TXA.0|
00000920: 11 2C 06 53 54 41 20 28 53 42 4F 54 4D 29 2C 59 |.,.STA (SBOTM),Y|
00000930: 00 38 11 36 06 49 4E 59 00 48 11 40 06 43 50 59 |.8.6.INY.H.@.CPY|
00000940: 20 23 4D 41 58 C3 AA 32 00 56 11 4A 06 42 43 43 | #MAX..2.V.J.BCC|
00000950: 20 45 58 4C 4F 50 00 6A 11 54 06 4E 58 43 48 4E | EXLOP.j.T.NXCHN|
00000960: 47 20 4C 44 41 20 53 50 54 52 00 72 11 5E 06 43 |G LDA SPTR.r.^.C|
00000970: 4C 43 00 82 11 68 06 41 44 43 20 23 4D 41 58 C3 |LC...h.ADC #MAX.|
00000980: AA 32 00 8F 11 72 06 53 54 41 20 53 50 54 52 00 |.2...r.STA SPTR.|
00000990: 9D 11 7C 06 42 43 43 20 4E 4F 42 4D 36 00 AC 11 |..|.BCC NOBM6...|
000009A0: 86 06 49 4E 43 20 53 50 54 52 AA 31 00 C0 11 90 |..INC SPTR.1....|
000009B0: 06 4E 4F 42 4D 36 20 4C 44 41 20 53 42 4F 54 4D |.NOBM6 LDA SBOTM|
000009C0: 00 C8 11 9A 06 43 4C 43 00 D8 11 A4 06 41 44 43 |.....CLC.....ADC|
000009D0: 20 23 4D 41 58 C3 AA 32 00 E6 11 AE 06 53 54 41 | #MAX..2.....STA|
000009E0: 20 53 42 4F 54 4D 00 F4 11 B8 06 42 43 43 20 4E | SBOTM.....BCC N|
000009F0: 4F 42 4D 37 00 04 12 C2 06 49 4E 43 20 53 42 4F |OBM7.....INC SBO|
00000A00: 54 4D AA 31 00 17 12 CC 06 4E 4F 42 4D 37 20 44 |TM.1.....NOBM7 D|
00000A10: 45 43 20 45 4E 54 C5 00 26 12 D6 06 42 4E 45 20 |EC ENT..&...BNE |
00000A20: 44 4F 53 59 4D 42 00 35 12 E0 06 44 45 43 20 45 |DOSYMB.5...DEC E|
00000A30: 4E 54 C5 AA 31 00 44 12 EA 06 42 50 4C 20 44 4F |NT..1.D...BPL DO|
00000A40: 53 59 4D 42 00 51 12 F4 06 44 45 43 20 50 C6 4E |SYMB.Q...DEC P.N|
00000A50: 54 00 60 12 FE 06 42 4E 45 20 44 4F 50 41 53 53 |T.`...BNE DOPASS|
00000A60: 00 6F 12 08 07 44 45 43 20 50 C6 4E 54 AA 31 00 |.o...DEC P.NT.1.|
00000A70: 7E 12 12 07 42 50 4C 20 44 4F 50 41 53 53 00 9D |~...BPL DOPASS..|
00000A80: 12 1C 07 3B 20 4E 4F 57 20 45 56 45 52 59 54 48 |...; NOW EVERYTH|
00000A90: 49 4E 47 20 49 53 20 53 B0 54 45 44 21 00 A3 12 |ING IS S.TED!...|
00000AA0: 26 07 3B 00 B4 12 30 07 4C 44 58 20 23 4F 55 54 |&.;...0.LDX #OUT|
00000AB0: 46 49 4C 4E 00 C3 12 3A 07 4A 53 52 20 43 48 4B |FILN...:.JSR CHK|
00000AC0: 4F 55 54 00 D1 12 44 07 4C 44 41 20 45 4F 56 41 |OUT...D.LDA EOVA|
00000AD0: 52 00 DE 12 4E 07 53 54 41 20 53 50 54 52 00 EE |R...N.STA SPTR..|
00000AE0: 12 58 07 4C 44 41 20 45 4F 56 41 52 AA 31 00 FD |.X.LDA EOVAR.1..|
00000AF0: 12 62 07 53 54 41 20 53 50 54 52 AA 31 00 08 13 |.b.STA SPTR.1...|
00000B00: 6C 07 4C 44 58 20 23 36 00 15 13 76 07 53 54 58 |l.LDX #6...v.STX|
00000B10: 20 50 C6 4E 54 00 29 13 80 07 4D 4E 50 52 4C 50 | P.NT.)...MNPRLP|
00000B20: 20 44 45 43 20 50 C6 4E 54 00 38 13 8A 07 42 4E | DEC P.NT.8...BN|
00000B30: 45 20 4E 91 45 57 4C 4E 00 45 13 94 07 4C 44 41 |E N.EWLN.E...LDA|
00000B40: 20 23 24 30 44 00 54 13 9E 07 4A 53 52 20 4F 55 | #$0D.T...JSR OU|
00000B50: 54 50 55 54 00 5F 13 A8 07 4C 44 58 20 23 35 00 |TPUT._...LDX #5.|
00000B60: 6C 13 B2 07 53 54 58 20 50 C6 4E 54 00 7E 13 BC |l...STX P.NT.~..|
00000B70: 07 4E 91 45 57 4C 4E 20 4C 44 59 20 23 32 00 96 |.N.EWLN LDY #2..|
00000B80: 13 C6 07 4E 4D 50 52 4C 50 20 4C 44 41 20 28 53 |...NMPRLP LDA (S|
00000B90: 50 54 52 29 2C 59 00 A5 13 D0 07 4A 53 52 20 4F |PTR),Y.....JSR O|
00000BA0: 55 54 50 55 54 00 AD 13 DA 07 49 4E 59 00 BD 13 |UTPUT.....INY...|
00000BB0: E4 07 43 50 59 20 23 4D 41 58 C3 AA 32 00 CC 13 |..CPY #MAX..2...|
00000BC0: EE 07 42 43 43 20 4E 4D 50 52 4C 50 00 D9 13 F8 |..BCC NMPRLP....|
00000BD0: 07 4C 44 41 20 23 22 20 22 00 E8 13 02 08 4A 53 |.LDA #" ".....JS|
00000BE0: 52 20 4F 55 54 50 55 54 00 F7 13 0C 08 4A 53 52 |R OUTPUT.....JSR|
00000BF0: 20 4F 55 54 50 55 54 00 02 14 16 08 4C 44 59 20 | OUTPUT.....LDY |
00000C00: 23 31 00 13 14 20 08 4C 44 41 20 28 53 50 54 52 |#1... .LDA (SPTR|
00000C10: 29 2C 59 00 24 14 2A 08 4A 53 52 20 48 45 58 4F |),Y.$.*.JSR HEXO|
00000C20: 55 54 49 54 00 2C 14 34 08 44 45 59 00 3D 14 3E |UTIT.,.4.DEY.=.>|
00000C30: 08 4C 44 41 20 28 53 50 54 52 29 2C 59 00 4E 14 |.LDA (SPTR),Y.N.|
00000C40: 48 08 4A 53 52 20 48 45 58 4F 55 54 49 54 00 5B |H.JSR HEXOUTIT.[|
00000C50: 14 52 08 4C 44 41 20 23 22 20 22 00 6A 14 5C 08 |.R.LDA #" ".j.\.|
00000C60: 4A 53 52 20 4F 55 54 50 55 54 00 79 14 66 08 4A |JSR OUTPUT.y.f.J|
00000C70: 53 52 20 4F 55 54 50 55 54 00 86 14 70 08 4C 44 |SR OUTPUT...p.LD|
00000C80: 41 20 53 50 54 52 00 8E 14 7A 08 43 4C 43 00 9E |A SPTR...z.CLC..|
00000C90: 14 84 08 41 44 43 20 23 4D 41 58 C3 AA 32 00 AB |...ADC #MAX..2..|
00000CA0: 14 8E 08 53 54 41 20 53 50 54 52 00 B9 14 98 08 |...STA SPTR.....|
00000CB0: 42 43 43 20 4E 4F 42 4D 38 00 C8 14 A2 08 49 4E |BCC NOBM8.....IN|
00000CC0: 43 20 53 50 54 52 AA 31 00 DE 14 AC 08 4E 4F 42 |C SPTR.1.....NOB|
00000CD0: 4D 38 20 44 45 43 20 4E 55 4D 53 59 4D 53 00 ED |M8 DEC NUMSYMS..|
00000CE0: 14 B6 08 42 4E 45 20 4D 4E 50 52 4C 50 00 FF 14 |...BNE MNPRLP...|
00000CF0: C0 08 44 45 43 20 4E 55 4D 53 59 4D 53 AA 31 00 |..DEC NUMSYMS.1.|
00000D00: 0E 15 CA 08 42 50 4C 20 4D 4E 50 52 4C 50 00 16 |....BPL MNPRLP..|
00000D10: 15 D4 08 52 54 53 00 1C 15 DE 08 3B 00 2E 15 E8 |...RTS.....;....|
00000D20: 08 48 45 58 4F 55 54 49 54 20 20 B2 20 AC 00 36 |.HEXOUTIT . ..6|
00000D30: 15 F2 08 50 48 41 00 3E 15 FC 08 4C 53 52 00 46 |...PHA.>...LSR.F|
00000D40: 15 06 09 4C 53 52 00 4E 15 10 09 4C 53 52 00 56 |...LSR.N...LSR.V|
00000D50: 15 1A 09 4C 53 52 00 76 15 24 09 4A 53 52 20 48 |...LSR.v.$.JSR H|
00000D60: 43 4F 55 54 3B 50 55 54 20 43 48 41 52 41 43 54 |COUT;PUT CHARACT|
00000D70: 45 52 20 4F 55 54 00 7E 15 2E 09 50 4C 41 00 88 |ER OUT.~...PLA..|
00000D80: 15 38 09 AF 20 23 24 46 00 96 15 42 09 4A 53 52 |.8.. #$F...B.JSR|
00000D90: 20 48 43 4F 55 54 00 9E 15 4C 09 52 54 53 00 A4 | HCOUT...L.RTS..|
00000DA0: 15 56 09 3B 00 C2 15 60 09 48 43 4F 55 54 20 B2 |.V.;...`.HCOUT .|
00000DB0: 20 AC 3B 43 48 41 52 20 4F 55 54 20 49 4E 20 48 | .;CHAR OUT IN H|
00000DC0: 45 58 00 CE 15 6A 09 B0 41 20 23 22 30 22 00 DD |EX...j..A #"0"..|
00000DD0: 15 74 09 43 4D 50 20 23 22 39 22 AA 31 00 EB 15 |.t.CMP #"9".1...|
00000DE0: 7E 09 42 43 43 20 4F 4B 4E 4F 57 00 FD 15 88 09 |~.BCC OKNOW.....|
00000DF0: 3B 43 41 52 52 59 20 49 53 20 53 45 54 00 10 16 |;CARRY IS SET...|
00000E00: 92 09 41 44 43 20 23 22 41 22 AB 22 39 22 AB 32 |..ADC #"A"."9".2|
00000E10: 00 25 16 9C 09 4F 4B 4E 4F 57 20 4A 53 52 20 4F |.%...OKNOW JSR O|
00000E20: 55 54 50 55 54 00 2D 16 A6 09 52 54 53 00 33 16 |UTPUT.-...RTS.3.|
00000E30: B0 09 3B 00 3A 16 BA 09 2E 80 00 00 00 |..;.:........ |
..!...."S=SAVE"@0:SYMPRINT.PAL",8.:....2
,8,1,"@0:SYMPRINT".C....700.O.(..OPT O2.
^.<.FILNUM . 1.N.F.OUTFILN . 2.{.P..C .
$B7...Z..PTR . $BB..._..LST 8,4,"PALDEF6
4...D.STRC . FA..C.X.STRPTR . FAMSB.P...
MAXC . 8.V. .;.....;.......$19.....SPTR
....2...H.SYML ....1...R.SBOTM ....2.&..
.NUMSYMS ....2.5...PFNT ....2.D...ENTE .
...2.J...;.S....BAS.Q....:."SYMBOL TABLE
FILE";S$......"OUTPUT DEVICE";D..."..D.
.8.."SEQUENTIAL FILE NAME";NA$...,..1,8,
2,S$.K.6..2,D,3,NA$...@.."SYMPRINT"...J.
1:.D.2.D.6..2...T. 2:....^.;...H.SYM. .
....R.LDX #FILNUM.(.|.JSR CHKIN.6...LDA
MEM.P.C...STA SPTR.S...LDA MEM.P.1.B...
STA SPTR.1.M...LDA #0.}...STA NUMSYMS...
B.STA NUMSYMS.1. .L.LDLOP LDY ST...V.BNE
.VR.....LDA SPTR.A...SEC.L...SBC #1.Y..
.STA SPTR.....BCS NDSB.....DEC SPTR.1...
..NDSB JSR ....&.STA (SPTR),Y.#.0.JMP LD
LOP.4.:..VR JSR .CHN.A.D.LDA SPTR.O.N.ST
A SBOTM.^.X.LDA SPTR.1.N.B.STA SBOTM.1.T
.L.;...V.;NOW PUT THEM IN 8 CHAR BLOCKS.
....;.....LDA EOVAR.....STA SPTR.H...LDA
EOVAR.1.W...STA SPTR.1.....DOM.E LDY #0
.....INC NUMSYMS...F.BNE NBM1...P.INC NU
MSYMS.1...Z.NBM1 LDA (SBOTM),Y.?...STA (
SPTR),Y.G...INY.Y...LDA (SBOTM),Y.J...ST
A (SPTR),Y.R...INY.....LDA (SBOTM),Y...
.PHA...*.. #%0111...4.CLC: ADC #3;.E . R
EDUCTI., 2 . EUE.M.>.STA SYML.U.H.PLA...
R.LSR...\.LSR...F.LSR;. .TER IN PLACE...
P.CLC...Z.ADC #"A".#...STA (SPTR),Y.2...
RESTLP INY.?...CPY SYML.^...BCS THSIMD;T
HIS SYMBOL D.E.P...LDA (SBOTM),Y.....STA
(SPTR),Y.....JMP RESTLP...J.THSIMD CPY
#MAXC.2...T.BCS NOSPCES.D...LDA #" ".U..
.STA (SPTR),Y.....INY.....BNE THSIMD....
.NOSPCES LDA SPTR.....CLC.....ADC #MAXC.
2.&.$.STA SPTR.4...BCC NOBM3.C.8.INC SPT
R.1.W.B.NOBM3 LDA SBOTM._.L.CLC.L.V.ADC
SYML.Z.`.STA SBOTM...J.TAX...T.LDA SBOTM
.1...~.ADC #0.....STA SBOTM.1.....CMP M
EM.P.1.L...BCC DOM.E.Z...CPX MEM.P.....B
CC DOM.E.....;...D.;NOW WE S.T...N.;.$.X
.;A S.DARD BUBBLE S.T IS D.E.4...LDA NUM
SYMS.C...SEC:SBC #1.P...STA PFNT.B...LDA
NUMSYMS.1.M...SBC #0.|...STA PFNT.1....
.DOPASS LDA PFNT...(.STA ENTE...2.LDA PF
NT.1...<.STA ENTE.1.I.F.LDA EOVAR.W.P.ST
A SBOTM...Z.CLC:ADC #MAXC.2...D.STA SPTR
...N.LDA EOVAR.1...X.STA SBOTM.1.#...ADC
#0.2...STA SPTR.1.D...DOSYMB LDY #2.\.
.M.ECMP LDA (SPTR),Y.N...CMP (SBOTM),Y.}
...BCC EXCHNG.....BNE NXCHNG...H.INY...R
.CPY #2.MAXC.....BCC M.ECMP.B...BCS NXCH
NG.T...EXCHNG LDY #0.....EXLOP LDA (SPTR
),Y.....TAX.....LDA (SBOTM),Y.....STA (S
PTR),Y...".TXA.0.,.STA (SBOTM),Y.8.6.INY
.H.@.CPY #MAXC.2.V.J.BCC EXLOP.J.T.NXCHN
G LDA SPTR.R.^.CLC...H.ADC #MAXC.2...R.S
TA SPTR...|.BCC NOBM6.....INC SPTR.1....
.NOBM6 LDA SBOTM.H...CLC.X...ADC #MAXC.2
.....STA SBOTM.....BCC NOBM7...B.INC SBO
TM.1...L.NOBM7 DEC ENTE.&.V.BNE DOSYMB.5
...DEC ENTE.1.D...BPL DOSYMB.Q...DEC PFN
T.`...BNE DOPASS.O...DEC PFNT.1.~...BPL
DOPASS.....; NOW EVERYTHING IS S.TED!...
&.;...0.LDX #OUTFILN.C.:.JSR CHKOUT.Q.D.
LDA EOVAR...N.STA SPTR...X.LDA EOVAR.1..
.B.STA SPTR.1...L.LDX #6...V.STX PFNT.).
..MNPRLP DEC PFNT.8...BNE N.EWLN.E...LDA
#$0D.T...JSR OUTPUT._...LDX #5.L...STX
PFNT.~...N.EWLN LDY #2...F.NMPRLP LDA (S
PTR),Y...P.JSR OUTPUT...Z.INY.....CPY #M
AXC.2.L...BCC NMPRLP.Y...LDA #" ".....JS
R OUTPUT.....JSR OUTPUT.....LDY #1... .L
DA (SPTR),Y.$.*.JSR HEXOUTIT.,.4.DEY.=.>
.LDA (SPTR),Y.N.H.JSR HEXOUTIT.[.R.LDA #
" ".J.\.JSR OUTPUT.Y.F.JSR OUTPUT...P.LD
A SPTR...Z.CLC.....ADC #MAXC.2.....STA S
PTR.....BCC NOBM8.H...INC SPTR.1.....NOB
M8 DEC NUMSYMS.....BNE MNPRLP.....DEC NU
MSYMS.1...J.BPL MNPRLP...T.RTS.....;....
.HEXOUTIT . ..6...PHA.>...LSR.F...LSR.N
...LSR.V...LSR.V.$.JSR HCOUT;PUT CHARACT
ER OUT.~...PLA...8.. #$F...B.JSR HCOUT..
.L.RTS...V.;.B.`.HCOUT . .;CHAR OUT IN H
EX.N.J..A #"0"...T.CMP #"9".1...~.BCC OK
NOW.....;CARRY IS SET.....ADC #"A"."9".2
.%...OKNOW JSR OUTPUT.-...RTS.3...;.:...
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL