MASTERCODE
FILE INFORMATION
FILENAME(S): MASTERCODE
FILE TYPE(S): PRG
FILE SIZE: 18.2K
FIRST SEEN: 2025-11-30 21:23:57
APPEARS ON: 1 disk(s)
FILE HASH
3e622a8977ec4ddc36d30eaf771f6fea1488c34f8ef1391a2d919b1b843cdb13
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 26 2 | MASTERCODE | PRG | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 10 27 8F 00 24 08 24 27 8F 20 47 45 |.....'..$.$'. GE|
00000010: 4E 45 52 41 4C 20 49 4E 49 54 49 41 4C 49 53 41 |NERAL INITIALISA|
00000020: 54 49 4F 4E 00 2A 08 2E 27 8F 00 36 08 2F 27 42 |TION.*..'..6./'B|
00000030: 41 53 45 B2 31 36 00 57 08 30 27 8B C3 28 50 54 |ASE.16.W.0'..(PT|
00000040: 52 24 29 AA C3 28 45 24 29 B3 B1 32 35 35 A7 9C |R$)..(E$)..255..|
00000050: 3A 8D 31 39 30 30 30 00 61 08 33 27 44 45 56 B2 |:.19000.a.3'DEV.|
00000060: 38 00 85 08 38 27 96 A5 48 45 58 28 58 29 B2 28 |8...8'..HEX(X).(|
00000070: 58 AF 31 35 29 AA 34 38 AB 28 28 58 AF 31 35 29 |X.15).48.((X.15)|
00000080: B1 39 29 AC 37 00 A0 08 42 27 96 A5 44 45 43 28 |.9).7...B'..DEC(|
00000090: 58 29 B2 58 AB 34 38 AA 28 58 B1 35 37 29 AC 37 |X).X.48.(X.57).7|
000000A0: 00 B4 08 4C 27 46 41 4C 53 45 B2 30 3A 54 52 55 |...L'FALSE.0:TRU|
000000B0: 45 B2 AB 31 00 CB 08 56 27 97 35 33 32 38 31 2C |E..1...V'.53281,|
000000C0: 30 3A 97 35 33 32 38 30 2C 31 31 00 D1 08 74 27 |0:.53280,11...t'|
000000D0: 8F 00 F3 08 75 27 8F 20 43 4F 4E 54 52 4F 4C 20 |....u'. CONTROL |
000000E0: 52 4F 55 54 49 4E 45 20 46 4F 52 20 4D 4F 4E 49 |ROUTINE FOR MONI|
000000F0: 54 4F 52 00 F9 08 76 27 8F 00 3D 09 7E 27 83 20 |TOR...v'..=.~'. |
00000100: 45 58 49 54 20 54 4F 20 42 41 53 49 43 2C 4D 45 |EXIT TO BASIC,ME|
00000110: 4D 4F 52 59 20 4D 4F 44 49 46 59 2C 4D 45 4D 4F |MORY MODIFY,MEMO|
00000120: 52 59 20 44 55 4D 50 2C 20 4D 41 43 48 49 4E 45 |RY DUMP, MACHINE|
00000130: 20 43 4F 44 45 20 45 58 45 43 55 54 45 00 71 09 | CODE EXECUTE.q.|
00000140: 7F 27 83 20 4C 4F 41 44 20 4D 41 43 48 49 4E 45 |.'. LOAD MACHINE|
00000150: 20 43 4F 44 45 20 46 49 4C 45 2C 53 41 56 45 20 | CODE FILE,SAVE |
00000160: 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 46 49 4C |MACHINE CODE FIL|
00000170: 45 00 84 09 88 27 83 20 44 49 53 41 53 53 45 4D |E....'. DISASSEM|
00000180: 42 4C 45 52 00 96 09 92 27 83 20 46 49 4C 45 20 |BLER....'. FILE |
00000190: 45 44 49 54 4F 52 00 A6 09 9C 27 83 20 41 53 53 |EDITOR....'. ASS|
000001A0: 45 4D 42 4C 45 52 00 B0 09 CE 27 83 20 45 4E 44 |EMBLER....'. END|
000001B0: 00 B6 09 D8 27 8C 00 BE 09 EC 27 58 B2 30 00 F2 |....'.....'X.0..|
000001C0: 09 F6 27 99 22 1F 93 2D 2D 2D 2D 2D 2D 2D 2D 2D |..'."..---------|
000001D0: 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 4D 4F | MACHINE CODE MO|
000001E0: 4E 49 54 4F 52 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 1E |NITOR ---------.|
000001F0: 11 22 00 FA 09 0A 28 87 54 24 00 21 0A 14 28 8B |."....(.T$.!..(.|
00000200: 54 24 B3 B1 22 45 4E 44 22 A7 99 A3 35 29 58 22 |T$.."END"...5)X"|
00000210: 29 22 54 24 3A 58 B2 58 AA 31 3A 89 31 30 32 35 |)"T$:X.X.1:.1025|
00000220: 30 00 37 0A 19 28 8B 58 B3 31 35 A7 81 59 B2 58 |0.7..(.X.15..Y.X|
00000230: A4 31 35 3A 99 3A 82 00 5A 0A 1E 28 99 22 43 4F |.15:.:..Z..(."CO|
00000240: 4D 4D 41 4E 44 20 28 20 30 20 2D 22 58 AB 31 22 |MMAND ( 0 -"X.1"|
00000250: 20 29 20 3A 20 22 3B 3A 85 54 00 6D 0A 3C 28 8B | ) : ";:.T.m.<(.|
00000260: 54 B3 30 B0 54 B1 58 A7 31 30 31 30 30 00 8D 0A |T.0.T.X.10100...|
00000270: 41 28 8B 54 B2 30 A7 99 22 93 11 11 11 11 12 42 |A(.T.0.."......B|
00000280: 59 45 92 11 11 11 11 22 3A A0 31 3A 80 00 C4 0A |YE.....":.1:....|
00000290: 46 28 91 54 8D 31 33 31 30 30 2C 31 33 33 30 30 |F(.T.13100,13300|
000002A0: 2C 31 33 35 30 30 2C 31 34 33 30 30 2C 31 34 31 |,13500,14300,141|
000002B0: 30 30 2C 31 35 38 30 30 2C 32 34 38 30 30 2C 32 |00,15800,24800,2|
000002C0: 30 30 30 30 00 CF 0A 50 28 89 31 30 31 30 30 00 |0000...P(.10100.|
000002D0: D5 0A F8 2A 8F 00 F2 0A F9 2A 8F 20 43 4F 4E 56 |...*.....*. CONV|
000002E0: 45 52 54 20 44 45 43 49 4D 41 4C 20 54 4F 20 48 |ERT DECIMAL TO H|
000002F0: 45 58 00 F8 0A FA 2A 8F 00 06 0B 02 2B 54 B2 48 |EX....*.....+T.H|
00000300: 3A 48 24 B2 22 22 00 3B 0B 0C 2B 48 24 B2 C7 28 |:H$."".;..+H$..(|
00000310: A5 48 45 58 28 54 AB B5 28 54 AD 31 36 29 AC 31 |.HEX(T..(T.16).1|
00000320: 36 29 29 AA 48 24 3A 54 B2 B5 28 54 AD 31 36 29 |6)).H$:T..(T.16)|
00000330: 3A 8B 54 B1 30 A7 31 31 30 32 30 00 41 0B 2A 2B |:.T.0.11020.A.*+|
00000340: 8E 00 47 0B 5C 2B 8F 00 5B 0B 5D 2B 8F 20 42 59 |..G.\+..[.]+. BY|
00000350: 54 45 20 49 4E 54 4F 20 48 45 58 00 61 0B 5E 2B |TE INTO HEX.a.^+|
00000360: 8F 00 75 0B 66 2B 48 B2 C2 28 41 44 29 3A 41 44 |..u.f+H..(AD):AD|
00000370: B2 41 44 AA 31 00 80 0B 70 2B 8D 31 31 30 30 30 |.AD.1...p+.11000|
00000380: 00 97 0B 7A 2B 8B C3 28 48 24 29 B3 32 A7 48 24 |...z+..(H$).2.H$|
00000390: B2 22 30 22 AA 48 24 00 A6 0B 84 2B 4F 32 24 B2 |."0".H$....+O2$.|
000003A0: 4F 32 24 AA 48 24 00 AC 0B 8E 2B 8E 00 B2 0B C0 |O2$.H$....+.....|
000003B0: 2B 8F 00 CC 0B C1 2B 8F 20 49 4E 50 55 54 20 46 |+.....+. INPUT F|
000003C0: 49 4E 49 53 48 20 41 44 52 45 53 53 00 D2 0B C2 |INISH ADRESS....|
000003D0: 2B 8F 00 DC 0B C5 2B 48 24 B2 22 22 00 08 0C CA |+.....+H$.""....|
000003E0: 2B 85 22 46 49 4E 49 53 48 20 41 44 44 52 45 53 |+."FINISH ADDRES|
000003F0: 53 20 28 20 49 4E 20 48 45 58 20 3A 20 22 3B 48 |S ( IN HEX : ";H|
00000400: 24 3A 8D 31 31 39 35 30 00 23 0C DE 2B 8B 45 52 |$:.11950.#..+.ER|
00000410: 52 B0 48 B3 30 B0 48 B1 36 35 35 33 35 A7 31 31 |R.H.0.H.65535.11|
00000420: 32 30 30 00 2E 0C E8 2B 45 41 B2 48 3A 8E 00 34 |200....+EA.H:..4|
00000430: 0C F2 2B 8F 00 4A 0C F3 2B 8F 20 49 4E 50 55 54 |..+..J..+. INPUT|
00000440: 20 46 49 4C 45 20 4E 41 4D 45 00 62 0C F4 2B 8D | FILE NAME.b..+.|
00000450: 32 35 35 30 30 3A 8B 44 45 56 B2 34 A7 31 31 32 |25500:.DEV.4.112|
00000460: 39 30 00 6D 0C F7 2B 49 4E 24 B2 22 22 00 8E 0C |90.m..+IN$.""...|
00000470: FC 2B 85 22 46 49 4C 45 20 4E 41 4D 45 20 3A 20 |.+."FILE NAME : |
00000480: 22 3B 49 4E 24 3A 54 B2 C3 28 49 4E 24 29 00 B9 |";IN$:T..(IN$)..|
00000490: 0C 10 2C 8B 54 B1 31 36 B0 54 B3 30 A7 99 22 11 |..,.T.16.T.0..".|
000004A0: 46 49 4C 45 20 4E 41 4D 45 20 49 4E 56 41 4C 49 |FILE NAME INVALI|
000004B0: 44 22 3A 89 31 31 32 36 30 00 BF 0C 1A 2C 8E 00 |D":.11260....,..|
000004C0: C5 0C 4A 2E 8F 00 DA 0C 4B 2E 8F 20 41 53 4B 20 |..J.....K.. ASK |
000004D0: 43 4F 4E 54 49 4E 55 45 20 3F 00 E0 0C 4C 2E 8F |CONTINUE ?...L..|
000004E0: 00 EA 0C 52 2E 54 24 B2 22 22 00 04 0D 54 2E 85 |...R.T$.""...T..|
000004F0: 22 43 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 3A |"CONTINUE (Y/N):|
00000500: 22 3B 54 24 00 1F 0D 5E 2E 8B 54 24 B2 22 59 22 |";T$...^..T$."Y"|
00000510: A7 43 4F B2 54 52 55 45 3A 89 31 31 38 39 35 00 |.CO.TRUE:.11895.|
00000520: 39 0D 68 2E 8B 54 24 B3 B1 22 4E 22 A7 99 22 91 |9.h..T$.."N"..".|
00000530: 22 3B 3A 89 31 31 38 35 30 00 46 0D 72 2E 43 4F |";:.11850.F.r.CO|
00000540: B2 46 41 4C 53 45 00 4C 0D 77 2E 8E 00 52 0D AE |.FALSE.L.w...R..|
00000550: 2E 8F 00 76 0D AF 2E 8F 20 43 4F 4E 56 45 52 54 |...v.... CONVERT|
00000560: 20 48 45 58 20 49 4E 20 48 24 20 54 4F 20 44 45 | HEX IN H$ TO DE|
00000570: 43 20 49 4E 20 48 00 7C 0D B0 2E 8F 00 9D 0D C7 |C IN H.|........|
00000580: 2E 45 52 52 B2 46 41 4C 53 45 3A 48 B2 30 3A 8B |.ERR.FALSE:H.0:.|
00000590: C3 28 48 24 29 B2 30 A7 31 32 30 33 30 00 AC 0D |.(H$).0.12030...|
000005A0: CC 2E 81 58 B2 31 A4 C3 28 48 24 29 00 D0 0D D6 |...X.1..(H$)....|
000005B0: 2E 54 B2 A5 44 45 43 28 C6 28 CA 28 48 24 2C 58 |.T..DEC(.(.(H$,X|
000005C0: 2C 31 29 29 29 3A 48 B2 48 AC 42 41 53 45 AA 54 |,1))):H.H.BASE.T|
000005D0: 00 EB 0D EA 2E 8B 54 B1 42 41 53 45 AB 31 B0 54 |......T.BASE.1.T|
000005E0: B3 30 A7 45 52 52 B2 54 52 55 45 00 F2 0D F4 2E |.0.ERR.TRUE.....|
000005F0: 82 58 00 F8 0D FE 2E 8E 00 FE 0D 12 2F 8F 00 17 |.X........../...|
00000600: 0E 13 2F 8F 20 49 4E 50 55 54 20 53 54 41 52 54 |../. INPUT START|
00000610: 20 41 44 52 45 53 53 00 1D 0E 14 2F 8F 00 27 0E | ADRESS..../..'.|
00000620: 19 2F 48 24 B2 22 22 00 53 0E 1C 2F 85 22 53 54 |./H$."".S../."ST|
00000630: 41 52 54 20 41 44 52 45 53 53 20 28 20 49 4E 20 |ART ADRESS ( IN |
00000640: 48 45 58 20 29 20 3A 20 22 3B 48 24 3A 8D 31 31 |HEX ) : ";H$:.11|
00000650: 39 35 30 00 6E 0E 30 2F 8B 45 52 52 B0 48 B3 30 |950.n.0/.ERR.H.0|
00000660: B0 48 B1 36 35 35 33 35 A7 31 32 30 36 30 00 79 |.H.65535.12060.y|
00000670: 0E 3A 2F 41 44 B2 48 3A 8E 00 7F 0E A8 2F 8F 00 |.:/AD.H:...../..|
00000680: 90 0E A9 2F 8F 20 48 45 58 20 4C 4F 41 44 45 52 |.../. HEX LOADER|
00000690: 00 96 0E AA 2F 8F 00 A1 0E B2 2F 54 31 24 B2 22 |..../...../T1$."|
000006A0: 22 00 B3 0E BC 2F 81 58 31 B2 31 A4 C3 28 54 24 |"..../.X1.1..(T$|
000006B0: 29 A9 32 00 EF 0E C6 2F 54 31 24 B2 54 31 24 AA |).2..../T1$.T1$.|
000006C0: C7 28 A5 44 45 43 28 C6 28 CA 28 54 24 2C 58 31 |.(.DEC(.(.(T$,X1|
000006D0: 2C 31 29 29 29 AC 31 36 AA A5 44 45 43 28 C6 28 |,1))).16..DEC(.(|
000006E0: CA 28 54 24 2C 58 31 AA 31 2C 31 29 29 29 29 00 |.(T$,X1.1,1)))).|
000006F0: F7 0E E4 2F 82 58 31 00 FD 0E EE 2F 8E 00 03 0F |.../.X1..../....|
00000700: C8 32 8F 00 14 0F C9 32 8F 20 47 45 54 20 31 20 |.2.....2. GET 1 |
00000710: 42 59 54 45 00 1A 0F CA 32 8F 00 24 0F CF 32 48 |BYTE....2..$..2H|
00000720: 24 B2 22 22 00 41 0F D2 32 85 22 42 59 54 45 20 |$."".A..2."BYTE |
00000730: 28 20 49 4E 20 48 45 58 20 29 20 3A 20 22 3B 48 |( IN HEX ) : ";H|
00000740: 24 00 4C 0F E6 32 8D 31 31 39 35 30 00 6B 0F F0 |$.L..2.11950.k..|
00000750: 32 8B 45 52 52 B0 48 B3 30 B0 48 B1 32 35 35 A7 |2.ERR.H.0.H.255.|
00000760: 99 22 91 22 3A 89 31 33 30 30 30 00 71 0F FA 32 |.".":.13000.q..2|
00000770: 8E 00 77 0F 2C 33 8F 00 8B 0F 2D 33 8F 20 4D 45 |..w.,3....-3. ME|
00000780: 4D 4F 52 59 20 4D 4F 44 49 46 59 00 91 0F 2E 33 |MORY MODIFY....3|
00000790: 8F 00 9C 0F 36 33 8D 31 32 30 35 30 00 BE 0F 40 |....63.12050...@|
000007A0: 33 48 B2 41 44 3A 8D 31 31 30 30 30 3A 99 48 24 |3H.AD:.11000:.H$|
000007B0: A3 36 29 22 2F 22 3B 3A 4F 32 24 B2 22 22 00 D9 |.6)"/";:O2$.""..|
000007C0: 0F 54 33 8D 31 31 31 30 30 3A 41 44 B2 41 44 AB |.T3.11100:AD.AD.|
000007D0: 31 3A 99 48 24 A6 36 29 3B 00 E3 0F 5E 33 54 24 |1:.H$.6);...^3T$|
000007E0: B2 22 22 00 F9 0F 68 33 85 22 20 2B 2C 2D 2C 49 |.""...h3." +,-,I|
000007F0: 2C 45 20 3A 20 22 3B 54 24 00 1D 10 72 33 8B 54 |,E : ";T$...r3.T|
00000800: 24 B2 22 2B 22 AF 41 44 B3 36 35 35 33 35 A7 41 |$."+".AD.65535.A|
00000810: 44 B2 41 44 AA 31 3A 89 31 33 31 32 30 00 3D 10 |D.AD.1:.13120.=.|
00000820: 7C 33 8B 54 24 B2 22 2D 22 AF 41 44 B1 30 A7 41 ||3.T$."-".AD.0.A|
00000830: 44 B2 41 44 AB 31 3A 89 31 33 31 32 30 00 4B 10 |D.AD.1:.13120.K.|
00000840: 86 33 8B 54 24 B2 22 45 22 A7 8E 00 65 10 90 33 |.3.T$."E"...e..3|
00000850: 8B 54 24 B3 B1 22 49 22 A7 99 22 91 91 22 3A 89 |.T$.."I".."..":.|
00000860: 31 33 31 32 30 00 7D 10 9A 33 8D 31 33 30 30 30 |13120.}..3.13000|
00000870: 3A 97 41 44 2C 48 3A 89 31 33 31 32 30 00 83 10 |:.AD,H:.13120...|
00000880: F4 33 8F 00 9F 10 F5 33 8F 20 44 55 4D 50 20 4D |.3.....3. DUMP M|
00000890: 45 4D 4F 52 59 20 54 4F 20 53 43 52 45 45 4E 00 |EMORY TO SCREEN.|
000008A0: A5 10 F6 33 8F 00 B0 10 FE 33 8D 31 32 30 35 30 |...3.....3.12050|
000008B0: 00 CE 10 08 34 99 22 93 22 3A 81 58 31 B2 31 A4 |....4.".":.X1.1.|
000008C0: 31 38 3A 48 B2 41 44 3A 8D 31 31 30 30 30 00 E7 |18:H.AD:.11000..|
000008D0: 10 1C 34 4F 32 24 B2 22 22 3A 4F 31 24 B2 48 24 |..4O2$."":O1$.H$|
000008E0: 3A 4F 33 24 B2 22 22 00 F3 10 26 34 81 58 32 B2 |:O3$.""...&4.X2.|
000008F0: 30 A4 37 00 0A 11 30 34 8D 31 31 31 30 30 3A 4F |0.7...04.11100:O|
00000900: 32 24 B2 4F 32 24 AA 22 20 22 00 2D 11 3F 34 8B |2$.O2$." ".-.?4.|
00000910: 48 B1 33 31 AF 48 B3 39 35 A7 4F 33 24 B2 4F 33 |H.31.H.95.O3$.O3|
00000920: 24 AA C7 28 48 29 3A 89 31 33 33 38 30 00 3D 11 |$..(H):.13380.=.|
00000930: 41 34 4F 33 24 B2 4F 33 24 AA 22 2E 22 00 45 11 |A4O3$.O3$.".".E.|
00000940: 44 34 82 58 32 00 5B 11 4E 34 99 4F 31 24 A3 35 |D4.X2.[.N4.O1$.5|
00000950: 29 4F 32 24 A3 33 31 29 4F 33 24 00 63 11 58 34 |)O2$.31)O3$.c.X4|
00000960: 82 58 31 00 7A 11 62 34 99 3A 8D 31 31 38 35 30 |.X1.z.b4.:.11850|
00000970: 3A 8B 43 4F A7 31 33 33 32 30 00 80 11 80 34 8E |:.CO.13320....4.|
00000980: 00 86 11 BC 34 8F 00 A1 11 BD 34 8F 20 4D 41 43 |....4.....4. MAC|
00000990: 48 49 4E 45 20 43 4F 44 45 20 45 58 45 43 55 54 |HINE CODE EXECUT|
000009A0: 45 00 A7 11 BE 34 8F 00 B8 11 C6 34 8D 31 32 30 |E....4.....4.120|
000009B0: 35 30 3A 9E 41 44 3A 8E 00 BE 11 14 37 8F 00 D6 |50:.AD:.....7...|
000009C0: 11 15 37 8F 20 4D 41 43 48 49 4E 45 20 43 4F 44 |..7. MACHINE COD|
000009D0: 45 20 53 41 56 45 00 DC 11 16 37 8F 00 F5 11 1E |E SAVE....7.....|
000009E0: 37 8D 31 31 32 35 30 3A 8D 31 32 30 35 30 3A 8D |7.11250:.12050:.|
000009F0: 31 31 32 30 30 00 2E 12 23 37 54 24 B2 22 4E 22 |11200...#7T$."N"|
00000A00: 3A 8B 44 45 56 B2 38 A7 85 22 4F 56 45 52 57 52 |:.DEV.8.."OVERWR|
00000A10: 49 54 45 20 45 58 49 53 54 49 4E 47 20 46 49 4C |ITE EXISTING FIL|
00000A20: 45 20 28 59 2F 4E 29 20 3A 20 22 3B 54 24 00 48 |E (Y/N) : ";T$.H|
00000A30: 12 24 37 8B 54 24 B2 22 59 22 A7 49 4E 24 B2 22 |.$7.T$."Y".IN$."|
00000A40: 40 30 3A 22 AA 49 4E 24 00 62 12 28 37 8B 44 45 |@0:".IN$.b.(7.DE|
00000A50: 56 B2 38 A7 49 4E 24 B2 49 4E 24 AA 22 2C 53 2C |V.8.IN$.IN$.",S,|
00000A60: 57 22 00 73 12 2D 37 8B 53 41 B1 45 41 A7 31 34 |W".s.-7.SA.EA.14|
00000A70: 31 39 30 00 90 12 32 37 9F 32 2C 44 45 56 2C 32 |190...27.2,DEV,2|
00000A80: 2C 49 4E 24 3A 98 32 2C 41 44 3A 98 32 2C 45 41 |,IN$:.2,AD:.2,EA|
00000A90: 00 AD 12 46 37 81 58 B2 41 44 A4 45 41 3A 98 32 |...F7.X.AD.EA:.2|
00000AA0: 2C C2 28 58 29 3A 82 3A 98 32 3A A0 32 00 B3 12 |,.(X):.:.2:.2...|
00000AB0: 6E 37 8E 00 B9 12 DC 37 8F 00 D1 12 DD 37 8F 20 |n7.....7.....7. |
00000AC0: 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 4C 4F 41 |MACHINE CODE LOA|
00000AD0: 44 00 D7 12 DE 37 8F 00 F8 12 E6 37 8D 31 31 32 |D....7.....7.112|
00000AE0: 35 30 3A 8B 44 45 56 B2 38 A7 49 4E 24 B2 49 4E |50:.DEV.8.IN$.IN|
00000AF0: 24 AA 22 2C 53 2C 52 22 00 1B 13 F0 37 9F 32 2C |$.",S,R"....7.2,|
00000B00: 44 45 56 2C 30 2C 49 4E 24 3A 84 32 2C 53 41 2C |DEV,0,IN$:.2,SA,|
00000B10: 45 41 3A 8B 53 54 A7 A0 32 3A 8E 00 39 13 0E 38 |EA:.ST..2:..9..8|
00000B20: 81 58 B2 53 41 A4 45 41 3A 84 32 2C 54 3A 97 58 |.X.SA.EA:.2,T:.X|
00000B30: 2C 54 3A 82 3A A0 32 3A 8E 00 3F 13 C4 3B 8F 00 |,T:.:.2:..?..;..|
00000B40: 5E 13 C5 3B 8F 20 41 44 44 20 4F 50 45 52 41 4E |^..;. ADD OPERAN|
00000B50: 44 20 49 4E 20 4F 50 20 54 4F 20 4F 31 24 00 64 |D IN OP TO O1$.d|
00000B60: 13 C6 3B 8F 00 86 13 CE 3B 91 4F 50 AA 31 89 31 |..;.....;.OP.1.1|
00000B70: 35 34 35 30 2C 31 35 35 30 30 2C 31 35 35 35 30 |5450,15500,15550|
00000B80: 2C 31 35 36 30 30 00 A2 13 E2 3B 8B 4F 50 B1 36 |,15600....;.OP.6|
00000B90: AF 4F 50 B3 31 30 A7 4F 31 24 B2 4F 31 24 AA 22 |.OP.10.O1$.O1$."|
00000BA0: 28 22 00 AD 13 EC 3B 8D 31 31 31 30 30 00 C3 13 |("....;.11100...|
00000BB0: F6 3B 4F 31 24 B2 4F 31 24 AA 22 24 22 3A 54 24 |.;O1$.O1$."$":T$|
00000BC0: B2 48 24 00 D3 13 00 3C 8B 4F 50 B3 39 A7 31 35 |.H$....<.OP.9.15|
00000BD0: 33 39 30 00 DE 13 0A 3C 8D 31 31 31 30 30 00 ED |390....<.11100..|
00000BE0: 13 14 3C 4F 31 24 B2 4F 31 24 AA 48 24 00 FC 13 |..<O1$.O1$.H$...|
00000BF0: 1E 3C 4F 31 24 B2 4F 31 24 AA 54 24 00 17 14 28 |.<O1$.O1$.T$...(|
00000C00: 3C 8B 4F 50 B2 39 B0 4F 50 B2 38 A7 4F 31 24 B2 |<.OP.9.OP.8.O1$.|
00000C10: 4F 31 24 AA 22 29 22 00 38 14 32 3C 8B 4F 50 AB |O1$.")".8.2<.OP.|
00000C20: B5 28 4F 50 AD 33 29 AC 33 B2 31 A7 4F 31 24 B2 |.(OP.3).3.1.O1$.|
00000C30: 4F 31 24 AA 22 2C 58 22 00 59 14 3C 3C 8B 4F 50 |O1$.",X".Y.<<.OP|
00000C40: AB B5 28 4F 50 AD 33 29 AC 33 B2 32 A7 4F 31 24 |..(OP.3).3.2.O1$|
00000C50: B2 4F 31 24 AA 22 2C 59 22 00 6F 14 46 3C 8B 4F |.O1$.",Y".o.F<.O|
00000C60: 50 B2 37 A7 4F 31 24 B2 4F 31 24 AA 22 29 22 00 |P.7.O1$.O1$.")".|
00000C70: 75 14 50 3C 8E 00 7B 14 5A 3C 8F 00 94 14 5B 3C |u.P<..{.Z<....[<|
00000C80: 8F 20 41 43 43 55 4D 55 4C 41 54 4F 52 20 28 4F |. ACCUMULATOR (O|
00000C90: 50 3D 30 29 00 9A 14 5C 3C 8F 00 AA 14 64 3C 4F |P=0)...\<....d<O|
00000CA0: 31 24 B2 4F 31 24 AA 22 41 22 00 BF 14 8C 3C 8F |1$.O1$."A"....<.|
00000CB0: 20 49 4D 50 4C 49 45 44 20 28 4F 50 3D 31 29 00 | IMPLIED (OP=1).|
00000CC0: C5 14 96 3C 8E 00 CB 14 BE 3C 8F 00 E2 14 BF 3C |...<.....<.....<|
00000CD0: 8F 20 49 4D 4D 45 44 49 41 54 45 20 28 4F 50 3D |. IMMEDIATE (OP=|
00000CE0: 32 29 00 E8 14 C0 3C 8F 00 F3 14 C8 3C 8D 31 31 |2)....<.....<.11|
00000CF0: 31 30 30 00 07 15 D2 3C 4F 31 24 B2 4F 31 24 AA |100....<O1$.O1$.|
00000D00: 22 23 24 22 AA 48 24 00 0D 15 DC 3C 8E 00 13 15 |"#$".H$....<....|
00000D10: F0 3C 8F 00 29 15 F1 3C 8F 20 52 45 4C 41 54 49 |.<..)..<. RELATI|
00000D20: 56 45 20 28 4F 50 3D 33 29 00 2F 15 F2 3C 8F 00 |VE (OP=3)./..<..|
00000D30: 3A 15 FA 3C 8D 31 31 31 30 30 00 4D 15 04 3D 8B |:..<.11100.M..=.|
00000D40: 48 B1 31 32 37 A7 48 B2 48 AB 32 35 36 00 58 15 |H.127.H.H.256.X.|
00000D50: 0E 3D 48 B2 48 AA 41 44 00 63 15 18 3D 8D 31 31 |.=H.H.AD.c..=.11|
00000D60: 30 30 30 00 76 15 22 3D 4F 31 24 B2 4F 31 24 AA |000.v."=O1$.O1$.|
00000D70: 22 24 22 AA 48 24 00 7C 15 2C 3D 8E 00 82 15 54 |"$".H$.|.,=....T|
00000D80: 3D 8F 00 A0 15 55 3D 8F 20 44 49 53 41 53 53 45 |=....U=. DISASSE|
00000D90: 4D 42 4C 45 20 49 4E 53 54 52 55 43 54 49 4F 4E |MBLE INSTRUCTION|
00000DA0: 00 A6 15 56 3D 8F 00 B1 15 5E 3D 4F 32 24 B2 22 |...V=....^=O2$."|
00000DB0: 22 00 C2 15 63 3D 8D 31 31 31 30 30 3A 48 B2 48 |"...c=.11100:H.H|
00000DC0: AA 31 00 D1 15 68 3D 8B 48 B1 32 35 35 A7 48 B2 |.1...h=.H.255.H.|
00000DD0: 33 00 E8 15 72 3D 54 B2 C6 28 CA 28 54 41 24 28 |3...r=T..(.(TA$(|
00000DE0: 30 29 2C 48 2C 31 29 29 00 06 16 86 3D 4F 31 24 |0),H,1))....=O1$|
00000DF0: B2 CA 28 54 41 24 28 32 29 2C 54 AC 33 AA 31 2C |..(TA$(2),T.3.1,|
00000E00: 33 29 AA 22 20 22 00 27 16 90 3D 4F 50 B2 C6 28 |3)." ".'..=OP..(|
00000E10: CA 28 54 41 24 28 31 29 2C B5 28 28 48 AA 31 29 |.(TA$(1),.((H.1)|
00000E20: AD 32 29 2C 31 29 29 00 3D 16 9A 3D 8B 28 48 AF |.2),1)).=..=.(H.|
00000E30: 31 29 B2 31 A7 4F 50 B2 4F 50 AD 31 36 00 4A 16 |1).1.OP.OP.16.J.|
00000E40: A4 3D 4F 50 B2 4F 50 AF 31 35 00 50 16 AE 3D 8E |.=OP.OP.15.P..=.|
00000E50: 00 56 16 B8 3D 8F 00 74 16 B9 3D 8F 20 44 49 53 |.V..=..t..=. DIS|
00000E60: 41 53 53 45 4D 42 4C 45 20 4D 45 4D 4F 52 59 20 |ASSEMBLE MEMORY |
00000E70: 41 52 45 41 00 7A 16 BA 3D 8F 00 85 16 C2 3D 8D |AREA.z..=.....=.|
00000E80: 31 32 30 35 30 00 96 16 CC 3D 99 22 93 22 3A 81 |12050....=.".":.|
00000E90: 49 B2 31 A4 32 30 00 AE 16 D1 3D 48 B2 41 44 3A |I.1.20....=H.AD:|
00000EA0: 8D 31 31 30 30 30 3A 99 48 24 A3 36 29 3B 00 C0 |.11000:.H$.6);..|
00000EB0: 16 D6 3D 8D 31 35 37 30 30 3A 8D 31 35 33 30 30 |..=.15700:.15300|
00000EC0: 00 D0 16 EA 3D 99 4F 32 24 A3 31 34 29 4F 31 24 |....=.O2$.14)O1$|
00000ED0: 00 D7 16 F4 3D 82 49 00 DD 16 F9 3D 99 00 E8 16 |....=.I....=....|
00000EE0: FE 3D 8D 31 31 38 35 30 00 F6 16 08 3E 8B 43 4F |.=.11850....>.CO|
00000EF0: A7 31 35 38 32 30 00 FC 16 12 3E 8E 00 16 17 38 |.15820....>....8|
00000F00: 4A 99 22 93 11 11 11 52 45 41 44 49 4E 47 20 54 |J."....READING T|
00000F10: 41 42 4C 45 53 22 00 36 17 39 4A 8F 20 49 4E 49 |ABLES".6.9J. INI|
00000F20: 54 49 41 4C 49 53 45 20 44 45 43 4F 44 45 52 20 |TIALISE DECODER |
00000F30: 54 41 42 4C 45 53 00 3C 17 3A 4A 8F 00 48 17 3D |TABLES.<.:J..H.=|
00000F40: 4A 42 41 53 45 B2 31 36 00 63 17 3F 4A 96 A5 44 |JBASE.16.c.?J..D|
00000F50: 45 43 28 58 29 B2 58 AB 34 38 AA 28 58 B1 35 37 |EC(X).X.48.(X.57|
00000F60: 29 AC 37 00 6F 17 42 4A 86 54 41 24 28 34 29 00 |).7.o.BJ.TA$(4).|
00000F70: 99 17 43 4A 54 24 B2 22 30 41 32 32 33 38 33 38 |..CJT$."0A223838|
00000F80: 33 38 32 32 30 32 33 38 32 34 32 32 30 32 33 38 |3822023824220238|
00000F90: 33 38 32 32 30 32 33 38 22 00 C6 17 44 4A 54 24 |38220238"...DJT$|
00000FA0: B2 54 24 AA 22 30 39 32 32 33 38 33 38 33 38 32 |.T$."09223838382|
00000FB0: 32 30 32 33 38 30 44 32 32 33 38 33 38 33 38 32 |202380D223838382|
00000FC0: 32 30 32 33 38 22 00 F3 17 45 4A 54 24 B2 54 24 |20238"...EJT$.T$|
00000FD0: AA 22 31 43 30 31 33 38 33 38 30 36 30 31 32 37 |."1C013838060127|
00000FE0: 33 38 32 36 30 31 32 37 33 38 30 36 30 31 32 37 |3826012738060127|
00000FF0: 33 38 22 00 20 18 46 4A 54 24 B2 54 24 AA 22 30 |38". .FJT$.T$."0|
00001000: 37 30 31 33 38 33 38 33 38 30 31 32 37 33 38 32 |7013838380127382|
00001010: 43 30 31 33 38 33 38 33 38 30 31 32 37 33 38 22 |C01383838012738"|
00001020: 00 4D 18 47 4A 54 24 B2 54 24 AA 22 32 39 31 37 |.M.GJT$.T$."2917|
00001030: 33 38 33 38 33 38 31 37 32 30 33 38 32 33 31 37 |3838381720382317|
00001040: 32 30 33 38 31 42 31 37 32 30 33 38 22 00 7A 18 |20381B172038".z.|
00001050: 48 4A 54 24 B2 54 24 AA 22 30 42 31 37 33 38 33 |HJT$.T$."0B17383|
00001060: 38 33 38 31 37 32 30 33 38 30 46 31 37 33 38 33 |8381720380F17383|
00001070: 38 33 38 31 37 32 30 33 38 22 00 A7 18 49 4A 54 |838172038"...IJT|
00001080: 24 B2 54 24 AA 22 32 41 30 30 33 38 33 38 33 38 |$.T$."2A00383838|
00001090: 30 30 32 38 33 38 32 35 30 30 32 38 33 38 31 42 |002838250028381B|
000010A0: 30 30 32 38 33 38 22 00 BD 18 4A 4A 8D 31 32 32 |002838"...JJ.122|
000010B0: 30 30 3A 54 41 24 28 30 29 B2 54 31 24 00 E7 18 |00:TA$(0).T1$...|
000010C0: 4B 4A 54 24 B2 22 30 43 30 30 33 38 33 38 33 38 |KJT$."0C00383838|
000010D0: 30 30 32 38 33 38 32 45 30 30 33 38 33 38 33 38 |0028382E00383838|
000010E0: 30 30 32 38 33 38 22 00 14 19 4C 4A 54 24 B2 54 |002838"...LJT$.T|
000010F0: 24 AA 22 33 38 32 46 33 38 33 38 33 31 32 46 33 |$."382F3838312F3|
00001100: 30 33 38 31 36 33 38 33 35 33 38 33 31 32 46 33 |03816383538312F3|
00001110: 30 33 38 22 00 41 19 4D 4A 54 24 B2 54 24 AA 22 |038".A.MJT$.T$."|
00001120: 30 33 32 46 33 38 33 38 33 31 32 46 33 30 33 38 |032F3838312F3038|
00001130: 33 37 32 46 33 36 33 38 33 38 32 46 33 38 33 38 |372F3638382F3838|
00001140: 22 00 6E 19 4E 4A 54 24 B2 54 24 AA 22 31 46 31 |".n.NJT$.T$."1F1|
00001150: 44 31 45 33 38 31 46 31 44 31 45 33 38 33 33 31 |D1E381F1D1E38331|
00001160: 44 33 32 33 38 31 46 31 44 31 45 33 38 22 00 9B |D32381F1D1E38"..|
00001170: 19 4F 4A 54 24 B2 54 24 AA 22 30 34 31 44 33 38 |.OJT$.T$."041D38|
00001180: 33 38 31 46 31 44 31 45 33 38 31 30 31 44 33 34 |381F1D1E38101D34|
00001190: 33 38 31 46 31 44 31 45 33 38 22 00 C8 19 50 4A |381F1D1E38"...PJ|
000011A0: 54 24 B2 54 24 AA 22 31 33 31 31 33 38 33 38 31 |T$.T$."131138381|
000011B0: 33 31 31 31 34 33 38 31 41 31 31 31 35 33 38 31 |31114381A1115381|
000011C0: 33 31 31 31 34 33 38 22 00 F5 19 51 4A 54 24 B2 |3111438"...QJT$.|
000011D0: 54 24 AA 22 30 38 31 31 33 38 33 38 33 38 31 31 |T$."081138383811|
000011E0: 31 34 33 38 30 45 31 31 33 38 33 38 33 38 31 31 |14380E1138383811|
000011F0: 31 34 33 38 22 00 12 1A 52 4A 8D 31 32 32 30 30 |1438"...RJ.12200|
00001200: 3A 54 41 24 28 30 29 B2 54 41 24 28 30 29 AA 54 |:TA$(0).TA$(0).T|
00001210: 31 24 00 3C 1A 53 4A 54 24 B2 22 31 32 32 42 33 |1$.<.SJT$."122B3|
00001220: 38 33 38 31 32 32 42 31 38 33 38 31 39 32 42 32 |838122B1838192B2|
00001230: 31 33 38 31 32 32 42 31 38 33 38 22 00 67 1A 54 |138122B1838".g.T|
00001240: 4A 54 24 B2 54 24 AA 22 30 35 32 42 33 38 33 38 |JT$.T$."052B3838|
00001250: 33 38 32 42 31 38 33 38 32 44 32 42 33 38 33 38 |382B18382D2B3838|
00001260: 33 38 32 42 31 38 22 00 84 1A 55 4A 8D 31 32 32 |382B18"...UJ.122|
00001270: 30 30 3A 54 41 24 28 30 29 B2 54 41 24 28 30 29 |00:TA$(0).TA$(0)|
00001280: AA 54 31 24 00 AE 1A 56 4A 54 24 B2 22 31 37 31 |.T1$...VJT$."171|
00001290: 31 31 36 36 31 31 32 30 31 31 43 43 31 33 38 31 |1166112011CC1381|
000012A0: 31 31 34 34 31 31 42 31 31 31 41 41 31 22 00 DB |114411B111AA1"..|
000012B0: 1A 57 4A 54 24 B2 54 24 AA 22 43 37 31 31 36 36 |.WJT$.T$."C71166|
000012C0: 36 31 31 32 30 31 43 43 43 31 33 38 31 31 31 34 |611201CCC1381114|
000012D0: 34 31 31 42 31 31 31 41 41 31 22 00 08 1B 58 4A |411B111AA1"...XJ|
000012E0: 54 24 B2 54 24 AA 22 31 37 31 31 31 36 36 31 31 |T$.T$."171116611|
000012F0: 32 30 31 43 43 43 31 33 38 31 31 31 34 34 31 31 |201CCC1381114411|
00001300: 42 31 31 31 41 41 31 22 00 35 1B 59 4A 54 24 B2 |B111AA1".5.YJT$.|
00001310: 54 24 AA 22 31 37 31 31 31 36 36 31 31 32 30 31 |T$."171116611201|
00001320: 39 43 43 31 33 38 31 31 31 34 34 31 31 42 31 31 |9CC1381114411B11|
00001330: 31 41 41 31 22 00 62 1B 5A 4A 54 24 B2 54 24 AA |1AA1".b.ZJT$.T$.|
00001340: 22 31 37 31 31 36 36 36 31 31 31 31 31 43 43 43 |"171166611111CCC|
00001350: 31 33 38 31 31 34 34 35 31 31 42 31 31 31 41 31 |1381144511B111A1|
00001360: 31 22 00 8F 1B 5B 4A 54 24 B2 54 24 AA 22 32 37 |1"...[JT$.T$."27|
00001370: 32 31 36 36 36 31 31 32 31 31 43 43 43 31 33 38 |2166611211CCC138|
00001380: 31 31 34 34 35 31 31 42 31 31 41 41 42 31 22 00 |1144511B11AAB1".|
00001390: BC 1B 5C 4A 54 24 B2 54 24 AA 22 32 37 31 31 36 |..\JT$.T$."27116|
000013A0: 36 36 31 31 32 31 31 43 43 43 31 33 38 31 31 31 |6611211CCC138111|
000013B0: 34 34 31 31 42 31 31 31 41 41 31 22 00 E7 1B 5D |4411B111AA1"...]|
000013C0: 4A 54 24 B2 54 24 AA 22 32 37 31 31 36 36 36 31 |JT$.T$."27116661|
000013D0: 31 32 31 31 43 43 43 31 33 38 31 31 31 34 34 31 |1211CCC138111441|
000013E0: 31 42 31 31 31 41 22 00 04 1C 5E 4A 8D 31 32 32 |1B111A"...^J.122|
000013F0: 30 30 3A 54 41 24 28 31 29 B2 54 31 24 AA C7 28 |00:TA$(1).T1$..(|
00001400: 31 36 30 29 00 39 1C 60 4A 54 41 24 28 32 29 B2 |160).9.`JTA$(2).|
00001410: 22 41 44 43 41 4E 44 41 53 4C 42 43 43 42 43 53 |"ADCANDASLBCCBCS|
00001420: 42 45 51 42 49 54 42 4D 49 42 4E 45 42 50 4C 42 |BEQBITBMIBNEBPLB|
00001430: 52 4B 42 56 43 42 56 53 22 00 75 1C 61 4A 54 41 |RKBVCBVS".u.aJTA|
00001440: 24 28 32 29 B2 54 41 24 28 32 29 AA 22 43 4C 43 |$(2).TA$(2)."CLC|
00001450: 43 4C 44 43 4C 49 43 4C 56 43 4D 50 43 50 58 43 |CLDCLICLVCMPCPXC|
00001460: 50 59 44 45 43 44 45 58 44 45 59 45 4F 52 49 4E |PYDECDEXDEYEORIN|
00001470: 43 49 4E 58 22 00 B1 1C 62 4A 54 41 24 28 32 29 |CINX"...bJTA$(2)|
00001480: B2 54 41 24 28 32 29 AA 22 49 4E 59 4A 4D 50 4A |.TA$(2)."INYJMPJ|
00001490: 53 52 4C 44 41 4C 44 58 4C 44 59 4C 53 52 4E 4F |SRLDALDXLDYLSRNO|
000014A0: 50 4F 52 41 50 48 41 50 48 50 50 4C 41 50 4C 50 |PORAPHAPHPPLAPLP|
000014B0: 22 00 ED 1C 63 4A 54 41 24 28 32 29 B2 54 41 24 |"...cJTA$(2).TA$|
000014C0: 28 32 29 AA 22 52 4F 4C 52 4F 52 52 54 49 52 54 |(2)."ROLRORRTIRT|
000014D0: 53 53 42 43 53 45 43 53 45 44 53 45 49 53 54 41 |SSBCSECSEDSEISTA|
000014E0: 53 54 58 53 54 59 54 41 58 54 41 59 22 00 11 1D |STXSTYTAXTAY"...|
000014F0: 64 4A 54 41 24 28 32 29 B2 54 41 24 28 32 29 AA |dJTA$(2).TA$(2).|
00001500: 22 54 53 58 54 58 41 54 58 53 54 59 41 3F 3F 3F |"TSXTXATXSTYA???|
00001510: 22 00 3D 1D 66 4A 54 41 24 28 32 29 20 B2 20 54 |".=.fJTA$(2) . T|
00001520: 41 24 28 32 29 AA 22 42 59 54 57 52 44 44 42 59 |A$(2)."BYTWRDDBY|
00001530: 45 4E 44 4F 52 47 50 52 54 53 59 4D 22 00 6C 1D |ENDORGPRTSYM".l.|
00001540: 67 4A 54 24 20 B2 20 20 20 20 22 36 31 32 31 30 |gJT$ . "61210|
00001550: 36 39 30 42 30 46 30 32 34 33 30 44 30 31 30 30 |690B0F02430D0100|
00001560: 30 35 30 37 30 31 38 44 38 35 38 22 00 9B 1D 68 |0507018D858"...h|
00001570: 4A 54 24 20 B2 20 54 24 AA 22 42 38 43 44 45 43 |JT$ . T$."B8CDEC|
00001580: 43 43 43 45 43 41 38 38 34 44 45 45 45 38 43 38 |CCCECA884DEEE8C8|
00001590: 34 43 32 30 41 44 41 45 41 43 22 00 CA 1D 69 4A |4C20ADAEAC"...iJ|
000015A0: 54 24 20 B2 20 54 24 AA 22 34 41 45 41 30 44 34 |T$ . T$."4AEA0D4|
000015B0: 38 30 38 36 38 32 38 32 41 36 41 34 30 36 30 45 |80868282A6A4060E|
000015C0: 44 33 38 46 38 37 38 38 44 22 00 E9 1D 6A 4A 54 |D38F8788D"...jJT|
000015D0: 24 20 B2 20 54 24 AA 22 38 45 38 43 41 41 41 38 |$ . T$."8E8CAAA8|
000015E0: 42 41 38 41 39 41 39 38 22 00 04 1E 6B 4A 8D 20 |BA8A9A98"...kJ. |
000015F0: 31 32 32 30 30 20 3A 20 54 41 24 28 33 29 20 B2 |12200 : TA$(3) .|
00001600: 20 54 31 24 00 33 1E 6C 4A 54 24 20 B2 20 20 20 | T1$.3.lJT$ . |
00001610: 20 22 46 46 31 31 46 46 46 46 46 46 30 39 30 41 | "FF11FFFFFF090A|
00001620: 46 46 46 46 31 44 30 45 46 46 46 46 30 35 31 45 |FFFF1D0EFFFF051E|
00001630: 46 46 22 00 62 1E 6D 4A 54 24 20 B2 20 54 24 AA |FF".b.mJT$ . T$.|
00001640: 22 46 46 31 35 46 46 46 46 46 46 46 46 46 46 46 |"FF15FFFFFFFFFFF|
00001650: 46 46 46 30 31 46 46 46 46 46 46 31 39 31 36 46 |FFF01FFFFFF1916F|
00001660: 46 22 00 91 1E 6E 4A 54 24 20 B2 20 54 24 AA 22 |F"...nJT$ . T$."|
00001670: 46 46 32 44 46 46 46 46 32 43 32 39 33 45 46 46 |FF2DFFFF2C293EFF|
00001680: 46 46 33 44 32 45 46 46 46 46 32 35 32 36 46 46 |FF3D2EFFFF2526FF|
00001690: 22 00 C0 1E 6F 4A 54 24 20 B2 20 54 24 AA 22 46 |"...oJT$ . T$."F|
000016A0: 46 33 35 46 46 46 46 46 46 46 46 46 46 46 46 46 |F35FFFFFFFFFFFFF|
000016B0: 46 33 31 46 46 46 46 46 46 33 39 33 36 46 46 22 |F31FFFFFF3936FF"|
000016C0: 00 EF 1E 70 4A 54 24 20 B2 20 54 24 AA 22 46 46 |...pJT$ . T$."FF|
000016D0: 35 31 46 46 46 46 46 46 34 39 35 45 46 46 46 46 |51FFFFFF495EFFFF|
000016E0: 35 44 34 45 46 46 36 43 34 35 34 36 46 46 22 00 |5D4EFF6C4546FF".|
000016F0: 1E 1F 71 4A 54 24 20 B2 20 54 24 AA 22 46 46 35 |..qJT$ . T$."FF5|
00001700: 35 46 46 46 46 46 46 46 46 46 46 46 46 46 46 34 |5FFFFFFFFFFFFFF4|
00001710: 31 46 46 46 46 46 46 35 39 35 36 46 46 22 00 4D |1FFFFFF5956FF".M|
00001720: 1F 72 4A 54 24 20 B2 20 54 24 AA 22 46 46 36 44 |.rJT$ . T$."FF6D|
00001730: 46 46 46 46 46 46 36 39 37 45 46 46 46 46 37 44 |FFFFFF697EFFFF7D|
00001740: 36 45 46 46 46 46 36 35 36 36 46 46 22 00 68 1F |6EFFFF6566FF".h.|
00001750: 73 4A 8D 20 31 32 32 30 30 20 3A 20 54 41 24 28 |sJ. 12200 : TA$(|
00001760: 34 29 20 B2 20 54 31 24 00 97 1F 74 4A 54 24 20 |4) . T1$...tJT$ |
00001770: B2 20 20 20 20 22 46 46 37 35 46 46 46 46 46 46 |. "FF75FFFFFF|
00001780: 46 46 46 46 46 46 46 46 37 31 46 46 46 46 46 46 |FFFFFFFF71FFFFFF|
00001790: 37 39 37 36 46 46 22 00 C6 1F 75 4A 54 24 20 B2 |7976FF"...uJT$ .|
000017A0: 20 54 24 AA 22 46 46 39 31 46 46 46 46 39 34 39 | T$."FF91FFFF949|
000017B0: 44 39 36 46 46 46 46 46 46 46 46 46 46 38 34 38 |D96FFFFFFFFFF848|
000017C0: 35 38 36 46 46 22 00 F5 1F 76 4A 54 24 20 B2 20 |586FF"...vJT$ . |
000017D0: 54 24 AA 22 46 46 39 35 46 46 46 46 46 46 46 46 |T$."FF95FFFFFFFF|
000017E0: 46 46 46 46 46 46 38 31 46 46 46 46 46 46 39 39 |FFFFFF81FFFFFF99|
000017F0: 46 46 46 46 22 00 24 20 77 4A 54 24 20 B2 20 54 |FFFF".$ wJT$ . T|
00001800: 24 AA 22 42 43 42 31 42 45 46 46 41 30 41 39 41 |$."BCB1BEFFA0A9A|
00001810: 32 46 46 46 46 42 44 46 46 41 46 41 34 41 35 41 |2FFFFBDFFAFA4A5A|
00001820: 36 46 46 22 00 53 20 78 4A 54 24 20 B2 20 54 24 |6FF".S xJT$ . T$|
00001830: AA 22 46 46 42 35 46 46 46 46 46 46 46 46 46 46 |."FFB5FFFFFFFFFF|
00001840: 46 46 46 46 41 31 46 46 46 46 42 34 42 39 42 36 |FFFFA1FFFFB4B9B6|
00001850: 46 46 22 00 82 20 79 4A 54 24 20 B2 20 54 24 AA |FF".. yJT$ . T$.|
00001860: 22 46 46 44 31 46 46 46 46 43 30 43 39 44 45 46 |"FFD1FFFFC0C9DEF|
00001870: 46 46 46 44 44 46 46 46 46 43 34 43 35 43 36 46 |FFFDDFFFFC4C5C6F|
00001880: 46 22 00 B1 20 7A 4A 54 24 20 B2 20 54 24 AA 22 |F".. zJT$ . T$."|
00001890: 46 46 44 35 46 46 46 46 46 46 46 46 46 46 46 46 |FFD5FFFFFFFFFFFF|
000018A0: 46 46 43 31 46 46 46 46 46 46 44 39 44 36 46 46 |FFC1FFFFFFD9D6FF|
000018B0: 22 00 D3 20 7B 4A 8D 20 31 32 32 30 30 20 3A 20 |".. {J. 12200 : |
000018C0: 54 41 24 28 34 29 20 B2 20 54 41 24 28 34 29 AA |TA$(4) . TA$(4).|
000018D0: 54 31 24 00 02 21 7C 4A 54 24 20 B2 20 20 20 20 |T1$..!|JT$ . |
000018E0: 22 46 46 46 31 46 46 46 46 45 30 45 39 46 45 46 |"FFF1FFFFE0E9FEF|
000018F0: 46 46 46 46 44 46 46 46 46 45 34 45 35 45 36 46 |FFFFDFFFFE4E5E6F|
00001900: 46 22 00 2F 21 7D 4A 54 24 20 B2 20 54 24 AA 22 |F"./!}JT$ . T$."|
00001910: 46 46 46 35 46 46 46 46 46 46 46 46 46 46 46 46 |FFF5FFFFFFFFFFFF|
00001920: 46 46 45 31 46 46 46 46 46 46 46 39 46 36 22 00 |FFE1FFFFFFF9F6".|
00001930: 51 21 7E 4A 8D 20 31 32 32 30 30 20 3A 20 54 41 |Q!~J. 12200 : TA|
00001940: 24 28 34 29 20 B2 20 54 41 24 28 34 29 AA 54 31 |$(4) . TA$(4).T1|
00001950: 24 00 76 21 88 4A 53 4D 20 B2 20 35 30 20 3A 20 |$.v!.JSM . 50 : |
00001960: 53 45 20 B2 20 30 20 3A 20 86 20 53 54 41 42 4C |SE . 0 : . STABL|
00001970: 45 24 28 53 4D 29 00 85 21 9D 4A 86 20 45 52 52 |E$(SM)..!.J. ERR|
00001980: 24 28 31 38 29 00 AC 21 9F 4A 45 52 52 24 28 31 |$(18)..!.JERR$(1|
00001990: 29 B2 22 53 49 4E 47 4C 45 20 42 59 54 45 20 4F |)."SINGLE BYTE O|
000019A0: 55 54 20 4F 46 20 52 41 4E 47 45 22 00 D3 21 A0 |UT OF RANGE"..!.|
000019B0: 4A 45 52 52 24 28 32 29 B2 22 44 4F 55 42 4C 45 |JERR$(2)."DOUBLE|
000019C0: 20 42 59 54 45 20 4F 55 54 20 4F 46 20 52 41 4E | BYTE OUT OF RAN|
000019D0: 47 45 22 00 FA 21 A1 4A 45 52 52 24 28 33 29 B2 |GE"..!.JERR$(3).|
000019E0: 22 49 4E 56 41 4C 49 44 20 4F 50 52 41 4E 44 20 |"INVALID OPRAND |
000019F0: 4F 52 20 4F 50 43 4F 44 45 22 00 19 22 A2 4A 45 |OR OPCODE"..".JE|
00001A00: 52 52 24 28 34 29 B2 22 49 4E 56 41 4C 49 44 20 |RR$(4)."INVALID |
00001A10: 4F 50 45 52 41 54 4F 52 22 00 3B 22 A3 4A 45 52 |OPERATOR".;".JER|
00001A20: 52 24 28 35 29 B2 22 49 4E 44 45 58 20 49 53 20 |R$(5)."INDEX IS |
00001A30: 4E 4F 54 20 58 20 4F 52 20 59 22 00 61 22 A4 4A |NOT X OR Y".a".J|
00001A40: 45 52 52 24 28 36 29 B2 22 4C 41 42 45 4C 20 4E |ERR$(6)."LABEL N|
00001A50: 4F 54 20 41 4C 50 48 41 2D 4E 55 4D 45 52 49 43 |OT ALPHA-NUMERIC|
00001A60: 22 00 85 22 A5 4A 45 52 52 24 28 37 29 B2 22 49 |"..".JERR$(7)."I|
00001A70: 4E 43 4F 52 52 45 43 54 20 4E 55 4D 42 45 52 20 |NCORRECT NUMBER |
00001A80: 42 41 53 45 22 00 A7 22 A6 4A 45 52 52 24 28 38 |BASE"..".JERR$(8|
00001A90: 29 B2 22 4C 41 42 45 4C 20 44 45 46 49 4E 45 44 |)."LABEL DEFINED|
00001AA0: 20 54 57 49 43 45 22 00 CA 22 A8 4A 45 52 52 24 | TWICE"..".JERR$|
00001AB0: 28 31 30 29 B2 22 42 52 41 4E 43 48 20 4F 55 54 |(10)."BRANCH OUT|
00001AC0: 20 4F 52 20 52 41 4E 47 45 22 00 E9 22 A9 4A 45 | OR RANGE"..".JE|
00001AD0: 52 52 24 28 31 31 29 B2 22 55 4E 44 45 46 49 4E |RR$(11)."UNDEFIN|
00001AE0: 45 44 20 4C 41 42 45 4C 22 00 12 23 AA 4A 45 52 |ED LABEL"..#.JER|
00001AF0: 52 24 28 31 32 29 B2 22 4F 4E 4C 59 20 53 49 4E |R$(12)."ONLY SIN|
00001B00: 47 4C 45 20 43 48 52 2E 20 45 58 50 45 43 54 45 |GLE CHR. EXPECTE|
00001B10: 44 22 00 35 23 AC 4A 45 52 52 24 28 31 34 29 B2 |D".5#.JERR$(14).|
00001B20: 22 4F 55 54 20 4F 46 20 53 59 4D 42 4F 4C 20 53 |"OUT OF SYMBOL S|
00001B30: 50 41 43 45 22 00 55 23 AD 4A 45 52 52 24 28 31 |PACE".U#.JERR$(1|
00001B40: 35 29 B2 22 44 49 56 49 53 49 4F 4E 20 42 59 20 |5)."DIVISION BY |
00001B50: 5A 45 52 4F 22 00 7E 23 B0 4A 45 52 52 24 28 31 |ZERO".~#.JERR$(1|
00001B60: 38 29 B2 22 4E 4F 54 20 41 56 41 49 4C 45 42 4C |8)."NOT AVAILEBL|
00001B70: 45 20 57 49 54 48 20 4F 50 43 4F 44 45 22 00 97 |E WITH OPCODE"..|
00001B80: 23 0C 4E 86 20 46 49 24 28 32 35 34 29 20 3A 20 |#.N. FI$(254) : |
00001B90: 8D 20 32 34 33 30 30 00 9D 23 16 4E 8E 00 A3 23 |. 24300..#.N...#|
00001BA0: 20 4E 8F 00 C3 23 21 4E 8F 20 47 45 4E 45 52 41 | N...#!N. GENERA|
00001BB0: 54 45 20 41 53 53 45 4D 42 4C 59 20 4C 49 53 54 |TE ASSEMBLY LIST|
00001BC0: 49 4E 47 00 C9 23 22 4E 8F 00 E8 23 25 4E 53 45 |ING..#"N...#%NSE|
00001BD0: B2 30 3A 46 4D 41 58 B2 C3 28 50 54 52 24 29 3A |.0:FMAX..(PTR$):|
00001BE0: 53 59 B2 46 41 4C 53 45 00 0D 24 2A 4E 85 22 45 |SY.FALSE..$*N."E|
00001BF0: 52 52 4F 52 20 4F 4E 4C 59 20 4C 49 53 54 49 4E |RROR ONLY LISTIN|
00001C00: 47 20 28 59 2F 4E 29 20 3A 22 3B 54 24 00 20 24 |G (Y/N) :";T$. $|
00001C10: 34 4E 45 4F B2 C8 28 54 24 2C 31 29 B2 22 59 22 |4NEO..(T$,1)."Y"|
00001C20: 00 45 24 39 4E 85 22 41 53 53 45 4D 42 4C 45 20 |.E$9N."ASSEMBLE |
00001C30: 54 4F 20 4D 45 4D 4F 52 59 20 28 59 2F 4E 29 20 |TO MEMORY (Y/N) |
00001C40: 3A 22 3B 54 24 00 58 24 3D 4E 41 4D B2 C8 28 54 |:";T$.X$=NAM..(T|
00001C50: 24 2C 31 29 B2 22 59 22 00 61 24 3E 4E 41 44 B2 |$,1)."Y".a$>NAD.|
00001C60: 30 00 6F 24 48 4E 81 51 B2 31 A4 46 4D 41 58 00 |0.o$HN.Q.1.FMAX.|
00001C70: 93 24 52 4E 49 4E 24 B2 46 49 4C 45 24 28 C6 28 |.$RNIN$.FILE$(.(|
00001C80: CA 28 50 54 52 24 2C 51 2C 31 29 29 29 3A 4F 24 |.(PTR$,Q,1))):O$|
00001C90: B2 22 22 00 9E 24 5C 4E 8D 32 36 34 30 30 00 B1 |.""..$\N.26400..|
00001CA0: 24 66 4E 8B 45 58 49 54 A7 51 B2 46 4D 41 58 AA |$fN.EXIT.Q.FMAX.|
00001CB0: 31 00 B8 24 70 4E 82 51 00 C3 24 75 4E 54 B2 B8 |1..$pN.Q..$uNT..|
00001CC0: 28 58 29 00 EF 24 7A 4E 41 44 B2 30 3A 45 43 B2 |(X)..$zNAD.0:EC.|
00001CD0: 30 3A 99 22 41 44 44 2E 20 20 44 41 54 41 20 20 |0:."ADD. DATA |
00001CE0: 20 20 20 53 4F 55 52 43 45 20 43 4F 44 45 22 00 | SOURCE CODE".|
00001CF0: FD 24 84 4E 81 51 B2 31 A4 46 4D 41 58 00 21 25 |.$.N.Q.1.FMAX.!%|
00001D00: 8E 4E 49 4E 24 B2 46 49 4C 45 24 28 C6 28 CA 28 |.NIN$.FILE$(.(.(|
00001D10: 50 54 52 24 2C 51 2C 31 29 29 29 3A 4F 24 B2 22 |PTR$,Q,1))):O$."|
00001D20: 22 00 2B 25 98 4E 51 31 B2 41 44 00 36 25 A2 4E |".+%.NQ1.AD.6%.N|
00001D30: 8D 32 37 36 30 30 00 45 25 AC 4E 8B 45 52 52 A7 |.27600.E%.N.ERR.|
00001D40: 32 30 32 35 30 00 53 25 B1 4E 8B 45 4F A7 32 30 |20250.S%.N.EO.20|
00001D50: 32 32 32 00 63 25 B6 4E 48 B2 51 31 3A 8D 31 31 |222.c%.NH.Q1:.11|
00001D60: 30 30 30 00 6D 25 C0 4E 51 24 B2 48 24 00 89 25 |000.m%.NQ$.H$..%|
00001D70: D4 4E 51 32 B2 33 3A 8B C3 28 4F 24 29 B3 51 32 |.NQ2.3:..(O$).Q2|
00001D80: A7 51 32 B2 C3 28 4F 24 29 00 A1 25 D9 4E 51 31 |.Q2..(O$)..%.NQ1|
00001D90: 24 B2 22 22 3A 8B 4F 24 B2 22 22 A7 32 30 32 32 |$."":.O$."".2022|
00001DA0: 31 00 AE 25 DE 4E 81 51 33 B2 31 A4 51 32 00 C9 |1..%.N.Q3.1.Q2..|
00001DB0: 25 E8 4E 48 B2 C6 28 CA 28 4F 24 2C 51 33 2C 31 |%.NH..(.(O$,Q3,1|
00001DC0: 29 29 3A 8D 31 31 30 30 30 00 E0 25 F2 4E 8B C3 |)):.11000..%.N..|
00001DD0: 28 48 24 29 B2 31 A7 48 24 B2 22 30 22 AA 48 24 |(H$).1.H$."0".H$|
00001DE0: 00 F3 25 FC 4E 51 31 24 B2 51 31 24 AA 48 24 3A |..%.NQ1$.Q1$.H$:|
00001DF0: 82 51 33 00 19 26 FD 4E 99 51 24 A6 36 AB C3 28 |.Q3..&.N.Q$.6..(|
00001E00: 51 24 29 29 51 31 24 A6 38 AB C3 28 51 31 24 29 |Q$))Q1$.8..(Q1$)|
00001E10: 29 3B 3A 8D 32 38 31 30 30 00 2E 26 FE 4E 8B A8 |);:.28100..&.N..|
00001E20: 41 4D B0 4F 24 B2 22 22 A7 32 30 32 35 30 00 54 |AM.O$."".20250.T|
00001E30: 26 01 4F 81 58 B2 31 A4 C3 28 4F 24 29 3A 97 51 |&.O.X.1..(O$):.Q|
00001E40: 31 AA 58 AB 31 2C C6 28 CA 28 4F 24 2C 58 2C 31 |1.X.1,.(.(O$,X,1|
00001E50: 29 29 3A 82 00 74 26 1A 4F 8B 45 58 49 54 A7 51 |)):..t&.O.EXIT.Q|
00001E60: B2 46 4D 41 58 AA 31 3A 8F 20 4C 45 41 56 45 20 |.FMAX.1:. LEAVE |
00001E70: 4C 4F 4F 50 00 7B 26 24 4F 82 51 00 A2 26 2E 4F |LOOP.{&$O.Q..&.O|
00001E80: 99 3A 99 22 20 54 4F 54 41 4C 20 45 52 52 4F 52 |.:." TOTAL ERROR|
00001E90: 53 20 49 4E 20 46 49 4C 45 20 3E 3E 3E 22 45 43 |S IN FILE >>>"EC|
00001EA0: 3A 99 00 B1 26 38 4F 8B 53 59 A7 8D 32 36 39 30 |:...&8O.SY..2690|
00001EB0: 30 00 CD 26 42 4F 8B C2 28 31 35 32 29 B3 B1 30 |0..&BO..(152)..0|
00001EC0: A7 98 32 3A A0 32 3A 89 32 30 33 30 30 00 E2 26 |..2:.2:.20300..&|
00001ED0: 47 4F A1 54 24 3A 8B 54 24 B2 22 22 A7 32 30 32 |GO.T$:.T$."".202|
00001EE0: 39 35 00 E8 26 4C 4F 8E 00 EE 26 D8 59 8F 00 00 |95..&LO...&.Y...|
00001EF0: 27 D9 59 8F 20 46 49 4C 45 20 45 44 49 54 4F 52 |'.Y. FILE EDITOR|
00001F00: 00 06 27 DA 59 8F 00 1D 27 EC 59 8F 20 46 49 4E |..'.Y...'.Y. FIN|
00001F10: 44 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 33 27 |D LINE NUMBER.3'|
00001F20: F6 59 54 B2 C3 28 50 54 52 24 29 AA 31 3A 54 32 |.YT..(PTR$).1:T2|
00001F30: B2 AB 31 00 4A 27 00 5A 54 B2 54 AB 31 3A 8B 54 |..1.J'.ZT.T.1:.T|
00001F40: B3 B2 30 A7 89 32 33 30 38 30 00 60 27 0A 5A 54 |..0..23080.`'.ZT|
00001F50: 31 B2 C6 28 CA 28 50 54 52 24 2C 54 2C 31 29 29 |1..(.(PTR$,T,1))|
00001F60: 00 8F 27 14 5A 54 32 B2 C6 28 CA 28 46 49 24 28 |..'.ZT2..(.(FI$(|
00001F70: 54 31 29 2C 31 2C 31 29 29 AA 32 35 36 AC C6 28 |T1),1,1)).256..(|
00001F80: CA 28 46 49 24 28 54 31 29 2C 32 2C 31 29 29 00 |.(FI$(T1),2,1)).|
00001F90: A0 27 1E 5A 8B 54 32 B1 4C 4E A7 32 33 30 34 30 |.'.Z.T2.LN.23040|
00001FA0: 00 BC 27 28 5A 45 52 52 B2 A8 28 54 32 B2 4C 4E |..'(ZERR..(T2.LN|
00001FB0: 29 3A 8B 45 52 52 A7 54 B2 54 AA 31 00 C2 27 32 |):.ERR.T.T.1..'2|
00001FC0: 5A 8E 00 C8 27 3C 5A 8F 00 DF 27 3D 5A 8F 20 41 |Z...'<Z...'=Z. A|
00001FD0: 44 44 20 4C 49 4E 45 20 54 4F 20 46 49 4C 45 00 |DD LINE TO FILE.|
00001FE0: E5 27 3E 5A 8F 00 FE 27 41 5A 8B 4C 4E B3 30 B0 |.'>Z...'AZ.LN.0.|
00001FF0: 4C 4E B1 36 35 35 33 35 A7 32 33 32 31 35 00 09 |LN.65535.23215..|
00002000: 28 46 5A 8D 32 33 30 32 30 00 2C 28 50 5A 8B A8 |(FZ.23020.,(PZ..|
00002010: 45 52 52 A7 54 31 B2 C6 28 CA 28 50 54 52 24 2C |ERR.T1..(.(PTR$,|
00002020: 54 2C 31 29 29 3A 89 32 33 31 35 30 00 47 28 5A |T,1)):.23150.G(Z|
00002030: 5A 8B 45 24 B2 22 22 A7 45 52 52 B2 54 52 45 55 |Z.E$."".ERR.TREU|
00002040: 3A 89 32 33 32 32 30 00 5F 28 64 5A 54 31 B2 C6 |:.23220._(dZT1..|
00002050: 28 45 24 29 3A 45 24 B2 CA 28 45 24 2C 32 29 00 |(E$):E$..(E$,2).|
00002060: 70 28 6E 5A 54 32 B2 B5 28 4C 4E AD 32 35 36 29 |p(nZT2..(LN.256)|
00002070: 00 93 28 78 5A 46 49 24 28 54 31 29 B2 C7 28 4C |..(xZFI$(T1)..(L|
00002080: 4E AB 54 32 AC 32 35 36 29 AA C7 28 54 32 29 AA |N.T2.256)..(T2).|
00002090: 49 4E 24 00 A3 28 82 5A 8B A8 45 52 52 A7 32 33 |IN$..(.Z..ERR.23|
000020A0: 32 32 30 00 B4 28 8C 5A 54 24 B2 22 22 3A 54 31 |220..(.ZT$."":T1|
000020B0: 24 B2 22 22 00 CC 28 96 5A 8B 54 B1 31 A7 54 24 |$.""..(.Z.T.1.T$|
000020C0: B2 C8 28 50 54 52 24 2C 54 AB 31 29 00 EA 28 A0 |..(PTR$,T.1)..(.|
000020D0: 5A 8B 54 B3 B2 C3 28 50 54 52 24 29 A7 54 31 24 |Z.T...(PTR$).T1$|
000020E0: B2 CA 28 50 54 52 24 2C 54 29 00 00 29 AA 5A 50 |..(PTR$,T)..).ZP|
000020F0: 54 52 24 B2 54 24 AA C7 28 54 31 29 AA 54 31 24 |TR$.T$..(T1).T1$|
00002100: 00 0E 29 AF 5A 45 52 52 B2 46 41 4C 53 45 00 14 |..).ZERR.FALSE..|
00002110: 29 B4 5A 8E 00 1A 29 04 5B 8F 00 3C 29 05 5B 8F |).Z...).[..<).[.|
00002120: 20 44 45 4C 45 54 45 20 4C 49 4E 45 20 50 4F 49 | DELETE LINE POI|
00002130: 4E 54 45 44 20 41 54 20 42 59 20 54 00 42 29 06 |NTED AT BY T.B).|
00002140: 5B 8F 00 53 29 0E 5B 54 24 B2 22 22 3A 54 31 24 |[..S).[T$."":T1$|
00002150: B2 22 22 00 6B 29 18 5B 8B 54 B1 31 A7 54 24 B2 |."".k).[.T.1.T$.|
00002160: C8 28 50 54 52 24 2C 54 AB 31 29 00 8A 29 22 5B |.(PTR$,T.1)..)"[|
00002170: 8B 54 B3 C3 28 50 54 52 24 29 A7 54 31 24 B2 CA |.T..(PTR$).T1$..|
00002180: 28 50 54 52 24 2C 54 AA 31 29 00 A0 29 2C 5B 45 |(PTR$,T.1)..),[E|
00002190: 24 B2 45 24 AA CA 28 50 54 52 24 2C 54 2C 31 29 |$.E$..(PTR$,T,1)|
000021A0: 00 B0 29 36 5B 50 54 52 24 B2 54 24 AA 54 31 24 |..)6[PTR$.T$.T1$|
000021B0: 00 B6 29 40 5B 8E 00 BC 29 68 5B 8F 00 DD 29 69 |..)@[...)h[...)i|
000021C0: 5B 8F 20 4C 49 53 54 20 4C 49 4E 45 53 20 50 4F |[. LIST LINES PO|
000021D0: 49 4E 54 45 44 20 41 54 20 42 59 20 54 00 E3 29 |INTED AT BY T..)|
000021E0: 6A 5B 8F 00 12 2A 72 5B 99 C6 28 CA 28 46 49 24 |j[...*r[..(.(FI$|
000021F0: 28 54 29 2C 31 2C 31 29 29 AA 32 35 36 AC C6 28 |(T),1,1)).256..(|
00002200: CA 28 46 49 24 28 54 29 2C 32 2C 31 29 29 A3 36 |.(FI$(T),2,1)).6|
00002210: 29 3B 00 23 2A 7C 5B 99 CA 28 46 49 24 28 54 29 |);.#*|[..(FI$(T)|
00002220: 2C 33 29 00 29 2A 86 5B 8E 00 2F 2A CC 5B 8F 00 |,3).)*.[../*.[..|
00002230: 4F 2A CD 5B 8F 20 53 54 41 52 54 20 41 4E 44 20 |O*.[. START AND |
00002240: 46 49 4E 49 53 48 20 50 4F 49 4E 54 45 52 53 00 |FINISH POINTERS.|
00002250: 55 2A CE 5B 8F 00 66 2A D6 5B 4C 4E B2 53 4C 3A |U*.[..f*.[LN.SL:|
00002260: 8D 32 33 30 32 30 00 6F 2A E0 5B 53 50 B2 54 00 |.23020.o*.[SP.T.|
00002270: 80 2A EA 5B 4C 4E B2 46 4C 3A 8D 32 33 30 32 30 |.*.[LN.FL:.23020|
00002280: 00 89 2A F4 5B 46 50 B2 54 00 9A 2A F9 5B 8B 45 |..*.[FP.T..*.[.E|
00002290: 52 52 A7 46 50 B2 46 50 AB 31 00 B5 2A FE 5B 8B |RR.FP.FP.1..*.[.|
000022A0: 46 50 B1 C3 28 50 54 52 24 29 A7 46 50 B2 C3 28 |FP..(PTR$).FP..(|
000022B0: 50 54 52 24 29 00 BB 2A 08 5C 8E 00 C1 2A 30 5C |PTR$)..*.\...*0\|
000022C0: 8F 00 DD 2A 31 5C 8F 20 4C 4F 41 44 20 46 49 4C |...*1\. LOAD FIL|
000022D0: 45 20 46 52 4F 4D 20 44 45 56 49 43 45 00 E3 2A |E FROM DEVICE..*|
000022E0: 32 5C 8F 00 EE 2A 3A 5C 8D 31 31 32 35 30 00 08 |2\...*:\.11250..|
000022F0: 2B 3F 5C 8B 44 45 56 B2 38 A7 49 4E 24 B2 49 4E |+?\.DEV.8.IN$.IN|
00002300: 24 AA 22 2C 53 2C 52 22 00 19 2B 4E 5C 9F 32 2C |$.",S,R"..+N\.2,|
00002310: 44 45 56 2C 30 2C 49 4E 24 00 2F 2B 53 5C 84 32 |DEV,0,IN$./+S\.2|
00002320: 2C 49 4E 24 3A 8B 53 54 A7 89 32 33 36 35 30 00 |,IN$:.ST..23650.|
00002330: 5B 2B 58 5C 8B 49 4E 24 B3 B1 22 45 4E 44 22 A7 |[+X\.IN$.."END".|
00002340: 8D 32 34 30 30 30 3A 8D 32 33 39 30 30 3A 8D 32 |.24000:.23900:.2|
00002350: 33 31 30 30 3A 89 32 33 36 33 35 00 62 2B 62 5C |3100:.23635.b+b\|
00002360: A0 32 00 68 2B 6C 5C 8E 00 6E 2B 94 5C 8F 00 88 |.2.h+l\..n+.\...|
00002370: 2B 95 5C 8F 20 53 41 56 45 20 46 49 4C 45 20 54 |+.\. SAVE FILE T|
00002380: 4F 20 44 45 56 49 43 45 00 8E 2B 96 5C 8F 00 99 |O DEVICE..+.\...|
00002390: 2B 99 5C 8D 31 31 32 35 30 00 B3 2B 9E 5C 8B 44 |+.\.11250..+.\.D|
000023A0: 45 56 B2 38 A7 49 4E 24 B2 49 4E 24 AA 22 2C 53 |EV.8.IN$.IN$.",S|
000023B0: 2C 57 22 00 EC 2B A3 5C 54 24 B2 22 4E 22 3A 8B |,W"..+.\T$."N":.|
000023C0: 44 45 56 B2 38 A7 85 22 4F 56 45 52 57 52 49 54 |DEV.8.."OVERWRIT|
000023D0: 45 20 45 58 49 53 54 49 4E 47 20 46 49 4C 45 20 |E EXISTING FILE |
000023E0: 28 59 2F 4E 29 20 3A 20 22 3B 54 24 00 06 2C A4 |(Y/N) : ";T$..,.|
000023F0: 5C 8B 54 24 B2 22 59 22 A7 49 4E 24 B2 22 40 30 |\.T$."Y".IN$."@0|
00002400: 3A 22 AA 49 4E 24 00 1A 2C A8 5C 9F 32 2C 44 45 |:".IN$..,.\.2,DE|
00002410: 56 2C 32 2C 49 4E 24 3A 9D 32 00 2C 2C B2 5C 53 |V,2,IN$:.2.,,.\S|
00002420: 4C B2 30 3A 46 4C B2 36 35 35 33 36 00 40 2C C6 |L.0:FL.65536.@,.|
00002430: 5C 8D 32 34 34 32 30 3A 98 32 2C 22 45 4E 44 22 |\.24420:.2,"END"|
00002440: 00 4A 2C D0 5C 98 32 3A A0 32 00 50 2C E4 5C 8E |.J,.\.2:.2.P,.\.|
00002450: 00 56 2C 5C 5D 8F 00 72 2C 5D 5D 8F 20 52 45 4D |.V,\]..r,]]. REM|
00002460: 4F 56 45 20 4C 45 41 44 49 4E 47 20 53 50 41 43 |OVE LEADING SPAC|
00002470: 45 53 00 78 2C 5E 5D 8F 00 88 2C 66 5D 81 54 B2 |ES.x,^]...,f].T.|
00002480: 31 A4 C3 28 49 4E 24 29 00 9F 2C 70 5D 8B CA 28 |1..(IN$)..,p]..(|
00002490: 49 4E 24 2C 54 2C 31 29 B2 22 20 22 A7 82 54 00 |IN$,T,1)." "..T.|
000024A0: B2 2C 8E 5D 49 4E 24 B2 CA 28 49 4E 24 2C 54 29 |.,.]IN$..(IN$,T)|
000024B0: 3A 8E 00 B8 2C C0 5D 8F 00 CE 2C C1 5D 8F 20 47 |:...,.]...,.]. G|
000024C0: 45 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 D4 |ET LINE NUMBER..|
000024D0: 2C C2 5D 8F 00 E2 2C CA 5D 4C 4E B2 AB 36 35 35 |,.]...,.]LN..655|
000024E0: 33 36 00 0B 2D D4 5D 8B C3 28 49 4E 24 29 B2 30 |36..-.]..(IN$).0|
000024F0: B0 49 4E 24 B3 22 30 22 B0 C8 28 49 4E 24 2C 31 |.IN$."0"..(IN$,1|
00002500: 29 B1 22 39 22 A7 32 34 30 39 30 00 1B 2D DE 5D |)."9".24090..-.]|
00002510: 81 54 B2 31 A4 C3 28 49 4E 24 29 00 43 2D E8 5D |.T.1..(IN$).C-.]|
00002520: 8B CA 28 49 4E 24 2C 54 2C 31 29 B3 B2 22 39 22 |..(IN$,T,1).."9"|
00002530: AF CA 28 49 4E 24 2C 54 2C 67 FF 67 FF FF FF FF |..(IN$,T,g.g....|
00002540: F4 FF FF FF FF FF FF FF FF DD FF FF FF A3 FF D2 |................|
00002550: DD FF FF ED F7 FF FF FF FF D2 DD FF FF BF FF D2 |................|
00002560: DD FF FF ED FF FF C7 FF FF FF FF FF 47 FF 22 FF |............G.".|
00002570: 30 FF 2B FF 32 FF 31 FF FF D2 FF FF ED FF FF FF |0.+.2.1.........|
00002580: FF FF FF FF FF ED FF FF D2 FF FF FF FF 60 1F FF |.............`..|
00002590: FF FF 81 50 1F FF FF FF BA 8B 40 00 00 58 FF 08 |...P......@..X..|
000025A0: A9 FF E8 EC DA 80 16 88 9F 9C EB FF 23 31 61 73 |............#1as|
000025B0: 77 99 FF D8 20 22 3B 49 4E 24 00 DB 2D 92 5E 53 |w... ";IN$..-.^S|
000025C0: 4C B2 30 3A 46 4C B2 36 35 35 33 35 3A 54 33 B2 |L.0:FL.65535:T3.|
000025D0: 30 3A 45 52 52 B2 46 41 4C 53 45 00 EF 2D 9C 5E |0:ERR.FALSE..-.^|
000025E0: 8B C3 28 49 4E 24 29 B2 30 A7 32 34 32 39 35 00 |..(IN$).0.24295.|
000025F0: FA 2D A6 5E 8D 32 34 30 30 30 00 12 2E B0 5E 8B |.-.^.24000....^.|
00002600: 4C 4E B1 B2 30 A7 53 4C B2 4C 4E 3A 89 32 34 32 |LN..0.SL.LN:.242|
00002610: 36 30 00 2F 2E BA 5E 8B 4C 4E B1 AB 36 35 35 33 |60./..^.LN..6553|
00002620: 36 A7 46 4C B2 AB 4C 4E 3A 89 32 34 32 39 35 00 |6.FL..LN:.24295.|
00002630: 51 2E C4 5E 8D 32 33 39 30 30 3A 8B C3 28 49 4E |Q..^.23900:..(IN|
00002640: 24 29 B2 30 A7 46 4C B2 53 4C 3A 89 32 34 32 39 |$).0.FL.SL:.2429|
00002650: 35 00 69 2E CE 5E 49 4E 24 B2 CA 28 49 4E 24 2C |5.i..^IN$..(IN$,|
00002660: 32 29 3A 8D 32 33 39 30 30 00 84 2E E2 5E 8B C3 |2):.23900....^..|
00002670: 28 49 4E 24 29 B1 30 A7 8D 32 34 30 30 30 3A 46 |(IN$).0..24000:F|
00002680: 4C B2 4C 4E 00 AE 2E E7 5E 45 52 52 B2 53 4C B3 |L.LN....^ERR.SL.|
00002690: 30 B0 53 4C B1 36 35 35 33 35 B0 46 4C B3 30 B0 |0.SL.65535.FL.0.|
000026A0: 46 4C B1 36 35 35 33 36 B0 45 52 52 3A 8E 00 B4 |FL.65536.ERR:...|
000026B0: 2E EC 5E 8F 00 CA 2E ED 5E 8F 20 49 4E 49 54 49 |..^.....^. INITI|
000026C0: 41 4C 49 53 45 20 46 49 4C 45 00 D0 2E EE 5E 8F |ALISE FILE....^.|
000026D0: 00 FA 2E F6 5E 50 54 52 24 B2 22 22 3A 45 24 B2 |....^PTR$."":E$.|
000026E0: 22 22 3A 81 58 B2 30 A4 32 35 34 3A 45 24 B2 45 |"":.X.0.254:E$.E|
000026F0: 24 AA C7 28 58 29 3A 82 3A 8E 00 00 2F 50 5F 8F |$..(X):.:.../P_.|
00002700: 00 11 2F 51 5F 8F 20 4C 49 53 54 20 4C 49 4E 45 |../Q_. LIST LINE|
00002710: 53 00 17 2F 52 5F 8F 00 2D 2F 5A 5F 8D 32 34 32 |S../R_..-/Z_.242|
00002720: 30 30 3A 8B 45 52 52 A7 32 34 34 36 30 00 4F 2F |00:.ERR.24460.O/|
00002730: 64 5F 99 22 93 22 3A 8D 32 33 35 30 30 3A 8B 46 |d_.".":.23500:.F|
00002740: 50 B3 53 50 B0 46 50 B2 30 A7 32 34 34 36 30 00 |P.SP.FP.0.24460.|
00002750: 7A 2F 6E 5F 81 54 31 B2 53 50 A4 46 50 3A 54 B2 |z/n_.T1.SP.FP:T.|
00002760: C6 28 CA 28 50 54 52 24 2C 54 31 2C 31 29 29 3A |.(.(PTR$,T1,1)):|
00002770: 8D 32 33 34 30 30 3A 82 3A 99 00 99 2F 87 5F 8B |.23400:.:.../._.|
00002780: C2 28 31 35 32 29 B2 30 A7 A1 54 24 3A 8B 54 24 |.(152).0..T$:.T$|
00002790: B2 22 22 A7 32 34 34 35 35 00 9F 2F 8C 5F 8E 00 |."".24455../._..|
000027A0: A5 2F B4 5F 8F 00 BA 2F B5 5F 8F 20 44 45 4C 45 |./._.../._. DELE|
000027B0: 54 45 20 4C 49 4E 45 28 53 29 00 C0 2F B6 5F 8F |TE LINE(S)../._.|
000027C0: 00 D6 2F BE 5F 8D 32 34 32 30 30 3A 8B 45 52 52 |../._.24200:.ERR|
000027D0: A7 32 34 34 36 30 00 EE 2F C8 5F 8D 32 33 35 30 |.24460../._.2350|
000027E0: 30 3A 8B 46 50 B3 53 50 A7 32 34 35 36 30 00 0A |0:.FP.SP.24560..|
000027F0: 30 D2 5F 54 B2 53 50 3A 81 54 31 B2 53 50 A4 46 |0._T.SP:.T1.SP.F|
00002800: 50 3A 8D 32 33 33 30 30 3A 82 00 10 30 F0 5F 8E |P:.23300:...0._.|
00002810: 00 16 30 18 60 8F 00 2A 30 19 60 8F 20 49 4E 50 |..0.`..*0.`. INP|
00002820: 55 54 20 4C 49 4E 45 28 53 29 00 30 30 1A 60 8F |UT LINE(S).00.`.|
00002830: 00 39 30 22 60 99 22 93 22 00 61 30 2C 60 49 4E |.90"`.".".a0,`IN|
00002840: 24 B2 22 22 3A 85 49 4E 24 3A 8D 32 34 30 30 30 |$."":.IN$:.24000|
00002850: 3A 8B 4C 4E B2 AB 36 35 35 33 36 A7 32 34 36 36 |:.LN..65536.2466|
00002860: 35 00 7C 30 4A 60 8D 32 33 39 30 30 3A 8B C3 28 |5.|0J`.23900:..(|
00002870: 49 4E 24 29 B2 30 A7 32 34 36 38 30 00 93 30 54 |IN$).0.24680..0T|
00002880: 60 8D 32 33 31 30 30 3A 8B A8 45 52 52 A7 32 34 |`.23100:..ERR.24|
00002890: 36 32 30 00 99 30 59 60 8E 00 B1 30 68 60 8D 32 |620..0Y`...0h`.2|
000028A0: 33 30 32 30 3A 8B A8 45 52 52 A7 8D 32 33 33 30 |3020:..ERR..2330|
000028B0: 30 00 BC 30 72 60 89 32 34 36 32 30 00 C2 30 7C |0..0r`.24620..0||
000028C0: 60 8F 00 E5 30 7D 60 8F 20 52 45 4E 55 4D 42 45 |`...0}`. RENUMBE|
000028D0: 52 20 46 49 4C 45 20 49 4E 20 53 54 45 50 53 20 |R FILE IN STEPS |
000028E0: 4F 46 20 31 30 00 EB 30 7E 60 8F 00 FF 30 86 60 |OF 10..0~`...0.`|
000028F0: 4C 4E B2 31 30 3A 45 52 52 B2 46 41 4C 53 45 00 |LN.10:ERR.FALSE.|
00002900: 14 31 90 60 8B C3 28 50 54 52 24 29 B3 31 A7 32 |.1.`..(PTR$).1.2|
00002910: 34 37 38 30 00 25 31 9A 60 81 54 B2 31 A4 C3 28 |4780.%1.`.T.1..(|
00002920: 50 54 52 24 29 00 3B 31 9F 60 54 31 B2 C6 28 CA |PTR$).;1.`T1..(.|
00002930: 28 50 54 52 24 2C 54 2C 31 29 29 00 72 31 A4 60 |(PTR$,T,1)).r1.`|
00002940: 46 49 24 28 54 31 29 B2 C7 28 4C 4E AB B5 28 4C |FI$(T1)..(LN..(L|
00002950: 4E AD 32 35 36 29 AC 32 35 36 29 AA C7 28 4C 4E |N.256).256)..(LN|
00002960: AD 32 35 36 29 AA CA 28 46 49 24 28 54 31 29 2C |.256)..(FI$(T1),|
00002970: 33 29 00 81 31 AE 60 4C 4E B2 4C 4E AA 31 30 3A |3)..1.`LN.LN.10:|
00002980: 82 00 87 31 CC 60 8E 00 8D 31 E0 60 8F 00 A4 31 |...1.`...1.`...1|
00002990: E1 60 8F 20 46 49 4C 45 20 45 44 49 54 4F 52 20 |.`. FILE EDITOR |
000029A0: 4D 45 4E 55 00 AA 31 E2 60 8F 00 DC 31 F4 60 99 |MENU..1.`...1.`.|
000029B0: 22 93 1E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |".. ------------|
000029C0: 20 46 49 4C 45 20 45 44 49 54 4F 52 20 2D 2D 2D | FILE EDITOR ---|
000029D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 1F 11 22 00 01 32 03 |---------.."..2.|
000029E0: 61 99 22 20 20 20 20 20 20 30 29 20 45 58 49 54 |a." 0) EXIT|
000029F0: 20 46 52 4F 4D 20 46 49 4C 45 20 45 44 49 54 4F | FROM FILE EDITO|
00002A00: 52 00 1E 32 08 61 99 22 20 20 20 20 20 20 31 29 |R..2.a." 1)|
00002A10: 20 49 4E 50 55 54 20 4C 49 4E 45 28 53 29 00 3A | INPUT LINE(S).:|
00002A20: 32 12 61 99 22 20 20 20 20 20 20 32 29 20 4C 49 |2.a." 2) LI|
00002A30: 53 54 20 4C 49 4E 45 28 53 29 00 58 32 1C 61 99 |ST LINE(S).X2.a.|
00002A40: 22 20 20 20 20 20 20 33 29 20 44 45 4C 45 54 45 |" 3) DELETE|
00002A50: 20 4C 49 4E 45 28 53 29 00 75 32 26 61 99 22 20 | LINE(S).u2&a." |
00002A60: 20 20 20 20 20 34 29 20 52 45 4E 55 4D 42 45 52 | 4) RENUMBER|
00002A70: 20 46 49 4C 45 00 94 32 30 61 99 22 20 20 20 20 | FILE..20a." |
00002A80: 20 20 35 29 20 49 4E 49 54 49 41 4C 49 53 45 20 | 5) INITIALISE |
00002A90: 46 49 4C 45 00 AD 32 3A 61 99 22 20 20 20 20 20 |FILE..2:a." |
00002AA0: 20 36 29 20 4C 4F 41 44 20 46 49 4C 45 00 C6 32 | 6) LOAD FILE..2|
00002AB0: 44 61 99 22 20 20 20 20 20 20 37 29 20 53 41 56 |Da." 7) SAV|
00002AC0: 45 20 46 49 4C 45 00 EE 32 4E 61 99 22 20 20 20 |E FILE..2Na." |
00002AD0: 20 20 20 38 29 20 41 44 44 20 4D 41 43 48 49 4E | 8) ADD MACHIN|
00002AE0: 45 20 43 4F 44 45 20 54 4F 20 46 49 4C 45 00 17 |E CODE TO FILE..|
00002AF0: 33 53 61 99 22 20 20 20 20 20 20 39 29 20 43 48 |3Sa." 9) CH|
00002B00: 41 4E 47 45 20 44 45 56 49 43 45 20 4E 55 4D 42 |ANGE DEVICE NUMB|
00002B10: 45 52 11 11 11 11 11 00 34 33 58 61 85 22 43 4F |ER......43Xa."CO|
00002B20: 4D 4D 41 4E 44 20 28 20 30 2D 39 20 29 20 3A 20 |MMAND ( 0-9 ) : |
00002B30: 22 3B 43 4F 00 40 33 6C 61 8B 43 4F B2 30 A7 8E |";CO.@3la.CO.0..|
00002B40: 00 7E 33 76 61 8B 43 4F B1 30 A7 91 43 4F 8D 32 |.~3va.CO.0..CO.2|
00002B50: 34 36 30 30 2C 32 34 34 30 30 2C 32 34 35 30 30 |4600,24400,24500|
00002B60: 2C 32 34 37 30 30 2C 32 34 33 30 30 2C 32 33 36 |,24700,24300,236|
00002B70: 30 30 2C 32 33 37 30 30 2C 32 35 30 30 30 00 94 |00,23700,25000..|
00002B80: 33 80 61 8B 43 4F B1 38 A7 91 43 4F AB 38 8D 32 |3.a.CO.8..CO.8.2|
00002B90: 35 35 30 30 00 9F 33 8A 61 89 32 34 38 30 30 00 |5500..3.a.24800.|
00002BA0: A5 33 A8 61 8F 00 C3 33 A9 61 8F 20 41 44 44 20 |.3.a...3.a. ADD |
00002BB0: 54 4F 20 46 49 4C 45 20 46 52 4F 4D 20 4D 45 4D |TO FILE FROM MEM|
00002BC0: 4F 52 59 00 C9 33 AA 61 8F 00 E2 33 B2 61 8D 31 |ORY..3.a...3.a.1|
00002BD0: 32 30 35 30 3A 8D 31 31 32 30 30 3A 8D 32 34 32 |2050:.11200:.242|
00002BE0: 30 30 00 F3 33 DA 61 81 58 59 B2 41 44 A4 45 41 |00..3.a.XY.AD.EA|
00002BF0: A9 31 35 00 11 34 E4 61 49 4E 24 B2 22 20 42 59 |.15..4.aIN$." BY|
00002C00: 54 20 22 3A 4C 4E B2 53 4C 3A 53 4C B2 53 4C AA |T ":LN.SL:SL.SL.|
00002C10: 35 00 25 34 EE 61 81 58 5A B2 30 A4 31 34 3A 4F |5.%4.a.XZ.0.14:O|
00002C20: 32 24 B2 22 22 00 3F 34 F8 61 8D 31 31 31 30 30 |2$."".?4.a.11100|
00002C30: 3A 49 4E 24 B2 49 4E 24 AA 22 24 22 AA 48 24 00 |:IN$.IN$."$".H$.|
00002C40: 61 34 0C 62 8B 58 5A B3 31 34 AF 41 44 B3 B2 45 |a4.b.XZ.14.AD..E|
00002C50: 41 A7 49 4E 24 B2 49 4E 24 AA 22 2E 22 3A 82 58 |A.IN$.IN$.".":.X|
00002C60: 5A 00 72 34 16 62 8D 32 33 31 30 30 3A 82 58 59 |Z.r4.b.23100:.XY|
00002C70: 3A 8E 00 78 34 9C 63 8F 00 93 34 9D 63 8F 20 43 |:..x4.c...4.c. C|
00002C80: 48 41 4E 47 45 20 44 45 56 49 43 45 20 4E 55 4D |HANGE DEVICE NUM|
00002C90: 42 45 52 00 99 34 9E 63 8F 00 A6 34 A6 63 99 A6 |BER..4.c...4.c..|
00002CA0: 31 39 29 44 45 56 00 C5 34 B0 63 85 22 91 4E 45 |19)DEV..4.c.".NE|
00002CB0: 57 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 3A |W DEVICE NUMBER:|
00002CC0: 22 3B 44 45 56 00 CB 34 BA 63 8E 00 D1 34 90 65 |";DEV..4.c...4.e|
00002CD0: 8F 00 EC 34 91 65 8F 20 53 59 4D 42 4F 4C 20 54 |...4.e. SYMBOL T|
00002CE0: 4F 20 43 4F 4C 4F 4E 20 45 54 43 2E 00 F2 34 92 |O COLON ETC...4.|
00002CF0: 65 8F 00 06 35 9A 65 48 24 B2 22 22 3A 54 31 B2 |e...5.eH$."":T1.|
00002D00: C3 28 49 4E 24 29 00 14 35 A4 65 50 54 52 B2 50 |.(IN$)..5.ePTR.P|
00002D10: 54 52 AA 31 00 26 35 AE 65 8B 54 31 B3 50 54 52 |TR.1.&5.e.T1.PTR|
00002D20: A7 32 36 30 36 30 00 3C 35 B8 65 54 B2 C6 28 CA |.26060.<5.eT..(.|
00002D30: 28 49 4E 24 2C 50 54 52 2C 31 29 29 00 4C 35 BD |(IN$,PTR,1)).L5.|
00002D40: 65 8B 54 B2 33 32 A7 32 36 30 32 30 00 6F 35 C2 |e.T.32.26020.o5.|
00002D50: 65 8B 54 B3 B1 35 38 AF 54 B3 B1 35 39 A7 48 24 |e.T..58.T..59.H$|
00002D60: B2 48 24 AA C7 28 54 29 3A 89 32 36 30 32 30 00 |.H$..(T):.26020.|
00002D70: 75 35 CC 65 8E 00 7B 35 F4 65 8F 00 8E 35 F5 65 |u5.e..{5.e...5.e|
00002D80: 8F 20 4F 50 45 52 41 4E 44 20 54 59 50 45 00 94 |. OPERAND TYPE..|
00002D90: 35 F6 65 8F 00 A6 35 FE 65 54 36 B2 50 54 52 3A |5.e...5.eT6.PTR:|
00002DA0: 8D 32 36 30 30 30 00 B4 35 08 66 45 52 52 B2 46 |.26000..5.fERR.F|
00002DB0: 41 4C 53 45 00 C8 35 12 66 8B C3 28 48 24 29 B2 |ALSE..5.f..(H$).|
00002DC0: 30 A7 4F 50 B2 31 3A 8E 00 DB 35 1C 66 8B 48 24 |0.OP.1:...5.f.H$|
00002DD0: B2 22 41 22 A7 4F 50 B2 30 3A 8E 00 F0 35 21 66 |."A".OP.0:...5!f|
00002DE0: 8B C6 28 48 24 29 B2 33 35 A7 4F 50 B2 32 3A 8E |..(H$).35.OP.2:.|
00002DF0: 00 FA 35 3A 66 4F 50 B2 31 32 00 13 36 44 66 8B |..5:fOP.12..6Df.|
00002E00: C8 28 48 24 2C 31 29 B2 22 28 22 A7 4F 50 B2 4F |.(H$,1)."(".OP.O|
00002E10: 50 AB 33 00 24 36 4E 66 54 B2 31 3A 54 31 B2 C3 |P.3.$6NfT.1:T1..|
00002E20: 28 48 24 29 00 38 36 58 66 54 32 B2 C6 28 CA 28 |(H$).86XfT2..(.(|
00002E30: 48 24 2C 54 2C 31 29 29 00 56 36 62 66 8B 54 32 |H$,T,1)).V6bf.T2|
00002E40: B3 B1 34 36 AF 54 B3 54 31 A7 54 B2 54 AA 31 3A |..46.T.T1.T.T.1:|
00002E50: 89 32 36 32 30 30 00 68 36 6C 66 8B 54 32 B3 B1 |.26200.h6lf.T2..|
00002E60: 34 36 A7 32 36 32 37 35 00 7E 36 76 66 54 B2 54 |46.26275.~6vfT.T|
00002E70: AA 31 3A 8B 54 B1 54 31 A7 32 36 32 37 30 00 92 |.1:.T.T1.26270..|
00002E80: 36 80 66 54 32 B2 C6 28 CA 28 48 24 2C 54 2C 31 |6.fT2..(.(H$,T,1|
00002E90: 29 29 00 AC 36 8A 66 8B 54 32 B2 38 39 A7 4F 50 |))..6.f.T2.89.OP|
00002EA0: B2 4F 50 AB 31 3A 89 32 36 32 37 35 00 C6 36 94 |.OP.1:.26275..6.|
00002EB0: 66 8B 54 32 B2 38 38 A7 4F 50 B2 4F 50 AB 32 3A |f.T2.88.OP.OP.2:|
00002EC0: 89 32 36 32 37 35 00 CC 36 9E 66 8F 00 DC 36 A0 |.26275..6.f...6.|
00002ED0: 66 45 4E B2 35 3A 89 32 38 30 30 30 00 15 37 A3 |fEN.5:.28000..7.|
00002EE0: 66 8B 28 4F 50 B2 31 32 29 AF 28 28 50 4F B1 32 |f.(OP.12).((PO.2|
00002EF0: AF 50 4F B3 36 29 B0 28 50 4F B1 36 AF 50 4F B3 |.PO.6).(PO.6.PO.|
00002F00: 31 30 29 B0 50 4F B2 31 32 B0 50 4F B2 31 31 29 |10).PO.12.PO.11)|
00002F10: A7 4F 50 B2 33 00 21 37 A9 66 8F 20 30 50 41 47 |.OP.3.!7.f. 0PAG|
00002F20: 45 00 2E 37 AA 66 8B 4F 50 B3 31 30 A7 8E 00 40 |E..7.f.OP.10...@|
00002F30: 37 AC 66 54 37 B2 50 54 52 3A 50 54 52 B2 54 36 |7.fT7.PTR:PTR.T6|
00002F40: 00 4B 37 AE 66 8D 32 38 36 30 30 00 65 37 B0 66 |.K7.f.28600.e7.f|
00002F50: 8B 45 52 52 B0 52 45 53 55 4C 54 B1 32 35 35 A7 |.ERR.RESULT.255.|
00002F60: 32 36 32 39 32 00 71 37 B2 66 4F 50 B2 4F 50 AB |26292.q7.fOP.OP.|
00002F70: 36 00 7C 37 B4 66 50 54 52 B2 54 37 00 82 37 B6 |6.|7.fPTR.T7..7.|
00002F80: 66 8E 00 88 37 BC 66 8F 00 9E 37 BD 66 8F 20 45 |f...7.f...7.f. E|
00002F90: 56 41 4C 55 41 54 45 20 4F 50 43 4F 44 45 00 A4 |VALUATE OPCODE..|
00002FA0: 37 BE 66 8F 00 B2 37 C6 66 54 31 B2 33 3A 54 B2 |7.f...7.fT1.3:T.|
00002FB0: 50 4F 00 CC 37 D0 66 54 B2 C6 28 CA 28 54 41 24 |PO..7.fT..(.(TA$|
00002FC0: 28 54 31 29 2C 54 AA 31 2C 31 29 29 00 E2 37 DA |(T1),T.1,1))..7.|
00002FD0: 66 8B 54 B2 32 35 35 A7 45 52 52 B2 54 52 55 45 |f.T.255.ERR.TRUE|
00002FE0: 3A 8E 00 06 38 E4 66 54 31 B2 34 3A 54 32 B2 C6 |:...8.fT1.4:T2..|
00002FF0: 28 CA 28 54 41 24 28 31 29 2C B5 28 54 AD 32 AA |(.(TA$(1),.(T.2.|
00003000: 31 29 2C 31 29 29 00 1F 38 EE 66 8B 28 31 AF 54 |1),1))..8.f.(1.T|
00003010: 29 B2 30 A7 54 32 B2 B5 28 54 32 AD 31 36 29 00 |).0.T2..(T2.16).|
00003020: 2C 38 F3 66 54 32 B2 54 32 AF 31 35 00 3E 38 F8 |,8.fT2.T2.15.>8.|
00003030: 66 8B 54 32 B3 B1 4F 50 A7 32 36 33 32 30 00 4D |f.T2..OP.26320.M|
00003040: 38 02 67 4F 24 B2 4F 24 AA C7 28 54 29 00 5B 38 |8.gO$.O$..(T).[8|
00003050: 0C 67 45 52 52 B2 46 41 4C 53 45 00 61 38 16 67 |.gERR.FALSE.a8.g|
00003060: 8E 00 67 38 20 67 8F 00 87 38 21 67 8F 20 44 4F |..g8 g...8!g. DO|
00003070: 20 50 41 53 53 20 31 20 41 53 53 45 4D 42 4C 59 | PASS 1 ASSEMBLY|
00003080: 20 4F 4E 20 49 4E 24 00 8D 38 22 67 8F 00 D5 38 | ON IN$..8"g...8|
00003090: 25 67 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |%g."............|
000030A0: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... |
000030B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000030C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000030D0: 20 20 20 22 3B 00 05 39 26 67 99 22 20 20 20 20 | ";..9&g." |
000030E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000030F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003100: 20 20 20 22 3B 00 2C 39 27 67 99 22 13 11 11 11 | ";.,9'g."....|
00003110: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003120: 11 11 11 22 3B 3A 8D 32 38 31 30 30 00 48 39 2A |...";:.28100.H9*|
00003130: 67 50 41 53 53 B2 31 3A 45 58 49 54 B2 46 41 4C |gPASS.1:EXIT.FAL|
00003140: 53 45 3A 50 54 52 B2 32 00 53 39 34 67 8D 32 38 |SE:PTR.2.S94g.28|
00003150: 38 35 30 00 63 39 3E 67 8B A8 45 52 52 A7 32 36 |850.c9>g..ERR.26|
00003160: 35 34 30 00 7B 39 48 67 8B 54 B2 35 38 AF C3 28 |540.{9Hg.T.58..(|
00003170: 48 24 29 B2 30 A7 32 36 34 32 30 00 8C 39 52 67 |H$).0.26420..9Rg|
00003180: 8B 54 B2 35 39 B0 54 B2 AB 31 A7 8E 00 97 39 5C |.T.59.T..1....9\|
00003190: 67 8D 32 38 37 30 30 00 A2 39 70 67 8D 32 38 38 |g.28700..9pg.288|
000031A0: 35 30 00 B2 39 7A 67 8B A8 45 52 52 A7 32 36 35 |50..9zg..ERR.265|
000031B0: 34 30 00 CA 39 84 67 8B 54 B2 35 38 AF C3 28 48 |40..9.g.T.58..(H|
000031C0: 24 29 B2 30 A7 32 36 34 32 30 00 D0 39 98 67 8E |$).0.26420..9.g.|
000031D0: 00 E9 39 AC 67 8B 50 4F B1 35 35 A7 8D 32 36 36 |..9.g.PO.55..266|
000031E0: 30 30 3A 89 32 36 35 35 36 00 F4 39 B6 67 8D 32 |00:.26556..9.g.2|
000031F0: 36 31 30 30 00 1D 3A B8 67 8D 32 36 33 30 30 3A |6100..:.g.26300:|
00003200: 8B 45 52 52 AF 4F 50 B1 33 AF 4F 50 B3 37 A7 4F |.ERR.OP.3.OP.7.O|
00003210: 50 B2 4F 50 AA 36 3A 89 32 36 35 35 32 00 28 3A |P.OP.6:.26552.(:|
00003220: BB 67 8D 32 36 35 36 30 00 44 3A BC 67 8B C3 28 |.g.26560.D:.g..(|
00003230: 49 4E 24 29 B1 50 54 52 AF A8 45 58 49 54 A7 32 |IN$).PTR..EXIT.2|
00003240: 36 34 32 30 00 4A 3A BD 67 8E 00 50 3A C0 67 8F |6420.J:.g..P:.g.|
00003250: 00 62 3A C1 67 8F 20 42 59 54 45 20 4C 45 4E 47 |.b:.g. BYTE LENG|
00003260: 48 54 00 68 3A C2 67 8F 00 74 3A C5 67 41 44 B2 |HT.h:.g..t:.gAD.|
00003270: 41 44 AA 31 00 86 3A CA 67 8B 4F 50 B1 31 A7 41 |AD.1..:.g.OP.1.A|
00003280: 44 B2 41 44 AA 31 00 98 3A D4 67 8B 4F 50 B1 38 |D.AD.1..:.g.OP.8|
00003290: A7 41 44 B2 41 44 AA 31 00 9E 3A DE 67 8E 00 A4 |.AD.AD.1..:.g...|
000032A0: 3A E8 67 8F 00 C0 3A E9 67 8F 20 43 41 4C 43 20 |:.g...:.g. CALC |
000032B0: 44 49 52 45 43 54 49 56 45 20 4C 45 4E 47 48 54 |DIRECTIVE LENGHT|
000032C0: 00 C6 3A EA 67 8F 00 D4 3A F2 67 54 31 B2 C3 28 |..:.g...:.gT1..(|
000032D0: 49 4E 24 29 00 E5 3A FC 67 8B 50 4F B2 35 36 A7 |IN$)..:.g.PO.56.|
000032E0: 32 36 37 32 30 00 01 3B 01 68 8B 50 4F B2 36 30 |26720..;.h.PO.60|
000032F0: A7 8D 32 38 36 30 30 3A 41 44 B2 52 45 53 55 4C |..28600:AD.RESUL|
00003300: 54 00 16 3B 03 68 8B 50 4F B2 35 39 A7 45 58 49 |T..;.h.PO.59.EXI|
00003310: 54 B2 54 52 55 45 00 23 3B 06 68 8B 50 4F B1 35 |T.TRUE.#;.h.PO.5|
00003320: 38 A7 8E 00 29 3B 10 68 8F 00 35 3B 1A 68 41 44 |8...);.h..5;.hAD|
00003330: B2 41 44 AA 32 00 43 3B 24 68 50 54 52 B2 50 54 |.AD.2.C;$hPTR.PT|
00003340: 52 AA 31 00 51 3B 2E 68 8B 50 54 52 B1 54 31 A7 |R.1.Q;.h.PTR.T1.|
00003350: 8E 00 67 3B 38 68 54 B2 C6 28 CA 28 49 4E 24 2C |..g;8hT..(.(IN$,|
00003360: 50 54 52 2C 31 29 29 00 78 3B 42 68 8B 54 B2 35 |PTR,1)).x;Bh.T.5|
00003370: 38 B0 54 B2 35 39 A7 8E 00 89 3B 4C 68 8B 54 B3 |8.T.59....;Lh.T.|
00003380: B1 34 36 A7 32 36 36 36 30 00 94 3B 56 68 89 32 |.46.26660..;Vh.2|
00003390: 36 36 35 30 00 9A 3B 60 68 8F 00 A6 3B 6A 68 41 |6650..;`h...;jhA|
000033A0: 44 B2 41 44 AA 31 00 B4 3B 74 68 50 54 52 B2 50 |D.AD.1..;thPTR.P|
000033B0: 54 52 AA 31 00 C2 3B 7E 68 8B 50 54 52 B1 54 31 |TR.1..;~h.PTR.T1|
000033C0: A7 8E 00 D8 3B 88 68 54 B2 C6 28 CA 28 49 4E 24 |....;.hT..(.(IN$|
000033D0: 2C 50 54 52 2C 31 29 29 00 E9 3B 92 68 8B 54 B2 |,PTR,1))..;.h.T.|
000033E0: 35 38 B0 54 B2 35 39 A7 8E 00 FA 3B 9C 68 8B 54 |58.T.59....;.h.T|
000033F0: B3 B1 34 36 A7 32 36 37 34 30 00 05 3C A6 68 89 |..46.26740..<.h.|
00003400: 32 36 37 33 30 00 0F 3C 0A 69 80 3A 20 20 8E 00 |26730..<.i.: ..|
00003410: 15 3C 14 69 8F 00 27 3C 15 69 8F 20 53 59 4D 42 |.<.i..'<.i. SYMB|
00003420: 4F 4C 20 44 55 4D 50 00 2D 3C 16 69 8F 00 3D 3C |OL DUMP.-<.i..=<|
00003430: 1E 69 8B 53 45 B3 31 A7 32 36 39 37 35 00 43 3C |.i.SE.1.26975.C<|
00003440: 23 69 99 00 51 3C 28 69 81 58 B2 30 A4 53 45 AB |#i..Q<(i.X.0.SE.|
00003450: 31 00 67 3C 32 69 99 C8 28 53 54 24 28 58 29 2C |1.g<2i..(ST$(X),|
00003460: 36 29 A3 31 30 29 3B 00 8F 3C 3C 69 48 B2 C6 28 |6).10);..<<iH..(|
00003470: CA 28 53 54 24 28 58 29 2C 38 29 29 AC 32 35 36 |.(ST$(X),8)).256|
00003480: AA C6 28 CA 28 53 54 24 28 58 29 2C 37 29 29 00 |..(.(ST$(X),7)).|
00003490: 9A 3C 46 69 8D 31 31 30 30 30 00 A2 3C 50 69 99 |.<Fi.11000..<Pi.|
000034A0: 48 24 00 A9 3C 5A 69 82 58 00 CF 3C 5F 69 99 22 |H$..<Zi.X..<_i."|
000034B0: 11 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 4F 46 |.TOTAL NUMBER OF|
000034C0: 20 53 59 4D 42 4F 4C 53 20 3E 3E 3E 22 53 45 00 | SYMBOLS >>>"SE.|
000034D0: D5 3C 78 69 8F 00 EB 3C 79 69 8F 20 45 56 41 4C |.<xi...<yi. EVAL|
000034E0: 55 41 54 45 20 4F 50 52 41 4E 44 00 F1 3C 7A 69 |UATE OPRAND..<zi|
000034F0: 8F 00 FF 3C 82 69 45 52 52 B2 46 41 4C 53 45 00 |...<.iERR.FALSE.|
00003500: 0B 3D 8C 69 8B 4F 50 B3 32 A7 8E 00 1B 3D 96 69 |.=.i.OP.2....=.i|
00003510: 8B 4F 50 B2 33 A7 32 37 35 30 30 00 2B 3D A0 69 |.OP.3.27500.+=.i|
00003520: 8B 4F 50 B2 32 A7 32 37 34 30 30 00 36 3D AA 69 |.OP.2.27400.6=.i|
00003530: 8D 32 38 36 30 30 00 49 3D B4 69 8B 45 52 52 B0 |.28600.I=.i.ERR.|
00003540: C3 28 4F 24 29 B2 30 A7 8E 00 75 3D BE 69 8B 28 |.(O$).0...u=.i.(|
00003550: 52 45 53 55 4C 54 B3 30 B0 52 45 53 55 4C 54 B1 |RESULT.0.RESULT.|
00003560: 32 35 35 29 AF 4F 50 B3 39 A7 45 4E B2 31 3A 89 |255).OP.9.EN.1:.|
00003570: 32 38 30 30 30 00 9C 3D C8 69 8B 52 45 53 55 4C |28000..=.i.RESUL|
00003580: 54 B3 30 B0 52 45 53 55 4C 54 B1 36 35 35 33 35 |T.0.RESULT.65535|
00003590: A7 45 4E B2 32 3A 89 32 38 30 30 30 00 AC 3D D2 |.EN.2:.28000..=.|
000035A0: 69 8B 4F 50 B3 39 A7 32 37 31 34 30 00 C0 3D DC |i.OP.9.27140..=.|
000035B0: 69 54 B2 B5 28 52 45 53 55 4C 54 AD 32 35 36 29 |iT..(RESULT.256)|
000035C0: 00 D0 3D E6 69 52 45 B2 52 45 AB 54 AC 32 35 36 |..=.iRE.RE.T.256|
000035D0: 00 DB 3D F0 69 8D 32 37 31 34 30 00 E4 3D FA 69 |..=.i.27140..=.i|
000035E0: 52 45 B2 54 00 F8 3D 04 6A 4F 24 B2 4F 24 AA C7 |RE.T..=.jO$.O$..|
000035F0: 28 52 45 53 55 4C 54 29 00 FE 3D 0E 6A 8E 00 04 |(RESULT)..=.j...|
00003600: 3E 40 6A 8F 00 22 3E 41 6A 8F 20 44 49 52 45 43 |>@j..">Aj. DIREC|
00003610: 54 49 56 45 20 4F 50 45 52 41 4E 44 20 45 56 41 |TIVE OPERAND EVA|
00003620: 4C 2E 00 28 3E 42 6A 8F 00 36 3E 45 6A 45 52 52 |L..(>Bj..6>EjERR|
00003630: B2 46 41 4C 53 45 00 52 3E 4A 6A 8B 50 4F B2 36 |.FALSE.R>Jj.PO.6|
00003640: 30 A7 8D 32 38 36 30 30 3A 41 44 B2 52 45 53 55 |0..28600:AD.RESU|
00003650: 4C 54 00 65 3E 4E 6A 8B 50 4F B2 36 32 A7 53 59 |LT.e>Nj.PO.62.SY|
00003660: B2 54 52 55 45 00 98 3E 4F 6A 8B 50 4F B2 36 31 |.TRUE..>Oj.PO.61|
00003670: A7 9F 32 2C 34 3A 9D 32 3A 99 22 11 41 44 44 2E |..2,4:.2:.".ADD.|
00003680: 20 20 44 41 54 41 20 20 20 20 20 53 4F 55 52 43 | DATA SOURC|
00003690: 45 20 43 4F 44 45 11 22 00 AD 3E 54 6A 8B 50 4F |E CODE."..>Tj.PO|
000036A0: B2 35 39 A7 45 58 49 54 B2 54 52 55 45 00 BA 3E |.59.EXIT.TRUE..>|
000036B0: 5E 6A 8B 50 4F B1 35 38 A7 8E 00 CB 3E 68 6A 8B |^j.PO.58....>hj.|
000036C0: 50 4F B2 35 36 A7 32 37 33 33 30 00 D1 3E 72 6A |PO.56.27330..>rj|
000036D0: 8F 00 DC 3E 7C 6A 8D 32 38 36 30 30 00 03 3F 86 |...>|j.28600..?.|
000036E0: 6A 8B 52 45 53 55 4C 54 B3 30 B0 52 45 53 55 4C |j.RESULT.0.RESUL|
000036F0: 54 B1 36 35 35 33 35 A7 45 4E B2 32 3A 89 32 38 |T.65535.EN.2:.28|
00003700: 30 30 30 00 42 3F 90 6A 8B 50 4F B2 35 38 A7 52 |000.B?.j.PO.58.R|
00003710: 45 53 55 4C 54 B2 B5 28 52 45 53 55 4C 54 AD 32 |ESULT..(RESULT.2|
00003720: 35 36 29 AA 32 35 36 AC 28 52 45 53 55 4C 54 AB |56).256.(RESULT.|
00003730: B5 28 52 45 53 55 4C 54 AD 32 35 36 29 AC 32 35 |.(RESULT.256).25|
00003740: 36 29 00 48 3F 91 6A 8F 00 60 3F 9A 6A 54 31 B2 |6).H?.j..`?.jT1.|
00003750: 54 3A 8D 32 37 31 30 30 3A 41 44 B2 41 44 AA 32 |T:.27100:AD.AD.2|
00003760: 00 72 3F A4 6A 8B 54 31 B2 33 32 A7 8D 32 38 31 |.r?.j.T1.32..281|
00003770: 35 30 00 83 3F AE 6A 8B 54 31 B2 34 36 A7 32 37 |50..?.j.T1.46.27|
00003780: 32 36 30 00 89 3F B8 6A 8E 00 8F 3F C2 6A 8F 00 |260..?.j...?.j..|
00003790: 9A 3F CC 6A 8D 32 38 36 30 30 00 BF 3F D6 6A 8B |.?.j.28600..?.j.|
000037A0: 52 45 53 55 4C 54 B3 30 B0 52 45 53 55 4C 54 B1 |RESULT.0.RESULT.|
000037B0: 32 35 35 A7 45 4E B2 31 3A 89 32 38 30 30 30 00 |255.EN.1:.28000.|
000037C0: D2 3F E0 6A 8D 32 37 31 34 30 3A 41 44 B2 41 44 |.?.j.27140:AD.AD|
000037D0: AA 31 00 E3 3F EA 6A 8B 54 B2 33 32 A7 8D 32 38 |.1..?.j.T.32..28|
000037E0: 31 35 30 00 F3 3F F4 6A 8B 54 B2 34 36 A7 32 37 |150..?.j.T.46.27|
000037F0: 33 34 30 00 F9 3F FE 6A 8E 00 FF 3F 08 6B 8F 00 |340..?.j...?.k..|
00003800: 14 40 09 6B 8F 20 45 56 41 4C 20 49 4D 4D 45 44 |.@.k. EVAL IMMED|
00003810: 49 41 54 45 00 1A 40 0A 6B 8F 00 2C 40 12 6B 54 |IATE..@.k..,@.kT|
00003820: 35 B2 50 54 52 3A 8D 32 36 30 30 30 00 41 40 1C |5.PTR:.26000.A@.|
00003830: 6B 8B C6 28 48 24 29 B3 B1 33 35 A7 32 37 34 38 |k..(H$)..35.2748|
00003840: 30 00 5A 40 26 6B 8B CA 28 48 24 2C 32 2C 31 29 |0.Z@&k..(H$,2,1)|
00003850: B2 22 27 22 A7 32 37 34 35 30 00 65 40 30 6B 50 |."'".27450.e@0kP|
00003860: 54 52 B2 54 35 00 7B 40 32 6B 8B 50 54 52 B1 C3 |TR.T5.{@2k.PTR..|
00003870: 28 49 4E 24 29 A7 32 37 34 34 36 00 A5 40 34 6B |(IN$).27446..@4k|
00003880: 8B C6 28 CA 28 49 4E 24 2C 50 54 52 2C 31 29 29 |..(.(IN$,PTR,1))|
00003890: B3 B1 33 35 A7 50 54 52 B2 50 54 52 AA 31 3A 89 |..35.PTR.PTR.1:.|
000038A0: 32 37 34 34 32 00 BA 40 36 6B 4F 50 B2 38 3A 8D |27442..@6kOP.8:.|
000038B0: 32 37 30 35 30 3A 4F 50 B2 32 00 C0 40 38 6B 8E |27050:OP.2..@8k.|
000038C0: 00 C6 40 3A 6B 8F 00 DA 40 44 6B 8B C3 28 48 24 |..@:k...@Dk..(H$|
000038D0: 29 B3 B1 33 A7 32 37 34 38 30 00 F0 40 4E 6B 4F |)..3.27480..@NkO|
000038E0: 24 B2 4F 24 AA CA 28 48 24 2C 33 2C 31 29 3A 8E |$.O$..(H$,3,1):.|
000038F0: 00 FA 40 58 6B 45 4E B2 31 32 00 05 41 62 6B 89 |..@XkEN.12..Abk.|
00003900: 32 38 30 30 30 00 0B 41 6C 6B 8F 00 1F 41 6D 6B |28000..Alk...Amk|
00003910: 8F 20 45 56 41 4C 20 52 45 4C 41 54 49 56 45 00 |. EVAL RELATIVE.|
00003920: 25 41 6E 6B 8F 00 30 41 76 6B 8D 32 38 36 30 30 |%Ank..0Avk.28600|
00003930: 00 43 41 80 6B 8B C3 28 4F 24 29 B2 30 B0 45 52 |.CA.k..(O$).0.ER|
00003940: 52 A7 8E 00 58 41 8A 6B 52 45 53 55 4C 54 B2 52 |R...XA.kRESULT.R|
00003950: 45 53 55 4C 54 AB 41 44 00 6C 41 94 6B 8B 52 45 |ESULT.AD.lA.k.RE|
00003960: B3 30 A7 52 45 B2 52 45 AA 32 35 36 00 84 41 A8 |.0.RE.RE.256..A.|
00003970: 6B 8B 52 45 B3 32 35 36 AF 52 45 B1 B2 30 A7 32 |k.RE.256.RE..0.2|
00003980: 37 31 34 30 00 8E 41 B2 6B 45 4E B2 31 30 00 99 |7140..A.kEN.10..|
00003990: 41 BC 6B 89 32 38 30 30 30 00 9F 41 D0 6B 8F 00 |A.k.28000..A.k..|
000039A0: AF 41 D1 6B 8F 20 44 4F 20 50 41 53 53 20 32 00 |.A.k. DO PASS 2.|
000039B0: B5 41 D2 6B 8F 00 C0 41 D5 6B 50 41 53 53 B2 32 |.A.k...A.kPASS.2|
000039C0: 00 CA 41 DA 6B 4F 24 B2 22 22 00 E3 41 E4 6B 45 |..A.kO$.""..A.kE|
000039D0: 58 49 54 B2 46 41 4C 53 45 3A 45 52 52 B2 46 41 |XIT.FALSE:ERR.FA|
000039E0: 4C 53 45 00 ED 41 E9 6B 50 54 52 B2 32 00 F8 41 |LSE..A.kPTR.2..A|
000039F0: EE 6B 8D 32 38 38 35 30 00 08 42 F8 6B 8B A8 45 |.k.28850..B.k..E|
00003A00: 52 52 A7 32 37 37 32 30 00 20 42 02 6C 8B 54 B2 |RR.27720. B.l.T.|
00003A10: 35 38 AF C3 28 48 24 29 B2 30 A7 32 37 36 33 30 |58..(H$).0.27630|
00003A20: 00 3B 42 0C 6C 8B 54 B2 35 39 B0 54 B2 AB 31 A7 |.;B.l.T.59.T..1.|
00003A30: 45 52 52 B2 46 41 4C 53 45 3A 8E 00 46 42 11 6C |ERR.FALSE:..FB.l|
00003A40: 8D 32 38 37 30 30 00 51 42 16 6C 8D 32 38 38 35 |.28700.QB.l.2885|
00003A50: 30 00 61 42 20 6C 8B A8 45 52 52 A7 32 37 37 32 |0.aB l..ERR.2772|
00003A60: 30 00 79 42 2A 6C 8B 54 B2 35 38 AF C3 28 48 24 |0.yB*l.T.58..(H$|
00003A70: 29 B2 30 A7 32 37 36 33 30 00 94 42 2F 6C 8B 54 |).0.27630..B/l.T|
00003A80: B2 35 39 B0 54 B2 AB 31 A7 45 52 52 B2 46 41 4C |.59.T..1.ERR.FAL|
00003A90: 53 45 3A 8E 00 A4 42 34 6C 45 4E B2 33 3A 89 32 |SE:...B4lEN.3:.2|
00003AA0: 38 30 30 30 00 BD 42 48 6C 8B 50 4F B1 35 35 A7 |8000..BHl.PO.55.|
00003AB0: 8D 32 37 32 30 30 3A 89 32 37 37 34 35 00 DD 42 |.27200:.27745..B|
00003AC0: 4B 6C 54 35 B2 50 54 52 3A 8D 32 36 31 30 30 3A |KlT5.PTR:.26100:|
00003AD0: 54 38 B2 50 54 52 3A 50 54 52 B2 54 35 00 F4 42 |T8.PTR:PTR.T5..B|
00003AE0: 4D 6C 8D 32 36 33 30 30 3A 8B A8 45 52 52 A7 32 |Ml.26300:..ERR.2|
00003AF0: 37 37 33 30 00 19 43 4F 6C 8B 4F 50 B3 37 AF 4F |7730..COl.OP.7.O|
00003B00: 50 B1 33 A7 4F 50 B2 4F 50 AA 36 3A 50 54 52 B2 |P.3.OP.OP.6:PTR.|
00003B10: 54 35 3A 89 32 37 37 32 35 00 2A 43 50 6C 45 4E |T5:.27725.*CPlEN|
00003B20: B2 31 38 3A 89 32 38 30 30 30 00 30 43 51 6C 8F |.18:.28000.0CQl.|
00003B30: 00 3B 43 52 6C 8D 32 36 35 36 30 00 5B 43 5C 6C |.;CRl.26560.[C\l|
00003B40: 8B A8 45 52 52 AF C3 28 4F 24 29 B1 30 A7 8D 32 |..ERR..(O$).0..2|
00003B50: 37 30 30 30 3A 50 54 52 B2 54 38 00 77 43 61 6C |7000:PTR.T8.wCal|
00003B60: 8B C3 28 49 4E 24 29 B1 50 54 52 AF A8 45 58 49 |..(IN$).PTR..EXI|
00003B70: 54 A7 32 37 36 33 30 00 7D 43 66 6C 8E 00 83 43 |T.27630.}Cfl...C|
00003B80: 60 6D 8F 00 A0 43 61 6D 8F 20 41 53 53 4D 42 4C |`m...Cam. ASSMBL|
00003B90: 45 52 20 45 52 52 4F 52 20 52 4F 55 54 49 4E 45 |ER ERROR ROUTINE|
00003BA0: 00 A6 43 62 6D 8F 00 C2 43 65 6D 8B 50 54 52 B1 |..Cbm...Cem.PTR.|
00003BB0: B2 33 30 30 B0 50 41 53 53 B3 B1 32 A7 32 38 30 |.300.PASS..2.280|
00003BC0: 35 30 00 D4 43 6A 6D 99 A6 31 34 29 3B 3A 8D 32 |50..Cjm..14);:.2|
00003BD0: 38 31 30 30 00 E0 43 6F 6D 45 43 B2 45 43 AA 31 |8100..ComEC.EC.1|
00003BE0: 00 FD 43 74 6D 81 58 B2 AB 31 33 A4 50 54 52 3A |..Ctm.X..13.PTR:|
00003BF0: 99 22 3D 22 3B 3A 82 58 3A 99 22 91 22 00 18 44 |."=";:.X:."."..D|
00003C00: 7E 6D 99 22 20 20 20 22 45 52 52 24 28 45 4E 29 |~m." "ERR$(EN)|
00003C10: 22 20 45 52 52 4F 52 22 00 2D 44 88 6D 50 54 52 |" ERROR".-D.mPTR|
00003C20: B2 33 30 30 3A 45 52 52 B2 54 52 55 45 00 33 44 |.300:ERR.TRUE.3D|
00003C30: 92 6D 8E 00 39 44 C4 6D 8F 00 49 44 C5 6D 8F 20 |.m..9D.m..ID.m. |
00003C40: 50 52 49 4E 54 20 49 4E 24 00 4F 44 C6 6D 8F 00 |PRINT IN$.OD.m..|
00003C50: 7C 44 D8 6D 99 32 35 36 AC C6 28 CA 28 49 4E 24 ||D.m.256..(.(IN$|
00003C60: 2C 32 2C 31 29 29 AA C6 28 CA 28 49 4E 24 2C 31 |,2,1))..(.(IN$,1|
00003C70: 2C 31 29 29 CA 28 49 4E 24 2C 33 29 00 82 44 EC |,1)).(IN$,3)..D.|
00003C80: 6D 8E 00 88 44 F6 6D 8F 00 A6 44 F7 6D 8F 20 53 |m...D.m...D.m. S|
00003C90: 59 4D 42 4F 4C 20 4E 4F 4E 2D 4C 45 54 54 45 52 |YMBOL NON-LETTER|
00003CA0: 2F 44 49 47 49 54 00 AC 44 F8 6D 8F 00 BB 44 00 |/DIGIT..D.m...D.|
00003CB0: 6E 48 24 B2 22 22 3A 54 B2 AB 31 00 C9 44 05 6E |nH$."":T..1..D.n|
00003CC0: 50 54 52 B2 50 54 52 AA 31 00 DF 44 0A 6E 8B 50 |PTR.PTR.1..D.n.P|
00003CD0: 54 52 B1 C3 28 49 4E 24 29 A7 32 38 32 31 30 00 |TR..(IN$).28210.|
00003CE0: F5 44 14 6E 54 B2 C6 28 CA 28 49 4E 24 2C 50 54 |.D.nT..(.(IN$,PT|
00003CF0: 52 2C 31 29 29 00 0D 45 19 6E 8B 54 B2 33 32 AF |R,1))..E.n.T.32.|
00003D00: C3 28 48 24 29 B2 30 A7 32 38 31 36 30 00 2E 45 |.(H$).0.28160..E|
00003D10: 1E 6E 8B 54 B3 34 38 B0 54 B1 39 30 B0 28 54 B1 |.n.T.48.T.90.(T.|
00003D20: 35 37 AF 54 B3 36 35 29 A7 32 38 32 31 30 00 44 |57.T.65).28210.D|
00003D30: 45 28 6E 48 24 B2 48 24 AA C7 28 54 29 3A 89 32 |E(nH$.H$..(T):.2|
00003D40: 38 31 36 35 00 4A 45 32 6E 8E 00 50 45 5A 6E 8F |8165.JE2n..PEZn.|
00003D50: 00 61 45 5B 6E 8F 20 46 49 4E 44 20 4C 41 42 45 |.aE[n. FIND LABE|
00003D60: 4C 00 67 45 5C 6E 8F 00 7E 45 64 6E 45 52 52 B2 |L.gE\n..~EdnERR.|
00003D70: 46 41 4C 53 45 3A 48 B2 30 3A 54 31 B2 30 00 9C |FALSE:H.0:T1.0..|
00003D80: 45 6E 6E 8B C3 28 48 24 29 B3 36 A7 48 24 B2 48 |Enn..(H$).6.H$.H|
00003D90: 24 AA 22 20 22 3A 89 32 38 32 37 30 00 B2 45 78 |$." ":.28270..Ex|
00003DA0: 6E 8B 54 31 B2 53 45 A7 45 52 52 B2 54 52 55 45 |n.T1.SE.ERR.TRUE|
00003DB0: 3A 8E 00 D9 45 82 6E 8B CA 28 53 54 24 28 54 31 |:...E.n..(ST$(T1|
00003DC0: 29 2C 31 2C 36 29 B3 B1 48 24 A7 54 31 B2 54 31 |),1,6)..H$.T1.T1|
00003DD0: AA 31 3A 89 32 38 32 38 30 00 09 46 87 6E 48 B2 |.1:.28280..F.nH.|
00003DE0: C6 28 CA 28 53 54 24 28 54 31 29 2C 38 2C 31 29 |.(.(ST$(T1),8,1)|
00003DF0: 29 AC 32 35 36 AA C6 28 CA 28 53 54 24 28 54 31 |).256..(.(ST$(T1|
00003E00: 29 2C 37 2C 31 29 29 3A 8E 00 0F 46 8C 6E 8F 00 |),7,1)):...F.n..|
00003E10: 2A 46 8D 6E 8F 20 45 56 41 4C 20 4C 41 42 45 4C |*F.n. EVAL LABEL|
00003E20: 20 4F 52 20 4E 55 4D 42 45 52 00 30 46 8E 6E 8F | OR NUMBER.0F.n.|
00003E30: 00 3B 46 A0 6E 8D 32 38 31 35 30 00 54 46 A5 6E |.;F.n.28150.TF.n|
00003E40: 8B 54 B2 34 30 AF C3 28 48 24 29 B2 30 A7 8D 32 |.T.40..(H$).0..2|
00003E50: 38 31 35 30 00 61 46 AA 6E 54 31 B2 C3 28 48 24 |8150.aF.nT1..(H$|
00003E60: 29 00 8D 46 AF 6E 8B 28 54 B2 AB 31 B0 54 B2 33 |)..F.n.(T..1.T.3|
00003E70: 32 B0 54 B2 35 38 B0 54 B2 35 39 B0 54 B2 34 31 |2.T.58.T.59.T.41|
00003E80: B0 54 B2 34 36 29 AF 54 31 B2 30 A7 8E 00 9D 46 |.T.46).T1.0....F|
00003E90: B4 6E 8B 54 31 B2 30 A7 32 38 33 39 30 00 BB 46 |.n.T1.0.28390..F|
00003EA0: BE 6E 8B C6 28 48 24 29 B3 B2 35 37 A7 48 B2 C5 |.n..(H$)..57.H..|
00003EB0: 28 48 24 29 3A 89 32 38 34 39 32 00 C6 46 C8 6E |(H$):.28492..F.n|
00003EC0: 8D 32 38 32 35 30 00 E0 46 D2 6E 8B 45 52 52 A7 |.28250..F.n.ERR.|
00003ED0: 45 4E B2 31 31 3A 48 B2 30 3A 89 32 38 30 30 30 |EN.11:H.0:.28000|
00003EE0: 00 EB 46 DC 6E 89 32 38 34 39 32 00 F1 46 E6 6E |..F.n.28492..F.n|
00003EF0: 8F 00 01 47 F0 6E 54 32 B2 54 3A 8D 32 38 31 35 |...G.nT2.T:.2815|
00003F00: 30 00 14 47 FA 6E 8B C3 28 48 24 29 B2 30 A7 32 |0..G.n..(H$).0.2|
00003F10: 38 34 35 30 00 25 47 04 6F 8B 54 32 B2 33 36 A7 |8450.%G.o.T2.36.|
00003F20: 32 38 34 37 30 00 3E 47 0E 6F 8B 54 32 B2 33 37 |28470.>G.o.T2.37|
00003F30: A7 42 41 53 45 B2 32 3A 89 32 38 34 37 30 00 57 |.BASE.2:.28470.W|
00003F40: 47 18 6F 8B 54 32 B2 33 38 A7 42 41 53 45 B2 38 |G.o.T2.38.BASE.8|
00003F50: 3A 89 32 38 34 37 30 00 6B 47 22 6F 8F 20 49 4E |:.28470.kG"o. IN|
00003F60: 56 41 4C 49 44 20 4C 41 42 45 4C 00 7F 47 2C 6F |VALID LABEL..G,o|
00003F70: 48 B2 30 3A 45 4E B2 36 3A 89 32 38 30 30 30 00 |H.0:EN.6:.28000.|
00003F80: 85 47 36 6F 8F 00 90 47 3B 6F 8D 31 31 39 35 30 |.G6o...G;o.11950|
00003F90: 00 9C 47 40 6F 42 41 53 45 B2 31 36 00 B5 47 4A |..G@oBASE.16..GJ|
00003FA0: 6F 8B 45 52 52 A7 48 B2 30 3A 45 4E B2 37 3A 89 |o.ERR.H.0:EN.7:.|
00003FB0: 32 38 30 30 30 00 CA 47 4C 6F 50 54 52 B2 50 54 |28000..GLoPTR.PT|
00003FC0: 52 AB 31 3A 8D 32 38 31 35 30 00 D0 47 4F 6F 8E |R.1:.28150..GOo.|
00003FD0: 00 D6 47 54 6F 8F 00 DC 47 55 6F 8F 00 E2 47 56 |..GTo...GUo...GV|
00003FE0: 6F 8F 00 F4 47 5E 6F 8D 32 38 33 30 30 3A 54 45 |o...G^o.28300:TE|
00003FF0: 52 4D B2 48 00 06 48 68 6F 8B 50 54 52 B1 C3 28 |RM.H..Hho.PTR..(|
00004000: 49 4E 24 29 A7 8E 00 2D 48 72 6F 8B 54 B2 34 32 |IN$)...-Hro.T.42|
00004010: A7 8D 32 38 33 30 30 3A 54 45 52 4D B2 B5 28 54 |..28300:TERM..(T|
00004020: 45 52 4D AC 48 29 3A 89 32 38 35 32 30 00 3A 48 |ERM.H):.28520.:H|
00004030: 86 6F 8B 54 B3 B1 34 37 A7 8E 00 45 48 90 6F 8D |.o.T..47...EH.o.|
00004040: 32 38 33 30 30 00 62 48 9A 6F 8B 48 B2 30 A7 54 |28300.bH.o.H.0.T|
00004050: 45 52 4D B2 30 3A 45 4E B2 31 35 3A 89 32 38 30 |ERM.0:EN.15:.280|
00004060: 30 30 00 75 48 A4 6F 54 45 52 4D B2 B5 28 54 45 |00.uH.oTERM..(TE|
00004070: 52 4D AD 48 29 00 80 48 AE 6F 89 32 38 35 32 30 |RM.H)..H.o.28520|
00004080: 00 86 48 B8 6F 8F 00 8C 48 B9 6F 8F 00 92 48 BA |..H.o...H.o...H.|
00004090: 6F 8F 00 A0 48 BD 6F 45 52 52 B2 46 41 4C 53 45 |o...H.oERR.FALSE|
000040A0: 00 B3 48 C2 6F 8D 32 38 35 30 30 3A 52 45 B2 54 |..H.o.28500:RE.T|
000040B0: 45 52 4D 00 E3 48 CC 6F 8B 54 B2 AB 31 B0 54 B2 |ERM..H.o.T..1.T.|
000040C0: 33 32 B0 54 B2 35 38 B0 54 B2 35 39 B0 54 B2 34 |32.T.58.T.59.T.4|
000040D0: 31 B0 54 B2 34 36 B0 50 54 52 B1 C3 28 49 4E 24 |1.T.46.PTR..(IN$|
000040E0: 29 A7 8E 00 0A 49 D6 6F 8B 54 B2 34 33 A7 8D 32 |)....I.o.T.43..2|
000040F0: 38 35 30 30 3A 52 45 53 B2 B5 28 52 45 AA 54 45 |8500:RES..(RE.TE|
00004100: 52 4D 29 3A 89 32 38 36 32 30 00 32 49 E0 6F 8B |RM):.28620.2I.o.|
00004110: 54 B2 34 35 A7 8D 32 38 35 30 30 3A 52 45 53 B2 |T.45..28500:RES.|
00004120: B5 28 52 45 53 AB 54 45 52 4D 29 3A 89 32 38 36 |.(RES.TERM):.286|
00004130: 32 30 00 4B 49 EA 6F 52 45 53 55 4C 54 B2 30 3A |20.KI.oRESULT.0:|
00004140: 45 4E B2 34 3A 89 32 38 30 30 30 00 51 49 1C 70 |EN.4:.28000.QI.p|
00004150: 8F 00 6B 49 1D 70 8F 20 41 44 44 20 53 59 4D 42 |..kI.p. ADD SYMB|
00004160: 4F 4C 20 54 4F 20 54 41 42 4C 45 00 71 49 1E 70 |OL TO TABLE.qI.p|
00004170: 8F 00 9B 49 26 70 8B 53 45 B1 B2 53 4D A7 45 58 |...I&p.SE..SM.EX|
00004180: 49 54 B2 54 52 55 45 3A 50 41 53 53 B2 32 3A 45 |IT.TRUE:PASS.2:E|
00004190: 4E B2 31 34 3A 89 32 38 30 30 30 00 B2 49 30 70 |N.14:.28000..I0p|
000041A0: 8D 32 38 32 35 30 3A 8B A8 45 52 52 A7 32 38 38 |.28250:..ERR.288|
000041B0: 33 30 00 CB 49 44 70 54 24 B2 C8 28 48 24 AA 22 |30..IDpT$..(H$."|
000041C0: 20 20 20 20 20 20 20 22 2C 36 29 00 D6 49 49 70 | ",6)..IIp|
000041D0: 54 42 B2 50 54 52 00 E1 49 4E 70 8D 32 38 31 35 |TB.PTR..INp.2815|
000041E0: 30 00 00 4A 58 70 8B 54 B3 B1 36 31 A7 50 54 52 |0..JXp.T..61.PTR|
000041F0: B2 54 42 3A 52 45 B2 41 44 3A 89 32 38 37 38 30 |.TB:RE.AD:.28780|
00004200: 00 10 4A 62 70 54 30 B2 54 3A 8D 32 38 36 30 30 |..JbpT0.T:.28600|
00004210: 00 19 4A 6C 70 45 4E B2 30 00 4D 4A 76 70 8B 52 |..JlpEN.0.MJvp.R|
00004220: 45 B3 30 B0 52 45 B1 36 35 35 33 35 A7 53 54 24 |E.0.RE.65535.ST$|
00004230: 28 53 45 29 B2 54 24 AA C7 28 30 29 AA C7 28 30 |(SE).T$..(0)..(0|
00004240: 29 AA C7 28 32 29 3A 89 32 38 38 31 30 00 7D 4A |)..(2):.28810.}J|
00004250: 80 70 53 54 24 28 53 45 29 B2 54 24 AA C7 28 52 |.pST$(SE).T$..(R|
00004260: 45 AB B5 28 52 45 AD 32 35 36 29 AC 32 35 36 29 |E..(RE.256).256)|
00004270: AA C7 28 B5 28 52 45 AD 32 35 36 29 29 00 89 4A |..(.(RE.256))..J|
00004280: 8A 70 53 45 B2 53 45 AA 31 00 8F 4A 94 70 8E 00 |.pSE.SE.1..J.p..|
00004290: BD 4A 9E 70 8B 50 41 53 53 B2 31 AF C3 28 53 54 |.J.p.PASS.1..(ST|
000042A0: 24 28 54 31 29 29 B3 39 A7 53 54 24 28 54 31 29 |$(T1)).9.ST$(T1)|
000042B0: B2 53 54 24 28 54 31 29 AA C7 28 38 29 00 D0 4A |.ST$(T1)..(8)..J|
000042C0: A3 70 8B 50 41 53 53 B3 B1 32 A7 32 38 38 34 30 |.p.PASS..2.28840|
000042D0: 00 F7 4A A4 70 54 41 B2 50 54 52 3A 8D 32 38 31 |..J.pTA.PTR:.281|
000042E0: 35 30 3A 8B 54 B3 B1 36 31 A7 50 54 52 B2 54 41 |50:.T..61.PTR.TA|
000042F0: 3A 89 32 38 38 34 30 00 02 4B A5 70 8D 32 36 30 |:.28840..K.p.260|
00004300: 30 30 00 1E 4B A8 70 8B 50 41 53 53 B3 B1 32 B0 |00..K.p.PASS..2.|
00004310: C3 28 53 54 24 28 54 31 29 29 B3 39 A7 8E 00 3E |.(ST$(T1)).9...>|
00004320: 4B AD 70 45 4E B2 C6 28 CA 28 53 54 24 28 54 31 |K.pEN..(.(ST$(T1|
00004330: 29 2C 39 2C 31 29 29 3A 89 32 38 30 30 30 00 44 |),9,1)):.28000.D|
00004340: 4B B2 70 8F 00 64 4B B3 70 8F 20 54 45 53 54 20 |K.p..dK.p. TEST |
00004350: 46 4F 52 20 4F 50 43 4F 44 45 2F 44 49 52 45 43 |FOR OPCODE/DIREC|
00004360: 54 49 56 45 00 6A 4B B4 70 8F 00 75 4B BC 70 8D |TIVE.jK.p..uK.p.|
00004370: 32 38 31 35 30 00 83 4B C6 70 45 52 52 B2 46 41 |28150..K.pERR.FA|
00004380: 4C 53 45 00 91 4B DA 70 50 54 52 B2 50 54 52 AB |LSE..K.pPTR.PTR.|
00004390: 31 00 A5 4B DF 70 8B C3 28 48 24 29 B3 B1 33 A7 |1..K.p..(H$)..3.|
000043A0: 32 38 39 34 30 00 AF 4B E4 70 50 4F B2 AB 32 00 |28940..K.pPO..2.|
000043B0: BB 4B EE 70 50 4F B2 50 4F AA 33 00 D8 4B F8 70 |.K.pPO.PO.3..K.p|
000043C0: 8B 48 24 B2 CA 28 54 41 24 28 32 29 2C 50 4F 2C |.H$..(TA$(2),PO,|
000043D0: 33 29 A7 32 38 39 35 30 00 F5 4B 02 71 8B 28 50 |3).28950..K.q.(P|
000043E0: 4F AA 33 29 B3 B2 C3 28 54 41 24 28 32 29 29 A7 |O.3)...(TA$(2)).|
000043F0: 32 38 39 31 30 00 02 4C 0C 71 45 52 52 B2 54 52 |28910..L.qERR.TR|
00004400: 55 45 00 12 4C 16 71 50 4F B2 28 50 4F AB 31 29 |UE..L.qPO.(PO.1)|
00004410: AD 33 00 26 4C 20 71 45 52 52 B2 28 50 4F B2 35 |.3.&L qERR.(PO.5|
00004420: 36 29 B0 45 52 52 00 39 4C 2A 71 8B 50 4F B1 35 |6).ERR.9L*q.PO.5|
00004430: 36 A7 50 4F B2 50 4F AB 31 00 3F 4C 34 71 8E 00 |6.PO.PO.1.?L4q..|
00004440: 60 4C 06 72 8B 54 B3 34 38 B0 54 B1 39 30 B0 28 |`L.r.T.48.T.90.(|
00004450: 54 B1 35 37 AF 54 B3 36 35 29 A7 32 38 32 31 30 |T.57.T.65).28210|
00004460: 00 77 4C 38 F9 8F 20 43 48 45 43 4B 53 55 4D 20 |.wL8.. CHECKSUM |
00004470: 50 52 4F 47 52 41 4D 00 83 4C 39 F9 8D 20 36 33 |PROGRAM..L9.. 63|
00004480: 38 31 30 00 8E 4C 3A F9 8D 36 33 38 34 30 00 9F |810..L:..63840..|
00004490: 4C 3B F9 8B 46 4C B1 B2 30 A7 36 33 38 30 32 00 |L;..FL..0.63802.|
000044A0: A5 4C 3C F9 80 00 C3 4C 42 F9 96 A5 44 45 45 4B |.L<....LB...DEEK|
000044B0: 28 58 29 B2 C2 28 58 29 AA 32 35 36 AC C2 28 58 |(X)..(X).256..(X|
000044C0: AA 31 29 00 DF 4C 4C F9 8F 20 44 41 54 41 20 46 |.1)..LL.. DATA F|
000044D0: 4F 52 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 00 |OR MACHINE CODE.|
000044E0: E9 4C 4D F9 83 20 2A 2A 2A 00 16 4D 4E F9 83 31 |.LM.. ***..MN..1|
000044F0: 36 35 2C 32 35 32 2C 31 36 36 2C 32 35 33 2C 31 |65,252,166,253,1|
00004500: 33 33 2C 30 32 30 2C 31 33 34 2C 30 32 31 2C 30 |33,020,134,021,0|
00004510: 33 32 2C 30 31 39 00 43 4D 4F F9 83 31 36 36 2C |32,019.CMO..166,|
00004520: 32 31 36 2C 31 36 30 2C 30 30 31 2C 31 37 37 2C |216,160,001,177,|
00004530: 30 39 35 2C 31 33 33 2C 32 35 34 2C 32 34 30 2C |095,133,254,240,|
00004540: 30 31 33 00 70 4D 50 F9 83 32 30 30 2C 31 37 37 |013.pMP..200,177|
00004550: 2C 30 39 35 2C 31 33 33 2C 32 35 32 2C 32 30 30 |,095,133,252,200|
00004560: 2C 31 37 37 2C 30 39 35 2C 31 33 33 2C 32 35 33 |,177,095,133,253|
00004570: 00 9D 4D 51 F9 83 32 30 30 2C 31 36 39 2C 30 30 |..MQ..200,169,00|
00004580: 30 2C 31 33 33 2C 32 35 31 2C 31 37 37 2C 30 39 |0,133,251,177,09|
00004590: 35 2C 32 34 30 2C 30 30 36 2C 30 32 34 00 BA 4D |5,240,006,024..M|
000045A0: 52 F9 83 31 30 31 2C 32 35 31 2C 32 30 30 2C 32 |R..101,251,200,2|
000045B0: 30 38 2C 32 34 34 2C 30 39 36 00 C2 4D 53 F9 83 |08,244,096..MS..|
000045C0: 2D 31 00 DD 4D 56 F9 8F 20 50 55 54 20 44 41 54 |-1..MV.. PUT DAT|
000045D0: 41 20 49 4E 54 4F 20 4D 45 4D 4F 52 59 00 EA 4D |A INTO MEMORY..M|
000045E0: 57 F9 41 44 B2 35 32 39 39 32 00 F0 4D 58 F9 8C |W.AD.52992..MX..|
000045F0: 00 09 4E 59 F9 87 54 24 3A 8B 54 24 B3 B1 22 2A |..NY..T$:.T$.."*|
00004600: 2A 2A 22 A7 36 33 38 33 33 00 2B 4E 5A F9 87 54 |**".63833.+NZ..T|
00004610: 3A 8B 54 B1 B2 30 A7 97 41 44 2C 54 3A 41 44 B2 |:.T..0..AD,T:AD.|
00004620: 41 44 AA 31 3A 89 36 33 38 33 34 00 59 4E 5B F9 |AD.1:.63834.YN[.|
00004630: 44 45 56 B2 33 3A 49 4E 24 B2 22 22 3A 85 22 4F |DEV.3:IN$."":."O|
00004640: 55 54 50 55 54 20 44 45 56 49 43 45 20 4E 55 4D |UTPUT DEVICE NUM|
00004650: 42 45 52 20 22 3B 44 45 56 00 7C 4E 5C F9 8B 44 |BER ";DEV.|N\..D|
00004660: 45 56 B2 31 B0 44 45 56 B1 34 A7 85 22 46 49 4C |EV.1.DEV.4.."FIL|
00004670: 45 20 4E 41 4D 45 20 22 3B 49 4E 24 00 B9 4E 5D |E NAME ";IN$..N]|
00004680: F9 52 24 B2 C7 28 31 33 29 3A 53 24 B2 22 2A 2A |.R$..(13):S$."**|
00004690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000046A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000046B0: 2A 2A 2A 2A 2A 22 AA 52 24 00 BF 4E 5E F9 8E 00 |*****".R$..N^...|
000046C0: D7 4E 60 F9 8F 20 44 4F 20 49 4E 49 54 49 41 4C |.N`.. DO INITIAL|
000046D0: 49 53 41 54 49 4F 4E 00 FA 4E 61 F9 46 4C B2 30 |ISATION..Na.FL.0|
000046E0: 3A 85 22 46 49 52 53 54 20 4C 49 4E 45 20 22 3B |:."FIRST LINE ";|
000046F0: 46 4C 3A 8B 46 4C B3 30 A7 8E 00 18 4F 62 F9 4C |FL:.FL.0....Ob.L|
00004700: 4C B2 36 35 35 33 36 3A 85 22 4C 41 53 54 20 4C |L.65536:."LAST L|
00004710: 49 4E 45 20 22 3B 4C 4C 00 2F 4F 63 F9 85 22 4D |INE ";LL./Oc.."M|
00004720: 4F 44 55 4C 45 20 4E 41 4D 45 20 22 3B 4D 24 00 |ODULE NAME ";M$.|
00004730: 40 4F 64 F9 9F 31 2C 44 45 56 2C 32 2C 49 4E 24 |@Od..1,DEV,2,IN$|
00004740: 00 7D 4F 65 F9 98 31 2C 53 24 52 24 A6 28 34 30 |.}Oe..1,S$R$.(40|
00004750: AB C3 28 4D 24 29 29 AD 32 29 4D 24 52 24 52 24 |..(M$)).2)M$R$R$|
00004760: 22 4C 49 4E 45 20 4E 55 4D 42 45 52 53 22 46 4C |"LINE NUMBERS"FL|
00004770: 22 54 4F 22 4C 4C 3B 52 24 53 24 52 24 00 92 4F |"TO"LL;R$S$R$..O|
00004780: 6A F9 8F 20 41 43 54 55 41 4C 20 50 52 4F 47 52 |j.. ACTUAL PROGR|
00004790: 41 4D 00 A5 4F 6B F9 4C 4E B2 46 4C 3A 43 B2 30 |AM..Ok.LN.FL:C.0|
000047A0: 3A 43 31 B2 30 00 CB 4F 6C F9 97 32 35 32 2C 4C |:C1.0..Ol..252,L|
000047B0: 4E AB B5 28 4C 4E AD 32 35 36 29 AC 32 35 36 3A |N..(LN.256).256:|
000047C0: 97 32 35 33 2C 4C 4E AD 32 35 36 00 F0 4F 6D F9 |.253,LN.256..Om.|
000047D0: 9E 35 32 39 39 32 3A 43 53 B2 C2 28 32 35 31 29 |.52992:CS..(251)|
000047E0: 3A 4C 4E B2 A5 44 45 45 4B 28 32 35 32 29 AA 31 |:LN..DEEK(252).1|
000047F0: 00 13 50 74 F9 8F 20 46 4F 52 4D 41 54 20 4F 55 |..Pt.. FORMAT OU|
00004800: 54 50 55 54 20 49 4E 54 4F 20 33 20 43 4F 4C 55 |TPUT INTO 3 COLU|
00004810: 4D 4E 53 00 45 50 75 F9 54 24 B2 C8 28 C4 28 4C |MNS.EPu.T$..(.(L|
00004820: 4E AB 31 29 AA 22 20 20 20 20 20 20 22 2C 36 29 |N.1)." ",6)|
00004830: AA C8 28 C4 28 43 53 29 AA 22 20 20 20 20 20 20 |..(.(CS)." |
00004840: 20 22 2C 37 29 00 50 50 76 F9 98 31 2C 54 24 3B | ",7).PPv..1,T$;|
00004850: 00 6F 50 78 F9 43 B2 43 AA 31 3A 8B 43 B1 B2 33 |.oPx.C.C.1:.C..3|
00004860: A7 98 31 3A 43 B2 30 3A 43 31 B2 43 31 AA 31 00 |..1:C.0:C1.C1.1.|
00004870: 8D 50 79 F9 8B 43 31 B1 B2 32 30 AF 44 45 56 B2 |.Py..C1..20.DEV.|
00004880: 33 A7 43 31 B2 30 3A 8D 36 33 38 39 38 00 A6 50 |3.C1.0:.63898..P|
00004890: 7A F9 8B 4C 4E B3 B2 4C 4C AF C2 28 32 35 34 29 |z..LN..LL..(254)|
000048A0: A7 36 33 38 35 32 00 AF 50 7B F9 A0 31 3A 8E 00 |.63852..P{..1:..|
000048B0: C4 50 9A F9 A1 54 24 3A 8B 54 24 B2 22 22 A7 36 |.P...T$:.T$."".6|
000048C0: 33 38 39 38 00 CA 50 9B F9 8E 00 00 00 |3898..P...... |
.....'..$.$'. GENERAL INITIALISATION.*..
'..6./'BASE.16.W.0'.C(PTR$).C(E$)..255..
:.19000.A.3'DEV.8...8'..HEX(X).(X.15).48
.((X.15).9).7. .B'..DEC(X).X.48.(X.57).7
...L'FALSE.0:TRUE..1.K.V'.53281,0:.53280
,11.Q.T'....U'. CONTROL ROUTINE FOR MONI
TOR...V'..=.~'. EXIT TO BASIC,MEMORY MOD
IFY,MEMORY DUMP, MACHINE CODE EXECUTE.Q.
'. LOAD MACHINE CODE FILE,SAVE MACHINE
CODE FILE....'. DISASSEMBLER....'. FILE
EDITOR....'. ASSEMBLER...N'. END...X'...
..'X.0....'."..--------- MACHINE CODE MO
NITOR ---------.."....(.T$.!..(.T$.."END
"...5)X")"T$:X.X.1:.10250.7..(.X.15..Y.X
.15:.:..Z..(."COMMAND ( 0 -"X.1" ) : ";:
.T.M.<(.T.0.T.X.10100...A(.T.0.."......B
YE.....": 1:..D.F(.T.13100,13300,13500,1
4300,14100,15800,24800,20000.O.P(.10100.
U..*.....*. CONVERT DECIMAL TO HEX....*.
....+T.H:H$."".;..+H$.G(.HEX(T..(T.16).1
6)).H$:T..(T.16):.T.0.11020.A.*+..G.\+..
[.]+. BYTE INTO HEX.A.^+..U.F+H.B(AD):AD
.AD.1...P+.11000...Z+.C(H$).2.H$."0".H$.
...+O2$.O2$.H$....+.....+..L.A+. INPUT F
INISH ADRESS.R.B+....E+H$.""...J+."FINIS
H ADDRESS ( IN HEX : ";H$:.11950.#..+.ER
R.H.0.H.65535.11200....+EA.H:..4..+..J..
+. INPUT FILE NAME.B..+.25500:.DEV.4.112
90.M..+IN$.""....+."FILE NAME : ";IN$:T.
C(IN$)....,.T.16.T.0..".FILE NAME INVALI
D":.11260....,..E.J...Z.K.. ASK CONTINUE
?...L.....R.T$.""...T.."CONTINUE (Y/N):
";T$...^..T$."Y".CO.TRUE:.11895.9.H..T$.
."N"..".";:.11850.F.R.CO.FALSE.L.W...R..
...V.... CONVERT HEX IN H$ TO DEC IN H.|
.......G.ERR.FALSE:H.0:.C(H$).0.12030...
L..X.1.C(H$).P.V.T..DEC(F(J(H$,X,1))):H.
H.BASE.T......T.BASE.1.T.0.ERR.TRUE.....
.X........../...../. INPUT START ADRESS.
.../..'../H$."".S../."START ADRESS ( IN
HEX ) : ";H$:.11950.N.0/.ERR.H.0.H.65535
.12060.Y.:/AD.H:..../...../. HEX LOADER
..../...../T1$.""..../.X1.1.C(T$).2...F/
T1$.T1$.G(.DEC(F(J(T$,X1,1))).16..DEC(F(
J(T$,X1.1,1))))..../.X1..../....H2....I2
. GET 1 BYTE...J2..$.O2H$."".A.R2."BYTE
( IN HEX ) : ";H$.L..2.11950.K..2.ERR.H.
0.H.255..".":.13000.Q..2..W.,3....-3. ME
MORY MODIFY....3....63.12050...@3H.AD:.1
1000:.H$.6)"/";:O2$."".Y.T3.11100:AD.AD.
1:.H$.6);...^3T$.""...H3." +,-,I,E : ";T
$...R3.T$."+".AD.65535.AD.AD.1:.13120.=.
|3.T$."-".AD.0.AD.AD.1:.13120.K..3.T$."E
"...E..3.T$.."I".."..":.13120.}..3.13000
:.AD,H:.13120....3.....3. DUMP MEMORY TO
SCREEN....3.....3.12050.N..4.".":.X1.1.
18:H.AD:.11000....4O2$."":O1$.H$:O3$."".
..&4.X2.0.7...04.11100:O2$.O2$." ".-.?4.
H.31.H.95.O3$.O3$.G(H):.13380.=.A4O3$.O3
$.".".E.D4.X2.[.N4.O1$.5)O2$.31)O3$.C.X4
.X1.Z.B4.:.11850:.CO.13320....4.....4...
..4. MACHINE CODE EXECUTE....4....F4.120
50:.AD:.....7..V..7. MACHINE CODE SAVE..
..7.....7.11250:.12050:.11200...#7T$."N"
:.DEV.8.."OVERWRITE EXISTING FILE (Y/N)
: ";T$.H.$7.T$."Y".IN$."@0:".IN$.B.(7.DE
V.8.IN$.IN$.",S,W".S.-7.SA.EA.14190...27
.2,DEV,2,IN$:.2,AD:.2,EA...F7.X.AD.EA:.2
,B(X):.:.2: 2...N7.....7..Q..7. MACHINE
CODE LOAD.W..7.....7.11250:.DEV.8.IN$.IN
$.",S,R"....7.2,DEV,0,IN$:.2,SA,EA:.ST.
2:..9..8.X.SA.EA:.2,T:.X,T:.: 2:..?.D;..
^.E;. ADD OPERAND IN OP TO O1$.D.F;....N
;.OP.1.15450,15500,15550,15600....;.OP.6
.OP.10.O1$.O1$."("....;.11100.C..;O1$.O1
$."$":T$.H$.S..<.OP.9.15390....<.11100..
..<O1$.O1$.H$....<O1$.O1$.T$...(<.OP.9.O
P.8.O1$.O1$.")".8.2<.OP..(OP.3).3.1.O1$.
O1$.",X".Y.<<.OP..(OP.3).3.2.O1$.O1$.",Y
".O.F<.OP.7.O1$.O1$.")".U.P<..{.Z<....[<
. ACCUMULATOR (OP=0)...\<....D<O1$.O1$."
A"....<. IMPLIED (OP=1).E..<..K..<.....<
. IMMEDIATE (OP=2)....<....H<.11100...R<
O1$.O1$."#$".H$....<.....<..)..<. RELATI
VE (OP=3)./..<..:..<.11100.M..=.H.127.H.
H.256.X..=H.H.AD.C..=.11000.V."=O1$.O1$.
"$".H$.|.,=....T=.. .U=. DISASSEMBLE INS
TRUCTION...V=....^=O2$."".B.C=.11100:H.H
.1.Q.H=.H.255.H.3...R=T.F(J(TA$(0),H,1))
....=O1$.J(TA$(2),T.3.1,3)." ".'..=OP.F(
J(TA$(1),.((H.1).2),1)).=..=.(H.1).1.OP.
OP.16.J..=OP.OP.15.P..=..V..=..T..=. DIS
ASSEMBLE MEMORY AREA.Z..=....B=.12050...
L=.".":.I.1.20...Q=H.AD:.11000:.H$.6);..
.V=.15700:.15300.P..=.O2$.14)O1$.W..=.I.
...=.....=.11850....>.CO.15820....>....8
J."....READING TABLES".6.9J. INITIALISE
DECODER TABLES.<.:J..H.=JBASE.16.C.?J..D
EC(X).X.48.(X.57).7.O.BJ.TA$(4)...CJT$."
0A223838382202382422023838220238".F.DJT$
.T$."09223838382202380D22383838220238"..
.EJT$.T$."1C0138380601273826012738060127
38". .FJT$.T$."07013838380127382C0138383
8012738".M.GJT$.T$."29173838381720382317
20381B172038".Z.HJT$.T$."0B1738383817203
80F17383838172038"...IJT$.T$."2A00383838
002838250028381B002838"...JJ.12200:TA$(0
).T1$...KJT$."0C003838380028382E00383838
002838"...LJT$.T$."382F3838312F303816383
538312F3038".A.MJT$.T$."032F3838312F3038
372F3638382F3838".N.NJT$.T$."1F1D1E381F1
D1E38331D32381F1D1E38"...OJT$.T$."041D38
381F1D1E38101D34381F1D1E38".H.PJT$.T$."1
3113838131114381A11153813111438"...QJT$.
T$."08113838381114380E11383838111438"...
RJ.12200:TA$(0).TA$(0).T1$.<.SJT$."122B3
838122B1838192B2138122B1838".G.TJT$.T$."
052B3838382B18382D2B3838382B18"...UJ.122
00:TA$(0).TA$(0).T1$...VJT$."17111661120
11CC1381114411B111AA1"...WJT$.T$."C71166
611201CCC1381114411B111AA1"...XJT$.T$."1
71116611201CCC1381114411B111AA1".5.YJT$.
T$."1711166112019CC1381114411B111AA1".B.
ZJT$.T$."171166611111CCC1381144511B111A1
1"...[JT$.T$."272166611211CCC1381144511B
11AAB1"...\JT$.T$."271166611211CCC138111
4411B111AA1"...]JT$.T$."271166611211CCC1
381114411B111A"...^J.12200:TA$(1).T1$.G(
160).9.`JTA$(2)."ADCANDASLBCCBCSBEQBITBM
IBNEBPLBRKBVCBVS".U.AJTA$(2).TA$(2)."CLC
CLDCLICLVCMPCPXCPYDECDEXDEYEORINCINX"...
BJTA$(2).TA$(2)."INYJMPJSRLDALDXLDYLSRNO
PORAPHAPHPPLAPLP"...CJTA$(2).TA$(2)."ROL
RORRTIRTSSBCSECSEDSEISTASTXSTYTAXTAY"...
DJTA$(2).TA$(2)."TSXTXATXSTYA???".=.FJTA
$(2) . TA$(2)."BYTWRDDBYENDORGPRTSYM".L.
GJT$ . "61210690B0F02430D01000507018D
858"...HJT$ . T$."B8CDECCCCECA884DEEE8C8
4C20ADAEAC".J.IJT$ . T$."4AEA0D480868282
A6A4060ED38F8788D"...JJT$ . T$."8E8CAAA8
BA8A9A98"...KJ. 12200 : TA$(3) . T1$.3.L
JT$ . "FF11FFFFFF090AFFFF1D0EFFFF051E
FF".B.MJT$ . T$."FF15FFFFFFFFFFFFFF01FFF
FFF1916FF"...NJT$ . T$."FF2DFFFF2C293EFF
FF3D2EFFFF2526FF"...OJT$ . T$."FF35FFFFF
FFFFFFFFF31FFFFFF3936FF"...PJT$ . T$."FF
51FFFFFF495EFFFF5D4EFF6C4546FF"...QJT$ .
T$."FF55FFFFFFFFFFFFFF41FFFFFF5956FF".M
.RJT$ . T$."FF6DFFFFFF697EFFFF7D6EFFFF65
66FF".H.SJ. 12200 : TA$(4) . T1$...TJT$
. "FF75FFFFFFFFFFFFFF71FFFFFF7976FF".
F.UJT$ . T$."FF91FFFF949D96FFFFFFFFFF848
586FF"...VJT$ . T$."FF95FFFFFFFFFFFFFF81
FFFFFF99FFFF".$ WJT$ . T$."BCB1BEFFA0A9A
2FFFFBDFFAFA4A5A6FF".S XJT$ . T$."FFB5FF
FFFFFFFFFFFFA1FFFFB4B9B6FF".. YJT$ . T$.
"FFD1FFFFC0C9DEFFFFDDFFFFC4C5C6FF".. ZJT
$ . T$."FFD5FFFFFFFFFFFFFFC1FFFFFFD9D6FF
".S {J. 12200 : TA$(4) . TA$(4).T1$..!|J
T$ . "FFF1FFFFE0E9FEFFFFFDFFFFE4E5E6F
F"./!}JT$ . T$."FFF5FFFFFFFFFFFFFFE1FFFF
FFF9F6".Q!~J. 12200 : TA$(4) . TA$(4).T1
$.V!.JSM . 50 : SE . 0 : . STABLE$(SM)..
!.J. ERR$(18)..!.JERR$(1)."SINGLE BYTE O
UT OF RANGE".S! JERR$(2)."DOUBLE BYTE OU
T OF RANGE"..!.JERR$(3)."INVALID OPRAND
OR OPCODE"..".JERR$(4)."INVALID OPERATOR
".;".JERR$(5)."INDEX IS NOT X OR Y".A".J
ERR$(6)."LABEL NOT ALPHA-NUMERIC"..".JER
R$(7)."INCORRECT NUMBER BASE"..".JERR$(8
)."LABEL DEFINED TWICE".J".JERR$(10)."BR
ANCH OUT OR RANGE"..".JERR$(11)."UNDEFIN
ED LABEL"..#.JERR$(12)."ONLY SINGLE CHR.
EXPECTED".5#.JERR$(14)."OUT OF SYMBOL S
PACE".U#.JERR$(15)."DIVISION BY ZERO".~#
.JERR$(18)."NOT AVAILEBLE WITH OPCODE"..
#.N. FI$(254) : . 24300..#.N...# N..C#!N
. GENERATE ASSEMBLY LISTING.I#"N...#%NSE
.0:FMAX.C(PTR$):SY.FALSE..$*N."ERROR ONL
Y LISTING (Y/N) :";T$. $4NEO.H(T$,1)."Y"
.E$9N."ASSEMBLE TO MEMORY (Y/N) :";T$.X$
=NAM.H(T$,1)."Y".A$>NAD.0.O$HN.Q.1.FMAX.
.$RNIN$.FILE$(F(J(PTR$,Q,1))):O$.""..$\N
.26400..$FN.EXIT.Q.FMAX.1..$PN.Q.C$UNT..
(X)..$ZNAD.0:EC.0:."ADD. DATA SOURC
E CODE"..$.N.Q.1.FMAX.!%.NIN$.FILE$(F(J(
PTR$,Q,1))):O$."".+%.NQ1.AD.6%.N.27600.E
%.N.ERR.20250.S%.N.EO.20222.C%.NH.Q1:.11
000.M%.NQ$.H$..%TNQ2.3:.C(O$).Q2.Q2.C(O$
)..%YNQ1$."":.O$."".20221..%.N.Q3.1.Q2.I
%.NH.F(J(O$,Q3,1)):.11000..%.N.C(H$).1.H
$."0".H$..%.NQ1$.Q1$.H$:.Q3..&.N.Q$.6.C(
Q$))Q1$.8.C(Q1$));:.28100..&.N..AM.O$.""
.20250.T&.O.X.1.C(O$):.Q1.X.1,F(J(O$,X,1
)):..T&.O.EXIT.Q.FMAX.1:. LEAVE LOOP.{&$
O.Q..&.O.:." TOTAL ERRORS IN FILE >>>"EC
:...&8O.SY..26900.M&BO.B(152)..0..2: 2:.
20300..&GO.T$:.T$."".20295..&LO...&XY...
'YY. FILE EDITOR..'ZY...'.Y. FIND LINE N
UMBER.3'.YT.C(PTR$).1:T2..1.J'.ZT.T.1:.T
..0..23080.`'.ZT1.F(J(PTR$,T,1))..'.ZT2.
F(J(FI$(T1),1,1)).256.F(J(FI$(T1),2,1)).
'.Z.T2.LN.23040..'(ZERR..(T2.LN):.ERR.T
.T.1.B'2Z..H'<Z...'=Z. ADD LINE TO FILE.
.'>Z...'AZ.LN.0.LN.65535.23215..(FZ.2302
0.,(PZ..ERR.T1.F(J(PTR$,T,1)):.23150.G(Z
Z.E$."".ERR.TREU:.23220._(DZT1.F(E$):E$.
J(E$,2).P(NZT2..(LN.256)..(XZFI$(T1).G(L
N.T2.256).G(T2).IN$..(.Z..ERR.23220..(.Z
T$."":T1$."".L(.Z.T.1.T$.H(PTR$,T.1)..(
Z.T..C(PTR$).T1$.J(PTR$,T)..).ZPTR$.T$.G
(T1).T1$..).ZERR.FALSE..).Z...).[..<).[.
DELETE LINE POINTED AT BY T.B).[..S).[T
$."":T1$."".K).[.T.1.T$.H(PTR$,T.1)..)"[
.T.C(PTR$).T1$.J(PTR$,T.1). ),[E$.E$.J(P
TR$,T,1)..)6[PTR$.T$.T1$..)@[...)H[...)I
[. LIST LINES POINTED AT BY T..)J[...*R[
.F(J(FI$(T),1,1)).256.F(J(FI$(T),2,1)).6
);.#*|[.J(FI$(T),3).)*.[../*L[..O*M[. ST
ART AND FINISH POINTERS.U*N[..F*V[LN.SL:
.23020.O*.[SP.T..*.[LN.FL:.23020..*.[FP.
T..*.[.ERR.FP.FP.1..*.[.FP.C(PTR$).FP.C(
PTR$)..*.\..A*0\...*1\. LOAD FILE FROM D
EVICE..*2\...*:\.11250..+?\.DEV.8.IN$.IN
$.",S,R"..+N\.2,DEV,0,IN$./+S\.2,IN$:.ST
..23650.[+X\.IN$.."END"..24000:.23900:.2
3100:.23635.B+B\ 2.H+L\..N+.\...+.\. SAV
E FILE TO DEVICE..+.\...+.\.11250..+.\.D
EV.8.IN$.IN$.",S,W"..+.\T$."N":.DEV.8.."
OVERWRITE EXISTING FILE (Y/N) : ";T$..,.
\.T$."Y".IN$."@0:".IN$..,.\.2,DEV,2,IN$:
.2.,,.\SL.0:FL.65536.@,F\.24420:.2,"END"
.J,P\.2: 2.P,.\..V,\]..R,]]. REMOVE LEAD
ING SPACES.X,^]...,F].T.1.C(IN$)..,P].J(
IN$,T,1)." "..T..,.]IN$.J(IN$,T):...,.].
.N,A]. GET LINE NUMBER.T,B]...,J]LN..655
36..-T].C(IN$).0.IN$."0".H(IN$,1)."9".24
090..-.].T.1.C(IN$).C-.].J(IN$,T,1).."9"
.J(IN$,T,G.G...................R........
.R.....R......G.....G.".0.+.2.1..R......
........R....`.....P......@..X......Z...
....#1ASW..X ";IN$..-.^SL.0:FL.65535:T3.
0:ERR.FALSE..-.^.C(IN$).0.24295..-.^.240
00....^.LN..0.SL.LN:.24260./..^.LN..6553
6.FL..LN:.24295.Q.D^.23900:.C(IN$).0.FL.
SL:.24295.I.N^IN$.J(IN$,2):.23900....^.C
(IN$).0..24000:FL.LN....^ERR.SL.0.SL.655
35.FL.0.FL.65536.ERR:.....^..J..^. INITI
ALISE FILE.P..^.....^PTR$."":E$."":.X.0.
254:E$.E$.G(X):.:.../P_.../Q_. LIST LINE
S../R_..-/Z_.24200:.ERR.24460.O/D_.".":.
23500:.FP.SP.FP.0.24460.Z/N_.T1.SP.FP:T.
F(J(PTR$,T1,1)):.23400:.:.../._.B(152).0
..T$:.T$."".24455../._.../._.../._. DELE
TE LINE(S)../._..V/._.24200:.ERR.24460..
/H_.23500:.FP.SP.24560..0R_T.SP:.T1.SP.F
P:.23300:...0._...0.`..*0.`. INPUT LINE(
S).00.`..90"`.".".A0,`IN$."":.IN$:.24000
:.LN..65536.24665.|0J`.23900:.C(IN$).0.2
4680..0T`.23100:..ERR.24620..0Y`...0H`.2
3020:..ERR..23300..0R`.24620.B0|`...0}`.
RENUMBER FILE IN STEPS OF 10..0~`...0.`
LN.10:ERR.FALSE..1.`.C(PTR$).1.24780.%1.
`.T.1.C(PTR$).;1.`T1.F(J(PTR$,T,1)).R1.`
FI$(T1).G(LN..(LN.256).256).G(LN.256).J(
FI$(T1),3)..1.`LN.LN.10:...1L`...1.`...1
.`. FILE EDITOR MENU..1.`...1.`.".. ----
-------- FILE EDITOR ------------.."..2.
A." 0) EXIT FROM FILE EDITOR..2.A."
1) INPUT LINE(S).:2.A." 2) LI
ST LINE(S).X2.A." 3) DELETE LINE(S)
.U2&A." 4) RENUMBER FILE..20A."
5) INITIALISE FILE..2:A." 6) LOAD
FILE.F2DA." 7) SAVE FILE..2NA."
8) ADD MACHINE CODE TO FILE..3SA."
9) CHANGE DEVICE NUMBER......43XA."CO
MMAND ( 0-9 ) : ";CO.@3LA.CO.0...~3VA.CO
.0..CO.24600,24400,24500,24700,24300,236
00,23700,25000..3.A.CO.8..CO.8.25500..3.
A.24800..3.A..C3.A. ADD TO FILE FROM MEM
ORY.I3.A...3.A.12050:.11200:.24200..3ZA.
XY.AD.EA.15..4.AIN$." BYT ":LN.SL:SL.SL.
5.%4.A.XZ.0.14:O2$."".?4.A.11100:IN$.IN$
."$".H$.A4.B.XZ.14.AD..EA.IN$.IN$.".":.X
Z.R4.B.23100:.XY:..X4.C...4.C. CHANGE DE
VICE NUMBER..4.C...4.C..19)DEV.E4.C.".NE
W DEVICE NUMBER:";DEV.K4.C..Q4.E...4.E.
SYMBOL TO COLON ETC...4.E...5.EH$."":T1.
C(IN$)..5.EPTR.PTR.1.&5.E.T1.PTR.26060.<
5.ET.F(J(IN$,PTR,1)).L5.E.T.32.26020.O5B
E.T..58.T..59.H$.H$.G(T):.26020.U5LE..{5
.E...5.E. OPERAND TYPE..5.E...5.ET6.PTR:
.26000..5.FERR.FALSE.H5.F.C(H$).0.OP.1:.
..5.F.H$."A".OP.0:...5!F.F(H$).35.OP.2:.
..5:FOP.12..6DF.H(H$,1)."(".OP.OP.3.$6NF
T.1:T1.C(H$).86XFT2.F(J(H$,T,1)).V6BF.T2
..46.T.T1.T.T.1:.26200.H6LF.T2..46.26275
.~6VFT.T.1:.T.T1.26270..6.FT2.F(J(H$,T,1
))..6.F.T2.89.OP.OP.1:.26275.F6.F.T2.88.
OP.OP.2:.26275.L6.F...6 FEN.5:.28000..7.
F.(OP.12).((PO.2.PO.6).(PO.6.PO.10).PO.1
2.PO.11).OP.3.!7.F. 0PAGE..7.F.OP.10...@
7.FT7.PTR:PTR.T6.K7.F.28600.E7.F.ERR.RES
ULT.255.26292.Q7.FOP.OP.6.|7.FPTR.T7..7.
F...7.F...7.F. EVALUATE OPCODE..7.F...7F
FT1.3:T.PO.L7PFT.F(J(TA$(T1),T.1,1))..7Z
F.T.255.ERR.TRUE:...8.FT1.4:T2.F(J(TA$(1
),.(T.2.1),1))..8.F.(1.T).0.T2..(T2.16).
,8.FT2.T2.15.>8.F.T2..OP.26320.M8.GO$.O$
.G(T).[8.GERR.FALSE.A8.G..G8 G...8!G. DO
PASS 1 ASSEMBLY ON IN$..8"G..U8%G."....
...................
";..9&G."
";.,9'G."....
...................";:.28100.H9*GPASS.1:
EXIT.FALSE:PTR.2.S94G.28850.C9>G..ERR.26
540.{9HG.T.58.C(H$).0.26420..9RG.T.59.T.
.1....9\G.28700..9PG.28850..9ZG..ERR.265
40.J9.G.T.58.C(H$).0.26420.P9.G...9.G.PO
.55..26600:.26556..9.G.26100..:.G.26300:
.ERR.OP.3.OP.7.OP.OP.6:.26552.(:.G.26560
.D:.G.C(IN$).PTR..EXIT.26420.J:.G..P:.G.
.B:AG. BYTE LENGHT.H:BG..T:EGAD.AD.1..:J
G.OP.1.AD.AD.1..:TG.OP.8.AD.AD.1..:.G...
:.G...:.G. CALC DIRECTIVE LENGHT.F:.G..T
:.GT1.C(IN$)..:.G.PO.56.26720..;.H.PO.60
..28600:AD.RESULT..;.H.PO.59.EXIT.TRUE.#
;.H.PO.58...);.H..5;.HAD.AD.2.C;$HPTR.PT
R.1.Q;.H.PTR.T1...G;8HT.F(J(IN$,PTR,1)).
X;BH.T.58.T.59....;LH.T..46.26660..;VH.2
6650..;`H...;JHAD.AD.1..;THPTR.PTR.1.B;~
H.PTR.T1...X;.HT.F(J(IN$,PTR,1))..;.H.T.
58.T.59....;.H.T..46.26740..<.H.26730..<
.I.: ...<.I..'<.I. SYMBOL DUMP.-<.I..=<
.I.SE.1.26975.C<#I..Q<(I.X.0.SE.1.G<2I.H
(ST$(X),6).10);..<<IH.F(J(ST$(X),8)).256
.F(J(ST$(X),7))..<FI.11000..<PI.H$..<ZI.
X.O<_I.".TOTAL NUMBER OF SYMBOLS >>>"SE.
U<XI...<YI. EVALUATE OPRAND..<ZI...<.IER
R.FALSE..=.I.OP.2....=.I.OP.3.27500.+= I
.OP.2.27400.6=.I.28600.I=.I.ERR.C(O$).0.
..U=.I.(RESULT.0.RESULT.255).OP.9.EN.1:.
28000..=HI.RESULT.0.RESULT.65535.EN.2:.2
8000..=RI.OP.9.27140..=.IT..(RESULT.256)
.P=.IRE.RE.T.256..=.I.27140..=.IRE.T..=.
JO$.O$.G(RESULT)..=.J...>@J..">AJ. DIREC
TIVE OPERAND EVAL..(>BJ..6>EJERR.FALSE.R
>JJ.PO.60..28600:AD.RESULT.E>NJ.PO.62.SY
.TRUE..>OJ.PO.61..2,4:.2:.".ADD. DATA
SOURCE CODE."..>TJ.PO.59.EXIT.TRUE..>
^J.PO.58...K>HJ.PO.56.27330.Q>RJ...>|J.2
8600..?.J.RESULT.0.RESULT.65535.EN.2:.28
000.B?.J.PO.58.RESULT..(RESULT.256).256.
(RESULT..(RESULT.256).256).H?.J..`?.JT1.
T:.27100:AD.AD.2.R?.J.T1.32..28150..?.J.
T1.46.27260..?.J...?BJ...?LJ.28600..?VJ.
RESULT.0.RESULT.255.EN.1:.28000.R?.J.271
40:AD.AD.1..?.J.T.32..28150..?.J.T.46.27
340..?.J...?.K...@.K. EVAL IMMEDIATE..@.
K..,@.KT5.PTR:.26000.A@.K.F(H$)..35.2748
0.Z@&K.J(H$,2,1)."'".27450.E@0KPTR.T5.{@
2K.PTR.C(IN$).27446..@4K.F(J(IN$,PTR,1))
..35.PTR.PTR.1:.27442..@6KOP.8:.27050:OP
.2..@8K..F@:K..Z@DK.C(H$)..3.27480..@NKO
$.O$.J(H$,3,1):...@XKEN.12..ABK.28000..A
LK...AMK. EVAL RELATIVE.%ANK..0AVK.28600
.CA.K.C(O$).0.ERR...XA.KRESULT.RESULT.AD
.LA.K.RE.0.RE.RE.256..A.K.RE.256.RE..0.2
7140..A.KEN.10..A.K.28000..APK...AQK. DO
PASS 2..ARK...AUKPASS.2.JAZKO$.""..A.KE
XIT.FALSE:ERR.FALSE..A.KPTR.2..A.K.28850
..B.K..ERR.27720. B.L.T.58.C(H$).0.27630
.;B.L.T.59.T..1.ERR.FALSE:..FB.L.28700.Q
B.L.28850.AB L..ERR.27720.YB*L.T.58.C(H$
).0.27630..B/L.T.59.T..1.ERR.FALSE:...B4
LEN.3:.28000..BHL.PO.55..27200:.27745..B
KLT5.PTR:.26100:T8.PTR:PTR.T5..BML.26300
:..ERR.27730..COL.OP.7.OP.3.OP.OP.6:PTR.
T5:.27725.*CPLEN.18:.28000.0CQL..;CRL.26
560.[C\L..ERR.C(O$).0..27000:PTR.T8.WCAL
.C(IN$).PTR..EXIT.27630.}CFL...C`M.. CAM
. ASSMBLER ERROR ROUTINE..CBM..BCEM.PTR.
.300.PASS..2.28050.TCJM..14);:.28100..CO
MEC.EC.1..CTM.X..13.PTR:."=";:.X:."."..D
~M." "ERR$(EN)" ERROR".-D.MPTR.300:ERR
.TRUE.3D.M..9DDM..IDEM. PRINT IN$.ODFM..
|DXM.256.F(J(IN$,2,1)).F(J(IN$,1,1))J(IN
$,3)..D.M...D.M...D.M. SYMBOL NON-LETTER
/DIGIT..D.M...D.NH$."":T..1.ID.NPTR.PTR.
1..D.N.PTR.C(IN$).28210..D.NT.F(J(IN$,PT
R,1))..E.N.T.32.C(H$).0.28160..E.N.T.48.
T.90.(T.57.T.65).28210.DE(NH$.H$.G(T):.2
8165.JE2N..PEZN..AE[N. FIND LABEL.GE\N..
~EDNERR.FALSE:H.0:T1.0..ENN.C(H$).6.H$.H
$." ":.28270..EXN.T1.SE.ERR.TRUE:..YE.N.
J(ST$(T1),1,6)..H$.T1.T1.1:.28280..F.NH.
F(J(ST$(T1),8,1)).256.F(J(ST$(T1),7,1)):
...F.N..*F.N. EVAL LABEL OR NUMBER.0F.N.
.;F N.28150.TF.N.T.40.C(H$).0..28150.AF.
NT1.C(H$)..F.N.(T..1.T.32.T.58.T.59.T.41
.T.46).T1.0....F.N.T1.0.28390..F.N.F(H$)
..57.H.E(H$):.28492.FFHN.28250..FRN.ERR.
EN.11:H.0:.28000..F.N.28492..F.N...G.NT2
.T:.28150..G.N.C(H$).0.28450.%G.O.T2.36.
28470.>G.O.T2.37.BASE.2:.28470.WG.O.T2.3
8.BASE.8:.28470.KG"O. INVALID LABEL.G,O
H.0:EN.6:.28000..G6O...G;O.11950..G@OBAS
E.16..GJO.ERR.H.0:EN.7:.28000.JGLOPTR.PT
R.1:.28150.PGOO..VGTO...GUO...GVO...G^O.
28300:TERM.H..HHO.PTR.C(IN$)...-HRO.T.42
..28300:TERM..(TERM.H):.28520.:H.O.T..47
...EH.O.28300.BH.O.H.0.TERM.0:EN.15:.280
00.UH.OTERM..(TERM.H)..H.O.28520..H.O...
H.O...H.O.. H.OERR.FALSE..HBO.28500:RE.T
ERM..HLO.T..1.T.32.T.58.T.59.T.41.T.46.P
TR.C(IN$)....IVO.T.43..28500:RES..(RE.TE
RM):.28620.2I.O.T.45..28500:RES..(RES.TE
RM):.28620.KI.ORESULT.0:EN.4:.28000.QI.P
..KI.P. ADD SYMBOL TO TABLE.QI.P...I&P.S
E..SM.EXIT.TRUE:PASS.2:EN.14:.28000..I0P
.28250:..ERR.28830.KIDPT$.H(H$." "
,6).VIIPTB.PTR..INP.28150..JXP.T..61.PTR
.TB:RE.AD:.28780..JBPT0.T:.28600..JLPEN.
0.MJVP.RE.0.RE.65535.ST$(SE).T$.G(0).G(0
).G(2):.28810.}J.PST$(SE).T$.G(RE..(RE.2
56).256).G(.(RE.256))..J.PSE.SE.1..J.P..
.J.P.PASS.1.C(ST$(T1)).9.ST$(T1).ST$(T1)
.G(8).PJ.P.PASS..2.28840..J.PTA.PTR:.281
50:.T..61.PTR.TA:.28840..K.P.26000..K.P.
PASS..2.C(ST$(T1)).9...>K.PEN.F(J(ST$(T1
),9,1)):.28000.DK.P..DK.P. TEST FOR OPCO
DE/DIRECTIVE.JK.P..UK.P.28150..KFPERR.FA
LSE..KZPPTR.PTR.1..K.P.C(H$)..3.28940..K
.PPO..2..K.PPO.PO.3.XK.P.H$.J(TA$(2),PO,
3).28950..K.Q.(PO.3)..C(TA$(2)).28910..L
.QERR.TRUE..L.QPO.(PO.1).3.&L QERR.(PO.5
6).ERR.9L*Q.PO.56.PO.PO.1.?L4Q..`L.R.T.4
8.T.90.(T.57.T.65).28210.WL8.. CHECKSUM
PROGRAM..L9.. 63810..L:..63840..L;..FL..
0.63802..L<...CLB...DEEK(X).B(X).256.B(X
.1)..LL.. DATA FOR MACHINE CODE..LM.. **
*..MN..165,252,166,253,133,020,134,021,0
32,019.CMO..166,216,160,001,177,095,133,
254,240,013.PMP..200,177,095,133,252,200
,177,095,133,253..MQ..200,169,000,133,25
1,177,095,240,006,024..MR..101,251,200,2
08,244,096.BMS..-1..MV.. PUT DATA INTO M
EMORY..MW.AD.52992..MX....NY..T$:.T$.."*
**".63833.+NZ..T:.T..0..AD,T:AD.AD.1:.63
834.YN[.DEV.3:IN$."":."OUTPUT DEVICE NUM
BER ";DEV.|N\..DEV.1.DEV.4.."FILE NAME "
;IN$..N].R$.G(13):S$."******************
*********************".R$..N^...WN`.. DO
INITIALISATION..NA.FL.0:."FIRST LINE ";
FL:.FL.0....OB.LL.65536:."LAST LINE ";LL
./OC.."MODULE NAME ";M$.@OD..1,DEV,2,IN$
.}OE..1,S$R$.(40.C(M$)).2)M$R$R$"LINE NU
MBERS"FL"TO"LL;R$S$R$..OJ.. ACTUAL PROGR
AM..OK.LN.FL:C.0:C1.0.KOL..252,LN..(LN.2
56).256:.253,LN.256..OM..52992:CS.B(251)
:LN..DEEK(252).1..PT.. FORMAT OUTPUT INT
O 3 COLUMNS.EPU.T$.H(D(LN.1)." ",6)
.H(D(CS)." ",7).PPV..1,T$;.OPX.C.C
.1:.C..3..1:C.0:C1.C1.1..PY..C1..20.DEV.
3.C1.0:.63898..PZ..LN..LL.B(254).63852..
P{. 1:..DP...T$:.T$."".63898.JP......
> CLICK IMAGE PREVIEW FOR FULL MODAL