MASTERCODE
FILE INFORMATION
FILENAME(S): MASTERCODE
FILE TYPE(S): PRG
FILE SIZE: 25.2K
FIRST SEEN: 2025-12-02 00:01:59
APPEARS ON: 1 disk(s)
FILE HASH
d37743e724f7449682f4ee3bce05ec7c1df950df4b57649be6778f656994aaeb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | MASTERCODE | PRG | earthshaker | 22 | 0 | 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 74 08 2F 27 42 41 53 45 20 |******.t./'BASE |
00000070: B2 20 31 36 00 9B 08 30 27 8B 20 C3 28 50 54 52 |. 16...0'. .(PTR|
00000080: 24 29 AA C3 28 45 24 29 B3 B1 32 35 35 20 A7 20 |$)..(E$)..255 . |
00000090: 9C 20 3A 20 8D 20 31 39 30 30 30 00 A7 08 33 27 |. : . 19000...3'|
000000A0: 44 45 56 20 B2 20 31 00 D2 08 38 27 96 A5 20 48 |DEV . 1...8'.. H|
000000B0: 45 58 28 58 29 20 B2 20 28 58 20 AF 20 31 35 29 |EX(X) . (X . 15)|
000000C0: AA 34 38 AB 28 28 58 20 AF 20 31 35 29 B1 39 29 |.48.((X . 15).9)|
000000D0: AC 37 00 F0 08 42 27 96 A5 20 44 45 43 28 58 29 |.7...B'.. DEC(X)|
000000E0: 20 B2 20 58 AB 34 38 AA 28 58 B1 35 37 29 AC 37 | . X.48.(X.57).7|
000000F0: 00 0A 09 4C 27 46 41 4C 53 45 20 B2 20 30 20 3A |...L'FALSE . 0 :|
00000100: 20 54 52 55 45 20 B2 20 AB 31 00 25 09 56 27 97 | TRUE . .1.%.V'.|
00000110: 20 35 33 32 38 31 2C 31 20 3A 20 97 20 35 33 32 | 53281,1 : . 532|
00000120: 38 30 2C 31 35 00 49 09 74 27 8F 2A 2A 2A 2A 2A |80,15.I.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 2A 2A 00 6B 09 75 27 8F 20 |*********.k.u'. |
00000150: 43 4F 4E 54 52 4F 4C 20 52 4F 55 54 49 4E 45 20 |CONTROL ROUTINE |
00000160: 46 4F 52 20 4D 4F 4E 49 54 4F 52 00 8F 09 76 27 |FOR MONITOR...v'|
00000170: 8F 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 2A 2A 00 |***************.|
00000190: D1 09 7E 27 83 20 45 58 49 54 20 54 4F 20 42 41 |..~'. EXIT TO BA|
000001A0: 53 49 43 2C 4D 45 4D 4F 52 59 20 4D 4F 44 49 46 |SIC,MEMORY MODIF|
000001B0: 59 2C 4D 45 4D 4F 52 59 20 44 55 4D 50 2C 4D 41 |Y,MEMORY DUMP,MA|
000001C0: 43 48 49 4E 45 20 43 4F 44 45 20 45 58 43 55 54 |CHINE CODE EXCUT|
000001D0: 45 00 05 0A 7F 27 83 20 4C 4F 41 44 20 4D 41 43 |E....'. LOAD MAC|
000001E0: 48 49 4E 45 20 43 4F 44 45 20 46 49 4C 45 2C 53 |HINE CODE FILE,S|
000001F0: 41 56 45 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 |AVE MACHINE CODE|
00000200: 20 46 49 4C 45 00 18 0A 88 27 83 20 44 49 53 41 | FILE....'. DISA|
00000210: 53 53 45 4D 42 4C 45 52 00 2A 0A 92 27 83 20 46 |SSEMBLER.*..'. F|
00000220: 49 4C 45 20 45 44 49 54 4F 52 00 3A 0A 9C 27 83 |ILE EDITOR.:..'.|
00000230: 20 41 53 53 45 4D 42 4C 45 52 00 44 0A CE 27 83 | ASSEMBLER.D..'.|
00000240: 20 45 4E 44 00 4A 0A D8 27 8C 00 54 0A EC 27 58 | END.J..'..T..'X|
00000250: 20 B2 20 30 00 89 0A F6 27 99 20 22 93 1F 2D 2D | . 0....'. "..--|
00000260: 2D 2D 2D 2D 2D 2D 2D 20 4D 41 43 48 49 4E 45 20 |------- MACHINE |
00000270: 43 4F 44 45 20 4D 4F 4E 49 54 4F 52 20 2D 2D 2D |CODE MONITOR ---|
00000280: 2D 2D 2D 2D 2D 2D 1E 11 22 00 92 0A 0A 28 87 20 |------.."....(. |
00000290: 54 24 00 C6 0A 14 28 8B 20 54 24 B3 B1 22 45 4E |T$....(. T$.."EN|
000002A0: 44 22 20 A7 20 99 20 A3 35 29 20 58 20 22 29 22 |D" . . .5) X ")"|
000002B0: 20 54 24 20 3A 20 58 B2 20 58 AA 31 20 3A 20 89 | T$ : X. X.1 : .|
000002C0: 20 31 30 32 35 30 00 E8 0A 19 28 8B 20 58 B3 31 | 10250....(. X.1|
000002D0: 35 20 A7 20 81 20 59 20 B2 20 58 20 A4 20 31 35 |5 . . Y . X . 15|
000002E0: 20 3A 20 99 20 3A 20 82 00 10 0B 1E 28 99 20 22 | : . : .....(. "|
000002F0: 43 4F 4D 4D 41 4E 44 20 28 20 30 20 2D 22 20 58 |COMMAND ( 0 -" X|
00000300: AB 31 20 22 20 29 20 3A 20 22 3B 3A 20 85 20 54 |.1 " ) : ";: . T|
00000310: 00 28 0B 3C 28 8B 20 54 B3 30 20 B0 20 54 B1 58 |.(.<(. T.0 . T.X|
00000320: 20 A7 20 31 30 31 30 30 00 66 0B 41 28 8B 20 54 | . 10100.f.A(. T|
00000330: B2 30 20 A7 20 99 20 22 93 11 11 11 11 20 20 20 |.0 . . "..... |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 20 12 42 59 45 92 11 11 11 11 22 3A A0 | .BYE.....":.|
00000360: 20 31 20 3A 20 80 00 A0 0B 46 28 91 20 54 20 8D | 1 : ....F(. T .|
00000370: 20 31 33 31 30 30 2C 31 33 33 30 30 2C 31 33 35 | 13100,13300,135|
00000380: 30 30 2C 31 34 33 30 30 2C 31 34 31 30 30 2C 31 |00,14300,14100,1|
00000390: 35 38 30 30 2C 32 34 38 30 30 2C 32 30 30 30 30 |5800,24800,20000|
000003A0: 00 AC 0B 50 28 89 20 31 30 31 30 30 00 D0 0B F8 |...P(. 10100....|
000003B0: 2A 8F 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 2A 2A 2A 2A 2A 2A |****************|
000003D0: 00 ED 0B F9 2A 8F 20 43 4F 4E 56 45 52 54 20 44 |....*. CONVERT D|
000003E0: 45 43 49 4D 41 4C 20 54 4F 20 48 45 58 00 11 0C |ECIMAL TO HEX...|
000003F0: FA 2A 8F 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 2A 2A 2A 2A 2A |****************|
00000410: 2A 00 25 0C 02 2B 54 20 B2 20 48 20 3A 20 48 24 |*.%..+T . H : H$|
00000420: 20 B2 20 22 22 00 65 0C 0C 2B 48 24 20 B2 20 C7 | . "".e..+H$ . .|
00000430: 28 A5 48 45 58 28 54 AB B5 28 54 AD 31 36 29 AC |(.HEX(T..(T.16).|
00000440: 31 36 29 29 AA 48 24 20 3A 20 54 20 B2 20 B5 28 |16)).H$ : T . .(|
00000450: 54 AD 31 36 29 20 3A 20 8B 20 54 B1 30 20 A7 20 |T.16) : . T.0 . |
00000460: 31 31 30 32 30 00 6B 0C 2A 2B 8E 00 8F 0C 5C 2B |11020.k.*+....\+|
00000470: 8F 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 2A 2A 2A 2A 2A 2A 00 |***************.|
00000490: A3 0C 5D 2B 8F 20 42 59 54 45 20 49 4E 54 4F 20 |..]+. BYTE INTO |
000004A0: 48 45 58 00 C7 0C 5E 2B 8F 2A 2A 2A 2A 2A 2A 2A |HEX...^+.*******|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004C0: 2A 2A 2A 2A 2A 2A 2A 00 E1 0C 66 2B 48 20 B2 20 |*******...f+H . |
000004D0: C2 28 41 44 29 20 3A 20 41 44 20 B2 20 41 44 AA |.(AD) : AD . AD.|
000004E0: 31 00 ED 0C 70 2B 8D 20 31 31 30 30 30 00 09 0D |1...p+. 11000...|
000004F0: 7A 2B 8B 20 C3 28 48 24 29 B3 32 20 A7 20 48 24 |z+. .(H$).2 . H$|
00000500: 20 B2 20 22 30 22 AA 48 24 00 1A 0D 84 2B 4F 32 | . "0".H$....+O2|
00000510: 24 20 B2 20 4F 32 24 AA 48 24 00 20 0D 8E 2B 8E |$ . O2$.H$. ..+.|
00000520: 00 44 0D C0 2B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.D..+.**********|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000540: 2A 2A 2A 2A 00 5F 0D C1 2B 8F 20 49 4E 50 55 54 |****._..+. INPUT|
00000550: 20 46 49 4E 49 53 48 20 41 44 44 52 45 53 53 00 | FINISH ADDRESS.|
00000560: 83 0D C2 2B 8F 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 2A 2A 2A |****************|
00000580: 2A 2A 2A 00 8F 0D C5 2B 48 24 20 B2 20 22 22 00 |***....+H$ . "".|
00000590: C1 0D CA 2B 85 20 22 46 49 4E 49 53 48 20 41 44 |...+. "FINISH AD|
000005A0: 44 52 45 53 53 20 28 A0 49 4E 20 48 45 58 29 20 |DRESS (.IN HEX) |
000005B0: 3A 20 22 3B 20 48 24 20 3A 20 8D 20 31 31 39 35 |: "; H$ : . 1195|
000005C0: 30 00 E3 0D DE 2B 8B 20 45 52 52 20 B0 20 48 B3 |0....+. ERR . H.|
000005D0: 30 20 B0 20 48 B1 36 35 35 33 35 20 A7 20 31 31 |0 . H.65535 . 11|
000005E0: 32 30 30 00 F2 0D E8 2B 45 41 20 B2 20 48 20 3A |200....+EA . H :|
000005F0: 20 8E 00 16 0E F2 2B 8F 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 2A 2A 2A 2A 2A 00 2C 0E F3 2B 8F 20 49 4E 50 |******.,..+. INP|
00000620: 55 54 20 46 49 4C 45 20 4E 41 4D 45 00 4A 0E F4 |UT FILE NAME.J..|
00000630: 2B 8D 20 32 35 35 30 30 20 3A 20 8B 20 44 45 56 |+. 25500 : . DEV|
00000640: B2 34 20 A7 20 31 31 32 39 30 00 57 0E F7 2B 49 |.4 . 11290.W..+I|
00000650: 4E 24 20 B2 20 22 22 00 7F 0E FC 2B 85 20 22 20 |N$ . ""....+. " |
00000660: 46 49 4C 45 20 4E 41 4D 45 20 3A 20 22 3B 20 49 |FILE NAME : "; I|
00000670: 4E 24 20 3A 20 54 20 B2 20 C3 28 49 4E 24 29 00 |N$ : T . .(IN$).|
00000680: B3 0E 10 2C 8B 20 54 B1 31 36 20 B0 20 54 B3 30 |...,. T.16 . T.0|
00000690: 20 A7 20 99 20 22 11 46 49 4C 45 20 4E 41 4D 45 | . . ".FILE NAME|
000006A0: 20 49 4E 56 41 4C 49 44 22 20 3A 20 89 20 31 31 | INVALID" : . 11|
000006B0: 32 36 30 00 B9 0E 1A 2C 8E 00 DD 0E 4A 2E 8F 2A |260....,....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 2A 2A 2A 2A 2A 00 F2 0E |*************...|
000006E0: 4B 2E 8F 20 41 53 4B 20 43 4F 4E 54 49 4E 55 45 |K.. ASK CONTINUE|
000006F0: 20 3F 00 16 0F 4C 2E 8F 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 2A 2A 2A 2A 2A 00 22 0F 52 2E 54 24 20 B2 20 |******.".R.T$ . |
00000720: 22 22 00 42 0F 54 2E 85 20 22 43 4F 4E 54 49 4E |"".B.T.. "CONTIN|
00000730: 55 45 20 28 20 59 2F 4E 20 29 20 3A 20 22 3B 20 |UE ( Y/N ) : "; |
00000740: 54 24 00 65 0F 5E 2E 8B 20 54 24 B2 22 59 22 20 |T$.e.^.. T$."Y" |
00000750: A7 20 43 4F 20 B2 20 54 52 55 45 20 3A 20 89 20 |. CO . TRUE : . |
00000760: 31 31 38 39 35 00 86 0F 68 2E 8B 20 54 24 B3 B1 |11895...h.. T$..|
00000770: 22 4E 22 20 A7 20 99 20 22 91 22 3B 20 3A 20 89 |"N" . . "."; : .|
00000780: 20 31 31 38 35 30 00 95 0F 72 2E 43 4F 20 B2 20 | 11850...r.CO . |
00000790: 46 41 4C 53 45 00 9B 0F 77 2E 8E 00 BF 0F AE 2E |FALSE...w.......|
000007A0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000007C0: E3 0F AF 2E 8F 20 43 4F 4E 56 45 52 54 20 48 45 |..... CONVERT HE|
000007D0: 58 20 49 4E 20 48 24 20 54 4F 20 44 45 43 20 49 |X IN H$ TO DEC I|
000007E0: 4E 20 48 00 07 10 B0 2E 8F 2A 2A 2A 2A 2A 2A 2A |N H......*******|
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000800: 2A 2A 2A 2A 2A 2A 2A 00 33 10 C7 2E 45 52 52 20 |*******.3...ERR |
00000810: B2 20 46 41 4C 53 45 20 3A 20 48 20 B2 20 30 20 |. FALSE : H . 0 |
00000820: 3A 20 8B 20 C3 28 48 24 29 B2 30 20 A7 20 31 32 |: . .(H$).0 . 12|
00000830: 30 33 30 00 47 10 CC 2E 81 20 58 20 B2 20 31 20 |030.G.... X . 1 |
00000840: A4 20 C3 28 48 24 29 00 70 10 D6 2E 54 20 B2 20 |. .(H$).p...T . |
00000850: A5 44 45 43 28 C6 28 CA 28 48 24 2C 58 2C 31 29 |.DEC(.(.(H$,X,1)|
00000860: 29 29 3A 20 48 20 B2 20 48 AC 42 41 53 45 AA 54 |)): H . H.BASE.T|
00000870: 00 92 10 EA 2E 8B 20 54 B1 42 41 53 45 AB 31 20 |...... T.BASE.1 |
00000880: B0 20 54 B3 30 20 A7 20 45 52 52 20 B2 20 54 52 |. T.0 . ERR . TR|
00000890: 55 45 00 9A 10 F4 2E 82 20 58 00 A0 10 FE 2E 8E |UE...... X......|
000008A0: 00 C4 10 12 2F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..../.**********|
000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008C0: 2A 2A 2A 2A 00 DE 10 13 2F 8F 20 49 4E 50 55 54 |****..../. INPUT|
000008D0: 20 53 54 41 52 54 20 41 44 44 52 45 53 53 00 02 | START ADDRESS..|
000008E0: 11 14 2F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |../.************|
000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000900: 2A 2A 00 0E 11 19 2F 48 24 20 B2 20 22 22 00 3F |**..../H$ . "".?|
00000910: 11 1C 2F 85 20 22 53 54 41 52 54 20 41 44 44 52 |../. "START ADDR|
00000920: 45 53 53 20 28 20 49 4E 20 48 45 58 20 29 20 3A |ESS ( IN HEX ) :|
00000930: 20 22 3B 20 48 24 20 3A 20 8D 31 31 39 35 30 00 | "; H$ : .11950.|
00000940: 61 11 30 2F 8B 20 45 52 52 20 B0 20 48 B3 30 20 |a.0/. ERR . H.0 |
00000950: B0 20 48 B1 36 35 35 33 35 20 A7 20 31 32 30 36 |. H.65535 . 1206|
00000960: 30 00 70 11 3A 2F 41 44 20 B2 20 48 20 3A 20 8E |0.p.:/AD . H : .|
00000970: 00 94 11 A8 2F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..../.**********|
00000980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000990: 2A 2A 2A 2A 00 A5 11 A9 2F 8F 20 48 45 58 20 4C |****..../. HEX L|
000009A0: 4F 41 44 45 52 00 C9 11 AA 2F 8F 2A 2A 2A 2A 2A |OADER..../.*****|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D6 11 B2 2F 54 31 |*********..../T1|
000009D0: 24 20 B2 20 22 22 00 EF 11 BC 2F 81 20 58 31 20 |$ . ""..../. X1 |
000009E0: B2 20 31 20 A4 20 C3 28 54 24 29 20 A9 20 32 00 |. 1 . .(T$) . 2.|
000009F0: 2D 12 C6 2F 54 31 24 20 B2 20 54 31 24 AA C7 28 |-../T1$ . T1$..(|
00000A00: A5 44 45 43 28 C6 28 CA 28 54 24 2C 58 31 2C 31 |.DEC(.(.(T$,X1,1|
00000A10: 29 29 29 AC 31 36 AA A5 44 45 43 28 C6 28 CA 28 |))).16..DEC(.(.(|
00000A20: 54 24 2C 58 31 AA 31 2C 31 29 29 29 29 00 36 12 |T$,X1.1,1)))).6.|
00000A30: E4 2F 82 20 58 31 00 3C 12 EE 2F 8E 00 60 12 C8 |./. X1.<../..`..|
00000A40: 32 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2.**************|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A60: 00 71 12 C9 32 8F 20 47 45 54 20 31 20 42 59 54 |.q..2. GET 1 BYT|
00000A70: 45 00 95 12 CA 32 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |E....2.*********|
00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A90: 2A 2A 2A 2A 2A 00 A1 12 CF 32 48 24 20 B2 20 22 |*****....2H$ . "|
00000AA0: 22 00 C0 12 D2 32 85 20 22 42 59 54 45 20 28 20 |"....2. "BYTE ( |
00000AB0: 49 4E 20 48 45 58 20 29 20 3A 20 22 3B 20 48 24 |IN HEX ) : "; H$|
00000AC0: 00 CC 12 E6 32 8D 20 31 31 39 35 30 00 F6 12 F0 |....2. 11950....|
00000AD0: 32 8B 20 45 52 52 20 B0 20 48 B3 30 20 B0 20 48 |2. ERR . H.0 . H|
00000AE0: B1 32 35 35 20 A7 20 99 20 22 91 22 20 3A 20 89 |.255 . . "." : .|
00000AF0: 20 31 33 30 30 30 00 FC 12 FA 32 8E 00 20 13 2C | 13000....2.. .,|
00000B00: 33 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |3.**************|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B20: 00 34 13 2D 33 8F 20 4D 45 4D 4F 52 59 20 4D 4F |.4.-3. MEMORY MO|
00000B30: 44 49 46 59 00 58 13 2E 33 8F 2A 2A 2A 2A 2A 2A |DIFY.X..3.******|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 00 64 13 36 33 8D 20 31 |********.d.63. 1|
00000B60: 32 30 35 30 00 95 13 40 33 48 20 B2 20 41 44 20 |2050...@3H . AD |
00000B70: 3A 20 8D 20 31 31 30 30 30 20 3A 20 99 20 48 24 |: . 11000 : . H$|
00000B80: 20 A3 36 29 20 22 2F 22 20 3B 20 3A 20 4F 32 24 | .6) "/" ; : O2$|
00000B90: 20 B2 20 22 22 00 BA 13 54 33 8D 20 31 31 31 30 | . ""...T3. 1110|
00000BA0: 30 20 3A 20 41 44 20 B2 20 41 44 AB 31 20 3A 20 |0 : AD . AD.1 : |
00000BB0: 99 20 48 24 20 A6 36 29 20 3B 00 C6 13 5E 33 54 |. H$ .6) ;...^3T|
00000BC0: 24 20 B2 20 22 22 00 DE 13 68 33 85 20 22 20 2B |$ . ""...h3. " +|
00000BD0: 2C 2D 2C 49 2C 45 20 3A 20 22 3B 20 54 24 00 0C |,-,I,E : "; T$..|
00000BE0: 14 72 33 8B 20 54 24 B2 22 2B 22 20 AF 20 41 44 |.r3. T$."+" . AD|
00000BF0: B3 36 35 35 33 35 20 A7 20 41 44 20 B2 20 41 44 |.65535 . AD . AD|
00000C00: AA 31 20 3A 20 89 20 31 33 31 32 30 00 36 14 7C |.1 : . 13120.6.||
00000C10: 33 8B 20 54 24 B2 22 2D 22 20 AF 20 41 44 B1 30 |3. T$."-" . AD.0|
00000C20: 20 A7 20 41 44 20 B2 20 41 44 AB 31 20 3A 20 89 | . AD . AD.1 : .|
00000C30: 20 31 33 31 32 30 00 47 14 86 33 8B 20 54 24 B2 | 13120.G..3. T$.|
00000C40: 22 45 22 20 A7 20 8E 00 67 14 90 33 8B 20 54 24 |"E" . ..g..3. T$|
00000C50: B3 B1 22 49 22 20 A7 20 99 22 91 91 22 20 3A 20 |.."I" . .".." : |
00000C60: 89 20 31 33 31 32 30 00 86 14 9A 33 8D 20 31 33 |. 13120....3. 13|
00000C70: 30 30 30 20 3A 20 97 20 41 44 2C 48 20 3A 20 89 |000 : . AD,H : .|
00000C80: 20 31 33 31 32 30 00 AA 14 F4 33 8F 2A 2A 2A 2A | 13120....3.****|
00000C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C6 14 F5 33 8F |**********....3.|
00000CB0: 20 44 55 4D 50 20 4D 45 4D 4F 52 59 20 54 4F 20 | DUMP MEMORY TO |
00000CC0: 53 43 52 45 45 4E 00 EA 14 F6 33 8F 2A 2A 2A 2A |SCREEN....3.****|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F6 14 FE 33 8D |**********....3.|
00000CF0: 20 31 32 30 35 30 00 23 15 08 34 99 20 22 93 22 | 12050.#..4. "."|
00000D00: 20 3A 20 81 20 58 31 20 B2 20 31 20 A4 20 31 38 | : . X1 . 1 . 18|
00000D10: 20 3A 20 48 20 B2 20 41 44 20 3A 20 8D 20 31 31 | : H . AD : . 11|
00000D20: 30 30 30 00 46 15 1C 34 4F 32 24 20 B2 20 22 22 |000.F..4O2$ . ""|
00000D30: 20 3A 20 4F 31 24 20 B2 20 48 24 20 3A 20 4F 33 | : O1$ . H$ : O3|
00000D40: 24 20 B2 20 22 22 00 57 15 26 34 81 20 58 32 20 |$ . "".W.&4. X2 |
00000D50: B2 20 30 20 A4 20 37 00 73 15 30 34 8D 20 31 31 |. 0 . 7.s.04. 11|
00000D60: 31 30 30 20 3A 20 4F 32 24 20 B2 20 4F 32 24 AA |100 : O2$ . O2$.|
00000D70: 22 20 22 00 A0 15 3F 34 8B 20 48 B1 33 31 20 AF |" "...?4. H.31 .|
00000D80: 20 48 B3 39 35 20 A7 20 4F 33 24 20 B2 20 4F 33 | H.95 . O3$ . O3|
00000D90: 24 AA C7 28 48 29 20 3A 20 89 20 31 33 33 38 30 |$..(H) : . 13380|
00000DA0: 00 B2 15 41 34 4F 33 24 20 B2 20 4F 33 24 AA 22 |...A4O3$ . O3$."|
00000DB0: 2E 22 00 BB 15 44 34 82 20 58 32 00 D6 15 4E 34 |."...D4. X2...N4|
00000DC0: 99 20 4F 31 24 20 A3 35 29 20 4F 32 24 20 A3 33 |. O1$ .5) O2$ .3|
00000DD0: 31 29 20 4F 33 24 00 DF 15 58 34 82 20 58 31 00 |1) O3$...X4. X1.|
00000DE0: FE 15 62 34 99 20 3A 20 8D 20 31 31 38 35 30 20 |..b4. : . 11850 |
00000DF0: 3A 20 8B 20 43 4F 20 A7 20 31 33 33 32 30 00 04 |: . CO . 13320..|
00000E00: 16 80 34 8E 00 28 16 BC 34 8F 2A 2A 2A 2A 2A 2A |..4..(..4.******|
00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E20: 2A 2A 2A 2A 2A 2A 2A 2A 00 43 16 BD 34 8F 20 4D |********.C..4. M|
00000E30: 41 43 48 49 4E 45 20 43 4F 44 45 20 45 58 45 43 |ACHINE CODE EXEC|
00000E40: 55 54 45 00 67 16 BE 34 8F 2A 2A 2A 2A 2A 2A 2A |UTE.g..4.*******|
00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E60: 2A 2A 2A 2A 2A 2A 2A 00 7E 16 C6 34 8D 20 31 32 |*******.~..4. 12|
00000E70: 30 35 30 20 3A 20 9E 20 41 44 20 3A 20 8E 00 A2 |050 : . AD : ...|
00000E80: 16 14 37 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..7.************|
00000E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EA0: 2A 2A 00 BA 16 15 37 8F 20 4D 41 43 48 49 4E 45 |**....7. MACHINE|
00000EB0: 20 43 4F 44 45 20 53 41 56 45 00 DE 16 16 37 8F | CODE SAVE....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 2A 2A 2A 2A 2A 2A 2A 2A 00 FE |**************..|
00000EE0: 16 1E 37 8D 20 31 31 32 35 30 20 3A 20 8D 20 31 |..7. 11250 : . 1|
00000EF0: 32 30 35 30 20 3A 20 8D 20 31 31 32 30 30 00 42 |2050 : . 11200.B|
00000F00: 17 23 37 54 24 20 B2 20 22 4E 22 20 3A 20 8B 20 |.#7T$ . "N" : . |
00000F10: 44 45 56 B2 38 20 A7 20 85 20 22 4F 56 45 52 57 |DEV.8 . . "OVERW|
00000F20: 52 49 54 45 20 45 58 49 53 54 49 4E 47 20 46 49 |RITE EXISTING FI|
00000F30: 4C 45 20 28 20 59 2F 4E 20 29 20 3A 20 22 3B 20 |LE ( Y/N ) : "; |
00000F40: 54 24 00 61 17 24 37 8B 20 54 24 B2 22 59 22 20 |T$.a.$7. T$."Y" |
00000F50: A7 20 49 4E 24 20 B2 20 22 40 30 3A 22 AA 49 4E |. IN$ . "@0:".IN|
00000F60: 24 00 80 17 28 37 8B 20 44 45 56 B2 38 20 A7 20 |$...(7. DEV.8 . |
00000F70: 49 4E 24 20 B2 20 49 4E 24 AA 22 2C 53 2C 57 22 |IN$ . IN$.",S,W"|
00000F80: 00 94 17 2D 37 8B 20 53 41 B1 45 41 20 A7 20 31 |...-7. SA.EA . 1|
00000F90: 34 31 39 30 00 B8 17 32 37 9F 20 32 2C 44 45 56 |4190...27. 2,DEV|
00000FA0: 2C 32 2C 49 4E 24 20 3A 20 98 20 32 2C 41 44 20 |,2,IN$ : . 2,AD |
00000FB0: 3A 20 98 20 32 2C 45 41 00 E5 17 46 37 81 20 58 |: . 2,EA...F7. X|
00000FC0: 20 B2 20 41 44 20 A4 20 45 41 20 3A 20 98 20 32 | . AD . EA : . 2|
00000FD0: 2C C2 28 58 29 20 3A 20 82 20 3A 20 98 20 32 20 |,.(X) : . : . 2 |
00000FE0: 3A 20 A0 20 32 00 EB 17 6E 37 8E 00 0F 18 DC 37 |: . 2...n7.....7|
00000FF0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00001000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001010: 27 18 DD 37 8F 20 4D 41 43 48 49 4E 45 20 43 4F |'..7. MACHINE CO|
00001020: 44 45 20 4C 4F 41 44 00 4B 18 DE 37 8F 2A 2A 2A |DE LOAD.K..7.***|
00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 74 18 E6 37 |***********.t..7|
00001050: 8D 20 31 31 32 35 30 20 3A 20 8B 20 44 45 56 B2 |. 11250 : . DEV.|
00001060: 38 20 A7 20 49 4E 24 20 B2 20 49 4E 24 AA 22 2C |8 . IN$ . IN$.",|
00001070: 53 2C 52 22 00 A3 18 F0 37 9F 20 32 2C 44 45 56 |S,R"....7. 2,DEV|
00001080: 2C 30 2C 49 4E 24 20 3A 20 84 20 32 2C 53 41 2C |,0,IN$ : . 2,SA,|
00001090: 45 41 20 3A 20 8B 20 53 54 20 A7 20 A0 20 32 20 |EA : . ST . . 2 |
000010A0: 3A 20 8E 00 D3 18 0E 38 81 20 58 20 B2 20 53 41 |: .....8. X . SA|
000010B0: 20 A4 20 45 41 20 3A 20 84 20 32 2C 54 20 3A 20 | . EA : . 2,T : |
000010C0: 97 20 58 2C 54 20 3A 20 82 20 3A 20 A0 20 32 20 |. X,T : . : . 2 |
000010D0: 3A 20 8E 00 F7 18 C4 3B 8F 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 2A 2A 00 16 19 C5 3B 8F 20 41 44 |*******....;. AD|
00001100: 44 20 4F 50 45 52 41 4E 44 20 49 4E 20 4F 50 20 |D OPERAND IN OP |
00001110: 54 4F 20 4F 31 24 00 3A 19 C6 3B 8F 2A 2A 2A 2A |TO O1$.:..;.****|
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 2A 2A 00 5F 19 CE 3B 91 |**********._..;.|
00001140: 20 4F 50 AA 31 20 89 20 31 35 34 35 30 2C 31 35 | OP.1 . 15450,15|
00001150: 35 30 30 2C 31 35 35 35 30 2C 31 35 36 30 30 00 |500,15550,15600.|
00001160: 82 19 E2 3B 8B 20 4F 50 B1 36 20 AF 20 4F 50 B3 |...;. OP.6 . OP.|
00001170: 31 30 20 A7 20 4F 31 24 20 B2 20 4F 31 24 AA 22 |10 . O1$ . O1$."|
00001180: 28 22 00 8E 19 EC 3B 8D 20 31 31 31 30 30 00 AA |("....;. 11100..|
00001190: 19 F6 3B 4F 31 24 20 B2 20 4F 31 24 AA 22 24 22 |..;O1$ . O1$."$"|
000011A0: 20 3A 20 54 24 20 B2 20 48 24 00 BD 19 00 3C 8B | : T$ . H$....<.|
000011B0: 20 4F 50 B3 39 20 A7 20 31 35 33 39 30 00 C9 19 | OP.9 . 15390...|
000011C0: 0A 3C 8D 20 31 31 31 30 30 00 DA 19 14 3C 4F 31 |.<. 11100....<O1|
000011D0: 24 20 B2 20 4F 31 24 AA 48 24 00 EB 19 1E 3C 4F |$ . O1$.H$....<O|
000011E0: 31 24 20 B2 20 4F 31 24 AA 54 24 00 0D 1A 28 3C |1$ . O1$.T$...(<|
000011F0: 8B 20 4F 50 B2 39 20 B0 20 4F 50 B2 38 20 A7 20 |. OP.9 . OP.8 . |
00001200: 4F 31 24 20 B2 20 4F 31 24 AA 22 29 22 00 33 1A |O1$ . O1$.")".3.|
00001210: 32 3C 8B 20 4F 50 AB B5 28 4F 50 AD 33 29 AC 33 |2<. OP..(OP.3).3|
00001220: B2 31 20 A7 20 4F 31 24 20 B2 20 4F 31 24 AA 22 |.1 . O1$ . O1$."|
00001230: 2C 58 22 00 59 1A 3C 3C 8B 20 4F 50 AB B5 28 4F |,X".Y.<<. OP..(O|
00001240: 50 AD 33 29 AC 33 B2 32 20 A7 20 4F 31 24 20 B2 |P.3).3.2 . O1$ .|
00001250: 20 4F 31 24 AA 22 2C 59 22 00 74 1A 46 3C 8B 20 | O1$.",Y".t.F<. |
00001260: 4F 50 B2 37 20 A7 20 4F 31 24 20 B2 20 4F 31 24 |OP.7 . O1$ . O1$|
00001270: AA 22 29 22 00 7A 1A 50 3C 8E 00 9E 1A 5A 3C 8F |.")".z.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 2A 2A 00 B7 |**************..|
000012A0: 1A 5B 3C 8F 20 41 43 43 55 4D 55 4C 41 54 4F 52 |.[<. ACCUMULATOR|
000012B0: 20 28 4F 50 3D 30 29 00 DB 1A 5C 3C 8F 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 2A 2A 00 ED 1A 64 3C |***********...d<|
000012E0: 4F 31 24 20 B2 20 4F 31 24 AA 22 41 22 00 02 1B |O1$ . O1$."A"...|
000012F0: 8C 3C 8F 20 49 4D 50 4C 49 45 44 20 28 4F 50 3D |.<. IMPLIED (OP=|
00001300: 31 29 00 08 1B 96 3C 8E 00 2C 1B BE 3C 8F 2A 2A |1)....<..,..<.**|
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 2A 2A 00 43 1B BF |************.C..|
00001330: 3C 8F 20 49 4D 4D 45 44 49 41 54 45 20 28 4F 50 |<. IMMEDIATE (OP|
00001340: 3D 32 29 00 67 1B C0 3C 8F 2A 2A 2A 2A 2A 2A 2A |=2).g..<.*******|
00001350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001360: 2A 2A 2A 2A 2A 2A 2A 00 73 1B C8 3C 8D 20 31 31 |*******.s..<. 11|
00001370: 31 30 30 00 89 1B D2 3C 4F 31 24 20 B2 20 4F 31 |100....<O1$ . O1|
00001380: 24 AA 22 23 24 22 AA 48 24 00 8F 1B DC 3C 8E 00 |$."#$".H$....<..|
00001390: B3 1B F0 3C 8F 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 2A 2A 00 C9 1B F1 3C 8F 20 52 45 4C 41 54 49 |***....<. RELATI|
000013C0: 56 45 20 28 4F 50 3D 33 29 00 ED 1B F2 3C 8F 2A |VE (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 2A 2A 00 F9 1B |*************...|
000013F0: FA 3C 8D 20 31 31 31 30 30 00 11 1C 04 3D 8B 20 |.<. 11100....=. |
00001400: 48 B1 31 32 37 20 A7 20 48 20 B2 20 48 AB 32 35 |H.127 . H . H.25|
00001410: 36 00 1E 1C 0E 3D 48 20 B2 20 48 AA 41 44 00 2A |6....=H . H.AD.*|
00001420: 1C 18 3D 8D 20 31 31 30 30 30 00 3F 1C 22 3D 4F |..=. 11000.?."=O|
00001430: 31 24 20 B2 20 4F 31 24 AA 22 24 22 AA 48 24 00 |1$ . O1$."$".H$.|
00001440: 45 1C 2C 3D 8E 00 69 1C 54 3D 8F 2A 2A 2A 2A 2A |E.,=..i.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 2A 2A 00 87 1C 55 3D 8F 20 |*********...U=. |
00001470: 44 49 53 41 53 53 45 4D 42 4C 45 20 49 4E 53 54 |DISASSEMBLE INST|
00001480: 52 55 43 54 49 4F 4E 00 AB 1C 56 3D 8F 2A 2A 2A |RUCTION...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 2A 2A 00 B8 1C 5E 3D |***********...^=|
000014B0: 4F 32 24 20 B2 20 22 22 00 CE 1C 63 3D 8D 20 31 |O2$ . ""...c=. 1|
000014C0: 31 31 30 30 20 3A 20 48 20 B2 20 48 AA 31 00 E2 |1100 : H . H.1..|
000014D0: 1C 68 3D 8B 20 48 B1 32 35 35 20 A7 20 48 20 B2 |.h=. H.255 . H .|
000014E0: 20 33 00 FB 1C 72 3D 54 20 B2 20 C6 28 CA 28 54 | 3...r=T . .(.(T|
000014F0: 41 24 28 30 29 2C 48 2C 31 29 29 00 1B 1D 86 3D |A$(0),H,1))....=|
00001500: 4F 31 24 20 B2 20 CA 28 54 41 24 28 32 29 2C 54 |O1$ . .(TA$(2),T|
00001510: AC 33 AA 31 2C 33 29 AA 22 20 22 00 3E 1D 90 3D |.3.1,3)." ".>..=|
00001520: 4F 50 20 B2 20 C6 28 CA 28 54 41 24 28 31 29 2C |OP . .(.(TA$(1),|
00001530: B5 28 28 48 AA 31 29 AD 32 29 2C 31 29 29 00 5C |.((H.1).2),1)).\|
00001540: 1D 9A 3D 8B 20 28 48 20 AF 20 31 29 20 B2 31 20 |..=. (H . 1) .1 |
00001550: A7 20 4F 50 20 B2 20 4F 50 AD 31 36 00 6D 1D A4 |. OP . OP.16.m..|
00001560: 3D 4F 50 20 B2 20 4F 50 20 AF 20 31 35 00 73 1D |=OP . OP . 15.s.|
00001570: AE 3D 8E 00 97 1D B8 3D 8F 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 2A 2A 00 B5 1D B9 3D 8F 20 44 49 |*******....=. DI|
000015A0: 53 41 53 53 45 4D 42 4C 45 20 4D 45 4D 4F 52 59 |SASSEMBLE MEMORY|
000015B0: 20 41 52 45 41 00 D9 1D BA 3D 8F 2A 2A 2A 2A 2A | AREA....=.*****|
000015C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E5 1D C2 3D 8D 20 |*********....=. |
000015E0: 31 32 30 35 30 00 FE 1D CC 3D 99 20 22 93 22 20 |12050....=. "." |
000015F0: 3A 20 81 20 49 20 B2 20 31 20 A4 20 32 30 00 20 |: . I . 1 . 20. |
00001600: 1E D1 3D 48 20 B2 20 41 44 20 3A 20 8D 20 31 31 |..=H . AD : . 11|
00001610: 30 30 30 20 3A 20 99 20 48 24 20 A3 36 29 20 3B |000 : . H$ .6) ;|
00001620: 00 36 1E D6 3D 8D 20 31 35 37 30 30 20 3A 20 8D |.6..=. 15700 : .|
00001630: 20 31 35 33 30 30 00 49 1E EA 3D 99 20 4F 32 24 | 15300.I..=. O2$|
00001640: 20 A3 31 34 29 20 4F 31 24 00 51 1E F4 3D 82 20 | .14) O1$.Q..=. |
00001650: 49 00 57 1E F9 3D 99 00 63 1E FE 3D 8D 20 31 31 |I.W..=..c..=. 11|
00001660: 38 35 30 00 74 1E 08 3E 8B 20 43 4F 20 A7 20 31 |850.t..>. CO . 1|
00001670: 35 38 32 30 00 7A 1E 12 3E 8E 00 9E 1E 38 4A 8F |5820.z..>....8J.|
00001680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BE |**************..|
000016A0: 1E 39 4A 8F 20 49 4E 49 54 49 41 4C 49 53 45 20 |.9J. INITIALISE |
000016B0: 44 45 43 4F 44 45 52 20 54 41 42 4C 45 53 00 E2 |DECODER TABLES..|
000016C0: 1E 3A 4A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.:J.************|
000016D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016E0: 2A 2A 00 F0 1E 3D 4A 42 41 53 45 20 B2 20 31 36 |**...=JBASE . 16|
000016F0: 00 0E 1F 3F 4A 96 A5 20 44 45 43 28 58 29 20 B2 |...?J.. DEC(X) .|
00001700: 20 58 AB 34 38 AA 28 58 B1 35 37 29 AC 37 00 1B | X.48.(X.57).7..|
00001710: 1F 42 4A 86 20 54 41 24 28 34 29 00 4A 1F 43 4A |.BJ. TA$(4).J.CJ|
00001720: 54 24 20 B2 20 20 20 20 22 30 41 32 32 33 38 33 |T$ . "0A22383|
00001730: 38 33 38 32 32 30 32 33 38 32 34 32 32 30 32 33 |8382202382422023|
00001740: 38 33 38 32 32 30 32 33 38 22 00 79 1F 44 4A 54 |838220238".y.DJT|
00001750: 24 20 B2 20 54 24 AA 22 30 39 32 32 33 38 33 38 |$ . T$."09223838|
00001760: 33 38 32 32 30 32 33 38 30 44 32 32 33 38 33 38 |382202380D223838|
00001770: 33 38 32 32 30 32 33 38 22 00 A8 1F 45 4A 54 24 |38220238"...EJT$|
00001780: 20 B2 20 54 24 AA 22 31 43 30 31 33 38 33 38 30 | . T$."1C0138380|
00001790: 36 30 31 32 37 33 38 32 36 30 31 32 37 33 38 30 |6012738260127380|
000017A0: 36 30 31 32 37 33 38 22 00 D7 1F 46 4A 54 24 20 |6012738"...FJT$ |
000017B0: B2 20 54 24 AA 22 30 37 30 31 33 38 33 38 33 38 |. T$."0701383838|
000017C0: 30 31 32 37 33 38 32 43 30 31 33 38 33 38 33 38 |0127382C01383838|
000017D0: 30 31 32 37 33 38 22 00 06 20 47 4A 54 24 20 B2 |012738".. GJT$ .|
000017E0: 20 54 24 AA 22 32 39 31 37 33 38 33 38 33 38 31 | T$."29173838381|
000017F0: 37 32 30 33 38 32 33 31 37 32 30 33 38 31 42 31 |72038231720381B1|
00001800: 37 32 30 33 38 22 00 35 20 48 4A 54 24 20 B2 20 |72038".5 HJT$ . |
00001810: 54 24 AA 22 30 42 31 37 33 38 33 38 33 38 31 37 |T$."0B1738383817|
00001820: 32 30 33 38 30 46 31 37 33 38 33 38 33 38 31 37 |20380F1738383817|
00001830: 32 30 33 38 22 00 64 20 49 4A 54 24 20 B2 20 54 |2038".d IJT$ . T|
00001840: 24 AA 22 32 41 30 30 33 38 33 38 33 38 30 30 32 |$."2A00383838002|
00001850: 38 33 38 32 35 30 30 32 38 33 38 31 42 31 37 32 |838250028381B172|
00001860: 30 33 38 22 00 7F 20 4A 4A 8D 20 31 32 32 30 30 |038".. JJ. 12200|
00001870: 20 3A 20 54 41 24 28 30 29 20 B2 20 54 31 24 00 | : TA$(0) . T1$.|
00001880: AE 20 4B 4A 54 24 20 B2 20 20 20 20 22 30 43 30 |. KJT$ . "0C0|
00001890: 30 33 38 33 38 33 38 30 30 32 38 33 38 32 45 30 |03838380028382E0|
000018A0: 30 33 38 33 38 33 38 30 30 32 38 33 38 22 00 DD |0383838002838"..|
000018B0: 20 4C 4A 54 24 20 B2 20 54 24 AA 22 33 38 32 46 | LJT$ . T$."382F|
000018C0: 33 38 33 38 33 31 32 46 33 30 33 38 31 36 33 38 |3838312F30381638|
000018D0: 33 35 33 38 33 31 32 46 33 30 33 38 22 00 0C 21 |3538312F3038"..!|
000018E0: 4D 4A 54 24 20 B2 20 54 24 AA 22 30 33 32 46 33 |MJT$ . T$."032F3|
000018F0: 38 33 38 33 31 32 46 33 30 33 38 33 37 32 46 33 |838312F3038372F3|
00001900: 36 33 38 33 38 32 46 33 38 33 38 22 00 3B 21 4E |638382F3838".;!N|
00001910: 4A 54 24 20 B2 20 54 24 AA 22 31 46 31 44 31 45 |JT$ . T$."1F1D1E|
00001920: 33 38 31 46 31 44 31 45 33 38 33 33 31 44 33 32 |381F1D1E38331D32|
00001930: 33 38 31 46 31 44 31 45 33 38 22 00 6A 21 4F 4A |381F1D1E38".j!OJ|
00001940: 54 24 20 B2 20 54 24 AA 22 30 34 31 44 33 38 33 |T$ . T$."041D383|
00001950: 38 31 46 31 44 31 45 33 38 31 30 31 44 33 34 33 |81F1D1E38101D343|
00001960: 38 31 46 31 44 31 45 33 38 22 00 99 21 50 4A 54 |81F1D1E38"..!PJT|
00001970: 24 20 B2 20 54 24 AA 22 31 33 31 31 33 38 33 38 |$ . T$."13113838|
00001980: 31 33 31 31 31 34 33 38 31 41 31 31 31 35 33 38 |131114381A111538|
00001990: 31 33 31 31 31 34 33 38 22 00 C8 21 51 4A 54 24 |13111438"..!QJT$|
000019A0: 20 B2 20 54 24 AA 22 30 38 31 31 33 38 33 38 33 | . T$."081138383|
000019B0: 38 31 31 31 34 33 38 30 45 31 31 33 38 33 38 33 |81114380E1138383|
000019C0: 38 31 31 31 34 33 38 22 00 EA 21 52 4A 8D 20 31 |8111438"..!RJ. 1|
000019D0: 32 32 30 30 20 3A 20 54 41 24 28 30 29 20 B2 20 |2200 : TA$(0) . |
000019E0: 54 41 24 28 30 29 AA 54 31 24 00 19 22 53 4A 54 |TA$(0).T1$.."SJT|
000019F0: 24 20 B2 20 20 20 20 22 31 32 32 42 33 38 33 38 |$ . "122B3838|
00001A00: 31 32 32 42 31 38 33 38 31 39 32 42 32 31 33 38 |122B1838192B2138|
00001A10: 31 32 32 42 31 38 33 38 22 00 46 22 54 4A 54 24 |122B1838".F"TJT$|
00001A20: 20 B2 20 54 24 AA 22 30 35 32 42 33 38 33 38 33 | . T$."052B38383|
00001A30: 38 32 42 31 38 33 38 32 44 32 42 33 38 33 38 33 |82B18382D2B38383|
00001A40: 38 32 42 31 38 22 00 68 22 55 4A 8D 20 31 32 32 |82B18".h"UJ. 122|
00001A50: 30 30 20 3A 20 54 41 24 28 30 29 20 B2 20 54 41 |00 : TA$(0) . TA|
00001A60: 24 28 30 29 AA 54 31 24 00 97 22 56 4A 54 24 20 |$(0).T1$.."VJT$ |
00001A70: B2 20 20 20 20 22 31 37 31 31 31 36 36 31 31 32 |. "1711166112|
00001A80: 30 31 31 43 43 31 33 38 31 31 31 34 34 31 31 42 |011CC1381114411B|
00001A90: 31 31 31 41 41 31 22 00 C6 22 57 4A 54 24 20 B2 |111AA1".."WJT$ .|
00001AA0: 20 54 24 AA 22 43 37 31 31 36 36 36 31 31 32 30 | T$."C7116661120|
00001AB0: 31 43 43 43 31 33 38 31 31 31 34 34 31 31 42 31 |1CCC1381114411B1|
00001AC0: 31 31 41 41 31 22 00 F5 22 58 4A 54 24 20 B2 20 |11AA1".."XJT$ . |
00001AD0: 54 24 AA 22 31 37 31 31 31 36 36 31 31 32 30 31 |T$."171116611201|
00001AE0: 43 43 43 31 33 38 31 31 31 34 34 31 31 42 31 31 |CCC1381114411B11|
00001AF0: 31 41 41 31 22 00 24 23 59 4A 54 24 20 B2 20 54 |1AA1".$#YJT$ . T|
00001B00: 24 AA 22 31 37 31 31 31 36 36 31 31 32 30 31 39 |$."1711166112019|
00001B10: 43 43 31 33 38 31 31 31 34 34 31 31 42 31 31 31 |CC1381114411B111|
00001B20: 41 41 31 22 00 53 23 5A 4A 54 24 20 B2 20 54 24 |AA1".S#ZJT$ . T$|
00001B30: AA 22 31 37 31 31 36 36 36 31 31 32 30 31 43 43 |."171166611201CC|
00001B40: 43 31 33 38 31 31 34 34 35 31 31 42 31 31 31 41 |C1381144511B111A|
00001B50: 31 31 22 00 82 23 5B 4A 54 24 20 B2 20 54 24 AA |11"..#[JT$ . T$.|
00001B60: 22 32 37 32 31 36 36 36 31 31 32 31 31 43 43 43 |"272166611211CCC|
00001B70: 31 33 38 31 31 34 34 35 31 31 42 31 31 41 41 42 |1381144511B11AAB|
00001B80: 31 22 00 B1 23 5C 4A 54 24 20 B2 20 54 24 AA 22 |1"..#\JT$ . T$."|
00001B90: 32 37 31 31 36 36 36 31 31 32 31 31 43 43 43 31 |271166611211CCC1|
00001BA0: 33 38 31 31 31 34 34 31 31 42 31 31 31 41 41 31 |381114411B111AA1|
00001BB0: 22 00 DE 23 5D 4A 54 24 20 B2 20 54 24 AA 22 32 |"..#]JT$ . T$."2|
00001BC0: 37 31 31 36 36 36 31 31 32 31 31 43 43 43 31 33 |71166611211CCC13|
00001BD0: 38 31 31 31 34 34 31 31 42 31 31 31 41 22 00 00 |81114411B111A"..|
00001BE0: 24 5E 4A 8D 20 31 32 32 30 30 20 3A 20 54 41 24 |$^J. 12200 : TA$|
00001BF0: 28 31 29 20 B2 20 54 31 24 AA C7 28 31 36 30 29 |(1) . T1$..(160)|
00001C00: 00 3E 24 60 4A 54 41 24 28 32 29 20 B2 20 20 20 |.>$`JTA$(2) . |
00001C10: 20 20 20 20 20 22 41 44 43 41 4E 44 41 53 4C 42 | "ADCANDASLB|
00001C20: 43 43 42 43 53 42 45 51 42 49 54 42 4D 49 42 4E |CCBCSBEQBITBMIBN|
00001C30: 45 42 50 4C 42 52 4B 42 56 43 42 56 53 22 00 7C |EBPLBRKBVCBVS".||
00001C40: 24 61 4A 54 41 24 28 32 29 20 B2 20 54 41 24 28 |$aJTA$(2) . TA$(|
00001C50: 32 29 AA 22 43 4C 43 43 4C 44 43 4C 49 43 4C 56 |2)."CLCCLDCLICLV|
00001C60: 43 4D 50 43 50 58 43 50 59 44 45 43 44 45 58 44 |CMPCPXCPYDECDEXD|
00001C70: 45 59 45 4F 52 49 4E 43 49 4E 58 22 00 BA 24 62 |EYEORINCINX"..$b|
00001C80: 4A 54 41 24 28 32 29 20 B2 20 54 41 24 28 32 29 |JTA$(2) . TA$(2)|
00001C90: AA 22 49 4E 59 4A 4D 50 4A 53 52 4C 44 41 4C 44 |."INYJMPJSRLDALD|
00001CA0: 58 4C 44 59 4C 53 52 4E 4F 50 4F 52 41 50 48 41 |XLDYLSRNOPORAPHA|
00001CB0: 50 48 50 50 4C 41 50 4C 50 22 00 F8 24 63 4A 54 |PHPPLAPLP"..$cJT|
00001CC0: 41 24 28 32 29 20 B2 20 54 41 24 28 32 29 AA 22 |A$(2) . TA$(2)."|
00001CD0: 52 4F 4C 52 4F 52 52 54 49 52 54 53 53 42 43 53 |ROLRORRTIRTSSBCS|
00001CE0: 45 43 53 45 44 53 45 49 53 54 41 53 54 58 53 54 |ECSEDSEISTASTXST|
00001CF0: 59 54 41 58 54 41 59 22 00 1E 25 64 4A 54 41 24 |YTAXTAY"..%dJTA$|
00001D00: 28 32 29 20 B2 20 54 41 24 28 32 29 AA 22 54 53 |(2) . TA$(2)."TS|
00001D10: 58 54 58 41 54 58 53 54 59 41 3F 3F 3F 22 00 4A |XTXATXSTYA???".J|
00001D20: 25 66 4A 54 41 24 28 32 29 20 B2 20 54 41 24 28 |%fJTA$(2) . TA$(|
00001D30: 32 29 AA 22 42 59 54 57 52 44 44 42 59 45 4E 44 |2)."BYTWRDDBYEND|
00001D40: 4F 52 47 50 52 54 53 59 4D 22 00 79 25 67 4A 54 |ORGPRTSYM".y%gJT|
00001D50: 24 20 B2 20 20 20 20 22 36 31 32 31 30 36 39 30 |$ . "61210690|
00001D60: 42 30 46 30 32 34 33 30 44 30 31 30 30 30 35 30 |B0F02430D0100050|
00001D70: 37 30 31 38 44 38 35 38 22 00 A8 25 68 4A 54 24 |7018D858"..%hJT$|
00001D80: 20 B2 20 54 24 AA 22 42 38 43 44 45 43 43 43 43 | . T$."B8CDECCCC|
00001D90: 45 43 41 38 38 34 44 45 45 45 38 43 38 34 43 32 |ECA884DEEE8C84C2|
00001DA0: 30 41 44 41 45 41 43 22 00 D7 25 69 4A 54 24 20 |0ADAEAC"..%iJT$ |
00001DB0: B2 20 54 24 AA 22 34 41 45 41 30 44 34 38 30 38 |. T$."4AEA0D4808|
00001DC0: 36 38 32 38 32 41 36 41 34 30 36 30 45 44 33 38 |68282A6A4060ED38|
00001DD0: 46 38 37 38 38 44 22 00 F6 25 6A 4A 54 24 20 B2 |F8788D"..%jJT$ .|
00001DE0: 20 54 24 AA 22 38 45 38 43 41 41 41 38 42 41 38 | T$."8E8CAAA8BA8|
00001DF0: 41 39 41 39 38 22 00 11 26 6B 4A 8D 20 31 32 32 |A9A98"..&kJ. 122|
00001E00: 30 30 20 3A 20 54 41 24 28 33 29 20 B2 20 54 31 |00 : TA$(3) . T1|
00001E10: 24 00 40 26 6C 4A 54 24 20 B2 20 20 20 20 22 46 |$.@&lJT$ . "F|
00001E20: 46 31 31 46 46 46 46 46 46 30 39 30 41 46 46 46 |F11FFFFFF090AFFF|
00001E30: 46 31 44 30 45 46 46 46 46 30 35 31 45 46 46 22 |F1D0EFFFF051EFF"|
00001E40: 00 6F 26 6D 4A 54 24 20 B2 20 54 24 AA 22 46 46 |.o&mJT$ . T$."FF|
00001E50: 31 35 46 46 46 46 46 46 46 46 46 46 46 46 46 46 |15FFFFFFFFFFFFFF|
00001E60: 30 31 46 46 46 46 46 46 31 39 31 36 46 46 22 00 |01FFFFFF1916FF".|
00001E70: 9E 26 6E 4A 54 24 20 B2 20 54 24 AA 22 46 46 32 |.&nJT$ . T$."FF2|
00001E80: 44 46 46 46 46 32 43 32 39 33 45 46 46 46 46 33 |DFFFF2C293EFFFF3|
00001E90: 44 32 45 46 46 46 46 32 35 32 36 46 46 22 00 CD |D2EFFFF2526FF"..|
00001EA0: 26 6F 4A 54 24 20 B2 20 54 24 AA 22 46 46 33 35 |&oJT$ . T$."FF35|
00001EB0: 46 46 46 46 46 46 46 46 46 46 46 46 46 46 33 31 |FFFFFFFFFFFFFF31|
00001EC0: 46 46 46 46 46 46 33 39 33 36 46 46 22 00 FC 26 |FFFFFF3936FF"..&|
00001ED0: 70 4A 54 24 20 B2 20 54 24 AA 22 46 46 35 31 46 |pJT$ . T$."FF51F|
00001EE0: 46 46 46 46 46 34 39 35 45 46 46 46 46 35 44 34 |FFFFF495EFFFF5D4|
00001EF0: 45 46 46 36 43 34 35 34 36 46 46 22 00 2B 27 71 |EFF6C4546FF".+'q|
00001F00: 4A 54 24 20 B2 20 54 24 AA 22 46 46 35 35 46 46 |JT$ . T$."FF55FF|
00001F10: 46 46 46 46 46 46 46 46 46 46 46 46 34 31 46 46 |FFFFFFFFFFFF41FF|
00001F20: 46 46 46 46 35 39 35 36 46 46 22 00 5A 27 72 4A |FFFF5956FF".Z'rJ|
00001F30: 54 24 20 B2 20 54 24 AA 22 46 46 36 44 46 46 46 |T$ . T$."FF6DFFF|
00001F40: 46 46 46 36 39 37 45 46 46 46 46 37 44 36 45 46 |FFF697EFFFF7D6EF|
00001F50: 46 46 46 36 35 36 36 46 46 22 00 75 27 73 4A 8D |FFF6566FF".u'sJ.|
00001F60: 20 31 32 32 30 30 20 3A 20 54 41 24 28 34 29 20 | 12200 : TA$(4) |
00001F70: B2 20 54 31 24 00 A4 27 74 4A 54 24 20 B2 20 20 |. T1$..'tJT$ . |
00001F80: 20 20 22 46 46 37 35 46 46 46 46 46 46 46 46 46 | "FF75FFFFFFFFF|
00001F90: 46 46 46 46 46 37 31 46 46 46 46 46 46 37 39 37 |FFFFF71FFFFFF797|
00001FA0: 36 46 46 22 00 D3 27 75 4A 54 24 20 B2 20 54 24 |6FF"..'uJT$ . T$|
00001FB0: AA 22 46 46 39 31 46 46 46 46 39 34 39 44 39 36 |."FF91FFFF949D96|
00001FC0: 46 46 46 46 46 46 46 46 46 46 38 34 38 35 38 36 |FFFFFFFFFF848586|
00001FD0: 46 46 22 00 02 28 76 4A 54 24 20 B2 20 54 24 AA |FF"..(vJT$ . T$.|
00001FE0: 22 46 46 39 35 46 46 46 46 46 46 46 46 46 46 46 |"FF95FFFFFFFFFFF|
00001FF0: 46 46 46 38 31 46 46 46 46 46 46 39 39 46 46 46 |FFF81FFFFFF99FFF|
00002000: 46 22 00 31 28 77 4A 54 24 20 B2 20 54 24 AA 22 |F".1(wJT$ . T$."|
00002010: 42 43 42 31 42 45 46 46 41 30 41 39 41 32 46 46 |BCB1BEFFA0A9A2FF|
00002020: 46 46 42 44 46 46 41 46 41 34 41 35 41 36 46 46 |FFBDFFAFA4A5A6FF|
00002030: 22 00 60 28 78 4A 54 24 20 B2 20 54 24 AA 22 46 |".`(xJT$ . T$."F|
00002040: 46 42 35 46 46 46 46 46 46 46 46 46 46 46 46 46 |FB5FFFFFFFFFFFFF|
00002050: 46 41 31 46 46 46 46 42 34 42 39 42 36 46 46 22 |FA1FFFFB4B9B6FF"|
00002060: 00 8F 28 79 4A 54 24 20 B2 20 54 24 AA 22 46 46 |..(yJT$ . T$."FF|
00002070: 44 31 46 46 46 46 43 30 43 39 44 45 46 46 46 46 |D1FFFFC0C9DEFFFF|
00002080: 44 44 46 46 46 46 43 34 43 35 43 36 46 46 22 00 |DDFFFFC4C5C6FF".|
00002090: BE 28 7A 4A 54 24 20 B2 20 54 24 AA 22 46 46 44 |.(zJT$ . T$."FFD|
000020A0: 35 46 46 46 46 46 46 46 46 46 46 46 46 46 46 43 |5FFFFFFFFFFFFFFC|
000020B0: 31 46 46 46 46 46 46 44 39 44 36 46 46 22 00 E0 |1FFFFFFD9D6FF"..|
000020C0: 28 7B 4A 8D 20 31 32 32 30 30 20 3A 20 54 41 24 |({J. 12200 : TA$|
000020D0: 28 34 29 20 B2 20 54 41 24 28 34 29 AA 54 31 24 |(4) . TA$(4).T1$|
000020E0: 00 0F 29 7C 4A 54 24 20 B2 20 20 20 20 22 46 46 |..)|JT$ . "FF|
000020F0: 46 31 46 46 46 46 45 30 45 39 46 45 46 46 46 46 |F1FFFFE0E9FEFFFF|
00002100: 46 44 46 46 46 46 45 34 45 35 45 36 46 46 22 00 |FDFFFFE4E5E6FF".|
00002110: 3C 29 7D 4A 54 24 20 B2 20 54 24 AA 22 46 46 46 |<)}JT$ . T$."FFF|
00002120: 35 46 46 46 46 46 46 46 46 46 46 46 46 46 46 45 |5FFFFFFFFFFFFFFE|
00002130: 31 46 46 46 46 46 46 46 39 46 36 22 00 5E 29 7E |1FFFFFFF9F6".^)~|
00002140: 4A 8D 20 31 32 32 30 30 20 3A 20 54 41 24 28 34 |J. 12200 : TA$(4|
00002150: 29 20 B2 20 54 41 24 28 34 29 AA 54 31 24 00 83 |) . TA$(4).T1$..|
00002160: 29 88 4A 53 4D 20 B2 20 35 30 20 3A 20 53 45 20 |).JSM . 50 : SE |
00002170: B2 20 30 20 3A 20 86 20 53 54 41 42 4C 45 24 28 |. 0 : . STABLE$(|
00002180: 53 4D 29 00 92 29 9D 4A 86 20 45 52 52 24 28 31 |SM)..).J. ERR$(1|
00002190: 38 29 00 BB 29 9F 4A 45 52 52 24 28 31 29 20 B2 |8)..).JERR$(1) .|
000021A0: 20 22 53 49 4E 47 4C 45 20 42 59 54 45 20 4F 55 | "SINGLE BYTE OU|
000021B0: 54 20 4F 46 20 52 41 4E 47 45 22 00 E4 29 A0 4A |T OF RANGE"..).J|
000021C0: 45 52 52 24 28 32 29 20 B2 20 22 44 4F 55 42 4C |ERR$(2) . "DOUBL|
000021D0: 45 20 42 59 54 45 20 4F 55 54 20 4F 46 20 52 41 |E BYTE OUT OF RA|
000021E0: 4E 47 45 22 00 0D 2A A1 4A 45 52 52 24 28 33 29 |NGE"..*.JERR$(3)|
000021F0: 20 B2 20 22 49 4E 56 41 4C 49 44 20 4F 50 52 41 | . "INVALID OPRA|
00002200: 4E 44 20 4F 52 20 4F 50 43 4F 44 45 22 00 2E 2A |ND OR OPCODE"..*|
00002210: A2 4A 45 52 52 24 28 34 29 20 B2 20 22 49 4E 56 |.JERR$(4) . "INV|
00002220: 41 4C 49 44 20 4F 50 45 52 41 54 4F 52 22 00 52 |ALID OPERATOR".R|
00002230: 2A A3 4A 45 52 52 24 28 35 29 20 B2 20 22 49 4E |*.JERR$(5) . "IN|
00002240: 44 45 58 20 49 53 20 4E 4F 54 20 58 20 4F 52 20 |DEX IS NOT X OR |
00002250: 59 22 00 7A 2A A4 4A 45 52 52 24 28 36 29 20 B2 |Y".z*.JERR$(6) .|
00002260: 20 22 4C 41 42 45 4C 20 4E 4F 54 20 41 4C 50 48 | "LABEL NOT ALPH|
00002270: 41 2D 4E 55 4D 45 52 49 43 22 00 A0 2A A5 4A 45 |A-NUMERIC"..*.JE|
00002280: 52 52 24 28 37 29 20 B2 20 22 49 4E 43 4F 52 52 |RR$(7) . "INCORR|
00002290: 45 43 54 20 4E 55 4D 42 45 52 20 42 41 53 45 22 |ECT NUMBER BASE"|
000022A0: 00 C4 2A A6 4A 45 52 52 24 28 38 29 20 B2 20 22 |..*.JERR$(8) . "|
000022B0: 4C 41 42 45 4C 20 44 45 46 49 4E 45 44 20 54 57 |LABEL DEFINED TW|
000022C0: 49 43 45 22 00 E9 2A A8 4A 45 52 52 24 28 31 30 |ICE"..*.JERR$(10|
000022D0: 29 20 B2 20 22 42 52 41 4E 43 48 20 4F 55 54 20 |) . "BRANCH OUT |
000022E0: 4F 46 20 52 41 4E 47 45 22 00 0A 2B A9 4A 45 52 |OF RANGE"..+.JER|
000022F0: 52 24 28 31 31 29 20 B2 20 22 55 4E 44 45 46 49 |R$(11) . "UNDEFI|
00002300: 4E 45 44 20 4C 41 42 45 4C 22 00 35 2B AA 4A 45 |NED LABEL".5+.JE|
00002310: 52 52 24 28 31 32 29 20 B2 20 22 4F 4E 4C 59 20 |RR$(12) . "ONLY |
00002320: 53 49 4E 47 4C 45 20 43 48 52 2E 20 45 58 50 45 |SINGLE CHR. EXPE|
00002330: 43 54 45 44 22 00 5A 2B AC 4A 45 52 52 24 28 31 |CTED".Z+.JERR$(1|
00002340: 34 29 20 B2 20 22 4F 55 54 20 4F 46 20 53 59 4D |4) . "OUT OF SYM|
00002350: 42 4F 4C 20 53 50 41 43 45 22 00 7C 2B AD 4A 45 |BOL SPACE".|+.JE|
00002360: 52 52 24 28 31 35 29 20 B2 20 22 44 49 56 49 53 |RR$(15) . "DIVIS|
00002370: 49 4F 4E 20 42 59 20 5A 45 52 4F 22 00 BB 2B B0 |ION BY ZERO"..+.|
00002380: 4A 45 52 52 24 28 31 38 29 20 B2 20 22 41 44 44 |JERR$(18) . "ADD|
00002390: 52 45 53 53 49 4E 47 20 4D 4F 44 45 20 4E 4F 54 |RESSING MODE NOT|
000023A0: 20 41 56 41 49 4C 42 4C 45 20 57 49 54 48 20 54 | AVAILBLE WITH T|
000023B0: 48 49 53 20 4F 50 43 4F 44 45 22 00 D4 2B 0C 4E |HIS OPCODE"..+.N|
000023C0: 86 20 46 49 24 28 32 35 34 29 20 3A 20 8D 20 32 |. FI$(254) : . 2|
000023D0: 34 33 30 30 00 DA 2B 16 4E 8E 00 FE 2B 20 4E 8F |4300..+.N...+ N.|
000023E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000023F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1E |**************..|
00002400: 2C 21 4E 8F 20 47 45 4E 45 52 41 54 45 20 41 53 |,!N. GENERATE AS|
00002410: 53 45 4D 42 4C 59 20 4C 49 53 54 49 4E 47 00 42 |SEMBLY LISTING.B|
00002420: 2C 22 4E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |,"N.************|
00002430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002440: 2A 2A 00 6B 2C 25 4E 53 45 20 B2 20 30 20 3A 20 |**.k,%NSE . 0 : |
00002450: 46 4D 41 58 20 B2 20 C3 28 50 54 52 24 29 20 3A |FMAX . .(PTR$) :|
00002460: 20 53 59 20 B2 20 46 41 4C 53 45 00 95 2C 2A 4E | SY . FALSE..,*N|
00002470: 85 20 22 20 45 52 52 4F 52 20 4F 4E 4C 59 20 4C |. " ERROR ONLY L|
00002480: 49 53 54 49 4E 47 20 28 20 59 2F 4E 20 29 20 3A |ISTING ( Y/N ) :|
00002490: 22 3B 20 54 24 00 AA 2C 34 4E 45 4F 20 B2 20 C8 |"; T$..,4NEO . .|
000024A0: 28 54 24 2C 31 29 B2 22 59 22 00 D4 2C 39 4E 85 |(T$,1)."Y"..,9N.|
000024B0: 20 22 20 41 53 53 45 4D 42 4C 45 20 54 4F 20 4D | " ASSEMBLE TO M|
000024C0: 45 4D 4F 52 59 20 28 20 59 2F 4E 20 29 20 3A 22 |EMORY ( Y/N ) :"|
000024D0: 3B 20 54 24 00 E9 2C 3D 4E 41 4D 20 B2 20 C8 28 |; T$..,=NAM . .(|
000024E0: 54 24 2C 31 29 B2 22 59 22 00 0A 2D 3E 4E 41 44 |T$,1)."Y"..->NAD|
000024F0: 20 B2 20 30 20 3A 20 8F 20 53 45 54 20 53 54 41 | . 0 : . SET STA|
00002500: 52 54 20 41 44 44 52 45 53 53 00 1D 2D 48 4E 81 |RT ADDRESS..-HN.|
00002510: 20 51 20 B2 20 31 20 A4 20 46 4D 41 58 00 47 2D | Q . 1 . FMAX.G-|
00002520: 52 4E 49 4E 24 20 B2 20 46 49 4C 45 24 28 C6 28 |RNIN$ . FILE$(.(|
00002530: CA 28 50 54 52 24 2C 51 2C 31 29 29 29 20 3A 20 |.(PTR$,Q,1))) : |
00002540: 4F 24 20 B2 20 22 22 00 53 2D 5C 4E 8D 20 32 36 |O$ . "".S-\N. 26|
00002550: 34 30 30 00 69 2D 66 4E 8B 20 45 58 49 54 20 A7 |400.i-fN. EXIT .|
00002560: 20 51 B2 46 4D 41 58 AA 31 00 71 2D 70 4E 82 20 | Q.FMAX.1.q-pN. |
00002570: 51 00 7E 2D 75 4E 54 20 B2 20 B8 28 58 29 00 B3 |Q.~-uNT . .(X)..|
00002580: 2D 7A 4E 41 44 20 B2 20 30 20 3A 20 45 43 20 B2 |-zNAD . 0 : EC .|
00002590: 20 30 20 3A 20 99 20 22 41 44 44 2E 20 20 44 41 | 0 : . "ADD. DA|
000025A0: 54 41 20 20 20 20 20 53 4F 55 52 43 45 20 43 4F |TA SOURCE CO|
000025B0: 44 45 22 00 C6 2D 84 4E 81 20 51 20 B2 20 31 20 |DE"..-.N. Q . 1 |
000025C0: A4 20 46 4D 41 58 00 F0 2D 8E 4E 49 4E 24 20 B2 |. FMAX..-.NIN$ .|
000025D0: 20 46 49 4C 45 24 28 C6 28 CA 28 50 54 52 24 2C | FILE$(.(.(PTR$,|
000025E0: 51 2C 31 29 29 29 20 3A 20 4F 24 20 B2 20 22 22 |Q,1))) : O$ . ""|
000025F0: 00 FC 2D 98 4E 51 31 20 B2 20 41 44 00 08 2E A2 |..-.NQ1 . AD....|
00002600: 4E 8D 20 32 37 36 30 30 00 1A 2E AC 4E 8B 20 45 |N. 27600....N. E|
00002610: 52 52 20 A7 20 32 30 32 35 30 00 2B 2E B1 4E 8B |RR . 20250.+..N.|
00002620: 20 45 4F 20 A7 20 32 30 32 32 32 00 40 2E B6 4E | EO . 20222.@..N|
00002630: 48 20 B2 20 51 31 20 3A 20 8D 20 31 31 30 30 30 |H . Q1 : . 11000|
00002640: 00 4C 2E C0 4E 51 24 20 B2 20 48 24 00 71 2E D4 |.L..NQ$ . H$.q..|
00002650: 4E 51 32 20 B2 20 33 20 3A 20 8B 20 C3 28 4F 24 |NQ2 . 3 : . .(O$|
00002660: 29 B3 51 32 20 A7 20 51 32 20 B2 20 C3 28 4F 24 |).Q2 . Q2 . .(O$|
00002670: 29 00 8F 2E D9 4E 51 31 24 20 B2 22 22 20 3A 20 |)....NQ1$ ."" : |
00002680: 8B 20 4F 24 B2 22 22 20 A7 20 32 30 32 32 31 00 |. O$."" . 20221.|
00002690: A1 2E DE 4E 81 20 51 33 20 B2 20 31 20 A4 20 51 |...N. Q3 . 1 . Q|
000026A0: 32 00 C1 2E E8 4E 48 20 B2 20 C6 28 CA 28 4F 24 |2....NH . .(.(O$|
000026B0: 2C 51 33 2C 31 29 29 20 3A 20 8D 20 31 31 30 30 |,Q3,1)) : . 1100|
000026C0: 30 00 DD 2E F2 4E 8B 20 C3 28 48 24 29 B2 31 20 |0....N. .(H$).1 |
000026D0: A7 20 48 24 20 B2 20 22 30 22 AA 48 24 00 F5 2E |. H$ . "0".H$...|
000026E0: FC 4E 51 31 24 20 B2 20 51 31 24 AA 48 24 20 3A |.NQ1$ . Q1$.H$ :|
000026F0: 20 82 20 51 33 00 23 2F FD 4E 99 20 51 24 20 A6 | . Q3.#/.N. Q$ .|
00002700: 36 AB C3 28 51 24 29 29 20 51 31 24 20 A6 38 AB |6..(Q$)) Q1$ .8.|
00002710: C3 28 51 31 24 29 29 20 3B 20 3A 20 8D 20 32 38 |.(Q1$)) ; : . 28|
00002720: 31 30 30 00 3E 2F FE 4E 8B 20 A8 20 41 4D 20 B0 |100.>/.N. . AM .|
00002730: 20 4F 24 B2 22 22 20 A7 20 32 30 32 35 30 00 6E | O$."" . 20250.n|
00002740: 2F 01 4F 81 20 58 20 B2 20 31 20 A4 20 C3 28 4F |/.O. X . 1 . .(O|
00002750: 24 29 20 3A 20 97 20 51 31 AA 58 AB 31 2C C6 28 |$) : . Q1.X.1,.(|
00002760: CA 28 4F 24 2C 58 2C 31 29 29 20 3A 20 82 00 95 |.(O$,X,1)) : ...|
00002770: 2F 1A 4F 8B 20 45 58 49 54 20 A7 20 51 20 B2 20 |/.O. EXIT . Q . |
00002780: 46 4D 41 58 AA 31 20 3A 20 8F 20 4C 45 41 56 45 |FMAX.1 : . LEAVE|
00002790: 20 4C 4F 4F 50 00 9D 2F 24 4F 82 20 51 00 CA 2F | LOOP../$O. Q../|
000027A0: 2E 4F 99 20 3A 20 99 20 22 20 54 4F 54 41 4C 20 |.O. : . " TOTAL |
000027B0: 45 52 52 4F 52 53 20 49 4E 20 46 49 4C 45 20 2D |ERRORS IN FILE -|
000027C0: 2D 2D 22 20 45 43 20 3A 20 99 00 DD 2F 38 4F 8B |--" EC : .../8O.|
000027D0: 20 53 59 20 A7 20 8D 20 32 36 39 30 30 00 03 30 | SY . . 26900..0|
000027E0: 42 4F 8B 20 C2 28 31 35 32 29 20 B3 B1 20 30 20 |BO. .(152) .. 0 |
000027F0: A7 20 98 32 20 3A 20 A0 32 20 3A 20 89 20 32 30 |. .2 : .2 : . 20|
00002800: 33 30 30 00 1E 30 47 4F A1 20 54 24 20 3A 20 8B |300..0GO. T$ : .|
00002810: 20 54 24 B2 22 22 20 A7 20 32 30 32 39 35 00 24 | T$."" . 20295.$|
00002820: 30 4C 4F 8E 00 48 30 D8 59 8F 2A 2A 2A 2A 2A 2A |0LO..H0.Y.******|
00002830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002840: 2A 2A 2A 2A 2A 2A 2A 2A 00 6C 30 DA 59 8F 2A 2A |********.l0.Y.**|
00002850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7E 30 E2 |************.~0.|
00002870: 59 8F 20 46 49 4C 45 20 45 44 49 54 4F 52 00 A5 |Y. FILE EDITOR..|
00002880: 30 EC 59 8F 20 46 49 4E 44 20 4C 49 4E 45 20 4E |0.Y. FIND LINE N|
00002890: 55 4D 42 45 52 20 49 4E 20 27 4C 4E 27 20 49 4E |UMBER IN 'LN' IN|
000028A0: 20 46 49 4C 45 00 C1 30 F6 59 54 20 B2 20 C3 28 | FILE..0.YT . .(|
000028B0: 50 54 52 24 29 AA 31 20 3A 20 54 32 20 B2 20 AB |PTR$).1 : T2 . .|
000028C0: 31 00 E0 30 00 5A 54 20 B2 20 54 AB 31 20 3A 20 |1..0.ZT . T.1 : |
000028D0: 8B 20 54 B3 B2 30 20 A7 20 89 20 32 33 30 38 30 |. T..0 . . 23080|
000028E0: 00 F8 30 0A 5A 54 31 20 B2 20 C6 28 CA 28 50 54 |..0.ZT1 . .(.(PT|
000028F0: 52 24 2C 54 2C 31 29 29 00 29 31 14 5A 54 32 20 |R$,T,1)).)1.ZT2 |
00002900: B2 20 C6 28 CA 28 46 49 24 28 54 31 29 2C 31 2C |. .(.(FI$(T1),1,|
00002910: 31 29 29 AA 32 35 36 AC C6 28 CA 28 46 49 24 28 |1)).256..(.(FI$(|
00002920: 54 31 29 2C 32 2C 31 29 29 00 3D 31 1E 5A 8B 20 |T1),2,1)).=1.Z. |
00002930: 54 32 B1 4C 4E 20 A7 20 32 33 30 34 30 00 62 31 |T2.LN . 23040.b1|
00002940: 28 5A 45 52 52 20 B2 20 A8 28 54 32 B2 4C 4E 29 |(ZERR . .(T2.LN)|
00002950: 20 3A 20 8B 20 45 52 52 20 A7 20 54 20 B2 20 54 | : . ERR . T . T|
00002960: AA 31 00 68 31 32 5A 8E 00 8C 31 3C 5A 8F 2A 2A |.1.h12Z...1<Z.**|
00002970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 31 3D |************..1=|
00002990: 5A 8F 20 41 44 44 20 4C 49 4E 45 20 54 4F 20 46 |Z. ADD LINE TO F|
000029A0: 49 4C 45 00 C7 31 3E 5A 8F 2A 2A 2A 2A 2A 2A 2A |ILE..1>Z.*******|
000029B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000029C0: 2A 2A 2A 2A 2A 2A 2A 00 E5 31 41 5A 8B 20 4C 4E |*******..1AZ. LN|
000029D0: B3 30 20 B0 20 4C 4E B1 36 35 35 33 35 20 A7 20 |.0 . LN.65535 . |
000029E0: 32 33 32 31 35 00 F1 31 46 5A 8D 20 32 33 30 32 |23215..1FZ. 2302|
000029F0: 30 00 1D 32 50 5A 8B 20 A8 20 45 52 52 20 A7 20 |0..2PZ. . ERR . |
00002A00: 54 31 20 B2 20 C6 28 CA 28 50 54 52 24 2C 54 2C |T1 . .(.(PTR$,T,|
00002A10: 31 29 29 20 3A 20 89 20 32 33 31 35 30 00 40 32 |1)) : . 23150.@2|
00002A20: 5A 5A 8B 20 45 24 B2 22 22 20 A7 20 45 52 52 20 |ZZ. E$."" . ERR |
00002A30: B2 20 54 52 55 45 20 3A 20 89 20 32 33 32 32 30 |. TRUE : . 23220|
00002A40: 00 5F 32 64 5A 54 31 20 B2 20 C6 28 45 24 29 20 |._2dZT1 . .(E$) |
00002A50: 20 3A 20 45 24 20 B2 20 CA 28 45 24 2C 32 29 00 | : E$ . .(E$,2).|
00002A60: 72 32 6E 5A 54 32 20 B2 20 B5 28 4C 4E AD 32 35 |r2nZT2 . .(LN.25|
00002A70: 36 29 00 97 32 78 5A 46 49 24 28 54 31 29 20 B2 |6)..2xZFI$(T1) .|
00002A80: 20 C7 28 4C 4E AB 54 32 AC 32 35 36 29 AA C7 28 | .(LN.T2.256)..(|
00002A90: 54 32 29 AA 49 4E 24 00 AB 32 82 5A 8B 20 A8 20 |T2).IN$..2.Z. . |
00002AA0: 45 52 52 20 A7 20 32 33 32 32 30 00 C2 32 8C 5A |ERR . 23220..2.Z|
00002AB0: 54 24 20 B2 20 22 22 20 3A 20 54 31 24 20 B2 20 |T$ . "" : T1$ . |
00002AC0: 22 22 00 DF 32 96 5A 8B 20 54 B1 31 20 A7 20 54 |""..2.Z. T.1 . T|
00002AD0: 24 20 B2 20 C8 28 50 54 52 24 2C 54 AB 31 29 00 |$ . .(PTR$,T.1).|
00002AE0: 02 33 A0 5A 8B 20 54 B3 B2 C3 28 50 54 52 24 29 |.3.Z. T...(PTR$)|
00002AF0: 20 A7 20 54 31 24 20 B2 20 CA 28 50 54 52 24 2C | . T1$ . .(PTR$,|
00002B00: 54 29 00 1A 33 AA 5A 50 54 52 24 20 B2 20 54 24 |T)..3.ZPTR$ . T$|
00002B10: AA C7 28 54 31 29 AA 54 31 24 00 2A 33 AF 5A 45 |..(T1).T1$.*3.ZE|
00002B20: 52 52 20 B2 20 46 41 4C 53 45 00 30 33 B4 5A 8E |RR . FALSE.03.Z.|
00002B30: 00 54 33 04 5B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.T3.[.**********|
00002B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B50: 2A 2A 2A 2A 00 76 33 05 5B 8F 20 44 45 4C 45 54 |****.v3.[. DELET|
00002B60: 45 20 4C 49 4E 45 20 50 4F 49 4E 54 45 44 20 41 |E LINE POINTED A|
00002B70: 54 20 42 59 20 54 00 9A 33 06 5B 8F 2A 2A 2A 2A |T BY T..3.[.****|
00002B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B1 33 0E 5B 54 |**********..3.[T|
00002BA0: 24 20 B2 20 22 22 20 3A 20 54 31 24 20 B2 20 22 |$ . "" : T1$ . "|
00002BB0: 22 00 CE 33 18 5B 8B 20 54 B1 31 20 A7 20 54 24 |"..3.[. T.1 . T$|
00002BC0: 20 B2 20 C8 28 50 54 52 24 2C 54 AB 31 29 00 F2 | . .(PTR$,T.1)..|
00002BD0: 33 22 5B 8B 20 54 B3 C3 28 50 54 52 24 29 20 A7 |3"[. T..(PTR$) .|
00002BE0: 20 54 31 24 20 B2 20 CA 28 50 54 52 24 2C 54 AA | T1$ . .(PTR$,T.|
00002BF0: 31 29 00 0A 34 2C 5B 45 24 20 B2 20 45 24 AA CA |1)..4,[E$ . E$..|
00002C00: 28 50 54 52 24 2C 54 2C 31 29 00 1C 34 36 5B 50 |(PTR$,T,1)..46[P|
00002C10: 54 52 24 20 B2 20 54 24 AA 54 31 24 00 22 34 40 |TR$ . T$.T1$."4@|
00002C20: 5B 8E 00 46 34 68 5B 8F 2A 2A 2A 2A 2A 2A 2A 2A |[..F4h[.********|
00002C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C40: 2A 2A 2A 2A 2A 2A 00 67 34 69 5B 8F 20 4C 49 53 |******.g4i[. LIS|
00002C50: 54 20 4C 49 4E 45 53 20 50 4F 49 4E 54 45 44 20 |T LINES POINTED |
00002C60: 41 54 20 42 59 20 54 00 8B 34 6A 5B 8F 2A 2A 2A |AT BY T..4j[.***|
00002C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BD 34 72 5B |***********..4r[|
00002C90: 99 20 C6 28 CA 28 46 49 24 28 54 29 2C 31 2C 31 |. .(.(FI$(T),1,1|
00002CA0: 29 29 AA 32 35 36 AC C6 28 CA 28 46 49 24 28 54 |)).256..(.(FI$(T|
00002CB0: 29 2C 32 2C 31 29 29 20 A3 36 29 20 3B 00 CF 34 |),2,1)) .6) ;..4|
00002CC0: 7C 5B 99 20 CA 28 46 49 24 28 54 29 2C 33 29 00 ||[. .(FI$(T),3).|
00002CD0: D5 34 86 5B 8E 00 F9 34 CC 5B 8F 2A 2A 2A 2A 2A |.4.[...4.[.*****|
00002CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 19 35 CD 5B 8F 20 |*********..5.[. |
00002D00: 53 54 41 52 54 20 41 4E 44 20 46 49 4E 49 53 48 |START AND FINISH|
00002D10: 20 50 4F 49 4E 54 45 52 53 00 3D 35 CE 5B 8F 2A | POINTERS.=5.[.*|
00002D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 35 |*************.S5|
00002D40: D6 5B 4C 4E 20 B2 20 53 4C 20 3A 20 8D 20 32 33 |.[LN . SL : . 23|
00002D50: 30 32 30 00 5E 35 E0 5B 53 50 20 B2 20 54 00 74 |020.^5.[SP . T.t|
00002D60: 35 EA 5B 4C 4E 20 B2 20 46 4C 20 3A 20 8D 20 32 |5.[LN . FL : . 2|
00002D70: 33 30 32 30 00 7F 35 F4 5B 46 50 20 B2 20 54 00 |3020..5.[FP . T.|
00002D80: 95 35 F9 5B 8B 20 45 52 52 20 A7 20 46 50 20 B2 |.5.[. ERR . FP .|
00002D90: 20 46 50 AB 31 00 B5 35 FE 5B 8B 20 46 50 B1 C3 | FP.1..5.[. FP..|
00002DA0: 28 50 54 52 24 29 20 A7 20 46 50 20 B2 20 C3 28 |(PTR$) . FP . .(|
00002DB0: 50 54 52 24 29 00 BB 35 08 5C 8E 00 DF 35 30 5C |PTR$)..5.\...50\|
00002DC0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00002DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002DE0: FB 35 31 5C 8F 20 4C 4F 41 44 20 46 49 4C 45 20 |.51\. LOAD FILE |
00002DF0: 46 52 4F 4D 20 44 45 56 49 43 45 00 1F 36 32 5C |FROM DEVICE..62\|
00002E00: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00002E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002E20: 2B 36 3A 5C 8D 20 31 31 32 35 30 00 4A 36 3F 5C |+6:\. 11250.J6?\|
00002E30: 8B 20 44 45 56 B2 38 20 A7 20 49 4E 24 20 B2 20 |. DEV.8 . IN$ . |
00002E40: 49 4E 24 AA 22 2C 53 2C 52 22 00 5B 36 4E 5C 9F |IN$.",S,R".[6N\.|
00002E50: 32 2C 44 45 56 2C 30 2C 49 4E 24 00 79 36 53 5C |2,DEV,0,IN$.y6S\|
00002E60: 84 32 20 2C 20 49 4E 24 20 3A 20 8B 20 53 54 20 |.2 , IN$ : . ST |
00002E70: A7 20 89 20 32 33 36 35 30 00 B2 36 58 5C 8B 20 |. . 23650..6X\. |
00002E80: 49 4E 24 B3 B1 22 45 4E 44 22 20 A7 20 8D 20 32 |IN$.."END" . . 2|
00002E90: 34 30 30 30 20 3A 20 8D 20 32 33 39 30 30 20 3A |4000 : . 23900 :|
00002EA0: 20 8D 20 32 33 31 30 30 20 3A 20 89 20 32 33 36 | . 23100 : . 236|
00002EB0: 33 35 00 BA 36 62 5C A0 20 32 00 C0 36 6C 5C 8E |35..6b\. 2..6l\.|
00002EC0: 00 E4 36 94 5C 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..6.\.**********|
00002ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002EE0: 2A 2A 2A 2A 00 FE 36 95 5C 8F 20 53 41 56 45 20 |****..6.\. SAVE |
00002EF0: 46 49 4C 45 20 54 4F 20 44 45 56 49 43 45 00 22 |FILE TO DEVICE."|
00002F00: 37 96 5C 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |7.\.************|
00002F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002F20: 2A 2A 00 2E 37 99 5C 8D 20 31 31 32 35 30 00 4D |**..7.\. 11250.M|
00002F30: 37 9E 5C 8B 20 44 45 56 B2 38 20 A7 20 49 4E 24 |7.\. DEV.8 . IN$|
00002F40: 20 B2 20 49 4E 24 AA 22 2C 53 2C 57 22 00 91 37 | . IN$.",S,W"..7|
00002F50: A3 5C 54 24 20 B2 20 22 4E 22 20 3A 20 8B 20 44 |.\T$ . "N" : . D|
00002F60: 45 56 B2 38 20 A7 20 85 20 22 4F 56 45 52 57 52 |EV.8 . . "OVERWR|
00002F70: 49 54 45 20 45 58 49 53 54 49 4E 47 20 46 49 4C |ITE EXISTING FIL|
00002F80: 45 20 28 20 59 2F 4E 20 29 20 3A 20 22 3B 20 54 |E ( Y/N ) : "; T|
00002F90: 24 00 B0 37 A4 5C 8B 20 54 24 B2 22 59 22 20 A7 |$..7.\. T$."Y" .|
00002FA0: 20 49 4E 24 20 B2 20 22 40 30 3A 22 AA 49 4E 24 | IN$ . "@0:".IN$|
00002FB0: 00 C7 37 A8 5C 9F 32 2C 44 45 56 2C 32 2C 49 4E |..7.\.2,DEV,2,IN|
00002FC0: 24 20 3A 20 9D 20 32 00 DF 37 B2 5C 53 4C 20 B2 |$ : . 2..7.\SL .|
00002FD0: 20 30 20 3A 20 46 4C 20 B2 20 36 35 35 33 36 00 | 0 : FL . 65536.|
00002FE0: F8 37 C6 5C 8D 20 32 34 34 32 30 20 3A 20 98 32 |.7.\. 24420 : .2|
00002FF0: 20 2C 20 22 45 4E 44 22 00 05 38 D0 5C 98 32 20 | , "END"..8.\.2 |
00003000: 3A 20 A0 20 32 00 0B 38 E4 5C 8E 00 2F 38 5C 5D |: . 2..8.\../8\]|
00003010: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00003020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00003030: 4B 38 5D 5D 8F 20 52 45 4D 4F 56 45 20 4C 45 41 |K8]]. REMOVE LEA|
00003040: 44 49 4E 47 20 53 50 41 43 45 53 00 6F 38 5E 5D |DING SPACES.o8^]|
00003050: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00003060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00003070: 84 38 66 5D 81 20 54 20 B2 20 31 20 A4 20 C3 28 |.8f]. T . 1 . .(|
00003080: 49 4E 24 29 00 9F 38 70 5D 8B 20 CA 28 49 4E 24 |IN$)..8p]. .(IN$|
00003090: 2C 54 2C 31 29 B2 22 20 22 20 A7 20 82 20 54 00 |,T,1)." " . . T.|
000030A0: B6 38 8E 5D 49 4E 24 20 B2 20 CA 28 49 4E 24 2C |.8.]IN$ . .(IN$,|
000030B0: 54 29 20 3A 20 8E 00 DA 38 C0 5D 8F 2A 2A 2A 2A |T) : ...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 2A 2A 2A 2A 00 F0 38 C1 5D 8F |**********..8.].|
000030E0: 20 47 45 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 | GET LINE NUMBER|
000030F0: 00 14 39 C2 5D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..9.].**********|
00003100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003110: 2A 2A 2A 2A 00 24 39 CA 5D 4C 4E 20 B2 20 AB 36 |****.$9.]LN . .6|
00003120: 35 35 33 36 00 54 39 D4 5D 8B 20 C3 28 49 4E 24 |5536.T9.]. .(IN$|
00003130: 29 B2 30 20 B0 20 49 4E 24 B3 22 30 22 20 B0 20 |).0 . IN$."0" . |
00003140: C8 28 49 4E 24 2C 31 29 B1 22 39 22 20 A7 20 32 |.(IN$,1)."9" . 2|
00003150: 34 30 39 30 00 69 39 DE 5D 81 20 54 20 B2 20 31 |4090.i9.]. T . 1|
00003160: 20 A4 20 C3 28 49 4E 24 29 00 97 39 E8 5D 8B 20 | . .(IN$)..9.]. |
00003170: CA 28 49 4E 24 2C 54 2C 31 29 B3 B2 22 39 22 20 |.(IN$,T,1).."9" |
00003180: AF 20 CA 28 49 4E 24 2C 54 2C 31 29 B1 B2 22 30 |. .(IN$,T,1).."0|
00003190: 22 20 A7 20 82 20 54 00 BF 39 10 5E 4C 4E 20 B2 |" . . T..9.^LN .|
000031A0: 20 C5 28 C8 28 49 4E 24 2C 54 AB 31 29 29 20 3A | .(.(IN$,T.1)) :|
000031B0: 20 49 4E 24 20 B2 20 CA 28 49 4E 24 2C 54 29 00 | IN$ . .(IN$,T).|
000031C0: C5 39 1A 5E 8E 00 E9 39 88 5E 8F 2A 2A 2A 2A 2A |.9.^...9.^.*****|
000031D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000031E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 04 3A 89 5E 8F 20 |*********..:.^. |
000031F0: 46 49 52 53 54 20 41 4E 44 20 4C 41 53 54 20 4C |FIRST AND LAST L|
00003200: 49 4E 45 53 00 28 3A 8A 5E 8F 2A 2A 2A 2A 2A 2A |INES.(:.^.******|
00003210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003220: 2A 2A 2A 2A 2A 2A 2A 2A 00 56 3A 8D 5E 49 4E 24 |********.V:.^IN$|
00003230: 20 B2 20 22 22 20 3A 20 85 20 22 46 49 52 53 54 | . "" : . "FIRST|
00003240: 20 2D 20 4C 41 53 54 20 4C 49 4E 45 53 20 3A 20 | - LAST LINES : |
00003250: 22 3B 20 49 4E 24 00 85 3A 92 5E 53 4C 20 B2 20 |"; IN$..:.^SL . |
00003260: 30 20 3A 20 46 4C 20 B2 20 36 35 35 33 35 20 3A |0 : FL . 65535 :|
00003270: 20 54 33 20 B2 20 30 20 3A 20 45 52 52 20 B2 20 | T3 . 0 : ERR . |
00003280: 46 41 4C 53 45 00 9C 3A 9C 5E 8B 20 C3 28 49 4E |FALSE..:.^. .(IN|
00003290: 24 29 B2 30 20 A7 20 32 34 32 39 35 00 A8 3A A6 |$).0 . 24295..:.|
000032A0: 5E 8D 20 32 34 30 30 30 00 C8 3A B0 5E 8B 20 4C |^. 24000..:.^. L|
000032B0: 4E B1 B2 30 20 A7 20 53 4C 20 B2 20 4C 4E 20 3A |N..0 . SL . LN :|
000032C0: 20 89 20 32 34 32 36 30 00 ED 3A BA 5E 8B 20 4C | . 24260..:.^. L|
000032D0: 4E B1 AB 36 35 35 33 36 20 A7 20 46 4C 20 B2 20 |N..65536 . FL . |
000032E0: AB 4C 4E 20 3A 20 89 20 32 34 32 39 35 00 1A 3B |.LN : . 24295..;|
000032F0: C4 5E 8D 20 32 33 39 30 30 20 3A 20 8B 20 C3 28 |.^. 23900 : . .(|
00003300: 49 4E 24 29 B2 30 20 A7 20 46 4C 20 B2 20 53 4C |IN$).0 . FL . SL|
00003310: 20 3A 20 89 20 32 34 32 39 35 00 37 3B CE 5E 49 | : . 24295.7;.^I|
00003320: 4E 24 20 B2 20 CA 28 49 4E 24 2C 32 29 20 3A 20 |N$ . .(IN$,2) : |
00003330: 8D 20 32 33 39 30 30 00 5A 3B E2 5E 8B 20 C3 28 |. 23900.Z;.^. .(|
00003340: 49 4E 24 29 B1 30 20 A7 20 8D 20 32 34 30 30 30 |IN$).0 . . 24000|
00003350: 20 3A 20 46 4C 20 B2 20 4C 4E 00 90 3B E7 5E 45 | : FL . LN..;.^E|
00003360: 52 52 20 B2 20 53 4C B3 30 20 B0 20 53 4C B1 36 |RR . SL.0 . SL.6|
00003370: 35 35 33 35 20 B0 20 46 4C B3 30 20 B0 20 46 4C |5535 . FL.0 . FL|
00003380: B1 36 35 35 33 35 20 B0 20 45 52 52 20 3A 20 8E |.65535 . ERR : .|
00003390: 00 B4 3B EC 5E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;.^.**********|
000033A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000033B0: 2A 2A 2A 2A 00 CA 3B ED 5E 8F 20 49 4E 49 54 49 |****..;.^. INITI|
000033C0: 41 4C 49 53 45 20 46 49 4C 45 00 EE 3B EE 5E 8F |ALISE FILE..;.^.|
000033D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000033E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2D |**************.-|
000033F0: 3C F6 5E 50 54 52 24 20 B2 20 22 22 20 3A 20 45 |<.^PTR$ . "" : E|
00003400: 24 20 B2 20 22 22 20 3A 20 81 20 58 20 B2 20 30 |$ . "" : . X . 0|
00003410: 20 A4 20 32 35 34 20 3A 20 45 24 20 B2 20 45 24 | . 254 : E$ . E$|
00003420: AA C7 28 58 29 20 3A 20 82 20 3A 20 8E 00 51 3C |..(X) : . : ..Q<|
00003430: 50 5F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |P_.*************|
00003440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003450: 2A 00 62 3C 51 5F 8F 20 4C 49 53 54 20 4C 49 4E |*.b<Q_. LIST LIN|
00003460: 45 53 00 86 3C 52 5F 8F 2A 2A 2A 2A 2A 2A 2A 2A |ES..<R_.********|
00003470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003480: 2A 2A 2A 2A 2A 2A 00 A2 3C 5A 5F 8D 20 32 34 32 |******..<Z_. 242|
00003490: 30 30 20 3A 20 8B 20 45 52 52 20 A7 20 32 34 34 |00 : . ERR . 244|
000034A0: 36 30 00 CE 3C 64 5F 99 20 22 93 22 20 3A 20 8D |60..<d_. "." : .|
000034B0: 20 32 33 35 30 30 20 3A 20 8B 20 46 50 B3 53 50 | 23500 : . FP.SP|
000034C0: B0 20 46 50 B2 30 20 A7 20 32 34 34 36 30 00 09 |. FP.0 . 24460..|
000034D0: 3D 6E 5F 81 20 54 31 20 B2 20 53 50 20 A4 20 46 |=n_. T1 . SP . F|
000034E0: 50 20 3A 20 54 20 B2 20 C6 28 CA 28 50 54 52 24 |P : T . .(.(PTR$|
000034F0: 2C 54 31 2C 31 29 29 20 3A 20 8D 20 32 33 34 30 |,T1,1)) : . 2340|
00003500: 30 20 3A 20 82 20 3A 20 99 00 31 3D 87 5F 8B 20 |0 : . : ..1=._. |
00003510: C2 28 31 35 32 29 B2 30 20 A7 20 A1 20 54 24 20 |.(152).0 . . T$ |
00003520: 3A 20 8B 20 54 24 B2 22 22 20 A7 20 32 34 34 35 |: . T$."" . 2445|
00003530: 35 00 37 3D 8C 5F 8E 00 5B 3D B4 5F 8F 2A 2A 2A |5.7=._..[=._.***|
00003540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 70 3D B5 5F |***********.p=._|
00003560: 8F 20 44 45 4C 45 54 45 20 4C 49 4E 45 28 53 29 |. DELETE LINE(S)|
00003570: 00 94 3D B6 5F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..=._.**********|
00003580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003590: 2A 2A 2A 2A 00 B0 3D BE 5F 8D 20 32 34 32 30 30 |****..=._. 24200|
000035A0: 20 3A 20 8B 20 45 52 52 20 A7 20 32 34 34 36 30 | : . ERR . 24460|
000035B0: 00 CE 3D C8 5F 8D 20 32 33 35 30 30 20 3A 20 8B |..=._. 23500 : .|
000035C0: 20 46 50 B3 53 50 20 A7 20 32 34 35 36 30 00 F8 | FP.SP . 24560..|
000035D0: 3D D2 5F 54 20 B2 20 53 50 20 3A 20 81 20 54 31 |=._T . SP : . T1|
000035E0: 20 B2 20 53 50 20 A4 20 46 50 20 3A 20 8D 20 32 | . SP . FP : . 2|
000035F0: 33 33 30 30 20 3A 20 82 00 FE 3D F0 5F 8E 00 22 |3300 : ...=._.."|
00003600: 3E 18 60 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |>.`.************|
00003610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003620: 2A 2A 00 36 3E 19 60 8F 20 49 4E 50 55 54 20 4C |**.6>.`. INPUT L|
00003630: 49 4E 45 28 53 29 00 5A 3E 1A 60 8F 2A 2A 2A 2A |INE(S).Z>.`.****|
00003640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 64 3E 22 60 99 |**********.d>"`.|
00003660: 20 22 93 22 00 99 3E 2C 60 49 4E 24 20 B2 20 22 | "."..>,`IN$ . "|
00003670: 22 20 3A 20 85 20 49 4E 24 20 3A 20 8D 20 32 34 |" : . IN$ : . 24|
00003680: 30 30 30 20 3A 20 8B 20 4C 4E B2 AB 36 35 35 33 |000 : . LN..6553|
00003690: 36 20 A7 20 32 34 36 36 35 00 BA 3E 4A 60 8D 20 |6 . 24665..>J`. |
000036A0: 32 33 39 30 30 20 3A 20 8B 20 C3 28 49 4E 24 29 |23900 : . .(IN$)|
000036B0: B2 30 20 A7 20 32 34 36 38 30 00 D8 3E 54 60 8D |.0 . 24680..>T`.|
000036C0: 20 32 33 31 30 30 20 3A 20 8B 20 A8 20 45 52 52 | 23100 : . . ERR|
000036D0: 20 A7 20 32 34 36 32 30 00 DE 3E 59 60 8E 00 FE | . 24620..>Y`...|
000036E0: 3E 68 60 8D 20 32 33 30 31 30 20 3A 20 8B 20 A8 |>h`. 23010 : . .|
000036F0: 20 45 52 52 20 A7 20 8D 20 32 33 33 30 30 00 0A | ERR . . 23300..|
00003700: 3F 72 60 89 20 32 34 36 32 30 00 2E 3F 7C 60 8F |?r`. 24620..?|`.|
00003710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 |**************.Q|
00003730: 3F 7D 60 8F 20 52 45 4E 55 4D 42 45 52 20 46 49 |?}`. RENUMBER FI|
00003740: 4C 45 20 49 4E 20 53 54 45 50 53 20 4F 46 20 31 |LE IN STEPS OF 1|
00003750: 30 00 75 3F 7E 60 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0.u?~`.*********|
00003760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003770: 2A 2A 2A 2A 2A 00 8F 3F 86 60 4C 4E 20 B2 20 31 |*****..?.`LN . 1|
00003780: 30 20 3A 20 45 52 52 20 B2 20 46 41 4C 53 45 00 |0 : ERR . FALSE.|
00003790: A7 3F 90 60 8B 20 C3 28 50 54 52 24 29 B3 31 20 |.?.`. .(PTR$).1 |
000037A0: A7 20 32 34 37 38 30 00 BD 3F 9A 60 81 20 54 20 |. 24780..?.`. T |
000037B0: B2 20 31 20 A4 20 C3 28 50 54 52 24 29 00 D5 3F |. 1 . .(PTR$)..?|
000037C0: 9F 60 54 31 20 B2 20 C6 28 CA 28 50 54 52 24 2C |.`T1 . .(.(PTR$,|
000037D0: 54 2C 31 29 29 00 0E 40 A4 60 46 49 24 28 54 31 |T,1))..@.`FI$(T1|
000037E0: 29 20 B2 20 C7 28 4C 4E AB B5 28 4C 4E AD 32 35 |) . .(LN..(LN.25|
000037F0: 36 29 AC 32 35 36 29 AA C7 28 4C 4E AD 32 35 36 |6).256)..(LN.256|
00003800: 29 AA CA 28 46 49 24 28 54 31 29 2C 33 29 00 21 |)..(FI$(T1),3).!|
00003810: 40 AE 60 4C 4E 20 B2 20 4C 4E AA 31 30 20 3A 20 |@.`LN . LN.10 : |
00003820: 82 00 27 40 CC 60 8E 00 4B 40 E0 60 8F 2A 2A 2A |..'@.`..K@.`.***|
00003830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 62 40 E1 60 |***********.b@.`|
00003850: 8F 20 46 49 4C 45 20 45 44 49 54 4F 52 20 4D 45 |. FILE EDITOR ME|
00003860: 4E 55 00 86 40 E2 60 8F 2A 2A 2A 2A 2A 2A 2A 2A |NU..@.`.********|
00003870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003880: 2A 2A 2A 2A 2A 2A 00 B8 40 F4 60 99 20 22 93 1F |******..@.`. "..|
00003890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 46 49 4C |------------ FIL|
000038A0: 45 20 45 44 49 54 4F 52 20 2D 2D 2D 2D 2D 2D 2D |E EDITOR -------|
000038B0: 2D 2D 2D 2D 2D 1E 11 22 00 DF 40 03 61 99 20 22 |-----.."..@.a. "|
000038C0: 20 20 20 20 20 20 30 29 20 45 58 49 54 20 46 52 | 0) EXIT FR|
000038D0: 4F 4D 20 46 49 4C 45 20 45 44 49 54 4F 52 22 00 |OM FILE EDITOR".|
000038E0: FE 40 08 61 99 20 22 20 20 20 20 20 20 31 29 20 |.@.a. " 1) |
000038F0: 49 4E 50 55 54 20 4C 49 4E 45 28 53 29 22 00 1C |INPUT LINE(S)"..|
00003900: 41 12 61 99 20 22 20 20 20 20 20 20 32 29 20 4C |A.a. " 2) L|
00003910: 49 53 54 20 4C 49 4E 45 28 53 29 22 00 3C 41 1C |IST LINE(S)".<A.|
00003920: 61 99 20 22 20 20 20 20 20 20 33 29 20 44 45 4C |a. " 3) DEL|
00003930: 45 54 45 20 4C 49 4E 45 28 53 29 22 00 5B 41 26 |ETE LINE(S)".[A&|
00003940: 61 99 20 22 20 20 20 20 20 20 34 29 20 52 45 4E |a. " 4) REN|
00003950: 55 4D 42 45 52 20 46 49 4C 45 22 00 7C 41 30 61 |UMBER FILE".|A0a|
00003960: 99 20 22 20 20 20 20 20 20 35 29 20 49 4E 49 54 |. " 5) INIT|
00003970: 49 41 4C 49 53 45 20 46 49 4C 45 22 00 97 41 3A |IALISE FILE"..A:|
00003980: 61 99 20 22 20 20 20 20 20 20 36 29 20 4C 4F 41 |a. " 6) LOA|
00003990: 44 20 46 49 4C 45 22 00 B2 41 44 61 99 20 22 20 |D FILE"..ADa. " |
000039A0: 20 20 20 20 20 37 29 20 53 41 56 45 20 46 49 4C | 7) SAVE FIL|
000039B0: 45 22 00 DC 41 4E 61 99 20 22 20 20 20 20 20 20 |E"..ANa. " |
000039C0: 38 29 20 41 44 44 20 4D 41 43 48 49 4E 45 20 43 |8) ADD MACHINE C|
000039D0: 4F 44 45 20 54 4F 20 46 49 4C 45 22 00 07 42 53 |ODE TO FILE"..BS|
000039E0: 61 99 20 22 20 20 20 20 20 20 39 29 20 43 48 41 |a. " 9) CHA|
000039F0: 4E 47 45 20 44 45 56 49 43 45 20 4E 55 4D 42 45 |NGE DEVICE NUMBE|
00003A00: 52 11 11 11 11 11 22 00 27 42 58 61 85 20 22 20 |R.....".'BXa. " |
00003A10: 43 4F 4D 4D 41 4E 44 20 28 20 30 2D 39 20 29 20 |COMMAND ( 0-9 ) |
00003A20: 3A 20 22 3B 20 43 4F 00 36 42 6C 61 8B 20 43 4F |: "; CO.6Bla. CO|
00003A30: B2 30 20 A7 20 8E 00 7A 42 76 61 8B 20 43 4F B1 |.0 . ..zBva. CO.|
00003A40: 30 20 A7 20 91 20 43 4F 20 8D 20 32 34 36 30 30 |0 . . CO . 24600|
00003A50: 2C 32 34 34 30 30 2C 32 34 35 30 30 2C 32 34 37 |,24400,24500,247|
00003A60: 30 30 2C 32 34 33 30 30 2C 32 33 36 30 30 2C 32 |00,24300,23600,2|
00003A70: 33 37 30 30 2C 32 35 30 30 30 00 96 42 80 61 8B |3700,25000..B.a.|
00003A80: 20 43 4F B1 38 20 A7 20 91 20 43 4F AB 38 20 8D | CO.8 . . CO.8 .|
00003A90: 20 32 35 35 30 30 00 A2 42 8A 61 89 20 32 34 38 | 25500..B.a. 248|
00003AA0: 30 30 00 C6 42 A8 61 8F 2A 2A 2A 2A 2A 2A 2A 2A |00..B.a.********|
00003AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003AC0: 2A 2A 2A 2A 2A 2A 00 E4 42 A9 61 8F 20 41 44 44 |******..B.a. ADD|
00003AD0: 20 54 4F 20 46 49 4C 45 20 46 52 4F 4D 20 4D 45 | TO FILE FROM ME|
00003AE0: 4D 4F 52 59 00 08 43 AA 61 8F 2A 2A 2A 2A 2A 2A |MORY..C.a.******|
00003AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003B00: 2A 2A 2A 2A 2A 2A 2A 2A 00 28 43 B2 61 8D 20 31 |********.(C.a. 1|
00003B10: 32 30 35 30 20 3A 20 8D 20 31 31 32 30 30 20 3A |2050 : . 11200 :|
00003B20: 20 8D 20 32 34 32 30 30 00 40 43 DA 61 81 20 58 | . 24200.@C.a. X|
00003B30: 59 20 B2 20 41 44 20 A4 20 45 41 20 A9 20 31 35 |Y . AD . EA . 15|
00003B40: 00 68 43 E4 61 49 4E 24 20 B2 20 22 20 42 59 54 |.hC.aIN$ . " BYT|
00003B50: 20 22 20 3A 20 4C 4E 20 B2 20 53 4C 20 3A 20 53 | " : LN . SL : S|
00003B60: 4C 20 B2 20 53 4C AA 35 00 85 43 EE 61 81 20 58 |L . SL.5..C.a. X|
00003B70: 5A 20 B2 20 30 20 A4 20 31 34 20 3A 20 4F 32 24 |Z . 0 . 14 : O2$|
00003B80: 20 B2 20 22 22 00 A4 43 F8 61 8D 20 31 31 31 30 | . ""..C.a. 1110|
00003B90: 30 20 3A 20 49 4E 24 20 B2 20 49 4E 24 AA 22 24 |0 : IN$ . IN$."$|
00003BA0: 22 AA 48 24 00 D0 43 0C 62 8B 20 58 5A B3 31 34 |".H$..C.b. XZ.14|
00003BB0: 20 AF 20 41 44 B3 B2 45 41 20 A7 20 49 4E 24 20 | . AD..EA . IN$ |
00003BC0: B2 20 49 4E 24 AA 22 2E 22 20 3A 20 82 20 58 5A |. IN$."." : . XZ|
00003BD0: 00 E7 43 16 62 8D 20 32 33 31 30 30 20 3A 20 82 |..C.b. 23100 : .|
00003BE0: 20 58 59 20 3A 20 8E 00 0B 44 9C 63 8F 2A 2A 2A | XY : ...D.c.***|
00003BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 26 44 9D 63 |***********.&D.c|
00003C10: 8F 20 43 48 41 4E 47 45 20 44 45 56 49 43 45 20 |. CHANGE DEVICE |
00003C20: 4E 55 4D 42 45 52 00 4A 44 9E 63 8F 2A 2A 2A 2A |NUMBER.JD.c.****|
00003C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 59 44 A6 63 99 |**********.YD.c.|
00003C50: 20 A6 31 39 29 20 44 45 56 00 79 44 B0 63 85 20 | .19) DEV.yD.c. |
00003C60: 22 91 4E 45 57 20 44 45 56 49 43 45 20 4E 55 4D |".NEW DEVICE NUM|
00003C70: 42 45 52 3A 22 3B 44 45 56 00 7F 44 BA 63 8E 00 |BER:";DEV..D.c..|
00003C80: A3 44 90 65 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.D.e.***********|
00003C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003CA0: 2A 2A 2A 00 C1 44 91 65 8F 20 53 59 4D 42 4F 4C |***..D.e. SYMBOL|
00003CB0: 20 55 50 20 54 4F 20 43 4F 4C 4F 4E 20 45 54 43 | UP TO COLON ETC|
00003CC0: 2E 00 E5 44 92 65 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |...D.e.*********|
00003CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003CE0: 2A 2A 2A 2A 2A 00 FF 44 9A 65 48 24 20 B2 20 22 |*****..D.eH$ . "|
00003CF0: 22 20 3A 20 54 31 20 B2 20 C3 28 49 4E 24 29 00 |" : T1 . .(IN$).|
00003D00: 0F 45 A4 65 50 54 52 20 B2 20 50 54 52 AA 31 00 |.E.ePTR . PTR.1.|
00003D10: 24 45 AE 65 8B 20 54 31 B3 50 54 52 20 A7 20 32 |$E.e. T1.PTR . 2|
00003D20: 36 30 36 30 00 3C 45 B8 65 54 20 B2 20 C6 28 CA |6060.<E.eT . .(.|
00003D30: 28 49 4E 24 2C 50 54 52 2C 31 29 29 00 4F 45 BD |(IN$,PTR,1)).OE.|
00003D40: 65 8B 20 54 B2 33 32 20 A7 20 32 36 30 32 30 00 |e. T.32 . 26020.|
00003D50: 7C 45 C2 65 8B 20 54 B3 B1 35 38 20 AF 20 54 B3 ||E.e. T..58 . T.|
00003D60: B1 35 39 20 A7 20 48 24 20 B2 20 48 24 AA C7 28 |.59 . H$ . H$..(|
00003D70: 54 29 20 3A 20 89 20 32 36 30 32 30 00 82 45 CC |T) : . 26020..E.|
00003D80: 65 8E 00 A6 45 F4 65 8F 2A 2A 2A 2A 2A 2A 2A 2A |e...E.e.********|
00003D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003DA0: 2A 2A 2A 2A 2A 2A 00 C4 45 F5 65 8F 20 4F 50 45 |******..E.e. OPE|
00003DB0: 52 41 4E 44 20 54 59 50 45 20 54 4F 20 42 45 20 |RAND TYPE TO BE |
00003DC0: 55 53 45 44 00 E8 45 F6 65 8F 2A 2A 2A 2A 2A 2A |USED..E.e.******|
00003DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003DE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FF 45 FE 65 54 36 20 |********..E.eT6 |
00003DF0: B2 20 50 54 52 20 3A 20 8D 20 32 36 30 30 30 00 |. PTR : . 26000.|
00003E00: 0F 46 08 66 45 52 52 20 B2 20 46 41 4C 53 45 00 |.F.fERR . FALSE.|
00003E10: 2A 46 12 66 8B 20 C3 28 48 24 29 B2 30 20 A7 20 |*F.f. .(H$).0 . |
00003E20: 4F 50 20 B2 20 31 20 3A 20 8E 00 44 46 1C 66 8B |OP . 1 : ..DF.f.|
00003E30: 20 48 24 B2 22 41 22 20 A7 20 4F 50 20 B2 20 30 | H$."A" . OP . 0|
00003E40: 20 3A 20 8E 00 60 46 21 66 8B 20 C6 28 48 24 29 | : ..`F!f. .(H$)|
00003E50: B2 33 35 20 A7 20 4F 50 20 B2 20 32 20 3A 20 8E |.35 . OP . 2 : .|
00003E60: 00 6C 46 3A 66 4F 50 20 B2 20 31 32 00 8A 46 44 |.lF:fOP . 12..FD|
00003E70: 66 8B 20 C8 28 48 24 2C 31 29 B2 22 28 22 20 A7 |f. .(H$,1)."(" .|
00003E80: 20 4F 50 20 B2 20 4F 50 AB 33 00 A1 46 4E 66 54 | OP . OP.3..FNfT|
00003E90: 20 B2 20 31 20 3A 20 54 31 20 B2 20 C3 28 48 24 | . 1 : T1 . .(H$|
00003EA0: 29 00 B7 46 58 66 54 32 20 B2 20 C6 28 CA 28 48 |)..FXfT2 . .(.(H|
00003EB0: 24 2C 54 2C 31 29 29 00 DF 46 62 66 8B 20 54 32 |$,T,1))..Fbf. T2|
00003EC0: B3 B1 34 36 20 AF 20 54 B3 54 31 20 A7 20 54 20 |..46 . T.T1 . T |
00003ED0: B2 20 54 AA 31 20 3A 20 89 20 32 36 32 30 30 00 |. T.1 : . 26200.|
00003EE0: F4 46 6C 66 8B 20 54 32 B3 B1 34 36 20 A7 20 32 |.Flf. T2..46 . 2|
00003EF0: 36 32 37 35 00 11 47 76 66 54 20 B2 20 54 AA 31 |6275..GvfT . T.1|
00003F00: 20 3A 20 8B 20 54 B1 54 31 20 A7 20 32 36 32 37 | : . T.T1 . 2627|
00003F10: 30 00 27 47 80 66 54 32 20 B2 20 C6 28 CA 28 48 |0.'G.fT2 . .(.(H|
00003F20: 24 2C 54 2C 31 29 29 00 49 47 8A 66 8B 20 54 32 |$,T,1)).IG.f. T2|
00003F30: B2 38 39 20 A7 20 4F 50 20 B2 20 4F 50 AB 31 20 |.89 . OP . OP.1 |
00003F40: 3A 20 89 20 32 36 32 37 35 00 6B 47 94 66 8B 20 |: . 26275.kG.f. |
00003F50: 54 32 B2 38 38 20 A7 20 4F 50 20 B2 20 4F 50 AB |T2.88 . OP . OP.|
00003F60: 32 20 3A 20 89 20 32 36 32 37 35 00 83 47 9E 66 |2 : . 26275..G.f|
00003F70: 8F 20 4E 4F 54 20 41 20 56 41 4C 49 44 20 49 4E |. NOT A VALID IN|
00003F80: 44 45 58 00 98 47 A0 66 45 4E 20 B2 20 35 20 3A |DEX..G.fEN . 5 :|
00003F90: 20 89 20 32 38 30 30 30 00 D4 47 A3 66 8B 28 4F | . 28000..G.f.(O|
00003FA0: 50 B2 31 32 29 AF 28 28 50 4F B1 32 AF 50 4F B3 |P.12).((PO.2.PO.|
00003FB0: 36 29 B0 28 50 4F B1 36 AF 50 4F B3 31 30 29 B0 |6).(PO.6.PO.10).|
00003FC0: 50 4F B2 31 32 B0 50 4F B2 31 31 29 A7 20 4F 50 |PO.12.PO.11). OP|
00003FD0: 20 B2 20 33 00 EC 47 A9 66 8F 20 5A 45 52 4F 20 | . 3..G.f. ZERO |
00003FE0: 50 41 47 45 20 4F 50 52 41 4E 44 53 00 FC 47 AA |PAGE OPRANDS..G.|
00003FF0: 66 8B 20 4F 50 B3 31 30 20 A7 20 8E 00 14 48 AC |f. OP.10 . ...H.|
00004000: 66 54 37 20 B2 20 50 54 52 20 3A 20 50 54 52 20 |fT7 . PTR : PTR |
00004010: B2 20 54 36 00 20 48 AE 66 8D 20 32 38 36 30 30 |. T6. H.f. 28600|
00004020: 00 3F 48 B0 66 8B 20 45 52 52 20 B0 20 52 45 53 |.?H.f. ERR . RES|
00004030: 55 4C 54 B1 32 35 35 20 A7 20 32 36 32 39 32 00 |ULT.255 . 26292.|
00004040: 4D 48 B2 66 4F 50 20 B2 20 4F 50 AB 36 00 5A 48 |MH.fOP . OP.6.ZH|
00004050: B4 66 50 54 52 20 B2 20 54 37 00 60 48 B6 66 8E |.fPTR . T7.`H.f.|
00004060: 00 84 48 BC 66 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..H.f.**********|
00004070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004080: 2A 2A 2A 2A 00 9A 48 BD 66 8F 20 45 56 41 4C 55 |****..H.f. EVALU|
00004090: 41 54 45 20 4F 50 43 4F 44 45 00 BE 48 BE 66 8F |ATE OPCODE..H.f.|
000040A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000040B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D2 |**************..|
000040C0: 48 C6 66 54 31 20 B2 20 33 20 3A 20 54 20 B2 20 |H.fT1 . 3 : T . |
000040D0: 50 4F 00 EE 48 D0 66 54 20 B2 20 C6 28 CA 28 54 |PO..H.fT . .(.(T|
000040E0: 41 24 28 54 31 29 2C 54 AA 31 2C 31 29 29 00 0B |A$(T1),T.1,1))..|
000040F0: 49 DA 66 8B 20 54 B2 32 35 35 20 A7 20 45 52 52 |I.f. T.255 . ERR|
00004100: 20 B2 20 54 52 55 45 20 3A 20 8E 00 35 49 E4 66 | . TRUE : ..5I.f|
00004110: 54 31 20 B2 20 34 20 3A 20 54 32 20 B2 20 C6 28 |T1 . 4 : T2 . .(|
00004120: CA 28 54 41 24 28 31 29 2C B5 28 54 AD 32 AA 31 |.(TA$(1),.(T.2.1|
00004130: 29 2C 31 29 29 00 55 49 EE 66 8B 20 28 31 20 AF |),1)).UI.f. (1 .|
00004140: 20 54 29 B2 30 20 A7 20 54 32 20 B2 20 B5 28 54 | T).0 . T2 . .(T|
00004150: 32 AD 31 36 29 00 66 49 F3 66 54 32 20 B2 20 54 |2.16).fI.fT2 . T|
00004160: 32 20 AF 20 31 35 00 7B 49 F8 66 8B 20 54 32 B3 |2 . 15.{I.f. T2.|
00004170: B1 4F 50 20 A7 20 32 36 33 32 30 00 8C 49 02 67 |.OP . 26320..I.g|
00004180: 4F 24 20 B2 20 4F 24 AA C7 28 54 29 00 9C 49 0C |O$ . O$..(T)..I.|
00004190: 67 45 52 52 20 B2 20 46 41 4C 53 45 00 A2 49 16 |gERR . FALSE..I.|
000041A0: 67 8E 00 C6 49 20 67 8F 2A 2A 2A 2A 2A 2A 2A 2A |g...I g.********|
000041B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000041C0: 2A 2A 2A 2A 2A 2A 00 E6 49 21 67 8F 20 44 4F 20 |******..I!g. DO |
000041D0: 50 41 53 53 20 31 20 41 53 53 45 4D 42 4C 59 20 |PASS 1 ASSEMBLY |
000041E0: 4F 4E 20 49 4E 24 00 0A 4A 22 67 8F 2A 2A 2A 2A |ON IN$..J"g.****|
000041F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 4A 25 67 99 |**********.TJ%g.|
00004210: 20 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 | "..............|
00004220: 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 |......... |
00004230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004250: 20 22 20 3B 00 86 4A 26 67 99 20 22 20 20 20 20 | " ;..J&g. " |
00004260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004280: 20 20 20 22 20 3B 00 B1 4A 27 67 99 20 22 13 11 | " ;..J'g. "..|
00004290: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000042A0: 11 11 11 11 11 22 20 3B 3A 20 8D 20 32 38 31 30 |....." ;: . 2810|
000042B0: 30 00 D7 4A 2A 67 50 41 53 53 20 B2 20 31 20 3A |0..J*gPASS . 1 :|
000042C0: 20 45 58 49 54 20 B2 20 46 41 4C 53 45 20 3A 20 | EXIT . FALSE : |
000042D0: 50 54 52 20 B2 20 32 00 E3 4A 34 67 8D 20 32 38 |PTR . 2..J4g. 28|
000042E0: 38 35 30 00 F7 4A 3E 67 8B 20 A8 20 45 52 52 20 |850..J>g. . ERR |
000042F0: A7 20 32 36 35 34 30 00 14 4B 48 67 8B 20 54 B2 |. 26540..KHg. T.|
00004300: 35 38 20 AF 20 C3 28 48 24 29 B2 30 20 A7 20 32 |58 . .(H$).0 . 2|
00004310: 36 34 32 30 00 2A 4B 52 67 8B 20 54 B2 35 39 20 |6420.*KRg. T.59 |
00004320: B0 20 54 B2 AB 31 20 A7 20 8E 00 36 4B 5C 67 8D |. T..1 . ..6K\g.|
00004330: 20 32 38 37 30 30 00 42 4B 70 67 8D 20 32 38 38 | 28700.BKpg. 288|
00004340: 35 30 00 56 4B 7A 67 8B 20 A8 20 45 52 52 20 A7 |50.VKzg. . ERR .|
00004350: 20 32 36 35 34 30 00 73 4B 84 67 8B 20 54 B2 35 | 26540.sK.g. T.5|
00004360: 38 20 AF 20 C3 28 48 24 29 B2 30 20 A7 20 32 36 |8 . .(H$).0 . 26|
00004370: 34 32 30 00 79 4B 98 67 8E 00 99 4B AC 67 8B 20 |420.yK.g...K.g. |
00004380: 50 4F B1 35 35 20 A7 20 8D 20 32 36 36 30 30 20 |PO.55 . . 26600 |
00004390: 3A 20 89 20 32 36 35 35 36 00 A5 4B B6 67 8D 20 |: . 26556..K.g. |
000043A0: 32 36 31 30 30 00 DD 4B B8 67 8D 20 32 36 33 30 |26100..K.g. 2630|
000043B0: 30 20 3A 20 8B 20 45 52 52 20 AF 20 4F 50 B1 33 |0 : . ERR . OP.3|
000043C0: 20 AF 20 4F 50 B3 37 20 A7 20 4F 50 20 B2 20 4F | . OP.7 . OP . O|
000043D0: 50 AA 36 20 3A 20 89 20 32 36 35 35 32 00 E9 4B |P.6 : . 26552..K|
000043E0: BB 67 8D 20 32 36 35 36 30 00 0B 4C BC 67 8B 20 |.g. 26560..L.g. |
000043F0: C3 28 49 4E 24 29 B1 50 54 52 20 AF 20 A8 20 45 |.(IN$).PTR . . E|
00004400: 58 49 54 20 A7 20 32 36 34 32 30 00 11 4C BD 67 |XIT . 26420..L.g|
00004410: 8E 00 35 4C C0 67 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..5L.g.*********|
00004420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004430: 2A 2A 2A 2A 2A 00 47 4C C1 67 8F 20 42 59 54 45 |*****.GL.g. BYTE|
00004440: 20 4C 45 4E 47 54 48 00 6B 4C C2 67 8F 2A 2A 2A | LENGTH.kL.g.***|
00004450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 79 4C C5 67 |***********.yL.g|
00004470: 41 44 20 B2 20 41 44 AA 31 00 90 4C CA 67 8B 20 |AD . AD.1..L.g. |
00004480: 4F 50 B1 31 20 A7 20 41 44 20 B2 20 41 44 AA 31 |OP.1 . AD . AD.1|
00004490: 00 A7 4C D4 67 8B 20 4F 50 B1 38 20 A7 20 41 44 |..L.g. OP.8 . AD|
000044A0: 20 B2 20 41 44 AA 31 00 AD 4C DE 67 8E 00 D1 4C | . AD.1..L.g...L|
000044B0: E8 67 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.g.*************|
000044C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000044D0: 2A 00 F2 4C E9 67 8F 20 43 41 4C 43 55 4C 41 54 |*..L.g. CALCULAT|
000044E0: 45 20 44 49 52 45 43 54 49 56 45 20 4C 45 4E 47 |E DIRECTIVE LENG|
000044F0: 54 48 00 16 4D EA 67 8F 2A 2A 2A 2A 2A 2A 2A 2A |TH..M.g.********|
00004500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004510: 2A 2A 2A 2A 2A 2A 00 26 4D F2 67 54 31 20 B2 20 |******.&M.gT1 . |
00004520: C3 28 49 4E 24 29 00 4C 4D FC 67 8B 20 50 4F B2 |.(IN$).LM.g. PO.|
00004530: 35 36 20 A7 20 32 36 37 32 30 20 3A 20 8F 20 42 |56 . 26720 : . B|
00004540: 59 54 20 44 49 52 45 43 54 49 56 45 00 8C 4D 01 |YT DIRECTIVE..M.|
00004550: 68 8B 20 50 4F B2 36 30 20 A7 20 8D 20 32 38 36 |h. PO.60 . . 286|
00004560: 30 30 20 3A 20 41 44 20 B2 20 52 45 53 55 4C 54 |00 : AD . RESULT|
00004570: 20 3A 20 8F 20 44 45 41 4C 20 57 49 54 48 20 4F | : . DEAL WITH O|
00004580: 52 47 20 44 49 52 45 43 54 49 56 45 00 A6 4D 03 |RG DIRECTIVE..M.|
00004590: 68 8B 20 50 4F B2 35 39 20 A7 20 45 58 49 54 20 |h. PO.59 . EXIT |
000045A0: B2 20 54 52 55 45 00 CF 4D 06 68 8B 20 50 4F B1 |. TRUE..M.h. PO.|
000045B0: 35 38 20 A7 20 8E 20 3A 20 8F 20 45 4E 44 20 26 |58 . . : . END &|
000045C0: 20 4F 52 47 20 44 49 52 45 43 54 49 56 45 53 00 | ORG DIRECTIVES.|
000045D0: EC 4D 10 68 8F 20 46 49 4E 44 20 4C 45 4E 2E 20 |.M.h. FIND LEN. |
000045E0: 4F 46 20 57 52 44 20 26 20 44 42 59 00 FA 4D 1A |OF WRD & DBY..M.|
000045F0: 68 41 44 20 B2 20 41 44 AA 32 00 0A 4E 24 68 50 |hAD . AD.2..N$hP|
00004600: 54 52 20 B2 20 50 54 52 AA 31 00 1B 4E 2E 68 8B |TR . PTR.1..N.h.|
00004610: 20 50 54 52 B1 54 31 20 A7 20 8E 00 33 4E 38 68 | PTR.T1 . ..3N8h|
00004620: 54 20 B2 20 C6 28 CA 28 49 4E 24 2C 50 54 52 2C |T . .(.(IN$,PTR,|
00004630: 31 29 29 00 49 4E 42 68 8B 20 54 B2 35 38 20 B0 |1)).INBh. T.58 .|
00004640: 20 54 B2 35 39 20 A7 20 8E 00 5D 4E 4C 68 8B 20 | T.59 . ..]NLh. |
00004650: 54 B3 B1 34 36 20 A7 20 32 36 36 36 30 00 69 4E |T..46 . 26660.iN|
00004660: 56 68 89 20 32 36 36 35 30 00 7F 4E 60 68 8F 20 |Vh. 26650..N`h. |
00004670: 4C 45 4E 47 54 48 20 46 4F 52 20 42 59 54 2E 00 |LENGTH FOR BYT..|
00004680: 8D 4E 6A 68 41 44 20 B2 20 41 44 AA 31 00 9D 4E |.NjhAD . AD.1..N|
00004690: 74 68 50 54 52 20 B2 20 50 54 52 AA 31 00 AE 4E |thPTR . PTR.1..N|
000046A0: 7E 68 8B 20 50 54 52 B1 54 31 20 A7 20 8E 00 C6 |~h. PTR.T1 . ...|
000046B0: 4E 88 68 54 20 B2 20 C6 28 CA 28 49 4E 24 2C 50 |N.hT . .(.(IN$,P|
000046C0: 54 52 2C 31 29 29 00 DC 4E 92 68 8B 20 54 B2 35 |TR,1))..N.h. T.5|
000046D0: 38 20 B0 20 54 B2 35 39 20 A7 20 8E 00 F0 4E 9C |8 . T.59 . ...N.|
000046E0: 68 8B 20 54 B3 B1 34 36 20 A7 20 32 36 37 34 30 |h. T..46 . 26740|
000046F0: 00 FC 4E A6 68 89 20 32 36 37 33 30 00 20 4F 14 |..N.h. 26730. O.|
00004700: 69 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |i.**************|
00004710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004720: 00 42 4F 15 69 8F 20 44 55 4D 50 20 53 59 4D 42 |.BO.i. DUMP SYMB|
00004730: 4F 4C 20 54 41 42 4C 45 20 54 4F 20 53 43 52 45 |OL TABLE TO SCRE|
00004740: 45 4E 00 66 4F 16 69 8F 2A 2A 2A 2A 2A 2A 2A 2A |EN.fO.i.********|
00004750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004760: 2A 2A 2A 2A 2A 2A 00 79 4F 1E 69 8B 20 53 45 B3 |******.yO.i. SE.|
00004770: 31 20 A7 20 32 36 39 37 35 00 7F 4F 23 69 99 00 |1 . 26975..O#i..|
00004780: 92 4F 28 69 81 20 58 20 B2 20 30 20 A4 20 53 45 |.O(i. X . 0 . SE|
00004790: AB 31 00 AB 4F 32 69 99 20 C8 28 53 54 24 28 58 |.1..O2i. .(ST$(X|
000047A0: 29 2C 36 29 20 A3 31 30 29 20 3B 00 D5 4F 3C 69 |),6) .10) ;..O<i|
000047B0: 48 20 B2 20 C6 28 CA 28 53 54 24 28 58 29 2C 38 |H . .(.(ST$(X),8|
000047C0: 29 29 AC 32 35 36 AA C6 28 CA 28 53 54 24 28 58 |)).256..(.(ST$(X|
000047D0: 29 2C 37 29 29 00 E1 4F 46 69 8D 20 31 31 30 30 |),7))..OFi. 1100|
000047E0: 30 00 EA 4F 50 69 99 20 48 24 00 F2 4F 5A 69 82 |0..OPi. H$..OZi.|
000047F0: 20 58 00 1B 50 5F 69 99 20 22 11 20 54 4F 54 41 | X..P_i. ". TOTA|
00004800: 4C 20 4E 55 4D 42 45 52 20 4F 46 20 53 59 4D 42 |L NUMBER OF SYMB|
00004810: 4F 4C 53 20 2D 2D 2D 22 20 53 45 00 21 50 64 69 |OLS ---" SE.!Pdi|
00004820: 8E 00 45 50 78 69 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..EPxi.*********|
00004830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004840: 2A 2A 2A 2A 2A 00 5C 50 79 69 8F 20 45 56 41 4C |*****.\Pyi. EVAL|
00004850: 55 41 54 45 20 4F 50 45 52 41 4E 44 00 80 50 7A |UATE OPERAND..Pz|
00004860: 69 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |i.**************|
00004870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004880: 00 90 50 82 69 45 52 52 20 B2 20 46 41 4C 53 45 |..P.iERR . FALSE|
00004890: 00 9F 50 8C 69 8B 20 4F 50 B3 32 20 A7 20 8E 00 |..P.i. OP.2 . ..|
000048A0: B2 50 96 69 8B 20 4F 50 B2 33 20 A7 20 32 37 35 |.P.i. OP.3 . 275|
000048B0: 30 30 00 C5 50 A0 69 8B 20 4F 50 B2 32 20 A7 20 |00..P.i. OP.2 . |
000048C0: 32 37 34 30 30 00 D1 50 AA 69 8D 20 32 38 36 30 |27400..P.i. 2860|
000048D0: 30 00 E9 50 B4 69 8B 20 45 52 52 20 B0 20 C3 28 |0..P.i. ERR . .(|
000048E0: 4F 24 29 B2 30 20 A7 20 8E 00 21 51 BE 69 8B 20 |O$).0 . ..!Q.i. |
000048F0: 28 52 45 53 55 4C 54 B3 30 20 B0 20 52 45 53 55 |(RESULT.0 . RESU|
00004900: 4C 54 B1 32 35 35 29 20 AF 20 4F 50 B3 39 20 A7 |LT.255) . OP.9 .|
00004910: 20 45 4E 20 B2 20 31 20 3A 20 89 20 32 38 30 30 | EN . 1 : . 2800|
00004920: 30 00 51 51 C8 69 8B 20 52 45 53 55 4C 54 B3 30 |0.QQ.i. RESULT.0|
00004930: 20 B0 20 52 45 53 55 4C 54 B1 36 35 35 33 35 20 | . RESULT.65535 |
00004940: A7 20 45 4E B2 20 32 20 3A 20 89 20 32 38 30 30 |. EN. 2 : . 2800|
00004950: 30 00 64 51 D2 69 8B 20 4F 50 B3 39 20 A7 20 32 |0.dQ.i. OP.9 . 2|
00004960: 37 31 34 30 00 7A 51 DC 69 54 20 B2 20 B5 28 52 |7140.zQ.iT . .(R|
00004970: 45 53 55 4C 54 AD 32 35 36 29 00 94 51 E6 69 52 |ESULT.256)..Q.iR|
00004980: 45 53 55 4C 54 20 B2 20 52 45 53 55 4C 54 AB 54 |ESULT . RESULT.T|
00004990: AC 32 35 36 00 A0 51 F0 69 8D 20 32 37 31 34 30 |.256..Q.i. 27140|
000049A0: 00 AF 51 FA 69 52 45 53 55 4C 54 20 B2 20 54 00 |..Q.iRESULT . T.|
000049B0: C5 51 04 6A 4F 24 20 B2 20 4F 24 AA C7 28 52 45 |.Q.jO$ . O$..(RE|
000049C0: 53 55 4C 54 29 00 CB 51 0E 6A 8E 00 EF 51 40 6A |SULT)..Q.j...Q@j|
000049D0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
000049E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000049F0: 11 52 41 6A 8F 20 44 49 52 45 43 54 49 56 45 20 |.RAj. DIRECTIVE |
00004A00: 4F 50 45 52 41 4E 44 20 45 56 41 4C 55 41 54 4F |OPERAND EVALUATO|
00004A10: 52 00 35 52 42 6A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |R.5RBj.*********|
00004A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004A30: 2A 2A 2A 2A 2A 00 45 52 45 6A 45 52 52 20 B2 20 |*****.EREjERR . |
00004A40: 46 41 4C 53 45 00 68 52 4A 6A 8B 20 50 4F B2 36 |FALSE.hRJj. PO.6|
00004A50: 30 20 A7 20 8D 20 32 38 36 30 30 20 3A 20 41 44 |0 . . 28600 : AD|
00004A60: 20 B2 52 45 53 55 4C 54 00 80 52 4E 6A 8B 20 50 | .RESULT..RNj. P|
00004A70: 4F B2 36 32 20 A7 20 53 59 20 B2 20 54 52 55 45 |O.62 . SY . TRUE|
00004A80: 00 BD 52 4F 6A 8B 20 50 4F B2 36 31 20 A7 20 9F |..ROj. PO.61 . .|
00004A90: 20 32 2C 34 20 3A 20 9D 20 32 20 3A 20 99 20 22 | 2,4 : . 2 : . "|
00004AA0: 11 41 44 44 2E 20 20 44 41 54 41 20 20 20 20 20 |.ADD. DATA |
00004AB0: 53 4F 55 52 43 45 20 43 4F 44 45 11 22 00 D7 52 |SOURCE CODE."..R|
00004AC0: 54 6A 8B 20 50 4F B2 35 39 20 A7 20 45 58 49 54 |Tj. PO.59 . EXIT|
00004AD0: 20 B2 20 54 52 55 45 00 E7 52 5E 6A 8B 20 50 4F | . TRUE..R^j. PO|
00004AE0: B1 35 38 20 A7 20 8E 00 FB 52 68 6A 8B 20 50 4F |.58 . ...Rhj. PO|
00004AF0: B2 35 36 20 A7 20 32 37 33 33 30 00 16 53 72 6A |.56 . 27330..Srj|
00004B00: 8F 20 44 42 59 20 26 20 57 52 44 20 44 49 52 45 |. DBY & WRD DIRE|
00004B10: 43 54 49 56 45 53 00 22 53 7C 6A 8D 20 32 38 36 |CTIVES."S|j. 286|
00004B20: 30 30 00 53 53 86 6A 8B 20 52 45 53 55 4C 54 B3 |00.SS.j. RESULT.|
00004B30: 30 20 B0 20 52 45 53 55 4C 54 B1 36 35 35 33 35 |0 . RESULT.65535|
00004B40: 20 A7 20 45 4E 20 B2 20 32 20 3A 20 89 20 32 38 | . EN . 2 : . 28|
00004B50: 30 30 30 00 97 53 90 6A 8B 20 50 4F B2 35 38 20 |000..S.j. PO.58 |
00004B60: A7 20 52 45 53 55 4C 54 20 B2 20 B5 28 52 45 53 |. RESULT . .(RES|
00004B70: 55 4C 54 AD 32 35 36 29 AA 32 35 36 AC 28 52 45 |ULT.256).256.(RE|
00004B80: 53 55 4C 54 AB B5 28 52 45 53 55 4C 54 AD 32 35 |SULT..(RESULT.25|
00004B90: 36 29 AC 32 35 36 29 00 D0 53 91 6A 8F 20 32 37 |6).256)..S.j. 27|
00004BA0: 32 38 30 20 52 45 56 45 52 53 45 53 20 48 49 2E |280 REVERSES HI.|
00004BB0: 20 26 20 4C 4F 2E 20 42 59 54 45 53 20 49 46 20 | & LO. BYTES IF |
00004BC0: 44 49 52 45 43 54 49 56 45 20 49 53 20 44 42 59 |DIRECTIVE IS DBY|
00004BD0: 00 F0 53 9A 6A 54 31 20 B2 54 20 3A 20 8D 20 32 |..S.jT1 .T : . 2|
00004BE0: 37 31 30 30 20 3A 20 41 44 20 B2 20 41 44 AA 32 |7100 : AD . AD.2|
00004BF0: 00 06 54 A4 6A 8B 20 54 31 B2 33 32 20 A7 20 8D |..T.j. T1.32 . .|
00004C00: 20 32 38 31 35 30 00 1A 54 AE 6A 8B 20 54 31 B2 | 28150..T.j. T1.|
00004C10: 34 36 20 A7 20 32 37 32 36 30 00 20 54 B8 6A 8E |46 . 27260. T.j.|
00004C20: 00 34 54 C2 6A 8F 20 42 59 54 20 44 49 52 45 43 |.4T.j. BYT DIREC|
00004C30: 54 49 56 45 00 40 54 CC 6A 8D 20 32 38 36 30 30 |TIVE.@T.j. 28600|
00004C40: 00 6F 54 D6 6A 8B 20 52 45 53 55 4C 54 B3 30 20 |.oT.j. RESULT.0 |
00004C50: B0 20 52 45 53 55 4C 54 B1 32 35 35 20 A7 20 45 |. RESULT.255 . E|
00004C60: 4E 20 B2 20 31 20 3A 20 89 20 32 38 30 30 30 00 |N . 1 : . 28000.|
00004C70: 87 54 E0 6A 8D 20 32 37 31 34 30 20 3A 20 41 44 |.T.j. 27140 : AD|
00004C80: 20 B2 20 41 44 AA 31 00 9C 54 EA 6A 8B 20 54 B2 | . AD.1..T.j. T.|
00004C90: 33 32 20 A7 20 8D 20 32 38 31 35 30 00 AF 54 F4 |32 . . 28150..T.|
00004CA0: 6A 8B 20 54 B2 34 36 20 A7 20 32 37 33 34 30 00 |j. T.46 . 27340.|
00004CB0: B5 54 FE 6A 8E 00 D9 54 08 6B 8F 2A 2A 2A 2A 2A |.T.j...T.k.*****|
00004CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FD 54 09 6B 8F 20 |*********..T.k. |
00004CE0: 45 56 41 4C 55 41 54 45 20 49 4D 4D 45 44 49 41 |EVALUATE IMMEDIA|
00004CF0: 54 45 20 45 58 50 52 45 53 53 49 4F 4E 00 21 55 |TE EXPRESSION.!U|
00004D00: 0A 6B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.k.*************|
00004D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004D20: 2A 00 38 55 12 6B 54 35 20 B2 20 50 54 52 20 3A |*.8U.kT5 . PTR :|
00004D30: 20 8D 20 32 36 30 30 30 00 50 55 1C 6B 8B 20 C6 | . 26000.PU.k. .|
00004D40: 28 48 24 29 B3 B1 33 35 20 A7 20 32 37 34 38 30 |(H$)..35 . 27480|
00004D50: 00 6C 55 26 6B 8B 20 CA 28 48 24 2C 32 2C 31 29 |.lU&k. .(H$,2,1)|
00004D60: B2 22 27 22 20 A7 20 32 37 34 35 30 00 79 55 30 |."'" . 27450.yU0|
00004D70: 6B 50 54 52 20 B2 20 54 35 00 92 55 32 6B 8B 20 |kPTR . T5..U2k. |
00004D80: 50 54 52 B1 C3 28 49 4E 24 29 20 A7 20 32 37 34 |PTR..(IN$) . 274|
00004D90: 34 36 00 C4 55 34 6B 8B 20 C6 28 CA 28 49 4E 24 |46..U4k. .(.(IN$|
00004DA0: 2C 50 54 52 2C 31 29 29 B3 B1 33 35 20 A7 20 50 |,PTR,1))..35 . P|
00004DB0: 54 52 20 B2 20 50 54 52 AA 31 20 3A 20 89 20 32 |TR . PTR.1 : . 2|
00004DC0: 37 34 34 32 00 E2 55 36 6B 4F 50 20 B2 20 38 20 |7442..U6kOP . 8 |
00004DD0: 3A 20 8D 20 32 37 30 35 30 20 3A 20 4F 50 20 B2 |: . 27050 : OP .|
00004DE0: 20 32 00 E8 55 38 6B 8E 00 03 56 3A 6B 8F 20 53 | 2..U8k...V:k. S|
00004DF0: 49 4E 47 4C 45 20 43 48 52 2E 20 45 58 50 45 43 |INGLE CHR. EXPEC|
00004E00: 54 45 44 00 1A 56 44 6B 8B 20 C3 28 48 24 29 B3 |TED..VDk. .(H$).|
00004E10: B1 33 20 A7 20 32 37 34 38 30 00 34 56 4E 6B 4F |.3 . 27480.4VNkO|
00004E20: 24 20 B2 20 4F 24 AA CA 28 48 24 2C 33 2C 31 29 |$ . O$..(H$,3,1)|
00004E30: 20 3A 20 8E 00 40 56 58 6B 45 4E 20 B2 20 31 32 | : ..@VXkEN . 12|
00004E40: 00 4C 56 62 6B 89 20 32 38 30 30 30 00 70 56 6C |.LVbk. 28000.pVl|
00004E50: 6B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |k.**************|
00004E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004E70: 00 93 56 6D 6B 8F 20 45 56 41 4C 55 41 54 45 20 |..Vmk. EVALUATE |
00004E80: 52 45 4C 41 54 49 56 45 20 45 58 50 52 45 53 53 |RELATIVE EXPRESS|
00004E90: 49 4F 4E 00 B7 56 6E 6B 8F 2A 2A 2A 2A 2A 2A 2A |ION..Vnk.*******|
00004EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004EB0: 2A 2A 2A 2A 2A 2A 2A 00 C3 56 76 6B 8D 20 32 38 |*******..Vvk. 28|
00004EC0: 36 30 30 00 DB 56 80 6B 8B 20 C3 28 4F 24 29 B2 |600..V.k. .(O$).|
00004ED0: 30 20 B0 20 45 52 52 20 A7 20 8E 00 F2 56 8A 6B |0 . ERR . ...V.k|
00004EE0: 52 45 53 55 4C 54 20 B2 20 52 45 53 55 4C 54 AB |RESULT . RESULT.|
00004EF0: 41 44 00 17 57 94 6B 8B 20 52 45 53 55 4C 54 B3 |AD..W.k. RESULT.|
00004F00: 30 20 A7 20 52 45 53 55 4C 54 20 B2 20 52 45 53 |0 . RESULT . RES|
00004F10: 55 4C 54 AA 32 35 36 00 3C 57 A8 6B 8B 20 52 45 |ULT.256.<W.k. RE|
00004F20: 53 55 4C 54 B3 32 35 36 20 AF 20 52 45 53 55 4C |SULT.256 . RESUL|
00004F30: 54 B1 B2 30 20 A7 20 32 37 31 34 30 00 48 57 B2 |T..0 . 27140.HW.|
00004F40: 6B 45 4E 20 B2 20 31 30 00 54 57 BC 6B 89 20 32 |kEN . 10.TW.k. 2|
00004F50: 38 30 30 30 00 78 57 D0 6B 8F 2A 2A 2A 2A 2A 2A |8000.xW.k.******|
00004F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004F70: 2A 2A 2A 2A 2A 2A 2A 2A 00 91 57 D1 6B 8F 20 44 |********..W.k. D|
00004F80: 4F 20 50 41 53 53 20 32 20 41 53 53 45 4D 42 4C |O PASS 2 ASSEMBL|
00004F90: 59 00 B5 57 D2 6B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |Y..W.k.*********|
00004FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004FB0: 2A 2A 2A 2A 2A 00 C3 57 D5 6B 50 41 53 53 53 20 |*****..W.kPASSS |
00004FC0: B2 20 32 00 CF 57 DA 6B 4F 24 20 B2 20 22 22 00 |. 2..W.kO$ . "".|
00004FD0: EE 57 E4 6B 45 58 49 54 20 B2 20 46 41 4C 53 45 |.W.kEXIT . FALSE|
00004FE0: 20 3A 20 45 52 52 20 B2 20 46 41 4C 53 45 00 FA | : ERR . FALSE..|
00004FF0: 57 E9 6B 50 54 52 20 B2 20 32 00 06 58 EE 6B 8D |W.kPTR . 2..X.k.|
00005000: 20 32 38 38 35 30 00 1A 58 F8 6B 8B 20 A8 20 45 | 28850..X.k. . E|
00005010: 52 52 20 A7 20 32 37 37 32 30 00 37 58 02 6C 8B |RR . 27720.7X.l.|
00005020: 20 54 B2 35 38 20 AF 20 C3 28 48 24 29 B2 30 20 | T.58 . .(H$).0 |
00005030: A7 20 32 37 36 33 30 00 5B 58 0C 6C 8B 20 54 B2 |. 27630.[X.l. T.|
00005040: 35 39 20 B0 20 54 B2 AB 31 20 A7 20 45 52 52 20 |59 . T..1 . ERR |
00005050: B2 20 46 41 4C 53 45 20 3A 20 8E 00 67 58 11 6C |. FALSE : ..gX.l|
00005060: 8D 20 32 38 37 30 30 00 73 58 16 6C 8D 20 32 38 |. 28700.sX.l. 28|
00005070: 38 35 30 00 87 58 20 6C 8B 20 A8 20 45 52 52 20 |850..X l. . ERR |
00005080: A7 20 32 37 37 32 30 00 A4 58 2A 6C 8B 20 54 B2 |. 27720..X*l. T.|
00005090: 35 38 20 AF 20 C3 28 48 24 29 B2 30 20 A7 20 32 |58 . .(H$).0 . 2|
000050A0: 37 36 33 30 00 C8 58 2F 6C 8B 20 54 B2 35 39 20 |7630..X/l. T.59 |
000050B0: B0 20 54 B2 AB 31 20 A7 20 45 52 52 20 B2 20 46 |. T..1 . ERR . F|
000050C0: 41 4C 53 45 20 3A 20 8E 00 DD 58 34 6C 45 4E 20 |ALSE : ...X4lEN |
000050D0: B2 20 33 20 3A 20 89 20 32 38 30 30 30 00 FD 58 |. 3 : . 28000..X|
000050E0: 48 6C 8B 20 50 4F B1 35 35 20 A7 20 8D 20 32 37 |Hl. PO.55 . . 27|
000050F0: 32 30 30 20 3A 20 89 20 32 37 37 34 35 00 2B 59 |200 : . 27745.+Y|
00005100: 4B 6C 54 35 20 B2 20 50 54 52 20 3A 20 8D 20 32 |KlT5 . PTR : . 2|
00005110: 36 31 30 30 20 3A 20 54 38 20 B2 20 50 54 52 20 |6100 : T8 . PTR |
00005120: 20 3A 20 50 54 52 20 B2 20 54 35 00 5E 59 4D 6C | : PTR . T5.^YMl|
00005130: 8B 20 4F 50 B3 37 20 AF 20 4F 50 B1 33 20 A7 20 |. OP.7 . OP.3 . |
00005140: 4F 50 20 B2 20 4F 50 AA 36 20 3A 20 50 54 52 20 |OP . OP.6 : PTR |
00005150: B2 20 54 35 20 3A 20 89 20 32 37 37 32 35 00 91 |. T5 : . 27725..|
00005160: 59 4F 6C 8B 20 4F 50 B3 37 20 AF 20 4F 50 B1 33 |YOl. OP.7 . OP.3|
00005170: 20 A7 20 4F 50 20 B2 20 4F 50 AA 36 20 3A 20 50 | . OP . OP.6 : P|
00005180: 54 52 20 B2 20 54 35 20 3A 20 89 20 32 37 37 32 |TR . T5 : . 2772|
00005190: 35 00 A7 59 50 6C 45 4E 20 B2 20 31 38 20 3A 20 |5..YPlEN . 18 : |
000051A0: 89 20 32 38 30 30 30 00 B3 59 52 6C 8D 20 32 36 |. 28000..YRl. 26|
000051B0: 35 36 30 00 DE 59 5C 6C 8B 20 A8 20 45 52 52 20 |560..Y\l. . ERR |
000051C0: AF 20 C3 28 4F 24 29 B1 30 20 A7 20 8D 20 32 37 |. .(O$).0 . . 27|
000051D0: 30 30 30 20 3A 20 50 54 52 20 B2 20 54 38 00 00 |000 : PTR . T8..|
000051E0: 5A 61 6C 8B 20 C3 28 49 4E 24 29 B1 50 54 52 20 |Zal. .(IN$).PTR |
000051F0: AF 20 A8 20 45 58 49 54 20 A7 20 32 37 36 33 30 |. . EXIT . 27630|
00005200: 00 06 5A 66 6C 8E 00 2A 5A 60 6D 8F 2A 2A 2A 2A |..Zfl..*Z`m.****|
00005210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 48 5A 61 6D 8F |**********.HZam.|
00005230: 20 41 53 53 45 4D 42 4C 45 52 20 45 52 52 4F 52 | ASSEMBLER ERROR|
00005240: 20 52 4F 55 54 49 4E 45 00 6C 5A 62 6D 8F 2A 2A | ROUTINE.lZbm.**|
00005250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B2 5A 65 |************..Ze|
00005270: 6D 8B 20 50 54 52 B1 B2 33 30 30 20 B0 20 50 41 |m. PTR..300 . PA|
00005280: 53 53 B3 B1 32 20 A7 20 32 38 30 35 30 20 3A 20 |SS..2 . 28050 : |
00005290: 8F 20 53 55 50 52 45 53 53 20 53 45 43 4F 4E 44 |. SUPRESS SECOND|
000052A0: 41 52 59 20 45 52 52 4F 52 53 20 49 4E 20 4C 49 |ARY ERRORS IN LI|
000052B0: 4E 45 00 C9 5A 6A 6D 99 20 A6 31 34 29 20 3B 20 |NE..Zjm. .14) ; |
000052C0: 3A 20 8D 20 32 38 31 30 30 00 D7 5A 6F 6D 45 43 |: . 28100..ZomEC|
000052D0: 20 B2 20 45 43 AA 31 00 02 5B 74 6D 81 20 58 20 | . EC.1..[tm. X |
000052E0: B2 20 AB 31 33 20 A4 20 50 54 52 20 3A 20 99 20 |. .13 . PTR : . |
000052F0: 22 3D 22 20 3B 3A 20 82 20 58 20 3A 20 99 20 22 |"=" ;: . X : . "|
00005300: 91 22 00 20 5B 7E 6D 99 20 22 20 20 20 22 20 45 |.". [~m. " " E|
00005310: 52 52 24 28 45 4E 29 20 22 20 45 52 52 4F 52 22 |RR$(EN) " ERROR"|
00005320: 00 3B 5B 88 6D 50 54 52 20 B2 20 33 30 30 20 3A |.;[.mPTR . 300 :|
00005330: 20 45 52 52 20 B2 20 54 52 55 45 00 41 5B 92 6D | ERR . TRUE.A[.m|
00005340: 8E 00 65 5B C4 6D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..e[.m.*********|
00005350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005360: 2A 2A 2A 2A 2A 00 83 5B C5 6D 8F 20 50 52 49 4E |*****..[.m. PRIN|
00005370: 54 20 49 4E 24 20 54 4F 20 54 48 45 20 53 43 52 |T IN$ TO THE SCR|
00005380: 45 45 4E 00 A7 5B C6 6D 8F 2A 2A 2A 2A 2A 2A 2A |EEN..[.m.*******|
00005390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000053A0: 2A 2A 2A 2A 2A 2A 2A 00 D6 5B D8 6D 99 20 32 35 |*******..[.m. 25|
000053B0: 36 AC C6 28 CA 28 49 4E 24 2C 32 2C 31 29 29 AA |6..(.(IN$,2,1)).|
000053C0: C6 28 CA 28 49 4E 24 2C 31 2C 31 29 29 20 CA 28 |.(.(IN$,1,1)) .(|
000053D0: 49 4E 24 2C 33 29 00 DC 5B EC 6D 8E 00 00 5C F6 |IN$,3)..[.m...\.|
000053E0: 6D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |m.**************|
000053F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005400: 00 21 5C F7 6D 8F 20 53 59 4D 42 4F 4C 20 54 4F |.!\.m. SYMBOL TO|
00005410: 20 4E 4F 4E 2D 4C 45 54 54 45 52 2F 44 49 47 49 | NON-LETTER/DIGI|
00005420: 54 00 45 5C F8 6D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |T.E\.m.*********|
00005430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005440: 2A 2A 2A 2A 2A 00 5A 5C 00 6E 48 24 20 B2 20 22 |*****.Z\.nH$ . "|
00005450: 22 20 3A 20 54 20 B2 20 AB 31 00 6A 5C 05 6E 50 |" : T . .1.j\.nP|
00005460: 54 52 20 B2 20 50 54 52 AA 31 00 83 5C 0A 6E 8B |TR . PTR.1..\.n.|
00005470: 20 50 54 52 B1 C3 28 49 4E 24 29 20 A7 20 32 38 | PTR..(IN$) . 28|
00005480: 32 31 30 00 9B 5C 14 6E 54 20 B2 20 C6 28 CA 28 |210..\.nT . .(.(|
00005490: 49 4E 24 2C 50 54 52 2C 31 29 29 00 B8 5C 19 6E |IN$,PTR,1))..\.n|
000054A0: 8B 20 54 B2 33 32 20 AF 20 C3 28 48 24 29 B2 30 |. T.32 . .(H$).0|
000054B0: 20 A7 20 32 38 31 36 30 00 E4 5C 1E 6E 8B 20 54 | . 28160..\.n. T|
000054C0: B3 34 38 20 B0 20 54 B1 39 30 20 B0 20 28 20 54 |.48 . T.90 . ( T|
000054D0: B1 35 37 20 AF 20 54 B3 36 35 20 29 20 A7 20 32 |.57 . T.65 ) . 2|
000054E0: 38 32 31 30 00 FF 5C 28 6E 48 24 20 B2 20 48 24 |8210..\(nH$ . H$|
000054F0: AA C7 28 54 29 20 3A 20 89 20 32 38 31 36 35 00 |..(T) : . 28165.|
00005500: 05 5D 32 6E 8E 00 29 5D 5A 6E 8F 2A 2A 2A 2A 2A |.]2n..)]Zn.*****|
00005510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 5D 5B 6E 8F 20 |*********.A][n. |
00005530: 46 49 4E 44 20 4C 41 42 45 4C 20 49 4E 20 53 54 |FIND LABEL IN ST|
00005540: 24 00 65 5D 5C 6E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |$.e]\n.*********|
00005550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005560: 2A 2A 2A 2A 2A 00 86 5D 64 6E 45 52 52 20 B2 20 |*****..]dnERR . |
00005570: 46 41 4C 53 45 20 3A 20 48 20 B2 20 30 20 3A 20 |FALSE : H . 0 : |
00005580: 54 31 20 B2 20 30 00 AC 5D 6E 6E 8B 20 C3 28 48 |T1 . 0..]nn. .(H|
00005590: 24 29 B3 36 20 A7 20 48 24 20 B2 20 48 24 AA 22 |$).6 . H$ . H$."|
000055A0: 20 22 20 3A 20 89 20 32 38 32 37 30 00 C9 5D 78 | " : . 28270..]x|
000055B0: 6E 8B 20 54 31 B2 53 45 20 A7 20 45 52 52 20 B2 |n. T1.SE . ERR .|
000055C0: 20 54 52 55 45 20 3A 20 8E 00 F8 5D 82 6E 8B 20 | TRUE : ...].n. |
000055D0: CA 28 53 54 24 28 54 31 29 2C 31 2C 36 29 B3 B1 |.(ST$(T1),1,6)..|
000055E0: 48 24 20 A7 20 54 31 20 B2 20 54 31 AA 31 20 3A |H$ . T1 . T1.1 :|
000055F0: 20 89 20 32 38 32 38 30 00 2C 5E 87 6E 48 20 B2 | . 28280.,^.nH .|
00005600: 20 C6 28 CA 28 53 54 24 28 54 31 29 2C 38 2C 31 | .(.(ST$(T1),8,1|
00005610: 29 29 AC 32 35 36 AA C6 28 CA 28 53 54 24 28 54 |)).256..(.(ST$(T|
00005620: 31 29 2C 37 2C 31 29 29 20 3A 20 8E 00 50 5E 8C |1),7,1)) : ..P^.|
00005630: 6E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |n.**************|
00005640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005650: 00 6F 5E 8D 6E 8F 20 45 56 41 4C 55 41 54 45 20 |.o^.n. EVALUATE |
00005660: 4C 41 42 45 4C 20 4F 52 20 4E 55 4D 42 45 52 00 |LABEL OR NUMBER.|
00005670: 93 5E 8E 6E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.^.n.***********|
00005680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005690: 2A 2A 2A 00 9F 5E A0 6E 8D 20 32 38 31 35 30 00 |***..^.n. 28150.|
000056A0: BE 5E A5 6E 8B 20 54 B2 34 30 20 AF 20 C3 28 48 |.^.n. T.40 . .(H|
000056B0: 24 29 B2 30 20 A7 20 8D 20 32 38 31 35 30 00 CD |$).0 . . 28150..|
000056C0: 5E AA 6E 54 31 20 B2 20 C3 28 48 24 29 00 0A 5F |^.nT1 . .(H$).._|
000056D0: AF 6E 8B 20 28 54 B2 AB 31 20 B0 20 54 B2 33 32 |.n. (T..1 . T.32|
000056E0: 20 B0 20 54 B2 35 38 20 B0 20 54 B2 35 39 20 B0 | . T.58 . T.59 .|
000056F0: 20 54 B2 34 31 20 B0 20 54 B2 34 36 29 20 AF 20 | T.41 . T.46) . |
00005700: 54 31 20 B2 20 30 20 A7 20 8E 00 1D 5F B4 6E 8B |T1 . 0 . ..._.n.|
00005710: 20 54 31 B2 30 20 A7 20 32 38 33 39 30 00 43 5F | T1.0 . 28390.C_|
00005720: BE 6E 8B 20 C6 28 48 24 29 B3 B2 35 37 20 A7 20 |.n. .(H$)..57 . |
00005730: 48 20 B2 20 C5 28 48 24 29 20 3A 20 89 20 32 38 |H . .(H$) : . 28|
00005740: 34 39 32 00 6E 5F C8 6E 8D 20 32 38 32 35 30 20 |492.n_.n. 28250 |
00005750: 3A 20 8F 20 46 49 4E 44 20 4C 41 42 45 4C 20 49 |: . FIND LABEL I|
00005760: 4E 20 53 59 4D 42 4F 4C 20 54 41 42 4C 45 00 94 |N SYMBOL TABLE..|
00005770: 5F D2 6E 8B 20 45 52 52 20 A7 20 45 4E 20 B2 20 |_.n. ERR . EN . |
00005780: 31 31 20 3A 20 48 20 B2 20 30 20 3A 20 89 20 32 |11 : H . 0 : . 2|
00005790: 38 30 30 30 00 A0 5F DC 6E 89 20 32 38 34 39 32 |8000.._.n. 28492|
000057A0: 00 CB 5F E6 6E 8F 20 48 45 58 2C 4F 43 54 41 4C |.._.n. HEX,OCTAL|
000057B0: 20 4F 52 20 42 49 4E 41 52 59 20 4E 55 4D 42 45 | OR BINARY NUMBE|
000057C0: 52 53 20 45 56 41 4C 55 41 54 45 00 E0 5F F0 6E |RS EVALUATE.._.n|
000057D0: 54 32 20 B2 20 54 20 3A 20 8D 20 32 38 31 35 30 |T2 . T : . 28150|
000057E0: 00 F6 5F FA 6E 8B 20 C3 28 48 24 29 B2 30 20 A7 |.._.n. .(H$).0 .|
000057F0: 20 32 38 34 35 30 00 0A 60 04 6F 8B 20 54 32 B2 | 28450..`.o. T2.|
00005800: 33 36 20 A7 20 32 38 34 37 30 00 2B 60 0E 6F 8B |36 . 28470.+`.o.|
00005810: 20 54 32 B2 33 37 20 A7 20 42 41 53 45 20 B2 20 | T2.37 . BASE . |
00005820: 32 20 3A 20 89 20 32 38 34 37 30 00 4C 60 18 6F |2 : . 28470.L`.o|
00005830: 8B 20 54 32 B2 33 38 20 A7 20 42 41 53 45 20 B2 |. T2.38 . BASE .|
00005840: 20 38 20 3A 20 89 20 32 38 34 37 30 00 60 60 22 | 8 : . 28470.``"|
00005850: 6F 8F 20 49 4E 56 41 4C 49 44 20 4C 41 42 45 4C |o. INVALID LABEL|
00005860: 00 7D 60 2C 6F 48 20 B2 20 30 20 3A 20 45 4E 20 |.}`,oH . 0 : EN |
00005870: B2 20 36 20 3A 20 89 20 32 38 30 30 30 00 98 60 |. 6 : . 28000..`|
00005880: 36 6F 8F 20 54 45 53 54 20 49 46 20 56 41 4C 49 |6o. TEST IF VALI|
00005890: 44 20 4E 55 4D 42 45 52 00 A4 60 3B 6F 8D 20 31 |D NUMBER..`;o. 1|
000058A0: 31 39 35 30 00 C3 60 40 6F 42 41 53 45 20 B2 20 |1950..`@oBASE . |
000058B0: 31 36 20 3A 20 8F 20 44 45 46 41 55 4C 54 20 42 |16 : . DEFAULT B|
000058C0: 41 53 45 00 E8 60 4A 6F 8B 20 45 52 52 20 A7 20 |ASE..`Jo. ERR . |
000058D0: 48 20 B2 20 30 20 3A 20 45 4E 20 B2 20 37 20 3A |H . 0 : EN . 7 :|
000058E0: 20 89 20 32 38 30 30 30 00 18 61 4C 6F 50 54 52 | . 28000..aLoPTR|
000058F0: 20 B2 20 50 54 52 AB 31 20 3A 20 8D 20 32 38 31 | . PTR.1 : . 281|
00005900: 35 30 20 3A 20 8F 20 47 45 54 20 4E 45 58 54 20 |50 : . GET NEXT |
00005910: 4F 50 45 52 41 54 4F 52 00 1E 61 4F 6F 8E 00 42 |OPERATOR..aOo..B|
00005920: 61 54 6F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |aTo.************|
00005930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005940: 2A 2A 00 62 61 55 6F 8F 20 45 56 41 4C 55 41 54 |**.baUo. EVALUAT|
00005950: 45 20 54 45 52 4D 20 57 49 54 48 20 2A 20 4F 52 |E TERM WITH * OR|
00005960: 20 2F 00 86 61 56 6F 8F 2A 2A 2A 2A 2A 2A 2A 2A | /..aVo.********|
00005970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005980: 2A 2A 2A 2A 2A 2A 00 9D 61 5E 6F 8D 20 32 38 33 |******..a^o. 283|
00005990: 30 30 20 3A 20 54 45 52 4D 20 B2 20 48 00 B2 61 |00 : TERM . H..a|
000059A0: 68 6F 8B 20 50 54 52 B1 C3 28 49 4E 24 29 20 A7 |ho. PTR..(IN$) .|
000059B0: 20 8E 00 E4 61 72 6F 8B 20 54 B2 34 32 20 A7 20 | ...aro. T.42 . |
000059C0: 8D 20 32 38 33 30 30 20 3A 20 54 45 52 4D 20 B2 |. 28300 : TERM .|
000059D0: 20 B5 28 54 45 52 4D AC 48 29 20 3A 20 89 20 32 | .(TERM.H) : . 2|
000059E0: 38 35 32 30 00 F4 61 86 6F 8B 20 54 B3 B1 34 37 |8520..a.o. T..47|
000059F0: 20 A7 20 8E 00 00 62 90 6F 8D 20 32 38 33 30 30 | . ...b.o. 28300|
00005A00: 00 29 62 9A 6F 8B 20 48 B2 30 20 A7 20 54 45 52 |.)b.o. H.0 . TER|
00005A10: 4D 20 B2 20 30 20 3A 20 45 4E 20 B2 20 31 35 20 |M . 0 : EN . 15 |
00005A20: 3A 20 89 20 32 38 30 30 30 00 3E 62 A4 6F 54 45 |: . 28000.>b.oTE|
00005A30: 52 4D 20 B2 20 B5 28 54 45 52 4D AD 48 29 00 4A |RM . .(TERM.H).J|
00005A40: 62 AE 6F 89 20 32 38 35 32 30 00 6E 62 B8 6F 8F |b.o. 28520.nb.o.|
00005A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 88 |**************..|
00005A70: 62 B9 6F 8F 20 45 56 41 4C 55 41 54 45 20 45 58 |b.o. EVALUATE EX|
00005A80: 50 52 45 53 53 49 4F 4E 00 AC 62 BA 6F 8F 2A 2A |PRESSION..b.o.**|
00005A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BC 62 BD |************..b.|
00005AB0: 6F 45 52 52 20 B2 20 46 41 4C 53 45 00 D8 62 C2 |oERR . FALSE..b.|
00005AC0: 6F 8D 20 32 38 35 30 30 20 3A 20 52 45 53 55 4C |o. 28500 : RESUL|
00005AD0: 54 20 B2 20 54 45 52 4D 00 15 63 CC 6F 8B 54 B2 |T . TERM..c.o.T.|
00005AE0: AB 31 B0 20 54 B2 33 32 20 B0 20 54 B2 35 38 20 |.1. T.32 . T.58 |
00005AF0: B0 20 54 B2 35 39 20 B0 20 54 B2 34 31 20 B0 20 |. T.59 . T.41 . |
00005B00: 54 B2 34 36 20 B0 20 50 54 52 B1 C3 28 49 4E 24 |T.46 . PTR..(IN$|
00005B10: 29 20 A7 20 8E 00 4E 63 D6 6F 8B 20 54 B2 34 33 |) . ..Nc.o. T.43|
00005B20: 20 A7 20 8D 20 32 38 35 30 30 20 3A 20 52 45 53 | . . 28500 : RES|
00005B30: 55 4C 54 20 B2 20 B5 28 52 45 53 55 4C 54 AA 54 |ULT . .(RESULT.T|
00005B40: 45 52 4D 29 20 3A 20 89 20 32 38 36 32 30 00 87 |ERM) : . 28620..|
00005B50: 63 E0 6F 8B 20 54 B2 34 35 20 A7 20 8D 20 32 38 |c.o. T.45 . . 28|
00005B60: 35 30 30 20 3A 20 52 45 53 55 4C 54 20 B2 20 B5 |500 : RESULT . .|
00005B70: 28 52 45 53 55 4C 54 AB 54 45 52 4D 29 20 3A 20 |(RESULT.TERM) : |
00005B80: 89 20 32 38 36 32 30 00 A9 63 EA 6F 52 45 53 55 |. 28620..c.oRESU|
00005B90: 4C 54 20 B2 20 30 20 3A 20 45 4E 20 B2 20 34 20 |LT . 0 : EN . 4 |
00005BA0: 3A 20 89 20 32 38 30 30 30 00 CD 63 1C 70 8F 2A |: . 28000..c.p.*|
00005BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 63 |*************..c|
00005BD0: 1D 70 8F 20 41 44 44 20 53 59 4D 42 4F 4C 20 54 |.p. ADD SYMBOL T|
00005BE0: 4F 20 53 59 4D 42 4F 4C 20 54 41 42 4C 45 00 12 |O SYMBOL TABLE..|
00005BF0: 64 1E 70 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |d.p.************|
00005C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005C10: 2A 2A 00 4C 64 26 70 8B 20 53 45 B1 B2 53 4D 20 |**.Ld&p. SE..SM |
00005C20: A7 20 45 58 49 54 20 B2 20 54 52 55 45 20 3A 20 |. EXIT . TRUE : |
00005C30: 50 41 53 53 20 B2 20 32 20 3A 20 45 4E 20 B2 20 |PASS . 2 : EN . |
00005C40: 31 34 20 3A 20 89 20 32 38 30 30 30 00 6A 64 30 |14 : . 28000.jd0|
00005C50: 70 8D 20 32 38 32 35 30 20 3A 20 8B 20 A8 20 45 |p. 28250 : . . E|
00005C60: 52 52 20 A7 20 32 38 38 33 30 00 85 64 44 70 54 |RR . 28830..dDpT|
00005C70: 24 20 B2 20 C8 28 48 24 AA 22 20 20 20 20 20 20 |$ . .(H$." |
00005C80: 20 22 2C 36 29 00 92 64 49 70 54 42 20 B2 20 50 | ",6)..dIpTB . P|
00005C90: 54 52 00 B0 64 4E 70 8D 20 32 38 31 35 30 20 3A |TR..dNp. 28150 :|
00005CA0: 20 8F 20 44 4F 45 53 20 3D 20 46 4F 4C 4C 4F 57 | . DOES = FOLLOW|
00005CB0: 00 DB 64 58 70 8B 20 54 B3 B1 36 31 20 A7 20 50 |..dXp. T..61 . P|
00005CC0: 54 52 20 B2 20 54 42 20 3A 20 52 45 20 B2 20 41 |TR . TB : RE . A|
00005CD0: 44 20 3A 20 89 20 32 38 37 38 30 00 F0 64 62 70 |D : . 28780..dbp|
00005CE0: 54 30 20 B2 20 54 20 3A 20 8D 20 32 38 36 30 30 |T0 . T : . 28600|
00005CF0: 00 FB 64 6C 70 45 4E 20 B2 20 30 00 37 65 76 70 |..dlpEN . 0.7evp|
00005D00: 8B 20 52 45 B3 30 20 B0 20 52 45 B1 36 35 35 33 |. RE.0 . RE.6553|
00005D10: 35 20 A7 20 53 54 24 28 53 45 29 B2 54 24 AA C7 |5 . ST$(SE).T$..|
00005D20: 28 30 29 AA C7 28 30 29 AA C7 28 32 29 20 3A 20 |(0)..(0)..(2) : |
00005D30: 89 20 32 38 38 31 30 00 69 65 80 70 53 54 24 28 |. 28810.ie.pST$(|
00005D40: 53 45 29 20 B2 20 54 24 AA C7 28 52 45 AB B5 28 |SE) . T$..(RE..(|
00005D50: 52 45 AD 32 35 36 29 AC 32 35 36 29 AA C7 28 B5 |RE.256).256)..(.|
00005D60: 28 52 45 AD 32 35 36 29 29 00 77 65 8A 70 53 45 |(RE.256)).we.pSE|
00005D70: 20 B2 20 53 45 AA 31 00 7D 65 94 70 8E 00 B2 65 | . SE.1.}e.p...e|
00005D80: 9E 70 8B 20 50 41 53 53 B2 31 20 AF 20 C3 28 53 |.p. PASS.1 . .(S|
00005D90: 54 24 28 54 31 29 29 B3 39 20 A7 20 53 54 24 28 |T$(T1)).9 . ST$(|
00005DA0: 54 31 29 20 B2 20 53 54 24 28 54 31 29 AA C7 28 |T1) . ST$(T1)..(|
00005DB0: 38 29 00 C8 65 A3 70 8B 20 50 41 53 53 B3 B1 32 |8)..e.p. PASS..2|
00005DC0: 20 A7 20 32 38 38 34 30 00 FE 65 A4 70 54 41 20 | . 28840..e.pTA |
00005DD0: B2 20 50 54 52 20 3A 20 8D 20 32 38 31 35 30 20 |. PTR : . 28150 |
00005DE0: 3A 20 8B 20 54 B3 B1 36 31 20 A7 20 50 54 52 20 |: . T..61 . PTR |
00005DF0: B2 20 54 41 20 3A 20 89 20 32 38 38 34 30 00 36 |. TA : . 28840.6|
00005E00: 66 A5 70 8D 20 32 36 30 30 30 20 3A 20 8F 20 53 |f.p. 26000 : . S|
00005E10: 43 41 4E 20 50 41 53 54 20 3D 20 53 49 47 4E 20 |CAN PAST = SIGN |
00005E20: 28 49 46 20 50 52 45 53 45 4E 54 29 20 4F 4E 20 |(IF PRESENT) ON |
00005E30: 50 41 53 53 20 32 00 57 66 A8 70 8B 20 50 41 53 |PASS 2.Wf.p. PAS|
00005E40: 53 B3 B1 32 20 B0 20 C3 28 53 54 24 28 54 31 29 |S..2 . .(ST$(T1)|
00005E50: 29 B3 39 20 A7 20 8E 00 7C 66 AD 70 45 4E 20 B2 |).9 . ..|f.pEN .|
00005E60: 20 C6 28 CA 28 53 54 24 28 54 31 29 2C 39 2C 31 | .(.(ST$(T1),9,1|
00005E70: 29 29 20 3A 20 89 20 32 38 30 30 30 00 A0 66 B2 |)) : . 28000..f.|
00005E80: 70 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |p.**************|
00005E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005EA0: 00 C0 66 B3 70 8F 20 54 45 53 54 20 46 4F 52 20 |..f.p. TEST FOR |
00005EB0: 4F 50 43 4F 44 45 2F 44 49 52 45 43 54 49 56 45 |OPCODE/DIRECTIVE|
00005EC0: 00 E4 66 B4 70 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..f.p.**********|
00005ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005EE0: 2A 2A 2A 2A 00 F0 66 BC 70 8D 20 32 38 31 35 30 |****..f.p. 28150|
00005EF0: 00 00 67 C6 70 45 52 52 20 B2 20 46 41 4C 53 45 |..g.pERR . FALSE|
00005F00: 00 10 67 DA 70 50 54 52 20 B2 20 50 54 52 AB 31 |..g.pPTR . PTR.1|
00005F10: 00 27 67 DF 70 8B 20 C3 28 48 24 29 B3 B1 33 20 |.'g.p. .(H$)..3 |
00005F20: A7 20 32 38 39 34 30 00 33 67 E4 70 50 4F 20 B2 |. 28940.3g.pPO .|
00005F30: 20 AB 32 00 41 67 EE 70 50 4F 20 B2 20 50 4F AA | .2.Ag.pPO . PO.|
00005F40: 33 00 61 67 F8 70 8B 20 48 24 B2 CA 28 54 41 24 |3.ag.p. H$..(TA$|
00005F50: 28 32 29 2C 50 4F 2C 33 29 20 A7 20 32 38 39 35 |(2),PO,3) . 2895|
00005F60: 30 00 81 67 02 71 8B 20 28 50 4F AA 33 29 B3 B2 |0..g.q. (PO.3)..|
00005F70: C3 28 54 41 24 28 32 29 29 20 A7 20 32 38 39 31 |.(TA$(2)) . 2891|
00005F80: 30 00 90 67 0C 71 45 52 52 20 B2 20 54 52 55 45 |0..g.qERR . TRUE|
00005F90: 00 A2 67 16 71 50 4F 20 B2 20 28 50 4F AB 31 29 |..g.qPO . (PO.1)|
00005FA0: AD 33 00 BA 67 20 71 45 52 52 20 B2 20 28 50 4F |.3..g qERR . (PO|
00005FB0: B2 35 36 29 20 B0 20 45 52 52 00 D2 67 2A 71 8B |.56) . ERR..g*q.|
00005FC0: 20 50 4F B1 35 36 20 A7 20 50 4F 20 B2 20 50 4F | PO.56 . PO . PO|
00005FD0: AB 31 00 D8 67 34 71 8E 00 EF 67 38 F9 8F 20 43 |.1..g4q...g8.. C|
00005FE0: 48 45 43 4B 53 55 4D 20 50 52 4F 47 52 41 4D 00 |HECKSUM PROGRAM.|
00005FF0: FB 67 39 F9 8D 20 36 33 38 31 30 00 07 68 3A F9 |.g9.. 63810..h:.|
00006000: 8D 20 36 33 38 34 30 00 1B 68 3B F9 8B 20 46 4C |. 63840..h;.. FL|
00006010: B1 B2 30 20 A7 20 36 33 38 30 32 00 21 68 3C F9 |..0 . 63802.!h<.|
00006020: 80 00 42 68 42 F9 96 A5 20 44 45 45 4B 28 58 29 |..BhB... DEEK(X)|
00006030: 20 B2 20 C2 28 58 29 AA 32 35 36 AC C2 28 58 AA | . .(X).256..(X.|
00006040: 31 29 00 5E 68 4C F9 8F 20 44 41 54 41 20 46 4F |1).^hL.. DATA FO|
00006050: 52 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 00 68 |R MACHINE CODE.h|
00006060: 68 4D F9 83 20 2A 2A 2A 00 96 68 4E F9 83 20 31 |hM.. ***..hN.. 1|
00006070: 36 35 2C 32 35 32 2C 31 36 36 2C 32 35 33 2C 31 |65,252,166,253,1|
00006080: 33 33 2C 30 32 30 2C 31 33 34 2C 30 32 31 2C 30 |33,020,134,021,0|
00006090: 33 32 2C 30 31 39 00 C4 68 4F F9 83 20 31 36 36 |32,019..hO.. 166|
000060A0: 2C 32 31 36 2C 31 36 30 2C 30 30 31 2C 31 37 37 |,216,160,001,177|
000060B0: 2C 30 39 35 2C 31 33 33 2C 32 35 34 2C 32 34 30 |,095,133,254,240|
000060C0: 2C 30 31 33 00 F2 68 50 F9 83 20 32 30 30 2C 31 |,013..hP.. 200,1|
000060D0: 37 37 2C 30 39 35 2C 31 33 33 2C 32 35 32 2C 32 |77,095,133,252,2|
000060E0: 30 30 2C 31 37 37 2C 30 39 35 2C 31 33 33 2C 32 |00,177,095,133,2|
000060F0: 35 33 00 20 69 51 F9 83 20 32 30 30 2C 31 36 39 |53. iQ.. 200,169|
00006100: 2C 30 30 30 2C 31 33 33 2C 32 35 31 2C 31 37 37 |,000,133,251,177|
00006110: 2C 30 39 35 2C 32 34 30 2C 30 30 36 2C 30 32 34 |,095,240,006,024|
00006120: 00 3E 69 52 F9 83 20 31 30 31 2C 32 35 31 2C 32 |.>iR.. 101,251,2|
00006130: 30 30 2C 32 30 38 2C 32 34 34 2C 30 39 36 00 47 |00,208,244,096.G|
00006140: 69 53 F9 83 20 2D 31 00 62 69 56 F9 8F 20 50 55 |iS.. -1.biV.. PU|
00006150: 54 20 44 41 54 41 20 49 4E 54 4F 20 4D 45 4D 4F |T DATA INTO MEMO|
00006160: 52 59 00 71 69 57 F9 41 44 20 B2 20 35 32 39 39 |RY.qiW.AD . 5299|
00006170: 32 00 77 69 58 F9 8C 00 95 69 59 F9 87 20 54 24 |2.wiX....iY.. T$|
00006180: 3A 20 8B 20 54 24 B3 B1 22 2A 2A 2A 22 20 A7 20 |: . T$.."***" . |
00006190: 36 33 38 33 33 00 C5 69 5A F9 87 20 54 20 3A 20 |63833..iZ.. T : |
000061A0: 8B 20 54 B1 B2 30 20 A7 20 97 20 41 44 2C 54 20 |. T..0 . . AD,T |
000061B0: 3A 20 41 44 20 B2 20 41 44 AA 31 20 3A 20 89 20 |: AD . AD.1 : . |
000061C0: 36 33 38 33 34 00 FD 69 5B F9 44 45 56 20 B2 20 |63834..i[.DEV . |
000061D0: 33 20 3A 20 49 4E 24 20 B2 20 22 22 20 3A 20 85 |3 : IN$ . "" : .|
000061E0: 20 22 4F 55 54 50 55 54 20 44 45 56 49 43 45 20 | "OUTPUT DEVICE |
000061F0: 4E 55 4D 42 45 52 20 22 3B 20 44 45 56 00 26 6A |NUMBER "; DEV.&j|
00006200: 5C F9 8B 20 44 45 56 B2 31 20 B0 20 44 45 56 B1 |\.. DEV.1 . DEV.|
00006210: 34 20 A7 20 85 20 22 46 49 4C 45 20 4E 41 4D 45 |4 . . "FILE NAME|
00006220: 20 22 3B 49 4E 24 00 69 6A 5D F9 52 24 20 B2 20 | ";IN$.ij].R$ . |
00006230: C7 28 31 33 29 20 3A 20 53 24 20 B2 20 22 2A 2A |.(13) : S$ . "**|
00006240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006260: 2A 2A 2A 2A 2A 22 AA 52 24 00 6F 6A 5E F9 8E 00 |*****".R$.oj^...|
00006270: 86 6A 60 F9 8F 20 44 4F 20 49 4E 49 54 41 4C 49 |.j`.. DO INITALI|
00006280: 53 41 54 49 4F 4E 00 B4 6A 61 F9 46 4C 20 B2 20 |SATION..ja.FL . |
00006290: 30 20 3A 20 85 20 22 46 49 52 53 54 20 4C 49 4E |0 : . "FIRST LIN|
000062A0: 45 20 22 3B 20 46 4C 20 3A 20 8B 20 46 4C B3 30 |E "; FL : . FL.0|
000062B0: 20 A7 20 8E 00 D8 6A 62 F9 4C 4C 20 B2 20 36 35 | . ...jb.LL . 65|
000062C0: 35 33 36 20 3A 20 85 20 22 4C 41 53 54 20 4C 49 |536 : . "LAST LI|
000062D0: 4E 45 20 22 3B 20 4C 4C 00 F0 6A 63 F9 85 20 22 |NE "; LL..jc.. "|
000062E0: 4D 4F 44 55 4C 45 20 4E 41 4D 45 20 22 3B 4D 24 |MODULE NAME ";M$|
000062F0: 00 02 6B 64 F9 9F 20 31 2C 44 45 56 2C 32 2C 49 |..kd.. 1,DEV,2,I|
00006300: 4E 24 00 41 6B 65 F9 98 31 2C 53 24 20 52 24 A6 |N$.Ake..1,S$ R$.|
00006310: 28 34 30 AB C3 28 4D 24 29 29 AD 32 29 4D 24 52 |(40..(M$)).2)M$R|
00006320: 24 20 52 24 22 4C 49 4E 45 20 4E 55 4D 42 45 52 |$ R$"LINE NUMBER|
00006330: 53 22 46 4C 22 54 4F 22 4C 4C 3B 52 24 53 24 52 |S"FL"TO"LL;R$S$R|
00006340: 24 00 56 6B 6A F9 8F 20 41 43 54 55 41 4C 20 50 |$.Vkj.. ACTUAL P|
00006350: 52 4F 47 52 41 4D 00 73 6B 6B F9 4C 4E 20 B2 20 |ROGRAM.skk.LN . |
00006360: 46 4C 20 3A 20 43 20 B2 20 30 20 3A 20 43 31 20 |FL : C . 0 : C1 |
00006370: B2 20 30 00 9D 6B 6C F9 97 20 32 35 32 2C 4C 4E |. 0..kl.. 252,LN|
00006380: AB B5 28 4C 4E AD 32 35 36 29 AC 32 35 36 20 3A |..(LN.256).256 :|
00006390: 20 97 20 32 35 33 2C 4C 4E AD 32 35 36 00 CB 6B | . 253,LN.256..k|
000063A0: 6D F9 9E 20 35 32 39 39 32 20 3A 20 43 53 20 B2 |m.. 52992 : CS .|
000063B0: 20 C2 28 32 35 31 29 20 3A 20 4C 4E 20 B2 20 A5 | .(251) : LN . .|
000063C0: 44 45 45 4B 28 32 35 32 29 AA 31 00 EE 6B 74 F9 |DEEK(252).1..kt.|
000063D0: 8F 20 46 4F 52 4D 41 54 20 4F 55 54 50 55 54 20 |. FORMAT OUTPUT |
000063E0: 49 4E 54 4F 20 33 20 43 4F 4C 55 4D 4E 53 00 22 |INTO 3 COLUMNS."|
000063F0: 6C 75 F9 54 24 20 B2 20 C8 28 C4 28 4C 4E AB 31 |lu.T$ . .(.(LN.1|
00006400: 29 AA 22 20 20 20 20 20 20 22 2C 36 29 AA C8 28 |)." ",6)..(|
00006410: C4 28 43 53 29 AA 22 20 20 20 20 20 20 20 22 2C |.(CS)." ",|
00006420: 37 29 00 2D 6C 76 F9 98 31 2C 54 24 3B 00 5D 6C |7).-lv..1,T$;.]l|
00006430: 78 F9 43 20 B2 20 43 AA 31 20 3A 20 8B 20 43 B1 |x.C . C.1 : . C.|
00006440: B2 33 20 A7 20 98 31 20 3A 20 43 20 B2 20 30 20 |.3 . .1 : C . 0 |
00006450: 3A 20 43 31 20 B2 20 43 31 20 AA 20 31 00 85 6C |: C1 . C1 . 1..l|
00006460: 79 F9 8B 20 43 31 B1 B2 32 30 20 AF 20 44 45 56 |y.. C1..20 . DEV|
00006470: B2 33 20 A7 20 43 31 20 B2 20 30 20 3A 20 8D 20 |.3 . C1 . 0 : . |
00006480: 36 33 39 39 38 00 A3 6C 7A F9 8B 20 4C 4E B3 B2 |63998..lz.. LN..|
00006490: 4C 4C 20 AF 20 C2 28 32 35 34 29 20 A7 20 36 33 |LL . .(254) . 63|
000064A0: 38 35 32 00 AF 6C 7B F9 A0 20 31 20 3A 20 8E 00 |852..l{.. 1 : ..|
000064B0: CA 6C 9A F9 A1 20 54 24 20 3A 20 8B 20 54 24 B2 |.l... T$ : . T$.|
000064C0: 22 22 20 A7 20 36 33 39 39 38 00 D0 6C 9B F9 8E |"" . 63998..l...|
000064D0: 00 00 00 FF |.... |
..%..'.******************************.B.
$'. GENERAL INITIALISATION.F..'.********
**********************.T./'BASE . 16...0
'. C(PTR$).C(E$)..255 . . : . 19000...3'
DEV . 1.R.8'.. HEX(X) . (X . 15).48.((X
. 15).9).7...B'.. DEC(X) . X.48.(X.57).7
...L'FALSE . 0 : TRUE . .1.%.V'. 53281,1
: . 53280,15.I.T'.*********************
*********.K.U'. CONTROL ROUTINE FOR MONI
TOR...V'.******************************.
Q.~'. EXIT TO BASIC,MEMORY MODIFY,MEMORY
DUMP,MACHINE CODE EXCUTE...'. LOAD MAC
HINE CODE FILE,SAVE MACHINE CODE FILE...
.'. DISASSEMBLER.*..'. FILE EDITOR.:..'.
ASSEMBLER.D.N'. END.J.X'..T..'X . 0....
'. "..--------- MACHINE CODE MONITOR ---
------.."....(. T$.F..(. T$.."END" . . .
5) X ")" T$ : X. X.1 : . 10250....(. X.1
5 . . Y . X . 15 : . : .....(. "COMMAND
( 0 -" X.1 " ) : ";: . T.(.<(. T.0 . T.X
. 10100.F.A(. T.0 . . ".....
.BYE.....": 1 : .. .F(. T .
13100,13300,13500,14300,14100,15800,248
00,20000...P(. 10100.P..*.**************
****************....*. CONVERT DECIMAL T
O HEX....*.*****************************
*.%..+T . H : H$ . "".E..+H$ . G(.HEX(T.
.(T.16).16)).H$ : T . .(T.16) : . T.0 .
11020.K.*+....\+.***********************
*******...]+. BYTE INTO HEX.G.^+.*******
***********************...F+H . B(AD) :
AD . AD.1...P+. 11000...Z+. C(H$).2 . H$
. "0".H$....+O2$ . O2$.H$. ..+..D..+.**
****************************._.A+. INPUT
FINISH ADDRESS...B+.*******************
***********...E+H$ . "".A.J+. "FINISH AD
DRESS ( IN HEX) : "; H$ : . 11950....+.
ERR . H.0 . H.65535 . 11200....+EA . H :
.....+.******************************.,
..+. INPUT FILE NAME.J..+. 25500 : . DEV
.4 . 11290.W..+IN$ . ""...+. " FILE NAM
E : "; IN$ : T . C(IN$)....,. T.16 . T.0
. . ".FILE NAME INVALID" : . 11260....,
....J..******************************...
K.. ASK CONTINUE ?...L..****************
**************.".R.T$ . "".B.T.. "CONTIN
UE ( Y/N ) : "; T$.E.^.. T$."Y" . CO . T
RUE : . 11895...H.. T$.."N" . . "."; : .
11850...R.CO . FALSE...W........*******
***********************...... CONVERT HE
X IN H$ TO DEC IN H......***************
***************.3.G.ERR . FALSE : H . 0
: . C(H$).0 . 12030.G.L.. X . 1 . C(H$).
P.V.T . .DEC(F(J(H$,X,1))): H . H.BASE.T
...... T.BASE.1 . T.0 . ERR . TRUE......
X. .....D../.**************************
****..../. INPUT START ADDRESS..../.****
**************************..../H$ . "".?
../. "START ADDRESS ( IN HEX ) : "; H$ :
.11950.A.0/. ERR . H.0 . H.65535 . 1206
0.P.:/AD . H : ...../.******************
************..../. HEX LOADER.I../.*****
*************************.V../T1$ . ""..
../. X1 . 1 . C(T$) . 2.-.F/T1$ . T1$.G(
.DEC(F(J(T$,X1,1))).16..DEC(F(J(T$,X1.1,
1)))).6../. X1.<../..`.H2.**************
****************.Q.I2. GET 1 BYTE...J2.*
*****************************...O2H$ . "
"...R2. "BYTE ( IN HEX ) : "; H$.L..2. 1
1950....2. ERR . H.0 . H.255 . . "." : .
13000....2.. .,3.**********************
********.4.-3. MEMORY MODIFY.X..3.******
************************.D.63. 12050...@
3H . AD : . 11000 : . H$ .6) "/" ; : O2$
. ""...T3. 11100 : AD . AD.1 : . H$ .6)
;.F.^3T$ . ""...H3. " +,-,I,E : "; T$..
.R3. T$."+" . AD.65535 . AD . AD.1 : . 1
3120.6.|3. T$."-" . AD.0 . AD . AD.1 : .
13120.G..3. T$."E" . ..G..3. T$.."I" .
.".." : . 13120....3. 13000 : . AD,H : .
13120....3.****************************
**.F..3. DUMP MEMORY TO SCREEN....3.****
**************************....3. 12050.#
..4. "." : . X1 . 1 . 18 : H . AD : . 11
000.F..4O2$ . "" : O1$ . H$ : O3$ . "".W
.&4. X2 . 0 . 7.S.04. 11100 : O2$ . O2$.
" ". .?4. H.31 . H.95 . O3$ . O3$.G(H) :
. 13380...A4O3$ . O3$."."...D4. X2.V.N4
. O1$ .5) O2$ .31) O3$...X4. X1...B4. :
. 11850 : . CO . 13320....4..(..4.******
************************.C..4. MACHINE C
ODE EXECUTE.G..4.***********************
*******.~.F4. 12050 : . AD : .....7.****
**************************....7. MACHINE
CODE SAVE....7.************************
******....7. 11250 : . 12050 : . 11200.B
.#7T$ . "N" : . DEV.8 . . "OVERWRITE EXI
STING FILE ( Y/N ) : "; T$.A.$7. T$."Y"
. IN$ . "@0:".IN$...(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. MA
CHINE CODE LOAD.K..7.*******************
***********.T..7. 11250 : . DEV.8 . IN$
. IN$.",S,R"....7. 2,DEV,0,IN$ : . 2,SA,
EA : . ST . 2 : ..S..8. X . SA . EA :
. 2,T : . X,T : . : 2 : ....D;.*******
***********************...E;. ADD OPERAN
D IN OP TO O1$.:.F;.********************
**********._.N;. OP.1 . 15450,15500,1555
0,15600....;. OP.6 . OP.10 . O1$ . O1$."
("....;. 11100....;O1$ . O1$."$" : T$ .
H$....<. OP.9 . 15390.I..<. 11100.Z..<O1
$ . O1$.H$....<O1$ . O1$.T$...(<. OP.9 .
OP.8 . O1$ . O1$.")".3.2<. OP..(OP.3).3
.1 . O1$ . O1$.",X".Y.<<. OP..(OP.3).3.2
. O1$ . O1$.",Y".T.F<. OP.7 . O1$ . O1$
.")".Z.P<....Z<.************************
******...[<. ACCUMULATOR (OP=0)...\<.***
***************************...D<O1$ . O1
$."A"....<. IMPLIED (OP=1)....<..,..<.**
****************************.C..<. IMMED
IATE (OP=2).G..<.***********************
*******.S.H<. 11100...R<O1$ . O1$."#$".H
$....<.....<.***************************
***.I..<. RELATIVE (OP=3)....<.*********
*********************....<. 11100....=.
H.127 . H . H.256....=H . H.AD.*..=. 110
00.?."=O1$ . O1$."$".H$.E.,=..I.T=.*****
*************************...U=. DISASSEM
BLE INSTRUCTION...V=.*******************
***********...^=O2$ . "".N.C=. 11100 : H
. H.1...H=. H.255 . H . 3...R=T . F(J(T
A$(0),H,1))....=O1$ . J(TA$(2),T.3.1,3).
" ".>..=OP . F(J(TA$(1),.((H.1).2),1)).\
..=. (H . 1) .1 . OP . OP.16.M..=OP . OP
. 15.S..=.....=.***********************
*******....=. DISASSEMBLE MEMORY AREA.Y.
.=.******************************...B=.
12050...L=. "." : . I . 1 . 20. .Q=H . A
D : . 11000 : . H$ .6) ;.6.V=. 15700 : .
15300.I..=. O2$ .14) O1$.Q..=. I.W..=..
C..=. 11850.T..>. CO . 15820.Z..>....8J.
******************************...9J. INI
TIALISE DECODER TABLES...:J.************
******************...=JBASE . 16...?J..
DEC(X) . X.48.(X.57).7...BJ. TA$(4).J.CJ
T$ . "0A22383838220238242202383822023
8".Y.DJT$ . T$."09223838382202380D223838
38220238"...EJT$ . T$."1C013838060127382
601273806012738".W.FJT$ . T$."0701383838
0127382C01383838012738".. GJT$ . T$."291
7383838172038231720381B172038".5 HJT$ .
T$."0B173838381720380F17383838172038".D
IJT$ . T$."2A00383838002838250028381B172
038". JJ. 12200 : TA$(0) . T1$.. KJT$ .
"0C003838380028382E00383838002838"..
LJT$ . T$."382F3838312F303816383538312F
3038"..!MJT$ . T$."032F3838312F3038372F3
638382F3838".;!NJT$ . T$."1F1D1E381F1D1E
38331D32381F1D1E38".J!OJT$ . T$."041D383
81F1D1E38101D34381F1D1E38"..!PJT$ . T$."
13113838131114381A11153813111438".H!QJT$
. T$."08113838381114380E11383838111438"
..!RJ. 12200 : TA$(0) . TA$(0).T1$.."SJT
$ . "122B3838122B1838192B2138122B1838
".F"TJT$ . T$."052B3838382B18382D2B38383
82B18".H"UJ. 12200 : TA$(0) . TA$(0).T1$
.."VJT$ . "1711166112011CC1381114411B
111AA1".F"WJT$ . T$."C71166611201CCC1381
114411B111AA1".."XJT$ . T$."171116611201
CCC1381114411B111AA1".$#YJT$ . T$."17111
66112019CC1381114411B111AA1".S#ZJT$ . T$
."171166611201CCC1381144511B111A11"..#[J
T$ . T$."272166611211CCC1381144511B11AAB
1"..#\JT$ . T$."271166611211CCC138111441
1B111AA1"..#]JT$ . T$."271166611211CCC13
81114411B111A"..$^J. 12200 : TA$(1) . T1
$.G(160).>$`JTA$(2) . "ADCANDASLB
CCBCSBEQBITBMIBNEBPLBRKBVCBVS".|$AJTA$(2
) . TA$(2)."CLCCLDCLICLVCMPCPXCPYDECDEXD
EYEORINCINX"..$BJTA$(2) . TA$(2)."INYJMP
JSRLDALDXLDYLSRNOPORAPHAPHPPLAPLP"..$CJT
A$(2) . TA$(2)."ROLRORRTIRTSSBCSECSEDSEI
STASTXSTYTAXTAY"..%DJTA$(2) . TA$(2)."TS
XTXATXSTYA???".J%FJTA$(2) . TA$(2)."BYTW
RDDBYENDORGPRTSYM".Y%GJT$ . "61210690
B0F02430D01000507018D858"..%HJT$ . T$."B
8CDECCCCECA884DEEE8C84C20ADAEAC".W%IJT$
. T$."4AEA0D480868282A6A4060ED38F8788D".
.%JJT$ . T$."8E8CAAA8BA8A9A98"..&KJ. 122
00 : TA$(3) . T1$.@&LJT$ . "FF11FFFFF
F090AFFFF1D0EFFFF051EFF".O&MJT$ . T$."FF
15FFFFFFFFFFFFFF01FFFFFF1916FF"..&NJT$ .
T$."FF2DFFFF2C293EFFFF3D2EFFFF2526FF".M
&OJT$ . T$."FF35FFFFFFFFFFFFFF31FFFFFF39
36FF"..&PJT$ . T$."FF51FFFFFF495EFFFF5D4
EFF6C4546FF".+'QJT$ . T$."FF55FFFFFFFFFF
FFFF41FFFFFF5956FF".Z'RJT$ . T$."FF6DFFF
FFF697EFFFF7D6EFFFF6566FF".U'SJ. 12200 :
TA$(4) . T1$..'TJT$ . "FF75FFFFFFFFF
FFFFF71FFFFFF7976FF".S'UJT$ . T$."FF91FF
FF949D96FFFFFFFFFF848586FF"..(VJT$ . T$.
"FF95FFFFFFFFFFFFFF81FFFFFF99FFFF".1(WJT
$ . T$."BCB1BEFFA0A9A2FFFFBDFFAFA4A5A6FF
".`(XJT$ . T$."FFB5FFFFFFFFFFFFFFA1FFFFB
4B9B6FF"..(YJT$ . T$."FFD1FFFFC0C9DEFFFF
DDFFFFC4C5C6FF"..(ZJT$ . T$."FFD5FFFFFFF
FFFFFFFC1FFFFFFD9D6FF"..({J. 12200 : TA$
(4) . TA$(4).T1$..)|JT$ . "FFF1FFFFE0
E9FEFFFFFDFFFFE4E5E6FF".<)}JT$ . T$."FFF
5FFFFFFFFFFFFFFE1FFFFFFF9F6".^)~J. 12200
: TA$(4) . TA$(4).T1$..).JSM . 50 : SE
. 0 : . STABLE$(SM)..).J. ERR$(18)..).JE
RR$(1) . "SINGLE BYTE OUT OF RANGE"..) J
ERR$(2) . "DOUBLE BYTE OUT OF RANGE"..*.
JERR$(3) . "INVALID OPRAND OR OPCODE"..*
.JERR$(4) . "INVALID OPERATOR".R*.JERR$(
5) . "INDEX IS NOT X OR Y".Z*.JERR$(6) .
"LABEL NOT ALPHA-NUMERIC". *.JERR$(7) .
"INCORRECT NUMBER BASE".D*.JERR$(8) . "
LABEL DEFINED TWICE"..*.JERR$(10) . "BRA
NCH OUT OF RANGE"..+.JERR$(11) . "UNDEFI
NED LABEL".5+.JERR$(12) . "ONLY SINGLE C
HR. EXPECTED".Z+.JERR$(14) . "OUT OF SYM
BOL SPACE".|+.JERR$(15) . "DIVISION BY Z
ERO"..+.JERR$(18) . "ADDRESSING MODE NOT
AVAILBLE WITH THIS OPCODE".T+.N. FI$(25
4) : . 24300.Z+.N...+ N.****************
**************..,!N. GENERATE ASSEMBLY L
ISTING.B,"N.****************************
**.K,%NSE . 0 : FMAX . C(PTR$) : SY . FA
LSE..,*N. " ERROR ONLY LISTING ( Y/N ) :
"; T$..,4NEO . H(T$,1)."Y".T,9N. " ASSEM
BLE TO MEMORY ( Y/N ) :"; T$..,=NAM . H(
T$,1)."Y"..->NAD . 0 : . SET START ADDRE
SS..-HN. Q . 1 . FMAX.G-RNIN$ . FILE$(F(
J(PTR$,Q,1))) : O$ . "".S-\N. 26400.I-FN
. EXIT . Q.FMAX.1.Q-PN. Q.~-UNT . .(X)..
-ZNAD . 0 : EC . 0 : . "ADD. DATA S
OURCE CODE".F-.N. Q . 1 . FMAX..-.NIN$ .
FILE$(F(J(PTR$,Q,1))) : O$ . ""..-.NQ1
. AD....N. 27600....N. ERR . 20250.+..N.
EO . 20222.@..NH . Q1 : . 11000.L..NQ$
. H$.Q.TNQ2 . 3 : . C(O$).Q2 . Q2 . C(O$
)...YNQ1$ ."" : . O$."" . 20221....N. Q3
. 1 . Q2.A..NH . F(J(O$,Q3,1)) : . 1100
0....N. C(H$).1 . H$ . "0".H$....NQ1$ .
Q1$.H$ : . Q3.#/.N. Q$ .6.C(Q$)) Q1$ .8.
C(Q1$)) ; : . 28100.>/.N. . AM . O$."" .
20250.N/.O. X . 1 . C(O$) : . Q1.X.1,F(
J(O$,X,1)) : .../.O. EXIT . Q . FMAX.1 :
. LEAVE LOOP../$O. Q.J/.O. : . " TOTAL
ERRORS IN FILE ---" EC : .../8O. SY . .
26900..0BO. B(152) .. 0 . .2 : 2 : . 20
300..0GO. T$ : . T$."" . 20295.$0LO..H0X
Y.******************************.L0ZY.**
****************************.~0.Y. FILE
EDITOR..0.Y. FIND LINE NUMBER IN 'LN' IN
FILE.A0.YT . C(PTR$).1 : T2 . .1..0.ZT
. T.1 : . T..0 . . 23080..0.ZT1 . F(J(PT
R$,T,1)).)1.ZT2 . F(J(FI$(T1),1,1)).256.
F(J(FI$(T1),2,1)).=1.Z. T2.LN . 23040.B1
(ZERR . .(T2.LN) : . ERR . T . T.1.H12Z.
..1<Z.******************************..1=
Z. ADD LINE TO FILE.G1>Z.***************
***************..1AZ. LN.0 . LN.65535 .
23215..1FZ. 23020..2PZ. . ERR . T1 . F(J
(PTR$,T,1)) : . 23150.@2ZZ. E$."" . ERR
. TRUE : . 23220._2DZT1 . F(E$) : E$ .
J(E$,2).R2NZT2 . .(LN.256)..2XZFI$(T1) .
G(LN.T2.256).G(T2).IN$..2.Z. . ERR . 23
220.B2.ZT$ . "" : T1$ . ""..2.Z. T.1 . T
$ . H(PTR$,T.1)..3 Z. T..C(PTR$) . T1$ .
J(PTR$,T)..3.ZPTR$ . T$.G(T1).T1$.*3.ZE
RR . FALSE.03.Z..T3.[.******************
************.V3.[. DELETE LINE POINTED A
T BY T..3.[.****************************
**..3.[T$ . "" : T1$ . "".N3.[. T.1 . T$
. H(PTR$,T.1)..3"[. T.C(PTR$) . T1$ . J
(PTR$,T.1)..4,[E$ . E$.J(PTR$,T,1)..46[P
TR$ . T$.T1$."4@[..F4H[.****************
**************.G4I[. LIST LINES POINTED
AT BY T..4J[.***************************
***..4R[. F(J(FI$(T),1,1)).256.F(J(FI$(T
),2,1)) .6) ;.O4|[. J(FI$(T),3).U4.[...4
L[.******************************..5M[.
START AND FINISH POINTERS.=5N[.*********
*********************.S5V[LN . SL : . 23
020.^5.[SP . T.T5.[LN . FL : . 23020.5.
[FP . T..5.[. ERR . FP . FP.1..5.[. FP.C
(PTR$) . FP . C(PTR$)..5.\...50\.*******
***********************..51\. LOAD FILE
FROM DEVICE..62\.***********************
*******.+6:\. 11250.J6?\. DEV.8 . IN$ .
IN$.",S,R".[6N\.2,DEV,0,IN$.Y6S\.2 , IN$
: . ST . . 23650..6X\. IN$.."END" . . 2
4000 : . 23900 : . 23100 : . 23635..6B\
2..6L\...6.\.**************************
****..6.\. SAVE FILE TO DEVICE."7.\.****
**************************..7.\. 11250.M
7.\. DEV.8 . IN$ . IN$.",S,W"..7.\T$ . "
N" : . DEV.8 . . "OVERWRITE EXISTING FIL
E ( Y/N ) : "; T$..7.\. T$."Y" . IN$ . "
@0:".IN$.G7.\.2,DEV,2,IN$ : . 2..7.\SL .
0 : FL . 65536..7F\. 24420 : .2 , "END"
..8P\.2 : 2..8.\../8\].***************
***************.K8]]. REMOVE LEADING SPA
CES.O8^].******************************.
.8F]. T . 1 . C(IN$)..8P]. J(IN$,T,1)."
" . . T..8.]IN$ . J(IN$,T) : ..Z8.].****
**************************..8A]. GET LIN
E NUMBER..9B].**************************
****.$9J]LN . .65536.T9T]. C(IN$).0 . IN
$."0" . H(IN$,1)."9" . 24090.I9.]. T . 1
. C(IN$)..9.]. J(IN$,T,1).."9" . J(IN$,
T,1).."0" . . T..9.^LN . E(H(IN$,T.1)) :
IN$ . J(IN$,T).E9.^...9.^.*************
*****************..:.^. FIRST AND LAST L
INES.(:.^.******************************
.V:.^IN$ . "" : . "FIRST - LAST LINES :
"; IN$..:.^SL . 0 : FL . 65535 : T3 . 0
: ERR . FALSE..:.^. C(IN$).0 . 24295..:.
^. 24000.H:.^. LN..0 . SL . LN : . 24260
..:.^. LN..65536 . FL . .LN : . 24295..;
D^. 23900 : . C(IN$).0 . FL . SL : . 242
95.7;N^IN$ . J(IN$,2) : . 23900.Z;.^. C(
IN$).0 . . 24000 : FL . LN..;.^ERR . SL.
0 . SL.65535 . FL.0 . FL.65535 . ERR : .
..;.^.******************************.J;.
^. INITIALISE FILE..;.^.****************
**************.-<.^PTR$ . "" : E$ . "" :
. X . 0 . 254 : E$ . E$.G(X) : . : ..Q<
P_.******************************.B<Q_.
LIST LINES..<R_.************************
******..<Z_. 24200 : . ERR . 24460.N<D_.
"." : . 23500 : . FP.SP. FP.0 . 24460..
=N_. T1 . SP . FP : T . F(J(PTR$,T1,1))
: . 23400 : . : ..1=._. B(152).0 . . T$
: . T$."" . 24455.7=._..[=._.***********
*******************.P=._. DELETE LINE(S)
..=._.******************************..=.
_. 24200 : . ERR . 24460.N=H_. 23500 : .
FP.SP . 24560..=R_T . SP : . T1 . SP .
FP : . 23300 : ...=._..">.`.************
******************.6>.`. INPUT LINE(S).Z
>.`.******************************.D>"`.
"."..>,`IN$ . "" : . IN$ : . 24000 : .
LN..65536 . 24665..>J`. 23900 : . C(IN$)
.0 . 24680.X>T`. 23100 : . . ERR . 24620
..>Y`...>H`. 23010 : . . ERR . . 23300..
?R`. 24620..?|`.************************
******.Q?}`. RENUMBER FILE IN STEPS OF 1
0.U?~`.******************************..?
.`LN . 10 : ERR . FALSE..?.`. C(PTR$).1
. 24780..?.`. T . 1 . C(PTR$).U?.`T1 . F
(J(PTR$,T,1))..@.`FI$(T1) . G(LN..(LN.25
6).256).G(LN.256).J(FI$(T1),3).!@.`LN .
LN.10 : ..'@L`..K@.`.*******************
***********.B@.`. FILE EDITOR MENU..@.`.
******************************..@.`. "..
------------ FILE EDITOR ------------.."
..@.A. " 0) EXIT FROM FILE EDITOR".
.@.A. " 1) INPUT LINE(S)"..A.A. "
2) LIST LINE(S)".<A.A. " 3) DEL
ETE LINE(S)".[A&A. " 4) RENUMBER FI
LE".|A0A. " 5) INITIALISE FILE"..A:
A. " 6) LOAD FILE"..ADA. " 7)
SAVE FILE"..ANA. " 8) ADD MACHINE C
ODE TO FILE"..BSA. " 9) CHANGE DEVI
CE NUMBER.....".'BXA. " COMMAND ( 0-9 )
: "; CO.6BLA. CO.0 . ..ZBVA. CO.0 . . CO
. 24600,24400,24500,24700,24300,23600,2
3700,25000..B.A. CO.8 . . CO.8 . 25500..
B.A. 24800.FB.A.************************
******..B.A. ADD TO FILE FROM MEMORY..C.
A.******************************.(C.A. 1
2050 : . 11200 : . 24200.@CZA. XY . AD .
EA . 15.HC.AIN$ . " BYT " : LN . SL : S
L . SL.5..C.A. XZ . 0 . 14 : O2$ . ""..C
.A. 11100 : IN$ . IN$."$".H$.PC.B. XZ.14
. AD..EA . IN$ . IN$."." : . XZ..C.B. 2
3100 : . XY : ...D.C.*******************
***********.&D.C. CHANGE DEVICE NUMBER.J
D.C.******************************.YD.C.
.19) DEV.YD.C. ".NEW DEVICE NUMBER:";DE
V.D.C...D.E.***************************
***.AD.E. SYMBOL UP TO COLON ETC...D.E.*
*****************************..D.EH$ . "
" : T1 . C(IN$)..E.EPTR . PTR.1.$E.E. T1
.PTR . 26060.<E.ET . F(J(IN$,PTR,1)).OE.
E. T.32 . 26020.|EBE. T..58 . T..59 . H$
. H$.G(T) : . 26020..ELE...E.E.********
**********************.DE.E. OPERAND TYP
E TO BE USED..E.E.**********************
********..E.ET6 . PTR : . 26000..F.FERR
. FALSE.*F.F. C(H$).0 . OP . 1 : ..DF.F.
H$."A" . OP . 0 : ..`F!F. F(H$).35 . OP
. 2 : ..LF:FOP . 12..FDF. H(H$,1)."(" .
OP . OP.3..FNFT . 1 : T1 . C(H$)..FXFT2
. F(J(H$,T,1))..FBF. T2..46 . T.T1 . T
. T.1 : . 26200..FLF. T2..46 . 26275..GV
FT . T.1 : . T.T1 . 26270.'G.FT2 . F(J(H
$,T,1)).IG.F. T2.89 . OP . OP.1 : . 2627
5.KG.F. T2.88 . OP . OP.2 : . 26275..G.F
. NOT A VALID INDEX..G FEN . 5 : . 28000
.TG.F.(OP.12).((PO.2.PO.6).(PO.6.PO.10).
PO.12.PO.11). OP . 3..G.F. ZERO PAGE OPR
ANDS..G.F. OP.10 . ...H.FT7 . PTR : PTR
. T6. H.F. 28600.?H.F. ERR . RESULT.255
. 26292.MH.FOP . OP.6.ZH.FPTR . T7.`H.F.
..H.F.******************************..H.
F. EVALUATE OPCODE..H.F.****************
**************.RHFFT1 . 3 : T . PO..HPFT
. F(J(TA$(T1),T.1,1))..IZF. T.255 . ERR
. TRUE : ..5I.FT1 . 4 : T2 . F(J(TA$(1)
,.(T.2.1),1)).UI.F. (1 . T).0 . T2 . .(T
2.16).FI.FT2 . T2 . 15.{I.F. T2..OP . 26
320..I.GO$ . O$.G(T)..I.GERR . FALSE..I.
G..FI G.******************************..
I!G. DO PASS 1 ASSEMBLY ON IN$..J"G.****
**************************.TJ%G. "......
.................
" ;..J&G. "
" ;..J'G. "..
....................." ;: . 28100.WJ*GPA
SS . 1 : EXIT . FALSE : PTR . 2..J4G. 28
850..J>G. . ERR . 26540..KHG. T.58 . C(H
$).0 . 26420.*KRG. T.59 . T..1 . ..6K\G.
28700.BKPG. 28850.VKZG. . ERR . 26540.S
K.G. T.58 . C(H$).0 . 26420.YK.G...K.G.
PO.55 . . 26600 : . 26556..K.G. 26100..K
.G. 26300 : . ERR . OP.3 . OP.7 . OP . O
P.6 : . 26552..K.G. 26560..L.G. C(IN$).P
TR . . EXIT . 26420..L.G..5L.G.*********
*********************.GLAG. BYTE LENGTH.
KLBG.******************************.YLEG
AD . AD.1..LJG. OP.1 . AD . AD.1..LTG. O
P.8 . AD . AD.1..L.G..QL.G.*************
*****************..L.G. CALCULATE DIRECT
IVE LENGTH..M.G.************************
******.&M.GT1 . C(IN$).LM.G. PO.56 . 267
20 : . BYT DIRECTIVE..M.H. PO.60 . . 286
00 : AD . RESULT : . DEAL WITH ORG DIREC
TIVE..M.H. PO.59 . EXIT . TRUE.OM.H. PO.
58 . . : . END & ORG DIRECTIVES..M.H. FI
ND LEN. OF WRD & DBY..M.HAD . AD.2..N$HP
TR . PTR.1..N.H. PTR.T1 . ..3N8HT . F(J(
IN$,PTR,1)).INBH. T.58 . T.59 . ..]NLH.
T..46 . 26660.INVH. 26650.N`H. LENGTH F
OR BYT...NJHAD . AD.1..NTHPTR . PTR.1..N
~H. PTR.T1 . ..FN.HT . F(J(IN$,PTR,1))..
N.H. T.58 . T.59 . ...N.H. T..46 . 26740
..N.H. 26730. O.I.**********************
********.BO.I. DUMP SYMBOL TABLE TO SCRE
EN.FO.I.******************************.Y
O.I. SE.1 . 26975.O#I...O(I. X . 0 . SE
.1..O2I. H(ST$(X),6) .10) ;.UO<IH . F(J(
ST$(X),8)).256.F(J(ST$(X),7))..OFI. 1100
0..OPI. H$..OZI. X..P_I. ". TOTAL NUMBER
OF SYMBOLS ---" SE.!PDI..EPXI.*********
*********************.\PYI. EVALUATE OPE
RAND..PZI.******************************
..P.IERR . FALSE..P.I. OP.2 . ...P.I. OP
.3 . 27500.EP I. OP.2 . 27400.QP.I. 2860
0..P.I. ERR . C(O$).0 . ..!Q.I. (RESULT.
0 . RESULT.255) . OP.9 . EN . 1 : . 2800
0.QQHI. RESULT.0 . RESULT.65535 . EN. 2
: . 28000.DQRI. OP.9 . 27140.ZQ.IT . .(R
ESULT.256)..Q.IRESULT . RESULT.T.256. Q.
I. 27140..Q.IRESULT . T.EQ.JO$ . O$.G(RE
SULT).KQ.J...Q@J.***********************
*******..RAJ. DIRECTIVE OPERAND EVALUATO
R.5RBJ.******************************.ER
EJERR . FALSE.HRJJ. PO.60 . . 28600 : AD
.RESULT..RNJ. PO.62 . SY . TRUE..ROJ. P
O.61 . . 2,4 : . 2 : . ".ADD. DATA
SOURCE CODE.".WRTJ. PO.59 . EXIT . TRUE.
.R^J. PO.58 . ...RHJ. PO.56 . 27330..SRJ
. DBY & WRD DIRECTIVES."S|J. 28600.SS.J.
RESULT.0 . RESULT.65535 . EN . 2 : . 28
000..S.J. PO.58 . RESULT . .(RESULT.256)
.256.(RESULT..(RESULT.256).256).PS.J. 27
280 REVERSES HI. & LO. BYTES IF DIRECTIV
E IS DBY..S.JT1 .T : . 27100 : AD . AD.2
..T.J. T1.32 . . 28150..T.J. T1.46 . 272
60. T.J..4TBJ. BYT DIRECTIVE.@TLJ. 28600
.OTVJ. RESULT.0 . RESULT.255 . EN . 1 :
. 28000..T.J. 27140 : AD . AD.1..T.J. T.
32 . . 28150..T.J. T.46 . 27340..T.J..YT
.K.******************************..T.K.
EVALUATE IMMEDIATE EXPRESSION.!U.K.*****
*************************.8U.KT5 . PTR :
. 26000.PU.K. F(H$)..35 . 27480.LU&K. J
(H$,2,1)."'" . 27450.YU0KPTR . T5..U2K.
PTR.C(IN$) . 27446.DU4K. F(J(IN$,PTR,1))
..35 . PTR . PTR.1 : . 27442..U6KOP . 8
: . 27050 : OP . 2..U8K...V:K. SINGLE CH
R. EXPECTED..VDK. C(H$)..3 . 27480.4VNKO
$ . O$.J(H$,3,1) : ..@VXKEN . 12.LVBK. 2
8000.PVLK.******************************
..VMK. EVALUATE RELATIVE EXPRESSION..VNK
.******************************.CVVK. 28
600..V.K. C(O$).0 . ERR . ...V.KRESULT .
RESULT.AD..W.K. RESULT.0 . RESULT . RES
ULT.256.<W.K. RESULT.256 . RESULT..0 . 2
7140.HW.KEN . 10.TW.K. 28000.XWPK.******
************************..WQK. DO PASS 2
ASSEMBLY..WRK.*************************
*****.CWUKPASSS . 2.OWZKO$ . ""..W.KEXIT
. FALSE : ERR . FALSE..W.KPTR . 2..X.K.
28850..X.K. . ERR . 27720.7X.L. T.58 .
C(H$).0 . 27630.[X.L. T.59 . T..1 . ERR
. FALSE : ..GX.L. 28700.SX.L. 28850..X L
. . ERR . 27720..X*L. T.58 . C(H$).0 . 2
7630.HX/L. T.59 . T..1 . ERR . FALSE : .
..X4LEN . 3 : . 28000..XHL. PO.55 . . 27
200 : . 27745.+YKLT5 . PTR : . 26100 : T
8 . PTR : PTR . T5.^YML. OP.7 . OP.3 .
OP . OP.6 : PTR . T5 : . 27725..YOL. OP.
7 . OP.3 . OP . OP.6 : PTR . T5 : . 2772
5..YPLEN . 18 : . 28000..YRL. 26560..Y\L
. . ERR . C(O$).0 . . 27000 : PTR . T8..
ZAL. C(IN$).PTR . . EXIT . 27630..ZFL..*
Z`M.******************************.HZAM.
ASSEMBLER ERROR ROUTINE.LZBM.**********
********************..ZEM. PTR..300 . PA
SS..2 . 28050 : . SUPRESS SECONDARY ERRO
RS IN LINE.IZJM. .14) ; : . 28100.WZOMEC
. EC.1..[TM. X . .13 . PTR : . "=" ;: .
X : . ".". [~M. " " ERR$(EN) " ERROR"
.;[.MPTR . 300 : ERR . TRUE.A[.M..E[DM.*
*****************************..[EM. PRIN
T IN$ TO THE SCREEN..[FM.***************
***************.V[XM. 256.F(J(IN$,2,1)).
F(J(IN$,1,1)) J(IN$,3)..[.M...\.M.******
************************.!\.M. SYMBOL TO
NON-LETTER/DIGIT.E\.M.*****************
*************.Z\.NH$ . "" : T . .1.J\.NP
TR . PTR.1..\.N. PTR.C(IN$) . 28210..\.N
T . 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) : . 28165.
.]2N..)]ZN.*****************************
*.A][N. FIND LABEL IN ST$.E]\N.*********
*********************..]DNERR . FALSE :
H . 0 : T1 . 0..]NN. C(H$).6 . H$ . H$."
" : . 28270.I]XN. T1.SE . ERR . TRUE :
...].N. J(ST$(T1),1,6)..H$ . T1 . T1.1 :
. 28280.,^.NH . F(J(ST$(T1),8,1)).256.F
(J(ST$(T1),7,1)) : ..P^.N.**************
****************.O^.N. EVALUATE LABEL OR
NUMBER..^.N.***************************
***..^ N. 28150..^.N. T.40 . C(H$).0 . .
28150.M^.NT1 . C(H$).._.N. (T..1 . T.32
. T.58 . T.59 . T.41 . T.46) . T1 . 0 .
..._.N. T1.0 . 28390.C_.N. F(H$)..57 .
H . E(H$) : . 28492.N_HN. 28250 : . FIND
LABEL IN SYMBOL TABLE.._RN. ERR . EN .
11 : H . 0 : . 28000. _.N. 28492.K_.N. H
EX,OCTAL OR BINARY NUMBERS EVALUATE.._.N
T2 . T : . 28150.._.N. C(H$).0 . 28450..
`.O. T2.36 . 28470.+`.O. T2.37 . BASE .
2 : . 28470.L`.O. T2.38 . BASE . 8 : . 2
8470.``"O. INVALID LABEL.}`,OH . 0 : EN
. 6 : . 28000..`6O. TEST IF VALID NUMBER
..`;O. 11950.C`@OBASE . 16 : . DEFAULT B
ASE..`JO. ERR . H . 0 : EN . 7 : . 28000
..ALOPTR . PTR.1 : . 28150 : . GET NEXT
OPERATOR..AOO..BATO.********************
**********.BAUO. EVALUATE TERM WITH * OR
/..AVO.******************************..
A^O. 28300 : TERM . H..AHO. PTR.C(IN$) .
...ARO. T.42 . . 28300 : TERM . .(TERM.
H) : . 28520..A.O. T..47 . ...B.O. 28300
.)B.O. H.0 . TERM . 0 : EN . 15 : . 2800
0.>B.OTERM . .(TERM.H).JB.O. 28520.NB.O.
******************************..B.O. EVA
LUATE EXPRESSION..B.O.******************
************..B.OERR . FALSE.XBBO. 28500
: RESULT . TERM..CLO.T..1. T.32 . T.58
. T.59 . T.41 . T.46 . PTR.C(IN$) . ..NC
VO. T.43 . . 28500 : RESULT . .(RESULT.T
ERM) : . 28620..C.O. T.45 . . 28500 : RE
SULT . .(RESULT.TERM) : . 28620..C.ORESU
LT . 0 : EN . 4 : . 28000.MC.P.*********
*********************..C.P. ADD SYMBOL T
O SYMBOL TABLE..D.P.********************
**********.LD&P. SE..SM . EXIT . TRUE :
PASS . 2 : EN . 14 : . 28000.JD0P. 28250
: . . ERR . 28830..DDPT$ . H(H$."
",6)..DIPTB . PTR..DNP. 28150 : . DOES
= FOLLOW..DXP. T..61 . PTR . TB : RE . A
D : . 28780..DBPT0 . T : . 28600..DLPEN
. 0.7EVP. RE.0 . RE.65535 . ST$(SE).T$.G
(0).G(0).G(2) : . 28810.IE.PST$(SE) . T$
.G(RE..(RE.256).256).G(.(RE.256)).WE.PSE
. SE.1.}E.P...E.P. PASS.1 . C(ST$(T1)).
9 . ST$(T1) . ST$(T1).G(8).HE.P. PASS..2
. 28840..E.PTA . PTR : . 28150 : . T..6
1 . PTR . TA : . 28840.6F.P. 26000 : . S
CAN PAST = SIGN (IF PRESENT) ON PASS 2.W
F.P. PASS..2 . C(ST$(T1)).9 . ..|F.PEN .
F(J(ST$(T1),9,1)) : . 28000. F.P.******
************************..F.P. TEST FOR
OPCODE/DIRECTIVE..F.P.******************
************..F.P. 28150..GFPERR . FALSE
..GZPPTR . PTR.1.'G.P. C(H$)..3 . 28940.
3G.PPO . .2.AG.PPO . PO.3.AG.P. H$.J(TA$
(2),PO,3) . 28950..G.Q. (PO.3)..C(TA$(2)
) . 28910..G.QERR . TRUE..G.QPO . (PO.1)
.3..G QERR . (PO.56) . ERR.RG*Q. PO.56 .
PO . PO.1.XG4Q...G8.. CHECKSUM PROGRAM.
.G9.. 63810..H:.. 63840..H;.. FL..0 . 63
802.!H<...BHB... DEEK(X) . B(X).256.B(X.
1).^HL.. DATA FOR MACHINE CODE.HHM.. ***
..HN.. 165,252,166,253,133,020,134,021,0
32,019.DHO.. 166,216,160,001,177,095,133
,254,240,013..HP.. 200,177,095,133,252,2
00,177,095,133,253. IQ.. 200,169,000,133
,251,177,095,240,006,024.>IR.. 101,251,2
00,208,244,096.GIS.. -1.BIV.. PUT DATA I
NTO MEMORY.QIW.AD . 52992.WIX....IY.. T$
: . T$.."***" . 63833.EIZ.. T : . T..0 .
. AD,T : AD . AD.1 : . 63834..I[.DEV .
3 : IN$ . "" : . "OUTPUT DEVICE NUMBER "
; DEV.&J\.. DEV.1 . DEV.4 . . "FILE NAME
";IN$.IJ].R$ . G(13) : S$ . "**********
*****************************".R$.OJ^...
.J`.. DO INITALISATION..JA.FL . 0 : . "F
IRST LINE "; FL : . FL.0 . ..XJB.LL . 65
536 : . "LAST LINE "; LL..JC.. "MODULE N
AME ";M$..KD.. 1,DEV,2,IN$.AKE..1,S$ R$.
(40.C(M$)).2)M$R$ R$"LINE NUMBERS"FL"TO"
LL;R$S$R$.VKJ.. ACTUAL PROGRAM.SKK.LN .
FL : C . 0 : C1 . 0..KL.. 252,LN..(LN.25
6).256 : . 253,LN.256.KKM.. 52992 : CS .
B(251) : LN . .DEEK(252).1..KT.. FORMAT
OUTPUT INTO 3 COLUMNS."LU.T$ . H(D(LN.1
)." ",6).H(D(CS)." ",7).-LV..
1,T$;.]LX.C . C.1 : . C..3 . .1 : C . 0
: C1 . C1 . 1..LY.. C1..20 . DEV.3 . C1
. 0 : . 63998..LZ.. LN..LL . B(254) . 63
852..L{. 1 : ..JL... T$ : . T$."" . 639
98.PL.......
> CLICK IMAGE PREVIEW FOR FULL MODAL