|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 5 A D I M N P R S W
Length: 327680 (0x50000)
Description: Bits:30004682 Pascal Standard Assembler til MIKADOS
Types: 5¼" Floppy Disk, ImdContainer
| basis | type | name | artifact |
|---|---|---|---|
| 5 | R | ALLOCA | ⟦a74d6b5af⟧ Mikados_R |
| 22 | K | ALLOCA | ⟦37c90b855⟧ Mikados TextFile, Mikados_K |
| 5 | R | DEALLO | ⟦568ef0aca⟧ Mikados_R |
| 16 | K | DEALLO | ⟦3fab39963⟧ Mikados TextFile, Mikados_K |
| 5 | R | NEXT | ⟦da4384f95⟧ Mikados_R |
| 20 | K | NEXT | ⟦7c243856d⟧ Mikados TextFile, Mikados_K |
| 11 | K | PROBLK | ⟦da01989e3⟧ Mikados TextFile, Mikados_K |
| 5 | R | PROBLK | ⟦cc20721b5⟧ Mikados_R |
| 5 | R | PURGEF | ⟦1802046be⟧ Mikados_R |
| 22 | K | PURGEF | ⟦5444951d9⟧ Mikados TextFile, Mikados_K |
| 5 | R | RECEIV | ⟦29312c0f8⟧ Mikados_R |
| 30 | K | RECEIV | ⟦d0b78fe34⟧ Mikados TextFile, Mikados_K |
| 16 | K | REDBAK | ⟦0a1f1822f⟧ Mikados TextFile, Mikados_K |
| 5 | R | REDBAK | ⟦310f1ef80⟧ Mikados_R |
| 14 | K | RELEAS | ⟦49bb3db9c⟧ Mikados TextFile, Mikados_K |
| 5 | R | RELEAS | ⟦3130de17d⟧ Mikados_R |
| 5 | R | RENAMF | ⟦6c0181b14⟧ Mikados_R |
| 24 | K | RENAMF | ⟦4258eb824⟧ Mikados TextFile, Mikados_K |
| 17 | K | RESERV | ⟦00301a12f⟧ Mikados TextFile, Mikados_K |
| 5 | R | RESERV | ⟦e4961c28e⟧ Mikados_R |
| 5 | R | SENDM | ⟦b50f038ec⟧ Mikados_R |
| 36 | K | SENDM | ⟦8aae182f5⟧ Mikados TextFile, Mikados_K |
| 5 | R | SETPR | ⟦10af0f9a8⟧ Mikados_R |
| 10 | K | SETPR | ⟦4ef779dd0⟧ Mikados TextFile, Mikados_K |
| 5 | R | WAITNG | ⟦3d5b1cd73⟧ Mikados_R |
| 14 | K | WAITNG | ⟦ce0f0d22a⟧ Mikados TextFile, Mikados_K |
| 5 | R | WRIBAK | ⟦7f95b94c0⟧ Mikados_R |
| 14 | K | WRIBAK | ⟦2fa2ae016⟧ Mikados TextFile, Mikados_K |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0019,01 (0x019100)}, plart=»MIK «, pldto=»26.09.1981«, plbtg=»PASCASM1 «, pluda=»NNNNNNNNNN«}
0x00030…00040 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e ┆NNNNNNNNNNNNNNNN┆
0x00040…00060 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 00 00 00 00 00 00 00 00 00 00 00 00 f6 f6 f6 fc ┆NNNNNNNNNNNNNNNN ┆
0x00060…00080 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e ┆NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN┆
0x00080…000a0 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 00 00 00 00 00 00 00 00 00 00 00 00 f5 f5 ┆NNNNNNNNNNNNNNNNNN ┆
0x000a0…000c0 f5 fe 22 01 01 01 f7 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 4e 00 00 00 ┆ " NNNNNNNNNNNNNNNNNNNNNN ┆
0x000c0…000e0 00 00 00 00 00 00 00 00 00 f5 f5 f5 fb 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000e0…00100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00100…00200 (0, 0, 2) DirSect {
0x00100…00200 dent = [ // 0x100 @0x0
0x00100…00200 [0x00]: DirEnt {name=»PROBLK «, typ=»K«, seg=»A«, seg0={DA 0004,01 (0x004100)}}
0x00100…00200 [0x01]: DirEnt {name=»NEXT «, typ=»R«, seg=»A«, seg0={DA 0014,0b (0x014b00)}}
0x00100…00200 [0x02]:
0x00100…00200 [0x03]:
0x00100…00200 [0x04]:
0x00100…00200 [0x05]:
0x00100…00200 [0x06]:
0x00100…00200 [0x07]:
0x00100…00200 [0x08]:
0x00100…00200 [0x09]:
0x00100…00200 [0x0a]:
0x00100…00200 [0x0b]:
0x00100…00200 [0x0c]:
0x00100…00200 [0x0d]:
0x00100…00200 [0x0e]:
0x00100…00200 [0x0f]:
0x00100…00200 [0x10]:
0x00100…00200 [0x11]:
0x00100…00200 [0x12]:
0x00100…00200 ]
0x00100…00200 }
0x00200…00300 (0, 0, 3) EmptyDirSect
0x00300…00400 (0, 0, 4) DirSect {
0x00300…00400 dent = [ // 0x300 @0x0
0x00300…00400 [0x00]: DirEnt {name=»REDBAK «, typ=»K«, seg=»A«, seg0={DA 0008,00 (0x008000)}}
0x00300…00400 [0x01]: DirEnt {name=»RECEIV «, typ=»R«, seg=»A«, seg0={DA 0015,0a (0x015a00)}}
0x00300…00400 [0x02]:
0x00300…00400 [0x03]:
0x00300…00400 [0x04]:
0x00300…00400 [0x05]:
0x00300…00400 [0x06]:
0x00300…00400 [0x07]:
0x00300…00400 [0x08]:
0x00300…00400 [0x09]:
0x00300…00400 [0x0a]:
0x00300…00400 [0x0b]:
0x00300…00400 [0x0c]:
0x00300…00400 [0x0d]:
0x00300…00400 [0x0e]:
0x00300…00400 [0x0f]:
0x00300…00400 [0x10]:
0x00300…00400 [0x11]:
0x00300…00400 [0x12]:
0x00300…00400 ]
0x00300…00400 }
0x00400…00500 (0, 0, 5) EmptyDirSect
0x00500…00600 (0, 0, 6) DirSect {
0x00500…00600 dent = [ // 0x500 @0x0
0x00500…00600 [0x00]: DirEnt {name=»SETPR «, typ=»R«, seg=»A«, seg0={DA 0015,0f (0x015f00)}}
0x00500…00600 [0x01]:
0x00500…00600 [0x02]:
0x00500…00600 [0x03]:
0x00500…00600 [0x04]:
0x00500…00600 [0x05]:
0x00500…00600 [0x06]:
0x00500…00600 [0x07]:
0x00500…00600 [0x08]:
0x00500…00600 [0x09]:
0x00500…00600 [0x0a]:
0x00500…00600 [0x0b]:
0x00500…00600 [0x0c]:
0x00500…00600 [0x0d]:
0x00500…00600 [0x0e]:
0x00500…00600 [0x0f]:
0x00500…00600 [0x10]:
0x00500…00600 [0x11]:
0x00500…00600 [0x12]:
0x00500…00600 ]
0x00500…00600 }
0x00600…00700 (0, 0, 7) EmptyDirSect
0x00700…00800 (0, 0, 8) DirSect {
0x00700…00800 dent = [ // 0x700 @0x0
0x00700…00800 [0x00]: DirEnt {name=»RESERV «, typ=»K«, seg=»A«, seg0={DA 000e,08 (0x00e800)}}
0x00700…00800 [0x01]: DirEnt {name=»SENDM «, typ=»R«, seg=»A«, seg0={DA 0016,09 (0x016900)}}
0x00700…00800 [0x02]:
0x00700…00800 [0x03]:
0x00700…00800 [0x04]:
0x00700…00800 [0x05]:
0x00700…00800 [0x06]:
0x00700…00800 [0x07]:
0x00700…00800 [0x08]:
0x00700…00800 [0x09]:
0x00700…00800 [0x0a]:
0x00700…00800 [0x0b]:
0x00700…00800 [0x0c]:
0x00700…00800 [0x0d]:
0x00700…00800 [0x0e]:
0x00700…00800 [0x0f]:
0x00700…00800 [0x10]:
0x00700…00800 [0x11]:
0x00700…00800 [0x12]:
0x00700…00800 ]
0x00700…00800 }
0x00800…00900 (0, 0, 9) EmptyDirSect
0x00900…00a00 (0, 0, 10) DirSect {
0x00900…00a00 dent = [ // 0x900 @0x0
0x00900…00a00 [0x00]: DirEnt {name=»DEALLO «, typ=»R«, seg=»A«, seg0={DA 0016,0e (0x016e00)}}
0x00900…00a00 [0x01]:
0x00900…00a00 [0x02]:
0x00900…00a00 [0x03]:
0x00900…00a00 [0x04]:
0x00900…00a00 [0x05]:
0x00900…00a00 [0x06]:
0x00900…00a00 [0x07]:
0x00900…00a00 [0x08]:
0x00900…00a00 [0x09]:
0x00900…00a00 [0x0a]:
0x00900…00a00 [0x0b]:
0x00900…00a00 [0x0c]:
0x00900…00a00 [0x0d]:
0x00900…00a00 [0x0e]:
0x00900…00a00 [0x0f]:
0x00900…00a00 [0x10]:
0x00900…00a00 [0x11]:
0x00900…00a00 [0x12]:
0x00900…00a00 ]
0x00900…00a00 }
0x00a00…00b00 (0, 0, 11) EmptyDirSect
0x00b00…00c00 (0, 0, 12) DirSect {
0x00b00…00c00 dent = [ // 0xb00 @0x0
0x00b00…00c00 [0x00]: DirEnt {name=»WAITNG «, typ=»R«, seg=»A«, seg0={DA 0017,08 (0x017800)}}
0x00b00…00c00 [0x01]:
0x00b00…00c00 [0x02]:
0x00b00…00c00 [0x03]:
0x00b00…00c00 [0x04]:
0x00b00…00c00 [0x05]:
0x00b00…00c00 [0x06]:
0x00b00…00c00 [0x07]:
0x00b00…00c00 [0x08]:
0x00b00…00c00 [0x09]:
0x00b00…00c00 [0x0a]:
0x00b00…00c00 [0x0b]:
0x00b00…00c00 [0x0c]:
0x00b00…00c00 [0x0d]:
0x00b00…00c00 [0x0e]:
0x00b00…00c00 [0x0f]:
0x00b00…00c00 [0x10]:
0x00b00…00c00 [0x11]:
0x00b00…00c00 [0x12]:
0x00b00…00c00 ]
0x00b00…00c00 }
0x00c00…00d00 (0, 0, 13) EmptyDirSect
0x00d00…00e00 (0, 0, 14) DirSect {
0x00d00…00e00 dent = [ // 0xd00 @0x0
0x00d00…00e00 [0x00]: DirEnt {name=»RELEAS «, typ=»K«, seg=»A«, seg0={DA 0012,0f (0x012f00)}}
0x00d00…00e00 [0x01]:
0x00d00…00e00 [0x02]:
0x00d00…00e00 [0x03]:
0x00d00…00e00 [0x04]:
0x00d00…00e00 [0x05]:
0x00d00…00e00 [0x06]:
0x00d00…00e00 [0x07]:
0x00d00…00e00 [0x08]:
0x00d00…00e00 [0x09]:
0x00d00…00e00 [0x0a]:
0x00d00…00e00 [0x0b]:
0x00d00…00e00 [0x0c]:
0x00d00…00e00 [0x0d]:
0x00d00…00e00 [0x0e]:
0x00d00…00e00 [0x0f]:
0x00d00…00e00 [0x10]:
0x00d00…00e00 [0x11]:
0x00d00…00e00 [0x12]:
0x00d00…00e00 ]
0x00d00…00e00 }
0x00e00…00f00 (0, 0, 15) EmptyDirSect
0x00f00…01000 (0, 0, 16) DirSect {
0x00f00…01000 dent = [ // 0xf00 @0x0
0x00f00…01000 [0x00]: DirEnt {name=»ALLOCA «, typ=»R«, seg=»A«, seg0={DA 0018,0c (0x018c00)}}
0x00f00…01000 [0x01]:
0x00f00…01000 [0x02]:
0x00f00…01000 [0x03]:
0x00f00…01000 [0x04]:
0x00f00…01000 [0x05]:
0x00f00…01000 [0x06]:
0x00f00…01000 [0x07]:
0x00f00…01000 [0x08]:
0x00f00…01000 [0x09]:
0x00f00…01000 [0x0a]:
0x00f00…01000 [0x0b]:
0x00f00…01000 [0x0c]:
0x00f00…01000 [0x0d]:
0x00f00…01000 [0x0e]:
0x00f00…01000 [0x0f]:
0x00f00…01000 [0x10]:
0x00f00…01000 [0x11]:
0x00f00…01000 [0x12]:
0x00f00…01000 ]
0x00f00…01000 }
0x01000…01100 (0, 1, 1) EmptyDirSect
0x01100…01200 (0, 1, 2) DirSect {
0x01100…01200 dent = [ // 0x1100 @0x0
0x01100…01200 [0x00]: DirEnt {name=»PURGEF «, typ=»R«, seg=»A«, seg0={DA 0015,05 (0x015500)}}
0x01100…01200 [0x01]:
0x01100…01200 [0x02]:
0x01100…01200 [0x03]:
0x01100…01200 [0x04]:
0x01100…01200 [0x05]:
0x01100…01200 [0x06]:
0x01100…01200 [0x07]:
0x01100…01200 [0x08]:
0x01100…01200 [0x09]:
0x01100…01200 [0x0a]:
0x01100…01200 [0x0b]:
0x01100…01200 [0x0c]:
0x01100…01200 [0x0d]:
0x01100…01200 [0x0e]:
0x01100…01200 [0x0f]:
0x01100…01200 [0x10]:
0x01100…01200 [0x11]:
0x01100…01200 [0x12]:
0x01100…01200 ]
0x01100…01200 }
0x01200…01300 (0, 1, 3) EmptyDirSect
[…0x2…]
0x01500…01600 (0, 1, 6) DirSect {
0x01500…01600 dent = [ // 0x1500 @0x0
0x01500…01600 [0x00]: DirEnt {name=»RECEIV «, typ=»K«, seg=»A«, seg0={DA 000c,0a (0x00ca00)}}
0x01500…01600 [0x01]:
0x01500…01600 [0x02]:
0x01500…01600 [0x03]:
0x01500…01600 [0x04]:
0x01500…01600 [0x05]:
0x01500…01600 [0x06]:
0x01500…01600 [0x07]:
0x01500…01600 [0x08]:
0x01500…01600 [0x09]:
0x01500…01600 [0x0a]:
0x01500…01600 [0x0b]:
0x01500…01600 [0x0c]:
0x01500…01600 [0x0d]:
0x01500…01600 [0x0e]:
0x01500…01600 [0x0f]:
0x01500…01600 [0x10]:
0x01500…01600 [0x11]:
0x01500…01600 [0x12]:
0x01500…01600 ]
0x01500…01600 }
0x01600…01700 (0, 1, 7) EmptyDirSect
[…0x4…]
0x01b00…01c00 (0, 1, 12) DirSect {
0x01b00…01c00 dent = [ // 0x1b00 @0x0
0x01b00…01c00 [0x00]: DirEnt {name=»DEALLO «, typ=»K«, seg=»A«, seg0={DA 000f,09 (0x00f900)}}
0x01b00…01c00 [0x01]: DirEnt {name=»WRIBAK «, typ=»R«, seg=»A«, seg0={DA 0018,02 (0x018200)}}
0x01b00…01c00 [0x02]:
0x01b00…01c00 [0x03]:
0x01b00…01c00 [0x04]:
0x01b00…01c00 [0x05]:
0x01b00…01c00 [0x06]:
0x01b00…01c00 [0x07]:
0x01b00…01c00 [0x08]:
0x01b00…01c00 [0x09]:
0x01b00…01c00 [0x0a]:
0x01b00…01c00 [0x0b]:
0x01b00…01c00 [0x0c]:
0x01b00…01c00 [0x0d]:
0x01b00…01c00 [0x0e]:
0x01b00…01c00 [0x0f]:
0x01b00…01c00 [0x10]:
0x01b00…01c00 [0x11]:
0x01b00…01c00 [0x12]:
0x01b00…01c00 ]
0x01b00…01c00 }
0x01c00…01d00 (0, 1, 13) EmptyDirSect
0x01d00…01e00 (0, 1, 14) DirSect {
0x01d00…01e00 dent = [ // 0x1d00 @0x0
0x01d00…01e00 [0x00]: DirEnt {name=»WAITNG «, typ=»K«, seg=»A«, seg0={DA 0012,01 (0x012100)}}
0x01d00…01e00 [0x01]:
0x01d00…01e00 [0x02]:
0x01d00…01e00 [0x03]:
0x01d00…01e00 [0x04]:
0x01d00…01e00 [0x05]:
0x01d00…01e00 [0x06]:
0x01d00…01e00 [0x07]:
0x01d00…01e00 [0x08]:
0x01d00…01e00 [0x09]:
0x01d00…01e00 [0x0a]:
0x01d00…01e00 [0x0b]:
0x01d00…01e00 [0x0c]:
0x01d00…01e00 [0x0d]:
0x01d00…01e00 [0x0e]:
0x01d00…01e00 [0x0f]:
0x01d00…01e00 [0x10]:
0x01d00…01e00 [0x11]:
0x01d00…01e00 [0x12]:
0x01d00…01e00 ]
0x01d00…01e00 }
0x01e00…01f00 (0, 1, 15) EmptyDirSect
[…0x2…]
0x02100…02200 (1, 0, 2) DirSect {
0x02100…02200 dent = [ // 0x2100 @0x0
0x02100…02200 [0x00]: DirEnt {name=»ALLOCA «, typ=»K«, seg=»A«, seg0={DA 0004,0c (0x004c00)}}
0x02100…02200 [0x01]:
0x02100…02200 [0x02]:
0x02100…02200 [0x03]:
0x02100…02200 [0x04]:
0x02100…02200 [0x05]:
0x02100…02200 [0x06]:
0x02100…02200 [0x07]:
0x02100…02200 [0x08]:
0x02100…02200 [0x09]:
0x02100…02200 [0x0a]:
0x02100…02200 [0x0b]:
0x02100…02200 [0x0c]:
0x02100…02200 [0x0d]:
0x02100…02200 [0x0e]:
0x02100…02200 [0x0f]:
0x02100…02200 [0x10]:
0x02100…02200 [0x11]:
0x02100…02200 [0x12]:
0x02100…02200 ]
0x02100…02200 }
0x02200…02300 (1, 0, 3) EmptyDirSect
0x02300…02400 (1, 0, 4) DirSect {
0x02300…02400 dent = [ // 0x2300 @0x0
0x02300…02400 [0x00]: DirEnt {name=»SETPR «, typ=»K«, seg=»A«, seg0={DA 0007,06 (0x007600)}}
0x02300…02400 [0x01]: DirEnt {name=»PURGEF «, typ=»K«, seg=»A«, seg0={DA 0009,00 (0x009000)}}
0x02300…02400 [0x02]:
0x02300…02400 [0x03]:
0x02300…02400 [0x04]:
0x02300…02400 [0x05]:
0x02300…02400 [0x06]:
0x02300…02400 [0x07]:
0x02300…02400 [0x08]:
0x02300…02400 [0x09]:
0x02300…02400 [0x0a]:
0x02300…02400 [0x0b]:
0x02300…02400 [0x0c]:
0x02300…02400 [0x0d]:
0x02300…02400 [0x0e]:
0x02300…02400 [0x0f]:
0x02300…02400 [0x10]:
0x02300…02400 [0x11]:
0x02300…02400 [0x12]:
0x02300…02400 ]
0x02300…02400 }
0x02400…02500 (1, 0, 5) EmptyDirSect
0x02500…02600 (1, 0, 6) DirSect {
0x02500…02600 dent = [ // 0x2500 @0x0
0x02500…02600 [0x00]: DirEnt {name=»SENDM «, typ=»K«, seg=»A«, seg0={DA 000a,06 (0x00a600)}}
0x02500…02600 [0x01]:
0x02500…02600 [0x02]:
0x02500…02600 [0x03]:
0x02500…02600 [0x04]:
0x02500…02600 [0x05]:
0x02500…02600 [0x06]:
0x02500…02600 [0x07]:
0x02500…02600 [0x08]:
0x02500…02600 [0x09]:
0x02500…02600 [0x0a]:
0x02500…02600 [0x0b]:
0x02500…02600 [0x0c]:
0x02500…02600 [0x0d]:
0x02500…02600 [0x0e]:
0x02500…02600 [0x0f]:
0x02500…02600 [0x10]:
0x02500…02600 [0x11]:
0x02500…02600 [0x12]:
0x02500…02600 ]
0x02500…02600 }
0x02600…02700 (1, 0, 7) EmptyDirSect
[…0x2…]
0x02900…02a00 (1, 0, 10) DirSect {
0x02900…02a00 dent = [ // 0x2900 @0x0
0x02900…02a00 [0x00]: DirEnt {name=»RENAMF «, typ=»R«, seg=»A«, seg0={DA 0017,03 (0x017300)}}
0x02900…02a00 [0x01]:
0x02900…02a00 [0x02]:
0x02900…02a00 [0x03]:
0x02900…02a00 [0x04]:
0x02900…02a00 [0x05]:
0x02900…02a00 [0x06]:
0x02900…02a00 [0x07]:
0x02900…02a00 [0x08]:
0x02900…02a00 [0x09]:
0x02900…02a00 [0x0a]:
0x02900…02a00 [0x0b]:
0x02900…02a00 [0x0c]:
0x02900…02a00 [0x0d]:
0x02900…02a00 [0x0e]:
0x02900…02a00 [0x0f]:
0x02900…02a00 [0x10]:
0x02900…02a00 [0x11]:
0x02900…02a00 [0x12]:
0x02900…02a00 ]
0x02900…02a00 }
0x02a00…02b00 (1, 0, 11) EmptyDirSect
[…0x2…]
0x02d00…02e00 (1, 0, 14) DirSect {
0x02d00…02e00 dent = [ // 0x2d00 @0x0
0x02d00…02e00 [0x00]: DirEnt {name=»WRIBAK «, typ=»K«, seg=»A«, seg0={DA 0013,0d (0x013d00)}}
0x02d00…02e00 [0x01]:
0x02d00…02e00 [0x02]:
0x02d00…02e00 [0x03]:
0x02d00…02e00 [0x04]:
0x02d00…02e00 [0x05]:
0x02d00…02e00 [0x06]:
0x02d00…02e00 [0x07]:
0x02d00…02e00 [0x08]:
0x02d00…02e00 [0x09]:
0x02d00…02e00 [0x0a]:
0x02d00…02e00 [0x0b]:
0x02d00…02e00 [0x0c]:
0x02d00…02e00 [0x0d]:
0x02d00…02e00 [0x0e]:
0x02d00…02e00 [0x0f]:
0x02d00…02e00 [0x10]:
0x02d00…02e00 [0x11]:
0x02d00…02e00 [0x12]:
0x02d00…02e00 ]
0x02d00…02e00 }
0x02e00…02f00 (1, 0, 15) EmptyDirSect
0x02f00…03000 (1, 0, 16) DirSect {
0x02f00…03000 dent = [ // 0x2f00 @0x0
0x02f00…03000 [0x00]: DirEnt {name=»PROBLK «, typ=»R«, seg=»A«, seg0={DA 0018,07 (0x018700)}}
0x02f00…03000 [0x01]:
0x02f00…03000 [0x02]:
0x02f00…03000 [0x03]:
0x02f00…03000 [0x04]:
0x02f00…03000 [0x05]:
0x02f00…03000 [0x06]:
0x02f00…03000 [0x07]:
0x02f00…03000 [0x08]:
0x02f00…03000 [0x09]:
0x02f00…03000 [0x0a]:
0x02f00…03000 [0x0b]:
0x02f00…03000 [0x0c]:
0x02f00…03000 [0x0d]:
0x02f00…03000 [0x0e]:
0x02f00…03000 [0x0f]:
0x02f00…03000 [0x10]:
0x02f00…03000 [0x11]:
0x02f00…03000 [0x12]:
0x02f00…03000 ]
0x02f00…03000 }
0x03000…03100 (1, 1, 1) EmptyDirSect
0x03100…03200 (1, 1, 2) DirSect {
0x03100…03200 dent = [ // 0x3100 @0x0
0x03100…03200 [0x00]: DirEnt {name=»REDBAK «, typ=»R«, seg=»A«, seg0={DA 0015,00 (0x015000)}}
0x03100…03200 [0x01]:
0x03100…03200 [0x02]:
0x03100…03200 [0x03]:
0x03100…03200 [0x04]:
0x03100…03200 [0x05]:
0x03100…03200 [0x06]:
0x03100…03200 [0x07]:
0x03100…03200 [0x08]:
0x03100…03200 [0x09]:
0x03100…03200 [0x0a]:
0x03100…03200 [0x0b]:
0x03100…03200 [0x0c]:
0x03100…03200 [0x0d]:
0x03100…03200 [0x0e]:
0x03100…03200 [0x0f]:
0x03100…03200 [0x10]:
0x03100…03200 [0x11]:
0x03100…03200 [0x12]:
0x03100…03200 ]
0x03100…03200 }
0x03200…03300 (1, 1, 3) EmptyDirSect
0x03300…03400 (1, 1, 4) DirSect {
0x03300…03400 dent = [ // 0x3300 @0x0
0x03300…03400 [0x00]: DirEnt {name=»NEXT «, typ=»K«, seg=»A«, seg0={DA 0006,02 (0x006200)}}
0x03300…03400 [0x01]:
0x03300…03400 [0x02]:
0x03300…03400 [0x03]:
0x03300…03400 [0x04]:
0x03300…03400 [0x05]:
0x03300…03400 [0x06]:
0x03300…03400 [0x07]:
0x03300…03400 [0x08]:
0x03300…03400 [0x09]:
0x03300…03400 [0x0a]:
0x03300…03400 [0x0b]:
0x03300…03400 [0x0c]:
0x03300…03400 [0x0d]:
0x03300…03400 [0x0e]:
0x03300…03400 [0x0f]:
0x03300…03400 [0x10]:
0x03300…03400 [0x11]:
0x03300…03400 [0x12]:
0x03300…03400 ]
0x03300…03400 }
0x03400…03500 (1, 1, 5) EmptyDirSect
0x03500…03600 (1, 1, 6) DirSect {
0x03500…03600 dent = [ // 0x3500 @0x0
0x03500…03600 [0x00]: DirEnt {name=»RESERV «, typ=»R«, seg=»A«, seg0={DA 0016,04 (0x016400)}}
0x03500…03600 [0x01]:
0x03500…03600 [0x02]:
0x03500…03600 [0x03]:
0x03500…03600 [0x04]:
0x03500…03600 [0x05]:
0x03500…03600 [0x06]:
0x03500…03600 [0x07]:
0x03500…03600 [0x08]:
0x03500…03600 [0x09]:
0x03500…03600 [0x0a]:
0x03500…03600 [0x0b]:
0x03500…03600 [0x0c]:
0x03500…03600 [0x0d]:
0x03500…03600 [0x0e]:
0x03500…03600 [0x0f]:
0x03500…03600 [0x10]:
0x03500…03600 [0x11]:
0x03500…03600 [0x12]:
0x03500…03600 ]
0x03500…03600 }
0x03600…03700 (1, 1, 7) EmptyDirSect
[…0x4…]
0x03b00…03c00 (1, 1, 12) DirSect {
0x03b00…03c00 dent = [ // 0x3b00 @0x0
0x03b00…03c00 [0x00]: DirEnt {name=»RENAMF «, typ=»K«, seg=»A«, seg0={DA 0010,09 (0x010900)}}
0x03b00…03c00 [0x01]: DirEnt {name=»RELEAS «, typ=»R«, seg=»A«, seg0={DA 0017,0d (0x017d00)}}
0x03b00…03c00 [0x02]:
0x03b00…03c00 [0x03]:
0x03b00…03c00 [0x04]:
0x03b00…03c00 [0x05]:
0x03b00…03c00 [0x06]:
0x03b00…03c00 [0x07]:
0x03b00…03c00 [0x08]:
0x03b00…03c00 [0x09]:
0x03b00…03c00 [0x0a]:
0x03b00…03c00 [0x0b]:
0x03b00…03c00 [0x0c]:
0x03b00…03c00 [0x0d]:
0x03b00…03c00 [0x0e]:
0x03b00…03c00 [0x0f]:
0x03b00…03c00 [0x10]:
0x03b00…03c00 [0x11]:
0x03b00…03c00 [0x12]:
0x03b00…03c00 ]
0x03b00…03c00 }
0x03c00…03d00 (1, 1, 13) EmptyDirSect
[…0x4…]
0x04100…04120 (2, 0, 2) ExtentHdr {name=»PROBLK «, typ=»K«, seg=»A«, next=0x00, basis=0x000b, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,0c (0x004c00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x04120…04140 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x04140…04160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x04160…04180 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x04180…041a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x041a0…041c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x041c0…041e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x041e0…04200 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x04200…04220 (2, 0, 3) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x04220…04240 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x04240…04260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x04260…04280 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x04280…042a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x042a0…042c0 2a 2a 3e 3e 3b 2a 20 46 55 4e 43 54 49 4f 4e 20 4e 41 4d 45 3a 20 20 20 20 20 20 50 52 4f 42 4c ┆**>>;* FUNCTION NAME: PROBL┆
0x042c0…042e0 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K ┆
0x042e0…04300 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x04300…04320 (2, 0, 4) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04320…04340 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x04340…04360 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x04360…04380 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x04380…043a0 53 43 52 49 50 54 49 4f 4e 3a 0e 38 3b 20 54 48 49 53 20 46 55 4e 43 54 49 4f 4e 20 52 45 54 55 ┆SCRIPTION: 8; THIS FUNCTION RETU┆
0x043a0…043c0 52 4e 53 20 41 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 48 45 20 50 52 4f 43 45 53 53 20 43 4f 4e ┆RNS A POINTER TO THE PROCESS CON┆
0x043c0…043e0 54 52 4f 4c 38 1f 3b 20 42 4c 4f 43 4b 20 4f 46 20 54 48 45 20 43 41 4c 4c 49 4e 47 20 50 52 4f ┆TROL8 ; BLOCK OF THE CALLING PRO┆
0x043e0…04400 47 52 41 4d 2e 1f 3e 3b 20 50 4c 45 41 53 45 20 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 ┆GRAM. >; PLEASE REFER TO THE PAS┆
0x04400…04420 (2, 0, 5) 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d ┆CAL STANDARD ASSEMBLER PACKAGE M┆
0x04420…04440 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e 20 35 2e 32 20 46 4f 52 20 44 45 54 41 49 4c 53 ┆ANUAL> ; SECTION 5.2 FOR DETAILS┆
0x04440…04460 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆. ; >;-------------------------┆
0x04460…04480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x04480…044a0 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a ┆---->0; STACK CONTENTS ON ENTRY:┆
0x044a0…044c0 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 ┆ I I00; ┆
0x044c0…044e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d ┆ I--------┆
0x044e0…04500 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-------I00; ┆
0x04500…04520 (2, 0, 6) 20 20 20 20 20 20 20 20 20 49 20 20 52 45 54 55 52 4e 20 41 44 52 2e 20 20 49 30 30 3b 20 20 20 ┆ I RETURN ADR. I00; ┆
0x04520…04540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d ┆ I----┆
0x04540…04560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------I00; ┆
0x04560…04580 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 44 55 4d 4d 59 20 45 4c 45 4d 45 4e 54 20 49 30 30 ┆ I DUMMY ELEMENT I00┆
0x04580…045a0 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆; I┆
0x045a0…045c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---------------I00; ┆
0x045c0…045e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 44 55 4d 4d 59 20 45 4c 45 4d 45 4e 54 ┆ I DUMMY ELEMENT┆
0x045e0…04600 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x04600…04620 (2, 0, 7) 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x04620…04640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 44 55 4d 4d 59 20 45 4c 45 ┆ I DUMMY ELE┆
0x04640…04660 4d 45 4e 54 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MENT I00; ┆
0x04660…04680 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 ┆ I---------------I00; ┆
0x04680…046a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 44 55 4d 4d 59 ┆ I DUMMY┆
0x046a0…046c0 20 45 4c 45 4d 45 4e 54 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELEMENT I00; ┆
0x046c0…046e0 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 ┆ I---------------I00; ┆
0x046e0…04700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 ┆ I ┆
0x04700…04720 (2, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I0>;---------------┆
0x04720…04740 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x04740…04760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 ┆-------------->0; STACK CONTENTS┆
0x04760…04780 20 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆ ON EXIT: I I┆
0x04780…047a0 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆00; ┆
0x047a0…047c0 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x047c0…047e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d 3e 20 20 50 43 42 20 20 20 ┆ I -> PCB ┆
0x047e0…04800 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x04800…04820 (2, 0, 9) 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x04820…04840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 ┆ I ┆
0x04840…04860 20 20 20 20 20 20 20 49 30 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ I0>;=====================┆
0x04860…04880 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x04880…048a0 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 08 50 52 4f 42 4c 4b ┆========> SKIP PROBLK┆
0x048a0…048c0 3a 3a 08 01 20 01 2a 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 42 ┆:: * POP B ;B┆
0x048c0…048e0 43 3a 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 2a 1c 20 20 20 20 20 20 20 50 4f 50 20 20 20 ┆C:=RETURN ADDRESS* POP ┆
0x048e0…04900 20 20 44 20 20 20 20 20 20 20 3b 53 4b 49 50 1c 1f 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 ┆ D ;SKIP POP ┆
0x04900…04920 (2, 0, 10) 44 20 20 20 20 20 20 20 3b 20 20 44 55 4d 4d 59 1f 24 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 ┆D ; DUMMY $ POP ┆
0x04920…04940 20 44 20 20 20 20 20 20 20 3b 20 20 20 20 45 4c 45 4d 45 4e 54 53 24 26 20 20 20 20 20 20 20 50 ┆ D ; ELEMENTS$& P┆
0x04940…04960 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 4f 4e 20 53 54 41 43 4b 26 01 ┆OP D ; ON STACK& ┆
0x04960…04980 20 01 3c 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 52 55 4e 4e 20 20 20 20 3b 52 55 4e 4e 20 ┆ < LHLD RUNN ;RUNN ┆
0x04980…049a0 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 20 50 43 42 3c ┆CONTAINS THE ADDRESS OF THE PCB<┆
0x049a0…049c0 34 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 20 3b 50 55 53 48 20 41 44 ┆4 PUSH H ;PUSH AD┆
0x049c0…049e0 44 52 45 53 53 20 4f 46 20 50 43 42 20 4f 4e 20 53 54 41 43 4b 34 01 20 01 2e 20 20 20 20 20 20 ┆DRESS OF PCB ON STACK4 . ┆
0x049e0…04a00 20 50 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 3b 52 45 53 54 4f 52 45 20 52 45 54 55 52 4e ┆ PUSH B ;RESTORE RETURN┆
0x04a00…04a20 (2, 0, 11) 20 41 44 44 52 45 53 53 2e 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 0a 20 20 20 20 20 20 20 ┆ ADDRESS. RET ┆
0x04a20…04a40 45 4e 44 0a 00 00 2b cd 04 05 0b 25 00 00 00 05 02 08 3a 02 05 0b 17 00 00 00 05 04 08 a7 c8 2a ┆END + % : *┆
0x04a40…04a60 04 05 0b 26 00 00 00 05 03 08 eb 2a 03 05 0b 27 00 00 00 05 02 08 cd 02 05 0b 28 00 00 00 05 06 ┆ & * ' ( ┆
0x04a60…04a80 08 19 7c b5 f5 ca 06 04 0a 02 2c 02 04 04 08 42 4b cd 04 04 0a 02 00 00 04 02 08 01 02 05 0b 29 ┆ ø , BK )┆
0x04a80…04aa0 00 00 00 05 02 08 2a 02 05 0b 21 00 00 00 05 02 08 11 02 05 0b 29 00 00 00 05 02 08 cd 02 05 0b ┆ * ! ) ┆
0x04aa0…04ac0 01 00 00 00 05 06 08 19 eb 3e 02 2a 06 05 0b 02 00 00 00 05 02 08 cd 02 05 0b 03 00 00 00 05 03 ┆ > * ┆
0x04ac0…04ae0 08 f1 ca 03 04 0a 02 4e 02 04 02 08 2a 02 05 0b 27 00 00 00 05 04 08 44 4d cd 04 04 0a 02 00 00 ┆ N * ' DM ┆
0x04ae0…04b00 04 02 08 3a 02 05 0b 2a 00 00 00 05 05 08 3d f8 f5 01 05 05 0b 2b 00 00 00 05 07 08 11 01 00 3e ┆ : * = + >┆
0x04b00…04b20 (2, 0, 12) 41 46 53 54 41 20 20 20 52 43 02 05 00 00 00 00 0e 00 06 0f 00 07 41 04 00 09 00 45 43 42 34 20 ┆AFSTA RC A ECB4 ┆
0x04b20…04b40 02 2a 07 05 0b 02 00 00 00 05 02 08 cd 02 05 0b 03 00 00 00 05 03 08 f1 c3 03 04 0a 02 51 02 04 ┆ * Q ┆
0x04b40…04b60 03 08 23 22 03 05 0b 1d 00 00 00 05 05 08 7c b5 c0 2a 05 05 0b 16 00 00 00 05 02 08 22 02 05 0b ┆ #" ø * " ┆
0x04b60…04b80 1a 00 00 00 05 04 08 37 c9 2a 04 05 0b 16 00 00 00 05 05 08 01 00 00 3a 05 05 0b 17 00 00 00 05 ┆ 7 * : ┆
0x04b80…04ba0 03 08 a7 ca 03 04 0a 02 88 02 04 02 08 01 02 05 0b 18 00 00 00 05 02 08 cd 02 05 0b 19 00 00 00 ┆ ┆
0x04ba0…04bc0 05 04 08 09 eb 2a 04 05 0b 1a 00 00 00 05 02 08 cd 02 05 0b 28 00 00 00 05 17 08 19 7c b5 3e 01 ┆ * ( ø > ┆
0x04bc0…04be0 c8 97 c9 4f 78 41 07 c9 57 2b 23 15 f8 7e fe 40 c2 17 04 0a 02 c7 02 04 04 08 15 14 ca 04 04 0a ┆ OxA W+# ü @ ┆
0x04be0…04c00 02 be 02 04 07 08 23 7e 2b fe 40 c2 07 04 0a 02 be 02 04 02 08 cd 02 04 0a 02 cc 02 04 05 08 00 ┆ #ü+ @ ┆
0x04c00…04c20 (2, 0, 13) ExtentHdr {name=»ALLOCA «, typ=»K«, seg=»A«, next=0x00, basis=0x0016, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0006,02 (0x006200)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x04c20…04c40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x04c40…04c60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x04c60…04c80 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x04c80…04ca0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x04ca0…04cc0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x04cc0…04ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x04ce0…04d00 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x04d00…04d20 (2, 0, 14) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x04d20…04d40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x04d40…04d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x04d60…04d80 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x04d80…04da0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04da0…04dc0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 41 4c 4c 4f ┆**>>;* PROCEDURE NAME: ALLO┆
0x04dc0…04de0 43 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CA ┆
0x04de0…04e00 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x04e00…04e20 (2, 0, 15) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04e20…04e40 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 35 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 05-MAY-1980 ; >;===┆
0x04e40…04e60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x04e60…04e80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x04e80…04ea0 53 43 52 49 50 54 49 4f 4e 3a 0e 33 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 49 53 20 ┆SCRIPTION: 3; THIS PROCEDURE IS ┆
0x04ea0…04ec0 55 53 45 44 20 54 4f 20 41 4c 4c 4f 43 41 54 45 20 41 20 4d 45 4d 4f 52 59 20 41 52 45 41 2e 33 ┆USED TO ALLOCATE A MEMORY AREA.3┆
0x04ec0…04ee0 3e 3b 20 50 4c 45 41 53 45 20 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 41 4c 20 53 54 ┆>; PLEASE REFER TO THE PASCAL ST┆
0x04ee0…04f00 41 4e 44 41 52 44 20 41 53 53 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 4e 55 41 4c 3e ┆ANDARD ASSEMBLER PACKAGE MANUAL>┆
0x04f00…04f20 (2, 0, 16) 1a 3b 20 53 45 43 54 49 4f 4e 20 36 2e 31 20 46 4f 52 20 44 45 54 41 49 4c 53 2e 1a 01 3b 01 3e ┆ ; SECTION 6.1 FOR DETAILS. ; >┆
0x04f20…04f40 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆;-------------------------------┆
0x04f40…04f60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 ┆------------------------------>0┆
0x04f60…04f80 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 20 20 20 20 49 ┆; STACK CONTENTS ON ENTRY: I┆
0x04f80…04fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x04fa0…04fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I--------------┆
0x04fc0…04fe0 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-I00; ┆
0x04fe0…05000 20 20 20 49 20 52 45 54 55 52 4e 20 41 44 52 2e 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ I RETURN ADR. I00; ┆
0x05000…05020 (2, 1, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I----------┆
0x05020…05040 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----I00; ┆
0x05040…05060 20 20 20 20 20 20 20 49 20 20 2d 3e 20 53 54 41 54 55 53 20 20 20 20 49 30 30 3b 20 20 20 20 20 ┆ I -> STATUS I00; ┆
0x05060…05080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d ┆ I------┆
0x05080…050a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---------I00; ┆
0x050a0…050c0 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 4c 45 4e 47 54 48 20 20 20 20 20 49 30 30 3b 20 ┆ I LENGTH I00; ┆
0x050c0…050e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d ┆ I--┆
0x050e0…05100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-------------I00; ┆
0x05100…05120 (2, 1, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d 3e 20 41 44 44 52 45 53 53 20 20 20 49 ┆ I -> ADDRESS I┆
0x05120…05140 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆00; ┆
0x05140…05160 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x05160…05180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I ┆
0x05180…051a0 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I0>;-------------------------┆
0x051a0…051c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x051c0…051e0 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a 20 ┆---->$; STACK CONTENTS ON EXIT: ┆
0x051e0…05200 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ EMPTY$>;-------------------┆
0x05200…05220 (2, 1, 3) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x05220…05240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 3d 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 41 43 54 ┆---------->=; THIS PROCEDURE ACT┆
0x05240…05260 55 41 4c 4c 59 20 41 4c 4c 4f 43 41 54 45 53 20 54 48 52 45 45 20 42 59 54 45 53 20 4d 4f 52 45 ┆UALLY ALLOCATES THREE BYTES MORE┆
0x05260…05280 20 54 48 41 4e 20 54 48 45 3d 3b 3b 20 55 53 45 52 20 52 45 51 55 45 53 54 45 44 2e 20 54 48 45 ┆ THAN THE=;; USER REQUESTED. THE┆
0x05280…052a0 20 54 57 4f 20 46 49 52 53 54 20 42 59 54 45 53 20 4f 46 20 54 48 45 20 41 4c 4c 4f 43 41 54 45 ┆ TWO FIRST BYTES OF THE ALLOCATE┆
0x052a0…052c0 44 20 41 52 45 41 3b 3b 3b 20 41 52 45 20 54 48 45 4e 20 55 53 45 44 20 54 4f 20 48 4f 4c 44 20 ┆D AREA;;; ARE THEN USED TO HOLD ┆
0x052c0…052e0 54 48 45 20 4c 45 4e 47 54 48 20 4f 46 20 54 48 45 20 41 52 45 41 20 41 4e 44 20 41 52 45 20 55 ┆THE LENGTH OF THE AREA AND ARE U┆
0x052e0…05300 53 45 44 3b 3c 3b 20 57 48 45 4e 20 44 45 41 4c 4c 4f 20 49 53 20 43 41 4c 4c 45 44 3b 20 54 48 ┆SED;<; WHEN DEALLO IS CALLED; TH┆
0x05300…05320 (2, 1, 4) 45 20 54 48 49 52 44 20 42 59 54 45 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 43 4f 44 45 20 45 ┆E THIRD BYTE CONTAINS THE CODE E┆
0x05320…05340 45 3c 3e 3b 20 28 48 45 58 29 20 41 4e 44 20 49 53 20 41 20 46 4c 41 47 20 54 48 41 54 20 49 4e ┆E<>; (HEX) AND IS A FLAG THAT IN┆
0x05340…05360 44 49 43 41 54 45 53 20 54 48 41 54 20 54 48 49 53 20 50 41 52 54 49 43 55 4c 41 52 20 41 52 45 ┆DICATES THAT THIS PARTICULAR ARE┆
0x05360…05380 41 3e 0c 3b 20 49 53 20 49 4e 20 55 53 45 2e 0c 3d 3b 20 54 48 45 20 41 44 44 52 45 53 53 20 52 ┆A> ; IS IN USE. =; THE ADDRESS R┆
0x05380…053a0 45 54 55 52 4e 45 44 20 54 4f 20 54 48 45 20 55 53 45 52 20 49 53 20 54 48 45 20 41 44 44 52 45 ┆ETURNED TO THE USER IS THE ADDRE┆
0x053a0…053c0 53 53 20 4f 46 20 54 48 45 20 42 59 54 45 3d 22 3b 20 46 4f 4c 4c 4f 57 49 4e 47 20 54 48 45 20 ┆SS OF THE BYTE="; FOLLOWING THE ┆
0x053c0…053e0 54 48 52 45 45 20 45 58 54 52 41 20 42 59 54 45 53 2e 22 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆THREE EXTRA BYTES.">;===========┆
0x053e0…05400 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x05400…05420 (2, 1, 5) 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 0b 20 20 20 20 20 20 20 53 4b ┆==================> SK┆
0x05420…05440 49 50 0b 08 41 4c 4c 4f 43 41 3a 3a 08 07 20 20 20 20 20 20 20 07 01 3b 01 2c 3b 47 45 54 20 54 ┆IP ALLOCA:: ; ,;GET T┆
0x05440…05460 48 45 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 4f 46 20 54 48 45 20 4d 45 4d 4f 52 ┆HE REQUESTED LENGTH OF THE MEMOR┆
0x05460…05480 59 20 41 52 45 41 2c 01 3b 01 29 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 20 ┆Y AREA, ; ) POP B ┆
0x05480…054a0 20 20 3b 42 43 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 22 20 20 20 20 20 20 20 50 4f 50 ┆ ;BC=RETURN ADDRESS)" POP┆
0x054a0…054c0 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 53 54 41 54 55 53 22 2b 20 20 20 20 20 20 ┆ D ;DE->STATUS"+ ┆
0x054c0…054e0 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 3d 52 45 51 55 45 53 54 45 44 20 4c ┆ POP H ;HL=REQUESTED L┆
0x054e0…05500 45 4e 47 54 48 2b 10 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 10 10 20 20 20 20 20 20 20 ┆ENGTH+ PUSH B ┆
0x05500…05520 (2, 1, 6) 50 55 53 48 20 20 20 20 44 10 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUSH D 6 ┆
0x05520…05540 20 20 3b 54 48 45 20 53 54 41 43 4b 20 4e 4f 57 20 4c 4f 4f 4b 53 20 4c 49 4b 45 20 54 48 49 53 ┆ ;THE STACK NOW LOOKS LIKE THIS┆
0x05540…05560 3a 36 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 ┆:68 ; ┆
0x05560…05580 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 38 38 20 20 20 ┆ I I88 ┆
0x05580…055a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x055a0…055c0 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 ┆ I---------------I88 ┆
0x055c0…055e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 ┆ ; I ┆
0x055e0…05600 20 2d 3e 20 53 54 41 54 55 53 20 20 20 20 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ -> STATUS I88 ┆
0x05600…05620 (2, 1, 7) 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d ┆ ; I-------┆
0x05620…05640 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--------I88 ┆
0x05640…05660 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 52 45 54 2e 20 41 44 52 2e 20 20 ┆ ; I RET. ADR. ┆
0x05660…05680 20 20 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆ I88 ; ┆
0x05680…056a0 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 ┆ I---------------I88 ┆
0x056a0…056c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x056c0…056e0 20 20 20 20 20 20 49 20 20 2d 3e 20 41 44 44 52 45 53 53 20 20 20 49 38 38 20 20 20 20 20 20 20 ┆ I -> ADDRESS I88 ┆
0x056e0…05700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x05700…05720 (2, 1, 8) 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆I---------------I88 ┆
0x05720…05740 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 ┆ ; I ┆
0x05740…05760 20 20 20 20 20 20 20 20 20 20 49 38 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 10 20 ┆ I8 INX H ┆
0x05760…05780 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 3c 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 ┆ INX H < INX ┆
0x05780…057a0 48 20 20 20 20 20 20 20 3b 57 45 20 53 48 4f 55 4c 44 20 41 4c 4c 4f 43 41 54 45 20 54 48 52 45 ┆H ;WE SHOULD ALLOCATE THRE┆
0x057a0…057c0 45 20 45 58 54 52 41 20 42 59 54 45 53 3c 01 20 01 01 3b 01 34 3b 49 46 20 54 48 45 20 4c 45 4e ┆E EXTRA BYTES< ; 4;IF THE LEN┆
0x057c0…057e0 47 54 48 20 49 53 20 4c 45 53 53 20 54 48 41 4e 20 34 2c 20 34 20 42 59 54 45 53 20 41 52 45 20 ┆GTH IS LESS THAN 4, 4 BYTES ARE ┆
0x057e0…05800 41 4c 4c 4f 43 41 54 45 44 34 01 3b 01 28 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 48 ┆ALLOCATED4 ; ( MOV A,H┆
0x05800…05820 (2, 1, 9) 20 20 20 20 20 3b 41 3a 3d 4d 53 42 20 4f 46 20 4c 45 4e 47 54 48 28 1c 20 20 20 20 20 20 20 41 ┆ ;A:=MSB OF LENGTH( A┆
0x05820…05840 4e 41 20 20 20 20 20 41 20 20 20 20 20 20 20 3b 41 3d 30 3f 1c 2f 20 20 20 20 20 20 20 4a 4e 5a ┆NA A ;A=0? / JNZ┆
0x05840…05860 20 20 20 20 20 4c 45 4e 47 4f 4b 20 20 3b 4e 4f 20 28 49 2e 45 2e 20 4c 45 4e 47 54 48 20 3e 3d ┆ LENGOK ;NO (I.E. LENGTH >=┆
0x05860…05880 20 32 35 36 29 2f 2d 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4c 20 20 20 20 20 3b 59 ┆ 256)/- MOV A,L ;Y┆
0x05880…058a0 45 53 2c 20 41 3a 3d 4c 53 42 20 4f 46 20 4c 45 4e 47 54 48 2d 1c 20 20 20 20 20 20 20 43 50 49 ┆ES, A:=LSB OF LENGTH- CPI┆
0x058a0…058c0 20 20 20 20 20 34 20 20 20 20 20 20 20 3b 41 3c 34 3f 1c 1a 20 20 20 20 20 20 20 4a 4e 43 20 20 ┆ 4 ;A<4? JNC ┆
0x058c0…058e0 20 20 20 4c 45 4e 47 4f 4b 20 20 3b 4e 4f 1a 26 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4c ┆ LENGOK ;NO & MVI L┆
0x058e0…05900 2c 34 20 20 20 20 20 3b 59 45 53 2c 20 4c 45 4e 47 54 48 3a 3d 34 26 01 20 01 01 3b 01 0a 3b 41 ┆,4 ;YES, LENGTH:=4& ; ;A┆
0x05900…05920 (2, 1, 10) 4c 4c 4f 43 41 54 45 21 0a 01 3b 01 14 4c 45 4e 47 4f 4b 3a 43 41 4c 4c 20 20 20 20 41 4c 4c 4f ┆LLOCATE! ; LENGOK:CALL ALLO┆
0x05920…05940 43 14 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 3d 30 20 ┆C 6 ;DE=0 ┆
0x05940…05960 4f 52 20 44 45 3d 2d 31 20 49 4e 20 43 41 53 45 20 4f 46 20 45 52 52 4f 52 36 35 20 20 20 20 20 ┆OR DE=-1 IN CASE OF ERROR65 ┆
0x05960…05980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4f 54 48 45 52 57 49 53 45 3a 20 44 45 ┆ ;OTHERWISE: DE┆
0x05980…059a0 2d 3e 41 4c 4c 4f 43 41 54 45 44 20 41 52 45 41 35 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆->ALLOCATED AREA5> ┆
0x059a0…059c0 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 48 4c 3d 4c 45 4e 47 54 48 20 4f ┆ ; HL=LENGTH O┆
0x059c0…059e0 46 20 41 4c 4c 4f 43 41 54 45 44 20 41 52 45 41 3e 01 20 01 01 3b 01 08 3b 54 45 53 54 20 44 45 ┆F ALLOCATED AREA> ; ;TEST DE┆
0x059e0…05a00 08 01 3b 01 34 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 3b 53 41 56 ┆ ; 4 PUSH D ;SAV┆
0x05a00…05a20 (2, 1, 11) 45 20 41 44 44 52 2e 20 4f 46 20 41 4c 4c 4f 43 41 54 45 44 20 41 52 45 41 34 35 20 20 20 20 20 ┆E ADDR. OF ALLOCATED AREA45 ┆
0x05a20…05a40 20 20 49 4e 58 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 3d 31 20 4f 52 20 44 45 3d 30 20 ┆ INX D ;DE=1 OR DE=0 ┆
0x05a40…05a60 49 4e 20 43 41 53 45 20 4f 46 20 45 52 52 4f 52 35 24 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 ┆IN CASE OF ERROR5$ MOV ┆
0x05a60…05a80 20 41 2c 44 20 20 20 20 20 3b 41 3a 3d 4d 53 42 20 4f 46 20 44 45 24 1c 20 20 20 20 20 20 20 41 ┆ A,D ;A:=MSB OF DE$ A┆
0x05a80…05aa0 4e 41 20 20 20 20 20 41 20 20 20 20 20 20 20 3b 41 3d 30 3f 1c 2c 20 20 20 20 20 20 20 4a 4e 5a ┆NA A ;A=0? , JNZ┆
0x05aa0…05ac0 20 20 20 20 20 4f 4b 20 20 20 20 20 20 3b 4e 4f 2c 20 41 4c 4c 4f 43 41 54 49 4f 4e 20 49 53 20 ┆ OK ;NO, ALLOCATION IS ┆
0x05ac0…05ae0 4f 4b 2c 24 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 45 20 20 20 20 20 3b 41 3a 3d 4c ┆OK,$ MOV A,E ;A:=L┆
0x05ae0…05b00 53 42 20 4f 46 20 44 45 24 31 20 20 20 20 20 20 20 41 4e 41 20 20 20 20 20 41 20 20 20 20 20 20 ┆SB OF DE$1 ANA A ┆
0x05b00…05b20 (2, 1, 12) 20 3b 41 3d 30 3f 20 49 2e 45 2e 20 49 4c 4c 45 47 41 4c 20 4c 45 4e 47 54 48 3f 31 1a 20 20 20 ┆ ;A=0? I.E. ILLEGAL LENGTH?1 ┆
0x05b20…05b40 20 20 20 20 4a 4e 5a 20 20 20 20 20 4c 45 47 4c 45 4e 20 20 3b 4e 4f 1a 3d 20 20 20 20 20 20 20 ┆ JNZ LEGLEN ;NO = ┆
0x05b40…05b60 4d 56 49 20 20 20 20 20 41 2c 32 20 20 20 20 20 3b 59 45 53 2c 20 41 3a 3d 45 52 52 4f 52 20 43 ┆MVI A,2 ;YES, A:=ERROR C┆
0x05b60…05b80 4f 44 45 20 46 4f 52 20 49 4c 4c 45 47 41 4c 20 4c 45 4e 47 54 48 3d 23 20 20 20 20 20 20 20 4a ┆ODE FOR ILLEGAL LENGTH=# J┆
0x05b80…05ba0 4d 50 20 20 20 20 20 45 58 49 20 20 20 20 20 3b 47 4f 20 43 4c 45 41 4e 20 55 50 23 34 4c 45 47 ┆MP EXI ;GO CLEAN UP#4LEG┆
0x05ba0…05bc0 4c 45 4e 3a 43 50 49 20 20 20 20 20 31 20 20 20 20 20 20 20 3b 41 3d 31 3f 20 49 2e 45 2e 20 4e ┆LEN:CPI 1 ;A=1? I.E. N┆
0x05bc0…05be0 4f 20 41 52 45 41 20 41 56 41 49 4c 41 42 4c 45 3f 34 2c 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 ┆O AREA AVAILABLE?4, JNZ ┆
0x05be0…05c00 20 20 4f 4b 20 20 20 20 20 20 3b 4e 4f 2c 20 41 4c 4c 4f 43 41 54 49 4f 4e 20 49 53 20 4f 4b 2c ┆ OK ;NO, ALLOCATION IS OK,┆
0x05c00…05c20 (2, 1, 13) 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 59 45 53 2c 20 41 3d ┆= ;YES, A=┆
0x05c20…05c40 31 20 28 57 48 49 43 48 20 49 53 20 54 48 45 20 45 52 52 4f 52 20 43 4f 44 45 20 46 4f 52 3d 39 ┆1 (WHICH IS THE ERROR CODE FOR=9┆
0x05c40…05c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 ┆ ; ┆
0x05c60…05c80 20 20 20 20 20 20 20 4e 4f 20 41 52 45 41 20 41 56 41 49 4c 41 42 4c 45 29 39 23 20 20 20 20 20 ┆ NO AREA AVAILABLE)9# ┆
0x05c80…05ca0 20 20 4a 4d 50 20 20 20 20 20 45 58 49 20 20 20 20 20 3b 47 4f 20 43 4c 45 41 4e 20 55 50 23 01 ┆ JMP EXI ;GO CLEAN UP# ┆
0x05ca0…05cc0 20 01 01 3b 01 12 3b 41 4c 4c 4f 43 41 54 49 4f 4e 20 57 41 53 20 4f 4b 12 01 3b 01 31 4f 4b 3a ┆ ; ;ALLOCATION WAS OK ; 1OK:┆
0x05cc0…05ce0 20 20 20 20 58 52 41 20 20 20 20 20 41 20 20 20 20 20 20 20 3b 41 3a 3d 30 20 28 49 2e 45 2e 20 ┆ XRA A ;A:=0 (I.E. ┆
0x05ce0…05d00 4e 4f 20 45 52 52 4f 52 20 43 4f 44 45 29 31 01 20 01 01 3b 01 3c 3b 43 4c 45 41 4e 20 55 50 2e ┆NO ERROR CODE)1 ; <;CLEAN UP.┆
0x05d00…05d20 (2, 1, 14) 20 4d 4f 53 54 20 4f 46 20 54 48 49 53 20 43 4f 44 45 20 49 53 20 49 52 52 45 4c 45 56 41 4e 54 ┆ MOST OF THIS CODE IS IRRELEVANT┆
0x05d20…05d40 20 49 46 20 54 48 45 20 41 4c 4c 4f 43 41 54 49 4f 4e 3c 0e 3b 57 41 53 20 41 20 46 41 49 4c 55 ┆ IF THE ALLOCATION< ;WAS A FAILU┆
0x05d40…05d60 52 45 0e 01 3b 01 2a 45 58 49 3a 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 ┆RE ; *EXI: POP D ;D┆
0x05d60…05d80 45 2d 3e 41 4c 4c 4f 43 41 54 45 44 20 41 52 45 41 2a 3d 20 20 20 20 20 20 20 58 43 48 47 20 20 ┆E->ALLOCATED AREA*= XCHG ┆
0x05d80…05da0 20 20 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 41 4c 4c 4f 43 41 54 45 44 20 41 52 45 41 3b 20 44 ┆ ;HL->ALLOCATED AREA; D┆
0x05da0…05dc0 45 3d 4c 45 4e 47 54 48 20 4f 46 20 41 52 45 41 3d 24 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 ┆E=LENGTH OF AREA=$ MOV ┆
0x05dc0…05de0 20 4d 2c 45 20 20 20 20 20 3b 53 54 4f 52 45 20 4c 45 4e 47 54 48 24 2b 20 20 20 20 20 20 20 49 ┆ M,E ;STORE LENGTH$+ I┆
0x05de0…05e00 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 20 4f 46 20 41 4c 4c 4f 43 41 54 45 44 20 41 ┆NX H ; OF ALLOCATED A┆
0x05e00…05e20 (2, 1, 15) 52 45 41 2b 2f 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 44 20 20 20 20 20 3b 20 20 20 ┆REA+/ MOV M,D ; ┆
0x05e20…05e40 20 20 49 4e 20 46 49 52 53 54 20 54 57 4f 20 42 59 54 45 53 2f 10 20 20 20 20 20 20 20 49 4e 58 ┆ IN FIRST TWO BYTES/ INX┆
0x05e40…05e60 20 20 20 20 20 48 10 25 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 45 45 20 20 20 3b ┆ H % MVI M,0EE ;┆
0x05e60…05e80 53 45 54 20 46 4c 41 47 20 42 59 54 45 25 2e 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 ┆SET FLAG BYTE%. INX H ┆
0x05e80…05ea0 20 20 20 20 20 20 3b 41 4e 44 20 50 4f 49 4e 54 20 54 4f 20 4e 45 58 54 20 42 59 54 45 2e 32 20 ┆ ;AND POINT TO NEXT BYTE.2 ┆
0x05ea0…05ec0 20 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 2d 3e 54 48 45 20 41 ┆ XCHG ;DE->THE A┆
0x05ec0…05ee0 52 45 41 20 54 48 45 20 55 53 45 52 20 47 45 54 53 32 01 20 01 01 3b 01 2c 3b 52 45 47 2e 20 41 ┆REA THE USER GETS2 ; ,;REG. A┆
0x05ee0…05f00 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 53 54 41 54 55 53 20 56 41 4c 55 45 2e 20 53 54 4f 52 ┆ CONTAINS THE STATUS VALUE. STOR┆
0x05f00…05f20 (2, 1, 16) 45 20 49 54 2e 2c 01 3b 01 22 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 ┆E IT., ; " POP H ┆
0x05f20…05f40 20 3b 48 4c 2d 3e 53 54 41 54 55 53 22 2a 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 ┆ ;HL->STATUS"* MOV M,A┆
0x05f40…05f60 20 20 20 20 20 3b 53 54 4f 52 45 20 53 54 41 54 55 53 20 56 41 4c 55 45 2a 10 20 20 20 20 20 20 ┆ ;STORE STATUS VALUE* ┆
0x05f60…05f80 20 49 4e 58 20 20 20 20 20 48 10 37 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 ┆ INX H 7 MVI M,0 ┆
0x05f80…05fa0 20 20 20 3b 53 54 4f 52 45 20 30 20 49 4e 20 4d 53 42 2e 20 4f 46 20 53 54 41 54 55 53 20 56 41 ┆ ;STORE 0 IN MSB. OF STATUS VA┆
0x05fa0…05fc0 4c 55 45 37 01 20 01 01 3b 01 1e 3b 53 45 54 20 50 4f 49 4e 54 45 52 20 54 4f 20 41 4c 4c 4f 43 ┆LUE7 ; ;SET POINTER TO ALLOC┆
0x05fc0…05fe0 41 54 45 44 20 41 52 45 41 1e 01 3b 01 29 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 ┆ATED AREA ; ) POP H ┆
0x05fe0…06000 20 20 20 20 20 3b 48 4c 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 23 20 20 20 20 20 20 20 ┆ ;HL=RETURN ADDRESS)# ┆
0x06000…06020 (3, 0, 1) 58 54 48 4c 20 20 20 20 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 41 44 44 52 45 53 53 23 1d 20 20 ┆XTHL ;HL->ADDRESS# ┆
0x06020…06040 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 45 20 20 20 20 20 3b 53 54 4f 52 45 1d 24 20 20 20 ┆ MOV M,E ;STORE $ ┆
0x06040…06060 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 20 41 44 44 52 45 53 53 20 4f ┆ INX H ; ADDRESS O┆
0x06060…06080 46 24 2a 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 44 20 20 20 20 20 3b 20 20 20 20 41 ┆F$* MOV M,D ; A┆
0x06080…060a0 4c 4c 4f 43 41 54 45 44 20 41 52 45 41 2a 01 20 01 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 ┆LLOCATED AREA* RET ┆
0x060a0…060c0 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 a5 83 10 00 00 d2 11 a5 83 10 00 00 d2 11 a5 83 10 d2 ┆ END ┆
0x060c0…060e0 16 b9 31 a5 83 10 05 00 d2 11 a5 83 10 a6 08 46 50 45 20 20 20 20 20 00 d2 13 a5 83 10 02 00 d2 ┆ 1 FPE ┆
0x060e0…06100 11 a5 83 10 00 00 d2 11 a5 83 10 00 00 d2 11 a5 83 10 d2 16 9e 22 00 cb a1 08 c7 40 06 9e 22 82 ┆ " @ " ┆
0x06100…06120 (3, 0, 2) ae 02 a7 49 01 82 ab 49 44 c6 04 bc 05 05 8b a1 45 a5 83 10 05 00 d2 11 a5 83 10 a6 08 46 53 59 ┆ I ID E FSY┆
0x06120…06140 53 20 20 20 20 00 d2 13 a5 83 10 03 00 d2 11 a5 83 10 00 00 d2 11 a5 83 10 00 00 d2 11 a5 83 10 ┆S ┆
0x06140…06160 d2 16 9e 22 00 cb a1 08 c7 40 06 9e 22 82 ae 02 a7 49 01 82 ab 49 43 c6 04 bc 05 05 8b a1 45 a5 ┆ " @ " I IC E ┆
0x06160…06180 83 10 05 00 d2 11 a5 83 10 a6 08 50 43 4f 4d 50 20 20 20 00 d2 13 a5 83 10 04 00 d2 11 a5 83 10 ┆ PCOMP ┆
0x06180…061a0 00 00 d2 11 a5 83 10 00 00 d2 11 a5 83 10 d2 16 9e 22 00 cb a1 08 c7 40 06 9e 22 82 ae 02 a7 49 ┆ " @ " I┆
0x061a0…061c0 01 82 ab 49 a5 85 cc d9 01 95 82 3a bf a5 85 cc d9 82 31 bf a5 85 cc d9 01 82 82 30 bf a5 85 cc ┆ I : 1 0 ┆
0x061c0…061e0 d9 02 82 82 3a bf a5 85 cc d9 03 82 82 50 bf a5 85 cc 00 82 d9 03 82 bf a5 85 dc a5 85 cc 00 00 ┆ : P ┆
0x061e0…06200 d2 05 9e 22 00 cb a1 08 c7 b0 04 9e 22 82 ae 02 a5 85 dc 00 d2 08 9e 22 00 cb a1 08 c7 dc 05 63 ┆ " " " c┆
0x06200…06220 (3, 0, 3) ExtentHdr {name=»NEXT «, typ=»K«, seg=»A«, next=0x00, basis=0x0014, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,06 (0x007600)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x06220…06240 33 3b 50 41 53 43 41 4c 20 44 49 52 45 43 54 20 49 4e 50 55 54 20 49 4e 54 45 52 46 41 43 45 20 ┆3;PASCAL DIRECT INPUT INTERFACE ┆
0x06240…06260 52 4f 55 54 49 4e 45 53 20 2d 20 52 4d 2d 38 30 30 33 31 37 33 33 3b 20 20 20 20 20 20 20 20 20 ┆ROUTINES - RM-80031733; ┆
0x06260…06280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06280…062a0 43 54 2d 38 30 30 35 31 34 33 01 3b 01 01 3b 01 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆CT-8005143 ; ; F;**************┆
0x062a0…062c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x062c0…062e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 46 2a 3b 20 41 56 41 49 4c ┆***********************F*; AVAIL┆
0x062e0…06300 20 2d 20 54 45 53 54 20 49 46 20 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 20 41 56 41 49 4c 41 ┆ - TEST IF NEXT CHARACTER AVAILA┆
0x06300…06320 (3, 0, 4) 42 4c 45 2a 01 3b 01 1a 3b 20 46 55 4e 43 54 49 4f 4e 20 41 56 41 49 4c 3a 20 42 4f 4f 4c 45 41 ┆BLE* ; ; FUNCTION AVAIL: BOOLEA┆
0x06320…06340 4e 3b 1a 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆N; F;***************************┆
0x06340…06360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06360…06380 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 46 01 3b 01 13 41 56 41 49 4c 3a 3a 4c 48 4c 44 20 20 20 20 53 50 ┆**********F ; AVAIL::LHLD SP┆
0x06380…063a0 49 4c 13 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 12 12 20 20 20 20 20 20 20 4d ┆IL MOV A,M M┆
0x063a0…063c0 56 49 20 20 20 20 20 43 2c 30 12 10 20 20 20 20 20 20 20 41 4e 41 20 20 20 20 20 41 10 14 20 20 ┆VI C,0 ANA A ┆
0x063c0…063e0 20 20 20 20 20 4a 5a 20 20 20 20 20 20 41 56 41 49 31 14 10 20 20 20 20 20 20 20 49 4e 52 20 20 ┆ JZ AVAI1 INR ┆
0x063e0…06400 20 20 20 43 10 30 41 56 41 49 31 3a 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 52 45 ┆ C 0AVAI1: POP H ;RE┆
0x06400…06420 (3, 0, 5) 54 55 52 4e 20 41 44 44 52 45 53 53 20 54 4f 20 50 41 53 43 41 4c 30 10 20 20 20 20 20 20 20 50 ┆TURN ADDRESS TO PASCAL0 P┆
0x06420…06440 4f 50 20 20 20 20 20 44 10 10 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 10 10 20 20 20 20 ┆OP D POP D ┆
0x06440…06460 20 20 20 50 4f 50 20 20 20 20 20 44 10 10 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 10 25 ┆ POP D POP D %┆
0x06460…06480 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 3b 4c 4f 47 49 43 41 4c 20 ┆ PUSH B ;LOGICAL ┆
0x06480…064a0 56 41 4c 55 45 25 0b 20 20 20 20 20 20 20 50 43 48 4c 0b 01 3b 01 01 3b 01 46 3b 2a 2a 2a 2a 2a ┆VALUE% PCHL ; ; F;*****┆
0x064a0…064c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x064e0…06500 46 28 3b 20 4e 45 58 54 20 2d 20 57 41 49 54 20 46 4f 52 20 41 4e 44 20 47 45 54 20 4e 45 58 54 ┆F(; NEXT - WAIT FOR AND GET NEXT┆
0x06500…06520 (3, 0, 6) 20 43 48 41 52 41 43 54 45 52 28 01 3b 01 16 3b 20 46 55 4e 43 54 49 4f 4e 20 4e 45 58 54 3a 20 ┆ CHARACTER( ; ; FUNCTION NEXT: ┆
0x06520…06540 43 48 41 52 3b 16 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆CHAR; F;************************┆
0x06540…06560 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06560…06580 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 46 01 3b 01 39 4e 45 58 54 3a 3a 20 4c 48 4c 44 20 20 20 ┆*************F ; 9NEXT:: LHLD ┆
0x06580…065a0 20 53 50 49 4c 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 20 44 49 52 45 43 54 20 49 4e 50 55 ┆ SPIL ;ADDRESS OF DIRECT INPU┆
0x065a0…065c0 54 20 53 45 4d 41 50 48 4f 52 45 39 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 48 12 ┆T SEMAPHORE9 MOV B,H ┆
0x065c0…065e0 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 4c 12 13 20 20 20 20 20 20 20 43 41 4c 4c ┆ MOV C,L CALL┆
0x065e0…06600 20 20 20 20 57 41 49 54 13 01 3b 01 13 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 42 50 49 4c ┆ WAIT ; LHLD BPIL┆
0x06600…06620 (3, 0, 7) 13 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 45 2c 4d 12 12 20 20 20 20 20 20 20 4d 56 49 ┆ MOV E,M MVI┆
0x06620…06640 20 20 20 20 20 44 2c 30 12 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 12 20 20 20 20 ┆ D,0 INX H ┆
0x06640…06660 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 12 10 20 20 20 20 20 20 20 49 4e 52 20 20 20 20 20 41 ┆ MOV A,M INR A┆
0x06660…06680 10 14 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 4e 45 58 54 31 14 01 3b 01 10 20 20 20 20 20 ┆ JNZ NEXT1 ; ┆
0x06680…066a0 20 20 49 4e 58 20 20 20 20 20 48 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 12 ┆ INX H MOV A,M ┆
0x066a0…066c0 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 ┆ INX H MOV ┆
0x066c0…066e0 20 20 48 2c 4d 12 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4c 2c 41 12 13 4e 45 58 54 31 ┆ H,M MOV L,A NEXT1┆
0x066e0…06700 3a 20 53 48 4c 44 20 20 20 20 42 50 49 4c 13 01 3b 01 3c 20 20 20 20 20 20 20 50 4f 50 20 20 20 ┆: SHLD BPIL ; < POP ┆
0x06700…06720 (3, 0, 8) 20 20 48 20 20 20 20 20 20 20 3b 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 20 54 4f 20 50 41 53 ┆ H ;RETURN ADDRESS TO PAS┆
0x06720…06740 43 41 4c 20 49 4e 54 45 52 50 52 45 54 45 52 3c 10 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 ┆CAL INTERPRETER< POP ┆
0x06740…06760 42 10 10 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 10 10 20 20 20 20 20 20 20 50 4f 50 20 ┆B POP B POP ┆
0x06760…06780 20 20 20 20 42 10 10 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 10 26 20 20 20 20 20 20 20 ┆ B POP B & ┆
0x06780…067a0 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 3b 46 55 4e 43 54 49 4f 4e 20 56 41 4c 55 45 26 ┆PUSH D ;FUNCTION VALUE&┆
0x067a0…067c0 0b 20 20 20 20 20 20 20 50 43 48 4c 0b 01 3b 01 01 3b 01 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ PCHL ; ; F;***********┆
0x067c0…067e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x067e0…06800 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 46 21 3b 20 53 45 ┆**************************F!; SE┆
0x06800…06820 (3, 0, 9) 54 55 50 20 2d 20 49 4e 49 54 49 41 4c 49 5a 45 20 44 49 52 45 43 54 20 49 4e 50 55 54 21 01 3b ┆TUP - INITIALIZE DIRECT INPUT! ;┆
0x06820…06840 01 41 3b 20 50 52 4f 43 45 44 55 52 45 20 53 45 54 55 50 28 20 56 41 52 20 42 55 46 46 45 52 3a ┆ A; PROCEDURE SETUP( VAR BUFFER:┆
0x06840…06860 20 50 41 43 4b 45 44 20 41 52 52 41 59 28 20 31 2e 2e 4c 45 4e 47 54 48 20 29 20 4f 46 20 43 48 ┆ PACKED ARRAY( 1..LENGTH ) OF CH┆
0x06860…06880 41 52 3b 41 25 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 4e 47 54 48 3a 20 ┆AR;A%; LENGTH: ┆
0x06880…068a0 49 4e 54 45 47 45 52 20 29 3b 25 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆INTEGER );%F;*******************┆
0x068a0…068c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x068c0…068e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 46 01 3b 01 35 53 45 54 55 50 3a 3a 50 4f ┆******************F ; 5SETUP::PO┆
0x068e0…06900 50 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 20 54 4f ┆P B ;RETURN ADDRESS TO┆
0x06900…06920 (3, 0, 10) 20 49 4e 54 45 52 50 52 45 54 45 52 35 25 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 ┆ INTERPRETER5% POP D ┆
0x06920…06940 20 20 20 20 20 3b 42 55 46 46 45 52 20 4c 45 4e 47 54 48 25 26 20 20 20 20 20 20 20 50 4f 50 20 ┆ ;BUFFER LENGTH%& POP ┆
0x06940…06960 20 20 20 20 48 20 20 20 20 20 20 20 3b 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 26 35 20 20 20 ┆ H ;BUFFER POINTER&5 ┆
0x06960…06980 20 20 20 20 50 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 3b 52 45 54 55 52 4e 20 41 44 44 52 ┆ PUSH B ;RETURN ADDR┆
0x06980…069a0 45 53 53 20 54 4f 20 49 4e 54 45 52 50 52 45 54 45 52 35 26 20 20 20 20 20 20 20 50 55 53 48 20 ┆ESS TO INTERPRETER5& PUSH ┆
0x069a0…069c0 20 20 20 48 20 20 20 20 20 20 20 3b 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 26 13 20 20 20 20 ┆ H ;BUFFER POINTER& ┆
0x069c0…069e0 20 20 20 53 48 4c 44 20 20 20 20 42 50 49 4c 13 01 3b 01 12 20 20 20 20 20 20 20 4d 4f 56 20 20 ┆ SHLD BPIL ; MOV ┆
0x069e0…06a00 20 20 20 42 2c 48 12 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 4c 12 45 20 20 20 20 ┆ B,H MOV C,L E ┆
0x06a00…06a20 (3, 0, 11) 20 20 20 44 43 52 20 20 20 20 20 45 20 20 20 20 20 20 20 3b 4c 41 53 54 20 33 20 43 48 41 52 41 ┆ DCR E ;LAST 3 CHARA┆
0x06a20…06a40 43 54 45 52 53 20 4f 46 20 42 55 46 46 45 52 20 55 53 45 44 20 46 4f 52 20 4f 56 45 52 48 45 41 ┆CTERS OF BUFFER USED FOR OVERHEA┆
0x06a40…06a60 44 45 10 20 20 20 20 20 20 20 44 43 52 20 20 20 20 20 45 10 10 20 20 20 20 20 20 20 44 43 52 20 ┆DE DCR E DCR ┆
0x06a60…06a80 20 20 20 20 45 10 30 47 31 3a 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 20 20 20 3b 5a ┆ E 0G1: MVI M,0 ;Z┆
0x06a80…06aa0 45 52 4f 20 52 45 4d 41 49 4e 44 45 52 20 4f 46 20 42 55 46 46 45 52 30 10 20 20 20 20 20 20 20 ┆ERO REMAINDER OF BUFFER0 ┆
0x06aa0…06ac0 49 4e 58 20 20 20 20 20 48 10 10 20 20 20 20 20 20 20 44 43 52 20 20 20 20 20 45 10 11 20 20 20 ┆INX H DCR E ┆
0x06ac0…06ae0 20 20 20 20 4a 4e 5a 20 20 20 20 20 47 31 11 01 3b 01 34 20 20 20 20 20 20 20 4d 56 49 20 20 20 ┆ JNZ G1 ; 4 MVI ┆
0x06ae0…06b00 20 20 4d 2c 30 46 46 20 20 20 3b 53 45 54 20 55 50 20 42 55 46 46 45 52 20 53 54 4f 50 20 43 48 ┆ M,0FF ;SET UP BUFFER STOP CH┆
0x06b00…06b20 (3, 0, 12) 41 52 41 43 54 45 52 34 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 37 20 20 20 20 20 ┆ARACTER4 INX H 7 ┆
0x06b20…06b40 20 20 4d 4f 56 20 20 20 20 20 4d 2c 43 20 20 20 20 20 3b 20 41 4e 44 20 50 4f 49 4e 54 45 52 20 ┆ MOV M,C ; AND POINTER ┆
0x06b40…06b60 54 4f 20 53 54 41 52 54 20 4f 46 20 42 55 46 46 45 52 37 10 20 20 20 20 20 20 20 49 4e 58 20 20 ┆TO START OF BUFFER7 INX ┆
0x06b60…06b80 20 20 20 48 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 42 12 01 3b 01 2e 20 20 20 ┆ H MOV M,B ; . ┆
0x06b80…06ba0 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 36 20 20 20 20 20 3b 47 45 54 20 41 52 45 41 20 46 4f ┆ LXI H,6 ;GET AREA FO┆
0x06ba0…06bc0 52 20 53 45 4d 41 50 48 4f 52 45 2e 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 41 4c 4c 4f ┆R SEMAPHORE. CALL ALLO┆
0x06bc0…06be0 43 14 35 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 44 20 20 20 20 20 3b 53 45 45 20 49 ┆C 5 MOV A,D ;SEE I┆
0x06be0…06c00 46 20 57 45 20 47 4f 54 20 41 4e 59 54 48 49 4e 47 20 41 54 20 41 4c 4c 35 10 20 20 20 20 20 20 ┆F WE GOT ANYTHING AT ALL5 ┆
0x06c00…06c20 (3, 0, 13) 20 4f 52 41 20 20 20 20 20 45 10 13 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 47 45 52 52 13 ┆ ORA E JZ GERR ┆
0x06c20…06c40 01 3b 01 0b 20 20 20 20 20 20 20 58 43 48 47 0b 3a 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 ┆ ; XCHG : PUSH ┆
0x06c40…06c60 48 20 20 20 20 20 20 20 3b 50 4f 49 4e 54 45 52 20 54 4f 20 53 54 41 52 54 20 4f 46 20 53 45 4d ┆H ;POINTER TO START OF SEM┆
0x06c60…06c80 41 50 48 4f 52 45 20 41 52 45 41 3a 13 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 53 50 49 4c ┆APHORE AREA: SHLD SPIL┆
0x06c80…06ca0 13 36 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 45 20 20 20 20 20 3b 4e 55 4d 42 45 52 ┆ 6 MOV A,E ;NUMBER┆
0x06ca0…06cc0 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 41 4c 4c 4f 43 41 54 45 44 36 13 20 20 20 20 20 20 ┆ OF CHARACTERS ALLOCATED6 ┆
0x06cc0…06ce0 20 53 54 41 20 20 20 20 20 53 4c 45 4e 13 2b 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 45 2c ┆ STA SLEN + MVI E,┆
0x06ce0…06d00 36 20 20 20 20 20 3b 4c 45 4e 47 54 48 20 4f 46 20 53 45 4d 41 50 48 4f 52 45 2b 2b 47 32 3a 20 ┆6 ;LENGTH OF SEMAPHORE++G2: ┆
0x06d00…06d20 (3, 0, 14) 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 20 20 20 3b 5a 45 52 4f 20 53 45 4d 41 50 48 4f ┆ MVI M,0 ;ZERO SEMAPHO┆
0x06d20…06d40 52 45 20 41 52 45 41 2b 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 10 20 20 20 20 20 ┆RE AREA+ INX H ┆
0x06d40…06d60 20 20 44 43 52 20 20 20 20 20 45 10 11 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 47 32 11 01 ┆ DCR E JNZ G2 ┆
0x06d60…06d80 3b 01 2c 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 46 5d 49 4e 49 20 20 20 3b 47 45 54 20 41 ┆; , CALL FÅINI ;GET A┆
0x06d80…06da0 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 2c 32 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 ┆ MESSAGE BUFFER,2 MVI ┆
0x06da0…06dc0 4d 2c 39 20 20 20 20 20 3b 44 45 46 49 4e 45 20 44 49 52 45 43 54 20 49 4e 50 55 54 20 4f 50 43 ┆M,9 ;DEFINE DIRECT INPUT OPC┆
0x06dc0…06de0 4f 44 45 32 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 10 20 20 20 20 20 20 20 49 4e ┆ODE2 INX H IN┆
0x06de0…06e00 58 20 20 20 20 20 48 10 2c 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 20 20 20 ┆X H , POP B ┆
0x06e00…06e20 (3, 0, 15) 3b 50 4f 49 4e 54 45 52 20 54 4f 20 53 45 4d 41 50 48 4f 52 45 2c 12 20 20 20 20 20 20 20 4d 4f ┆;POINTER TO SEMAPHORE, MO┆
0x06e20…06e40 56 20 20 20 20 20 4d 2c 43 12 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 12 20 20 20 ┆V M,C INX H ┆
0x06e40…06e60 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 42 12 01 3b 01 12 20 20 20 20 20 20 20 4c 58 49 20 20 ┆ MOV M,B ; LXI ┆
0x06e60…06e80 20 20 20 42 2c 34 12 10 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 42 10 26 20 20 20 20 20 20 ┆ B,4 DAD B & ┆
0x06e80…06ea0 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 ┆ POP B ;BUFFER POINTER┆
0x06ea0…06ec0 26 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 43 12 10 20 20 20 20 20 20 20 49 4e 58 ┆& MOV M,C INX┆
0x06ec0…06ee0 20 20 20 20 20 48 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 42 12 01 3b 01 14 20 ┆ H MOV M,B ; ┆
0x06ee0…06f00 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 43 53 45 4d 41 14 12 20 20 20 20 20 20 20 4d 4f 56 20 ┆ LHLD CSEMA MOV ┆
0x06f00…06f20 (3, 0, 16) 20 20 20 20 42 2c 48 12 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 4c 12 0b 20 20 20 ┆ B,H MOV C,L ┆
0x06f20…06f40 20 20 20 20 58 43 48 47 0b 2b 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 53 45 4e 44 20 20 20 ┆ XCHG + CALL SEND ┆
0x06f40…06f60 20 3b 44 45 46 49 4e 45 20 44 49 52 45 43 54 20 49 4e 50 55 54 2b 01 3b 01 0a 20 20 20 20 20 20 ┆ ;DEFINE DIRECT INPUT+ ; ┆
0x06f60…06f80 20 52 45 54 0a 01 3b 01 01 3b 01 23 47 45 52 52 3a 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 ┆ RET ; ; #GERR: POP H ┆
0x06f80…06fa0 20 20 20 3b 43 4c 45 41 52 20 53 54 41 43 4b 23 15 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 ┆ ;CLEAR STACK# MVI ┆
0x06fa0…06fc0 41 2c 2d 23 31 30 15 24 20 20 20 20 20 20 20 53 54 41 20 20 20 20 20 49 4f 52 53 4c 54 20 20 3b ┆A,-#10 $ STA IORSLT ;┆
0x06fc0…06fe0 53 45 54 20 49 4f 52 45 53 55 4c 54 24 0a 20 20 20 20 20 20 20 52 45 54 0a 01 3b 01 01 3b 01 46 ┆SET IORESULT$ RET ; ; F┆
0x06fe0…07000 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x07000…07020 (3, 1, 1) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x07020…07040 2a 2a 2a 2a 2a 2a 46 27 3b 20 46 49 4e 49 53 20 2d 20 43 41 4e 43 45 4c 20 44 49 52 45 43 54 20 ┆******F'; FINIS - CANCEL DIRECT ┆
0x07040…07060 49 4e 50 55 54 20 43 4f 4e 44 49 54 49 4f 4e 27 01 3b 01 12 3b 20 50 52 4f 43 45 44 55 52 45 20 ┆INPUT CONDITION' ; ; PROCEDURE ┆
0x07060…07080 46 49 4e 49 53 3b 12 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆FINIS; F;***********************┆
0x07080…070a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x070a0…070c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 46 01 3b 01 2c 46 49 4e 49 53 3a 3a 43 41 4c 4c 20 20 ┆**************F ; ,FINIS::CALL ┆
0x070c0…070e0 20 20 46 5d 49 4e 49 20 20 20 3b 47 45 54 20 41 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 2c ┆ FÅINI ;GET A MESSAGE BUFFER,┆
0x070e0…07100 10 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 10 2e 20 20 20 20 20 20 20 4d 56 49 20 20 20 ┆ PUSH D . MVI ┆
0x07100…07120 (3, 1, 2) 20 20 4d 2c 37 20 20 20 20 20 3b 44 45 46 49 4e 45 20 42 52 45 41 4b 20 53 45 4d 41 50 48 4f 52 ┆ M,7 ;DEFINE BREAK SEMAPHOR┆
0x07120…07140 45 2e 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 10 20 20 20 20 20 20 20 49 4e 58 20 ┆E. INX H INX ┆
0x07140…07160 20 20 20 20 48 10 3d 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 4f 50 4d 45 53 20 3b 4f ┆ H = LXI B,OPMES ;O┆
0x07160…07180 50 45 52 41 54 4f 52 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 20 4d 41 49 4e 20 53 45 4d 41 50 ┆PERATOR COMMUNICATION MAIN SEMAP┆
0x07180…071a0 48 4f 52 45 3d 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 43 12 10 20 20 20 20 20 20 ┆HORE= MOV M,C ┆
0x071a0…071c0 20 49 4e 58 20 20 20 20 20 48 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 42 12 12 ┆ INX H MOV M,B ┆
0x071c0…071e0 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 34 12 10 20 20 20 20 20 20 20 44 41 44 20 20 ┆ LXI B,4 DAD ┆
0x071e0…07200 20 20 20 42 10 41 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 54 4d 50 49 4c 20 3b 50 55 ┆ B A LXI D,TMPIL ;PU┆
0x07200…07220 (3, 1, 3) 54 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 45 52 4d 49 4e 41 4c 20 41 52 45 41 20 49 4e 54 4f 20 ┆T POINTER TO TERMINAL AREA INTO ┆
0x07220…07240 4d 45 53 53 41 47 45 41 12 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 42 2c 32 12 13 20 20 20 ┆MESSAGEA MVI B,2 ┆
0x07240…07260 20 20 20 20 43 41 4c 4c 20 20 20 20 4d 4f 56 45 13 14 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 ┆ CALL MOVE LHLD ┆
0x07260…07280 20 43 53 45 4d 41 14 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 48 12 12 20 20 20 20 ┆ CSEMA MOV B,H ┆
0x07280…072a0 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 4c 12 10 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 ┆ MOV C,L POP H┆
0x072a0…072c0 10 44 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 53 45 4e 44 20 20 20 20 3b 44 45 46 49 4e 45 ┆ D CALL SEND ;DEFINE┆
0x072c0…072e0 20 42 52 45 41 4b 20 53 45 4d 41 50 48 4f 52 45 20 28 43 41 4e 43 45 4c 20 44 49 52 45 43 54 20 ┆ BREAK SEMAPHORE (CANCEL DIRECT ┆
0x072e0…07300 49 4e 50 55 54 29 44 01 3b 01 31 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 53 50 49 4c 20 20 ┆INPUT)D ; 1 LHLD SPIL ┆
0x07300…07320 (3, 1, 4) 20 20 3b 44 45 41 4c 4c 4f 43 41 54 45 20 53 45 4d 41 50 48 4f 52 45 20 41 52 45 41 31 0b 20 20 ┆ ;DEALLOCATE SEMAPHORE AREA1 ┆
0x07320…07340 20 20 20 20 20 58 43 48 47 0b 13 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 20 53 4c 45 4e 13 12 ┆ XCHG LDA SLEN ┆
0x07340…07360 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4c 2c 41 12 12 20 20 20 20 20 20 20 4d 56 49 20 20 ┆ MOV L,A MVI ┆
0x07360…07380 20 20 20 48 2c 30 12 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 44 45 4c 4f 43 14 01 3b 01 ┆ H,0 CALL DELOC ; ┆
0x07380…073a0 0a 20 20 20 20 20 20 20 52 45 54 0a 01 3b 01 01 3b 01 01 3b 01 43 42 50 49 4c 3a 20 20 44 53 20 ┆ RET ; ; ; CBPIL: DS ┆
0x073a0…073c0 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 57 48 45 52 45 20 4e 45 58 54 ┆ 2 ;ADDRESS WHERE NEXT┆
0x073c0…073e0 20 43 48 41 52 41 43 54 45 52 20 57 49 4c 4c 20 42 45 20 50 4c 41 43 45 44 43 10 53 50 49 4c 3a ┆ CHARACTER WILL BE PLACEDC SPIL:┆
0x073e0…07400 20 20 44 53 20 20 20 20 20 20 32 10 10 53 4c 45 4e 3a 20 20 44 53 20 20 20 20 20 20 31 10 01 3b ┆ DS 2 SLEN: DS 1 ;┆
0x07400…07420 (3, 1, 5) 01 01 3b 01 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ; END ┆
0x07420…07440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xd…]
0x075e0…07600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x07600…07620 (3, 1, 7) ExtentHdr {name=»SETPR «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0008,00 (0x008000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x07620…07640 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x07640…07660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x07660…07680 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x07680…076a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x076a0…076c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x076c0…076e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x076e0…07700 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x07700…07720 (3, 1, 8) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x07720…07740 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x07740…07760 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x07760…07780 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x07780…077a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x077a0…077c0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 53 45 54 50 ┆**>>;* PROCEDURE NAME: SETP┆
0x077c0…077e0 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R ┆
0x077e0…07800 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x07800…07820 (3, 1, 9) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x07820…07840 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x07840…07860 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x07860…07880 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x07880…078a0 53 43 52 49 50 54 49 4f 4e 3a 0e 3e 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 49 53 20 ┆SCRIPTION: >; THIS PROCEDURE IS ┆
0x078a0…078c0 55 53 45 44 20 54 4f 20 43 48 41 4e 47 45 20 54 48 45 20 50 52 49 4f 52 49 54 59 20 4f 46 20 54 ┆USED TO CHANGE THE PRIORITY OF T┆
0x078c0…078e0 48 45 20 43 41 4c 4c 49 4e 47 3e 0a 3b 20 50 52 4f 43 45 53 53 2e 0a 3e 3b 20 50 4c 45 41 53 45 ┆HE CALLING> ; PROCESS. >; PLEASE┆
0x078e0…07900 20 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 ┆ REFER TO THE PASCAL STANDARD AS┆
0x07900…07920 (3, 1, 10) 53 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f ┆SEMBLER PACKAGE MANUAL> ; SECTIO┆
0x07920…07940 4e 20 35 2e 31 20 46 4f 52 20 44 45 54 41 49 4c 53 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d ┆N 5.1 FOR DETAILS. ; >;--------┆
0x07940…07960 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x07960…07980 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 ┆--------------------->0; STACK C┆
0x07980…079a0 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 ┆ONTENTS ON ENTRY: I ┆
0x079a0…079c0 20 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x079c0…079e0 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 ┆ I---------------I00; ┆
0x079e0…07a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 52 45 54 55 ┆ I RETU┆
0x07a00…07a20 (3, 1, 11) 52 4e 20 41 44 52 2e 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RN ADR. I00; ┆
0x07a20…07a40 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b ┆ I---------------I00;┆
0x07a40…07a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 ┆ I ┆
0x07a60…07a80 4e 45 57 20 50 52 49 4f 52 49 54 59 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NEW PRIORITY I00; ┆
0x07a80…07aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I---------------┆
0x07aa0…07ac0 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆I00; ┆
0x07ac0…07ae0 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I I0>;----------┆
0x07ae0…07b00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x07b00…07b20 (3, 1, 12) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 4f 4e ┆------------------->$; STACK CON┆
0x07b20…07b40 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 3d 3d 3d 3d ┆TENTS ON EXIT: EMPTY$>;====┆
0x07b40…07b60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x07b60…07b80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 0b 20 20 ┆=========================> ┆
0x07b80…07ba0 20 20 20 20 20 53 4b 49 50 0b 0b 20 20 20 20 20 20 20 53 59 4d 42 0b 01 20 01 07 53 45 54 50 52 ┆ SKIP SYMB SETPR┆
0x07ba0…07bc0 3a 3a 07 01 20 01 01 3b 01 2b 3b 44 45 54 45 52 4d 49 4e 45 20 41 44 44 52 45 53 53 20 4f 46 20 ┆:: ; +;DETERMINE ADDRESS OF ┆
0x07bc0…07be0 50 52 49 4f 52 49 54 59 20 46 49 45 4c 44 20 49 4e 20 50 43 42 2b 01 3b 01 1f 20 20 20 20 20 20 ┆PRIORITY FIELD IN PCB+ ; ┆
0x07be0…07c00 20 4c 48 4c 44 20 20 20 20 52 55 4e 4e 20 20 20 20 3b 48 4c 2d 3e 50 43 42 1f 15 20 20 20 20 20 ┆ LHLD RUNN ;HL->PCB ┆
0x07c00…07c20 (3, 1, 13) 20 20 4c 58 49 20 20 20 20 20 42 2c 50 52 49 4f 15 24 20 20 20 20 20 20 20 44 41 44 20 20 20 20 ┆ LXI B,PRIO $ DAD ┆
0x07c20…07c40 20 42 20 20 20 20 20 20 20 3b 48 4c 2d 3e 50 43 42 2e 50 52 49 4f 24 24 20 20 20 20 20 20 20 58 ┆ B ;HL->PCB.PRIO$$ X┆
0x07c40…07c60 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 2d 3e 50 43 42 2e 50 52 49 4f 24 01 20 01 ┆CHG ;DE->PCB.PRIO$ ┆
0x07c60…07c80 01 3b 01 29 3b 47 45 54 20 50 41 52 41 4d 45 54 45 52 20 46 52 4f 4d 20 50 41 53 43 41 4c 20 50 ┆ ; );GET PARAMETER FROM PASCAL P┆
0x07c80…07ca0 52 4f 43 45 44 55 52 45 20 43 41 4c 4c 29 01 3b 01 25 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 ┆ROCEDURE CALL) ; % POP ┆
0x07ca0…07cc0 20 48 20 20 20 20 20 20 20 3b 48 4c 3d 52 45 54 2e 41 44 52 45 53 53 25 27 20 20 20 20 20 20 20 ┆ H ;HL=RET.ADRESS%' ┆
0x07cc0…07ce0 58 54 48 4c 20 20 20 20 20 20 20 20 20 20 20 20 3b 48 4c 3d 4e 45 57 20 50 52 49 4f 52 49 54 59 ┆XTHL ;HL=NEW PRIORITY┆
0x07ce0…07d00 27 26 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4c 20 20 20 20 20 3b 41 3d 4e 45 57 20 ┆'& MOV A,L ;A=NEW ┆
0x07d00…07d20 (3, 1, 14) 50 52 49 4f 52 49 54 59 26 01 20 01 01 3b 01 1a 3b 54 45 53 54 20 56 41 4c 49 44 49 54 59 20 4f ┆PRIORITY& ; ;TEST VALIDITY O┆
0x07d20…07d40 46 20 50 52 49 4f 52 49 54 59 1a 01 3b 01 20 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 4d 49 ┆F PRIORITY ; CPI MI┆
0x07d40…07d60 4e 50 52 20 20 20 3b 41 3c 4d 49 4e 50 52 3f 20 23 20 20 20 20 20 20 20 52 43 20 20 20 20 20 20 ┆NPR ;A<MINPR? # RC ┆
0x07d60…07d80 20 20 20 20 20 20 20 20 3b 59 45 53 2c 20 52 45 54 55 52 4e 23 21 20 20 20 20 20 20 20 43 50 49 ┆ ;YES, RETURN#! CPI┆
0x07d80…07da0 20 20 20 20 20 4d 41 58 50 52 20 20 20 3b 41 3e 3d 4d 41 58 50 52 3f 21 23 20 20 20 20 20 20 20 ┆ MAXPR ;A>=MAXPR?!# ┆
0x07da0…07dc0 52 4e 43 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 59 45 53 2c 20 52 45 54 55 52 4e 23 01 20 01 ┆RNC ;YES, RETURN# ┆
0x07dc0…07de0 01 3b 01 25 3b 53 54 4f 52 45 20 4e 45 57 20 50 52 49 4f 52 49 54 59 20 49 4e 20 50 52 49 4f 52 ┆ ; %;STORE NEW PRIORITY IN PRIOR┆
0x07de0…07e00 49 54 59 20 46 49 45 4c 44 25 01 3b 01 2d 20 20 20 20 20 20 20 53 54 41 58 20 20 20 20 44 20 20 ┆ITY FIELD% ; - STAX D ┆
0x07e00…07e20 (3, 1, 15) 20 20 20 20 20 3b 50 43 42 2e 50 52 49 4f 3d 4e 45 57 20 50 52 49 4f 52 49 54 59 2d 0a 20 20 20 ┆ ;PCB.PRIO=NEW PRIORITY- ┆
0x07e20…07e40 20 20 20 20 52 45 54 0a 01 20 01 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 30 da 41 71 23 c3 2e ┆ RET END 0 Aq# .┆
0x07e40…07e60 71 04 f1 90 4f d1 21 00 00 0d fa 60 71 d5 1a d6 30 29 e5 29 29 d1 19 5f 16 00 19 d1 13 c3 49 71 ┆q O ! `q 0) )) _ Iq┆
0x07e60…07e80 7c b5 eb c2 66 71 37 c9 c3 30 71 e1 f1 e5 a7 c2 8b 71 01 0d 00 09 0e 05 cd dd 72 e1 97 f5 e5 11 ┆ø fq7 0q q r ┆
0x07e80…07ea0 19 00 19 5e 23 56 23 46 c3 3f 71 01 30 00 09 01 0d 00 09 0e 05 cd dd 72 c1 c5 21 13 00 09 eb 21 ┆ ^#V#F ?q 0 r ! !┆
0x07ea0…07ec0 24 00 09 cd 18 01 e1 e5 01 30 00 09 01 10 00 09 7e 23 b6 23 b6 ca df 71 e1 e5 3e 02 cd 00 01 c2 ┆$ 0 ü# # q > ┆
0x07ec0…07ee0 a3 72 c1 c5 21 2a 00 09 eb 21 13 00 09 cd 18 01 21 16 00 09 3e 01 77 e1 e5 cd 00 01 c2 a3 72 e1 ┆ r !* ! ! > w r ┆
0x07ee0…07f00 e5 01 30 00 09 01 0a 00 09 34 e1 e5 3e 02 cd 00 01 c2 a3 72 e1 e5 54 5d 01 30 00 09 e5 01 09 00 ┆ 0 4 > r TÅ 0 ┆
0x07f00…07f20 (3, 1, 16) cd 73 00 d1 e1 e5 d5 01 0a 00 09 7e c6 42 eb 01 09 00 09 77 01 0b 00 e1 d1 d5 e5 09 eb 09 7e 12 ┆ s ü B w ü ┆
0x07f20…07f40 21 0d 00 c1 09 97 77 23 77 23 77 23 eb e1 e5 c5 01 24 00 09 c1 eb cd 18 01 21 06 00 2b 29 39 7e ┆! w#w#w# $ ! +)9ü┆
0x07f40…07f60 21 13 00 09 a7 ca 51 72 97 77 23 77 23 77 c3 5e 72 0e 03 cd dd 72 e1 e5 01 30 00 09 44 4d 21 19 ┆! Qr w#w#w ^r r 0 DM! ┆
0x07f60…07f80 00 09 eb c1 c5 21 22 00 09 7e 12 d1 d5 21 05 00 cd f0 72 c2 a3 72 21 06 00 2b 29 39 7e a7 c2 91 ┆ !" ü ! r r! +)9ü ┆
0x07f80…07fa0 72 e1 e5 cd 2a 01 d1 d5 21 03 00 cd f0 72 c2 a3 72 e1 e5 01 0a 00 09 34 e1 e5 01 18 00 09 7e e6 ┆r * ! r r 4 ü ┆
0x07fa0…07fc0 bf 77 97 e1 c1 c1 c1 c1 c1 e5 e1 c1 d1 e5 c5 01 13 00 09 73 23 72 23 c1 71 23 70 e1 f5 e5 3e 01 ┆ w s#r# q#p > ┆
0x07fc0…07fe0 cd 00 01 a7 ca cb 72 e1 c1 f5 e5 e1 e5 01 18 00 09 7e e6 41 77 e1 cd 0c 01 f1 c9 e1 c9 eb 69 26 ┆ r ü Aw i&┆
0x07fe0…08000 00 29 39 7e 12 13 23 7e 12 13 2b 2b 2b 7e 12 c9 29 39 4e 23 46 2b 2b 2b 7e eb 57 cd 2d 01 c9 63 ┆ )9ü #ü +++ü )9N#F+++ü W - c┆
0x08000…08020 (4, 0, 1) ExtentHdr {name=»REDBAK «, typ=»K«, seg=»A«, next=0x00, basis=0x0010, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,00 (0x009000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x08020…08040 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x08040…08060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x08060…08080 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x08080…080a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x080a0…080c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x080c0…080e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x080e0…08100 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x08100…08120 (4, 0, 2) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x08120…08140 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x08140…08160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x08160…08180 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x08180…081a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x081a0…081c0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 52 45 44 42 ┆**>>;* PROCEDURE NAME: REDB┆
0x081c0…081e0 41 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AK ┆
0x081e0…08200 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x08200…08220 (4, 0, 3) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x08220…08240 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x08240…08260 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x08260…08280 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x08280…082a0 53 43 52 49 50 54 49 4f 4e 3a 0e 3a 3b 20 54 48 49 53 20 50 55 52 43 45 44 55 52 45 20 49 53 20 ┆SCRIPTION: :; THIS PURCEDURE IS ┆
0x082a0…082c0 55 53 45 44 20 54 4f 20 52 45 41 44 20 41 20 53 45 51 55 45 4e 54 49 41 4c 20 4d 49 4b 41 44 4f ┆USED TO READ A SEQUENTIAL MIKADO┆
0x082c0…082e0 53 20 46 49 4c 45 3a 0c 3b 20 42 41 43 4b 57 41 52 44 53 2e 0c 3e 3b 20 50 4c 45 41 53 45 20 52 ┆S FILE: ; BACKWARDS. >; PLEASE R┆
0x082e0…08300 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆EFER TO THE PASCAL STANDARD ASSE┆
0x08300…08320 (4, 0, 4) 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e 20 ┆MBLER PACKAGE MANUAL> ; SECTION ┆
0x08320…08340 38 2e 32 20 46 4f 52 20 44 45 54 41 49 4c 53 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆8.2 FOR DETAILS. ; >;----------┆
0x08340…08360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x08360…08380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f 4e ┆------------------->0; STACK CON┆
0x08380…083a0 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 ┆TENTS ON ENTRY: I ┆
0x083a0…083c0 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x083c0…083e0 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x083e0…08400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 52 45 54 55 52 ┆ I RETUR┆
0x08400…08420 (4, 0, 5) 4e 20 41 44 52 2e 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N ADR. I00; ┆
0x08420…08440 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 ┆ I---------------I00; ┆
0x08440…08460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d ┆ I -┆
0x08460…08480 3e 20 43 4f 4e 54 45 4e 54 53 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> CONTENTS I00; ┆
0x08480…084a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 ┆ I---------------I0┆
0x084a0…084c0 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0; ┆
0x084c0…084e0 49 20 20 2d 3e 20 46 49 4c 45 49 44 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆I -> FILEID I00; ┆
0x084e0…08500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I-------------┆
0x08500…08520 (4, 0, 6) 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--I00; ┆
0x08520…08540 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d ┆ I I0>;--------┆
0x08540…08560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x08560…08580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 ┆--------------------->$; STACK C┆
0x08580…085a0 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 3d 3d ┆ONTENTS ON EXIT: EMPTY$>;==┆
0x085a0…085c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x085c0…085e0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 0b ┆===========================> ┆
0x085e0…08600 20 20 20 20 20 20 20 53 4b 49 50 0b 0b 20 20 20 20 20 20 20 53 59 4d 42 0b 07 20 20 20 20 20 20 ┆ SKIP SYMB ┆
0x08600…08620 (4, 0, 7) 20 07 3d 4f 46 46 53 45 54 3a 45 51 55 20 20 20 20 20 38 43 20 20 20 20 20 20 3b 54 48 49 53 20 ┆ =OFFSET:EQU 8C ;THIS ┆
0x08620…08640 49 53 20 54 48 45 20 4f 46 46 53 45 54 20 46 52 4f 4d 20 46 49 4c 45 49 44 20 54 4f 20 54 48 45 ┆IS THE OFFSET FROM FILEID TO THE┆
0x08640…08660 3d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 ┆=1 ; ┆
0x08660…08680 20 44 41 54 41 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 31 01 20 01 08 52 45 44 42 41 4b 3a 3a ┆ DATA CONTROL BLOCK1 REDBAK::┆
0x08680…086a0 08 01 20 01 01 3b 01 3b 3b 27 53 48 55 46 46 4c 45 27 20 54 48 45 20 53 54 41 43 4b 20 53 4f 20 ┆ ; ;;'SHUFFLE' THE STACK SO ┆
0x086a0…086c0 54 48 41 54 20 49 54 20 4d 45 45 54 53 20 54 48 45 20 4e 45 45 44 20 4f 46 20 54 48 45 20 52 45 ┆THAT IT MEETS THE NEED OF THE RE┆
0x086c0…086e0 41 44 42 3b 0b 3b 53 55 42 52 4f 55 54 49 4e 45 0b 01 3b 01 29 20 20 20 20 20 20 20 50 4f 50 20 ┆ADB; ;SUBROUTINE ; ) POP ┆
0x086e0…08700 20 20 20 20 42 20 20 20 20 20 20 20 3b 42 43 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 24 ┆ B ;BC=RETURN ADDRESS)$┆
0x08700…08720 (4, 0, 8) 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 43 4f 4e 54 ┆ POP D ;DE->CONT┆
0x08720…08740 45 4e 54 53 24 22 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c ┆ENTS$" POP H ;HL┆
0x08740…08760 2d 3e 46 49 4c 45 49 44 22 10 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 10 10 20 20 20 20 ┆->FILEID" PUSH B ┆
0x08760…08780 20 20 20 50 55 53 48 20 20 20 20 44 10 27 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 44 20 20 ┆ PUSH D ' INX D ┆
0x08780…087a0 20 20 20 20 20 3b 44 45 2d 3e 43 4f 4e 54 45 4e 54 53 28 31 29 27 10 20 20 20 20 20 20 20 50 55 ┆ ;DE->CONTENTS(1)' PU┆
0x087a0…087c0 53 48 20 20 20 20 44 10 32 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 4f 46 46 53 45 54 ┆SH D 2 LXI B,OFFSET┆
0x087c0…087e0 3b 43 4f 4d 50 55 54 45 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 32 2d 20 20 20 ┆;COMPUTE THE ADDRESS OF THE2- ┆
0x087e0…08800 20 20 20 20 44 41 44 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 20 20 20 44 41 54 41 20 43 4f 4e ┆ DAD B ; DATA CON┆
0x08800…08820 (4, 0, 9) 54 52 4f 4c 20 42 4c 4f 43 4b 2d 1f 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 ┆TROL BLOCK- PUSH H ┆
0x08820…08840 20 20 20 3b 48 4c 2d 3e 44 43 42 1f 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ;HL->DCB 6 ┆
0x08840…08860 20 20 20 20 3b 54 48 45 20 53 54 41 43 4b 20 4e 4f 57 20 4c 4f 4f 4b 53 20 4c 49 4b 45 20 54 48 ┆ ;THE STACK NOW LOOKS LIKE TH┆
0x08860…08880 49 53 3a 36 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆IS:68 ; ┆
0x08880…088a0 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 38 38 20 ┆ I I88 ┆
0x088a0…088c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x088c0…088e0 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 ┆ I---------------I88 ┆
0x088e0…08900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x08900…08920 (4, 0, 10) 49 20 20 20 2d 3e 20 44 43 42 20 20 20 20 20 20 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆I -> DCB I88 ┆
0x08920…08940 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d ┆ ; I-----┆
0x08940…08960 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆----------I88 ┆
0x08960…08980 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 2d 3e 43 4f 4e 54 45 4e 54 53 ┆ ; I ->CONTENTS┆
0x08980…089a0 28 31 29 20 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆(1) I88 ; ┆
0x089a0…089c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 ┆ I---------------I8┆
0x089c0…089e0 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 ┆8 ; ┆
0x089e0…08a00 20 20 20 20 20 20 20 20 49 20 2d 3e 43 4f 4e 54 45 4e 54 53 28 30 29 20 49 38 38 20 20 20 20 20 ┆ I ->CONTENTS(0) I88 ┆
0x08a00…08a20 (4, 0, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x08a20…08a40 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 ┆ I---------------I88 ┆
0x08a40…08a60 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 52 ┆ ; I R┆
0x08a60…08a80 45 54 55 52 4e 20 41 44 52 2e 20 20 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ETURN ADR. I88 ┆
0x08a80…08aa0 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; I---------┆
0x08aa0…08ac0 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆------I88 ┆
0x08ac0…08ae0 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; I ┆
0x08ae0…08b00 49 38 01 20 01 01 3b 01 3c 3b 43 4c 45 41 52 20 54 48 45 20 45 4e 44 2d 4f 46 2d 46 49 4c 45 20 ┆I8 ; <;CLEAR THE END-OF-FILE ┆
0x08b00…08b20 (4, 0, 12) 46 4c 41 47 20 28 42 49 54 20 32 20 4f 46 20 54 48 45 20 44 46 4c 41 47 20 46 49 45 4c 44 20 4f ┆FLAG (BIT 2 OF THE DFLAG FIELD O┆
0x08b20…08b40 46 20 54 48 45 3c 39 3b 44 43 42 29 2e 20 49 54 20 4d 41 59 20 4f 46 20 43 4f 55 52 53 45 20 4e ┆F THE<9;DCB). IT MAY OF COURSE N┆
0x08b40…08b60 4f 54 20 48 41 56 45 20 42 45 45 4e 20 53 45 54 2c 20 42 55 54 20 4e 45 56 45 52 20 4d 49 4e 44 ┆OT HAVE BEEN SET, BUT NEVER MIND┆
0x08b60…08b80 39 06 3b 54 48 41 54 21 06 01 3b 01 16 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 44 46 ┆9 ;THAT! ; LXI B,DF┆
0x08b80…08ba0 4c 41 47 16 25 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 48 4c 2d ┆LAG % DAD B ;HL-┆
0x08ba0…08bc0 3e 44 43 42 2e 44 46 4c 41 47 25 24 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 20 20 ┆>DCB.DFLAG%$ MOV A,M ┆
0x08bc0…08be0 20 20 20 3b 41 3a 3d 44 43 42 2e 44 46 4c 41 47 24 23 20 20 20 20 20 20 20 41 4e 49 20 20 20 20 ┆ ;A:=DCB.DFLAG$# ANI ┆
0x08be0…08c00 20 30 46 42 20 20 20 20 20 3b 43 4c 45 41 52 20 42 49 54 20 32 23 12 20 20 20 20 20 20 20 4d 4f ┆ 0FB ;CLEAR BIT 2# MO┆
0x08c00…08c20 (4, 0, 13) 56 20 20 20 20 20 4d 2c 41 12 07 20 20 20 20 20 20 20 07 01 3b 01 11 3b 52 45 41 44 20 54 48 45 ┆V M,A ; ;READ THE┆
0x08c20…08c40 20 52 45 43 4f 52 44 21 11 01 3b 01 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 45 41 44 ┆ RECORD! ; CALL READ┆
0x08c40…08c60 42 14 01 20 01 01 3b 01 2a 3b 52 45 47 2e 20 41 20 4e 4f 57 20 43 4f 4e 54 41 49 4e 53 20 41 20 ┆B ; *;REG. A NOW CONTAINS A ┆
0x08c60…08c80 50 4f 53 53 49 42 4c 45 20 45 52 52 4f 52 20 43 4f 44 45 2a 3a 3b 52 45 47 2e 20 42 20 43 4f 4e ┆POSSIBLE ERROR CODE*:;REG. B CON┆
0x08c80…08ca0 54 41 49 4e 53 20 54 48 45 20 4c 45 4e 47 54 48 20 4f 46 20 54 48 45 20 52 45 43 4f 52 44 2c 20 ┆TAINS THE LENGTH OF THE RECORD, ┆
0x08ca0…08cc0 57 48 49 43 48 20 53 48 4f 55 4c 44 20 42 45 3a 1d 3b 20 20 20 20 20 20 20 53 54 4f 52 45 44 20 ┆WHICH SHOULD BE: ; STORED ┆
0x08cc0…08ce0 49 4e 20 43 4f 4e 54 45 4e 54 53 28 30 29 1d 01 3b 01 24 20 20 20 20 20 20 20 53 54 41 20 20 20 ┆IN CONTENTS(0) ; $ STA ┆
0x08ce0…08d00 20 20 49 4f 52 53 4c 54 20 20 3b 53 45 54 20 49 4f 52 45 53 55 4c 54 24 01 20 01 27 20 20 20 20 ┆ IORSLT ;SET IORESULT$ ' ┆
0x08d00…08d20 (4, 0, 14) 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 43 4f 4e 54 45 4e 54 53 ┆ POP D ;DE->CONTENTS┆
0x08d20…08d40 28 30 29 27 2b 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 42 20 20 20 20 20 3b 41 3a 3d ┆(0)'+ MOV A,B ;A:=┆
0x08d40…08d60 4c 45 4e 47 54 48 20 4f 46 20 52 45 43 4f 52 44 2b 35 20 20 20 20 20 20 20 53 54 41 58 20 20 20 ┆LENGTH OF RECORD+5 STAX ┆
0x08d60…08d80 20 44 20 20 20 20 20 20 20 3b 43 4f 4e 54 45 4e 54 53 28 30 29 3a 3d 4c 45 4e 47 54 48 20 4f 46 ┆ D ;CONTENTS(0):=LENGTH OF┆
0x08d80…08da0 20 52 45 43 4f 52 44 35 01 20 01 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 0a 20 20 20 20 20 ┆ RECORD5 RET ┆
0x08da0…08dc0 20 20 45 4e 44 0a 00 00 00 00 00 05 03 08 04 ca 03 04 0a 02 f4 02 04 02 08 2a 02 04 0a 02 2f 04 ┆ END * / ┆
0x08dc0…08de0 04 03 08 eb 21 03 04 0a 02 13 06 04 02 08 cd 02 05 0b 08 00 00 00 05 03 08 a7 c2 03 04 0a 02 fa ┆ ! ┆
0x08de0…08e00 02 04 02 08 2a 02 04 0a 02 33 06 04 0a 08 11 02 00 19 7e 23 66 6f 22 0a 04 0a 02 0b 06 04 02 08 ┆ * 3 ü#fo" ┆
0x08e00…08e20 (4, 0, 15) 21 02 04 0a 02 13 06 04 13 08 01 13 00 09 36 00 23 36 00 23 36 00 23 36 01 3e 01 21 13 04 0a 02 ┆! 6 #6 #6 #6 > ! ┆
0x08e20…08e40 13 06 04 02 08 cd 02 05 0b 09 00 00 00 05 02 08 32 02 04 0a 02 0d 06 04 02 08 3a 02 04 0a 02 0d ┆ 2 : ┆
0x08e40…08e60 06 04 04 08 fe 2a ca 04 04 0a 02 fb 00 04 03 08 a7 ca 03 04 0a 02 9e 00 04 02 08 cd 02 04 0a 02 ┆ * ┆
0x08e60…08e80 13 03 04 02 08 21 02 04 0a 02 2c 05 04 02 08 c3 02 04 0a 02 fd 02 04 02 08 21 02 04 0a 02 43 06 ┆ ! , ! C ┆
0x08e80…08ea0 04 02 08 11 02 04 0a 02 e0 04 04 04 08 06 0a cd 04 05 0b 0a 00 00 00 05 02 08 c2 02 04 0a 02 fb ┆ ┆
0x08ea0…08ec0 00 04 02 08 2a 02 04 0a 02 4d 06 04 03 08 eb 21 03 04 0a 02 d9 04 04 02 08 cd 02 05 0b 0b 00 00 ┆ * M ! ┆
0x08ec0…08ee0 00 05 03 08 23 3a 03 04 0a 02 4f 06 04 02 08 cd 02 05 0b 0c 00 00 00 05 02 08 01 02 04 0a 02 b3 ┆ #: O ┆
0x08ee0…08f00 04 04 07 08 11 2d 00 3e 02 2a 07 05 0b 06 00 00 00 05 02 08 cd 02 05 0b 0d 00 00 00 05 02 08 3a ┆ - > * :┆
0x08f00…08f20 (4, 0, 16) 02 04 0a 02 50 06 04 06 08 e6 5f fe 41 da 06 04 0a 02 fb 00 04 04 08 fe 5e d2 04 04 0a 02 fb 00 ┆ P _ A ^ ┆
0x08f20…08f40 04 02 08 11 02 04 0a 02 50 06 04 02 08 21 02 04 0a 02 0a 04 04 04 08 06 05 cd 04 05 0b 05 00 00 ┆ P ! ┆
0x08f40…08f60 00 05 02 08 11 02 04 0a 02 55 06 04 02 08 21 02 04 0a 02 53 04 04 04 08 06 0a cd 04 05 0b 05 00 ┆ U ! S ┆
0x08f60…08f80 00 00 05 02 08 11 02 04 0a 02 5f 06 04 02 08 21 02 04 0a 02 e9 03 04 04 08 06 0a cd 04 05 0b 05 ┆ _ ! ┆
0x08f80…08fa0 00 00 00 05 02 08 01 02 04 0a 02 d1 03 04 06 08 3e 22 16 18 2a 06 05 0b 06 00 00 00 05 02 08 cd ┆ >" * ┆
0x08fa0…08fc0 02 05 0b 07 00 00 00 05 03 08 04 ca 03 04 0a 02 f4 02 04 02 08 01 02 04 0a 02 f3 03 04 06 08 3e ┆ >┆
0x08fc0…08fe0 1c 16 17 2a 06 05 0b 06 00 00 00 05 02 08 cd 02 05 0b 07 00 00 00 05 03 08 04 ca 03 04 0a 02 f4 ┆ * ┆
0x08fe0…09000 02 04 02 08 01 02 04 0a 02 31 04 04 06 08 3e 2c 16 22 2a 06 05 0b 06 00 00 00 05 02 08 cd 02 63 ┆ 1 >, "* c┆
0x09000…09020 (4, 1, 1) ExtentHdr {name=»PURGEF «, typ=»K«, seg=»A«, next=0x00, basis=0x0016, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000a,06 (0x00a600)}, f99=41 09 00 fe 00 00 00 00 00 00 ┆A ┆}
0x09020…09040 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x09040…09060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x09060…09080 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x09080…090a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x090a0…090c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x090c0…090e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x090e0…09100 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x09100…09120 (4, 1, 2) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x09120…09140 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x09140…09160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x09160…09180 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x09180…091a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x091a0…091c0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 50 55 52 47 ┆**>>;* PROCEDURE NAME: PURG┆
0x091c0…091e0 45 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EF ┆
0x091e0…09200 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x09200…09220 (4, 1, 3) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x09220…09240 2a 2a 3e 01 3b 01 1c 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 2f 32 32 2d 53 45 50 2d 31 ┆**> ; ; CT 07-MAY-1980/22-SEP-1┆
0x09240…09260 39 38 30 1c 01 3b 01 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆980 ; >;=======================┆
0x09260…09280 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x09280…092a0 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 53 43 52 49 50 54 49 4f 4e 3a 0e 27 3b 20 54 48 49 53 20 50 ┆======> ; DESCRIPTION: '; THIS P┆
0x092a0…092c0 52 4f 43 45 44 55 52 45 20 50 55 52 47 45 53 20 41 20 4d 49 4b 41 44 4f 53 20 46 49 4c 45 2e 27 ┆ROCEDURE PURGES A MIKADOS FILE.'┆
0x092c0…092e0 3e 3b 20 50 4c 45 41 53 45 20 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 41 4c 20 53 54 ┆>; PLEASE REFER TO THE PASCAL ST┆
0x092e0…09300 41 4e 44 41 52 44 20 41 53 53 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 4e 55 41 4c 3e ┆ANDARD ASSEMBLER PACKAGE MANUAL>┆
0x09300…09320 (4, 1, 4) 1a 3b 20 53 45 43 54 49 4f 4e 20 38 2e 34 20 46 4f 52 20 44 45 54 41 49 4c 53 2e 1a 01 3b 01 3e ┆ ; SECTION 8.4 FOR DETAILS. ; >┆
0x09320…09340 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆;-------------------------------┆
0x09340…09360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 ┆------------------------------>0┆
0x09360…09380 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 20 20 20 20 49 ┆; STACK CONTENTS ON ENTRY: I┆
0x09380…093a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x093a0…093c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I--------------┆
0x093c0…093e0 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-I00; ┆
0x093e0…09400 20 20 20 49 20 20 52 45 54 55 52 4e 20 41 44 52 2e 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ I RETURN ADR. I00; ┆
0x09400…09420 (4, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I----------┆
0x09420…09440 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----I00; ┆
0x09440…09460 20 20 20 20 20 20 20 49 20 20 2d 3e 20 46 49 4c 45 4e 41 4d 45 20 20 49 30 30 3b 20 20 20 20 20 ┆ I -> FILENAME I00; ┆
0x09460…09480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d ┆ I------┆
0x09480…094a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---------I00; ┆
0x094a0…094c0 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d ┆ I I0>;-┆
0x094c0…094e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x094e0…09500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 24 3b 20 ┆---------------------------->$; ┆
0x09500…09520 (4, 1, 6) 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 45 4d 50 ┆STACK CONTENTS ON EXIT: EMP┆
0x09520…09540 54 59 24 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆TY$>;===========================┆
0x09540…09560 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x09560…09580 3d 3d 3e 01 20 01 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 0b 20 20 20 20 20 20 20 53 59 4d 42 0b ┆==> SKIP SYMB ┆
0x09580…095a0 01 20 01 08 50 55 52 47 45 46 3a 3a 08 01 20 01 01 3b 01 20 3b 47 45 54 20 41 4e 44 20 53 41 56 ┆ PURGEF:: ; ;GET AND SAV┆
0x095a0…095c0 45 20 50 4f 49 4e 54 45 52 20 46 52 4f 4d 20 53 54 41 43 4b 20 01 3b 01 29 20 20 20 20 20 20 20 ┆E POINTER FROM STACK ; ) ┆
0x095c0…095e0 50 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 3d 52 45 54 55 52 4e 20 41 44 44 52 45 ┆POP D ;DE=RETURN ADDRE┆
0x095e0…09600 53 53 29 24 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e ┆SS)$ POP H ;HL->┆
0x09600…09620 (4, 1, 7) 46 49 4c 45 4e 41 4d 45 24 30 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 46 49 4c 50 54 52 20 ┆FILENAME$0 SHLD FILPTR ┆
0x09620…09640 20 3b 53 41 56 45 20 41 44 44 52 45 53 53 20 4f 46 20 46 49 4c 45 4e 41 4d 45 30 38 20 20 20 20 ┆ ;SAVE ADDRESS OF FILENAME08 ┆
0x09640…09660 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 3b 50 55 54 20 52 45 54 55 52 4e 20 41 ┆ PUSH D ;PUT RETURN A┆
0x09660…09680 44 44 52 45 53 53 20 42 41 43 4b 20 4f 4e 20 53 54 41 43 4b 38 01 20 01 01 3b 01 31 3b 43 48 45 ┆DDRESS BACK ON STACK8 ; 1;CHE┆
0x09680…096a0 43 4b 20 54 48 41 54 20 54 48 45 52 45 20 49 53 20 52 4f 4f 4d 20 4f 4e 20 54 48 45 20 48 45 41 ┆CK THAT THERE IS ROOM ON THE HEA┆
0x096a0…096c0 50 20 46 4f 52 20 54 48 45 20 44 43 42 31 01 3b 01 2f 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 ┆P FOR THE DCB1 ; / LHLD ┆
0x096c0…096e0 20 4e 50 20 20 20 20 20 20 3b 48 4c 2d 3e 4e 45 58 54 20 56 41 43 41 4e 54 20 49 4e 20 48 45 41 ┆ NP ;HL->NEXT VACANT IN HEA┆
0x096e0…09700 50 2f 2f 20 20 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 2d 3e 4e ┆P// XCHG ;DE->N┆
0x09700…09720 (4, 1, 8) 45 58 54 20 56 41 43 41 4e 54 20 49 4e 20 48 45 41 50 2f 39 20 20 20 20 20 20 20 4c 58 49 20 20 ┆EXT VACANT IN HEAP/9 LXI ┆
0x09720…09740 20 20 20 48 2c 2d 23 32 35 36 2d 23 34 38 2d 23 34 30 2d 23 31 30 20 3b 48 4c 3a 3d 52 45 51 55 ┆ H,-#256-#48-#40-#10 ;HL:=REQU┆
0x09740…09760 49 52 45 44 20 44 49 53 54 41 4e 43 45 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IRED DISTANCE9; ┆
0x09760…09780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 42 45 54 57 45 45 4e 20 53 54 41 43 ┆ ; BETWEEN STAC┆
0x09780…097a0 4b 20 41 4e 44 20 48 45 41 50 3b 11 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 53 50 11 2a 20 ┆K AND HEAP; DAD SP * ┆
0x097a0…097c0 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4c 20 20 20 20 20 3b 43 41 4c 43 55 4c 41 54 45 ┆ MOV A,L ;CALCULATE┆
0x097c0…097e0 20 44 49 53 54 41 4e 43 45 2a 10 20 20 20 20 20 20 20 53 55 42 20 20 20 20 20 45 10 12 20 20 20 ┆ DISTANCE* SUB E ┆
0x097e0…09800 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 48 12 29 20 20 20 20 20 20 20 53 42 42 20 20 20 20 20 ┆ MOV A,H ) SBB ┆
0x09800…09820 (4, 1, 9) 44 20 20 20 20 20 20 20 3b 49 53 20 49 54 20 53 55 46 46 49 43 49 45 4e 54 3f 29 1b 20 20 20 20 ┆D ;IS IT SUFFICIENT?) ┆
0x09820…09840 20 20 20 4a 4e 43 20 20 20 20 20 53 55 46 46 20 20 20 20 3b 59 45 53 1b 3a 20 20 20 20 20 20 20 ┆ JNC SUFF ;YES : ┆
0x09840…09860 4d 56 49 20 20 20 20 20 45 2c 27 4b 27 20 20 20 3b 28 53 45 54 20 55 50 20 45 52 52 4f 52 20 43 ┆MVI E,'K' ;(SET UP ERROR C┆
0x09860…09880 4f 44 45 20 46 4f 52 20 55 4e 53 49 46 46 49 43 45 4e 54 3a 27 20 20 20 20 20 20 20 20 20 20 20 ┆ODE FOR UNSIFFICENT:' ┆
0x09880…098a0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 53 54 41 43 4b 20 4c 45 4e 47 54 48 29 27 3b 20 20 ┆ ; STACK LENGTH)'; ┆
0x098a0…098c0 20 20 20 20 20 4a 4d 50 20 20 20 20 20 58 45 51 52 52 20 20 20 3b 4e 4f 2e 20 54 45 52 4d 49 4e ┆ JMP XEQRR ;NO. TERMIN┆
0x098c0…098e0 41 54 45 20 57 49 54 48 20 52 55 4e 20 54 49 4d 45 20 45 52 52 4f 52 20 4b 3b 07 20 20 20 20 20 ┆ATE WITH RUN TIME ERROR K; ┆
0x098e0…09900 20 20 07 2c 53 55 46 46 3a 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 59 45 53 2e ┆ ,SUFF: XCHG ;YES.┆
0x09900…09920 (4, 1, 10) 20 48 4c 2d 3e 54 4f 50 20 4f 46 20 48 45 41 50 2c 3d 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 ┆ HL->TOP OF HEAP,= SHLD ┆
0x09920…09940 20 44 43 42 41 44 52 20 20 3b 54 48 49 53 20 53 48 4f 55 4c 44 20 42 45 20 54 48 45 20 44 41 54 ┆ DCBADR ;THIS SHOULD BE THE DAT┆
0x09940…09960 41 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 3d 27 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 ┆A CONTROL BLOCK=' LXI ┆
0x09960…09980 44 2c 23 32 35 36 2b 23 34 38 20 3b 52 45 53 45 52 56 45 20 52 4f 4f 4d 27 25 20 20 20 20 20 20 ┆D,#256+#48 ;RESERVE ROOM'% ┆
0x09980…099a0 20 44 41 44 20 20 20 20 20 44 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 4f 4e 20 48 45 41 50 25 ┆ DAD D ; ON HEAP%┆
0x099a0…099c0 28 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 4e 50 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 ┆( SHLD NP ; ┆
0x099c0…099e0 20 20 46 4f 52 20 44 43 42 28 07 20 20 20 20 20 20 20 07 01 3b 01 3c 3b 54 48 45 20 46 4f 4c 4c ┆ FOR DCB( ; <;THE FOLL┆
0x099e0…09a00 4f 57 49 4e 47 20 43 4f 44 45 20 42 55 49 4c 44 53 20 41 4e 44 20 50 55 53 48 45 53 20 54 48 45 ┆OWING CODE BUILDS AND PUSHES THE┆
0x09a00…09a20 (4, 1, 11) 20 50 41 52 41 4d 45 54 45 52 53 20 46 4f 52 20 54 48 45 3c 11 3b 50 55 52 47 45 20 53 55 42 52 ┆ PARAMETERS FOR THE< ;PURGE SUBR┆
0x09a20…09a40 4f 55 54 49 4e 45 11 01 3b 01 20 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 31 20 20 20 ┆OUTINE ; LXI D,1 ┆
0x09a40…09a60 20 20 3b 44 43 42 20 53 49 5a 45 20 10 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 10 01 20 ┆ ;DCB SIZE PUSH D ┆
0x09a60…09a80 01 01 3b 01 0d 3b 42 4c 41 4e 4b 20 46 49 4c 4e 41 4d 0d 01 3b 01 38 20 20 20 20 20 20 20 4d 56 ┆ ; ;BLANK FILNAM ; 8 MV┆
0x09a80…09aa0 49 20 20 20 20 20 41 2c 23 38 20 20 20 20 20 3b 41 3d 4c 45 4e 47 54 48 20 4f 46 20 46 49 45 4c ┆I A,#8 ;A=LENGTH OF FIEL┆
0x09aa0…09ac0 44 20 54 4f 20 42 45 20 42 4c 41 4e 4b 45 44 38 30 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 ┆D TO BE BLANKED80 LXI ┆
0x09ac0…09ae0 48 2c 46 49 4c 4e 41 4d 20 3b 48 4c 2d 3e 46 49 45 4c 44 20 54 4f 20 42 45 20 42 4c 41 4e 4b 45 ┆H,FILNAM ;HL->FIELD TO BE BLANKE┆
0x09ae0…09b00 44 30 22 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 45 30 4c 49 4e 20 20 20 20 3b 42 4c 41 4e ┆D0" CALL E0LIN ;BLAN┆
0x09b00…09b20 (4, 1, 12) 4b 20 49 54 21 22 01 20 01 01 3b 01 3b 3b 4d 4f 56 45 20 43 55 52 52 45 4e 54 20 46 49 4c 45 20 ┆K IT!" ; ;;MOVE CURRENT FILE ┆
0x09b20…09b40 4e 41 4d 45 20 54 4f 20 46 49 4c 4e 41 4d 2e 20 54 48 45 20 43 55 52 52 45 4e 54 20 46 49 4c 45 ┆NAME TO FILNAM. THE CURRENT FILE┆
0x09b40…09b60 20 4e 41 4d 45 20 49 53 3b 14 3b 54 45 52 4d 49 4e 41 54 45 44 20 42 59 20 41 20 27 3a 27 14 01 ┆ NAME IS; ;TERMINATED BY A ':' ┆
0x09b60…09b80 3b 01 23 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 46 49 4c 4e 41 4d 20 3b 42 43 2d 3e ┆; # LXI B,FILNAM ;BC->┆
0x09b80…09ba0 46 49 4c 4e 41 4d 23 2f 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 46 49 4c 50 54 52 20 20 20 ┆FILNAM#/ LHLD FILPTR ┆
0x09ba0…09bc0 3b 48 4c 2d 3e 46 49 4c 45 4e 41 4d 45 20 50 41 52 41 4d 45 54 45 52 2f 3a 20 20 20 20 20 20 20 ┆;HL->FILENAME PARAMETER/: ┆
0x09bc0…09be0 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 53 4b 49 50 20 4c 45 4e 47 54 48 20 4f 46 ┆INX H ;SKIP LENGTH OF┆
0x09be0…09c00 20 46 49 4c 45 4e 41 4d 45 20 50 41 52 41 4d 45 54 45 52 3a 3a 4e 45 58 46 49 4c 3a 4d 4f 56 20 ┆ FILENAME PARAMETER::NEXFIL:MOV ┆
0x09c00…09c20 (4, 1, 13) 20 20 20 20 41 2c 4d 20 20 20 20 20 20 3b 41 3a 3d 41 20 43 48 41 52 41 43 54 45 52 20 46 52 4f ┆ A,M ;A:=A CHARACTER FRO┆
0x09c20…09c40 4d 20 54 48 45 20 46 49 4c 45 20 4e 41 4d 45 3a 27 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 ┆M THE FILE NAME:' CPI ┆
0x09c40…09c60 27 3a 27 20 20 20 20 20 20 3b 49 53 20 49 54 20 41 20 43 4f 4c 4f 4e 3f 27 2d 20 20 20 20 20 20 ┆':' ;IS IT A COLON?'- ┆
0x09c60…09c80 20 4a 5a 20 20 20 20 20 20 47 45 54 44 53 43 20 20 20 3b 59 45 53 2c 20 57 45 20 41 52 45 20 46 ┆ JZ GETDSC ;YES, WE ARE F┆
0x09c80…09ca0 49 4e 49 53 48 45 44 2d 2f 20 20 20 20 20 20 20 53 54 41 58 20 20 20 20 42 20 20 20 20 20 20 20 ┆INISHED-/ STAX B ┆
0x09ca0…09cc0 20 3b 4e 4f 2c 20 53 54 4f 52 45 20 49 54 20 49 4e 20 46 49 4c 4e 41 4d 2f 21 20 20 20 20 20 20 ┆ ;NO, STORE IT IN FILNAM/! ┆
0x09cc0…09ce0 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 50 4f 49 4e 54 20 54 4f 21 2a 20 20 20 ┆ INX H ;POINT TO!* ┆
0x09ce0…09d00 20 20 20 20 49 4e 58 20 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 20 20 20 4e 45 58 54 20 43 48 ┆ INX B ; NEXT CH┆
0x09d00…09d20 (4, 1, 14) 41 52 41 43 54 45 52 2a 2c 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 4e 45 58 46 49 4c 20 20 ┆ARACTER*, JMP NEXFIL ┆
0x09d20…09d40 20 3b 41 4e 44 20 44 4f 20 49 54 20 4f 4e 43 45 20 4d 4f 52 45 2c 01 20 01 01 3b 01 0c 3b 47 45 ┆ ;AND DO IT ONCE MORE, ; ;GE┆
0x09d40…09d60 54 20 44 49 53 43 20 49 44 0c 01 3b 01 3a 47 45 54 44 53 43 3a 49 4e 58 20 20 20 20 20 48 20 20 ┆T DISC ID ; :GETDSC:INX H ┆
0x09d60…09d80 20 20 20 20 20 20 3b 48 4c 2d 3e 44 49 53 43 20 49 44 20 49 4e 20 46 49 4c 45 4e 41 4d 45 20 50 ┆ ;HL->DISC ID IN FILENAME P┆
0x09d80…09da0 41 52 41 4d 45 54 45 52 3a 1c 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 4d 20 20 20 20 ┆ARAMETER: MOV C,M ┆
0x09da0…09dc0 20 20 3b 47 45 54 1c 22 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 ┆ ;GET " INX H ┆
0x09dc0…09de0 3b 20 20 44 49 53 43 20 49 44 22 24 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 4d 20 20 ┆; DISC ID"$ MOV B,M ┆
0x09de0…09e00 20 20 20 20 3b 20 20 20 20 49 4e 54 4f 20 42 43 24 32 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 ┆ ; INTO BC$2 INX ┆
0x09e00…09e20 (4, 1, 15) 20 48 20 20 20 20 20 20 20 20 3b 53 4b 49 50 20 54 48 45 20 53 55 42 53 45 51 55 45 4e 54 20 43 ┆ H ;SKIP THE SUBSEQUENT C┆
0x09e20…09e40 4f 4c 4f 4e 32 25 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 50 ┆OLON2% PUSH B ;P┆
0x09e40…09e60 55 53 48 20 44 49 53 43 20 49 44 25 01 20 01 01 3b 01 0e 3b 47 45 54 20 46 49 4c 45 20 54 59 50 ┆USH DISC ID% ; ;GET FILE TYP┆
0x09e60…09e80 45 0e 01 3b 01 26 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 48 ┆E ; & INX H ;H┆
0x09e80…09ea0 4c 2d 3e 46 49 4c 45 20 54 59 50 45 26 25 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 4d ┆L->FILE TYPE&% MOV B,M┆
0x09ea0…09ec0 20 20 20 20 20 20 3b 42 3a 3d 46 49 4c 45 20 54 59 50 45 25 2f 20 20 20 20 20 20 20 50 55 53 48 ┆ ;B:=FILE TYPE%/ PUSH┆
0x09ec0…09ee0 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 46 49 4c 45 20 54 59 50 45 20 49 4e 20 ┆ B ;PUSH FILE TYPE IN ┆
0x09ee0…09f00 4d 53 42 2e 2f 01 20 01 01 3b 01 31 3b 53 45 54 20 55 50 20 52 45 4d 41 49 4e 49 4e 47 20 50 41 ┆MSB./ ; 1;SET UP REMAINING PA┆
0x09f00…09f20 (4, 1, 16) 52 41 4d 45 54 45 52 53 20 46 4f 52 20 50 55 52 47 45 20 53 55 42 52 4f 55 54 49 4e 45 31 01 3b ┆RAMETERS FOR PURGE SUBROUTINE1 ;┆
0x09f20…09f40 01 17 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 46 49 4c 4e 41 4d 17 32 20 20 20 20 20 ┆ LXI B,FILNAM 2 ┆
0x09f40…09f60 20 20 50 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 41 44 44 52 45 53 53 ┆ PUSH B ;PUSH ADDRESS┆
0x09f60…09f80 20 4f 46 20 46 49 4c 45 20 4e 41 4d 45 32 15 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 44 43 ┆ OF FILE NAME2 LHLD DC┆
0x09f80…09fa0 42 41 44 52 15 2c 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 50 ┆BADR , PUSH H ;P┆
0x09fa0…09fc0 55 53 48 20 41 44 44 52 45 53 53 20 4f 46 20 44 43 42 2c 21 20 20 20 20 20 20 20 4d 56 49 20 20 ┆USH ADDRESS OF DCB,! MVI ┆
0x09fc0…09fe0 20 20 20 4d 2c 30 20 20 20 20 20 20 3b 49 4e 44 49 43 41 54 45 21 1f 20 20 20 20 20 20 20 4c 58 ┆ M,0 ;INDICATE! LX┆
0x09fe0…0a000 49 20 20 20 20 20 42 2c 44 4b 5d 42 4e 20 20 3b 20 20 46 49 4c 45 1f 23 20 20 20 20 20 20 20 44 ┆I B,DKÅBN ; FILE # D┆
0x0a000…0a020 (5, 0, 1) 41 44 20 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 20 20 20 20 43 4c 4f 53 45 44 23 12 20 20 20 ┆AD B ; CLOSED# ┆
0x0a020…0a040 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 12 01 20 01 01 3b 01 12 3b 44 45 4c 45 54 45 20 54 ┆ MVI M,0 ; ;DELETE T┆
0x0a040…0a060 48 41 54 20 46 49 4c 45 21 12 01 3b 01 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 50 55 52 ┆HAT FILE! ; CALL PUR┆
0x0a060…0a080 47 45 14 01 20 01 01 3b 01 0d 3b 53 45 54 20 49 4f 52 45 53 55 4c 54 0d 01 3b 01 15 20 20 20 20 ┆GE ; ;SET IORESULT ; ┆
0x0a080…0a0a0 20 20 20 53 54 41 20 20 20 20 20 49 4f 52 53 4c 54 15 01 20 01 01 3b 01 1b 3b 52 45 4c 45 41 53 ┆ STA IORSLT ; ;RELEAS┆
0x0a0a0…0a0c0 45 20 44 43 42 20 41 52 45 41 20 46 52 4f 4d 20 48 45 41 50 1b 01 3b 01 3a 20 20 20 20 20 20 20 ┆E DCB AREA FROM HEAP ; : ┆
0x0a0c0…0a0e0 4c 48 4c 44 20 20 20 20 44 43 42 41 44 52 20 20 3b 48 4c 2d 3e 54 4f 50 20 4f 46 20 48 45 41 50 ┆LHLD DCBADR ;HL->TOP OF HEAP┆
0x0a0e0…0a100 20 42 45 46 4f 52 45 20 52 45 53 45 52 56 41 54 49 4f 4e 3a 37 20 20 20 20 20 20 20 53 48 4c 44 ┆ BEFORE RESERVATION:7 SHLD┆
0x0a100…0a120 (5, 0, 2) 20 20 20 20 4e 50 20 20 20 20 20 20 3b 53 54 4f 52 45 20 49 54 20 41 53 20 54 48 45 20 4e 45 57 ┆ NP ;STORE IT AS THE NEW┆
0x0a120…0a140 20 54 4f 50 20 4f 46 20 48 45 41 50 37 01 20 01 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 0b ┆ TOP OF HEAP7 RET ┆
0x0a140…0a160 20 20 20 20 20 20 20 53 4b 49 50 0b 2c 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4c 4f 43 41 4c 20 44 ┆ SKIP ,;********** LOCAL D┆
0x0a160…0a180 41 54 41 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2c 01 20 01 3e 44 43 ┆ATA *********************, >DC┆
0x0a180…0a1a0 42 41 44 52 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 ┆BADR:DS 2 ;ADDRESS OF┆
0x0a1a0…0a1c0 20 44 41 54 41 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 46 4f 52 20 46 49 4c 45 3e 21 46 49 ┆ DATA CONTROL BLOCK FOR FILE>!FI┆
0x0a1c0…0a1e0 4c 4e 41 4d 3a 44 53 20 20 20 20 20 20 38 20 20 20 20 20 20 20 3b 46 49 4c 45 20 4e 41 4d 45 21 ┆LNAM:DS 8 ;FILE NAME!┆
0x0a1e0…0a200 35 46 49 4c 50 54 52 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 ┆5FILPTR:DS 2 ;ADDRESS┆
0x0a200…0a220 (5, 0, 3) 20 4f 46 20 46 49 4c 45 4e 41 4d 45 20 50 41 52 41 4d 45 54 45 52 35 01 20 01 0a 20 20 20 20 20 ┆ OF FILENAME PARAMETER5 ┆
0x0a220…0a240 20 20 45 4e 44 0a 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ END cccccccccccccccccccccccc┆
0x0a240…0a260 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x0a300…0a400 (5, 0, 4) 0x63[0x100]
[…0x1…]
0x0a500…0a520 (5, 0, 6) 58 52 45 46 31 20 20 20 52 41 01 05 00 1f 00 08 00 00 00 1f 00 08 41 1f 00 05 00 00 00 00 00 00 ┆XREF1 RA A ┆
0x0a520…0a540 13 02 58 52 45 46 31 20 20 20 02 5d 03 01 00 00 00 76 76 76 13 0d 04 58 52 45 46 31 20 20 20 02 ┆ XREF1 Å vvv XREF1 ┆
0x0a540…0a560 00 00 08 0d 0d 04 53 45 41 52 20 20 20 20 02 00 00 08 0d 0d 05 53 4c 55 54 4c 20 20 20 01 00 00 ┆ SEAR SLUTL ┆
0x0a560…0a580 08 0d 0d 05 4c 41 42 4c 20 20 20 20 02 00 00 08 0d 0d 05 53 54 41 52 58 20 20 20 03 00 00 08 0d ┆ LABL STARX ┆
0x0a580…0a5a0 0d 05 53 4c 55 54 58 20 20 20 04 00 00 08 0d 0d 05 49 4e 56 48 20 20 20 20 05 00 00 08 0d 0d 05 ┆ SLUTX INVH ┆
0x0a5a0…0a5c0 4d 4f 56 45 20 20 20 20 06 00 00 08 0d 0d 05 4c 49 4e 45 20 20 20 20 07 00 00 08 0d 0d 04 53 43 ┆MOVE LINE SC┆
0x0a5c0…0a5e0 41 4e 20 20 20 20 02 3b 01 08 0d 0d 05 53 54 52 41 44 20 20 20 08 00 01 08 0d 0d 05 54 45 47 4e ┆AN ; STRAD TEGN┆
0x0a5e0…0a600 20 20 20 20 09 00 01 08 0d 0d 05 4b 4c 41 53 20 20 20 20 0a 00 01 08 0d 0d 04 52 45 53 20 20 63 ┆ KLAS RES c┆
0x0a600…0a620 (5, 0, 7) ExtentHdr {name=»SENDM «, typ=»K«, seg=»A«, next=0x00, basis=0x0024, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000c,0a (0x00ca00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0a620…0a640 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x0a640…0a660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x0a660…0a680 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x0a680…0a6a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x0a6a0…0a6c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x0a6c0…0a6e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x0a6e0…0a700 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x0a700…0a720 (5, 0, 8) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x0a720…0a740 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x0a740…0a760 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x0a760…0a780 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x0a780…0a7a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0a7a0…0a7c0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 53 45 4e 44 ┆**>>;* PROCEDURE NAME: SEND┆
0x0a7c0…0a7e0 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆M ┆
0x0a7e0…0a800 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x0a800…0a820 (5, 0, 9) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0a820…0a840 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x0a840…0a860 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x0a860…0a880 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x0a880…0a8a0 53 43 52 49 50 54 49 4f 4e 3a 0e 39 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 53 45 4e ┆SCRIPTION: 9; THIS PROCEDURE SEN┆
0x0a8a0…0a8c0 44 53 20 41 20 4d 45 53 53 41 47 45 20 54 4f 20 54 48 45 20 4d 41 49 4e 20 53 45 4d 41 50 48 4f ┆DS A MESSAGE TO THE MAIN SEMAPHO┆
0x0a8c0…0a8e0 52 45 20 4f 46 39 12 3b 20 41 4e 4f 54 48 45 52 20 50 52 4f 43 45 53 53 2e 12 3e 3b 20 50 4c 45 ┆RE OF9 ; ANOTHER PROCESS. >; PLE┆
0x0a8e0…0a900 41 53 45 20 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 ┆ASE REFER TO THE PASCAL STANDARD┆
0x0a900…0a920 (5, 0, 10) 20 41 53 53 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 ┆ ASSEMBLER PACKAGE MANUAL> ; SEC┆
0x0a920…0a940 54 49 4f 4e 20 34 2e 31 20 46 4f 52 20 44 45 54 41 49 4c 53 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d ┆TION 4.1 FOR DETAILS. ; >;-----┆
0x0a940…0a960 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0a960…0a980 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 ┆------------------------>0; STAC┆
0x0a980…0a9a0 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 20 20 20 20 49 20 20 20 20 20 20 ┆K CONTENTS ON ENTRY: I ┆
0x0a9a0…0a9c0 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x0a9c0…0a9e0 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 ┆ I---------------I00; ┆
0x0a9e0…0aa00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 ┆ I ┆
0x0aa00…0aa20 (5, 0, 11) 52 45 54 55 52 4e 20 41 44 52 2e 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RETURN ADR. I00; ┆
0x0aa20…0aa40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 ┆ I---------------I┆
0x0aa40…0aa60 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆00; ┆
0x0aa60…0aa80 20 49 20 20 2d 3e 20 53 54 41 54 55 53 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ I -> STATUS I00; ┆
0x0aa80…0aaa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I------------┆
0x0aaa0…0aac0 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---I00; ┆
0x0aac0…0aae0 20 20 20 20 20 49 20 20 20 20 4c 45 4e 47 54 48 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 ┆ I LENGTH I00; ┆
0x0aae0…0ab00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d ┆ I--------┆
0x0ab00…0ab20 (5, 0, 12) 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-------I00; ┆
0x0ab20…0ab40 20 20 20 20 20 20 20 20 20 49 20 20 2d 3e 20 43 4f 4e 54 45 4e 54 53 20 20 49 30 30 3b 20 20 20 ┆ I -> CONTENTS I00; ┆
0x0ab40…0ab60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d ┆ I----┆
0x0ab60…0ab80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------I00; ┆
0x0ab80…0aba0 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 2d 3e 20 52 45 43 56 52 2e 20 50 43 42 20 49 30 30 ┆ I -> RECVR. PCB I00┆
0x0aba0…0abc0 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆; I┆
0x0abc0…0abe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---------------I00; ┆
0x0abe0…0ac00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I ┆
0x0ac00…0ac20 (5, 0, 13) 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I0>;---------------------------┆
0x0ac20…0ac40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0ac40…0ac60 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a 20 20 20 ┆-->$; STACK CONTENTS ON EXIT: ┆
0x0ac60…0ac80 20 20 20 45 4d 50 54 59 24 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ EMPTY$>;---------------------┆
0x0ac80…0aca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0aca0…0acc0 2d 2d 2d 2d 2d 2d 2d 2d 3e 2f 3b 20 54 48 45 20 4d 45 53 53 41 47 45 20 49 53 20 45 58 43 48 41 ┆-------->/; THE MESSAGE IS EXCHA┆
0x0acc0…0ace0 4e 47 45 44 20 49 4e 20 41 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 2e 2f 3e 3b 20 42 59 54 ┆NGED IN A MESSAGE BUFFER./>; BYT┆
0x0ace0…0ad00 45 53 20 30 2d 31 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 57 49 4c ┆ES 0-1 OF THE MESSAGE BUFFER WIL┆
0x0ad00…0ad20 (5, 0, 14) 4c 20 43 4f 4e 54 41 49 4e 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 3e 38 3b 20 54 48 45 ┆L CONTAIN THE ADDRESS OF >8; THE┆
0x0ad20…0ad40 20 50 43 42 20 4f 46 20 54 48 45 20 53 45 4e 44 49 4e 47 20 50 52 4f 43 45 53 53 20 28 4e 4f 54 ┆ PCB OF THE SENDING PROCESS (NOT┆
0x0ad40…0ad60 45 3a 20 42 59 54 45 53 20 30 2d 31 20 44 4f 20 4e 4f 54 38 23 3b 20 43 4f 4e 54 41 49 4e 20 54 ┆E: BYTES 0-1 DO NOT8#; CONTAIN T┆
0x0ad60…0ad80 48 45 20 41 44 44 52 45 53 53 20 41 20 53 45 4d 41 50 48 4f 52 45 29 2e 23 35 3b 20 42 59 54 45 ┆HE ADDRESS A SEMAPHORE).#5; BYTE┆
0x0ad80…0ada0 20 33 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 57 49 4c 4c 20 43 4f ┆ 3 OF THE MESSAGE BUFFER WILL CO┆
0x0ada0…0adc0 4e 54 41 49 4e 20 27 4c 45 4e 47 54 48 27 2e 35 37 3b 20 49 46 20 4c 45 4e 47 54 48 20 3c 3d 20 ┆NTAIN 'LENGTH'.57; IF LENGTH <= ┆
0x0adc0…0ade0 31 30 20 42 59 54 45 53 20 34 2d 31 33 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 ┆10 BYTES 4-13 OF THE MESSAGE BUF┆
0x0ade0…0ae00 46 45 52 20 57 49 4c 4c 37 26 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 54 ┆FER WILL7&; CONT┆
0x0ae00…0ae20 (5, 0, 15) 41 49 4e 20 54 48 45 20 4d 45 53 53 41 47 45 2e 26 37 3b 20 49 46 20 4c 45 4e 47 54 48 20 3e 20 ┆AIN THE MESSAGE.&7; IF LENGTH > ┆
0x0ae20…0ae40 31 30 20 20 41 20 44 41 54 41 20 41 52 45 41 20 49 53 20 41 4c 4c 4f 43 41 54 45 44 20 49 4e 20 ┆10 A DATA AREA IS ALLOCATED IN ┆
0x0ae40…0ae60 57 48 49 43 48 20 54 48 45 37 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 45 53 ┆WHICH THE7); MES┆
0x0ae60…0ae80 53 41 47 45 20 57 49 4c 4c 20 42 45 20 53 54 4f 52 45 44 2e 29 36 3b 20 20 20 20 20 20 20 20 20 ┆SAGE WILL BE STORED.)6; ┆
0x0ae80…0aea0 20 20 20 20 20 20 20 20 42 59 54 45 53 20 34 2d 35 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 ┆ BYTES 4-5 OF THE MESSAGE┆
0x0aea0…0aec0 20 42 55 46 46 45 52 20 57 49 4c 4c 36 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BUFFER WILL65; ┆
0x0aec0…0aee0 43 4f 4e 54 41 49 4e 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 20 4d 45 53 53 41 ┆CONTAIN THE ADDRESS OF THE MESSA┆
0x0aee0…0af00 47 45 2e 35 36 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 54 45 53 20 36 2d 37 ┆GE.56; BYTES 6-7┆
0x0af00…0af20 (5, 0, 16) 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 57 49 4c 4c 36 34 3b 20 20 ┆ OF THE MESSAGE BUFFER WILL64; ┆
0x0af20…0af40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 54 41 49 4e 20 54 48 45 20 41 43 54 55 41 ┆ CONTAIN THE ACTUA┆
0x0af40…0af60 4c 20 4e 55 4d 42 45 52 20 4f 46 20 42 59 54 45 53 34 1c 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆L NUMBER OF BYTES4 ; ┆
0x0af60…0af80 20 20 20 20 20 41 4c 4c 4f 43 41 54 45 44 2e 1c 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ ALLOCATED. >;==============┆
0x0af80…0afa0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x0afa0…0afc0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 07 20 20 20 20 20 20 20 07 0b 20 20 20 20 20 20 ┆===============> ┆
0x0afc0…0afe0 20 53 4b 49 50 0b 0b 20 20 20 20 20 20 20 53 59 4d 42 0b 01 20 01 07 53 45 4e 44 4d 3a 3a 07 01 ┆ SKIP SYMB SENDM:: ┆
0x0afe0…0b000 20 01 01 3b 01 0f 3b 47 45 54 20 50 41 52 41 4d 45 54 45 52 53 0f 01 3b 01 29 20 20 20 20 20 20 ┆ ; ;GET PARAMETERS ; ) ┆
0x0b000…0b020 (5, 1, 1) 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 42 43 3d 52 45 54 55 52 4e 20 41 44 44 52 ┆ POP B ;BC=RETURN ADDR┆
0x0b020…0b040 45 53 53 29 22 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d ┆ESS)" POP H ;HL-┆
0x0b040…0b060 3e 53 54 41 54 55 53 22 15 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 53 54 41 50 54 52 15 21 ┆>STATUS" SHLD STAPTR !┆
0x0b060…0b080 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 3d 4c 45 4e 47 54 ┆ POP H ;HL=LENGT┆
0x0b080…0b0a0 48 21 15 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 4c 45 4e 47 54 48 15 24 20 20 20 20 20 20 ┆H! SHLD LENGTH $ ┆
0x0b0a0…0b0c0 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 43 4f 4e 54 45 4e 54 53 24 15 ┆ POP H ;HL->CONTENTS$ ┆
0x0b0c0…0b0e0 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 43 4f 4e 50 54 52 15 28 20 20 20 20 20 20 20 50 4f ┆ SHLD CONPTR ( PO┆
0x0b0e0…0b100 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 52 45 43 45 49 56 45 52 20 50 43 42 28 ┆P H ;HL->RECEIVER PCB(┆
0x0b100…0b120 (5, 1, 2) 15 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 52 45 43 50 54 52 15 2e 20 20 20 20 20 20 20 50 ┆ SHLD RECPTR . P┆
0x0b120…0b140 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 3b 52 45 53 54 4f 52 45 20 52 45 54 55 52 4e 20 41 ┆USH B ;RESTORE RETURN A┆
0x0b140…0b160 44 44 52 45 53 53 2e 01 20 01 01 3b 01 26 3b 49 53 20 4c 45 4e 47 54 48 20 4c 45 47 41 4c 20 28 ┆DDRESS. ; &;IS LENGTH LEGAL (┆
0x0b160…0b180 49 2e 45 2e 20 4c 45 4e 47 54 48 20 3c 3d 20 32 35 35 29 3f 26 01 3b 01 3d 20 20 20 20 20 20 20 ┆I.E. LENGTH <= 255)?& ; = ┆
0x0b180…0b1a0 4c 44 41 20 20 20 20 20 4c 45 4e 47 54 48 2b 31 20 3b 54 48 45 20 43 4f 4e 54 45 4e 54 53 20 4f ┆LDA LENGTH+1 ;THE CONTENTS O┆
0x0b1a0…0b1c0 46 20 4c 45 4e 47 54 48 2b 31 20 49 53 20 4e 4f 54 20 5a 45 52 4f 3d 29 20 20 20 20 20 20 20 20 ┆F LENGTH+1 IS NOT ZERO=) ┆
0x0b1c0…0b1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 49 46 20 4c 45 4e 47 54 48 3e 32 35 ┆ ; IF LENGTH>25┆
0x0b1e0…0b200 35 29 23 20 20 20 20 20 20 20 41 4e 41 20 20 20 20 20 41 20 20 20 20 20 20 20 20 3b 4c 45 4e 47 ┆5)# ANA A ;LENG┆
0x0b200…0b220 (5, 1, 3) 54 48 20 4f 4b 3f 23 29 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 4c 45 4e 4c 4f 4e 20 20 20 ┆TH OK?#) JNZ LENLON ┆
0x0b220…0b240 3b 4e 4f 2c 20 47 4f 20 46 49 4e 49 53 48 20 55 50 29 01 20 01 01 3b 01 35 3b 54 45 53 54 20 49 ┆;NO, GO FINISH UP) ; 5;TEST I┆
0x0b240…0b260 46 20 54 48 45 52 45 20 41 52 45 20 41 4e 59 20 4d 45 53 53 41 47 45 53 20 41 56 41 49 4c 41 42 ┆F THERE ARE ANY MESSAGES AVAILAB┆
0x0b260…0b280 4c 45 20 4f 4e 20 54 48 45 20 50 4f 4f 4c 35 0a 3b 53 45 4d 41 50 48 4f 52 45 0a 01 3b 01 36 20 ┆LE ON THE POOL5 ;SEMAPHORE ; 6 ┆
0x0b280…0b2a0 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 50 4f 4f 4c 2b 31 20 3b 48 4c 2d 3e 4c 45 4e 47 ┆ LXI H,POOL+1 ;HL->LENG┆
0x0b2a0…0b2c0 54 48 20 46 49 45 4c 44 20 4f 46 20 53 45 4d 41 50 48 4f 52 45 36 38 20 20 20 20 20 20 20 4d 4f ┆TH FIELD OF SEMAPHORE68 MO┆
0x0b2c0…0b2e0 56 20 20 20 20 20 41 2c 4d 20 20 20 20 20 20 3b 41 3a 3d 4e 55 4d 42 45 52 20 4f 46 20 41 56 41 ┆V A,M ;A:=NUMBER OF AVA┆
0x0b2e0…0b300 49 4c 41 42 4c 45 20 4d 45 53 53 41 47 45 53 38 25 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 ┆ILABLE MESSAGES8% CPI ┆
0x0b300…0b320 (5, 1, 4) 33 20 20 20 20 20 20 20 20 3b 4c 45 53 53 20 54 48 41 4e 20 33 3f 25 37 20 20 20 20 20 20 20 4a ┆3 ;LESS THAN 3?%7 J┆
0x0b320…0b340 43 20 20 20 20 20 20 4e 4f 4d 45 53 20 20 20 20 3b 59 45 53 2e 20 57 45 20 44 41 52 45 20 4e 4f ┆C NOMES ;YES. WE DARE NO┆
0x0b340…0b360 54 20 47 45 54 20 41 20 4d 45 53 53 41 47 45 37 01 20 01 01 3b 01 27 3b 47 45 54 20 4d 45 53 53 ┆T GET A MESSAGE7 ; ';GET MESS┆
0x0b360…0b380 41 47 45 20 42 55 46 46 45 52 20 46 52 4f 4d 20 50 4f 4f 4c 20 53 45 4d 41 50 48 4f 52 45 27 01 ┆AGE BUFFER FROM POOL SEMAPHORE' ┆
0x0b380…0b3a0 3b 01 15 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 50 4f 4f 4c 15 14 20 20 20 20 20 20 ┆; LXI B,POOL ┆
0x0b3a0…0b3c0 20 43 41 4c 4c 20 20 20 20 46 5d 42 55 46 14 01 20 01 01 3b 01 3d 3b 53 41 56 45 20 41 44 44 52 ┆ CALL FÅBUF ; =;SAVE ADDR┆
0x0b3c0…0b3e0 45 53 53 20 4f 46 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 2c 20 41 4e 44 20 53 54 4f 52 45 ┆ESS OF MESSAGE BUFFER, AND STORE┆
0x0b3e0…0b400 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 3d 2f 3b 50 43 42 20 49 4e 20 42 59 54 ┆ THE ADDRESS OF THE=/;PCB IN BYT┆
0x0b400…0b420 (5, 1, 5) 45 53 20 30 2d 31 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 41 4e 44 ┆ES 0-1 OF THE MESSAGE BUFFER AND┆
0x0b420…0b440 20 54 48 45 2f 1f 3b 4c 45 4e 47 54 48 20 49 4e 20 42 59 54 45 20 33 20 4f 46 20 54 48 45 20 42 ┆ THE/ ;LENGTH IN BYTE 3 OF THE B┆
0x0b440…0b460 55 46 46 45 52 1f 01 3b 01 36 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 ┆UFFER ; 6 PUSH H ┆
0x0b460…0b480 20 3b 53 41 56 45 20 41 44 44 52 45 53 53 20 4f 46 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 ┆ ;SAVE ADDRESS OF MESSAGE BUFFER┆
0x0b480…0b4a0 36 32 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 52 55 4e 4e 20 20 20 20 3b 48 4c 2d 3e 50 43 ┆62 LHLD RUNN ;HL->PC┆
0x0b4a0…0b4c0 42 20 4f 46 20 53 45 4e 44 49 4e 47 20 50 52 4f 43 45 53 53 32 1d 20 20 20 20 20 20 20 4d 4f 56 ┆B OF SENDING PROCESS2 MOV┆
0x0b4c0…0b4e0 20 20 20 20 20 41 2c 4c 20 20 20 20 20 3b 53 54 4f 52 45 1d 21 20 20 20 20 20 20 20 53 54 41 58 ┆ A,L ;STORE ! STAX┆
0x0b4e0…0b500 20 20 20 20 44 20 20 20 20 20 20 20 3b 20 20 41 44 44 52 45 53 53 21 1e 20 20 20 20 20 20 20 49 ┆ D ; ADDRESS! I┆
0x0b500…0b520 (5, 1, 6) 4e 58 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 20 20 20 20 4f 46 1e 21 20 20 20 20 20 20 20 4d ┆NX D ; OF ! M┆
0x0b520…0b540 4f 56 20 20 20 20 20 41 2c 48 20 20 20 20 20 3b 20 20 20 20 20 20 50 43 42 21 10 20 20 20 20 20 ┆OV A,H ; PCB! ┆
0x0b540…0b560 20 20 53 54 41 58 20 20 20 20 44 10 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 44 10 31 20 ┆ STAX D INX D 1 ┆
0x0b560…0b580 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 4c 45 4e 47 54 ┆ INX D ;DE->LENGT┆
0x0b580…0b5a0 48 20 46 49 45 4c 44 20 28 42 59 54 45 20 33 29 31 15 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 ┆H FIELD (BYTE 3)1 LDA ┆
0x0b5a0…0b5c0 20 4c 45 4e 47 54 48 15 34 20 20 20 20 20 20 20 53 54 41 58 20 20 20 20 44 20 20 20 20 20 20 20 ┆ LENGTH 4 STAX D ┆
0x0b5c0…0b5e0 3b 53 54 4f 52 45 20 4c 45 4e 47 54 48 20 49 4e 20 4c 45 4e 47 54 48 20 46 49 45 4c 44 34 3c 20 ┆;STORE LENGTH IN LENGTH FIELD4< ┆
0x0b5e0…0b600 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 42 59 54 45 20 ┆ INX D ;DE->BYTE ┆
0x0b600…0b620 (5, 1, 7) 34 2e 20 49 46 20 4c 45 4e 47 54 48 20 3e 20 31 30 20 54 48 49 53 20 42 59 54 45 3c 3c 20 20 20 ┆4. IF LENGTH > 10 THIS BYTE<< ┆
0x0b620…0b640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 28 54 4f 47 45 54 48 45 52 20 ┆ ; (TOGETHER ┆
0x0b640…0b660 57 49 54 48 20 42 59 54 45 20 35 29 20 57 49 4c 4c 20 43 4f 4e 54 41 49 4e 3c 3a 20 20 20 20 20 ┆WITH BYTE 5) WILL CONTAIN<: ┆
0x0b660…0b680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 20 42 55 46 46 45 52 20 50 4f 49 ┆ ; A BUFFER POI┆
0x0b680…0b6a0 4e 54 45 52 2e 20 49 46 20 4c 45 4e 47 54 48 20 3c 3d 20 31 30 3a 39 20 20 20 20 20 20 20 20 20 ┆NTER. IF LENGTH <= 10:9 ┆
0x0b6a0…0b6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 54 48 49 53 20 42 59 54 45 20 57 49 4c 4c 20 42 ┆ ; THIS BYTE WILL B┆
0x0b6c0…0b6e0 45 20 54 48 45 20 46 49 52 53 54 20 42 59 54 45 39 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E THE FIRST BYTE9/ ┆
0x0b6e0…0b700 20 20 20 20 20 20 20 20 20 3b 20 43 4f 4e 54 41 49 4e 49 4e 47 20 54 48 45 20 4d 45 53 53 41 47 ┆ ; CONTAINING THE MESSAG┆
0x0b700…0b720 (5, 1, 8) 45 2f 32 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 3b 53 41 56 45 20 ┆E/2 PUSH D ;SAVE ┆
0x0b720…0b740 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 42 59 54 45 20 34 32 01 20 01 01 3b 01 26 3b 44 45 ┆THE ADDRESS OF BYTE 42 ; &;DE┆
0x0b740…0b760 43 49 44 45 20 49 46 20 4c 45 4e 47 54 48 20 3c 3d 20 31 30 20 4f 52 20 4c 45 4e 47 54 48 20 3e ┆CIDE IF LENGTH <= 10 OR LENGTH >┆
0x0b760…0b780 20 31 30 26 01 3b 01 22 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 23 31 31 20 20 20 20 20 3b ┆ 10& ; " CPI #11 ;┆
0x0b780…0b7a0 4c 45 4e 47 54 48 3c 31 31 3f 22 39 20 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 53 48 4f 52 54 ┆LENGTH<11?"9 JC SHORT┆
0x0b7a0…0b7c0 20 20 20 3b 59 45 53 2c 20 54 48 45 52 45 20 49 53 20 4e 4f 20 4e 45 45 44 20 54 4f 20 41 4c 4c ┆ ;YES, THERE IS NO NEED TO ALL┆
0x0b7c0…0b7e0 4f 43 41 54 45 39 01 20 01 01 3b 01 25 3b 41 4c 4c 4f 43 41 54 45 20 41 20 44 41 54 41 20 41 52 ┆OCATE9 ; %;ALLOCATE A DATA AR┆
0x0b7e0…0b800 45 41 20 46 4f 52 20 54 48 45 20 4d 45 53 53 41 47 45 25 01 3b 01 22 20 20 20 20 20 20 20 4c 48 ┆EA FOR THE MESSAGE% ; " LH┆
0x0b800…0b820 (5, 1, 9) 4c 44 20 20 20 20 4c 45 4e 47 54 48 20 20 3b 48 4c 3a 3d 4c 45 4e 47 54 48 22 20 20 20 20 20 20 ┆LD LENGTH ;HL:=LENGTH" ┆
0x0b820…0b840 20 20 43 41 4c 4c 20 20 20 20 41 4c 4c 4f 43 20 20 20 3b 41 4c 4c 4f 43 41 54 45 20 3b 20 20 20 ┆ CALL ALLOC ;ALLOCATE ; ┆
0x0b840…0b860 20 20 20 20 53 48 4c 44 20 20 20 20 4c 45 4e 47 54 48 20 20 3b 53 54 4f 52 45 20 54 48 45 20 4c ┆ SHLD LENGTH ;STORE THE L┆
0x0b860…0b880 45 4e 47 54 48 20 41 43 54 55 41 4c 4c 59 20 41 4c 4c 4f 43 41 54 45 44 3b 2e 20 20 20 20 20 20 ┆ENGTH ACTUALLY ALLOCATED;. ┆
0x0b880…0b8a0 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 44 41 54 41 20 41 52 45 41 20 ┆ XCHG ;HL->DATA AREA ┆
0x0b8a0…0b8c0 28 48 4c 3d 30 20 49 46 2e 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(HL=0 IF.9 ┆
0x0b8c0…0b8e0 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4c 4c 4f 43 41 54 49 4f 4e 20 46 41 49 4c ┆ ; ALLOCATION FAIL┆
0x0b8e0…0b900 45 44 29 39 2a 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 54 45 53 54 48 20 20 20 3b 41 4c 4c ┆ED)9* CALL TESTH ;ALL┆
0x0b900…0b920 (5, 1, 10) 4f 43 41 54 49 4f 4e 20 46 41 49 4c 45 44 3f 2a 29 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 ┆OCATION FAILED?*) JZ ┆
0x0b920…0b940 4e 4f 41 4c 20 20 20 20 3b 59 45 53 2c 20 47 4f 20 46 49 4e 49 53 48 20 55 50 29 2f 20 20 20 20 ┆NOAL ;YES, GO FINISH UP)/ ┆
0x0b940…0b960 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 2d 3e 41 4c 4c 4f 43 41 54 45 ┆ XCHG ;DE->ALLOCATE┆
0x0b960…0b980 44 20 44 41 54 41 20 41 52 45 41 2f 3e 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 ┆D DATA AREA/> POP H ┆
0x0b980…0b9a0 20 20 20 20 3b 48 4c 2d 3e 42 59 54 45 53 20 34 2d 35 20 4f 46 20 4d 45 53 53 41 47 45 20 42 55 ┆ ;HL->BYTES 4-5 OF MESSAGE BU┆
0x0b9a0…0b9c0 46 46 45 52 20 28 54 48 45 53 45 3e 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FFER (THESE>= ┆
0x0b9c0…0b9e0 20 20 20 20 3b 20 20 42 59 54 45 53 20 41 52 45 20 54 4f 20 43 4f 4e 54 41 49 4e 20 54 48 45 20 ┆ ; BYTES ARE TO CONTAIN THE ┆
0x0b9e0…0ba00 41 44 44 52 45 53 53 20 4f 46 3d 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ADDRESS OF=& ┆
0x0ba00…0ba20 (5, 1, 11) 20 20 20 3b 20 20 54 48 45 20 4d 45 53 53 41 47 45 29 26 37 20 20 20 20 20 20 20 50 55 53 48 20 ┆ ; THE MESSAGE)&7 PUSH ┆
0x0ba20…0ba40 20 20 20 44 20 20 20 20 20 20 20 3b 53 41 56 45 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 ┆ D ;SAVE THE ADDRESS OF ┆
0x0ba40…0ba60 54 48 45 20 4d 45 53 53 41 47 45 37 21 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 45 20 ┆THE MESSAGE7! MOV M,E ┆
0x0ba60…0ba80 20 20 20 20 3b 53 54 4f 52 45 20 54 48 45 21 30 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 ┆ ;STORE THE!0 INX H┆
0x0ba80…0baa0 20 20 20 20 20 20 20 3b 20 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 ┆ ; ADDRESS OF THE MESSAGE┆
0x0baa0…0bac0 30 3e 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 44 20 20 20 20 20 3b 20 20 20 20 49 4e ┆0> MOV M,D ; IN┆
0x0bac0…0bae0 20 42 59 54 45 53 20 34 2d 35 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 ┆ BYTES 4-5 OF THE MESSAGE BUFFER┆
0x0bae0…0bb00 3e 3e 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 42 59 ┆>> INX H ;HL->BY┆
0x0bb00…0bb20 (5, 1, 12) 54 45 53 20 36 2d 37 20 4f 46 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 28 54 48 45 53 45 ┆TES 6-7 OF MESSAGE BUFFER (THESE┆
0x0bb20…0bb40 3e 3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 42 59 54 45 ┆>< ; BYTE┆
0x0bb40…0bb60 53 20 41 52 45 20 54 4f 20 43 4f 4e 54 41 49 4e 20 54 48 45 20 4c 45 4e 47 54 48 20 4f 46 3c 3b ┆S ARE TO CONTAIN THE LENGTH OF<;┆
0x0bb60…0bb80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 54 48 45 20 41 43 ┆ ; THE AC┆
0x0bb80…0bba0 54 55 41 4c 4c 59 20 41 4c 4c 4f 43 41 54 45 44 20 44 41 54 41 20 41 52 45 41 29 3b 1c 20 20 20 ┆TUALLY ALLOCATED DATA AREA); ┆
0x0bba0…0bbc0 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 3a 3d 1c 27 20 20 20 20 20 ┆ XCHG ;DE:= ' ┆
0x0bbc0…0bbe0 20 20 4c 48 4c 44 20 20 20 20 4c 45 4e 47 54 48 20 20 3b 20 20 54 48 45 20 4c 45 4e 47 54 48 20 ┆ LHLD LENGTH ; THE LENGTH ┆
0x0bbe0…0bc00 4f 46 27 33 20 20 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 ┆OF'3 XCHG ; ┆
0x0bc00…0bc20 (5, 1, 13) 54 48 45 20 41 4c 4c 4f 43 41 54 45 44 20 44 41 54 41 20 41 52 45 41 33 21 20 20 20 20 20 20 20 ┆THE ALLOCATED DATA AREA3! ┆
0x0bc20…0bc40 4d 4f 56 20 20 20 20 20 4d 2c 45 20 20 20 20 20 3b 53 54 4f 52 45 20 54 48 45 21 31 20 20 20 20 ┆MOV M,E ;STORE THE!1 ┆
0x0bc40…0bc60 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 20 4c 45 4e 47 54 48 20 4f 46 20 ┆ INX H ; LENGTH OF ┆
0x0bc60…0bc80 54 48 45 20 44 41 54 41 20 41 52 45 41 31 3e 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c ┆THE DATA AREA1> MOV M,┆
0x0bc80…0bca0 44 20 20 20 20 20 3b 20 20 20 20 49 4e 20 42 59 54 45 53 20 36 2d 37 20 4f 46 20 54 48 45 20 4d ┆D ; IN BYTES 6-7 OF THE M┆
0x0bca0…0bcc0 45 53 53 41 47 45 20 42 55 46 46 45 52 3e 01 20 01 01 3b 01 39 3b 45 56 45 52 59 54 48 49 4e 47 ┆ESSAGE BUFFER> ; 9;EVERYTHING┆
0x0bcc0…0bce0 20 49 53 20 4e 4f 57 20 52 45 41 44 59 20 46 4f 52 20 54 48 45 20 54 52 41 4e 53 46 45 52 20 4f ┆ IS NOW READY FOR THE TRANSFER O┆
0x0bce0…0bd00 46 20 54 48 45 20 43 4f 4e 54 45 4e 54 53 39 1a 3b 50 41 52 41 4d 45 54 45 52 20 54 4f 20 54 48 ┆F THE CONTENTS9 ;PARAMETER TO TH┆
0x0bd00…0bd20 (5, 1, 14) 45 20 4d 45 53 53 41 47 45 2e 1a 3d 3b 49 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 4c 45 4e 47 ┆E MESSAGE. =;IF THE MESSAGE LENG┆
0x0bd20…0bd40 54 48 20 3c 3d 20 31 30 20 54 48 45 20 54 4f 50 4d 4f 53 54 20 45 4c 45 4d 45 4e 54 20 4f 4e 20 ┆TH <= 10 THE TOPMOST ELEMENT ON ┆
0x0bd40…0bd60 54 48 45 20 53 54 41 43 4b 3d 3c 3b 20 20 20 20 20 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 41 ┆THE STACK=<; CONTAINS THE A┆
0x0bd60…0bd80 44 44 52 45 53 53 20 4f 46 20 42 59 54 45 20 34 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 ┆DDRESS OF BYTE 4 OF THE MESSAGE ┆
0x0bd80…0bda0 42 55 46 46 45 52 2e 3c 3c 3b 49 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 4c 45 4e 47 54 48 20 ┆BUFFER.<<;IF THE MESSAGE LENGTH ┆
0x0bda0…0bdc0 3e 20 31 30 20 54 48 45 20 54 4f 50 4d 4f 53 54 20 45 4c 45 4d 45 4e 54 20 4f 4e 20 54 48 45 20 ┆> 10 THE TOPMOST ELEMENT ON THE ┆
0x0bdc0…0bde0 53 54 41 43 4b 3c 37 3b 20 20 20 20 20 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 41 44 44 52 45 ┆STACK<7; CONTAINS THE ADDRE┆
0x0bde0…0be00 53 53 20 4f 46 20 54 48 45 20 41 4c 4c 4f 43 41 54 45 44 20 44 41 54 41 20 41 52 45 41 2e 37 3d ┆SS OF THE ALLOCATED DATA AREA.7=┆
0x0be00…0be20 (5, 1, 15) 3b 49 4e 20 45 49 54 48 45 52 20 43 41 53 45 20 54 48 45 20 54 4f 50 4d 4f 53 54 20 45 4c 45 4d ┆;IN EITHER CASE THE TOPMOST ELEM┆
0x0be20…0be40 45 4e 54 20 4f 4e 20 54 48 45 20 53 54 41 43 4b 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 3d 3a 3b ┆ENT ON THE STACK CONTAINS THE=:;┆
0x0be40…0be60 20 20 20 20 20 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 20 4c 4f 43 41 54 49 4f 4e 20 57 48 ┆ ADDRESS OF THE LOCATION WH┆
0x0be60…0be80 45 52 45 20 54 48 45 20 4d 45 53 53 41 47 45 20 53 48 4f 55 4c 44 20 42 45 3a 0e 3b 20 20 20 20 ┆ERE THE MESSAGE SHOULD BE: ; ┆
0x0be80…0bea0 20 20 53 54 4f 52 45 44 2e 0e 01 3b 01 24 53 48 4f 52 54 3a 20 4c 48 4c 44 20 20 20 20 43 4f 4e ┆ STORED. ; $SHORT: LHLD CON┆
0x0bea0…0bec0 50 54 52 20 20 3b 48 4c 2d 3e 43 4f 4e 54 45 4e 54 53 24 3d 20 20 20 20 20 20 20 50 4f 50 20 20 ┆PTR ;HL->CONTENTS$= POP ┆
0x0bec0…0bee0 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 4c 4f 43 41 54 49 4f 4e 20 57 48 45 52 45 20 43 ┆ D ;DE->LOCATION WHERE C┆
0x0bee0…0bf00 4f 4e 54 45 4e 54 53 20 53 48 4f 55 4c 44 20 42 45 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ONTENTS SHOULD BE== ┆
0x0bf00…0bf20 (5, 1, 16) 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x0bf20…0bf40 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 44 3d 3c 20 20 20 20 20 20 20 58 43 48 47 20 20 20 ┆ STORED=< XCHG ┆
0x0bf40…0bf60 20 20 20 20 20 20 20 20 20 3b 44 45 2d 3e 53 4f 55 52 43 45 2c 20 48 4c 2d 3e 44 45 53 54 49 4e ┆ ;DE->SOURCE, HL->DESTIN┆
0x0bf60…0bf80 41 54 49 4f 4e 20 46 4f 52 20 4d 4f 56 45 3c 3d 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 20 4c ┆ATION FOR MOVE<= LDA L┆
0x0bf80…0bfa0 45 4e 47 54 48 20 20 3b 41 3a 3d 4c 45 4e 47 54 48 20 4f 46 20 4d 45 53 53 41 47 45 20 28 50 4c ┆ENGTH ;A:=LENGTH OF MESSAGE (PL┆
0x0bfa0…0bfc0 55 53 20 50 4f 53 53 49 42 4c 59 20 41 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆US POSSIBLY A== ┆
0x0bfc0…0bfe0 20 20 20 20 20 20 3b 20 20 46 45 57 20 45 58 54 52 41 20 42 59 54 45 53 20 41 4c 4c 4f 43 41 54 ┆ ; FEW EXTRA BYTES ALLOCAT┆
0x0bfe0…0c000 45 44 2c 20 42 55 54 20 54 48 49 53 3d 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ED, BUT THIS=( ┆
0x0c000…0c020 (6, 0, 1) 20 20 20 20 20 3b 20 20 49 53 20 49 52 52 45 4c 45 56 41 4e 54 29 28 2c 20 20 20 20 20 20 20 4d ┆ ; IS IRRELEVANT)(, M┆
0x0c020…0c040 4f 56 20 20 20 20 20 42 2c 41 20 20 20 20 20 3b 42 3a 3d 4c 45 4e 47 54 48 20 4f 46 20 4d 45 53 ┆OV B,A ;B:=LENGTH OF MES┆
0x0c040…0c060 53 41 47 45 2c 28 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 4d 4f 56 45 20 20 20 20 3b 4d 4f ┆SAGE,( CALL MOVE ;MO┆
0x0c060…0c080 56 45 20 54 48 45 20 4d 45 53 53 41 47 45 28 01 20 01 01 3b 01 18 3b 53 45 4e 44 20 54 48 45 20 ┆VE THE MESSAGE( ; ;SEND THE ┆
0x0c080…0c0a0 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 18 01 3b 01 34 20 20 20 20 20 20 20 4c 48 4c 44 20 20 ┆MESSAGE BUFFER ; 4 LHLD ┆
0x0c0a0…0c0c0 20 20 52 45 43 50 54 52 20 20 3b 48 4c 2d 3e 50 43 42 20 4f 46 20 52 45 43 45 49 56 49 4e 47 20 ┆ RECPTR ;HL->PCB OF RECEIVING ┆
0x0c0c0…0c0e0 50 52 4f 43 45 53 53 34 16 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 4b 4f 53 45 4d 16 ┆PROCESS4 LXI B,KOSEM ┆
0x0c0e0…0c100 38 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 48 4c 2d 3e 41 44 44 ┆8 DAD B ;HL->ADD┆
0x0c100…0c120 (6, 0, 2) 52 45 53 53 20 4f 46 20 4d 41 49 4e 20 53 45 4d 41 50 48 4f 52 45 20 4f 46 38 2d 20 20 20 20 20 ┆RESS OF MAIN SEMAPHORE OF8- ┆
0x0c120…0c140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 52 45 43 45 49 56 49 4e 47 ┆ ; RECEIVING┆
0x0c140…0c160 20 50 52 4f 43 45 53 53 2d 2a 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 4d 20 20 20 20 ┆ PROCESS-* MOV C,M ┆
0x0c160…0c180 20 3b 42 43 2d 3e 4d 41 49 4e 20 53 45 4d 41 50 48 4f 52 45 2a 24 20 20 20 20 20 20 20 49 4e 58 ┆ ;BC->MAIN SEMAPHORE*$ INX┆
0x0c180…0c1a0 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 4f 46 20 54 48 45 24 33 20 20 20 20 ┆ H ; OF THE$3 ┆
0x0c1a0…0c1c0 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 4d 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 52 45 ┆ MOV B,M ; RE┆
0x0c1c0…0c1e0 43 45 49 56 49 4e 47 20 50 52 4f 43 45 53 53 33 2a 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 ┆CEIVING PROCESS3* POP ┆
0x0c1e0…0c200 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 2a 20 20 20 20 ┆H ;HL->MESSAGE BUFFER* ┆
0x0c200…0c220 (6, 0, 3) 20 20 20 20 43 41 4c 4c 20 20 20 20 53 45 4e 44 20 20 20 20 3b 53 45 4e 44 20 49 54 21 20 01 20 ┆ CALL SEND ;SEND IT! ┆
0x0c220…0c240 01 01 3b 01 1e 3b 53 54 41 54 55 53 3a 3d 30 20 54 4f 20 49 4e 44 49 43 41 54 45 20 53 55 43 43 ┆ ; ;STATUS:=0 TO INDICATE SUCC┆
0x0c240…0c260 45 53 53 1e 01 3b 01 22 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 53 54 41 50 54 52 20 20 3b ┆ESS ; " LHLD STAPTR ;┆
0x0c260…0c280 48 4c 2d 3e 53 54 41 54 55 53 22 1c 20 20 20 20 20 20 20 58 52 41 20 20 20 20 20 41 20 20 20 20 ┆HL->STATUS" XRA A ┆
0x0c280…0c2a0 20 20 20 3b 41 3a 3d 30 1c 1e 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 20 20 20 20 ┆ ;A:=0 MOV M,A ┆
0x0c2a0…0c2c0 20 3b 53 54 41 54 55 53 1e 21 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 ┆ ;STATUS ! INX H ┆
0x0c2c0…0c2e0 20 3b 20 20 20 20 20 20 20 3a 3d 21 24 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 20 ┆ ; :=!$ MOV M,A ┆
0x0c2e0…0c300 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 30 24 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 ┆ ; 0$ RET ┆
0x0c300…0c320 (6, 0, 4) 01 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 01 3b 01 2a 3b 43 4f 4d 45 20 48 45 52 45 20 49 46 20 ┆ SKIP ; *;COME HERE IF ┆
0x0c320…0c340 4c 45 4e 47 54 48 20 49 53 20 49 4c 4c 45 47 41 4c 2e 20 53 54 41 54 55 53 3a 3d 32 2a 01 3b 01 ┆LENGTH IS ILLEGAL. STATUS:=2* ; ┆
0x0c340…0c360 22 4c 45 4e 4c 4f 4e 3a 4c 48 4c 44 20 20 20 20 53 54 41 50 54 52 20 20 3b 48 4c 2d 3e 53 54 41 ┆"LENLON:LHLD STAPTR ;HL->STA┆
0x0c360…0c380 54 55 53 22 1e 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 32 20 20 20 20 20 3b 53 54 41 ┆TUS" MVI M,2 ;STA┆
0x0c380…0c3a0 54 55 53 1e 21 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 20 20 ┆TUS ! INX H ; ┆
0x0c3a0…0c3c0 20 20 20 20 3a 3d 21 24 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 20 20 20 3b ┆ :=!$ MVI M,0 ;┆
0x0c3c0…0c3e0 20 20 20 20 20 20 20 20 20 20 20 32 24 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 01 3b 01 2a ┆ 2$ RET ; *┆
0x0c3e0…0c400 3b 43 4f 4d 45 20 48 45 52 45 20 49 46 20 41 4c 4c 4f 43 41 54 49 4f 4e 20 46 41 49 4c 45 44 2e ┆;COME HERE IF ALLOCATION FAILED.┆
0x0c400…0c420 (6, 0, 5) 20 53 54 41 54 55 53 3a 3d 31 2a 01 3b 01 22 4e 4f 41 4c 3a 20 20 4c 48 4c 44 20 20 20 20 53 54 ┆ STATUS:=1* ; "NOAL: LHLD ST┆
0x0c420…0c440 41 50 54 52 20 20 3b 48 4c 2d 3e 53 54 41 54 55 53 22 1e 20 20 20 20 20 20 20 4d 56 49 20 20 20 ┆APTR ;HL->STATUS" MVI ┆
0x0c440…0c460 20 20 4d 2c 31 20 20 20 20 20 3b 53 54 41 54 55 53 1e 21 20 20 20 20 20 20 20 49 4e 58 20 20 20 ┆ M,1 ;STATUS ! INX ┆
0x0c460…0c480 20 20 48 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 3a 3d 21 24 20 20 20 20 20 20 20 4d 56 49 ┆ H ; :=!$ MVI┆
0x0c480…0c4a0 20 20 20 20 20 4d 2c 30 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 31 24 01 20 01 01 3b ┆ M,0 ; 1$ ;┆
0x0c4a0…0c4c0 01 28 3b 52 45 54 55 52 4e 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 54 4f 20 50 4f 4f 4c ┆ (;RETURN MESSAGE BUFFER TO POOL┆
0x0c4c0…0c4e0 20 53 45 4d 41 50 48 4f 52 45 28 01 3b 01 3e 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 ┆ SEMAPHORE( ; > POP H ┆
0x0c4e0…0c500 20 20 20 20 20 20 3b 53 4b 49 50 20 41 44 44 52 45 53 53 20 4f 46 20 42 59 54 45 20 34 20 4f 46 ┆ ;SKIP ADDRESS OF BYTE 4 OF┆
0x0c500…0c520 (6, 0, 6) 20 4d 45 53 53 2e 20 42 55 46 46 45 52 3e 2a 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 ┆ MESS. BUFFER>* POP H ┆
0x0c520…0c540 20 20 20 20 20 20 3b 48 4c 2d 3e 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 2a 2a 20 20 20 20 20 ┆ ;HL->MESSAGE BUFFER** ┆
0x0c540…0c560 20 20 4c 58 49 20 20 20 20 20 42 2c 50 4f 4f 4c 20 20 3b 42 4c 2d 3e 50 4f 4f 4c 20 53 45 4d 41 ┆ LXI B,POOL ;BL->POOL SEMA┆
0x0c560…0c580 50 48 4f 52 45 2a 24 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 53 45 4e 44 20 20 20 20 3b 53 ┆PHORE*$ CALL SEND ;S┆
0x0c580…0c5a0 45 4e 44 20 49 54 20 42 41 43 4b 24 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 01 3b 01 38 3b ┆END IT BACK$ RET ; 8;┆
0x0c5a0…0c5c0 43 4f 4d 45 20 48 45 52 45 20 49 46 20 54 48 45 52 45 20 57 45 52 45 20 4e 4f 20 4d 45 53 53 41 ┆COME HERE IF THERE WERE NO MESSA┆
0x0c5c0…0c5e0 47 45 53 20 41 56 41 49 4c 41 42 4c 45 2e 20 53 54 41 54 55 53 3d 33 38 01 3b 01 22 4e 4f 4d 45 ┆GES AVAILABLE. STATUS=38 ; "NOME┆
0x0c5e0…0c600 53 3a 20 4c 48 4c 44 20 20 20 20 53 54 41 50 54 52 20 20 3b 48 4c 2d 3e 53 54 41 54 55 53 22 1e ┆S: LHLD STAPTR ;HL->STATUS" ┆
0x0c600…0c620 (6, 0, 7) 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 33 20 20 20 20 20 3b 53 54 41 54 55 53 1e 21 ┆ MVI M,3 ;STATUS !┆
0x0c620…0c640 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 3a ┆ INX H ; :┆
0x0c640…0c660 3d 21 24 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 20 20 20 3b 20 20 20 20 20 ┆=!$ MVI M,0 ; ┆
0x0c660…0c680 20 20 20 20 20 20 33 24 0a 20 20 20 20 20 20 20 52 45 54 0a 07 20 20 20 20 20 20 20 07 0b 20 20 ┆ 3$ RET ┆
0x0c680…0c6a0 20 20 20 20 20 53 4b 49 50 0b 17 3b 2a 2a 2a 2a 2a 20 4c 4f 43 41 4c 20 44 41 54 41 20 2a 2a 2a ┆ SKIP ;***** LOCAL DATA ***┆
0x0c6a0…0c6c0 2a 2a 17 01 20 01 29 53 54 41 50 54 52 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 ┆** )STAPTR:DS 2 ;A┆
0x0c6c0…0c6e0 44 44 52 45 53 53 20 4f 46 20 53 54 41 54 55 53 29 29 4c 45 4e 47 54 48 3a 44 53 20 20 20 20 20 ┆DDRESS OF STATUS))LENGTH:DS ┆
0x0c6e0…0c700 20 32 20 20 20 20 20 20 20 3b 4c 45 4e 47 54 48 20 4f 46 20 4d 45 53 53 41 47 45 29 2b 43 4f 4e ┆ 2 ;LENGTH OF MESSAGE)+CON┆
0x0c700…0c720 (6, 0, 8) 50 54 52 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 20 ┆PTR:DS 2 ;ADDRESS OF ┆
0x0c720…0c740 43 4f 4e 54 45 4e 54 53 2b 3b 52 45 43 50 54 52 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 ┆CONTENTS+;RECPTR:DS 2 ┆
0x0c740…0c760 20 3b 41 44 44 52 45 53 53 20 4f 46 20 50 43 42 20 4f 46 20 52 45 43 45 49 56 49 4e 47 20 50 52 ┆ ;ADDRESS OF PCB OF RECEIVING PR┆
0x0c760…0c780 4f 43 45 53 53 3b 01 20 01 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 00 00 00 00 00 00 00 00 00 ┆OCESS; END ┆
0x0c780…0c7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x0c800…0c900 (6, 0, 9) 0x00[0x100]
0x0c900…0c920 (6, 0, 10) 44 45 43 42 34 20 20 20 52 41 00 05 00 00 00 00 00 00 00 08 00 05 41 04 00 05 00 45 43 42 34 20 ┆DECB4 RA A ECB4 ┆
0x0c920…0c940 13 02 44 45 43 42 34 20 20 20 02 1e 00 01 00 00 00 76 76 76 13 0d 04 44 45 43 42 34 20 20 20 02 ┆ DECB4 vvv DECB4 ┆
0x0c940…0c960 00 00 08 0d 0d 05 44 45 43 42 49 20 20 20 01 00 00 08 0d 02 08 cd 02 05 0b 01 00 00 00 05 14 08 ┆ DECBI ┆
0x0c960…0c980 eb 6f 26 00 29 29 e5 29 29 29 e5 29 c1 09 c1 09 eb d5 cd 14 05 0b 01 00 00 00 05 07 08 6f 26 00 ┆ o& )) ))) ) o& ┆
0x0c980…0c9a0 c1 09 c9 07 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0c9a0…0c9c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x0c9e0…0ca00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x0ca00…0ca20 (6, 0, 11) ExtentHdr {name=»RECEIV «, typ=»K«, seg=»A«, next=0x00, basis=0x001e, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,08 (0x00e800)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0ca20…0ca40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x0ca40…0ca60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x0ca60…0ca80 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x0ca80…0caa0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x0caa0…0cac0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x0cac0…0cae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x0cae0…0cb00 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x0cb00…0cb20 (6, 0, 12) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x0cb20…0cb40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x0cb40…0cb60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x0cb60…0cb80 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x0cb80…0cba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0cba0…0cbc0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 52 45 43 45 ┆**>>;* PROCEDURE NAME: RECE┆
0x0cbc0…0cbe0 49 56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IV ┆
0x0cbe0…0cc00 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x0cc00…0cc20 (6, 0, 13) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0cc20…0cc40 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x0cc40…0cc60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x0cc60…0cc80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x0cc80…0cca0 53 43 52 49 50 54 49 4f 4e 3a 0e 3e 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 52 45 43 ┆SCRIPTION: >; THIS PROCEDURE REC┆
0x0cca0…0ccc0 45 49 56 45 53 20 41 20 4d 45 53 53 41 47 45 20 46 52 4f 4d 20 54 48 45 20 4d 41 49 4e 20 53 45 ┆EIVES A MESSAGE FROM THE MAIN SE┆
0x0ccc0…0cce0 4d 41 50 48 4f 52 45 20 4f 46 3e 1e 3b 20 54 48 45 20 43 41 4c 4c 49 4e 47 20 41 4e 4f 54 48 45 ┆MAPHORE OF> ; THE CALLING ANOTHE┆
0x0cce0…0cd00 52 20 50 52 4f 43 45 53 53 2e 1e 3e 3b 20 50 4c 45 41 53 45 20 52 45 46 45 52 20 54 4f 20 54 48 ┆R PROCESS. >; PLEASE REFER TO TH┆
0x0cd00…0cd20 (6, 0, 14) 45 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 4d 42 4c 45 52 20 50 41 43 4b ┆E PASCAL STANDARD ASSEMBLER PACK┆
0x0cd20…0cd40 41 47 45 20 4d 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e 20 34 2e 32 20 46 4f 52 20 44 45 ┆AGE MANUAL> ; SECTION 4.2 FOR DE┆
0x0cd40…0cd60 54 41 49 4c 53 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆TAILS. ; >;--------------------┆
0x0cd60…0cd80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0cd80…0cda0 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 ┆--------->0; STACK CONTENTS ON E┆
0x0cda0…0cdc0 4e 54 52 59 3a 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 ┆NTRY: I I00; ┆
0x0cdc0…0cde0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d ┆ I---┆
0x0cde0…0ce00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆------------I00; ┆
0x0ce00…0ce20 (6, 0, 15) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 52 45 54 55 52 4e 20 41 44 52 2e 20 20 49 30 ┆ I RETURN ADR. I0┆
0x0ce20…0ce40 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0; ┆
0x0ce40…0ce60 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆I---------------I00; ┆
0x0ce60…0ce80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d 3e 20 4c 45 4e 47 54 48 20 20 ┆ I -> LENGTH ┆
0x0ce80…0cea0 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x0cea0…0cec0 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x0cec0…0cee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d 3e 20 43 4f 4e 54 ┆ I -> CONT┆
0x0cee0…0cf00 45 4e 54 53 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ENTS I00; ┆
0x0cf00…0cf20 (6, 0, 16) 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 ┆ I---------------I00; ┆
0x0cf20…0cf40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d 3e 20 ┆ I -> ┆
0x0cf40…0cf60 53 45 4e 44 45 52 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SENDER I00; ┆
0x0cf60…0cf80 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b ┆ I---------------I00;┆
0x0cf80…0cfa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 ┆ I ┆
0x0cfa0…0cfc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I0>;--------------┆
0x0cfc0…0cfe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0cfe0…0d000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 ┆--------------->$; STACK CONTENT┆
0x0d000…0d020 (6, 1, 1) 53 20 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d ┆S ON EXIT: EMPTY$>;--------┆
0x0d020…0d040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0d040…0d060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 2f 3b 20 54 48 45 20 4d 45 53 ┆--------------------->/; THE MES┆
0x0d060…0d080 53 41 47 45 20 49 53 20 45 58 43 48 41 4e 47 45 44 20 49 4e 20 41 20 4d 45 53 53 41 47 45 20 42 ┆SAGE IS EXCHANGED IN A MESSAGE B┆
0x0d080…0d0a0 55 46 46 45 52 2e 2f 38 3b 20 42 59 54 45 53 20 30 2d 31 20 4f 46 20 54 48 45 20 4d 45 53 53 41 ┆UFFER./8; BYTES 0-1 OF THE MESSA┆
0x0d0a0…0d0c0 47 45 20 42 55 46 46 45 52 20 43 4f 4e 54 41 49 4e 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 ┆GE BUFFER CONTAIN THE ADDRESS OF┆
0x0d0c0…0d0e0 38 21 3b 20 54 48 45 20 50 43 42 20 4f 46 20 54 48 45 20 53 45 4e 44 49 4e 47 20 50 52 4f 43 45 ┆8!; THE PCB OF THE SENDING PROCE┆
0x0d0e0…0d100 53 53 2e 21 39 3b 20 42 59 54 45 20 33 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 ┆SS.!9; BYTE 3 OF THE MESSAGE BUF┆
0x0d100…0d120 (6, 1, 2) 46 45 52 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 4c 45 4e 47 54 48 20 4f 46 20 54 48 45 39 0a ┆FER CONTAINS THE LENGTH OF THE9 ┆
0x0d120…0d140 3b 20 4d 45 53 53 41 47 45 2e 0a 32 3b 20 49 46 20 4c 45 4e 47 54 48 20 3c 3d 20 31 30 20 42 59 ┆; MESSAGE. 2; IF LENGTH <= 10 BY┆
0x0d140…0d160 54 45 53 20 34 2d 31 33 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 32 27 ┆TES 4-13 OF THE MESSAGE BUFFER2'┆
0x0d160…0d180 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 4d ┆; CONTAINS THE M┆
0x0d180…0d1a0 45 53 53 41 47 45 2e 27 37 3b 20 49 46 20 4c 45 4e 47 54 48 20 3e 20 31 30 20 20 42 59 54 45 53 ┆ESSAGE.'7; IF LENGTH > 10 BYTES┆
0x0d1a0…0d1c0 20 34 2d 35 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 50 4f 49 4e 54 ┆ 4-5 OF THE MESSAGE BUFFER POINT┆
0x0d1c0…0d1e0 37 37 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f 20 41 20 44 41 54 41 20 41 52 ┆77; TO A DATA AR┆
0x0d1e0…0d200 45 41 20 54 48 41 54 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 4d 45 53 2d 37 36 3b 20 20 20 20 ┆EA THAT CONTAINS THE MES-76; ┆
0x0d200…0d220 (6, 1, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 53 41 47 45 2e 20 54 48 45 20 4c 45 4e 47 54 48 20 4f 46 ┆ SAGE. THE LENGTH OF┆
0x0d220…0d240 20 54 48 45 20 44 41 54 41 20 41 52 45 41 20 49 53 36 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THE DATA AREA IS64; ┆
0x0d240…0d260 20 20 20 20 20 53 54 4f 52 45 44 20 49 4e 20 42 59 54 45 53 20 36 2d 37 20 4f 46 20 54 48 45 20 ┆ STORED IN BYTES 6-7 OF THE ┆
0x0d260…0d280 4d 45 53 53 41 47 45 34 19 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 46 45 ┆MESSAGE4 ; BUFFE┆
0x0d280…0d2a0 52 2e 19 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆R. >;===========================┆
0x0d2a0…0d2c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x0d2c0…0d2e0 3d 3d 3e 07 20 20 20 20 20 20 20 07 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 08 52 45 43 45 49 56 ┆==> SKIP RECEIV┆
0x0d2e0…0d300 3a 3a 08 01 20 01 01 3b 01 13 3b 47 45 54 20 54 48 45 20 50 41 52 41 4d 45 54 45 52 53 13 01 3b ┆:: ; ;GET THE PARAMETERS ;┆
0x0d300…0d320 (6, 1, 4) 01 2a 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 42 43 3a 3d 52 45 ┆ * POP B ;BC:=RE┆
0x0d320…0d340 54 55 52 4e 20 41 44 44 52 45 53 53 2a 22 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 ┆TURN ADDRESS*" POP H ┆
0x0d340…0d360 20 20 20 20 20 3b 48 4c 2d 3e 4c 45 4e 47 54 48 22 15 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 ┆ ;HL->LENGTH" SHLD ┆
0x0d360…0d380 20 4c 45 4e 50 54 52 15 24 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 ┆ LENPTR $ POP H ┆
0x0d380…0d3a0 3b 48 4c 2d 3e 43 4f 4e 54 45 4e 54 53 24 15 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 43 4f ┆;HL->CONTENTS$ SHLD CO┆
0x0d3a0…0d3c0 4e 50 54 52 15 22 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c ┆NPTR " POP H ;HL┆
0x0d3c0…0d3e0 2d 3e 53 45 4e 44 45 52 22 15 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 53 4e 44 50 54 52 15 ┆->SENDER" SHLD SNDPTR ┆
0x0d3e0…0d400 2e 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 3b 52 45 53 54 4f 52 45 ┆. PUSH B ;RESTORE┆
0x0d400…0d420 (6, 1, 5) 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 2e 01 20 01 01 3b 01 33 3b 52 45 43 45 49 56 45 20 ┆ RETURN ADDRESS. ; 3;RECEIVE ┆
0x0d420…0d440 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 46 52 4f 4d 20 54 48 45 20 4d 41 49 4e ┆THE MESSAGE BUFFER FROM THE MAIN┆
0x0d440…0d460 20 53 45 4d 41 50 48 4f 52 45 33 01 3b 01 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 56 45 ┆ SEMAPHORE3 ; CALL VE┆
0x0d460…0d480 4e 54 53 14 01 20 01 01 3b 01 27 3b 53 41 56 45 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 ┆NTS ; ';SAVE THE ADDRESS OF ┆
0x0d480…0d4a0 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 27 01 3b 01 10 20 20 20 20 20 20 20 50 55 ┆THE MESSAGE BUFFER' ; PU┆
0x0d4a0…0d4c0 53 48 20 20 20 20 48 10 01 20 01 01 3b 01 38 3b 47 45 54 20 41 44 44 52 45 53 53 20 4f 46 20 50 ┆SH H ; 8;GET ADDRESS OF P┆
0x0d4c0…0d4e0 43 42 20 4f 46 20 53 45 4e 44 49 4e 47 20 50 52 4f 43 45 53 53 20 46 52 4f 4d 20 42 59 54 45 53 ┆CB OF SENDING PROCESS FROM BYTES┆
0x0d4e0…0d500 20 30 2d 31 20 4f 46 38 0f 3b 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 0f 01 3b 01 2c 20 20 20 ┆ 0-1 OF8 ;MESSAGE BUFFER ; , ┆
0x0d500…0d520 (6, 1, 6) 20 20 20 20 4c 48 4c 44 20 20 20 20 53 4e 44 50 54 52 20 20 3b 48 4c 2d 3e 53 45 4e 44 45 52 20 ┆ LHLD SNDPTR ;HL->SENDER ┆
0x0d520…0d540 50 41 52 41 4d 45 54 45 52 2c 28 20 20 20 20 20 20 20 4c 44 41 58 20 20 20 20 44 20 20 20 20 20 ┆PARAMETER,( LDAX D ┆
0x0d540…0d560 20 20 3b 53 45 4e 44 45 52 20 50 41 52 41 4d 45 54 45 52 28 21 20 20 20 20 20 20 20 4d 4f 56 20 ┆ ;SENDER PARAMETER(! MOV ┆
0x0d560…0d580 20 20 20 20 4d 2c 41 20 20 20 20 20 3b 20 20 20 20 20 20 20 2d 3e 21 28 20 20 20 20 20 20 20 49 ┆ M,A ; ->!( I┆
0x0d580…0d5a0 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 50 43 42 20 4f 46 ┆NX H ; PCB OF┆
0x0d5a0…0d5c0 28 2a 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 ┆(* INX D ; ┆
0x0d5c0…0d5e0 20 20 20 20 20 20 20 20 20 54 48 45 2a 33 20 20 20 20 20 20 20 4c 44 41 58 20 20 20 20 44 20 20 ┆ THE*3 LDAX D ┆
0x0d5e0…0d600 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 4e 44 49 4e ┆ ; SENDIN┆
0x0d600…0d620 (6, 1, 7) 47 33 36 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 20 20 20 20 20 3b 20 20 20 20 20 ┆G36 MOV M,A ; ┆
0x0d620…0d640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 45 53 53 36 01 20 01 01 3b 01 ┆ PROCESS6 ; ┆
0x0d640…0d660 34 3b 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 4d 45 53 53 41 47 45 20 46 52 4f 4d 20 42 59 54 ┆4;GET LENGTH OF MESSAGE FROM BYT┆
0x0d660…0d680 45 20 33 20 4f 46 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 34 01 3b 01 10 20 20 20 20 20 20 ┆E 3 OF MESSAGE BUFFER4 ; ┆
0x0d680…0d6a0 20 49 4e 58 20 20 20 20 20 44 10 28 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 44 20 20 20 20 ┆ INX D ( INX D ┆
0x0d6a0…0d6c0 20 20 20 3b 44 45 2d 3e 4c 45 4e 47 54 48 20 46 49 45 4c 44 28 2c 20 20 20 20 20 20 20 4c 48 4c ┆ ;DE->LENGTH FIELD(, LHL┆
0x0d6c0…0d6e0 44 20 20 20 20 4c 45 4e 50 54 52 20 20 3b 48 4c 2d 3e 4c 45 4e 47 54 48 20 50 41 52 41 4d 45 54 ┆D LENPTR ;HL->LENGTH PARAMET┆
0x0d6e0…0d700 45 52 2c 28 20 20 20 20 20 20 20 4c 44 41 58 20 20 20 20 44 20 20 20 20 20 20 20 3b 4c 45 4e 47 ┆ER,( LDAX D ;LENG┆
0x0d700…0d720 (6, 1, 8) 54 48 20 50 41 52 41 4d 45 54 45 52 28 21 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 ┆TH PARAMETER(! MOV M,A┆
0x0d720…0d740 20 20 20 20 20 3b 20 20 20 20 20 20 20 3a 3d 21 28 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 ┆ ; :=!( INX ┆
0x0d740…0d760 48 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 4c 45 4e 47 54 48 28 31 20 20 20 20 20 ┆H ; LENGTH(1 ┆
0x0d760…0d780 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MVI M,0 ; ┆
0x0d780…0d7a0 20 20 4f 46 20 4d 45 53 53 41 47 45 31 35 20 20 20 20 20 20 20 53 54 41 20 20 20 20 20 4c 45 4e ┆ OF MESSAGE15 STA LEN┆
0x0d7a0…0d7c0 47 54 48 20 20 3b 53 41 56 45 20 54 48 45 20 4c 45 4e 47 54 48 20 46 4f 52 20 4c 41 54 45 52 20 ┆GTH ;SAVE THE LENGTH FOR LATER ┆
0x0d7c0…0d7e0 55 53 45 35 01 20 01 01 3b 01 1b 3b 50 52 45 50 41 52 45 20 54 4f 20 47 45 54 20 54 48 45 20 4d ┆USE5 ; ;PREPARE TO GET THE M┆
0x0d7e0…0d800 45 53 53 41 47 45 1b 01 3b 01 3d 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 44 20 20 20 20 20 ┆ESSAGE ; = INX D ┆
0x0d800…0d820 (6, 1, 9) 20 20 3b 44 45 2d 3e 42 59 54 45 20 34 20 4f 46 20 4d 45 53 53 41 47 45 2e 20 49 46 20 4c 45 4e ┆ ;DE->BYTE 4 OF MESSAGE. IF LEN┆
0x0d820…0d840 47 54 48 20 3e 20 31 30 3d 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GTH > 10=: ┆
0x0d840…0d860 20 3b 20 20 54 48 49 53 20 42 59 54 45 20 28 54 4f 47 45 54 48 45 52 20 57 49 54 48 20 42 59 54 ┆ ; THIS BYTE (TOGETHER WITH BYT┆
0x0d860…0d880 45 20 35 29 3a 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆E 5):> ; ┆
0x0d880…0d8a0 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 20 4d 45 53 53 ┆CONTAINS THE ADDRESS OF THE MESS┆
0x0d8a0…0d8c0 41 47 45 2e 3e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆AGE.>: ; ┆
0x0d8c0…0d8e0 49 46 20 4c 45 4e 47 54 48 20 3c 3d 20 31 30 20 54 48 49 53 20 42 59 54 45 20 49 53 20 54 48 45 ┆IF LENGTH <= 10 THIS BYTE IS THE┆
0x0d8e0…0d900 3a 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 46 49 52 53 ┆:4 ; FIRS┆
0x0d900…0d920 (6, 1, 10) 54 20 42 59 54 45 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 2e 34 32 20 20 20 20 20 20 20 50 ┆T BYTE OF THE MESSAGE.42 P┆
0x0d920…0d940 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 3b 53 41 56 45 20 54 48 45 20 41 44 44 52 45 53 53 ┆USH D ;SAVE THE ADDRESS┆
0x0d940…0d960 20 4f 46 20 42 59 54 45 20 34 32 01 20 01 01 3b 01 26 3b 44 45 43 49 44 45 20 49 46 20 4c 45 4e ┆ OF BYTE 42 ; &;DECIDE IF LEN┆
0x0d960…0d980 47 54 48 20 3c 3d 20 31 30 20 4f 52 20 4c 45 4e 47 54 48 20 3e 20 31 30 26 01 3b 01 22 20 20 20 ┆GTH <= 10 OR LENGTH > 10& ; " ┆
0x0d980…0d9a0 20 20 20 20 43 50 49 20 20 20 20 20 23 31 31 20 20 20 20 20 3b 4c 45 4e 47 54 48 3c 31 31 3f 22 ┆ CPI #11 ;LENGTH<11?"┆
0x0d9a0…0d9c0 3e 20 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 53 48 4f 52 54 20 20 20 3b 59 45 53 2c 20 54 48 ┆> JC SHORT ;YES, TH┆
0x0d9c0…0d9e0 45 20 4d 45 53 53 41 47 45 20 49 53 20 49 4e 20 54 48 45 20 4d 45 53 2e 20 42 55 46 46 45 52 3e ┆E MESSAGE IS IN THE MES. BUFFER>┆
0x0d9e0…0da00 01 20 01 01 3b 01 17 3b 47 45 54 20 41 44 44 52 45 53 53 20 4f 46 20 4d 45 53 53 41 47 45 17 01 ┆ ; ;GET ADDRESS OF MESSAGE ┆
0x0da00…0da20 (6, 1, 11) 3b 01 2e 20 20 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 41 ┆; . XCHG ;HL->A┆
0x0da20…0da40 44 44 52 45 53 53 20 4f 46 20 4d 45 53 53 41 47 45 2e 1a 20 20 20 20 20 20 20 4d 4f 56 20 20 20 ┆DDRESS OF MESSAGE. MOV ┆
0x0da40…0da60 20 20 45 2c 4d 20 20 20 20 20 3b 44 45 1a 1c 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 ┆ E,M ;DE INX H ┆
0x0da60…0da80 20 20 20 20 20 20 3b 20 20 2d 3e 1c 23 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 2c 4d 20 ┆ ; -> # MOV D,M ┆
0x0da80…0daa0 20 20 20 20 3b 20 20 20 20 4d 45 53 53 41 47 45 23 34 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 ┆ ; MESSAGE#4 POP ┆
0x0daa0…0dac0 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 42 59 54 45 20 34 20 4f 46 20 4d 45 53 53 41 47 45 20 ┆ H ;HL->BYTE 4 OF MESSAGE ┆
0x0dac0…0dae0 42 55 46 46 45 52 34 3d 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 3b ┆BUFFER4= PUSH D ;┆
0x0dae0…0db00 20 41 4e 44 20 52 45 50 4c 41 43 45 20 49 54 20 42 59 20 54 48 45 20 41 44 44 52 45 53 53 20 4f ┆ AND REPLACE IT BY THE ADDRESS O┆
0x0db00…0db20 (6, 1, 12) 46 20 54 48 45 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆F THE= ; ┆
0x0db20…0db40 4d 45 53 53 41 47 45 20 01 20 01 01 3b 01 3a 3b 47 45 54 20 54 48 45 20 4c 45 4e 47 54 48 20 4f ┆MESSAGE ; :;GET THE LENGTH O┆
0x0db40…0db60 46 20 54 48 45 20 44 41 54 41 20 41 52 45 41 20 41 4c 4c 4f 43 41 54 45 44 20 46 4f 52 20 54 48 ┆F THE DATA AREA ALLOCATED FOR TH┆
0x0db60…0db80 45 20 4d 45 53 53 41 47 45 3a 01 3b 01 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 2f ┆E MESSAGE: ; INX H /┆
0x0db80…0dba0 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 4c 45 4e 47 ┆ INX H ;HL->LENG┆
0x0dba0…0dbc0 54 48 20 4f 46 20 44 41 54 41 20 41 52 45 41 2f 1e 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 ┆TH OF DATA AREA/ MOV ┆
0x0dbc0…0dbe0 41 2c 4d 20 20 20 20 20 3b 41 4c 4c 4c 45 4e 1e 20 20 20 20 20 20 20 20 53 54 41 20 20 20 20 20 ┆A,M ;ALLLEN STA ┆
0x0dbe0…0dc00 41 4c 4c 45 4e 20 20 20 3b 20 20 20 20 20 20 3a 3d 20 29 20 20 20 20 20 20 20 49 4e 58 20 20 20 ┆ALLEN ; := ) INX ┆
0x0dc00…0dc20 (6, 1, 13) 20 20 48 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 4c 45 4e 47 54 48 20 4f 46 29 2c 20 20 ┆ H ; LENGTH OF), ┆
0x0dc20…0dc40 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 ┆ MOV A,M ; ┆
0x0dc40…0dc60 20 41 4c 4c 4f 43 41 54 45 44 2c 2e 20 20 20 20 20 20 20 53 54 41 20 20 20 20 20 41 4c 4c 45 4e ┆ ALLOCATED,. STA ALLEN┆
0x0dc60…0dc80 2b 31 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 41 20 41 52 45 41 2e 01 20 01 01 3b ┆+1 ; DATA AREA. ;┆
0x0dc80…0dca0 01 3e 3b 45 56 45 52 59 54 48 49 4e 47 20 49 53 20 4e 4f 57 20 52 45 41 44 20 46 4f 52 20 54 48 ┆ >;EVERYTHING IS NOW READ FOR TH┆
0x0dca0…0dcc0 45 20 54 52 41 4e 53 46 45 52 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 54 4f 20 54 48 45 ┆E TRANSFER OF THE MESSAGE TO THE┆
0x0dcc0…0dce0 3e 14 3b 43 4f 4e 54 45 4e 54 53 20 50 41 52 41 4d 45 54 45 52 2e 14 3d 3b 49 46 20 54 48 45 20 ┆> ;CONTENTS PARAMETER. =;IF THE ┆
0x0dce0…0dd00 4d 45 53 53 41 47 45 20 4c 45 4e 47 54 48 20 3c 3d 20 31 30 20 54 48 45 20 54 4f 50 4d 4f 53 54 ┆MESSAGE LENGTH <= 10 THE TOPMOST┆
0x0dd00…0dd20 (6, 1, 14) 20 45 4c 45 4d 45 4e 54 20 4f 4e 20 54 48 45 20 53 54 41 43 4b 3d 3c 3b 20 20 20 20 20 20 43 4f ┆ ELEMENT ON THE STACK=<; CO┆
0x0dd20…0dd40 4e 54 41 49 4e 53 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 42 59 54 45 20 34 20 4f 46 20 ┆NTAINS THE ADDRESS OF BYTE 4 OF ┆
0x0dd40…0dd60 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 2e 3c 3c 3b 49 46 20 54 48 45 20 4d 45 53 ┆THE MESSAGE BUFFER.<<;IF THE MES┆
0x0dd60…0dd80 53 41 47 45 20 4c 45 4e 47 54 48 20 3e 20 31 30 20 54 48 45 20 54 4f 50 4d 4f 53 54 20 45 4c 45 ┆SAGE LENGTH > 10 THE TOPMOST ELE┆
0x0dd80…0dda0 4d 45 4e 54 20 4f 4e 20 54 48 45 20 53 54 41 43 4b 3c 3b 3b 20 20 20 20 20 20 43 4f 4e 54 41 49 ┆MENT ON THE STACK<;; CONTAI┆
0x0dda0…0ddc0 4e 53 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 20 41 4c 4c 4f 43 41 54 45 44 20 ┆NS THE ADDRESS OF THE ALLOCATED ┆
0x0ddc0…0dde0 44 41 54 41 20 41 52 45 41 20 43 4f 4e 2d 3b 1b 3b 20 20 20 20 20 20 54 41 49 4e 49 4e 47 20 54 ┆DATA AREA CON-; ; TAINING T┆
0x0dde0…0de00 48 45 20 4d 45 53 53 41 47 45 2e 1b 3d 3b 49 4e 20 45 49 54 48 45 52 20 43 41 53 45 20 54 48 45 ┆HE MESSAGE. =;IN EITHER CASE THE┆
0x0de00…0de20 (6, 1, 15) 20 54 4f 50 4d 4f 53 54 20 45 4c 45 4d 45 4e 54 20 4f 4e 20 54 48 45 20 53 54 41 43 4b 20 43 4f ┆ TOPMOST ELEMENT ON THE STACK CO┆
0x0de20…0de40 4e 54 41 49 4e 53 20 54 48 45 3d 3b 3b 20 20 20 20 20 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 ┆NTAINS THE=;; ADDRESS OF TH┆
0x0de40…0de60 45 20 4c 4f 43 41 54 49 4f 4e 20 57 48 45 52 45 20 54 48 45 20 4d 45 53 53 41 47 45 20 49 53 20 ┆E LOCATION WHERE THE MESSAGE IS ┆
0x0de60…0de80 53 54 4f 52 45 44 2e 3b 01 3b 01 24 53 48 4f 52 54 3a 20 4c 48 4c 44 20 20 20 20 43 4f 4e 50 54 ┆STORED.; ; $SHORT: LHLD CONPT┆
0x0de80…0dea0 52 20 20 3b 48 4c 2d 3e 43 4f 4e 54 45 4e 54 53 24 2f 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 ┆R ;HL->CONTENTS$/ POP ┆
0x0dea0…0dec0 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 4c 4f 43 41 54 49 4f 4e 20 4f 46 20 4d 45 53 53 41 47 ┆ D ;DE->LOCATION OF MESSAG┆
0x0dec0…0dee0 45 2f 3c 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 3b 50 55 54 20 41 ┆E/< PUSH D ;PUT A┆
0x0dee0…0df00 44 44 52 45 53 53 20 4f 46 20 4d 45 53 53 41 47 45 20 42 41 43 4b 20 4f 4e 20 53 54 41 43 4b 3c ┆DDRESS OF MESSAGE BACK ON STACK<┆
0x0df00…0df20 (6, 1, 16) 2c 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 20 4c 45 4e 47 54 48 20 20 3b 41 3a 3d 4c 45 4e 47 ┆, LDA LENGTH ;A:=LENG┆
0x0df20…0df40 54 48 20 4f 46 20 4d 45 53 53 41 47 45 2c 2c 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c ┆TH OF MESSAGE,, MOV B,┆
0x0df40…0df60 41 20 20 20 20 20 3b 42 3a 3d 4c 45 4e 47 54 48 20 4f 46 20 4d 45 53 53 41 47 45 2c 3a 20 20 20 ┆A ;B:=LENGTH OF MESSAGE,: ┆
0x0df60…0df80 20 20 20 20 43 41 4c 4c 20 20 20 20 4d 4f 56 45 20 20 20 20 3b 4d 4f 56 45 20 4d 45 53 53 41 47 ┆ CALL MOVE ;MOVE MESSAG┆
0x0df80…0dfa0 45 20 54 4f 20 43 4f 4e 54 45 4e 54 53 20 50 41 52 41 4d 45 54 45 52 3a 01 20 01 01 3b 01 2b 3b ┆E TO CONTENTS PARAMETER: ; +;┆
0x0dfa0…0dfc0 53 48 4f 55 4c 44 20 41 4e 20 41 52 45 41 20 42 45 20 44 45 41 4c 4c 4f 43 41 54 45 44 3f 20 54 ┆SHOULD AN AREA BE DEALLOCATED? T┆
0x0dfc0…0dfe0 48 45 4e 20 44 4f 20 49 54 21 2b 01 3b 01 37 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 ┆HEN DO IT!+ ; 7 POP D ┆
0x0dfe0…0e000 20 20 20 20 20 20 3b 44 45 2d 3e 4c 4f 43 41 54 49 4f 4e 20 4f 46 20 4d 45 53 53 41 47 45 2e 20 ┆ ;DE->LOCATION OF MESSAGE. ┆
0x0e000…0e020 (7, 0, 1) 49 46 20 54 48 45 37 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆IF THE7= ;┆
0x0e020…0e040 20 4d 45 53 53 41 47 45 20 4c 45 4e 47 54 48 20 3e 20 31 30 20 54 48 49 53 20 41 52 45 41 20 53 ┆ MESSAGE LENGTH > 10 THIS AREA S┆
0x0e040…0e060 48 4f 55 4c 44 3d 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆HOULD=( ; ┆
0x0e060…0e080 42 45 20 44 45 41 4c 4c 4f 43 41 54 45 44 2e 28 29 20 20 20 20 20 20 20 4c 44 41 20 20 20 20 20 ┆BE DEALLOCATED.() LDA ┆
0x0e080…0e0a0 4c 45 4e 47 54 48 20 20 3b 41 3a 3d 4d 45 53 53 41 47 45 20 4c 45 4e 47 54 48 29 22 20 20 20 20 ┆LENGTH ;A:=MESSAGE LENGTH)" ┆
0x0e0a0…0e0c0 20 20 20 43 50 49 20 20 20 20 20 31 31 20 20 20 20 20 20 3b 4c 45 4e 47 54 48 3c 31 31 3f 22 35 ┆ CPI 11 ;LENGTH<11?"5┆
0x0e0c0…0e0e0 20 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 53 48 4f 52 54 31 20 20 3b 59 45 53 2c 20 57 45 20 ┆ JC SHORT1 ;YES, WE ┆
0x0e0e0…0e100 53 48 4f 55 4c 44 20 4e 4f 54 20 44 45 41 4c 4c 4f 43 41 54 45 35 3e 20 20 20 20 20 20 20 4c 48 ┆SHOULD NOT DEALLOCATE5> LH┆
0x0e100…0e120 (7, 0, 2) 4c 44 20 20 20 20 41 4c 4c 45 4e 20 20 20 3b 48 4c 3a 3d 4c 45 4e 47 54 48 20 4f 46 20 54 48 45 ┆LD ALLEN ;HL:=LENGTH OF THE┆
0x0e120…0e140 20 41 52 45 20 54 4f 20 42 45 20 44 41 4c 4c 4f 43 41 54 45 44 3e 22 20 20 20 20 20 20 20 43 41 ┆ ARE TO BE DALLOCATED>" CA┆
0x0e140…0e160 4c 4c 20 20 20 20 44 45 4c 4f 43 20 20 20 3b 44 45 41 4c 4c 4f 43 41 54 45 22 01 20 01 01 3b 01 ┆LL DELOC ;DEALLOCATE" ; ┆
0x0e160…0e180 33 3b 53 45 4e 44 20 54 48 45 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 42 41 43 4b 20 54 ┆3;SEND THE MESSAGE BUFFER BACK T┆
0x0e180…0e1a0 4f 20 54 48 45 20 50 4f 4f 4c 20 53 45 4d 41 50 48 4f 52 45 33 01 3b 01 2a 53 48 4f 52 54 31 3a ┆O THE POOL SEMAPHORE3 ; *SHORT1:┆
0x0e1a0…0e1c0 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 4d 45 53 53 41 47 45 20 42 55 46 ┆POP H ;HL->MESSAGE BUF┆
0x0e1c0…0e1e0 46 45 52 2a 15 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 50 4f 4f 4c 15 24 20 20 20 20 ┆FER* LXI B,POOL $ ┆
0x0e1e0…0e200 20 20 20 43 41 4c 4c 20 20 20 20 53 45 4e 44 20 20 20 20 3b 53 45 4e 44 20 49 54 20 42 41 43 4b ┆ CALL SEND ;SEND IT BACK┆
0x0e200…0e220 (7, 0, 3) 24 01 20 01 0a 20 20 20 20 20 20 20 52 45 54 0a 07 20 20 20 20 20 20 20 07 0b 20 20 20 20 20 20 ┆$ RET ┆
0x0e220…0e240 20 53 4b 49 50 0b 17 3b 2a 2a 2a 2a 2a 20 4c 4f 43 41 4c 20 44 41 54 41 20 2a 2a 2a 2a 2a 17 01 ┆ SKIP ;***** LOCAL DATA ***** ┆
0x0e240…0e260 20 01 33 4c 45 4e 50 54 52 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 ┆ 3LENPTR:DS 2 ;ADDRE┆
0x0e260…0e280 53 53 20 4f 46 20 4c 45 4e 47 54 48 20 50 41 52 41 4d 45 54 45 52 33 35 43 4f 4e 50 54 52 3a 44 ┆SS OF LENGTH PARAMETER35CONPTR:D┆
0x0e280…0e2a0 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 20 43 4f 4e 54 45 ┆S 2 ;ADDRESS OF CONTE┆
0x0e2a0…0e2c0 4e 54 53 20 50 41 52 41 4d 45 54 45 52 35 33 53 4e 44 50 54 52 3a 44 53 20 20 20 20 20 20 32 20 ┆NTS PARAMETER53SNDPTR:DS 2 ┆
0x0e2c0…0e2e0 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 20 53 45 4e 44 45 52 20 50 41 52 41 4d 45 54 ┆ ;ADDRESS OF SENDER PARAMET┆
0x0e2e0…0e300 45 52 33 29 4c 45 4e 47 54 48 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 4c 45 4e 47 ┆ER3)LENGTH:DS 2 ;LENG┆
0x0e300…0e320 (7, 0, 4) 54 48 20 4f 46 20 4d 45 53 53 41 47 45 29 39 41 4c 4c 45 4e 3a 20 44 53 20 20 20 20 20 20 32 20 ┆TH OF MESSAGE)9ALLEN: DS 2 ┆
0x0e320…0e340 20 20 20 20 20 20 3b 4c 45 4e 47 54 48 20 4f 46 20 44 41 54 41 20 41 52 45 41 20 41 4c 4c 4f 43 ┆ ;LENGTH OF DATA AREA ALLOC┆
0x0e340…0e360 41 54 45 44 20 46 4f 52 39 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ATED FOR9& ┆
0x0e360…0e380 20 3b 20 20 20 20 20 20 20 4d 45 53 53 41 47 45 26 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 2b ┆ ; MESSAGE& END +┆
0x0e380…0e3a0 7d 91 6f 7c 98 67 4d 44 c3 08 43 2a f5 42 2b 56 2b 5e eb 22 f3 42 11 0a 00 19 22 4c 41 2a 4a 41 ┆å oø gMD C* B+V+^ " B "LA*JA┆
0x0e3a0…0e3c0 5e 23 56 0a 87 ca bd 56 4f 06 00 2a 4a 41 09 23 7e 1b 2b 12 7e 1b 2b 12 0d 0d c2 b0 56 2a f5 42 ┆^#V VO *JA #ü + ü + V* B┆
0x0e3c0…0e3e0 f9 e1 cd 6d 00 39 2b 2b 7c b5 ca 3c 59 e1 22 f5 42 01 0a 00 09 22 4a 41 e1 22 f7 42 e1 22 f9 42 ┆ m 9++ø <Y " B "JA " B " B┆
0x0e3e0…0e400 e1 22 4e 41 eb f9 c3 fb 42 cd c8 57 c3 08 43 cd c8 57 e1 2a f3 42 e5 c3 08 43 c1 c3 01 57 cd c8 ┆ "NA B W C W * B C W ┆
0x0e400…0e420 (7, 0, 5) 57 2a f3 42 e5 c5 eb 2a 4a 41 22 4c 41 2a f5 42 22 f3 42 eb 4e 23 46 eb 71 23 70 c1 c3 08 43 cd ┆W* B *JA"LA* B" B N#F q#p C ┆
0x0e420…0e440 c8 57 c5 2a f5 42 4d 44 2a f7 42 23 7e 3d fa fa 56 21 05 00 09 56 2b 5e 2b 46 2b 4e eb 23 be c2 ┆ W * BMD* B#ü= V! V+^+F+N # ┆
0x0e440…0e460 31 57 d1 e1 c5 4b 42 c3 08 43 0a 03 fe 50 d2 15 59 2a f9 42 be ca 1f 57 32 b9 57 c5 2a f5 42 4d ┆1W KB C P Y* B W2 W * BM┆
0x0e460…0e480 44 69 60 23 23 5e 23 56 79 93 c2 72 57 78 9a ca 90 57 21 06 00 09 7e 23 66 6f 3a b9 57 be ca 86 ┆Di`##^#Vy rWx W! ü#fo: W ┆
0x0e480…0e4a0 57 42 4b c3 61 57 22 bb 57 c1 cd ce 57 c3 22 57 e1 22 4e 41 21 fe ff 39 22 bb 57 2a b9 57 7d cd ┆WBK aW" W W "W "NA! 9" W* Wå ┆
0x0e4a0…0e4c0 d4 67 2a bb 57 3a b9 57 be 1e 53 c2 2e 43 2a 4e 41 4d 44 cd bf 57 c3 22 57 00 00 00 00 00 00 e1 ┆ g* W: W S .C*NAMD W "W ┆
0x0e4c0…0e4e0 22 50 41 37 f5 c3 d4 57 2a f9 42 22 bb 57 e1 22 50 41 a7 f5 0a 03 69 60 22 4e 41 2f 3c 5f 16 ff ┆"PA7 W* B" W "PA i`"NA/<_ ┆
0x0e4e0…0e500 2a bb 57 19 19 5e 23 56 37 7d 9b 6f 7c 9a 67 22 bd 57 11 f8 ff 19 5e 23 56 23 4e 23 46 f1 da 0f ┆* W ^#V7å oø g" W ^#V#N#F ┆
0x0e500…0e520 (7, 0, 6) 58 97 93 6f 3e 00 9a 67 39 f9 eb 19 c3 20 58 eb 09 97 95 6f 3e 00 9c 67 39 f9 eb 2a bb 57 23 23 ┆X o> g9 X o> g9 * W##┆
0x0e520…0e540 79 b0 ca 3d 58 97 91 4f 3e 00 98 47 7e 12 23 13 7e 12 23 13 0c 0c c2 2c 58 04 c2 2c 58 e5 2a 4e ┆y =X O> Gü # ü # ,X ,X *N┆
0x0e540…0e560 41 e5 2a f9 42 e5 2a f7 42 e5 2a f5 42 e5 e5 2a 48 41 eb 21 d8 ff 39 7d 93 7c 9a 1e 4b da 2e 43 ┆A * B * B * B *HA ! 9å ø K .C┆
0x0e560…0e580 21 00 00 39 22 f5 42 11 0a 00 19 22 4a 41 2a bb 57 22 f9 42 2a bd 57 22 f7 42 2b 56 2b 5e 7d 93 ┆! 9" B "JA* W" B* W" B+V+^å ┆
0x0e580…0e5a0 4f 7c 9a 47 2a 50 41 e9 e1 22 ef 55 e1 22 b9 57 2a f7 42 11 fc ff 19 5e 23 56 37 7d 9b 6f 7c 9a ┆Oø G*PA " U " W* B ^#V7å oø ┆
0x0e5a0…0e5c0 67 22 4e 41 2a f7 42 3a ef 55 be c2 b8 58 2a f9 42 3a b9 57 be ca fb 42 2a f3 42 5e 23 56 eb 22 ┆g"NA* B: U X* B: W B* B^#V "┆
0x0e5c0…0e5e0 f1 55 2a f5 42 4d 44 2a f1 55 7d 91 c2 d6 58 7c 98 1e 58 ca 2e 43 21 04 00 09 5e 23 56 d5 21 fc ┆ U* BMD* Uå Xø X .C! ^#V ! ┆
0x0e5e0…0e600 ff 19 5e 23 56 37 7d 9b 5f 7c 9a 57 21 08 00 09 73 23 72 2b 2b 2b eb e1 3a ef 55 be c2 0b 59 eb ┆ ^#V7å _ø W! s#r+++ : U Y ┆
0x0e600…0e620 (7, 0, 7) 5e 23 56 eb 3a b9 57 be ca fb 42 69 60 23 23 4e 23 46 c3 c7 58 60 69 22 4e 41 d6 4d 87 4f 06 00 ┆^#V : W Bi`##N#F X`i"NA M O ┆
0x0e620…0e640 2a b6 69 7c b5 ca 37 59 09 5e 23 56 eb 7c b5 ca 37 59 01 fb 42 c5 e9 1e 45 c3 2e 43 cd b8 00 0a ┆* iø 7Y ^#V ø 7Y B E .C ┆
0x0e640…0e660 03 69 60 22 4e 41 5f 16 00 21 53 59 19 19 5e 23 56 eb e9 aa 59 3d 5a 94 5a b7 5a 88 58 a7 59 a7 ┆ i`"NA_ !SY ^#V Y=Z Z Z X Y ┆
0x0e660…0e680 59 fe 5c c0 5d 17 5a 71 5a de 5a 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆Y Ø Å ZqZ Zvvvvvvvvvvvvvvvvvvvvv┆
0x0e680…0e6a0 76 a2 4c aa 4c ec 55 ec 55 ec 55 ec 55 ec 55 ec 55 ec 55 1e 5a 2c 5a b5 59 01 5a e5 4c c2 59 cb ┆v L L U U U U U U U Z,Z Y Z L Y ┆
0x0e6a0…0e6c0 59 ec 59 dd 59 d2 59 c3 b9 43 2a ef 42 7d 2d fa 08 43 c3 1a 43 2a ef 42 7d a7 f2 be 59 25 e5 c3 ┆Y Y Y Y C* Bå- C C* Bå Y% ┆
0x0e6c0…0e6e0 08 43 e1 26 00 22 ef 42 c3 08 43 e1 cd 8e 00 c3 fb 42 e1 d1 7d f3 cd 7f 00 fb c3 08 43 e1 d1 f3 ┆ C & " B C B å C ┆
0x0e6e0…0e700 cd 61 00 fb a5 6f 26 00 e5 c3 08 43 01 fd 59 11 04 00 2a b0 69 3e 02 cd 91 00 c3 fb 42 3c 58 53 ┆ a o& C Y * i> B<XS┆
0x0e700…0e720 (7, 0, 8) 44 45 43 42 49 20 20 20 52 41 00 05 00 00 00 00 00 00 00 0b 00 08 41 0a 00 05 00 54 41 4c 4b 20 ┆DECBI RA A TALK ┆
0x0e720…0e740 13 02 44 45 43 42 49 20 20 20 02 13 00 01 00 00 00 76 76 76 13 0d 04 44 45 43 42 49 20 20 20 02 ┆ DECBI vvv DECBI ┆
0x0e740…0e760 00 00 08 0d 05 08 7e d6 30 ca 05 04 0a 02 0b 00 04 0e 08 87 57 87 87 82 57 23 7e d6 30 82 23 c9 ┆ ü 0 W W#ü 0 # ┆
0x0e760…0e780 0e 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0e780…0e7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x0e7e0…0e800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x0e800…0e820 (7, 0, 9) ExtentHdr {name=»RESERV «, typ=»K«, seg=»A«, next=0x00, basis=0x0011, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,09 (0x00f900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0e820…0e840 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x0e840…0e860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x0e860…0e880 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x0e880…0e8a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x0e8a0…0e8c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x0e8c0…0e8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x0e8e0…0e900 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x0e900…0e920 (7, 0, 10) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x0e920…0e940 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x0e940…0e960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x0e960…0e980 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x0e980…0e9a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0e9a0…0e9c0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 52 45 53 45 ┆**>>;* PROCEDURE NAME: RESE┆
0x0e9c0…0e9e0 52 56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RV ┆
0x0e9e0…0ea00 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x0ea00…0ea20 (7, 0, 11) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0ea20…0ea40 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x0ea40…0ea60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x0ea60…0ea80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x0ea80…0eaa0 53 43 52 49 50 54 49 4f 4e 3a 0e 38 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 49 53 20 ┆SCRIPTION: 8; THIS PROCEDURE IS ┆
0x0eaa0…0eac0 55 53 45 44 20 54 4f 20 52 45 53 45 52 56 45 20 41 20 53 59 4d 42 4f 4c 49 43 20 52 45 53 4f 55 ┆USED TO RESERVE A SYMBOLIC RESOU┆
0x0eac0…0eae0 52 43 45 2e 38 3e 3b 20 50 4c 45 41 53 45 20 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 ┆RCE.8>; PLEASE REFER TO THE PASC┆
0x0eae0…0eb00 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 ┆AL STANDARD ASSEMBLER PACKAGE MA┆
0x0eb00…0eb20 (7, 0, 12) 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e 20 37 2e 31 20 46 4f 52 20 44 45 54 41 49 4c 53 2e ┆NUAL> ; SECTION 7.1 FOR DETAILS.┆
0x0eb20…0eb40 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; >;--------------------------┆
0x0eb40…0eb60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0eb60…0eb80 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 ┆--->0; STACK CONTENTS ON ENTRY: ┆
0x0eb80…0eba0 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 ┆ I I00; ┆
0x0eba0…0ebc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I---------┆
0x0ebc0…0ebe0 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆------I00; ┆
0x0ebe0…0ec00 20 20 20 20 20 20 20 20 49 20 52 45 54 55 52 4e 20 41 44 52 2e 20 20 20 49 30 30 3b 20 20 20 20 ┆ I RETURN ADR. I00; ┆
0x0ec00…0ec20 (7, 0, 13) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d ┆ I-----┆
0x0ec20…0ec40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆----------I00; ┆
0x0ec40…0ec60 20 20 20 20 20 20 20 20 20 20 20 20 49 20 2d 3e 20 53 54 41 54 55 53 20 20 20 20 20 49 30 30 3b ┆ I -> STATUS I00;┆
0x0ec60…0ec80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d ┆ I-┆
0x0ec80…0eca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--------------I00; ┆
0x0eca0…0ecc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 57 41 49 54 20 20 20 20 20 20 ┆ I WAIT ┆
0x0ecc0…0ece0 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆I00; ┆
0x0ece0…0ed00 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x0ed00…0ed20 (7, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 45 58 43 4c 55 53 49 56 ┆ I EXCLUSIV┆
0x0ed20…0ed40 45 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E I00; ┆
0x0ed40…0ed60 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x0ed60…0ed80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 2d 3e 20 52 45 53 ┆ I -> RES┆
0x0ed80…0eda0 4f 55 52 43 45 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OURCE I00; ┆
0x0eda0…0edc0 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 ┆ I---------------I00; ┆
0x0edc0…0ede0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 ┆ I ┆
0x0ede0…0ee00 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I0>;----------------┆
0x0ee00…0ee20 (7, 0, 15) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0ee20…0ee40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 ┆------------->$; STACK CONTENTS ┆
0x0ee40…0ee60 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ON EXIT: EMPTY$>;==========┆
0x0ee60…0ee80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x0ee80…0eea0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 0b 20 20 20 20 20 20 20 53 ┆===================> S┆
0x0eea0…0eec0 4b 49 50 0b 08 52 45 53 45 52 56 3a 3a 08 01 20 01 01 3b 01 3a 3b 47 45 54 20 50 41 52 41 4d 45 ┆KIP RESERV:: ; :;GET PARAME┆
0x0eec0…0eee0 54 45 52 53 20 46 52 4f 4d 20 50 41 53 43 41 4c 20 41 4e 44 20 42 55 49 4c 44 20 50 41 52 41 4d ┆TERS FROM PASCAL AND BUILD PARAM┆
0x0eee0…0ef00 45 54 45 52 53 20 46 4f 52 20 52 45 53 52 56 3a 01 3b 01 29 20 20 20 20 20 20 20 50 4f 50 20 20 ┆ETERS FOR RESRV: ; ) POP ┆
0x0ef00…0ef20 (7, 0, 16) 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 2b 20 ┆ H ;HL=RETURN ADDRESS)+ ┆
0x0ef20…0ef40 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 52 45 54 41 44 52 20 20 3b 53 41 56 45 20 52 45 54 55 ┆ SHLD RETADR ;SAVE RETU┆
0x0ef40…0ef60 52 4e 20 41 44 44 52 45 53 53 2b 22 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 ┆RN ADDRESS+" POP H ┆
0x0ef60…0ef80 20 20 20 3b 48 4c 2d 3e 53 54 41 54 55 53 22 2e 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 53 ┆ ;HL->STATUS". SHLD S┆
0x0ef80…0efa0 54 41 44 52 20 20 20 3b 53 41 56 45 20 41 44 44 52 45 53 53 20 4f 46 20 53 54 41 54 55 53 2e 29 ┆TADR ;SAVE ADDRESS OF STATUS.)┆
0x0efa0…0efc0 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 20 28 42 49 54 20 ┆ POP H ;HL (BIT ┆
0x0efc0…0efe0 30 29 20 3d 20 57 41 49 54 29 29 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4c 20 20 20 ┆0) = WAIT)) MOV A,L ┆
0x0efe0…0f000 20 20 3b 41 20 20 28 42 49 54 20 30 29 20 3d 20 57 41 49 54 29 29 20 20 20 20 20 20 20 52 4c 43 ┆ ;A (BIT 0) = WAIT)) RLC┆
0x0f000…0f020 (7, 1, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 41 20 20 28 42 49 54 20 31 29 20 3d 20 57 41 49 54 29 ┆ ;A (BIT 1) = WAIT)┆
0x0f020…0f040 2e 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 20 28 42 49 54 ┆. POP H ;HL (BIT┆
0x0f040…0f060 20 30 29 20 3d 20 45 58 43 4c 55 53 49 56 45 2e 35 20 20 20 20 20 20 20 4f 52 41 20 20 20 20 20 ┆ 0) = EXCLUSIVE.5 ORA ┆
0x0f060…0f080 4c 20 20 20 20 20 20 20 3b 41 20 20 28 42 49 54 20 31 2c 30 29 20 3d 20 57 41 49 54 2c 45 58 43 ┆L ;A (BIT 1,0) = WAIT,EXC┆
0x0f080…0f0a0 4c 55 53 49 56 45 35 35 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4c 2c 41 20 20 20 20 20 3b ┆LUSIVE55 MOV L,A ;┆
0x0f0a0…0f0c0 48 4c 20 28 42 49 54 20 31 2c 30 29 20 3d 20 57 41 49 54 2c 45 58 43 4c 55 53 49 56 45 35 3b 20 ┆HL (BIT 1,0) = WAIT,EXCLUSIVE5; ┆
0x0f0c0…0f0e0 20 20 20 20 20 20 58 54 48 4c 20 20 20 20 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 53 55 42 50 ┆ XTHL ;PUSH SUBP┆
0x0f0e0…0f100 41 52 41 4d 45 54 45 52 53 20 3b 48 4c 2d 3e 52 45 53 4f 55 52 43 45 28 30 29 3b 3a 20 20 20 20 ┆ARAMETERS ;HL->RESOURCE(0);: ┆
0x0f100…0f120 (7, 1, 2) 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 20 3b 53 41 56 45 20 41 44 44 52 45 53 53 ┆ PUSH H ;SAVE ADDRESS┆
0x0f120…0f140 20 4f 46 20 52 45 53 4f 55 52 43 45 20 50 41 52 41 4d 45 54 45 52 3a 01 20 01 01 3b 01 0d 3b 42 ┆ OF RESOURCE PARAMETER: ; ;B┆
0x0f140…0f160 4c 41 4e 4b 20 52 45 53 4f 55 52 0d 01 3b 01 39 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 41 ┆LANK RESOUR ; 9 MVI A┆
0x0f160…0f180 2c 23 31 30 20 20 20 20 3b 41 3a 3d 4c 45 4e 47 54 48 20 4f 46 20 46 49 45 4c 44 20 54 4f 20 42 ┆,#10 ;A:=LENGTH OF FIELD TO B┆
0x0f180…0f1a0 45 20 42 4c 41 4e 4b 45 44 39 30 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 52 45 53 4f ┆E BLANKED90 LXI H,RESO┆
0x0f1a0…0f1c0 55 52 20 3b 48 4c 2d 3e 46 49 45 4c 44 20 54 4f 20 42 45 20 42 4c 41 4e 4b 45 44 30 22 20 20 20 ┆UR ;HL->FIELD TO BE BLANKED0" ┆
0x0f1c0…0f1e0 20 20 20 20 43 41 4c 4c 20 20 20 20 45 30 4c 49 4e 20 20 20 20 3b 42 4c 41 4e 4b 20 49 54 21 22 ┆ CALL E0LIN ;BLANK IT!"┆
0x0f1e0…0f200 01 20 01 01 3b 01 22 3b 4d 4f 56 45 20 52 45 53 4f 55 52 43 45 20 50 41 52 41 4d 45 54 45 52 20 ┆ ; ";MOVE RESOURCE PARAMETER ┆
0x0f200…0f220 (7, 1, 3) 54 4f 20 52 45 53 4f 55 52 22 01 3b 01 3b 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 ┆TO RESOUR" ; ; POP H ┆
0x0f220…0f240 20 20 20 20 20 20 3b 48 4c 2d 3e 52 45 53 4f 55 52 43 45 28 30 29 20 49 2e 45 2e 20 54 48 45 20 ┆ ;HL->RESOURCE(0) I.E. THE ┆
0x0f240…0f260 4c 45 4e 47 54 48 20 4f 46 3b 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LENGTH OF;> ┆
0x0f260…0f280 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 20 52 45 53 4f 55 52 ┆ ; THE RESOUR┆
0x0f280…0f2a0 43 45 20 53 54 52 49 4e 47 3e 37 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 4d 20 20 20 ┆CE STRING>7 MOV B,M ┆
0x0f2a0…0f2c0 20 20 20 3b 42 3d 4c 45 4e 47 54 48 20 4f 46 20 53 54 52 49 4e 47 20 54 4f 20 42 45 20 4d 4f 56 ┆ ;B=LENGTH OF STRING TO BE MOV┆
0x0f2c0…0f2e0 45 44 37 28 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 48 4c 2d ┆ED7( INX H ;HL-┆
0x0f2e0…0f300 3e 52 45 53 4f 55 52 43 45 28 31 29 28 2f 20 20 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 ┆>RESOURCE(1)(/ XCHG ┆
0x0f300…0f320 (7, 1, 4) 20 20 20 20 20 20 3b 44 45 2d 3e 52 45 53 4f 55 52 43 45 20 50 41 52 41 4d 45 54 45 52 2f 2f 20 ┆ ;DE->RESOURCE PARAMETER// ┆
0x0f320…0f340 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 52 45 53 4f 55 52 20 3b 48 4c 2d 3e 44 45 53 54 ┆ LXI H,RESOUR ;HL->DEST┆
0x0f340…0f360 49 4e 41 54 49 4f 4e 20 53 54 52 49 4e 47 2f 21 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 4d ┆INATION STRING/! CALL M┆
0x0f360…0f380 4f 56 45 20 20 20 20 20 3b 4d 4f 56 45 20 49 54 21 21 01 20 01 01 3b 01 31 3b 47 45 54 20 54 48 ┆OVE ;MOVE IT!! ; 1;GET TH┆
0x0f380…0f3a0 45 20 4c 41 53 54 20 54 57 4f 20 43 48 41 52 41 43 54 45 52 53 20 4f 46 20 54 48 45 20 52 45 53 ┆E LAST TWO CHARACTERS OF THE RES┆
0x0f3a0…0f3c0 4f 55 52 43 45 20 4e 41 4d 45 31 01 3b 01 3c 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 52 45 ┆OURCE NAME1 ; < LHLD RE┆
0x0f3c0…0f3e0 53 4f 55 52 2b 38 20 3b 48 4c 3a 3d 4c 41 53 54 20 54 57 4f 20 43 48 41 52 41 43 54 45 52 53 20 ┆SOUR+8 ;HL:=LAST TWO CHARACTERS ┆
0x0f3e0…0f400 4f 46 20 52 45 53 4f 55 52 43 45 3c 3d 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 ┆OF RESOURCE<= PUSH H ┆
0x0f400…0f420 (7, 1, 5) 20 20 20 20 20 3b 50 55 53 48 20 4c 41 53 54 20 54 57 4f 20 43 48 41 52 41 43 54 45 52 53 20 4f ┆ ;PUSH LAST TWO CHARACTERS O┆
0x0f420…0f440 46 20 52 45 53 4f 55 52 43 45 3d 23 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 52 45 53 ┆F RESOURCE=# LXI H,RES┆
0x0f440…0f460 4f 55 52 20 3b 48 4c 2d 3e 52 45 53 4f 55 52 23 31 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 ┆OUR ;HL->RESOUR#1 PUSH ┆
0x0f460…0f480 48 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 41 44 44 52 45 53 53 20 4f 46 20 52 45 53 4f 55 52 ┆H ;PUSH ADDRESS OF RESOUR┆
0x0f480…0f4a0 43 45 31 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 45 53 52 56 14 01 20 01 01 3b 01 34 ┆CE1 CALL RESRV ; 4┆
0x0f4a0…0f4c0 3b 55 50 4f 4e 20 52 45 54 55 52 4e 20 46 52 4f 4d 20 52 45 53 52 56 20 52 45 47 2e 20 41 20 43 ┆;UPON RETURN FROM RESRV REG. A C┆
0x0f4c0…0f4e0 4f 4e 54 41 49 4e 53 20 53 54 41 54 55 53 20 56 41 4c 55 45 34 01 3b 01 22 20 20 20 20 20 20 20 ┆ONTAINS STATUS VALUE4 ; " ┆
0x0f4e0…0f500 4c 48 4c 44 20 20 20 20 53 54 41 44 52 20 20 20 3b 48 4c 2d 3e 53 54 41 54 55 53 22 12 20 20 20 ┆LHLD STADR ;HL->STATUS" ┆
0x0f500…0f520 (7, 1, 6) 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 12 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 ┆ MOV M,A INX ┆
0x0f520…0f540 48 10 2a 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 20 20 20 3b 53 54 4f 52 45 ┆H * MVI M,0 ;STORE┆
0x0f540…0f560 20 53 54 41 54 55 53 20 56 41 4c 55 45 2a 01 20 01 01 3b 01 07 3b 52 45 54 55 52 4e 07 01 3b 01 ┆ STATUS VALUE* ; ;RETURN ; ┆
0x0f560…0f580 29 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 52 45 54 41 44 52 20 20 3b 48 4c 3d 52 45 54 55 ┆) LHLD RETADR ;HL=RETU┆
0x0f580…0f5a0 52 4e 20 41 44 44 52 45 53 53 29 0b 20 20 20 20 20 20 20 50 43 48 4c 0b 01 20 01 0b 20 20 20 20 ┆RN ADDRESS) PCHL ┆
0x0f5a0…0f5c0 20 20 20 53 4b 49 50 0b 1c 3b 2a 2a 2a 2a 2a 2a 2a 20 4c 4f 43 41 4c 20 44 41 54 41 20 2a 2a 2a ┆ SKIP ;******* LOCAL DATA ***┆
0x0f5c0…0f5e0 2a 2a 2a 2a 2a 1c 26 52 45 54 41 44 52 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 52 ┆***** &RETADR:DS 2 ;R┆
0x0f5e0…0f600 45 54 55 52 4e 20 41 44 44 52 45 53 53 26 29 53 54 41 44 52 3a 20 44 53 20 20 20 20 20 20 32 20 ┆ETURN ADDRESS&)STADR: DS 2 ┆
0x0f600…0f620 (7, 1, 7) 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 20 53 54 41 54 55 53 29 25 52 45 53 4f 55 52 ┆ ;ADDRESS OF STATUS)%RESOUR┆
0x0f620…0f640 3a 44 53 20 20 20 20 20 20 23 31 30 20 20 20 20 20 3b 52 45 53 4f 55 52 43 45 20 4e 41 4d 45 25 ┆:DS #10 ;RESOURCE NAME%┆
0x0f640…0f660 07 20 20 20 20 20 20 20 07 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 c3 02 04 0a 02 86 00 04 06 ┆ END ┆
0x0f660…0f680 08 26 00 2b 13 cd 06 05 0b 09 00 00 00 05 02 08 c3 02 04 0a 02 86 00 04 07 08 13 eb 5e 23 56 21 ┆ & + ^#V!┆
0x0f680…0f6a0 07 05 0b 01 00 00 00 05 02 08 3e 02 05 0c 1f 00 00 00 05 06 08 36 76 23 3d c2 06 04 0a 02 33 01 ┆ > 6v#= 3 ┆
0x0f6a0…0f6c0 04 02 08 21 02 05 0b 1f 00 00 00 05 02 08 cd 02 05 0b 20 00 00 00 05 03 08 d5 11 03 05 0b 01 00 ┆ ! ┆
0x0f6c0…0f6e0 00 00 05 04 08 7c b5 ca 04 04 0a 02 4c 01 04 02 08 cd 02 05 0b 09 00 00 00 05 02 08 21 02 05 0b ┆ ø L ! ┆
0x0f6e0…0f700 1f 00 00 00 05 05 08 c1 78 b1 ca 05 04 0a 02 86 00 04 03 08 0b cd 03 05 0b 09 00 00 00 05 02 08 ┆ x ┆
0x0f700…0f720 (7, 1, 8) c3 02 04 0a 02 50 01 04 09 08 13 eb 7e 23 5e 23 56 cd 09 05 0b 21 00 00 00 05 02 08 22 02 05 0b ┆ P ü#^#V ! " ┆
0x0f720…0f740 01 00 01 00 05 02 08 11 02 05 0b 01 00 01 00 05 05 08 21 02 00 cd 05 05 0b 09 00 00 00 05 02 08 ┆ ! ┆
0x0f740…0f760 c3 02 04 0a 02 86 00 04 07 08 13 eb 5e 23 56 cd 07 05 0b 22 00 00 00 05 02 08 22 02 05 0b 23 00 ┆ ^#V " " # ┆
0x0f760…0f780 00 00 05 02 08 2a 02 05 0b 01 00 03 00 05 03 08 eb 2a 03 05 0b 23 00 00 00 05 02 08 01 02 05 0b ┆ * * # ┆
0x0f780…0f7a0 24 00 00 00 05 08 08 09 4e 23 46 eb 09 22 08 05 0b 01 00 01 00 05 02 08 3a 02 05 0b 01 00 00 00 ┆$ N#F " : ┆
0x0f7a0…0f7c0 05 04 08 fe 0c ca 04 04 0a 02 a7 01 04 02 08 11 02 05 0b 01 00 01 00 05 05 08 21 02 00 cd 05 05 ┆ ! ┆
0x0f7c0…0f7e0 0b 09 00 00 00 05 02 08 c3 02 04 0a 02 86 00 04 03 08 24 ca 03 04 0a 02 af 01 04 03 08 25 c2 03 ┆ $ % ┆
0x0f7e0…0f800 04 0a 02 bb 01 04 02 08 11 02 05 0b 01 00 01 00 05 05 08 21 01 00 cd 05 05 0b 09 00 00 00 05 02 ┆ ! ┆
0x0f800…0f820 (7, 1, 9) 4c 49 4e 4b 31 20 20 20 52 43 02 05 00 15 00 08 14 00 07 15 00 08 41 09 00 04 00 49 4e 49 54 20 ┆LINK1 RC A INIT ┆
0x0f820…0f840 08 c3 02 04 0a 02 86 00 04 02 08 2a 02 05 0b 23 00 00 00 05 03 08 eb 21 03 05 0b 25 00 00 00 05 ┆ * # ! % ┆
0x0f840…0f860 04 08 06 05 cd 04 05 0b 26 00 00 00 05 02 08 2a 02 05 0b 10 00 00 00 05 03 08 eb 21 03 05 0b 27 ┆ & * ! '┆
0x0f860…0f880 00 00 00 05 04 08 06 08 cd 04 05 0b 26 00 00 00 05 02 08 21 02 05 0b 28 00 00 00 05 02 08 cd 02 ┆ & ! ( ┆
0x0f880…0f8a0 04 0a 02 9f 03 04 02 08 c3 02 04 0a 02 af 01 04 02 08 2a 02 05 0b 10 00 00 00 05 02 08 01 02 05 ┆ * ┆
0x0f8a0…0f8c0 0b 29 00 00 00 05 03 08 09 22 03 05 0b 10 00 00 00 05 02 08 01 02 05 0b 2a 00 00 00 05 02 08 cd ┆ ) " * ┆
0x0f8c0…0f8e0 02 05 0b 2b 00 00 00 05 02 08 da 02 04 0a 02 4e 00 04 02 08 21 02 05 0b 2c 00 00 00 05 03 08 e5 ┆ + N ! , ┆
0x0f8e0…0f900 cd 03 05 0b 16 00 00 00 05 06 08 a7 c4 08 f0 2a 06 05 0b 0c 00 00 00 05 02 08 22 02 05 0b 10 63 ┆ * " c┆
0x0f900…0f920 (7, 1, 10) ExtentHdr {name=»DEALLO «, typ=»K«, seg=»A«, next=0x00, basis=0x0010, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,09 (0x010900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0f920…0f940 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x0f940…0f960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x0f960…0f980 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x0f980…0f9a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x0f9a0…0f9c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x0f9c0…0f9e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x0f9e0…0fa00 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x0fa00…0fa20 (7, 1, 11) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x0fa20…0fa40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x0fa40…0fa60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x0fa60…0fa80 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x0fa80…0faa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0faa0…0fac0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 44 45 41 4c ┆**>>;* PROCEDURE NAME: DEAL┆
0x0fac0…0fae0 4c 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LO ┆
0x0fae0…0fb00 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x0fb00…0fb20 (7, 1, 12) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0fb20…0fb40 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 35 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 05-MAY-1980 ; >;===┆
0x0fb40…0fb60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x0fb60…0fb80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x0fb80…0fba0 53 43 52 49 50 54 49 4f 4e 3a 0e 3b 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 44 45 41 ┆SCRIPTION: ;; THIS PROCEDURE DEA┆
0x0fba0…0fbc0 4c 4c 4f 43 41 54 45 53 20 41 20 4d 45 4d 4f 52 59 20 41 52 45 41 20 50 52 45 56 49 4f 55 53 4c ┆LLOCATES A MEMORY AREA PREVIOUSL┆
0x0fbc0…0fbe0 59 20 41 4c 4c 4f 2d 3b 20 3b 20 43 41 54 45 44 20 42 59 20 54 48 45 20 41 4c 4c 4f 43 41 20 50 ┆Y ALLO-; ; CATED BY THE ALLOCA P┆
0x0fbe0…0fc00 52 4f 43 45 44 55 52 45 2e 20 3e 3b 20 50 4c 45 41 53 45 20 52 45 46 45 52 20 54 4f 20 54 48 45 ┆ROCEDURE. >; PLEASE REFER TO THE┆
0x0fc00…0fc20 (7, 1, 13) 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 4d 42 4c 45 52 20 50 41 43 4b 41 ┆ PASCAL STANDARD ASSEMBLER PACKA┆
0x0fc20…0fc40 47 45 20 4d 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e 20 36 2e 32 20 46 4f 52 20 44 45 54 ┆GE MANUAL> ; SECTION 6.2 FOR DET┆
0x0fc40…0fc60 41 49 4c 53 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆AILS. ; >;---------------------┆
0x0fc60…0fc80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0fc80…0fca0 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 4e ┆-------->0; STACK CONTENTS ON EN┆
0x0fca0…0fcc0 54 52 59 3a 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 20 ┆TRY: I I00; ┆
0x0fcc0…0fce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d ┆ I----┆
0x0fce0…0fd00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------I00; ┆
0x0fd00…0fd20 (7, 1, 14) 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 52 45 54 55 52 4e 20 41 44 52 2e 20 20 20 49 30 30 ┆ I RETURN ADR. I00┆
0x0fd20…0fd40 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆; I┆
0x0fd40…0fd60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---------------I00; ┆
0x0fd60…0fd80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d 3e 20 53 54 41 54 55 53 20 20 20 ┆ I -> STATUS ┆
0x0fd80…0fda0 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x0fda0…0fdc0 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x0fdc0…0fde0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 41 44 44 52 45 53 53 ┆ I ADDRESS┆
0x0fde0…0fe00 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x0fe00…0fe20 (7, 1, 15) 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 ┆ I---------------I00; ┆
0x0fe20…0fe40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 ┆ I ┆
0x0fe40…0fe60 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I0>;-------------------┆
0x0fe60…0fe80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0fe80…0fea0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 ┆---------->$; STACK CONTENTS ON ┆
0x0fea0…0fec0 45 58 49 54 3a 20 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆EXIT: EMPTY$>;-------------┆
0x0fec0…0fee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0fee0…0ff00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 3a 3b 20 54 48 45 20 53 54 41 43 4b 20 43 4f ┆---------------->:; THE STACK CO┆
0x0ff00…0ff20 (7, 1, 16) 4e 54 45 4e 54 53 20 4e 41 4d 45 44 20 27 41 44 44 52 45 53 53 27 20 50 4f 49 4e 54 53 20 54 4f ┆NTENTS NAMED 'ADDRESS' POINTS TO┆
0x0ff20…0ff40 20 41 20 44 41 54 41 20 41 52 45 41 3a 3a 3b 20 54 4f 20 42 45 20 52 45 4c 45 41 53 45 44 2e 20 ┆ A DATA AREA::; TO BE RELEASED. ┆
0x0ff40…0ff60 54 48 45 20 42 59 54 45 20 49 4d 4d 45 44 49 41 54 45 4c 59 20 50 52 45 43 45 44 49 4e 47 20 54 ┆THE BYTE IMMEDIATELY PRECEDING T┆
0x0ff60…0ff80 48 49 53 20 41 52 45 41 3a 3e 3b 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 56 41 4c 55 45 20 45 ┆HIS AREA:>; CONTAINS THE VALUE E┆
0x0ff80…0ffa0 45 20 28 48 45 58 29 20 49 46 20 54 48 45 20 41 52 45 41 20 57 41 53 20 49 4e 44 45 45 44 20 41 ┆E (HEX) IF THE AREA WAS INDEED A┆
0x0ffa0…0ffc0 4c 4c 4f 43 41 54 45 44 3e 3e 3b 20 55 53 49 4e 47 20 54 48 45 20 41 4c 4c 4f 43 41 20 50 52 4f ┆LLOCATED>>; USING THE ALLOCA PRO┆
0x0ffc0…0ffe0 43 45 44 55 52 45 2e 20 54 48 49 53 20 49 53 20 54 48 45 20 53 4f 2d 43 41 4c 4c 45 44 20 46 4c ┆CEDURE. THIS IS THE SO-CALLED FL┆
0x0ffe0…10000 41 47 20 42 59 54 45 2e 3e 3d 3b 20 54 48 45 20 54 57 4f 20 42 59 54 45 53 20 50 52 45 43 45 44 ┆AG BYTE.>=; THE TWO BYTES PRECED┆
0x10000…10020 (8, 0, 1) 49 4e 47 20 54 48 45 20 46 4c 41 47 20 42 59 54 45 20 43 4f 4e 54 41 49 4e 20 54 48 45 20 4c 45 ┆ING THE FLAG BYTE CONTAIN THE LE┆
0x10020…10040 4e 47 54 48 20 4f 46 3d 38 3b 20 54 48 45 20 41 52 45 41 2e 20 49 54 20 49 53 20 54 48 45 20 41 ┆NGTH OF=8; THE AREA. IT IS THE A┆
0x10040…10060 44 44 52 45 53 53 20 4f 46 20 54 48 45 53 45 20 54 57 4f 20 42 59 54 45 53 20 54 48 41 54 20 49 ┆DDRESS OF THESE TWO BYTES THAT I┆
0x10060…10080 53 38 21 3b 20 50 41 53 53 45 44 20 54 4f 20 54 48 45 20 44 45 4c 4f 43 20 53 55 42 52 4f 55 54 ┆S8!; PASSED TO THE DELOC SUBROUT┆
0x10080…100a0 49 4e 45 2e 21 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆INE.!>;=========================┆
0x100a0…100c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x100c0…100e0 3d 3d 3d 3d 3e 01 20 01 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 08 44 45 41 4c 4c 4f 3a 3a 08 01 ┆====> SKIP DEALLO:: ┆
0x100e0…10100 20 01 01 3b 01 0c 3b 47 45 54 20 41 44 44 52 45 53 53 0c 01 3b 01 29 20 20 20 20 20 20 20 50 4f ┆ ; ;GET ADDRESS ; ) PO┆
0x10100…10120 (8, 0, 2) 50 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 42 43 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 ┆P B ;BC=RETURN ADDRESS┆
0x10120…10140 29 22 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 53 54 ┆)" POP D ;DE->ST┆
0x10140…10160 41 54 55 53 22 22 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c ┆ATUS"" POP H ;HL┆
0x10160…10180 3d 41 44 44 52 45 53 53 22 10 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 10 10 20 20 20 20 ┆=ADDRESS" PUSH B ┆
0x10180…101a0 20 20 20 50 55 53 48 20 20 20 20 44 10 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUSH D 6 ┆
0x101a0…101c0 20 20 20 20 20 3b 54 48 45 20 53 54 41 43 4b 20 4e 4f 57 20 4c 4f 4f 4b 53 20 4c 49 4b 45 20 54 ┆ ;THE STACK NOW LOOKS LIKE T┆
0x101c0…101e0 48 49 53 3a 36 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆HIS:68 ; ┆
0x101e0…10200 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 38 38 ┆ I I88┆
0x10200…10220 (8, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 ┆ ; ┆
0x10220…10240 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 ┆ I---------------I88 ┆
0x10240…10260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x10260…10280 20 49 20 20 2d 3e 20 53 54 41 54 55 53 20 20 20 20 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I -> STATUS I88 ┆
0x10280…102a0 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d ┆ ; I----┆
0x102a0…102c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------I88 ┆
0x102c0…102e0 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 52 45 54 2e 20 41 44 52 ┆ ; I RET. ADR┆
0x102e0…10300 2e 20 20 20 20 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆. I88 ;┆
0x10300…10320 (8, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 ┆ I---------------I┆
0x10320…10340 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 ┆88 ; ┆
0x10340…10360 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 38 01 20 01 01 3b ┆ I I8 ;┆
0x10360…10380 01 0f 3b 54 45 53 54 20 46 4c 41 47 20 42 59 54 45 0f 01 3b 01 10 20 20 20 20 20 20 20 44 43 58 ┆ ;TEST FLAG BYTE ; DCX┆
0x10380…103a0 20 20 20 20 20 48 10 24 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 20 20 20 20 20 3b ┆ H $ MOV A,M ;┆
0x103a0…103c0 41 3a 3d 46 4c 41 47 20 42 59 54 45 24 35 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 30 45 45 ┆A:=FLAG BYTE$5 CPI 0EE┆
0x103c0…103e0 20 20 20 20 20 3b 57 41 53 20 41 52 45 41 20 41 4c 4c 4f 43 41 54 45 44 20 42 59 20 41 4c 4c 4f ┆ ;WAS AREA ALLOCATED BY ALLO┆
0x103e0…10400 43 41 3f 35 1b 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 4e 4f 45 52 52 20 20 20 3b 59 45 53 ┆CA?5 JZ NOERR ;YES┆
0x10400…10420 (8, 0, 5) 1b 30 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 31 20 20 20 20 20 3b 4e 4f 2c 20 53 45 ┆ 0 LXI H,1 ;NO, SE┆
0x10420…10440 54 20 45 52 52 4f 52 20 43 4f 44 45 20 49 4e 20 48 4c 30 12 20 20 20 20 20 20 20 4a 4d 50 20 20 ┆T ERROR CODE IN HL0 JMP ┆
0x10440…10460 20 20 20 46 49 4e 12 27 4e 4f 45 52 52 3a 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 20 20 20 3b ┆ FIN 'NOERR: MVI M,0 ;┆
0x10460…10480 46 4c 41 47 20 42 59 54 45 3a 3d 5a 45 52 4f 27 01 20 01 01 3b 01 13 3b 47 45 54 20 4c 45 4e 47 ┆FLAG BYTE:=ZERO' ; ;GET LENG┆
0x10480…104a0 54 48 20 4f 46 20 41 52 45 41 13 01 3b 01 10 20 20 20 20 20 20 20 44 43 58 20 20 20 20 20 48 10 ┆TH OF AREA ; DCX H ┆
0x104a0…104c0 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 2c 4d 12 10 20 20 20 20 20 20 20 44 43 58 20 ┆ MOV D,M DCX ┆
0x104c0…104e0 20 20 20 20 48 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 45 2c 4d 12 2f 20 20 20 20 20 ┆ H MOV E,M / ┆
0x104e0…10500 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 2d 3e 41 52 45 41 20 54 4f 20 42 ┆ XCHG ;DE->AREA TO B┆
0x10500…10520 (8, 0, 6) 45 20 52 45 4c 45 41 53 45 44 2f 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E RELEASED/) ┆
0x10520…10540 20 20 20 3b 48 4c 3d 4c 45 4e 47 54 48 20 4f 46 20 41 52 45 41 29 01 20 01 01 3b 01 0c 3b 44 45 ┆ ;HL=LENGTH OF AREA) ; ;DE┆
0x10540…10560 41 4c 4c 4f 43 41 54 45 21 0c 01 3b 01 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 44 45 4c ┆ALLOCATE! ; CALL DEL┆
0x10560…10580 4f 43 14 01 20 01 01 3b 01 1d 3b 48 4c 20 4e 4f 57 20 43 4f 4e 54 41 49 4e 53 20 53 54 41 54 55 ┆OC ; ;HL NOW CONTAINS STATU┆
0x10580…105a0 53 20 56 41 4c 55 45 1d 01 3b 01 10 46 49 4e 3a 20 20 20 50 4f 50 20 20 20 20 20 44 10 22 20 20 ┆S VALUE ; FIN: POP D " ┆
0x105a0…105c0 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 53 54 41 54 55 53 ┆ XCHG ;HL->STATUS┆
0x105c0…105e0 22 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 3d 53 54 41 ┆"' ;DE=STA┆
0x105e0…10600 54 55 53 20 56 41 4c 55 45 27 1d 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 45 20 20 20 ┆TUS VALUE' MOV M,E ┆
0x10600…10620 (8, 0, 7) 20 20 3b 53 54 4f 52 45 1d 20 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 ┆ ;STORE INX H ┆
0x10620…10640 20 3b 20 20 53 54 41 54 55 53 20 21 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 44 20 20 ┆ ; STATUS ! MOV M,D ┆
0x10640…10660 20 20 20 3b 20 20 20 20 56 41 4c 55 45 21 01 20 01 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 ┆ ; VALUE! RET ┆
0x10660…10680 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 00 05 09 08 01 0b 00 09 73 23 72 c3 09 04 0a 02 46 02 ┆ END s#r F ┆
0x10680…106a0 04 04 08 3e 20 32 04 05 0b 32 00 00 00 05 02 08 3a 02 05 0b 34 00 00 00 05 02 08 21 02 05 0b 35 ┆ > 2 2 : 4 ! 5┆
0x106a0…106c0 00 00 00 05 04 08 fe 2a cc 04 05 0b 1b 00 00 00 05 02 08 3a 02 05 0b 2e 00 0f 00 05 03 08 a7 ca ┆ * : . ┆
0x106c0…106e0 03 04 0a 02 72 02 04 02 08 2a 02 05 0b 0a 00 00 00 05 05 08 23 7c b5 ca 05 04 0a 02 5c 02 04 02 ┆ r * #ø Ø ┆
0x106e0…10700 08 21 02 05 0b 36 00 00 00 05 02 08 cd 02 05 0b 1b 00 00 00 05 02 08 11 02 05 0b 2e 00 10 00 05 ┆ ! 6 . ┆
0x10700…10720 (8, 0, 8) 08 08 eb 7e 23 5e 23 56 cd 08 05 0b 37 00 00 00 05 02 08 22 02 05 0b 0a 00 00 00 05 03 08 eb 21 ┆ ü#^#V 7 " !┆
0x10720…10740 03 05 0b 38 00 00 00 05 02 08 cd 02 05 0b 39 00 00 00 05 02 08 21 02 05 0b 2e 00 00 00 05 03 08 ┆ 8 9 ! . ┆
0x10740…10760 e5 21 03 05 0b 2a 00 00 00 05 03 08 e5 cd 03 05 0b 2f 00 00 00 05 03 08 a7 c4 03 05 0b 22 00 00 ┆ ! * / " ┆
0x10760…10780 00 05 02 08 11 02 05 0b 2e 00 00 00 05 05 08 1a fe 05 ca 05 04 0a 02 8f 02 04 04 08 fe 04 c2 04 ┆ . ┆
0x10780…107a0 04 0a 02 06 03 04 03 08 13 cd 03 05 0b 3a 00 00 00 05 03 08 a7 ca 03 04 0a 02 bc 02 04 03 08 3d ┆ : =┆
0x107a0…107c0 ca 03 04 0a 02 a1 02 04 02 08 21 02 05 0b 3b 00 00 00 05 02 08 cd 02 05 0b 1b 00 00 00 05 05 08 ┆ ! ; ┆
0x107c0…107e0 e5 06 08 cd 05 05 0b 16 00 00 00 05 06 08 11 05 00 19 11 06 05 0b 2b 00 00 00 05 04 08 06 02 cd ┆ + ┆
0x107e0…10800 04 05 0b 16 00 00 00 05 07 08 d1 21 12 00 19 22 07 05 0b 0e 00 00 00 05 03 08 eb 3a 03 05 0b 2e ┆ ! " : .┆
0x10800…10820 (8, 0, 9) 00 00 00 05 04 08 fe 05 ca 04 04 0a 02 72 02 04 0a 08 e5 01 08 00 09 7e e6 01 ca 0a 04 0a 02 e1 ┆ r ü ┆
0x10820…10840 02 04 03 08 d1 21 03 05 0b 3c 00 00 00 05 04 08 06 08 cd 04 05 0b 16 00 00 00 05 02 08 21 02 05 ┆ ! < ! ┆
0x10840…10860 0b 3d 00 00 00 05 02 08 cd 02 05 0b 29 00 00 00 05 02 08 c3 02 04 0a 02 72 02 04 02 08 3a 02 05 ┆ = ) r : ┆
0x10860…10880 0b 2e 00 0c 00 05 06 08 fe 10 3e 05 c2 06 04 0a 02 ed 02 04 06 08 3e 09 86 77 21 06 05 0b 2e 00 ┆ . > > w! . ┆
0x10880…108a0 09 00 05 07 08 7e 23 5e 23 56 cd 07 05 0b 37 00 00 00 05 0b 08 eb e1 01 0d 00 09 73 23 72 c3 0b ┆ ü#^#V 7 s#r ┆
0x108a0…108c0 04 0a 02 72 02 04 02 08 21 02 05 0b 2a 00 00 00 05 03 08 e5 cd 03 05 0b 3e 00 00 00 05 02 08 3a ┆ r ! * > :┆
0x108c0…108e0 02 05 0b 31 00 00 00 05 02 08 2a 02 05 0b 2c 00 00 00 05 03 08 eb 2a 03 05 0b 31 00 01 00 05 02 ┆ 1 * , * 1 ┆
0x108e0…10900 08 cd 02 05 0b 3f 00 00 00 05 02 08 22 02 05 0b 2c 00 00 00 05 02 08 3a 02 05 0b 32 00 00 00 63 ┆ ? " , : 2 c┆
0x10900…10920 (8, 0, 10) ExtentHdr {name=»RENAMF «, typ=»K«, seg=»A«, next=0x00, basis=0x0018, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,01 (0x012100)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x10920…10940 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x10940…10960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x10960…10980 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x10980…109a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x109a0…109c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x109c0…109e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x109e0…10a00 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x10a00…10a20 (8, 0, 11) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x10a20…10a40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x10a40…10a60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x10a60…10a80 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x10a80…10aa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x10aa0…10ac0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 52 45 4e 41 ┆**>>;* PROCEDURE NAME: RENA┆
0x10ac0…10ae0 4d 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MF ┆
0x10ae0…10b00 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x10b00…10b20 (8, 0, 12) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x10b20…10b40 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 32 32 2d 53 45 50 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 22-SEP-1980 ; >;===┆
0x10b40…10b60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x10b60…10b80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x10b80…10ba0 53 43 52 49 50 54 49 4f 4e 3a 0e 28 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 52 45 4e ┆SCRIPTION: (; THIS PROCEDURE REN┆
0x10ba0…10bc0 41 4d 45 53 20 41 20 4d 49 4b 41 44 4f 53 20 46 49 4c 45 2e 28 3e 3b 20 50 4c 45 41 53 45 20 52 ┆AMES A MIKADOS FILE.(>; PLEASE R┆
0x10bc0…10be0 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆EFER TO THE PASCAL STANDARD ASSE┆
0x10be0…10c00 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e 20 ┆MBLER PACKAGE MANUAL> ; SECTION ┆
0x10c00…10c20 (8, 0, 13) 38 2e 31 20 46 4f 52 20 44 45 54 41 49 4c 53 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆8.1 FOR DETAILS. ; >;----------┆
0x10c20…10c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x10c40…10c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f 4e ┆------------------->0; STACK CON┆
0x10c60…10c80 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 ┆TENTS ON ENTRY: I ┆
0x10c80…10ca0 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x10ca0…10cc0 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x10cc0…10ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 52 45 54 55 52 ┆ I RETUR┆
0x10ce0…10d00 4e 20 41 44 52 2e 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N ADR. I00; ┆
0x10d00…10d20 (8, 0, 14) 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 ┆ I---------------I00; ┆
0x10d20…10d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d ┆ I -┆
0x10d40…10d60 3e 20 4e 45 57 4e 41 4d 45 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> NEWNAME I00; ┆
0x10d60…10d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 ┆ I---------------I0┆
0x10d80…10da0 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0; ┆
0x10da0…10dc0 49 20 20 2d 3e 20 4f 4c 44 4e 41 4d 45 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆I -> OLDNAME I00; ┆
0x10dc0…10de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I-------------┆
0x10de0…10e00 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--I00; ┆
0x10e00…10e20 (8, 0, 15) 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d ┆ I I0>;--------┆
0x10e20…10e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x10e40…10e60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 ┆--------------------->$; STACK C┆
0x10e60…10e80 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 3d 3d ┆ONTENTS ON EXIT: EMPTY$>;==┆
0x10e80…10ea0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x10ea0…10ec0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 0b ┆===========================> ┆
0x10ec0…10ee0 20 20 20 20 20 20 20 53 4b 49 50 0b 0b 20 20 20 20 20 20 20 53 59 4d 42 0b 01 20 01 08 52 45 4e ┆ SKIP SYMB REN┆
0x10ee0…10f00 41 4d 46 3a 3a 08 01 20 01 01 3b 01 21 3b 47 45 54 20 41 4e 44 20 53 41 56 45 20 50 4f 49 4e 54 ┆AMF:: ; !;GET AND SAVE POINT┆
0x10f00…10f20 (8, 0, 16) 45 52 53 20 46 52 4f 4d 20 53 54 41 43 4b 21 01 3b 01 29 20 20 20 20 20 20 20 50 4f 50 20 20 20 ┆ERS FROM STACK! ; ) POP ┆
0x10f20…10f40 20 20 44 20 20 20 20 20 20 20 3b 44 45 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 23 20 20 ┆ D ;DE=RETURN ADDRESS)# ┆
0x10f40…10f60 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 4e 45 57 4e 41 4d ┆ POP H ;HL->NEWNAM┆
0x10f60…10f80 45 23 2f 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 4e 45 57 50 54 52 20 20 3b 53 41 56 45 20 ┆E#/ SHLD NEWPTR ;SAVE ┆
0x10f80…10fa0 41 44 44 52 45 53 53 20 4f 46 20 4e 45 57 4e 41 4d 45 2f 23 20 20 20 20 20 20 20 50 4f 50 20 20 ┆ADDRESS OF NEWNAME/# POP ┆
0x10fa0…10fc0 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 4f 4c 44 4e 41 4d 45 23 2f 20 20 20 20 20 20 20 ┆ H ;HL->OLDNAME#/ ┆
0x10fc0…10fe0 53 48 4c 44 20 20 20 20 4f 4c 44 50 54 52 20 20 3b 53 41 56 45 20 41 44 44 52 45 53 53 20 4f 46 ┆SHLD OLDPTR ;SAVE ADDRESS OF┆
0x10fe0…11000 20 4f 4c 44 4e 41 4d 45 2f 38 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 ┆ OLDNAME/8 PUSH D ┆
0x11000…11020 (8, 1, 1) 20 3b 50 55 54 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 20 42 41 43 4b 20 4f 4e 20 53 54 41 ┆ ;PUT RETURN ADDRESS BACK ON STA┆
0x11020…11040 43 4b 38 01 20 01 01 3b 01 31 3b 43 48 45 43 4b 20 54 48 41 54 20 54 48 45 52 45 20 49 53 20 52 ┆CK8 ; 1;CHECK THAT THERE IS R┆
0x11040…11060 4f 4f 4d 20 4f 4e 20 54 48 45 20 48 45 41 50 20 46 4f 52 20 54 48 45 20 44 43 42 31 01 3b 01 2f ┆OOM ON THE HEAP FOR THE DCB1 ; /┆
0x11060…11080 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 4e 50 20 20 20 20 20 20 3b 48 4c 2d 3e 4e 45 58 54 ┆ LHLD NP ;HL->NEXT┆
0x11080…110a0 20 56 41 43 41 4e 54 20 49 4e 20 48 45 41 50 2f 2f 20 20 20 20 20 20 20 58 43 48 47 20 20 20 20 ┆ VACANT IN HEAP// XCHG ┆
0x110a0…110c0 20 20 20 20 20 20 20 20 3b 44 45 2d 3e 4e 45 58 54 20 56 41 43 41 4e 54 20 49 4e 20 48 45 41 50 ┆ ;DE->NEXT VACANT IN HEAP┆
0x110c0…110e0 2f 39 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 2d 23 32 35 36 2d 23 34 38 2d 23 34 30 ┆/9 LXI H,-#256-#48-#40┆
0x110e0…11100 2d 23 31 30 20 3b 48 4c 3a 3d 52 45 51 55 49 52 45 44 20 44 49 53 54 41 4e 43 45 39 3b 20 20 20 ┆-#10 ;HL:=REQUIRED DISTANCE9; ┆
0x11100…11120 (8, 1, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x11120…11140 3b 20 42 45 54 57 45 45 4e 20 53 54 41 43 4b 20 41 4e 44 20 48 45 41 50 3b 11 20 20 20 20 20 20 ┆; BETWEEN STACK AND HEAP; ┆
0x11140…11160 20 44 41 44 20 20 20 20 20 53 50 11 2a 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4c 20 ┆ DAD SP * MOV A,L ┆
0x11160…11180 20 20 20 20 3b 43 41 4c 43 55 4c 41 54 45 20 44 49 53 54 41 4e 43 45 2a 10 20 20 20 20 20 20 20 ┆ ;CALCULATE DISTANCE* ┆
0x11180…111a0 53 55 42 20 20 20 20 20 45 10 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 48 12 29 20 ┆SUB E MOV A,H ) ┆
0x111a0…111c0 20 20 20 20 20 20 53 42 42 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 49 53 20 49 54 20 53 55 46 ┆ SBB D ;IS IT SUF┆
0x111c0…111e0 46 49 43 49 45 4e 54 3f 29 1b 20 20 20 20 20 20 20 4a 4e 43 20 20 20 20 20 53 55 46 46 20 20 20 ┆FICIENT?) JNC SUFF ┆
0x111e0…11200 20 3b 59 45 53 1b 3a 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 45 2c 27 4b 27 20 20 20 3b 28 ┆ ;YES : MVI E,'K' ;(┆
0x11200…11220 (8, 1, 3) 53 45 54 20 55 50 20 45 52 52 4f 52 20 43 4f 44 45 20 46 4f 52 20 55 4e 53 49 46 46 49 43 45 4e ┆SET UP ERROR CODE FOR UNSIFFICEN┆
0x11220…11240 54 3a 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 53 54 41 ┆T:' ; STA┆
0x11240…11260 43 4b 20 4c 45 4e 47 54 48 29 27 3b 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 58 45 51 52 52 ┆CK LENGTH)'; JMP XEQRR┆
0x11260…11280 20 20 20 3b 4e 4f 2e 20 54 45 52 4d 49 4e 41 54 45 20 57 49 54 48 20 52 55 4e 20 54 49 4d 45 20 ┆ ;NO. TERMINATE WITH RUN TIME ┆
0x11280…112a0 45 52 52 4f 52 20 4b 3b 07 20 20 20 20 20 20 20 07 2c 53 55 46 46 3a 20 20 58 43 48 47 20 20 20 ┆ERROR K; ,SUFF: XCHG ┆
0x112a0…112c0 20 20 20 20 20 20 20 20 20 3b 59 45 53 2e 20 48 4c 2d 3e 54 4f 50 20 4f 46 20 48 45 41 50 2c 3d ┆ ;YES. HL->TOP OF HEAP,=┆
0x112c0…112e0 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 44 43 42 41 44 52 20 20 3b 54 48 49 53 20 53 48 4f ┆ SHLD DCBADR ;THIS SHO┆
0x112e0…11300 55 4c 44 20 42 45 20 54 48 45 20 44 41 54 41 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 3d 27 20 ┆ULD BE THE DATA CONTROL BLOCK=' ┆
0x11300…11320 (8, 1, 4) 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 23 32 35 36 2b 23 34 38 20 3b 52 45 53 45 52 56 ┆ LXI D,#256+#48 ;RESERV┆
0x11320…11340 45 20 52 4f 4f 4d 27 25 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 44 20 20 20 20 20 20 20 20 ┆E ROOM'% DAD D ┆
0x11340…11360 20 20 3b 20 20 20 4f 4e 20 48 45 41 50 25 28 20 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 4e 50 ┆ ; ON HEAP%( SHLD NP┆
0x11360…11380 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 46 4f 52 20 44 43 42 28 07 20 20 20 20 20 20 20 ┆ ; FOR DCB( ┆
0x11380…113a0 07 01 3b 01 3c 3b 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 43 4f 44 45 20 42 55 49 4c 44 53 20 ┆ ; <;THE FOLLOWING CODE BUILDS ┆
0x113a0…113c0 41 4e 44 20 50 55 53 48 45 53 20 54 48 45 20 50 41 52 41 4d 45 54 45 52 53 20 46 4f 52 20 54 48 ┆AND PUSHES THE PARAMETERS FOR TH┆
0x113c0…113e0 45 3c 11 3b 52 45 4e 41 4d 20 53 55 42 52 4f 55 54 49 4e 45 11 01 3b 01 20 20 20 20 20 20 20 20 ┆E< ;RENAM SUBROUTINE ; ┆
0x113e0…11400 4c 58 49 20 20 20 20 20 44 2c 31 20 20 20 20 20 3b 44 43 42 20 53 49 5a 45 20 10 20 20 20 20 20 ┆LXI D,1 ;DCB SIZE ┆
0x11400…11420 (8, 1, 5) 20 20 50 55 53 48 20 20 20 20 44 10 01 20 01 01 3b 01 18 3b 42 4c 41 4e 4b 20 4f 4c 44 4e 41 4d ┆ PUSH D ; ;BLANK OLDNAM┆
0x11420…11440 20 41 4e 44 20 4e 45 57 4e 41 4d 18 01 3b 01 38 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 41 ┆ AND NEWNAM ; 8 MVI A┆
0x11440…11460 2c 23 31 36 20 20 20 20 3b 41 3d 4c 45 4e 47 54 48 20 4f 46 20 46 49 45 4c 44 20 54 4f 20 42 45 ┆,#16 ;A=LENGTH OF FIELD TO BE┆
0x11460…11480 20 42 4c 41 4e 4b 45 44 38 3c 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 4f 4c 44 4e 41 ┆ BLANKED8< LXI H,OLDNA┆
0x11480…114a0 4d 20 3b 48 4c 2d 3e 46 49 45 4c 44 20 54 4f 20 42 45 20 42 4c 41 4e 4b 45 44 20 28 4f 4c 44 4e ┆M ;HL->FIELD TO BE BLANKED (OLDN┆
0x114a0…114c0 41 4d 20 41 4e 44 3c 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AM AND<8 ┆
0x114c0…114e0 3b 20 20 20 20 20 20 20 20 20 4e 45 57 4e 41 4d 20 41 52 45 20 43 4f 4e 54 49 47 55 4f 55 53 29 ┆; NEWNAM ARE CONTIGUOUS)┆
0x114e0…11500 38 22 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 45 30 4c 49 4e 20 20 20 20 3b 42 4c 41 4e 4b ┆8" CALL E0LIN ;BLANK┆
0x11500…11520 (8, 1, 6) 20 49 54 21 22 01 20 01 01 3b 01 3b 3b 4d 4f 56 45 20 43 55 52 52 45 4e 54 20 46 49 4c 45 20 4e ┆ IT!" ; ;;MOVE CURRENT FILE N┆
0x11520…11540 41 4d 45 20 54 4f 20 4f 4c 44 4e 41 4d 2e 20 54 48 45 20 43 55 52 52 45 4e 54 20 46 49 4c 45 20 ┆AME TO OLDNAM. THE CURRENT FILE ┆
0x11540…11560 4e 41 4d 45 20 49 53 3b 14 3b 54 45 52 4d 49 4e 41 54 45 44 20 42 59 20 41 20 27 3a 27 14 01 3b ┆NAME IS; ;TERMINATED BY A ':' ;┆
0x11560…11580 01 23 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 4f 4c 44 4e 41 4d 20 3b 42 43 2d 3e 4f ┆ # LXI B,OLDNAM ;BC->O┆
0x11580…115a0 4c 44 4e 41 4d 23 2e 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 4f 4c 44 50 54 52 20 20 20 3b ┆LDNAM#. LHLD OLDPTR ;┆
0x115a0…115c0 48 4c 2d 3e 4f 4c 44 4e 41 4d 45 20 50 41 52 41 4d 45 54 45 52 2e 39 20 20 20 20 20 20 20 49 4e ┆HL->OLDNAME PARAMETER.9 IN┆
0x115c0…115e0 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 53 4b 49 50 20 4c 45 4e 47 54 48 20 4f 46 20 4f ┆X H ;SKIP LENGTH OF O┆
0x115e0…11600 4c 44 4e 41 4d 45 20 50 41 52 41 4d 45 54 45 52 39 3e 4e 45 58 4f 4c 44 3a 4d 4f 56 20 20 20 20 ┆LDNAME PARAMETER9>NEXOLD:MOV ┆
0x11600…11620 (8, 1, 7) 20 41 2c 4d 20 20 20 20 20 20 3b 41 3a 3d 41 20 43 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 4f ┆ A,M ;A:=A CHARACTER FROM O┆
0x11620…11640 4c 44 4e 41 4d 45 20 50 41 52 41 4d 45 54 45 52 3e 27 20 20 20 20 20 20 20 43 50 49 20 20 20 20 ┆LDNAME PARAMETER>' CPI ┆
0x11640…11660 20 27 3a 27 20 20 20 20 20 20 3b 49 53 20 49 54 20 41 20 43 4f 4c 4f 4e 3f 27 2d 20 20 20 20 20 ┆ ':' ;IS IT A COLON?'- ┆
0x11660…11680 20 20 4a 5a 20 20 20 20 20 20 47 45 54 44 53 43 20 20 20 3b 59 45 53 2c 20 57 45 20 41 52 45 20 ┆ JZ GETDSC ;YES, WE ARE ┆
0x11680…116a0 46 49 4e 49 53 48 45 44 2d 2f 20 20 20 20 20 20 20 53 54 41 58 20 20 20 20 42 20 20 20 20 20 20 ┆FINISHED-/ STAX B ┆
0x116a0…116c0 20 20 3b 4e 4f 2c 20 53 54 4f 52 45 20 49 54 20 49 4e 20 4f 4c 44 4e 41 4d 2f 21 20 20 20 20 20 ┆ ;NO, STORE IT IN OLDNAM/! ┆
0x116c0…116e0 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 50 4f 49 4e 54 20 54 4f 21 2a 20 20 ┆ INX H ;POINT TO!* ┆
0x116e0…11700 20 20 20 20 20 49 4e 58 20 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 20 20 20 4e 45 58 54 20 43 ┆ INX B ; NEXT C┆
0x11700…11720 (8, 1, 8) 48 41 52 41 43 54 45 52 2a 2c 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 4e 45 58 4f 4c 44 20 ┆HARACTER*, JMP NEXOLD ┆
0x11720…11740 20 20 3b 41 4e 44 20 44 4f 20 49 54 20 4f 4e 43 45 20 4d 4f 52 45 2c 01 20 01 01 3b 01 0c 3b 47 ┆ ;AND DO IT ONCE MORE, ; ;G┆
0x11740…11760 45 54 20 44 49 53 43 20 49 44 0c 01 3b 01 39 47 45 54 44 53 43 3a 49 4e 58 20 20 20 20 20 48 20 ┆ET DISC ID ; 9GETDSC:INX H ┆
0x11760…11780 20 20 20 20 20 20 20 3b 48 4c 2d 3e 44 49 53 43 20 49 44 20 49 4e 20 4f 4c 44 4e 41 4d 45 20 50 ┆ ;HL->DISC ID IN OLDNAME P┆
0x11780…117a0 41 52 41 4d 45 54 45 52 39 1c 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 2c 4d 20 20 20 20 ┆ARAMETER9 MOV C,M ┆
0x117a0…117c0 20 20 3b 47 45 54 1c 22 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 ┆ ;GET " INX H ┆
0x117c0…117e0 3b 20 20 44 49 53 43 20 49 44 22 24 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 4d 20 20 ┆; DISC ID"$ MOV B,M ┆
0x117e0…11800 20 20 20 20 3b 20 20 20 20 49 4e 54 4f 20 42 43 24 32 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 ┆ ; INTO BC$2 INX ┆
0x11800…11820 (8, 1, 9) 20 48 20 20 20 20 20 20 20 20 3b 53 4b 49 50 20 54 48 45 20 53 55 42 53 45 51 55 45 4e 54 20 43 ┆ H ;SKIP THE SUBSEQUENT C┆
0x11820…11840 4f 4c 4f 4e 32 25 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 50 ┆OLON2% PUSH B ;P┆
0x11840…11860 55 53 48 20 44 49 53 43 20 49 44 25 01 20 01 01 3b 01 0e 3b 47 45 54 20 46 49 4c 45 20 54 59 50 ┆USH DISC ID% ; ;GET FILE TYP┆
0x11860…11880 45 0e 01 3b 01 26 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 48 ┆E ; & INX H ;H┆
0x11880…118a0 4c 2d 3e 46 49 4c 45 20 54 59 50 45 26 25 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 2c 4d ┆L->FILE TYPE&% MOV B,M┆
0x118a0…118c0 20 20 20 20 20 20 3b 42 3a 3d 46 49 4c 45 20 54 59 50 45 25 2f 20 20 20 20 20 20 20 50 55 53 48 ┆ ;B:=FILE TYPE%/ PUSH┆
0x118c0…118e0 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 46 49 4c 45 20 54 59 50 45 20 49 4e 20 ┆ B ;PUSH FILE TYPE IN ┆
0x118e0…11900 4d 53 42 2e 2f 01 20 01 01 3b 01 1d 3b 4d 4f 56 45 20 4e 45 57 20 46 49 4c 45 20 4e 41 4d 45 20 ┆MSB./ ; ;MOVE NEW FILE NAME ┆
0x11900…11920 (8, 1, 10) 54 4f 20 4e 45 57 4e 41 4d 1d 01 3b 01 23 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 4e ┆TO NEWNAM ; # LXI B,N┆
0x11920…11940 45 57 4e 41 4d 20 3b 42 43 2d 3e 4e 45 57 4e 41 4d 23 2e 20 20 20 20 20 20 20 4c 48 4c 44 20 20 ┆EWNAM ;BC->NEWNAM#. LHLD ┆
0x11940…11960 20 20 4e 45 57 50 54 52 20 20 20 3b 48 4c 2d 3e 4e 45 57 4e 41 4d 45 20 50 41 52 41 4d 45 54 45 ┆ NEWPTR ;HL->NEWNAME PARAMETE┆
0x11960…11980 52 2e 2d 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 2c 4d 20 20 20 20 20 20 3b 44 3a 3d 4c ┆R.- MOV D,M ;D:=L┆
0x11980…119a0 45 4e 47 54 48 20 4f 46 20 4e 45 57 4e 41 4d 45 2d 32 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 ┆ENGTH OF NEWNAME-2 INX ┆
0x119a0…119c0 20 48 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 46 49 52 53 54 20 43 48 41 52 20 49 4e 20 4e 45 57 ┆ H ;HL->FIRST CHAR IN NEW┆
0x119c0…119e0 4e 41 4d 45 32 3e 4e 45 58 4e 45 57 3a 4d 4f 56 20 20 20 20 20 41 2c 4d 20 20 20 20 20 20 3b 41 ┆NAME2>NEXNEW:MOV A,M ;A┆
0x119e0…11a00 3a 3d 41 20 43 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 4e 45 57 4e 41 4d 45 20 50 41 52 41 4d ┆:=A CHARACTER FROM NEWNAME PARAM┆
0x11a00…11a20 (8, 1, 11) 45 54 45 52 3e 36 20 20 20 20 20 20 20 53 54 41 58 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 53 ┆ETER>6 STAX B ;S┆
0x11a20…11a40 54 4f 52 45 20 54 48 45 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 4e 45 57 4e 41 4d 36 21 20 20 ┆TORE THE CHARACTER IN NEWNAM6! ┆
0x11a40…11a60 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 50 4f 49 4e 54 20 54 4f 21 ┆ INX H ;POINT TO!┆
0x11a60…11a80 29 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 20 20 4e 45 58 54 ┆) INX B ; NEXT┆
0x11a80…11aa0 20 43 48 41 52 41 43 54 45 52 29 32 20 20 20 20 20 20 20 44 43 52 20 20 20 20 20 44 20 20 20 20 ┆ CHARACTER)2 DCR D ┆
0x11aa0…11ac0 20 20 20 20 3b 41 4e 59 20 4d 4f 52 45 20 43 48 41 52 41 43 54 45 52 53 20 4c 45 46 54 3f 32 29 ┆ ;ANY MORE CHARACTERS LEFT?2)┆
0x11ac0…11ae0 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 4e 45 58 4e 45 57 20 20 20 3b 59 45 53 2c 20 44 4f ┆ JNZ NEXNEW ;YES, DO┆
0x11ae0…11b00 20 49 54 20 41 47 41 49 4e 29 01 20 01 01 3b 01 31 3b 53 45 54 20 55 50 20 52 45 4d 41 49 4e 49 ┆ IT AGAIN) ; 1;SET UP REMAINI┆
0x11b00…11b20 (8, 1, 12) 4e 47 20 50 41 52 41 4d 45 54 45 52 53 20 46 4f 52 20 52 45 4e 41 4d 20 53 55 42 52 4f 55 54 49 ┆NG PARAMETERS FOR RENAM SUBROUTI┆
0x11b20…11b40 4e 45 31 01 3b 01 17 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 4e 45 57 4e 41 4d 17 31 ┆NE1 ; LXI B,NEWNAM 1┆
0x11b40…11b60 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 41 44 ┆ PUSH B ;PUSH AD┆
0x11b60…11b80 44 52 45 53 53 20 4f 46 20 4e 45 57 20 4e 41 4d 45 31 17 20 20 20 20 20 20 20 4c 58 49 20 20 20 ┆DRESS OF NEW NAME1 LXI ┆
0x11b80…11ba0 20 20 42 2c 4f 4c 44 4e 41 4d 17 35 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 20 20 20 20 ┆ B,OLDNAM 5 PUSH B ┆
0x11ba0…11bc0 20 20 20 20 3b 50 55 53 48 20 41 44 44 52 45 53 53 20 4f 46 20 43 55 52 52 45 4e 54 20 4e 41 4d ┆ ;PUSH ADDRESS OF CURRENT NAM┆
0x11bc0…11be0 45 35 15 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 44 43 42 41 44 52 15 2c 20 20 20 20 20 20 ┆E5 LHLD DCBADR , ┆
0x11be0…11c00 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 41 44 44 52 45 53 53 20 ┆ PUSH H ;PUSH ADDRESS ┆
0x11c00…11c20 (8, 1, 13) 4f 46 20 44 43 42 2c 21 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 30 20 20 20 20 20 20 ┆OF DCB,! MVI M,0 ┆
0x11c20…11c40 3b 49 4e 44 49 43 41 54 45 21 1f 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 44 4b 5d 42 ┆;INDICATE! LXI B,DKÅB┆
0x11c40…11c60 4e 20 20 3b 20 20 46 49 4c 45 1f 23 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 42 20 20 20 20 ┆N ; FILE # DAD B ┆
0x11c60…11c80 20 20 20 20 3b 20 20 20 20 43 4c 4f 53 45 44 23 12 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 ┆ ; CLOSED# MVI ┆
0x11c80…11ca0 4d 2c 30 12 01 20 01 01 3b 01 08 3b 52 45 4e 41 4d 45 21 08 01 3b 01 14 20 20 20 20 20 20 20 43 ┆M,0 ; ;RENAME! ; C┆
0x11ca0…11cc0 41 4c 4c 20 20 20 20 52 45 4e 41 4d 14 01 20 01 01 3b 01 0d 3b 53 45 54 20 49 4f 52 45 53 55 4c ┆ALL RENAM ; ;SET IORESUL┆
0x11cc0…11ce0 54 0d 01 3b 01 15 20 20 20 20 20 20 20 53 54 41 20 20 20 20 20 49 4f 52 53 4c 54 15 01 20 01 01 ┆T ; STA IORSLT ┆
0x11ce0…11d00 3b 01 1b 3b 52 45 4c 45 41 53 45 20 44 43 42 20 41 52 45 41 20 46 52 4f 4d 20 48 45 41 50 1b 01 ┆; ;RELEASE DCB AREA FROM HEAP ┆
0x11d00…11d20 (8, 1, 14) 3b 01 3a 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 44 43 42 41 44 52 20 20 3b 48 4c 2d 3e 54 ┆; : LHLD DCBADR ;HL->T┆
0x11d20…11d40 4f 50 20 4f 46 20 48 45 41 50 20 42 45 46 4f 52 45 20 52 45 53 45 52 56 41 54 49 4f 4e 3a 37 20 ┆OP OF HEAP BEFORE RESERVATION:7 ┆
0x11d40…11d60 20 20 20 20 20 20 53 48 4c 44 20 20 20 20 4e 50 20 20 20 20 20 20 3b 53 54 4f 52 45 20 49 54 20 ┆ SHLD NP ;STORE IT ┆
0x11d60…11d80 41 53 20 54 48 45 20 4e 45 57 20 54 4f 50 20 4f 46 20 48 45 41 50 37 07 20 20 20 20 20 20 20 07 ┆AS THE NEW TOP OF HEAP7 ┆
0x11d80…11da0 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 2c 3b 2a 2a ┆ RET SKIP ,;**┆
0x11da0…11dc0 2a 2a 2a 2a 2a 2a 2a 2a 20 4c 4f 43 41 4c 20 44 41 54 41 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆******** LOCAL DATA ************┆
0x11dc0…11de0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2c 01 20 01 3e 44 43 42 41 44 52 3a 44 53 20 20 20 20 20 20 32 20 20 ┆*********, >DCBADR:DS 2 ┆
0x11de0…11e00 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 20 44 41 54 41 20 43 4f 4e 54 52 4f 4c 20 42 4c ┆ ;ADDRESS OF DATA CONTROL BL┆
0x11e00…11e20 (8, 1, 15) 4f 43 4b 20 46 4f 52 20 46 49 4c 45 3e 29 4f 4c 44 4e 41 4d 3a 44 53 20 20 20 20 20 20 38 20 20 ┆OCK FOR FILE>)OLDNAM:DS 8 ┆
0x11e20…11e40 20 20 20 20 20 3b 43 55 52 52 45 4e 54 20 46 49 4c 45 20 4e 41 4d 45 29 25 4e 45 57 4e 41 4d 3a ┆ ;CURRENT FILE NAME)%NEWNAM:┆
0x11e40…11e60 44 53 20 20 20 20 20 20 38 20 20 20 20 20 20 20 3b 4e 45 57 20 46 49 4c 45 20 4e 41 4d 45 25 34 ┆DS 8 ;NEW FILE NAME%4┆
0x11e60…11e80 4f 4c 44 50 54 52 3a 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 ┆OLDPTR:DS 2 ;ADDRESS ┆
0x11e80…11ea0 4f 46 20 4f 4c 44 4e 41 4d 45 20 50 41 52 41 4d 45 54 45 52 34 34 4e 45 57 50 54 52 3a 44 53 20 ┆OF OLDNAME PARAMETER44NEWPTR:DS ┆
0x11ea0…11ec0 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 20 4e 45 57 4e 41 4d 45 ┆ 2 ;ADDRESS OF NEWNAME┆
0x11ec0…11ee0 20 50 41 52 41 4d 45 54 45 52 34 01 20 01 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 46 4a 4c 32 ┆ PARAMETER4 END FJL2┆
0x11ee0…11f00 20 20 20 02 51 00 08 0d 0d 04 4c 46 4a 4c 33 20 20 20 02 a1 00 08 0d 0d 04 4c 4f 4e 56 32 20 20 ┆ Q LFJL3 LONV2 ┆
0x11f00…11f20 (8, 1, 16) 20 02 5a 00 08 0d 0d 04 4c 4f 4e 56 33 20 20 20 02 78 00 08 0d 0d 04 4c 46 4a 4c 34 20 20 20 02 ┆ Z LONV3 x LFJL4 ┆
0x11f20…11f40 c4 00 08 0d 0d 04 4c 46 4a 4c 35 20 20 20 02 eb 00 08 0d 0d 04 4c 46 4a 4c 36 20 20 20 02 07 01 ┆ LFJL5 LFJL6 ┆
0x11f40…11f60 08 0d 0d 04 4c 46 4a 4c 37 20 20 20 02 1e 01 08 0d 0d 04 4c 46 4a 4c 38 20 20 20 02 53 01 08 0d ┆ LFJL7 LFJL8 S ┆
0x11f60…11f80 0d 04 4c 4f 4e 56 37 20 20 20 02 2b 01 08 0d 0d 04 4c 46 4a 4c 39 20 20 20 02 9c 01 08 0d 0d 04 ┆ LONV7 + LFJL9 ┆
0x11f80…11fa0 4c 4c 4c 45 4e 20 20 20 02 88 01 08 0d 0d 04 4c 46 4a 4c 41 20 20 20 02 ba 01 08 0d 0d 04 4c 46 ┆LLLEN LFJLA LF┆
0x11fa0…11fc0 4a 4c 42 20 20 20 02 d0 01 08 0d 0d 04 4c 46 4a 50 4c 20 20 20 02 ce 01 08 0d 0d 04 4c 31 32 46 ┆JLB LFJPL L12F┆
0x11fc0…11fe0 30 20 20 20 02 fb 01 08 0d 0d 04 55 44 52 45 47 20 20 20 02 49 02 08 0d 0d 04 4c 31 32 46 31 20 ┆0 UDREG I L12F1 ┆
0x11fe0…12000 20 20 02 28 02 08 0d 0d 04 4c 31 32 46 32 20 20 20 02 38 02 08 0d 0d 04 4f 52 47 46 4a 20 20 20 ┆ ( L12F2 8 ORGFJ ┆
0x12000…12020 (9, 0, 1) 02 8b 02 08 0d 0d 04 55 44 52 45 31 20 20 20 02 60 02 08 0d 0d 04 4c 46 4a 4c 43 20 20 20 02 cf ┆ UDRE1 ` LFJLC ┆
0x12020…12040 02 08 0d 0d 04 4c 4f 4f 56 4d 20 20 20 02 cf 02 08 0d 0d 04 4c 4f 4f 56 53 20 20 20 02 dd 02 08 ┆ LOOVM LOOVS ┆
0x12040…12060 0d 0d 04 4c 49 4e 44 48 20 20 20 02 f0 02 08 0d 0d 04 4c 4f 4f 56 46 20 20 20 02 12 03 08 0d 0d ┆ LINDH LOOVF ┆
0x12060…12080 04 4c 49 4e 44 41 20 20 20 02 0e 03 08 0d 0d 04 4c 4f 53 54 50 20 20 20 02 48 03 08 0d 0d 04 4c ┆ LINDA LOSTP H L┆
0x12080…120a0 53 54 50 46 20 20 20 02 68 03 08 0d 0d 04 4c 54 41 42 31 20 20 20 02 53 03 08 0d 0d 04 4c 4f 4c ┆STPF h LTAB1 S LOL┆
0x120a0…120c0 46 20 20 20 20 02 85 03 08 0d 0d 04 4c 54 41 42 32 20 20 20 02 75 03 08 0d 0d 04 4c 4f 52 31 20 ┆F LTAB2 u LOR1 ┆
0x120c0…120e0 20 20 20 02 88 03 08 0d 0d 04 4c 4f 58 20 20 20 20 20 02 a0 03 08 0d 0d 04 4c 4f 52 31 41 20 20 ┆ LOX LOR1A ┆
0x120e0…12100 20 02 9c 03 08 0d 0d 04 4c 4f 4f 56 20 20 20 20 02 b8 03 08 0d 0d 04 4c 4f 58 41 44 20 20 20 63 ┆ LOOV LOXAD c┆
0x12100…12120 (9, 0, 2) ExtentHdr {name=»WAITNG «, typ=»K«, seg=»A«, next=0x00, basis=0x000e, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,0f (0x012f00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x12120…12140 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x12140…12160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x12160…12180 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x12180…121a0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x121a0…121c0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x121c0…121e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x121e0…12200 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x12200…12220 (9, 0, 3) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x12220…12240 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x12240…12260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x12260…12280 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x12280…122a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x122a0…122c0 2a 2a 3e 3e 3b 2a 20 46 55 4e 43 54 49 4f 4e 20 4e 41 4d 45 3a 20 20 20 20 20 20 20 57 41 49 54 ┆**>>;* FUNCTION NAME: WAIT┆
0x122c0…122e0 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NG ┆
0x122e0…12300 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x12300…12320 (9, 0, 4) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x12320…12340 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x12340…12360 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x12360…12380 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x12380…123a0 53 43 52 49 50 54 49 4f 4e 3a 0e 3b 3b 20 54 48 49 53 20 46 55 4e 43 54 49 4f 4e 53 20 54 45 53 ┆SCRIPTION: ;; THIS FUNCTIONS TES┆
0x123a0…123c0 54 53 20 49 46 20 54 48 45 52 45 20 41 52 45 20 41 4e 59 20 4d 45 53 53 41 47 45 53 20 57 41 49 ┆TS IF THERE ARE ANY MESSAGES WAI┆
0x123c0…123e0 54 49 4e 47 20 4f 4e 3b 2c 3b 20 54 48 45 20 4d 41 49 4e 20 53 45 4d 41 50 48 4f 52 45 20 4f 46 ┆TING ON;,; THE MAIN SEMAPHORE OF┆
0x123e0…12400 20 54 48 45 20 43 41 4c 4c 49 4e 47 20 50 52 4f 43 45 53 53 2e 2c 3e 3b 20 50 4c 45 41 53 45 20 ┆ THE CALLING PROCESS.,>; PLEASE ┆
0x12400…12420 (9, 0, 5) 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 ┆REFER TO THE PASCAL STANDARD ASS┆
0x12420…12440 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e ┆EMBLER PACKAGE MANUAL> ; SECTION┆
0x12440…12460 20 34 2e 33 20 46 4f 52 20 44 45 54 41 49 4c 53 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 4.3 FOR DETAILS. ; >;---------┆
0x12460…12480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x12480…124a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f ┆-------------------->0; STACK CO┆
0x124a0…124c0 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 ┆NTENTS ON ENTRY: I ┆
0x124c0…124e0 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x124e0…12500 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 ┆ I---------------I00; ┆
0x12500…12520 (9, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 52 45 54 55 ┆ I RETU┆
0x12520…12540 52 4e 20 41 44 52 2e 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RN ADR. I00; ┆
0x12540…12560 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 ┆ I---------------I00; ┆
0x12560…12580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 44 ┆ I D┆
0x12580…125a0 55 4d 4d 59 20 45 4c 45 4d 45 4e 54 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UMMY ELEMENT I00; ┆
0x125a0…125c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 ┆ I---------------I┆
0x125c0…125e0 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆00; ┆
0x125e0…12600 20 49 20 44 55 4d 4d 59 20 45 4c 45 4d 45 4e 54 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ I DUMMY ELEMENT I00; ┆
0x12600…12620 (9, 0, 7) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I------------┆
0x12620…12640 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---I00; ┆
0x12640…12660 20 20 20 20 20 49 20 44 55 4d 4d 59 20 45 4c 45 4d 45 4e 54 20 49 30 30 3b 20 20 20 20 20 20 20 ┆ I DUMMY ELEMENT I00; ┆
0x12660…12680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d ┆ I--------┆
0x12680…126a0 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-------I00; ┆
0x126a0…126c0 20 20 20 20 20 20 20 20 20 49 20 44 55 4d 4d 59 20 45 4c 45 4d 45 4e 54 20 49 30 30 3b 20 20 20 ┆ I DUMMY ELEMENT I00; ┆
0x126c0…126e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d ┆ I----┆
0x126e0…12700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------I00; ┆
0x12700…12720 (9, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e ┆ I I0>┆
0x12720…12740 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆;-------------------------------┆
0x12740…12760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 ┆------------------------------>0┆
0x12760…12780 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 49 ┆; STACK CONTENTS ON EXIT: I┆
0x12780…127a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x127a0…127c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I--------------┆
0x127c0…127e0 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-I00; ┆
0x127e0…12800 20 20 20 49 20 54 52 55 45 20 2f 20 46 41 4c 53 45 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 ┆ I TRUE / FALSE I00; ┆
0x12800…12820 (9, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I----------┆
0x12820…12840 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----I00; ┆
0x12840…12860 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 3d 3d 3d 3d 3d ┆ I I0>;=====┆
0x12860…12880 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x12880…128a0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 0b 20 20 20 ┆========================> ┆
0x128a0…128c0 20 20 20 20 53 4b 49 50 0b 0b 20 20 20 20 20 20 20 53 59 4d 42 0b 01 20 01 08 57 41 49 54 4e 47 ┆ SKIP SYMB WAITNG┆
0x128c0…128e0 3a 3a 08 01 20 01 01 3b 01 12 3b 43 4c 45 41 4e 20 55 50 20 4f 4e 20 53 54 41 43 4b 12 01 3b 01 ┆:: ; ;CLEAN UP ON STACK ; ┆
0x128e0…12900 2a 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 42 43 3a 3d 52 45 54 ┆* POP B ;BC:=RET┆
0x12900…12920 (9, 0, 10) 55 52 4e 20 41 44 44 52 45 53 53 2a 1e 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 ┆URN ADDRESS* POP D ┆
0x12920…12940 20 20 20 20 3b 52 45 4d 4f 56 45 1e 1f 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 ┆ ;REMOVE POP D ┆
0x12940…12960 20 20 20 20 3b 20 20 44 55 4d 4d 59 1f 23 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 ┆ ; DUMMY # POP D ┆
0x12960…12980 20 20 20 20 20 3b 20 20 20 20 45 4c 45 4d 45 4e 54 23 28 20 20 20 20 20 20 20 50 4f 50 20 20 20 ┆ ; ELEMENT#( POP ┆
0x12980…129a0 20 20 44 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 46 52 4f 4d 20 53 54 41 43 4b 28 01 20 01 01 ┆ D ; FROM STACK( ┆
0x129a0…129c0 3b 01 22 3b 47 45 54 20 56 41 4c 55 45 20 46 49 45 4c 44 20 4f 46 20 4d 41 49 4e 20 53 45 4d 41 ┆; ";GET VALUE FIELD OF MAIN SEMA┆
0x129c0…129e0 50 48 4f 52 45 22 01 3b 01 32 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 52 55 4e 4e 20 20 20 ┆PHORE" ; 2 LHLD RUNN ┆
0x129e0…12a00 20 3b 48 4c 2d 3e 50 43 42 20 4f 46 20 43 41 4c 4c 49 4e 47 20 50 52 4f 43 45 53 53 32 16 20 20 ┆ ;HL->PCB OF CALLING PROCESS2 ┆
0x12a00…12a20 (9, 0, 11) 20 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 4b 4f 53 45 4d 16 35 20 20 20 20 20 20 20 44 41 44 ┆ LXI D,KOSEM 5 DAD┆
0x12a20…12a40 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 48 4c 2d 3e 41 44 44 52 45 53 53 20 4f 46 20 4d 41 49 ┆ D ;HL->ADDRESS OF MAI┆
0x12a40…12a60 4e 20 53 45 4d 41 50 48 4f 52 45 35 1c 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 45 2c 4d 20 ┆N SEMAPHORE5 MOV E,M ┆
0x12a60…12a80 20 20 20 20 3b 44 45 2d 3e 1c 20 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 20 20 20 20 20 ┆ ;DE-> INX H ┆
0x12a80…12aa0 20 20 3b 20 20 20 20 4d 41 49 4e 20 28 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 2c 4d 20 ┆ ; MAIN ( MOV D,M ┆
0x12aa0…12ac0 20 20 20 20 3b 20 20 20 20 20 20 20 53 45 4d 41 50 48 4f 52 45 28 33 20 20 20 20 20 20 20 4c 44 ┆ ; SEMAPHORE(3 LD┆
0x12ac0…12ae0 41 58 20 20 20 20 44 20 20 20 20 20 20 20 3b 41 3a 3d 56 41 4c 55 45 20 46 49 45 4c 44 20 4f 46 ┆AX D ;A:=VALUE FIELD OF┆
0x12ae0…12b00 20 53 45 4d 41 50 48 4f 52 45 33 2b 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 31 20 20 20 20 ┆ SEMAPHORE3+ CPI 1 ┆
0x12b00…12b20 (9, 0, 12) 20 20 20 3b 41 4e 59 20 4d 45 53 53 41 47 45 20 57 41 49 54 49 4e 47 2b 1b 20 20 20 20 20 20 20 ┆ ;ANY MESSAGE WAITING+ ┆
0x12b20…12b40 4a 5a 20 20 20 20 20 20 4f 4b 20 20 20 20 20 20 3b 59 45 53 1b 01 20 01 01 3b 01 28 3b 4e 4f 20 ┆JZ OK ;YES ; (;NO ┆
0x12b40…12b60 4d 45 53 53 41 47 45 20 57 41 49 54 49 4e 47 2c 20 52 45 54 55 52 4e 20 56 41 4c 55 45 3a 3d 46 ┆MESSAGE WAITING, RETURN VALUE:=F┆
0x12b60…12b80 41 4c 53 45 28 01 3b 01 21 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 30 20 20 20 20 20 ┆ALSE( ; ! LXI D,0 ┆
0x12b80…12ba0 3b 44 45 3a 3d 46 41 4c 53 45 21 2a 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 ┆;DE:=FALSE!* PUSH D ┆
0x12ba0…12bc0 20 20 20 3b 53 54 41 43 4b 20 52 45 54 55 52 4e 20 56 41 4c 55 45 2a 2e 20 20 20 20 20 20 20 50 ┆ ;STACK RETURN VALUE*. P┆
0x12bc0…12be0 55 53 48 20 20 20 20 42 20 20 20 20 20 20 20 3b 52 45 53 54 4f 52 45 20 52 45 54 55 52 4e 20 41 ┆USH B ;RESTORE RETURN A┆
0x12be0…12c00 44 44 52 45 53 53 2e 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 01 3b 01 24 3b 4d 45 53 53 41 ┆DDRESS. RET ; $;MESSA┆
0x12c00…12c20 (9, 0, 13) 47 45 20 57 41 49 54 49 4e 47 2c 20 52 45 54 55 52 4e 20 56 41 4c 55 45 3a 3d 54 52 55 45 24 01 ┆GE WAITING, RETURN VALUE:=TRUE$ ┆
0x12c20…12c40 3b 01 20 4f 4b 3a 20 20 20 20 4c 58 49 20 20 20 20 20 44 2c 31 20 20 20 20 20 3b 44 45 3a 3d 54 ┆; OK: LXI D,1 ;DE:=T┆
0x12c40…12c60 52 55 45 20 2a 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 20 20 20 20 20 20 20 3b 53 54 41 ┆RUE * PUSH D ;STA┆
0x12c60…12c80 43 4b 20 52 45 54 55 52 4e 20 56 41 4c 55 45 2a 2e 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 ┆CK RETURN VALUE*. PUSH ┆
0x12c80…12ca0 42 20 20 20 20 20 20 20 3b 52 45 53 54 4f 52 45 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 2e ┆B ;RESTORE RETURN ADDRESS.┆
0x12ca0…12cc0 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 0a 20 20 20 20 20 20 20 45 4e 44 0a 00 00 eb 22 b6 ┆ RET END " ┆
0x12cc0…12ce0 69 eb 21 b8 69 06 08 cd 73 00 c3 1a 67 21 c1 42 11 b8 69 0e 08 06 28 7e fe 20 ca 13 67 fe 3a c2 ┆i ! i s g! B i (ü g : ┆
0x12ce0…12d00 f0 66 23 05 5e 23 05 56 eb 22 c0 69 eb c3 ff 66 fe 2c ca 11 67 12 23 13 05 0d c2 d7 66 2b 04 23 ┆ f# ^# V " i f , g # f+ #┆
0x12d00…12d20 (9, 0, 14) 05 7e fe 20 ca 13 67 fe 3a ca e2 66 fe 2c c2 ff 66 23 05 eb 21 c1 42 cd 73 00 21 00 00 7c b5 2b ┆ ü g : f , f# ! B s ! ø +┆
0x12d20…12d40 c2 31 67 21 fe 03 11 00 fc 19 7e 2f 77 be c2 26 67 f9 21 fe ff 39 22 f9 42 3e 00 cd d4 67 21 56 ┆ 1g! ü/w &g ! 9" B> g!V┆
0x12d40…12d60 41 cd cb 67 21 a6 41 36 00 21 a8 41 cd cb 67 21 35 42 cd cb 67 2a f9 42 2b 46 2b 4e 7d 91 6f 7c ┆A g! A6 ! A g!5B g* B+F+Nå oø┆
0x12d60…12d80 98 67 22 f7 42 2b 46 2b 4e 7d 91 6f 7c 98 67 22 4e 41 2a f7 42 01 f8 ff 09 4e 23 46 97 91 6f 3e ┆ g" B+F+Nå oø g"NA* B N#F o>┆
0x12d80…12da0 00 98 67 39 f9 e5 2a aa 69 5e 23 56 21 06 00 19 36 00 e3 11 32 04 d5 11 c1 42 d5 11 35 42 d5 11 ┆ g9 * i^#V! 6 2 B 5B ┆
0x12da0…12dc0 a8 41 d5 11 56 41 d5 e5 21 fc ff 39 e5 21 d6 00 e5 e5 21 fc ff 39 e5 e5 22 f5 42 22 f3 42 01 0a ┆ A VA ! 9 ! ! 9 " B" B ┆
0x12dc0…12de0 00 09 22 4a 41 22 4c 41 c3 fb 42 36 00 23 36 01 23 36 20 c9 e1 22 50 41 f5 2a 48 41 eb 21 a8 fc ┆ "JA"LA B6 #6 #6 "PA *HA ! ┆
0x12de0…12e00 39 7d 93 7c 9a 1e 4b da 2e 43 21 03 00 e5 2a c0 69 7d fe 50 ca fa 67 21 20 20 e5 21 00 00 e5 e5 ┆9å ø K .C! * iå P g! ! ┆
0x12e00…12e20 (9, 0, 15) 3e 50 f5 21 b8 69 e5 2a 48 41 e5 cd 74 6a a7 c4 76 69 2a 48 41 11 50 00 19 f1 87 87 5f 16 00 19 ┆>P ! i *HA tj vi*HA P _ ┆
0x12e20…12e40 46 23 4e 23 56 23 5e d5 2a 48 41 19 eb 21 28 fc 39 7d 93 7c 9a d2 44 68 2a 48 41 e5 cd f1 00 1e ┆F#N#V#^ *HA !( 9å ø Dh*HA ┆
0x12e40…12e60 4b c3 2e 43 60 69 23 29 29 eb 2a 48 41 01 0a 00 09 7e a7 c2 a2 68 13 21 08 00 cd 4f 00 29 29 29 ┆K .C`i#)) *HA ü h ! O )))┆
0x12e60…12e80 29 29 e5 7b b2 ca 94 68 2a 48 41 01 2a 00 09 4e 23 46 23 7e 2a 48 41 eb cd fd 00 2a 48 41 11 13 ┆)) æ h*HA * N#F#ü*HA *HA ┆
0x12e80…12ea0 00 19 cd 1e 01 23 36 01 3e 01 2a 48 41 cd 00 01 a7 c4 76 69 2a 48 41 11 1e 00 19 d1 73 23 72 c3 ┆ #6 > *HA vi*HA s#r ┆
0x12ea0…12ec0 0d 69 2a 48 41 01 0b 00 09 7e 23 66 6f 29 29 29 2b cd 4f 00 e5 7a b3 ca e6 68 d5 2a 48 41 eb cd ┆ i*HA ü#fo)))+ O z h *HA ┆
0x12ec0…12ee0 e8 00 3e 01 2a 48 41 cd 00 01 a7 c4 76 69 2a 48 41 11 3d 00 19 eb 21 d0 ff 19 06 03 cd 73 00 d1 ┆ > *HA vi*HA = ! s ┆
0x12ee0…12f00 1b 7a b3 c2 ba 68 d1 7a b3 ca 16 69 2a 48 41 01 22 00 09 36 20 d5 21 c4 ff 39 e5 2a 48 41 e5 63 ┆ z h z i*HA " 6 ! 9 *HA c┆
0x12f00…12f20 (9, 0, 16) ExtentHdr {name=»RELEAS «, typ=»K«, seg=»A«, next=0x00, basis=0x000e, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0013,0d (0x013d00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x12f20…12f40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x12f40…12f60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x12f60…12f80 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x12f80…12fa0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x12fa0…12fc0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x12fc0…12fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x12fe0…13000 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x13000…13020 (9, 1, 1) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x13020…13040 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x13040…13060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x13060…13080 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x13080…130a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x130a0…130c0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 52 45 4c 45 ┆**>>;* PROCEDURE NAME: RELE┆
0x130c0…130e0 41 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AS ┆
0x130e0…13100 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x13100…13120 (9, 1, 2) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x13120…13140 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x13140…13160 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x13160…13180 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x13180…131a0 53 43 52 49 50 54 49 4f 4e 3a 0e 38 3b 20 54 48 49 53 20 50 52 4f 43 45 44 55 52 45 20 49 53 20 ┆SCRIPTION: 8; THIS PROCEDURE IS ┆
0x131a0…131c0 55 53 45 44 20 54 4f 20 52 45 4c 45 41 53 45 20 41 20 53 59 4d 42 4f 4c 49 43 20 52 45 53 4f 55 ┆USED TO RELEASE A SYMBOLIC RESOU┆
0x131c0…131e0 52 43 45 2e 38 3e 3b 20 50 4c 45 41 53 45 20 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 ┆RCE.8>; PLEASE REFER TO THE PASC┆
0x131e0…13200 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 ┆AL STANDARD ASSEMBLER PACKAGE MA┆
0x13200…13220 (9, 1, 3) 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e 20 37 2e 32 20 46 4f 52 20 44 45 54 41 49 4c 53 2e ┆NUAL> ; SECTION 7.2 FOR DETAILS.┆
0x13220…13240 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; >;--------------------------┆
0x13240…13260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x13260…13280 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 ┆--->0; STACK CONTENTS ON ENTRY: ┆
0x13280…132a0 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 ┆ I I00; ┆
0x132a0…132c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I---------┆
0x132c0…132e0 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆------I00; ┆
0x132e0…13300 20 20 20 20 20 20 20 20 49 20 52 45 54 55 52 4e 20 41 44 52 2e 20 20 20 49 30 30 3b 20 20 20 20 ┆ I RETURN ADR. I00; ┆
0x13300…13320 (9, 1, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d ┆ I-----┆
0x13320…13340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆----------I00; ┆
0x13340…13360 20 20 20 20 20 20 20 20 20 20 20 20 49 20 2d 3e 20 53 54 41 54 55 53 20 20 20 20 20 49 30 30 3b ┆ I -> STATUS I00;┆
0x13360…13380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d ┆ I-┆
0x13380…133a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--------------I00; ┆
0x133a0…133c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 2d 3e 20 52 45 53 4f 55 52 43 45 20 20 20 ┆ I -> RESOURCE ┆
0x133c0…133e0 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆I00; ┆
0x133e0…13400 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 ┆ I---------------I00; ┆
0x13400…13420 (9, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 ┆ I ┆
0x13420…13440 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I0>;------------------------┆
0x13440…13460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x13460…13480 2d 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a ┆----->$; STACK CONTENTS ON EXIT:┆
0x13480…134a0 20 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ EMPTY$>;==================┆
0x134a0…134c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x134c0…134e0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 08 52 45 4c ┆===========> SKIP REL┆
0x134e0…13500 45 41 53 3a 3a 08 01 20 01 01 3b 01 3a 3b 47 45 54 20 50 41 52 41 4d 45 54 45 52 53 20 46 52 4f ┆EAS:: ; :;GET PARAMETERS FRO┆
0x13500…13520 (9, 1, 6) 4d 20 50 41 53 43 41 4c 20 41 4e 44 20 42 55 49 4c 44 20 50 41 52 41 4d 45 54 45 52 53 20 46 4f ┆M PASCAL AND BUILD PARAMETERS FO┆
0x13520…13540 52 20 52 45 4c 53 45 3a 01 3b 01 29 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 20 ┆R RELSE: ; ) POP D ┆
0x13540…13560 20 20 20 3b 44 45 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 22 20 20 20 20 20 20 20 50 4f ┆ ;DE=RETURN ADDRESS)" PO┆
0x13560…13580 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 53 54 41 54 55 53 22 2e 20 20 20 20 20 ┆P H ;HL->STATUS". ┆
0x13580…135a0 20 20 53 48 4c 44 20 20 20 20 53 54 41 44 52 20 20 20 3b 53 41 56 45 20 41 44 44 52 45 53 53 20 ┆ SHLD STADR ;SAVE ADDRESS ┆
0x135a0…135c0 4f 46 20 53 54 41 54 55 53 2e 27 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 ┆OF STATUS.' POP H ┆
0x135c0…135e0 20 20 3b 48 4c 2d 3e 52 45 53 4f 55 52 43 45 28 30 29 27 33 20 20 20 20 20 20 20 50 55 53 48 20 ┆ ;HL->RESOURCE(0)'3 PUSH ┆
0x135e0…13600 20 20 20 44 20 20 20 20 20 20 20 3b 50 55 54 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 20 4f ┆ D ;PUT RETURN ADDRESS O┆
0x13600…13620 (9, 1, 7) 4e 20 53 54 41 43 4b 33 3a 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 20 ┆N STACK3: PUSH H ┆
0x13620…13640 3b 53 41 56 45 20 41 44 44 52 45 53 53 20 4f 46 20 52 45 53 4f 55 52 43 45 20 50 41 52 41 4d 45 ┆;SAVE ADDRESS OF RESOURCE PARAME┆
0x13640…13660 54 45 52 3a 01 20 01 01 3b 01 0d 3b 42 4c 41 4e 4b 20 52 45 53 4f 55 52 0d 01 3b 01 39 20 20 20 ┆TER: ; ;BLANK RESOUR ; 9 ┆
0x13660…13680 20 20 20 20 4d 56 49 20 20 20 20 20 41 2c 23 31 30 20 20 20 20 3b 41 3a 3d 4c 45 4e 47 54 48 20 ┆ MVI A,#10 ;A:=LENGTH ┆
0x13680…136a0 4f 46 20 46 49 45 4c 44 20 54 4f 20 42 45 20 42 4c 41 4e 4b 45 44 39 30 20 20 20 20 20 20 20 4c ┆OF FIELD TO BE BLANKED90 L┆
0x136a0…136c0 58 49 20 20 20 20 20 48 2c 52 45 53 4f 55 52 20 3b 48 4c 2d 3e 46 49 45 4c 44 20 54 4f 20 42 45 ┆XI H,RESOUR ;HL->FIELD TO BE┆
0x136c0…136e0 20 42 4c 41 4e 4b 45 44 30 22 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 45 30 4c 49 4e 20 20 ┆ BLANKED0" CALL E0LIN ┆
0x136e0…13700 20 20 3b 42 4c 41 4e 4b 20 49 54 21 22 01 20 01 01 3b 01 22 3b 4d 4f 56 45 20 52 45 53 4f 55 52 ┆ ;BLANK IT!" ; ";MOVE RESOUR┆
0x13700…13720 (9, 1, 8) 43 45 20 50 41 52 41 4d 45 54 45 52 20 54 4f 20 52 45 53 4f 55 52 22 01 3b 01 3b 20 20 20 20 20 ┆CE PARAMETER TO RESOUR" ; ; ┆
0x13720…13740 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 52 45 53 4f 55 52 43 45 ┆ POP H ;HL->RESOURCE┆
0x13740…13760 28 30 29 20 49 2e 45 2e 20 54 48 45 20 4c 45 4e 47 54 48 20 4f 46 3b 3e 20 20 20 20 20 20 20 20 ┆(0) I.E. THE LENGTH OF;> ┆
0x13760…13780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x13780…137a0 20 20 20 54 48 45 20 52 45 53 4f 55 52 43 45 20 53 54 52 49 4e 47 3e 37 20 20 20 20 20 20 20 4d ┆ THE RESOURCE STRING>7 M┆
0x137a0…137c0 4f 56 20 20 20 20 20 42 2c 4d 20 20 20 20 20 20 3b 42 3d 4c 45 4e 47 54 48 20 4f 46 20 53 54 52 ┆OV B,M ;B=LENGTH OF STR┆
0x137c0…137e0 49 4e 47 20 54 4f 20 42 45 20 4d 4f 56 45 44 37 28 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 ┆ING TO BE MOVED7( INX ┆
0x137e0…13800 48 20 20 20 20 20 20 20 20 3b 48 4c 2d 3e 52 45 53 4f 55 52 43 45 28 31 29 28 2f 20 20 20 20 20 ┆H ;HL->RESOURCE(1)(/ ┆
0x13800…13820 (9, 1, 9) 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 45 2d 3e 52 45 53 4f 55 52 43 45 ┆ XCHG ;DE->RESOURCE┆
0x13820…13840 20 50 41 52 41 4d 45 54 45 52 2f 2f 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 52 45 53 ┆ PARAMETER// LXI H,RES┆
0x13840…13860 4f 55 52 20 3b 48 4c 2d 3e 44 45 53 54 49 4e 41 54 49 4f 4e 20 53 54 52 49 4e 47 2f 21 20 20 20 ┆OUR ;HL->DESTINATION STRING/! ┆
0x13860…13880 20 20 20 20 43 41 4c 4c 20 20 20 20 4d 4f 56 45 20 20 20 20 20 3b 4d 4f 56 45 20 49 54 21 21 01 ┆ CALL MOVE ;MOVE IT!! ┆
0x13880…138a0 20 01 01 3b 01 31 3b 47 45 54 20 54 48 45 20 4c 41 53 54 20 54 57 4f 20 43 48 41 52 41 43 54 45 ┆ ; 1;GET THE LAST TWO CHARACTE┆
0x138a0…138c0 52 53 20 4f 46 20 54 48 45 20 52 45 53 4f 55 52 43 45 20 4e 41 4d 45 31 01 3b 01 3c 20 20 20 20 ┆RS OF THE RESOURCE NAME1 ; < ┆
0x138c0…138e0 20 20 20 4c 48 4c 44 20 20 20 20 52 45 53 4f 55 52 2b 38 20 3b 48 4c 3a 3d 4c 41 53 54 20 54 57 ┆ LHLD RESOUR+8 ;HL:=LAST TW┆
0x138e0…13900 4f 20 43 48 41 52 41 43 54 45 52 53 20 4f 46 20 52 45 53 4f 55 52 43 45 3c 3d 20 20 20 20 20 20 ┆O CHARACTERS OF RESOURCE<= ┆
0x13900…13920 (9, 1, 10) 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 4c 41 53 54 20 54 57 4f ┆ PUSH H ;PUSH LAST TWO┆
0x13920…13940 20 43 48 41 52 41 43 54 45 52 53 20 4f 46 20 52 45 53 4f 55 52 43 45 3d 23 20 20 20 20 20 20 20 ┆ CHARACTERS OF RESOURCE=# ┆
0x13940…13960 4c 58 49 20 20 20 20 20 48 2c 52 45 53 4f 55 52 20 3b 48 4c 2d 3e 52 45 53 4f 55 52 23 31 20 20 ┆LXI H,RESOUR ;HL->RESOUR#1 ┆
0x13960…13980 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 20 20 3b 50 55 53 48 20 41 44 44 52 ┆ PUSH H ;PUSH ADDR┆
0x13980…139a0 45 53 53 20 4f 46 20 52 45 53 4f 55 52 43 45 31 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 ┆ESS OF RESOURCE1 CALL ┆
0x139a0…139c0 52 45 4c 53 45 14 01 20 01 01 3b 01 38 3b 55 50 4f 4e 20 52 45 54 55 52 4e 20 46 52 4f 4d 20 52 ┆RELSE ; 8;UPON RETURN FROM R┆
0x139c0…139e0 45 4c 53 45 20 52 45 47 49 53 54 45 52 20 41 20 43 4f 4e 54 41 49 4e 53 20 53 54 41 54 55 53 20 ┆ELSE REGISTER A CONTAINS STATUS ┆
0x139e0…13a00 56 41 4c 55 45 38 01 3b 01 22 20 20 20 20 20 20 20 4c 48 4c 44 20 20 20 20 53 54 41 44 52 20 20 ┆VALUE8 ; " LHLD STADR ┆
0x13a00…13a20 (9, 1, 11) 20 3b 48 4c 2d 3e 53 54 41 54 55 53 22 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 ┆ ;HL->STATUS" MOV M,A┆
0x13a20…13a40 12 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 48 10 2a 20 20 20 20 20 20 20 4d 56 49 20 20 ┆ INX H * MVI ┆
0x13a40…13a60 20 20 20 4d 2c 30 20 20 20 20 20 3b 53 54 4f 52 45 20 53 54 41 54 55 53 20 56 41 4c 55 45 2a 01 ┆ M,0 ;STORE STATUS VALUE* ┆
0x13a60…13a80 20 01 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 1c 3b ┆ RET SKIP ;┆
0x13a80…13aa0 2a 2a 2a 2a 2a 2a 2a 20 4c 4f 43 41 4c 20 44 41 54 41 20 2a 2a 2a 2a 2a 2a 2a 2a 1c 29 53 54 41 ┆******* LOCAL DATA ******** )STA┆
0x13aa0…13ac0 44 52 3a 20 44 53 20 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 41 44 44 52 45 53 53 20 4f 46 20 ┆DR: DS 2 ;ADDRESS OF ┆
0x13ac0…13ae0 53 54 41 54 55 53 29 25 52 45 53 4f 55 52 3a 44 53 20 20 20 20 20 20 23 31 30 20 20 20 20 20 3b ┆STATUS)%RESOUR:DS #10 ;┆
0x13ae0…13b00 52 45 53 4f 55 52 43 45 20 4e 41 4d 45 25 07 20 20 20 20 20 20 20 07 0a 20 20 20 20 20 20 20 45 ┆RESOURCE NAME% E┆
0x13b00…13b20 (9, 1, 12) 4e 44 0a 00 00 0d 05 4c 4f 4d 41 58 20 20 20 26 00 01 08 0d 0d 05 4c 54 45 53 54 20 20 20 27 00 ┆ND LOMAX & LTEST ' ┆
0x13b20…13b40 01 08 0d 0d 05 49 4e 56 42 20 20 20 20 28 00 01 08 0d 0d 05 4c 4f 45 4e 44 20 20 20 29 00 01 08 ┆ INVB ( LOEND ) ┆
0x13b40…13b60 0d 0d 04 4c 53 5c 47 41 20 20 20 02 bc 01 08 0d 0d 04 4c 53 5c 47 44 20 20 20 02 17 02 08 0d 0d ┆ LSØGA LSØGD ┆
0x13b60…13b80 05 4c 4f 54 41 42 20 20 20 2a 00 02 08 0d 0d 04 4c 53 5c 47 52 20 20 20 02 4a 02 08 0d 0d 05 4c ┆ LOTAB * LSØGR J L┆
0x13b80…13ba0 4f 4f 46 46 20 20 20 2b 00 02 08 0d 0d 05 4c 4f 52 45 46 20 20 20 2c 00 02 08 0d 0d 05 55 44 52 ┆OOFF + LOREF , UDR┆
0x13ba0…13bc0 45 31 20 20 20 2d 00 02 08 0d 0d 05 55 44 52 45 47 20 20 20 2e 00 02 08 0d 0d 05 4c 46 45 4a 4c ┆E1 - UDREG . LFEJL┆
0x13bc0…13be0 20 20 20 2f 00 02 08 0d 0d 05 4c 4f 58 50 4c 20 20 20 30 00 02 08 0d 0d 05 4c 58 54 59 50 20 20 ┆ / LOXPL 0 LXTYP ┆
0x13be0…13c00 20 31 00 02 08 0d 0d 05 4f 50 45 4e 20 20 20 20 32 00 02 08 0d 0d 04 58 53 4b 52 56 20 20 20 02 ┆ 1 OPEN 2 XSKRV ┆
0x13c00…13c20 (9, 1, 13) b1 02 08 0d 0d 05 57 52 49 54 45 20 20 20 33 00 02 08 0d 02 08 fe 02 05 0c 01 00 00 00 05 03 08 ┆ WRITE 3 ┆
0x13c20…13c40 c8 3a 03 05 0b 02 00 00 00 05 04 08 fe 2a ca 04 04 0a 02 0d 00 04 04 08 19 c9 2a 04 05 0b 03 00 ┆ : * * ┆
0x13c40…13c60 01 00 05 04 08 19 eb 2a 04 05 0b 04 00 01 00 05 07 08 19 c9 01 00 00 fe 07 05 0c 01 00 00 00 05 ┆ * ┆
0x13c60…13c80 02 08 ca 02 04 0a 02 31 00 04 02 08 01 02 05 0b 05 00 00 00 05 02 08 fe 02 05 0c 06 00 00 00 05 ┆ 1 ┆
0x13c80…13ca0 02 08 ca 02 04 0a 02 2a 00 04 02 08 01 02 05 0b 07 00 00 00 05 02 08 2a 02 05 0b 08 00 00 00 05 ┆ * * ┆
0x13ca0…13cc0 0b 08 09 4e 23 46 eb 09 c9 f5 e5 2a 0b 05 0b 09 00 00 00 05 02 08 22 02 05 0b 0a 00 00 00 05 03 ┆ N#F * " ┆
0x13cc0…13ce0 08 eb 2a 03 05 0b 0b 00 00 00 05 06 08 73 23 72 e1 22 06 05 0b 09 00 00 00 05 02 08 21 02 05 0b ┆ * s#r " ! ┆
0x13ce0…13d00 0c 00 00 00 05 06 08 f1 47 e6 03 fe 06 05 0c 06 00 00 00 05 02 08 ca 02 04 0a 02 56 00 04 02 63 ┆ G V c┆
0x13d00…13d20 (9, 1, 14) ExtentHdr {name=»WRIBAK «, typ=»K«, seg=»A«, next=0x00, basis=0x000e, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0014,0b (0x014b00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x13d20…13d40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x13d40…13d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x13d60…13d80 3e 3b 2a 20 20 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 45 ┆>;* PASCAL STANDARD ASSE┆
0x13d80…13da0 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆MBLER PACKAGE. *>┆
0x13da0…13dc0 3e 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>;* ┆
0x13dc0…13de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆ *>┆
0x13de0…13e00 3e 3b 2a 20 28 43 29 20 31 39 38 30 20 44 41 4e 53 4b 20 44 41 54 41 20 45 4c 45 4b 54 52 4f 4e ┆>;* (C) 1980 DANSK DATA ELEKTRON┆
0x13e00…13e20 (9, 1, 15) 49 4b 20 41 50 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e ┆IK APS. *>┆
0x13e20…13e40 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆>;******************************┆
0x13e40…13e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e ┆*******************************>┆
0x13e60…13e80 01 3b 01 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; >;***************************┆
0x13e80…13ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x13ea0…13ec0 2a 2a 3e 3e 3b 2a 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 57 52 49 42 ┆**>>;* PROCEDURE NAME: WRIB┆
0x13ec0…13ee0 41 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AK ┆
0x13ee0…13f00 20 2a 3e 3e 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *>>;***************************┆
0x13f00…13f20 (9, 1, 16) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x13f20…13f40 2a 2a 3e 01 3b 01 10 3b 20 43 54 20 30 37 2d 4d 41 59 2d 31 39 38 30 10 01 3b 01 3e 3b 3d 3d 3d ┆**> ; ; CT 07-MAY-1980 ; >;===┆
0x13f40…13f60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x13f60…13f80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 0e 3b 20 44 45 ┆==========================> ; DE┆
0x13f80…13fa0 53 43 52 49 50 54 49 4f 4e 3a 0e 3b 3b 20 54 48 49 53 20 50 55 52 43 45 44 55 52 45 20 49 53 20 ┆SCRIPTION: ;; THIS PURCEDURE IS ┆
0x13fa0…13fc0 55 53 45 44 20 54 4f 20 57 52 49 54 45 20 41 20 53 45 51 55 45 4e 54 49 41 4c 20 4d 49 4b 41 44 ┆USED TO WRITE A SEQUENTIAL MIKAD┆
0x13fc0…13fe0 4f 53 20 46 49 4c 45 3b 0c 3b 20 42 41 43 4b 57 41 52 44 53 2e 0c 3e 3b 20 50 4c 45 41 53 45 20 ┆OS FILE; ; BACKWARDS. >; PLEASE ┆
0x13fe0…14000 52 45 46 45 52 20 54 4f 20 54 48 45 20 50 41 53 43 41 4c 20 53 54 41 4e 44 41 52 44 20 41 53 53 ┆REFER TO THE PASCAL STANDARD ASS┆
0x14000…14020 (10, 0, 1) 45 4d 42 4c 45 52 20 50 41 43 4b 41 47 45 20 4d 41 4e 55 41 4c 3e 1a 3b 20 53 45 43 54 49 4f 4e ┆EMBLER PACKAGE MANUAL> ; SECTION┆
0x14020…14040 20 38 2e 33 20 46 4f 52 20 44 45 54 41 49 4c 53 2e 1a 01 3b 01 3e 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 8.3 FOR DETAILS. ; >;---------┆
0x14040…14060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14060…14080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 30 3b 20 53 54 41 43 4b 20 43 4f ┆-------------------->0; STACK CO┆
0x14080…140a0 4e 54 45 4e 54 53 20 4f 4e 20 45 4e 54 52 59 3a 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 ┆NTENTS ON ENTRY: I ┆
0x140a0…140c0 20 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I00; ┆
0x140c0…140e0 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 20 20 20 20 ┆ I---------------I00; ┆
0x140e0…14100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 52 45 54 55 ┆ I RETU┆
0x14100…14120 (10, 0, 2) 52 4e 20 41 44 52 2e 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RN ADR. I00; ┆
0x14120…14140 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 30 30 3b 20 ┆ I---------------I00; ┆
0x14140…14160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 ┆ I ┆
0x14160…14180 2d 3e 20 43 4f 4e 54 45 4e 54 53 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-> CONTENTS I00; ┆
0x14180…141a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 ┆ I---------------I┆
0x141a0…141c0 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆00; ┆
0x141c0…141e0 20 49 20 20 2d 3e 20 46 49 4c 45 49 44 20 20 20 20 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ I -> FILEID I00; ┆
0x141e0…14200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I------------┆
0x14200…14220 (10, 0, 3) 2d 2d 2d 49 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---I00; ┆
0x14220…14240 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 30 3e 3b 2d 2d 2d 2d 2d 2d 2d ┆ I I0>;-------┆
0x14240…14260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14260…14280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 24 3b 20 53 54 41 43 4b 20 ┆---------------------->$; STACK ┆
0x14280…142a0 43 4f 4e 54 45 4e 54 53 20 4f 4e 20 45 58 49 54 3a 20 20 20 20 20 20 45 4d 50 54 59 24 3e 3b 3d ┆CONTENTS ON EXIT: EMPTY$>;=┆
0x142a0…142c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x142c0…142e0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3e 01 20 01 ┆============================> ┆
0x142e0…14300 0b 20 20 20 20 20 20 20 53 4b 49 50 0b 0b 20 20 20 20 20 20 20 53 59 4d 42 0b 01 20 01 39 4f 46 ┆ SKIP SYMB 9OF┆
0x14300…14320 (10, 0, 4) 46 53 45 54 3a 45 51 55 20 20 20 20 20 38 43 20 20 20 20 20 20 3b 54 48 49 53 20 49 53 20 54 48 ┆FSET:EQU 8C ;THIS IS TH┆
0x14320…14340 45 20 4f 46 46 53 45 54 20 46 52 4f 4d 20 46 49 4c 45 49 44 20 54 4f 39 31 20 20 20 20 20 20 20 ┆E OFFSET FROM FILEID TO91 ┆
0x14340…14360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 54 48 45 20 44 41 54 41 20 43 4f 4e ┆ ; THE DATA CON┆
0x14360…14380 54 52 4f 4c 20 42 4c 4f 43 4b 31 01 20 01 08 57 52 49 42 41 4b 3a 3a 08 01 20 01 01 3b 01 3b 3b ┆TROL BLOCK1 WRIBAK:: ; ;;┆
0x14380…143a0 27 53 48 55 46 46 4c 45 27 20 54 48 45 20 53 54 41 43 4b 20 53 4f 20 54 48 41 54 20 49 54 20 4d ┆'SHUFFLE' THE STACK SO THAT IT M┆
0x143a0…143c0 45 45 54 53 20 54 48 45 20 4e 45 45 44 20 4f 46 20 54 48 45 20 57 52 49 54 42 3b 0b 3b 53 55 42 ┆EETS THE NEED OF THE WRITB; ;SUB┆
0x143c0…143e0 52 4f 55 54 49 4e 45 0b 01 3b 01 29 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 20 20 20 20 ┆ROUTINE ; ) POP B ┆
0x143e0…14400 20 20 20 3b 42 43 3d 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 24 20 20 20 20 20 20 20 50 4f ┆ ;BC=RETURN ADDRESS)$ PO┆
0x14400…14420 (10, 0, 5) 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 44 45 2d 3e 43 4f 4e 54 45 4e 54 53 24 22 20 20 20 ┆P D ;DE->CONTENTS$" ┆
0x14420…14440 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 48 4c 2d 3e 46 49 4c 45 49 44 22 ┆ POP H ;HL->FILEID"┆
0x14440…14460 10 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 10 10 20 20 20 20 20 20 20 50 55 53 48 20 20 ┆ PUSH B PUSH ┆
0x14460…14480 20 20 44 10 32 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 42 2c 4f 46 46 53 45 54 3b 43 4f 4d ┆ D 2 LXI B,OFFSET;COM┆
0x14480…144a0 50 55 54 45 20 54 48 45 20 41 44 44 52 45 53 53 20 4f 46 20 54 48 45 32 2d 20 20 20 20 20 20 20 ┆PUTE THE ADDRESS OF THE2- ┆
0x144a0…144c0 44 41 44 20 20 20 20 20 42 20 20 20 20 20 20 20 3b 20 20 20 44 41 54 41 20 43 4f 4e 54 52 4f 4c ┆DAD B ; DATA CONTROL┆
0x144c0…144e0 20 42 4c 4f 43 4b 2d 1f 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 48 20 20 20 20 20 20 20 3b ┆ BLOCK- PUSH H ;┆
0x144e0…14500 48 4c 2d 3e 44 43 42 1f 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HL->DCB 6 ┆
0x14500…14520 (10, 0, 6) 3b 54 48 45 20 53 54 41 43 4b 20 4e 4f 57 20 4c 4f 4f 4b 53 20 4c 49 4b 45 20 54 48 49 53 3a 36 ┆;THE STACK NOW LOOKS LIKE THIS:6┆
0x14520…14540 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 ┆8 ; ┆
0x14540…14560 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 38 38 20 20 20 20 20 ┆ I I88 ┆
0x14560…14580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x14580…145a0 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 ┆ I---------------I88 ┆
0x145a0…145c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 ┆ ; I ┆
0x145c0…145e0 2d 3e 20 44 43 42 20 20 20 20 20 20 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-> DCB I88 ┆
0x145e0…14600 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; I---------┆
0x14600…14620 (10, 0, 7) 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆------I88 ┆
0x14620…14640 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 2d 3e 20 43 4f 4e 54 45 4e 54 53 20 20 ┆; I -> CONTENTS ┆
0x14640…14660 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 ┆I88 ; ┆
0x14660…14680 20 20 20 20 20 20 20 20 20 20 49 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 ┆ I---------------I88 ┆
0x14680…146a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x146a0…146c0 20 20 20 20 49 20 20 52 45 54 55 52 4e 20 41 44 52 2e 20 20 49 38 38 20 20 20 20 20 20 20 20 20 ┆ I RETURN ADR. I88 ┆
0x146c0…146e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 2d ┆ ; I-┆
0x146e0…14700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 38 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--------------I88 ┆
0x14700…14720 (10, 0, 8) 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 20 20 20 20 20 20 ┆ ; I ┆
0x14720…14740 20 20 20 20 20 20 20 20 49 38 01 20 01 01 3b 01 3c 3b 43 4c 45 41 52 20 54 48 45 20 45 4e 44 2d ┆ I8 ; <;CLEAR THE END-┆
0x14740…14760 4f 46 2d 46 49 4c 45 20 46 4c 41 47 20 28 42 49 54 20 32 20 4f 46 20 54 48 45 20 44 46 4c 41 47 ┆OF-FILE FLAG (BIT 2 OF THE DFLAG┆
0x14760…14780 20 46 49 45 4c 44 20 4f 46 20 54 48 45 3c 39 3b 44 43 42 29 2e 20 49 54 20 4d 41 59 20 4f 46 20 ┆ FIELD OF THE<9;DCB). IT MAY OF ┆
0x14780…147a0 43 4f 55 52 53 45 20 4e 4f 54 20 48 41 56 45 20 42 45 45 4e 20 53 45 54 2c 20 42 55 54 20 4e 45 ┆COURSE NOT HAVE BEEN SET, BUT NE┆
0x147a0…147c0 56 45 52 20 4d 49 4e 44 39 06 3b 54 48 41 54 21 06 01 3b 01 16 20 20 20 20 20 20 20 4c 58 49 20 ┆VER MIND9 ;THAT! ; LXI ┆
0x147c0…147e0 20 20 20 20 42 2c 44 46 4c 41 47 16 25 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 42 20 20 20 ┆ B,DFLAG % DAD B ┆
0x147e0…14800 20 20 20 20 3b 48 4c 2d 3e 44 43 42 2e 44 46 4c 41 47 25 24 20 20 20 20 20 20 20 4d 4f 56 20 20 ┆ ;HL->DCB.DFLAG%$ MOV ┆
0x14800…14820 (10, 0, 9) 20 20 20 41 2c 4d 20 20 20 20 20 3b 41 3a 3d 44 43 42 2e 44 46 4c 41 47 24 23 20 20 20 20 20 20 ┆ A,M ;A:=DCB.DFLAG$# ┆
0x14820…14840 20 41 4e 49 20 20 20 20 20 30 46 42 20 20 20 20 20 3b 43 4c 45 41 52 20 42 49 54 20 32 23 12 20 ┆ ANI 0FB ;CLEAR BIT 2# ┆
0x14840…14860 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 4d 2c 41 12 07 20 20 20 20 20 20 20 07 01 3b 01 12 3b ┆ MOV M,A ; ;┆
0x14860…14880 57 52 49 54 45 20 54 48 45 20 52 45 43 4f 52 44 21 12 01 3b 01 14 20 20 20 20 20 20 20 43 41 4c ┆WRITE THE RECORD! ; CAL┆
0x14880…148a0 4c 20 20 20 20 57 52 49 54 42 14 01 20 01 01 3b 01 2a 3b 52 45 47 2e 20 41 20 4e 4f 57 20 43 4f ┆L WRITB ; *;REG. A NOW CO┆
0x148a0…148c0 4e 54 41 49 4e 53 20 41 20 50 4f 53 53 49 42 4c 45 20 45 52 52 4f 52 20 43 4f 44 45 2a 01 3b 01 ┆NTAINS A POSSIBLE ERROR CODE* ; ┆
0x148c0…148e0 24 20 20 20 20 20 20 20 53 54 41 20 20 20 20 20 49 4f 52 53 4c 54 20 20 3b 53 45 54 20 49 4f 52 ┆$ STA IORSLT ;SET IOR┆
0x148e0…14900 45 53 55 4c 54 24 01 20 01 0a 20 20 20 20 20 20 20 52 45 54 0a 01 20 01 0a 20 20 20 20 20 20 20 ┆ESULT$ RET ┆
0x14900…14920 (10, 0, 10) 45 4e 44 0a 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆END cccccccccccccccccccccccccc┆
0x14920…14940 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x14a00…14b00 (10, 0, 11) 0x63[0x100]
0x14b00…14b20 (10, 0, 12) ExtentHdr {name=»NEXT «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,00 (0x015000)}, f99=41 14 00 05 00 00 00 00 00 00 ┆A ┆}
0x14b20…14b40 13 02 4e 45 58 54 20 20 20 20 02 c6 00 01 00 00 00 76 76 76 13 0d 04 41 56 41 49 4c 20 20 20 02 ┆ NEXT vvv AVAIL ┆
0x14b40…14b60 00 00 08 0d 0d 04 4e 45 58 54 20 20 20 20 02 12 00 08 0d 0d 05 57 41 49 54 20 20 20 20 01 00 00 ┆ NEXT WAIT ┆
0x14b60…14b80 08 0d 0d 04 53 45 54 55 50 20 20 20 02 35 00 08 0d 0d 05 41 4c 4c 4f 43 20 20 20 02 00 00 08 0d ┆ SETUP 5 ALLOC ┆
0x14b80…14ba0 0d 05 46 5d 49 4e 49 20 20 20 03 00 00 08 0d 0d 05 43 53 45 4d 41 20 20 20 04 00 00 08 0d 0d 05 ┆ FÅINI CSEMA ┆
0x14ba0…14bc0 53 45 4e 44 20 20 20 20 05 00 00 08 0d 0d 05 49 4f 52 53 4c 54 20 20 06 00 00 08 0d 0d 04 46 49 ┆SEND IORSLT FI┆
0x14bc0…14be0 4e 49 53 20 20 20 02 90 00 08 0d 0d 05 4f 50 4d 45 53 20 20 20 07 00 00 08 0d 0d 05 54 4d 50 49 ┆NIS OPMES TMPI┆
0x14be0…14c00 4c 20 20 20 08 00 00 08 0d 0d 05 4d 4f 56 45 20 20 20 20 09 00 00 08 0d 0d 05 44 45 4c 4f 43 20 ┆L MOVE DELOC ┆
0x14c00…14c20 (10, 0, 13) 20 20 0a 00 00 08 0d 02 08 2a 02 04 0a 02 c3 00 04 06 08 7e 0e 00 a7 ca 06 04 0a 02 0b 00 04 0a ┆ * ü ┆
0x14c20…14c40 08 0c e1 d1 d1 d1 d1 c5 e9 2a 0a 04 0a 02 c3 00 04 04 08 44 4d cd 04 05 0b 01 00 00 00 05 02 08 ┆ * DM ┆
0x14c40…14c60 2a 02 04 0a 02 c1 00 04 08 08 5e 16 00 23 7e 3c c2 08 04 0a 02 2b 00 04 07 08 23 7e 23 66 6f 22 ┆* ^ #ü< + #ü#fo"┆
0x14c60…14c80 07 04 0a 02 c1 00 04 0e 08 e1 c1 c1 c1 c1 d5 e9 c1 d1 e1 c5 e5 22 0e 04 0a 02 c1 00 04 0b 08 44 ┆ " D┆
0x14c80…14ca0 4d 1d 1d 1d 36 00 23 1d c2 0b 04 0a 02 42 00 04 0b 08 36 ff 23 71 23 70 21 06 00 cd 0b 05 0b 02 ┆M 6 # B 6 #q#p! ┆
0x14ca0…14cc0 00 00 00 05 04 08 7a b3 ca 04 04 0a 02 89 00 04 04 08 eb e5 22 04 04 0a 02 c3 00 04 03 08 7b 32 ┆ z " æ2┆
0x14cc0…14ce0 03 04 0a 02 c5 00 04 08 08 1e 06 36 00 23 1d c2 08 04 0a 02 65 00 04 02 08 cd 02 05 0b 03 00 00 ┆ 6 # e ┆
0x14ce0…14d00 00 05 12 08 36 09 23 23 c1 71 23 70 01 04 00 09 c1 71 23 70 2a 12 05 0b 04 00 00 00 05 05 08 44 ┆ 6 ## q#p q#p* D┆
0x14d00…14d20 (10, 0, 14) 4d eb cd 05 05 0b 05 00 00 00 05 06 08 c9 e1 3e f6 32 06 05 0b 06 00 00 00 05 03 08 c9 cd 03 05 ┆M > 2 ┆
0x14d20…14d40 0b 03 00 00 00 05 07 08 d5 36 07 23 23 01 07 05 0b 07 00 00 00 05 09 08 71 23 70 01 04 00 09 11 ┆ 6 ## q#p ┆
0x14d40…14d60 09 05 0b 08 00 00 00 05 04 08 06 02 cd 04 05 0b 09 00 00 00 05 02 08 2a 02 05 0b 04 00 00 00 05 ┆ * ┆
0x14d60…14d80 05 08 44 4d e1 cd 05 05 0b 05 00 00 00 05 02 08 2a 02 04 0a 02 c3 00 04 03 08 eb 3a 03 04 0a 02 ┆ DM * : ┆
0x14d80…14da0 c5 00 04 05 08 6f 26 00 cd 05 05 0b 0a 00 00 00 05 02 08 c9 02 03 09 05 00 03 02 0f 00 02 00 00 ┆ o& ┆
0x14da0…14dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x14e00…14f00 (10, 0, 15) 0x00[0x100]
0x14f00…14f20 (10, 0, 16) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x14fe0…15000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x15000…15020 (10, 1, 1) ExtentHdr {name=»REDBAK «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,05 (0x015500)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x15020…15040 13 02 52 45 44 42 41 4b 20 20 02 1e 00 01 00 00 00 76 76 76 13 0d 04 52 45 44 42 41 4b 20 20 02 ┆ REDBAK vvv REDBAK ┆
0x15040…15060 00 00 08 0d 0d 05 52 45 41 44 42 20 20 20 01 00 00 08 0d 0d 05 49 4f 52 53 4c 54 20 20 02 00 00 ┆ READB IORSLT ┆
0x15060…15080 08 0d 16 08 c1 d1 e1 c5 d5 13 d5 01 8c 00 09 e5 01 18 00 09 7e e6 fb 77 cd 16 05 0b 01 00 00 00 ┆ ü w ┆
0x15080…150a0 05 02 08 32 02 05 0b 02 00 00 00 05 05 08 d1 78 12 c9 05 02 0f 00 02 00 00 00 00 00 00 00 00 00 ┆ 2 x ┆
0x150a0…150c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x9…]
0x151e0…15200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x15200…15220 (10, 1, 3) 46 50 45 20 20 20 20 20 52 41 01 05 00 08 00 07 00 00 00 08 00 07 00 00 00 05 00 00 00 00 00 00 ┆FPE RA ┆
0x15220…15240 13 02 46 50 45 20 20 20 20 20 02 c2 02 01 00 00 00 76 76 76 13 0d 04 46 50 45 20 20 20 20 20 02 ┆ FPE vvv FPE ┆
0x15240…15260 00 00 08 0d 0d 04 46 50 20 20 20 20 20 20 02 00 00 08 0d 0d 04 46 50 58 20 20 20 20 20 02 00 00 ┆ FP FPX ┆
0x15260…15280 08 0d 0d 04 41 44 52 20 20 20 20 20 02 00 00 08 0d 0d 05 42 43 41 44 44 20 20 20 01 00 00 08 0d ┆ ADR BCADD ┆
0x15280…152a0 0d 04 53 42 52 20 20 20 20 20 02 06 00 08 0d 0d 05 42 43 53 55 42 20 20 20 02 00 00 08 0d 0d 04 ┆ SBR BCSUB ┆
0x152a0…152c0 4d 50 52 20 20 20 20 20 02 0c 00 08 0d 0d 05 42 43 4d 55 4c 20 20 20 03 00 00 08 0d 0d 04 44 56 ┆MPR BCMUL DV┆
0x152c0…152e0 52 20 20 20 20 20 02 12 00 08 0d 0d 05 42 43 44 49 56 20 20 20 04 00 00 08 0d 0d 04 53 51 52 20 ┆R BCDIV SQR ┆
0x152e0…15300 20 20 20 20 02 18 00 08 0d 0d 04 46 43 4f 4d 31 20 20 20 02 1e 00 08 0d 0d 05 49 50 43 53 56 20 ┆ FCOM1 IPCSV ┆
0x15300…15320 (10, 1, 4) 20 20 05 00 00 08 0d 0d 05 42 41 43 4b 31 20 20 20 06 00 00 08 0d 0d 05 58 45 51 52 52 20 20 20 ┆ BACK1 XEQRR ┆
0x15320…15340 07 00 00 08 0d 0d 04 41 42 52 20 20 20 20 20 02 59 00 08 0d 0d 05 42 41 43 4b 20 20 20 20 08 00 ┆ ABR Y BACK ┆
0x15340…15360 00 08 0d 0d 04 4e 47 52 20 20 20 20 20 02 62 00 08 0d 0d 04 46 4c 54 20 20 20 20 20 02 74 00 08 ┆ NGR b FLT t ┆
0x15360…15380 0d 0d 04 46 4c 4f 20 20 20 20 20 02 7a 00 08 0d 0d 05 42 43 46 4c 54 20 20 20 09 00 00 08 0d 0d ┆ FLO z BCFLT ┆
0x15380…153a0 04 54 4e 43 20 20 20 20 20 02 b1 00 08 0d 0d 04 52 4e 44 20 20 20 20 20 02 b9 00 08 0d 0d 05 42 ┆ TNC RND B┆
0x153a0…153c0 43 46 49 58 20 20 20 0a 00 00 08 0d 0d 05 49 4e 56 48 20 20 20 20 0b 00 00 08 0d 0d 04 50 4f 54 ┆CFIX INVH POT┆
0x153c0…153e0 20 20 20 20 20 02 f4 00 08 0d 0d 04 52 45 41 4c 43 20 20 20 02 12 01 08 0d 0d 05 52 45 54 41 44 ┆ REALC RETAD┆
0x153e0…15400 52 20 20 0c 00 01 08 0d 0d 05 42 43 43 4d 50 20 20 20 0d 00 01 08 0d 0d 04 57 52 49 52 4c 20 20 ┆R BCCMP WRIRL ┆
0x15400…15420 (10, 1, 5) 20 02 2d 01 08 0d 0d 05 41 44 44 20 20 20 20 20 0e 00 01 08 0d 0d 05 42 43 42 54 44 20 20 20 0f ┆ - ADD BCBTD ┆
0x15420…15440 00 01 08 0d 0d 05 4d 4f 56 45 42 20 20 20 10 00 01 08 0d 0d 05 45 30 4c 49 4e 20 20 20 11 00 01 ┆ MOVEB E0LIN ┆
0x15440…15460 08 0d 0d 05 49 4e 56 44 20 20 20 20 12 00 01 08 0d 0d 05 57 52 49 54 53 20 20 20 13 00 01 08 0d ┆ INVD WRITS ┆
0x15460…15480 0d 04 52 45 41 52 4c 20 20 20 02 40 02 08 0d 0d 05 43 48 45 4f 46 20 20 20 14 00 02 08 0d 0d 05 ┆ REARL @ CHEOF ┆
0x15480…154a0 42 43 44 54 42 20 20 20 15 00 02 08 0d 0d 05 49 4f 52 53 4c 54 20 20 16 00 02 08 0d 0d 05 52 45 ┆BCDTB IORSLT RE┆
0x154a0…154c0 41 4c 49 20 20 20 17 00 02 08 0d 02 08 11 02 05 0b 01 00 00 00 05 02 08 c3 02 04 0a 02 2f 00 04 ┆ALI / ┆
0x154c0…154e0 02 08 11 02 05 0b 02 00 00 00 05 02 08 c3 02 04 0a 02 2f 00 04 02 08 11 02 05 0b 03 00 00 00 05 ┆ / ┆
0x154e0…15500 02 08 c3 02 04 0a 02 2f 00 04 02 08 11 02 05 0b 04 00 00 00 05 02 08 c3 02 04 0a 02 2f 00 04 63 ┆ / / c┆
0x15500…15520 (10, 1, 6) ExtentHdr {name=»PURGEF «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,0a (0x015a00)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x15520…15540 13 02 50 55 52 47 45 46 20 20 02 76 00 01 00 00 00 76 76 76 13 0d 04 50 55 52 47 45 46 20 20 02 ┆ PURGEF v vvv PURGEF ┆
0x15540…15560 00 00 08 0d 0d 05 4e 50 20 20 20 20 20 20 01 00 00 08 0d 0d 05 58 45 51 52 52 20 20 20 02 00 00 ┆ NP XEQRR ┆
0x15560…15580 08 0d 0d 05 45 30 4c 49 4e 20 20 20 03 00 00 08 0d 0d 05 50 55 52 47 45 20 20 20 04 00 00 08 0d ┆ E0LIN PURGE ┆
0x15580…155a0 0d 05 49 4f 52 53 4c 54 20 20 05 00 00 08 0d 04 08 d1 e1 22 04 04 0a 02 74 00 04 03 08 d5 2a 03 ┆ IORSLT " t * ┆
0x155a0…155c0 05 0b 01 00 00 00 05 0b 08 eb 21 9e fe 39 7d 93 7c 9a d2 0b 04 0a 02 1a 00 04 04 08 1e 4b c3 04 ┆ ! 9å ø K ┆
0x155c0…155e0 05 0b 02 00 00 00 05 03 08 eb 22 03 04 0a 02 6a 00 04 06 08 11 30 01 19 22 06 05 0b 01 00 00 00 ┆ " j 0 " ┆
0x155e0…15600 05 08 08 11 01 00 d5 3e 08 21 08 04 0a 02 6c 00 04 02 08 cd 02 05 0b 03 00 00 00 05 02 08 01 02 ┆ > ! l ┆
0x15600…15620 (10, 1, 7) 04 0a 02 6c 00 04 02 08 2a 02 04 0a 02 74 00 04 06 08 23 7e fe 3a ca 06 04 0a 02 44 00 04 05 08 ┆ l * t #ü : D ┆
0x15620…15640 02 23 03 c3 05 04 0a 02 38 00 04 0b 08 23 4e 23 46 23 c5 23 46 c5 01 0b 04 0a 02 6c 00 04 03 08 ┆ # 8 #N#F# #F l ┆
0x15640…15660 c5 2a 03 04 0a 02 6a 00 04 0b 08 e5 36 00 01 29 00 09 36 00 cd 0b 05 0b 04 00 00 00 05 02 08 32 ┆ * j 6 ) 6 2┆
0x15660…15680 02 05 0b 05 00 00 00 05 02 08 2a 02 04 0a 02 6a 00 04 02 08 22 02 05 0b 01 00 00 00 05 02 08 c9 ┆ * j " ┆
0x15680…156a0 02 03 09 0c 00 03 02 0f 00 02 00 00 44 4d 2a c5 12 eb 7b b2 ca b2 41 e5 eb c5 cd 85 5c 7b b2 00 ┆ DM* æ A Øæ ┆
0x156a0…156c0 00 00 7b a2 3c 00 00 00 45 e3 eb e5 cd 03 16 c1 d1 e1 71 23 70 23 73 23 72 23 eb 2a b4 12 7e 23 ┆ æ < E q#p#s#r# * ü#┆
0x156c0…156e0 66 6f eb 06 06 cd 03 16 e1 c1 cd 9c 13 c3 16 40 00 00 21 0f 00 11 be 42 3e 02 cd 17 42 c3 16 40 ┆fo @ ! B> B @┆
0x156e0…15700 f5 21 09 00 11 cd 42 3e 02 cd 17 42 cd 5c 15 36 02 23 23 44 4d 03 03 03 03 71 23 70 23 36 02 23 ┆ ! B> B Ø 6 ##DM q#p#6 #┆
0x15700…15720 (10, 1, 8) 36 00 23 f1 d5 cd 2d 15 2a b4 12 23 23 4e 23 46 e1 cd 9c 13 c3 16 40 c5 e5 d5 f5 cd 5c 15 f1 77 ┆6 # - * ##N#F @ Ø w┆
0x15720…15740 23 36 00 23 d1 73 23 72 23 d1 73 23 72 23 d1 73 23 eb 2a b4 12 eb 73 23 72 01 f4 ff 09 eb 23 23 ┆#6 # s#r# s#r# s# * s#r ##┆
0x15740…15760 4e 23 46 eb cd 9c 13 c9 2a af 12 23 3a b7 12 57 7e 23 15 fa 5e 42 fe 2c c8 fe 20 c2 50 42 37 c9 ┆N#F * #: Wü# ^B , PB7 ┆
0x15760…15780 2a b0 02 11 0e 00 19 5e 23 56 3e 07 cd 17 42 c9 c5 e5 22 b4 12 21 14 00 11 aa 42 3e 02 cd 17 42 ┆* ^#V> B " ! B> B┆
0x15780…157a0 21 0a 00 11 52 5b 3e 02 cd 17 42 cd 60 42 2a b4 12 5e 23 56 23 4e 23 46 eb 71 23 70 23 71 23 70 ┆! RÆ> B `B* ^#V#N#F q#p#q#p┆
0x157a0…157c0 23 71 23 70 23 36 00 e1 c1 c9 3c 58 53 3e 4d 49 4b 41 44 4f 53 20 56 45 52 53 49 4f 4e 20 49 4c ┆#q#p#6 <XS>MIKADOS VERSION IL┆
0x157c0…157e0 4c 45 47 41 4c 20 43 4f 4d 4d 41 4e 44 3c 53 3e 45 52 52 4f 52 20 42 52 ba 40 46 45 8b 40 4c 49 ┆LEGAL COMMAND<S>ERROR BR @FE @LI┆
0x157e0…15800 85 40 e1 c1 e5 c5 0a 2f 21 29 00 09 be ca f5 42 3e 06 c3 1a 45 21 0a 00 09 3e 3c be c2 04 43 3e ┆ @ /!) B> E! >< C>┆
0x15800…15820 (10, 1, 9) 08 c3 1a 45 21 18 00 09 7e e6 01 c2 13 43 3e 06 c3 1a 45 e1 54 5d 01 13 00 09 4e 23 46 c5 23 4e ┆ E! ü C> E TÅ N#F #N┆
0x15820…15840 23 46 c5 eb e5 0e 03 cd 88 2f c1 c0 c5 21 18 00 09 3e 02 a6 ca 43 43 35 35 e1 e5 3e 02 cd be 2e ┆#F / ! > CC55 > .┆
0x15840…15860 c2 e9 44 e1 e5 cd 21 01 c1 c5 21 20 00 09 5e 23 56 60 69 cd 24 01 c2 e9 44 e1 d5 e5 cd 27 01 ca ┆ D ! ! ^#V`i $ D ' ┆
0x15860…15880 67 43 e1 e3 c3 e9 44 e3 d5 c5 5a d5 97 f5 e5 01 0d 00 09 5e 7b 23 56 b2 23 46 b0 ca aa 43 78 c1 ┆gC D Z ^æ#V #F Cx ┆
0x15880…158a0 c5 21 13 00 09 73 23 72 23 77 21 16 00 09 3e 01 77 60 69 cd be 2e ca 9e 43 e1 e3 c3 e2 44 e1 f1 ┆ ! s#r#w! > w`i . C D ┆
0x158a0…158c0 3c f5 e5 01 30 00 09 c3 6f 43 e1 f1 e5 a7 c2 ca 43 01 0d 00 09 0e 05 cd 1c 45 e1 97 f5 e5 11 19 ┆< 0 oC C E ┆
0x158c0…158e0 00 19 5e 23 56 23 46 c3 7e 43 01 30 00 09 01 0d 00 09 0e 05 cd 1c 45 c1 c5 21 13 00 09 eb 21 24 ┆ ^#V#F üC 0 E ! !$┆
0x158e0…15900 00 09 cd 92 2f e1 e5 01 30 00 09 01 10 00 09 7e 23 b6 23 b6 ca 1e 44 e1 e5 3e 02 cd be 2e c2 e2 ┆ / 0 ü# # D > . ┆
0x15900…15920 (10, 1, 10) 44 c1 c5 21 2a 00 09 eb 21 13 00 09 cd 92 2f 21 16 00 09 3e 01 77 e1 e5 cd be 2e c2 e2 44 e1 e5 ┆D !* ! /! > w . D ┆
0x15920…15940 01 30 00 09 01 0a 00 09 34 e1 e5 3e 02 cd be 2e c2 e2 44 e1 e5 54 5d 01 30 00 09 e5 01 09 00 cd ┆ 0 4 > . D TÅ 0 ┆
0x15940…15960 03 16 d1 e1 e5 d5 01 0a 00 09 7e c6 42 eb 01 09 00 09 77 01 0b 00 e1 d1 d5 e5 09 eb 09 7e 12 21 ┆ ü B w ü !┆
0x15960…15980 0d 00 c1 09 97 77 23 77 23 77 23 eb e1 e5 c5 01 24 00 09 c1 eb cd 92 2f 21 06 00 2b 29 39 7e 21 ┆ w#w#w# $ /! +)9ü!┆
0x15980…159a0 13 00 09 a7 ca 90 44 97 77 23 77 23 77 c3 9d 44 0e 03 cd 1c 45 e1 e5 01 30 00 09 44 4d 21 19 00 ┆ D w#w#w D E 0 DM! ┆
0x159a0…159c0 09 eb c1 c5 21 22 00 09 7e 12 d1 d5 21 05 00 cd 2f 45 c2 e2 44 21 06 00 2b 29 39 7e a7 c2 d0 44 ┆ !" ü ! /E D! +)9ü D┆
0x159c0…159e0 e1 e5 cd 2a 01 d1 d5 21 03 00 cd 2f 45 c2 e2 44 e1 e5 01 0a 00 09 34 e1 e5 01 18 00 09 7e e6 bf ┆ * ! /E D 4 ü ┆
0x159e0…15a00 77 97 e1 c1 c1 c1 c1 c1 e5 e1 c1 d1 e5 c5 01 13 00 09 73 23 72 23 c1 71 23 70 e1 f5 e5 3e 01 63 ┆w s#r# q#p > c┆
0x15a00…15a20 (10, 1, 11) ExtentHdr {name=»RECEIV «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,0f (0x015f00)}, f99=41 15 00 05 00 00 00 00 00 00 ┆A ┆}
0x15a20…15a40 13 02 52 45 43 45 49 56 20 20 02 6d 00 01 00 00 00 76 76 76 13 0d 04 52 45 43 45 49 56 20 20 02 ┆ RECEIV m vvv RECEIV ┆
0x15a40…15a60 00 00 08 0d 0d 05 56 45 4e 54 53 20 20 20 01 00 00 08 0d 0d 05 4d 4f 56 45 20 20 20 20 02 00 00 ┆ VENTS MOVE ┆
0x15a60…15a80 08 0d 0d 05 44 45 4c 4f 43 20 20 20 03 00 00 08 0d 0d 05 50 4f 4f 4c 20 20 20 20 04 00 00 08 0d ┆ DELOC POOL ┆
0x15a80…15aa0 0d 05 53 45 4e 44 20 20 20 20 05 00 00 08 0d 04 08 c1 e1 22 04 04 0a 02 63 00 04 03 08 e1 22 03 ┆ SEND " c " ┆
0x15aa0…15ac0 04 0a 02 65 00 04 03 08 e1 22 03 04 0a 02 67 00 04 03 08 c5 cd 03 05 0b 01 00 00 00 05 03 08 e5 ┆ e " g ┆
0x15ac0…15ae0 2a 03 04 0a 02 67 00 04 0a 08 1a 77 23 13 1a 77 13 13 2a 0a 04 0a 02 63 00 04 07 08 1a 77 23 36 ┆* g w# w * c w#6┆
0x15ae0…15b00 00 32 07 04 0a 02 69 00 04 06 08 13 d5 fe 0b da 06 04 0a 02 40 00 04 0b 08 eb 5e 23 56 e1 d5 23 ┆ 2 i @ ^#V #┆
0x15b00…15b20 (10, 1, 12) 23 7e 32 0b 04 0a 02 6b 00 04 04 08 23 7e 32 04 04 0a 02 6c 00 04 02 08 2a 02 04 0a 02 65 00 04 ┆#ü2 k #ü2 l * e ┆
0x15b20…15b40 04 08 d1 d5 3a 04 04 0a 02 69 00 04 03 08 47 cd 03 05 0b 02 00 00 00 05 03 08 d1 3a 03 04 0a 02 ┆ : i G : ┆
0x15b40…15b60 69 00 04 04 08 fe 11 da 04 04 0a 02 5b 00 04 02 08 2a 02 04 0a 02 6b 00 04 02 08 cd 02 05 0b 03 ┆i Æ * k ┆
0x15b60…15b80 00 00 00 05 03 08 e1 01 03 05 0b 04 00 00 00 05 02 08 cd 02 05 0b 05 00 00 00 05 02 08 c9 02 03 ┆ ┆
0x15b80…15ba0 09 0a 00 03 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x15ba0…15bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x15c00…15d00 (10, 1, 13) 0x00[0x100]
[…0x1…]
0x15e00…15e20 (10, 1, 15) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x15ee0…15f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x15f00…15f20 (10, 1, 16) ExtentHdr {name=»SETPR «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0016,04 (0x016400)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x15f20…15f40 13 02 53 45 54 50 52 20 20 20 02 13 00 01 00 00 00 76 76 76 13 0d 04 53 45 54 50 52 20 20 20 02 ┆ SETPR vvv SETPR ┆
0x15f40…15f60 00 00 08 0d 0d 05 52 55 4e 4e 20 20 20 20 01 00 00 08 0d 02 08 2a 02 05 0b 01 00 00 00 05 11 08 ┆ RUNN * ┆
0x15f60…15f80 01 04 00 09 eb e1 e3 7d fe 04 d8 fe 08 d0 12 c9 11 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 ┆ å ┆
0x15f80…15fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x16000…16100 (11, 0, 1) 0x00[0x100]
[…0x2…]
0x16300…16320 (11, 0, 4) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x163e0…16400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x16400…16420 (11, 0, 5) ExtentHdr {name=»RESERV «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0016,09 (0x016900)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x16420…16440 13 02 52 45 53 45 52 56 20 20 02 46 00 01 00 00 00 76 76 76 13 0d 04 52 45 53 45 52 56 20 20 02 ┆ RESERV F vvv RESERV ┆
0x16440…16460 00 00 08 0d 0d 05 45 30 4c 49 4e 20 20 20 01 00 00 08 0d 0d 05 4d 4f 56 45 20 20 20 20 02 00 00 ┆ E0LIN MOVE ┆
0x16460…16480 08 0d 0d 05 52 45 53 52 56 20 20 20 03 00 00 08 0d 03 08 e1 22 03 04 0a 02 38 00 04 03 08 e1 22 ┆ RESRV " 8 "┆
0x16480…164a0 03 04 0a 02 3a 00 04 0c 08 e1 7d 07 e1 b5 6f e3 e5 3e 0a 21 0c 04 0a 02 3c 00 04 02 08 cd 02 05 ┆ : å o > ! < ┆
0x164a0…164c0 0b 01 00 00 00 05 06 08 e1 46 23 eb 21 06 04 0a 02 3c 00 04 02 08 cd 02 05 0b 02 00 00 00 05 02 ┆ F# ! < ┆
0x164c0…164e0 08 2a 02 04 0a 02 44 00 04 03 08 e5 21 03 04 0a 02 3c 00 04 03 08 e5 cd 03 05 0b 03 00 00 00 05 ┆ * D ! < ┆
0x164e0…16500 02 08 2a 02 04 0a 02 3a 00 04 06 08 77 23 36 00 2a 06 04 0a 02 38 00 04 02 08 e9 02 03 09 0e 00 ┆ * : w#6 * 8 ┆
0x16500…16520 (11, 0, 6) 03 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x16520…16540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x16600…16700 (11, 0, 7) 0x00[0x100]
[…0x1…]
0x16800…16820 (11, 0, 9) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x168e0…16900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x16900…16920 (11, 0, 10) ExtentHdr {name=»SENDM «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0016,0e (0x016e00)}, f99=41 16 00 05 00 00 00 00 00 00 ┆A ┆}
0x16920…16940 13 02 53 45 4e 44 4d 20 20 20 02 aa 00 01 00 00 00 76 76 76 13 0d 04 53 45 4e 44 4d 20 20 20 02 ┆ SENDM vvv SENDM ┆
0x16940…16960 00 00 08 0d 0d 05 50 4f 4f 4c 20 20 20 20 01 00 00 08 0d 0d 05 46 5d 42 55 46 20 20 20 02 00 00 ┆ POOL FÅBUF ┆
0x16960…16980 08 0d 0d 05 52 55 4e 4e 20 20 20 20 03 00 00 08 0d 0d 05 41 4c 4c 4f 43 20 20 20 04 00 00 08 0d ┆ RUNN ALLOC ┆
0x16980…169a0 0d 05 54 45 53 54 48 20 20 20 05 00 00 08 0d 0d 05 4d 4f 56 45 20 20 20 20 06 00 00 08 0d 0d 05 ┆ TESTH MOVE ┆
0x169a0…169c0 53 45 4e 44 20 20 20 20 07 00 00 08 0d 04 08 c1 e1 22 04 04 0a 02 a2 00 04 03 08 e1 22 03 04 0a ┆SEND " " ┆
0x169c0…169e0 02 a4 00 04 03 08 e1 22 03 04 0a 02 a6 00 04 03 08 e1 22 03 04 0a 02 a8 00 04 03 08 c5 3a 03 04 ┆ " " : ┆
0x169e0…16a00 0a 02 a5 00 04 03 08 a7 c2 03 04 0a 02 7f 00 04 02 08 21 02 05 0b 01 00 01 00 05 05 08 7e fe 03 ┆ ! ü ┆
0x16a00…16a20 (11, 0, 11) da 05 04 0a 02 99 00 04 02 08 01 02 05 0b 01 00 00 00 05 02 08 cd 02 05 0b 02 00 00 00 05 03 08 ┆ ┆
0x16a20…16a40 e5 2a 03 05 0b 03 00 00 00 05 09 08 7d 12 13 7c 12 13 13 3a 09 04 0a 02 a4 00 04 07 08 12 13 d5 ┆ * å ø : ┆
0x16a40…16a60 fe 0b da 07 04 0a 02 5d 00 04 02 08 2a 02 04 0a 02 a4 00 04 02 08 cd 02 05 0b 04 00 00 00 05 02 ┆ Å * ┆
0x16a60…16a80 08 22 02 04 0a 02 a4 00 04 03 08 eb cd 03 05 0b 05 00 00 00 05 02 08 ca 02 04 0a 02 88 00 04 0a ┆ " ┆
0x16a80…16aa0 08 eb e1 d5 73 23 72 23 eb 2a 0a 04 0a 02 a4 00 04 06 08 eb 73 23 72 2a 06 04 0a 02 a6 00 04 04 ┆ s#r# * s#r* ┆
0x16aa0…16ac0 08 d1 eb 3a 04 04 0a 02 a4 00 04 03 08 47 cd 03 05 0b 06 00 00 00 05 02 08 2a 02 04 0a 02 a8 00 ┆ : G * ┆
0x16ac0…16ae0 04 0a 08 01 0e 00 09 4e 23 46 e1 cd 0a 05 0b 07 00 00 00 05 02 08 2a 02 04 0a 02 a2 00 04 07 08 ┆ N#F * ┆
0x16ae0…16b00 af 77 23 77 c9 2a 07 04 0a 02 a2 00 04 08 08 36 02 23 36 00 c9 2a 08 04 0a 02 a2 00 04 09 08 36 ┆ w#w * 6 #6 * 6┆
0x16b00…16b20 (11, 0, 12) 01 23 36 00 e1 e1 01 09 05 0b 01 00 00 00 05 02 08 cd 02 05 0b 07 00 00 00 05 03 08 c9 2a 03 04 ┆ #6 * ┆
0x16b20…16b40 0a 02 a2 00 04 07 08 36 03 23 36 00 c9 07 03 09 08 00 03 02 0f 00 02 00 00 00 00 00 00 00 00 00 ┆ 6 #6 ┆
0x16b40…16b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x16c00…16d00 (11, 0, 13) 0x00[0x100]
0x16d00…16d20 (11, 0, 14) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x16de0…16e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x16e00…16e20 (11, 0, 15) ExtentHdr {name=»DEALLO «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0017,03 (0x017300)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x16e20…16e40 13 02 44 45 41 4c 4c 4f 20 20 02 22 00 01 00 00 00 76 76 76 13 0d 04 44 45 41 4c 4c 4f 20 20 02 ┆ DEALLO " vvv DEALLO ┆
0x16e40…16e60 00 00 08 0d 0d 05 44 45 4c 4f 43 20 20 20 01 00 00 08 0d 0b 08 c1 d1 e1 c5 d5 2b 7e fe ee ca 0b ┆ DELOC +ü ┆
0x16e60…16e80 04 0a 02 12 00 04 05 08 21 01 00 c3 05 04 0a 02 1c 00 04 09 08 36 00 2b 56 2b 5e eb cd 09 05 0b ┆ ! 6 +V+^ ┆
0x16e80…16ea0 01 00 00 00 05 07 08 d1 eb 73 23 72 c9 07 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ s#r ┆
0x16ea0…16ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x16f00…17000 (11, 0, 16) 0x00[0x100]
[…0x2…]
0x17200…17220 (11, 1, 3) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x172e0…17300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x17300…17320 (11, 1, 4) ExtentHdr {name=»RENAMF «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0017,08 (0x017800)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x17320…17340 13 02 52 45 4e 41 4d 46 20 20 02 98 00 01 00 00 00 76 76 76 13 0d 04 52 45 4e 41 4d 46 20 20 02 ┆ RENAMF vvv RENAMF ┆
0x17340…17360 00 00 08 0d 0d 05 4e 50 20 20 20 20 20 20 01 00 00 08 0d 0d 05 58 45 51 52 52 20 20 20 02 00 00 ┆ NP XEQRR ┆
0x17360…17380 08 0d 0d 05 45 30 4c 49 4e 20 20 20 03 00 00 08 0d 0d 05 52 45 4e 41 4d 20 20 20 04 00 00 08 0d ┆ E0LIN RENAM ┆
0x17380…173a0 0d 05 49 4f 52 53 4c 54 20 20 05 00 00 08 0d 04 08 d1 e1 22 04 04 0a 02 96 00 04 03 08 e1 22 03 ┆ IORSLT " " ┆
0x173a0…173c0 04 0a 02 94 00 04 03 08 d5 2a 03 05 0b 01 00 00 00 05 0b 08 eb 21 9e fe 39 7d 93 7c 9a d2 0b 04 ┆ * ! 9å ø ┆
0x173c0…173e0 0a 02 1e 00 04 04 08 1e 4b c3 04 05 0b 02 00 00 00 05 03 08 eb 22 03 04 0a 02 82 00 04 06 08 11 ┆ K " ┆
0x173e0…17400 30 01 19 22 06 05 0b 01 00 00 00 05 08 08 11 01 00 d5 3e 10 21 08 04 0a 02 84 00 04 02 08 cd 02 ┆0 " > ! ┆
0x17400…17420 (11, 1, 5) 05 0b 03 00 00 00 05 02 08 01 02 04 0a 02 84 00 04 02 08 2a 02 04 0a 02 94 00 04 06 08 23 7e fe ┆ * #ü ┆
0x17420…17440 3a ca 06 04 0a 02 48 00 04 05 08 02 23 03 c3 05 04 0a 02 3c 00 04 0b 08 23 4e 23 46 23 c5 23 46 ┆: H # < #N#F# #F┆
0x17440…17460 c5 01 0b 04 0a 02 8c 00 04 02 08 2a 02 04 0a 02 96 00 04 09 08 56 23 7e 02 23 03 15 c2 09 04 0a ┆ * V#ü # ┆
0x17460…17480 02 59 00 04 02 08 01 02 04 0a 02 8c 00 04 03 08 c5 01 03 04 0a 02 84 00 04 03 08 c5 2a 03 04 0a ┆ Y * ┆
0x17480…174a0 02 82 00 04 0b 08 e5 36 00 01 29 00 09 36 00 cd 0b 05 0b 04 00 00 00 05 02 08 32 02 05 0b 05 00 ┆ 6 ) 6 2 ┆
0x174a0…174c0 00 00 05 02 08 2a 02 04 0a 02 82 00 04 02 08 22 02 05 0b 01 00 00 00 05 02 08 c9 02 03 09 16 00 ┆ * " ┆
0x174c0…174e0 03 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x174e0…17500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x17500…17600 (11, 1, 6) 0x00[0x100]
[…0x1…]
0x17700…17720 (11, 1, 8) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x177e0…17800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x17800…17820 (11, 1, 9) ExtentHdr {name=»WAITNG «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0017,0d (0x017d00)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x17820…17840 13 02 57 41 49 54 4e 47 20 20 02 21 00 01 00 00 00 76 76 76 13 0d 04 57 41 49 54 4e 47 20 20 02 ┆ WAITNG ! vvv WAITNG ┆
0x17840…17860 00 00 08 0d 0d 05 52 55 4e 4e 20 20 20 20 01 00 00 08 0d 07 08 c1 d1 d1 d1 d1 2a 07 05 0b 01 00 ┆ RUNN * ┆
0x17860…17880 00 00 05 0c 08 11 0e 00 19 5e 23 56 1a fe 01 ca 0c 04 0a 02 1b 00 04 0d 08 11 00 00 d5 c5 c9 11 ┆ ^#V ┆
0x17880…178a0 01 00 d5 c5 c9 0d 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x178a0…178c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x17900…17a00 (11, 1, 10) 0x00[0x100]
[…0x2…]
0x17c00…17c20 (11, 1, 13) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x17ce0…17d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x17d00…17d20 (11, 1, 14) ExtentHdr {name=»RELEAS «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,02 (0x018200)}, f99=41 17 00 05 00 00 00 00 00 00 ┆A ┆}
0x17d20…17d40 13 02 52 45 4c 45 41 53 20 20 02 39 00 01 00 00 00 76 76 76 13 0d 04 52 45 4c 45 41 53 20 20 02 ┆ RELEAS 9 vvv RELEAS ┆
0x17d40…17d60 00 00 08 0d 0d 05 45 30 4c 49 4e 20 20 20 01 00 00 08 0d 0d 05 4d 4f 56 45 20 20 20 20 02 00 00 ┆ E0LIN MOVE ┆
0x17d60…17d80 08 0d 0d 05 52 45 4c 53 45 20 20 20 03 00 00 08 0d 04 08 d1 e1 22 04 04 0a 02 2d 00 04 07 08 e1 ┆ RELSE " - ┆
0x17d80…17da0 d5 e5 3e 0a 21 07 04 0a 02 2f 00 04 02 08 cd 02 05 0b 01 00 00 00 05 06 08 e1 46 23 eb 21 06 04 ┆ > ! / F# ! ┆
0x17da0…17dc0 0a 02 2f 00 04 02 08 cd 02 05 0b 02 00 00 00 05 02 08 2a 02 04 0a 02 37 00 04 03 08 e5 21 03 04 ┆ / * 7 ! ┆
0x17dc0…17de0 0a 02 2f 00 04 03 08 e5 cd 03 05 0b 03 00 00 00 05 02 08 2a 02 04 0a 02 2d 00 04 06 08 77 23 36 ┆ / * - w#6┆
0x17de0…17e00 00 c9 06 03 09 0c 00 03 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x17e00…17f00 (11, 1, 15) 0x00[0x100]
[…0x2…]
0x18100…18120 (12, 0, 2) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x181e0…18200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x18200…18220 (12, 0, 3) ExtentHdr {name=»WRIBAK «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,07 (0x018700)}, f99=41 18 00 05 00 00 00 00 00 00 ┆A ┆}
0x18220…18240 13 02 57 52 49 42 41 4b 20 20 02 19 00 01 00 00 00 76 76 76 13 0d 04 57 52 49 42 41 4b 20 20 02 ┆ WRIBAK vvv WRIBAK ┆
0x18240…18260 00 00 08 0d 0d 05 57 52 49 54 42 20 20 20 01 00 00 08 0d 0d 05 49 4f 52 53 4c 54 20 20 02 00 00 ┆ WRITB IORSLT ┆
0x18260…18280 08 0d 14 08 c1 d1 e1 c5 d5 01 8c 00 09 e5 01 18 00 09 7e e6 fb 77 cd 14 05 0b 01 00 00 00 05 02 ┆ ü w ┆
0x18280…182a0 08 32 02 05 0b 02 00 00 00 05 02 08 c9 02 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2 ┆
0x182a0…182c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x18300…18320 (12, 0, 4) e1 22 03 04 0a 02 aa 02 04 03 08 e1 22 03 04 0a 02 ac 02 04 02 08 cd 02 04 0a 02 a0 00 04 02 08 ┆ " " ┆
0x18320…18340 2a 02 04 0a 02 ac 02 04 03 08 e5 2a 03 04 0a 02 aa 02 04 03 08 e5 2a 03 04 0a 02 a8 02 04 03 08 ┆* * * ┆
0x18340…18360 e5 2a 03 04 0a 02 a6 02 04 03 08 e5 c3 03 05 0b 06 00 00 00 05 04 08 60 69 22 04 05 0b 05 00 00 ┆ * `i" ┆
0x18360…18380 00 05 0a 08 c1 d1 21 f8 ff 39 f9 c5 cd 0a 05 0b 09 00 00 00 05 05 08 c9 60 69 22 05 05 0b 05 00 ┆ ! 9 `i" ┆
0x18380…183a0 00 00 05 02 08 c3 02 04 0a 02 d7 00 04 04 08 60 69 22 04 05 0b 05 00 00 00 05 09 08 e1 e5 7d e6 ┆ `i" å ┆
0x183a0…183c0 80 c6 05 32 09 04 0a 02 ba 02 04 04 08 3e 80 32 04 04 0a 02 c1 02 04 06 08 21 00 00 39 11 06 04 ┆ 2 > 2 ! 9 ┆
0x183c0…183e0 0a 02 ba 02 04 02 08 cd 02 05 0b 01 00 00 00 05 0e 08 e1 7d e6 7f bd 6f e5 f5 21 02 00 39 cd 0e ┆ å o ! 9 ┆
0x183e0…18400 05 0b 0a 00 00 00 05 02 08 da 02 04 0a 02 54 00 04 03 08 f1 c4 03 05 0b 0b 00 00 00 05 06 08 d1 ┆ T ┆
0x18400…18420 (12, 0, 5) 46 50 45 20 20 20 20 20 52 42 01 05 00 00 00 00 08 00 02 09 00 03 00 00 00 20 00 00 00 00 00 00 ┆FPE RB ┆
0x18420…18440 d1 d1 e3 c3 06 05 0b 06 00 00 00 05 08 08 e1 7d 11 80 ff 19 da 08 04 0a 02 0d 01 04 0f 08 c6 81 ┆ å ┆
0x18440…18460 67 2e 00 e5 11 00 00 d5 d5 13 d5 c3 0f 05 0b 08 00 00 00 05 04 08 1e 50 c3 04 05 0b 07 00 00 00 ┆g. P ┆
0x18460…18480 05 03 08 e1 22 03 05 0b 0c 00 00 00 05 0b 08 21 00 00 39 eb 21 08 00 39 cd 0b 05 0b 0d 00 00 00 ┆ " ! 9 ! 9 ┆
0x18480…184a0 05 09 08 f5 21 12 00 39 f1 f9 2a 09 05 0b 0c 00 00 00 05 0b 08 e9 c1 1e 00 d5 03 03 78 a7 c2 0b ┆ ! 9 * x ┆
0x184a0…184c0 04 0a 02 7b 01 04 05 08 79 fe 10 d2 05 04 0a 02 7b 01 04 04 08 0d 0d ca 04 04 0a 02 7b 01 04 09 ┆ æ y æ æ ┆
0x184c0…184e0 08 21 0b 00 39 7e c6 80 fa 09 04 0a 02 52 01 04 04 08 fe 0e d2 04 04 0a 02 7b 01 04 04 08 79 a7 ┆ ! 9ü R æ y ┆
0x184e0…18500 f2 04 04 0a 02 58 01 04 07 08 97 5f 3e 80 93 32 07 04 0a 02 c1 02 04 0c 08 c5 21 06 00 39 7e e6 ┆ X _> 2 ! 9ü ┆
0x18500…18520 (12, 0, 6) 80 c6 05 11 0c 04 0a 02 ba 02 04 03 08 12 cd 03 05 0b 0e 00 00 00 05 12 08 c1 21 0b 00 39 d1 7e ┆ ! 9 ü┆
0x18520…18540 c6 80 47 c5 21 04 00 39 eb 21 12 04 0a 02 a6 02 04 02 08 cd 02 05 0b 0f 00 00 00 05 0b 08 c1 d1 ┆ G ! 9 ! ┆
0x18540…18560 e1 e1 e1 e1 d5 79 a7 ca 0b 04 0a 02 12 02 04 02 08 11 02 04 0a 02 a6 02 04 02 08 21 02 04 0a 02 ┆ y ! ┆
0x18560…18580 92 02 04 08 08 1a 77 23 13 78 3d fa 08 04 0a 02 ca 01 04 09 08 1a 13 77 23 13 1a 05 c2 09 04 0a ┆ w# x= w# ┆
0x18580…185a0 02 a3 01 04 05 08 79 fe fe ca 05 04 0a 02 fe 01 04 05 08 36 2e 23 d2 05 04 0a 02 fe 01 04 05 08 ┆ y 6.# ┆
0x185a0…185c0 1a fe 45 c2 05 04 0a 02 c0 01 04 09 08 3e 30 1b 77 23 13 0d c2 09 04 0a 02 b7 01 04 02 08 c3 02 ┆ E >0 w# ┆
0x185c0…185e0 04 0a 02 fe 01 04 08 08 36 30 23 79 fe fe ca 08 04 0a 02 fe 01 04 05 08 36 2e 23 d2 05 04 0a 02 ┆ 60#y 6.# ┆
0x185e0…18600 fe 01 04 03 08 80 f2 03 04 0a 02 e1 01 04 09 08 97 91 47 97 4f 05 04 ca 09 04 0a 02 ed 01 04 05 ┆ G O ┆
0x18600…18620 (12, 0, 7) 08 36 30 23 c3 05 04 0a 02 e3 01 04 03 08 0d fa 03 04 0a 02 fe 01 04 04 08 1a 13 c3 04 04 0a 02 ┆ 60# ┆
0x18620…18640 f7 01 04 07 08 1a 77 13 23 0d f2 07 04 0a 02 f6 01 04 03 08 eb 21 03 04 0a 02 92 02 04 02 08 cd ┆ w # ! ┆
0x18640…18660 02 05 0b 0b 00 00 00 05 06 08 19 45 4d 1b 21 06 04 0a 02 b9 02 04 02 08 cd 02 05 0b 10 00 00 00 ┆ EM ! ┆
0x18660…18680 05 02 08 c3 02 04 0a 02 14 02 04 07 08 0e 14 3e 28 91 21 07 04 0a 02 92 02 04 02 08 cd 02 05 0b ┆ >( ! ┆
0x18680…186a0 11 00 00 00 05 05 08 d1 7a a7 c2 05 04 0a 02 27 02 04 03 08 bb c2 03 04 0a 02 29 02 04 06 08 1e ┆ z ' ) ┆
0x186a0…186c0 14 79 bb da 06 04 0a 02 2f 02 04 06 08 59 16 00 d5 cd 06 05 0b 12 00 00 00 05 02 08 21 02 04 0a ┆ y / Y ! ┆
0x186c0…186e0 02 b9 02 04 07 08 19 c1 71 e5 c5 c3 07 05 0b 13 00 00 00 05 06 08 e1 d1 d5 e5 cd 06 05 0b 14 00 ┆ q ┆
0x186e0…18700 00 00 05 02 08 c2 02 04 0a 02 8d 02 04 0a 08 eb 7e 23 4e 06 00 09 91 da 0a 04 0a 02 83 02 04 63 ┆ ü#N c┆
0x18700…18720 (12, 0, 8) ExtentHdr {name=»PROBLK «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,0c (0x018c00)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x18720…18740 13 02 50 52 4f 42 4c 4b 20 20 02 0b 00 01 00 00 00 76 76 76 13 0d 04 50 52 4f 42 4c 4b 20 20 02 ┆ PROBLK vvv PROBLK ┆
0x18740…18760 00 00 08 0d 0d 05 52 55 4e 4e 20 20 20 20 01 00 00 08 0d 07 08 c1 d1 d1 d1 d1 2a 07 05 0b 01 00 ┆ RUNN * ┆
0x18760…18780 00 00 05 04 08 e5 c5 c9 04 02 0f 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x18780…187a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x18800…18900 (12, 0, 9) 0x00[0x100]
[…0x2…]
0x18b00…18b20 (12, 0, 12) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x18be0…18c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x18c00…18c20 (12, 0, 13) ExtentHdr {name=»ALLOCA «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,01 (0x019100)}, f99=00 00 00 05 00 00 00 00 00 00 ┆ ┆}
0x18c20…18c40 13 02 41 4c 4c 4f 43 41 20 20 02 47 00 01 00 00 00 76 76 76 13 0d 04 41 4c 4c 4f 43 41 20 20 02 ┆ ALLOCA G vvv ALLOCA ┆
0x18c40…18c60 00 00 08 0d 0d 05 41 4c 4c 4f 43 20 20 20 01 00 00 08 0d 0c 08 c1 d1 e1 c5 d5 23 23 23 7c a7 c2 ┆ ALLOC ###ø ┆
0x18c60…18c80 0c 04 0a 02 15 00 04 05 08 7d fe 04 d2 05 04 0a 02 15 00 04 04 08 2e 04 cd 04 05 0b 01 00 00 00 ┆ å . ┆
0x18c80…18ca0 05 06 08 d5 13 7a a7 c2 06 04 0a 02 31 00 04 04 08 7b a7 c2 04 04 0a 02 29 00 04 04 08 3e 02 c3 ┆ z 1 æ ) > ┆
0x18ca0…18cc0 04 04 0a 02 32 00 04 04 08 fe 01 c2 04 04 0a 02 31 00 04 02 08 c3 02 04 0a 02 32 00 04 17 08 af ┆ 2 1 2 ┆
0x18cc0…18ce0 d1 eb 73 23 72 23 36 ee 23 eb e1 77 23 36 00 e1 e3 73 23 72 c9 17 02 0f 00 02 00 00 00 00 00 00 ┆ s#r#6 # w#6 s#r ┆
0x18ce0…18d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x18d00…18e00 (12, 0, 14) 0x00[0x100]
[…0x2…]
0x19000…19020 (12, 1, 1) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x190e0…19100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆
0x19100…19120 (12, 1, 2) 00 4c 4c 4f 43 41 20 20 52 41 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 05 00 00 00 00 00 00 ┆ LLOCA RA ┆
0x19120…19140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x19200…19300 (12, 1, 3) 0x63[0x100]
[…0x36d…]