MASTERCODE
FILE INFORMATION
FILENAME(S): MASTERCODE
FILE TYPE(S): PRG
FILE SIZE: 24K
FIRST SEEN: 2025-12-01 02:22:00
APPEARS ON: 2 disk(s)
FILE HASH
ba3b4d74da124b0cd2af52adc63a155d0b03b3a8adf74b84227b62078c3b60d3
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEL | MASTERCODE | PRG | hedning, scooby | 7 | 0 | DOWNLOAD FILE |
| DISKETTE NR 96 | MASTERCODE | PRG | hedning, scooby | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 10 27 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%..'.*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 42 08 24 27 8F 20 47 45 4E 45 |*****.B.$'. GENE|
00000030: 52 41 4C 20 49 4E 49 54 49 41 4C 49 53 41 54 49 |RAL INITIALISATI|
00000040: 4F 4E 00 66 08 2E 27 8F 2A 2A 2A 2A 2A 2A 2A 2A |ON.f..'.********|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 2A 2A 00 8D 08 30 27 8B 20 C3 28 50 |******...0'. .(P|
00000070: 54 52 24 29 AA C3 28 45 24 29 B3 B1 32 35 35 20 |TR$)..(E$)..255 |
00000080: A7 20 9C 20 3A 20 8D 20 31 39 30 30 30 00 99 08 |. . : . 19000...|
00000090: 33 27 44 45 56 20 B2 20 31 00 C4 08 38 27 96 A5 |3'DEV . 1...8'..|
000000A0: 20 48 45 58 28 58 29 20 B2 20 28 58 20 AF 20 31 | HEX(X) . (X . 1|
000000B0: 35 29 AA 34 38 AB 28 28 58 20 AF 20 31 35 29 B1 |5).48.((X . 15).|
000000C0: 39 29 AC 37 00 E2 08 42 27 96 A5 20 44 45 43 28 |9).7...B'.. DEC(|
000000D0: 58 29 20 B2 20 58 AB 34 38 AA 28 58 B1 35 37 29 |X) . X.48.(X.57)|
000000E0: AC 37 00 08 09 4C 27 46 41 4C 53 45 20 B2 20 30 |.7...L'FALSE . 0|
000000F0: 20 3A 20 54 52 55 45 20 B2 20 AB 31 20 3A 20 42 | : TRUE . .1 : B|
00000100: 41 53 45 20 B2 20 31 36 00 23 09 56 27 97 20 35 |ASE . 16.#.V'. 5|
00000110: 33 32 38 31 2C 31 20 3A 20 97 20 35 33 32 38 30 |3281,1 : . 53280|
00000120: 2C 31 35 00 47 09 74 27 8F 2A 2A 2A 2A 2A 2A 2A |,15.G.t'.*******|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 00 69 09 75 27 8F 20 43 4F |*******.i.u'. CO|
00000150: 4E 54 52 4F 4C 20 52 4F 55 54 49 4E 45 20 46 4F |NTROL ROUTINE FO|
00000160: 52 20 4D 4F 4E 49 54 4F 52 00 8D 09 76 27 8F 2A |R MONITOR...v'.*|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D0 09 |*************...|
00000190: 7E 27 83 20 45 58 49 54 20 54 4F 20 42 41 53 49 |~'. EXIT TO BASI|
000001A0: 43 2C 4D 45 4D 4F 52 59 20 4D 4F 44 49 46 59 2C |C,MEMORY MODIFY,|
000001B0: 4D 45 4D 4F 52 59 20 44 55 4D 50 2C 4D 41 43 48 |MEMORY DUMP,MACH|
000001C0: 49 4E 45 20 43 4F 44 45 20 45 58 45 43 55 54 45 |INE CODE EXECUTE|
000001D0: 00 04 0A 7F 27 83 20 4C 4F 41 44 20 4D 41 43 48 |....'. LOAD MACH|
000001E0: 49 4E 45 20 43 4F 44 45 20 46 49 4C 45 2C 53 41 |INE CODE FILE,SA|
000001F0: 56 45 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 |VE MACHINE CODE |
00000200: 46 49 4C 45 00 17 0A 88 27 83 20 44 49 53 41 53 |FILE....'. DISAS|
00000210: 53 45 4D 42 4C 45 52 00 29 0A 92 27 83 20 46 49 |SEMBLER.)..'. FI|
00000220: 4C 45 20 45 44 49 54 4F 52 00 39 0A 9C 27 83 20 |LE EDITOR.9..'. |
00000230: 41 53 53 45 4D 42 4C 45 52 00 43 0A CE 27 83 20 |ASSEMBLER.C..'. |
00000240: 45 4E 44 00 49 0A D8 27 8C 00 53 0A EC 27 58 20 |END.I..'..S..'X |
00000250: B2 20 30 00 88 0A F6 27 99 20 22 1F 93 2D 2D 2D |. 0....'. "..---|
00000260: 2D 2D 2D 2D 2D 2D 20 4D 41 43 48 49 4E 45 20 43 |------ MACHINE C|
00000270: 4F 44 45 20 4D 4F 4E 49 54 4F 52 20 2D 2D 2D 2D |ODE MONITOR ----|
00000280: 2D 2D 2D 2D 2D 1E 11 22 00 91 0A 0A 28 87 20 54 |-----.."....(. T|
00000290: 24 00 C5 0A 14 28 8B 20 54 24 B3 B1 22 45 4E 44 |$....(. T$.."END|
000002A0: 22 20 A7 20 99 20 A3 35 29 20 58 20 22 29 22 20 |" . . .5) X ")" |
000002B0: 54 24 20 3A 20 58 B2 20 58 AA 31 20 3A 20 89 20 |T$ : X. X.1 : . |
000002C0: 31 30 32 35 30 00 E7 0A 19 28 8B 20 58 B3 31 35 |10250....(. X.15|
000002D0: 20 A7 20 81 20 59 20 B2 20 58 20 A4 20 31 35 20 | . . Y . X . 15 |
000002E0: 3A 20 99 20 3A 20 82 00 0F 0B 1E 28 99 20 22 43 |: . : .....(. "C|
000002F0: 4F 4D 4D 41 4E 44 20 28 20 30 20 2D 22 20 58 AB |OMMAND ( 0 -" X.|
00000300: 31 20 22 20 29 20 3A 20 22 3B 3A 20 85 20 54 00 |1 " ) : ";: . T.|
00000310: 27 0B 3C 28 8B 20 54 B3 30 20 B0 20 54 B1 58 20 |'.<(. T.0 . T.X |
00000320: A7 20 31 30 31 30 30 00 60 0B 41 28 8B 20 54 B2 |. 10100.`.A(. T.|
00000330: 30 20 A7 20 99 20 22 93 11 11 11 11 20 20 20 20 |0 . . "..... |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 12 42 59 45 | .BYE|
00000350: 92 11 11 11 11 22 20 3A 20 A0 20 31 20 3A 20 80 |....." : . 1 : .|
00000360: 00 9A 0B 46 28 91 20 54 20 8D 20 31 33 31 30 30 |...F(. T . 13100|
00000370: 2C 31 33 33 30 30 2C 31 33 35 30 30 2C 31 34 33 |,13300,13500,143|
00000380: 30 30 2C 31 34 31 30 30 2C 31 35 38 30 30 2C 32 |00,14100,15800,2|
00000390: 34 38 30 30 2C 32 30 30 30 30 00 A6 0B 50 28 89 |4800,20000...P(.|
000003A0: 20 31 30 31 30 30 00 CA 0B F8 2A 8F 2A 2A 2A 2A | 10100....*.****|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E7 0B F9 2A 8F |**********....*.|
000003D0: 20 43 4F 4E 56 45 52 54 20 44 45 43 49 4D 41 4C | CONVERT DECIMAL|
000003E0: 20 54 4F 20 48 45 58 00 0B 0C FA 2A 8F 2A 2A 2A | TO HEX....*.***|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 0C 02 2B |***********....+|
00000410: 54 20 B2 20 48 20 3A 20 48 24 20 B2 20 22 22 00 |T . H : H$ . "".|
00000420: 5F 0C 0C 2B 48 24 20 B2 20 C7 28 A5 48 45 58 28 |_..+H$ . .(.HEX(|
00000430: 54 AB B5 28 54 AD 31 36 29 AC 31 36 29 29 AA 48 |T..(T.16).16)).H|
00000440: 24 20 3A 20 54 20 B2 20 B5 28 54 AD 31 36 29 20 |$ : T . .(T.16) |
00000450: 3A 20 8B 20 54 B1 30 20 A7 20 31 31 30 32 30 00 |: . T.0 . 11020.|
00000460: 65 0C 2A 2B 8E 00 89 0C 5C 2B 8F 2A 2A 2A 2A 2A |e.*+....\+.*****|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9D 0C 5D 2B 8F 20 |*********...]+. |
00000490: 42 59 54 45 20 49 4E 54 4F 20 48 45 58 00 C1 0C |BYTE INTO HEX...|
000004A0: 5E 2B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |^+.*************|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004C0: 2A 00 DB 0C 66 2B 48 20 B2 20 C2 28 41 44 29 20 |*...f+H . .(AD) |
000004D0: 3A 20 41 44 20 B2 20 41 44 AA 31 00 E7 0C 70 2B |: AD . AD.1...p+|
000004E0: 8D 20 31 31 30 30 30 00 03 0D 7A 2B 8B 20 C3 28 |. 11000...z+. .(|
000004F0: 48 24 29 B3 32 20 A7 20 48 24 20 B2 20 22 30 22 |H$).2 . H$ . "0"|
00000500: AA 48 24 00 14 0D 84 2B 4F 32 24 20 B2 20 4F 32 |.H$....+O2$ . O2|
00000510: 24 AA 48 24 00 1A 0D 8E 2B 8E 00 3E 0D C0 2B 8F |$.H$....+..>..+.|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 59 |**************.Y|
00000540: 0D C1 2B 8F 20 49 4E 50 55 54 20 46 49 4E 49 53 |..+. INPUT FINIS|
00000550: 48 20 41 44 44 52 45 53 53 00 7D 0D C2 2B 8F 2A |H ADDRESS.}..+.*|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 89 0D |*************...|
00000580: C5 2B 48 24 20 B2 20 22 22 00 BC 0D CA 2B 85 20 |.+H$ . ""....+. |
00000590: 22 46 49 4E 49 53 48 20 41 44 44 52 45 53 53 20 |"FINISH ADDRESS |
000005A0: 28 20 49 4E 20 48 45 58 20 29 20 3A 20 22 3B 20 |( IN HEX ) : "; |
000005B0: 48 24 20 3A 20 8D 20 31 31 39 35 30 00 DE 0D DE |H$ : . 11950....|
000005C0: 2B 8B 20 45 52 52 20 B0 20 48 B3 30 20 B0 20 48 |+. ERR . H.0 . H|
000005D0: B1 36 35 35 33 35 20 A7 20 31 31 32 30 30 00 ED |.65535 . 11200..|
000005E0: 0D E8 2B 45 41 20 B2 20 48 20 3A 20 8E 00 11 0E |..+EA . H : ....|
000005F0: F2 2B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.+.*************|
00000600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000610: 2A 00 27 0E F3 2B 8F 20 49 4E 50 55 54 20 46 49 |*.'..+. INPUT FI|
00000620: 4C 45 20 4E 41 4D 45 00 45 0E F4 2B 8D 20 32 35 |LE NAME.E..+. 25|
00000630: 35 30 30 20 3A 20 8B 20 44 45 56 B2 34 20 A7 20 |500 : . DEV.4 . |
00000640: 31 31 32 39 30 00 52 0E F7 2B 49 4E 24 20 B2 20 |11290.R..+IN$ . |
00000650: 22 22 00 7A 0E FC 2B 85 20 22 20 46 49 4C 45 20 |"".z..+. " FILE |
00000660: 4E 41 4D 45 20 3A 20 22 3B 20 49 4E 24 20 3A 20 |NAME : "; IN$ : |
00000670: 54 20 B2 20 C3 28 49 4E 24 29 00 AE 0E 10 2C 8B |T . .(IN$)....,.|
00000680: 20 54 B1 31 36 20 B0 20 54 B3 30 20 A7 20 99 20 | T.16 . T.0 . . |
00000690: 22 11 46 49 4C 45 20 4E 41 4D 45 20 49 4E 56 41 |".FILE NAME INVA|
000006A0: 4C 49 44 22 20 3A 20 89 20 31 31 32 36 30 00 B4 |LID" : . 11260..|
000006B0: 0E 1A 2C 8E 00 D8 0E 4A 2E 8F 2A 2A 2A 2A 2A 2A |..,....J..******|
000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 0E 4B 2E 8F 20 41 |********...K.. A|
000006E0: 53 4B 20 43 4F 4E 54 49 4E 55 45 20 3F 00 11 0F |SK CONTINUE ?...|
000006F0: 4C 2E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |L..*************|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000710: 2A 00 1D 0F 52 2E 54 24 20 B2 20 22 22 00 3D 0F |*...R.T$ . "".=.|
00000720: 54 2E 85 20 22 43 4F 4E 54 49 4E 55 45 20 28 20 |T.. "CONTINUE ( |
00000730: 59 2F 4E 20 29 20 3A 20 22 3B 20 54 24 00 60 0F |Y/N ) : "; T$.`.|
00000740: 5E 2E 8B 20 54 24 B2 22 59 22 20 A7 20 43 4F 20 |^.. T$."Y" . CO |
00000750: B2 20 54 52 55 45 20 3A 20 89 20 31 31 38 39 35 |. TRUE : . 11895|
00000760: 00 7F 0F 68 2E 8B 20 54 24 B3 B1 22 4E 22 20 A7 |...h.. T$.."N" .|
00000770: 20 99 20 22 91 22 3B 20 3A 89 31 31 38 35 30 00 | . "."; :.11850.|
00000780: 8E 0F 72 2E 43 4F 20 B2 20 46 41 4C 53 45 00 94 |..r.CO . FALSE..|
00000790: 0F 77 2E 8E 00 B8 0F AE 2E 8F 2A 2A 2A 2A 2A 2A |.w........******|
000007A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 00 DC 0F AF 2E 8F 20 43 |********...... C|
000007C0: 4F 4E 56 45 52 54 20 48 45 58 20 49 4E 20 48 24 |ONVERT HEX IN H$|
000007D0: 20 54 4F 20 44 45 43 20 49 4E 20 48 00 00 10 B0 | TO DEC IN H....|
000007E0: 2E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000800: 00 2C 10 C7 2E 45 52 52 20 B2 20 46 41 4C 53 45 |.,...ERR . FALSE|
00000810: 20 3A 20 48 20 B2 20 30 20 3A 20 8B 20 C3 28 48 | : H . 0 : . .(H|
00000820: 24 29 B2 30 20 A7 20 31 32 30 33 30 00 40 10 CC |$).0 . 12030.@..|
00000830: 2E 81 20 58 20 B2 20 31 20 A4 20 C3 28 48 24 29 |.. X . 1 . .(H$)|
00000840: 00 69 10 D6 2E 54 20 B2 20 A5 44 45 43 28 C6 28 |.i...T . .DEC(.(|
00000850: CA 28 48 24 2C 58 2C 31 29 29 29 3A 20 48 20 B2 |.(H$,X,1))): H .|
00000860: 20 48 AC 42 41 53 45 AA 54 00 8B 10 EA 2E 8B 20 | H.BASE.T...... |
00000870: 54 B1 42 41 53 45 AB 31 20 B0 20 54 B3 30 20 A7 |T.BASE.1 . T.0 .|
00000880: 20 45 52 52 20 B2 20 54 52 55 45 00 93 10 F4 2E | ERR . TRUE.....|
00000890: 82 20 58 00 99 10 FE 2E 8E 00 BD 10 12 2F 8F 2A |. X........../.*|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D7 10 |*************...|
000008C0: 13 2F 8F 20 49 4E 50 55 54 20 53 54 41 52 54 20 |./. INPUT START |
000008D0: 41 44 44 52 45 53 53 00 FB 10 14 2F 8F 2A 2A 2A |ADDRESS..../.***|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 07 11 19 2F |***********..../|
00000900: 48 24 20 B2 20 22 22 00 38 11 1C 2F 85 20 22 53 |H$ . "".8../. "S|
00000910: 54 41 52 54 20 41 44 44 52 45 53 53 20 28 20 49 |TART ADDRESS ( I|
00000920: 4E 20 48 45 58 20 29 20 3A 20 22 3B 20 48 24 20 |N HEX ) : "; H$ |
00000930: 3A 20 8D 31 31 39 35 30 00 5A 11 30 2F 8B 20 45 |: .11950.Z.0/. E|
00000940: 52 52 20 B0 20 48 B3 30 20 B0 20 48 B1 36 35 35 |RR . H.0 . H.655|
00000950: 33 35 20 A7 20 31 32 30 36 30 00 69 11 3A 2F 41 |35 . 12060.i.:/A|
00000960: 44 20 B2 20 48 20 3A 20 8E 00 8D 11 A8 2F 8F 2A |D . H : ...../.*|
00000970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 11 |*************...|
00000990: A9 2F 8F 20 48 45 58 20 4C 4F 41 44 45 52 00 C2 |./. HEX LOADER..|
000009A0: 11 AA 2F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |../.************|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009C0: 2A 2A 00 CF 11 B2 2F 54 31 24 20 B2 20 22 22 00 |**..../T1$ . "".|
000009D0: E8 11 BC 2F 81 20 58 31 20 B2 20 31 20 A4 20 C3 |.../. X1 . 1 . .|
000009E0: 28 54 24 29 20 A9 20 32 00 26 12 C6 2F 54 31 24 |(T$) . 2.&../T1$|
000009F0: 20 B2 20 54 31 24 AA C7 28 A5 44 45 43 28 C6 28 | . T1$..(.DEC(.(|
00000A00: CA 28 54 24 2C 58 31 2C 31 29 29 29 AC 31 36 AA |.(T$,X1,1))).16.|
00000A10: A5 44 45 43 28 C6 28 CA 28 54 24 2C 58 31 AA 31 |.DEC(.(.(T$,X1.1|
00000A20: 2C 31 29 29 29 29 00 2F 12 E4 2F 82 20 58 31 00 |,1))))./../. X1.|
00000A30: 35 12 EE 2F 8E 00 59 12 C8 32 8F 2A 2A 2A 2A 2A |5../..Y..2.*****|
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6A 12 C9 32 8F 20 |*********.j..2. |
00000A60: 47 45 54 20 31 20 42 59 54 45 00 8E 12 CA 32 8F |GET 1 BYTE....2.|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9A |**************..|
00000A90: 12 CF 32 48 24 20 B2 20 22 22 00 B9 12 D2 32 85 |..2H$ . ""....2.|
00000AA0: 20 22 42 59 54 45 20 28 20 49 4E 20 48 45 58 20 | "BYTE ( IN HEX |
00000AB0: 29 20 3A 20 22 3B 20 48 24 00 C5 12 E6 32 8D 20 |) : "; H$....2. |
00000AC0: 31 31 39 35 30 00 EF 12 F0 32 8B 20 45 52 52 20 |11950....2. ERR |
00000AD0: B0 20 48 B3 30 20 B0 20 48 B1 32 35 35 20 A7 20 |. H.0 . H.255 . |
00000AE0: 99 20 22 91 22 20 3A 20 89 20 31 33 30 30 30 00 |. "." : . 13000.|
00000AF0: F5 12 FA 32 8E 00 19 13 2C 33 8F 2A 2A 2A 2A 2A |...2....,3.*****|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2D 13 2D 33 8F 20 |*********.-.-3. |
00000B20: 4D 45 4D 4F 52 59 20 4D 4F 44 49 46 59 00 51 13 |MEMORY MODIFY.Q.|
00000B30: 2E 33 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.3.*************|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 00 5D 13 36 33 8D 20 31 32 30 35 30 00 8E 13 |*.].63. 12050...|
00000B60: 40 33 48 20 B2 20 41 44 20 3A 20 8D 20 31 31 30 |@3H . AD : . 110|
00000B70: 30 30 20 3A 20 99 20 48 24 20 A3 36 29 20 22 2F |00 : . H$ .6) "/|
00000B80: 22 20 3B 20 3A 20 4F 32 24 20 B2 20 22 22 00 B3 |" ; : O2$ . ""..|
00000B90: 13 54 33 8D 20 31 31 31 30 30 20 3A 20 41 44 20 |.T3. 11100 : AD |
00000BA0: B2 20 41 44 AB 31 20 3A 20 99 20 48 24 20 A6 36 |. AD.1 : . H$ .6|
00000BB0: 29 20 3B 00 BF 13 5E 33 54 24 20 B2 20 22 22 00 |) ;...^3T$ . "".|
00000BC0: D7 13 68 33 85 20 22 20 2B 2C 2D 2C 49 2C 45 20 |..h3. " +,-,I,E |
00000BD0: 3A 20 22 3B 20 54 24 00 05 14 72 33 8B 20 54 24 |: "; T$...r3. T$|
00000BE0: B2 22 2B 22 20 AF 20 41 44 B3 36 35 35 33 35 20 |."+" . AD.65535 |
00000BF0: A7 20 41 44 20 B2 20 41 44 AA 31 20 3A 20 89 20 |. AD . AD.1 : . |
00000C00: 31 33 31 32 30 00 2F 14 7C 33 8B 20 54 24 B2 22 |13120./.|3. T$."|
00000C10: 2D 22 20 AF 20 41 44 B1 30 20 A7 20 41 44 20 B2 |-" . AD.0 . AD .|
00000C20: 20 41 44 AB 31 20 3A 20 89 20 31 33 31 32 30 00 | AD.1 : . 13120.|
00000C30: 40 14 86 33 8B 20 54 24 B2 22 45 22 20 A7 20 8E |@..3. T$."E" . .|
00000C40: 00 5F 14 90 33 8B 20 54 24 B3 B1 22 49 22 20 A7 |._..3. T$.."I" .|
00000C50: 20 99 22 91 91 22 20 3A 89 20 31 33 31 32 30 00 | .".." :. 13120.|
00000C60: 7E 14 9A 33 8D 20 31 33 30 30 30 20 3A 20 97 20 |~..3. 13000 : . |
00000C70: 41 44 2C 48 20 3A 20 89 20 31 33 31 32 30 00 A2 |AD,H : . 13120..|
00000C80: 14 F4 33 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..3.************|
00000C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CA0: 2A 2A 00 BE 14 F5 33 8F 20 44 55 4D 50 20 4D 45 |**....3. DUMP ME|
00000CB0: 4D 4F 52 59 20 54 4F 20 53 43 52 45 45 4E 00 E2 |MORY TO SCREEN..|
00000CC0: 14 F6 33 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..3.************|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CE0: 2A 2A 00 EE 14 FE 33 8D 20 31 32 30 35 30 00 1B |**....3. 12050..|
00000CF0: 15 08 34 99 20 22 93 22 20 3A 20 81 20 58 31 20 |..4. "." : . X1 |
00000D00: B2 20 31 20 A4 20 31 38 20 3A 20 48 20 B2 20 41 |. 1 . 18 : H . A|
00000D10: 44 20 3A 20 8D 20 31 31 30 30 30 00 3E 15 1C 34 |D : . 11000.>..4|
00000D20: 4F 32 24 20 B2 20 22 22 20 3A 20 4F 31 24 20 B2 |O2$ . "" : O1$ .|
00000D30: 20 48 24 20 3A 20 4F 33 24 20 B2 20 22 22 00 4F | H$ : O3$ . "".O|
00000D40: 15 26 34 81 20 58 32 20 B2 20 30 20 A4 20 37 00 |.&4. X2 . 0 . 7.|
00000D50: 6B 15 30 34 8D 20 31 31 31 30 30 20 3A 20 4F 32 |k.04. 11100 : O2|
00000D60: 24 20 B2 20 4F 32 24 AA 22 20 22 00 98 15 3F 34 |$ . O2$." "...?4|
00000D70: 8B 20 48 B1 33 31 20 AF 20 48 B3 39 35 20 A7 20 |. H.31 . H.95 . |
00000D80: 4F 33 24 20 B2 20 4F 33 24 AA C7 28 48 29 20 3A |O3$ . O3$..(H) :|
00000D90: 20 89 20 31 33 33 38 30 00 AA 15 41 34 4F 33 24 | . 13380...A4O3$|
00000DA0: 20 B2 20 4F 33 24 AA 22 2E 22 00 B3 15 44 34 82 | . O3$."."...D4.|
00000DB0: 20 58 32 00 CE 15 4E 34 99 20 4F 31 24 20 A3 35 | X2...N4. O1$ .5|
00000DC0: 29 20 4F 32 24 20 A3 33 31 29 20 4F 33 24 00 D7 |) O2$ .31) O3$..|
00000DD0: 15 58 34 82 20 58 31 00 F6 15 62 34 99 20 3A 20 |.X4. X1...b4. : |
00000DE0: 8D 20 31 31 38 35 30 20 3A 20 8B 20 43 4F 20 A7 |. 11850 : . CO .|
00000DF0: 20 31 33 33 32 30 00 FC 15 80 34 8E 00 20 16 BC | 13320....4.. ..|
00000E00: 34 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |4.**************|
00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E20: 00 3B 16 BD 34 8F 20 4D 41 43 48 49 4E 45 20 43 |.;..4. MACHINE C|
00000E30: 4F 44 45 20 45 58 45 43 55 54 45 00 5F 16 BE 34 |ODE EXECUTE._..4|
00000E40: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000E60: 76 16 C6 34 8D 20 31 32 30 35 30 20 3A 20 9E 20 |v..4. 12050 : . |
00000E70: 41 44 20 3A 20 8E 00 9A 16 14 37 8F 2A 2A 2A 2A |AD : .....7.****|
00000E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B2 16 15 37 8F |**********....7.|
00000EA0: 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 53 41 | MACHINE CODE SA|
00000EB0: 56 45 00 D6 16 16 37 8F 2A 2A 2A 2A 2A 2A 2A 2A |VE....7.********|
00000EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000ED0: 2A 2A 2A 2A 2A 2A 00 F6 16 1E 37 8D 20 31 31 32 |******....7. 112|
00000EE0: 35 30 20 3A 20 8D 20 31 32 30 35 30 20 3A 20 8D |50 : . 12050 : .|
00000EF0: 20 31 31 32 30 30 00 3A 17 23 37 54 24 20 B2 20 | 11200.:.#7T$ . |
00000F00: 22 4E 22 20 3A 20 8B 20 44 45 56 B2 38 20 A7 20 |"N" : . DEV.8 . |
00000F10: 85 20 22 4F 56 45 52 57 52 49 54 45 20 45 58 49 |. "OVERWRITE EXI|
00000F20: 53 54 49 4E 47 20 46 49 4C 45 20 28 20 59 2F 4E |STING FILE ( Y/N|
00000F30: 20 29 20 3A 20 22 3B 20 54 24 00 59 17 24 37 8B | ) : "; T$.Y.$7.|
00000F40: 20 54 24 B2 22 59 22 20 A7 20 49 4E 24 20 B2 20 | T$."Y" . IN$ . |
00000F50: 22 40 30 3A 22 AA 49 4E 24 00 78 17 28 37 8B 20 |"@0:".IN$.x.(7. |
00000F60: 44 45 56 B2 38 20 A7 20 49 4E 24 20 B2 20 49 4E |DEV.8 . IN$ . IN|
00000F70: 24 AA 22 2C 53 2C 57 22 00 8C 17 2D 37 8B 20 53 |$.",S,W"...-7. S|
00000F80: 41 B1 45 41 20 A7 20 31 34 31 39 30 00 B0 17 32 |A.EA . 14190...2|
00000F90: 37 9F 20 32 2C 44 45 56 2C 32 2C 49 4E 24 20 3A |7. 2,DEV,2,IN$ :|
00000FA0: 20 98 20 32 2C 41 44 20 3A 20 98 20 32 2C 45 41 | . 2,AD : . 2,EA|
00000FB0: 00 DD 17 46 37 81 20 58 20 B2 20 41 44 20 A4 20 |...F7. X . AD . |
00000FC0: 45 41 20 3A 20 98 20 32 2C C2 28 58 29 20 3A 20 |EA : . 2,.(X) : |
00000FD0: 82 20 3A 20 98 20 32 20 3A 20 A0 20 32 00 E3 17 |. : . 2 : . 2...|
00000FE0: 6E 37 8E 00 07 18 DC 37 8F 2A 2A 2A 2A 2A 2A 2A |n7.....7.*******|
00000FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001000: 2A 2A 2A 2A 2A 2A 2A 00 1F 18 DD 37 8F 20 4D 41 |*******....7. MA|
00001010: 43 48 49 4E 45 20 43 4F 44 45 20 4C 4F 41 44 00 |CHINE CODE LOAD.|
00001020: 43 18 DE 37 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |C..7.***********|
00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001040: 2A 2A 2A 00 6C 18 E6 37 8D 20 31 31 32 35 30 20 |***.l..7. 11250 |
00001050: 3A 20 8B 20 44 45 56 B2 38 20 A7 20 49 4E 24 20 |: . DEV.8 . IN$ |
00001060: B2 20 49 4E 24 AA 22 2C 53 2C 52 22 00 A1 18 F0 |. IN$.",S,R"....|
00001070: 37 9F 20 32 2C 44 45 56 2C 30 2C 49 4E 24 20 3A |7. 2,DEV,0,IN$ :|
00001080: 20 84 20 32 2C 53 41 20 3A 20 84 20 32 2C 45 41 | . 2,SA : . 2,EA|
00001090: 20 3A 20 8B 20 53 54 20 A7 20 A0 20 32 20 3A 20 | : . ST . . 2 : |
000010A0: 8E 00 D1 18 0E 38 81 20 58 20 B2 20 53 41 20 A4 |.....8. X . SA .|
000010B0: 20 45 41 20 3A 20 84 20 32 2C 54 20 3A 20 97 20 | EA : . 2,T : . |
000010C0: 58 2C 54 20 3A 20 82 20 3A 20 A0 20 32 20 3A 20 |X,T : . : . 2 : |
000010D0: 8E 00 F5 18 C4 3B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....;.*********|
000010E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010F0: 2A 2A 2A 2A 2A 00 14 19 C5 3B 8F 20 41 44 44 20 |*****....;. ADD |
00001100: 4F 50 45 52 41 4E 44 20 49 4E 20 4F 50 20 54 4F |OPERAND IN OP TO|
00001110: 20 4F 31 24 00 38 19 C6 3B 8F 2A 2A 2A 2A 2A 2A | O1$.8..;.******|
00001120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001130: 2A 2A 2A 2A 2A 2A 2A 2A 00 5D 19 CE 3B 91 20 4F |********.]..;. O|
00001140: 50 AA 31 20 89 20 31 35 34 35 30 2C 31 35 35 30 |P.1 . 15450,1550|
00001150: 30 2C 31 35 35 35 30 2C 31 35 36 30 30 00 80 19 |0,15550,15600...|
00001160: E2 3B 8B 20 4F 50 B1 36 20 AF 20 4F 50 B3 31 30 |.;. OP.6 . OP.10|
00001170: 20 A7 20 4F 31 24 20 B2 20 4F 31 24 AA 22 28 22 | . O1$ . O1$."("|
00001180: 00 8C 19 EC 3B 8D 20 31 31 31 30 30 00 A8 19 F6 |....;. 11100....|
00001190: 3B 4F 31 24 20 B2 20 4F 31 24 AA 22 24 22 20 3A |;O1$ . O1$."$" :|
000011A0: 20 54 24 20 B2 20 48 24 00 BB 19 00 3C 8B 20 4F | T$ . H$....<. O|
000011B0: 50 B3 39 20 A7 20 31 35 33 39 30 00 C7 19 0A 3C |P.9 . 15390....<|
000011C0: 8D 20 31 31 31 30 30 00 D8 19 14 3C 4F 31 24 20 |. 11100....<O1$ |
000011D0: B2 20 4F 31 24 AA 48 24 00 E9 19 1E 3C 4F 31 24 |. O1$.H$....<O1$|
000011E0: 20 B2 20 4F 31 24 AA 54 24 00 0B 1A 28 3C 8B 20 | . O1$.T$...(<. |
000011F0: 4F 50 B2 39 20 B0 20 4F 50 B2 38 20 A7 20 4F 31 |OP.9 . OP.8 . O1|
00001200: 24 20 B2 20 4F 31 24 AA 22 29 22 00 31 1A 32 3C |$ . O1$.")".1.2<|
00001210: 8B 20 4F 50 AB B5 28 4F 50 AD 33 29 AC 33 B2 31 |. OP..(OP.3).3.1|
00001220: 20 A7 20 4F 31 24 20 B2 20 4F 31 24 AA 22 2C 58 | . O1$ . O1$.",X|
00001230: 22 00 57 1A 3C 3C 8B 20 4F 50 AB B5 28 4F 50 AD |".W.<<. OP..(OP.|
00001240: 33 29 AC 33 B2 32 20 A7 20 4F 31 24 20 B2 20 4F |3).3.2 . O1$ . O|
00001250: 31 24 AA 22 2C 59 22 00 72 1A 46 3C 8B 20 4F 50 |1$.",Y".r.F<. OP|
00001260: B2 37 20 A7 20 4F 31 24 20 B2 20 4F 31 24 AA 22 |.7 . O1$ . O1$."|
00001270: 29 22 00 78 1A 50 3C 8E 00 9C 1A 5A 3C 8F 2A 2A |)".x.P<....Z<.**|
00001280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B5 1A 5B |************...[|
000012A0: 3C 8F 20 41 43 43 55 4D 55 4C 41 54 4F 52 20 28 |<. ACCUMULATOR (|
000012B0: 4F 50 3D 30 29 00 D9 1A 5C 3C 8F 2A 2A 2A 2A 2A |OP=0)...\<.*****|
000012C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EB 1A 64 3C 4F 31 |*********...d<O1|
000012E0: 24 20 B2 20 4F 31 24 AA 22 41 22 00 00 1B 8C 3C |$ . O1$."A"....<|
000012F0: 8F 20 49 4D 50 4C 49 45 44 20 28 4F 50 3D 31 29 |. IMPLIED (OP=1)|
00001300: 00 06 1B 96 3C 8E 00 2A 1B BE 3C 8F 2A 2A 2A 2A |....<..*..<.****|
00001310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 1B BF 3C 8F |**********.A..<.|
00001330: 20 49 4D 4D 45 44 49 41 54 45 20 28 4F 50 3D 32 | IMMEDIATE (OP=2|
00001340: 29 00 65 1B C0 3C 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |).e..<.*********|
00001350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001360: 2A 2A 2A 2A 2A 00 71 1B C8 3C 8D 20 31 31 31 30 |*****.q..<. 1110|
00001370: 30 00 87 1B D2 3C 4F 31 24 20 B2 20 4F 31 24 AA |0....<O1$ . O1$.|
00001380: 22 23 24 22 AA 48 24 00 8D 1B DC 3C 8E 00 B1 1B |"#$".H$....<....|
00001390: F0 3C 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.<.*************|
000013A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013B0: 2A 00 C7 1B F1 3C 8F 20 52 45 4C 41 54 49 56 45 |*....<. RELATIVE|
000013C0: 20 28 4F 50 3D 33 29 00 EB 1B F2 3C 8F 2A 2A 2A | (OP=3)....<.***|
000013D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F7 1B FA 3C |***********....<|
000013F0: 8D 20 31 31 31 30 30 00 0F 1C 04 3D 8B 20 48 B1 |. 11100....=. H.|
00001400: 31 32 37 20 A7 20 48 20 B2 20 48 AB 32 35 36 00 |127 . H . H.256.|
00001410: 1C 1C 0E 3D 48 20 B2 20 48 AA 41 44 00 28 1C 18 |...=H . H.AD.(..|
00001420: 3D 8D 20 31 31 30 30 30 00 3D 1C 22 3D 4F 31 24 |=. 11000.=."=O1$|
00001430: 20 B2 20 4F 31 24 AA 22 24 22 AA 48 24 00 43 1C | . O1$."$".H$.C.|
00001440: 2C 3D 8E 00 67 1C 54 3D 8F 2A 2A 2A 2A 2A 2A 2A |,=..g.T=.*******|
00001450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001460: 2A 2A 2A 2A 2A 2A 2A 00 85 1C 55 3D 8F 20 44 49 |*******...U=. DI|
00001470: 53 41 53 53 45 4D 42 4C 45 20 49 4E 53 54 52 55 |SASSEMBLE INSTRU|
00001480: 43 54 49 4F 4E 00 A9 1C 56 3D 8F 2A 2A 2A 2A 2A |CTION...V=.*****|
00001490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B6 1C 5E 3D 4F 32 |*********...^=O2|
000014B0: 24 20 B2 20 22 22 00 CC 1C 63 3D 8D 20 31 31 31 |$ . ""...c=. 111|
000014C0: 30 30 20 3A 20 48 20 B2 20 48 AA 31 00 E0 1C 68 |00 : H . H.1...h|
000014D0: 3D 8B 20 48 B1 32 35 35 20 A7 20 48 20 B2 20 33 |=. H.255 . H . 3|
000014E0: 00 F9 1C 72 3D 54 20 B2 20 C6 28 CA 28 54 41 24 |...r=T . .(.(TA$|
000014F0: 28 30 29 2C 48 2C 31 29 29 00 19 1D 86 3D 4F 31 |(0),H,1))....=O1|
00001500: 24 20 B2 20 CA 28 54 41 24 28 32 29 2C 54 AC 33 |$ . .(TA$(2),T.3|
00001510: AA 31 2C 33 29 AA 22 20 22 00 3C 1D 90 3D 4F 50 |.1,3)." ".<..=OP|
00001520: 20 B2 20 C6 28 CA 28 54 41 24 28 31 29 2C B5 28 | . .(.(TA$(1),.(|
00001530: 28 48 AA 31 29 AD 32 29 2C 31 29 29 00 5A 1D 9A |(H.1).2),1)).Z..|
00001540: 3D 8B 20 28 48 20 AF 20 31 29 20 B2 31 20 A7 20 |=. (H . 1) .1 . |
00001550: 4F 50 20 B2 20 4F 50 AD 31 36 00 6B 1D A4 3D 4F |OP . OP.16.k..=O|
00001560: 50 20 B2 20 4F 50 20 AF 20 31 35 00 71 1D AE 3D |P . OP . 15.q..=|
00001570: 8E 00 95 1D B0 3D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....=.*********|
00001580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001590: 2A 2A 2A 2A 2A 00 B9 1D B8 3D 8F 2A 2A 2A 2A 2A |*****....=.*****|
000015A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D7 1D B9 3D 8F 20 |*********....=. |
000015C0: 44 49 53 41 53 53 45 4D 42 4C 45 20 4D 45 4D 4F |DISASSEMBLE MEMO|
000015D0: 52 59 20 41 52 45 41 00 FB 1D BA 3D 8F 2A 2A 2A |RY AREA....=.***|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 07 1E C2 3D |***********....=|
00001600: 8D 20 31 32 30 35 30 00 1F 1E CC 3D 99 22 93 22 |. 12050....=."."|
00001610: 20 3A 20 81 20 49 20 B2 20 31 20 A4 20 32 30 00 | : . I . 1 . 20.|
00001620: 41 1E D1 3D 48 20 B2 20 41 44 20 3A 20 8D 20 31 |A..=H . AD : . 1|
00001630: 31 30 30 30 20 3A 20 99 20 48 24 20 A3 36 29 20 |1000 : . H$ .6) |
00001640: 3B 00 57 1E D6 3D 8D 20 31 35 37 30 30 20 3A 20 |;.W..=. 15700 : |
00001650: 8D 20 31 35 33 30 30 00 6A 1E EA 3D 99 20 4F 32 |. 15300.j..=. O2|
00001660: 24 20 A3 31 34 29 20 4F 31 24 00 72 1E F4 3D 82 |$ .14) O1$.r..=.|
00001670: 20 49 00 78 1E F9 3D 99 00 84 1E FE 3D 8D 20 31 | I.x..=.....=. 1|
00001680: 31 38 35 30 00 95 1E 08 3E 8B 20 43 4F 20 A7 20 |1850....>. CO . |
00001690: 31 35 38 32 30 00 9B 1E 12 3E 8E 00 BF 1E 38 4A |15820....>....8J|
000016A0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
000016B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000016C0: DE 1E 39 4A 8F 20 49 4E 49 54 41 4C 49 53 45 20 |..9J. INITALISE |
000016D0: 44 45 43 4F 44 45 52 20 54 41 42 4C 45 53 00 02 |DECODER TABLES..|
000016E0: 1F 3A 4A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.:J.************|
000016F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001700: 2A 2A 00 10 1F 3D 4A 42 41 53 45 20 B2 20 31 36 |**...=JBASE . 16|
00001710: 00 2E 1F 3F 4A 96 A5 20 44 45 43 28 58 29 20 B2 |...?J.. DEC(X) .|
00001720: 20 58 AB 34 38 AA 28 58 B1 35 37 29 AC 37 00 3B | X.48.(X.57).7.;|
00001730: 1F 42 4A 86 20 54 41 24 28 34 29 00 6A 1F 43 4A |.BJ. TA$(4).j.CJ|
00001740: 54 24 20 B2 20 20 20 20 22 30 41 32 32 33 38 33 |T$ . "0A22383|
00001750: 38 33 38 32 32 30 32 33 38 32 34 32 32 30 32 33 |8382202382422023|
00001760: 38 33 38 32 32 30 32 33 38 22 00 99 1F 44 4A 54 |838220238"...DJT|
00001770: 24 20 B2 20 54 24 AA 22 30 39 32 32 33 38 33 38 |$ . T$."09223838|
00001780: 33 38 32 32 30 32 33 38 30 44 32 32 33 38 33 38 |382202380D223838|
00001790: 33 38 32 32 30 32 33 38 22 00 C8 1F 45 4A 54 24 |38220238"...EJT$|
000017A0: 20 B2 20 54 24 AA 22 31 43 30 31 33 38 33 38 30 | . T$."1C0138380|
000017B0: 36 30 31 32 37 33 38 32 36 30 31 32 37 33 38 30 |6012738260127380|
000017C0: 36 30 31 32 37 33 38 22 00 F7 1F 46 4A 54 24 20 |6012738"...FJT$ |
000017D0: B2 20 54 24 AA 22 30 37 30 31 33 38 33 38 33 38 |. T$."0701383838|
000017E0: 30 31 32 37 33 38 32 43 30 31 33 38 33 38 33 38 |0127382C01383838|
000017F0: 30 31 32 37 33 38 22 00 26 20 47 4A 54 24 20 B2 |012738".& GJT$ .|
00001800: 20 54 24 AA 22 32 39 31 37 33 38 33 38 33 38 31 | T$."29173838381|
00001810: 37 32 30 33 38 32 33 31 37 32 30 33 38 31 42 31 |72038231720381B1|
00001820: 37 32 30 33 38 22 00 55 20 48 4A 54 24 20 B2 20 |72038".U HJT$ . |
00001830: 54 24 AA 22 30 42 31 37 33 38 33 38 33 38 31 37 |T$."0B1738383817|
00001840: 32 30 33 38 30 46 31 37 33 38 33 38 33 38 31 37 |20380F1738383817|
00001850: 32 30 33 38 22 00 84 20 49 4A 54 24 20 B2 20 54 |2038".. IJT$ . T|
00001860: 24 AA 22 32 41 30 30 33 38 33 38 33 38 30 30 32 |$."2A00383838002|
00001870: 38 33 38 32 35 30 30 32 38 33 38 31 42 30 30 32 |838250028381B002|
00001880: 38 33 38 22 00 9F 20 4A 4A 8D 20 31 32 32 30 30 |838".. JJ. 12200|
00001890: 20 3A 20 54 41 24 28 30 29 20 B2 20 54 31 24 00 | : TA$(0) . T1$.|
000018A0: CE 20 4B 4A 54 24 20 B2 20 20 20 20 22 30 43 30 |. KJT$ . "0C0|
000018B0: 30 33 38 33 38 33 38 30 30 32 38 33 38 32 45 30 |03838380028382E0|
000018C0: 30 33 38 33 38 33 38 30 30 32 38 33 38 22 00 FD |0383838002838"..|
000018D0: 20 4C 4A 54 24 20 B2 20 54 24 AA 22 33 38 32 46 | LJT$ . T$."382F|
000018E0: 33 38 33 38 33 31 32 46 33 30 33 38 31 36 33 38 |3838312F30381638|
000018F0: 33 35 33 38 33 31 32 46 33 30 33 38 22 00 2C 21 |3538312F3038".,!|
00001900: 4D 4A 54 24 20 B2 20 54 24 AA 22 30 33 32 46 33 |MJT$ . T$."032F3|
00001910: 38 33 38 33 31 32 46 33 30 33 38 33 37 32 46 33 |838312F3038372F3|
00001920: 36 33 38 33 38 32 46 33 38 33 38 22 00 5B 21 4E |638382F3838".[!N|
00001930: 4A 54 24 20 B2 20 54 24 AA 22 31 46 31 44 31 45 |JT$ . T$."1F1D1E|
00001940: 33 38 31 46 31 44 31 45 33 38 33 33 31 44 33 32 |381F1D1E38331D32|
00001950: 33 38 31 46 31 44 31 45 33 38 22 00 8A 21 4F 4A |381F1D1E38"..!OJ|
00001960: 54 24 20 B2 20 54 24 AA 22 30 34 31 44 33 38 33 |T$ . T$."041D383|
00001970: 38 31 46 31 44 31 45 33 38 31 30 31 44 33 34 33 |81F1D1E38101D343|
00001980: 38 31 46 31 44 31 45 33 38 22 00 B9 21 50 4A 54 |81F1D1E38"..!PJT|
00001990: 24 20 B2 20 54 24 AA 22 31 33 31 31 33 38 33 38 |$ . T$."13113838|
000019A0: 31 33 31 31 31 34 33 38 31 41 31 31 31 35 33 38 |131114381A111538|
000019B0: 31 33 31 31 31 34 33 38 22 00 E8 21 51 4A 54 24 |13111438"..!QJT$|
000019C0: 20 B2 20 54 24 AA 22 30 38 31 31 33 38 33 38 33 | . T$."081138383|
000019D0: 38 31 31 31 34 33 38 30 45 31 31 33 38 33 38 33 |81114380E1138383|
000019E0: 38 31 31 31 34 33 38 22 00 0A 22 52 4A 8D 20 31 |8111438".."RJ. 1|
000019F0: 32 32 30 30 20 3A 20 54 41 24 28 30 29 20 B2 20 |2200 : TA$(0) . |
00001A00: 54 41 24 28 30 29 AA 54 31 24 00 39 22 53 4A 54 |TA$(0).T1$.9"SJT|
00001A10: 24 20 B2 20 20 20 20 22 31 32 32 42 33 38 33 38 |$ . "122B3838|
00001A20: 31 32 32 42 31 38 33 38 31 39 32 42 32 31 33 38 |122B1838192B2138|
00001A30: 31 32 32 42 31 38 33 38 22 00 66 22 54 4A 54 24 |122B1838".f"TJT$|
00001A40: 20 B2 20 54 24 AA 22 30 35 32 42 33 38 33 38 33 | . T$."052B38383|
00001A50: 38 32 42 31 38 33 38 32 44 32 42 33 38 33 38 33 |82B18382D2B38383|
00001A60: 38 32 42 31 38 22 00 88 22 55 4A 8D 20 31 32 32 |82B18".."UJ. 122|
00001A70: 30 30 20 3A 20 54 41 24 28 30 29 20 B2 20 54 41 |00 : TA$(0) . TA|
00001A80: 24 28 30 29 AA 54 31 24 00 B7 22 56 4A 54 24 20 |$(0).T1$.."VJT$ |
00001A90: B2 20 20 20 20 22 31 37 31 31 31 36 36 31 31 32 |. "1711166112|
00001AA0: 30 31 31 43 43 31 33 38 31 31 31 34 34 31 31 42 |011CC1381114411B|
00001AB0: 31 31 31 41 41 31 22 00 E6 22 57 4A 54 24 20 B2 |111AA1".."WJT$ .|
00001AC0: 20 54 24 AA 22 43 37 31 31 36 36 36 31 31 32 30 | T$."C7116661120|
00001AD0: 31 43 43 43 31 33 38 31 31 31 34 34 31 31 42 31 |1CCC1381114411B1|
00001AE0: 31 31 41 41 31 22 00 15 23 58 4A 54 24 20 B2 20 |11AA1"..#XJT$ . |
00001AF0: 54 24 AA 22 31 37 31 31 31 36 36 31 31 32 30 31 |T$."171116611201|
00001B00: 43 43 43 31 33 38 31 31 31 34 34 31 31 42 31 31 |CCC1381114411B11|
00001B10: 31 41 41 31 22 00 44 23 59 4A 54 24 20 B2 20 54 |1AA1".D#YJT$ . T|
00001B20: 24 AA 22 31 37 31 31 31 36 36 31 31 32 30 31 39 |$."1711166112019|
00001B30: 43 43 31 33 38 31 31 31 34 34 31 31 42 31 31 31 |CC1381114411B111|
00001B40: 41 41 31 22 00 73 23 5A 4A 54 24 20 B2 20 54 24 |AA1".s#ZJT$ . T$|
00001B50: AA 22 31 37 31 31 36 36 36 31 31 31 31 31 43 43 |."171166611111CC|
00001B60: 43 31 33 38 31 31 34 34 35 31 31 42 31 31 31 41 |C1381144511B111A|
00001B70: 31 31 22 00 A2 23 5B 4A 54 24 20 B2 20 54 24 AA |11"..#[JT$ . T$.|
00001B80: 22 32 37 32 31 36 36 36 31 31 32 31 31 43 43 43 |"272166611211CCC|
00001B90: 31 33 38 31 31 34 34 35 31 31 42 31 31 41 41 42 |1381144511B11AAB|
00001BA0: 31 22 00 D1 23 5C 4A 54 24 20 B2 20 54 24 AA 22 |1"..#\JT$ . T$."|
00001BB0: 32 37 31 31 36 36 36 31 31 32 31 31 43 43 43 31 |271166611211CCC1|
00001BC0: 33 38 31 31 31 34 34 31 31 42 31 31 31 41 41 31 |381114411B111AA1|
00001BD0: 22 00 FE 23 5D 4A 54 24 20 B2 20 54 24 AA 22 32 |"..#]JT$ . T$."2|
00001BE0: 37 31 31 36 36 36 31 31 32 31 31 43 43 43 31 33 |71166611211CCC13|
00001BF0: 38 31 31 31 34 34 31 31 42 31 31 31 41 22 00 20 |81114411B111A". |
00001C00: 24 5E 4A 8D 20 31 32 32 30 30 20 3A 20 54 41 24 |$^J. 12200 : TA$|
00001C10: 28 31 29 20 B2 20 54 31 24 AA C7 28 31 36 30 29 |(1) . T1$..(160)|
00001C20: 00 5E 24 60 4A 54 41 24 28 32 29 20 B2 20 20 20 |.^$`JTA$(2) . |
00001C30: 20 20 20 20 20 22 41 44 43 41 4E 44 41 53 4C 42 | "ADCANDASLB|
00001C40: 43 43 42 43 53 42 45 51 42 49 54 42 4D 49 42 4E |CCBCSBEQBITBMIBN|
00001C50: 45 42 50 4C 42 52 4B 42 56 43 42 56 53 22 00 9C |EBPLBRKBVCBVS"..|
00001C60: 24 61 4A 54 41 24 28 32 29 20 B2 20 54 41 24 28 |$aJTA$(2) . TA$(|
00001C70: 32 29 AA 22 43 4C 43 43 4C 44 43 4C 49 43 4C 56 |2)."CLCCLDCLICLV|
00001C80: 43 4D 50 43 50 58 43 50 59 44 45 43 44 45 58 44 |CMPCPXCPYDECDEXD|
00001C90: 45 59 45 4F 52 49 4E 43 49 4E 58 22 00 DA 24 62 |EYEORINCINX"..$b|
00001CA0: 4A 54 41 24 28 32 29 20 B2 20 54 41 24 28 32 29 |JTA$(2) . TA$(2)|
00001CB0: AA 22 49 4E 59 4A 4D 50 4A 53 52 4C 44 41 4C 44 |."INYJMPJSRLDALD|
00001CC0: 58 4C 44 59 4C 53 52 4E 4F 50 4F 52 41 50 48 41 |XLDYLSRNOPORAPHA|
00001CD0: 50 48 50 50 4C 41 50 4C 50 22 00 18 25 63 4A 54 |PHPPLAPLP"..%cJT|
00001CE0: 41 24 28 32 29 20 B2 20 54 41 24 28 32 29 AA 22 |A$(2) . TA$(2)."|
00001CF0: 52 4F 4C 52 4F 52 52 54 49 52 54 53 53 42 43 53 |ROLRORRTIRTSSBCS|
00001D00: 45 43 53 45 44 53 45 49 53 54 41 53 54 58 53 54 |ECSEDSEISTASTXST|
00001D10: 59 54 41 58 54 41 59 22 00 3E 25 64 4A 54 41 24 |YTAXTAY".>%dJTA$|
00001D20: 28 32 29 20 B2 20 54 41 24 28 32 29 AA 22 54 53 |(2) . TA$(2)."TS|
00001D30: 58 54 58 41 54 58 53 54 59 41 3F 3F 3F 22 00 6A |XTXATXSTYA???".j|
00001D40: 25 66 4A 54 41 24 28 32 29 20 B2 20 54 41 24 28 |%fJTA$(2) . TA$(|
00001D50: 32 29 AA 22 42 59 54 57 52 44 44 42 59 45 4E 44 |2)."BYTWRDDBYEND|
00001D60: 4F 52 47 50 52 54 53 59 4D 22 00 99 25 67 4A 54 |ORGPRTSYM"..%gJT|
00001D70: 24 20 B2 20 20 20 20 22 36 31 32 31 30 36 39 30 |$ . "61210690|
00001D80: 42 30 46 30 32 34 33 30 44 30 31 30 30 30 35 30 |B0F02430D0100050|
00001D90: 37 30 31 38 44 38 35 38 22 00 C8 25 68 4A 54 24 |7018D858"..%hJT$|
00001DA0: 20 B2 20 54 24 AA 22 42 38 43 44 45 43 43 43 43 | . T$."B8CDECCCC|
00001DB0: 45 43 41 38 38 34 44 45 45 45 38 43 38 34 43 32 |ECA884DEEE8C84C2|
00001DC0: 30 41 44 41 45 41 43 22 00 F7 25 69 4A 54 24 20 |0ADAEAC"..%iJT$ |
00001DD0: B2 20 54 24 AA 22 34 41 45 41 30 44 34 38 30 38 |. T$."4AEA0D4808|
00001DE0: 36 38 32 38 32 41 36 41 34 30 36 30 45 44 33 38 |68282A6A4060ED38|
00001DF0: 46 38 37 38 38 44 22 00 16 26 6A 4A 54 24 20 B2 |F8788D"..&jJT$ .|
00001E00: 20 54 24 AA 22 38 45 38 43 41 41 41 38 42 41 38 | T$."8E8CAAA8BA8|
00001E10: 41 39 41 39 38 22 00 31 26 6B 4A 8D 20 31 32 32 |A9A98".1&kJ. 122|
00001E20: 30 30 20 3A 20 54 41 24 28 33 29 20 B2 20 54 31 |00 : TA$(3) . T1|
00001E30: 24 00 60 26 6C 4A 54 24 20 B2 20 20 20 20 22 46 |$.`&lJT$ . "F|
00001E40: 46 31 31 46 46 46 46 46 46 30 39 30 41 46 46 46 |F11FFFFFF090AFFF|
00001E50: 46 31 44 30 45 46 46 46 46 30 35 31 45 46 46 22 |F1D0EFFFF051EFF"|
00001E60: 00 8F 26 6D 4A 54 24 20 B2 20 54 24 AA 22 46 46 |..&mJT$ . T$."FF|
00001E70: 31 35 46 46 46 46 46 46 46 46 46 46 46 46 46 46 |15FFFFFFFFFFFFFF|
00001E80: 30 31 46 46 46 46 46 46 31 39 31 36 46 46 22 00 |01FFFFFF1916FF".|
00001E90: BE 26 6E 4A 54 24 20 B2 20 54 24 AA 22 46 46 32 |.&nJT$ . T$."FF2|
00001EA0: 44 46 46 46 46 32 43 32 39 33 45 46 46 46 46 33 |DFFFF2C293EFFFF3|
00001EB0: 44 32 45 46 46 46 46 32 35 32 36 46 46 22 00 ED |D2EFFFF2526FF"..|
00001EC0: 26 6F 4A 54 24 20 B2 20 54 24 AA 22 46 46 33 35 |&oJT$ . T$."FF35|
00001ED0: 46 46 46 46 46 46 46 46 46 46 46 46 46 46 33 31 |FFFFFFFFFFFFFF31|
00001EE0: 46 46 46 46 46 46 33 39 33 36 46 46 22 00 1C 27 |FFFFFF3936FF"..'|
00001EF0: 70 4A 54 24 20 B2 20 54 24 AA 22 46 46 35 31 46 |pJT$ . T$."FF51F|
00001F00: 46 46 46 46 46 34 39 35 45 46 46 46 46 35 44 34 |FFFFF495EFFFF5D4|
00001F10: 45 46 46 36 43 34 35 34 36 46 46 22 00 4B 27 71 |EFF6C4546FF".K'q|
00001F20: 4A 54 24 20 B2 20 54 24 AA 22 46 46 35 35 46 46 |JT$ . T$."FF55FF|
00001F30: 46 46 46 46 46 46 46 46 46 46 46 46 34 31 46 46 |FFFFFFFFFFFF41FF|
00001F40: 46 46 46 46 35 39 35 36 46 46 22 00 7A 27 72 4A |FFFF5956FF".z'rJ|
00001F50: 54 24 20 B2 20 54 24 AA 22 46 46 36 44 46 46 46 |T$ . T$."FF6DFFF|
00001F60: 46 46 46 36 39 37 45 46 46 46 46 37 44 36 45 46 |FFF697EFFFF7D6EF|
00001F70: 46 46 46 36 35 36 36 46 46 22 00 95 27 73 4A 8D |FFF6566FF"..'sJ.|
00001F80: 20 31 32 32 30 30 20 3A 20 54 41 24 28 34 29 20 | 12200 : TA$(4) |
00001F90: B2 20 54 31 24 00 C4 27 74 4A 54 24 20 B2 20 20 |. T1$..'tJT$ . |
00001FA0: 20 20 22 46 46 37 35 46 46 46 46 46 46 46 46 46 | "FF75FFFFFFFFF|
00001FB0: 46 46 46 46 46 37 31 46 46 46 46 46 46 37 39 37 |FFFFF71FFFFFF797|
00001FC0: 36 46 46 22 00 F3 27 75 4A 54 24 20 B2 20 54 24 |6FF"..'uJT$ . T$|
00001FD0: AA 22 46 46 39 31 46 46 46 46 39 34 39 44 39 36 |."FF91FFFF949D96|
00001FE0: 46 46 46 46 46 46 46 46 46 46 38 34 38 35 38 36 |FFFFFFFFFF848586|
00001FF0: 46 46 22 00 22 28 76 4A 54 24 20 B2 20 54 24 AA |FF"."(vJT$ . T$.|
00002000: 22 46 46 39 35 46 46 46 46 46 46 46 46 46 46 46 |"FF95FFFFFFFFFFF|
00002010: 46 46 46 38 31 46 46 46 46 46 46 39 39 46 46 46 |FFF81FFFFFF99FFF|
00002020: 46 22 00 51 28 77 4A 54 24 20 B2 20 54 24 AA 22 |F".Q(wJT$ . T$."|
00002030: 42 43 42 31 42 45 46 46 41 30 41 39 41 32 46 46 |BCB1BEFFA0A9A2FF|
00002040: 46 46 42 44 46 46 41 46 41 34 41 35 41 36 46 46 |FFBDFFAFA4A5A6FF|
00002050: 22 00 80 28 78 4A 54 24 20 B2 20 54 24 AA 22 46 |"..(xJT$ . T$."F|
00002060: 46 42 35 46 46 46 46 46 46 46 46 46 46 46 46 46 |FB5FFFFFFFFFFFFF|
00002070: 46 41 31 46 46 46 46 42 34 42 39 42 36 46 46 22 |FA1FFFFB4B9B6FF"|
00002080: 00 AF 28 79 4A 54 24 20 B2 20 54 24 AA 22 46 46 |..(yJT$ . T$."FF|
00002090: 44 31 46 46 46 46 43 30 43 39 44 45 46 46 46 46 |D1FFFFC0C9DEFFFF|
000020A0: 44 44 46 46 46 46 43 34 43 35 43 36 46 46 22 00 |DDFFFFC4C5C6FF".|
000020B0: DE 28 7A 4A 54 24 20 B2 20 54 24 AA 22 46 46 44 |.(zJT$ . T$."FFD|
000020C0: 35 46 46 46 46 46 46 46 46 46 46 46 46 46 46 43 |5FFFFFFFFFFFFFFC|
000020D0: 31 46 46 46 46 46 46 44 39 44 36 46 46 22 00 00 |1FFFFFFD9D6FF"..|
000020E0: 29 7B 4A 8D 20 31 32 32 30 30 20 3A 20 54 41 24 |){J. 12200 : TA$|
000020F0: 28 34 29 20 B2 20 54 41 24 28 34 29 AA 54 31 24 |(4) . TA$(4).T1$|
00002100: 00 2F 29 7C 4A 54 24 20 B2 20 20 20 20 22 46 46 |./)|JT$ . "FF|
00002110: 46 31 46 46 46 46 45 30 45 39 46 45 46 46 46 46 |F1FFFFE0E9FEFFFF|
00002120: 46 44 46 46 46 46 45 34 45 35 45 36 46 46 22 00 |FDFFFFE4E5E6FF".|
00002130: 5C 29 7D 4A 54 24 20 B2 20 54 24 AA 22 46 46 46 |\)}JT$ . T$."FFF|
00002140: 35 46 46 46 46 46 46 46 46 46 46 46 46 46 46 45 |5FFFFFFFFFFFFFFE|
00002150: 31 46 46 46 46 46 46 46 39 46 36 22 00 7E 29 7E |1FFFFFFF9F6".~)~|
00002160: 4A 8D 20 31 32 32 30 30 20 3A 20 54 41 24 28 34 |J. 12200 : TA$(4|
00002170: 29 20 B2 20 54 41 24 28 34 29 AA 54 31 24 00 A3 |) . TA$(4).T1$..|
00002180: 29 88 4A 53 4D 20 B2 20 35 30 20 3A 20 53 45 20 |).JSM . 50 : SE |
00002190: B2 20 30 20 3A 20 86 20 53 54 41 42 4C 45 24 28 |. 0 : . STABLE$(|
000021A0: 53 4D 29 00 B2 29 9D 4A 86 20 45 52 52 24 28 31 |SM)..).J. ERR$(1|
000021B0: 38 29 00 DB 29 9F 4A 45 52 52 24 28 31 29 20 B2 |8)..).JERR$(1) .|
000021C0: 20 22 53 49 4E 47 4C 45 20 42 59 54 45 20 4F 55 | "SINGLE BYTE OU|
000021D0: 54 20 4F 46 20 52 41 4E 47 45 22 00 04 2A A0 4A |T OF RANGE"..*.J|
000021E0: 45 52 52 24 28 32 29 20 B2 20 22 44 4F 55 42 4C |ERR$(2) . "DOUBL|
000021F0: 45 20 42 59 54 45 20 4F 55 54 20 4F 46 20 52 41 |E BYTE OUT OF RA|
00002200: 4E 47 45 22 00 2D 2A A1 4A 45 52 52 24 28 33 29 |NGE".-*.JERR$(3)|
00002210: 20 B2 20 22 49 4E 56 41 4C 49 44 20 4F 50 52 41 | . "INVALID OPRA|
00002220: 4E 44 20 4F 52 20 4F 50 43 4F 44 45 22 00 4E 2A |ND OR OPCODE".N*|
00002230: A2 4A 45 52 52 24 28 34 29 20 B2 20 22 49 4E 56 |.JERR$(4) . "INV|
00002240: 41 4C 49 44 20 4F 50 45 52 41 54 4F 52 22 00 72 |ALID OPERATOR".r|
00002250: 2A A3 4A 45 52 52 24 28 35 29 20 B2 20 22 49 4E |*.JERR$(5) . "IN|
00002260: 44 45 58 20 49 53 20 4E 4F 54 20 58 20 4F 52 20 |DEX IS NOT X OR |
00002270: 59 22 00 9A 2A A4 4A 45 52 52 24 28 36 29 20 B2 |Y"..*.JERR$(6) .|
00002280: 20 22 4C 41 42 45 4C 20 4E 4F 54 20 41 4C 50 48 | "LABEL NOT ALPH|
00002290: 41 2D 4E 55 4D 45 52 49 43 22 00 C0 2A A5 4A 45 |A-NUMERIC"..*.JE|
000022A0: 52 52 24 28 37 29 20 B2 20 22 49 4E 43 4F 52 52 |RR$(7) . "INCORR|
000022B0: 45 43 54 20 4E 55 4D 42 45 52 20 42 41 53 45 22 |ECT NUMBER BASE"|
000022C0: 00 E4 2A A6 4A 45 52 52 24 28 38 29 20 B2 20 22 |..*.JERR$(8) . "|
000022D0: 4C 41 42 45 4C 20 44 45 46 49 4E 45 44 20 54 57 |LABEL DEFINED TW|
000022E0: 49 43 45 22 00 09 2B A8 4A 45 52 52 24 28 31 30 |ICE"..+.JERR$(10|
000022F0: 29 20 B2 20 22 42 52 41 4E 43 48 20 4F 55 54 20 |) . "BRANCH OUT |
00002300: 4F 46 20 52 41 4E 47 45 22 00 2A 2B A9 4A 45 52 |OF RANGE".*+.JER|
00002310: 52 24 28 31 31 29 20 B2 20 22 55 4E 44 45 46 49 |R$(11) . "UNDEFI|
00002320: 4E 45 44 20 4C 41 42 45 4C 22 00 55 2B AA 4A 45 |NED LABEL".U+.JE|
00002330: 52 52 24 28 31 32 29 20 B2 20 22 4F 4E 4C 59 20 |RR$(12) . "ONLY |
00002340: 53 49 4E 47 4C 45 20 43 48 52 2E 20 45 58 50 45 |SINGLE CHR. EXPE|
00002350: 43 54 45 44 22 00 7A 2B AC 4A 45 52 52 24 28 31 |CTED".z+.JERR$(1|
00002360: 34 29 20 B2 20 22 4F 55 54 20 4F 46 20 53 59 4D |4) . "OUT OF SYM|
00002370: 42 4F 4C 20 53 50 41 43 45 22 00 9C 2B AD 4A 45 |BOL SPACE"..+.JE|
00002380: 52 52 24 28 31 35 29 20 B2 20 22 44 49 56 49 53 |RR$(15) . "DIVIS|
00002390: 49 4F 4E 20 42 59 20 5A 45 52 4F 22 00 DB 2B B0 |ION BY ZERO"..+.|
000023A0: 4A 45 52 52 24 28 31 38 29 20 B2 20 22 41 44 44 |JERR$(18) . "ADD|
000023B0: 52 45 53 53 49 4E 47 20 4D 4F 44 45 20 4E 4F 54 |RESSING MODE NOT|
000023C0: 20 41 56 41 49 4C 42 4C 45 20 57 49 54 48 20 54 | AVAILBLE WITH T|
000023D0: 48 49 53 20 4F 50 43 4F 44 45 22 00 F4 2B 0C 4E |HIS OPCODE"..+.N|
000023E0: 86 20 46 49 24 28 32 35 34 29 20 3A 20 8D 20 32 |. FI$(254) : . 2|
000023F0: 34 33 30 30 00 FA 2B 16 4E 8E 00 1E 2C 20 4E 8F |4300..+.N..., N.|
00002400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3E |**************.>|
00002420: 2C 21 4E 8F 20 47 45 4E 45 52 41 54 45 20 41 53 |,!N. GENERATE AS|
00002430: 53 45 4D 42 4C 59 20 4C 49 53 54 49 4E 47 00 62 |SEMBLY LISTING.b|
00002440: 2C 22 4E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |,"N.************|
00002450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002460: 2A 2A 00 8B 2C 25 4E 53 45 20 B2 20 30 20 3A 20 |**..,%NSE . 0 : |
00002470: 46 4D 41 58 20 B2 20 C3 28 50 54 52 24 29 20 3A |FMAX . .(PTR$) :|
00002480: 20 53 59 20 B2 20 46 41 4C 53 45 00 B5 2C 2A 4E | SY . FALSE..,*N|
00002490: 85 20 22 20 45 52 52 4F 52 20 4F 4E 4C 59 20 4C |. " ERROR ONLY L|
000024A0: 49 53 54 49 4E 47 20 28 20 59 2F 4E 20 29 20 3A |ISTING ( Y/N ) :|
000024B0: 22 3B 20 54 24 00 CA 2C 34 4E 45 4F 20 B2 20 C8 |"; T$..,4NEO . .|
000024C0: 28 54 24 2C 31 29 B2 22 59 22 00 F4 2C 39 4E 85 |(T$,1)."Y"..,9N.|
000024D0: 20 22 20 41 53 53 45 4D 42 4C 45 20 54 4F 20 4D | " ASSEMBLE TO M|
000024E0: 45 4D 4F 52 59 20 28 20 59 2F 4E 20 29 20 3A 22 |EMORY ( Y/N ) :"|
000024F0: 3B 20 54 24 00 09 2D 3D 4E 41 4D 20 B2 20 C8 28 |; T$..-=NAM . .(|
00002500: 54 24 2C 31 29 B2 22 59 22 00 2A 2D 3E 4E 41 44 |T$,1)."Y".*->NAD|
00002510: 20 B2 20 30 20 3A 20 8F 20 53 45 54 20 53 54 41 | . 0 : . SET STA|
00002520: 52 54 20 41 44 44 52 45 53 53 00 5F 2D 43 4E 8B |RT ADDRESS._-CN.|
00002530: 20 50 54 52 24 B2 22 22 20 A7 20 99 22 53 4F 55 | PTR$."" . ."SOU|
00002540: 52 43 45 2D 43 4F 44 45 20 4D 49 53 53 49 4E 47 |RCE-CODE MISSING|
00002550: 22 3A 81 49 B2 31 A4 32 30 30 30 3A 82 3A 8E 00 |":.I.1.2000:.:..|
00002560: 72 2D 48 4E 81 20 51 20 B2 20 31 20 A4 20 46 4D |r-HN. Q . 1 . FM|
00002570: 41 58 00 9C 2D 52 4E 49 4E 24 20 B2 20 46 49 4C |AX..-RNIN$ . FIL|
00002580: 45 24 28 C6 28 CA 28 50 54 52 24 2C 51 2C 31 29 |E$(.(.(PTR$,Q,1)|
00002590: 29 29 20 3A 20 4F 24 20 B2 20 22 22 00 A8 2D 5C |)) : O$ . ""..-\|
000025A0: 4E 8D 20 32 36 34 30 30 00 BE 2D 66 4E 8B 20 45 |N. 26400..-fN. E|
000025B0: 58 49 54 20 A7 20 51 B2 46 4D 41 58 AA 31 00 C6 |XIT . Q.FMAX.1..|
000025C0: 2D 70 4E 82 20 51 00 D3 2D 75 4E 54 20 B2 20 B8 |-pN. Q..-uNT . .|
000025D0: 28 58 29 00 08 2E 7A 4E 41 44 20 B2 20 30 20 3A |(X)...zNAD . 0 :|
000025E0: 20 45 43 20 B2 20 30 20 3A 20 99 20 22 41 44 44 | EC . 0 : . "ADD|
000025F0: 2E 20 20 44 41 54 41 20 20 20 20 20 53 4F 55 52 |. DATA SOUR|
00002600: 43 45 20 43 4F 44 45 22 00 1B 2E 84 4E 81 20 51 |CE CODE"....N. Q|
00002610: 20 B2 20 31 20 A4 20 46 4D 41 58 00 45 2E 8E 4E | . 1 . FMAX.E..N|
00002620: 49 4E 24 20 B2 20 46 49 4C 45 24 28 C6 28 CA 28 |IN$ . FILE$(.(.(|
00002630: 50 54 52 24 2C 51 2C 31 29 29 29 20 3A 20 4F 24 |PTR$,Q,1))) : O$|
00002640: 20 B2 20 22 22 00 51 2E 98 4E 51 31 20 B2 20 41 | . "".Q..NQ1 . A|
00002650: 44 00 5D 2E A2 4E 8D 20 32 37 36 30 30 00 6F 2E |D.]..N. 27600.o.|
00002660: AC 4E 8B 20 45 52 52 20 A7 20 32 30 32 35 30 00 |.N. ERR . 20250.|
00002670: 80 2E B1 4E 8B 20 45 4F 20 A7 20 32 30 32 32 32 |...N. EO . 20222|
00002680: 00 95 2E B6 4E 48 20 B2 20 51 31 20 3A 20 8D 20 |....NH . Q1 : . |
00002690: 31 31 30 30 30 00 A1 2E C0 4E 51 24 20 B2 20 48 |11000....NQ$ . H|
000026A0: 24 00 C6 2E D4 4E 51 32 20 B2 20 33 20 3A 20 8B |$....NQ2 . 3 : .|
000026B0: 20 C3 28 4F 24 29 B3 51 32 20 A7 20 51 32 20 B2 | .(O$).Q2 . Q2 .|
000026C0: 20 C3 28 4F 24 29 00 E4 2E D9 4E 51 31 24 20 B2 | .(O$)....NQ1$ .|
000026D0: 22 22 20 3A 20 8B 20 4F 24 B2 22 22 20 A7 20 32 |"" : . O$."" . 2|
000026E0: 30 32 32 31 00 F6 2E DE 4E 81 20 51 33 20 B2 20 |0221....N. Q3 . |
000026F0: 31 20 A4 20 51 32 00 16 2F E8 4E 48 20 B2 20 C6 |1 . Q2../.NH . .|
00002700: 28 CA 28 4F 24 2C 51 33 2C 31 29 29 20 3A 20 8D |(.(O$,Q3,1)) : .|
00002710: 20 31 31 30 30 30 00 32 2F F2 4E 8B 20 C3 28 48 | 11000.2/.N. .(H|
00002720: 24 29 B2 31 20 A7 20 48 24 20 B2 20 22 30 22 AA |$).1 . H$ . "0".|
00002730: 48 24 00 4A 2F FC 4E 51 31 24 20 B2 20 51 31 24 |H$.J/.NQ1$ . Q1$|
00002740: AA 48 24 20 3A 20 82 20 51 33 00 78 2F FD 4E 99 |.H$ : . Q3.x/.N.|
00002750: 20 51 24 20 A6 36 AB C3 28 51 24 29 29 20 51 31 | Q$ .6..(Q$)) Q1|
00002760: 24 20 A6 38 AB C3 28 51 31 24 29 29 20 3B 20 3A |$ .8..(Q1$)) ; :|
00002770: 20 8D 20 32 38 31 30 30 00 93 2F FE 4E 8B 20 A8 | . 28100../.N. .|
00002780: 20 41 4D 20 B0 20 4F 24 B2 22 22 20 A7 20 32 30 | AM . O$."" . 20|
00002790: 32 35 30 00 C3 2F 01 4F 81 20 58 20 B2 20 31 20 |250../.O. X . 1 |
000027A0: A4 20 C3 28 4F 24 29 20 3A 20 97 20 51 31 AA 58 |. .(O$) : . Q1.X|
000027B0: AB 31 2C C6 28 CA 28 4F 24 2C 58 2C 31 29 29 20 |.1,.(.(O$,X,1)) |
000027C0: 3A 20 82 00 EA 2F 1A 4F 8B 20 45 58 49 54 20 A7 |: .../.O. EXIT .|
000027D0: 20 51 20 B2 20 46 4D 41 58 AA 31 20 3A 20 8F 20 | Q . FMAX.1 : . |
000027E0: 4C 45 41 56 45 20 4C 4F 4F 50 00 F2 2F 24 4F 82 |LEAVE LOOP../$O.|
000027F0: 20 51 00 1F 30 2E 4F 99 20 3A 20 99 20 22 20 54 | Q..0.O. : . " T|
00002800: 4F 54 41 4C 20 45 52 52 4F 52 53 20 49 4E 20 46 |OTAL ERRORS IN F|
00002810: 49 4C 45 20 2D 2D 2D 22 20 45 43 20 3A 20 99 00 |ILE ---" EC : ..|
00002820: 32 30 38 4F 8B 20 53 59 20 A7 20 8D 20 32 36 39 |208O. SY . . 269|
00002830: 30 30 00 58 30 42 4F 8B 20 C2 28 31 35 32 29 20 |00.X0BO. .(152) |
00002840: B3 B1 20 30 20 A7 20 98 32 20 3A 20 A0 32 20 3A |.. 0 . .2 : .2 :|
00002850: 20 89 20 32 30 33 30 30 00 73 30 47 4F A1 20 54 | . 20300.s0GO. T|
00002860: 24 20 3A 20 8B 20 54 24 B2 22 22 20 A7 20 32 30 |$ : . T$."" . 20|
00002870: 32 39 35 00 79 30 4C 4F 8E 00 9D 30 D8 59 8F 2A |295.y0LO...0.Y.*|
00002880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AF 30 |*************..0|
000028A0: D9 59 8F 20 46 49 4C 45 20 45 44 49 54 4F 52 00 |.Y. FILE EDITOR.|
000028B0: D3 30 DA 59 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.0.Y.***********|
000028C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000028D0: 2A 2A 2A 00 E5 30 E2 59 8F 20 46 49 4C 45 20 45 |***..0.Y. FILE E|
000028E0: 44 49 54 4F 52 00 0C 31 EC 59 8F 20 46 49 4E 44 |DITOR..1.Y. FIND|
000028F0: 20 4C 49 4E 45 20 4E 55 4D 42 45 52 20 49 4E 20 | LINE NUMBER IN |
00002900: 27 4C 4E 27 20 49 4E 20 46 49 4C 45 00 28 31 F6 |'LN' IN FILE.(1.|
00002910: 59 54 20 B2 20 C3 28 50 54 52 24 29 AA 31 20 3A |YT . .(PTR$).1 :|
00002920: 20 54 32 20 B2 20 AB 31 00 47 31 00 5A 54 20 B2 | T2 . .1.G1.ZT .|
00002930: 20 54 AB 31 20 3A 20 8B 20 54 B3 B2 30 20 A7 20 | T.1 : . T..0 . |
00002940: 89 20 32 33 30 38 30 00 5F 31 0A 5A 54 31 20 B2 |. 23080._1.ZT1 .|
00002950: 20 C6 28 CA 28 50 54 52 24 2C 54 2C 31 29 29 00 | .(.(PTR$,T,1)).|
00002960: 90 31 14 5A 54 32 20 B2 20 C6 28 CA 28 46 49 24 |.1.ZT2 . .(.(FI$|
00002970: 28 54 31 29 2C 31 2C 31 29 29 AA 32 35 36 AC C6 |(T1),1,1)).256..|
00002980: 28 CA 28 46 49 24 28 54 31 29 2C 32 2C 31 29 29 |(.(FI$(T1),2,1))|
00002990: 00 A4 31 1E 5A 8B 20 54 32 B1 4C 4E 20 A7 20 32 |..1.Z. T2.LN . 2|
000029A0: 33 30 34 30 00 C9 31 28 5A 45 52 52 20 B2 20 A8 |3040..1(ZERR . .|
000029B0: 28 54 32 B2 4C 4E 29 20 3A 20 8B 20 45 52 52 20 |(T2.LN) : . ERR |
000029C0: A7 20 54 20 B2 20 54 AA 31 00 CF 31 32 5A 8E 00 |. T . T.1..12Z..|
000029D0: F3 31 3C 5A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.1<Z.***********|
000029E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000029F0: 2A 2A 2A 00 0A 32 3D 5A 8F 20 41 44 44 20 4C 49 |***..2=Z. ADD LI|
00002A00: 4E 45 20 54 4F 20 46 49 4C 45 00 2E 32 3E 5A 8F |NE TO FILE..2>Z.|
00002A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4C |**************.L|
00002A30: 32 41 5A 8B 20 4C 4E B3 30 20 B0 20 4C 4E B1 36 |2AZ. LN.0 . LN.6|
00002A40: 35 35 33 35 20 A7 20 32 33 32 31 35 00 58 32 46 |5535 . 23215.X2F|
00002A50: 5A 8D 20 32 33 30 32 30 00 84 32 50 5A 8B 20 A8 |Z. 23020..2PZ. .|
00002A60: 20 45 52 52 20 A7 20 54 31 20 B2 20 C6 28 CA 28 | ERR . T1 . .(.(|
00002A70: 50 54 52 24 2C 54 2C 31 29 29 20 3A 20 89 20 32 |PTR$,T,1)) : . 2|
00002A80: 33 31 35 30 00 A7 32 5A 5A 8B 20 45 24 B2 22 22 |3150..2ZZ. E$.""|
00002A90: 20 A7 20 45 52 52 20 B2 20 54 52 55 45 20 3A 20 | . ERR . TRUE : |
00002AA0: 89 20 32 33 32 32 30 00 C6 32 64 5A 54 31 20 B2 |. 23220..2dZT1 .|
00002AB0: 20 C6 28 45 24 29 20 20 3A 20 45 24 20 B2 20 CA | .(E$) : E$ . .|
00002AC0: 28 45 24 2C 32 29 00 D9 32 6E 5A 54 32 20 B2 20 |(E$,2)..2nZT2 . |
00002AD0: B5 28 4C 4E AD 32 35 36 29 00 FE 32 78 5A 46 49 |.(LN.256)..2xZFI|
00002AE0: 24 28 54 31 29 20 B2 20 C7 28 4C 4E AB 54 32 AC |$(T1) . .(LN.T2.|
00002AF0: 32 35 36 29 AA C7 28 54 32 29 AA 49 4E 24 00 12 |256)..(T2).IN$..|
00002B00: 33 82 5A 8B 20 A8 20 45 52 52 20 A7 20 32 33 32 |3.Z. . ERR . 232|
00002B10: 32 30 00 29 33 8C 5A 54 24 20 B2 20 22 22 20 3A |20.)3.ZT$ . "" :|
00002B20: 20 54 31 24 20 B2 20 22 22 00 46 33 96 5A 8B 20 | T1$ . "".F3.Z. |
00002B30: 54 B1 31 20 A7 20 54 24 20 B2 20 C8 28 50 54 52 |T.1 . T$ . .(PTR|
00002B40: 24 2C 54 AB 31 29 00 69 33 A0 5A 8B 20 54 B3 B2 |$,T.1).i3.Z. T..|
00002B50: C3 28 50 54 52 24 29 20 A7 20 54 31 24 20 B2 20 |.(PTR$) . T1$ . |
00002B60: CA 28 50 54 52 24 2C 54 29 00 81 33 AA 5A 50 54 |.(PTR$,T)..3.ZPT|
00002B70: 52 24 20 B2 20 54 24 AA C7 28 54 31 29 AA 54 31 |R$ . T$..(T1).T1|
00002B80: 24 00 91 33 AF 5A 45 52 52 20 B2 20 46 41 4C 53 |$..3.ZERR . FALS|
00002B90: 45 00 97 33 B4 5A 8E 00 BB 33 04 5B 8F 2A 2A 2A |E..3.Z...3.[.***|
00002BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DD 33 05 5B |***********..3.[|
00002BC0: 8F 20 44 45 4C 45 54 45 20 4C 49 4E 45 20 50 4F |. DELETE LINE PO|
00002BD0: 49 4E 54 45 44 20 41 54 20 42 59 20 54 00 01 34 |INTED AT BY T..4|
00002BE0: 06 5B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.[.*************|
00002BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C00: 2A 00 18 34 0E 5B 54 24 20 B2 20 22 22 20 3A 20 |*..4.[T$ . "" : |
00002C10: 54 31 24 20 B2 20 22 22 00 35 34 18 5B 8B 20 54 |T1$ . "".54.[. T|
00002C20: B1 31 20 A7 20 54 24 20 B2 20 C8 28 50 54 52 24 |.1 . T$ . .(PTR$|
00002C30: 2C 54 AB 31 29 00 59 34 22 5B 8B 20 54 B3 C3 28 |,T.1).Y4"[. T..(|
00002C40: 50 54 52 24 29 20 A7 20 54 31 24 20 B2 20 CA 28 |PTR$) . T1$ . .(|
00002C50: 50 54 52 24 2C 54 AA 31 29 00 71 34 2C 5B 45 24 |PTR$,T.1).q4,[E$|
00002C60: 20 B2 20 45 24 AA CA 28 50 54 52 24 2C 54 2C 31 | . E$..(PTR$,T,1|
00002C70: 29 00 83 34 36 5B 50 54 52 24 20 B2 20 54 24 AA |)..46[PTR$ . T$.|
00002C80: 54 31 24 00 89 34 40 5B 8E 00 AD 34 68 5B 8F 2A |T1$..4@[...4h[.*|
00002C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CE 34 |*************..4|
00002CB0: 69 5B 8F 20 4C 49 53 54 20 4C 49 4E 45 53 20 50 |i[. LIST LINES P|
00002CC0: 4F 49 4E 54 45 44 20 41 54 20 42 59 20 54 00 F2 |OINTED AT BY T..|
00002CD0: 34 6A 5B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |4j[.************|
00002CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CF0: 2A 2A 00 24 35 72 5B 99 20 C6 28 CA 28 46 49 24 |**.$5r[. .(.(FI$|
00002D00: 28 54 29 2C 31 2C 31 29 29 AA 32 35 36 AC C6 28 |(T),1,1)).256..(|
00002D10: CA 28 46 49 24 28 54 29 2C 32 2C 31 29 29 20 A3 |.(FI$(T),2,1)) .|
00002D20: 36 29 20 3B 00 36 35 7C 5B 99 20 CA 28 46 49 24 |6) ;.65|[. .(FI$|
00002D30: 28 54 29 2C 33 29 00 3C 35 86 5B 8E 00 60 35 CC |(T),3).<5.[..`5.|
00002D40: 5B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |[.**************|
00002D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D60: 00 80 35 CD 5B 8F 20 53 54 41 52 54 20 41 4E 44 |..5.[. START AND|
00002D70: 20 46 49 4E 49 53 48 20 50 4F 49 4E 54 45 52 53 | FINISH POINTERS|
00002D80: 00 A4 35 CE 5B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..5.[.**********|
00002D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002DA0: 2A 2A 2A 2A 00 BA 35 D6 5B 4C 4E 20 B2 20 53 4C |****..5.[LN . SL|
00002DB0: 20 3A 20 8D 20 32 33 30 32 30 00 C5 35 E0 5B 53 | : . 23020..5.[S|
00002DC0: 50 20 B2 20 54 00 DB 35 EA 5B 4C 4E 20 B2 20 46 |P . T..5.[LN . F|
00002DD0: 4C 20 3A 20 8D 20 32 33 30 32 30 00 E6 35 F4 5B |L : . 23020..5.[|
00002DE0: 46 50 20 B2 20 54 00 FC 35 F9 5B 8B 20 45 52 52 |FP . T..5.[. ERR|
00002DF0: 20 A7 20 46 50 20 B2 20 46 50 AB 31 00 1C 36 FE | . FP . FP.1..6.|
00002E00: 5B 8B 20 46 50 B1 C3 28 50 54 52 24 29 20 A7 20 |[. FP..(PTR$) . |
00002E10: 46 50 20 B2 20 C3 28 50 54 52 24 29 00 22 36 08 |FP . .(PTR$)."6.|
00002E20: 5C 8E 00 46 36 30 5C 8F 2A 2A 2A 2A 2A 2A 2A 2A |\..F60\.********|
00002E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002E40: 2A 2A 2A 2A 2A 2A 00 62 36 31 5C 8F 20 4C 4F 41 |******.b61\. LOA|
00002E50: 44 20 46 49 4C 45 20 46 52 4F 4D 20 44 45 56 49 |D FILE FROM DEVI|
00002E60: 43 45 00 86 36 32 5C 8F 2A 2A 2A 2A 2A 2A 2A 2A |CE..62\.********|
00002E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002E80: 2A 2A 2A 2A 2A 2A 00 92 36 3A 5C 8D 20 31 31 32 |******..6:\. 112|
00002E90: 35 30 00 B1 36 3F 5C 8B 20 44 45 56 B2 38 20 A7 |50..6?\. DEV.8 .|
00002EA0: 20 49 4E 24 20 B2 20 49 4E 24 AA 22 2C 53 2C 52 | IN$ . IN$.",S,R|
00002EB0: 22 00 C2 36 4E 5C 9F 32 2C 44 45 56 2C 30 2C 49 |"..6N\.2,DEV,0,I|
00002EC0: 4E 24 00 E0 36 53 5C 84 32 20 2C 20 49 4E 24 20 |N$..6S\.2 , IN$ |
00002ED0: 3A 20 8B 20 53 54 20 A7 20 89 20 32 33 36 35 30 |: . ST . . 23650|
00002EE0: 00 19 37 58 5C 8B 20 49 4E 24 B3 B1 22 45 4E 44 |..7X\. IN$.."END|
00002EF0: 22 20 A7 20 8D 20 32 34 30 30 30 20 3A 20 8D 20 |" . . 24000 : . |
00002F00: 32 33 39 30 30 20 3A 20 8D 20 32 33 31 30 30 20 |23900 : . 23100 |
00002F10: 3A 20 89 20 32 33 36 33 35 00 21 37 62 5C A0 20 |: . 23635.!7b\. |
00002F20: 32 00 27 37 6C 5C 8E 00 4B 37 94 5C 8F 2A 2A 2A |2.'7l\..K7.\.***|
00002F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 65 37 95 5C |***********.e7.\|
00002F50: 8F 20 53 41 56 45 20 46 49 4C 45 20 54 4F 20 44 |. SAVE FILE TO D|
00002F60: 45 56 49 43 45 00 89 37 96 5C 8F 2A 2A 2A 2A 2A |EVICE..7.\.*****|
00002F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002F80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 95 37 99 5C 8D 20 |*********..7.\. |
00002F90: 31 31 32 35 30 00 B4 37 9E 5C 8B 20 44 45 56 B2 |11250..7.\. DEV.|
00002FA0: 38 20 A7 20 49 4E 24 20 B2 20 49 4E 24 AA 22 2C |8 . IN$ . IN$.",|
00002FB0: 53 2C 57 22 00 F8 37 A3 5C 54 24 20 B2 20 22 4E |S,W"..7.\T$ . "N|
00002FC0: 22 20 3A 20 8B 20 44 45 56 B2 38 20 A7 20 85 20 |" : . DEV.8 . . |
00002FD0: 22 4F 56 45 52 57 52 49 54 45 20 45 58 49 53 54 |"OVERWRITE EXIST|
00002FE0: 49 4E 47 20 46 49 4C 45 20 28 20 59 2F 4E 20 29 |ING FILE ( Y/N )|
00002FF0: 20 3A 20 22 3B 20 54 24 00 17 38 A4 5C 8B 20 54 | : "; T$..8.\. T|
00003000: 24 B2 22 59 22 20 A7 20 49 4E 24 20 B2 20 22 40 |$."Y" . IN$ . "@|
00003010: 30 3A 22 AA 49 4E 24 00 2E 38 A8 5C 9F 32 2C 44 |0:".IN$..8.\.2,D|
00003020: 45 56 2C 32 2C 49 4E 24 20 3A 20 9D 20 32 00 46 |EV,2,IN$ : . 2.F|
00003030: 38 B2 5C 53 4C 20 B2 20 30 20 3A 20 46 4C 20 B2 |8.\SL . 0 : FL .|
00003040: 20 36 35 35 33 36 00 5F 38 C6 5C 8D 20 32 34 34 | 65536._8.\. 244|
00003050: 32 30 20 3A 20 98 32 20 2C 20 22 45 4E 44 22 00 |20 : .2 , "END".|
00003060: 6C 38 D0 5C 98 32 20 3A 20 A0 20 32 00 72 38 E4 |l8.\.2 : . 2.r8.|
00003070: 5C 8E 00 96 38 5C 5D 8F 2A 2A 2A 2A 2A 2A 2A 2A |\...8\].********|
00003080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003090: 2A 2A 2A 2A 2A 2A 00 B2 38 5D 5D 8F 20 52 45 4D |******..8]]. REM|
000030A0: 4F 56 45 20 4C 45 41 44 49 4E 47 20 53 50 41 43 |OVE LEADING SPAC|
000030B0: 45 53 00 D6 38 5E 5D 8F 2A 2A 2A 2A 2A 2A 2A 2A |ES..8^].********|
000030C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000030D0: 2A 2A 2A 2A 2A 2A 00 EB 38 66 5D 81 20 54 20 B2 |******..8f]. T .|
000030E0: 20 31 20 A4 20 C3 28 49 4E 24 29 00 06 39 70 5D | 1 . .(IN$)..9p]|
000030F0: 8B 20 CA 28 49 4E 24 2C 54 2C 31 29 B2 22 20 22 |. .(IN$,T,1)." "|
00003100: 20 A7 20 82 20 54 00 1D 39 8E 5D 49 4E 24 20 B2 | . . T..9.]IN$ .|
00003110: 20 CA 28 49 4E 24 2C 54 29 20 3A 20 8E 00 41 39 | .(IN$,T) : ..A9|
00003120: C0 5D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.].*************|
00003130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003140: 2A 00 57 39 C1 5D 8F 20 47 45 54 20 4C 49 4E 45 |*.W9.]. GET LINE|
00003150: 20 4E 55 4D 42 45 52 00 7B 39 C2 5D 8F 2A 2A 2A | NUMBER.{9.].***|
00003160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B 39 CA 5D |***********..9.]|
00003180: 4C 4E 20 B2 20 AB 36 35 35 33 36 00 BB 39 D4 5D |LN . .65536..9.]|
00003190: 8B 20 C3 28 49 4E 24 29 B2 30 20 B0 20 49 4E 24 |. .(IN$).0 . IN$|
000031A0: B3 22 30 22 20 B0 20 C8 28 49 4E 24 2C 31 29 B1 |."0" . .(IN$,1).|
000031B0: 22 39 22 20 A7 20 32 34 30 39 30 00 D0 39 DE 5D |"9" . 24090..9.]|
000031C0: 81 20 54 20 B2 20 31 20 A4 20 C3 28 49 4E 24 29 |. T . 1 . .(IN$)|
000031D0: 00 FE 39 E8 5D 8B 20 CA 28 49 4E 24 2C 54 2C 31 |..9.]. .(IN$,T,1|
000031E0: 29 B3 B2 22 39 22 20 AF 20 CA 28 49 4E 24 2C 54 |).."9" . .(IN$,T|
000031F0: 2C 31 29 B1 B2 22 30 22 20 A7 20 82 20 54 00 26 |,1).."0" . . T.&|
00003200: 3A 10 5E 4C 4E 20 B2 20 C5 28 C8 28 49 4E 24 2C |:.^LN . .(.(IN$,|
00003210: 54 AB 31 29 29 20 3A 20 49 4E 24 20 B2 20 CA 28 |T.1)) : IN$ . .(|
00003220: 49 4E 24 2C 54 29 00 2C 3A 1A 5E 8E 00 50 3A 88 |IN$,T).,:.^..P:.|
00003230: 5E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |^.**************|
00003240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003250: 00 6C 3A 89 5E 8F 20 20 46 49 52 53 54 20 41 4E |.l:.^. FIRST AN|
00003260: 44 20 4C 41 53 54 20 4C 49 4E 45 53 00 90 3A 8A |D LAST LINES..:.|
00003270: 5E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |^.**************|
00003280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003290: 00 BE 3A 8D 5E 49 4E 24 20 B2 20 22 22 20 3A 20 |..:.^IN$ . "" : |
000032A0: 85 20 22 46 49 52 53 54 20 2D 20 4C 41 53 54 20 |. "FIRST - LAST |
000032B0: 4C 49 4E 45 53 20 3A 20 22 3B 20 49 4E 24 00 ED |LINES : "; IN$..|
000032C0: 3A 92 5E 53 4C 20 B2 20 30 20 3A 20 46 4C 20 B2 |:.^SL . 0 : FL .|
000032D0: 20 36 35 35 33 35 20 3A 20 54 33 20 B2 20 30 20 | 65535 : T3 . 0 |
000032E0: 3A 20 45 52 52 20 B2 20 46 41 4C 53 45 00 04 3B |: ERR . FALSE..;|
000032F0: 9C 5E 8B 20 C3 28 49 4E 24 29 B2 30 20 A7 20 32 |.^. .(IN$).0 . 2|
00003300: 34 32 39 35 00 10 3B A6 5E 8D 20 32 34 30 30 30 |4295..;.^. 24000|
00003310: 00 30 3B B0 5E 8B 20 4C 4E B1 B2 30 20 A7 20 53 |.0;.^. LN..0 . S|
00003320: 4C 20 B2 20 4C 4E 20 3A 20 89 20 32 34 32 36 30 |L . LN : . 24260|
00003330: 00 55 3B BA 5E 8B 20 4C 4E B1 AB 36 35 35 33 36 |.U;.^. LN..65536|
00003340: 20 A7 20 46 4C 20 B2 20 AB 4C 4E 20 3A 20 89 20 | . FL . .LN : . |
00003350: 32 34 32 39 35 00 82 3B C4 5E 8D 20 32 33 39 30 |24295..;.^. 2390|
00003360: 30 20 3A 20 8B 20 C3 28 49 4E 24 29 B2 30 20 A7 |0 : . .(IN$).0 .|
00003370: 20 46 4C 20 B2 20 53 4C 20 3A 20 89 20 32 34 32 | FL . SL : . 242|
00003380: 39 35 00 9F 3B CE 5E 49 4E 24 20 B2 20 CA 28 49 |95..;.^IN$ . .(I|
00003390: 4E 24 2C 32 29 20 3A 20 8D 20 32 33 39 30 30 00 |N$,2) : . 23900.|
000033A0: C2 3B E2 5E 8B 20 C3 28 49 4E 24 29 B1 30 20 A7 |.;.^. .(IN$).0 .|
000033B0: 20 8D 20 32 34 30 30 30 20 3A 20 46 4C 20 B2 20 | . 24000 : FL . |
000033C0: 4C 4E 00 F8 3B E7 5E 45 52 52 20 B2 20 53 4C B3 |LN..;.^ERR . SL.|
000033D0: 30 20 B0 20 53 4C B1 36 35 35 33 35 20 B0 20 46 |0 . SL.65535 . F|
000033E0: 4C B3 30 20 B0 20 46 4C B1 36 35 35 33 35 20 B0 |L.0 . FL.65535 .|
000033F0: 20 45 52 52 20 3A 20 8E 00 1C 3C EC 5E 8F 2A 2A | ERR : ...<.^.**|
00003400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 3C ED |************.1<.|
00003420: 5E 8F 20 49 4E 49 54 41 4C 49 53 45 20 46 49 4C |^. INITALISE FIL|
00003430: 45 00 55 3C EE 5E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |E.U<.^.*********|
00003440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003450: 2A 2A 2A 2A 2A 00 94 3C F6 5E 50 54 52 24 20 B2 |*****..<.^PTR$ .|
00003460: 20 22 22 20 3A 20 45 24 20 B2 20 22 22 20 3A 20 | "" : E$ . "" : |
00003470: 81 20 58 20 B2 20 30 20 A4 20 32 35 34 20 3A 20 |. X . 0 . 254 : |
00003480: 45 24 20 B2 20 45 24 AA C7 28 58 29 20 3A 20 82 |E$ . E$..(X) : .|
00003490: 20 3A 20 8E 00 B8 3C 50 5F 8F 2A 2A 2A 2A 2A 2A | : ...<P_.******|
000034A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000034B0: 2A 2A 2A 2A 2A 2A 2A 2A 00 C9 3C 51 5F 8F 20 4C |********..<Q_. L|
000034C0: 49 53 54 20 4C 49 4E 45 53 00 ED 3C 52 5F 8F 2A |IST LINES..<R_.*|
000034D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000034E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 09 3D |*************..=|
000034F0: 5A 5F 8D 20 32 34 32 30 30 20 3A 20 8B 20 45 52 |Z_. 24200 : . ER|
00003500: 52 20 A7 20 32 34 34 36 30 00 35 3D 64 5F 99 20 |R . 24460.5=d_. |
00003510: 22 93 22 20 3A 20 8D 20 32 33 35 30 30 20 3A 20 |"." : . 23500 : |
00003520: 8B 20 46 50 B3 53 50 B0 20 46 50 B2 30 20 A7 20 |. FP.SP. FP.0 . |
00003530: 32 34 34 36 30 00 70 3D 6E 5F 81 20 54 31 20 B2 |24460.p=n_. T1 .|
00003540: 20 53 50 20 A4 20 46 50 20 3A 20 54 20 B2 20 C6 | SP . FP : T . .|
00003550: 28 CA 28 50 54 52 24 2C 54 31 2C 31 29 29 20 3A |(.(PTR$,T1,1)) :|
00003560: 20 8D 20 32 33 34 30 30 20 3A 20 82 20 3A 20 99 | . 23400 : . : .|
00003570: 00 98 3D 87 5F 8B 20 C2 28 31 35 32 29 B2 30 20 |..=._. .(152).0 |
00003580: A7 20 A1 20 54 24 20 3A 20 8B 20 54 24 B2 22 22 |. . T$ : . T$.""|
00003590: 20 A7 20 32 34 34 35 35 00 9E 3D 8C 5F 8E 00 C2 | . 24455..=._...|
000035A0: 3D B4 5F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |=._.************|
000035B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000035C0: 2A 2A 00 D7 3D B5 5F 8F 20 44 45 4C 45 54 45 20 |**..=._. DELETE |
000035D0: 4C 49 4E 45 28 53 29 00 FB 3D B6 5F 8F 2A 2A 2A |LINE(S)..=._.***|
000035E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000035F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 17 3E BE 5F |***********..>._|
00003600: 8D 20 32 34 32 30 30 20 3A 20 8B 20 45 52 52 20 |. 24200 : . ERR |
00003610: A7 20 32 34 34 36 30 00 35 3E C8 5F 8D 20 32 33 |. 24460.5>._. 23|
00003620: 35 30 30 20 3A 20 8B 20 46 50 B3 53 50 20 A7 20 |500 : . FP.SP . |
00003630: 32 34 35 36 30 00 5F 3E D2 5F 54 20 B2 20 53 50 |24560._>._T . SP|
00003640: 20 3A 20 81 20 54 31 20 B2 20 53 50 20 A4 20 46 | : . T1 . SP . F|
00003650: 50 20 3A 20 8D 20 32 33 33 30 30 20 3A 20 82 00 |P : . 23300 : ..|
00003660: 65 3E F0 5F 8E 00 89 3E 18 60 8F 2A 2A 2A 2A 2A |e>._...>.`.*****|
00003670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9D 3E 19 60 8F 20 |*********..>.`. |
00003690: 49 4E 50 55 54 20 4C 49 4E 45 28 53 29 00 C1 3E |INPUT LINE(S)..>|
000036A0: 1A 60 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.`.*************|
000036B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000036C0: 2A 00 CB 3E 22 60 99 20 22 93 22 00 00 3F 2C 60 |*..>"`. "."..?,`|
000036D0: 49 4E 24 20 B2 20 22 22 20 3A 20 85 20 49 4E 24 |IN$ . "" : . IN$|
000036E0: 20 3A 20 8D 20 32 34 30 30 30 20 3A 20 8B 20 4C | : . 24000 : . L|
000036F0: 4E B2 AB 36 35 35 33 36 20 A7 20 32 34 36 36 35 |N..65536 . 24665|
00003700: 00 21 3F 4A 60 8D 20 32 33 39 30 30 20 3A 20 8B |.!?J`. 23900 : .|
00003710: 20 C3 28 49 4E 24 29 B2 30 20 A7 20 32 34 36 38 | .(IN$).0 . 2468|
00003720: 30 00 3F 3F 54 60 8D 20 32 33 31 30 30 20 3A 20 |0.??T`. 23100 : |
00003730: 8B 20 A8 20 45 52 52 20 A7 20 32 34 36 32 30 00 |. . ERR . 24620.|
00003740: 45 3F 59 60 8E 00 65 3F 68 60 8D 20 32 33 30 32 |E?Y`..e?h`. 2302|
00003750: 30 20 3A 20 8B 20 A8 20 45 52 52 20 A7 20 8D 20 |0 : . . ERR . . |
00003760: 32 33 33 30 30 00 71 3F 72 60 89 20 32 34 36 32 |23300.q?r`. 2462|
00003770: 30 00 95 3F 7C 60 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0..?|`.*********|
00003780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003790: 2A 2A 2A 2A 2A 00 B8 3F 7D 60 8F 20 52 45 4E 55 |*****..?}`. RENU|
000037A0: 4D 42 45 52 20 46 49 4C 45 20 49 4E 20 53 54 45 |MBER FILE IN STE|
000037B0: 50 53 20 4F 46 20 31 30 00 DC 3F 7E 60 8F 2A 2A |PS OF 10..?~`.**|
000037C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000037D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F6 3F 86 |************..?.|
000037E0: 60 4C 4E 20 B2 20 31 30 20 3A 20 45 52 52 20 B2 |`LN . 10 : ERR .|
000037F0: 20 46 41 4C 53 45 00 0E 40 90 60 8B 20 C3 28 50 | FALSE..@.`. .(P|
00003800: 54 52 24 29 B3 31 20 A7 20 32 34 37 38 30 00 24 |TR$).1 . 24780.$|
00003810: 40 9A 60 81 20 54 20 B2 20 31 20 A4 20 C3 28 50 |@.`. T . 1 . .(P|
00003820: 54 52 24 29 00 3C 40 9F 60 54 31 20 B2 20 C6 28 |TR$).<@.`T1 . .(|
00003830: CA 28 50 54 52 24 2C 54 2C 31 29 29 00 75 40 A4 |.(PTR$,T,1)).u@.|
00003840: 60 46 49 24 28 54 31 29 20 B2 20 C7 28 4C 4E AB |`FI$(T1) . .(LN.|
00003850: B5 28 4C 4E AD 32 35 36 29 AC 32 35 36 29 AA C7 |.(LN.256).256)..|
00003860: 28 4C 4E AD 32 35 36 29 AA CA 28 46 49 24 28 54 |(LN.256)..(FI$(T|
00003870: 31 29 2C 33 29 00 88 40 AE 60 4C 4E 20 B2 20 4C |1),3)..@.`LN . L|
00003880: 4E AA 31 30 20 3A 20 82 00 8E 40 CC 60 8E 00 B2 |N.10 : ...@.`...|
00003890: 40 E0 60 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |@.`.************|
000038A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000038B0: 2A 2A 00 C9 40 E1 60 8F 20 46 49 4C 45 20 45 44 |**..@.`. FILE ED|
000038C0: 49 54 4F 52 20 4D 45 4E 55 00 ED 40 E2 60 8F 2A |ITOR MENU..@.`.*|
000038D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000038E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 41 |*************. A|
000038F0: F4 60 99 20 22 93 1E 20 2D 2D 2D 2D 2D 2D 2D 2D |.`. ".. --------|
00003900: 2D 2D 2D 2D 20 46 49 4C 45 20 45 44 49 54 4F 52 |---- FILE EDITOR|
00003910: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 1F 11 22 | ------------.."|
00003920: 00 47 41 03 61 99 20 22 20 20 20 20 20 20 30 29 |.GA.a. " 0)|
00003930: 20 45 58 49 54 20 46 52 4F 4D 20 46 49 4C 45 20 | EXIT FROM FILE |
00003940: 45 44 49 54 4F 52 22 00 66 41 08 61 99 20 22 20 |EDITOR".fA.a. " |
00003950: 20 20 20 20 20 31 29 20 49 4E 50 55 54 20 4C 49 | 1) INPUT LI|
00003960: 4E 45 28 53 29 22 00 84 41 12 61 99 20 22 20 20 |NE(S)"..A.a. " |
00003970: 20 20 20 20 32 29 20 4C 49 53 54 20 4C 49 4E 45 | 2) LIST LINE|
00003980: 28 53 29 22 00 A4 41 1C 61 99 20 22 20 20 20 20 |(S)"..A.a. " |
00003990: 20 20 33 29 20 44 45 4C 45 54 45 20 4C 49 4E 45 | 3) DELETE LINE|
000039A0: 28 53 29 22 00 C3 41 26 61 99 20 22 20 20 20 20 |(S)"..A&a. " |
000039B0: 20 20 34 29 20 52 45 4E 55 4D 42 45 52 20 46 49 | 4) RENUMBER FI|
000039C0: 4C 45 22 00 E4 41 30 61 99 20 22 20 20 20 20 20 |LE"..A0a. " |
000039D0: 20 35 29 20 49 4E 49 54 49 41 4C 49 53 45 20 46 | 5) INITIALISE F|
000039E0: 49 4C 45 22 00 FF 41 3A 61 99 20 22 20 20 20 20 |ILE"..A:a. " |
000039F0: 20 20 36 29 20 4C 4F 41 44 20 46 49 4C 45 22 00 | 6) LOAD FILE".|
00003A00: 1A 42 44 61 99 20 22 20 20 20 20 20 20 37 29 20 |.BDa. " 7) |
00003A10: 53 41 56 45 20 46 49 4C 45 22 00 44 42 4E 61 99 |SAVE FILE".DBNa.|
00003A20: 20 22 20 20 20 20 20 20 38 29 20 41 44 44 20 4D | " 8) ADD M|
00003A30: 41 43 48 49 4E 45 20 43 4F 44 45 20 54 4F 20 46 |ACHINE CODE TO F|
00003A40: 49 4C 45 22 00 6F 42 53 61 99 20 22 20 20 20 20 |ILE".oBSa. " |
00003A50: 20 20 39 29 20 43 48 41 4E 47 45 20 44 45 56 49 | 9) CHANGE DEVI|
00003A60: 43 45 20 4E 55 4D 42 45 52 11 11 11 11 11 22 00 |CE NUMBER.....".|
00003A70: 8F 42 58 61 85 20 22 20 43 4F 4D 4D 41 4E 44 20 |.BXa. " COMMAND |
00003A80: 28 20 30 2D 39 20 29 20 3A 20 22 3B 20 43 4F 00 |( 0-9 ) : "; CO.|
00003A90: 9E 42 6C 61 8B 20 43 4F B2 30 20 A7 20 8E 00 E2 |.Bla. CO.0 . ...|
00003AA0: 42 76 61 8B 20 43 4F B1 30 20 A7 20 91 20 43 4F |Bva. CO.0 . . CO|
00003AB0: 20 8D 20 32 34 36 30 30 2C 32 34 34 30 30 2C 32 | . 24600,24400,2|
00003AC0: 34 35 30 30 2C 32 34 37 30 30 2C 32 34 33 30 30 |4500,24700,24300|
00003AD0: 2C 32 33 36 30 30 2C 32 33 37 30 30 2C 32 35 30 |,23600,23700,250|
00003AE0: 30 30 00 FE 42 80 61 8B 20 43 4F B1 38 20 A7 20 |00..B.a. CO.8 . |
00003AF0: 91 20 43 4F AB 38 20 8D 20 32 35 35 30 30 00 0A |. CO.8 . 25500..|
00003B00: 43 8A 61 89 20 32 34 38 30 30 00 2E 43 A8 61 8F |C.a. 24800..C.a.|
00003B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4C |**************.L|
00003B30: 43 A9 61 8F 20 41 44 44 20 54 4F 20 46 49 4C 45 |C.a. ADD TO FILE|
00003B40: 20 46 52 4F 4D 20 4D 45 4D 4F 52 59 00 70 43 AA | FROM MEMORY.pC.|
00003B50: 61 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |a.**************|
00003B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003B70: 00 90 43 B2 61 8D 20 31 32 30 35 30 20 3A 20 8D |..C.a. 12050 : .|
00003B80: 20 31 31 32 30 30 20 3A 20 8D 20 32 34 32 30 30 | 11200 : . 24200|
00003B90: 00 A8 43 DA 61 81 20 58 59 20 B2 20 41 44 20 A4 |..C.a. XY . AD .|
00003BA0: 20 45 41 20 A9 20 31 35 00 D0 43 E4 61 49 4E 24 | EA . 15..C.aIN$|
00003BB0: 20 B2 20 22 20 42 59 54 20 22 20 3A 20 4C 4E 20 | . " BYT " : LN |
00003BC0: B2 20 53 4C 20 3A 20 53 4C 20 B2 20 53 4C AA 35 |. SL : SL . SL.5|
00003BD0: 00 ED 43 EE 61 81 20 58 5A 20 B2 20 30 20 A4 20 |..C.a. XZ . 0 . |
00003BE0: 31 34 20 3A 20 4F 32 24 20 B2 20 22 22 00 0C 44 |14 : O2$ . ""..D|
00003BF0: F8 61 8D 20 31 31 31 30 30 20 3A 20 49 4E 24 20 |.a. 11100 : IN$ |
00003C00: B2 20 49 4E 24 AA 22 24 22 AA 48 24 00 38 44 0C |. IN$."$".H$.8D.|
00003C10: 62 8B 20 58 5A B3 31 34 20 AF 20 41 44 B3 B2 45 |b. XZ.14 . AD..E|
00003C20: 41 20 A7 20 49 4E 24 20 B2 20 49 4E 24 AA 22 2E |A . IN$ . IN$.".|
00003C30: 22 20 3A 20 82 20 58 5A 00 4F 44 16 62 8D 20 32 |" : . XZ.OD.b. 2|
00003C40: 33 31 30 30 20 3A 20 82 20 58 59 20 3A 20 8E 00 |3100 : . XY : ..|
00003C50: 73 44 9C 63 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |sD.c.***********|
00003C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C70: 2A 2A 2A 00 8E 44 9D 63 8F 20 43 48 41 4E 47 45 |***..D.c. CHANGE|
00003C80: 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 00 B2 | DEVICE NUMBER..|
00003C90: 44 9E 63 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |D.c.************|
00003CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003CB0: 2A 2A 00 C1 44 A6 63 99 20 A6 31 39 29 20 44 45 |**..D.c. .19) DE|
00003CC0: 56 00 E1 44 B0 63 85 20 22 91 4E 45 57 20 44 45 |V..D.c. ".NEW DE|
00003CD0: 56 49 43 45 20 4E 55 4D 42 45 52 3A 22 3B 44 45 |VICE NUMBER:";DE|
00003CE0: 56 00 E7 44 BA 63 8E 00 0B 45 90 65 8F 2A 2A 2A |V..D.c...E.e.***|
00003CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 29 45 91 65 |***********.)E.e|
00003D10: 8F 20 53 59 4D 42 4F 4C 20 55 50 20 54 4F 20 43 |. SYMBOL UP TO C|
00003D20: 4F 4C 4F 4E 20 45 54 43 2E 00 4D 45 92 65 8F 2A |OLON ETC..ME.e.*|
00003D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 67 45 |*************.gE|
00003D50: 9A 65 48 24 20 B2 20 22 22 20 3A 20 54 31 20 B2 |.eH$ . "" : T1 .|
00003D60: 20 C3 28 49 4E 24 29 00 77 45 A4 65 50 54 52 20 | .(IN$).wE.ePTR |
00003D70: B2 20 50 54 52 AA 31 00 8C 45 AE 65 8B 20 54 31 |. PTR.1..E.e. T1|
00003D80: B3 50 54 52 20 A7 20 32 36 30 36 30 00 A4 45 B8 |.PTR . 26060..E.|
00003D90: 65 54 20 B2 20 C6 28 CA 28 49 4E 24 2C 50 54 52 |eT . .(.(IN$,PTR|
00003DA0: 2C 31 29 29 00 B7 45 BD 65 8B 20 54 B2 33 32 20 |,1))..E.e. T.32 |
00003DB0: A7 20 32 36 30 32 30 00 E4 45 C2 65 8B 20 54 B3 |. 26020..E.e. T.|
00003DC0: B1 35 38 20 AF 20 54 B3 B1 35 39 20 A7 20 48 24 |.58 . T..59 . H$|
00003DD0: 20 B2 20 48 24 AA C7 28 54 29 20 3A 20 89 20 32 | . H$..(T) : . 2|
00003DE0: 36 30 32 30 00 EA 45 CC 65 8E 00 0E 46 F4 65 8F |6020..E.e...F.e.|
00003DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2C |**************.,|
00003E10: 46 F5 65 8F 20 4F 50 45 52 41 4E 44 20 54 59 50 |F.e. OPERAND TYP|
00003E20: 45 20 54 4F 20 42 45 20 55 53 45 44 00 50 46 F6 |E TO BE USED.PF.|
00003E30: 65 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |e.**************|
00003E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003E50: 00 67 46 FE 65 54 36 20 B2 20 50 54 52 20 3A 20 |.gF.eT6 . PTR : |
00003E60: 8D 20 32 36 30 30 30 00 77 46 08 66 45 52 52 20 |. 26000.wF.fERR |
00003E70: B2 20 46 41 4C 53 45 00 92 46 12 66 8B 20 C3 28 |. FALSE..F.f. .(|
00003E80: 48 24 29 B2 30 20 A7 20 4F 50 20 B2 20 31 20 3A |H$).0 . OP . 1 :|
00003E90: 20 8E 00 AC 46 1C 66 8B 20 48 24 B2 22 41 22 20 | ...F.f. H$."A" |
00003EA0: A7 20 4F 50 20 B2 20 30 20 3A 20 8E 00 C8 46 21 |. OP . 0 : ...F!|
00003EB0: 66 8B 20 C6 28 48 24 29 B2 33 35 20 A7 20 4F 50 |f. .(H$).35 . OP|
00003EC0: 20 B2 20 32 20 3A 20 8E 00 D4 46 3A 66 4F 50 20 | . 2 : ...F:fOP |
00003ED0: B2 20 31 32 00 F2 46 44 66 8B 20 C8 28 48 24 2C |. 12..FDf. .(H$,|
00003EE0: 31 29 B2 22 28 22 20 A7 20 4F 50 20 B2 20 4F 50 |1)."(" . OP . OP|
00003EF0: AB 33 00 09 47 4E 66 54 20 B2 20 31 20 3A 20 54 |.3..GNfT . 1 : T|
00003F00: 31 20 B2 20 C3 28 48 24 29 00 1F 47 58 66 54 32 |1 . .(H$)..GXfT2|
00003F10: 20 B2 20 C6 28 CA 28 48 24 2C 54 2C 31 29 29 00 | . .(.(H$,T,1)).|
00003F20: 47 47 62 66 8B 20 54 32 B3 B1 34 36 20 AF 20 54 |GGbf. T2..46 . T|
00003F30: B3 54 31 20 A7 20 54 20 B2 20 54 AA 31 20 3A 20 |.T1 . T . T.1 : |
00003F40: 89 20 32 36 32 30 30 00 5C 47 6C 66 8B 20 54 32 |. 26200.\Glf. T2|
00003F50: B3 B1 34 36 20 A7 20 32 36 32 37 35 00 79 47 76 |..46 . 26275.yGv|
00003F60: 66 54 20 B2 20 54 AA 31 20 3A 20 8B 20 54 B1 54 |fT . T.1 : . T.T|
00003F70: 31 20 A7 20 32 36 32 37 30 00 8F 47 80 66 54 32 |1 . 26270..G.fT2|
00003F80: 20 B2 20 C6 28 CA 28 48 24 2C 54 2C 31 29 29 00 | . .(.(H$,T,1)).|
00003F90: B1 47 8A 66 8B 20 54 32 B2 38 39 20 A7 20 4F 50 |.G.f. T2.89 . OP|
00003FA0: 20 B2 20 4F 50 AB 31 20 3A 20 89 20 32 36 32 37 | . OP.1 : . 2627|
00003FB0: 35 00 D3 47 94 66 8B 20 54 32 B2 38 38 20 A7 20 |5..G.f. T2.88 . |
00003FC0: 4F 50 20 B2 20 4F 50 AB 32 20 3A 20 89 20 32 36 |OP . OP.2 : . 26|
00003FD0: 32 37 35 00 EB 47 9E 66 8F 20 4E 4F 54 20 41 20 |275..G.f. NOT A |
00003FE0: 56 41 4C 49 44 20 49 4E 44 45 58 00 00 48 A0 66 |VALID INDEX..H.f|
00003FF0: 45 4E 20 B2 20 35 20 3A 20 89 20 32 38 30 30 30 |EN . 5 : . 28000|
00004000: 00 3C 48 A3 66 8B 28 4F 50 B2 31 32 29 AF 28 28 |.<H.f.(OP.12).((|
00004010: 50 4F B1 32 AF 50 4F B3 36 29 B0 28 50 4F B1 36 |PO.2.PO.6).(PO.6|
00004020: AF 50 4F B3 31 30 29 B0 50 4F B2 31 32 B0 50 4F |.PO.10).PO.12.PO|
00004030: B2 31 31 29 A7 20 4F 50 20 B2 20 33 00 54 48 A9 |.11). OP . 3.TH.|
00004040: 66 8F 20 5A 45 52 4F 20 50 41 47 45 20 4F 50 52 |f. ZERO PAGE OPR|
00004050: 41 4E 44 53 00 64 48 AA 66 8B 20 4F 50 B3 31 30 |ANDS.dH.f. OP.10|
00004060: 20 A7 20 8E 00 7C 48 AC 66 54 37 20 B2 20 50 54 | . ..|H.fT7 . PT|
00004070: 52 20 3A 20 50 54 52 20 B2 20 54 36 00 88 48 AE |R : PTR . T6..H.|
00004080: 66 8D 20 32 38 36 30 30 00 A7 48 B0 66 8B 20 45 |f. 28600..H.f. E|
00004090: 52 52 20 B0 20 52 45 53 55 4C 54 B1 32 35 35 20 |RR . RESULT.255 |
000040A0: A7 20 32 36 32 39 32 00 B5 48 B2 66 4F 50 20 B2 |. 26292..H.fOP .|
000040B0: 20 4F 50 AB 36 00 C2 48 B4 66 50 54 52 20 B2 20 | OP.6..H.fPTR . |
000040C0: 54 37 00 C8 48 B6 66 8E 00 EC 48 BC 66 8F 2A 2A |T7..H.f...H.f.**|
000040D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000040E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 02 49 BD |************..I.|
000040F0: 66 8F 20 45 56 41 4C 55 41 54 45 20 4F 50 43 4F |f. EVALUATE OPCO|
00004100: 44 45 00 26 49 BE 66 8F 2A 2A 2A 2A 2A 2A 2A 2A |DE.&I.f.********|
00004110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004120: 2A 2A 2A 2A 2A 2A 00 3A 49 C6 66 54 31 20 B2 20 |******.:I.fT1 . |
00004130: 33 20 3A 20 54 20 B2 20 50 4F 00 56 49 D0 66 54 |3 : T . PO.VI.fT|
00004140: 20 B2 20 C6 28 CA 28 54 41 24 28 54 31 29 2C 54 | . .(.(TA$(T1),T|
00004150: AA 31 2C 31 29 29 00 73 49 DA 66 8B 20 54 B2 32 |.1,1)).sI.f. T.2|
00004160: 35 35 20 A7 20 45 52 52 20 B2 20 54 52 55 45 20 |55 . ERR . TRUE |
00004170: 3A 20 8E 00 9D 49 E4 66 54 31 20 B2 20 34 20 3A |: ...I.fT1 . 4 :|
00004180: 20 54 32 20 B2 20 C6 28 CA 28 54 41 24 28 31 29 | T2 . .(.(TA$(1)|
00004190: 2C B5 28 54 AD 32 AA 31 29 2C 31 29 29 00 BD 49 |,.(T.2.1),1))..I|
000041A0: EE 66 8B 20 28 31 20 AF 20 54 29 B2 30 20 A7 20 |.f. (1 . T).0 . |
000041B0: 54 32 20 B2 20 B5 28 54 32 AD 31 36 29 00 CE 49 |T2 . .(T2.16)..I|
000041C0: F3 66 54 32 20 B2 20 54 32 20 AF 20 31 35 00 E3 |.fT2 . T2 . 15..|
000041D0: 49 F8 66 8B 20 54 32 B3 B1 4F 50 20 A7 20 32 36 |I.f. T2..OP . 26|
000041E0: 33 32 30 00 F4 49 02 67 4F 24 20 B2 20 4F 24 AA |320..I.gO$ . O$.|
000041F0: C7 28 54 29 00 04 4A 0C 67 45 52 52 20 B2 20 46 |.(T)..J.gERR . F|
00004200: 41 4C 53 45 00 0A 4A 16 67 8E 00 2E 4A 20 67 8F |ALSE..J.g...J g.|
00004210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4E |**************.N|
00004230: 4A 21 67 8F 20 44 4F 20 50 41 53 53 20 31 20 41 |J!g. DO PASS 1 A|
00004240: 53 53 45 4D 42 4C 59 20 4F 4E 20 49 4E 24 00 72 |SSEMBLY ON IN$.r|
00004250: 4A 22 67 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |J"g.************|
00004260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004270: 2A 2A 00 BC 4A 25 67 99 20 22 13 11 11 11 11 11 |**..J%g. "......|
00004280: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00004290: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000042A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000042B0: 20 20 20 20 20 20 20 20 20 22 20 3B 00 EE 4A 26 | " ;..J&|
000042C0: 67 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |g. " |
000042D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000042E0: 20 20 20 20 20 20 20 20 20 20 20 22 20 3B 00 19 | " ;..|
000042F0: 4B 27 67 99 20 22 13 11 11 11 11 11 11 11 11 11 |K'g. "..........|
00004300: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 20 3B |............." ;|
00004310: 3A 20 8D 20 32 38 31 30 30 00 3F 4B 2A 67 50 41 |: . 28100.?K*gPA|
00004320: 53 53 20 B2 20 31 20 3A 20 45 58 49 54 20 B2 20 |SS . 1 : EXIT . |
00004330: 46 41 4C 53 45 20 3A 20 50 54 52 20 B2 20 32 00 |FALSE : PTR . 2.|
00004340: 4B 4B 34 67 8D 20 32 38 38 35 30 00 5F 4B 3E 67 |KK4g. 28850._K>g|
00004350: 8B 20 A8 20 45 52 52 20 A7 20 32 36 35 34 30 00 |. . ERR . 26540.|
00004360: 7C 4B 48 67 8B 20 54 B2 35 38 20 AF 20 C3 28 48 ||KHg. T.58 . .(H|
00004370: 24 29 B2 30 20 A7 20 32 36 34 32 30 00 92 4B 52 |$).0 . 26420..KR|
00004380: 67 8B 20 54 B2 35 39 20 B0 20 54 B2 AB 31 20 A7 |g. T.59 . T..1 .|
00004390: 20 8E 00 9E 4B 5C 67 8D 20 32 38 37 30 30 00 AA | ...K\g. 28700..|
000043A0: 4B 70 67 8D 20 32 38 38 35 30 00 BE 4B 7A 67 8B |Kpg. 28850..Kzg.|
000043B0: 20 A8 20 45 52 52 20 A7 20 32 36 35 34 30 00 DB | . ERR . 26540..|
000043C0: 4B 84 67 8B 20 54 B2 35 38 20 AF 20 C3 28 48 24 |K.g. T.58 . .(H$|
000043D0: 29 B2 30 20 A7 20 32 36 34 32 30 00 E1 4B 98 67 |).0 . 26420..K.g|
000043E0: 8E 00 01 4C AC 67 8B 20 50 4F B1 35 35 20 A7 20 |...L.g. PO.55 . |
000043F0: 8D 20 32 36 36 30 30 20 3A 20 89 20 32 36 35 35 |. 26600 : . 2655|
00004400: 36 00 0D 4C B6 67 8D 20 32 36 31 30 30 00 45 4C |6..L.g. 26100.EL|
00004410: B8 67 8D 20 32 36 33 30 30 20 3A 20 8B 20 45 52 |.g. 26300 : . ER|
00004420: 52 20 AF 20 4F 50 B1 33 20 AF 20 4F 50 B3 37 20 |R . OP.3 . OP.7 |
00004430: A7 20 4F 50 20 B2 20 4F 50 AA 36 20 3A 20 89 20 |. OP . OP.6 : . |
00004440: 32 36 35 35 32 00 51 4C BB 67 8D 20 32 36 35 36 |26552.QL.g. 2656|
00004450: 30 00 73 4C BC 67 8B 20 C3 28 49 4E 24 29 B1 50 |0.sL.g. .(IN$).P|
00004460: 54 52 20 AF 20 A8 20 45 58 49 54 20 A7 20 32 36 |TR . . EXIT . 26|
00004470: 34 32 30 00 79 4C BD 67 8E 00 9D 4C C0 67 8F 2A |420.yL.g...L.g.*|
00004480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AF 4C |*************..L|
000044A0: C1 67 8F 20 42 59 54 45 20 4C 45 4E 47 54 48 00 |.g. BYTE LENGTH.|
000044B0: D3 4C C2 67 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.L.g.***********|
000044C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000044D0: 2A 2A 2A 00 E1 4C C5 67 41 44 20 B2 20 41 44 AA |***..L.gAD . AD.|
000044E0: 31 00 F8 4C CA 67 8B 20 4F 50 B1 31 20 A7 20 41 |1..L.g. OP.1 . A|
000044F0: 44 20 B2 20 41 44 AA 31 00 0F 4D D4 67 8B 20 4F |D . AD.1..M.g. O|
00004500: 50 B1 38 20 A7 20 41 44 20 B2 20 41 44 AA 31 00 |P.8 . AD . AD.1.|
00004510: 15 4D DE 67 8E 00 39 4D E8 67 8F 2A 2A 2A 2A 2A |.M.g..9M.g.*****|
00004520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5A 4D E9 67 8F 20 |*********.ZM.g. |
00004540: 43 41 4C 43 55 4C 41 54 45 20 44 49 52 45 43 54 |CALCULATE DIRECT|
00004550: 49 56 45 20 4C 45 4E 47 54 48 00 7E 4D EA 67 8F |IVE LENGTH.~M.g.|
00004560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8E |**************..|
00004580: 4D F2 67 54 31 20 B2 20 C3 28 49 4E 24 29 00 B4 |M.gT1 . .(IN$)..|
00004590: 4D FC 67 8B 20 50 4F B2 35 36 20 A7 20 32 36 37 |M.g. PO.56 . 267|
000045A0: 32 30 20 3A 20 8F 20 42 59 54 20 44 49 52 45 43 |20 : . BYT DIREC|
000045B0: 54 49 56 45 00 F4 4D 01 68 8B 20 50 4F B2 36 30 |TIVE..M.h. PO.60|
000045C0: 20 A7 20 8D 20 32 38 36 30 30 20 3A 20 41 44 20 | . . 28600 : AD |
000045D0: B2 20 52 45 53 55 4C 54 20 3A 20 8F 20 44 45 41 |. RESULT : . DEA|
000045E0: 4C 20 57 49 54 48 20 4F 52 47 20 44 49 52 45 43 |L WITH ORG DIREC|
000045F0: 54 49 56 45 00 0E 4E 03 68 8B 20 50 4F B2 35 39 |TIVE..N.h. PO.59|
00004600: 20 A7 20 45 58 49 54 20 B2 20 54 52 55 45 00 37 | . EXIT . TRUE.7|
00004610: 4E 06 68 8B 20 50 4F B1 35 38 20 A7 20 8E 20 3A |N.h. PO.58 . . :|
00004620: 20 8F 20 45 4E 44 20 26 20 4F 52 47 20 44 49 52 | . END & ORG DIR|
00004630: 45 43 54 49 56 45 53 00 54 4E 10 68 8F 20 46 49 |ECTIVES.TN.h. FI|
00004640: 4E 44 20 4C 45 4E 2E 20 4F 46 20 57 52 44 20 26 |ND LEN. OF WRD &|
00004650: 20 44 42 59 00 62 4E 1A 68 41 44 20 B2 20 41 44 | DBY.bN.hAD . AD|
00004660: AA 32 00 72 4E 24 68 50 54 52 20 B2 20 50 54 52 |.2.rN$hPTR . PTR|
00004670: AA 31 00 83 4E 2E 68 8B 20 50 54 52 B1 54 31 20 |.1..N.h. PTR.T1 |
00004680: A7 20 8E 00 9B 4E 38 68 54 20 B2 20 C6 28 CA 28 |. ...N8hT . .(.(|
00004690: 49 4E 24 2C 50 54 52 2C 31 29 29 00 B1 4E 42 68 |IN$,PTR,1))..NBh|
000046A0: 8B 20 54 B2 35 38 20 B0 20 54 B2 35 39 20 A7 20 |. T.58 . T.59 . |
000046B0: 8E 00 C5 4E 4C 68 8B 20 54 B3 B1 34 36 20 A7 20 |...NLh. T..46 . |
000046C0: 32 36 36 36 30 00 D1 4E 56 68 89 20 32 36 36 35 |26660..NVh. 2665|
000046D0: 30 00 E7 4E 60 68 8F 20 4C 45 4E 47 54 48 20 46 |0..N`h. LENGTH F|
000046E0: 4F 52 20 42 59 54 2E 00 F5 4E 6A 68 41 44 20 B2 |OR BYT...NjhAD .|
000046F0: 20 41 44 AA 31 00 05 4F 74 68 50 54 52 20 B2 20 | AD.1..OthPTR . |
00004700: 50 54 52 AA 31 00 16 4F 7E 68 8B 20 50 54 52 B1 |PTR.1..O~h. PTR.|
00004710: 54 31 20 A7 20 8E 00 2E 4F 88 68 54 20 B2 20 C6 |T1 . ...O.hT . .|
00004720: 28 CA 28 49 4E 24 2C 50 54 52 2C 31 29 29 00 44 |(.(IN$,PTR,1)).D|
00004730: 4F 92 68 8B 20 54 B2 35 38 20 B0 20 54 B2 35 39 |O.h. T.58 . T.59|
00004740: 20 A7 20 8E 00 58 4F 9C 68 8B 20 54 B3 B1 34 36 | . ..XO.h. T..46|
00004750: 20 A7 20 32 36 37 34 30 00 64 4F A6 68 89 20 32 | . 26740.dO.h. 2|
00004760: 36 37 33 30 00 88 4F 14 69 8F 2A 2A 2A 2A 2A 2A |6730..O.i.******|
00004770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004780: 2A 2A 2A 2A 2A 2A 2A 2A 00 AA 4F 15 69 8F 20 44 |********..O.i. D|
00004790: 55 4D 50 20 53 59 4D 42 4F 4C 20 54 41 42 4C 45 |UMP SYMBOL TABLE|
000047A0: 20 54 4F 20 53 43 52 45 45 4E 00 CE 4F 16 69 8F | TO SCREEN..O.i.|
000047B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000047C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 |**************..|
000047D0: 4F 1E 69 8B 20 53 45 B3 31 20 A7 20 32 36 39 37 |O.i. SE.1 . 2697|
000047E0: 35 00 E7 4F 23 69 99 00 FA 4F 28 69 81 20 58 20 |5..O#i...O(i. X |
000047F0: B2 20 30 20 A4 20 53 45 AB 31 00 13 50 32 69 99 |. 0 . SE.1..P2i.|
00004800: 20 C8 28 53 54 24 28 58 29 2C 36 29 20 A3 31 30 | .(ST$(X),6) .10|
00004810: 29 20 3B 00 3D 50 3C 69 48 20 B2 20 C6 28 CA 28 |) ;.=P<iH . .(.(|
00004820: 53 54 24 28 58 29 2C 38 29 29 AC 32 35 36 AA C6 |ST$(X),8)).256..|
00004830: 28 CA 28 53 54 24 28 58 29 2C 37 29 29 00 49 50 |(.(ST$(X),7)).IP|
00004840: 46 69 8D 20 31 31 30 30 30 00 52 50 50 69 99 20 |Fi. 11000.RPPi. |
00004850: 48 24 00 5A 50 5A 69 82 20 58 00 83 50 5F 69 99 |H$.ZPZi. X..P_i.|
00004860: 20 22 11 20 54 4F 54 41 4C 20 4E 55 4D 42 45 52 | ". TOTAL NUMBER|
00004870: 20 4F 46 20 53 59 4D 42 4F 4C 53 20 2D 2D 2D 22 | OF SYMBOLS ---"|
00004880: 20 53 45 00 89 50 64 69 8E 00 AD 50 78 69 8F 2A | SE..Pdi...Pxi.*|
00004890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000048A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 50 |*************..P|
000048B0: 79 69 8F 20 45 56 41 4C 55 41 54 45 20 4F 50 45 |yi. EVALUATE OPE|
000048C0: 52 41 4E 44 00 E8 50 7A 69 8F 2A 2A 2A 2A 2A 2A |RAND..Pzi.******|
000048D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000048E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 F8 50 82 69 45 52 52 |********..P.iERR|
000048F0: 20 B2 20 46 41 4C 53 45 00 07 51 8C 69 8B 20 4F | . FALSE..Q.i. O|
00004900: 50 B3 32 20 A7 20 8E 00 1A 51 96 69 8B 20 4F 50 |P.2 . ...Q.i. OP|
00004910: B2 33 20 A7 20 32 37 35 30 30 00 2D 51 A0 69 8B |.3 . 27500.-Q.i.|
00004920: 20 4F 50 B2 32 20 A7 20 32 37 34 30 30 00 39 51 | OP.2 . 27400.9Q|
00004930: AA 69 8D 20 32 38 36 30 30 00 51 51 B4 69 8B 20 |.i. 28600.QQ.i. |
00004940: 45 52 52 20 B0 20 C3 28 4F 24 29 B2 30 20 A7 20 |ERR . .(O$).0 . |
00004950: 8E 00 89 51 BE 69 8B 20 28 52 45 53 55 4C 54 B3 |...Q.i. (RESULT.|
00004960: 30 20 B0 20 52 45 53 55 4C 54 B1 32 35 35 29 20 |0 . RESULT.255) |
00004970: AF 20 4F 50 B3 39 20 A7 20 45 4E 20 B2 20 31 20 |. OP.9 . EN . 1 |
00004980: 3A 20 89 20 32 38 30 30 30 00 B9 51 C8 69 8B 20 |: . 28000..Q.i. |
00004990: 52 45 53 55 4C 54 B3 30 20 B0 20 52 45 53 55 4C |RESULT.0 . RESUL|
000049A0: 54 B1 36 35 35 33 35 20 A7 20 45 4E B2 20 32 20 |T.65535 . EN. 2 |
000049B0: 3A 20 89 20 32 38 30 30 30 00 CC 51 D2 69 8B 20 |: . 28000..Q.i. |
000049C0: 4F 50 B3 39 20 A7 20 32 37 31 34 30 00 E2 51 DC |OP.9 . 27140..Q.|
000049D0: 69 54 20 B2 20 B5 28 52 45 53 55 4C 54 AD 32 35 |iT . .(RESULT.25|
000049E0: 36 29 00 FC 51 E6 69 52 45 53 55 4C 54 20 B2 20 |6)..Q.iRESULT . |
000049F0: 52 45 53 55 4C 54 AB 54 AC 32 35 36 00 08 52 F0 |RESULT.T.256..R.|
00004A00: 69 8D 20 32 37 31 34 30 00 17 52 FA 69 52 45 53 |i. 27140..R.iRES|
00004A10: 55 4C 54 20 B2 20 54 00 2D 52 04 6A 4F 24 20 B2 |ULT . T.-R.jO$ .|
00004A20: 20 4F 24 AA C7 28 52 45 53 55 4C 54 29 00 33 52 | O$..(RESULT).3R|
00004A30: 0E 6A 8E 00 57 52 40 6A 8F 2A 2A 2A 2A 2A 2A 2A |.j..WR@j.*******|
00004A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004A50: 2A 2A 2A 2A 2A 2A 2A 00 79 52 41 6A 8F 20 44 49 |*******.yRAj. DI|
00004A60: 52 45 43 54 49 56 45 20 4F 50 45 52 41 4E 44 20 |RECTIVE OPERAND |
00004A70: 45 56 41 4C 55 41 54 4F 52 00 9D 52 42 6A 8F 2A |EVALUATOR..RBj.*|
00004A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AD 52 |*************..R|
00004AA0: 45 6A 45 52 52 20 B2 20 46 41 4C 53 45 00 D0 52 |EjERR . FALSE..R|
00004AB0: 4A 6A 8B 20 50 4F B2 36 30 20 A7 20 8D 20 32 38 |Jj. PO.60 . . 28|
00004AC0: 36 30 30 20 3A 20 41 44 20 B2 52 45 53 55 4C 54 |600 : AD .RESULT|
00004AD0: 00 E8 52 4E 6A 8B 20 50 4F B2 36 32 20 A7 20 53 |..RNj. PO.62 . S|
00004AE0: 59 20 B2 20 54 52 55 45 00 25 53 4F 6A 8B 20 50 |Y . TRUE.%SOj. P|
00004AF0: 4F B2 36 31 20 A7 20 9F 20 32 2C 34 20 3A 20 9D |O.61 . . 2,4 : .|
00004B00: 20 32 20 3A 20 99 20 22 11 41 44 44 2E 20 20 44 | 2 : . ".ADD. D|
00004B10: 41 54 41 20 20 20 20 20 53 4F 55 52 43 45 20 43 |ATA SOURCE C|
00004B20: 4F 44 45 11 22 00 3F 53 54 6A 8B 20 50 4F B2 35 |ODE.".?STj. PO.5|
00004B30: 39 20 A7 20 45 58 49 54 20 B2 20 54 52 55 45 00 |9 . EXIT . TRUE.|
00004B40: 4F 53 5E 6A 8B 20 50 4F B1 35 38 20 A7 20 8E 00 |OS^j. PO.58 . ..|
00004B50: 63 53 68 6A 8B 20 50 4F B2 35 36 20 A7 20 32 37 |cShj. PO.56 . 27|
00004B60: 33 33 30 00 7E 53 72 6A 8F 20 44 42 59 20 26 20 |330.~Srj. DBY & |
00004B70: 57 52 44 20 44 49 52 45 43 54 49 56 45 53 00 8A |WRD DIRECTIVES..|
00004B80: 53 7C 6A 8D 20 32 38 36 30 30 00 BB 53 86 6A 8B |S|j. 28600..S.j.|
00004B90: 20 52 45 53 55 4C 54 B3 30 20 B0 20 52 45 53 55 | RESULT.0 . RESU|
00004BA0: 4C 54 B1 36 35 35 33 35 20 A7 20 45 4E 20 B2 20 |LT.65535 . EN . |
00004BB0: 32 20 3A 20 89 20 32 38 30 30 30 00 FF 53 90 6A |2 : . 28000..S.j|
00004BC0: 8B 20 50 4F B2 35 38 20 A7 20 52 45 53 55 4C 54 |. PO.58 . RESULT|
00004BD0: 20 B2 20 B5 28 52 45 53 55 4C 54 AD 32 35 36 29 | . .(RESULT.256)|
00004BE0: AA 32 35 36 AC 28 52 45 53 55 4C 54 AB B5 28 52 |.256.(RESULT..(R|
00004BF0: 45 53 55 4C 54 AD 32 35 36 29 AC 32 35 36 29 00 |ESULT.256).256).|
00004C00: 38 54 91 6A 8F 20 32 37 32 38 30 20 52 45 56 45 |8T.j. 27280 REVE|
00004C10: 52 53 45 53 20 48 49 2E 20 26 20 4C 4F 2E 20 42 |RSES HI. & LO. B|
00004C20: 59 54 45 53 20 49 46 20 44 49 52 45 43 54 49 56 |YTES IF DIRECTIV|
00004C30: 45 20 49 53 20 44 42 59 00 58 54 9A 6A 54 31 20 |E IS DBY.XT.jT1 |
00004C40: B2 54 20 3A 20 8D 20 32 37 31 30 30 20 3A 20 41 |.T : . 27100 : A|
00004C50: 44 20 B2 20 41 44 AA 32 00 6E 54 A4 6A 8B 20 54 |D . AD.2.nT.j. T|
00004C60: 31 B2 33 32 20 A7 20 8D 20 32 38 31 35 30 00 82 |1.32 . . 28150..|
00004C70: 54 AE 6A 8B 20 54 31 B2 34 36 20 A7 20 32 37 32 |T.j. T1.46 . 272|
00004C80: 36 30 00 88 54 B8 6A 8E 00 9C 54 C2 6A 8F 20 42 |60..T.j...T.j. B|
00004C90: 59 54 20 44 49 52 45 43 54 49 56 45 00 A8 54 CC |YT DIRECTIVE..T.|
00004CA0: 6A 8D 20 32 38 36 30 30 00 D7 54 D6 6A 8B 20 52 |j. 28600..T.j. R|
00004CB0: 45 53 55 4C 54 B3 30 20 B0 20 52 45 53 55 4C 54 |ESULT.0 . RESULT|
00004CC0: B1 32 35 35 20 A7 20 45 4E 20 B2 20 31 20 3A 20 |.255 . EN . 1 : |
00004CD0: 89 20 32 38 30 30 30 00 EF 54 E0 6A 8D 20 32 37 |. 28000..T.j. 27|
00004CE0: 31 34 30 20 3A 20 41 44 20 B2 20 41 44 AA 31 00 |140 : AD . AD.1.|
00004CF0: 04 55 EA 6A 8B 20 54 B2 33 32 20 A7 20 8D 20 32 |.U.j. T.32 . . 2|
00004D00: 38 31 35 30 00 17 55 F4 6A 8B 20 54 B2 34 36 20 |8150..U.j. T.46 |
00004D10: A7 20 32 37 33 34 30 00 1D 55 FE 6A 8E 00 41 55 |. 27340..U.j..AU|
00004D20: 08 6B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.k.*************|
00004D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004D40: 2A 00 65 55 09 6B 8F 20 45 56 41 4C 55 41 54 45 |*.eU.k. EVALUATE|
00004D50: 20 49 4D 4D 45 44 49 41 54 45 20 45 58 50 52 45 | IMMEDIATE EXPRE|
00004D60: 53 53 49 4F 4E 00 89 55 0A 6B 8F 2A 2A 2A 2A 2A |SSION..U.k.*****|
00004D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 55 12 6B 54 35 |*********..U.kT5|
00004D90: 20 B2 20 50 54 52 20 3A 20 8D 20 32 36 30 30 30 | . PTR : . 26000|
00004DA0: 00 B8 55 1C 6B 8B 20 C6 28 48 24 29 B3 B1 33 35 |..U.k. .(H$)..35|
00004DB0: 20 A7 20 32 37 34 38 30 00 D4 55 26 6B 8B 20 CA | . 27480..U&k. .|
00004DC0: 28 48 24 2C 32 2C 31 29 B2 22 27 22 20 A7 20 32 |(H$,2,1)."'" . 2|
00004DD0: 37 34 35 30 00 E1 55 30 6B 50 54 52 20 B2 20 54 |7450..U0kPTR . T|
00004DE0: 35 00 FA 55 32 6B 8B 20 50 54 52 B1 C3 28 49 4E |5..U2k. PTR..(IN|
00004DF0: 24 29 20 A7 20 32 37 34 34 36 00 2C 56 34 6B 8B |$) . 27446.,V4k.|
00004E00: 20 C6 28 CA 28 49 4E 24 2C 50 54 52 2C 31 29 29 | .(.(IN$,PTR,1))|
00004E10: B3 B1 33 35 20 A7 20 50 54 52 20 B2 20 50 54 52 |..35 . PTR . PTR|
00004E20: AA 31 20 3A 20 89 20 32 37 34 34 32 00 4A 56 36 |.1 : . 27442.JV6|
00004E30: 6B 4F 50 20 B2 20 38 20 3A 20 8D 20 32 37 30 35 |kOP . 8 : . 2705|
00004E40: 30 20 3A 20 4F 50 20 B2 20 32 00 50 56 38 6B 8E |0 : OP . 2.PV8k.|
00004E50: 00 6B 56 3A 6B 8F 20 53 49 4E 47 4C 45 20 43 48 |.kV:k. SINGLE CH|
00004E60: 52 2E 20 45 58 50 45 43 54 45 44 00 82 56 44 6B |R. EXPECTED..VDk|
00004E70: 8B 20 C3 28 48 24 29 B3 B1 33 20 A7 20 32 37 34 |. .(H$)..3 . 274|
00004E80: 38 30 00 9C 56 4E 6B 4F 24 20 B2 20 4F 24 AA CA |80..VNkO$ . O$..|
00004E90: 28 48 24 2C 33 2C 31 29 20 3A 20 8E 00 A8 56 58 |(H$,3,1) : ...VX|
00004EA0: 6B 45 4E 20 B2 20 31 32 00 B4 56 62 6B 89 20 32 |kEN . 12..Vbk. 2|
00004EB0: 38 30 30 30 00 D8 56 6C 6B 8F 2A 2A 2A 2A 2A 2A |8000..Vlk.******|
00004EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004ED0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FB 56 6D 6B 8F 20 45 |********..Vmk. E|
00004EE0: 56 41 4C 55 41 54 45 20 52 45 4C 41 54 49 56 45 |VALUATE RELATIVE|
00004EF0: 20 45 58 50 52 45 53 53 49 4F 4E 00 1F 57 6E 6B | EXPRESSION..Wnk|
00004F00: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00004F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00004F20: 2B 57 76 6B 8D 20 32 38 36 30 30 00 43 57 80 6B |+Wvk. 28600.CW.k|
00004F30: 8B 20 C3 28 4F 24 29 B2 30 20 B0 20 45 52 52 20 |. .(O$).0 . ERR |
00004F40: A7 20 8E 00 5A 57 8A 6B 52 45 53 55 4C 54 20 B2 |. ..ZW.kRESULT .|
00004F50: 20 52 45 53 55 4C 54 AB 41 44 00 7F 57 94 6B 8B | RESULT.AD..W.k.|
00004F60: 20 52 45 53 55 4C 54 B3 30 20 A7 20 52 45 53 55 | RESULT.0 . RESU|
00004F70: 4C 54 20 B2 20 52 45 53 55 4C 54 AA 32 35 36 00 |LT . RESULT.256.|
00004F80: A4 57 A8 6B 8B 20 52 45 53 55 4C 54 B3 32 35 36 |.W.k. RESULT.256|
00004F90: 20 AF 20 52 45 53 55 4C 54 B1 B2 30 20 A7 20 32 | . RESULT..0 . 2|
00004FA0: 37 31 34 30 00 B0 57 B2 6B 45 4E 20 B2 20 31 30 |7140..W.kEN . 10|
00004FB0: 00 BC 57 BC 6B 89 20 32 38 30 30 30 00 E0 57 D0 |..W.k. 28000..W.|
00004FC0: 6B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |k.**************|
00004FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004FE0: 00 F9 57 D1 6B 8F 20 44 4F 20 50 41 53 53 20 32 |..W.k. DO PASS 2|
00004FF0: 20 41 53 53 45 4D 42 4C 59 00 1D 58 D2 6B 8F 2A | ASSEMBLY..X.k.*|
00005000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2A 58 |*************.*X|
00005020: D5 6B 50 41 53 53 20 B2 20 32 00 36 58 DA 6B 4F |.kPASS . 2.6X.kO|
00005030: 24 20 B2 20 22 22 00 55 58 E4 6B 45 58 49 54 20 |$ . "".UX.kEXIT |
00005040: B2 20 46 41 4C 53 45 20 3A 20 45 52 52 20 B2 20 |. FALSE : ERR . |
00005050: 46 41 4C 53 45 00 61 58 E9 6B 50 54 52 20 B2 20 |FALSE.aX.kPTR . |
00005060: 32 00 6D 58 EE 6B 8D 20 32 38 38 35 30 00 81 58 |2.mX.k. 28850..X|
00005070: F8 6B 8B 20 A8 20 45 52 52 20 A7 20 32 37 37 32 |.k. . ERR . 2772|
00005080: 30 00 9E 58 02 6C 8B 20 54 B2 35 38 20 AF 20 C3 |0..X.l. T.58 . .|
00005090: 28 48 24 29 B2 30 20 A7 20 32 37 36 33 30 00 C2 |(H$).0 . 27630..|
000050A0: 58 0C 6C 8B 20 54 B2 35 39 20 B0 20 54 B2 AB 31 |X.l. T.59 . T..1|
000050B0: 20 A7 20 45 52 52 20 B2 20 46 41 4C 53 45 20 3A | . ERR . FALSE :|
000050C0: 20 8E 00 CE 58 11 6C 8D 20 32 38 37 30 30 00 DA | ...X.l. 28700..|
000050D0: 58 16 6C 8D 20 32 38 38 35 30 00 EE 58 20 6C 8B |X.l. 28850..X l.|
000050E0: 20 A8 20 45 52 52 20 A7 20 32 37 37 32 30 00 0B | . ERR . 27720..|
000050F0: 59 2A 6C 8B 20 54 B2 35 38 20 AF 20 C3 28 48 24 |Y*l. T.58 . .(H$|
00005100: 29 B2 30 20 A7 20 32 37 36 33 30 00 2F 59 2F 6C |).0 . 27630./Y/l|
00005110: 8B 20 54 B2 35 39 20 B0 20 54 B2 AB 31 20 A7 20 |. T.59 . T..1 . |
00005120: 45 52 52 20 B2 20 46 41 4C 53 45 20 3A 20 8E 00 |ERR . FALSE : ..|
00005130: 44 59 34 6C 45 4E 20 B2 20 33 20 3A 20 89 20 32 |DY4lEN . 3 : . 2|
00005140: 38 30 30 30 00 64 59 48 6C 8B 20 50 4F B1 35 35 |8000.dYHl. PO.55|
00005150: 20 A7 20 8D 20 32 37 32 30 30 20 3A 20 89 20 32 | . . 27200 : . 2|
00005160: 37 37 34 35 00 92 59 4B 6C 54 35 20 B2 20 50 54 |7745..YKlT5 . PT|
00005170: 52 20 3A 20 8D 20 32 36 31 30 30 20 3A 20 54 38 |R : . 26100 : T8|
00005180: 20 B2 20 50 54 52 20 20 3A 20 50 54 52 20 B2 20 | . PTR : PTR . |
00005190: 54 35 00 B0 59 4D 6C 8D 20 32 36 33 30 30 20 3A |T5..YMl. 26300 :|
000051A0: 20 8B 20 A8 20 45 52 52 20 A7 20 32 37 37 33 30 | . . ERR . 27730|
000051B0: 00 E3 59 4F 6C 8B 20 4F 50 B3 37 20 AF 20 4F 50 |..YOl. OP.7 . OP|
000051C0: B1 33 20 A7 20 4F 50 20 B2 20 4F 50 AA 36 20 3A |.3 . OP . OP.6 :|
000051D0: 20 50 54 52 20 B2 20 54 35 20 3A 20 89 20 32 37 | PTR . T5 : . 27|
000051E0: 37 32 35 00 F9 59 50 6C 45 4E 20 B2 20 31 38 20 |725..YPlEN . 18 |
000051F0: 3A 20 89 20 32 38 30 30 30 00 05 5A 52 6C 8D 20 |: . 28000..ZRl. |
00005200: 32 36 35 36 30 00 30 5A 5C 6C 8B 20 A8 20 45 52 |26560.0Z\l. . ER|
00005210: 52 20 AF 20 C3 28 4F 24 29 B1 30 20 A7 20 8D 20 |R . .(O$).0 . . |
00005220: 32 37 30 30 30 20 3A 20 50 54 52 20 B2 20 54 38 |27000 : PTR . T8|
00005230: 00 52 5A 61 6C 8B 20 C3 28 49 4E 24 29 B1 50 54 |.RZal. .(IN$).PT|
00005240: 52 20 AF 20 A8 20 45 58 49 54 20 A7 20 32 37 36 |R . . EXIT . 276|
00005250: 33 30 00 58 5A 66 6C 8E 00 7C 5A 60 6D 8F 2A 2A |30.XZfl..|Z`m.**|
00005260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9A 5A 61 |************..Za|
00005280: 6D 8F 20 41 53 53 45 4D 42 4C 45 52 20 45 52 52 |m. ASSEMBLER ERR|
00005290: 4F 52 20 52 4F 55 54 49 4E 45 00 BE 5A 62 6D 8F |OR ROUTINE..Zbm.|
000052A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000052B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DF |**************..|
000052C0: 5A 65 6D 8B 20 50 54 52 B1 B2 33 30 30 20 B0 20 |Zem. PTR..300 . |
000052D0: 50 41 53 53 B3 B1 32 20 A7 20 32 38 30 35 30 00 |PASS..2 . 28050.|
000052E0: F6 5A 6A 6D 99 20 A6 31 34 29 20 3B 20 3A 20 8D |.Zjm. .14) ; : .|
000052F0: 20 32 38 31 30 30 00 04 5B 6F 6D 45 43 20 B2 20 | 28100..[omEC . |
00005300: 45 43 AA 31 00 2F 5B 74 6D 81 20 58 20 B2 20 AB |EC.1./[tm. X . .|
00005310: 31 33 20 A4 20 50 54 52 20 3A 20 99 20 22 3D 22 |13 . PTR : . "="|
00005320: 20 3B 3A 20 82 20 58 20 3A 20 99 20 22 91 22 00 | ;: . X : . ".".|
00005330: 4D 5B 7E 6D 99 20 22 20 20 20 22 20 45 52 52 24 |M[~m. " " ERR$|
00005340: 28 45 4E 29 20 22 20 45 52 52 4F 52 22 00 68 5B |(EN) " ERROR".h[|
00005350: 88 6D 50 54 52 20 B2 20 33 30 30 20 3A 20 45 52 |.mPTR . 300 : ER|
00005360: 52 20 B2 20 54 52 55 45 00 6E 5B 92 6D 8E 00 92 |R . TRUE.n[.m...|
00005370: 5B C4 6D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |[.m.************|
00005380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005390: 2A 2A 00 B0 5B C5 6D 8F 20 50 52 49 4E 54 20 49 |**..[.m. PRINT I|
000053A0: 4E 24 20 54 4F 20 54 48 45 20 53 43 52 45 45 4E |N$ TO THE SCREEN|
000053B0: 00 D4 5B C6 6D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..[.m.**********|
000053C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000053D0: 2A 2A 2A 2A 00 03 5C D8 6D 99 20 32 35 36 AC C6 |****..\.m. 256..|
000053E0: 28 CA 28 49 4E 24 2C 32 2C 31 29 29 AA C6 28 CA |(.(IN$,2,1))..(.|
000053F0: 28 49 4E 24 2C 31 2C 31 29 29 20 CA 28 49 4E 24 |(IN$,1,1)) .(IN$|
00005400: 2C 33 29 00 09 5C EC 6D 8E 00 2D 5C F6 6D 8F 2A |,3)..\.m..-\.m.*|
00005410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4E 5C |*************.N\|
00005430: F7 6D 8F 20 53 59 4D 42 4F 4C 20 54 4F 20 4E 4F |.m. SYMBOL TO NO|
00005440: 4E 2D 4C 45 54 54 45 52 2F 44 49 47 49 54 00 72 |N-LETTER/DIGIT.r|
00005450: 5C F8 6D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |\.m.************|
00005460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005470: 2A 2A 00 87 5C 00 6E 48 24 20 B2 20 22 22 20 3A |**..\.nH$ . "" :|
00005480: 20 54 20 B2 20 AB 31 00 97 5C 05 6E 50 54 52 20 | T . .1..\.nPTR |
00005490: B2 20 50 54 52 AA 31 00 B0 5C 0A 6E 8B 20 50 54 |. PTR.1..\.n. PT|
000054A0: 52 B1 C3 28 49 4E 24 29 20 A7 20 32 38 32 31 30 |R..(IN$) . 28210|
000054B0: 00 C8 5C 14 6E 54 20 B2 20 C6 28 CA 28 49 4E 24 |..\.nT . .(.(IN$|
000054C0: 2C 50 54 52 2C 31 29 29 00 E5 5C 19 6E 8B 20 54 |,PTR,1))..\.n. T|
000054D0: B2 33 32 20 AF 20 C3 28 48 24 29 B2 30 20 A7 20 |.32 . .(H$).0 . |
000054E0: 32 38 31 36 30 00 11 5D 1E 6E 8B 20 54 B3 34 38 |28160..].n. T.48|
000054F0: 20 B0 20 54 B1 39 30 20 B0 20 28 20 54 B1 35 37 | . T.90 . ( T.57|
00005500: 20 AF 20 54 B3 36 35 20 29 20 A7 20 32 38 32 31 | . T.65 ) . 2821|
00005510: 30 00 2C 5D 28 6E 48 24 20 B2 20 48 24 AA C7 28 |0.,](nH$ . H$..(|
00005520: 54 29 20 3A 20 89 20 32 38 31 36 35 00 32 5D 32 |T) : . 28165.2]2|
00005530: 6E 8E 00 56 5D 5A 6E 8F 2A 2A 2A 2A 2A 2A 2A 2A |n..V]Zn.********|
00005540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005550: 2A 2A 2A 2A 2A 2A 00 6E 5D 5B 6E 8F 20 46 49 4E |******.n][n. FIN|
00005560: 44 20 4C 41 42 45 4C 20 49 4E 20 53 54 24 00 92 |D LABEL IN ST$..|
00005570: 5D 5C 6E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |]\n.************|
00005580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005590: 2A 2A 00 B3 5D 64 6E 45 52 52 20 B2 20 46 41 4C |**..]dnERR . FAL|
000055A0: 53 45 20 3A 20 48 20 B2 20 30 20 3A 20 54 31 20 |SE : H . 0 : T1 |
000055B0: B2 20 30 00 D9 5D 6E 6E 8B 20 C3 28 48 24 29 B3 |. 0..]nn. .(H$).|
000055C0: 36 20 A7 20 48 24 20 B2 20 48 24 AA 22 20 22 20 |6 . H$ . H$." " |
000055D0: 3A 20 89 20 32 38 32 37 30 00 F6 5D 78 6E 8B 20 |: . 28270..]xn. |
000055E0: 54 31 B2 53 45 20 A7 20 45 52 52 20 B2 20 54 52 |T1.SE . ERR . TR|
000055F0: 55 45 20 3A 20 8E 00 25 5E 82 6E 8B 20 CA 28 53 |UE : ..%^.n. .(S|
00005600: 54 24 28 54 31 29 2C 31 2C 36 29 B3 B1 48 24 20 |T$(T1),1,6)..H$ |
00005610: A7 20 54 31 20 B2 20 54 31 AA 31 20 3A 20 89 20 |. T1 . T1.1 : . |
00005620: 32 38 32 38 30 00 59 5E 87 6E 48 20 B2 20 C6 28 |28280.Y^.nH . .(|
00005630: CA 28 53 54 24 28 54 31 29 2C 38 2C 31 29 29 AC |.(ST$(T1),8,1)).|
00005640: 32 35 36 AA C6 28 CA 28 53 54 24 28 54 31 29 2C |256..(.(ST$(T1),|
00005650: 37 2C 31 29 29 20 3A 20 8E 00 7D 5E 8C 6E 8F 2A |7,1)) : ..}^.n.*|
00005660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 5E |*************..^|
00005680: 8D 6E 8F 20 45 56 41 4C 55 41 54 45 20 4C 41 42 |.n. EVALUATE LAB|
00005690: 45 4C 20 4F 52 20 4E 55 4D 42 45 52 00 C0 5E 8E |EL OR NUMBER..^.|
000056A0: 6E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |n.**************|
000056B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000056C0: 00 CC 5E A0 6E 8D 20 32 38 31 35 30 00 EB 5E A5 |..^.n. 28150..^.|
000056D0: 6E 8B 20 54 B2 34 30 20 AF 20 C3 28 48 24 29 B2 |n. T.40 . .(H$).|
000056E0: 30 20 A7 20 8D 20 32 38 31 35 30 00 FA 5E AA 6E |0 . . 28150..^.n|
000056F0: 54 31 20 B2 20 C3 28 48 24 29 00 37 5F AF 6E 8B |T1 . .(H$).7_.n.|
00005700: 20 28 54 B2 AB 31 20 B0 20 54 B2 33 32 20 B0 20 | (T..1 . T.32 . |
00005710: 54 B2 35 38 20 B0 20 54 B2 35 39 20 B0 20 54 B2 |T.58 . T.59 . T.|
00005720: 34 31 20 B0 20 54 B2 34 36 29 20 AF 20 54 31 20 |41 . T.46) . T1 |
00005730: B2 20 30 20 A7 20 8E 00 4A 5F B4 6E 8B 20 54 31 |. 0 . ..J_.n. T1|
00005740: B2 30 20 A7 20 32 38 33 39 30 00 70 5F BE 6E 8B |.0 . 28390.p_.n.|
00005750: 20 C6 28 48 24 29 B3 B2 35 37 20 A7 20 48 20 B2 | .(H$)..57 . H .|
00005760: 20 C5 28 48 24 29 20 3A 20 89 20 32 38 34 39 32 | .(H$) : . 28492|
00005770: 00 9B 5F C8 6E 8D 20 32 38 32 35 30 20 3A 20 8F |.._.n. 28250 : .|
00005780: 20 46 49 4E 44 20 4C 41 42 45 4C 20 49 4E 20 53 | FIND LABEL IN S|
00005790: 59 4D 42 4F 4C 20 54 41 42 4C 45 00 C1 5F D2 6E |YMBOL TABLE.._.n|
000057A0: 8B 20 45 52 52 20 A7 20 45 4E 20 B2 20 31 31 20 |. ERR . EN . 11 |
000057B0: 3A 20 48 20 B2 20 30 20 3A 20 89 20 32 38 30 30 |: H . 0 : . 2800|
000057C0: 30 00 CD 5F DC 6E 89 20 32 38 34 39 32 00 F8 5F |0.._.n. 28492.._|
000057D0: E6 6E 8F 20 48 45 58 2C 4F 43 54 41 4C 20 4F 52 |.n. HEX,OCTAL OR|
000057E0: 20 42 49 4E 41 52 59 20 4E 55 4D 42 45 52 53 20 | BINARY NUMBERS |
000057F0: 45 56 41 4C 55 41 54 45 00 0D 60 F0 6E 54 32 20 |EVALUATE..`.nT2 |
00005800: B2 20 54 20 3A 20 8D 20 32 38 31 35 30 00 23 60 |. T : . 28150.#`|
00005810: FA 6E 8B 20 C3 28 48 24 29 B2 30 20 A7 20 32 38 |.n. .(H$).0 . 28|
00005820: 34 35 30 00 37 60 04 6F 8B 20 54 32 B2 33 36 20 |450.7`.o. T2.36 |
00005830: A7 20 32 38 34 37 30 00 58 60 0E 6F 8B 20 54 32 |. 28470.X`.o. T2|
00005840: B2 33 37 20 A7 20 42 41 53 45 20 B2 20 32 20 3A |.37 . BASE . 2 :|
00005850: 20 89 20 32 38 34 37 30 00 79 60 18 6F 8B 20 54 | . 28470.y`.o. T|
00005860: 32 B2 33 38 20 A7 20 42 41 53 45 20 B2 20 38 20 |2.38 . BASE . 8 |
00005870: 3A 20 89 20 32 38 34 37 30 00 8D 60 22 6F 8F 20 |: . 28470..`"o. |
00005880: 49 4E 56 41 4C 49 44 20 4C 41 42 45 4C 00 AA 60 |INVALID LABEL..`|
00005890: 2C 6F 48 20 B2 20 30 20 3A 20 45 4E 20 B2 20 36 |,oH . 0 : EN . 6|
000058A0: 20 3A 20 89 20 32 38 30 30 30 00 C5 60 36 6F 8F | : . 28000..`6o.|
000058B0: 20 54 45 53 54 20 49 46 20 56 41 4C 49 44 20 4E | TEST IF VALID N|
000058C0: 55 4D 42 45 52 00 D1 60 3B 6F 8D 20 31 31 39 35 |UMBER..`;o. 1195|
000058D0: 30 00 F0 60 40 6F 42 41 53 45 20 B2 20 31 36 20 |0..`@oBASE . 16 |
000058E0: 3A 20 8F 20 44 45 46 41 55 4C 54 20 42 41 53 45 |: . DEFAULT BASE|
000058F0: 00 15 61 4A 6F 8B 20 45 52 52 20 A7 20 48 20 B2 |..aJo. ERR . H .|
00005900: 20 30 20 3A 20 45 4E 20 B2 20 37 20 3A 20 89 20 | 0 : EN . 7 : . |
00005910: 32 38 30 30 30 00 45 61 4C 6F 50 54 52 20 B2 20 |28000.EaLoPTR . |
00005920: 50 54 52 AB 31 20 3A 20 8D 20 32 38 31 35 30 20 |PTR.1 : . 28150 |
00005930: 3A 20 8F 20 47 45 54 20 4E 45 58 54 20 4F 50 45 |: . GET NEXT OPE|
00005940: 52 41 54 4F 52 00 4B 61 4F 6F 8E 00 6F 61 54 6F |RATOR.KaOo..oaTo|
00005950: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00005960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00005970: 8F 61 55 6F 8F 20 45 56 41 4C 55 41 54 45 20 54 |.aUo. EVALUATE T|
00005980: 45 52 4D 20 57 49 54 48 20 2A 20 4F 52 20 2F 00 |ERM WITH * OR /.|
00005990: B3 61 56 6F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.aVo.***********|
000059A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000059B0: 2A 2A 2A 00 CA 61 5E 6F 8D 20 32 38 33 30 30 20 |***..a^o. 28300 |
000059C0: 3A 20 54 45 52 4D 20 B2 20 48 00 DF 61 68 6F 8B |: TERM . H..aho.|
000059D0: 20 50 54 52 B1 C3 28 49 4E 24 29 20 A7 20 8E 00 | PTR..(IN$) . ..|
000059E0: 11 62 72 6F 8B 20 54 B2 34 32 20 A7 20 8D 20 32 |.bro. T.42 . . 2|
000059F0: 38 33 30 30 20 3A 20 54 45 52 4D 20 B2 20 B5 28 |8300 : TERM . .(|
00005A00: 54 45 52 4D AC 48 29 20 3A 20 89 20 32 38 35 32 |TERM.H) : . 2852|
00005A10: 30 00 21 62 86 6F 8B 20 54 B3 B1 34 37 20 A7 20 |0.!b.o. T..47 . |
00005A20: 8E 00 2D 62 90 6F 8D 20 32 38 33 30 30 00 56 62 |..-b.o. 28300.Vb|
00005A30: 9A 6F 8B 20 48 B2 30 20 A7 20 54 45 52 4D 20 B2 |.o. H.0 . TERM .|
00005A40: 20 30 20 3A 20 45 4E 20 B2 20 31 35 20 3A 20 89 | 0 : EN . 15 : .|
00005A50: 20 32 38 30 30 30 00 6B 62 A4 6F 54 45 52 4D 20 | 28000.kb.oTERM |
00005A60: B2 20 B5 28 54 45 52 4D AD 48 29 00 77 62 AE 6F |. .(TERM.H).wb.o|
00005A70: 89 20 32 38 35 32 30 00 9B 62 B8 6F 8F 2A 2A 2A |. 28520..b.o.***|
00005A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B5 62 B9 6F |***********..b.o|
00005AA0: 8F 20 45 56 41 4C 55 41 54 45 20 45 58 50 52 45 |. EVALUATE EXPRE|
00005AB0: 53 53 49 4F 4E 00 D9 62 BA 6F 8F 2A 2A 2A 2A 2A |SSION..b.o.*****|
00005AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E9 62 BD 6F 45 52 |*********..b.oER|
00005AE0: 52 20 B2 20 46 41 4C 53 45 00 05 63 C2 6F 8D 20 |R . FALSE..c.o. |
00005AF0: 32 38 35 30 30 20 3A 20 52 45 53 55 4C 54 20 B2 |28500 : RESULT .|
00005B00: 20 54 45 52 4D 00 42 63 CC 6F 8B 54 B2 AB 31 B0 | TERM.Bc.o.T..1.|
00005B10: 20 54 B2 33 32 20 B0 20 54 B2 35 38 20 B0 20 54 | T.32 . T.58 . T|
00005B20: B2 35 39 20 B0 20 54 B2 34 31 20 B0 20 54 B2 34 |.59 . T.41 . T.4|
00005B30: 36 20 B0 20 50 54 52 B1 C3 28 49 4E 24 29 20 A7 |6 . PTR..(IN$) .|
00005B40: 20 8E 00 7B 63 D6 6F 8B 20 54 B2 34 33 20 A7 20 | ..{c.o. T.43 . |
00005B50: 8D 20 32 38 35 30 30 20 3A 20 52 45 53 55 4C 54 |. 28500 : RESULT|
00005B60: 20 B2 20 B5 28 52 45 53 55 4C 54 AA 54 45 52 4D | . .(RESULT.TERM|
00005B70: 29 20 3A 20 89 20 32 38 36 32 30 00 B4 63 E0 6F |) : . 28620..c.o|
00005B80: 8B 20 54 B2 34 35 20 A7 20 8D 20 32 38 35 30 30 |. T.45 . . 28500|
00005B90: 20 3A 20 52 45 53 55 4C 54 20 B2 20 B5 28 52 45 | : RESULT . .(RE|
00005BA0: 53 55 4C 54 AB 54 45 52 4D 29 20 3A 20 89 20 32 |SULT.TERM) : . 2|
00005BB0: 38 36 32 30 00 D6 63 EA 6F 52 45 53 55 4C 54 20 |8620..c.oRESULT |
00005BC0: B2 20 30 20 3A 20 45 4E 20 B2 20 34 20 3A 20 89 |. 0 : EN . 4 : .|
00005BD0: 20 32 38 30 30 30 00 FA 63 1C 70 8F 2A 2A 2A 2A | 28000..c.p.****|
00005BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1B 64 1D 70 8F |**********..d.p.|
00005C00: 20 41 44 44 20 53 59 4D 42 4F 4C 20 54 4F 20 53 | ADD SYMBOL TO S|
00005C10: 59 4D 42 4F 4C 20 54 41 42 4C 45 00 3F 64 1E 70 |YMBOL TABLE.?d.p|
00005C20: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00005C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00005C40: 79 64 26 70 8B 20 53 45 B1 B2 53 4D 20 A7 20 45 |yd&p. SE..SM . E|
00005C50: 58 49 54 20 B2 20 54 52 55 45 20 3A 20 50 41 53 |XIT . TRUE : PAS|
00005C60: 53 20 B2 20 32 20 3A 20 45 4E 20 B2 20 31 34 20 |S . 2 : EN . 14 |
00005C70: 3A 20 89 20 32 38 30 30 30 00 97 64 30 70 8D 20 |: . 28000..d0p. |
00005C80: 32 38 32 35 30 20 3A 20 8B 20 A8 20 45 52 52 20 |28250 : . . ERR |
00005C90: A7 20 32 38 38 33 30 00 B2 64 44 70 54 24 20 B2 |. 28830..dDpT$ .|
00005CA0: 20 C8 28 48 24 AA 22 20 20 20 20 20 20 20 22 2C | .(H$." ",|
00005CB0: 36 29 00 BF 64 49 70 54 42 20 B2 20 50 54 52 00 |6)..dIpTB . PTR.|
00005CC0: DD 64 4E 70 8D 20 32 38 31 35 30 20 3A 20 8F 20 |.dNp. 28150 : . |
00005CD0: 44 4F 45 53 20 3D 20 46 4F 4C 4C 4F 57 00 08 65 |DOES = FOLLOW..e|
00005CE0: 58 70 8B 20 54 B3 B1 36 31 20 A7 20 50 54 52 20 |Xp. T..61 . PTR |
00005CF0: B2 20 54 42 20 3A 20 52 45 20 B2 20 41 44 20 3A |. TB : RE . AD :|
00005D00: 20 89 20 32 38 37 38 30 00 1D 65 62 70 54 30 20 | . 28780..ebpT0 |
00005D10: B2 20 54 20 3A 20 8D 20 32 38 36 30 30 00 28 65 |. T : . 28600.(e|
00005D20: 6C 70 45 4E 20 B2 20 30 00 64 65 76 70 8B 20 52 |lpEN . 0.devp. R|
00005D30: 45 B3 30 20 B0 20 52 45 B1 36 35 35 33 35 20 A7 |E.0 . RE.65535 .|
00005D40: 20 53 54 24 28 53 45 29 B2 54 24 AA C7 28 30 29 | ST$(SE).T$..(0)|
00005D50: AA C7 28 30 29 AA C7 28 32 29 20 3A 20 89 20 32 |..(0)..(2) : . 2|
00005D60: 38 38 31 30 00 96 65 80 70 53 54 24 28 53 45 29 |8810..e.pST$(SE)|
00005D70: 20 B2 20 54 24 AA C7 28 52 45 AB B5 28 52 45 AD | . T$..(RE..(RE.|
00005D80: 32 35 36 29 AC 32 35 36 29 AA C7 28 B5 28 52 45 |256).256)..(.(RE|
00005D90: AD 32 35 36 29 29 00 A4 65 8A 70 53 45 20 B2 20 |.256))..e.pSE . |
00005DA0: 53 45 AA 31 00 AA 65 94 70 8E 00 DF 65 9E 70 8B |SE.1..e.p...e.p.|
00005DB0: 20 50 41 53 53 B2 31 20 AF 20 C3 28 53 54 24 28 | PASS.1 . .(ST$(|
00005DC0: 54 31 29 29 B3 39 20 A7 20 53 54 24 28 54 31 29 |T1)).9 . ST$(T1)|
00005DD0: 20 B2 20 53 54 24 28 54 31 29 AA C7 28 38 29 00 | . ST$(T1)..(8).|
00005DE0: F5 65 A3 70 8B 20 50 41 53 53 B3 B1 32 20 A7 20 |.e.p. PASS..2 . |
00005DF0: 32 38 38 34 30 00 2B 66 A4 70 54 41 20 B2 20 50 |28840.+f.pTA . P|
00005E00: 54 52 20 3A 20 8D 20 32 38 31 35 30 20 3A 20 8B |TR : . 28150 : .|
00005E10: 20 54 B3 B1 36 31 20 A7 20 50 54 52 20 B2 20 54 | T..61 . PTR . T|
00005E20: 41 20 3A 20 89 20 32 38 38 34 30 00 63 66 A5 70 |A : . 28840.cf.p|
00005E30: 8D 20 32 36 30 30 30 20 3A 20 8F 20 53 43 41 4E |. 26000 : . SCAN|
00005E40: 20 50 41 53 54 20 3D 20 53 49 47 4E 20 28 49 46 | PAST = SIGN (IF|
00005E50: 20 50 52 45 53 45 4E 54 29 20 4F 4E 20 50 41 53 | PRESENT) ON PAS|
00005E60: 53 20 32 00 84 66 A8 70 8B 20 50 41 53 53 B3 B1 |S 2..f.p. PASS..|
00005E70: 32 20 B0 20 C3 28 53 54 24 28 54 31 29 29 B3 39 |2 . .(ST$(T1)).9|
00005E80: 20 A7 20 8E 00 A9 66 AD 70 45 4E 20 B2 20 C6 28 | . ...f.pEN . .(|
00005E90: CA 28 53 54 24 28 54 31 29 2C 39 2C 31 29 29 20 |.(ST$(T1),9,1)) |
00005EA0: 3A 20 89 20 32 38 30 30 30 00 CD 66 B2 70 8F 2A |: . 28000..f.p.*|
00005EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 66 |*************..f|
00005ED0: B3 70 8F 20 54 45 53 54 20 46 4F 52 20 4F 50 43 |.p. TEST FOR OPC|
00005EE0: 4F 44 45 2F 44 49 52 45 43 54 49 56 45 00 11 67 |ODE/DIRECTIVE..g|
00005EF0: B4 70 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.p.*************|
00005F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005F10: 2A 00 1D 67 BC 70 8D 20 32 38 31 35 30 00 2D 67 |*..g.p. 28150.-g|
00005F20: C6 70 45 52 52 20 B2 20 46 41 4C 53 45 00 3D 67 |.pERR . FALSE.=g|
00005F30: DA 70 50 54 52 20 B2 20 50 54 52 AB 31 00 54 67 |.pPTR . PTR.1.Tg|
00005F40: DF 70 8B 20 C3 28 48 24 29 B3 B1 33 20 A7 20 32 |.p. .(H$)..3 . 2|
00005F50: 38 39 34 30 00 60 67 E4 70 50 4F 20 B2 20 AB 32 |8940.`g.pPO . .2|
00005F60: 00 6E 67 EE 70 50 4F 20 B2 20 50 4F AA 33 00 8E |.ng.pPO . PO.3..|
00005F70: 67 F8 70 8B 20 48 24 B2 CA 28 54 41 24 28 32 29 |g.p. H$..(TA$(2)|
00005F80: 2C 50 4F 2C 33 29 20 A7 20 32 38 39 35 30 00 AE |,PO,3) . 28950..|
00005F90: 67 02 71 8B 20 28 50 4F AA 33 29 B3 B2 C3 28 54 |g.q. (PO.3)...(T|
00005FA0: 41 24 28 32 29 29 20 A7 20 32 38 39 31 30 00 BD |A$(2)) . 28910..|
00005FB0: 67 0C 71 45 52 52 20 B2 20 54 52 55 45 00 CF 67 |g.qERR . TRUE..g|
00005FC0: 16 71 50 4F 20 B2 20 28 50 4F AB 31 29 AD 33 00 |.qPO . (PO.1).3.|
00005FD0: E7 67 20 71 45 52 52 20 B2 20 28 50 4F B2 35 36 |.g qERR . (PO.56|
00005FE0: 29 20 B0 20 45 52 52 00 FF 67 2A 71 8B 20 50 4F |) . ERR..g*q. PO|
00005FF0: B1 35 36 20 A7 20 50 4F 20 B2 20 50 4F AB 31 00 |.56 . PO . PO.1.|
00006000: 05 68 34 71 8E 00 00 00 |.h4q.... |
..%..'.******************************.B.
$'. GENERAL INITIALISATION.F..'.********
**********************...0'. C(PTR$).C(E
$)..255 . . : . 19000...3'DEV . 1.D.8'..
HEX(X) . (X . 15).48.((X . 15).9).7...B
'.. DEC(X) . X.48.(X.57).7...L'FALSE . 0
: TRUE . .1 : BASE . 16.#.V'. 53281,1 :
. 53280,15.G.T'.***********************
*******.I.U'. CONTROL ROUTINE FOR MONITO
R...V'.******************************.P.
~'. EXIT TO BASIC,MEMORY MODIFY,MEMORY D
UMP,MACHINE CODE EXECUTE...'. LOAD MACH
INE CODE FILE,SAVE MACHINE CODE FILE....
'. DISASSEMBLER.)..'. FILE EDITOR.9..'.
ASSEMBLER.C.N'. END.I.X'..S..'X . 0....'
. "..--------- MACHINE CODE MONITOR ----
-----.."....(. T$.E..(. T$.."END" . . .5
) X ")" T$ : X. X.1 : . 10250....(. X.15
. . Y . X . 15 : . : .....(. "COMMAND (
0 -" X.1 " ) : ";: . T.'.<(. T.0 . T.X
. 10100.`.A(. T.0 . . ".....
.BYE....." : 1 : ....F(. T . 13100
,13300,13500,14300,14100,15800,24800,200
00...P(. 10100.J..*.********************
**********....*. CONVERT DECIMAL TO HEX.
...*.******************************....+
T . H : H$ . ""._..+H$ . G(.HEX(T..(T.16
).16)).H$ : T . .(T.16) : . T.0 . 11020.
E.*+....\+.*****************************
*...]+. BYTE INTO HEX.A.^+.*************
*****************...F+H . B(AD) : AD . A
D.1...P+. 11000...Z+. C(H$).2 . H$ . "0"
.H$....+O2$ . O2$.H$....+..>..+.********
**********************.Y.A+. INPUT FINIS
H ADDRESS.}.B+.*************************
*****...E+H$ . ""...J+. "FINISH ADDRESS
( IN HEX ) : "; H$ : . 11950....+. ERR .
H.0 . H.65535 . 11200....+EA . H : ....
.+.******************************.'..+.
INPUT FILE NAME.E..+. 25500 : . DEV.4 .
11290.R..+IN$ . "".Z..+. " FILE NAME : "
; IN$ : T . C(IN$)....,. T.16 . T.0 . .
".FILE NAME INVALID" : . 11260....,..X.J
..******************************...K.. A
SK CONTINUE ?...L..*********************
*********...R.T$ . "".=.T.. "CONTINUE (
Y/N ) : "; T$.`.^.. T$."Y" . CO . TRUE :
. 11895..H.. T$.."N" . . "."; :.11850.
..R.CO . FALSE...W........**************
****************...... CONVERT HEX IN H$
TO DEC IN H......**********************
********.,.G.ERR . FALSE : H . 0 : . C(H
$).0 . 12030.@.L.. X . 1 . C(H$).I.V.T .
.DEC(F(J(H$,X,1))): H . H.BASE.T......
T.BASE.1 . T.0 . ERR . TRUE...... X.....
...../.******************************.W.
./. INPUT START ADDRESS..../.***********
*******************..../H$ . "".8../. "S
TART ADDRESS ( IN HEX ) : "; H$ : .11950
.Z.0/. ERR . H.0 . H.65535 . 12060.I.:/A
D . H : ...../.*************************
*****..../. HEX LOADER.B../.************
******************.O../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.5../..Y.H2.*********************
*********.J.I2. GET 1 BYTE...J2.********
**********************...O2H$ . ""...R2.
"BYTE ( IN HEX ) : "; H$.E..2. 11950...
.2. ERR . H.0 . H.255 . . "." : . 13000.
...2....,3.*****************************
*.-.-3. MEMORY MODIFY.Q..3.*************
*****************.].63. 12050...@3H . AD
: . 11000 : . H$ .6) "/" ; : O2$ . ""..
.T3. 11100 : AD . AD.1 : . H$ .6) ;...^3
T$ . "".W.H3. " +,-,I,E : "; T$...R3. T$
."+" . AD.65535 . AD . AD.1 : . 13120./.
|3. T$."-" . AD.0 . AD . AD.1 : . 13120.
@..3. T$."E" . .._..3. T$.."I" . .".." :
. 13120.~..3. 13000 : . AD,H : . 13120..
..3.******************************....3.
DUMP MEMORY TO SCREEN....3.************
******************....3. 12050....4. "."
: . X1 . 1 . 18 : H . AD : . 11000.>..4
O2$ . "" : O1$ . H$ : O3$ . "".O.&4. X2
. 0 . 7.K.04. 11100 : O2$ . O2$." "...?4
. H.31 . H.95 . O3$ . O3$.G(H) : . 13380
...A4O3$ . O3$."."...D4. X2.N.N4. O1$ .5
) O2$ .31) O3$.W.X4. X1...B4. : . 11850
: . CO . 13320....4.. ..4.**************
****************.;..4. MACHINE CODE EXEC
UTE._..4.******************************.
V.F4. 12050 : . AD : .....7.************
******************....7. MACHINE CODE SA
VE.V..7.******************************..
..7. 11250 : . 12050 : . 11200.:.#7T$ .
"N" : . DEV.8 . . "OVERWRITE EXISTING FI
LE ( Y/N ) : "; T$.Y.$7. T$."Y" . IN$ .
"@0:".IN$.X.(7. DEV.8 . IN$ . IN$.",S,W"
...-7. SA.EA . 14190...27. 2,DEV,2,IN$ :
. 2,AD : . 2,EA...F7. X . AD . EA : . 2
,B(X) : . : . 2 : 2...N7.....7.*******
***********************....7. MACHINE CO
DE LOAD.C..7.***************************
***.L..7. 11250 : . DEV.8 . IN$ . IN$.",
S,R"....7. 2,DEV,0,IN$ : . 2,SA : . 2,EA
: . ST . 2 : ..Q..8. X . SA . EA : .
2,T : . X,T : . : 2 : ....D;.*********
*********************...E;. ADD OPERAND
IN OP TO O1$.8.F;.**********************
********.].N;. OP.1 . 15450,15500,15550,
15600....;. OP.6 . OP.10 . O1$ . O1$."("
....;. 11100....;O1$ . O1$."$" : T$ . H$
....<. OP.9 . 15390.G..<. 11100.X..<O1$
. O1$.H$....<O1$ . O1$.T$...(<. OP.9 . O
P.8 . O1$ . O1$.")".1.2<. OP..(OP.3).3.1
. O1$ . O1$.",X".W.<<. OP..(OP.3).3.2 .
O1$ . O1$.",Y".R.F<. OP.7 . O1$ . O1$."
)".X.P<....Z<.**************************
****...[<. ACCUMULATOR (OP=0).Y.\<.*****
*************************...D<O1$ . O1$.
"A"....<. IMPLIED (OP=1)....<..*..<.****
**************************.A..<. IMMEDIA
TE (OP=2).E..<.*************************
*****.Q.H<. 11100...R<O1$ . O1$."#$".H$.
...<.....<.*****************************
*.G..<. RELATIVE (OP=3)....<.***********
*******************....<. 11100....=. H.
127 . H . H.256....=H . H.AD.(..=. 11000
.=."=O1$ . O1$."$".H$.C.,=..G.T=.*******
***********************...U=. DISASSEMBL
E INSTRUCTION...V=.*********************
*********...^=O2$ . "".L.C=. 11100 : H .
H.1...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)).Z..
=. (H . 1) .1 . OP . OP.16.K..=OP . OP .
15.Q..=.....=.*************************
*****....=.*****************************
*.W..=. DISASSEMBLE MEMORY AREA....=.***
***************************...B=. 12050.
..L=."." : . I . 1 . 20.A.Q=H . AD : . 1
1000 : . H$ .6) ;.W.V=. 15700 : . 15300.
J..=. O2$ .14) O1$.R..=. I.X..=.....=. 1
1850....>. CO . 15820....>....8J.*******
***********************...9J. INITALISE
DECODER TABLES...:J.********************
**********...=JBASE . 16...?J.. DEC(X) .
X.48.(X.57).7.;.BJ. TA$(4).J.CJT$ .
"0A223838382202382422023838220238"...DJT
$ . T$."09223838382202380D22383838220238
".H.EJT$ . T$."1C01383806012738260127380
6012738"...FJT$ . T$."07013838380127382C
01383838012738".& GJT$ . T$."29173838381
72038231720381B172038".U HJT$ . T$."0B17
3838381720380F17383838172038".. IJT$ . T
$."2A00383838002838250028381B002838".. J
J. 12200 : TA$(0) . T1$.N KJT$ . "0C0
03838380028382E00383838002838".. LJT$ .
T$."382F3838312F303816383538312F3038".,!
MJT$ . T$."032F3838312F3038372F3638382F3
838".[!NJT$ . T$."1F1D1E381F1D1E38331D32
381F1D1E38"..!OJT$ . T$."041D38381F1D1E3
8101D34381F1D1E38"..!PJT$ . T$."13113838
131114381A11153813111438"..!QJT$ . T$."0
8113838381114380E11383838111438".."RJ. 1
2200 : TA$(0) . TA$(0).T1$.9"SJT$ . "
122B3838122B1838192B2138122B1838".F"TJT$
. T$."052B3838382B18382D2B3838382B18"..
"UJ. 12200 : TA$(0) . TA$(0).T1$.."VJT$
. "1711166112011CC1381114411B111AA1".
."WJT$ . T$."C71166611201CCC1381114411B1
11AA1"..#XJT$ . T$."171116611201CCC13811
14411B111AA1".D#YJT$ . T$."1711166112019
CC1381114411B111AA1".S#ZJT$ . T$."171166
611111CCC1381144511B111A11"..#[JT$ . T$.
"272166611211CCC1381144511B11AAB1".Q#\JT
$ . T$."271166611211CCC1381114411B111AA1
"..#]JT$ . T$."271166611211CCC1381114411
B111A". $^J. 12200 : TA$(1) . T1$.G(160)
.^$`JTA$(2) . "ADCANDASLBCCBCSBEQ
BITBMIBNEBPLBRKBVCBVS"..$AJTA$(2) . TA$(
2)."CLCCLDCLICLVCMPCPXCPYDECDEXDEYEORINC
INX".Z$BJTA$(2) . TA$(2)."INYJMPJSRLDALD
XLDYLSRNOPORAPHAPHPPLAPLP"..%CJTA$(2) .
TA$(2)."ROLRORRTIRTSSBCSECSEDSEISTASTXST
YTAXTAY".>%DJTA$(2) . TA$(2)."TSXTXATXST
YA???".J%FJTA$(2) . TA$(2)."BYTWRDDBYEND
ORGPRTSYM"..%GJT$ . "61210690B0F02430
D01000507018D858".H%HJT$ . T$."B8CDECCCC
ECA884DEEE8C84C20ADAEAC"..%IJT$ . T$."4A
EA0D480868282A6A4060ED38F8788D"..&JJT$ .
T$."8E8CAAA8BA8A9A98".1&KJ. 12200 : TA$
(3) . T1$.`&LJT$ . "FF11FFFFFF090AFFF
F1D0EFFFF051EFF"..&MJT$ . T$."FF15FFFFFF
FFFFFFFF01FFFFFF1916FF"..&NJT$ . T$."FF2
DFFFF2C293EFFFF3D2EFFFF2526FF"..&OJT$ .
T$."FF35FFFFFFFFFFFFFF31FFFFFF3936FF"..'
PJT$ . T$."FF51FFFFFF495EFFFF5D4EFF6C454
6FF".K'QJT$ . T$."FF55FFFFFFFFFFFFFF41FF
FFFF5956FF".Z'RJT$ . T$."FF6DFFFFFF697EF
FFF7D6EFFFF6566FF"..'SJ. 12200 : TA$(4)
. T1$.D'TJT$ . "FF75FFFFFFFFFFFFFF71F
FFFFF7976FF"..'UJT$ . T$."FF91FFFF949D96
FFFFFFFFFF848586FF"."(VJT$ . T$."FF95FFF
FFFFFFFFFFF81FFFFFF99FFFF".Q(WJT$ . T$."
BCB1BEFFA0A9A2FFFFBDFFAFA4A5A6FF"..(XJT$
. T$."FFB5FFFFFFFFFFFFFFA1FFFFB4B9B6FF"
..(YJT$ . T$."FFD1FFFFC0C9DEFFFFDDFFFFC4
C5C6FF"..(ZJT$ . T$."FFD5FFFFFFFFFFFFFFC
1FFFFFFD9D6FF"..){J. 12200 : TA$(4) . TA
$(4).T1$./)|JT$ . "FFF1FFFFE0E9FEFFFF
FDFFFFE4E5E6FF".\)}JT$ . T$."FFF5FFFFFFF
FFFFFFFE1FFFFFFF9F6".~)~J. 12200 : TA$(4
) . TA$(4).T1$..).JSM . 50 : SE . 0 : .
STABLE$(SM)..).J. ERR$(18)..).JERR$(1) .
"SINGLE BYTE OUT OF RANGE"..* JERR$(2)
. "DOUBLE BYTE OUT OF RANGE".-*.JERR$(3)
. "INVALID OPRAND OR OPCODE".N*.JERR$(4
) . "INVALID OPERATOR".R*.JERR$(5) . "IN
DEX IS NOT X OR Y"..*.JERR$(6) . "LABEL
NOT ALPHA-NUMERIC"..*.JERR$(7) . "INCORR
ECT NUMBER BASE"..*.JERR$(8) . "LABEL DE
FINED TWICE"..+.JERR$(10) . "BRANCH OUT
OF RANGE".*+.JERR$(11) . "UNDEFINED LABE
L".U+.JERR$(12) . "ONLY SINGLE CHR. EXPE
CTED".Z+.JERR$(14) . "OUT OF SYMBOL SPAC
E"..+.JERR$(15) . "DIVISION BY ZERO"..+.
JERR$(18) . "ADDRESSING MODE NOT AVAILBL
E WITH THIS OPCODE"..+.N. FI$(254) : . 2
4300..+.N..., N.************************
******.>,!N. GENERATE ASSEMBLY LISTING.B
,"N.******************************..,%NS
E . 0 : FMAX . C(PTR$) : SY . FALSE..,*N
. " ERROR ONLY LISTING ( Y/N ) :"; T$.J,
4NEO . H(T$,1)."Y"..,9N. " ASSEMBLE TO M
EMORY ( Y/N ) :"; T$..-=NAM . H(T$,1)."Y
".*->NAD . 0 : . SET START ADDRESS._-CN.
PTR$."" . ."SOURCE-CODE MISSING":.I.1.2
000:.:..R-HN. Q . 1 . FMAX..-RNIN$ . FIL
E$(F(J(PTR$,Q,1))) : O$ . ""..-\N. 26400
..-FN. EXIT . Q.FMAX.1.F-PN. Q.S-UNT . .
(X)...ZNAD . 0 : EC . 0 : . "ADD. DATA
SOURCE CODE"....N. Q . 1 . FMAX.E..N
IN$ . FILE$(F(J(PTR$,Q,1))) : O$ . "".Q.
.NQ1 . AD.]..N. 27600.O..N. ERR . 20250.
...N. EO . 20222....NH . Q1 : . 11000...
.NQ$ . H$.F.TNQ2 . 3 : . C(O$).Q2 . Q2 .
C(O$)...YNQ1$ ."" : . O$."" . 20221....
N. Q3 . 1 . Q2../.NH . F(J(O$,Q3,1)) : .
11000.2/.N. C(H$).1 . H$ . "0".H$.J/.NQ
1$ . Q1$.H$ : . Q3.X/.N. Q$ .6.C(Q$)) Q1
$ .8.C(Q1$)) ; : . 28100../.N. . AM . O$
."" . 20250.C/.O. X . 1 . C(O$) : . Q1.X
.1,F(J(O$,X,1)) : .../.O. EXIT . Q . FMA
X.1 : . LEAVE LOOP../$O. Q..0.O. : . " T
OTAL ERRORS IN FILE ---" EC : ..208O. SY
. . 26900.X0BO. B(152) .. 0 . .2 : 2 :
. 20300.S0GO. T$ : . T$."" . 20295.Y0LO
...0XY.******************************..0
YY. FILE EDITOR.S0ZY.*******************
***********..0.Y. FILE EDITOR..1.Y. FIND
LINE NUMBER IN 'LN' IN FILE.(1.YT . C(P
TR$).1 : T2 . .1.G1.ZT . T.1 : . T..0 .
. 23080._1.ZT1 . F(J(PTR$,T,1))..1.ZT2 .
F(J(FI$(T1),1,1)).256.F(J(FI$(T1),2,1))
..1.Z. T2.LN . 23040.I1(ZERR . .(T2.LN)
: . ERR . T . T.1.O12Z...1<Z.***********
*******************..2=Z. ADD LINE TO FI
LE..2>Z.******************************.L
2AZ. LN.0 . LN.65535 . 23215.X2FZ. 23020
..2PZ. . ERR . T1 . F(J(PTR$,T,1)) : . 2
3150..2ZZ. E$."" . ERR . TRUE : . 23220.
F2DZT1 . F(E$) : E$ . J(E$,2).Y2NZT2 .
.(LN.256)..2XZFI$(T1) . G(LN.T2.256).G(T
2).IN$..3.Z. . ERR . 23220.)3.ZT$ . "" :
T1$ . "".F3.Z. T.1 . T$ . H(PTR$,T.1).I
3 Z. T..C(PTR$) . T1$ . J(PTR$,T)..3.ZPT
R$ . T$.G(T1).T1$..3.ZERR . FALSE..3.Z..
.3.[.******************************..3.[
. DELETE LINE POINTED AT BY T..4.[.*****
*************************..4.[T$ . "" :
T1$ . "".54.[. T.1 . T$ . H(PTR$,T.1).Y4
"[. T.C(PTR$) . T1$ . J(PTR$,T.1).Q4,[E$
. E$.J(PTR$,T,1)..46[PTR$ . T$.T1$..4@[
...4H[.******************************.N4
I[. LIST LINES POINTED AT BY T..4J[.****
**************************.$5R[. F(J(FI$
(T),1,1)).256.F(J(FI$(T),2,1)) .6) ;.65|
[. J(FI$(T),3).<5.[..`5L[.**************
****************..5M[. START AND FINISH
POINTERS..5N[.**************************
****..5V[LN . SL : . 23020.E5.[SP . T..5
.[LN . FL : . 23020..5.[FP . T..5.[. ERR
. FP . FP.1..6.[. FP.C(PTR$) . FP . C(P
TR$)."6.\..F60\.************************
******.B61\. LOAD FILE FROM DEVICE..62\.
******************************..6:\. 112
50..6?\. DEV.8 . IN$ . IN$.",S,R".B6N\.2
,DEV,0,IN$..6S\.2 , IN$ : . ST . . 23650
..7X\. IN$.."END" . . 24000 : . 23900 :
. 23100 : . 23635.!7B\ 2.'7L\..K7.\.***
***************************.E7.\. SAVE F
ILE TO DEVICE..7.\.*********************
*********..7.\. 11250..7.\. DEV.8 . IN$
. IN$.",S,W"..7.\T$ . "N" : . DEV.8 . .
"OVERWRITE EXISTING FILE ( Y/N ) : "; T$
..8.\. T$."Y" . IN$ . "@0:".IN$..8.\.2,D
EV,2,IN$ : . 2.F8.\SL . 0 : FL . 65536._
8F\. 24420 : .2 , "END".L8P\.2 : 2.R8.
\...8\].******************************..
8]]. REMOVE LEADING SPACES.V8^].********
**********************..8F]. T . 1 . C(I
N$)..9P]. J(IN$,T,1)." " . . T..9.]IN$ .
J(IN$,T) : ..A9.].*********************
*********.W9A]. GET LINE NUMBER.{9B].***
***************************..9J]LN . .65
536..9T]. C(IN$).0 . IN$."0" . H(IN$,1).
"9" . 24090.P9.]. T . 1 . C(IN$)..9.]. J
(IN$,T,1).."9" . J(IN$,T,1).."0" . . T.&
:.^LN . E(H(IN$,T.1)) : IN$ . J(IN$,T).,
:.^..P:.^.******************************
.L:.^. FIRST AND LAST LINES..:.^.******
************************..:.^IN$ . "" :
. "FIRST - LAST LINES : "; IN$..:.^SL .
0 : FL . 65535 : T3 . 0 : ERR . FALSE..;
.^. C(IN$).0 . 24295..;.^. 24000.0;.^. L
N..0 . SL . LN : . 24260.U;.^. LN..65536
. FL . .LN : . 24295..;D^. 23900 : . C(
IN$).0 . FL . SL : . 24295..;N^IN$ . J(I
N$,2) : . 23900.B;.^. C(IN$).0 . . 24000
: FL . LN..;.^ERR . SL.0 . SL.65535 . F
L.0 . FL.65535 . ERR : ...<.^.**********
********************.1<.^. INITALISE FIL
E.U<.^.******************************..<
.^PTR$ . "" : E$ . "" : . X . 0 . 254 :
E$ . E$.G(X) : . : ...<P_.**************
****************.I<Q_. LIST LINES..<R_.*
*****************************..=Z_. 2420
0 : . ERR . 24460.5=D_. "." : . 23500 :
. FP.SP. FP.0 . 24460.P=N_. T1 . SP . FP
: T . F(J(PTR$,T1,1)) : . 23400 : . : .
..=._. B(152).0 . . T$ : . T$."" . 24455
..=._..B=._.****************************
**.W=._. DELETE LINE(S)..=._.***********
*******************..>._. 24200 : . ERR
. 24460.5>H_. 23500 : . FP.SP . 24560._>
R_T . SP : . T1 . SP . FP : . 23300 : ..
E>._...>.`.*****************************
*..>.`. INPUT LINE(S).A>.`.*************
*****************.K>"`. "."..?,`IN$ . ""
: . IN$ : . 24000 : . LN..65536 . 24665
.!?J`. 23900 : . C(IN$).0 . 24680.??T`.
23100 : . . ERR . 24620.E?Y`..E?H`. 2302
0 : . . ERR . . 23300.Q?R`. 24620..?|`.*
*****************************..?}`. RENU
MBER FILE IN STEPS OF 10..?~`.**********
********************..?.`LN . 10 : ERR .
FALSE..@.`. C(PTR$).1 . 24780.$@.`. T .
1 . C(PTR$).<@.`T1 . F(J(PTR$,T,1)).U@.
`FI$(T1) . G(LN..(LN.256).256).G(LN.256)
.J(FI$(T1),3)..@.`LN . LN.10 : ...@L`...
@.`.******************************.I@.`.
FILE EDITOR MENU..@.`.*****************
*************. A.`. ".. ------------ FIL
E EDITOR ------------..".GA.A. " 0)
EXIT FROM FILE EDITOR".FA.A. " 1)
INPUT LINE(S)"..A.A. " 2) LIST LINE
(S)"..A.A. " 3) DELETE LINE(S)".CA&
A. " 4) RENUMBER FILE"..A0A. "
5) INITIALISE FILE"..A:A. " 6) LOA
D FILE"..BDA. " 7) SAVE FILE".DBNA.
" 8) ADD MACHINE CODE TO FILE".OBS
A. " 9) CHANGE DEVICE NUMBER.....".
.BXA. " COMMAND ( 0-9 ) : "; CO..BLA. CO
.0 . ...BVA. CO.0 . . CO . 24600,24400,2
4500,24700,24300,23600,23700,25000..B.A.
CO.8 . . CO.8 . 25500..C.A. 24800..C.A.
******************************.LC.A. ADD
TO FILE FROM MEMORY.PC.A.**************
****************..C.A. 12050 : . 11200 :
. 24200..CZA. XY . AD . EA . 15.PC.AIN$
. " BYT " : LN . SL : SL . SL.5..C.A. X
Z . 0 . 14 : O2$ . ""..D.A. 11100 : IN$
. IN$."$".H$.8D.B. XZ.14 . AD..EA . IN$
. IN$."." : . XZ.OD.B. 23100 : . XY : ..
SD.C.******************************..D.C
. CHANGE DEVICE NUMBER..D.C.************
******************.AD.C. .19) DEV..D.C.
".NEW DEVICE NUMBER:";DEV..D.C...E.E.***
***************************.)E.E. SYMBOL
UP TO COLON ETC..ME.E.*****************
*************.GE.EH$ . "" : T1 . C(IN$).
WE.EPTR . PTR.1..E.E. T1.PTR . 26060..E.
ET . F(J(IN$,PTR,1))..E.E. T.32 . 26020.
.EBE. T..58 . T..59 . H$ . H$.G(T) : . 2
6020..ELE...F.E.************************
******.,F.E. OPERAND TYPE TO BE USED.PF.
E.******************************.GF.ET6
. PTR : . 26000.WF.FERR . FALSE..F.F. C(
H$).0 . OP . 1 : ...F.F. H$."A" . OP . 0
: ..HF!F. F(H$).35 . OP . 2 : ..TF:FOP
. 12..FDF. H(H$,1)."(" . OP . OP.3..GNFT
. 1 : T1 . C(H$)..GXFT2 . F(J(H$,T,1)).
GGBF. T2..46 . T.T1 . T . T.1 : . 26200.
\GLF. T2..46 . 26275.YGVFT . T.1 : . T.T
1 . 26270..G.FT2 . F(J(H$,T,1))..G.F. T2
.89 . OP . OP.1 : . 26275.SG.F. T2.88 .
OP . OP.2 : . 26275..G.F. NOT A VALID IN
DEX..H FEN . 5 : . 28000.<H.F.(OP.12).((
PO.2.PO.6).(PO.6.PO.10).PO.12.PO.11). OP
. 3.TH.F. ZERO PAGE OPRANDS.DH.F. OP.10
. ..|H.FT7 . PTR : PTR . T6..H.F. 28600
..H.F. ERR . RESULT.255 . 26292..H.FOP .
OP.6.BH.FPTR . T7.HH.F...H.F.**********
********************..I.F. EVALUATE OPCO
DE.&I.F.******************************.:
IFFT1 . 3 : T . PO.VIPFT . F(J(TA$(T1),T
.1,1)).SIZF. T.255 . ERR . TRUE : ...I.F
T1 . 4 : T2 . F(J(TA$(1),.(T.2.1),1))..I
.F. (1 . T).0 . T2 . .(T2.16).NI.FT2 . T
2 . 15..I.F. T2..OP . 26320..I.GO$ . O$.
G(T)..J.GERR . FALSE..J.G...J G.********
**********************.NJ!G. DO PASS 1 A
SSEMBLY ON IN$.RJ"G.********************
**********..J%G. "......................
.
" ;..J&G. "
" ;..K'G. "..................
....." ;: . 28100.?K*GPASS . 1 : EXIT .
FALSE : PTR . 2.KK4G. 28850._K>G. . ERR
. 26540.|KHG. T.58 . C(H$).0 . 26420..KR
G. T.59 . T..1 . ...K\G. 28700..KPG. 288
50..KZG. . ERR . 26540..K.G. T.58 . C(H$
).0 . 26420..K.G...L.G. PO.55 . . 26600
: . 26556..L.G. 26100.EL.G. 26300 : . ER
R . OP.3 . OP.7 . OP . OP.6 : . 26552.QL
.G. 26560.SL.G. C(IN$).PTR . . EXIT . 26
420.YL.G...L.G.*************************
*****..LAG. BYTE LENGTH.SLBG.***********
*******************..LEGAD . AD.1..LJG.
OP.1 . AD . AD.1..MTG. OP.8 . AD . AD.1.
.M.G..9M.G.*****************************
*.ZM.G. CALCULATE DIRECTIVE LENGTH.~M.G.
******************************..M.GT1 .
C(IN$)..M.G. PO.56 . 26720 : . BYT DIREC
TIVE..M.H. PO.60 . . 28600 : AD . RESULT
: . DEAL WITH ORG DIRECTIVE..N.H. PO.59
. EXIT . TRUE.7N.H. PO.58 . . : . END &
ORG DIRECTIVES.TN.H. FIND LEN. OF WRD &
DBY.BN.HAD . AD.2.RN$HPTR . PTR.1..N.H.
PTR.T1 . ...N8HT . F(J(IN$,PTR,1))..NBH
. T.58 . T.59 . ..ENLH. T..46 . 26660.QN
VH. 26650..N`H. LENGTH FOR BYT...NJHAD .
AD.1..OTHPTR . PTR.1..O~H. PTR.T1 . ...
O.HT . F(J(IN$,PTR,1)).DO.H. T.58 . T.59
. ..XO.H. T..46 . 26740.DO.H. 26730..O.
I.******************************..O.I. D
UMP SYMBOL TABLE TO SCREEN.NO.I.********
**********************..O.I. SE.1 . 2697
5..O#I...O(I. X . 0 . SE.1..P2I. H(ST$(X
),6) .10) ;.=P<IH . F(J(ST$(X),8)).256.F
(J(ST$(X),7)).IPFI. 11000.RPPI. H$.ZPZI.
X..P_I. ". TOTAL NUMBER OF SYMBOLS ---"
SE..PDI...PXI.*************************
*****.DPYI. EVALUATE OPERAND..PZI.******
************************..P.IERR . FALSE
..Q.I. OP.2 . ...Q.I. OP.3 . 27500.-Q I.
OP.2 . 27400.9Q.I. 28600.QQ.I. ERR . C(
O$).0 . ...Q.I. (RESULT.0 . RESULT.255)
. OP.9 . EN . 1 : . 28000..QHI. RESULT.0
. RESULT.65535 . EN. 2 : . 28000.LQRI.
OP.9 . 27140..Q.IT . .(RESULT.256)..Q.IR
ESULT . RESULT.T.256..R.I. 27140..R.IRES
ULT . T.-R.JO$ . O$.G(RESULT).3R.J..WR@J
.******************************.YRAJ. DI
RECTIVE OPERAND EVALUATOR..RBJ.*********
*********************..REJERR . FALSE.PR
JJ. PO.60 . . 28600 : AD .RESULT..RNJ. P
O.62 . SY . TRUE.%SOJ. PO.61 . . 2,4 : .
2 : . ".ADD. DATA SOURCE CODE.".?S
TJ. PO.59 . EXIT . TRUE.OS^J. PO.58 . ..
CSHJ. PO.56 . 27330.~SRJ. DBY & WRD DIRE
CTIVES..S|J. 28600..S.J. RESULT.0 . RESU
LT.65535 . EN . 2 : . 28000..S.J. PO.58
. RESULT . .(RESULT.256).256.(RESULT..(R
ESULT.256).256).8T.J. 27280 REVERSES HI.
& LO. BYTES IF DIRECTIVE IS DBY.XT.JT1
.T : . 27100 : AD . AD.2.NT.J. T1.32 . .
28150..T.J. T1.46 . 27260..T.J...TBJ. B
YT DIRECTIVE..TLJ. 28600.WTVJ. RESULT.0
. RESULT.255 . EN . 1 : . 28000..T.J. 27
140 : AD . AD.1..U.J. T.32 . . 28150..U.
J. T.46 . 27340..U.J..AU.K.*************
*****************.EU.K. EVALUATE IMMEDIA
TE EXPRESSION..U.K.*********************
*********. U.KT5 . PTR : . 26000..U.K. F
(H$)..35 . 27480.TU&K. J(H$,2,1)."'" . 2
7450..U0KPTR . T5..U2K. PTR.C(IN$) . 274
46.,V4K. F(J(IN$,PTR,1))..35 . PTR . PTR
.1 : . 27442.JV6KOP . 8 : . 27050 : OP .
2.PV8K..KV:K. SINGLE CHR. EXPECTED..VDK
. C(H$)..3 . 27480..VNKO$ . O$.J(H$,3,1)
: ...VXKEN . 12..VBK. 28000.XVLK.******
************************..VMK. EVALUATE
RELATIVE EXPRESSION..WNK.***************
***************.+WVK. 28600.CW.K. C(O$).
0 . ERR . ..ZW.KRESULT . RESULT.AD.W.K.
RESULT.0 . RESULT . RESULT.256..W.K. RE
SULT.256 . RESULT..0 . 27140..W.KEN . 10
..W.K. 28000..WPK.**********************
********..WQK. DO PASS 2 ASSEMBLY..XRK.*
*****************************.*XUKPASS .
2.6XZKO$ . "".UX.KEXIT . FALSE : ERR .
FALSE.AX.KPTR . 2.MX.K. 28850..X.K. . ER
R . 27720..X.L. T.58 . C(H$).0 . 27630.B
X.L. T.59 . T..1 . ERR . FALSE : ..NX.L.
28700.ZX.L. 28850..X L. . ERR . 27720..
Y*L. T.58 . C(H$).0 . 27630./Y/L. T.59 .
T..1 . ERR . FALSE : ..DY4LEN . 3 : . 2
8000.DYHL. PO.55 . . 27200 : . 27745..YK
LT5 . PTR : . 26100 : T8 . PTR : PTR .
T5..YML. 26300 : . . ERR . 27730..YOL. O
P.7 . OP.3 . OP . OP.6 : PTR . T5 : . 27
725..YPLEN . 18 : . 28000..ZRL. 26560.0Z
\L. . ERR . C(O$).0 . . 27000 : PTR . T8
.RZAL. C(IN$).PTR . . EXIT . 27630.XZFL.
.|Z`M.******************************..ZA
M. ASSEMBLER ERROR ROUTINE..ZBM.********
**********************..ZEM. PTR..300 .
PASS..2 . 28050..ZJM. .14) ; : . 28100..
[OMEC . EC.1./[TM. X . .13 . PTR : . "="
;: . X : . ".".M[~M. " " ERR$(EN) " E
RROR".H[.MPTR . 300 : ERR . TRUE.N[.M...
[DM.******************************..[EM.
PRINT IN$ TO THE SCREEN.T[FM.**********
********************..\XM. 256.F(J(IN$,2
,1)).F(J(IN$,1,1)) J(IN$,3)..\.M..-\.M.*
*****************************.N\.M. SYMB
OL TO NON-LETTER/DIGIT.R\.M.************
******************..\.NH$ . "" : T . .1.
.\.NPTR . PTR.1..\.N. PTR.C(IN$) . 28210
.H\.NT . F(J(IN$,PTR,1))..\.N. T.32 . C(
H$).0 . 28160..].N. T.48 . T.90 . ( T.57
. T.65 ) . 28210.,](NH$ . H$.G(T) : . 2
8165.2]2N..V]ZN.************************
******.N][N. FIND LABEL IN ST$..]\N.****
**************************..]DNERR . FAL
SE : H . 0 : T1 . 0.Y]NN. C(H$).6 . H$ .
H$." " : . 28270..]XN. T1.SE . ERR . TR
UE : ..%^.N. J(ST$(T1),1,6)..H$ . T1 . T
1.1 : . 28280.Y^.NH . F(J(ST$(T1),8,1)).
256.F(J(ST$(T1),7,1)) : ..}^.N.*********
*********************..^.N. EVALUATE LAB
EL OR NUMBER..^.N.**********************
********.L^ N. 28150..^.N. T.40 . C(H$).
0 . . 28150..^.NT1 . C(H$).7_.N. (T..1 .
T.32 . T.58 . T.59 . T.41 . T.46) . T1
. 0 . ..J_.N. T1.0 . 28390.P_.N. F(H$)..
57 . H . E(H$) : . 28492.._HN. 28250 : .
FIND LABEL IN SYMBOL TABLE.A_RN. ERR .
EN . 11 : H . 0 : . 28000.M_.N. 28492.._
.N. HEX,OCTAL OR BINARY NUMBERS EVALUATE
..`.NT2 . T : . 28150.#`.N. C(H$).0 . 28
450.7`.O. T2.36 . 28470.X`.O. T2.37 . BA
SE . 2 : . 28470.Y`.O. T2.38 . BASE . 8
: . 28470..`"O. INVALID LABEL..`,OH . 0
: EN . 6 : . 28000.E`6O. TEST IF VALID N
UMBER.Q`;O. 11950..`@OBASE . 16 : . DEFA
ULT BASE..AJO. ERR . H . 0 : EN . 7 : .
28000.EALOPTR . PTR.1 : . 28150 : . GET
NEXT OPERATOR.KAOO..OATO.***************
***************..AUO. EVALUATE TERM WITH
* OR /..AVO.***************************
***.JA^O. 28300 : TERM . H..AHO. PTR.C(I
N$) . ...BRO. T.42 . . 28300 : TERM . .(
TERM.H) : . 28520.!B.O. T..47 . ..-B.O.
28300.VB.O. H.0 . TERM . 0 : EN . 15 : .
28000.KB.OTERM . .(TERM.H).WB.O. 28520.
.B.O.******************************..B.O
. EVALUATE EXPRESSION.YB.O.*************
*****************..B.OERR . FALSE..CBO.
28500 : RESULT . TERM.BCLO.T..1. T.32 .
T.58 . T.59 . T.41 . T.46 . PTR.C(IN$) .
..{CVO. T.43 . . 28500 : RESULT . .(RES
ULT.TERM) : . 28620..C.O. T.45 . . 28500
: RESULT . .(RESULT.TERM) : . 28620.VC.
ORESULT . 0 : EN . 4 : . 28000..C.P.****
**************************..D.P. ADD SYM
BOL TO SYMBOL TABLE.?D.P.***************
***************.YD&P. SE..SM . EXIT . TR
UE : PASS . 2 : EN . 14 : . 28000..D0P.
28250 : . . ERR . 28830..DDPT$ . H(H$."
",6)..DIPTB . PTR..DNP. 28150 : .
DOES = FOLLOW..EXP. T..61 . PTR . TB : R
E . AD : . 28780..EBPT0 . T : . 28600.(E
LPEN . 0.DEVP. RE.0 . RE.65535 . ST$(SE)
.T$.G(0).G(0).G(2) : . 28810..E.PST$(SE)
. T$.G(RE..(RE.256).256).G(.(RE.256))..
E.PSE . SE.1..E.P...E.P. PASS.1 . C(ST$(
T1)).9 . ST$(T1) . ST$(T1).G(8)..E.P. PA
SS..2 . 28840.+F.PTA . PTR : . 28150 : .
T..61 . PTR . TA : . 28840.CF.P. 26000
: . SCAN PAST = SIGN (IF PRESENT) ON PAS
S 2..F.P. PASS..2 . C(ST$(T1)).9 . ...F.
PEN . F(J(ST$(T1),9,1)) : . 28000.MF.P.*
*****************************..F.P. TEST
FOR OPCODE/DIRECTIVE..G.P.*************
*****************..G.P. 28150.-GFPERR .
FALSE.=GZPPTR . PTR.1.TG.P. C(H$)..3 . 2
8940.`G.PPO . .2.NG.PPO . PO.3..G.P. H$.
J(TA$(2),PO,3) . 28950..G.Q. (PO.3)..C(T
A$(2)) . 28910..G.QERR . TRUE.OG.QPO . (
PO.1).3..G QERR . (PO.56) . ERR..G*Q. PO
.56 . PO . PO.1..H4Q....
> CLICK IMAGE PREVIEW FOR FULL MODAL