MAC CODE LOAD
FILE INFORMATION
FILENAME(S): MAC CODE LOAD
FILE TYPE(S): DEL
FILE SIZE: 1.3K
FIRST SEEN: 2025-12-02 02:15:03
APPEARS ON: 1 disk(s)
FILE HASH
331974fc934c44f25416d73d45a91375a7071623c5055f1091370f23448a5a5c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 03 | MAC CODE LOAD | DEL | The BAM Archive | 6 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 27 08 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..'.d..*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4C 08 65 00 8F 20 4D 41 |*******.L.e.. MA|
00000030: 43 48 49 4E 45 20 54 41 41 4C 20 50 52 4F 47 52 |CHINE TAAL PROGR|
00000040: 41 4D 4D 41 27 53 20 4C 41 44 45 4E 00 72 08 66 |AMMA'S LADEN.r.f|
00000050: 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 00 78 08 67 00 8F 00 B9 08 6E 00 44 45 56 |**.x.g.....n.DEV|
00000080: B2 38 3A 96 A5 44 45 43 28 58 29 B2 58 AB 34 38 |.8:..DEC(X).X.48|
00000090: AA 28 58 B1 35 37 29 AC 37 3A 96 A5 48 45 58 28 |.(X.57).7:..HEX(|
000000A0: 58 29 B2 28 58 AF 31 35 29 AA 34 38 AB 28 28 58 |X).(X.15).48.((X|
000000B0: AF 31 35 29 B1 39 29 AC 37 00 D0 08 78 00 97 35 |.15).9).7...x..5|
000000C0: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 31 31 |3280,0:.53281,11|
000000D0: 00 03 09 82 00 99 22 93 1E 20 2D 2D 2D 2D 2D 2D |......".. ------|
000000E0: 2D 2D 2D 2D 4C 4F 41 44 20 4D 41 43 48 49 4E 45 |----LOAD MACHINE|
000000F0: 20 43 4F 44 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | CODE ----------|
00000100: 20 98 22 00 16 09 8C 00 99 A6 31 38 29 22 81 22 | .".......18)"."|
00000110: 44 45 56 22 98 22 00 48 09 96 00 99 22 13 11 11 |DEV".".H...."...|
00000120: 4E 45 57 20 44 45 56 49 43 45 20 4E 55 4D 42 45 |NEW DEVICE NUMBE|
00000130: 52 3A 20 22 3B 3A 97 31 39 2C 31 3A 85 44 45 56 |R: ";:.19,1:.DEV|
00000140: 3A 97 31 39 2C 30 3A 99 00 73 09 A0 00 8B 44 45 |:.19,0:..s....DE|
00000150: 56 B2 34 A7 99 22 49 4E 56 41 4C 49 44 20 44 45 |V.4.."INVALID DE|
00000160: 56 49 43 45 20 4E 55 4D 4D 45 52 20 21 22 3A 89 |VICE NUMMER !":.|
00000170: 31 33 30 00 9B 09 AA 00 49 4E 24 B2 22 22 3A 85 |130.....IN$."":.|
00000180: 22 11 46 49 4C 45 20 4E 41 4D 45 20 22 3B 49 4E |".FILE NAME ";IN|
00000190: 24 3A 4C 45 B2 C3 28 49 4E 24 29 00 C8 09 B4 00 |$:LE..(IN$).....|
000001A0: 8B 4C 45 B3 30 B0 4C 45 B1 31 36 A7 99 22 46 49 |.LE.0.LE.16.."FI|
000001B0: 4C 45 20 4E 41 4D 45 20 54 4F 4F 20 4C 4F 4E 47 |LE NAME TOO LONG|
000001C0: 20 21 22 3A 89 31 37 30 00 E2 09 BE 00 8B 44 45 | !":.170......DE|
000001D0: 56 B2 38 A7 49 4E 24 B2 49 4E 24 AA 22 2C 53 2C |V.8.IN$.IN$.",S,|
000001E0: 52 22 00 0D 0A C8 00 9F 32 2C 44 45 56 2C 30 2C |R"......2,DEV,0,|
000001F0: 49 4E 24 3A 84 32 2C 53 41 3A 84 32 2C 45 41 3A |IN$:.2,SA:.2,EA:|
00000200: 8B 53 54 A7 A0 32 3A 8D 36 36 30 3A 80 00 43 0A |.ST..2:.660:..C.|
00000210: D2 00 A0 32 3A 8D 33 30 30 3A 49 44 24 B2 C8 28 |...2:.300:ID$..(|
00000220: 49 4E 24 2C 4C 45 AB 31 29 AA 22 21 22 AA CA 28 |IN$,LE.1)."!"..(|
00000230: 49 4E 24 2C 4C 45 AA 31 29 3A 97 35 33 32 36 35 |IN$,LE.1):.53265|
00000240: 2C 31 31 00 78 0A DC 00 9F 32 2C 44 45 56 2C 30 |,11.x....2,DEV,0|
00000250: 2C 49 44 24 3A 81 58 B2 53 41 A4 45 41 3A 84 32 |,ID$:.X.SA.EA:.2|
00000260: 2C 54 3A 97 58 2C 54 3A 82 3A A0 32 3A 97 35 33 |,T:.X,T:.:.2:.53|
00000270: 32 36 35 2C 32 37 3A 80 00 93 0A 2C 01 99 22 11 |265,27:....,..".|
00000280: 81 46 4F 55 4E 44 3A 20 98 22 C8 28 49 4E 24 2C |.FOUND: .".(IN$,|
00000290: 4C 45 29 00 B2 0A 36 01 99 22 44 55 4D 50 20 46 |LE)...6.."DUMP F|
000002A0: 52 4F 4D 1E 22 53 41 3B 3A 48 B2 53 41 3A 8D 35 |ROM."SA;:H.SA:.5|
000002B0: 30 30 00 D4 0A 40 01 99 22 98 28 1E 22 48 24 22 |00...@..".(."H$"|
000002C0: 98 29 20 54 4F 1E 22 45 41 3B 3A 48 B2 45 41 3A |.) TO."EA;:H.EA:|
000002D0: 8D 35 30 30 00 E6 0A 4A 01 99 22 98 28 1E 22 48 |.500...J..".(."H|
000002E0: 24 22 98 29 22 3A 00 0D 0B 54 01 99 22 44 55 4D |$".)":...T.."DUM|
000002F0: 50 20 53 4F 4D 45 57 48 45 52 45 20 45 4C 53 45 |P SOMEWHERE ELSE|
00000300: 20 3F 20 28 81 59 98 2F 81 4E 98 29 22 00 28 0B | ? (.Y./.N.)".(.|
00000310: 5E 01 A1 4B 24 3A 8B 4B 24 B2 22 4E 22 B0 4B 24 |^..K$:.K$."N".K$|
00000320: B2 C7 28 31 33 29 A7 8E 00 39 0B 68 01 8B 4B 24 |..(13)...9.h..K$|
00000330: B3 B1 22 59 22 89 33 35 30 00 4C 0B 72 01 48 41 |.."Y".350.L.r.HA|
00000340: B2 45 41 AB 53 41 3A 48 24 B2 22 22 00 7E 0B 7C |.EA.SA:H$."".~.||
00000350: 01 99 22 11 28 81 44 98 29 45 43 20 4F 52 20 28 |..".(.D.)EC OR (|
00000360: 81 48 98 29 45 58 20 44 55 4D 50 20 53 54 41 52 |.H.)EX DUMP STAR|
00000370: 54 20 41 44 44 52 45 53 53 20 3F 20 22 3B 00 B6 |T ADDRESS ? ";..|
00000380: 0B 86 01 A1 4B 24 3A 8B 4B 24 B2 22 44 22 A7 99 |....K$:.K$."D"..|
00000390: 22 81 44 98 22 3A 53 24 B2 22 28 49 4E 20 44 45 |".D.":S$."(IN DE|
000003A0: 43 29 22 3A 45 52 52 B2 46 41 4C 53 45 3A 44 B2 |C)":ERR.FALSE:D.|
000003B0: 30 3A 89 34 32 30 00 C7 0B 90 01 8B 4B 24 B3 B1 |0:.420......K$..|
000003C0: 22 48 22 89 33 39 30 00 E5 0B 9A 01 99 22 81 48 |"H".390......".H|
000003D0: 98 22 3A 44 B2 AB 31 3A 53 24 B2 22 28 49 4E 20 |.":D..1:S$."(IN |
000003E0: 48 45 58 29 22 00 09 0C A4 01 99 22 49 4E 50 55 |HEX)"......"INPU|
000003F0: 54 20 44 55 4D 50 20 53 54 41 52 54 20 41 44 44 |T DUMP START ADD|
00000400: 52 45 53 53 20 22 53 24 3B 00 19 0C AE 01 8B 44 |RESS "S$;......D|
00000410: A7 85 48 24 3A 8D 36 30 30 00 24 0C B8 01 8B A8 |..H$:.600.$.....|
00000420: 44 A7 85 48 00 59 0C C2 01 8B 45 52 52 B0 48 B3 |D..H.Y....ERR.H.|
00000430: 30 B0 48 B1 36 35 35 33 35 A7 99 22 49 4E 56 41 |0.H.65535.."INVA|
00000440: 4C 49 44 20 41 44 44 52 45 53 53 20 49 4E 50 55 |LID ADDRESS INPU|
00000450: 54 20 21 22 3A 89 34 32 30 00 6D 0C CC 01 53 41 |T !":.420.m...SA|
00000460: B2 48 3A 45 41 B2 53 41 AA 48 41 3A 8E 00 7B 0C |.H:EA.SA.HA:..{.|
00000470: F4 01 54 B2 48 3A 48 24 B2 22 22 00 AE 0C FE 01 |..T.H:H$."".....|
00000480: 48 24 B2 C7 28 A5 48 45 58 28 54 AB B5 28 54 AD |H$..(.HEX(T..(T.|
00000490: 31 36 29 AC 31 36 29 29 AA 48 24 3A 54 B2 B5 28 |16).16)).H$:T..(|
000004A0: 54 AD 31 36 29 3A 8B 54 B1 30 89 35 31 30 00 B4 |T.16):.T.0.510..|
000004B0: 0C 08 02 8E 00 CF 0C 58 02 45 52 52 B2 30 3A 48 |.......X.ERR.0:H|
000004C0: B2 30 3A 8B C3 28 48 24 29 B2 30 89 36 35 30 00 |.0:..(H$).0.650.|
000004D0: DE 0C 62 02 81 58 B2 31 A4 C3 28 48 24 29 00 00 |..b..X.1..(H$)..|
000004E0: 0D 6C 02 54 B2 A5 44 45 43 28 C6 28 CA 28 48 24 |.l.T..DEC(.(.(H$|
000004F0: 2C 58 2C 31 29 29 29 3A 48 B2 48 AC 31 36 AA 54 |,X,1))):H.H.16.T|
00000500: 00 15 0D 76 02 8B 54 B1 31 35 B0 54 B3 30 A7 45 |...v..T.15.T.0.E|
00000510: 52 52 B2 AB 31 00 1C 0D 80 02 82 58 00 22 0D 8A |RR..1......X."..|
00000520: 02 8E 00 58 0D 94 02 9F 31 35 2C 38 2C 31 35 3A |...X....15,8,15:|
00000530: 84 31 35 2C 41 24 2C 42 24 3A 99 22 11 9C 22 42 |.15,A$,B$:.".."B|
00000540: 24 22 20 21 98 20 5B 46 4F 55 54 20 22 41 24 22 |$" !. [FOUT "A$"|
00000550: 5D 22 3A A0 31 35 3A 8E 00 00 00 FF |]":.15:..... |
..'.D..********************************.
L.E.. MACHINE TAAL PROGRAMMA'S LADEN.R.F
..********************************.X.G..
...N.DEV.8:..DEC(X).X.48.(X.57).7:..HEX(
X).(X.15).48.((X.15).9).7.P.X..53280,0:.
53281,11......".. ----------LOAD MACHINE
CODE ---------- .".......18)"."DEV".".H
...."...NEW DEVICE NUMBER: ";:.19,1:.DEV
:.19,0:..S. ..DEV.4.."INVALID DEVICE NUM
MER !":.130.....IN$."":.".FILE NAME ";IN
$:LE.C(IN$).H....LE.0.LE.16.."FILE NAME
TOO LONG !":.170......DEV.8.IN$.IN$.",S,
R"...H..2,DEV,0,IN$:.2,SA:.2,EA:.ST. 2:.
660:..C.R. 2:.300:ID$.H(IN$,LE.1)."!".J(
IN$,LE.1):.53265,11.X....2,DEV,0,ID$:.X.
SA.EA:.2,T:.X,T:.: 2:.53265,27:....,..".
.FOUND: ."H(IN$,LE)...6.."DUMP FROM."SA;
:H.SA:.500.T.@..".(."H$".) TO."EA;:H.EA:
.500...J..".(."H$".)":...T.."DUMP SOMEWH
ERE ELSE ? (.Y./.N.)".(.^..K$:.K$."N".K$
.G(13)...9.H..K$.."Y".350.L.R.HA.EA.SA:H
$."".~.|..".(.D.)EC OR (.H.)EX DUMP STAR
T ADDRESS ? ";......K$:.K$."D"..".D.":S$
."(IN DEC)":ERR.FALSE:D.0:.420.G....K$..
"H".390......".H.":D..1:S$."(IN HEX)"...
..."INPUT DUMP START ADDRESS "S$;......D
..H$:.600.$.....D..H.Y.B..ERR.H.0.H.6553
5.."INVALID ADDRESS INPUT !":.420.M.L.SA
.H:EA.SA.HA:..{...T.H:H$."".....H$.G(.HE
X(T..(T.16).16)).H$:T..(T.16):.T.0.510..
.....O.X.ERR.0:H.0:.C(H$).0.650...B..X.1
.C(H$)...L.T..DEC(F(J(H$,X,1))):H.H.16.T
...V..T.15.T.0.ERR..1......X.".....X....
15,8,15:.15,A$,B$:.".."B$" !. [FOUT "A$"
]": 15:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL