|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / A C D E L M N P S T V p ½
Length: 1887488 (0x1ccd00)
Description: Bits:30009686 Philips computer tape "600310"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| IBM3270 | «none» |
| IBM3270//OBJCT.OB | ⟦b6eb7d847⟧ pts_type |
| IBM3270/CTAB01.SC | ⟦6332fb376⟧ pts_type |
| IBM3270/DATDIV.SC | ⟦7ee696adb⟧ pts_type |
| IBM3270/DRDC25.SC | ⟦805267403⟧ pts_type |
| IBM3270/DW2501.SC | ⟦8564cfb3c⟧ pts_type |
| IBM3270/LIST.UF | ⟦239ea3f1a⟧ pts_type |
| IBM3270/M:PROC.UF | ⟦43f9de80a⟧ pts_type |
| IBM3270/NOIFLI.UF | ⟦5d2e5101a⟧ pts_type |
| IBM3270/PRT.SC | ⟦c9b2127f7⟧ pts_type |
| IBM3270/START.SC | ⟦410f2c9ca⟧ pts_type |
| IBM3270/TB3270.SC | ⟦e7c51f641⟧ pts_type |
| IBM3270/VDUPRT.SC | ⟦69c5527dc⟧ pts_type |
| M:92T1 | «none» |
| M:92T1//OBJCT.OB | ⟦5a54a8a98⟧ pts_type |
| M:92T1/ADDMOD.SC | ⟦c7ac2fb7e⟧ pts_type |
| M:92T1/CTAB01.SC | ⟦c6226a283⟧ pts_type |
| M:92T1/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| M:92T1/DFTAB.SC | ⟦a012a3aa6⟧ pts_type |
| M:92T1/DIVMOD.SC | ⟦b9eb194e5⟧ pts_type |
| M:92T1/DMBUF.SC | ⟦2ccb8c785⟧ pts_type |
| M:92T1/DMFDB.SC | ⟦5996044f6⟧ pts_type |
| M:92T1/DMINIT.SC | ⟦8b092a650⟧ pts_type |
| M:92T1/DMSUBR.SC | ⟦99463989c⟧ pts_type |
| M:92T1/DMSUBX.SC | ⟦d74a1b8df⟧ pts_type |
| M:92T1/DMTASK.SC | ⟦5b5d1678f⟧ pts_type |
| M:92T1/DMTASS.SC | ⟦bc845f52b⟧ pts_type |
| M:92T1/DRDU01.SC | ⟦141bbf5f2⟧ pts_type |
| M:92T1/DRDY01.SC | ⟦06d91c7bd⟧ pts_type |
| M:92T1/DRFD01.SC | ⟦d7c39ca98⟧ pts_type |
| M:92T1/DRGP01.SC | ⟦c67c26407⟧ pts_type |
| M:92T1/DRKB01.SC | ⟦6d6cbd891⟧ pts_type |
| M:92T1/DRLP01.SC | ⟦f6c0ebe59⟧ pts_type |
| M:92T1/DRLT01.SC | ⟦5b09e9d39⟧ pts_type |
| M:92T1/DRSOP1.SC | ⟦a5fc48355⟧ pts_type |
| M:92T1/DRTC01.SC | ⟦e977c69bc⟧ pts_type |
| M:92T1/DSUMOD.SC | ⟦6f31fa202⟧ pts_type |
| M:92T1/DVDY00.SC | ⟦37a02e463⟧ pts_type |
| M:92T1/DVDY01.SC | ⟦133e556f3⟧ pts_type |
| M:92T1/DVDY02.SC | ⟦a73674542⟧ pts_type |
| M:92T1/DVGP03.SC | ⟦792e6fefa⟧ pts_type |
| M:92T1/DVKB00.SC | ⟦19a94db7f⟧ pts_type |
| M:92T1/DVKB01.SC | ⟦c26a29d57⟧ pts_type |
| M:92T1/DVKB02.SC | ⟦596a97059⟧ pts_type |
| M:92T1/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| M:92T1/DVTGP.SC | ⟦93b53e66f⟧ pts_type |
| M:92T1/DVTKB.SC | ⟦4c3fd787c⟧ pts_type |
| M:92T1/EBCDIC.SC | ⟦7e6f3e5a7⟧ pts_type |
| M:92T1/LDTASK.SC | ⟦099aab591⟧ pts_type |
| M:92T1/LKMAL.SC | ⟦632bd603f⟧ pts_type |
| M:92T1/LRPINT.SC | ⟦6c520b0cf⟧ pts_type |
| M:92T1/M:92T1.LM | ⟦03db98a2d⟧ pts_type |
| M:92T1/M:92T1.UF | ⟦9b6177511⟧ pts_type |
| M:92T1/MONTAB.SC | ⟦8097f2bcd⟧ pts_type |
| M:92T1/MONTIM.SC | ⟦fb9ae6566⟧ pts_type |
| M:92T1/MPYMOD.SC | ⟦b99312d7a⟧ pts_type |
| M:92T1/MSUBS.SC | ⟦73979b4c8⟧ pts_type |
| M:92T1/PFTAB.SC | ⟦76c737fa9⟧ pts_type |
| M:92T1/SCLASS.SC | ⟦aea4d2186⟧ pts_type |
| M:92T1/SYSLDA.SC | ⟦5d218c8f1⟧ pts_type |
| M:92T1/SYSLDM.SC | ⟦853b36640⟧ pts_type |
| M:92T1/SYSTAB.SC | ⟦f862ed2d8⟧ pts_type |
| M:92T1/TABORT.SC | ⟦e23f7d676⟧ pts_type |
| M:92T1/TASS.SC | ⟦3eaf702aa⟧ pts_type |
| M:92T1/TCLASS.SC | ⟦5e32b6d01⟧ pts_type |
| M:92T1/TDISP.SC | ⟦c8d56ee8c⟧ pts_type |
| M:92T1/TIMER.SC | ⟦50ad6441b⟧ pts_type |
| M:92T1/TIODM.SC | ⟦2a3b26c60⟧ pts_type |
| M:92T1/TOSSIO.SC | ⟦3854ea848⟧ pts_type |
| M:92T1/TPROC.SC | ⟦4526d3ef3⟧ pts_type |
| M:92T1/TTMJOB.SC | ⟦3a472be1f⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»M:92T1«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0eb8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92T1«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1b20, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2588, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1be8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bd8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bf8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2478, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c40, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c90, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d28, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1cb0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ce8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2060, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1db0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ff8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c18, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2450, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2050, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2070, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2378, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1be0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2120, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2248, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2190, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2280, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2308, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d00, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c98, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d40, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2548, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c80, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2490, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c60, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d78, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d70, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2620, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2638, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2650, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2668, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2680, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c20, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c28, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2508, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2518, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2578, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:92T1«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2770, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000e34 (0, 1) Opaque[0x194]
0x000e34…000fc8 # DirEnt {nam=»M:92T1«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1b20, f03=0x0000}
0x000e34…000fc8 IdxSect {
0x000e34…000fc8 f00 = 0x00d9 // 0xe34 @0x0
0x000e34…000fc8 f01 = 0x000c // 0xe36 @0x2
0x000e34…000fc8 gno = [ // 0xe38 @0x4
0x000e34…000fc8 [0x00]: C0x00d9.0x0.0
0x000e34…000fc8 [0x01]: C0x00dd.0x2.0
0x000e34…000fc8 [0x02]: C0x00dd.0x3.0
0x000e34…000fc8 [0x03]: C0x00de.0x0.0
0x000e34…000fc8 [0x04]: C0x00de.0x1.0
0x000e34…000fc8 [0x05]: C0x00de.0x2.0
0x000e34…000fc8 ]
0x000e34…000fc8 }
0x000fc8…00115c Dummy {f00=0x00d9, f01=0x0190, f02=» ASG /02,NO MOV TCLASS,/S,TOSSWORK KPF /S,TCLASS 4 SCR J INC TCLASS,TOSSWORK V KPF /O r MOV SCLASS,/S,TOSSWORK KPF /S,SCLASS SCR INC SCLASS,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK
0x00115c…0012f0 Dummy {f00=0x00d9, f01=0x0190, f02=» INC SYSTAB,TOSSWORK KPF /O MOV TDISP,/S,TOSSWORK . KPF /S,TDISP L SCR ` INC TDISP,TOSSWORK l KPF /O MOV LRPINT,/S,TOSSWORK KPF /S,LRPINT SCR INC LRPINT,TOSSWORK KPF /O MOV TPR
0x0012f0…001484 Dummy {f00=0x00d9, f01=0x0190, f02=»BS SCR INC MSUBS,TOSSWORK KPF /O 2 MOV TTMJOB,/S,TOSSWORK @ KPF /S,TTMJOB ^ SCR t INC TTMJOB,TOSSWORK KPF /O MOV TOSSIO,/S,TOSSWORK KPF /S,TOSSIO SCR INC TOSSIO,TOSSWORK KP
0x001484…001618 Dummy {f00=0x00d9, f01=0x018e, f02=»WORK ~ KPF /S,SYSLDA SCR " INC SYSLDA,TOSSWORK . KPF /O J MOV LDTASK,/S,TOSSWORK X KPF /S,LDTASK v SCR INC LDTASK,TOSSWORK KPF /O MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB SCR INC PFT
0x001618…0017ac Dummy {f00=0x00d9, f01=0x018e, f02=» MOV CTABX,/S,TOSSWORK KPF /S,CTABX " SCR 6 INC CTABX,TOSSWORK B KPF /O ^ MOV DVTKB,/S,TOSSWORK l KPF /S,DVTKB SCR INC DVTKB,TOSSWORK KPF /O MOV DVTGP,/S,TOSSWORK KPF /S,DVTGP SC
0x0017ac…001940 Dummy {f00=0x00d9, f01=0x0190, f02=» z KPF /O MOV DRKB01,/S,TOSSWORK KPF /S,DRKB01 4 SCR J INC DRKB01,TOSSWORK V KPF /O r MOV DRGP01,/S,TOSSWORK KPF /S,DRGP01 SCR INC DRGP01,TOSSWORK KPF /O MOV DRDY01,/S,TOSSWORK
0x001940…001ad4 (0, 2) Dummy {f00=0x00dd, f01=0x0190, f02=» INC DRLT01,TOSSWORK KPF /O MOV DRTC01,/S,TOSSWORK . KPF /S,DRTC01 L SCR b INC DRTC01,TOSSWORK n KPF /O MOV DRSOP1,/S,TOSSWORK KPF /S,DRSOP1 SCR INC DRSOP1,TOSSWORK KPF /O MOV DR
0x001ad4…001c68 Dummy {f00=0x00dd, f01=0x018e, f02=»,DRLP01 SCR INC DRLP01,TOSSWORK KPF /O 8 MOV DRFD01,/S,TOSSWORK F KPF /S,DRFD01 d SCR z INC DRFD01,TOSSWORK KPF /O LED DRKB01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$
0x001c68…001dfc Dummy {f00=0x00dd, f01=0x0190, f02=» !!CH $$ X:I$$ 0$$ !!CH $$ X:J$$ 000$$ !!CH $$ X:K$$ 00$$ : !!EN T ASM /S ` KPF /O n KPF /S | SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$
0x001dfc…001f90 Dummy {f00=0x00dd, f01=0x018e, f02=» KPF /O KPF /S SCR LED DRLT01 , !!CH $$ X:A$$ 0$$ > !!CH $$ X:B$$ 1$$ X !!CH $$ X:C$$ 0$$ r !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 01$$ !!EN ASM /S KPF /O KPF /S SCR LED DR
0x001f90…002124 Dummy {f00=0x00dd, f01=0x018e, f02=» | !!EN ASM /S KPF /O " KPF /S 0 SCR > LED DRLP01 J !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 000$$ v !!EN ASM /S KPF /O KPF /S SCR LED DRFD01 !!CH $$ X:A$$ 1$$ !!CH $$
0x002124…0022b8 Dummy {f00=0x00dd, f01=0x0190, f02=» KPF /S SCR MOV EBCDIC,/S,TOSSWORK KPF /S,EBCDIC < SCR R INC EBCDIC,TOSSWORK ^ KPF /O z LED EBCDIC !!EN ASM /S KPF /O KPF /S SCR LED DVTKB !!DL 35 DATA 0,0,
0x0022b8…00244c Dummy {f00=0x00dd, f01=0x0190, f02=»X:A$$ 1$$ !!EN ASM /S KPF /O , KPF /S : SCR H MOV TIMER,/S,TOSSWORK T KPF /S,TIMER r SCR INC TIMER,TOSSWORK KPF /O MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR INC TPROC,TOS
0x00244c…0025e0 Dummy {f00=0x00dd, f01=0x0190, f02=»V MONTIM,/S,TOSSWORK KPF /S,MONTIM SCR 2 INC MONTIM,TOSSWORK > KPF /O Z MOV TASS,/S,TOSSWORK h KPF /S,TASSI SCR INC TASS,TOSSWORK KPF /O LED LKMAL !!DL 016 !!DL 017 !!DL 0
0x0025e0…002774 (0, 3) Dummy {f00=0x00dd, f01=0x0190, f02=»DL 040 DATA 00 !!DL 042 * DATA 00 : !!DL 045 V DATA 00 f !!DL 048 !!DL 049 !!DL 050 !!DL 051 !!EN ASM /S KPF /O KPF /S SCR LED
0x002774…002908 Dummy {f00=0x00dd, f01=0x0190, f02=»KPF /S,TIODM SCR INC TIODM,TOSSWORK KPF /O < MOV DMTASK,/S,TOSSWORK J KPF /S,DMTASK h SCR ~ INC DMTASK,TOSSWORK KPF /O MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT SCR INC DMINIT,TOSSWORK
0x002908…002a9c Dummy {f00=0x00dd, f01=0x0190, f02=»,/S,TOSSWORK KPF /S,DMTASS SCR * INC DMTASS,TOSSWORK 6 KPF /O R MOV DMBUF,/S,TOSSWORK ` KPF /S,DMBUF ~ SCR INC DMBUF,TOSSWORK KPF /O MOV DMFDB,/S,TOSSWORK KPF /S,DMFDB SCR IN
0x002a9c…002c30 Dummy {f00=0x00dd, f01=0x0190, f02=» MOV DMSUBX,/S,TOSSWORK KPF /S,DMSUBX & SCR < INC DMSUBX,TOSSWORK H KPF /O d MOV ADDMOD,/S,TOSSWORK r KPF /S,ADDMOD SCR INC ADDMOD,TOSSWORK KPF /O MOV DSUMOD,/S,TOSSWORK KPF /S,DSUMOD
0x002c30…002dc4 Dummy {f00=0x00dd, f01=0x018e, f02=»,TOSSWORK KPF /O MOV DIVMOD,/S,TOSSWORK KPF /S,DIVMOD > SCR T INC DIVMOD,TOSSWORK ` KPF /O | MOV DMSUBR,/S,TOSSWORK KPF /S,DMSUBR SCR INC DMSUBR,TOSSWORK KPF /O LED TIODM !!
0x002dc4…002f58 Dummy {f00=0x00dd, f01=0x0190, f02=» x !!EN ASM /S KPF /O " KPF /S 0 SCR > LED DMTASK J !!CH $$ X:A$$ 00001$$ !!CH $$ X:B$$ 00000$$ z !!CH $$ X:C$$ 00004$$ !!EN ASM /S KPF /O KPF /S SCR LED DMTASS
0x002f58…0030ec Dummy {f00=0x00dd, f01=0x018e, f02=»B !!EN ASM /S KPF /O $ KPF /S 2 SCR @ LED DMFDB L !!CH $$ X:A$$ 00192$$ ^ !!CH $$ X:B$$ 00120$$ | !!CH $$ X:C$$ 00000$$ !!CH $$ X:D$$ 00096$$ !!EN ASM /S KPF /O KPF /S
0x0030ec…003280 Dummy {f00=0x00dd, f01=0x0190, f02=» N J!!CH $$C1 EQU 0$$C1 DATA /0D5E,/3D44,/4546,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F$$ N J!!CH $$C2 EQU 0$$C2 DATA /4241,/180A,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F$$ V N J!!CH $$C4 EQU 0$$C4 DATA /3A55,/5358,/5220,/2059,/5654,/575A,/7F7F,/7F7F$$ N J!!CH $$C5 EQU
0x003280…003414 (0, 4) Dummy {f00=0x00de, f01=0x0190, f02=»7F7F$$ L !!EN ASM /S KPF /O ( KPF /S 6 SCR D LED SYSTAB P !!CH $$IHINPT$$TRAP$$ b !!CH $$ X:A$$ 00000$$ !!CH $$ EXTRN BUG$$*$$ !!CH $$ BUG$$ 0$$ !!CH $$ X:B$$ 00007$$ !!CH $$ X:C$$ 00004$
0x003414…0035a8 Dummy {f00=0x00de, f01=0x0190, f02=»DL 062 !!DL 065 !!DL 066 !!DL 067 . !!DL 068 > !!DL 069 N !!DL 070 ^ !!DL 071 n !!DL 073 ~ !!DL 074 !!DL 075 !!DL 078 !!DL 081 !!DL 85 !!DL 122 DATA ILLINT
0x0035a8…00373c Dummy {f00=0x00de, f01=0x0190, f02=»ILLINT ~ !!DL 128 DATA ILLINT !!DL 131 > DATA ILLINT N !!DL 132 n DATA ILLINT ~ !!DL 133 DATA ILLINT !!DL 134 DATA ILLINT !!DL 135
0x00373c…0038d0 Dummy {f00=0x00de, f01=0x018e, f02=»DL 140 DATA ILLINT !!DL 141 . DATA ILLINT > !!DL 142 ^ DATA ILLINT n !!DL 150 DATA ILLINT !!DL 159 DATA ILLINT !!EN ASM /S
0x0038d0…003a64 Dummy {f00=0x00de, f01=0x0190, f02=» !!DL 020 !!DL 022 !!DL 023 $ !!DL 024 4 !!DL 025 D !!DL 026 T !!DL 027 d !!DL 028 t !!DL 029 !!DL 030 !!DL 031 !!DL 032 !!DL 035 !!DL 037 !!DL 038 !!IL 40 !!DL
0x003a64…003bf8 Dummy {f00=0x00de, f01=0x0190, f02=» !!DL 054 !!DL 055 !!DL 056 $ !!DL 057 4 !!DL 058 D !!DL 059 T !!DL 060 d !!DL 063 t !!DL 065 !!DL 066 !!EN ASM /S KPF /O KPF /S SCR LED DVTKB !!CH $$DVTKB$$DV
0x003bf8…003d8c Dummy {f00=0x00de, f01=0x0190, f02=»ASM /S KPF /O KPF /S SCR * LED DVTDY 6 !!CH $$DVTDY$$DVDY00$$ H !!CH $$/ABC$$/0824$$ f !!CH $$/1111$$/C010$$ !!EN ASM /S KPF /O KPF /S SCR LED DVTKB !!CH $$DVTKB$$DVKB01
0x003d8c…003f20 Dummy {f00=0x00de, f01=0x0190, f02=»/S KPF /O KPF /S SCR & LED DVTDY 2 !!CH $$DVTDY$$DVDY01$$ D !!CH $$/ABC$$/1850$$ b !!CH $$/1111$$/C000$$ ~ !!EN ASM /S KPF /O KPF /S SCR LED DVTKB !!CH $$DVTKB$$DVKB01$$
0x003f20…0040b4 (0, 5) Dummy {f00=0x00de, f01=0x0190, f02=»XTRN CTAB01$$ !!CH $$ECH$$DVDY01$$ !!EN 2 ASM /S > KPF /O L KPF /S Z SCR h LED DVTKB t !!CH $$DVTKB$$DVKB02$$ !!CH $$/1111$$/1110$$ !!CH $$BCA$$FFFF$$ !!CH $$ED0$$FFBA$$ !!CH $$ECH$$DVDY02
0x0040b4…004248 Dummy {f00=0x00de, f01=0x0190, f02=»$$/1115$$ !!CH $$BCA$$FFFF$$ !!CH $$ED0$$FFBA$$ , !!CH $$8000$$8002$$ F !!CH $$ECH$$DVDY02$$ b !!EN ~ ASM /S KPF /O KPF /S SCR LED DVTDY !!CH $$DVTDY$$DVDY02$$ !!CH $$/ABC$$/1850$$
0x004248…0043dc Dummy {f00=0x00de, f01=0x0190, f02=»03$$ ~ !!CH $$/1111$$/2000$$ !!EN * ASM /S 6 KPF /O D KPF /S R SCR ` LED TCLASS l !!IL 6 ~ EXTRN DVKB00 EXTRN DVDY00 EXTRN DVKB01 EXTRN DVDY01
0x0043dc…004570 Dummy {f00=0x00de, f01=0x0190, f02=»00 | DATA TC01 ! DATA TC02 ! ( DATA TC03 ! F !!IL 12 ! d TC00 DATA TC00E-* ! t DATA /0020 ! DATA DVKB00 ! DATA /00300 ! DATA
0x004570…004704 Dummy {f00=0x00de, f01=0x0190, f02=» DATA /00301 " DATA DVDY01 " $ DATA /00201 " D DATA DVKB01 " d TC01E EQU * " TC02 DATA TC02E-* " DATA /00201 " DATA DVKB02 "
0x004704…004898 Dummy {f00=0x00de, f01=0x0190, f02=» * " TC03 DATA TC03E-* # DATA /00802 # 0 DATA DVGP03 # P TC03E EQU * # p !!EN # ASM /S # KPF /O # KPF /S # SCR # LED SCLASS # !!IL 6 # EXTRN DWTC01 #
0x004898…004a2c Dummy {f00=0x00de, f01=0x0190, f02=» EXTRN DWFD01 # !!IL 11 $ DATA TC00 $ . DATA TC01 $ L DATA TC02 $ j !!IL 12 $ TC00 DATA TC00E-* $ DATA /00121 $ DATA DWTC01 $ DATA
0x004a2c…004bc0 Dummy {f00=0x00de, f01=0x0190, f02=» $ x DATA DWLP01 % TC01E EQU * % ( TC02 DATA TC02E-* % D DATA /00F21 % f DATA DWDU02 % DATA /01F31 % DATA DWDU02 % DATA /00F01 % DATA DWDU01 %
0x004bc0…004d54 (0, 6) Dummy {f00=0x00de, f01=0x0190, f02=» DATA DWFD01 & DATA /02FA1 & DATA DWFD01 & : DATA /03FB1 & P DATA DWFD01 & p TC02E EQU * & !!EN & ASM /S & KPF /O & KPF /S & SCR & LED MONTAB & !!IL 19 & **
0x004d54…004ee8 Dummy {f00=0x00de, f01=0x0190, f02=» & !!DL 031 ' !!DL 032 ' !!DL 033 ' ( !!IL 47 ' 8 **** ' H DATA CTAB01 ' T !!DL 48 ' j !!DL 050 ' z !!DL 052 ' !!DL 053 ' !!DL 056 ' !!DL 057 ' !!DL 058 ' !!DL 059 ' !!DL 060 ' !!DL 061 '
0x004ee8…00507c Dummy {f00=0x00de, f01=0x0022, f02=»/L,M:92T1 ' ASG /E0,TY10 ( !!DL 033 ' ( !!IL 47 ' 8 **** ' H DATA CTAB01 ' T !!DL 48 ' j !!DL 050 ' z !!DL 052 ' !!DL 053 ' !!DL 056 ' !!DL 057 ' !!DL 058 ' !!DL 059 ' !!DL 060 ' !!DL 061 '
0x00507c…005210 Dummy {f00=0x00de, f01=0x2008, f02=» ) 1 ' ASG /E0,TY10 ( !!DL 033 ' ( !!IL 47 ' 8 **** ' H DATA CTAB01 ' T !!DL 48 ' j !!DL 050 ' z !!DL 052 ' !!DL 053 ' !!DL 056 ' !!DL 057 ' !!DL 058 ' !!DL 059 ' !!DL 060 ' !!DL 061 '
0x005210…0053a4 Dummy {f00=0x00de, f01=0x0000, f02=»
[…0x3…]
0x005860…0059f4 (0, 7) Opaque[0x194]
0x0059f4…005b88 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2588, f03=0x0000}
0x0059f4…005b88 IdxSect {
0x0059f4…005b88 f00 = 0x012c // 0x59f4 @0x0
0x0059f4…005b88 f01 = 0x0002 // 0x59f6 @0x2
0x0059f4…005b88 gno = [ // 0x59f8 @0x4
0x0059f4…005b88 [0x00]: C0x012c.0x1.0
0x0059f4…005b88 ]
0x0059f4…005b88 }
0x005b88…005d1c Dummy {f00=0x012c, f01=0x0190, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVKB01 P EXTRN DVDY01 P
0x005d1c…005eb0 Dummy {f00=0x012c, f01=0x0190, f02=»ATA TCLASE-* P DATA TC00 P DATA TC01 2 P DATA TC02 P P DATA TC03 n PTCLASE EQU * PTC00 DATA TC00E-* P DATA /0020 P DATA DVKB00 P
0x005eb0…006044 Dummy {f00=0x012c, f01=0x0190, f02=» /0020 P DATA DVKB01 P DATA /0030 0 P DATA DVDY01 P P DATA /0020 p P DATA DVKB01 PTC01E EQU * PTC02 DATA TC02E-* P DATA /0020
0x006044…0061d8 Dummy {f00=0x012c, f01=0x40c8, f02=» DATA DVDY02 PTC02E EQU * PTC03 DATA TC03E-* : P DATA /0080 P DATA DVGP03 | PTC03E EQU * P END @ PTC02 DATA TC02E-* P DATA /0020
0x0061d8…00636c Dummy {f00=0x012c, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x00636c…006500 Dummy {f00=0x012c, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x006500…006694 (0, 8) Opaque[0x194]
0x006694…006828 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1be8, f03=0x0000}
0x006694…006828 IdxSect {
0x006694…006828 f00 = 0x00df // 0x6694 @0x0
0x006694…006828 f01 = 0x008e // 0x6696 @0x2
0x006694…006828 gno = [ // 0x6698 @0x4
0x006694…006828 [0x00]: C0x00df.0x1.0
0x006694…006828 [0x01]: C0x00df.0x2.0
0x006694…006828 [0x02]: C0x00e0.0x0.0
0x006694…006828 [0x03]: C0x00e0.0x2.0
0x006694…006828 [0x04]: C0x00e1.0x3.0
0x006694…006828 [0x05]: C0x00e1.0x2.0
0x006694…006828 [0x06]: C0x00e4.0x1.0
0x006694…006828 [0x07]: C0x00e5.0x1.0
0x006694…006828 [0x08]: C0x00e7.0x0.0
0x006694…006828 [0x09]: C0x00e7.0x3.0
0x006694…006828 [0x0a]: C0x00ed.0x0.0
0x006694…006828 [0x0b]: C0x00ed.0x1.0
0x006694…006828 [0x0c]: C0x00f4.0x2.0
0x006694…006828 [0x0d]: C0x00f4.0x3.0
0x006694…006828 [0x0e]: C0x00f5.0x0.0
0x006694…006828 [0x0f]: C0x00f4.0x1.0
0x006694…006828 [0x10]: C0x00ec.0x3.0
0x006694…006828 [0x11]: C0x0101.0x2.0
0x006694…006828 [0x12]: C0x0102.0x1.0
0x006694…006828 [0x13]: C0x0102.0x3.0
0x006694…006828 [0x14]: C0x0103.0x1.0
0x006694…006828 [0x15]: C0x0103.0x3.0
0x006694…006828 [0x16]: C0x0104.0x1.0
0x006694…006828 [0x17]: C0x0106.0x3.0
0x006694…006828 [0x18]: C0x0108.0x3.0
0x006694…006828 [0x19]: C0x010c.0x1.0
0x006694…006828 [0x1a]: C0x010f.0x2.0
0x006694…006828 [0x1b]: C0x0112.0x0.0
0x006694…006828 [0x1c]: C0x010c.0x0.0
0x006694…006828 [0x1d]: C0x0116.0x0.0
0x006694…006828 [0x1e]: C0x0115.0x3.0
0x006694…006828 [0x1f]: C0x011b.0x2.0
0x006694…006828 [0x20]: C0x011b.0x1.0
0x006694…006828 [0x21]: C0x011f.0x0.0
0x006694…006828 [0x22]: C0x011f.0x1.0
0x006694…006828 [0x23]: C0x010f.0x1.0
0x006694…006828 [0x24]: C0x0120.0x3.0
0x006694…006828 [0x25]: C0x0121.0x0.0
0x006694…006828 [0x26]: C0x0118.0x0.0
0x006694…006828 [0x27]: C0x0122.0x3.0
0x006694…006828 [0x28]: C0x0123.0x0.0
0x006694…006828 [0x29]: C0x00e9.0x0.0
0x006694…006828 [0x2a]: C0x00e8.0x3.0
0x006694…006828 [0x2b]: C0x00ea.0x3.0
0x006694…006828 [0x2c]: C0x0122.0x1.0
0x006694…006828 [0x2d]: C0x0124.0x1.0
0x006694…006828 [0x2e]: C0x0129.0x1.0
0x006694…006828 [0x2f]: C0x0129.0x2.0
0x006694…006828 [0x30]: C0x0124.0x0.0
0x006694…006828 [0x31]: C0x012c.0x2.0
0x006694…006828 [0x32]: C0x012c.0x3.0
0x006694…006828 [0x33]: C0x00eb.0x1.0
0x006694…006828 [0x34]: C0x012e.0x2.0
0x006694…006828 [0x35]: C0x012f.0x0.0
0x006694…006828 [0x36]: C0x0130.0x3.0
0x006694…006828 [0x37]: C0x0131.0x2.0
0x006694…006828 [0x38]: C0x0132.0x1.0
0x006694…006828 [0x39]: C0x0133.0x0.0
0x006694…006828 [0x3a]: C0x0133.0x3.0
0x006694…006828 [0x3b]: C0x0136.0x2.0
0x006694…006828 [0x3c]: C0x0136.0x3.0
0x006694…006828 [0x3d]: C0x0126.0x2.0
0x006694…006828 [0x3e]: C0x0101.0x1.0
0x006694…006828 [0x3f]: C0x0127.0x2.0
0x006694…006828 [0x40]: C0x0128.0x0.0
0x006694…006828 [0x41]: C0x0128.0x2.0
0x006694…006828 [0x42]: C0x0129.0x0.0
0x006694…006828 [0x43]: C0x012c.0x0.0
0x006694…006828 [0x44]: C0x012e.0x0.0
0x006694…006828 [0x45]: C0x012e.0x3.0
0x006694…006828 [0x46]: C0x013b.0x1.0
0x006694…006828 ]
0x006694…006828 }
0x006828…0069bc Dummy {f00=0x00df, f01=0xc0b0, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x0069bc…006b50 Dummy {f00=0x00df, f01=0xc0b0, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x006b50…006ce4 Dummy {f00=0x00df, f01=0x0190, f02=» J F IDENT MONTAB REL 9.2 79-11-16 870105040920 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R & " INTRT1 INTRT2 INTRT3 INTRT4 MONTABK FREQUE PAGQUE INT
0x006ce4…006e78 Dummy {f00=0x00df, f01=0x40dc, f02=» INTRT4 SYSLOD CTAB01L $ KBADN 6 * & F GPADN t DYADN SPDLCI " @ FREQUE PAGQUE INT
0x006e78…00700c Dummy {f00=0x00df, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x00700c…0071a0 Dummy {f00=0x00df, f01=0x0190, f02=»:PA PAG:SB SWB:NC SWB:DS SWB:ELS SWB:NS0 z T:ACSB 4 SEG:ST F SEG:DSL Z SEG:EL n SEG:PBI PAG:QF PAG:QBV PAG:PA PAG:SB SWB:NC SWB:DS
0x0071a0…007334 (0, 9) Dummy {f00=0x00df, f01=0x0190, f02=» IHTCN , ( IHSOP > CHLT1 N IHFDN ^ , ( n , ( ! , ( 1 IHLPN
0x007334…0074c8 Dummy {f00=0x00df, f01=0x018e, f02=» a , ( q . HALTN ^ n SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL
0x0074c8…00765c Dummy {f00=0x00df, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL , SCTMMP @ SCTLAP T SCTNPE h SCTSTB | SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x00765c…0077f0 Dummy {f00=0x00df, f01=0x405e, f02=» _ ( H@ Z T SCTNPE h SCTSTB | SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x0077f0…007984 Dummy {f00=0x00df, f01=0x0190, f02=» J F IDENT TDISP REL 9.2 79-11-16 870105040920 8 4 TDISP MEXIT DISIOE DISEND DISQUE PRUNY RETUR8 R DISQUE PRUNY RETUR8 MEXIT EXITN * & > > > > > > > >
0x007984…007b18 Dummy {f00=0x00df, f01=0x0190, f02=» TTB:ST , ( D ; (X> @ P T M ]N , ) TTB:SA` F , ( @ W A P P Y U ( ) 5 X * & u > > > > > > > * & H [ * & H [ [ [ [
0x007b18…007cac Dummy {f00=0x00df, f01=0x409e, f02=» Z Z Z * & H $ > R %W GP ]Pj aP gU h @ > > > > * & H [ * & H [ [ [ [
0x007cac…007e40 Dummy {f00=0x00df, f01=0x0190, f02=» J F IDENT LRPINT 9.2DK 1 79-11-16 870105040920 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG IHLKM INTSAV PRUNN TTB:SA , ( A A
0x007e40…007fd4 (0, 10) Dummy {f00=0x00e0, f01=0x0190, f02=» ( ( P c P W A ~ SWL48 , ( W V ( U . LKMAL ^ LKMERR n HALTN LKMRQE , ( q! P @ V L LKMQDI QTJOB TDISP
0x007fd4…008168 Dummy {f00=0x00e0, f01=0x0190, f02=» A A Q | , ( @ _2 A < Q P Q MONCLO L MEXIT ` , ( Z Y _ 8 p FREBLK0 , ( @" Q Z P 0 9 , ( @_ _, P H
0x008168…0082fc Dummy {f00=0x00e0, f01=0x40f6, f02=» Q A HQ @ < ) A PFINIT 0 * & % k H_ B B A J A _ B H D ! w 4 IP OP SW. aV qP wV 6 Q 6 Q p 8 P $ G l WQ @ _, P H
0x0082fc…008490 Dummy {f00=0x00e0, f01=0x0190, f02=» J F IDENT TPROC REL 9.2 79-11-16 870105040920 * & TWAIT TEXIT TACTOT TPAUSE TMWAIT R FNDDWT TWAIT DWTWAT TEXIT EXITN TDISP * & @ P "R Y W
0x008490…008624 Dummy {f00=0x00e0, f01=0x018a, f02=» P n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x008624…0087b8 Dummy {f00=0x00e0, f01=0x4008, f02=»@ n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x0087b8…00894c Dummy {f00=0x00e0, f01=0x0190, f02=» J F IDENT MSUBS REL 9.2 79-11-16 870105040920 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDTID PFINIT SWL48 SWLXY ILLINT INTSAV@ HALTY IHRET8 IHRET2 IHRET1 IHRTN SAVE8
0x00894c…008ae0 Dummy {f00=0x00e0, f01=0x018e, f02=» $P T I v QMJOB N TTMJOB ( ACTOTP X : , ( = R $ 5 % W N ACTOT ` ~ TTB:SA * & D Y W T T U U TTB:ID , ( s H U U T U
0x008ae0…008c74 (0, 11) Dummy {f00=0x00e0, f01=0x0190, f02=» f GETBLK FREQUE , ( _p ? @ T . FREBLKL ^ * & 0 A 1 Q Q >W 0 @ r FNDDWT TTB:TDW , ( 1 A P P W ? DWTADR
0x008c74…008e08 Dummy {f00=0x00e0, f01=0x0190, f02=» j * & K R Y T ? X D T FNDTID | 8 SCTTCTV L * & e W > _& W > 8 X W ? ` ^ , ( @ @ P $ H W IHRET8 IHRET2 IHRET1 IHRTN
0x008e08…008f9c Dummy {f00=0x00e0, f01=0x4178, f02=» ? _ p SWLXY INTSAV@ " , ( > > ? ^ ! Y ^ _ 6 ILLINT f HALTY z * & A. H D ! $ 5P ?R M WW _W kT T P T H D !
0x008f9c…009130 Dummy {f00=0x00e0, f01=0x0190, f02=» J F IDENT TTMJOB REL 9.2 79-11-16 870105040920 F B TTB:LAK TTB:MT TTB:SB TTMJOB TTB:QL TTB:ID TTB:STL TTB:PP R TTB:PW TTB:SA TTB:TD TTB:LAK TTB:MT TTB:SB TTMJOB
0x009130…0092c4 Dummy {f00=0x00e0, f01=0x407a, f02=»#M 1 TTB:TD ( & ! : ) T * d@ vL TTB:ID TTB:STL TTB:PP R TTB:PW TTB:SA TTB:TD TTB:LAK TTB:MT TTB:SB TTMJOB
0x0092c4…009458 Dummy {f00=0x00e0, f01=0x8190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIX DM:DIX PC:DIX
0x009458…0095ec Dummy {f00=0x00e0, f01=0x818e, f02=»UEC DWTMECS DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2 DWTTP DWTECH2 DWTSQ DWTVOL2 4 DWTCHPH b DWTST v DWTBC DWTECBV DWTOR DWTOCHM DWTADR DWTTAB DWTWAT
0x0095ec…009780 Dummy {f00=0x00e0, f01=0x8190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2 @ DWTTP T DWTECH2 " f DWTSQ , z DWTVOL2 , BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x009780…009914 (0, 12) Dummy {f00=0x00e1, f01=0x8190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 MONMMU LKMQDIO TTB:STS , ( C 8W T TTB:SAR
0x009914…009aa8 Dummy {f00=0x00e1, f01=0x818e, f02=» XH , ( S D #DP @ R XV Y @ TIODM P , ( q P T W X "P ` , ( T X I Y # C , ( C '? Y T Y W Y GETBLK QTJ
0x009aa8…009c3c Dummy {f00=0x00e1, f01=0x818e, f02=» f IHRET8 , ( R (@ L U L Q L , ( % # T R < 5 ^ R < 5 J , ( E Y X D ( ) z MEXIT QMJOB , ( B e 1 > _" X n DC:MOT
0x009c3c…009dd0 Dummy {f00=0x00e1, f01=0x8190, f02=» , ( B 0P X T 4 Y X REQEND9 4 , ( X T X 1 1 X F , ( P - M X P P # P v FREBLKN ACTOTP , ( H 0P 1 _ "W / Y
0x009dd0…009f64 Dummy {f00=0x00e1, f01=0xc04a, f02=» T T P> P. P& P d P +W 8 4@ F X T X 1 1 X F , ( P - M X P P # P v FREBLKN ACTOTP , ( H 0P 1 _ "W / Y
0x009f64…00a0f8 Dummy {f00=0x00e1, f01=0x0190, f02=» > @ IDENT SYSLDM REL 9.2 79-12-20 870105040920 SYSLDM F SYSLDM X SCTSFA l SYSBAS ~ SCTEFA TCLASS , ( I A SCLASS SAVE18
0x00a0f8…00a28c Dummy {f00=0x00e1, f01=0x0190, f02=» , P , - 4 ] CMPADR * SCTOPT < , ( i @ 4 Y 5 X N SAVE01 ~ * & * _6 : @ TTMJOB SCTDMT , ( " ] @ P @
0x00a28c…00a420 Dummy {f00=0x00e1, f01=0x0190, f02=» @ v NXTBLK , ( T Y " !TTX" ( SCTTCT X , ( B$ A 9 A $ : @ $ j SCTDMI , ( %B @ P @ &" P #D " , ( A P #E " P #F : @
0x00a420…00a5b4 (0, 13) Dummy {f00=0x00e1, f01=0x0190, f02=» @ l * & T : SCTDML 8 SAVE04 J , ( @ (:B W * . !TTP SAVE19 SAVE16 , ( W , N =H N W CONVRT SAVE24 , (
0x00a5b4…00a748 Dummy {f00=0x00e1, f01=0x0190, f02=» , ( [ @ " U , ( w _2 P 4 , ( @ " U d , ( _2 V * V , ( ,P S ( V 2 S =J @ , ( " S V
0x00a748…00a8dc Dummy {f00=0x00e1, f01=0x0190, f02=» 9 4 @ @ T FREQUE . , ( S $ : 6 ` @ SCTBLK p , ( k $ @ 8 P _ 3 S BUFSIZ SYSBUF , ( $ S V : V W : < , (
0x00a8dc…00aa70 Dummy {f00=0x00e1, f01=0x0190, f02=» , ( @ V W , * , ( P 4 SAVE17 d , ( + _ P W > v SAVE03 , ( I" W @ V 8 8 4 D MOVE , ( e P
0x00aa70…00ac04 Dummy {f00=0x00e1, f01=0x0190, f02=»X @ @ T , ( D : @ ( , ( H R @ X , ( T P / _ T , ( % D @ A , ( ? B V W
0x00ac04…00ad98 Dummy {f00=0x00e1, f01=0x0190, f02=» V l , ( F V < V D P W , ( $ D _B V W V , < , ( Yr " !TTX @ @ T l * & : , ( " !TTX !CCT , ( P
0x00ad98…00af2c Dummy {f00=0x00e1, f01=0x0190, f02=»DCT , ( g $ $ $ _. @ H @ SCTDMC < , ( A @ ! P V 8 8 8 N SCTCDT ~ , ( @ @ J>B 3 L L . ! * & CCP W P W * & D W F
0x00af2c…00b0c0 Dummy {f00=0x00e1, f01=0x0190, f02=» B @ # P | , ( E H I K T + , ( e H Y@ _`R @ @ H @ L , ( % P V 4 4 4 _r @ | , ( @ T SAVE08 SAVE05 * &
0x00b0c0…00b254 (0, 14) Dummy {f00=0x00e4, f01=0x0190, f02=» q > R P >b W >b DWTECH SYSLOD 2 , ( & 8P D P U V E W X D * & # V W R 9 W D t * & A B ) $ P D L T D DWTSQ , ( ] $ VP V U Z I Z I
0x00b254…00b3e8 Dummy {f00=0x00e4, f01=0x0190, f02=» U p , ( $ V :U W : < , ( < + + P V @ , ( : V N $ F !LLT # p , ( #@@ W R;I # ;b W P;a W # T , ( ? W RW # T W RW , ( [
0x00b3e8…00b57c Dummy {f00=0x00e4, f01=0x0190, f02=» r SAVE23 , ( ^ *T P $ , ( _ / P *_ T , ( *T P _ .P _ / V ^ , ( $ U Y$ P W 2 V ^ 3 , ( % % W P
0x00b57c…00b710 Dummy {f00=0x00e4, f01=0x0190, f02=» : N =H N , ( 0 : N =H N 0 : &=H & , ( F 0 : F =H F 0 : F V , ( =H F 0 : 00=H 00 P , ( P _ _ : @ , ( U ! P (W ( :
0x00b710…00b8a4 Dummy {f00=0x00e4, f01=0x0190, f02=» )P. 3P ; Z X H D !PE AP I Z OP W Z aP iP }P T P #P -W 5P M QP0 U H D !P cU P0 U P< P W #P 1T KT sP w V T ` H D !6 P P P 9 APh I gP$ wP T R T P H D !o #T O W
0x00b8a4…00ba38 Dummy {f00=0x00e4, f01=0x4116, f02=» ! sR& P T P R P W P P W %V )W -R 3W KP@ H D ! YT@ _P {P W P PD P( U P T 9WR =T GW, KT WW ]T L H D ! iW {R T P P T P$ P U P /W ?P KP UW aP sT P P P W B
0x00ba38…00bbcc Dummy {f00=0x00e4, f01=0x0190, f02=» > @ IDENT SYSLDA REL 9.2 79-12-21 870105040920 D @ JUMP SYSLDA dREL LDALEN MOVE ERROR CMPADR NXTBLK NXTCOM F F B CONVRT GETNUM MMTAB TABBE MMEND MMDDIV BUFSIZ SYSBUF M:REL F B SAVE01 SAVE12 SAVE03 SAVE04 SAVE05 SAVE0
0x00bbcc…00bd60 Dummy {f00=0x00e4, f01=0x0190, f02=»AVE21 SAVE22 SAVE23 SAVE24 l SAVE25 & |REL 8 $ W W " H , ( 1 ; Z [ : : [ [ p SYSLDM JUMP , ( Q : SAVE01
0x00bd60…00bef4 (0, 15) Dummy {f00=0x00e5, f01=0x0190, f02=» , ( o SAVE09 4 SAVE10 H SAVE11 SAVE12 p SAVE13 SAVE22 SAVE25 M:REL SYSBUF BUFSIZ , (
0x00bef4…00c088 Dummy {f00=0x00e5, f01=0x0190, f02=» SAVE18 r SAVE19 t SAVE20 n & SAVE21 v : SAVE23 z N SAVE24 | b MMDDIV v MMTAB TABBE MMEND ERROR , ( W Z A. MOV
0x00c088…00c21c Dummy {f00=0x00e5, f01=0x0190, f02=» 0 j SCTTCT , ( : W ; V : : J , ( -@ @ 0 V @ 0 H W L SCTLAC | SCTSFA , ( K : @ A 9n A @ SCTBUG , ( cI A A A.
0x00c21c…00c3b0 Dummy {f00=0x00e5, f01=0x0190, f02=» : v TDISP CONVRT & , ( A > ;h 0 : NXTBLK j NXTCOM ~ , ( :C # : .=H N , ( @" .=H N GETNUM , (
0x00c3b0…00c544 Dummy {f00=0x00e5, f01=0x40e0, f02=» ? ? > v V z ACTOT , ( o" @ N * H D ! W> 2 0 . 1 2 C S Y V W U R V W 7V Z u +R WP* [ h @
0x00c544…00c6d8 Dummy {f00=0x00e5, f01=0x0190, f02=» > @ IDENT LDTASK REL 9.2 79-12-06 870105040920 6 2 LT:DSK LT:SWB TTABLD QLTDSK QLTSWB PQEMTY F PQEMTY TTABLD , ( #L 1 LT:DSK
0x00c6d8…00c86c Dummy {f00=0x00e5, f01=0x0190, f02=» A ( @ PAG:QB PAG:SB 2 , ( D X H A ) @ H D SEG:EL t SCTPSZ , ( H P 1 % E I D >a @ PAG:PA SEG:DS T:ACSB , ( 5
0x00c86c…00ca00 Dummy {f00=0x00e5, f01=0x018e, f02=» g W C U C R , ( _$ C # 0 QTJOB ` MEXIT p * & Y ' ECBRC * & ( B " T :" U TTB:SB , ( H
0x00ca00…00cb94 (0, 16) Dummy {f00=0x00e7, f01=0x4098, f02=» f LKMERR LT:SWB H & ( . 4 0 C@ V P gW qU> R T W J @ ' ECBRC * & ( B " T :" U TTB:SB , ( H
0x00cb94…00cd28 Dummy {f00=0x00e7, f01=0x413e, f02=» J F IDENT PFTAB REL 9.2 79-11-16 870105040920 PFTAB R PFTAB b TCDRON t SOPRN CHLTON FDONN LPONN DUONN DMINITL * & UT
0x00cd28…00cebc Dummy {f00=0x00e7, f01=0xc03e, f02=» (@ :870105040920 PFTAB R PFTAB b TWONN t TCDRON SOPRN CHLTONA C1DRONA C2DRON C3DRON` FDONN * & UT
0x00cebc…00d050 Dummy {f00=0x00e7, f01=0x0190, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT , ( UT
0x00d050…00d1e4 Dummy {f00=0x00e7, f01=0x4030, f02=» p " " @ ,9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT , ( UT
0x00d1e4…00d378 Dummy {f00=0x00e7, f01=0x40aa, f02=» J F IDENT CTABX REL 9.2 79-11-16 870105040920 CTABX R CTABX b t @ P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x00d378…00d50c Dummy {f00=0x00e7, f01=0x4112, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH $ !@ ` 6 ) , + , 6
0x00d50c…00d6a0 Dummy {f00=0x00e7, f01=0x40e8, f02=» J F IDENT DVTGP REL 9.2 79-11-16 870105040920 DVTGP R DVTGP b GPADN t & " GP ! $ $ @ DATA DEVECB MMU ECB ADD
0x00d6a0…00d834 (0, 17) Dummy {f00=0x00e7, f01=0x40ec, f02=» J F IDENT DVTDY REL 9.2 79-11-16 870105040920 DVTDY R DVTDY b DYADN t & " DY ! ( ( @ DEVECB DATA 0,0,0,0,0,0
0x00d834…00d9c8 Dummy {f00=0x00e7, f01=0x8190, f02=» J F IDENT DRKB01 9.2DK 1 79-11-16 870105040920 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ ( z DWTUTQ * KBADY DWTST , ( Y U , ( P R
0x00d9c8…00db5c Dummy {f00=0x00e7, f01=0x8190, f02=» ECHON , ( } V ! B _P B P $$ , ( R % C W Y &X ! D , ( 8$ P W 8$ P $ T W $ t , ( Y 'P Y %P Y $P T ! , ( B Z W W ! * T ! E
0x00db5c…00dcf0 Dummy {f00=0x00e7, f01=0x8190, f02=» ,T 4 W X (P Y * 0 %_. , ( q % Y * _d _ P ( , ( _ ?" 8 T ! )_ W ! T "? 9 X , ( 0 R Q > 4 >_ X R ;G LDREG , ( V X ( $4 P X *T * TDISP
0x00dcf0…00de84 Dummy {f00=0x00e7, f01=0xc102, f02=» ?P CT _T eW kT qW u V p H D !( P R WV P W P T W PH P P T W , H D ! @ W T 5 ST [W eP P T W T R Q R x $ V P T W W T @
0x00de84…00e018 Dummy {f00=0x00e7, f01=0x0190, f02=» > @ IDENT DRGP01 REL 9.2 80-01-03 870105040920 GPAD ECHOGP F GPAD ^ , ( !"$&;<>@^_ x P p DISIOE OUTPUT , ( ! P B P B L # +P ! , ( ? !
0x00e018…00e1ac Dummy {f00=0x00e7, f01=0x0190, f02=» U t , ( P T Y "_* P R P O]: * & V _B T Y Y " R Y D , ( _Z C _P " $ r DWTBC , ( P X " X ]r ! , ( @ Y Y Y _
0x00e1ac…00e340 Dummy {f00=0x00e7, f01=0x0190, f02=» Y " Y t LDREG , ( I > X Z$<BR P 0 $ ECHOGP h T , ( c X _> R V ! P P h , ( P P R ?Q ! Y R Q ECHRTN , ( @ < -_ ? _ X # !
0x00e340…00e4d4 (0, 18) Dummy {f00=0x00ed, f01=0x4100, f02=» ! ! z X " 2 H D ! L h PB !P8 -P ;P KT _W mW U P" T P4 R( : H D ! Pj V T P ) < UR YP mR0 qV0 {P* P P P" R Q R Q P4 P @ !
0x00e4d4…00e668 Dummy {f00=0x00ed, f01=0x8190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( @ DISIOE * & !@ ! P P & , ( =
0x00e668…00e7fc Dummy {f00=0x00ed, f01=0x8190, f02=» GETCHR , ( @ ! X , ( " E P 8'0P E T ! T @ * & 9 _t ! T @_ ! p , ( B P ! B C , ( ^N P R ?] _ C _ DWTBC
0x00e7fc…00e990 Dummy {f00=0x00ed, f01=0x8190, f02=» B Y n , ( " ! W 8!0T 8 !@P ! , ( $ P ! ! ! > TENDIO n * & T Y " T X " C TDISP , ( X Y " Y > X DWTST , ( "
0x00e990…00eb24 Dummy {f00=0x00ed, f01=0x8190, f02=»T X ! Y ~ * & C " Zn T _ ! X ECHODY n L , ( _ $ P ! R V ` ECHRTN * & } P P ! W X , ( @ $ X ! _ X $ X X " , ( B
0x00eb24…00ecb8 Dummy {f00=0x00ed, f01=0x8190, f02=»@ U )X R X , ( # X "" Y & X % V Y , , ( A ! X $ X " ! X & , ( H ] `R Y ! ! , ( { ! 4 ! V , ( ! V W
0x00ecb8…00ee4c Dummy {f00=0x00ed, f01=0xc11e, f02=» L H D ! c P( P TD T T P f P R ?P _ o H D ! u f W T P P T T Q R 1T QT cP g T H D ! qR wV }P P" W f U W U R@ 9V G f U kR V V W R
0x00ee4c…00efe0 Dummy {f00=0x00ed, f01=0x0190, f02=» J F IDENT DRLT01 REL 9.2 79-11-16 870105040920 D @ CHLT1 CHLT2 CHLT3 CHLT4 OUTLIN CHLTON OUTPUTL LDREG LDREGE R H D ! LDREGF STREG GETCHR LOCHAN RECHAN REMFC DWREMU ECHRTN ECHOY ECHEND LOCHAN
0x00efe0…00f174 (0, 19) Dummy {f00=0x00ed, f01=0x0190, f02=» CHLT4 SAVE8 , ( 0 J B B INTSAV P , ( A J ;h # <c$ " b DWTOTQ DWTOCH * & ; P P 4 5 T P ? X U X DWTST , ( W >
0x00f174…00f308 Dummy {f00=0x00ed, f01=0x0190, f02=» , ( Y T 8R W 4 U , ( P $P > R > 8' T Y 4 DWTADR d RECADRf v DWTSB2 * & @ X ' T P X P , ( > Z X DWTOR
0x00f308…00f49c Dummy {f00=0x00ed, f01=0x0190, f02=»UTLIN Z , ( W $P D P P P , ( u H P _ E W Q Y W 8 @ IHRET8 p CHLTON , ( " E 4 % E Y OUTPUTL , ( $ B @ P A Z " P
0x00f49c…00f630 Dummy {f00=0x00ed, f01=0x0190, f02=» LDREGF * & " X Y X LDREGE @ GETCHR T , ( D " X X X ' 4 h , ( B U B (" W C (@ ECHEND 4 ECHOY 8 , ( 3 $ > Y Y
0x00f630…00f7c4 Dummy {f00=0x00ed, f01=0x4128, f02=» TENDIO $ c ( V * X & H D !D 5 ;P ?PR IP [ Z aPZ ePF iP mP wT Wn 0 Tx Rt WP B H D ! D P> P4 R0 T T P P D +T IP OP Y , gP$ mP qP0 4 0 wP W W P , P> P: U 'W KV$ g
0x00f7c4…00f958 Dummy {f00=0x00ed, f01=0xc12a, f02=» A v GP KP` UP g mP qP uP yP( P T W H D ! T R P W Wp R % 3P> 9P4 =R0 ET UT YP cP y @ H D ! T T R P P P P$ P P4 P W W # 7P E 8 4 MP> QP: U W Z T qV$
0x00f958…00faec Dummy {f00=0x00ed, f01=0x0190, f02=» J F IDENT DRTC01 REL 9.2 79-11-16 870105040920 $ IHTCY DWTC01 DWTC02 TCDRON R z DISIOE , ( 1"78 Q P ^ A ECBRL , ( / B X T " T A
0x00faec…00fc80 Dummy {f00=0x00ed, f01=0x0190, f02=» , ( H TCDRON 4 SAVE8 H INIFLG X TDISP j , ( @ @ z , ( P X XN# Y ) W , ( " P P _ :CV + W ,
0x00fc80…00fe14 (0, 20) Dummy {f00=0x00f4, f01=0x0190, f02=»ST DISEND , ( = Y P A , ( W@ A X T L , ( u " P A X P W Y | , ( @ T ] D , ( W @ :CZ _J) @ _ P
0x00fe14…00ffa8 Dummy {f00=0x00f4, f01=0x0190, f02=» _2 l IHTCY @ INTSAV , ( 1 @ _6 _: _> _B A ?M P A 0 , ( O P Q ? A V @ T M -W ,E ` * & o A A > > >M A _ A > , ( ;I , ( U C X "A _@ A
0x00ffa8…01013c Dummy {f00=0x00f4, f01=0x0190, f02=» 4:EV W " ~ , ( % P Y W X $ Q , ( E R _ P U < _ N * & e : V # P W Y P X ' P Y ~ DWTC02 DWTC01 , ( D _ Y " "
0x01013c…0102d0 Dummy {f00=0x00f4, f01=0x0190, f02=» b Px Wf h H D ! P P < V W* T T T % 'P - IP a e $ H D !iU gT k , q ( {P: P < W T( , W 0 p H D !7C P 4 8 P V % IP: M OPd QQ* cT iW q H D
0x0102d0…010464 Dummy {f00=0x00f4, f01=0x4012, f02=» @
0x010464…0105f8 Dummy {f00=0x00f4, f01=0x0190, f02=» J F IDENT DRSOP1 REL 9.2 79-11-16 870105040920 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT , ( T 8P 9W B DISIOE SPDLCI , ( ! D P P
0x0105f8…01078c Dummy {f00=0x00f4, f01=0x0190, f02=» DWTECBC ECBCW ECBEL " , ( U :A X R C C 2 TENDIO b TDISP t SOPRY v , ( m$ A @ A. DWSI01 , ( X V 9_>
0x01078c…010920 Dummy {f00=0x00f4, f01=0x401e, f02=» X @ ECBEL " , ( U :A X R C C 2 TENDIO b TDISP t SOPRY v , ( m$ A @ A. DWSI01 , ( X V 9_>
0x010920…010ab4 (0, 21) Dummy {f00=0x00f4, f01=0x818e, f02=» J F IDENT DRDU01 REL 9.2 79-11-16 870105040920 4 0 DUADR DUONY IHDU1 IHDUY IHDU2 DWDU01 DWDU02 R DUADR , ( DWTOR , ( 3 P X
0x010ab4…010c48 Dummy {f00=0x00f4, f01=0x8190, f02=» f , ( P Y ! 9 R ! 9 R , ( Y W P U ! ! ! P 8 , ( W X @ @ ! ! ! P h , ( W W ! ! ! P b X , ( X _t W P W B , ( / Y Y
0x010c48…010ddc Dummy {f00=0x00f4, f01=0x8190, f02=» Y Y x TDISP DUONY ( SAVE8 : INIFLGN J DWTST , ( @ P l DWTSB2~ DWTECB` , ( H Y ! P X Y TENDIOC , (
0x010ddc…010f70 Dummy {f00=0x00f4, f01=0x8190, f02=»_| t IHDU2 IHDUY & IHDU1 8 INTSAV J , ( _ A _v A I , ( - F 9AZh9a X V # T X X , ( ID X '? 4 T B C * & eA X P X "
0x010f70…011104 Dummy {f00=0x00f4, f01=0x818e, f02=»P ) P z * & D @ T X Q X X DWDU02 H DWDU01 , ( T Y _l Y 4 p , ( * & ) B B r s H D ! @ 4 9
0x011104…011298 Dummy {f00=0x00f4, f01=0xc132, f02=» J H D !4 W W V P T < W %P 'W 3 ( 7 * = < CW, GW( K H D ! M UW Y _W c < k } $ | P: P : W< T H D !^ P P ' 7 8 9V ?T YT iP { 8 Td < , ( TR , P P P T
0x011298…01142c Dummy {f00=0x00f4, f01=0x0190, f02=» J F IDENT DRLP01 REL 9.2 79-11-16 870105040920 & " LPADR ACLPY IHLPY LPONY DWLP01 R LPADR | ACLPY DWTBC , ( T 1 W B DISIOEC , ( B P P
0x01142c…0115c0 Dummy {f00=0x00f4, f01=0x018e, f02=» TDISP DWTA5 , ( } Q 1 Y $ LPONY T SAVE8 f DWTST v * & @ @ r t B X _ X IHLPY INTSAV DWTOR , ( Z(W A I
0x0115c0…011754 (0, 22) Dummy {f00=0x00f5, f01=0x407a, f02=» n H D ! T WP %PD )P 3V I OT UW _P eP m qT uV W T d@ vWTST v * & @ @ r t B X _ X IHLPY INTSAV DWTOR , ( Z(W A I
0x011754…0118e8 Dummy {f00=0x00f5, f01=0x8190, f02=» > @ IDENT DRFD01 REL 9.2 79-12-05 870105040920 FDADR IHFD FDON DWFD01 F FDADR j DWTOR | , ( X ! Y X ! , ( Y T & , ( ? P P P
0x0118e8…011a7c Dummy {f00=0x00f5, f01=0x8190, f02=» ;a;A:C* ! . B , ( B _F ! ! T . , ( Y X ! # X Y ^ , ( X ! Y # T X Y DWTA5 , ( _ Y W Y Y Y Y B ECBRL
0x011a7c…011c10 Dummy {f00=0x00f5, f01=0x8190, f02=» DWTA2 DWTSB2 , ( S $ _ Y " DWTST R , ( k X T X Y Y X P b SETIMP , ( @ y _@ _P Y , ( X P Y : ! * & @
0x011c10…011da4 Dummy {f00=0x00f5, f01=0x8190, f02=» , ( D$ X '? A , ( (@ X X K P X T $ D 8 , ( 3 C Y B K & E % h , ( Q Y B K X ;AR ;a , ( m X P Y P 7P , (
0x011da4…011f38 Dummy {f00=0x00f5, f01=0x8190, f02=» ECBBA , ( ] W : B R Q 9C B , ( ! T 4 T b P ;A _ 4 H DWFD01 8 x , ( $ # A 8;D A 8 4 , ( C , ( c
0x011f38…0120cc Dummy {f00=0x00f5, f01=0xc15e, f02=» T T T T & h H D !s & L $ B * & B $ & T * ! H #W ) H - D 3 F $ H D ! ;S =W AW _ 8 m sT { $ P $ $ $ * P p H D ! P * " 8 D F #P6 ' H )T ] 8 iRJ o " qP u " < 8
0x0120cc…012260 Dummy {f00=0x00f5, f01=0x0190, f02=» J F IDENT DRKB01 9.2DK 1 79-11-16 870105040920 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ ( z DWTUTQ * KBADY SAVE8 DWTST , ( X V T
0x012260…0123f4 (0, 23) Dummy {f00=0x00f4, f01=0x018e, f02=» X P Y C , ( q B P T B % X * $ & STREG V , ( 4 T % W X (T ! W Y f ECHON , ( * V ! B _P B P $ , ( $ R % C W Y & , (
0x0123f4…012588 Dummy {f00=0x00f4, f01=0x0190, f02=» f ECHEND DISEND , ( K C ! 0 , , ( e Z ! B Z ZH X * , ( ,T 6 W X (P Y * 0 , ( %_. % Y * _d _ P , ( _ ?" 8 T
0x012588…01271c Dummy {f00=0x00f4, f01=0x0190, f02=» ! P $ <c ,P $ , X R LDREG , , ( ? ;GV X ( $4 P X *T < EOQUEU x l , ( ] * W Y ( - B 1 " W " { 6T , (@ > H D ! * V )W: 9U =P ?R G R U N _P o
0x01271c…0128b0 Dummy {f00=0x00f4, f01=0x40a4, f02=» GT k j T W P P j T n H D ! W T R Q T R R W W #P /P =R AV OP U x [T * _W wW T v @ W " { 6T , (@ > H D ! * V )W: 9U =P ?R G R U N _P o
0x0128b0…012a44 Dummy {f00=0x00f4, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( , ( !@ ! 8! P ! P P DISIOE , ( =
0x012a44…012bd8 Dummy {f00=0x00f4, f01=0x0190, f02=» "_. 8$ T B 1 ! , ( B B U $ ! T _ 0 , ( U D ! T _ $$ X" X& ` GETCHR , ( X* C X`" E , ( P 8'0P E T ! T 9 , ( 5
0x012bd8…012d6c Dummy {f00=0x00f4, f01=0x018e, f02=» X X " r , ( " X %# C V C ! , ( Y B ! Y _` C B , ( " _ " $ P X # r , ( @ X ] ! , ( B 8! T ! ! ! , ( #
0x012d6c…012f00 Dummy {f00=0x00f4, f01=0x0190, f02=» , ( @ ! W Y "_ Y " B , ( Y %U X % T T W V X # 4 , ( Y %U P R ! _ R d , ( _ ! Y # " ! , ( 8!0T 8 !@P ! $ P , ( D ! !
0x012f00…013094 (0, 24) Dummy {f00=0x00ec, f01=0x0190, f02=» X " X "" v DWTST LDREG & , ( e Y %Q Y > X Z2<BR J 6 SAVE8 f * & Y 8" P ! v * & ! T 8" P d ! , ( Y ! *0 ! X , (
0x013094…013228 Dummy {f00=0x00ec, f01=0x0190, f02=» ! XW v ECHRTN , ( #$ H X $ X ! _ X ( , ( = $ X 8! P ! _( X " ! X , ( ] @ ! Y _D X " X "" Y , ( y " %U W ! ! ! , ( Y 4 B
0x013228…0133bc Dummy {f00=0x00ec, f01=0x0190, f02=» v , ( " `R Y ! ! ! , ( # 4 ! V ! F , ( ? V W :h ! 4 X %" X ## v ] R 4 H > H D ! ` j p " )P 5P 9P ? N E OP _P cP. i
0x0133bc…013550 Dummy {f00=0x00ec, f01=0x4130, f02=» " ' N +R ; N ?V ST b H D ! _ $ aW kU wR yP W U T T W V U P" R R T H D ! P P ! H +T 7T iQ yR P T> P T P h R V P j H D !. P" W 5 h EP I h U $ _ {U W U R@ V $ R 3V A
0x013550…0136e4 Dummy {f00=0x00ec, f01=0x0190, f02=» J F IDENT DRDU01 REL 9.2 79-11-16 870105040920 4 0 DUADR DUONY IHDU1 IHDUY IHDU2 DWDU01 DWDU02 R DUADR , ( DWTST DWTOR , (
0x0136e4…013878 Dummy {f00=0x00ec, f01=0x0190, f02=» B # L t , ( Y :e X Y, X P Y ! 9 R ! , ( ; 9 R Y W P D , ( [ U ! ! ! P W X @ @ ! t , ( { ! ! P W P ! ! , ( ! P W ! ! ! P b , (
0x013878…013a0c Dummy {f00=0x00ec, f01=0x0190, f02=» DWTA4 , ( X :B X ! E Y DWTA5 D TDISP T DUONY B d SAVE8 v INIFLGN , ( 9 B Y @ DWTSB2` , ( O P Y 8 Y !
0x013a0c…013ba0 Dummy {f00=0x00ec, f01=0x0190, f02=» @ XR_f Y 8 Y , ( ! 8 ! P . , ( XT 8 P Xb XX 0P ^ SETIMP IHDU2 INTSAV , ( -_ _ A _ A IHDUY
0x013ba0…013d34 (0, 25) Dummy {f00=0x0101, f01=0x0190, f02=» '? 4 x , ( _ T B C X P X , ( { " I 8 8 H , ( Y Y ! T ! Y ! x , ( "! T X P Y , ( , (P ) P @ T X * &
0x013d34…013ec8 Dummy {f00=0x0101, f01=0x018e, f02=» B B r s z DWDU01 V , ( " C . , ( c B B r s ^ H D ! @ P* : v P P P P W # > ) < +P& / < H D ! 3 7
0x013ec8…01405c Dummy {f00=0x0101, f01=0x411e, f02=» J H D ! 6 < W, W( W W < / $ 5 I V OPT g s yT H D !9z P : P P P V W % V -P T H D ! 1 ? 8 AV GT aT qP 8 Td < TR , P P P T T 8 V
0x01405c…0141f0 Dummy {f00=0x0101, f01=0x0190, f02=» J F IDENT DRFD01 REL 9.2 79-12-05 870105040920 FDADR IHFDY FDONY DWFD01 R FDADR v DWTOR , ( !P P X ! , ( Y X ! Y T & , ( ?
0x0141f0…014384 Dummy {f00=0x0101, f01=0x0190, f02=» } A @ A. TDISP * , ( Y W A : , ( @ @ A. W ! * X X P ! j , ( ! W ! * _ ! * _& ! X ECBRL ECBBA , ( X P ! X X
0x014384…014518 Dummy {f00=0x0101, f01=0x0190, f02=»TOT 0 SST z , ( i X Y W 0 X Y Y , ( ! ! X ' P ! ! J , ( @ D ) P _ X " X ! T X z ECBCW , ( $ !& P B z z :C , ( P ! 9DV !
0x014518…0146ac Dummy {f00=0x0101, f01=0x0190, f02=» A ! _ Y , ( _ 4 ! P C ! ! ! (@ , , ( ! R _ ! 1 ;h 1 , ( ! 1 ! ! * ! ! ! , ( ) ! Y # T X Y _ Y # , ( 4 ! (
0x0146ac…014840 Dummy {f00=0x0101, f01=0x0190, f02=»* ! ! ! T )W | , ( U W ! Xz ! ( - ! DWTA5 L , ( u ) W Y W Y Y Y Y ECBEL TENDIO * & H B S W W B C FDONY SAVE8 DWTA2
0x014840…0149d4 (0, 26) Dummy {f00=0x0102, f01=0x0190, f02=» 0 Y 1 0 ~ , ( B. X P y _` , ( _p Y X P Y N , ( 9 : ! ! X # P Y :A , ~ , ( Y X A Y @ B. X Y * & s Y Y X Y X
0x0149d4…014b68 Dummy {f00=0x0102, f01=0x0190, f02=» $ D C r , ( Y B K & E % , ( Y B K X ;AR ;a X B , ( P Y P 7P r * & < $ <C ! 9 4 X , ( = _ W B R , ( W
0x014b68…014cfc Dummy {f00=0x0102, f01=0x0190, f02=» z P ;A _ 4 X # TASCII 0 , ( P _ 4(@ R D $ B TEBCDI0 r , ( 1_ W (@ R 0 D & ] _ , ( ! 4 ! ;E :B 9A ! , ( - U P jW k
0x014cfc…014e90 Dummy {f00=0x0102, f01=0x0190, f02=»;H 4 t , ( ! (:C 4 ! ( 4 X , ( " 4 ! ) 4 X P D 4 t DWFD01 j , ( k , ( , (
0x014e90…015024 Dummy {f00=0x0102, f01=0x0190, f02=» UPb YP ]Pv X H D !z& aPz g d m s y Z D D W Wx J ( P | W< H D ! p J J N ( P ( P | !T ) & +W / & ` H D ! 3 9 ? E K O T YT cT o ( qW } ( & T & H D !q P
0x015024…0151b8 Dummy {f00=0x0102, f01=0x0190, f02=» !{ kPT s w { R 8 | & H D ! T * & V N f W0 W # ) ^ L H D ! T - 5Q 9 J ? E | I OT SWL YWP ] e N i o f s {W. L H D ! W L H J S W W j
0x0151b8…01534c Dummy {f00=0x0102, f01=0x410a, f02=» T j R@ " P " P P MW URZ Y ( _P | H D ! eW oP wQ8 {U T, R( P Q W Q T P , P R 8 H D !> W R ` - ` 7U ; 8 =P CW IQ W & [ uP R h n V P @
0x01534c…0154e0 Dummy {f00=0x0102, f01=0x0190, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^
0x0154e0…015674 (0, 27) Dummy {f00=0x0102, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x015674…015808 Dummy {f00=0x0102, f01=0x0190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x015808…01599c Dummy {f00=0x0102, f01=0x018e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x01599c…015b30 Dummy {f00=0x0102, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f @ DWTTP T DWTECHj " f DWTSQ , z DWTVOLW , BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x015b30…015cc4 Dummy {f00=0x0102, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 MONMMU FREBLK , ( @ ( H 0 ) $P TTB:SAS , ( @
0x015cc4…015e58 Dummy {f00=0x0102, f01=0x0190, f02=» R I W ~ QTJOB , ( w _" H P 4 I _H T . TIODM ^ , ( C T V Y T P n , ( @ @ 8 P q 0 ) W X P GETBLKP , ( 8 T B R P A @ L A
0x015e58…015fec Dummy {f00=0x0102, f01=0x0190, f02=» TTB:ST , ( + C 8W T TDISP F , ( G 8P Y ^ 5 ) P U V FNDDWT |TIO f , ( cH XH TTB:ID , ( ' X X D
0x015fec…016180 Dummy {f00=0x0102, f01=0x0190, f02=» T _ X I z , ( Y # C C '? Y * & T Y W Y T # P W J DC:MIN J x SAVE8 , ( 7 Y (@ 2 X IHRET8W , ( Q L % T L R (@
0x016180…016314 (0, 28) Dummy {f00=0x0103, f01=0x018e, f02=» X n MEXIT QMJOB , ( B @ l " Y _ . DC:MOT ^ TENDIO r * & $ (@ X P T , ( D #DP 0P X T 4 Y REQEND * & #! X
0x016314…0164a8 Dummy {f00=0x0103, f01=0x0190, f02=» * & y _ &W Y 6 H D ! 8 P 7W ; L AP _P cR mW u z P T T, V. T Pn W` J H D ! P T& RN P" W> W& T" P T T !W ;W IP [P P H D ! P T P< T W0 P* T P
0x0164a8…01663c Dummy {f00=0x0103, f01=0x4014, f02=» @ &W Y 6 H D ! 8 P 7W ; L AP _P cR mW u z P T T, V. T Pn W` J H D ! P T& RN P" W> W& T" P T T !W ;W IP [P P H D ! P T P< T W0 P* T P
0x01663c…0167d0 Dummy {f00=0x0103, f01=0x018e, f02=» J F IDENT TIMER REL 9.2 79-11-16 870105040920 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x0167d0…016964 Dummy {f00=0x0103, f01=0x4116, f02=» , ( 9 _ _< , ( S ^ 4 _ 8 TIMQUE h , ( o$@ @ 1 A _ P z IHRET8 9 ( $ ~ T N : - 4 1 N 3 > P
0x016964…016af8 Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT TABORT REL 9.2 79-11-16 870105040920 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x016af8…016c8c Dummy {f00=0x0103, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x016c8c…016e20 Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT MONTIM REL 9.2 79-11-16 870105040920 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI , ( # P >_ < U
0x016e20…016fb4 (0, 29) Dummy {f00=0x0103, f01=0x4078, f02=» R _ 00 > & <h$ P > * t 'P Q UP yR P > b@ t l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI , ( # P >_ < U
0x016fb4…017148 Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT TASS REL 9.2 79-11-16 870105040920 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID, TASMXA T
0x017148…0172dc Dummy {f00=0x0103, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x0172dc…017470 Dummy {f00=0x0103, f01=0x0190, f02=» TASTBE T TASLFD V , ( A , TASCAQ b TTB:SA p QTJOB , ( " a $ @ P 4 A U W VOLCHE , ( T } A A @ U : A V A X:A
0x017470…017604 Dummy {f00=0x0103, f01=0x0190, f02=» ECBRC , ( ( B P T W , ( ' T I @ 8 =hP Y X D DWTVOLI t , ( P T Y H ! , ( ) R W 9a I T T 9a H , ( @ I E V ^ W P ,! T
0x017604…017798 Dummy {f00=0x0103, f01=0x0190, f02=» # r TDISP , ( I ` @ P $ ) 5 " , ( U A A R A A "" R , ( A P U W P @ TTB:TD * & @ E "# P P @ P , ( W @ 0
0x017798…01792c Dummy {f00=0x0103, f01=0x0190, f02=» "R G T @ D FNDTID " DMTASSV 4 , ( u #D T G W A J F ACTOT v , ( $ "R A J A 4 LKMQDI b H D ! gP {W R P. T& P
0x01792c…017ac0 Dummy {f00=0x0103, f01=0x402e, f02=» _R T W, R @ *
0x017ac0…017c54 (0, 30) Dummy {f00=0x0104, f01=0x0190, f02=» J F IDENT TIODM REL 9.2 79-11-16 870105040920 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELE D @ FDBLRN FDBNIF FDBEAL FDBCRL` FDB
0x017c54…017de8 Dummy {f00=0x0104, f01=0x0190, f02=» t , ( ! " , ( A # $ % D FDBLNK t FDBECB FDBSNR FDBRRO " FDBRLE $ FDBBLF & FDBTNRC ' FDBVT
0x017de8…017f7c Dummy {f00=0x0104, f01=0x0190, f02=»ELE FDBLRN E FDBNIF D " FDBEAL H 6 FDBCRL` J J FDBKA L ^ FDBMIAT N p FDBADFN P FDBAI1 R FDBDBR Z FDBMRN [ FDBMROV ^ FDBMEC ` FDBKEY n
0x017f7c…018110 Dummy {f00=0x0104, f01=0x0190, f02=» j @ D X TTB:ID , ( } P _ L !##P P 2 DWTST b , ( @ R $P U ' U _ (@(@ r DWTOR ECBCW2 , ( ! I 2P ^ H L Y H , ( @ B # X $
0x018110…0182a4 Dummy {f00=0x0104, f01=0x0190, f02=» E B Y F_ v CRNGET ECBFC ( , ( - W C P C 8 * & I W < C C _H h , ( a H H S W C ECBRL EATESTR , ( }D C B B B
0x0182a4…018438 Dummy {f00=0x0104, f01=0x0190, f02=» E j , ( H X F S W C C W ECBRC : , ( H B B Y ER Q X FU C J bSQR z CALSNO , ( '? T W " T (@(@ FNDTID( TASHLTO DMTASK * & !
0x018438…0185cc Dummy {f00=0x0104, f01=0x410a, f02=» J J J J J ! # , % J ' J H D ! + ) 0 + - / 1 P P R P P J U J W J H H D ! /W EP KW oS qW U R WJ P S W W, R Q U T W6 T. N @
0x0185cc…018760 Dummy {f00=0x0104, f01=0x0190, f02=» J F IDENT DMTASK REL 9.2 79-11-16 870105040920 ( $ DMTASKKdSQRdQSW DMTWM QIRNY QIRR R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x018760…0188f4 (0, 31) Dummy {f00=0x0106, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TDC F , ( w $ -_ D U 0 X SCTCDT@ , ( W T ` U @ , FDBRRO ECBBA , ( A @ W : X
0x0188f4…018a88 Dummy {f00=0x0106, f01=0x018e, f02=» X p FDBDBR DWTOR , ( P D V D "? P 0 FDBECB ` GTBKBUM r * & P &P E , ( 5 V P ( ( ( W DMTIOTO * & @ S @
0x018a88…018c1c Dummy {f00=0x0106, f01=0x0190, f02=» VLVRL FDBVTO DIVMOD & , ( @ T T A ( J " 8 VLVBA h , ( $ $ P W T & Y x DMTRBUS * & P T _ Y F CLRBUFV FDBLRN
0x018c1c…018db0 Dummy {f00=0x0106, f01=0x0190, f02=» FDBMIA ECBFC * & ! T X 0 X 2P F , ( 9 4 T P N SCTTCT ~ TTB:ID , ( W! ` 6 U @ 6 , D 8 !## , ( q$ X D ]" 0 , (
0x018db0…018f44 Dummy {f00=0x0106, f01=0x0190, f02=» , ( 5W P 0 @ > 1 A >(@_ FDBEXT: 8 EXTELER J , ( $ @ B (@ / DWTTQ QTJOB , ( O D $P % 4 F , ( " F 4 (@ B (
0x018f44…0190d8 Dummy {f00=0x0106, f01=0x0190, f02=»' X X @ ~ , ( @ B Z" B ) _ (@ C 4 , ( P ( B ! @ ( F U L * & $ G F G | ECBCW , ( D F J" F J DWTST EATESTS
0x0190d8…01926c Dummy {f00=0x0106, f01=0x0190, f02=»P l * & A ^W $ P $ - F + X FDBMROU : , ( _ V P "P $P W X X L , ( { PT ;AR ( ( | * & T Y F J" F , ( J 4 D '? P P $
0x01926c…019400 Dummy {f00=0x0106, f01=0x0190, f02=» P & p EASETB: , ( P :W D L$ T N T " , ( D XW E , E , X V R TENDIO , ( 1 ? T B ( Z(@( H D ! ( ( ( ( ( z ( z ( ( (
0x019400…019594 (0, 32) Dummy {f00=0x0108, f01=0x4146, f02=» eW T ( H D ! TT P W P %T$ /P ET M ( _U0 Wf U WF W P F H D !% P 3P E > iW qP& ( U & P P* T U W R PB P< d H D !@ W ' ( =P CW IP aV" gP mP8 qP4 sW }T( R T P P( 0 , P" P
0x019594…019728 Dummy {f00=0x0108, f01=0x0190, f02=» J F IDENT DMINIT REL 9.2 79-11-16 870105040920 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !
0x019728…0198bc Dummy {f00=0x0108, f01=0x40da, f02=» h BUFDMIL BUFSNR BUFOR , , ( Q , - M M M @ < TASBLK l TASQUE ~ g$ A A > Q %PJ r @ FDBEND CRNQUE , ( !
0x0198bc…019a50 Dummy {f00=0x0108, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x019a50…019be4 Dummy {f00=0x0108, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x019be4…019d78 Dummy {f00=0x0108, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x019d78…019f0c Dummy {f00=0x0108, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x019f0c…01a0a0 Dummy {f00=0x0108, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x01a0a0…01a234 (0, 33) Dummy {f00=0x010c, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA , ( L P & S N @ " S 8 , ( @ B | f @ ,T W , ( A 2T
0x01a234…01a3c8 Dummy {f00=0x010c, f01=0x018e, f02=» h EXTLENT EXTBAS , ( 'I$ Y P P 0 Y R P 0 Y T , , ( = U ! T ! X6 _R _V TASLFD , ( ] D V" P A ( TASTBE , ( w ^ W @ X P I @
0x01a3c8…01a55c Dummy {f00=0x010c, f01=0x0190, f02=» QTJOB * & H * FDBADF& B , ( ^(@( @ ( _ ` T FDBDBR EXTELE , ( A ` ` 9A S b L d FDBCEXj FDBSNR * & @
0x01a55c…01a6f0 Dummy {f00=0x010c, f01=0x4188, f02=» C$ S l S l R H R J FDBMRO 0 [H n S p B H D !%l P !Tn / Z AP UP ] Z P Z Q< Z _T u U P b H D ! W V Z T P Z P( T T T ! Z 3P A Z UP H D ! T W
0x01a6f0…01a884 Dummy {f00=0x010c, f01=0x0190, f02=» J F IDENT DMBUF REL 9.2 79-11-16 870105040920 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSN
0x01a884…01aa18 Dummy {f00=0x010c, f01=0x415e, f02=» , L T L P L , ( i T M Q M L V L A @ " HALTN R , ( : T @ [ [ M M b DMTRBUC CLRBUF , ( M A -(@ : - : @ & " , L T M @
0x01aa18…01abac Dummy {f00=0x010c, f01=0xc076, f02=» M @ : z H D ! H I . / r s 'T -PF 5T ;Q GV YT T `@ rU n , ( @ , L T L P L , ( 5 T M Q M L V L A @ HALTN , ( U : T
0x01abac…01ad40 Dummy {f00=0x010c, f01=0x4172, f02=» J F IDENT DMFDB REL 9.2 79-11-16 870105040920 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL ` FDBSTAK FDBEND CRNQUE
0x01ad40…01aed4 (0, 34) Dummy {f00=0x010f, f01=0x40be, f02=» J F IDENT DFTAB REL 9.2 79-11-16 870105040920 DFTAB DFTABE R DFTAB j DFTABE | @ PDFTABE EQU * P END @ P* P* P* LEVE
0x01aed4…01b068 Dummy {f00=0x010f, f01=0x0190, f02=» J F IDENT DMSUBX REL 9.2 79-11-16 870105040920 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x01b068…01b1fc Dummy {f00=0x010f, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU@ 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMRO FDBRLE , ( V ; [ _ D V
0x01b1fc…01b390 Dummy {f00=0x010f, f01=0x0190, f02=» GTLGRN , ( D U E W ADDMODD B CALSNO T DMTRBUM f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x01b390…01b524 Dummy {f00=0x010f, f01=0x0190, f02=» FDBLRN, , ( E E Z:Q , ( D D ZB W Z r @ , ( Q R W K ]d J _j @ W W p CRNUPD FDBADF FDBCRL , ( " : : " $
0x01b524…01b6b8 Dummy {f00=0x010f, f01=0x412a, f02=» U R ( R ( S ( m@ S (_P (@ : , H D ! UP U 3 r AU EP OP YW }P Q R V W W T. V T L H D ! W V V Wn U W 7P 9W KP T~ W Wh P0 Q W, Q , ( R W W W !W %PL 7R CQ
0x01b6b8…01b84c Dummy {f00=0x010f, f01=0x4138, f02=» J F IDENT ADDMOD REL 9.2 79-11-16 870105040920 ADDMODK R ADDMODK d , ( S Q R S P W x , ( ! S _ R Q _ ;A A [ [ : , ( S Q" R S
0x01b84c…01b9e0 Dummy {f00=0x010f, f01=0x414c, f02=» J F IDENT DSUMOD REL 9.2 79-11-16 870105040920 DSUMODK R DSUMODK d , ( Q S W S Q x , ( ! R S P W S _ R _ " A ;A [ [ : 4 0 Q
0x01b9e0…01bb74 (0, 35) Dummy {f00=0x0112, f01=0x4188, f02=» J F IDENT MPYMOD REL 9.2 79-11-16 870105040920 MPYMODK R MPYMODK d , ( T P P V x , ( ! P V S ? V :!9 V , ( A @ P R W * &
0x01bb74…01bd08 Dummy {f00=0x0112, f01=0x0190, f02=» J F IDENT DIVMOD REL 9.2 79-11-16 870105040920 DIVMODK R DIVMODK d , ( P T P V x , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , (
0x01bd08…01be9c Dummy {f00=0x0112, f01=0x4066, f02=» Pf V 'Q +UF /V 9Ud =Q4 ?P CP QR aP* cR oR qP V @ P@ b DIVMODK d , ( P T P V x , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , (
0x01be9c…01c030 Dummy {f00=0x0112, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x01c030…01c1c4 Dummy {f00=0x0112, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x01c1c4…01c358 Dummy {f00=0x0112, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUE P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTIDj CRNQUE
0x01c358…01c4ec Dummy {f00=0x0112, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT b , ( _ $ &S P W X $ t EXTLEN FDBCEXN , ( yH ( * U U *_ EXTBAS
0x01c4ec…01c680 Dummy {f00=0x0112, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMI , ( D$ G :W X < Y < B > DMTIOZ DWT
0x01c680…01c814 (0, 36) Dummy {f00=0x010c, f01=0x0190, f02=» GTBKBU , EXTDMI@ , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAD , ( Y P R C > X B%? : X
0x01c814…01c9a8 Dummy {f00=0x010c, f01=0x0190, f02=» MPYMOD , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r MOV:SU TASHLT : X H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R
0x01c9a8…01cb3c Dummy {f00=0x010c, f01=0x4012, f02=» @ 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r MOV:SU TASHLT : X H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R
0x01cb3c…01ccd0 Dummy {f00=0x010c, f01=0x413e, f02=» J F IDENT CTAB01 REL 9.2 79-11-16 870105040920 CTAB01K R , ( CJHMGPQNKILO ^=DEF d , ( ! BA :USXR YVTWZ , ( A ^_$.- ,' CTAB01K `
0x01ccd0…01ce64 Dummy {f00=0x010c, f01=0x411a, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBADN x & " KB DVDY00 $ !@ ` 6 ) , + ,
0x01ce64…01cff8 Dummy {f00=0x010c, f01=0x40f0, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x & " DY ! $ ( ( @ CB DATA 0,0,0,0,0,0
0x01cff8…01d18c Dummy {f00=0x010c, f01=0x412e, f02=» J F IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBADN x CTAB01 ( $ @ % KB DVDY01 $ !@ ` 6
0x01d18c…01d320 Dummy {f00=0x010c, f01=0x40f0, f02=» J F IDENT DVDY01 REL 9.2 79-11-16 870105040920 DVDY01K R DVDY01K d DYADN x & " DY ! P ( ( @ CB DATA 0,0,0,0,0,0
0x01d320…01d4b4 (0, 37) Dummy {f00=0x0116, f01=0x411a, f02=» J F IDENT DVKB02 REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBADN x & " KB DVDY02 $ !@ ` 6 ) , + ,
0x01d4b4…01d648 Dummy {f00=0x0116, f01=0x40f0, f02=» J F IDENT DVDY02 REL 9.2 79-11-16 870105040920 DVDY02K R DVDY02K d DYADN x & " DY ! P ( ( @ CB DATA 0,0,0,0,0,0
0x01d648…01d7dc Dummy {f00=0x0116, f01=0x40ec, f02=» J F IDENT DVGP03 REL 9.2 79-11-16 870105040920 DVGP03K R DVGP03K d GPADN x & " GP ! $ $ @ DATA DEVECB MMU ECB ADD
0x01d7dc…01d970 Dummy {f00=0x0116, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " 0 DVDY01 DVKB02 DVD
0x01d970…01db04 Dummy {f00=0x0116, f01=0x4024, f02=» 1 n 6 @ REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " 0 DVDY01 DVKB02 DVD
0x01db04…01dc98 Dummy {f00=0x0116, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWTC01 x DWSI01 DWLP01 , ( D DWDU02 DWDU01 DWF
0x01dc98…01de2c Dummy {f00=0x0116, f01=0x4012, f02=» : @ SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWTC01 x DWSI01 DWLP01 , ( D DWDU02 DWDU01 DWF
0x01de2c…01dfc0 Dummy {f00=0x0116, f01=0x2008, f02=» L = KMD24 DATE = 80 05 07 1216PACK NBR = 0001 @
0x01dfc0…01e154 (0, 38) Dummy {f00=0x0115, f01=0x2008, f02=»
0x01e154…01e2e8 Dummy {f00=0x0115, f01=0x0000, f02=»
[…0x6…]
0x01ec60…01edf4 (0, 39) Dummy {f00=0x011b, f01=0x0000, f02=»
[…0x7…]
0x01f900…01fa94 (0, 40) Dummy {f00=0x011b, f01=0x2008, f02=»
0x01fa94…01fc28 Dummy {f00=0x011b, f01=0x0000, f02=»
[…0x6…]
0x0205a0…020734 (0, 41) Dummy {f00=0x011f, f01=0x0000, f02=»
[…0xf…]
0x021ee0…022074 (0, 43) Dummy {f00=0x010f, f01=0x0190, f02=» * ] r 4 /* * ^ 4 /* ENTRY: A9 - BUFFER ADDRESS + 2 * ^ R 4 /* * ^ 4 /* A11 - SECTOR NUMBER * ^ 4 /*
0x022074…022208 Dummy {f00=0x010f, f01=0x0190, f02=» * ^ j 4 /* WORK REGISTERS: A1,A2 * _ 4 /* * _ J 4 /* SUBROUTINES: ERROR * _ 4 /* * _ 4 /**********************
0x022208…02239c Dummy {f00=0x010f, f01=0x0190, f02=»1 GET SECTOR NUMBER _ * & SRL A1,5 CYLINDER NUMBER IN BITS 4-12 ` SLL A1,3 ` J ORK A1,2 SET BIT 14 ` * ` x * SEEK CYLINDER ` * ` " RDS:10 CIO A1,1,0 SEEK COMMAND ` $ RB(NA) *-2 LOOP UNTIL ACCEPTED ` P* ` P* CHECK STA
0x02239c…022530 Dummy {f00=0x010f, f01=0x0190, f02=» NUMBER ` v * a ( #RDS:30 LDR A2,A11 GET SECTOR NUMBER a ANK A2,/10 GET BIT 11 a F " LDR A1,A11 GET SECTOR NUMBER a d SLL A1,1 a ADR A1,A11 a ANK A1,/F a ADR A1,A2 a SLL A1,2 a * a * INIT MUX WORDS a
0x022530…0226c4 Dummy {f00=0x010f, f01=0x0190, f02=»ER A2,/10+1 WRITE a " RDS:60 CIO A1,1,0 READ SECTOR b & " RB(NA) RDS:60 LOOP UNTIL ACCEPTED b @ RDS:70 SST A1,0 GET STATUS b j & " RB(NA) RDS:70 LOOP UNTIL ACCEPTED b $ ANK A1,/1F GET 5 RIGHTMOST BITS b * & RB(NZ) RDS:30 LOOP UNTIL CORRECT READ b
0x0226c4…022858 Dummy {f00=0x010f, f01=0x0190, f02=» * b 4 0* FDINIT - INITIALIZE FLEXIBLE DISC * c 6 4 0* ================================= * c n 4 0* * c 4 0* REFERENCED IN: SYSLOD,GETFIL
0x022858…0229ec Dummy {f00=0x010f, f01=0x0190, f02=» * c 4 0* EXIT: * d . 4 0* * d f 4 0* WORK REGISTERS: * d 4 0* * d
0x0229ec…022b80 Dummy {f00=0x010f, f01=0x0190, f02=»****************************** d ~ FDINIT EQU * e & * & LDKL A2,FRDSEC GET SUBROUTINE ADDRESS e : ST A2,READ STORE e h ST A2,READS e ST A2,READVL e ST A2,READCF e * e " * INIT FLEXIBLE DISC COMMANDS e * e , ' ORS A1,FRD:
0x022b80…022d14 (0, 44) Dummy {f00=0x0120, f01=0x0000, f02=»
[…0x7…]
0x023820…0239b4 (0, 45) Dummy {f00=0x0121, f01=0x0000, f02=»
[…0x7…]
0x0244c0…024654 (0, 46) Dummy {f00=0x0118, f01=0x0190, f02=»CH KEY ~ P XIF P PFD:DIS EQU * " P ABL DISIOE REQUEST ERROR 6 P* X P IFT OPCLOS=1 b P EJECT x P* P******** P* * P* OPEN * P* * P******** P* 4 P* OPEN IS PERFORMED BY WRIT
0x024654…0247e8 Dummy {f00=0x0118, f01=0x0190, f02=»0 t ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA 6 " P OTR A1,0,SOPDA OPEN FD DRIVE j P* * P* WAIT FOR DRIVE TO BECOME OPERABLE ( P LDK A4,DWTTP2 TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER
0x0247e8…02497c Dummy {f00=0x0118, f01=0x0190, f02=»BL TDISP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED 4 P LDR A6,A1 GET DWT-ADDR R , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING r & P RF OCLEXI COMMON OPEN/CLOSE EXIT P* P EJECT P* P********* P*
0x02497c…024b10 Dummy {f00=0x0118, f01=0x0190, f02=»ERO OF THE SOP LIGHTS EXTERNAL REGISTER P* 0 PCLOSE EQU * : " P LDKL A1,/8000 MASK FOR BIT 0 N & P ORS A1,SPDLCI SET OPEN/CLOSE BIT t 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA CLOSE FD DRIVE P* POCLEXI
0x024b10…024ca4 Dummy {f00=0x0118, f01=0x0190, f02=» P EJECT DRFD01 P* P*************** & P* * > P* BASIC WRITE * V P* * n P*************** P* PFD:010 CF A5,BIO P ORK A2,1 PFD:015 EQU * P IFT TOSS+IBM=2 P LD A1,DWT
0x024ca4…024e38 Dummy {f00=0x0118, f01=0x0190, f02=»ED j P CF A5,EBCDIC PFD:018 EQU * P XIF 4 P* @ P IFT CHAN+TOSS=2 J P IFT MMUPAG+SWPBLK=2 b 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ~ ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH
0x024e38…024fcc Dummy {f00=0x0118, f01=0x0190, f02=»SEUDO MMU TABLE | 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK N P LDR A2,A8 RESTORE A2 x P* P EJECT DRFD01 P* P* PFD:019 EQU * P XIF P* " P CF A5,FD:WRITE PE
0x024fcc…025160 Dummy {f00=0x0118, f01=0x0190, f02=»BUFFER WAS IN SYSTEM AREA? . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS " & P ST A1,ECBBA,A8 RESTORE IT IN ECB T P* ~ PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* *
0x025160…0252f4 (0, 47) Dummy {f00=0x0122, f01=0x0000, f02=»
[…0x7…]
0x025e00…025f94 (0, 48) Dummy {f00=0x0123, f01=0x0000, f02=»
[…0x7…]
0x026aa0…026c34 (0, 49) Dummy {f00=0x00e9, f01=0x018e, f02=» TTAB ADDRESS P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 Z P* ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS P* PFND:10 LDR A2,A4 SAVE A4 P LDR* A4,A4 P RF(
0x026c34…026dc8 Dummy {f00=0x00e9, f01=0x0190, f02=» P ABL IHRTN RETURN P XIF P* * P IFT ATTDET=1 4 P IFT CPU852=0 J P RTN A15 RETURN ` P XIF x P* P IFT ATTDET=1 & PATT:CH DATA 0 ATTACH CHAIN ANCHOR P* P EJECT TOSSIO P* P* F D B A T T
0x026dc8…026f5c Dummy {f00=0x00e9, f01=0x0190, f02=»PUT: A5 = TTAB ADDRESS P* A6 = FDB ADDRESS $ P* A10 = /800 (ATTACH BIT) B P* j " P* OUTPUT: A2-A4 AREA DESTROYED t P* PFDBDET EQU * P C1R A10,A10 A10=F7FF P* PFDBATT EQU * P LDR A4,A6 FDB ADDRE
0x026f5c…0270f0 Dummy {f00=0x00e9, f01=0x0190, f02=» LDR* A2,A4 NEXT FDB P RF(Z) FDB:20 NO FDB? ! P LDR A10,A10 ! : " P RF(N) FDB:15 DETACH REQUEST? ! N $ P ORS A10,DWTST,A2 ATTACH REQUEST ! t P ST A5,DWTTAB,A2 ! P RF FDB:20 ! P* ! * PFDB:15 ANS A10,DWTST,A2 DETACH REQUEST ! P CF A15,QR
0x0270f0…027284 Dummy {f00=0x00e9, f01=0x0190, f02=»* Q R E Q ! P* " 8 P* SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE (IF ANY) " P* " X P* INPUT: A2 = DWT ADDRESS " b P* " " P* OUTPUT: A7, A9 ARE DESTROYED " P* " PQREQ EQU * " & P LDR A9,A5 SAVE A5 (TTAB ADDRESS) " & P LD A5,DWTTQ,A
0x027284…027418 Dummy {f00=0x00e9, f01=0x0190, f02=»QUEUE TASK " P* # PQRE:10 EQU * # $ P LDR A5,A9 RESTORE TTAB ADDRESS # 0 P IFT CPU852=1 # X P RB FND:20 RETURN # n P XIF # P* # P IFT ATTDET=1 # P IFT CPU852=0 # P RTN A15 RETURN # P XIF # P* # P IFT ATTDET=1 #
0x027418…0275ac Dummy {f00=0x00e9, f01=0x018e, f02=» THIS MODULE IS CALLED FROM TIO WITH # P* THE FOLLOWING PARAMETERS: $ , P* $ P & P* A3 /8000 (REQUEST ERROR BIT) $ Z & P* A4 I/O AND ACTIVATE INDICATOR $ P* A5 TTAB ADDRESS $ P* A6 DWT ADDRESS $ P* A7 ORDER CODE $ P* A8
0x0275ac…027740 Dummy {f00=0x00e9, f01=0x0190, f02=» PATTACH EQU * ENTRY % P ADK A4,0 SET CR % * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR? % 6 P* % d P IFT MMUPAG=0 % n " P CM ECBRC,A8 RESET RETURN CODE % P XIF % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % & P ES A4,ECBRC,A8 RESET RETURN
0x027740…0278d4 (0, 50) Dummy {f00=0x00e8, f01=0x0190, f02=» PTINDEX EQU *-TIOTAB 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT $ , P DATA TIOPCO PROGRAMMED CHANNEL, OUTPUT X P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT P*
0x0278d4…027a68 Dummy {f00=0x00e8, f01=0x0002, f02=»
0x027a68…027bfc Dummy {f00=0x00e8, f01=0x018e, f02=» J F IDENT TIMER REL 9.2 79-11-16 870105040920 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x027bfc…027d90 Dummy {f00=0x00e8, f01=0x4116, f02=» , ( 9 _ _< , ( S ^ 4 _ 8 TIMQUE h , ( o$@ @ 1 A _ P z IHRET8 9 ( $ ~ T N : - 4 1 N 3 > P
0x027d90…027f24 Dummy {f00=0x00e8, f01=0x2008, f02=»
0x027f24…0280b8 Dummy {f00=0x00e8, f01=0x018e, f02=»* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK 6 P* L P EJECT TOSSIO V P* n & P* REMOVE TTAB FROM DEVICE QUEUE x P* P LDR A1,A6 & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* PTIM:10 LDR A2,A1 SAVE
0x0280b8…02824c Dummy {f00=0x00e8, f01=0x018e, f02=» P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE * P* T P LDR* A1,A1 ^ P STR A1,A2 r P* PTIM:20 EQU * P LDK A3,4 . P ADS A3,TTB:SA,A5 UPDATE DISPATCH ADDRESS : P LD A8,TTB:SA+16,A5 GET ECB ADDRES
0x02824c…0283e0 Dummy {f00=0x00e8, f01=0x0190, f02=» h P XIF P* P IFT ATTDET=1 P IFT MMUPAG=1 4 * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB J . P TL MONMMU LOAD MONITOR (SYSTEM) MMU TABLE x P XIF P* P IFT ATTDET=1 & P RF TIORTN QUEUE TASK AND DISPATCH P*
0x0283e0…028574 (0, 51) Dummy {f00=0x00ea, f01=0x0190, f02=» U 4 PTIOITI EQU A15RTN INTERTASK COMMUNICATION, INPUT V P* V @ P EJECT TOSSIO V J P* V b P* T I O P C O V l P* V B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANN
0x028574…028708 Dummy {f00=0x00ea, f01=0x0190, f02=»F THE USER V Z P* BUFFER TO THE DWT BUFFER. W 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT W 6 , P* COMPLETION OF THE REQUEST IS 'TENPCO'. W n 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. W F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOK
0x028708…02889c Dummy {f00=0x00ea, f01=0x0190, f02=»DDRESS W x P* X " P* OUTPUT: A1-A4 ARE DESTROYED X P* X > , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT X H 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK X x ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH X * P RF(NP) TIPO20 REQUESTED LENGTH <= 0? X
0x02889c…028a30 Dummy {f00=0x00ea, f01=0x0190, f02=»ET USER ECB ADDRESS X ~ P* Y P EJECT TOSSIO Y & P* Y > P* Y H : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' Y R P ADK A3,1 Y . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN Y , P EL A1,ECBBA,A1 GET USER BUFFER ADDRESS Y * P LD
0x028a30…028bc4 Dummy {f00=0x00ea, f01=0x0190, f02=») TIPO30 USER BUFFER ADDRESS UNEVEN? Y P ST A2,ECBBA,A8 Z , P* Z D 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Z N P* Z PTIPO20 RTN A15 Z P* Z 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Z 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER A
0x028bc4…028d58 Dummy {f00=0x00ea, f01=0x0190, f02=» A1,1 UPDATE USER BUFFER POINTER Z ( P ADK A2,2 UPDATE DWT BUFFER POINTER [ ( ( P RB TIPO10 MOVE REMAINING CHARACTERS [ T P* [ P EJECT TOSSIO [ P* [ P* I O : E R R [ P* [ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. [ B P* SET RETURN
0x028d58…028eec Dummy {f00=0x00ea, f01=0x0190, f02=» EXIT FOR MMU ROUTINES [ v P INH $ P ADKL A15,4 ADJUST STACKPOINTER * " P LD A1,DWTST,A6 GET DWT STATUS R P SLL A1,2 CHECK ECHO BIT x P RF(NN) IO:E10 NOT ECHO? P LDR A1,A6 SAVE DWT ADDRESS * P LD A6,DWTECH,A6 GET ECHO DWT ADDRESS
0x028eec…029080 Dummy {f00=0x00ea, f01=0x0190, f02=»ISEND BRANCH TO DISPATCHER VIA TENDIO P* ] . P EJECT TOSSIO ] 8 P* ] P P* T I O M X O ] Z P* ] p " PTIOMXO EQU TIOMXI MUX, OUTPUT ] z P* ] P* T I O K B O ] P* ] * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT ] P* ] P* T I
0x029080…029214 (0, 52) Dummy {f00=0x0122, f01=0x0000, f02=»
0x029214…0293a8 Dummy {f00=0x0122, f01=0x0004, f02=»$H$P
0x0293a8…02953c Dummy {f00=0x0122, f01=0x0190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x02953c…0296d0 Dummy {f00=0x0122, f01=0x018e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x0296d0…029864 Dummy {f00=0x0122, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f @ DWTTP T DWTECHj " f DWTSQ , z DWTVOLW , BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x029864…0299f8 Dummy {f00=0x0122, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 MONMMU FREBLK , ( @ ( H 0 ) $P TTB:SAS , ( @
0x0299f8…029b8c Dummy {f00=0x0122, f01=0x0190, f02=» R I W ~ QTJOB , ( w _" H P 4 I _H T . TIODM ^ , ( C T V Y T P n , ( @ @ 8 P q 0 ) W X P GETBLKP , ( 8 T B R P A @ L A
0x029b8c…029d20 Dummy {f00=0x0122, f01=0x0190, f02=» TTB:ST , ( + C 8W T TDISP F , ( G 8P Y ^ 5 ) P U V FNDDWT |TIO f , ( cH XH TTB:ID , ( ' X X D
0x029d20…029eb4 (0, 53) Dummy {f00=0x0124, f01=0x0000, f02=»
[…0x7…]
0x02a9c0…02ab54 (0, 54) Dummy {f00=0x0129, f01=0x0000, f02=»
[…0xf…]
0x02c300…02c494 (0, 56) Dummy {f00=0x0124, f01=0x0190, f02=»' X X @ ~ , ( @ B Z" B ) _ (@ C 4 , ( P ( B ! @ ( F U L * & $ G F G | ECBCW , ( D F J" F J DWTST EATEST
0x02c494…02c628 Dummy {f00=0x0124, f01=0x0190, f02=»P l * & A ^W $ P $ - F + X FDBMROV : , ( _ V P "P $P W X X L , ( { PT ;AR ( ( | * & T Y F J" F , ( J 4 D '? P P $
0x02c628…02c7bc Dummy {f00=0x0124, f01=0x0190, f02=» P & p EASETB , ( P :W D L$ T N T " , ( D XW E , E , X V R TENDIO , ( 1 ? T B ( Z(@( H D ! ( ( ( ( ( z ( z ( ( (
0x02c7bc…02c950 Dummy {f00=0x0124, f01=0x4146, f02=» eW T ( H D ! TT P W P %T$ /P ET M ( _U0 Wf U WF W P F H D !% P 3P E > iW qP& ( U & P P* T U W R PB P< d H D !@ W ' ( =P CW IP aV" gP mP8 qP4 sW }T( R T P P( 0 , P" P
0x02c950…02cae4 Dummy {f00=0x0124, f01=0x2008, f02=»
0x02cae4…02cc78 Dummy {f00=0x0124, f01=0x0000, f02=»
[…0x2…]
0x02cfa0…02d134 (0, 57) Dummy {f00=0x012c, f01=0x0000, f02=»
[…0xf…]
0x02e8e0…02ea74 (0, 59) Dummy {f00=0x00eb, f01=0x018e, f02=» h EXTLEN EXTBASM , ( 'I$ Y P P 0 Y R P 0 Y T , , ( = U ! T ! X6 _R _V TASLFDS , ( ] D V" P A ( TASTBE , ( w ^ W @ X P I @
0x02ea74…02ec08 Dummy {f00=0x00eb, f01=0x0190, f02=» QTJOB * & H * FDBADF0 B , ( ^(@( @ ( _ ` T FDBDBR EXTELE, , ( A ` ` 9A S b L d FDBCEX2 FDBSNRV * & @
0x02ec08…02ed9c Dummy {f00=0x00eb, f01=0x4188, f02=» C$ S l S l R H R J FDBMRO 0 [H n S p B H D !%l P !Tn / Z AP UP ] Z P Z Q< Z _T u U P b H D ! W V Z T P Z P( T T T ! Z 3P A Z UP H D ! T W
0x02ed9c…02ef30 Dummy {f00=0x00eb, f01=0x2008, f02=»
0x02ef30…02f0c4 Dummy {f00=0x00eb, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x02f0c4…02f258 Dummy {f00=0x00eb, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x02f258…02f3ec Dummy {f00=0x00eb, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x02f3ec…02f580 Dummy {f00=0x00eb, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 0 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x02f580…02f714 (0, 60) Dummy {f00=0x012e, f01=0x0000, f02=»
[…0x7…]
0x030220…0303b4 (0, 61) Dummy {f00=0x012f, f01=0x0000, f02=»
[…0x7…]
0x030ec0…031054 (0, 62) Dummy {f00=0x0130, f01=0x0000, f02=»
[…0x7…]
0x031b60…031cf4 (0, 63) Dummy {f00=0x0131, f01=0x0000, f02=»
[…0x7…]
0x032800…032994 (0, 64) Dummy {f00=0x0132, f01=0x0000, f02=»
[…0x7…]
0x0334a0…033634 (0, 65) Dummy {f00=0x0133, f01=0x0000, f02=»
[…0xf…]
0x034de0…034f74 (0, 67) Dummy {f00=0x0136, f01=0x0000, f02=»
[…0xf…]
0x036720…0368b4 (0, 69) Dummy {f00=0x0126, f01=0x0190, f02=» P LKM > P DATA 3 EXIT > P XIF > $ P IFT FLXDSC=1 > 0 P EJECT > F PDMT900 EQU * > T $ P* UNLOCK FLEXDISC IN THIS LOOP > h P* > P* REGISTERS > P* A1 = EXTENT COUNTER > 6 P* A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR >
0x0368b4…036a48 Dummy {f00=0x0126, f01=0x0004, f02=»$ $
0x036a48…036bdc Dummy {f00=0x0126, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x036bdc…036d70 Dummy {f00=0x0126, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x036d70…036f04 Dummy {f00=0x0126, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x036f04…037098 Dummy {f00=0x0126, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x037098…03722c Dummy {f00=0x0126, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x03722c…0373c0 Dummy {f00=0x0126, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA , ( L P & S N @ " S 8 , ( @ B | f @ ,T W , ( A 2T
0x0373c0…037554 (0, 70) Dummy {f00=0x0101, f01=0x0000, f02=»
0x037554…0376e8 Dummy {f00=0x0101, f01=0x0002, f02=» (
0x0376e8…03787c Dummy {f00=0x0101, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x03787c…037a10 Dummy {f00=0x0101, f01=0x0190, f02=»XTRN CHLTON LOCAL/REMOTE TERMINALS P* * P* 4 P* > P* H P* R P* P* f P* p ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 z ( P EXTRN C2DRON 2 ( P EXTRN C3DRON 3 P* P
0x037a10…037ba4 Dummy {f00=0x0101, f01=0x0190, f02=»N DISC UNIT P* $ P EXTRN MTDRON MAGNETIC TAPE UNIT 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION F $ PPFTAB DATA PFTABE-* TABLE LENGTH z P DATA TWON P DATA TCDRON P DATA SOPR P* P DATA CHLTON P* P*
0x037ba4…037d38 Dummy {f00=0x0101, f01=0x40fc, f02=»* P* P* P DATA FDON P DATA LPON FLOPPY 0 P DATA CRON CARD-READER J P DATA DUON h P* z P DATA MTDRON P DATA DMINIT P* PPFTABE EQU * END OF TABLE P* P* P END @ P*
0x037d38…037ecc Dummy {f00=0x0101, f01=0x2008, f02=» TON LOCAL/REMOTE TERMINALS P* * P EXTRN DUON DISC UNIT 4 " P EXTRN MTON MAGNETIC YAPE UNIT R P* x P* $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA TCDRON P DATA SOPR P DATA DRDCON P DATA
0x037ecc…038060 Dummy {f00=0x0101, f01=0x0190, f02=» ORDER v EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA5 SAVE AREA A5 0 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT R ( P EXTRN SCTPLD PROGRAM LOADING DEVICE | ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT
0x038060…0381f4 (0, 71) Dummy {f00=0x0127, f01=0x2008, f02=»
0x0381f4…038388 Dummy {f00=0x0127, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x038388…03851c Dummy {f00=0x0127, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x03851c…0386b0 Dummy {f00=0x0127, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x0386b0…038844 Dummy {f00=0x0127, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x038844…0389d8 Dummy {f00=0x0127, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x0389d8…038b6c Dummy {f00=0x0127, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x038b6c…038d00 Dummy {f00=0x0127, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x038d00…038e94 (0, 72) Dummy {f00=0x0128, f01=0x0190, f02=»*************** m r " P LD A9,DWTECB,A1 USER ECB ADDR n $ P LD A8,ECBBA,A9 BUFFER ADDR USER n > P LDR A12,A8 n f $ P LD A11,FDBRLE,A1 RECORD LENGTH n z P SUKL A11,6 KEY LENGTH n P LDR A13,A14 n 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS n $ P
0x038e94…039028 Dummy {f00=0x0128, f01=0x0190, f02=»OR FOUND n z P LDR A13,A3 BUFFER ADDR o " P LD A4,FDBADF,A6 FDB DATA FILE o 0 P LD A5,DWTECB,A4 USER ECB o V P LD A1,DWTOR,A6 o x P ANK A1,/3F o P SUK A1,QDELX o & P ABL(E) DEL000 DELETE INDEX RECORD o P* o ( P* SET RC BIT 6 TO USER I
0x039028…0391bc Dummy {f00=0x0128, f01=0x018e, f02=»EY NOT ALLOWED IN FILE) o P* p P LC A4,ECBFC,A5 FILE CODE p * P CC A4,FDBECB+1,A6 p L * P RF(NE) INS049 NOT REQUESTED FILE CODE p f P LDKL A4,/200 BIT 6 p " P ORS A4,ECBRC,A5 NEXT KEY SAME p PINS049 EQU * p P IFT INSLAS=1 p P* p
0x0391bc…039350 Dummy {f00=0x0128, f01=0x018e, f02=» P CF A14,RDNXTR GET NEXT REC q P RF INS100 OK q ( P ABL DEL045 ERROR q > PINS100 EQU * q X P ADR A2,A3 q l P ADK A2,10 REC ADDR q ~ P AD A2,FDBRLE,A1 ADDR STATUS q P LDK A5,/FF q P CCR A5,A2 q P RF(E) INS150 USED q P LD A5,FDB
0x039350…0394e4 Dummy {f00=0x0128, f01=0x0190, f02=» P CWR A5,A11 KEY LENGTH r $ P RB(E) INS080 NEXT SAME GET NEXT r " P* r J P* UPDATE LAST SAME RECORD r T P* r x P SC A11,-4,A2 NEXT SAME r P LD A7,FDBRRO,A1 r P CW A7,FDBMRO,A1 r & P RF(NE) INS160 SECT WRITTEN LATER r P* r P*
0x0394e4…039678 Dummy {f00=0x0128, f01=0x018e, f02=» P ABL(NZ) DMTERR s P* s P* GET NEXT RECORD s & P* s B PINS160 EQU * s L " P LDR A7,A5 NR OF SAME IN NEXT s ` P LDR A1,A6 FDB s P CF A14,RDNXTR GET NEXT RC s P RF INS170 OK s P ABL DEL045 ERROR s PINS170 EQU * s P LDR A
0x039678…03980c Dummy {f00=0x0128, f01=0x0190, f02=» s P* t ( P* CREATE AN INDE XRECORD IN AREA 1 t P* t > P LDR A1,A12 FROM ADDR t H P* t f P LDR A3,A14 t p P ADK A3,2 TO ADDR t P LDR A2,A11 KEY LENGTH t P CF A14,DMTBM MOVE KEY t P LDK A2,0 t P SCR A2,A3 DUMMY t P ADK
0x03980c…0399a0 Dummy {f00=0x0128, f01=0x0190, f02=»R t t P LD A2,ECBCW+2,A5 u ( P LD A3,ECBCW,A5 REC NR DATA FILE REC u $ P SCR A2,A7 u P P ADK A7,2 u b P SCR A3,A7 u t P ECR A3,A3 u P SUK A7,1 u P SCR A3,A7 LOG REC NR u P ADK A7,2 u P LDK A1,/FF USED u P SCR A1,A7 STATUS CHAR
0x0399a0…039b34 (0, 73) Dummy {f00=0x0128, f01=0x0190, f02=»T A3,FDBLRN+1,A6 } P LDKL A1,/1000 EOF ~ P ORS A1,ECBRC,A9 EOF TO USER ~ 4 PINS430 EQU * ~ X P* ~ l 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS ~ v P* ~ P LDKL A12,1 ADD ON E TO CRN ~ P LDR A8,A2 ~ P LDR A9,A3 LAST REC NR MOVED ~
0x039b34…039cc8 Dummy {f00=0x0128, f01=0x0190, f02=»TE CRN IF SAME FILE CODE ~ P* P LD A1,FDBADF,A5 FDB DATA F * " P CF A14,CRNGET GET CRN BUFFER N & P LD A9,DWTECB,A1 USER ECB ADDR =4 t " P LC A4,ECBFC,A9 USER FILE CODE P CC A4,FDBECB+1,A5 P RF(NE) INS440 OTHRER FILE P ST A10,
0x039cc8…039e5c Dummy {f00=0x0128, f01=0x0190, f02=»DK A1,0 OK RET CODE P LDR A3,A13 BUFFER ADDR P ABL DMTEX2 < P EJECT P * PDEL000 EQU * DELETE INDEX RECORD CONT ^ P LDR A12,A5 USER ECB ADDR P LDR A2,A2 PDEL010 EQU * " P ABL(NZ) DMI030 KEY NOT FOUND P* P*
0x039e5c…039ff0 Dummy {f00=0x0128, f01=0x0190, f02=»7 BUFSTA+2-3=ADDR REC NR P LCR A2,A1 P CC A2,ECBCW+3,A12 REC NR 2 P RF(NE) DEL030 WRONG RECORD T P LC A2,1,A1 x P ECR A2,A2 P LC A2,2,A1 REC NR P CW A2,ECBCW,A12 P RF(E) DEL200 RECORD FOUND PDEL030 EQU * P*
0x039ff0…03a184 Dummy {f00=0x0128, f01=0x018e, f02=»DB INDEX PDEL040 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD $ P RF DEL050 OK P PDEL045 LDR A1,A5 ERROR CODE f P ABL DMI035 ERROR PDEL050 EQU * P* P* CHECK IF RECORD IS USED P* P LDR A13,A3 NEW BUFFER A
0x03a184…03a318 Dummy {f00=0x0128, f01=0x0190, f02=» P RB(E) DEL020 USED P LD A4,FDBMRO,A1 ( P ST A4,FDBRRO,A1 LAST REC IN SECTOR 6 P RB DEL040 NEXT REC b P EJECT ~ PDEL200 EQU * RECORD FOUND P* & P* SET RC BIT 6 IF NEXT KEY SAME P* $ P LC A2,ECBFC,A12 USER FILE C
0x03a318…03a4ac Dummy {f00=0x0128, f01=0x0190, f02=»A6 * P RF(NE) DEL220 NOT REQUESTED FILE CODE P CWR A11,A7 KEY LENGTH : $ P RF(NE) DEL220 NEXT KEY NOT SAME X P LDKL A4,/200 $ P ORS A4,ECBRC,A12 NEXT KEY SAME PDEL220 EQU * P* $ P* MOVE UP RECORDS OVER DELETED P*
0x03a4ac…03a640 Dummy {f00=0x0128, f01=0x0190, f02=» P ADR A1,A11 FROM ADDR P LD A2,FDBMRO,A6 & P SU A2,FDBRRO,A6 NR OF CHAR > P CF A14,DMTBM MOVE b P* | P* SET LAST RECORD FREE P* P ADR A3,A11 P SUK A3,1 P LDK A1,0 P SCR A1,A3 STATUS FREE P*
0x03a640…03a7d4 (0, 74) Dummy {f00=0x0129, f01=0x0190, f02=» * | : P* EXIT: * * : P* * h : P* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * : P* LODSEG,REBUF,MOVBUF
0x03a7d4…03a968 Dummy {f00=0x0129, f01=0x0190, f02=» * ` : P****************************************************** PSYSLOD EQU * L P* ` P* SAVE REGISTERS j P* 0 P ST A1,SCTADA SAVE APPLICATION DISC ADDRESS * P ST A2,SCTPLD SAVE PROGRAM LOAD DEVICE $ P ST A3,SCTANO APPLICATIO
0x03a968…03aafc Dummy {f00=0x0129, f01=0x018e, f02=»G P ABR(NZ) A1 P EJECT P* , P* INDICATE SYSLOD RUNS 6 P* V P LDKL A1,LMP1 ` P OTR A1,0,SOP v P* B P* INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) $ P* AND ADDRESS TO GETPSW-ROUTINE P*
0x03aafc…03ac90 Dummy {f00=0x0129, f01=0x0190, f02=» P LDK A6,64 INIT PAGE COUNTER " P LD A1,SCTOPT GET OPTION WORD ( P ANK A1,1 MMU IN SYSTEM? N P RF(Z) AP:100 NO! n P EJECT P* > P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY P* " P SLL A6,2 UPPER SAVE20=256 K
0x03ac90…03ae24 Dummy {f00=0x0129, f01=0x0190, f02=» PAGE ADDRESS p P ST A2,TABBE STORE IT BACK P TL TABBE LOAD MMU REGISTERS 8 * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN * P EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT ( P CWR A2,A5 COMPARE WITH TEST PATTERN P RF(E) AP:200 ( P SUK A6,4 DECR
0x03ae24…03afb8 Dummy {f00=0x0129, f01=0x0190, f02=» P EJECT PAP:100 EQU * P* & @ P* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY 0 P* t & P LDKL A1,PAGSIZ-2 SAVE09 AT /FFFE ~ PAP:110 EQU * & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE ( P LDR* A2,A1 SAVE OLD MEMORY CONTEN
0x03afb8…03b14c Dummy {f00=0x0129, f01=0x018e, f02=»EMENT NUMBER OF PHYSICAL PAGES P RB AP:110 & PAP:120 EQU * 8 * P STR A2,A1 RESTORE OLD MEMORY CONTENT L P* z H P* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY P* P EJECT P* P* COMMON EXECUTION PA
0x03b14c…03b2e0 Dummy {f00=0x0129, f01=0x0190, f02=» n P* P LD A11,SCTADA P* ( H P* INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE 2 ( P LD A9,SCTSFA POINTER TO READ BUFFER ~ P LDR A3,A9 SAVE * P LD A2,SCTPLD GET PROGRAM LOAD DEVICE P LDR A1,A2 SAVE P
0x03b2e0…03b474 (0, 75) Dummy {f00=0x012c, f01=0x0190, f02=» RB(N) DMT540 ENTRY USED - P SUR A6,A2 NO OF SPARE WORDS . & P RB(N) DMT540 LARGER ENTRY NEEDED . D P* . n P* SUFFICIENT SPACE FOUND . x P* . P LDKL A1,/8000 USED BIT . & P ORS A1,MXIND+2,A5 MARK ENTRY USED . $ P ST A3,TASMXA MASTER INDEX
0x03b474…03b608 Dummy {f00=0x012c, f01=0x0190, f02=»3 ENTRY LENGTH . P ADK A3,4 SKIP MX HEADRER / P ST A3,ECBBA,A8 BUFFER ADDR / 8 P ST A1,ECBRL,A8 REQ LGTH / . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / | P CWR A1,A4 MXIND ENTRY / P RF(NL) DMT590 LAST ENTRY / P LD A3,MXIND+6,A1 / " P
0x03b608…03b79c Dummy {f00=0x012c, f01=0x0190, f02=»7FFF REMOVE USE BIT / P SUR A2,A6 0 P ORKL A2,/8000 USE BIT 0 . P ST A2,MXIND+2,A1 0 L . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 f $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A1 0
0x03b79c…03b930 Dummy {f00=0x012c, f01=0x0190, f02=»* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE 0 < P* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON 1 < P* 1 | PDMT550 EQU * 1 & P LDK A7,/42 SEQ READ,NOWAIT,NO EA 1 P LKM 1 P DATA -1 1 P DATA DMTAR5 1 P LKM 1 P DATA 3
0x03b930…03bac4 Dummy {f00=0x012c, f01=0x0190, f02=»FEFF BIT 7 ONLY RETRIES 1 P RF(Z) DMT560 NO ERROR 2 P* 2 > " P* REMOVE THE ONLY CRN BUFFER 2 H P* 2 n P LD A4,TASFDB FDB ADDR 2 x P LD A5,FDBCRL,A4 CRN BUF ADR 2 P RF(Z) DMT553 NO CRN 2 P CM FDBCRL,A4 2 P INH 2 P LD A6,CRNQUE 2
0x03bac4…03bc58 Dummy {f00=0x012c, f01=0x0190, f02=»OLIE MXINDEX IS READ 2 x P LDK A7,7 3 PDMT555 SUR A8,A8 NO BUFFER 3 . P ABL DMTASX DISC IO ERR 3 P PDMT560 EQU * 3 p P* 3 P* RECORD READ,READ NEXRT 3 P* 3 P LD A2,ECBRL,A8 3 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB DMT550 READ NE
0x03bc58…03bdec Dummy {f00=0x012c, f01=0x0190, f02=» 3 2 P* MASTER INDE X READUY. RERUN FOR INDEX FILE 4 P* 4 > P LDK A1,1 4 H P ST A1,TASFIL INDEX FILE 4 Z " P LD A3,TASSPW TTAB ADR DMTASK 4 z P CM TTB:TD+2,A3 DELETE ENTRY 4 P CM TTB:TD+4,A3 4 P LD A3,TASFDB FDB ADDR 4 P LDKL A2,/FFFE
0x03bdec…03bf80 Dummy {f00=0x012c, f01=0x0190, f02=»SIBLE 4 t P LDK A1,0 5 2 P* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP 5 P ABL DMT050 ASSIGN INDEX 5 V P EJECT 5 v PDMT600 EQU * 5 P* 5 P* INDEX FILE ASSIGN 5 P* 5 P LDK A7,10 RET CODE 5 & P LD A10,TASFDD FDB ADDR DATA FILEP
0x03bf80…03c114 (0, 76) Dummy {f00=0x012e, f01=0x0000, f02=»
0x03c114…03c2a8 Dummy {f00=0x012e, f01=0x0004, f02=»% %
0x03c2a8…03c43c Dummy {f00=0x012e, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x03c43c…03c5d0 Dummy {f00=0x012e, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x03c5d0…03c764 Dummy {f00=0x012e, f01=0x0190, f02=»A r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 0 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS : 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER z P* PX:B EQU 50 PCRNBAR EQU X:B CURRENCY AREA P* P* PX:
0x03c764…03c8f8 Dummy {f00=0x012e, f01=0x0190, f02=»* PQFDBAR EQU X:A P* PX:D EQU 96 * & PQFDBFL EQU X:D FDB FIX PART LENGTH < P* f P EJECT p P* ~ PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU *
0x03c8f8…03ca8c Dummy {f00=0x012e, f01=0x4102, f02=»IZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : P XIF h PMXINDE EQU * END INDEX INDEX t 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @ EQU *
0x03ca8c…03cc20 Dummy {f00=0x012e, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x03cc20…03cdb4 (0, 77) Dummy {f00=0x012e, f01=0x0000, f02=»
0x03cdb4…03cf48 Dummy {f00=0x012e, f01=0x0002, f02=»%
0x03cf48…03d0dc Dummy {f00=0x012e, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x03d0dc…03d270 Dummy {f00=0x012e, f01=0x40e8, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P* P* P* LEVE
0x03d270…03d404 Dummy {f00=0x012e, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P*
0x03d404…03d598 Dummy {f00=0x012e, f01=0x2008, f02=» DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L P DATA 0 OUTPUT QUEUE LINK j P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P*
0x03d598…03d72c Dummy {f00=0x012e, f01=0x0190, f02=»D A3,4,A8 REQUESTED LENGTH # P CWK A3,130 $ " " P ABL(NE) END:10 ILLEGAL LENGTH $ 6 P LD A4,2,A8 BUFFER ADDRESS $ P RB FD:045 $ ~ P XIF $ P* $ P EJECT DRFD01 $ P* $ P*************** $ P* * $ P* TEST STATUS *
0x03d72c…03d8c0 Dummy {f00=0x012e, f01=0x018e, f02=» P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % ( " P ANKL A3,/200 WRITE PROTECTED? % R P ORS A3,DWTRCW,A6 % x P IFF TOSS+IBM=0 % P RF LOA:05 READ VOLUME NAME % P* % PFD:075 EQU * % P XIF % $ P LD A1,DWTRCW,A6
0x03d8c0…03da54 (0, 78) Dummy {f00=0x013b, f01=0x0000, f02=»
0x03da54…03dbe8 Dummy {f00=0x013b, f01=0x0004, f02=»'h'p
0x03dbe8…03dd7c Dummy {f00=0x013b, f01=0x0190, f02=» J F IDENT DMTASK REL 9.2 79-11-16 870105040920 ( $ DMTASKKdSQRdQSW DMTWM QIRNY QIRR R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x03dd7c…03df10 Dummy {f00=0x013b, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TDC F , ( w $ -_ D U 0 X SCTCDT@ , ( W T ` U @ , FDBRRO ECBBA , ( A @ W : X
0x03df10…03e0a4 Dummy {f00=0x013b, f01=0x018e, f02=» X p FDBDBR DWTOR , ( P D V D "? P 0 FDBECB ` GTBKBUM r * & P &P E , ( 5 V P ( ( ( W DMTIOTO * & @ S @
0x03e0a4…03e238 Dummy {f00=0x013b, f01=0x0190, f02=» VLVRL FDBVTO DIVMOD & , ( @ T T A ( J " 8 VLVBA h , ( $ $ P W T & Y x DMTRBUS * & P T _ Y F CLRBUFV FDBLRN
0x03e238…03e3cc Dummy {f00=0x013b, f01=0x0190, f02=» FDBMIA ECBFC * & ! T X 0 X 2P F , ( 9 4 T P N SCTTCT ~ TTB:ID , ( W! ` 6 U @ 6 , D 8 !## , ( q$ X D ]" 0 , (
0x03e3cc…03e560 Dummy {f00=0x013b, f01=0x0190, f02=» , ( 5W P 0 @ > 1 A >(@_ FDBEXT: 8 EXTELER J , ( $ @ B (@ / DWTTQ QTJOB , ( O D $P % 4 F , ( " F 4 (@ B (
0x03e560…03e6f4 (0, 79) Opaque[0x194]
0x03e6f4…03e888 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bd8, f03=0x0000}
0x03e6f4…03e888 IdxSect {
0x03e6f4…03e888 f00 = 0x00de // 0x3e6f4 @0x0
0x03e6f4…03e888 f01 = 0x0002 // 0x3e6f6 @0x2
0x03e6f4…03e888 gno = [ // 0x3e6f8 @0x4
0x03e6f4…03e888 [0x00]: C0x00de.0x3.0
0x03e6f4…03e888 ]
0x03e6f4…03e888 }
0x03e888…03ea1c Dummy {f00=0x00de, f01=0x0190, f02=» 2 P IDENT SCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWTC01 P EXTRN DWSI01 P EXTRN DWLP01 P EXTRN DWDU02 P
0x03ea1c…03ebb0 Dummy {f00=0x00de, f01=0x0190, f02=»A TC00 P DATA TC01 P DATA TC02 0 PTCLASE EQU * N PTC00 DATA TC00E-* b P DATA /0012 P DATA DWTC01 P DATA /0010 P DATA DWSI01 PTC00
0x03ebb0…03ed44 Dummy {f00=0x00de, f01=0x0190, f02=» * PTC02 DATA TC02E-* P DATA /00F2 0 P DATA DWDU02 P P DATA /01F3 f P DATA DWDU02 P DATA /00F0 P DATA DWDU01 P DATA /01F1 P DATA DWDU01 P
0x03ed44…03eed8 Dummy {f00=0x00de, f01=0x407c, f02=» P DATA DWFD01 P DATA /03FB P DATA DWFD01 : PTC02E EQU * P P END l@ x3 f P DATA DWDU02 P DATA /00F0 P DATA DWDU01 P DATA /01F1 P DATA DWDU01 P
0x03eed8…03f06c Dummy {f00=0x00de, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x03f06c…03f200 Dummy {f00=0x00de, f01=0x0190, f02=» P ST P,INTSAV * P CF A15,IHSAV8 SAVE A1-A8 ON A15 STACK $ P LDKL A6,DW1701 LOAD DWT ADDRESS F , P INR A2,0,DAMI01 GET CHARACTER FROM LINR n PIHI100 EQU * P ABL(NA) SSTIN P**LOGG P IFF LOGG=0 P LD A5,DWTSAV+4,A6 & P CF
0x03f200…03f394 (0, 80) Opaque[0x194]
0x03f394…03f528 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bf8, f03=0x0000}
0x03f394…03f528 IdxSect {
0x03f394…03f528 f00 = 0x00df // 0x3f394 @0x0
0x03f394…03f528 f01 = 0x0002 // 0x3f396 @0x2
0x03f394…03f528 gno = [ // 0x3f398 @0x4
0x03f394…03f528 [0x00]: C0x00df.0x3.0
0x03f394…03f528 ]
0x03f394…03f528 }
0x03f528…03f6bc Dummy {f00=0x00df, f01=0x0190, f02=» 2 P IDENT MONTAB REL 9.2 79-11-16 870105040920 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x03f6bc…03f850 Dummy {f00=0x00df, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN CTAB01 R P EXTRN KBAD h P EXTRN GPAD | P EXTRN DYAD P* P P PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA 0,0 PINTLT1 D
0x03f850…03f9e4 Dummy {f00=0x00df, f01=0x40da, f02=»0 PINTRT4 DATA 0 P DATA SYSLOD P**** 4 P DATA CTAB01 @ P DATA KBAD V P DATA GPAD h P DATA DYAD z P* 0 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF P END @ ATA 0 PPAGQUE DATA 0,0 PINTLT1 D
0x03f9e4…03fb78 Dummy {f00=0x00df, f01=0x2008, f02=» DATA DYAD P* P* $ P END .@ : DYAD 8 P* L P* V P* ` PMONTAB EQU * j PTCTAB DATA 0 ~ PCDTAB DATA 0 PBLOCKS DATA 0 PDCTAB DATA 0 PINTLT1 DATA 0 PINTLT2 DATA 0 PINTRT1 DATA
0x03fb78…03fd0c Dummy {f00=0x00df, f01=0x018e, f02=»IO A2,1,DAF2 CIO-START FIXED DISC ; , P CIO A2,1,DAC2 CIO-START CARTRIDGE DISC < * P* < Z P EJECT DRDU01 < d P* < | P* < P WER A2,WER1 < P WER A3,WER1+1 < & P DATA 0,0,0 VOLUME NAME FIXED DISC < * P DATA 0,0,0 VOLUME NAME CARTRIDGE DI
0x03fd0c…03fea0 Dummy {f00=0x00df, f01=0x018e, f02=» < P IFT NUNITS+TYPE2=3 = P DATA MAXCY6 MAX CYLINDER NO = $ P XIF = H P* = T P IFT NUNITS=2 = ^ P IFT MMUPAG=1 = t * P DATA 0 PAGE NUMBER (PSEUDO MMU TABLE) = * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS = PECBDU2 EQU * = P DATA 0,0,0,0,
0x03fea0…040034 (0, 81) Opaque[0x194]
0x040034…0401c8 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2478, f03=0x0000}
0x040034…0401c8 IdxSect {
0x040034…0401c8 f00 = 0x0123 // 0x40034 @0x0
0x040034…0401c8 f01 = 0x0006 // 0x40036 @0x2
0x040034…0401c8 gno = [ // 0x40038 @0x4
0x040034…0401c8 [0x00]: C0x0123.0x3.0
0x040034…0401c8 [0x01]: C0x0126.0x3.0
0x040034…0401c8 [0x02]: C0x0127.0x0.0
0x040034…0401c8 ]
0x040034…0401c8 }
0x0401c8…04035c Dummy {f00=0x0123, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x04035c…0404f0 Dummy {f00=0x0123, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P EJECT SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD
0x0404f0…040684 Dummy {f00=0x0123, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x040684…040818 Dummy {f00=0x0123, f01=0x018e, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IHTC CASSETTE TAPE X ( P EXTRN IHSOP SYSTEM OPERATORS PANEL z P P * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 P EXTRN IHFD FLOPPY DISCEN P E
0x040818…0409ac Dummy {f00=0x0123, f01=0x0190, f02=» n P EXTRN HALT HALT ROUTINE P* DEBUGGER ( PX:A EQU 0 MONITOR OPTION : ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM Z * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE & PX:D EQU 0 DM NUMBER OF LOCAL FILES ( PX:E EQU 0 DM NUMBER OF COMMON FILES
0x0409ac…040b40 Dummy {f00=0x0123, f01=0x0190, f02=» | $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH 0 $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS V P* ~ & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA EQU 4 PAGE ADDRESS & PPAG:SB E
0x040b40…040cd4 (0, 82) Dummy {f00=0x0126, f01=0x0190, f02=»RST COPY j $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 SWB LENGTH (SECTORS) 8 P* b ( PT:ACSB EQU -12 CURRENT SEGMENT BASE l P EJECT SYSTAB P* P* INTERRUPT VECTORS P* P DATA IHPFAR 0 P DATA IHLKM
0x040cd4…040e68 Dummy {f00=0x0126, f01=0x0190, f02=»LINT 6 P DATA ILLINT P DATA IHTC 8 4 P DATA IHSOP 9 N P DATA ILLINT j P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA CHLT1 14 P D
0x040e68…040ffc Dummy {f00=0x0126, f01=0x018e, f02=» ILLINT P DATA ILLINT P DATA ILLINT 0 P DATA ILLINT 22 P P DATA ILLINT l P DATA CHLT1 24 P DATA ILLINT P DATA ILLINT P DATA ILLINT P
0x040ffc…041190 Dummy {f00=0x0126, f01=0x018e, f02=» P DATA ILLINT 33 P DATA IHLP 34 P DATA ILLINT : P DATA ILLINT 36 Z P DATA ILLINT 37 v P DATA ILLINT 38 P DATA ILLINT 39 P DATA IHDU1 40 P DATA IHDU2 41 P DATA
0x041190…041324 Dummy {f00=0x0126, f01=0x0190, f02=» P DATA ILLINT 47 P DATA ILLINT 48 P DATA ILLINT 49 < P DATA ILLINT 50 X P DATA ILLINT 51 t P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA IL
0x041324…0414b8 Dummy {f00=0x0126, f01=0x0190, f02=»A ILLINT 61 P DATA ILLINT 62 P DATA TRAP TRAP ROUTINE 4 P EJECT SYSTAB T P l P* t " P* SYSTEM CONTROL TABLE POINTER ~ P* P DATA SCT P P P* P* SYSTEM TRAP P* PTRAP LDK A1,/D
0x0414b8…04164c Dummy {f00=0x0126, f01=0x0190, f02=» A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 & P HLT : P F P EJECT SYSTAB N P f P* n P* SYSTEM CONTROL TABLE x P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF
0x04164c…0417e0 Dummy {f00=0x0126, f01=0x0190, f02=» l $ PSCTANO DATA 0 APPLICATION NUMBER 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS 0 PSCTPAG DATA 0 PAGTAB ADDRESS f PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER OF SEGMENTS " PSCTNOP DATA 0
0x0417e0…041974 (0, 83) Dummy {f00=0x0127, f01=0x0190, f02=»AC DATA 0 LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY 0 P INDEX REL TTAB Z * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES t ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE $ PSCTOPT DATA 0000
0x041974…041b08 Dummy {f00=0x0127, f01=0x0190, f02=» PSCTBUG DATA 0 DEBUGGER ( PSCTDMT DATA 00007 DMTASKS IN SYSTEM " P BIT 13:D2,14:D1,15:D0 N 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE n * PSCTDML DATA 00000 DM NO OF LOCAL FILES , PSCTDMC DATA 00004 DM NO OF COMMON FILES ( PSCTBLK
0x041b08…041c9c Dummy {f00=0x0127, f01=0x40e2, f02=» P* P RES 145 P DATA /FCC0 AND PSW " & PSTB DATA LOOP AND PC FOR IDLE LOOP > P h P p P* x P* IDLE LOOP P* P PLOOP RB * P P P P END @ 4 DM NO OF COMMON FILES ( PSCTBLK
0x041c9c…041e30 Dummy {f00=0x0127, f01=0x2008, f02=» P P END INIM @ & P EJECT 2 P @ P* H P* START SYSTEM R P* h P r P LD A13,CVTAPS z * P STR A13,A15 STORE USER START ADDRESS " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES
0x041e30…041fc4 Dummy {f00=0x0127, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x041fc4…042158 Dummy {f00=0x0127, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x042158…0422ec Dummy {f00=0x0127, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x0422ec…042480 Dummy {f00=0x0127, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x042480…042614 (0, 84) Opaque[0x194]
0x042614…0427a8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c40, f03=0x0000}
0x042614…0427a8 IdxSect {
0x042614…0427a8 f00 = 0x00e2 // 0x42614 @0x0
0x042614…0427a8 f01 = 0x0008 // 0x42616 @0x2
0x042614…0427a8 gno = [ // 0x42618 @0x4
0x042614…0427a8 [0x00]: C0x00e2.0x0.0
0x042614…0427a8 [0x01]: C0x00e2.0x1.0
0x042614…0427a8 [0x02]: C0x00e2.0x2.0
0x042614…0427a8 [0x03]: C0x00e2.0x3.0
0x042614…0427a8 ]
0x042614…0427a8 }
0x0427a8…04293c Dummy {f00=0x00e2, f01=0x0190, f02=» 0 P IDENT TDISP REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* P* P*
0x04293c…042ad0 Dummy {f00=0x00e2, f01=0x0190, f02=»PATCHER IN TOSS. x > P* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER Z < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. : P* - IF SO, THE RUNNING TASK IS QUEUED AND
0x042ad0…042c64 Dummy {f00=0x00e2, f01=0x0190, f02=»TRY 'DISEND' CALLS TENDIO BEFORE TDSIP P* . 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. 8 P* r 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. | P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS.
0x042c64…042df8 Dummy {f00=0x00e2, f01=0x0190, f02=»NTRY TDISP DISPATCHER ENTRY ( P ENTRY MEXIT EXIT FOR MONITOR TASKS $ " P ENTRY DISIOE I/O ERROR ENTRY P & P ENTRY DISEND END I/O AND DISPATCH v 8 P ENTRY DISQUE POINTER TO FIRST PLACE IN DISP. QUEUE 0 P ENTRY PRUN TTAB ADDRESS OF RUNNING PROGRAM
0x042df8…042f8c Dummy {f00=0x00e2, f01=0x018e, f02=» P************* P* P* ( P EXTRN TTB:SA SAVE AREA 2 P EXTRN TTB:ST STATUS R & P EXTRN TTB:PW PROGRAM STATUS WORD n P EXTRN TTB:MT MMUTAB ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS , P EXTRN SEG:PB SEGMENT PAGE BLOCK ADDRESS
0x042f8c…043120 Dummy {f00=0x00e2, f01=0x018e, f02=» d P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT & 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK F . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE | & P EXTRN SCTMMP MMU TABLE PAGE ENTRY ( P EXTRN SCTNPE NUMBER OF PAGE ENTRIES P EJE
0x043120…0432b4 (0, 85) Dummy {f00=0x00e2, f01=0x0190, f02=» . P***************************************** P* 6 . P* A PROGRAM VERSION USING TOSS MMU PAGING @ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. r P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x0432b4…043448 Dummy {f00=0x00e2, f01=0x0190, f02=»ISC PAGING p * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * @ PDSKPAG EQU 0 J * ^ P* h @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING r > P* APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE 8 P* SAME SEGMENT I
0x043448…0435dc Dummy {f00=0x00e2, f01=0x018e, f02=»VERLAY f * P* IS OBTAINED BY SETTING ASSOLY EQU 1 P* < PASSOLY EQU 0 F P* Z P EJECT TDISP d P* z P* D I S Q U E P* 2 P* POINTER TO FIRST PLACE IN DISPATCHER QUEUE P* PDISQUE DATA 0 P* P*
0x0435dc…043770 Dummy {f00=0x00e2, f01=0x0190, f02=» P* R E T U R 8 P* . P* LOAD 8 REGISTERS FROM STACK AND RETURN * P* PRETUR8 EQU * f P z P IFT CPU852=0 P MLR 8,A15 P XIF P P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15
0x043770…043904 Dummy {f00=0x00e2, f01=0x0190, f02=» P EJECT TDISP P P* & P* M E X I T 0 P* F 0 P* DO EXIT ON MONITOR TASK AND GO TO TDISP P P* PMEXIT INH P LD A5,PRUN P CF A15,EXIT P CM PRUN P RF TDISP P P* P* D I S I
0x043904…043a98 Dummy {f00=0x00e2, f01=0x0190, f02=»* D I S E N D P* $ P* CALL TENDIO AND GO TO TDISP " P* J PDISEND CF A15,TENDIO T P EJECT TDISP p P* P* T D I S P P* $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP INH & P LC A1,18,A15 LOAD P
0x043a98…043c2c Dummy {f00=0x00e2, f01=0x0190, f02=»CHER QUEUE P* PTDISCQ LDKL A2,DISQUE P LDR* A3,A2 : P RB(Z) RETUR8 QUEUE EMPTY N P p P LD A5,PRUN x $ P RF(Z) TDCQ10 IDLE LOOP RUNNING & P LD A4,TTB:ST+1,A5 COMPARE RUNNING 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIOR
0x043c2c…043dc0 Dummy {f00=0x00e2, f01=0x0190, f02=» P P IFT DSKPAG=1 , P LD A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR " P RF(Z) TDISSW NONE R P LDR* A7,A1 l P RF(N) TDISSW SEGMENT LOADED 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF
0x043dc0…043f54 (0, 86) Dummy {f00=0x00e2, f01=0x0190, f02=»D RUNNING TASK ~ P RF(Z) TDISST IDLE LOOP P 6 . P ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY > P RF(Z) TDSW20 EMPTY QUEUE p 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6
0x043f54…0440e8 Dummy {f00=0x00e2, f01=0x0190, f02=» ST A14,TTB:SA+28,A5 SAVE REGISTERS P LDR A14,A5 , P @ P IFT CPU852=0 H P MLR 8,A15 ^ P MS 13,TTB:SA+2,A14 p P MLR 2,A15 P P XIF P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR
0x0440e8…04427c Dummy {f00=0x00e2, f01=0x0190, f02=»B:SA+24,A14 P ST A11,TTB:SA+22,A14 P ST A10,TTB:SA+20,A14 2 P ST A9,TTB:SA+18,A14 P P ST A8,TTB:SA+16,A14 l P ST A7,TTB:SA+14,A14 P ST A6,TTB:SA+12,A14 P ST A5,TTB:SA+10,A14 P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,
0x04427c…044410 Dummy {f00=0x00e2, f01=0x0190, f02=»TB:SA,A14 AND PC & P ST A2,TTB:PW,A14 AND PSW IN TTAB P IFT DSKPAG+DIFPRI=2 B P ^ * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR f P RF(Z) TDISST NONE P LDR* A2,A1 GET SEGM STATUS P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY
0x044410…0445a4 Dummy {f00=0x00e2, f01=0x018e, f02=»AT IT WAS THIS TASK x P XIF P EJECT TDISP ( P* > P* START NEW TASK H P* ` PTDISST LD A14,PRUN j P IFT DSKPAG=1 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOC
0x0445a4…044738 Dummy {f00=0x00e2, f01=0x0190, f02=» P IFT DSKPAG+DIFPRI=2 P $ ( P LDR* A2,A4 CHECK IF PAGE IN PAGQUE , P RF(NZ) TDST10 YES X " P LDR* A3,A1 NO GET SEGM STATUS r 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT
0x044738…0448cc Dummy {f00=0x00e2, f01=0x018e, f02=» DSKPAG=1 P 2 PTDST10 LD A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE P STR A2,A3 P P ST A3,PAG:QB,A2 b P CMR A4 z P , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS ( P LD A5,TTB:SA+26,A14 AND T:A ADDRESS P P IFT MMUPAG=1
0x0448cc…044a60 Dummy {f00=0x00e2, f01=0x0190, f02=» , P LD A4,SCTNPE AND GET NUMBER OF ENTRIES P 4 2 PTDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE < P SUK A4,1 r P RF(Z) TDST25 P ADK A2,4 P ADK A3,2 P RB TDST22 P PTDST25 EQU * P IFT ASSOLY=0 " P TL TT
0x044a60…044bf4 (0, 87) Dummy {f00=0x00e2, f01=0x0190, f02=»,T:ACSB,A5 P RF TDST35 P $ P XIF , P IFT DSKPAG-MMUPAG=1 8 4 P ST A1,T:ACSB,A5 UPDATE BASE IN T:A JUST IN CASE T P XIF P PTDST30 EQU * P IFT MMUPAG=1 " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST
0x044bf4…044d88 Dummy {f00=0x00e2, f01=0x0190, f02=» n & P ML 14,TTB:SA+2,A14 LOAD REGISTERS P 2 P XIF : P IFT CPU852=1 F P P STR A1,A15 PUT PC d P STR A2,A15 AND PSW ON STACK ~ & P LD A1,TTB:SA+2,A14 LOAD REGISTERS P LD A2,TTB:SA+4,A14 P LD A3,TTB:SA+6,A14 P LD
0x044d88…044f1c Dummy {f00=0x00e2, f01=0x4106, f02=» LD A9,TTB:SA+18,A14 P LD A10,TTB:SA+20,A14 P LD A11,TTB:SA+22,A14 : P LD A12,TTB:SA+24,A14 X P LD A13,TTB:SA+26,A14 v P LD A14,TTB:SA+28,A14 P P XIF P P RTN A15 START THE TASK P P END @ D
0x044f1c…0450b0 Dummy {f00=0x00e2, f01=0x2008, f02=» p P* P* P END $@ 0K P* > P* H PLKMDIS EQU * R P INH f P LD A5,DISQUE r " P RF(Z) DIS010 NO QUEUE,RETURN & P LD A1,32,A15 LOAD PSW FROM STACK P SRL A1,10 GET LEVEL 4 P CC A1,TTABST+1,A5 A
0x0450b0…045244 Dummy {f00=0x00e2, f01=0x0190, f02=»7,INCARD INSERT CARD ) P RF(E) IHRET YES * P ADK A7,INCARD * 4 & P SUK A7,ENOFOP END OF OPERATION ? * J P RF(E) IHRET * t P LDR A4,A2 * & P SUK A4,DOCESC DOCUMENT ESCAPED ? * P RF(E) IHM140 YES * < PIHRET ABL LDREG LOAD REG. AND RETURN CALLI
0x045244…0453d8 Dummy {f00=0x00e2, f01=0x0190, f02=» PENDIO4 RB ENDIO3 + P EJECT DRMS02 + P* + 4 P* + > P* R C M S + H P* + P* RECOVERY ROUTINE + f P* + P* + PRCMS EQU * + P* + P IFT CPU852=1 + * P CF A15,SAVE8 SAVE A1-A8 ON A15 STACK + P XIF + P* +
0x0453d8…04556c Dummy {f00=0x00e2, f01=0x0190, f02=» + l P LD A7,DWTST,A6 BUSY? , P RB(N) EXIT NO , & $ P LDK A1,THRERR THROUGHPUT ERROR , < P RB ENDIO4 , d P EJECT DRMS02 , v P* , . P* STORE = SUBROUTINE TO STORE CHARACTER , : P* IN ECB-BUFFER AND INCREMENT BUFFER INDEX. , P
0x04556c…045700 Dummy {f00=0x00e2, f01=0x0190, f02=»DK A3,1 INCR. INDEX , P RTN A15 - P* - , P EJECT - 6 P* - D * P* CDCHK = CHECK IF CODE CHECK ERROR - N P* - | P* AT ENTRY: A2=CHARACTER - $ P* AT EXIT: A1=RERURN CODE 0,2 - P* - PCDCHK EQU * - P LDR A1,A2 - P SUK A1,
0x045700…045894 (0, 88) Opaque[0x194]
0x045894…045a28 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c90, f03=0x0000}
0x045894…045a28 IdxSect {
0x045894…045a28 f00 = 0x00e4 // 0x45894 @0x0
0x045894…045a28 f01 = 0x000a // 0x45896 @0x2
0x045894…045a28 gno = [ // 0x45898 @0x4
0x045894…045a28 [0x00]: C0x00e4.0x2.0
0x045894…045a28 [0x01]: C0x00ec.0x2.0
0x045894…045a28 [0x02]: C0x0101.0x3.0
0x045894…045a28 [0x03]: C0x0102.0x0.0
0x045894…045a28 [0x04]: C0x0123.0x1.0
0x045894…045a28 ]
0x045894…045a28 }
0x045a28…045bbc Dummy {f00=0x00e4, f01=0x0190, f02=» 2 P IDENT LRPINT 9.2DK 1 79-11-16 870105040920 P : P =DK1, HANGING REM. TERM. B P 80-03-11 f P* z P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P*
0x045bbc…045d50 Dummy {f00=0x00e4, f01=0x0190, f02=»************************************************** P* : P* D : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS N P* FOR TOSS. THESE ARE: P* P* -IHLKM: LKM INTERRUPT P* P* -IHRTC: RTC INTERRUPT P*
0x045d50…045ee4 Dummy {f00=0x00e4, f01=0x0190, f02=»THESE ARE: P* 4 P* -LKMRQE: SET A7 = -1, QUEUE JOB AND DISPATCH P* T ( P* -LKMQDI: QUEUE JOB AND DISPATCH ^ P* P EJECT LRPINT P* P* P*********** P* ENTRIES * P*********** P* P*
0x045ee4…046078 Dummy {f00=0x00e4, f01=0x0190, f02=»R r 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH B & P ENTRY IHRTC RTC INTERRUPT HANDLER n 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR PO
0x046078…04620c Dummy {f00=0x00e4, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP DISPATCHER J " P EXTRN DISQUE DISPATCHER QUEUE j ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TAB
0x04620c…0463a0 Dummy {f00=0x00e4, f01=0x0190, f02=»TCH TO LEVEL XY P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS < $ P EXTRN PFINIT RESTART OF DEVICES b P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN TTABLD LOAD TASK TTAB ( P EXTRN PQEMTY
0x0463a0…046534 (0, 89) Dummy {f00=0x00ec, f01=0x0190, f02=»KWARD t ( P EXTRN TTB:SB SEGMENT BLOCK POINTER & P EXTRN TTB:PW PROGRAM STATUS WORD : 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB d " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT P* P* . P****************************
0x046534…0466c8 Dummy {f00=0x00ec, f01=0x018e, f02=»PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. . P* PMMUPAG EQU 0 f P* z P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU8
0x0466c8…04685c Dummy {f00=0x00ec, f01=0x018e, f02=» DSKPAG EQU 0 * P* & 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS 0 * P* IS OBTAINED BY SETTING MCLOCK EQU 0. l P* PX:A EQU 1 PMONCLK EQU 1 P* P EJECT LRPINT P* P* P* I H
0x04685c…0469f0 Dummy {f00=0x00ec, f01=0x0190, f02=» * P* - IF STACK OVERFLOW SYSTEM HALTS. P* 2 @ P* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING < P* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. P*
0x0469f0…046b84 Dummy {f00=0x00ec, f01=0x0190, f02=»KM REQUEST) h , P* A5 = TTAB ADDRESS OF CALLING PROGRAM P* A2, A3 AND A6 ARE LOST. D P* h : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING r P* PROGRAM. P* P* P* PIHLKM EQU * $ P ST P,INTSAV SAVE
0x046b84…046d18 Dummy {f00=0x00ec, f01=0x0190, f02=» SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS P* 8 P IFT CPU852=1 B 4 P ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA X * P STR A14,A15 SAVE USER REGISTERS, -A14 P STR A13,A15 -A13 P STR A12,A15 -A12 P STR A11,A15 -A11
0x046d18…046eac Dummy {f00=0x00ec, f01=0x0190, f02=»5 -A5 P STR A4,A15 -A4 P STR A3,A15 -A3 & P STR A2,A15 -A2 > P STR A1,A15 -A1 V P XIF n P* z P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA P XIF P* 0 P LD A5,PRUN GET TTAB ADDRESS O
0x046eac…047040 Dummy {f00=0x00ec, f01=0x0190, f02=» GET LKM REQUEST PARAMETERS P* $ P LDR* A3,A15 . 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER B & P ST A3,TTB:PW,A5 STORE PSW IN TTAB z P* P IFT MMUPAG=0 & P LD A3,-2,A2 GET INSTRUCTION CODE " P LDR* A6,A2 GET DATA DIREC
0x047040…0471d4 (0, 90) Dummy {f00=0x0101, f01=0x018e, f02=»MMU TABLE t P* PLKM015 EQU * & P EL A3,-2,A2 GET INSTRUCTION CODE 0 " P ELR A6,A2 GET DATA DIRECTIVE Z P XIF P* P CWK A3,/2804 P RF(E) LKM025 LKM? P CWK A3,/6300 P RF(E) LKM025 TRAP? P* $ P* ST
0x0471d4…047368 Dummy {f00=0x0101, f01=0x0190, f02=» P EJECT LRPINT P* P* & PLKM025 EQU * 0 P IFT DSKPAG=1 D . P LD A3,TTB:SB,A5 GET SEGMENT BLOCK ADDRESS Z P RF(Z) LKM027 NO SEGMENT? " P LDR* A4,A3 GET SEGMENT STATUS 0 P ANKL A4,/1E00 CHECK IF CORE RESIDENT OR... 2 P
0x047368…0474fc Dummy {f00=0x0101, f01=0x0190, f02=»ET PAGE BLOCK ADDRESS ~ & P LDKL A4,PAGQUE GET PAGQUE ADDRESS P ST A4,PAG:QB,A3 H 4 P LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE ` " P STR A4,A3 UPDATE QUEUE LINKS P ST A3,PAGQUE P ST A3,PAG:QB,A4 4 P LD A3,PQEMTY CHECK IF LOAD
0x0474fc…047690 Dummy {f00=0x0101, f01=0x0190, f02=»K | P* , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY P LDR A4,A5 SAVE A5 D , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS ^ $ P CF A15,QTJOB RESTART LOAD TASK P LDR A5,A4 RESTORE A5 P LD A4,TTB:PW,A5 GET PSW & P ST A4,-2,A15 RESTOR
0x047690…047824 Dummy {f00=0x0101, f01=0x0190, f02=» ( P RF(E) LKM060 LOAD SEGMENT REQUEST? P XIF 0 P* < P EJECT LRPINT F P* ^ P* h PLKM030 EQU * r ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P CF A15,SWL48 SWITCH TO LEVEL 48 P LDK A4,0 " P LDR A3,A6 GET DATA DIRECTIV
0x047824…0479b8 Dummy {f00=0x0101, f01=0x0190, f02=»IRECTIVE POSITIVE z P* P IFT MMUPAG=0 $ P LDR* A4,A2 GET LABEL : P XIF X P* d P IFT MMUPAG=1 n P ELR A4,A2 GET LABEL P XIF P* P EJECT LRPINT P* . P* UPDATE TTB:SA AND GO TO LKM PROCESSOR
0x0479b8…047b4c Dummy {f00=0x0101, f01=0x0190, f02=»MAL v * P RF(Z) LKMQDI PROGRAM SWITCH REQUEST? P CW A3,LKMAL : * P RF(NL) LKMRQE INVALID DATA DIRECTIVE? N P INH | P LD A3,LKMAL,A3 P* P IFF MMUPAG+DSKPAG=0 P RF LKM065 P* . PLKM060 EQU * LOAD SEGMENT REQUEST (DAT
0x047b4c…047ce0 Dummy {f00=0x0101, f01=0x018e, f02=» P* P EJECT LRPINT P* & P* 0 P* L K M E R R : P* R P* > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT f P* PLKM070 EQU * P CF A15,HALT HALT SYSTEM P* P* P* L K M R Q
0x047ce0…047e74 (0, 91) Dummy {f00=0x0102, f01=0x0190, f02=» PLKMRQE EQU * P LDKL A2,-1 . P ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7 , P* ^ P* h P* L K M Q D I r P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS P* P* PLKMQDI EQU *
0x047e74…048008 Dummy {f00=0x0102, f01=0x0190, f02=»CT LRPINT P* P* I H R T C P* 4 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. > 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS. x P* * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT " P RIT /1B RESET INTERRUPT FLAG
0x048008…04819c Dummy {f00=0x0102, f01=0x0190, f02=»F A15,SAVE8 SAVE A1-A8 ON STACK P XIF ( P* 4 P IFT CPU852=0 > " P MSR 8,A15 SAVE A1-A8 ON STACK T P XIF z P* " P LDKL A4,-4 SET 100 MS SWITCH P ST A4,COUNT . P LDKL A2,CLOCK QUEUE CLOCK ROUTINE AS MJOB P CF A15,QMJO
0x04819c…048330 Dummy {f00=0x0102, f01=0x0190, f02=» * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP 2 P* D P EJECT LRPINT N P* f P* p P IFT MONCLK=1 z P* < P* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. P* PMCLOCK EQU * ( PRTC025 LDKL A4,-
0x048330…0484c4 Dummy {f00=0x0102, f01=0x0190, f02=»20 IM MONCLO+2,A4 INCREMENT TIME 0 P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ? ( $ P RB(NE) RTC020 GO TO DISPATCHER? ( P CM MONCLO+2,A4 RESTART TIME COUNTER P SUK A4,2 END? " P RB(N) MCLO20 MIDNIGHT CARRY? " P RB(P) MCLO10 UPDATE MINUTES
0x0484c4…048658 Dummy {f00=0x0102, f01=0x0190, f02=»MONCLO EQU * P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY * P DATA 0 HOUR T P DATA 0 MINUTE h P DATA 0 SECOND ~ PSECOND DATA 0 SECOND SWITCH P XIF P* P EJECT LRPINT P* * P* CLOCK ROUTINE STARTE
0x048658…0487ec Dummy {f00=0x0102, f01=0x0190, f02=»0 LDR* A4,A6 GET TIMER BLOCK P ABL(Z) MEXIT END OF QUEUE $ P IM 4,A4 INCREMENT TIMER F P RB(N) CLK10 NOT TIME OUT? f P RF(Z) CLK30 TIME OUT? P LDR* A3,A4 RELEASE TIMER P STR A3,A6 P CF A15,FREBLK P LDR A4,A2 P CF A1
0x0487ec…048980 Dummy {f00=0x0102, f01=0x0190, f02=» CF A15,SWL48 SWITCH TO LEVEL 48 DK1 P INH , P RB CLK10 8 P* J PCLK40 EQU * T P IFT CPU852=1 h & P CF A15,SAVE8 SAVE A1-A8 ON STACK ~ P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x048980…048b14 (0, 92) Dummy {f00=0x0123, f01=0x0190, f02=»NE r P* P* PCOUNT DATA 0 100 MS SWITCH P* @ P* J P* T I M Q U E T P* l . P* POINTER TO FIRST BLOCK IN TIMER QUEUE v P* P* PTIMQUE EQU * P DATA 0 P* P EJECT LRPINT P*
0x048b14…048ca8 Dummy {f00=0x0123, f01=0x0190, f02=»ATA 0 & PTTABPF DATA 0 TTAB FOR POWER FAIL P DATA '#P' 8 P DATA 0 J PA15SAV DATA 0 Z P DATA /00C0 p P DATA POWOFF P* P* P* WORK AREAS P* P* & PPFX DATA 1 POWER ON/OFF INDICATOR P*
0x048ca8…048e3c Dummy {f00=0x0123, f01=0x018e, f02=»INTERRUPT t P* P* PIHPFAR EQU * & $ P ST P,INTSAV SAVE LAST INTERRUPT < & P RIT /17 RESET INTERNAL INTERRUPT d & P C1S PFX INDICATE POWER ON OR OFF P RF(P) POWON POWER ON? P* P* POWER OFF P* P IFT CPU
0x048e3c…048fd0 Dummy {f00=0x0123, f01=0x0190, f02=» P XIF ! P* ! 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING ! P LDKL A2,TTABPF ! R P STR A1,A2 ! j P ST A2,DISQUE ! | P RB T:DISP ! P* ! 2 PPOWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES ! P HLT ! P* ! P EJECT LRPIN
0x048fd0…049164 Dummy {f00=0x0123, f01=0x4058, f02=» ! P CM PRUN " P RB T:DISP " P* " * P* " 4 P* " > P END " H@ " TA2,TTABPF ! R P STR A1,A2 ! j P ST A2,DISQUE ! | P RB T:DISP ! P* ! 2 PPOWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES ! P HLT ! P* ! P EJECT LRPIN
0x049164…0492f8 Dummy {f00=0x0123, f01=0x2008, f02=» # POINTER z PPFA210 EQU *-2 ( P CM INIFLG RESET INITIALIZATION FLAG . * P CF A15,PFINIT RESTART COMMON DEVICES Z 4 P ABL RETU14 RESTORE A1-A14 FROM INTERRUPT STACK P END @ 13,A15 P STR A14,A15 * P ST A15,PFA210 SAVE A1
0x0492f8…04948c Dummy {f00=0x0123, f01=0x0000, f02=»
[…0x1…]
0x049620…0497b4 (0, 93) Opaque[0x194]
0x0497b4…049948 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d28, f03=0x0000}
0x0497b4…049948 IdxSect {
0x0497b4…049948 f00 = 0x00e9 // 0x497b4 @0x0
0x0497b4…049948 f01 = 0x0006 // 0x497b6 @0x2
0x0497b4…049948 gno = [ // 0x497b8 @0x4
0x0497b4…049948 [0x00]: C0x00e9.0x1.0
0x0497b4…049948 [0x01]: C0x00e9.0x2.0
0x0497b4…049948 [0x02]: C0x00e9.0x3.0
0x0497b4…049948 ]
0x0497b4…049948 }
0x049948…049adc Dummy {f00=0x00e9, f01=0x0190, f02=» 0 P IDENT TPROC REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x049adc…049c70 Dummy {f00=0x00e9, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TEXIT = EXIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P* - TPAUSE = PAUSE TASK P* P* - TMWAIT = MULTIPL
0x049c70…049e04 Dummy {f00=0x00e9, f01=0x018e, f02=»* P* P ENTRY TWAIT WAIT PROCESSOR P ENTRY TEXIT EXIT PROCESSOR 8 , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR " P ENTRY TPAUSE PAUSE PROCESSOR * P ENTRY TMWAIT MULTIPLE WAIT PROCESSOR P P P P* P*
0x049e04…049f98 Dummy {f00=0x00e9, f01=0x0190, f02=» P EXTRN TDISP DISPATCHER * P EXTRN LKMQDI QUEUE TASK AND DISPATCH $ $ P EXTRN LKMRQE LKM REQUEST ERROR R P EXTRN EXIT PROGRAM EXIT z 2 P EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXT
0x049f98…04a12c Dummy {f00=0x00e9, f01=0x018e, f02=»RN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT TPROC * P* @ P* J . P***************************************** T P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VERSION
0x04a12c…04a2c0 Dummy {f00=0x00e9, f01=0x0190, f02=» P* P* P******** P* WAIT * ( P******** 8 P* H P* R ( P* THIS IS THE WAIT LKM PROCESSOR. P* , P* THIS MODULE IS ENTERED WHEN THE TASK 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* * P*
0x04a2c0…04a454 (0, 94) Dummy {f00=0x00e9, f01=0x0190, f02=»CB ADDRESS P* P* * PTWAIT CF A15,FNDDWT SEARCH DWT ADDRESS & P ADK A6,0 SET CR T & P RF(Z) TP:RQE FILE CODE NOT FOUND? l P* P IFT MMUPAG=0 * P LDR* A1,A8 RETURN IF EVENT COMPLETED P XIF P* P IFT MMUPAG=1
0x04a454…04a5e8 Dummy {f00=0x00e9, f01=0x0190, f02=»SET WAIT INDICATOR IN DWT ~ P RF T:DISP GO TO DISPATCHER " P* F P EJECT TPROC P P* f P* p P******** z P* EXIT * P******** P* P* ( P* THIS IS THE EXIT LKM PROCESSOR. P* * P* THIS MODULE IS E
0x04a5e8…04a77c Dummy {f00=0x00e9, f01=0x0190, f02=»D FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* H P* A5 = TTAB ADDRESS R P* p P* z PTEXIT EQU * " P CF A15,EXIT CALL PROGRAM EXIT P* & PT:DISP ABL TDISP GO TO DISPATCHER P* P EJECT TPR
0x04a77c…04a910 Dummy {f00=0x00e9, f01=0x0190, f02=» TASK LKM PROCESSOR. p P* 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER & ( P* WHEN A TASK HAS TO BE ACTIVATED. ^ P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* ( P* A1 = PARAMETER WHEN A4 NOT ZERO 4 P* A4 = S
0x04a910…04aaa4 Dummy {f00=0x00e9, f01=0x0190, f02=» PTACTOT EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 GET SEGMENT NUMBER P LDR A5,A2 P LDR A2,A4
0x04aaa4…04ac38 Dummy {f00=0x00e9, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY)
0x04ac38…04adcc Dummy {f00=0x00e9, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x04adcc…04af60 Dummy {f00=0x00e9, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P*
0x04af60…04b0f4 (0, 95) Dummy {f00=0x00e9, f01=0x0190, f02=» n P LDK A3,0 P* P IFT MMUPAG=0 $ * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK : P XIF h P* t P IFT MMUPAG=1 ~ ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 P*
0x04b0f4…04b288 Dummy {f00=0x00e9, f01=0x0190, f02=»S v & P LDR* A2,A8 GET FIRST WORD OF ECB P XIF 4 P* @ P IFT MMUPAG=1 J P ELR A8,A7 GET ECB ADDRESS ` $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED? 8 P CF A15,FNDDWT NO, SEARCH DW
0x04b288…04b41c Dummy {f00=0x00e9, f01=0x0190, f02=» " P LD A2,DWTST,A6 GET DWT STATUS P RF(N) TP:RQE NOT BUSY? * P CW A5,DWTTAB,A6 J 4 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK? b 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT? P ORK A6,1
0x04b41c…04b5b0 Dummy {f00=0x00e9, f01=0x0190, f02=»AVE FIRST DWT ADDRESS P LDR A3,A6 P* 0 PTMW:20 EQU * : 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE N $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 ( P RB(P) TMW:10 MORE ECB:S IN ECBBLK? : P ST A3,DWTWAT,A9 NO, SET
0x04b5b0…04b744 Dummy {f00=0x00e9, f01=0x0190, f02=» TTAB SAVE AREA p 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR & P RF(Z) TP:QDI FIRST ECB IN ECBBLK? N P* x : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x04b744…04b8d8 Dummy {f00=0x00e9, f01=0x40aa, f02=»QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END @ VATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x04b8d8…04ba6c Dummy {f00=0x00e9, f01=0x2008, f02=» TERMINAL NOT IN SYSTEM 8 P CF A15,QTJOB QUEUE CALLING TERMINAL FOR DISPATCHING ( P LDR A5,A2 d P LDR A2,A4 v 0 P RB(Z) TPQUE RESTART: QUEUE FOR DISPATCHING P CF A15,ACTOT ACTIVATION P RB TPDIS GO TO DISPACHER P EJECT
0x04ba6c…04bc00 Dummy {f00=0x00e9, f01=0x0000, f02=»
0x04bc00…04bd94 (0, 96) Opaque[0x194]
0x04bd94…04bf28 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1cb0, f03=0x0000}
0x04bd94…04bf28 IdxSect {
0x04bd94…04bf28 f00 = 0x00e5 // 0x4bd94 @0x0
0x04bd94…04bf28 f01 = 0x000c // 0x4bd96 @0x2
0x04bd94…04bf28 gno = [ // 0x4bd98 @0x4
0x04bd94…04bf28 [0x00]: C0x00e5.0x2.0
0x04bd94…04bf28 [0x01]: C0x00e5.0x3.0
0x04bd94…04bf28 [0x02]: C0x00e6.0x0.0
0x04bd94…04bf28 [0x03]: C0x00e6.0x1.0
0x04bd94…04bf28 [0x04]: C0x00e6.0x2.0
0x04bd94…04bf28 [0x05]: C0x00e6.0x3.0
0x04bd94…04bf28 ]
0x04bd94…04bf28 }
0x04bf28…04c0bc Dummy {f00=0x00e5, f01=0x0190, f02=» 0 P IDENT MSUBS REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x04c0bc…04c250 Dummy {f00=0x00e5, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR JOB FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x04c250…04c3e4 Dummy {f00=0x00e5, f01=0x018e, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x04c3e4…04c578 Dummy {f00=0x00e5, f01=0x0190, f02=» " P ENTRY SAVE8 SAVE 8 REGISTERS P ENTRY QTJOB QUEUE TASK * " P ENTRY QMJOB QUEUE MONITOR JOB J & P ENTRY ACTOT ACTIVATE TASK (FIFO) p & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENTRY GETBLK GET BLOCK P ENT
0x04c578…04c70c Dummy {f00=0x00e5, f01=0x0190, f02=»CE v $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY 2 , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE Z * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT MODULE P* 2 P* ENTRIES TO RESTORE REGISTERS A8-A1
0x04c70c…04c8a0 Dummy {f00=0x00e5, f01=0x018e, f02=» A1 ~ 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS P EJECT MSUBS J P* ` P* j P************* t P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO 1ST PLACE IN DISPATCHER QUEUE & P
0x04c8a0…04ca34 (0, 97) Dummy {f00=0x00e5, f01=0x0190, f02=» & P EXTRN TTB:ID TASK IDENTIFICATION P EXTRN TTB:SA SAVE AREA . * P EXTRN TTB:PP POINTER TO PENDING QUEUE N ( P EXTRN TTB:TD TERMINAL DEVICE TABLE | 6 P EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN DWTADR -ADDRESS BLOCK $ P E
0x04ca34…04cbc8 Dummy {f00=0x00e5, f01=0x0190, f02=»XTRN TIODM DM ENTRY P EXTRN CHKIND DM ENTRY P* : P* D " PSOP EQU /2E SOP DEVICE ADDRESS N P* t P EJECT MSUBS ~ P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P*
0x04cbc8…04cd5c Dummy {f00=0x00e5, f01=0x0190, f02=»NG MMUPAG EQU 1. z P* PMMUPAG EQU 0 " P* 6 P* @ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION J . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS D
0x04cd5c…04cef0 Dummy {f00=0x00e5, f01=0x0190, f02=»* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK * $ P* WITHOUT ENABLING INTERRUPTS. ^ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A4,A15 P STR A5,A15
0x04cef0…04d084 Dummy {f00=0x00e5, f01=0x0190, f02=»RANCH ADDRESS v P ST A2,14,A15 P ST A1,16,A15 , P LD A3,12,A15 RESTORE A3 B & P ABL 0 THIS IS USED TO BRANCH BACK b PSAVE81 EQU *-2 P* P EJECT MSUBS P* P* P* Q T J O B P* 2 P* SUBROUTINE TO
0x04d084…04d218 Dummy {f00=0x00e5, f01=0x0190, f02=» P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS J P* PUT LAST IN QUEUE. P* P* PQTJOB EQU * P INH P* P IFT CPU852=1 $ P STR A1,A15 SAVE
0x04d218…04d3ac Dummy {f00=0x00e5, f01=0x0190, f02=»CK t P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2 P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE R P RF(Z) QTJ020 DISQUE EMPTY? * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL P* P EJECT MSUBS P* P*
0x04d3ac…04d540 Dummy {f00=0x00e5, f01=0x0190, f02=»1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE? ( P* P ( PQTJ020 STR A2,A5 UPDATE QUEUE LINKS Z P STR A5,A1 P* P IFT CPU852=1 P ABL IHRET3 P XIF P* P IFT CPU852=0 * P MLR 3,A15 RESTO
0x04d540…04d6d4 (0, 98) Dummy {f00=0x00e6, f01=0x018e, f02=»B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P* N P* ENTRY PARAMETERS:- X P* v P* A1 = PARAMETER P* A2 = DISPATCH ADDRESS P* : P* A5 IS SET TO TTAB ADDRESS OF MONITOR JOBS AND THE < P*
0x04d6d4…04d868 Dummy {f00=0x00e6, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF . P* : P IFT CPU852=0 D P INH Z " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* $ P LDKL A5,TTMJOB SET TTAB ADDRESS P RF ACT01 P* P EJECT MSUBS P* P*
0x04d868…04d9fc Dummy {f00=0x00e6, f01=0x0190, f02=»* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS & P* A3 = SEGMENT NUMBER H P* A4 = PARAMETER 2 h P* A5 = TTAB ADDRESS P* < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* PUT IN DISPATCHER QUEU
0x04d9fc…04db90 Dummy {f00=0x00e6, f01=0x0190, f02=»LL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. 6 P* | P* PACTOTP EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x04db90…04dd24 Dummy {f00=0x00e6, f01=0x0190, f02=» P EJECT MSUBS P* P* $ PACTOT EQU * . P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* PACT01 LDK A6,0 IND
0x04dd24…04deb8 Dummy {f00=0x00e6, f01=0x0190, f02=» " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS * & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER ^ " P ST A4,TTB:SA+8,A5 PARAMETER 2 $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA P*
0x04deb8…04e04c Dummy {f00=0x00e6, f01=0x0190, f02=»E JOB z P* P EJECT MSUBS P* . P* 8 PACT010 EQU * B P IFT CPU852=1 V ( P ABL IHRET8 RESTORE A1-A8 AND RETURN l P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN
0x04e04c…04e1e0 Dummy {f00=0x00e6, f01=0x0190, f02=»K GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 8 P CF A15,GETBLK J P ADKL A5,TTB:PP ` P* x " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5,A5 FOLLOW THE QUEUE THREAD P ADK A6,0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO
0x04e1e0…04e374 (0, 99) Dummy {f00=0x00e6, f01=0x0190, f02=»E t P STR A5,A4 P RB ACT010 P* . P EJECT MSUBS 8 P* N P* X P* E X I T b P* v 8 P* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST P* PENDING PROGRAM. P* P* ENTRY PARAMETER: P* P
0x04e374…04e508 Dummy {f00=0x00e6, f01=0x018e, f02=»OGRAM COUNTER z 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) IHRTN NO PENDING PROGRAM J P LDR* A3,A4 GET QUEUE THREAD r 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER 4 P CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS P LDR A
0x04e508…04e69c Dummy {f00=0x00e6, f01=0x0190, f02=» P EJECT MSUBS P* P* ( P* G E T B L K 2 P* J 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR T 8 P* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FOUND P* FREE BLOCK. P* P* EXIT PARAMETER:- P*
0x04e69c…04e830 Dummy {f00=0x00e6, f01=0x0190, f02=»A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 0 P LDK A1,/B HALT PARAMETER F , P CF A15,HALT HALT IF NO MORE FREE BLOCKS h P* PGBL010 LDR* A5,A4 . P ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE $ P STR A3,A4 STORE A3-A1 IN
0x04e830…04e9c4 Dummy {f00=0x00e6, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P RTN A15 , P XIF < P* H P EJECT MSUBS R P* h P* r P* F R E B L K | P* : P* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK P* AND SET THIS BLOCK FREE. P*
0x04e9c4…04eb58 Dummy {f00=0x00e6, f01=0x0190, f02=» PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD " " D P* l P* v PFREBLK EQU * P INH P LDR* A3,A4 UPDATE A3 P LD A1,FREQUE P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE
0x04eb58…04ecec Dummy {f00=0x00e6, f01=0x0190, f02=» RTN A15 P XIF P* P EJECT MSUBS & P* < P* F P* F N D D W T P P* h " P* SUBROUTINE TO FIND A DWT. r P* P* ENTRY PARAMETERS:- P* P* A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED
0x04ecec…04ee80 Dummy {f00=0x00e6, f01=0x0190, f02=»A6 = DWT ADDRESS IF FOUND, ELSE 0 P* * P* 4 PFNDDWT STR A1,A15 SAVE A1 > P LDKL A6,TTB:TD+2 ` 4 P ADR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE z " P LD A1,-2,A6 GET TABLE LENGTH P* P IFT MMUPAG=1 & P ELR A2,A8 LOAD
0x04ee80…04f014 (0, 100) Dummy {f00=0x00e6, f01=0x0190, f02=» EJECT MSUBS P* P* PFND100 SUK A1,4 * ( P RF(N) FND110 FILE CODE NOT IN TTAB? B & P CC A2,1,A6 SEARCH IN DEVICE TABLE n & P RF(NE) FND106 BRANCH IF NOT FOUND P STR A1,A15 P LD A1,2,A6 DWT ADDRESS " P LD A1,DWTADR,A1 A
0x04f014…04f1a8 Dummy {f00=0x00e6, f01=0x0190, f02=» OK P LDR* A1,A15 P* PFND106 EQU * * ( P ADK A6,4 ADDRESS TO NEXT FILE CODE > P RB FND100 TRY NEXT j P* $ P* SEARCH IN COMMON DEVICE TABLE P* & PFND110 LD A6,SCTCDT CDTAB ADDRESS P LDR* A1,A6 CDTAB LENGTH
0x04f1a8…04f33c Dummy {f00=0x00e6, f01=0x0190, f02=»LE CODE NOT FOUND? P CC A2,1,A6 ( P RF(NE) FND126 FILE CODE NOT FOUND? . P STR A1,A15 Z P LD A1,2,A6 n P LD A1,DWTADR,A1 P CWK A1,TIODM " P RF(NE) FND200 NOT DM REQUEST? $ P CF A15,CHKIND CHECK INDEX IN DM P RF FND200
0x04f33c…04f4d0 Dummy {f00=0x00e6, f01=0x0190, f02=»6,0 P RF IHRET1 ! P* ! " PFND200 LDR* A1,A15 RESET STACK ! ( P LCR A2,A6 LOAD DWT INDEX ! N P LD A6,2,A6 LOAD DWT ADDRESS ! p P* ! PFND210 RF IHRET1 ! P* ! P EJECT MSUBS ! P* ! P* ! P* F N D T I D ! P* !
0x04f4d0…04f664 Dummy {f00=0x00e6, f01=0x0190, f02=»IDENTIFICATION ! P* " P* EXIT PARAMETER: " P* " < P* A2 = TTAB ADDRESS " F 0 P* A2 = 0 INDICATES ILLEGAL IDENTIFICATION " d P* " P* " PFNDTID STR A1,A15 SAVE A1 " P LD* A1,SCTTCT TCTAB LENGTH " P AD A1,SCTTCT " P
0x04f664…04f7f8 Dummy {f00=0x00e6, f01=0x0190, f02=»,TTB:ID,A2 COMPARE IDENTIFICATIONS " P RB(NE) FTI010 NO MATCH? # * P RF IHRET1 # J P* # ^ * PFTI030 LDK A2,0 ILLEGAL IDENTIFICATION # h P RF IHRET1 # P* # P EJECT MSUBS # P* # P* # , P* RESTORE REGISTERS AND RETURN WITHOUT #
0x04f7f8…04f98c Dummy {f00=0x00e6, f01=0x0190, f02=»DR* A6,A15 # PIHRET5 LDR* A5,A15 $ PIHRET4 LDR* A4,A15 $ , PIHRET3 LDR* A3,A15 $ F PIHRET2 LDR* A2,A15 $ ` PIHRET1 LDR* A1,A15 $ z PIHRTN INH $ $ P ADKL A15,4 ADJUST STACK POINTER $ P ABR* A15 AND RETURN $ P XIF $ P* $ P IFT CPU
0x04f98c…04fb20 Dummy {f00=0x00e6, f01=0x0190, f02=» FROM STACK... $ r P RTN A15 ...AND RETURN % P* % 4 0 PIHRET1 LDR* A1,A15 RESTORE A1 FROM STACK... % > P* % r PIHRTN RTN A15 ...AND RETURN % | P XIF % P* % P EJECT MSUBS % P* % P* % P* P F I N I T % P* % & P* SU
0x04fb20…04fcb4 (0, 101) Dummy {f00=0x00e6, f01=0x0190, f02=»E AVAILABLE FOR THE RESTART ROUTINES. % z P* & . P* & 8 PPFINIT EQU * & B ( P LDK A1,2 SET INDEX TO FIRST ROUTINE & V P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & " P RF(NL) PFI110 ALL RESTARTED? & P STR A1,A15 SAVE A1 & P INH & * P CFI A
0x04fcb4…04fe48 Dummy {f00=0x00e6, f01=0x0190, f02=» RTN A15 RETURN WHEN ALL STARTED & P* ' ( P EJECT MSUBS ' 2 P* ' H P* ' R P* S W L 4 8 ' P* ' r & P* SWITCH TO LEVEL 48 AND ENABLE. ' | P* ' P* ' PSWL48 EQU * ' P STR A1,A15 SAVE A1 ' P* ' PSWL481 EQU * ' $ P
0x04fe48…04ffdc Dummy {f00=0x00e6, f01=0x018e, f02=» ' x P RTN A15 ( P* ( P EJECT MSUBS ( " P* ( 8 P* ( B P* S W L X Y ( L P* ( b & P* SWITCH TO LEVEL XY AND ENABLE. ( l P* ( . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 0 P* LEVEL := XY " " " " " XY < 48 ( P*
0x04ffdc…050170 Dummy {f00=0x00e6, f01=0x0190, f02=» ( z & P LC A1,24,A15 GET LEVEL FROM STACK ) P ANK A1,/FC ) 2 P SUK A1,/BC ) F P RB(G) SWL481 ) Z P LD A1,24,A15 ) p " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) P* ) P EJECT MSUBS ) P* ) P* ) & P* INTERRUPT SAVE AND
0x050170…050304 Dummy {f00=0x00e6, f01=0x0190, f02=»A15,HALT ) P* * PHALT EQU * * P IFT CPU852=1 * , & P CF A15,SAVE8 SAVE A1-A8 ON STACK * B $ P STR A9,A15 SAVE A9-A14 ON STACK * l P STR A10,A15 * P STR A11,A15 * P STR A12,A15 * P STR A13,A15 * P STR A14,A15 * P XIF * P* *
0x050304…050498 Dummy {f00=0x00e6, f01=0x404e, f02=»YPE OF HALT * x P HLT + P* + P* + * P* + 4 P END + >@ + J8 SAVE A1-A8 ON STACK * B $ P STR A9,A15 SAVE A9-A14 ON STACK * l P STR A10,A15 * P STR A11,A15 * P STR A12,A15 * P STR A13,A15 * P STR A14,A15 * P XIF * P* *
0x050498…05062c Dummy {f00=0x00e6, f01=0x2008, f02=» , 5 STACK " ~ P LDR* A1,A15 RESTORE A1 # P RTN A15 RETURN TO CALLER # 8 P* # Z P END # d@ # pN WHEN ALL STARTED " ` P EJECT " P* " P* " P* S W L 4 8 " P* " : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. "
0x05062c…0507c0 Dummy {f00=0x00e6, f01=0x0000, f02=»
0x0507c0…050954 (0, 102) Opaque[0x194]
0x050954…050ae8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ce8, f03=0x0000}
0x050954…050ae8 IdxSect {
0x050954…050ae8 f00 = 0x00e7 // 0x50954 @0x0
0x050954…050ae8 f01 = 0x0004 // 0x50956 @0x2
0x050954…050ae8 gno = [ // 0x50958 @0x4
0x050954…050ae8 [0x00]: C0x00e7.0x1.0
0x050954…050ae8 [0x01]: C0x00e7.0x2.0
0x050954…050ae8 ]
0x050954…050ae8 }
0x050ae8…050c7c Dummy {f00=0x00e7, f01=0x018e, f02=» 2 P IDENT TTMJOB REL 9.2 79-11-16 870105040920 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* $ P ENTRY TTB:LA LAST LOAD ADDRESS P ENTRY TTB:M
0x050c7c…050e10 Dummy {f00=0x00e7, f01=0x0190, f02=» j & P ENTRY TTB:ID TASK IDENTIFICATION P ENTRY TTB:ST TASK STATUS 2 " P ENTRY TTB:PP PENDING POINTER T & P ENTRY TTB:PW PROGRAM STATUS WORD z $ P ENTRY TTB:SA TERMINAL SAVE AREA " P ENTRY TTB:TD TERMINAL DEVICES P* P EJECT TTM
0x050e10…050fa4 Dummy {f00=0x00e7, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINE
0x050fa4…051138 Dummy {f00=0x00e7, f01=0x018e, f02=» * P* IS OBTAINED BY SETTING ASSOLY EQU 1. P* 2 PASSOLY EQU 0 < P* P " P EJECT TTMJOB TTMJOB Z P* P* PLA:DUM EQU * P IFT ASSOLY=1 P DATA 0 LAST LOAD ADDRESS P XIF P* PMMUDUM EQU *
0x051138…0512cc Dummy {f00=0x00e7, f01=0x0190, f02=» " P DATA /3000,/3400,/3800,/3C00 P XIF * P* 6 PSB:DUM EQU * @ P IFF MMUPAG+DSKPAG=0 T " P DATA 0 SEGMENT BLOCK ADDRESS p P XIF 6 PTTB:LA EQU LA:DUM-* LAST LOAD ADDRESS DISPLACEMENT . PTTB:MT EQU MMUDUM-* MMU TABLE DISPLACEMENT
0x0512cc…051460 Dummy {f00=0x00e7, f01=0x018e, f02=»TMJOB ENTRY . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 F P* V , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION ` P DATA '#M' P* $ PTTB:ST EQU *-TTMJOB TASK STATUS P DATA 49 P* ( PTTB:PP EQU *-TTMJOB PENDIN
0x051460…0515f4 (0, 103) Dummy {f00=0x00e7, f01=0x4168, f02=» P EJECT TTMJOB P* P* & * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA 0 P DATA 0 DISPATCH ADDRESS ^ 2 P DATA 0,0,0,0,0,0,0 SAVE AREA, REGISTER A1-A14 ~ P DATA 0,0,0,0,0,0,0 P* ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES P D
0x0515f4…051788 Dummy {f00=0x00e7, f01=0x2008, f02=» TMJOB TERMINAL STATUS P DATA 48 * 0 PTTABID EQU *-TTMJOB TERMINAL IDENTIFICATION : P DATA /8000 n PTTABPP EQU *-TTMJOB P DATA 0 * PTTABSA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 & P DATA 0,0,0,0,0,0,0,0,0,0,0,
0x051788…05191c Dummy {f00=0x00e7, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.1 79-05-23 870105040910 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x05191c…051ab0 Dummy {f00=0x00e7, f01=0x0190, f02=»XTRN CHLTON LOCAL/REMOTE TERMINALS P* * P* 4 P* > P* H P* R P* P* f P* p ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 z ( P EXTRN C2DRON 2 ( P EXTRN C3DRON 3 P* P
0x051ab0…051c44 Dummy {f00=0x00e7, f01=0x0190, f02=»N DISC UNIT P* $ P EXTRN MTDRON MAGNETIC TAPE UNIT 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION F $ PPFTAB DATA PFTABE-* TABLE LENGTH z P DATA TWON P DATA TCDRON P DATA SOPR P* P DATA CHLTON P* P*
0x051c44…051dd8 Dummy {f00=0x00e7, f01=0x40fc, f02=»* P* P* P DATA FDON P DATA LPON FLOPPY 0 P DATA CRON CARD-READER J P DATA DUON h P* z P DATA MTDRON P DATA DMINIT P* PPFTABE EQU * END OF TABLE P* P* P END @ P*
0x051dd8…051f6c Dummy {f00=0x00e7, f01=0x2008, f02=» TON LOCAL/REMOTE TERMINALS P* * P EXTRN DUON DISC UNIT 4 " P EXTRN MTON MAGNETIC YAPE UNIT R P* x P* $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA TCDRON P DATA SOPR P DATA DRDCON P DATA
0x051f6c…052100 Dummy {f00=0x00e7, f01=0x0190, f02=»************************** P* * " P* CONDITIONAL ASSEMBLY * D P* * f P************************** P* P* 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P* BY SETTING X
0x052100…052294 (0, 104) Opaque[0x194]
0x052294…052428 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2060, f03=0x0000}
0x052294…052428 IdxSect {
0x052294…052428 f00 = 0x0103 // 0x52294 @0x0
0x052294…052428 f01 = 0x0026 // 0x52296 @0x2
0x052294…052428 gno = [ // 0x52298 @0x4
0x052294…052428 [0x00]: C0x0103.0x0.0
0x052294…052428 [0x01]: C0x0117.0x2.0
0x052294…052428 [0x02]: C0x0117.0x3.0
0x052294…052428 [0x03]: C0x0118.0x3.0
0x052294…052428 [0x04]: C0x0119.0x0.0
0x052294…052428 [0x05]: C0x0119.0x1.0
0x052294…052428 [0x06]: C0x0119.0x2.0
0x052294…052428 [0x07]: C0x0119.0x3.0
0x052294…052428 [0x08]: C0x011a.0x0.0
0x052294…052428 [0x09]: C0x011a.0x1.0
0x052294…052428 [0x0a]: C0x011a.0x2.0
0x052294…052428 [0x0b]: C0x011a.0x3.0
0x052294…052428 [0x0c]: C0x011b.0x0.0
0x052294…052428 [0x0d]: C0x0120.0x1.0
0x052294…052428 [0x0e]: C0x0120.0x2.0
0x052294…052428 [0x0f]: C0x0121.0x1.0
0x052294…052428 [0x10]: C0x0121.0x2.0
0x052294…052428 [0x11]: C0x0121.0x3.0
0x052294…052428 [0x12]: C0x0122.0x0.0
0x052294…052428 ]
0x052294…052428 }
0x052428…0525bc Dummy {f00=0x0103, f01=0x018e, f02=» 2 P IDENT TOSSIO REL 9.2 79-11-16 870105040920 P : P =1, DM ATTACH HANG UP B P REL 9.1 79-05-23 b P* ~ P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P
0x0525bc…052750 Dummy {f00=0x0103, f01=0x0190, f02=» P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: B P* | P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P* P*
0x052750…0528e4 Dummy {f00=0x0103, f01=0x0190, f02=» j P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT 8 P* VALUES FOR ECB AND DWT AREAS, AS WELL AS SPECIAL N . P* MOVE ROUTINES FOR DATA COMMUNICATION. P* P EJECT TOSSIO P* P* P*********** P*
0x0528e4…052a78 Dummy {f00=0x0103, f01=0x0190, f02=» DC:MIN MOVE ROUTINE FOR DATACOM, INPUT 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 0 , P ENTRY MONMMU MONITOR (SYSTEM) MMU TABLE f P* P ENTRY ECBFC FILE CODE P ENTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " P
0x052a78…052c0c Dummy {f00=0x0103, f01=0x0190, f02=»D (USED BY DM) p P* $ P ENTRY BUFLEN MMU BUFFER LENGTH $ P ENTRY ACTADR ACTIVATION ADDRESS H P ENTRY ABTADR ABORT ADDRESS p $ P ENTRY INTADR INTERRUPT ADDRESS 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) " P ENTRY RECADR RECOVERY
0x052c0c…052da0 Dummy {f00=0x0103, f01=0x0190, f02=»NDEX DATA MANAGEMENT z 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL R , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION P* P EJECT TOSSI
0x052da0…052f34 (0, 105) Dummy {f00=0x0117, f01=0x0190, f02=»RY DWTECB ECB ADDRESS P ENTRY DWTOR INDEX AND ORDER ( P ENTRY DWTOCH LAST OUTPUT CHARACTER B & P ENTRY DWTADR DRIVER ADDRESS BLOCK n P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR P ENTRY DWTTQ TERMINAL QUEUE
0x052f34…0530c8 Dummy {f00=0x0117, f01=0x018e, f02=»WTMEC MMU ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 @ P ENTRY DWTA4 SAVE AREA A4 b P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP T
0x0530c8…05325c Dummy {f00=0x0117, f01=0x0190, f02=» P EJECT TOSSIO P* P* * P************* 4 P* EXTERNALS * J P************* ` P* v P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING
0x05325c…0533f0 Dummy {f00=0x0117, f01=0x0190, f02=»SPATCHING j , P EXTRN QTJOB QUEUE TERM.PROG. FOR DISP. " P EXTRN MEXIT MONITOR TASK EXIT B P EXTRN TDISP DISPATCHER h 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN P
0x0533f0…053584 Dummy {f00=0x0117, f01=0x0190, f02=» & P EXTRN TTB:ID TASK IDENTIFICATION ( P EXTRN TTB:ST TASK STATUS AND LEVEL . & P EXTRN TTB:PW PROGRAM STATUS WORD Z P EXTRN TTB:SA SAVE AREA P EXTRN TTB:MT MMUTAB P EXTRN TIODM ENTRY FOR DM P EXTRN REQEND ENTRY FOR DM * P EXT
0x053584…053718 Dummy {f00=0x0117, f01=0x0190, f02=»* h P* P* CONDITIONAL ASSEMBLY P* 2 . P***************************************** < P* n . P* A PROGRAM VERSION USING TOSS MMU PAGING x * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6
0x053718…0538ac Dummy {f00=0x0117, f01=0x0190, f02=» P* P* 0 P* A PROGRAM VERSION INCLUDING ATTACH/DETACH * P* IS OBTAINED BY SETTING ATTDET EQU 1. L P* z PX:A EQU 0 PATTDET EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY S
0x0538ac…053a40 Dummy {f00=0x0117, f01=0x0190, f02=»*************** P* FORM STATEMENTS * P******************* 4 P* P P* Z PBYTES FORM 8,8 d P* z P EJECT TOSSIO P* P* P********************* P* DWT DISPLACEMENTS * P*********************
0x053a40…053bd4 (0, 106) Dummy {f00=0x0117, f01=0x0190, f02=»C EQU /03 BYTE COUNTER PDWTECB EQU /04 ECB ADDRESS " PDWTOR EQU /06 INDEX AND ORDER @ ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER f ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR
0x053bd4…053d68 Dummy {f00=0x0117, f01=0x0190, f02=» MMUPAG=0 4 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEFINED PART P XIF J P* V P IFT MMUPAG=1 ` 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART v P XIF P* P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFINE
0x053d68…053efc Dummy {f00=0x0117, f01=0x0190, f02=»DWTDRD+/02 SAVE AREA A2 & PDWTA3 EQU DWTDRD+/02 SAVE AREA A3 & PDWTA4 EQU DWTDRD+/04 SAVE AREA A4 J & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 t . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT & PDWTTP
0x053efc…054090 Dummy {f00=0x0117, f01=0x0190, f02=» DWTDRD+/1C DISC VOLUME NAME P* $ P EJECT TOSSIO . P* F P* P * P************************************** Z * P* DRIVER ADDRESS BLOCK DISPLACEMENTS * * P************************************** P* P* & PKEYLEN EQU -6 DW
0x054090…054224 Dummy {f00=0x0117, f01=0x018e, f02=» PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS & $ PPOLADR EQU 4 BUFFER POOL ADDRESS L " PRECADR EQU 6 RECOVERY ADDRESS t PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE INDEX VALUES *
0x054224…0543b8 Dummy {f00=0x0117, f01=0x0190, f02=» F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* N $ PDC:DIX EQU -2 DATA COMMUNICATION X PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6 KEYBOARD/
0x0543b8…05454c Dummy {f00=0x0117, f01=0x0190, f02=» P* ECB DISPLACEMENTS * P********************* " P* @ P* J PECBFC EQU /01 FILE CODE T PECBBA EQU /02 BUFFER ADDRESS t " PECBRL EQU /04 REQUESTED LENGTH " PECBEL EQU /06 EFFECTIVE LENGTH PECBRC EQU /08 RETURN CODE PEC
0x05454c…0546e0 Dummy {f00=0x0117, f01=0x0190, f02=»PAG=1 P* P* P********** " P* TIOTAB * 4 P********** F P* X < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TIO b P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPUT/OU
0x0546e0…054874 (0, 107) Dummy {f00=0x0118, f01=0x0190, f02=» PTINDEX EQU *-TIOTAB 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT , P DATA TIOPCO PROGRAMMED CHANNEL, OUTPUT T P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT P*
0x054874…054a08 Dummy {f00=0x0118, f01=0x0190, f02=»SES TO ROUTINES ENTERED FROM TENDIO x P* , 2 PTENTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE 6 . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT l * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT $ P DATA TENKBI KEYBOARD/CTW, I
0x054a08…054b9c Dummy {f00=0x0118, f01=0x0190, f02=» x & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P DATA TENITO INTERTASK COMMUNICATION, OUTPUT 2 P XIF f P* r P EJECT TOSSIO | P* P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE
0x054b9c…054d30 Dummy {f00=0x0118, f01=0x0190, f02=»400,/1800,/1C00 " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 > P XIF d P* p P EJECT TOSSIO z P* P* P IFT ATTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* P*
0x054d30…054ec4 Dummy {f00=0x0118, f01=0x0190, f02=» = BLOCK ADDRESS P* A5 = TTAB ADDRESS P* A6 = DWT ADDRESS < " P* A1-A3 ARE DESTROYED ^ P* PTIMOUT LDR A6,A1 & P LDR* A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 GET TTAB ADDRESS P* P IFT MMUPA
0x054ec4…055058 Dummy {f00=0x0118, f01=0x018e, f02=»,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK 2 P* H P EJECT TOSSIO R P* j & P* REMOVE TTAB FROM DEVICE QUEUE t P* P LDR A1,A6 & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* PTIM:10 LDR A2,A1 SAVE
0x055058…0551ec Dummy {f00=0x0118, f01=0x018e, f02=» P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE & P* P P LDR* A1,A1 Z P STR A1,A2 n P* PTIM:20 EQU * P LDK A3,4 . P ADS A3,TTB:SA,A5 UPDATE DISPATCH ADDRESS : P LD A8,TTB:SA+16,A5 GET ECB ADDRESS FR
0x0551ec…055380 Dummy {f00=0x0118, f01=0x0190, f02=» P XIF P* P IFT ATTDET=1 P IFT MMUPAG=1 0 * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB F . P TL MONMMU LOAD MONITOR (SYSTEM) MMU TABLE t P XIF P* P IFT ATTDET=1 & P RF TIORTN QUEUE TASK AND DISPATCH P* P E
0x055380…055514 (0, 108) Dummy {f00=0x0119, f01=0x0190, f02=»B ADDRESS ~ P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 V P* ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS P* PFND:10 LDR A2,A4 SAVE A4 P LDR* A4,A4 P RF(Z) F
0x055514…0556a8 Dummy {f00=0x0119, f01=0x0190, f02=»BL IHRTN RETURN P XIF P* $ P IFT ATTDET=1 . P IFT CPU852=0 D P RTN A15 RETURN Z P XIF r P* ~ P IFT ATTDET=1 & PATT:CH DATA 0 ATTACH CHAIN ANCHOR P* P EJECT TOSSIO P* P* F D B A T T / F D
0x0556a8…05583c Dummy {f00=0x0119, f01=0x0190, f02=»A5 = TTAB ADDRESS P* A6 = FDB ADDRESS $ P* A10 = /800 (ATTACH BIT) < P* d " P* OUTPUT: A2-A4 AREA DESTROYED n P* PFDBDET EQU * P C1R A10,A10 A10=F7FF P* PFDBATT EQU * P LDR A4,A6 FDB ADDRESS
0x05583c…0559d0 Dummy {f00=0x0119, f01=0x0190, f02=»A2,A4 NEXT FDB P RF(Z) FDB:20 NO FDB? ! P LDR A10,A10 ! 4 " P RF(N) FDB:15 DETACH REQUEST? ! H $ P ORS A10,DWTST,A2 ATTACH REQUEST ! n P ST A5,DWTTAB,A2 ! P RF FDB:20 ! P* ! * PFDB:15 ANS A10,DWTST,A2 DETACH REQUEST ! P CF A15,QREQ UPD
0x0559d0…055b64 Dummy {f00=0x0119, f01=0x0190, f02=»E Q ! P* " 8 P* SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE (IF ANY) " P* " R P* INPUT: A2 = DWT ADDRESS " P* " ~ " P* OUTPUT: A7, A9 ARE DESTROYED " P* " PQREQ EQU * " & P LDR A9,A5 SAVE A5 (TTAB ADDRESS) " & P LD A5,DWTTQ,A2 ANY
0x055b64…055cf8 Dummy {f00=0x0119, f01=0x0190, f02=»TASK " | P* # PQRE:10 EQU * # $ P LDR A5,A9 RESTORE TTAB ADDRESS # * P IFT CPU852=1 # R P RB FND:20 RETURN # h P XIF # P* # P IFT ATTDET=1 # P IFT CPU852=0 # P RTN A15 RETURN # P XIF # P* # P IFT ATTDET=1 # P
0x055cf8…055e8c Dummy {f00=0x0119, f01=0x0190, f02=»MODULE IS CALLED FROM TIO WITH # P* THE FOLLOWING PARAMETERS: $ & P* $ J & P* A3 /8000 (REQUEST ERROR BIT) $ T & P* A4 I/O AND ACTIVATE INDICATOR $ ~ P* A5 TTAB ADDRESS $ P* A6 DWT ADDRESS $ P* A7 ORDER CODE $ P* A8 ECB AD
0x055e8c…056020 Dummy {f00=0x0119, f01=0x0190, f02=»CH EQU * ENTRY $ P ADK A4,0 SET CR % * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR? % . P* % P IFT MMUPAG=0 % f " P CM ECBRC,A8 RESET RETURN CODE % | P XIF % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % & P ES A4,ECBRC,A8 RESET RETURN CODE %
0x056020…0561b4 (0, 109) Dummy {f00=0x0119, f01=0x0190, f02=»ALREADY ATTACHED? % z P LDR A13,A13 & P RF(NN) ATT:50 DEVICE BUSY? & . P* & R P* ATTACH REQUESTING TASK & P* & P ORS A10,DWTST,A6 ATTACH & , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT & P CWK A12,TIODM & " P RF(NE) ATT:15 NO DM REQ
0x0561b4…056348 Dummy {f00=0x0119, f01=0x0190, f02=»4,0 SET CR & P RF(Z) ATTRTN NO! ' P* ' , P EJECT TOSSIO ' 6 P* ' N & P* FREE BLOCK AND TIMER IN ATT:CH ' X P* ' P CM* 2,A4 FREE TIMER ' " P LDR* A3,A4 REMOVE FROM ATT:CH ' P STR A3,A2 ' P CF A15,FREBLK RELEASE BLOCK ' P RF
0x056348…0564dc Dummy {f00=0x0119, f01=0x0190, f02=»A15,FNDBLK ' P ADK A4,0 SET CR ( $ P RF(NZ) ATT:70 IS TIMER ACTIVE? ( , P* ( T P* SET TIMER ( ^ P* ( v P IFT MMUPAG=0 ( P LD A1,ECBCW,A8 TIME ( P XIF ( P* ( P EJECT TOSSIO ( P* ( P* ( P IFT ATTDET=1 (
0x0564dc…056670 Dummy {f00=0x0119, f01=0x0190, f02=»Z) ATT:80 END REQUEST? ( P* ) PATT:60 ST A1,ATTIM ) ( P LDR A1,A5 TTAB ADDRESS ) B P LD A3,ATT:CH ANCHOR ) b P CF A15,GETBLK GET BLOCK ) ~ P ST A4,ATT:CH UPDATE ANCHOR ) $ P ADK A4,2 TIMER POINTER ADDRESS ) P LDR A1,A6 DWT ADDRESS ) P
0x056670…056804 Dummy {f00=0x0119, f01=0x0190, f02=» P RF TIOQ20 * P* * & PATT:80 LDK A3,/40 SET TIME OUT BIT * P RF TIOERR RETURN * J P* * d P EJECT TOSSIO * n P* * P* * P********** * P* DETACH * * P********** * P* * * P* THIS MODULE IS CALLED FROM TIO WITH * $ P
0x056804…056998 Dummy {f00=0x0119, f01=0x0190, f02=» P TM A10,A13 + P RF(Z) TIOERR NOT ATTACHED? + P CW A5,DWTTAB,A6 + < * P RF(NE) TIOERR ATTACHED TO OTHER TASK? + T P XRS A10,DWTST,A6 DETACH + P CWK A12,TIODM + " P RF(NE) DET:05 NO DM REQUEST? + ( P CF A15,FDBDET DETACH FILE STRUCTURE +
0x056998…056b2c Dummy {f00=0x0119, f01=0x0190, f02=»ATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT + PDETRTN LDK A3,0 RETURN CODE , 6 P XIF , Z P* , f P EJECT TOSSIO , p P* , P* , P********** , P* TIOERR * , P********** , P* , P* ERROR: FILE CODE UNKNOWN , ( P* TIOERR I
0x056b2c…056cc0 Dummy {f00=0x0119, f01=0x0190, f02=»,ECBRC,A8 INDICATE ERROR IN ECB , P XIF - ( P* - 4 P IFT MMUPAG=1 - > * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB - T P XIF - P* - PTIORTN EQU * - ( P ABL LKMQDI QUEUE TASK AND DISPATCH - P* - P EJECT TOSSIO - P* - P* -
0x056cc0…056e54 (0, 110) Dummy {f00=0x0119, f01=0x018e, f02=»ICE REQUESTS. - j > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON . @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING . X 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT, AND WHEN . B P* ATTACHED, WHETHER THE DEVICE IS ATTACHED TO TH
0x056e54…056fe8 Dummy {f00=0x0119, f01=0x018e, f02=» P* / ( PTIOQ05 ADK A6,DWTTQ GET QUEUE ANCHOR / P LDR A2,A6 / : P LDR* A6,A6 / L $ P RF TIOQ40 INSERT FIRST IN QUEUE / ` P* / & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE / P* / ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR / P LD A1,TTB:ST+1,A5 GET
0x056fe8…05717c Dummy {f00=0x0119, f01=0x0190, f02=» $ P LDR* A6,A6 FOLLOW QUEUE TO END 0 P RF(Z) TIOQ40 END FOUND? 0 , & P CC A1,TTB:ST+1,A6 COMPARE LEVELS 0 L P RB(NL) TIOQ30 TRY NEXT? 0 v P* 0 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 0 P* 0 PTIOQ40 LDKL A3,-4 0 P STR A6,A5 INSER
0x05717c…057310 Dummy {f00=0x0119, f01=0x018e, f02=»OQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM 0 P* 1 6 PTIOQ60 EQU * 1 @ P ABL TDISP GO TO DISPATCHER 1 T P* 1 x P EJECT TOSSIO 1 P* 1 P* 1 P******* 1 P* TIO * 1 P******* 1 P* 1 P* 1 . P* THIS MODULE IS ENTER
0x057310…0574a4 Dummy {f00=0x0119, f01=0x0190, f02=» 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 2 P* 2 : 2 P* WHEN RUNNING WITH MMU OPTION SPECIAL DEVICE 2 D * P* DEPENDENT SUBROUTINES ARE PERFORMED. 2 z P* 2 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 2 & P* WITH THE FOLLOWING PARAMET
0x0574a4…057638 Dummy {f00=0x0119, f01=0x018e, f02=»ZERO, I/O AND ACTIVATION 2 P* 3 P* A5 = TTAB ADDRESS 3 * P* 3 F P* A7 = ORDER CODE 3 P P* 3 j P* A8 = ECB ADDRESS 3 t P* 3 P EJECT TOSSIO 3 P* 3 P* 3 < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 3 * P*
0x057638…0577cc Dummy {f00=0x0119, f01=0x0190, f02=» P* A7 = ORDER CODE 4 P* 4 P* A8 = ECB ADDRESS 4 ( P* 4 D , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK 4 N P* 4 ~ 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 4 . P* = 1, " " " " USER MODE 4 P* 4 P* 4 , P* THE
0x0577cc…057960 Dummy {f00=0x0119, f01=0x0190, f02=» AND ECHO FIELDS 4 P* -DWTTAB TTAB ADDRESS 5 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 5 8 . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 5 b P* 5 P* 5 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 5 P* 5 P* -BIT 0 IN THE FIRST WORD 5 P* -
0x057960…057af4 (0, 111) Dummy {f00=0x0119, f01=0x0190, f02=» REQUEST IS BUSY 5 r P* 6 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 6 " P LDKL A3,/8000 6 N P ADK A6,0 SET CR 6 d $ P RB(Z) TIOERR FILE CODE UNKNOWN? 6 | : P LD A12,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 6 $ P LD A13,DWTST,A6 GET DWT STATUS 6
0x057af4…057c88 Dummy {f00=0x0119, f01=0x0190, f02=»ATTACH ORDER? 6 P SUK A7,1 7 P RB(Z) DETACH DETACH ORDER? 7 ( " P ADK A7,/BC RESTORE ORDER CODE 7 L P XIF 7 r P* END OF =1 7 ~ " P LD A11,TTB:ID,A5 GET TASK ID 7 P ANKL A11,/FF44 7 P SUKL A11,'#D' CHECK TASK ID 7 " P RF(Z) TIO020 DMTA
0x057c88…057e1c Dummy {f00=0x0119, f01=0x0190, f02=»SIO 7 P* 8 & P* CHECK IF DEVICE IS ATTACHED/BUSY 8 P* 8 @ P IFT ATTDET=1 8 J P TM A10,A13 8 ` P RF(Z) TIO020 NOT ATTACHED? 8 t P CW A5,DWTTAB,A6 8 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK? 8 P TM A3,A13 8 $ P RF(NZ) TIO030 DEVICE NO
0x057e1c…057fb0 Dummy {f00=0x0119, f01=0x0190, f02=»USY? 8 z P* 9 P EJECT TOSSIO 9 P* 9 . H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 9 8 P* 9 * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 9 P LDK A2,/40 CHECK IF ECHO 9 P ANR A2,A7 9 P RF(Z) TIO070 NOT ECHO?
0x057fb0…058144 Dummy {f00=0x0119, f01=0x0190, f02=» P* : . PTIO040 LD A2,DWTECH,A6 GET ECHO DEVICE DWT : " P RF(Z) TIO070 NO ECHO DEVICE? : @ & P LD A9,DEVIND,A12 GET DEVICE INDEX : f $ P CWK A9,KB:DIX CHECK IF KEYBOARD : 4 P RF(NE) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD : ( P LD A14,DWTST,A2 GET ECH
0x058144…0582d8 Dummy {f00=0x0119, f01=0x0190, f02=» : 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK? ; P TM A3,A14 ; B ( P RF(NZ) TIO060 ECHO DEVICE NOT BUSY? ; T & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE ; P XIF ; P* ; P EJECT TOSSIO ; P* ; P* ; PTIO050 TM A3,A14 ; $ P RB(
0x0582d8…05846c Dummy {f00=0x0119, f01=0x0190, f02=»* ; P* UPDATE ECB AND DWT FIELDS < P* < . @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS IN DWT STATUS < 8 P* < | P IFT MMUPAG=1 < P LD A13,TTB:PW,A5 GET PSW < ( P ANKL A13,1 GET SYSTEM/USER MODE BIT < $ P RF(NZ) TIO100 JUMP IF USER MO
0x05846c…058600 Dummy {f00=0x0119, f01=0x0190, f02=»L,A8 RESET EFFECTIVE LENGTH < $ P CM ECBRC,A8 RESET RETURN CODE = $ P RF TIO110 = L P* = ^ P EJECT TOSSIO = h P* = P* MOVE USER ECB TO DWT ECB = P* = PTIO100 EQU * = P LDKL A2,/4FFF = * P ELR A3,A8 LOAD FIRST WORD OF USER ECB =
0x058600…058794 (0, 112) Dummy {f00=0x011a, f01=0x0190, f02=»B,A6 SET ACTUAL ECB ADDRESS = P STR A3,A2 > $ * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS > 6 P LDR A9,A8 > d P LDK A3,0 > v * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE > P* > P LDR A10,A1 SAVE PARAMETER >
0x058794…058928 Dummy {f00=0x011a, f01=0x0190, f02=» MOVE PART OF USER ECB TO DWT ECB > " P LDR A1,A10 RESTORE PARAMETER ? * P XIF ? P P* ? P IFT MMUPAG=0 ? f P LDKL A3,/7FFF ? | , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE ? ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH ? $ P CM ECBRC,A8 RESET RETURN
0x058928…058abc Dummy {f00=0x011a, f01=0x0190, f02=»/3F ? ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT @ P CWK A12,TIODM @ 8 * P RF(NE) TIO120 JUMP IF NOT DM REQUEST @ N 0 P ST A5,DWTTDM,A6 SAVE TTAB ADDRESS IN DWTTDM @ | P RF TIO130 @ P* @ PTIO120 EQU * @ 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DW
0x058abc…058c50 Dummy {f00=0x011a, f01=0x0190, f02=» DWTWAT (WAIT/ACTIVATE INDICATOR) @ P* A * P LDR A2,A4 CHECK PARAMETER A 4 & P RF(NZ) TIO210 I/O AND ACTIVATION? A V 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED A P RF(Z) TIO220 NOT WAIT? A P LDK A4,1 INDICATE WAIT A P RF TIO230 A
0x058c50…058de4 Dummy {f00=0x011a, f01=0x0190, f02=» P* B 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* B J P EJECT TOSSIO B T P* B l P* B v P IFT MMUPAG=1 B * P LDR A13,A13 CHECK IF SYSTEM/USER MODE B & P RF(Z) TIO250 JUMP IF SYSTEM MODE B & P LD A3,DEVIND,A12 GET DEVI
0x058de4…058f78 Dummy {f00=0x011a, f01=0x0190, f02=»ER CODE B z P* C P LDR A4,A7 GET ORDER CODE C 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE C < . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER C p P* C PTIO240 EQU * C P ENB C < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE C
0x058f78…05910c Dummy {f00=0x011a, f01=0x0190, f02=»A6 C P INH D & P ABR* A12 GO TO DRIVER ACTIVATION D P* D @ P EJECT TOSSIO D J P* D b P* D l P IFT MMUPAG=1 D v P* D P* R D : W R D P* D @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING D @ P* THE APPROPRIAT
0x05910c…0592a0 Dummy {f00=0x011a, f01=0x0190, f02=» REQUEST, CONDITION REGISTER ON STACK IS D ~ * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. E 0 P* E ^ P* INPUT: A3 = DEVICE INDEX E h P* A6 = DWT ADDRESS E P* E : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING E . P* CR = 0 I
0x0592a0…059434 (0, 113) Dummy {f00=0x011a, f01=0x0190, f02=» GET ORDER CODE FROM DWT E | P ANK A4,/3F F P* F 4 * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER F > $ P LC A4,ORDTAB,A4 GET ORDER INDEX F l P ANK A4,/FF F . P ABR(Z)* A15 RETURN IF NO READ/WRITE ORDER F P SUK A4,1 F $ P ADR A3,A4 ADD READ/WRITE IN
0x059434…0595c8 Dummy {f00=0x011a, f01=0x0190, f02=» * F P********** G P* G 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: G & P* G P* =0: NO READ/WRITE ORDER G f P* =1: READ ORDER G P* =TINDEX+1: WRITE ORDER G P* G PORDTAB EQU * ORDER CONSTANTS G P BYTES 0,1 /00, /01 G
0x0595c8…05975c Dummy {f00=0x011a, f01=0x0190, f02=» G v P BYTES 1,TINDEX+1 /0A, /0B H P BYTES 0,0 /0C, /0D H * P BYTES 0,0 /0E, /0F H F P BYTES 0,1 /10, /11 H b P BYTES 0,0 /12, /13 H ~ P BYTES 0,TINDEX+1 /14, /15 H P BYTES 0,0 /16, /17 H P BYTES 0,0 /18, /19 H P BYTES 0,0 /1A, /1B
0x05975c…0598f0 Dummy {f00=0x011a, f01=0x0190, f02=»ES 0,0 /24, /25 H P BYTES 0,0 /26, /27 I P BYTES 0,0 /28, /29 I 4 P BYTES 0,0 /2A, /2B I P P BYTES 0,1 /2C, /2D I l P BYTES 1,TINDEX+1 /2E, /2F I P BYTES 0,0 /30, /31 I P BYTES 0,0 /32, /33 I P BYTES 0,0 /34, /35 I P BYTES 0,0
0x0598f0…059a84 Dummy {f00=0x011a, f01=0x0190, f02=» P EJECT TOSSIO J P* J P* T I O : D M J & P* J < 4 P* THIS MODULE IS CALLED BY 'TIO' WHEN A REQUEST J F * P* FOR DATA MANAGEMENT HAS BEEN ISSUED. J ~ P* J & P* INPUT: A8 = FDB MMU ECB ADDRESS J $ P* A9 = USER ECB ADDRESS J P
0x059a84…059c18 Dummy {f00=0x011a, f01=0x0190, f02=»ADDRESS J p P ST A2,ECBBA,A8 K , P EL A2,ECBCW2,A9 GET SECOND CONTROL WORD K ( P ST A2,ECBCW2,A8 K X P* K p PA15RTN EQU * K z P RTN A15 K P* K P EJECT TOSSIO K P* K P* T I O P C I K P* K B P* THIS MODULE IS CALLED BY 'TI
0x059c18…059dac Dummy {f00=0x011a, f01=0x0190, f02=»UFFER ADDRESSES SO THAT BOTH ARE K r < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. L ( 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT L h , P* COMPLETION OF THE REQUEST IS 'TENPCI'. L 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. L P
0x059dac…059f40 Dummy {f00=0x011a, f01=0x0190, f02=»* L P* OUTPUT: A1 IS DESTROYED M P* M , * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT M 6 ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH M d 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE M 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE? M P* M .
0x059f40…05a0d4 (0, 114) Dummy {f00=0x011a, f01=0x0190, f02=» BUFFER ADDRESS EVEN? M ~ P ORS A1,ECBBA,A8 N P RTN A15 N 6 P* N F 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN N P P ANS A1,ECBBA,A8 N P RTN A15 N P* N P EJECT TOSSIO N P* N P* T I O M X I N P* N B P* THIS MODULE IS
0x05a0d4…05a268 Dummy {f00=0x011a, f01=0x0190, f02=»ES THE FULL 18 BIT BUFFER ADDRESS WHICH IS N , P* TRANSFERRED TO THE MUX BY THE DRIVER. O 2 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT O b , P* COMPLETION OF THE REQUEST IS 'TENMXI'. O 6 P* NOTICE THAT MODULE 'TIOMXO' IS EQUAL TO TIOMXI. O P* O
0x05a268…05a3fc Dummy {f00=0x011a, f01=0x0190, f02=»2 ARE DESTROYED O B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB P P* P ^ PTIOMXI EQU * MUX, INPUT P h , P EL A1,ECBBA,A9 GET USER BUFFER ADDRESS P P ECR A2,A1 P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS P P SRL A2,3 P & P A
0x05a3fc…05a590 Dummy {f00=0x011a, f01=0x0190, f02=» P P ANK A2,/3F Q 4 P SCR A2,A8 STORE BITS 16-17 IN DWT ECB 1ST WORD Q P ANK A2,/0F Q T P SRC A2,4 Q h P ORR A1,A2 Q z 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS Q P RTN A15 Q P* Q P EJECT TOSSIO Q P* Q P* T I O K
0x05a590…05a724 Dummy {f00=0x011a, f01=0x0190, f02=»KBI WILL SET BUFFER ADDRESSES Q d 6 P* AND MOVE KEYTABLE (IF ANY) BY USING ENTRY TIPI05 R & 0 P* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. R ` 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT R , P* COMPLETION OF THE REQUEST IS 'TENKBI'. R P* R P*
0x05a724…05a8b8 Dummy {f00=0x011a, f01=0x0190, f02=»ADDRESS TO DRIVER ADDRESS BLOCK R P* S ( " P* OUTPUT: A1-A4 ARE DESTROYED S 2 P* S X PTIOKBI EQU * KEYBOARD/CTW S b ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH S 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE S 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS
0x05a8b8…05aa4c Dummy {f00=0x011a, f01=0x018e, f02=»TABLE IF BASIC READ S | . P LD A4,ECBCW,A8 GET USER KEYTABLE ADDRESS T P RF(Z) TIKB20 NO KEYTABLE? T N P* T p P EJECT TOSSIO T z P* T P* T P LDR A1,A9 T P ADK A1,8 T P ADKL A8,12 T * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS T
0x05aa4c…05abe0 Dummy {f00=0x011a, f01=0x0190, f02=» , P ECR A3,A3 NO, PUT LENGTH IN RIGHT BYTE U P* U 4 * PTIKB10 ANK A3,/FF SKIP LEFT CHARACTER U > P ADK A3,1 U l 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE U ~ P RF(G) IO:ERR TOO SMALL? U P CF A15,TIPO05 U & P SUKL A8,8 ADJUST DWT ECB ADDRES
0x05abe0…05ad74 (0, 115) Dummy {f00=0x011a, f01=0x018e, f02=»TI EQU A15RTN INTERTASK COMMUNICATION, INPUT U P* V 4 P EJECT TOSSIO V > P* V V P* T I O P C O V ` P* V v B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. V B P
0x05ad74…05af08 Dummy {f00=0x011a, f01=0x0190, f02=» V N P* BUFFER TO THE DWT BUFFER. W 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT W , , P* COMPLETION OF THE REQUEST IS 'TENPCO'. W d 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. W F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'T
0x05af08…05b09c Dummy {f00=0x011a, f01=0x0190, f02=» P* X " P* OUTPUT: A1-A4 ARE DESTROYED X P* X 4 , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT X > 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK X n ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH X * P RF(NP) TIPO20 REQUESTED LENGTH <= 0? X 2 P CW
0x05b09c…05b230 Dummy {f00=0x011a, f01=0x0190, f02=»B ADDRESS X t P* Y P EJECT TOSSIO Y P* Y 4 P* Y > : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' Y H P ADK A3,1 Y . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN Y , P EL A1,ECBBA,A1 GET USER BUFFER ADDRESS Y * P LD A2,ECBBA,A
0x05b230…05b3c4 Dummy {f00=0x011a, f01=0x0190, f02=»SER BUFFER ADDRESS UNEVEN? Y P ST A2,ECBBA,A8 Z " P* Z : 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Z D P* Z ~ PTIPO20 RTN A15 Z P* Z 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Z 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNE
0x05b3c4…05b558 Dummy {f00=0x011a, f01=0x0190, f02=»TE USER BUFFER POINTER Z ( P ADK A2,2 UPDATE DWT BUFFER POINTER [ ( P RB TIPO10 MOVE REMAINING CHARACTERS [ J P* [ v P EJECT TOSSIO [ P* [ P* I O : E R R [ P* [ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. [ B P* SET RETURN CODE /800
0x05b558…05b6ec Dummy {f00=0x011a, f01=0x0190, f02=»MMU ROUTINES [ l P INH $ P ADKL A15,4 ADJUST STACKPOINTER " P LD A1,DWTST,A6 GET DWT STATUS H P SLL A1,2 CHECK ECHO BIT n P RF(NN) IO:E10 NOT ECHO? P LDR A1,A6 SAVE DWT ADDRESS * P LD A6,DWTECH,A6 GET ECHO DWT ADDRESS P CF A15,
0x05b6ec…05b880 Dummy {f00=0x011a, f01=0x0190, f02=»CH TO DISPATCHER VIA TENDIO P* ] $ P EJECT TOSSIO ] . P* ] F P* T I O M X O ] P P* ] f " PTIOMXO EQU TIOMXI MUX, OUTPUT ] p P* ] P* T I O K B O ] P* ] * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT ] P* ] P* T I O I T O ]
0x05b880…05ba14 (0, 116) Dummy {f00=0x011b, f01=0x0190, f02=» P* ^ 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ^ . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ^ H P* ^ z P* INPUT: A6 = FDB ADDRESS ^ $ P* A8 = USER ECB ADDRESS ^ P* ^ " P* OUTPUT: A1-A2 ARE DESTROYED ^ P* ^ . P
0x05ba14…05bba8 Dummy {f00=0x011b, f01=0x0190, f02=»1,A1 ^ P ES A2,ECBCW2,A8 _ P RTN A15 _ $ P* _ 4 P EJECT TOSSIO _ > P* _ V P* T E N P C I _ ` P* _ v D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN _ @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. _
0x05bba8…05bd3c Dummy {f00=0x011b, f01=0x0190, f02=» _ V & P* ISSUING THE REQUEST IS 'TIOPCI'. ` D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. ` 2 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. ` z P* ` P* INPUT: A6 = DWT ADDRESS ` $ P* A8 = USER ECB ADDRESS `
0x05bd3c…05bed0 Dummy {f00=0x011b, f01=0x018e, f02=»CB ADDRESS ` v ( P LD A4,ECBEL,A2 GET EFFECTIVE LENGTH a " P RF(NP) TEPI30 NO MOVE IF ZERO a > * P LD A1,ECBBA,A2 GET DWT BUFFER ADDRESS a d P* a . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' a , P EL A2,ECBBA,A8 GET USER BUFFER ADDRESS a $ P LDK A3,1
0x05bed0…05c064 Dummy {f00=0x011b, f01=0x018e, f02=» a f , P RF(Z) TEPI60 USER BUFFER ADDRESS EVEN? b P* b 8 P EJECT TOSSIO b B P* b Z P* b d 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN b n 4 P LDR* A3,A1 GET FIRST CHARACTER FROM DWT BUFFER b P ELR A8,A2 b P* b * PTEPI15 ANK A3,/F
0x05c064…05c1f8 Dummy {f00=0x011b, f01=0x0190, f02=» b d $ P ADK A1,1 UPDATE BUFFER POINTERS c P ADK A2,1 c 0 P SUK A4,1 c B * P RF(P) TEPI25 MORE CHARACTERS TO MOVE? c T P RTN A15 NO, RETURN c P* c PTEPI20 TM A3,A2 c , P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN? c & P LDR A3,A1 GET DWT BUFFE
0x05c1f8…05c38c Dummy {f00=0x011b, f01=0x0190, f02=»R. ONE BYTE TO THE RIGHT c x & P SUK A3,1 POINT TO NEXT CHARACTER d 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER d J , P RB(NE) TEPI23 MORE CHARACTERS TO MOVE? d 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN d P RB TEPI10 d P* d P EJECT
0x05c38c…05c520 Dummy {f00=0x011b, f01=0x0190, f02=»UNEVEN? d p 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER e P* e D PTEPI30 RTN A15 e N P* e d , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN e n ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN e . P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE? e P LDR A8,A4 N
0x05c520…05c6b4 (0, 117) Dummy {f00=0x0120, f01=0x0190, f02=» PTEPI50 EQU * f 2 P LDR* A8,A1 GET LAST CHARACTER FROM DWT BUFFER f P ELR A3,A2 f N P RB TEPI15 f ` P* f r . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN f | & P LDR A3,A1 GET DWT BUFFER ADDRESS f $ P ADR A1,A4 ADD EFFECTIVE LENGTH f P* f &
0x05c6b4…05c848 Dummy {f00=0x0120, f01=0x0190, f02=» f n * P CWR A3,A1 COMPARE WITH ENDING ADDRESS g , P RB(NE) TEPI70 MORE CHARACTERS TO MOVE? g 6 . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS g f * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN g P RB TEPI25 g P* g P EJECT TOSSIO g P* g P* T
0x05c848…05c9dc Dummy {f00=0x0120, f01=0x018e, f02=»PUT g r P* h P* T E N I T I h P* h , 4 PTENITI EQU TENPCI INTERTASK COMMUNICATION, INPUT h 6 P* h n P* T E N P C O h x P* h 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT h P* h P* T E N M X O h P* h " PTENMXO EQU A15RTN
0x05c9dc…05cb70 Dummy {f00=0x0120, f01=0x0190, f02=» h ~ P* i P* T E N I T O i P* i ( F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN i 2 L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO MOVE THE CONTENTS i | J P* OF THE USER BUFFER TO THE DRIVER BUFFER. THE ENTRY TIPO05
0x05cb70…05cd04 Dummy {f00=0x0120, f01=0x018e, f02=» A8 ARE DESTROYED i P* j 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT j $ ( P LD A8,DWTECB,A6 GET DWT ECB ADDRESS j X ( P LD A3,ECBEL,A8 GET EFFECTIVE LENGTH j P RF(NP) TEIO10 NO MOVE? j * P LD A1,DWTUEC,A6 GET USER ECB ADDRESS j ( P CF A15,TI
0x05cd04…05ce98 Dummy {f00=0x0120, f01=0x0190, f02=» j < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER k < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO k H < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' k " P* IS USED FOR MOVING THE DATA. k P* k P* INPUT: A6 = D
0x05ce98…05d02c Dummy {f00=0x0120, f01=0x0190, f02=»,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER l * P TS 2,A15 SAVE MMU REGISTERS ON STACK l H & P LD A5,DWTTAB,A6 GET TTAB ADDRESS l v $ P TL TTB:MT,A5 LOAD MMU REGISTERS l ( P LD A8,DWTMEC,A6 GET DWT ECB ADDRESS l P ENB l ( P CF A15,
0x05d02c…05d1c0 Dummy {f00=0x0120, f01=0x0190, f02=» ADKL A15,32 ADJUST STACKPOINTER l * P MLR 8,A15 RESTORE A1-A8 FROM STACK... m ( P RTN A15 ...AND RETURN m V P XIF m t P* m P EJECT TOSSIO m P* m P* D C : M I N m P* m < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER m
0x05d1c0…05d354 (0, 118) Dummy {f00=0x0120, f01=0x0190, f02=» A4 = DRIVER BUFFER ADDRESS m P* A6 = DWT ADDRESS n & P* n H ( P* OUTPUT: NO REGISTERS ARE DESTROYED n R P* n ~ PDC:MIN EQU * n P IFT MMUPAG=0 n P IFT CPU852=1 n & P CF A15,SAVE8 SAVE A1-A8 ON STACK n P XIF n P* n P
0x05d354…05d4e8 Dummy {f00=0x0120, f01=0x0190, f02=»2,A15 SAVE MMU REGISTERS ON STACK n " P LD A5,DWTTAB,A6 TTAB ADDRESS o * $ P TL TTB:MT,A5 LOAD MMU REGISTERS o P P XIF o x P* o P EJECT TOSSIO o P* o & P* CHECK MESSAGE LENGTH AND DECIDE o $ P* IF TTMJOB IS TO BE ACTIVATED. o P* o
0x05d4e8…05d67c Dummy {f00=0x0120, f01=0x018e, f02=»2=1 o P LDK A7,128 852 CPU p ( P ANK A5,1 CHECK USER BUFFER ADDRESS p ( . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN p T P ADK A7,128 A7 := 256 p P XIF p P* p P IFT MMUPAG=0 p P IFT CPU852=0 p P IFT CPU857=0 p P LDK A7,80 8
0x05d67c…05d810 Dummy {f00=0x0120, f01=0x0190, f02=» P XIF q P* q P IFT MMUPAG=0 q P IFT CPU852=0 q 0 P IFT CPU857=1 q F P LDKL A7,256 857 CPU q ( P ANK A5,1 CHECK USER BUFFER ADDRESS q x . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN q P ADR A7,A7 A7 := 512 q P XIF q P* q P
0x05d810…05d9a4 Dummy {f00=0x0120, f01=0x0190, f02=»ADDRESS q t P LDKL A7,256 r ( P ANK A5,1 CHECK USER BUFFER ADDRESS r $ . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN r P P SLL A7,3 A7 := 2048 r P XIF r P* r PDCMI00 EQU * r 8 P CW A7,ECBEL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH r 2 P RF(
0x05d9a4…05db38 Dummy {f00=0x0120, f01=0x018e, f02=» r p P IFT CPU852=1 s ( P ABL IHRET8 RESTORE A1-A8 AND RETURN s P XIF s J P* s V P IFT MMUPAG=0 s ` P IFT CPU852=0 s v * P MLR 8,A15 RESTORE A1-A8 FROM STACK... s P* s PDC:MOT RTN A15 ...AND RETURN s P XIF s P* s P IFT MMUPA
0x05db38…05dccc Dummy {f00=0x0120, f01=0x0190, f02=» P* INPUT: A1 = RETURN CODE t P* A3 = ECB ADDRESS t & ( P* A4 = DRIVER BUFFER ADDRESS t H P* A6 = DWT ADDRESS t t P* t & P* OUTPUT: A1-A5, A7 ARE DESTROYED t P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t * P L
0x05dccc…05de60 Dummy {f00=0x0120, f01=0x0190, f02=»3 CHECK IF USER BUFFER IS LARGE ENOUGH t $ P RF(G) MIN:70 NO, REQUEST ERROR u . P* u V P IFT MMUPAG=0 u ` ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u v P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVE
0x05de60…05dff4 (0, 119) Dummy {f00=0x0121, f01=0x0190, f02=» P* v PMIN:10 EQU * v P LDR* A3,A7 MOVE ONE WORD v " P STR A3,A5 v D ( P ADK A7,2 INCREMENT BUFFER POINTERS v V P ADK A5,2 v $ P SUK A2,2 DECREMENT LOOP COUNTER v 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v P* v PMIN:20 EQU *
0x05dff4…05e188 Dummy {f00=0x0121, f01=0x0190, f02=» MOVE ONE CHARACTER v P SCR A3,A5 w ( P ADK A7,1 INCREMENT BUFFER POINTERS w . P ADK A5,1 w Z $ P SUK A2,1 DECREMENT LOOP COUNTER w l 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE w P XIF w P* w P IFT MMUPAG=1 w * P ST A1,ECBRC,A
0x05e188…05e31c Dummy {f00=0x0121, f01=0x0190, f02=»DRESS w t ( P CF A15,TEN:DC MOVE BUFFER CONTENTS x & P LDR A4,A7 RESTORE BUFFER ADDRESS x : P LDK A1,0 x d P XIF x v P* x P EJECT TOSSIO x P* x P* x PMIN:40 EQU * x P INH x " P CF A15,TENDIO PERFORM TENDIO x P* x P
0x05e31c…05e4b0 Dummy {f00=0x0121, f01=0x0190, f02=»N:50 EQU * x " P LDR A2,A1 SAVE BUFFER ADDRESS y $ P LDR* A1,A2 NEXT BUFFER ADDRESS y 8 , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y ` P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y " P SUK A4,6 REAL BUFFER ADDRESS y " P STR A4,A2 UPDATE QUEU
0x05e4b0…05e644 Dummy {f00=0x0121, f01=0x0190, f02=»8008 REQUEST ERROR/INCORRECT LENGTH y $ P RB MIN:40 RETURN VIA TENDIO ETC z , P* z T P EJECT TOSSIO z ^ P* z v P* D C M I N T z P* z 2 P* TTMJOB WILL BE DISPATCHED HERE TO CARRY OUT z 2 P* THE MOVE OF THE DC DRIVER BUFFER CONTENTS TO z
0x05e644…05e7d8 Dummy {f00=0x0121, f01=0x018e, f02=» ( P* A4 = DRIVER BUFFER ADDRESS { P* { 0 * PDCMINT EQU * TTMJOB MOVE BUFFER ENTRY { : P LDR A6,A3 DWT ADDRESS { h P LD A3,DWTECB,A6 ECB ADDRESS { P* { P IFT MMUPAG=1 { P INH { " P LD A5,DWTTAB,A6 TTAB ADDRESS { $ P TL TTB:MT,A
0x05e7d8…05e96c Dummy {f00=0x0121, f01=0x0190, f02=» { ( P CF A15,MINMOV MOVE BUFFER CONTENTS | P ABL MEXIT EXIT TTMJOB | 4 P* | R P EJECT TOSSIO | P* | t P* Q M T A S K | ~ P* | : P* WHEN THE MOVE WILL TAKE TOO LONG TIME TTMJOB WILL BE | 6 P* ACTIVATED AT ENTRY 'DCMINT' TO PERFORM THE
0x05e96c…05eb00 Dummy {f00=0x0121, f01=0x0190, f02=»R BUFFER ADDRESS | | P* A6 = DWT ADDRESS } P* } : PQMTASK EQU * ACTIVATE TTMJOB } D $ P LDKL A2,DCMINT DISPATCH ADDRESS } h P LDR A3,A6 DWT ADDRESS } " P CF A15,QMJOB ACTIVATE TTMJOB } P LDKL A1,/8000 NOT BUSY BIT } " P ORS A1,DWTST,A6
0x05eb00…05ec94 (0, 120) Dummy {f00=0x0121, f01=0x0190, f02=» IFT CPU852=1 } PDC:MOT INH ~ 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS ~ ( P XIF ~ ^ P* ~ j P EJECT TOSSIO ~ t P* ~ P* ~ P********** ~ P* TENDIO * ~ P********** ~ P* ~ P* ~ . P* THIS MODULE IS CALLED WHEN C
0x05ec94…05ee28 Dummy {f00=0x0121, f01=0x0190, f02=»THE TASK ~ r P* P* -IF NORMAL I/O WITH WAIT:- P* > * P* QTJOB IS CALLED TO QUEUE THE TASK H 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- v P* P* A5 = TTAB ADDRESS P* $ P* -IF NORMAL I/O WITH NO WAIT:-
0x05ee28…05efbc Dummy {f00=0x0121, f01=0x0190, f02=»UT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. P* > P EJECT TOSSIO H P* ` P* j 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- t P* P* A1 = RETURN CODE P* P* A6 = DWT ADDRESS P* P* NO REGIS
0x05efbc…05f150 Dummy {f00=0x0121, f01=0x0190, f02=»* P EJECT TOSSIO P* " P* END I/O ENTRY , P* D PTENDIO EQU * N P IFT CPU852=1 b & P CF A15,SAVE8 SAVE A1-A8 ON STACK x P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF
0x05f150…05f2e4 Dummy {f00=0x0121, f01=0x018e, f02=»,DWTTQ,A6 GET TERMINAL QUEUE LINK " P RF(Z) TEN110 NO TASK QUEUED? * P LD A2,TTB:ID,A5 GET TASK ID P P ANKL A2,/FF44 t P CWK A2,'#D' CHECK TASK ID " P RF(E) TEN100 DM REQUEST NEXT? P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 & P R
0x05f2e4…05f478 Dummy {f00=0x0121, f01=0x0190, f02=» P EJECT TOSSIO P* P* * PTEN100 EQU * 4 , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS H P ST A3,DWTTQ,A6 x . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST P* P* UPDATE ECB AND DWT P* 4 PTEN110 LD A5,DWTTAB,A6
0x05f478…05f60c Dummy {f00=0x0121, f01=0x0190, f02=»ET TTAB ADDRESS ~ 4 P CF A15,REQEND RESET REQUEST BUSY FOR ALL FILES P* P PTEN120 LDKL A2,/8000 Z , P ORRS A2,A4 INDICATE DEVICE READY IN DWT v P LDKL A3,/DBFF ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 $ P LD A3,DWTECB,A6 GET ECB ADDRESS
0x05f60c…05f7a0 Dummy {f00=0x0121, f01=0x0190, f02=»SET EVENT COMPLETED IN ECB , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB " P* R P IFT MMUPAG=1 P LD A4,TTB:PW,A5 GET PSW r & P ANK A4,1 GET SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE? P* P* LOAD MMU REGISTERS P*
0x05f7a0…05f934 (0, 121) Dummy {f00=0x0121, f01=0x018e, f02=»EGISTERS FROM TTAB x P* P EJECT TOSSIO $ P* < P* MOVE DWT ECB TO USER ECB F P* h * P LD A8,DWTUEC,A6 GET USER ECB ADDRESS r P ELR A4,A8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB P ESR A4,A8 P LDR A1,A3 P ADK
0x05f934…05fac8 Dummy {f00=0x0121, f01=0x0190, f02=» 8 P LD A3,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK & P LD A3,DEVIND,A3 GET DEVICE INDEX D . P RF(N) TEN160 NO SPECIAL ACTION REQUIRED? n " P RF(Z) TEN140 DATA MANAGEMENT? P* " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,
0x05fac8…05fc5c Dummy {f00=0x0121, f01=0x0190, f02=» A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* < P EJECT TOSSIO F P* ^ P* RESTORE MMU REGISTERS h P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL
0x05fc5c…05fdf0 Dummy {f00=0x0121, f01=0x0190, f02=»IVATION b P* PTEN200 EQU * 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR . * P RF(Z) TEN250 NOT WAIT OR ACTIVATION? b P SUK A4,1 P RF(Z) TEN240 WAIT? P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) TEN230 ACTIVA
0x05fdf0…05ff84 Dummy {f00=0x0121, f01=0x018e, f02=» RF(Z) TEN210 SYSTEM MODE? . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS " P XIF T P* ` PTEN210 EQU * j 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA ~ P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A3,A
0x05ff84…060118 Dummy {f00=0x0121, f01=0x0190, f02=» P* P EJECT TOSSIO P* & P* 0 PTEN230 EQU * : 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR N . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS P RF TEN250 P* PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TA
0x060118…0602ac Dummy {f00=0x0121, f01=0x40d2, f02=»2=1 P ABL IHRET8 P XIF P* , P IFT CPU852=0 6 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... L P RTN A15 ...AND RETURN z P XIF P* P* P* P END @ PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TA
0x0602ac…060440 Dummy {f00=0x0121, f01=0x2008, f02=» NT TOSSIO END @ &
0x060440…0605d4 (0, 122) Dummy {f00=0x0122, f01=0x0000, f02=»
[…0x7…]
0x0610e0…061274 (0, 123) Opaque[0x194]
0x061274…061408 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1db0, f03=0x0000}
0x061274…061408 IdxSect {
0x061274…061408 f00 = 0x00ed // 0x61274 @0x0
0x061274…061408 f01 = 0x0036 // 0x61276 @0x2
0x061274…061408 gno = [ // 0x61278 @0x4
0x061274…061408 [0x00]: C0x00ed.0x2.0
0x061274…061408 [0x01]: C0x00ed.0x3.0
0x061274…061408 [0x02]: C0x00ee.0x0.0
0x061274…061408 [0x03]: C0x00ee.0x1.0
0x061274…061408 [0x04]: C0x00ee.0x2.0
0x061274…061408 [0x05]: C0x00ee.0x3.0
0x061274…061408 [0x06]: C0x00ef.0x0.0
0x061274…061408 [0x07]: C0x00ef.0x1.0
0x061274…061408 [0x08]: C0x00ef.0x2.0
0x061274…061408 [0x09]: C0x00ef.0x3.0
0x061274…061408 [0x0a]: C0x00f0.0x0.0
0x061274…061408 [0x0b]: C0x00f0.0x1.0
0x061274…061408 [0x0c]: C0x00f0.0x2.0
0x061274…061408 [0x0d]: C0x00f0.0x3.0
0x061274…061408 [0x0e]: C0x00f1.0x0.0
0x061274…061408 [0x0f]: C0x00f1.0x1.0
0x061274…061408 [0x10]: C0x00f1.0x2.0
0x061274…061408 [0x11]: C0x00f1.0x3.0
0x061274…061408 [0x12]: C0x00f2.0x0.0
0x061274…061408 [0x13]: C0x00f2.0x1.0
0x061274…061408 [0x14]: C0x00f2.0x2.0
0x061274…061408 [0x15]: C0x00f2.0x3.0
0x061274…061408 [0x16]: C0x00f3.0x0.0
0x061274…061408 [0x17]: C0x00f3.0x1.0
0x061274…061408 [0x18]: C0x00f3.0x2.0
0x061274…061408 [0x19]: C0x00f3.0x3.0
0x061274…061408 [0x1a]: C0x00f4.0x0.0
0x061274…061408 ]
0x061274…061408 }
0x061408…06159c Dummy {f00=0x00ed, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 9.2 79-12-20 870105040920 P : : P =1,FAULTY LENGTH OF TEMPORARY BUFFER,USED BY XMOVE B P REL 9.2 79-12-20 ST P ENTRY SYSLDM P*************************** P* * P* ENTRIES A
0x06159c…061730 Dummy {f00=0x00ed, f01=0x0190, f02=» P EXTRN REL P EXTRN SCLASS P EXTRN SCTADA , P EXTRN SCTANO B P EXTRN SCTBLK X P EXTRN SCTBUG n P EXTRN SCTCDT P EXTRN SCTDCT P EXTRN SCTDMC P EXTRN SCTDMI P EXTRN SCTDML P EXTRN SCTDMT P
0x061730…0618c4 Dummy {f00=0x00ed, f01=0x0190, f02=»RN SCTPAG P EXTRN SCTPLD P EXTRN STTPSZ ( P EXTRN SCTPSZ > P EXTRN SCTSEG T P EXTRN SCTSFA j P EXTRN SCTSWB P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXT
0x0618c4…061a58 Dummy {f00=0x00ed, f01=0x0190, f02=»XTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDA * P EXTRN SAVE01 @ P EXTRN SAVE02 V P EXTRN SAVE03 l P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09 P E
0x061a58…061bec Dummy {f00=0x00ed, f01=0x0190, f02=» SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 & P EXTRN SAVE19 < P EXTRN SAVE20 R P EXTRN SAVE21 h P EXTRN NUMSEG ~ P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN BUFSIZ P EXTRN SYSBUF P EXTRN
0x061bec…061d80 Dummy {f00=0x00ed, f01=0x0190, f02=» P P , P*************************************** , P* CONDITIONAL ASSEMBLY * D , P*************************************** t P ( PMMUPAG EQU 0 MEMORY MANAGEMENT UNIT & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS $ PCREDIT
0x061d80…061f14 (0, 124) Dummy {f00=0x00ed, f01=0x0190, f02=»SS l 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME > $ PWBLEN EQU -4 LENGTH OF WORKBLOCK b P P $ P******************************* $ P* SAVE01URATION FILE (SAVE01) * $ P**********************
0x061f14…0620a8 Dummy {f00=0x00ed, f01=0x0190, f02=» , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS 4 $ PTDBTL EQU TDBMC+6 6A TASK LEVEL d : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7
0x0620a8…06223c Dummy {f00=0x00ed, f01=0x0190, f02=»DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: & PCDBBT EQU 0 1A BLOCK TYPE J 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES l ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD P* P* & P* USER WORK BLOCK TYPE DEF. BLOCK
0x06223c…0623d0 Dummy {f00=0x00ed, f01=0x0190, f02=» l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS ( . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH N P EJECT P**************** P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P PLMP1 EQU
0x0623d0…062564 Dummy {f00=0x00ed, f01=0x0190, f02=»QU /10 PLMP8 EQU 8 PLMP9 EQU 4 PLMP10 EQU 2 2 PLMP11 EQU 1 F P Z F P***************************************************************** f F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P*
0x062564…0626f8 Dummy {f00=0x00ed, f01=0x0190, f02=»*************************************************************** P H P T P ` PCALL FORM 16=/F697,16 l P EJECT F P***************************************************************** F P* CONSTANTS USED IN SYS
0x0626f8…06288c Dummy {f00=0x00ed, f01=0x018e, f02=» ********** P* * TTAB * P* ********** 8 P* PTTB:MT EQU -34 f PTTB:SB EQU -2 | PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40
0x06288c…062a20 Dummy {f00=0x00ed, f01=0x0190, f02=» " PDWTCHP EQU 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS . PDWTECB EQU 4 ECB ADDRESS H PDWTOR EQU 6 ORDER h PDWTADR EQU 8 ADDRESS BLOCK PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINA
0x062a20…062bb4 (0, 125) Dummy {f00=0x00ee, f01=0x0190, f02=» *********** " P* * PAGTAB * " P* *********** < P* b PPAGQF EQU 0 l PPAGQB EQU 2 PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P*
0x062bb4…062d48 Dummy {f00=0x00ee, f01=0x0190, f02=»CT P* * P* ******************* * P* * MISCELLANOUES * B * P* ******************* p P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6
0x062d48…062edc Dummy {f00=0x00ee, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * P : P* * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * :
0x062edc…063070 Dummy {f00=0x00ee, f01=0x0190, f02=»TERS: * : P* * 4 : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDA * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * : P*
0x063070…063204 Dummy {f00=0x00ee, f01=0x0190, f02=»**************** j PSYSLDM EQU * ( P ST P,SCTSFA+2 SAVE LOCATION COUNTER , . P LDKL A11,SYSBAS GET SYSBAS START ADDRESS X , P ST A11,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER & P ADK A1,2 RELOCATION ROUTINE ENTRY P
0x063204…063398 Dummy {f00=0x00ee, f01=0x0190, f02=»RESS TO SCLASS? v $ P RF(E) NO:TCL YES:DUMMY TCLASS! , P CALL CHPTRS RELOCATE POINTERS IN TCLASS @ 6 P ST A2,SAVE18,A13 SAVE RELOCATED POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS
0x063398…06352c Dummy {f00=0x00ee, f01=0x0190, f02=»EFA P LD A2,SCTSFA PCLRSYS EQU * " P SUK A1,2 6 P CMR A1 H P CWR A1,A2 X P RB(NE) CLRSYS j P LDKL A1,CONMON P AD A1,M:REL,A13 P ABR A1 P EJECT 4 /*********************************************** 4 /*
0x06352c…0636c0 Dummy {f00=0x00ee, f01=0x0190, f02=»POINTER TO TCLASS/SCLASS ( P* A11 - SYSLOD START ADDRESS ( #* A12 - RELOCATION CONSTANT L * x 2 .* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS * * WORK REGISTER:A1-A7 * * SUBROUTINES: *
0x0636c0…063854 (0, 126) Dummy {f00=0x00ee, f01=0x0190, f02=» OF TCLASS/SCLASS z CHPT10 EQU * . ) SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? . RF(Z) CHPT30 NO! ` ADK A3,2 NEXT ENTRY z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE STR A5,A3 STORE $ LDR* A6,A5 GET LENGTH
0x063854…0639e8 Dummy {f00=0x00ee, f01=0x0190, f02=» LDR* A7,A5 GET DWT-ADDRESS P LDR A9,A7 GET DWT-ADDRESS ( " P CALL CMPADR COMPARE ADDRESSES J P RB(G) CHPT20 DWT IN DRIVER! p ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS " P LD A8,SCTOPT GET OPTION WORD P ANK
0x0639e8…063b7c Dummy {f00=0x00ee, f01=0x0190, f02=»SS p * P ANKL A9,1 ADDRESS ALREADY RELOCATED? P RB(NZ) CHPT20 YES! 8 P ADR A8,A12 RELOCATE T . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED p , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 CHPT30 EQU * P RTN A14 P
0x063b7c…063d10 Dummy {f00=0x00ee, f01=0x0190, f02=»******************************************** * 4 * REFERENCED IN: MONCON > * ^ 2 P* ENTRY: SAVE01 - START OF SAVE01URATION DATA h P EJECT 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABL
0x063d10…063ea4 Dummy {f00=0x00ee, f01=0x0190, f02=» ENTRY: SAVE01 - START OF SAVE01URATION DATA * 4 " * EXIT: A6 - START OF TC:TAB > $ * A7 - LENGTH OF TC:TAB d * * WORK REGISTERS: A2,A3 * * SUBROUTINES: * . )* TASK CONTROL TABLE L
0x063ea4…064038 Dummy {f00=0x00ee, f01=0x0190, f02=»___________________ z . ** I TTMJOB I . )* _________________________ N . ** I MONITOR TASKS I . )* _________________________ . ** I USER TASKS
0x064038…0641cc Dummy {f00=0x00ee, f01=0x0190, f02=» OF SAVE01URATION DATA t ( $ LD A7,SCTSFA GET START OF FREE AREA LDR A6,A7 SAVE J & " LDKL A2,TTMJOB GET TTMJOB ADDRESS b ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY OPTIONS AVALIABLE?
0x0641cc…064360 Dummy {f00=0x00ee, f01=0x0190, f02=»PTIONS AVALIABLE * h @ P* - TO BE PROVIDED * @ P*********************************************************** ` PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? P RF(Z) BTCT30 NO! P LDR A3,A2 SAVE
0x064360…0644f4 (0, 127) Dummy {f00=0x00ee, f01=0x0190, f02=» A2,A3 GET SCTDMT P ANK A2,2 DM-TASK D1? P RF(Z) BTCT25 NO! 8 * P ADK A7,2 RESERV ENTRY FOR DM-TASK D0 R PBTCT25 EQU * P LDR A2,A3 GET SCTDMT P ANK A2,4 DMTASK D2? P RF(Z) BTCT30 NO! ( P ADK A7,2 RESERV ENTRY FOR DMTAS
0x0644f4…064688 Dummy {f00=0x00ee, f01=0x0190, f02=»SK DEFINITION BLOCK z * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY & , P ST A7,SAVE02,A13 FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTCT35 YES P LDKL A1,LMP4 FORMAT
0x064688…06481c Dummy {f00=0x00ee, f01=0x0190, f02=» EQU * $ CALL GETTSK GET NUMBER OF TASKS PBTCT50 EQU * 6 , P ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB J & P CW A7,SCTEFA CHECK IF MEMORY LEFT z P RF(NE) BTCT55 YES! P LDKL A1,LMP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PBTCT55
0x06481c…0649b0 Dummy {f00=0x00ee, f01=0x0190, f02=» TASK DEFINITION BLOCK? RB(E) BTCT40 YES ! * ! : 4 0* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB ! D * ! | * % ST A7,SCTSFA UPDATE END OF FREE AREA ! SUR A7,A6 LENGTH OF TC:TAB ! & ! STR A7,A6 STORE LENGTH IN TC:TAB ! * P ST A6
0x0649b0…064b44 Dummy {f00=0x00ee, f01=0x0190, f02=»TT - BUILD DATA MANAGEMENT TASK TABLES * ! 6 1************************************************* " 2 * " l * &* ENTRY: SCTSFA - START OF FREE AREA " v * P* SCTTCT - ADDRESS TO TC:TAB " 2 -* SCTDMT - DATA MANAGEMENT INDICATOR "
0x064b44…064cd8 Dummy {f00=0x00ee, f01=0x0190, f02=» EQU * " * % LD A12,SCTSFA GET START OF FREE AREA # ( P LD A7,SCTTCT GET POINTER TO TC:TAB # < " ADK A7,4 FIRST DM-TASK ENTRY # h $ LD A2,SCTDMT DATA MANAGEMENT? # RF(Z) DMTTEX NO! # . ) LDR A3,A2 SAVE DATA MANAGEMENT INDICATOR # . * LD A6
0x064cd8…064e6c Dummy {f00=0x00ee, f01=0x0190, f02=»L DMTGEN # DMTT10 EQU * $ , ( LDR A2,A3 GET DATA MANAGEMENT INDICATOR $ $ ANK A2,2 DM-TASK D1? $ T RF(Z) DMTT20 NO! $ r P LDKL A1,'#E' TASK ID $ CALL DMTGEN $ DMTT20 EQU * $ , ( LDR A2,A3 GET DATA MANAGEMENT INDICATOR $ ANK A
0x064e6c…065000 Dummy {f00=0x00ee, f01=0x018e, f02=» RTN A14 % EJECT % 6 2************************************************** % " 6 2* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * % 6 2************************************************** % * % * ENTRY: A1 - TASK ID % , (* A6
0x065000…065194 (0, 128) Dummy {f00=0x00ee, f01=0x0190, f02=» * EXIT: & * & * WORK REGISTERS: & * & 8 * SUBROUTINES: & B * & Z PDMTGEN EQU * & d " P LD A2,SCTOPT GET OPTION WORD & x P ANK A2,1 MMU OPTION? & P RF(Z) DMTG20 NO! & P LDK A4,0 RESET PAGE POINTER & PDMTG10 EQU * &
0x065194…065328 Dummy {f00=0x00ee, f01=0x0190, f02=»ER & n , P ADKL A12,2 INCREMENT MMU ENTRY POINTER ' P RB DMTG10 ' : PDMTG20 EQU * ' L " P LD A2,SCTOPT GET OPTION WORD ' ` P ANK A2,2 DISC PAGING? ' P RF(Z) DMTG40 NO! ' PDMTG30 EQU * ' & P ADKL A12,2 SEGMENT BLOCK ADDRESS ' PDMTG40 EQU *
0x065328…0654bc Dummy {f00=0x00ee, f01=0x0190, f02=»N ' l P LDKL A1,/0031 TASK LEVEL ( P ST A1,TTB:ST,A12 STORE ( , & P SLL A1,10 MOVE LEVEL TO LEFT BYTE ( L " P ORKL A1,/00C0 PROGRAM STATUS ( v $ P ST A1,TTB:PW,A12 STORE IN TTAB ( " ADKL A12,40 TERMINAL DEVICES ( LDK A1,6 LENGTH ( STR A
0x0654bc…065650 Dummy {f00=0x00ee, f01=0x0190, f02=»DR A12,A1 RESERV SPACE FOR BUFFERS ( P LD A2,SCTSFA ) * P SUK A2,2 ) @ PDMTG50 ADK A2,2 ) R * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW ) j P RF(NE) DMTG60 NO! ) P LDKL A1,LMP3 ) ( P CALL ERROR INDICATE MEMORY OVERFLOW ) PDMTG60 CWR A2,A12 )
0x065650…0657e4 Dummy {f00=0x00ee, f01=0x0190, f02=» ) r " * B:TT - BUILD TASK TABLES * * " ****************************** * . * * T * REFERENCED IN: MONCON * ^ * * ~ 4 P* ENTRY: SAVE01 - START OF SAVE01URATION DATA * * * 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * *
0x0657e4…065978 Dummy {f00=0x00ee, f01=0x0190, f02=»* TASK TABLE LAYOUT * * &* ________________________ + , * &* I MMU I + Z * &* I TABLE I + * &* I 16 I + * &* I WORDS
0x065978…065b0c Dummy {f00=0x00ee, f01=0x0190, f02=»---- + n * &* TASK ENTRY I QUEUE I , * &* ------------------------ , : * &* TTB:ID I TASK IDENTIFICATION I , h * &* ------------------------ , * &* TTB:ST I STATUS/LEVEL I , * &* --------
0x065b0c…065ca0 Dummy {f00=0x00ee, f01=0x0190, f02=»RAM STATUS WORD I , | * &* ------------------------ - * &* TTB:SA I DISPATCH ADDRESS I - H * &* ------------------------ - v * &* I REGISTER I - * &* I SAVE I - * &*
0x065ca0…065e34 (0, 129) Dummy {f00=0x00ef, f01=0x0190, f02=» ------------------------ - * &* TTB:TD I TASK I . ( * P* I SAVE01URATION I . V * &* I TABLE I . * &* : : . * &* : : .
0x065e34…065fc8 Dummy {f00=0x00ef, f01=0x018e, f02=» ______________________________ . 0 ,* I LENGTH I / * 0 ,* ------------------------------ / ^ 0 ,* I INDEX/FILCODE I / 0 ,* ------------------------------ / 0 ,*
0x065fc8…06615c Dummy {f00=0x00ef, f01=0x0190, f02=» / b 0 ,* : : 0 0 ,* ------------------------------ 0 < 0 ,* I INDEX/FILECODE I 0 p 0 ,* ------------------------------ 0 0 ,* I DWT-ADDRESS I 0
0x06615c…0662f0 Dummy {f00=0x00ef, f01=0x0190, f02=»D A11,SAVE01,A13 GET START OF SAVE01URATION DATA 0 . P LD A2,SCTDML GET NUMBER OF LOCAL DM-FILES 1 8 P SLL A2,2 MULTIPLY BY 4 1 j 6 P ST A2,SAVE04,A13 SAVE NUMBER OF BYTES TO RESERVE 1 PBTT10 EQU * 1 $ LCR A2,A11 GET FIRST BLOCK TYPE 1 ( # CCK A2,
0x0662f0…066484 Dummy {f00=0x00ef, f01=0x0190, f02=» 1 ( $* GET NUMBER OF TASKS IN THIS CLASS 2 * 2 4 CALL GETTSK 2 > P ST A1,SAVE19,A13 SAVE 2 R * 2 p * GET TASK ID START VALUE 2 z * 2 ( P LC A5,TDBID+4,A11 GET FIRST ID CHAR 2 SLL A5,8 MOVE TO LEFT BYTE 2 * P LC A5,TDBID+5,A11
0x066484…066618 Dummy {f00=0x00ef, f01=0x0190, f02=» VALUE 2 v P* 3 , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL 3 P SLL A5,8 MOVE TO LEFT BYTE 3 H . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL 3 l $ P CALL GETTCL GET TCL START VALUE 3 P ST A5,SAVE17,A13 SAVE 3 P XIF 3 P EJECT 3 * 3
0x066618…0667ac Dummy {f00=0x00ef, f01=0x0190, f02=»+5,A11 GET SECOND DIGIT IN LEVEL 3 " CALL CONVRT CONVERT TO BINARY 4 ( P ST A1,SAVE24,A13 SAVE 4 N * 4 l B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE 4 v * 4 $ LDKL A10,TTB:TD STANDARD LENGTH 4 " P LD A5,SCTOPT GET OPTION W
0x0667ac…066940 Dummy {f00=0x00ef, f01=0x0190, f02=»V SPACE FOR EXTRA WORDS 4 z RF BTT30 5 PBTT25 EQU * 5 2 " P LD A5,SCTOPT GET OPTION WORD 5 F P ANK A5,2 DISC PAGING? 5 l RF(Z) BTT30 NO 5 2 . SUKL A10,TTB:SB ONE WORD EXTRA IF DISC PAGING 5 0 , SUKL A12,TTB:SB RESERV SPACE FOR EXTRA WORD 5
0x066940…066ad4 (0, 130) Dummy {f00=0x00ef, f01=0x0190, f02=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART 5 " P* OF TASK SAVE01URATION TABLE 6 @ * 6 f LDK A6,0 RESET LENGTH 6 p : 5 LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK 6 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION 6 $ CAL
0x066ad4…066c68 Dummy {f00=0x00ef, f01=0x0190, f02=» 6 l & " ADR A1,A1 2*(BINARY CLASS NUMBER) 7 , P LD A8,SAVE18,A13 GET POINTER TO TCLASS 7 2 P LDR* A2,A8 7 b P SUK A2,2 7 v P CWR A1,A2 7 P RF(NG) BTT37 7 P LDKL A1,LMP4 7 & P CALL ERROR INDICATE FORMAT ERROR 7 PBTT37 EQU * 7 " P ADR
0x066c68…066dfc Dummy {f00=0x00ef, f01=0x0190, f02=»GTH WORD 7 z ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH 8 . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH 8 < ADKL A9,TDC+TLC NEXT CLASS 8 n ( # SUK A7,1 DECREMENT NUMBER OF TDC:S 8 RB BTT35 8 P EJECT 8 PBTT40 EQU * 8 * 8 > :* COMPUTE S
0x066dfc…066f90 Dummy {f00=0x00ef, f01=0x0190, f02=»EVICE CLASSES 8 l P ADKL A9,2 FIRST SDC RECORD 9 LDR A7,A1 SAVE 9 : PBTT50 EQU * 9 R RF(Z) BTT55 NO MOORE SDC:S 9 f ( $ CALL GETCLN GET CLASS NUMBER (1-99) 9 & " ADR A1,A1 2*(BINARY CLASS NUMBER) 9 , P LD A8,SAVE11,A13 GET POINTER TO SCLASS
0x066f90…067124 Dummy {f00=0x00ef, f01=0x0190, f02=»ERROR 9 t PBTT52 EQU * : " P ADR A8,A1 GET ENTRY IN SCLASS : " $ P LDR* A8,A8 GET POINTER TO CLASS : H $ P LDR* A8,A8 GET LENGTH OF CLASS : p " SUKL A8,2 EXCLUDE LENGTH WORD : ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH : . ) ADR A6,A8 ADD TO TASK CONF. T
0x067124…0672b8 Dummy {f00=0x00ef, f01=0x0190, f02=»D A7,SAVE04,A13 GET NUMBER OF BYTES TO RESERV : ( P ADR A10,A7 ADD TO TOTAL TTAB LENGTH ; 6 . P ADR A6,A7 ADD TO TASK CONF. TABLE LENGTH ; b " P ADK A6,2 INCLUDE LENGTH WORD ; 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB ; 8 P LD A8,SAVE19,A13 GET NU
0x0672b8…06744c Dummy {f00=0x00ef, f01=0x0190, f02=»B ; ^ * < ST A6,TTB:TD,A12 < * < . : 6* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD < 8 * < v $ P LD A5,SAVE24,A13 GET TASK LEVEL < $ ST A5,TTB:ST,A12 STORE IN TTAB < * < < 7* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM ST
0x06744c…0675e0 Dummy {f00=0x00ef, f01=0x0190, f02=»2,1 MMU OPTION? < P ORR A5,A2 SET BIT 15 IF MMU = $ ST A5,TTB:PW,A12 STORE IN TTAB = < * = d ( $* STORE TASK IDENTIFICATION IN TTAB = n * = & P LD A5,SAVE16,A13 GET THIS TASK ID = $ ST A5,TTB:ID,A12 STORE IN TTAB = ADK A5,1 INCREMEN
0x0675e0…067774 (0, 131) Dummy {f00=0x00ef, f01=0x0190, f02=» IN TTAB = t P* > * P LD A5,SAVE17,A13 GET TCL START VALUE > " P ST A5,TTB:PP,A12 SAVE IN TTAB > H P ADK A5,1 INCREMENT TCL > n P ST A5,SAVE17,A13 SAVE > P XIF > , ' STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB > " ADK A7,2 NEXT ENTRY IN TC:TAB >
0x067774…067908 Dummy {f00=0x00ef, f01=0x0190, f02=» NUMBER OF TASKS IN THIS CLASS > | RB BTT60 ? & P EJECT ? 8 PBTT70 EQU * ? F * ? Z * &* RESET POINTER TO START OF FREE AREA ? d * ? " P LD A5,SCTOPT GET OPTION WORD ? P ANK A5,1 MMU PAGING? ? RF(Z) BTT80 NO ? ( # ADKL A12,TTB:MT
0x067908…067a9c Dummy {f00=0x00ef, f01=0x0190, f02=»F(Z) BTT90 NO ? & " ADKL A12,TTB:SB SUBTRACT ONE WORD @ PBTT90 EQU * @ @ CALL NXTBLK GET NEXT BLOCK @ T ( # CCK A2,'TT' TASK DEFINITION BLOCK? @ x P RF(NE) BTT95 @ P LDKL A2,BTT20 @ P SUKL A2,REL @ P ADR A2,A13 @ P ABR A2 @ P
0x067a9c…067c30 Dummy {f00=0x00ef, f01=0x0190, f02=»,LMP3 @ ( P CALL ERROR INDICATE MEMORY OVERFLOW A PBTT105 CWR A2,A12 A : P RB(NE) BTT100 A T * & ST A12,SCTSFA SAVE START OF FREE AREA A j RTN A14 RETURN A P IFT CREDIT=1 A EJECT A ( $************************************ A ( $* SEGG
0x067c30…067dc4 Dummy {f00=0x00ef, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA A , (* SCTLAC - START OF APPLICATION B , * B , (* EXIT: SCTPAG - ADDRESS TO PAGE TABLE B f * B * WORK REGISTERS: A1-A12 B * B * SUBROUTINES: GETCON B * B EJECT B PSEGG
0x067dc4…067f58 Dummy {f00=0x00ef, f01=0x0190, f02=»,SCTADA APPLICATION DISC SECTOR ADDRESS B PSEG:05 EQU * C 0 0 P LD A2,SCTLAC LOGICAL ADDRESS OF COMMON PART C D P* C x " P* CHECK IF CREDIT APPLICATION C P* C P ADKL A2,PRGLG1 C P CALL GETCON C P CWK A1,'CR' C P RF(NE) SEGEX NOT CRED
0x067f58…0680ec Dummy {f00=0x00ef, f01=0x0190, f02=»TABLE C p * P LDKL A1,/8400 STATUS FOR FIRST BLOCK D $ P STR A1,A12 STORE IN FIRST BLOCK D < 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART D d & P CALL GETCON GET POINTER TO P:MTAB D P LDR A2,A1 SAVE POINTER D P ADKL A2,6 ADDRESS TO P:BAS D
0x0680ec…068280 Dummy {f00=0x00ef, f01=0x0190, f02=»L ADDRESS TO COMMON PART D x * P ADKL A2,NUMSEG GET NUMBER OF SEGMENTS E CALL GETCON E N ( # LDR A4,A1 SAVE NUMBER OF SEGMENTSS E d P RF(Z) SEG:50 NO SEGMENTS! E " ADK A2,2 FIRST SEGMENT BLOCK E " P LDK A3,1 INIT SEGMENT NUMBER E PSEG:10 EQU
0x068280…068414 (0, 132) Dummy {f00=0x00ef, f01=0x0190, f02=»OPT GET OPTION WORD E P ANK A1,2 DISC PAGING? F P RF(NZ) SEG:35 YES! F : PSEG:30 EQU * F V * P LDKL A7,/8800 INDICATE LOADED IN CORE F j PSEG:35 EQU * F 2 P ORR A7,A3 INSERT SEGMENT NUMBER IN RIGHT BYTE F STR A7,A12 SET STATUS F $ ADKL A1
0x068414…0685a8 Dummy {f00=0x00ef, f01=0x0190, f02=»SC PAGING? F RF(Z) SEG:40 G CALL GETCON G * , ( ADR A1,A5 PHYSICAL DISC SECTOR ADDRESS G > PSEG:40 EQU * G n STR A1,A12 SAVE IN SEGBLK G $ ADKL A12,2 NEXT ENTRY IN SEGBLK G ADK A2,2 EFFECTIVE LENGTH G CALL GETCON G STR A
0x0685a8…06873c Dummy {f00=0x00ef, f01=0x018e, f02=» SUK A4,1 DECREMENT NUMBER OF SEGMENTS G RB(P) SEG:10 H . PSEG:50 LD A2,SCTSFA H D P SUK A2,2 H ` PSEG:60 ADK A2,2 H r P CW A2,SCTEFA H P RF(NE) SEG:70 H P LDKL A1,LMP3 H ( P CALL ERROR INDICATE MEMORY OVERFLOW H PSEG:70 CWR A2,A1
0x06873c…0688d0 Dummy {f00=0x00ef, f01=0x0190, f02=» P EJECT I D P*************************************************************** I D P* * I Z D P* * I D P*
0x0688d0…068a64 Dummy {f00=0x00ef, f01=0x0190, f02=»============================== * I z D P* * J 2 D P* REFERENCED IN: SYSLDM * J z D P* * J D
0x068a64…068bf8 Dummy {f00=0x00ef, f01=0x0190, f02=»* J R D P* EXIT: * K D P* * K R D P* WORK REGISTERS: A1-A12 * K D P*
0x068bf8…068d8c Dummy {f00=0x00ef, f01=0x018e, f02=» - ADDRESS TO S:BTAB PROTOTYPE * K r D P* A10 - SWB BLOCK POINTER * L * D P* A11 - POINTER IN CONF. FILE * L r D P* A12 - ADDRESS TABLE POINTER * L D P*
0x068d8c…068f20 Dummy {f00=0x00ef, f01=0x0190, f02=» D P* * M D P* * M L D P*************************************************************** M P EJECT M PB:SWBT EQU * M & P LD A12,SC
0x068f20…0690b4 (0, 133) Dummy {f00=0x00f0, f01=0x0190, f02=»IN CONF. FILE M h P* N & PBSWT10 CALL NXTBLK GET NEXT BLOCK N ( P CCK A2,'TT' TASK DEFINITION BLOCK? N J P RB(E) BSWT10 YES! N v 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? N P RF(NE) BSWT20 NO! N P ADKL A11,1 N " P CALL NXTCOM SKIP COMM
0x0690b4…069248 Dummy {f00=0x00f0, f01=0x0190, f02=» A6,A11 N & P CALL GETNUM NUMBER OF UWB RECORDS O P LDR A1,A5 SAVE O : $ P RF(Z) SWBERR ILLEGAL NUMBER!!! O R ( P ADKL A11,UDBFST-1 FIRST UWB RECORD O z ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD O $ P SUK A1,1 DECR. NUMBER OF TYPES O P RB(P) BSWT30
0x069248…0693dc Dummy {f00=0x00f0, f01=0x018e, f02=» O ~ ( P LDKL A1,0 NO SWB DEFINITION BLOCK! P $ P ST A1,SCTSWB CLEAR SWB POINTER P 4 P RTN A14 P & PBSWT44 ADKL A11,1 NUMBER OF TYPES P l * P ST A11,SAVE23,A13 START OF CONF. DATA P P LDR A6,A11 P P CALL GETNUM GET 3 DIGITS P P LDR A5,A5 ZER
0x0693dc…069570 Dummy {f00=0x00f0, f01=0x018e, f02=» P j P RF(NZ) BSWT48 FILE CREATED Q " PSWBERR LDKL A1,LMP6 SWB ERROR! Q , P CALL ERROR Q R 6 PBSWT48 ST A12,SCTSWB SAVE ADDRESS TO ADDRESS TABLE Q f , P ST A8,SAVE14,A13 SAVE ADDRESS TO $SWAP Q P ADKL A12,2 FIRST POINTER Q P LDR A10,A12 SAVE Q
0x069570…069704 Dummy {f00=0x00f0, f01=0x0190, f02=» Q n P LDR A2,A1 SAVE R , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS R $ P CALL GETCON GET S:BTAB ADDRESS R P * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB R x * P RB(Z) SWBERR NO SWB:S IN APPLICATION! R P ADK A1,2 ADDRESS TO NAME R P ST A1,SAVE21,A13
0x069704…069898 Dummy {f00=0x00f0, f01=0x0190, f02=» SUK A1,2 SKIP LENGTH R . PBSWT50 ADKL A10,2 RESERV ENTRY FOR POINTER S 2 P SUK A1,6 DECREMENT LENGTH OF S:BTAB PROTOTYPE S P $ P RB(P) BSWT50 NEXT SWB-PROTOTYPE S P SUK A4,2 SKIP LENGTH WORD S " P LDKL A9,0 RESET BLOCK COUNTER S , PBSWT60 STR A10,A12
0x069898…069a2c Dummy {f00=0x00f0, f01=0x018e, f02=»B RECORDS S r 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. T $ P CALL GETCON GET TWO FIRST CHAR. T F ( P ADKL A11,NAMUWB NAME IN CONF. FILE T n P LCR A3,A11 GET FIRST CHAR. T P SLL A3,8 MOVE TO LEFT BYTE T " P LC A3,1,A11 GET SECOND CHAR. T & P
0x069a2c…069bc0 Dummy {f00=0x00f0, f01=0x0190, f02=» T r P SRL A1,8 ISOLATE CHAR. U 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE U ( P ANK A3,/FF ISOLATE CHAR. U " P CWR A1,A3 THIRD CHAR. EQUAL? U ~ P RF(E) BSWT75 YES! U $ PBSWT70 ADKL A11,NAMUWB SKIP NAME U ( P SUK A7,1 DECREMENT NUMBER OF TYPE
0x069bc0…069d54 (0, 134) Dummy {f00=0x00f0, f01=0x0190, f02=» U P STR A7,A10 1:ST WORD V P ST A7,2,A10 2:ND WORD V & P ST A7,4,A10 3:RD WORD V D P ST A7,6,A10 4:TH WORD V b P RF BSWT95 V PBSWT75 EQU * V P* V P* MATCHING NAME FOUND V P* V & P ADKL A11,NAMUWB NUMBER OF COPIES V P LDR A
0x069d54…069ee8 Dummy {f00=0x00f0, f01=0x0190, f02=» RESTORE POINTER V $ P SUK A2,UPNAME PROTOTYPE ADDRESS W & P CALL GETCON GET PROTOTYPE ADDRESS W @ P LDR A2,A1 SAVE W j & P SUK A2,UPNAME LENGTH OF WORKBLOCK W P CALL GETCON W * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB W 0 P ST A8,2,A10 STORE DISC AD
0x069ee8…06a07c Dummy {f00=0x00f0, f01=0x0190, f02=»REMENT SECTOR NUMBER W | & P ADK A1,1 INCREMENT SECTOR COUNTER X " P SUKL A3,400 DECREMENT LENGTH X F P RB(P) BSWT90 MOORE SECTORS? X l P SUK A5,1 MOORE COPIES? X P RB(P) BSWT85 YES! X * P ST A1,SWBSEC,A10 STORE SECTOR LENGTH X ( P CW A8,SAVE25,A1
0x06a07c…06a210 Dummy {f00=0x00f0, f01=0x018e, f02=»OINTER X ~ & P ADKL A9,1 INCREMENT BLOCK COUNTER Y 4 P LD A2,SAVE21,A13 CURRENT RECORD IN PROT. S:BTAB Y 8 . P ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB Y p P ST A2,SAVE21,A13 SAVE Y 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB Y P SUK A4,UP:REC DECRE
0x06a210…06a3a4 Dummy {f00=0x00f0, f01=0x0190, f02=» Y P CALL ERROR SWB ERROR! Z 2 PBSWT99 ST* A9,SCTSWB SAVE NUMBER OF SWB TYPES Z & , P ST A10,SCTSFA UPDATE START OF FREE AREA Z P RTN A14 Z P XIF Z EJECT Z * &************************************** Z * &* MONBLK - GENERATE MONITOR BLOCKS
0x06a3a4…06a538 Dummy {f00=0x00f0, f01=0x018e, f02=»N SYSTEM) Z v $ P* WHERE N IS A SYSTEM CONSTANT [ $ P* DEFINED AT SYSTEM GENERATION [ : P* [ b * [ l * REFERENCED IN: SYSLOD [ v * [ * &* ENTRY: SCTSFA - START OF FREE AREA [ ( $* SCTEFA - END OF FREE AREA [ * [ . ** E
0x06a538…06a6cc Dummy {f00=0x00f0, f01=0x018e, f02=» * EJECT PMONBLK EQU * LDK A1,0 0 & ! LD A12,SCTSFA START OF FREE AREA B . P ST A12,FREQUE SAVE POINTER TO FIRST BLOCK l * $ * GET NUMBER OF TASKS IN SYSTEM * ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB P*
0x06a6cc…06a860 Dummy {f00=0x00f0, f01=0x0190, f02=» x RF(Z) MON:20 NO ] P CALL BLKGEN ] " RB MON:10 ] 6 PMON:20 EQU * ] H * ] * GENERATE 19 MOORE BLOCKS ] f * ] LDK A2,19 ] P CALL BLKGEN ] * ] * GENERATE END BLOCK ] * ] STR A1,A12 ] ST A1,2
0x06a860…06a9f4 (0, 135) Dummy {f00=0x00f0, f01=0x0190, f02=» MONITOR BLOCK AS BUFFER ] | P* ^ & P LD A1,BUFSIZ,A13 GET BUFFER SIZE ^ * P CWK A1,6 >6? ^ T $ P RF(NL) MON:30 NOT LESS ANYWAY! ^ j P LDK A1,6 BUFFER SIZE ^ P ST A1,BUFSIZ,A13 STORE ^ & P ST A12,SYSBUF,A13 START OF BUFFER ^ PMON:30 EQU * ^
0x06a9f4…06ab88 Dummy {f00=0x00f0, f01=0x0190, f02=»DKL A1,LMP3 ^ P CALL ERROR _ PMON:50 CWR A2,A12 _ ( P RB(NE) MON:40 _ B * & ST A12,SCTSFA UPDATE END OF FREE AREA _ X RTN A14 _ EJECT _ * %************************************* _ * %* BLKGEN - GENERATE MONITOR BLOCK * _ * %********
0x06ab88…06ad1c Dummy {f00=0x00f0, f01=0x0190, f02=»ER OF BLOCKS TO BE GENERATED _ | $ * A12 - NEXT FREE ENTRY ` $ * ` L * EXIT: A1=0 ` V " * A12 - NEXT FREE ENTRY ` l * ` * WORK REGISTES: A3 ` * ` * SUBROUTINES: ` * ` 0 ,* MONITOR BLOC
0x06ad1c…06aeb0 Dummy {f00=0x00f0, f01=0x0190, f02=» -------------------- ` 0 ,* I DATA 0 I a $ 0 ,* -------------------- a X 0 ,* I DATA 0 I a 0 ,* -------------------- a * a EJECT a
0x06aeb0…06b044 Dummy {f00=0x00f0, f01=0x0190, f02=»A12 a ST A1,-2,A12 b SUK A3,1 b " RB BLK:10 b 4 PBLKEX EQU * b F RTN A14 b Z EJECT b j L J************************************************************************ b x J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK
0x06b044…06b1d8 Dummy {f00=0x00f0, f01=0x018e, f02=»* b , (* ENTRY: SCTSFA - START OF FREE ARE (X) c 2 P* SAVE01 - START OF SAVE01URATION FILE c : ( #* SCTEFA - END OF FREE AREA c p * c * EXIT: c * c * WORK REGISTERS: A1-A12 c * c < 8* SUBROUTINES: GETTSK,GETTD
0x06b1d8…06b36c Dummy {f00=0x00f0, f01=0x0190, f02=» c 2 P LD A11,SAVE01,A13 START OF SAVE01URATION FILE d & ! LD A12,SCTSFA START OF FREE AREA d > * d h 6 2* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK d r * d $ LCR A2,A11 GET FIRST CHARACTER d ( # CCK A2,'TT' TASK DEFINITION BLOCK? d
0x06b36c…06b500 Dummy {f00=0x00f0, f01=0x0190, f02=» * e , P LD A7,SAVE02,A13 FIRST USER TASK ENTRY e P SUK A7,2 e > EJECT e P PDWTS10 EQU * e ^ * e r . )* GET NUMBER OF TASKS IN THIS TASK CLASS e | * e CALL GETTSK e PDWTS20 EQU * e P ST A1,SAVE19,A13 SAVE e * e * &
0x06b500…06b694 (0, 136) Dummy {f00=0x00f0, f01=0x0190, f02=»ADDRESS e z 6 P ADKL A10,TTB:TD+2 TASK SAVE01URATION TABLE ENTRY f * f J 0 ,* INIT SUB-POINTER IN TASK DEFINITION BLOCK f T * f . * LDR A9,A11 START OF TASK DEFINITION BLOCK f , ' ADKL A9,TDBFST START OF TDC DEFINITION f P EJECT f * f
0x06b694…06b828 Dummy {f00=0x00f0, f01=0x018e, f02=»WTS40 f P CALL GETCLN GET TDC ID g P ADR A1,A1 g . , P LD A8,SAVE18,A13 GET POINTER TO TCLASS g @ P ADR A8,A1 GET CLASS ENTRY g p $ P LDR* A8,A8 GET POINTER TO CLASS g $ P LDR* A8,A8 GET LENGTH OF CLASS g " P SUKL A8,2 EXCLUDE LENGTH WORD g * P
0x06b828…06b9bc Dummy {f00=0x00f0, f01=0x0190, f02=» g j P RB DWTS30 h PDWTS40 EQU * h * h . , '* GET NUMBER OF SPECIAL DEVICE CLASSES h 8 * h h CALL GETSDC h r ADKL A9,SDCFST-CDBNC h LDR A1,A1 h PDWTS50 EQU * h P RF(Z) DWTS90 h P ST A1,SAVE17,A13 SAVE h * h * &
0x06b9bc…06bb50 Dummy {f00=0x00f0, f01=0x0190, f02=» CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS h * i 6 ADR A1,A1 i @ ( P LD A6,SAVE11,A13 POINTER TO SCLASS i R P ADR A6,A1 SELECT ENTRY i ~ $ P LDR* A6,A6 GET POINTER TO CLASS i P LDR A5,A6 SAVE i P LDR* A6,A6 GET LENGTH i " P SUK A6,2 EX
0x06bb50…06bce4 Dummy {f00=0x00f0, f01=0x0190, f02=»ENERATION OF DWT? i ~ P RF(Z) DWTS70 NO j * j 2 * COPY DWT j < * j P LDR A2,A12 TO-ADDRESS j Z , ' ADR A12,A3 UPDATE POINTER TO FREE AREA j x CALL MOVE COPY DWT j P EJECT j P* j 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SY
0x06bce4…06be78 Dummy {f00=0x00f0, f01=0x0190, f02=»TOTYPE DWT-ADDRESS j ~ * P SUR A3,A2 COMPUTE RELOCATION CONSTANT k , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS k H P SUR A4,A3 RELOCATE k x $ P ANKL A4,/FFFE MAKE EVEN ADDRESS k " P ST A4,DWTMEC,A2 STORE IT BACK k PDWTS65 EQU * k $ LDR A1,A2 DT-ADDR
0x06be78…06c00c Dummy {f00=0x00f0, f01=0x0190, f02=»DDRESS k x $ LD A1,-2,A5 GET INDEX/FILECODE l STR A1,A10 SAVE IN TTAB l 6 2 P ADKL A10,4 UPDATE TASK SAVE01URATION POINTER l V PDWTS80 EQU * l * % SUK A6,4 DECREMENT NUMBER OF DEVICES l RB(P) DWTS60 NEXT DEVICE l P EJECT l * l 4 /
0x06c00c…06c1a0 Dummy {f00=0x00f0, f01=0x018e, f02=»DWTS50 l PDWTS90 EQU * m * m " 8 P* CHECK IF MOORE TASKS WITH THE SAME SAVE01URATION m , * m h P LD A1,SAVE19,A13 m r SUK A1,1 m RB(P) DWTS20 m * m , (* CHECK IF MOORE TASK DEFINITION BLOCKS m * m CALL NXTBLK m
0x06c1a0…06c334 (0, 137) Dummy {f00=0x00f1, f01=0x0190, f02=» P CW A2,SCTEFA n P RF(NE) DWTS99 n P LDKL A1,LMP3 n 0 ( P CALL ERROR INDICATE MEMORY OVERFLOW n F PDWTS99 CWR A2,A12 n r P RB(NE) DWTS95 n ST A12,SCTSFA n RTN A14 RETURN n EJECT n 4 0******************************************
0x06c334…06c4c8 Dummy {f00=0x00f1, f01=0x018e, f02=»************************************** n * o . * REFERENCED IN: MONCON o 8 * o X * ENTRY: o b * o t * EXIT: o ~ * o * WORK REGISTERS: A1-A12 o * o D @* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK o
0x06c4c8…06c65c Dummy {f00=0x00f1, f01=0x0190, f02=» o P LDK A1,0 p 0 P LDKL A11,BDWT05 GET END OF TEMP. WORK AREA p & P AD A11,M:REL,A13 RELOCATE ADDRESS p N P LDR A7,A11 SAVE p x 2 P SU A7,SCTSFA+2 COMPUTE SIZE OF TEMP WORK AREA p $ P CWK A7,1808 IS AREA BIG ENOUGH? p P RF(L) BDWT02 NO! p , P
0x06c65c…06c7f0 Dummy {f00=0x00f1, f01=0x0190, f02=»NTERRUPT TABLE AT END OF FREE AREA p n * q * PBDWT02 EQU * q 4 ( P LD A11,SCTEFA GET END OF FREE AREA q H ( $ LD A9,SCTSFA GET START OF FREE AREA q t PBDWT05 EQU * q LDK A7,0 RESET WORD COUNTER q PBDWT10 EQU * q CWR A11,A9 MEMORY OVERFLOW?
0x06c7f0…06c984 Dummy {f00=0x00f1, f01=0x0190, f02=»WORDS RESERVED? q RF(E) BDWT20 YES r $ SUKL A11,2 RESERV ANOTHER WORD r 2 P CMR A11 CLEAR MEMORY WORD r Z $ ADK A7,1 INCREMENT WORD COUNTER r | RB BDWT10 r PBDWT20 EQU * r * r 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES r
0x06c984…06cb18 Dummy {f00=0x00f1, f01=0x0190, f02=»2 r PBDWT30 EQU * s , ( STR A11,A7 SAVE INTERRUPT TABLE ADDRESS s & " ADK A7,2 NEXT ADDRESS TABLE ENTRY s N . * ADKL A11,224 NEXT INTERRUPT TABLE ADDRESS s x * % CW A11,SCTEFA ALL POINTERS INTIATED? s RB(NE) BDWT30 NO s * P ST A1,SCTEFA UPDATE E
0x06cb18…06ccac Dummy {f00=0x00f1, f01=0x0190, f02=» OF FREE AREA s x * t B >* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY t * t f 0 P LD A5,SAVE02,A13 GET FIRST USER TASK ENTRY t p 6 P ST A5,SAVE13,A13 STORE IN CURRENT USER TASK ENTRY t PBDWT40 EQU * t * t . )* GET NUMBE
0x06ccac…06ce40 Dummy {f00=0x00f1, f01=0x0190, f02=»Y VALUE t t * u @ ;* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS u * u ^ CALL GETTDC u h * u | $ * CHECK IF TASK WITHOUT DEVICES u * u $ LDR A1,A1 ANY TERMINAL DEVICES? u RF(Z) BDW100 NO u 6 P ST A1,SAVE15,A1
0x06ce40…06cfd4 (0, 138) Dummy {f00=0x00f1, f01=0x0190, f02=» u ^ * v ( #* GET TERMINAL DEVICE CLASS NUMBER v * v > . * LDR A9,A11 START OF TASK DEFINITION BLOCK v H 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION v z PBDWT55 EQU * v " CALL GETCLN GET CLASS NUMBER v ( P ST A1,SAVE14,A13 SAVE BINAR
0x06cfd4…06d168 Dummy {f00=0x00f1, f01=0x018e, f02=»TLCN GET LINE CONNECTION NUMBER v LDR A6,A1 SAVE BINARY VALUE w ( . * ADK A1,1 INCREMENT LINE CONNECTION NUMBER w L 4 / CALL BINASC CONVERT INCREMENTED VALUE TO ASCII w ~ , ' SC A5,TDC+4,A9 STORE RIGHT ASCII DIGIT w 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI
0x06d168…06d2fc Dummy {f00=0x00f1, f01=0x0190, f02=» * x 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF CLASS ID x ADR A2,A2 2*ID x D ( P LD A7,SAVE18,A13 POINTER TO TCLASS x P ADR A7,A2 GET ENTRY x P* x : P* CHECK IF THIS IS AN ENTRY IN TCLASS -TO BE SUPPLIED x P* x $ P LDR* A7,A7 GET PO
0x06d2fc…06d490 Dummy {f00=0x00f1, f01=0x0190, f02=» , (* A7 - POINTER TO TERMINAL DEVICE CLASS y * y 4 . ** THE ENTRY IN TEMPORARY INTERRUPT TABLE y > . ** IS DERIVED FROM LINE CONNECTION NUMBER, y p : 6* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) y * y CALL DWTGEN y PBDWT90 EQU
0x06d490…06d624 Dummy {f00=0x00f1, f01=0x0190, f02=»NO y , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER z $ ADKL A9,TDC+TLC NEXT TDC RECORD z : RB BDWT55 z b PBDW100 EQU * z t 2 P LD A1,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB z & ! ADK A1,2 INCREMENT ENTRY POINTER z P ST A1,SAVE13,A13 SAVE z 8 P L
0x06d624…06d7b8 Dummy {f00=0x00f1, f01=0x0190, f02=»TASK DEFINITION BLOCKS z ~ * { $ CALL NXTBLK SKIP TO NEXT BLOCK { ( ( # CCK A2,'TT' TASK DEFINITION BLOCK? { P RB(E) BDWT40 YES { | * { 0 ,* ALL TERMINAL DEVICE WORK TABLES GENERATED { * { P LD A2,SCTSFA { P SUK A2,2 { PBD
0x06d7b8…06d94c Dummy {f00=0x00f1, f01=0x0190, f02=»B(NE) BDW105 { , P ST A12,SCTSFA UPDATE START OF FREE AREA | RTN A14 RETURN | D EJECT | , (**************************************** | l , P* B:CDT - BUILD COMMON DEVICE TABLE * | , (**************************************** | * | *
0x06d94c…06dae0 Dummy {f00=0x00f1, f01=0x018e, f02=» | ` ( $* SCTEFA - END OF FREE AREA } * } 4 4 0* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE } > * } v * WORK REGISTERS: A1-A12 } * } < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE } * } EJECT } PB:CD
0x06dae0…06dc74 (0, 139) Dummy {f00=0x00f1, f01=0x0190, f02=» } x * ~ * %* GET COMMON DEVICE DEFINITION BLOCK ~ * ~ @ PCDG:10 EQU * ~ J CALL NXTBLK ~ ^ ( # CCK A2,'TT' TASK DEFINITION BLOCK? ~ r RB(E) CDG:10 YES ~ ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? ~ P RF(NE) BCDTEX NO ~ P EJECT ~
0x06dc74…06de08 Dummy {f00=0x00f1, f01=0x0190, f02=»* ~ 0 P LDR A9,A11 START OF COMMON DEFINITION BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES > & P CALL GETCTC GET NUMBER OF C.T.C. x P LDR A6,A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-9
0x06de08…06df9c Dummy {f00=0x00f1, f01=0x0190, f02=»SS r P SUK A2,2 EXCLUDE LENGTH & P CWR A1,A2 MAKE SURE CLASS EXISTS * P RF(NG) B:CT20 OK! T P LDKL A1,LMP4 FORMAT ERROR! n P CALL ERROR , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS $ P LDR* A1,A
0x06df9c…06e130 Dummy {f00=0x00f1, f01=0x0190, f02=»RD IN CONF. FILE v " P SUK A6,1 DECR. NBR OF C.T.C. P RB B:CT10 > P EJECT P PB:CT30 EQU * ^ P* r : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES | 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* CALL GE
0x06e130…06e2c4 Dummy {f00=0x00f1, f01=0x018e, f02=» , P LD A5,SAVE11,A13 GET POINTER TO SCLASS P LDR* A2,A5 4 P SUK A2,2 H P CWR A1,A2 Z P RF(NG) BCDT15 l P LDKL A1,LMP4 P CALL ERROR PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P
0x06e2c4…06e458 Dummy {f00=0x00f1, f01=0x0190, f02=» P EJECT P* < P* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES 6 P* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC ` P* 6 P* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR D
0x06e458…06e5ec Dummy {f00=0x00f1, f01=0x0190, f02=»T DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEMENT P ORR A6,A1 DM OR DC? D " P LD A1,SCTOPT GET OPTION WORD ` $ P ANK A1,/A DISC PAGING OR SWB:S? , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! , P LD A6,SAVE11,A1
0x06e5ec…06e780 Dummy {f00=0x00f1, f01=0x018e, f02=»CLASS v * P LDR* A6,A6 GET POINTER TO LAST CLASS ( P LDR* A6,A6 GET LENGTH OF LAST CLASS < " P SUK A6,2 EXCLUDE LENGTH WORD h & P ADR A7,A6 ADD TO LENGTH OF CD:TAB PCDG:15 EQU * , P LD A6,SCTDMC GET NUMBER OF GLOBAL FILES P SLL A6,2 MU
0x06e780…06e914 (0, 140) Dummy {f00=0x00f1, f01=0x0190, f02=» EJECT * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * Z ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT d $ P LCR A2,A11 COMMON DEVICE BLOCK? P CCK A2,'CC' P RF(E) CDG:18 * P ADKL A10,2 FIRST FREE ENTRY IN CDTAB
0x06e914…06eaa8 Dummy {f00=0x00f1, f01=0x0190, f02=» P* * P LDR A9,A11 START OF COMMON DEF. BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES < & P CALL GETCTC GET NUMBER OF C.T.C. v , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? PB:CT40 RF(Z) B:CT50 NO! P ST A1,SAVE15,A13 SAVE
0x06eaa8…06ec3c Dummy {f00=0x00f1, f01=0x0190, f02=»A1 SAVE , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER & P ADR A2,A2 CONVERT TO DISPLACEMENT @ , P LD A7,SAVE18,A13 GET POINTER TO TCLASS j & P ADR A7,A2 SELECT ENTRY IN TCLASS $ P LDR* A7,A7 GET POINTER TO CLASS . P CALL DWTGEN GENERATE DWT:S
0x06ec3c…06edd0 Dummy {f00=0x00f1, f01=0x0190, f02=»T COUNTER ~ P RB B:CT40 . PB:CT50 ADKL A10,2 NEXT FREE ENTRY IN CDTAB $ P EJECT V * d , '* GET NUMBER OF SPECIAL DEVICE CLASSES n * CALL GETSDC ADKL A9,SDCFST-CDBNC P LDR A8,A1 PCDG:20 EQU * P RF(NP)
0x06edd0…06ef64 Dummy {f00=0x00f1, f01=0x0190, f02=»ASS IN SCLASS r * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS 6 PCDG:25 EQU * f P ADR A6,A1 SELECT CLASS z & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS $ P LDR* A6,A6 GET LENGTH OF CL
0x06ef64…06f0f8 Dummy {f00=0x00f1, f01=0x0190, f02=» LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) CDG:40 NO , * D * COPY DWT N * b LDR A2,A12 TO-ADDRESS l , ' ADR A12,A3 UPDATE POINTER TO FREE AREA CALL MOVE COPY DWT P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU I
0x06f0f8…06f28c Dummy {f00=0x00f1, f01=0x0190, f02=» PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS L P ANKL A4,/FFFE MAKE IT EVEN! | P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK PCDG:35 EQU * " LDR A1,A2 DWT-ADD
0x06f28c…06f420 Dummy {f00=0x00f1, f01=0x0190, f02=»RESS v LD A1,-2,A5 GET FILE CODE STR A1,A10 STORE IN TTAB . $ ADKL A10,4 NEXT ENTRY IN CD:TAB P & " SUK A6,4 DECREMENT DEVICE COUNTER x RB(P) CDG:30 NEXT DEVICE P EJECT * , (* CHECK IF MOORE SPECIAL DEVICE CLASSES
0x06f420…06f5b4 (0, 141) Dummy {f00=0x00f2, f01=0x0190, f02=»CTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? F " P LD A5,SCTOPT GET OPTION WORD b $ P ANK A5,/A DISC PAGING OR SWB:S? , P ORR A1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! , P LD A5,SAVE11,
0x06f5b4…06f748 Dummy {f00=0x00f2, f01=0x0190, f02=»Y x * P LDR* A5,A5 GET POINTER TO LAST CLASS ( P LDR* A6,A5 GET LENGTH OF LAST CLASS 8 " P SUK A6,2 EXCLUDE LENGTH WORD d P RB CDG:30 PCDG:EX EQU * P LD A2,SCTSFA P SUK A2,2 PCDG:50 ADK A2,2 P CW A2,SCTEFA P R
0x06f748…06f8dc Dummy {f00=0x00f2, f01=0x0190, f02=»T A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN . EJECT F J F********************************************************************** T H C* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J F**************************
0x06f8dc…06fa70 Dummy {f00=0x00f2, f01=0x0190, f02=»INTER TO TERMINAL DEVICE CLASS IN TCLASS ~ * &* A6 - LINE CONNECTION NUMBER 0 * ^ * EXIT: h * x * WORK REGISTERS: A1-A8 * * SUBROUTINES: I:CHP,MOVE * EJECT PDWTGEN EQU * 2 P ST A6,SAVE08,
0x06fa70…06fc04 Dummy {f00=0x00f2, f01=0x0190, f02=»RST FILECODE PDWT10 EQU * . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT ( * Z 4 /* DERIVE CONTENT OF CHANNEL PARAMETER AND ALSO d 8 4* THE ENTRY TO BE USED IN TEMPORARY INTERRUPT TABLE 4 0* FROM LINE CONNECTION NUMBER AND PROTOTYPE DWT
0x06fc04…06fd98 Dummy {f00=0x00f2, f01=0x0190, f02=»TS ENTRY) | * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER STORED IN BITS 12-15 P * %* OF THE GENERATED CHANNEL PARAMETER 2 P LD A4,SAVE05,A13 GET SAVED NUMBER IN BITS 4-6 , P LD A3,SCTSFA+2 FIRST INT TA
0x06fd98…06ff2c Dummy {f00=0x00f2, f01=0x0190, f02=»AMETER v PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND * ADK A4,28 NEXT LINE P & " SUK A3,1 DECREMENT LINE PARAMETER l RB DWT15 EJECT PDWT17 EQU * 6 P ST A4,SAVE07,A13 SAVE INTERRUPT TABLE LINE ENTRY *
0x06ff2c…0700c0 Dummy {f00=0x00f2, f01=0x0190, f02=» DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES * 2 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT < P LDR A2,A6 SAVE p : 5 ANKL A6,/7100 GET DEVICE ADDRESS AND DEVICE TYPE BIT $ SLC A6,7 CHECK IF INPUT DEVICE P RF(N) DWT20 YES! P
0x0700c0…070254 (0, 142) Dummy {f00=0x00f2, f01=0x0190, f02=»WT20 NO! P SRL A6,2 P ADK A6,12 " RF DWT30 4 PDWT20 EQU * F P SRL A6,2 Z P SUK A6,2 l PDWT30 EQU * ~ ANK A6,/1E * 2 .* CHECK IF DWT ALREADY GENERATED ON THIS LINE * ADR A6,A4 TABLE ENTRY
0x070254…0703e8 Dummy {f00=0x00f2, f01=0x0190, f02=»T A2,DWTECH,A5 STORE REAL ECHODEVICE-DWTADDRESS , P CM DWTECB,A1 RESET POINTER TO INPUT-DWT 8 P RF DWT70 h P EJECT z P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P CWR A
0x0703e8…07057c Dummy {f00=0x00f2, f01=0x0190, f02=»T70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS * D * COPY DEVICE TYPE DWT N * n LDR A2,A12 TO-ADDRESS x P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ * A1
0x07057c…070710 Dummy {f00=0x00f2, f01=0x0190, f02=»HECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT & ANKL A3,/0100 INPUT DEVICE? T RF(Z) DWT50 NO x * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x070710…0708a4 Dummy {f00=0x00f2, f01=0x0190, f02=»F KEYBOARD DWT IN THIRD WORD ~ . )* OF PROTOTYPE DWT OF OUTPUT ECHO DEVICE $ * V P LD A5,DWTECH,A1 ECHO? ` RF(Z) DWT40 NO ~ 6 P AD A5,M:REL,A13 RELOCATE ECHO DEVICE DWT-ADDRESS & P ST A2,4,A5 SAVE INPUT DWT-ADDRESS P EJECT P
0x0708a4…070a38 Dummy {f00=0x00f2, f01=0x0190, f02=»,DWTSQ DISPLACEMENT TO START OF BUFFER $ ST A5,DWTSQ-4,A2 STORE POINTER . $ ST A5,DWTSQ-2,A2 STORE POINTER V * ~ * IF DOUBLE KEYBOARD: D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING
0x070a38…070bcc Dummy {f00=0x00f2, f01=0x0190, f02=» DWT60 NOT DOUBLE KEYBOARD $ LDR A5,A2 GET REAL DWT-ADDRESS " ADK A5,1 ADD ONE J 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 d ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-AD
0x070bcc…070d60 Dummy {f00=0x00f2, f01=0x0190, f02=» GET CORRESPONDING INPUT DWT-ADDRESS FROM THIRD WORD * IN THE DWT. < 8 3* SAVE ADDRESS OF THIS DWT IN WORD 18 OF INPUT DWT R $ * AND CLEAR WORD 3 OF THIS DWT. * 0 P LD A5,DWTECB,A2 GET THIRD WORD IN REAL DWT ( # RF(Z) DWT60 NOT ECH
0x070d60…070ef4 (0, 143) Dummy {f00=0x00f2, f01=0x0190, f02=»DWT60 EQU * * * CHECK IF PAGING * 8 " P LD A5,SCTOPT GET OPTION WORD B P ANK A5,1 MMU PAGING? h RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS * P SUR
0x070ef4…071088 Dummy {f00=0x00f2, f01=0x0190, f02=»,DWTMEC,A2 STORE IT BACK * < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED * P* j & P LD A5,DWTADR,A2 GET ADDRESS BLOCK t 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $ P RF(Z) DWT70 ALLOCATE NO BUFFER! * L P*
0x071088…07121c Dummy {f00=0x00f2, f01=0x0190, f02=» LDR A3,A12 INTERNAL BUFFER ADDRESS ADK A3,1 , , ( ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS @ P ST A3,2,A5 SAVE p P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 $ P ANKL A3,/FFFE MAKE LENGTH EVEN P EJECT
0x07121c…0713b0 Dummy {f00=0x00f2, f01=0x018e, f02=»AN STORE THE ADDRESS AND SIZE OF THE , P* INTERNAL BUFFER IN SYSBUF AND BUFSIZ. , * CW A3,BUFSIZ,A13 f RF(NG) DWT65 ST A3,BUFSIZ,A13 P ST A12,SYSBUF,A13 PDWT65 EQU * ADR A12,A3 NEXT FREE ENTRY P EJE
0x0713b0…071544 Dummy {f00=0x00f2, f01=0x0190, f02=» " P LDR* A5,A7 GET INDEX/FILECODE * P STR A5,A10 STORE IN TASK CONF. TABLE * " P ADKL A10,2 NEXT ENTRY IN TTAB X " P STR A2,A10 STORE DWT-ADDRESS ~ P* , '* CHECK IF MOORE DEVICES IN THIS CLASS * SUKL A8,4 RF(Z) DWTEX
0x071544…0716d8 Dummy {f00=0x00f2, f01=0x0190, f02=»DWTEX EQU * RTN A14 RETURN EJECT , * %************************************* : * %* I:CHP - INIT CHANNEL PARAMETER * h * %************************************* * * REFERENCED IN: DWTGEN * , (* ENTRY: A1 -
0x0716d8…07186c Dummy {f00=0x00f2, f01=0x0190, f02=»- POINTER TO TDC RECORD * & !* EXIT: A5 - CHANNEL PARAMETER * @ P* SAVE05 - SELECTS INTERRUPT TABLE (INTLT1-INTRT4) T 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * * WORK REGISTERS: A3,A4,A5 * * S
0x07186c…071a00 Dummy {f00=0x00f2, f01=0x018e, f02=»E CONNECTION NUMBER | 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY P 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER | & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CH
0x071a00…071b94 (0, 144) Dummy {f00=0x00f2, f01=0x0190, f02=» & " ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER . ANK A3,/18 GET BITS 11-12 SRL A3,2 MOVE TO BITS 13-14 ~ P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x071b94…071d28 Dummy {f00=0x00f2, f01=0x0190, f02=»NZ) I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR F RF I:CH50 t PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SE
0x071d28…071ebc Dummy {f00=0x00f2, f01=0x018e, f02=»T 15 RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 " LDK A3,1 ENTRY SELECTOR L P ST A3,SAVE06,A13 SAVE l RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,
0x071ebc…072050 Dummy {f00=0x00f2, f01=0x0190, f02=» . * SUK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 6 & " ADK A4,1 INCREMENT TABLE SELECTOR L RB I:CH60 v PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAV
0x072050…0721e4 Dummy {f00=0x00f2, f01=0x0190, f02=»:ITAB - BUILD REAL-TIME INTERRUPT TABLE * 2 .********************************************** 2 * h * REFERENCED IN: DWTGEN r * * &* ENTRY: SCTSFA - START OF FREE AREA * 8 4* EXIT: INTLT1-INTRT4 - REAL TIME INTERRUPT TABL
0x0721e4…072378 Dummy {f00=0x00f2, f01=0x0190, f02=» > P* A4 - LENGTH OF LINE SAVE01URATION TABLE * %* A5 - DEVICE COUNTER F ( #* A6 - LINE COUNTER t 2 P* A7 - DISPLACEMENT IN SAVE21 @ ;* A10- ADDRESS TO TEMPORARY INTERR
0x072378…07250c Dummy {f00=0x00f2, f01=0x0190, f02=»INTERRUPT TABLE f * * SUBROUTINES " * 8 P EJECT B PB:ITAB EQU * P 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. d P LDR A11,A12 $ LDK A7,0 RESET POINTER IN IABAT PBIT10 EQU * P LDK A1,0 P ST A1,SAVE2
0x07250c…0726a0 Dummy {f00=0x00f2, f01=0x0190, f02=»Y INTERRUPT TABLE v * P LD A10,SCTSFA+2 $ ADR A10,A7 < LDR* A10,A10 P & P LDK A6,0 RESET LINE ENTRY POINTER f PBIT20 EQU * * 8 P* SAVE POINTER TO START OF LINE SAVE01URATION TABLE F P* IN TEMPORARY AREA AND RESET
0x0726a0…072834 (0, 145) Dummy {f00=0x00f3, f01=0x018e, f02=»LENGTH OF LINE CONF.TABLE * " 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE , * &* TO POINT AT LAST INPUT DEVICE ENTRY ` * ADKL A10,12 LDK A5,7 ADKL A11,14 P EJECT * < 9* CHECK INPUT PART OF TEMPORA
0x072834…0729c8 Dummy {f00=0x00f3, f01=0x0190, f02=» RF(NZ) BIT40 YES PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY 2 RF(Z) BIT50 YES b * z < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INTERRUPT TABLE HAS BEEN OCCUPIED SO FAR * . P SUKL
0x0729c8…072b5c Dummy {f00=0x00f3, f01=0x0190, f02=» ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) < H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY. * PBIT40 EQU * * % STR A1,A11 STORE CONTENT
0x072b5c…072cf0 Dummy {f00=0x00f3, f01=0x0190, f02=» IN T.I.T. z $ SUKL A11,2 NEXT ENTRY IN R.I.T. * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY : RB BIT40 h EJECT z PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE PART IN TEMPORARY INTERRUPT * TABLE HAS BEEN SCANNED.
0x072cf0…072e84 Dummy {f00=0x00f3, f01=0x0190, f02=»R. z * ADKL A10,14 LDK A5,7 ( * : L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. D $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST UNOCCUPIED ENTRY (CONTENT=ZERO) IN THE LINE SAVE01URATION
0x072e84…073018 Dummy {f00=0x00f3, f01=0x0190, f02=» * INCREMENT LENGTH * PBIT70 EQU * * LDR* A1,A10 OCCUPIED ENTRY? > RF(NZ) BIT90 YES b SUK A5,1 LAST ENTRY | RF(Z) BIT120 YES PBIT80 EQU * ADKL A10,2 NEXT ENTRY RB BIT70 PBIT90 EQU *
0x073018…0731ac Dummy {f00=0x00f3, f01=0x0190, f02=»IN LINE SAVE01URATION TABLE d * OF REAL INTERRUPT TABLE. $ * H P LDR* A2,A11 R RF(Z) BIT100 f P ADKL A11,2 | RB BIT90 EJECT PBIT100 EQU * * F P* AN UNOCCUPIED ENTRY HAS BEEN FOUND IN LINE SAVE01URATIO
0x0731ac…073340 Dummy {f00=0x00f3, f01=0x0190, f02=»CONTENT ~ * P LD A1,SAVE23,A13 GET START OF L.C.T. " LDR A3,A11 GET CURRENT ENTRY > P SUR A3,A1 COMPUTE LENGTH d CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3 SAVE NEW LENGTH PBIT110 EQU * SUK A5,1 LAST ENT
0x073340…0734d4 (0, 146) Dummy {f00=0x00f3, f01=0x0190, f02=»NE J D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR R * " LDR A4,A4 ANY ENTRY OCCUPIED? RF(Z) BIT130 NO , P IM SAVE24,A13 INDICATE DEVICE
0x0734d4…073668 Dummy {f00=0x00f3, f01=0x018e, f02=»ST WORD OF L.C.T. r LDR A11,A1 START OF L.C.T. . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. > ADKL A11,2 NEXT FREE ENTRY p RF BIT140 EJECT PBIT130 EQU * * * NO DEVICES ON THIS LINE. . P* -NO LINE SAVE01
0x073668…0737fc Dummy {f00=0x00f3, f01=0x0190, f02=» r PBIT140 EQU * $ ADKL A10,2 NEXT ENTRY IN T.I.T. $ ADK A6,1 INCREMENT LINE COUNTER D CWK A6,8 ALL LINES SCANNED? l RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY P RB BIT20 PBIT150 EQU * P* 6 P* STORE A
0x0737fc…073990 Dummy {f00=0x00f3, f01=0x0190, f02=»NT? n P RF(Z) BIT155 NO! 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS & P ST A1,INTLT1,A7 SAVE P RF BIT158 z PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA PBIT158 EQU * * : 6* ALL LINES OF THIS INT
0x073990…073b24 Dummy {f00=0x00f3, f01=0x0190, f02=»XT ENTRY IN ITAB CWK A7,16 LAST ENTRY? RF(E) BIT160 YES 6 $ LDR A12,A11 GET NEXT FREE ENTRY P RB BIT10 x PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTERRUPT TABLE HAS BEEN SCANNED < 8* AND ALL THE REAL INTE
0x073b24…073cb8 Dummy {f00=0x00f3, f01=0x0190, f02=»CTSFA P SUK A2,2 PBIT165 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW 8 P RF(NE) BIT170 f P LDKL A1,LMP3 | ( P CALL ERROR INDICATE MEMORY OVERFLOW PBIT170 CWR A2,A11 P RB(NE) BIT165 ( P ST A13,SCTEFA SKIP TEMP.
0x073cb8…073e4c Dummy {f00=0x00f3, f01=0x0190, f02=»*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL SUBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************************************
0x073e4c…073fe0 Dummy {f00=0x00f3, f01=0x0190, f02=»ASSES d P* 8 4**************************************************** * T " P* REFERENCED IN: B:TCT,B:CDT ^ * > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK * F A* EXIT: A1 - NUMBER OF TASKS IN THE TASK C
0x073fe0…074174 (0, 147) Dummy {f00=0x00f3, f01=0x0190, f02=» PGETCTC EQU * P LC A5,TDBNT,A11 SLL A5,8 0 P LC A5,TDBNT+1,A11 B CALL CONVRT RTN A14 p EJECT 8 4**************************************************** 8 4* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * 8 4**
0x074174…074308 Dummy {f00=0x00f3, f01=0x0190, f02=»O START OF TASK DEFINITION BLOCK v * ( D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) 2 * z * WORK REGISTERS: A5 * * SUBROUTINES: CONVRT * PGETTDC EQU * LC A5,TDBNC,A11 SLL A5,
0x074308…07449c Dummy {f00=0x00f3, f01=0x018e, f02=»* ^ 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * 8 3*************************************************** F * * REFERENCED IN: B:TT * 4 /* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD * D ?* EXIT: A1 -
0x07449c…074630 Dummy {f00=0x00f3, f01=0x0190, f02=» * PGETSDC EQU * LCR A5,A9 " P SLL A5,8 4 LC A5,1,A9 F CALL CONVRT Z RTN A14 n EJECT ~ 2 .********************************************** 2 .* GETCLN - GET CLASS IDENTIFICATION NUMBER * 2 .****************
0x074630…0747c4 Dummy {f00=0x00f3, f01=0x0190, f02=»CORD b * > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * X * WORK REGISTERS: A5 b * * SUBROUTINES: CONVRT * PGETCLN EQU * P LC A5,TDCDD1,A9 P SLL A5,8 P LC A5,TDCDD2,A9
0x0747c4…074958 Dummy {f00=0x00f3, f01=0x0190, f02=»CTION NUMBER * v . )***************************************** * J * REFERENCED IN: B:DWTT T * v 8 3* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD * : 5* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) *
0x074958…074aec Dummy {f00=0x00f3, f01=0x0190, f02=» A5,8 P LC A5,LCND2,A9 P CALL CONVRT & RTN A14 : P IFT CREDIT=1 J P EJECT ` : P***************************************************** n : P* * : P* GETTCL - GET TASK CLASS TO
0x074aec…074c80 Dummy {f00=0x00f3, f01=0x0190, f02=» * f : P* REFERENCED IN: B:TT * : P* * R : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* *
0x074c80…074e14 (0, 148) Dummy {f00=0x00f3, f01=0x0190, f02=»REGISTERS: A1-A7,A10 * : P* * 6 : P* SUBROUTINES: GETTSK,NXTBLK * t : P* * : P************************
0x074e14…074fa8 Dummy {f00=0x00f3, f01=0x0190, f02=»,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? j P RF(E) TCL:60 YES! . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL P SLL A5,8 MOVE TO LEFT BYT
0x074fa8…07513c Dummy {f00=0x00f3, f01=0x0190, f02=»R OF COPIES z P ADR A7,A1 INCREMENT TCL 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK 4 P RB TCL:10 h , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL z P RTN A14 P XIF EJECT B >****************************************************
0x07513c…0752d0 Dummy {f00=0x00f3, f01=0x018e, f02=»ONVERTED * j * " B >************************************************************** , * r * REFERENCED IN: B:DWTT | * , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED
0x0752d0…075464 Dummy {f00=0x00f3, f01=0x0190, f02=» P SLL A5,8 P LCK A5,'00' LDK A2,0 * LDR A1,A1 < PBIN:20 EQU * N RF(Z) BINEX b ADK A2,1 v CWK A2,10 RF(E) BIN:30 SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0
0x075464…0755f8 Dummy {f00=0x00f3, f01=0x018e, f02=»***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** L * ~ * REFERENCED IN: SEGGEN * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X)
0x0755f8…07578c Dummy {f00=0x00f3, f01=0x0190, f02=» PGETCON EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION B P RF(Z) GCON10 NO MMU ^ ELR A1,A2 z P RF GCON20 PGCON10 EQU * LDR* A1,A2 PGCON20 EQU * RTN A14 RETURN P EJECT PCONMON E
0x07578c…075920 Dummy {f00=0x00f3, f01=0x0190, f02=» * D P**************************************************************** " P CALL B:TCT BUILD TASK TABLES 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES & P CALL B:TT BUILD USER TASK TABLES P IFT CREDIT=1 $ P CALL SEGGEN BUI
0x075920…075ab4 (0, 149) Dummy {f00=0x00f4, f01=0x0190, f02=»MONBLK GENERATE MONITOR BLOCKS 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES & 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES * P CALL B:CDT BUILD COMMON DEVICE TABLES & P CALL B:ITAB BUILD INTERRUPT TABLE P IFT CREDIT=1 P EJECT
0x075ab4…075c48 Dummy {f00=0x00f4, f01=0x0190, f02=»1,'CR' P RF(NE) SLDM70 P* $ : P* STORE OPTION WORD (SCTOPT) IN USER AREA (P:MTAB+34) . P* l " P LD A1,SCTOPT GET OPTION WORD v P ANK A1,1 MMU OPTION? P RF(Z) SLDM50 ( P EL* A1,SCTLAC GET ADDRESS TO P:MTAB " P LD A2,SCTOP
0x075c48…075ddc Dummy {f00=0x00f4, f01=0x0190, f02=»D A2,SCTOPT GET OPTION WORD $ P ST A2,34,A1 STORE IN USER AREA $ PSLDM70 EQU * L P XIF ` P EJECT l F P***************************************************************** z F P* END OF MONITOR SAVE01URATION PART *
0x075ddc…075f70 Dummy {f00=0x00f4, f01=0x40c2, f02=»********* X P LDKL A8,/FFFF * P ST A8,SCTEFA MODIFY END OF FREE AREA ( P LDR A8,A13 GET BASE-ADDRESS V $ P ADKL A8,SYSLDA START OF SYSLODA z P ABR A8 P END @ P* END OF MONITOR SAVE01URATION PART *
0x075f70…076104 Dummy {f00=0x00f4, f01=0x403c, f02=» 0 P******************************************** @ 8 P ABR A8 > P END N@ Z P* END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x076104…076298 Dummy {f00=0x00f4, f01=0x2008, f02=» P X ` h p
0x076298…07642c Dummy {f00=0x00f4, f01=0x0190, f02=»CEIVED P* TIME OUT P* " P* , PDCRD EQU * 6 P LD A8,DWTECB,A6 GET ECB H . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE h " P RF(Z) DCRD10 NOTHING IN QUEUE P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST
0x07642c…0765c0 Dummy {f00=0x00f4, f01=0x0190, f02=» t * P CF A15,DC:MIN MOV DATA TO USER BUFFER P RB DCRTN 6 P H $ PDCRD10 CF A15,TIMERE START TIMER P P RB DCRTN x P EJECT P* P* P* SET STATUS P* P* P IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A
0x0765c0…076754 (0, 150) Opaque[0x194]
0x076754…0768e8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea8, f03=0x0000}
0x076754…0768e8 IdxSect {
0x076754…0768e8 f00 = 0x00f5 // 0x76754 @0x0
0x076754…0768e8 f01 = 0x0054 // 0x76756 @0x2
0x076754…0768e8 gno = [ // 0x76758 @0x4
0x076754…0768e8 [0x00]: C0x00f5.0x1.0
0x076754…0768e8 [0x01]: C0x00f5.0x2.0
0x076754…0768e8 [0x02]: C0x00f5.0x3.0
0x076754…0768e8 [0x03]: C0x00f6.0x0.0
0x076754…0768e8 [0x04]: C0x00f6.0x1.0
0x076754…0768e8 [0x05]: C0x00f6.0x2.0
0x076754…0768e8 [0x06]: C0x00f6.0x3.0
0x076754…0768e8 [0x07]: C0x00f7.0x0.0
0x076754…0768e8 [0x08]: C0x00f7.0x1.0
0x076754…0768e8 [0x09]: C0x00f7.0x2.0
0x076754…0768e8 [0x0a]: C0x00f7.0x3.0
0x076754…0768e8 [0x0b]: C0x00f8.0x0.0
0x076754…0768e8 [0x0c]: C0x00f8.0x1.0
0x076754…0768e8 [0x0d]: C0x00f8.0x2.0
0x076754…0768e8 [0x0e]: C0x00f8.0x3.0
0x076754…0768e8 [0x0f]: C0x00f9.0x0.0
0x076754…0768e8 [0x10]: C0x00f9.0x1.0
0x076754…0768e8 [0x11]: C0x00f9.0x2.0
0x076754…0768e8 [0x12]: C0x00f9.0x3.0
0x076754…0768e8 [0x13]: C0x00fa.0x0.0
0x076754…0768e8 [0x14]: C0x00fa.0x1.0
0x076754…0768e8 [0x15]: C0x00fa.0x2.0
0x076754…0768e8 [0x16]: C0x00fa.0x3.0
0x076754…0768e8 [0x17]: C0x00fb.0x0.0
0x076754…0768e8 [0x18]: C0x00fb.0x1.0
0x076754…0768e8 [0x19]: C0x00fb.0x2.0
0x076754…0768e8 [0x1a]: C0x00fb.0x3.0
0x076754…0768e8 [0x1b]: C0x00fc.0x0.0
0x076754…0768e8 [0x1c]: C0x00fc.0x1.0
0x076754…0768e8 [0x1d]: C0x00fc.0x2.0
0x076754…0768e8 [0x1e]: C0x00fc.0x3.0
0x076754…0768e8 [0x1f]: C0x00fd.0x0.0
0x076754…0768e8 [0x20]: C0x00fd.0x1.0
0x076754…0768e8 [0x21]: C0x00fd.0x2.0
0x076754…0768e8 [0x22]: C0x00fd.0x3.0
0x076754…0768e8 [0x23]: C0x00fe.0x0.0
0x076754…0768e8 [0x24]: C0x00fe.0x1.0
0x076754…0768e8 [0x25]: C0x00fe.0x2.0
0x076754…0768e8 [0x26]: C0x00fe.0x3.0
0x076754…0768e8 [0x27]: C0x00ff.0x0.0
0x076754…0768e8 [0x28]: C0x00ff.0x1.0
0x076754…0768e8 [0x29]: C0x00ff.0x2.0
0x076754…0768e8 ]
0x076754…0768e8 }
0x0768e8…076a7c Dummy {f00=0x00f5, f01=0x0190, f02=» 2 P IDENT SYSLDA REL 9.2 79-12-21 870105040920 P : ( P =5,MOVING AREAS>32K DOES NOT WORK B P REL 9.2 79-12-21 ST n . P =4, FAULTY STACK BASE & CWB/UWB BLOCKS P REL 9.1 79-07-17 , P =3, IMPOSSIBLE TO LOAD NON MMU SYSTEM
0x076a7c…076c10 Dummy {f00=0x00f5, f01=0x0190, f02=»ILIPS TERMINAL SYSTEM PTS P* " > P* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART , P* n P* x P* P* P* P* > P********************************************************** P* P* F P* THIS
0x076c10…076da4 Dummy {f00=0x00f5, f01=0x0190, f02=»* ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND H P* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. J P* P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED
0x076da4…076f38 Dummy {f00=0x00f5, f01=0x0190, f02=»CREDIT APPLICATION: F P* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & f . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW
0x076f38…0770cc Dummy {f00=0x00f5, f01=0x0190, f02=»STACK AND TABLES ARE NOW d H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF l H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P*
0x0770cc…077260 Dummy {f00=0x00f5, f01=0x0190, f02=»'S ARE FILLED. A BRANCH IS FINALLY MADE TO x . P* P F I N I T TO START APPLICATION. 2 P EJECT d P r P*************************** ~ P* * P* ENTRIES AND EXTERNALS * P* *
0x077260…0773f4 (0, 151) Dummy {f00=0x00f5, f01=0x018e, f02=»LDA P ENTRY REL START OF CODE P ENTRY LDALEN PROGRAM LENGTH , P P P* SUBROUTINE ENTRIES X P ENTRY MOVE t P ENTRY ERROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM
0x0773f4…077588 Dummy {f00=0x00f5, f01=0x0190, f02=» ` P P* SAVE AND WORK AREA ENTRIES " P ENTRY MMTAB WORK-TABLE 1 (MMU 4 6 P ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 Z 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' , P ENTRY
0x077588…07771c Dummy {f00=0x00f5, f01=0x0190, f02=»!!! d & P ENTRY SAVE01,SAVE12,SAVE03,SAVE04 & P ENTRY SAVE05,SAVE06,SAVE07,SAVE08 6 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ` & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 . P ENTRY SAVE21,SAVE22,SAVE23,SAVE24,SAVE25
0x07771c…0778b0 Dummy {f00=0x00f5, f01=0x0190, f02=»RESS TO COMMON PART v P EXTRN SCTTCT TC:TAB ADDRESS P EXTRN SCTSTB A15 STACK-BASE @ " P EXTRN SCTEFA END OF FREE AREA d $ P EXTRN SCTNOS NUMBER OF SEGMENTS " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =
0x0778b0…077a44 Dummy {f00=0x00f5, f01=0x0190, f02=»XTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER ADDRESS 6 P Z P* EXTERNAL LABELS b 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART | $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXT
0x077a44…077bd8 Dummy {f00=0x00f5, f01=0x0190, f02=»TCHER ENTRY ~ P P* , P EXTRN TTB:SA START OF SAVE AREA IN TTAB & P EJECT V P d P l , P*************************************** t , P* CONDITIONAL ASSEMBLY * , P*************************************** P
0x077bd8…077d6c Dummy {f00=0x00f5, f01=0x0190, f02=»MMUSWB EQU MMUPAG+SWPBLK P PSWBMMU EQU SWPBLK-MMUPAG ( P EJECT H P V P PROGRAM STRUCTURE: ^ P | F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x077d6c…077f00 Dummy {f00=0x00f5, f01=0x0190, f02=»-------------------------! h F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! " F P* !-----------------------------------------------------! l F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. ! F P*
0x077f00…078094 (0, 152) Dummy {f00=0x00f5, f01=0x0190, f02=»T 2.B J F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! X F P* ! -FILL MM-TABLE IN TTAB ! F P* ! -COPY T:A'S AC
0x078094…078228 Dummy {f00=0x00f5, f01=0x0190, f02=»LLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! : F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !----------------------------------------------
0x078228…0783bc Dummy {f00=0x00f5, f01=0x0190, f02=»O FOLLOW SYSLDA ! l F P* ! ! & F P* ! C O M D A T ! p F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! F P*
0x0783bc…078550 Dummy {f00=0x00f5, f01=0x0190, f02=» N F P* ! ! F P* ! C L A D A T ! R F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* ! AND DWB'S.
0x078550…0786e4 Dummy {f00=0x00f5, f01=0x0190, f02=»D ! z F P* ! -MOVE D.T. & W.B., COPY UWB'S ! 4 F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! ~ F P* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE
0x0786e4…078878 Dummy {f00=0x00f5, f01=0x0190, f02=» ! F P* ! P R O D A T ! F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! ` F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P* ! -ALLOC
0x078878…078a0c Dummy {f00=0x00f5, f01=0x0190, f02=» ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! B F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x078a0c…078ba0 Dummy {f00=0x00f5, f01=0x0190, f02=»ON: ! ASSEMBLER APPLICATION: ! r F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! , F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! v F P* ! ! -QUEUE 1:ST USER TASK ! F
0x078ba0…078d34 (0, 153) Dummy {f00=0x00f6, f01=0x0190, f02=»-----! T F P* ! REAL TASKS' IS BUILT AT ! F P* ! THE END OF MONITOR. ! X F P* ! U:BTAB: ! F P* ! -A TABLE OF 'N
0x078d34…078ec8 Dummy {f00=0x00f6, f01=0x0190, f02=» ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! : F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U:BTAB
0x078ec8…07905c Dummy {f00=0x00f6, f01=0x0190, f02=» ! b F P* ! -CONTINUE IN PART 2.A ! F P* !-----------------------------------------------------! f P EJECT P P ***************** P ***************** P **
0x07905c…0791f0 Dummy {f00=0x00f6, f01=0x0190, f02=» P********** P* P:MTAB * P********** . PT:ATAB EQU 0 @ PU:BTAB EQU 2 T PP:BAS EQU 6 SEGMENT BASE h . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS P P P********** P
0x0791f0…079384 Dummy {f00=0x00f6, f01=0x0190, f02=» 4 PROTOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* V . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB ` * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P E
0x079384…079518 Dummy {f00=0x00f6, f01=0x0190, f02=»*********************** P P* TASK DEFINITION BLOCK: , PTDBBT EQU 0 1A BLOCK TYPE L ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS n , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBM
0x079518…0796ac Dummy {f00=0x00f6, f01=0x0190, f02=» $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION , ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH N P* z * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC
0x0796ac…079840 Dummy {f00=0x00f6, f01=0x018e, f02=»PE DEF. BLOCK | PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 8 P* h ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD r PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-
0x079840…0799d4 (0, 154) Dummy {f00=0x00f6, f01=0x0190, f02=» 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) $ PCSB EQU -12 CURRENT SEGMENT BASE > 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH f 2 P OF ALL DSCB-RECORDS PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRE
0x0799d4…079b68 Dummy {f00=0x00f6, f01=0x0190, f02=»D | PPA EQU 0 STACK POINTER PSTKB EQU 2 STACK BASE ( " PWATFST EQU 4 FIRST WAT-ELEMENT F P* l P* DSCB-RECORD: v PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDRESS PRL EQU 4 REQ. LENGTH PEL EQU 6 EFF. LENGTH " PBL
0x079b68…079cfc Dummy {f00=0x00f6, f01=0x0190, f02=»0 DISPLACEMENT TO FCB IN T:A , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) $ , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) T & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) * PSWBMSK EQU 10 MASK FOR SWB'S -"-
0x079cfc…079e90 Dummy {f00=0x00f6, f01=0x018e, f02=» l P ! . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! P ! B P ! J P**************** ! R P* SOP-HANDLING * ! j P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P ! P LAMP CODE MEANING ! P --------- ------- ! PLMP1 EQU
0x079e90…07a024 Dummy {f00=0x00f6, f01=0x0190, f02=» PLMP5 EQU /40 TID ERROR " " PLMP6 EQU /20 UWB OR SWB ERROR " " " PLMP7 EQU /10 MM-TABLE OVERFLOW " H PLMP8 EQU 8 " n PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT " P********************* " P* OTHER CONSTANTS * " P****
0x07a024…07a1b8 Dummy {f00=0x00f6, f01=0x0190, f02=»QU 4 DISP TO LENGTH OF SWB " P # " $ PFCBDD1 EQU 8 DISP TO FIRST DSET # . $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # V P # ~ $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID EQU 2 CREDIT IDENTIFICATION # ( PSEGREC EQU 6 RECORD LENGTH IN S:
0x07a1b8…07a34c Dummy {f00=0x00f6, f01=0x0190, f02=»D-ADDRESS IN TTAB # x * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ P $ H ( PNTPA EQU 4 INTERPRETER START ADDRESS $ P & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ | $ PRTCDA EQU /1B RTC DEVICE ADDRESS $ P $ F P**********************************************
0x07a34c…07a4e0 Dummy {f00=0x00f6, f01=0x0190, f02=» [REL-ADDRESS] * $ n F P* * % ( F P***************************************************************** % r P % P % P % PCALL FORM 16=/F697,16 % P EJECT %
0x07a4e0…07a674 (0, 155) Dummy {f00=0x00f6, f01=0x0190, f02=» ** % 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & 6 6 P** ** & p 6 P************************************************** & 6 P************************************
0x07a674…07a808 Dummy {f00=0x00f6, f01=0x0190, f02=» & P* ADJUST FOR PSW-ROUTINE * ' P************************** ' * 6 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSWSW-ADDRESS' ' L P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE ' P* LOAD STACKBASE * ' P****************
0x07a808…07a99c Dummy {f00=0x00f6, f01=0x0190, f02=»*** ' P* ( P RES 12 ( PSTACKB EQU *-REL-2 ( & P EJECT ( @ P ( N P ( Z P* ADDRESS TO PSW-ROUTINE * ( f P************************** ( P* ( PPSW EQU *-REL ( P DATA GETPSW ( P ( D P******************************
0x07a99c…07ab30 Dummy {f00=0x00f6, f01=0x0190, f02=» PUT PSW IN STACK FOR CALLING SUBROUTINE * ( z D P**************************************************************** ) 2 P ) z PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ) . P ST A2,6,A14 R
0x07ab30…07acc4 Dummy {f00=0x00f6, f01=0x0190, f02=»*** ) r & P* * * & P* SUBROUTINE-HANDLER * * 6 & P* * * ` & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14
0x07acc4…07ae58 Dummy {f00=0x00f6, f01=0x0190, f02=»N * f P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + , P ABR* A14 + P P + b P + j P + r < P******************************************************* + z < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P**************
0x07ae58…07afec Dummy {f00=0x00f6, f01=0x0190, f02=»******** + t ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , < ( P** ** , h ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , *
0x07afec…07b180 Dummy {f00=0x00f6, f01=0x0190, f02=»-REL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - 0 P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - l P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF B
0x07b180…07b314 (0, 156) Dummy {f00=0x00f6, f01=0x0190, f02=»TADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART - P DATA 0 . < @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . L P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS . P DATA 0 . * PNEWAD2 EQU *-REL SAVE FORD.T. ADDRESS .
0x07b314…07b4a8 Dummy {f00=0x00f6, f01=0x0190, f02=»ATA 0 . " PUWB EQU *-REL U.W.B. INDICATOR / P DATA 0 / 4 $ PSAVE01 EQU *-REL TEMPORARY SAVE / D P DATA 0 / l PSAVE02 EQU *-REL / | P DATA 0 / PSAVE03 EQU *-REL / P DATA 0 / PSAVE04 EQU *-REL / P DATA 0 / PSAVE05 EQU *-REL /
0x07b4a8…07b63c Dummy {f00=0x00f6, f01=0x0190, f02=» PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 ( PSAVE10 EQU *-REL 0 8 P DATA 0 0 P PSAVE11 EQU *-REL 0 ` P DATA 0 0 x PSAVE12 EQU *-REL 0 P DATA 0 0 PSAVE13 EQU *-REL 0 P DATA 0 0 PSAVE22 EQU *-REL 0 P DATA 0 0 PSAVE25 E
0x07b63c…07b7d0 Dummy {f00=0x00f6, f01=0x0190, f02=» DATA 0 0 & PBIT EQU *-REL SAVE FOR SUPER-LOOP 1 P DATA 0 1 : 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 1 J P DATA 0 1 * PDATEND EQU *-REL END OF DDIV PROTOTYPE 1 P DATA 0 1 ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 1 P DATA 0
0x07b7d0…07b964 Dummy {f00=0x00f6, f01=0x0190, f02=» & PBUFSIZ EQU *-REL TEMP. BUFFER SIZE 2 P DATA 0 2 . " PMMTO EQU *-REL MMTABLE ADDRESS 2 > P DATA 0 2 d * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 2 t P DATA 0 2 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 2 P DATA 0 2 PFSTPAG EQU *-REL 2
0x07b964…07baf8 Dummy {f00=0x00f6, f01=0x0190, f02=»ATA LDAEND-REL 2 PXMSAV EQU *-REL 3 P DATA 0,0 3 . P 3 @ P 3 H P 3 P P 3 X & P********************************* 3 ` & P* EQUATES FOR SYSLDM SAVE-WORDS * 3 & P********************************* 3 P 3 PSAVE14 EQU U:BTOD 3 PSAVE15 E
0x07baf8…07bc8c Dummy {f00=0x00f6, f01=0x0190, f02=»ED 3 PSAVE21 EQU NEWAD1 4 PSAVE23 EQU SWITCH 4 $ PSAVE24 EQU FLAG 4 > P EJECT 4 V P 4 d P* MMU TABLES * 4 l P 4 P 4 . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 4 P IFT MMUPAG=1 4 P RES 16 4 P XIF 4 P 4 $ PMMTAB EQU
0x07bc8c…07be20 Dummy {f00=0x00f6, f01=0x0190, f02=» 4 PMMEND EQU * 5 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 5 P 5 T PMMBEG EQU TABBE-* 5 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 5 v P EJECT 5 P 5 6 P*** *** 5 6 P*** S
0x07be20…07bfb4 (0, 157) Dummy {f00=0x00f7, f01=0x0190, f02=» *** 5 r 6 P************************************************* 6 6 P************************************************* 6 V P 6 P 6 , P** E R R O R ** 6 , P** ** 6 , P
0x07bfb4…07c148 Dummy {f00=0x00f7, f01=0x0190, f02=» 6 h , P** INPUT :A1=SOP-MESSAGE ** 7 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 7 8 , P** (REG-CONTENTS IS SAVED) ** 7 h , P**************************************** 7 P 7 PERROR EQU * 7 P ST A2,SAVE01,A13 SAVE A2 7 . P L
0x07c148…07c2dc Dummy {f00=0x00f7, f01=0x0190, f02=»NG PURPOS) 7 | P EJECT 8 P 8 & P** M O V E ** 8 ( & P** ** 8 R & P** ** 8 | & P** MOVE BLOCKS INSIDE MEMORY ** 8 & P** ** 8 & P** INPUT:A1=F
0x07c2dc…07c470 Dummy {f00=0x00f7, f01=0x0190, f02=» ** 8 x & P** WORK-REG: A4 ** 9 & P********************************* 9 < P 9 f PMOVE EQU * 9 r $ PMOVES ADR A1,A3 END OF FROM AREA 9 P ADR A2,A3 END OF TO-AREA 9 & P LD A4,SCTEFA GET END OF FREE AREA 9 P TNM A2,A4 EQUAL
0x07c470…07c604 Dummy {f00=0x00f7, f01=0x0190, f02=» SIGN 9 n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA : P LDKL A1,LMP3 : J ( P CALL ERROR INDICATE MEMORY OVERFLOW : ` PMOVE10 SUK A3,1 DEC LENGTH : P RF(N) MOVE20 ALL DONE : P SUK A1,1 : P SUK A2,1 : P LCR A4,A1 GET CHARACTER
0x07c604…07c798 Dummy {f00=0x00f7, f01=0x0190, f02=» : 4 P** M O V I N G ** ; 4 P** ** ; D 4 P** ** ; | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** ; 4 P** ASSUMED TO BE DATA-PART
0x07c798…07c92c Dummy {f00=0x00f7, f01=0x0190, f02=» 4 P** ** < 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** < < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** < t 4 P** WORK-REG: A4 ** < 4 P************************************
0x07c92c…07cac0 Dummy {f00=0x00f7, f01=0x0190, f02=»FE MAKE EVEN ADDRESS < P ST A11,SAVE01,A13 SAVE A11 = P ST A9,SAVE12,A13 SAVE A9 = @ P LDR A11,A2 = b * P LD A9,DATEND,A13 END OF PROTOTYP AREA = v " P CALL CMPADR COMPARE ADDRESSES = P RF(NL) MOV020 = ( PMOV010 LDKL A1,LMP3 MEMORY OVERFLOW =
0x07cac0…07cc54 (0, 158) Dummy {f00=0x00f7, f01=0x0190, f02=»A13 NEW ADDRESS = ( P LD A9,SAVE12,A13 RESTORE REGISTERS > P LD A11,SAVE01,A13 > D P RB MOVES > ^ P XIF > p P IFT CREDIT+MMUPAG=2 > | P EJECT > > 4 P** X M O V E ** > 4 P**
0x07cc54…07cde8 Dummy {f00=0x00f7, f01=0x0190, f02=» TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** > 4 P** -MOVE TO USER AREA ** ? 6 4 P** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** ? n 4 P** BIG ENOUGH THE MOVE IS REPEATED ** ? 4 P**
0x07cde8…07cf7c Dummy {f00=0x00f7, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** ? 4 P** WORK.REGS:A4,A10 ** @ . 4 P************************************************ @ f P @ PXMOVE EQU * @ P ST A1,SAVE09,A13 @ P ST A1,SAVE07,A13 @ P ST A2,SAVE10,A13 @ P
0x07cf7c…07d110 Dummy {f00=0x00f7, f01=0x018e, f02=» PXMOV05 EQU * A LDR A10,A3 SAVE LENGTH A , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER A 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE A h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE A P CALL CMPADR COMPARE A " RF(G) SPLIT NO! SEVERAL MOVE A
0x07d110…07d2a4 Dummy {f00=0x00f7, f01=0x0190, f02=» $ P TL* MMFROM,A13 LOAD FROM-TABLE B , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER B , 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS B P LD A1,SYSBUF,A13 B 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS B LDR A3,A10 GET LENGTH B P TL* MMTO,A1
0x07d2a4…07d438 Dummy {f00=0x00f7, f01=0x0190, f02=» A2,A10 B 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS C * P LD A3,SAVE11,A13 GET REQUESTED LENGTH C D $ SUR A3,A10 SUBTRACT MOVED PART C r P ST A3,SAVE11,A13 SAVE C P CWR A3,A10 C P RB(NL) XMOV10 C P LDR A10,A3 LAST LENGTH C P RB XM
0x07d438…07d5cc Dummy {f00=0x00f7, f01=0x0190, f02=»ND DIVIDE C 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) D & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH D H P RB XMOV10 D r D 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' D , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' D P LD A9,XMSAV,A13 RESTORE
0x07d5cc…07d760 Dummy {f00=0x00f7, f01=0x018e, f02=»* D b 4 P** ** E 4 P** ** E B 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** E z 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** E 4 P** IS ALWAYS ASSUMED TO BE DA
0x07d760…07d8f4 (0, 159) Dummy {f00=0x00f7, f01=0x0190, f02=» 4 P** IS UPDATED AND CHECKED. ** F 4 P** ** F < 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** F t 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** F 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS
0x07d8f4…07da88 Dummy {f00=0x00f7, f01=0x0190, f02=» PMOVING EQU * G P ST A11,SAVE01,A13 SAVE A11 G P ST A9,SAVE12,A13 SAVE A9 G < . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE G ^ & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS G 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB G " LDR* A9,A2 GET PAGE IN
0x07da88…07dc1c Dummy {f00=0x00f7, f01=0x0190, f02=»TTAB' G t $ P CALL SETTAB NEW PAGE IN TABLE! H 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS H 6 ANKL A11,/FFF H p * P LDR A9,A3 GET LENGTH OF AREA TO MOVE H 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? H P RF(NL) MOV020 YES H 0 P SUR A
0x07dc1c…07ddb0 Dummy {f00=0x00f7, f01=0x0190, f02=» PHYSICAL PAGE INCREMENT H P RB MOV015 I 6 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE I 2 PMOV025 RF(NN) MOV050 I l * PMOV030 CALL SETTAB NEW PAGE IN TABLE! I & ! ADKL A11,4096 NEW PAGE INCREMENT I ( P RB(N) MOV030 NOT ENOUGH. NEW PAGE! I
0x07ddb0…07df44 Dummy {f00=0x00f7, f01=0x0190, f02=»A2=CURRENT ENTRY IN MM-TABLE I J $ PMOV050 EQU * J , , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB J @ 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER J p 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. J & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS J & P S
0x07df44…07e0d8 Dummy {f00=0x00f7, f01=0x0190, f02=»2,A11 GET DISPLACEM. WITHIN PAGE J P ANKL A2,/FFFE EVEN ADDRESS K ( , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS K L P* CHECK ADDRESSES * K | P K * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE K P ST A11,SAVE07,A13 SAVE A11 K P LD A11,FYSPAG,A13 K
0x07e0d8…07e26c Dummy {f00=0x00f7, f01=0x0190, f02=»,FSTADR,A13 K P CALL CMPADR L P RF(NL) MOV090 OK! L ( PMOV070 LDKL A1,LMP3 L B P CALL ERROR L ^ PMOV090 EQU * L r P CALL XMOVE MOVE L P LD A9,SAVE12,A13 L ( P LD A11,SAVE01,A13 RESTORE REGISTERS L $ P TL* MMFROM,A13 RESTORE MM-TABLE L
0x07e26c…07e400 Dummy {f00=0x00f7, f01=0x0190, f02=» ** L l 6 P** ** M 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** M P 6 P** OVERFLOW. ** M 6 P** ** M 6 P** INPUT
0x07e400…07e594 (0, 160) Dummy {f00=0x00f7, f01=0x0190, f02=» ** M r 6 P** WORK.REG: A9 ** N 6 P************************************************* N V P N PSETTAB EQU * N SUKL A4,/400 GET NEXT PAGE N SUK A2,2 GET NEXT ENTRY N P N " P* CHECK IF MM-TA
0x07e594…07e728 Dummy {f00=0x00f7, f01=0x0190, f02=»F(NN) SETT00 N P CWR A9,A2 O P RF SETT05 O & PSETT00 CWR A2,A9 OVERFLOW? O 8 PSETT05 RF(NL) SETT10 NO O Z P LDK A1,LMP7 O z P CALL ERROR O PSETT10 EQU * O STR A4,A2 STORE IN TABLE O RTN A14 O P XIF O P IFF CREDIT=0 O
0x07e728…07e8bc Dummy {f00=0x00f7, f01=0x0190, f02=» 4 P** ** P 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** P < 4 P** MENT IN T:A ** P t 4 P** ** P 4 P** INPUT : A8= POINTER TO T:A-ADD I
0x07e8bc…07ea50 Dummy {f00=0x00f7, f01=0x0190, f02=» TADISP=A4 ** P 4 P** A11=W.B.-ADDRESS ** Q 4 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** Q l 4 P*********************************************** Q P Q PGETWB EQU * Q " P LD A4,BIT,A
0x07ea50…07ebe4 Dummy {f00=0x00f7, f01=0x0190, f02=»FT CREDIT-MMUPAG=1 Q P LDR* A11,A8 GET T:A-ADDRESS R P ADR A11,A4 ADD DISPLACEMENT R > P ST A11,WBADD,A13 SAVE R b " P LDR* A11,A11 GET W.B.-ADDRESS R P XIF R P IFT CREDIT+MMUPAG=2 R 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? R P RF(Z)
0x07ebe4…07ed78 Dummy {f00=0x00f7, f01=0x0190, f02=»T A11,WBADD,A13 SAVE R " P ELR A11,A11 GET W.B.-ADDRESS S & P TL* MMFROM,A13 RELOAD FROM-TABLE S B P XIF S l P IFF CREDIT=0 S x P RTN A14 S P EJECT S P S P S 8 P** M O V W B ** S 8 P**
0x07ed78…07ef0c Dummy {f00=0x00f7, f01=0x0190, f02=».-ADDRESS IS UPDATED ** S x 8 P** ** T $ 8 P** INPUT: A11=W.B.-ADDRESS ** T ` 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** T 8 P** WORK-REGS: A1-A4
0x07ef0c…07f0a0 Dummy {f00=0x00f7, f01=0x0190, f02=» ADKL A1,WBLEN FROM-ADDRESS T P IFT CREDIT-MMUPAG=1 U $ P LDR* A3,A1 LENGTH U @ P CALL MOVING U Z 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT U n 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE U P XIF U P IFT CREDIT+MMUPAG=2 U P
0x07f0a0…07f234 (0, 161) Dummy {f00=0x00f8, f01=0x0190, f02=»ROCESSING? U p P RF(Z) MOVW10 NO! V P TL* MMTO,A13 LOAD TO-TABLE V , : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P & P TL* MMFROM,A13 RELOAD FROM-TABLE V P XIF V P IFF CREDIT=0 V P RTN A14 V P EJECT V P V P
0x07f234…07f3c8 Dummy {f00=0x00f8, f01=0x0190, f02=» ** V : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** W : : P** ** W x : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** W : P** OUTPUT: A3=POINT
0x07f3c8…07f55c Dummy {f00=0x00f8, f01=0x0190, f02=»********************* W p P X PMOVDT EQU * X * 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT X > & P SUK A1,2 POINTER TO D.T.-ADDRESS X x P IFT CREDIT-MMUPAG=1 X P LDR* A1,A1 D.T.-ADDRESS X * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD X
0x07f55c…07f6f0 Dummy {f00=0x00f8, f01=0x018e, f02=»A1,DTLEN X 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Y P XIF Y H P IFT CREDIT+MMUPAG=2 Y T P ELR A1,A1 D.T.-ADDRESS Y p * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Y P AD A1,MOVADD,A13 RELOCATE Y P ELR A3,A1 LENGTH Y P CALL MOVING Y
0x07f6f0…07f884 Dummy {f00=0x00f8, f01=0x0190, f02=» Y P IFF CREDIT=0 Z P RTN A14 Z P EJECT Z . P Z < < P** M O V D W B ** Z H < P** ** Z < P** ** Z < P
0x07f884…07fa18 Dummy {f00=0x00f8, f01=0x0190, f02=» ** Z < P** INPUT : A12=T:D-ADDRESS ** [ 8 < P** A8= POINTER TO T:A-ADDRESS ** [ x < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** [ < P** WORK.REGS: A
0x07fa18…07fbac Dummy {f00=0x00f8, f01=0x0190, f02=» [ P ST A6,SAVE05,A13 SAVE A5 P LDK A6,0 * ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER < " P ADK A4,1 FIRST WAT-ELEMENT =1 h P IFT CREDIT-MMUPAG=1 P LD A2,WATLEN,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A2,WATLEN,A12 P X
0x07fbac…07fd40 Dummy {f00=0x00f8, f01=0x018e, f02=» r P SUK A2,1 ALL? ] P RF(N) MOVD60 YES! ] P IFT CREDIT-MMUPAG=1 ] 8 " P CC A4,DWBFST,A6 SHARED W.B.? ] T P XIF ] z P IFT CREDIT+MMUPAG=2 ] * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ] " P SRC A6,1 RIGHT OR LEFT BYTE? ] P RF(N) MOVD30 RIGH
0x07fd40…07fed4 (0, 162) Dummy {f00=0x00f8, f01=0x0190, f02=» P CWR A4,A10 SHARED W.B.? ^ P XIF ^ $ P IFF CREDIT=0 ^ 0 P RB(NE) MOVD20 NO! ^ F P* DWB FOUND * ^ ` , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A ^ v P IFT CREDIT-MMUPAG=1 ^ P AD A4,WATLEN,A12 ^ P XIF ^ P IFT CREDIT+MMUPAG=2 ^ P EL
0x07fed4…080068 Dummy {f00=0x00f8, f01=0x0190, f02=»4,2 ^ P ADK A4,WATFST+2 _ * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS _ $ P IFT CREDIT-MMUPAG=1 _ R 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A _ n " P STR A3,A4 CHANGE W.B.-ADDRESS _ P XIF _ P IFT CREDIT+MMUPAG=2 _ . P LD A2,FLAG,A13 REAL D
0x080068…0801fc Dummy {f00=0x00f8, f01=0x018e, f02=»W.B.-ADDR IN T:A _ v P ADR A4,A10 ` " P ESR A3,A4 CHANGE W.B.-ADDRESS ` , & P TL* MMFROM,A13 RELOAD FROM-TABLE ` R P XIF ` | P IFF CREDIT=0 ` P ST A4,WBADD,A13 ` . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? ` P RB(NZ) MOVD10 YES! ` P CAL
0x0801fc…080390 Dummy {f00=0x00f8, f01=0x0190, f02=» P a 4 P** T W B S W B ** a 4 P** ** a D 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** a | 4 P** ** a 4 P** INPUT : A8=ACTUAL T:A-AD
0x080390…080524 Dummy {f00=0x00f8, f01=0x0190, f02=» 4 P************************************************ b P b < PTWBSWB EQU * b D P ST A7,SAVE04,A13 SAVE A7 b X " P LD A7,TWBMSK,A12 GET TWB MASK b z P IFT CREDIT+MMUPAG=2 b " P EL A7,TWBMSK,A12 GET TWB MASK b P XIF b P IFF CREDIT=0 b P CAL
0x080524…0806b8 Dummy {f00=0x00f8, f01=0x0190, f02=» & P CALL MOVDWB CHANGE DWB-ADDRESSES c P CALL SKIFTA c . P RB TWSW10 c B PTWSW20 EQU * c T P IFT CREDIT+SWPBLK=2 c h P EJECT c P c P c P* RESERVE SPACE FOR SWB'S * c P*************************** c P XIF c P IFT CREDI
0x0806b8…08084c Dummy {f00=0x00f8, f01=0x0190, f02=»PBLK=2 c P CALL SHIFT d PTWSW30 RF(Z) TARZAN ALL DONE d " P CALL GETWB d F P CALL MOVWB RESERVE SPACE d Z ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS d | & P CALL MOVDWB CHANGE DWB- ADDRESSES d P CALL SKIFTA d P RB TWSW30 d PTARZAN EQU * d
0x08084c…0809e0 Dummy {f00=0x00f8, f01=0x0190, f02=» A L L B U F ** d 4 P** ** e ( 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** e ` 4 P** TERMINAL STACK ** e 4 P** ** e 4 P
0x0809e0…080b74 (0, 163) Dummy {f00=0x00f8, f01=0x0190, f02=»=LENGTH OF DSCB'S ** e x 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** f 4 P** CSE (IN T:A)=STACKSIZE ** f X 4 P** WORK-REGS. :A1-A4,A9,A11 ** f 4 P************************************************ f P f P
0x080b74…080d08 Dummy {f00=0x00f8, f01=0x0190, f02=»D A3,CSN,A1 GET DSCB TOTAL LENGTH f P RF(Z) ALLB70 NO DSCB'S g * . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS g J " P LDR A10,A1 SAVE START ADDRESS g | P XIF g P IFT CREDIT+MMUPAG=2 g P ELR A1,A8 GET T:A-ADDRESS g ( P EL A3,CSN,A1 GET DSCB TOTAL
0x080d08…080e9c Dummy {f00=0x00f8, f01=0x0190, f02=»IF g P IFF CREDIT=0 h P SUR A3,A1 h P NGR A3,A3 h 2 P SUK A3,DSCBL END CONDITION h D : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS h h : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD h P CW A1,SAVE04,A13 ALL? h P RF(E)
0x080e9c…081030 Dummy {f00=0x00f8, f01=0x0190, f02=» NO! h P ST A9,BA,A1 BUFFER START i P LD A3,RL,A1 BUFFER LENGTH i . P ST A3,BL,A1 i P P LD A2,EL,A1 SHARED BUFFER? i d P RF(Z) NOTSH NO! i & P LDR A4,A1 RESTORE START OF DSCB'S i P XIF i P IFT CREDIT+MMUPAG=2 i $ P ELR A3,A1 GET FIRST W
0x081030…0811c4 Dummy {f00=0x00f8, f01=0x0190, f02=»,EL,A1 SHARED BUFFER? i P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j 6 P XIF j ` P IFF CREDIT=0 j l P ADK A4,DSCBL FIRST WORD j PALLB20 SUK A2,1 A2=INDEX j P RF(NN) ALLB30 j P LDK A1,LMP4 FORMAT ERROR j P CALL ERROR j
0x0811c4…081358 Dummy {f00=0x00f8, f01=0x018e, f02=») ALLB20 j " P LDK A1,LMP4 BUFFER NOT FOUND k P CALL ERROR k 6 P IFT CREDIT-MMUPAG=1 k J ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? k f P RF(NZ) ALLB50 YES! k P LDK A1,LMP4 FORMAT ERROR k P CALL ERROR k PALLB50 EQU * k * P ST A4,BA,A1 AND
0x081358…0814ec Dummy {f00=0x00f8, f01=0x0190, f02=» k z P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l * PALLB50 EQU * l > * P ES A4,BA,A1 AND ESORE IN CURRENT ECB l R P XIF l P IFF CREDIT=0 l P RB ALLB10 l P l P IFT CREDIT-MMUPAG=1 l PNOTSH LDR A9,A9 PAGING? l P RF(NZ) NOTS10 N
0x0814ec…081680 Dummy {f00=0x00f8, f01=0x0190, f02=»LLOCATE BUFFER FROM TOP l ~ P ADKL A9,1 m P ANKL A9,/FFFE EVEN ADDRESS m 2 P* CHECK ADDRESS: m V P m n " P LD A11,LSTADR,A13 DATA START m z P CALL CMPADR m P RF(NL) ALLB60 OK! m P LDKL A1,LMP3 m P CALL ERROR m PALLB60 EQU * m
0x081680…081814 (0, 164) Dummy {f00=0x00f8, f01=0x018e, f02=»TTOM' m f & P ES A2,BA,A1 STORE BUFFER ADDRESS n P XIF n 8 P IFF CREDIT=0 n D P RB ALLB10 n Z P n l , P* RESERVE STACK AND SET STACKPOINTERS * n x P n PALLB70 EQU * n P IFT CREDIT-MMUPAG=1 n P LDR* A1,A8 GET T:A-ADDRESS n P LD
0x081814…0819a8 Dummy {f00=0x00f8, f01=0x0190, f02=» PALLB80 EQU * o P ST A4,STKB,A1 SET STACKBASE o P STR A4,A1 STACK POINTER o < P CALL MOVING ALLOCATE STACK o P ST A2,STKE,A1 SET STACK-END o P XIF o P IFT CREDIT+MMUPAG=2 o P ELR A1,A8 GET T:A-ADDRESS o P EL A3,CSE,A1 GET STACK SI
0x0819a8…081b3c Dummy {f00=0x00f8, f01=0x0190, f02=» P CALL MOVING ALLOCATE STACK p " P ES A2,STKE,A1 STORE STACK END p ( " P EL A3,STKB,A1 GET STACK SIZE p N " P ADR A2,A3 COMPUTE STACK BASE p t $ P ES A2,STKB,A1 STORE STACK BASE p * P ESR A2,A1 STORE CURRENT STACK POINTER p P XIF p P IFF CREDIT=
0x081b3c…081cd0 Dummy {f00=0x00f8, f01=0x0190, f02=» ** p p 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** q 4 P** FORMAT CONTROL BLOCK ** q P 4 P** ** q 4 P** INPUT : A8=T:A-ADDRESS ** q 4 P** A12=
0x081cd0…081e64 Dummy {f00=0x00f8, f01=0x018e, f02=» ** q h 4 P** WORKREGS: A1-A4 ** r 4 P************************************************ r H P r PMOVT:A EQU * r P IFT CREDIT-MMUPAG=1 r P LDR* A1,A8 GET T:A-ADDRESS r ( P LD A3,WATLEN,A12 GET LENGTH OF WAT r P
0x081e64…081ff8 Dummy {f00=0x00f8, f01=0x018e, f02=» P CALL MOVING s P LDR* A4,A8 s " P SU A2,CIA,A4 NEW T:A-ADDRESS s , $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS s R P s z 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * s P s P LD A3,FCD,A12 ANY FCD? s P RF(Z) MOVT10 NO! s P ADR A3,
0x081ff8…08218c Dummy {f00=0x00f8, f01=0x0190, f02=» : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) t PMOVT05 EQU * t B P ADS A4,FCBDD1,A3 t V P ADS A4,FCBDD2,A3 t p PMOVT10 RTN A14 t P XIF t P IFT CREDIT+MMUPAG=2 t P t P ELR A1,A8 GET T:A-ADDRESS t ( P EL A3,WATLEN,A12 GET
0x08218c…082320 Dummy {f00=0x00f8, f01=0x0190, f02=» P ADR A1,A10 FROM-ADDRESS u P CALL MOVING u $ P ELR A4,A8 u 8 P EL A10,CIA,A4 u J P SUR A2,A10 NEW T:A-ADDRESS u ` " P SUR A1,A10 'OLD' T:A-ADDRESS u 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * u P u P EL A3,FCD,A12 ANY FCD? u
0x082320…0824b4 (0, 165) Dummy {f00=0x00f9, f01=0x0190, f02=» u ~ 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) v PMOVT05 EQU * v D P ADR A3,A2 START OF FCB v X P TL* MMTO,13 LOAD TO-TABLE v x P EL A10,FCBDD1,A3 v P ADR A10,A4 v P ES A10,FCBDD1,A3 v P EL A10,FCBDD2,A3 v P ADR A10,A4
0x0824b4…082648 Dummy {f00=0x00f9, f01=0x0190, f02=» P w 6 P** C M P A D R ** w 6 P** ** w F 6 P** ** w 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** w 6 P**
0x082648…0827dc Dummy {f00=0x00f9, f01=0x0190, f02=» ** w h 6 P** OUTPUT: RESULT IN A14-STACK ** x 6 P************************************************** x L P x PCMPADR EQU * x P TNM A11,A9 x P RF(NN) CMPA10 x P CWR A9,A11 x P RF CMPA20 x PCMPA10 CWR A11,A9
0x0827dc…082970 Dummy {f00=0x00f9, f01=0x018e, f02=»************************************* x v D P* * y . D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * y v D P* ===================================== * y D P*
0x082970…082b04 Dummy {f00=0x00f9, f01=0x0190, f02=» y N D P* * z D P* ENTRY: A8 - FIRST T:A POINTER * z P D P* A6 - SECOND T:A POINTER * z D P* BIT - BIT NUMBER SET IN CWB- O
0x082b04…082c98 Dummy {f00=0x00f9, f01=0x0190, f02=»URRENT STATCK POINTER * z p D P* IN T:A IS SET * { ( D P* * { p D P* WORK REGISTERS: A1,A2 * { D P*
0x082c98…082e2c Dummy {f00=0x00f9, f01=0x018e, f02=»* * { D P*************************************************************** | H P EJECT | PICBMVD EQU * | P LDKL A1,/8000 SET BIT 0 | 6 P LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK |
0x082e2c…082fc0 Dummy {f00=0x00f9, f01=0x0190, f02=» | P* } & P* UPDATE MOVED MASK IN FIRST T:A } P* } < P XIF } F P IFT CREDIT-MMUPAG=1 } R & PIBAM20 LDR* A2,A8 GET T:A POINTER } n $ P LDR* A3,A2 GET MOVED BLOCK MASK } , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED } * P STR A3,A2 STORE NEW MOV
0x082fc0…083154 (0, 166) Dummy {f00=0x00f9, f01=0x0190, f02=»MOVED BLOCK MASK } , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED ~ * P STR A3,A2 STORE NEW MOVED BLOCK MASK ~ H P XIF ~ v P IFT CREDIT+MMUPAG=2 ~ $ PIBAM20 ELR A2,A8 GET T:A POINTER ~ $ P ELR A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURREN
0x083154…0832e8 Dummy {f00=0x00f9, f01=0x0190, f02=»2,A6 GET T:A POINTER ~ $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED D * P ESR A3,A2 STORE NEW MOVED BLOCK MASK t P XIF P IFF CREDIT=0 P RTN A14 P EJECT J P**************************************
0x0832e8…08347c Dummy {f00=0x00f9, f01=0x0190, f02=»KMVD - CHECK IF BLOCK ALREADY MOVED * ~ J P* ===================================== * < J P* * J P* REFERENCED IN: MOVCOM,MOVCLA
0x08347c…083610 Dummy {f00=0x00f9, f01=0x0190, f02=»:A * t J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * 2 J P* * J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2
0x083610…0837a4 Dummy {f00=0x00f9, f01=0x0190, f02=» * j J P* * ( J P* SUBROUTINES: * v J P*
0x0837a4…083938 Dummy {f00=0x00f9, f01=0x0190, f02=»UPAG=1 P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK 2 P XIF Z P IFT CREDIT+MMUPAG=2 f P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P IFF CREDIT=0 2 P LD A2,BIT,A13 GET BIT SET
0x083938…083acc Dummy {f00=0x00f9, f01=0x0190, f02=» A2,1 DECREMENT BIT COUNTER P RB CHKM10 $ PCHKM20 ADK A1,0 SET CR 6 * P CFI A14,PSW,A13 PUT CONDITION IN PSW T P RTN A14 P EJECT P P : P***** S * U * P * E * R * L * O * O * P **** : P**
0x083acc…083c60 Dummy {f00=0x00f9, f01=0x0190, f02=» ** r : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** : P** INPUT : A7=MASK WORD ** ^ : P** OUTPUT: BIT=BIT NUMBER ** : P** CONDITION CODE IN PSW ON RETURN
0x083c60…083df4 (0, 167) Dummy {f00=0x00f9, f01=0x0190, f02=»TER v P LDR A7,A7 P RF SHIF20 & PSKIFTA EQU * ENTRY: CONTINUE SHIFT 0 PSHIF10 IM BIT,A13 Z P SLL A7,1 t PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 * PSHIF30 CFI A14,PSW,A13 PUT COND IN PSW P R
0x083df4…083f88 Dummy {f00=0x00f9, f01=0x0190, f02=» ** 4 P** ** ( 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** ` 4 P** ** 4 P** INPUT : A3,A2 ** 4 P
0x083f88…08411c Dummy {f00=0x00f9, f01=0x0190, f02=»,MUL,A13 " P STR A2,A14 SAVE A2 TEMPORARY P LDK A3,0 6 PADD AD A3,MUL,A13 H P SUK A2,1 b P RB(NZ) ADD t P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT P 4 P** M M E N T
0x08411c…0842b0 Dummy {f00=0x00f9, f01=0x0190, f02=» LAST USED ENTRY IN MM-TAB. SCAN ** 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** 0 4 P** ** h 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4 P** OUTPUT:A3=ENTRY ADDRESS **
0x0842b0…084444 Dummy {f00=0x00f9, f01=0x0190, f02=»NTENTS OF 1:ST USED ENTRY ** 4 P*********************************************** ( P ` PMMENT EQU * h P LDR A9,A3 GET TABLE ADDRESS | 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) P SUK A3,2 & PMMEN10 ADK A3,2 INCREMENT AD
0x084444…0845d8 Dummy {f00=0x00f9, f01=0x0190, f02=»G,A9 SAVE FIRST FREE PAGE-ADDRESS P RTN A14 * P XIF : P IFF CREDIT=0 F P EJECT P j 2 P** G E T T A B ** r 2 P** ** 2 P**
0x0845d8…08476c Dummy {f00=0x00f9, f01=0x0190, f02=»INTER TO T:A IN T:ATAB ** 2 P** OUTPUT:A2=TTAB-ADDRESS ** & 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P********************************************** P PGE
0x08476c…084900 Dummy {f00=0x00f9, f01=0x0190, f02=»DAD,A10 T:D-ADDRESS P XIF P IFT MMUPAG=1 ( P ELR A10,A8 T:A-ADDRESS > P EL A1,T:ATID,A10 GET TID ^ P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4,SCTTCT GET TC:TAB ADDRESS P LDR* A3,A4 TCTA
0x084900…084a94 (0, 168) Dummy {f00=0x00f9, f01=0x0190, f02=»DK A1,LMP5 TID ERROR P CALL ERROR " PGETT20 LDR* A2,A4 TTAB-ADDRESS 0 P CW A1,TTB:PP,A2 TCL EQUAL? V P RB(NE) GETT10 NO! z P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0 P EJECT P P 8 P**
0x084a94…084c28 Dummy {f00=0x00f9, f01=0x0190, f02=» ** l 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** 8 P** 0, ENB. ** T 8 P** ** 8 P** INPUT: A10=T:A-ADDRESS ** 8 P
0x084c28…084dbc Dummy {f00=0x00f9, f01=0x0190, f02=»*********************************** P , PQUEJOB EQU * 4 P* QUEUE THIS TASK (THIS TID) H P l 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS t P ADR A3,A13 RELOCATE P STR A3,A15 PUT ON STACK * P LDKL A3,/00C0 SET LEVEL 0 AND ENABL
0x084dbc…084f50 Dummy {f00=0x00f9, f01=0x0190, f02=»RESS t P LDR A5,A2 GET TTAB-ADDRESS P IFT CREDIT-MMUPAG=1 0 , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS L P ADK A4,2 | P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS & P LDR* A6,A4 NUMB
0x084f50…0850e4 Dummy {f00=0x00f9, f01=0x0190, f02=»D A3,2,A4 SEGMENT NUMBER , P LD A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS x P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => S
0x0850e4…085278 Dummy {f00=0x00f9, f01=0x0190, f02=»L! P EL A1,4,A4 DISP ADDRESS P EL A3,2,A4 SEGMENT NUMBER * , P EL A2,NTPA,A8 INTERPRETER START ADDRESS L P XIF | P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT P RB GETT30 $ PGETT40 ABL RETUR8 RELOAD 8
0x085278…08540c Dummy {f00=0x00f9, f01=0x0190, f02=»T ** v 4 P** ** 4 P** ** V 4 P** MOVE MM-TABLE ** 4 P** ** 4 P** INPUT
0x08540c…0855a0 Dummy {f00=0x00f9, f01=0x0190, f02=» TTAB ** n 4 P** A9=TTAB ADDRESS ** 4 P** WORKREGS:A1,A3 ** N 4 P*********************************************** P PMOVMMT EQU * ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS " P T
0x0855a0…085734 (0, 169) Dummy {f00=0x00fa, f01=0x0190, f02=»LOAD TABLE ~ P RTN A14 P XIF " P IFF CREDIT=0 . P EJECT D @ P************************************************************ R @ P* * @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE A
0x085734…0858c8 Dummy {f00=0x00fa, f01=0x0190, f02=»=========== * b @ P* * @ P* * Z @ P* REFERENCED IN: SYSLDA PART 2 B. * @ P*
0x0858c8…085a5c Dummy {f00=0x00fa, f01=0x0190, f02=»NTRY IN REAL T:ATAB * j @ P* * @ P* EXIT: * b @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8
0x085a5c…085bf0 Dummy {f00=0x00fa, f01=0x0190, f02=» * r @ P* * & @ P************************************************************ j PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET
0x085bf0…085d84 Dummy {f00=0x00fa, f01=0x0190, f02=» ( P LDR* A1,A8 GET POINTER TO REAL T:A $ P LD A1,T:ATID,A1 GET TCL IN T:A 0 . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB X , P LD A4,TTBTID,A2 GET REAL TID IN TTAB =3 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS * P ST A4,T:ATID,A3 REP
0x085d84…085f18 Dummy {f00=0x00fa, f01=0x0190, f02=» SAVE TID FOR DEBUGGER PURPOSE =3 P XIF * P IFT CREDIT+MMUPAG=2 6 & P ELR A1,A8 GET POINTER TO REAL T:A R $ P EL A1,T:ATID,A1 GET TCL IN T:A | . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL
0x085f18…0860ac Dummy {f00=0x00fa, f01=0x0190, f02=»CORRESPONDING T:A-ADDRESS x * P ES A4,T:ATID,A3 REPLACE TCL IN T:A =3 " 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB P $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 0 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =
0x0860ac…086240 Dummy {f00=0x00fa, f01=0x0190, f02=»NT ~ ( P SUK A6,1 DECREMENT NUMBER OF COPIES P RB(P) CHT:20 NEXT COPY 6 PCHT:90 RTN A14 V P EJECT l P z P 4 P************************************************ 4 P*** *** 4 P**
0x086240…0863d4 (0, 170) Dummy {f00=0x00fa, f01=0x0190, f02=»********** j P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * R 4 P* * 4 P************************************************ P PPART2B
0x0863d4…086568 Dummy {f00=0x00fa, f01=0x0190, f02=»S h * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P ADK A7,2 8 P ST A8,SAVE03,A13 SAVE A8 J & PSYA310 LD A8,SAVE03,A13 RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD,A13 ALL? P RF(E) SYA350 YES! P ST A8,SAVE03,A13 SAVE $ P ADK A5,2
0x086568…0866fc Dummy {f00=0x00fa, f01=0x0190, f02=»A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR* A1,A8 GET T:A ADDRESS : $ P STR A1,A7 STORE IN REAL T:ATAB ^ P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES P EJECT PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P C
0x0866fc…086890 Dummy {f00=0x00fa, f01=0x0190, f02=»L MOVT:A MOVE T:A P IM T:ATID,A2 UPDATE TID $ P STR A2,A7 STORE IN REAL T:ATAB : " P LDR A8,A7 CHANGE T:A TO COPY b 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS
0x086890…086a24 Dummy {f00=0x00fa, f01=0x0190, f02=»BUFFERS z P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD 8 P f P LDR A1,A5 n * P AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE ADDRESS P TLR A1 LOAD " P ST A1,MMFROM,A13 SAVE ADDRESS
0x086a24…086bb8 Dummy {f00=0x00fa, f01=0x0190, f02=»LASS-LOCAL LAST ENTRY z P CALL QUEJOB QUEUE THIS TASK * P LDKL A2,MMTAB GET WORK TABLE ADDRESS B P ADR A2,A13 p " P TSR A2 SAVE CLASS-DATA TABLE , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P P SUK A2,2 START OF TABLE P LDKL
0x086bb8…086d4c Dummy {f00=0x00fa, f01=0x0190, f02=»B SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ $ P ESR A1,A7 STORE IN REAL T:ATAB F $ P EL A12,T:DAD,A1 GET T:D ADDRESS n P EL A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES
0x086d4c…086ee0 Dummy {f00=0x00fa, f01=0x0190, f02=»SS x PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRESPONDING TTAB . P CALL QUEJOB QUEUE THIS TASK Z & P CALL MOVMMT MOVE MM-TABLE TO TTAB ~ P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:
0x086ee0…087074 (0, 171) Dummy {f00=0x00fa, f01=0x0190, f02=»W ADDRESS 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE F . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE j P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1
0x087074…087208 Dummy {f00=0x00fa, f01=0x018e, f02=» ES A1,T:ATID,A10 RESTORE IN T:A P XIF ( P IFF CREDIT=0 4 P RB SYA340 J P XIF P EJECT h PFINISH EQU *-REL v P P* ADJUST START OF FREE AREA P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF
0x087208…08739c Dummy {f00=0x00fa, f01=0x0190, f02=» P XIF P IFF CREDIT=1 P LD A1,SCTLAC * P XIF @ P IFT MMUPAG-CREDIT=1 L P ANKL A1,/03FF h P SLL A1,2 ~ P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CREDIT=1 P LD A1,S
0x08739c…087530 Dummy {f00=0x00fa, f01=0x0190, f02=»MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA P RF(NZ) SYA355 < P XIF R P LD A1,SCTSFA ^ PSYA355 ST A1,SCTSFA+2 t P CM SCTSFA P IFT CREDIT=1 P EJECT D ?***************************************************************
0x087530…0876c4 Dummy {f00=0x00fa, f01=0x0190, f02=» * X D ?* ========================= * D ?* * X D ?* REFERENCED IN: SYSLDA * D ?*
0x0876c4…087858 Dummy {f00=0x00fa, f01=0x0190, f02=»OF FREE AREA * x D ?* SCTNOS - NUMBER OF SEGMENTS * 0 D ?* SCTNOP - NUMBER OF PAGES * x D ?* SCTPSZ - PAGE SIZE * D ?
0x087858…0879ec Dummy {f00=0x00fa, f01=0x0190, f02=» P D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * P D ?* * D ?* WORK REGISTERS: A1-A12
0x0879ec…087b80 Dummy {f00=0x00fa, f01=0x0190, f02=» * p D ?* * ( D ?* * p D ?*************************************************************** PAGGEN E
0x087b80…087d14 (0, 172) Dummy {f00=0x00fa, f01=0x0190, f02=» NO! " LD A1,SCTOPT GET OPTION WORD ANK A1,3 PAGING? 2 P ABR(Z) A2 NO! L * b L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS l * , ' LD A11,SCTSFA+2 GET START OF FREE AREA " ST A11,SCTPAG STO
0x087d14…087ea8 Dummy {f00=0x00fa, f01=0x0190, f02=» t PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? RF(E) PAG:30 YES! L $ LDK A1,0 RESET NUMBER OF WORDS f PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) $ ADK A1,1 IN
0x087ea8…08803c Dummy {f00=0x00fa, f01=0x0190, f02=»F(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 $ 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER 6 RB PAG:10 j PAG:30 EQU * | * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER
0x08803c…0881d0 Dummy {f00=0x00fa, f01=0x0190, f02=» X 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS @ & ! SRL A2,2 SKIP TWO RIGHTMOST BITS x , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2,SCTPSZ GET PAGE SIZE
0x0881d0…088364 Dummy {f00=0x00fa, f01=0x0190, f02=»00 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT B P XIF n P IFT CREDIT-MMUPAG=1 z $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT CREDIT=1 LDR A9,
0x088364…0884f8 Dummy {f00=0x00fa, f01=0x0190, f02=»F PAG:33 PPAG:32 CWR A6,A10 PPAG:33 RF(NG) PAG:40 * , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE F LDR A1,A6 GET PAGE ADDRESS v P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PAG:34 NO! . * LDR A1,
0x0884f8…08868c Dummy {f00=0x00fa, f01=0x0190, f02=»E AREA v P XIF P IFT CREDIT=1 & "PAG:36 LDK A2,0 RESET WORD COUNTER 0 * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD Z RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE? RF(E) PAG:45 YES!
0x08868c…088820 Dummy {f00=0x00fa, f01=0x0190, f02=»WR A11,A1 P RF PAG384 PPAG382 CWR A1,A11 $ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! > PPAG:39 EQU * v " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT
0x088820…0889b4 (0, 173) Dummy {f00=0x00fb, f01=0x0190, f02=»MOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW HLT HALT PROGRAM H , 'PAG:45 CW A7,SCTNOS MOORE PAGES WANTED? b RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE PAGE ADDRESS P RB PAG:31
0x0889b4…088b48 Dummy {f00=0x00fb, f01=0x0190, f02=» A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE ( P XIF @ P IFT CREDIT+MMUPAG=2 L * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS h ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFT CREDIT=1 ST
0x088b48…088cdc Dummy {f00=0x00fb, f01=0x0190, f02=»LOCKS h * LDK A1,0 @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. * * % LD A11,SCTSEG START OF SEGMENT TABLE n , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START OF PAGE TABLE $ LD A6,SCTNOS NUMB
0x088cdc…088e70 Dummy {f00=0x00fb, f01=0x0190, f02=»OT LOADED IN CORE x * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS , ' STR A1,A12 RESET QUEUE POINTER FORWARD H . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD x $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS 0 , ADK
0x088e70…089004 Dummy {f00=0x00fb, f01=0x0190, f02=» A6,1 DECREMENT SEGMENT BLOCK COUNTER RB(P) PAG:60 . * D < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE N * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK
0x089004…089198 Dummy {f00=0x00fb, f01=0x0190, f02=»2 STORE BACKWARD POINTER ~ $ ST A9,4,A12 STORE PAGE ADDRESS $ ST A2,6,A12 INDICATE PAGE FREE H * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER p CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , ' LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK
0x089198…08932c Dummy {f00=0x00fb, f01=0x0190, f02=»0 NEXT PAGE RB PAG:70 PAG:80 EQU * & & ! LDKL A1,PAGQUE POINTER TO PAGQUE : $ STR A1,A12 STORE IN LAST BLOCK d & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL P EJECT P XIF P P
0x08932c…0894c0 Dummy {f00=0x00fb, f01=0x0190, f02=»PPLICATION r P XIF P IFT CREDIT=1 , P LD A14,SAVE13,A13 TRUE START OF S:GTAB 4 P XIF d P SUKL A14,8 ADJUST FOR MAP p * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1,SCT
0x0894c0…089654 (0, 174) Dummy {f00=0x00fb, f01=0x0190, f02=»A370 RESTORE PROGRAM BASE OINTER P* ( P* INIT A15 STACK 2 P* L P LD A15,SCTSTB V P SUKL A15,4 l P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1,IHR
0x089654…0897e8 Dummy {f00=0x00fb, f01=0x018e, f02=»TIALIZE DEVICES ~ P CF A15,SAVE8 SAVE REGISTERS P* < F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER F P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH ( P
0x0897e8…08997c Dummy {f00=0x00fb, f01=0x0190, f02=» P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* < PIHRTCO EQU *-REL F P RIT RTCDA ^ P RTN A15 p P IFF CREDIT=0 P EJECT P 6 P************************************************* 6 P***
0x08997c…089b10 Dummy {f00=0x00fb, f01=0x0190, f02=» ^ 6 P************************************************* P B 6 P* BUILD COMMON AND TASKCLASS DATA AREAS. * J 6 P* BUILD TASKDATA PROTOTYPE AREA * 6 P* * 6 P****************
0x089b10…089ca4 Dummy {f00=0x00fb, f01=0x0190, f02=»* *** 0 P** S U B R O U T I N E S ** 2 0 P******************************************** f P P 4 P** T : D A D D ** 4 P**
0x089ca4…089e38 Dummy {f00=0x00fb, f01=0x0190, f02=» ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 6 4 P** OUTPUT: A12=T:D ADDRESS ** n 4 P************************************************ PT:DADD EQU * P IFT CREDIT-MMUPAG=1
0x089e38…089fcc Dummy {f00=0x00fb, f01=0x0190, f02=» EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 & P AD A12,MOVADD,A13 RELOCATE < P RTN A14 ` P EJECT p P ~ P 6 P** M O V C O M ** 6 P** ** 6
0x089fcc…08a160 Dummy {f00=0x00fb, f01=0x0190, f02=»AT LEAST TWO T:A'S, AND MOVE ** ~ 6 P** TO COMMON AREA ** ( 6 P** ** b 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK **
0x08a160…08a2f4 (0, 175) Dummy {f00=0x00fb, f01=0x0190, f02=»S: A1-A6,A9,A11,A12 ** 6 P************************************************* . P h PMOVCOM EQU * t & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL (
0x08a2f4…08a488 Dummy {f00=0x00fb, f01=0x0190, f02=» P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO ( PMOVC20 RTN A14 YES! B P IFT CREDIT-MMUPAG=1 ^ PMOVC30 LDR* A11,A6 z P LD A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOVADD,A13 RELOCATE P ST A2,SAVE03,A13 SAVE , P LD A2,WATLEN,A2
0x08a488…08a61c Dummy {f00=0x00fb, f01=0x0190, f02=»,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 $ . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES : P XIF l P IFT CREDIT+MMUPAG=2 x PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOVADD,A13 RELOCATE 0 P ST A2,SAVE03,A13 SA
0x08a61c…08a7b0 Dummy {f00=0x00fb, f01=0x0190, f02=»T ELEMENTS. TAKE NEXT T:A x . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE " P ELR A11,A11 T . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES h P XIF P IFF CREDIT=0 P RB(NE) MOVC10 .NEQ. ( P LD A9,MOVED,A13 W.B. ALREADY MOVED? . P RF(
0x08a7b0…08a944 Dummy {f00=0x00fb, f01=0x0190, f02=»MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? @ P RF(Z) MOVC40 NO! b " P CALL GETPRO CREATE REAL UWB'S | 4 PMOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B. P CALL MOVDWB & PMOVC50 CALL CHADR CHANGE A
0x08a944…08aad8 Dummy {f00=0x00fb, f01=0x0190, f02=»S n & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS 4 P CALL MOVDWB b P LDR A8,A11 v * P LD A12,SAVE25,A13 RELOAD T:D-ADDRESS P RB MOVC10 P EJECT P P 4 P** G E T P
0x08aad8…08ac6c Dummy {f00=0x00fb, f01=0x0190, f02=» ` 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB ** @ 4 P** ** x 4 P** INPUT : A11=PROTOTYPE ADDRESS ** 4 P** A2=LAST W.B. - ADDRE
0x08ac6c…08ae00 Dummy {f00=0x00fb, f01=0x0190, f02=»************************************************ P 8 PGETPRO EQU * D ( P LD A3,U:BTOD,A13 GET U:BTAB ADDRESS X P IFT CREDIT-MMUPAG=1 P LDR* A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH P
0x08ae00…08af94 (0, 176) Dummy {f00=0x00fb, f01=0x0190, f02=»F(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT . P RB GETP10 J P 0 P* GET NUMBER OF COPIES * h 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * P PGETP30 EQU * P LD A4,WBLEN,A11 W.B.-LENGTH
0x08af94…08b128 Dummy {f00=0x00fb, f01=0x0190, f02=»A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 $ " P ST A4,URLENG,A9 STORE LENGTH 6 * P ST A5,URNUMB,A9 STORE IN REAL U:BTAB 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * 0 P******************************************** . P SUK A5,1 ONE ALREADY
0x08b128…08b2bc Dummy {f00=0x00fb, f01=0x0190, f02=» POINTER IN REAL U:BTAB * & P********************************* " PGETP50 EQU * L 6 P ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB ` P XIF P IFT CREDIT+MMUPAG=2 P ELR A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECOR
0x08b2bc…08b450 Dummy {f00=0x00fb, f01=0x0190, f02=»A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 ( , P RF(E) GETP30 YES! GET NUMBER OF COPIES < P ADK A3,UP:REC NEXT l P RB GETP10 P 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *
0x08b450…08b5e4 Dummy {f00=0x00fb, f01=0x0190, f02=»1,A3 GET NUMBER OF COPIES P ANK A5,/FF " , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT 6 . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS f P LDR A9,A3 P TL* MMTO,A13 LOAD TO-TABLE * P ES A5,URNUMB,A9 ESORE IN REAL U:BTAB " P ES A4,URLEN
0x08b5e4…08b778 Dummy {f00=0x00fb, f01=0x018e, f02=»**************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') $ P RF(NP) GETP50 V PGETP40 CALL MOVWB l P SUK A5,1 P RB(NZ) GETP40 P & P* UPDATE POINTER IN REAL U:BTAB * & P*********************************
0x08b778…08b90c Dummy {f00=0x00fb, f01=0x0190, f02=» P IFF CREDIT=0 P RTN A14 P EJECT . P < 2 P** M O V C L A ** H 2 P** ** ~ 2 P** ** 2 P** CHECKS IF W.B. ALREADY MOV
0x08b90c…08baa0 Dummy {f00=0x00fb, f01=0x0190, f02=» ** 2 P** A LOT OF WORKREGS. ** 2 2 P********************************************* h P PMOVCLA EQU * P CALL SHIFT P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRESS TO A1
0x08baa0…08bc34 (0, 177) Dummy {f00=0x00fc, f01=0x0190, f02=»CL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT " P CALL MOVWB < P LD A4,UWB,A13 UWB-SCANNING P P RF(Z) MVCL50 NO! t P CALL GETPRO DUPLICATE WB'S . PMVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS P CALL MOVDWB PROCESS DWB'S P R
0x08bc34…08bdc8 Dummy {f00=0x00fc, f01=0x0190, f02=» ** x 6 P** ** " 6 P** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** 6 P** BLOCKS ALREDY MOVED ** 6 P** ** 6
0x08bdc8…08bf5c Dummy {f00=0x00fc, f01=0x0190, f02=»= NEW W.B.-ADDRESS ** ~ 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** ( 6 P** WORK.REGS: A1,A2 ** b 6 P************************************************* P PCHADR EQU * P IFT CREDIT-MMUPAG
0x08bf5c…08c0f0 Dummy {f00=0x00fc, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P STR A2,A1 D P XIF V P IFT CREDIT+MMUPAG=2 b P ELR A1,A6 T:A-ADDRESS ~ . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2,A13 P ESR A2,A1 & P SUK A1,2 ADDR
0x08c0f0…08c284 Dummy {f00=0x00fc, f01=0x0190, f02=»FT CREDIT+SWPBLK=2 P EJECT B P************************************************************** ( B P* * n B P* * B P* B:RSWT - BU
0x08c284…08c418 Dummy {f00=0x00fc, f01=0x0190, f02=» * B P* REFERENCED IN: SYSLDA * < B P* * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *
0x08c418…08c5ac Dummy {f00=0x00fc, f01=0x0190, f02=» * T B P* EXIT: * B P* * P B P* WORK REGISTERS: A1-A7 * B P*
0x08c5ac…08c740 Dummy {f00=0x00fc, f01=0x0190, f02=» * h B P************************************************************** P EJECT d PB:RSWT EQU * r * P LDR A8,A2 SAVE POINTER TO FIRST BLOCK , P LD A1,SCTSWB POINTER TO SWB BLOCK TABLE * P RF(Z) RSWBEX NO SWB:S IN APPLICATIO
0x08c740…08c8d4 (0, 178) Dummy {f00=0x00fc, f01=0x0190, f02=» v P LDR* A4,A1 POINTER TO BLOCK P LDR* A6,A4 NUMBER OF COPIES , $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P P XIF x P IFT CREDIT+MMUSWB=3 & P ES A6,2,A2 STORE NUMBER OF COPIES , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF P I
0x08c8d4…08ca68 Dummy {f00=0x00fc, f01=0x0190, f02=»DIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLOCK > ( P SUK A3,1 DECREMENT NUMBER OF TYPES j P RB(P) RSWB10 P LDR A4,A2 P* 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND R
0x08ca68…08cbfc Dummy {f00=0x00fc, f01=0x0190, f02=»EMENT v P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES * P RF(Z) RSWB50 NO COPIES! N * P STR A6,A8 STORE POINTER TO TID BLOCK n PRSWB30 STR A3,A2 RESET TID , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH
0x08cbfc…08cd90 Dummy {f00=0x00fc, f01=0x0190, f02=» EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! ( * P ESR A6,A8 STORE POINTER TO TID BLOCK H PRSWB40 ESR A3,A2 RESET TID v , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECR
0x08cd90…08cf24 Dummy {f00=0x00fc, f01=0x0190, f02=» P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES D P LDKL A1,LMP6 SWB ERROR! ^ P CALL ERROR ~ PRSWBEX RTN A14 P XIF P IFF CREDIT=0 P EJECT P P* ************************** " P* ST
0x08cf24…08d0b8 Dummy {f00=0x00fc, f01=0x0190, f02=» P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS : P* SAVE04=DDIV FROM ADDRESS Z " P* SAVE05=LENGTH OF REAL T:ATAB | " P* SAVE06=LENGTH OF REAL U:BTAB P PSTART2 EQU *-REL " P LDR A8,P LOAD TEMP. STACKBA
0x08d0b8…08d24c Dummy {f00=0x00fc, f01=0x0190, f02=» n $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV 0 P SUR A3,A1 => LENGTH b P XIF ~ P IFT CREDIT-MMUPAG=1 . P LD A8,SCTNOS ANY SEGMENTS IN APPLICATION? P RF(Z) NOSGMT NO! ( P LDKL A8,0 RESET FSTAD
0x08d24c…08d3e0 Dummy {f00=0x00fc, f01=0x0190, f02=»XT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 6 P ADK A2,2 H P SUK A3,2 DEC LENGTH Z P RB(NN) MOVNXT v P XIF P IFT CREDIT+MMUPAG=2 P CALL XMOVE & P* REMOVE DDIV ENTRIES IN MM-TABLE P " P LDR A1,A9 GET
0x08d3e0…08d574 (0, 179) Dummy {f00=0x00fc, f01=0x0190, f02=»3 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 8 PSYA205 CWR A1,A2 ALL? N P RF(E) SYA207 YES! l , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR P SUK A1,2 P RB SYA205 PSYA207 EQU * P* CHANGE TABLE-ADDRESSES
0x08d574…08d708 Dummy {f00=0x00fc, f01=0x0190, f02=» P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA ( P X P ` P h . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * t P P IFT CREDIT+MMUPAG=2 ( P LDKL A3,MMTAB GET CURRENT MM-TABLE P ADR A3,A13 ,
0x08d708…08d89c Dummy {f00=0x00fc, f01=0x0190, f02=»AGE n * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE : * P CALL MOVING RESERVE SPACE FOR T:ATAB R $ P TL* MMTO,A13 SET CORRECT TABLE " P ESR A5,A2 STORE T:ATAB LENGTH . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,
0x08d89c…08da30 Dummy {f00=0x00fc, f01=0x0190, f02=»E r P P LDR A3,A5 GET LENGTH P CALL MOVING 0 P TL* MMTO,A13 D P LDR A3,A9 GET P:MTAB Z & P ADK A3,T:AID ADD TO ADDRESS WORD x 0 P ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE " P ADK A2,2 ADJUST TABLE ADDRESS P ESR A2,A3 S
0x08da30…08dbc4 Dummy {f00=0x00fc, f01=0x0190, f02=» RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDIT-MMUPAG=1 N P STR A5,A2 STORE LENGTH j P ADK A2,2 : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P
0x08dbc4…08dd58 Dummy {f00=0x00fc, f01=0x018e, f02=»:ATAB ADDRESS t P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS ( P* RESERVE FOR T:AID TABLE R P t P LDR A3,A5 LENGTH | P CALL MOVING P STR A5,A2 STORE LENGTH $ P ADK A2,2 ADJUST FOR LENGTH-WORD , P ST A2,T:AID,A9 STORE
0x08dd58…08deec Dummy {f00=0x00fc, f01=0x0190, f02=» P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB & P XIF N P IFT SWPBLK+CREDIT=2 Z P* v * P* RESERV SPACE FOR REAL S:BTAB TABLE P* , P LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB P LDR A5,A3 SAVE P CALL MO
0x08deec…08e080 Dummy {f00=0x00fc, f01=0x018e, f02=» ES A2,S:BTAB,A9 P CALL B:RSWT P XIF , P IFT CREDIT+SWBMMU=2 8 P STR A5,A2 T P ADK A2,2 f P ST A2,S:BTAB,A9 x P CALL B:RSWT P XIF P IFT CREDIT+MMUPAG=2 " P TL* MMFROM,A13 RELOAD TABLE P XIF P IFF CREDI
0x08e080…08e214 (0, 180) Dummy {f00=0x00fc, f01=0x0190, f02=» ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 4 P LDR* A3,A8 GET LENGTH P P XIF n P IFT CREDIT+MMUPAG=2 z P ELR A3,A8 GET LENGTH P XIF P IFF CREDIT=0 P ADR A3,A8 0 P ST A3,ENDADD,A13 SAVE END OF T:
0x08e214…08e3a8 Dummy {f00=0x00fc, f01=0x0190, f02=» RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1 B " P LD A7,CWBMSK,A12 GET CWB-MASK ^ P XIF P IFT CREDIT+MMUPAG=2 P EL A7,CWBMSK,A12 P XIF P IFF CREDIT=0 P CALL SHIFT SUPER-LOOPA P
0x08e3a8…08e53c Dummy {f00=0x00fc, f01=0x0190, f02=»QU * P* SEARCH UWB'S: P* $ & P IM UWB,A13 INDICATE UWB-SCANNING . P IFT CREDIT-MMUPAG=1 X P LD A7,UWBMSK,A12 t P XIF P IFT CREDIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF P IFF CREDIT=0 P CALL SHIFT " PSY
0x08e53c…08e6d0 Dummy {f00=0x00fc, f01=0x0190, f02=»SK CLASS DATA CONFIGURATION PART * * P************************************** * P X PCLADAT EQU * ` 4 P LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB t P IFT CREDIT-MMUPAG=1 " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x08e6d0…08e864 Dummy {f00=0x00fc, f01=0x0190, f02=»LCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB & P ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS n ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST * P LDR A3,A1 GET NUMBER OF START-POINTS P ADR A3,A12 ADD T:D-ADDRESS
0x08e864…08e9f8 Dummy {f00=0x00fc, f01=0x0190, f02=»' z P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS & P CALL MOVING MOVE T:D F P LDR* A1,A8 GET T:A ADDRESS d * P ST A2,T:DAD,A1 STORE NEW T:D ADDRESS " P LD A7,CWBMSK,A12 GET CWBMASK P XIF P IFT CREDIT+MMUPAG=2 ( P* IN
0x08e9f8…08eb8c Dummy {f00=0x00fc, f01=0x0190, f02=»,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS > P CW A8,ENDADD,A13 j " P RF(E) SYA270 ALL T:A'S DONE! " P CALL GETTAB GET TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE " P* FILL MM-TABLE ADDRES
0x08eb8c…08ed20 Dummy {f00=0x00fc, f01=0x0190, f02=» FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB @ P x P* CALCULATE LENGTH OF T:D P 2 P EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB P ADK A1,2 P ANKL A1,/FFFE EVEN AD
0x08ed20…08eeb4 (0, 181) Dummy {f00=0x00fd, f01=0x0190, f02=»A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY @ P ADK A3,2 'NUMBER-WORD' ` P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE T:D P ELR A1,A8 GET T:A ADDRESS * P ES A2,T:DAD
0x08eeb4…08f048 Dummy {f00=0x00fd, f01=0x0190, f02=» P P P* TASK CLASS DATA UWB'S * P************************* > & P IM UWB,A13 INDICATE UWB SCANNING ` P IFT CREDIT-MMUPAG=1 " P LD A7,UWBMSK,A12 GET UWBMASK P XIF P IFT CREDIT+MMUPAG=2 P EL A7,UWBMSK,A12
0x08f048…08f1dc Dummy {f00=0x00fd, f01=0x0190, f02=»****************************** P & PSYA260 EQU * . P IFT CREDIT-MMUPAG=1 B P LD A7,SWBMSK,A12 ^ P RF(Z) SYA265 NONE x P CALL SKRITT PSYA265 LD A7,TWBMSK,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A7,SWBMSK,A12 P
0x08f1dc…08f370 Dummy {f00=0x00fd, f01=0x0190, f02=»ALL SKRITT P RB SYA250 P $ PSYA270 RF PRODAT 0 P EJECT H P V P b 4 P** S K R I T T ** n 4 P** ** 4 P** MOVE D.T
0x08f370…08f504 Dummy {f00=0x00fd, f01=0x0190, f02=» * P CALL SHIFT PNO RF(NZ) NES P RTN A14 4 PNES CALL GETWB D P CALL MOVDT Z . P CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) n P CALL MOVDWB P CALL SKIFTA P RB NO P EJECT P & P* BUILD TASKDATA PROTOTY
0x08f504…08f698 Dummy {f00=0x00fd, f01=0x018e, f02=»? j P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 $ & P CM TTB:PP,A2 CLEAR TCL SAVE AREA Z P IFT CREDIT+MMUPAG=2 =00001 P CALL MOVMMT MOVE MM-TABLE P XIF =00001 P IFF CREDIT=0 =00001 PSYA275 EQU
0x08f698…08f82c Dummy {f00=0x00fd, f01=0x0190, f02=» PSYA280 ADKL A8,2 P CW A8,ENDADD,A13 P RF(E) SYA290 ALL DONE 6 P IFT CREDIT-MMUPAG=1 T " P LDR* A12,A8 GET T:D ADDRESS.. p P LD A12,T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P " P* CALCULATE LENGTH OF
0x08f82c…08f9c0 Dummy {f00=0x00fd, f01=0x0190, f02=» n P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X (A2) RESULT IN A3 * & P ST A3,CSN,A1 SAVE LENG OF DSCB'S V ( P LD A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA
0x08f9c0…08fb54 (0, 182) Dummy {f00=0x00fd, f01=0x0190, f02=»SE,A1 AND SAVE TEMPORARY * P LD A2,SCTLAC GET START OF COMMON PART P LD A2,P:BAS,A2 GET P:BAS N P ST A2,CSB,A1 AND SAVE p " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF
0x08fb54…08fce8 Dummy {f00=0x00fd, f01=0x0190, f02=»GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE P 4 ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE < * P LDKL A3,MMTAB GET WORK TABLE ADDRESS h P ADR A3,A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE P CALL MMENT GE
0x08fce8…08fe7c Dummy {f00=0x00fd, f01=0x0190, f02=» r " P*** *** P . P ELR A1,A8 GET T:A-ADDRESS : & P EL A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S ( P EL A2,FCD
0x08fe7c…090010 Dummy {f00=0x00fd, f01=0x0190, f02=»TO FIRST WORD v 6 PSYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART " P EL A2,STKB,A1 GET STACK SIZE P & P ES A2,CSE,A1 AND SAVE (TEMPORARY) v & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE P EL A2,P:BAS,A2 GET P:
0x090010…0901a4 Dummy {f00=0x00fd, f01=0x0190, f02=»OVE T:A * P ESR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF > P IFF CREDIT=0 J P RB SYA280 NEXT ` P EJECT x PSYA290 EQU * 4 P IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA P .
0x0901a4…090338 Dummy {f00=0x00fd, f01=0x018e, f02=»A3,/F000 $ P SRL A3,2 GET NEW PHYSICALL PAGE P ST A3,FSTPAG,A13 SAVE 8 ( P ANKL A2,/FFF GET NEW PAGE INCREMENT V P ST A2,FSTADR,A13 SAVE P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS P XIF P IFT CREDIT-MMUP
0x090338…0904cc Dummy {f00=0x00fd, f01=0x0190, f02=» P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 END OF TABLE ADDRESS $ P ST A2,ENDADD,A13 SAVE L & P LD A1,T:ATOD,A13 GET FROM-ADDRESS j P LDR* A3,A1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE P CALL MOVE P XIF
0x0904cc…090660 Dummy {f00=0x00fd, f01=0x0190, f02=»AD TABLE | P ADR A2,A1 END ADDRESS 4 P ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION' . * P LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB f P ELR A3,A1 GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE P CALL XMOVE P XIF
0x090660…0907f4 (0, 183) Dummy {f00=0x00fd, f01=0x0190, f02=»D BASE ADDRESS P ABR A5 & PLENGT2 EQU *-REL LENGTH OF PART 2 & P EJECT P P ^ P j 2 P********************************************* v 2 P******* ******* 2 P**
0x0907f4…090988 Dummy {f00=0x00fd, f01=0x0190, f02=» ***** 2 P********************************************* * P ` 2 P* READ CONFIGURATION FILE & BUILD * l 2 P* SHADOW-TABLES * 2 P* *
0x090988…090b1c Dummy {f00=0x00fd, f01=0x0190, f02=»********* t * P*** *** * P** S U B R O U T I N E S ** @ ( P** -USED IN THIS PART ONLY * n * P************************************* P EJECT P P 6 P** C O N
0x090b1c…090cb0 Dummy {f00=0x00fd, f01=0x0190, f02=» ** b 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** 6 P** ** F 6 P** INPUT : A5=ASCII DIGITS ** 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2
0x090cb0…090e44 Dummy {f00=0x00fd, f01=0x0190, f02=»0 CLEAR RESULT REG P LDR A3,A5 P SRL A3,8 GET TEN'S , P SUK A3,/30 H P ADR A1,A3 P LDR A2,A1 MULT BY 10 n P ADR A1,A1 . P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 P ANK A3,/F GET ONE'S P ADR A1,A3
0x090e44…090fd8 Dummy {f00=0x00fd, f01=0x0190, f02=» ** l 6 P** ** 6 P** SKIP TO NEXT BLOCK IN CONFIGURATION FILE ** P 6 P** ** 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** 6 P** OUTPUT
0x090fd8…09116c Dummy {f00=0x00fd, f01=0x018e, f02=» ** r 6 P************************************************** P V PNXTBLK EQU * ^ 6 P ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES r 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 P SLL A5,8 P
0x09116c…091300 Dummy {f00=0x00fd, f01=0x0190, f02=» 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES P SLL A5,8 8 P LC A5,1,A11 J P CALL CONVRT ^ , P LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH r P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK P ADKL A11,2 $ P LC A2,TDBBT
0x091300…091494 (0, 184) Dummy {f00=0x00fd, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x091494…091628 Dummy {f00=0x00fd, f01=0x0190, f02=» ** ` 8 P**************************************************** P H PGETNUM EQU * T P LDK A4,100 FIRST INCREMENT h P LDK A5,0 CLEAR RESULT REG P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT P LCR A2,A6 GET CHAR
0x091628…0917bc Dummy {f00=0x00fd, f01=0x0190, f02=» SUK A4,90 NEXT INCREMENT (TEN'S) P RB(P) GET030 * & P ADK A4,81 NEXT INCREMENT (ONE'S) @ P RB(P) GET030 THIRD DIGIT j P RTN A14 P EJECT P P* START OF PROGRAM PART 1 * P 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-AD
0x0917bc…091950 Dummy {f00=0x00fd, f01=0x0190, f02=» P* P LD A15,SCTSTB P SUKL A15,4 $ P 8 & P LD A2,SCTLAC GET S:GTAB (IF ANY) @ P IFT MMUPAG=0 j . P LD A2,CREID,A2 GET CREDIT IDENTIFICATION P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## P EL A2,CREID,A2 P X
0x091950…091ae4 Dummy {f00=0x00fd, f01=0x0190, f02=»0 YES! START CONFIGURATE P IFF CREDIT=1 P 6 P* ASSEMBLER APPLICATION > P ^ P* SWITCH TO LEVEL 0 ENB f P ( P LDKL A4,SYA103 CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK P LDKL A4,/00C0
0x091ae4…091c78 Dummy {f00=0x00fd, f01=0x0190, f02=»ET MM-TABLE ADDRESS P ADR A4,A13 RELOCATE P ST A4,MMFROM,A13 SAVE 8 ( P* FILL MM-TABLES IN USER TASK TTAB'S V P ( P LD* A5,SCTTCT GET LENGTH OF TC:TAB $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE 0 P SU A3,SCTTCT GET
0x091c78…091e0c Dummy {f00=0x00fd, f01=0x0190, f02=»DKL A1,/FC00 P LDKL A2,MMTAB P ADR A2,A13 * P LDR A4,A2 =00002 > P SUKL A4,MMBEG X P AD A4,SCTMMC n PSYA:10 CWR A4,A2 P RF(E) SYA105 P SUK A4,2 P STR A1,A4 P RB SYA:10 PSYA105 SUK A5,2 ALL? P RF(
0x091e0c…091fa0 Dummy {f00=0x00fd, f01=0x018e, f02=»A107 EQU * P XIF P IFF CREDIT=1 2 P LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS 4 . P LD A2,SAVE09,A13 EXECUTION START ADDRESS j ( P AD A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER P CF A15,ACTOT QUEUE TASK " P
0x091fa0…092134 (0, 185) Dummy {f00=0x00fe, f01=0x018e, f02=» P , P* READ CONFIG FILE AND BUILD SHADOWTABLE P D 0 P CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR' P P IFT CREDIT-MMUPAG=1 & P LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS & P SUKL A12,2 ADJUST FOR
0x092134…0922c8 Dummy {f00=0x00fe, f01=0x0190, f02=» $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA P XIF , P IFT CREDIT+SWBMMU=2 8 ( P LD A4,S:BTAB,A2 GET S:BTAB ADDRESS T $ P SUK A4,2 ADJUST FOR LENGTH WORD P ST A4,S:BTOD,A13 SAVE P XIF P IFT CREDIT-MMUPAG=1 P* T:ATAB PROCESSING:
0x0922c8…09245c Dummy {f00=0x00fe, f01=0x0190, f02=» ~ P " P LDR A11,A3 END OF SHADOW-TAB P LDR A9,A13 START OF SYSLDA 6 P CALL CMPADR Z P RF(L) SYA110 OK! n " P LDKL A1,LMP3 MEMORY OVERFLOW P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS P LDK A2,0 P* CLEAR
0x09245c…0925f0 Dummy {f00=0x00fe, f01=0x0190, f02=» " P STR A4,A3 STORE TABLE LENGTH ( P LD A11,SAVE01,A13 GET CONFIG START * " P LC A2,TDBBT,A11 GET BLOCKTYPE V P CCK A2,'TT' TASK DEF? | P RF(E) SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR ( PSYA120 LC A2,TDBMC+4,A11 GET
0x0925f0…092784 Dummy {f00=0x00fe, f01=0x0190, f02=»E02,A13 INDICATE BUGGER TASK PRESENT =00001 " P RF SYA136 SKIP TO NEXT BLOCK 4 PSYA125 LDR A8,A12 SAVE Z P LDR* A4,A12 T:ATAB LENGTH x PSYA130 ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 P RF(NZ) SYA135 0 P
0x092784…092918 Dummy {f00=0x00fe, f01=0x0190, f02=»SYA130 NO! P SUR* A4,A12 T:ATAB LENGTH P XIF 4 P IFT CREDIT+MMUPAG=2 @ & P EL* A2,SCTLAC GET START OF P:MTAB $ P EL A12,T:ATAB,A2 T:ATAB ADDRESS $ P SUKL A12,2 INCLUDE LENGTH WORD & P ST A12,T:ATOD,A13 SAVE IN SYSLDA $ P EL A4,U
0x092918…092aac Dummy {f00=0x00fe, f01=0x0190, f02=»MMUSWB=3 ( P EL A4,S:BTAB,A2 GET S:BTAB ADDRESS $ P SUK A4,2 ADJUST FOR LENGTH WORD < P ST A4,S:BTOD,A13 SAVE d P XIF P IFT CREDIT+MMUPAG=2 P* T:ATAB PROCESSING: P P ELR A4,A12 T:ATAB-LENGTH P LDR A3,A4 SAVE
0x092aac…092c40 Dummy {f00=0x00fe, f01=0x0190, f02=» LDR A11,A3 END OF SHADOW-TABLE P LDR A9,A13 START OF SYSLDA ( P CALL CMPADR L P RF(L) SYA110 OK! ` " P LDKL A1,LMP3 MEMORY OVERFLOW z P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS P* CLEAR T:ATAB SHADOW-TABLE: P
0x092c40…092dd4 (0, 186) Dummy {f00=0x00fe, f01=0x0190, f02=»GTH v ( P LD A11,SAVE01,A13 GET CONFIG START " P LC A2,TDBBT,A11 GET BLOCKTYPE 8 P CCK A2,'TT' TASK DEF? ^ P RF(E) SYA120 OK! | P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID P SLL A2,8 .
0x092dd4…092f68 Dummy {f00=0x00fe, f01=0x0190, f02=»PRESENT' h P RF SYA136 SKIP THIS BLOCK PSYA125 LDR A8,A12 SAVE 2 P ELR A4,A12 T:ATAB LENGTH P PSYA130 ADKL A8,2 NEXT T:A r P ELR A6,A8 GET T:A ADDRESS P SUK A4,2 P RF(NZ) SYA135 , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR)
0x092f68…0930fc Dummy {f00=0x00fe, f01=0x018e, f02=» ELR A10,A12 P SUR A4,A10 T:ATAB LENGTH P XIF 6 P IFF CREDIT=0 B . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB X ( P LC A5,TDBNT,A11 GET NUMBER OF TASKS P SLL A5,8 P LC A5,TDBNT+1,A11 P CALL CONVRT ( P LD A2,SCTSFA STAR
0x0930fc…093290 Dummy {f00=0x00fe, f01=0x0190, f02=» z P ! PSYA136 CALL NXTBLK ! PSYA137 EQU * ! . P CCK A2,'TT' ! B & P RB(E) SYA120 NEXT TASK DEF BLOCK ! V P CCK A2,'CC' ! P RF(NE) SYA140 ! * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ! P CALL NXTCOM SKIP COMMON DEF ! PSYA140 CCK A
0x093290…093424 Dummy {f00=0x00fe, f01=0x0190, f02=» IN PROTOTYPE ! l PSYA141 EQU * " P XIF " * P IFT CREDIT+SWPBLK=2 " 6 P LCR A2,A11 " R P CCK A2,'SS' " f P RF(NE) SYA152 " z P LD A8,S:BTOD,A13 " P CALL USWBTP " P XIF " P IFT CREDIT=1 " P RF SYA152 " P EJECT " L P********
0x093424…0935b8 Dummy {f00=0x00fe, f01=0x0190, f02=» * " P L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * # L P* ================================================================= * # ` L P* * # L P* REFER
0x0935b8…09374c Dummy {f00=0x00fe, f01=0x0190, f02=» * # P L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * $ L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * $ ` L P* * $ L P* EXIT:
0x09374c…0938e0 Dummy {f00=0x00fe, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x0938e0…093a74 (0, 187) Dummy {f00=0x00fe, f01=0x0190, f02=»******* % P P & PUSWBTP EQU * & P & , P XIF & 4 P IFT CREDIT-MMUPAG=1 & @ P ADKL A11,1 & P LDR A6,A11 & p * P CALL GETNUM PACK 3 DIG. RESULT IN A5 & $ P LDR A1,A5 SAVE NUMBER OF UWB'S & PSYA142 EQU * & P LDR A12,A8 & " P LDR*
0x093a74…093c08 Dummy {f00=0x00fe, f01=0x0190, f02=»FIG & h P SLL A2,8 ' P LC A2,1,A11 GET 2:ND CHAR ' 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP ' @ * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! ' z 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S ' P RF(NN) SYA150 ' P LDK A1,LMP6 UWB NOT F
0x093c08…093d9c Dummy {f00=0x00fe, f01=0x0190, f02=» 3:RD CHAR ' z P CC A2,UPNAME+2,A12 ( P RB(NE) SYA147 .NEQ. ( . P EJECT ( J P ( X P* PROTOTYPE FOUND * ( d P ( 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG ( P LDR A6,A11 ( P CALL GETNUM CONVERT ( 2 P SC A5,UPNUMB,A1
0x093d9c…093f30 Dummy {f00=0x00fe, f01=0x018e, f02=» RTN A14 ( P XIF ) P IFT CREDIT+MMUPAG=2 ) P ADKL A11,1 ) 8 P LDR A6,A11 ) L * P CALL GETNUM PACK 3 DIG. RESULT IN A5 ) ` $ P LDR A1,A5 SAVE NUMBER OF UWB'S ) PSYA142 EQU * ) P LDR A12,A8 START OF TABLE ) P ELR A3,A12 LENGTH OF U:BTAB
0x093f30…0940c4 Dummy {f00=0x00fe, f01=0x0190, f02=» ) P LC A2,1,A11 GET 2:ND CHAR * 2 P EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE * * P CWR A2,A10 * ` P RF(E) FRSTOK FIRST WORD OK! * t 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S * P RF(NN) SYA150 * P LDK A1,LMP6 UWB NOT FOUND * P CAL
0x0940c4…094258 Dummy {f00=0x00fe, f01=0x0190, f02=» CONFIG * j 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY + P SRL A2,8 + D P ANKL A10,/FF + V P CWR A10,A2 + l P RB(NE) SYA147 .NEQ. + P EJECT + P + P* PROTOTYPE FOUND * + P******************* + P + 8 P ADKL A11,NAMU
0x094258…0943ec Dummy {f00=0x00fe, f01=0x0190, f02=»-TABLE + f P ANKL A10,/FF00 , P ORR A10,A5 , & P ES A10,UPNUMB-1,A12 , : . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE , V P RB(P) SYA142 , P ADKL A11,UDBFST-1 , P RTN A14 , P XIF , P IFT CREDIT=1 , P EJECT , PSYA152 EQU * ,
0x0943ec…094580 Dummy {f00=0x00fe, f01=0x0190, f02=»OF T:ATAB , r P XIF - P IFT CREDIT+MMUPAG=2 - ( P EL* A7,T:ATOD,A13 GET T:ATAB LENGTH - : * P SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE - f P XIF - P IFF CREDIT=0 - 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE - P ADK A7,1 - P ANKL A7,/FF
0x094580…094714 (0, 188) Dummy {f00=0x00fe, f01=0x0190, f02=»2,A2 - 4 P ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY . P IFT CREDIT+MMUPAG=2 . D & P* CREATE SYSLDA & DDIV MM-TABLE * . ` P . " P LDR A2,A7 TO-ADDRESS (SYSLDA) . P ANKL A2,/F000 FIRST PAGE . ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE . " P S
0x094714…0948a8 Dummy {f00=0x00fe, f01=0x0190, f02=» ( PSYA157 STR A2,A11 STORE PAGE-POINTER / P ADKL A11,2 NEXT ENTRY / 0 P ADKL A2,/400 PAGE INCREMENT / N P SUK A3,1 ALL? / r P RB(NZ) SYA157 NO! / ( P ANKL A7,/FFF GET DISPLACEM. IN PAGE / P XIF / P IFF CREDIT=0 / 0 P ST A7,SAVE12,A13 SAVE (
0x0948a8…094a3c Dummy {f00=0x00fe, f01=0x0190, f02=» / $ P* CALCULATE DDIV FROM-ADDRESS * 0 P 0 2 P LD A1,SCTLAC GET S:GTAB 0 : * P ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS 0 Z & P ST A9,SCTLAC SAVE START OF P:MTAB 0 P IFT CREDIT-MMUPAG=1 0 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 0 P XIF 0 P I
0x094a3c…094bd0 Dummy {f00=0x00fe, f01=0x0190, f02=»ORD LENGTH 0 p P CALL MULT 1 P ADR A1,A3 1 $ & P ADK A1,NUMSEG+2 => START OF DDIV 1 6 2 P LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT 1 ` 0 P ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE 1 P IFT CREDIT+MMUPAG=2 1 P 1 . P ST A1,SAVE04,A13 SAVE DDI
0x094bd0…094d64 Dummy {f00=0x00fe, f01=0x0190, f02=»0 1 " P SUR A6,A1 RELOCATION FOR DDIV 2 P EJECT 2 0 P 2 > P 2 F P 2 R 0 P* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * 2 ^ . P* CALCULATE TOTAL (=REAL) LENGTH * 2 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 2 . P* A9=P:MTAB A6=M
0x094d64…094ef8 Dummy {f00=0x00fe, f01=0x018e, f02=»S 2 ~ P 3 ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS 3 P LDR* A3,A8 GET LENGTH 3 > P ADR A3,A8 END OF T:ATAB 3 P ST A3,ENDADD,A13 SAVE 3 | 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB 3 P LDR A4,A5 2:ND POINTER 3 & P LDR A2,A8 2:ND POINTER IN
0x094ef8…09508c Dummy {f00=0x00fe, f01=0x018e, f02=» P 4 " PSYA160 ADKL A8,2 TAKE NEXT T:A 4 $ P ADK A5,2 NEXT T:A IN SHADOW-TAB 4 2 P CW A8,ENDADD,A13 4 Z P RF(E) SYA170 ALL DONE 4 t P LDR* A1,A8 GET T:A 4 * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB 4 , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! 4
0x09508c…095220 Dummy {f00=0x00fe, f01=0x0190, f02=» ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS 5 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 5 0 P LDR* A10,A8 GET T:A-ADDRESS 5 l P ADR A10,A6 RELOCATE 5 . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) 5 P* RELOCATE W.B.-ADDRESSES 5 P 5 $ P
0x095220…0953b4 (0, 189) Dummy {f00=0x00ff, f01=0x0190, f02=» SUK A7,1 DEC. COUNTER 5 P RB(N) SYA160 TAKE NEXT T:A 6 P ADRS A6,A1 RELOCATE 6 B P XIF 6 ^ P IFT CREDIT+MMUPAG=2 6 j P 6 P* INITIATE POINTERS 6 P 6 P LD A8,T:ATOD,A13 T:ATAB 6 P ELR A3,A8 GET LENGTH 6 P ADR A3,A8 END OF T:ATAB
0x0953b4…095548 Dummy {f00=0x00ff, f01=0x0190, f02=»D POINTER IN T:ATAB 6 & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 7 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 7 F P 7 x P* SCAN T:ATAB: 7 P 7 " PSYA160 ADKL A8,2 TAKE NEXT T:A 7 $ P ADK A5,2 NEXT T:A IN SHADOW-TAB 7 P CW A8,ENDADD,A13 7 P R
0x095548…0956dc Dummy {f00=0x00ff, f01=0x018e, f02=»!!! 7 l " P ADR A11,A7 ACCUMULATE LENGTH 8 , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH 8 2 , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS 8 b ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS 8 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 8 P ELR A10,A8 GE
0x0956dc…095870 Dummy {f00=0x00ff, f01=0x0190, f02=» 8 $ P EL A12,T:DAD,A1 GET T:D-ADDRESS 9 $ P EL A7,WATLEN,A12 LENGTH OF WAT 9 0 . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS 9 X PSYA165 SUK A7,1 DEC. COUNTER 9 P RB(N) SYA160 TAKE NEXT T:A 9 P ELR A10,A1 GET ADDRESS 9 P ADR A10,A6 RELOCATE 9
0x095870…095a04 Dummy {f00=0x00ff, f01=0x0190, f02=»T A6,MOVADD,A13 SAVE 9 8 P ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB : P IFT CREDIT+MMUPAG=2 : X $ P ES* A3,T:ATOD,A13 AND IN T:ATAB : t P XIF : P IFT CREDIT-MMUPAG=1 : $ P ST* A3,T:ATOD,A13 AND IN T:ATAB : P XIF : P IFF CREDIT=0 :
0x095a04…095b98 Dummy {f00=0x00ff, f01=0x018e, f02=»3 SAVE TOT. NUMBER OF T:A'S : P ; $ P EJECT ; 0 " P****************************** ; > $ P* RELOCATE ADDRESSES IN U:BTAB * ; d $ P* (REAL LENGTH=PROTOTYPE LEN.) * ; $ P******************************** ; P ; P IFT CREDIT-MMUPAG=1 ; $ P LD A5,U
0x095b98…095d2c Dummy {f00=0x00ff, f01=0x018e, f02=» ; ~ " PSYA180 RF(Z) SYA185 ALL DONE! < P ADRS A6,A5 RELOCATE < . P XIF < J P IFT CREDIT+MMUPAG=2 < V $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS < r P ELR A3,A5 TABLE LENGTH < , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB < P ADK A5,2 < P SUK A3,2 SU
0x095d2c…095ec0 Dummy {f00=0x00ff, f01=0x0190, f02=» < P IFF CREDIT=0 = 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP = P SUK A3,UP:REC = Z P RB SYA180 = p P EJECT = PSYA185 EQU * = P IFT CREDIT+MMUSWB=3 = P* = $ P* COMPUTE REAL LENGTH OF S:BTAB = P* = $ P LD A5,S:BTO
0x095ec0…096054 (0, 190) Dummy {f00=0x00ff, f01=0x0190, f02=»F(Z) SYA199 ALL RECORDS SCANNED! = $ P EL A4,2,A5 GET PROT. W.B.-ADDR. > ( P ADR A4,A6 RELOCATE > P P ES A4,2,A5 STORE IT BACK > l , P EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES > P ANK A4,/FF GET RIGHT BYTE > . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYP
0x096054…0961e8 Dummy {f00=0x00ff, f01=0x0190, f02=»RD IN S:BTAB PROTOTYPE > r $ P SUK A3,UP:REC DECREMENT LENGTH ? P RB SYA190 ? F P XIF ? X P IFT CREDIT+SWBMMU=2 ? d $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS ? * P LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE ? P LDR A2,A3 SAVE ? " P SUK A3,2 EXCLUDE LENGTH W
0x0961e8…09637c Dummy {f00=0x00ff, f01=0x0190, f02=»,A5 STORE IT BACK ? , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES @ P ANK A4,/FF @ J . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! @ ^ P ADK A2,2 INCREMENT LENGTH @ ( P SUK A4,1 DECREMENT NUMBER OF COPIES @ P RB SYA196 @ 8 PSYA198 ADK A5,UP:REC NEX
0x09637c…096510 Dummy {f00=0x00ff, f01=0x0190, f02=»A199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH @ P XIF A 2 P IFT CREDIT=1 A > P EJECT A T P A b 6 P* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB A j P A P ADS A6,T:ATOD,A13 A P ADS A6,U:BTOD,A13 A P IFT CREDIT+SWPBLK=2 A P ADS A6,
0x096510…0966a4 Dummy {f00=0x00ff, f01=0x0190, f02=»D-START A | $ P AD A5,SAVE12,A13 ADD NEW START B P ST A5,DATEND,A13 SAVE B 8 P XIF B V P IFT CREDIT+MMUPAG=2 B b P B ~ P B P* STORE MMTABLE ADDRESSES B P B P LDK A4,MMDDIV B " P ADR A4,A13 GET TABLE ADDRESS B & P LDR A5,A13 CALC. RE
0x0966a4…096838 Dummy {f00=0x00ff, f01=0x0190, f02=»DK A4,MMTAB B $ P ADR A4,A13 'WORK-TABLE' ADDRESS C P SUR A4,A5 RELOCATE C < P ST A4,MMFROM,A13 C X P* CALCULATE DDIV END C r P C P LDR A5,A9 DDIV END C P SU A5,SAVE04,A13 ENT-START C $ P AD A5,SAVE12,A13 ADD NEW START C P LDR A6,A5
0x096838…0969cc Dummy {f00=0x00ff, f01=0x0190, f02=»DRESS C l P ADR A6,A13 RELOCATE D & P LDR* A6,A6 GET MM-TABLE CONTENTS D * P ST A6,FSTPAG,A13 SAVE D T " P ANKL A5,/FFF GET DISPLACEMENT D r P ST A5,FSTADR,A13 AND SAVE D P XIF D P IFF CREDIT=0 D P* CONTINUE IN PART 2 * D P D . P L
0x0969cc…096b60 Dummy {f00=0x00ff, f01=0x0190, f02=»EXECUTION START ADDRESS D | P ADR A7,A2 E " P LDKL A3,LENGT2 SYSLDA LENGTH E 2 P LDR A1,A13 FROM-ADDRESS E X P E x P* MOVE SYSLDA * E P E P IFT CREDIT-MMUPAG=1 E PNXTMOV LDR* A4,A1 GET WORD E P STR A4,A2 STORE WORD E P ADK A1,2 E
0x096b60…096cf4 (0, 191) Dummy {f00=0x00ff, f01=0x40e4, f02=» E P IFF CREDIT=0 F P F * P ABR A7 HEJ SVEJS! VI SES I PART 2... F & P XIF F T P IFT CREDIT=0 F ` P LDKL A1,LMP9 F v $ P CALL ERROR INCONSISTENT MONITOR F P XIF F PLDAEND EQU * F P END F @ F
0x096cf4…096e88 Dummy {f00=0x00ff, f01=0x2008, f02=» G -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x096e88…09701c Dummy {f00=0x00ff, f01=0x0190, f02=» PADD AD A3,MUL,A13 P SUK A2,1 " P RB(NZ) ADD 4 P LDR* A2,A14 H P RTN A14 P l P IFT MMUPAG=1 t P EJECT P 4 P** M M E N T ** 4 P** **
0x09701c…0971b0 Dummy {f00=0x00ff, f01=0x0190, f02=»RESS. NOT USED ENTRY=0. ** 4 P** ** ( 4 P** INPUT :A3=MM-TABLE ADDRESS ** ` 4 P** OUTPUT:A3=ENTRY ADDRESS ** 4 P** A9=TTAB-ADDRESS ** 4 P
0x0971b0…097344 Dummy {f00=0x00ff, f01=0x018e, f02=»*********************** x P PMMENT EQU * ( P LDR A9,A3 GET TABLE ADDRESS < 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) ` P SUK A3,2 & PMMEN10 ADK A3,2 INCREMENT ADDRESS ( P LDR* A1,A3 GET CONTENTS OF MM-TABLE P ANKL
0x097344…0974d8 Dummy {f00=0x00ff, f01=0x0190, f02=» P IFF CREDIT=0 P EJECT P , 2 P** G E T T A B ** 4 2 P** ** j 2 P** ** 2 P** FIND TTAB ADDRESS **
0x0974d8…09766c Dummy {f00=0x00ff, f01=0x0190, f02=»SS ** x 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** T 2 P********************************************** P PGETTAB EQU * P XIF P IFT MMUPAG=0 P LDR* A10,
0x09766c…097800 Dummy {f00=0x00ff, f01=0x0190, f02=» ELR A10,A8 T:A-ADDRESS P EL A1,T:ATID,A10 GET TID P EL A12,T:DAD,A10 B P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID h $ P LD A4,SCTTCT GET TC:TAB ADDRESS P LDR* A3,A4 TCTAB LENGTH PGETT10 ADK A4,2 P SUK A3,2 ALL? P
0x097800…097994 (0, 192) Opaque[0x194]
0x097994…097b28 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ff8, f03=0x0000}
0x097994…097b28 IdxSect {
0x097994…097b28 f00 = 0x00ff // 0x97994 @0x0
0x097994…097b28 f01 = 0x000c // 0x97996 @0x2
0x097994…097b28 gno = [ // 0x97998 @0x4
0x097994…097b28 [0x00]: C0x00ff.0x3.0
0x097994…097b28 [0x01]: C0x0100.0x0.0
0x097994…097b28 [0x02]: C0x0100.0x1.0
0x097994…097b28 [0x03]: C0x0100.0x2.0
0x097994…097b28 [0x04]: C0x0100.0x3.0
0x097994…097b28 [0x05]: C0x0101.0x0.0
0x097994…097b28 ]
0x097994…097b28 }
0x097b28…097cbc Dummy {f00=0x00ff, f01=0x018e, f02=» 2 P IDENT LDTASK REL 9.2 79-12-06 870105040920 P : ( P =2, DEVICE TABLE LENGTH DATA WORD B P REL 9.2 79-11-16 n " P =1, QLTASK RETURN IN ENABLE P REL 9.1 79-05-23 P* 6 P**************************************************
0x097cbc…097e50 Dummy {f00=0x00ff, f01=0x018e, f02=» 6 P************************************************** P* > P* H * P* THIS MODULE CONTAINS THE LOAD TASK R 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* & P* IT CONTAINS TWO ENTRY POINTS: P* . P* - LT:DSK USED IN
0x097e50…097fe4 Dummy {f00=0x00ff, f01=0x0190, f02=» P* P*********** P* ENTRIES * & P*********** : P* N P* X $ P ENTRY LT:DSK DISC PAGING ENTRY b , P ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:
0x097fe4…098178 Dummy {f00=0x00ff, f01=0x0190, f02=» P* P************* P* EXTERNALS * ( P************* > P* T P* ^ " P EXTRN TLDS15 ENTRY IN TLDSEG h " P EXTRN TLDS20 ENTRY IN TLDSEG " P EXTRN MEXIT MONITOR TASK EXIT 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERR
0x098178…09830c Dummy {f00=0x00ff, f01=0x0190, f02=» PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS $ ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS F & P EXTRN SEG:DS DISC SECTOR ADDRESS r P EXTRN SEG:EL SEGMENT LENGTH $ P EXTRN SEG:PB PAGE BLOCK ADDRESS 4 P EXTRN SWB:DS DISC SECTOR ADDRES
0x09830c…0984a0 Dummy {f00=0x00ff, f01=0x0190, f02=»S r P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD . P EXTRN TTB:SA TTAB SAVE AREA T P EXTRN TTB:MT MMU TABLE x ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EXTRN SCTPSZ PAGE SIZE
0x0984a0…098634 (0, 193) Dummy {f00=0x0100, f01=0x0190, f02=» . P***************************************** P* 6 P* CONDITIONAL ASSEMBLY @ P* ^ . P***************************************** h P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P*
0x098634…0987c8 Dummy {f00=0x0100, f01=0x018e, f02=»852 EQU 0. p P* PCPU852 EQU 1 P* 0 P* : 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK D 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. ~ P* PSWPBLK EQU 0 P* * 4 P* A PROGRAM VERSION USING TOSS ASS
0x0987c8…09895c Dummy {f00=0x0100, f01=0x018e, f02=» " P* LDTASK ECB AND BUFFER AREAS P* . 4 PLD:ECB DATA 0,0,410,0,0,0 ECB AREA FOR LOAD TASK 8 P* p 4 PLD:BUF RES 205 INTERMEDIATE BUFFER FOR LOAD TASK z P* & P RES 2 LOAD TASK STACK (ONE LEVEL) ( PLD:STB EQU *-2 LOAD TASK STACK BAS
0x09895c…098af0 Dummy {f00=0x0100, f01=0x0190, f02=» t P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE ( P XIF H P* T " P DATA 0 SEGMENT BLOCK ADDRESS ^ P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRI
0x098af0…098c84 Dummy {f00=0x0100, f01=0x0190, f02=»0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,0 0 " P DATA 2 DEVICE TABLE LENGTH =2 L P* r P EJECT LDTASK | P* P* P********** P* LT:DSK * P********** P* P* D P* LT:DSK PERFORMS LO
0x098c84…098e18 Dummy {f00=0x0100, f01=0x0190, f02=»OF CALLING TASK r P* P* " * PLT:DSK EQU * LDTASK DISC PAGING ENTRY , 4 P LD A13,TTB:SA+26,A3 GET A13 FROM TTAB SAVE AREA Z , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS " P LDR* A2,A1 GET SEGMENT STATUS . P RF(NN) LTD:05 SEGMENT NOT LOADE
0x098e18…098fac Dummy {f00=0x0100, f01=0x0190, f02=»A3 SAVE A3 P LDR A5,A3 , P LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS $ P CF A15,TLDS15 T 0 P LDR A5,A7 GET TTAB ADDRESS OF CALLING TASK j P ABL LTD:80 P* P EJECT LDTASK P* 6 P* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RE
0x098fac…099140 Dummy {f00=0x0100, f01=0x0190, f02=» LKM P DATA 5 PAUSE LDTASK P* ( P* GET ONE PAGE FROM PAGQUE 2 P* T PLTD:05 EQU * ^ P LD A2,PAGQUE+2 r P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAILABLE? P* P EJECT LDTASK P* $ P* TAKE FOUND PAGE OU
0x099140…0992d4 (0, 194) Dummy {f00=0x0100, f01=0x0190, f02=»A2 GET PAGQUE ADDRESS AND UPDATE... 4 P STR A12,A4 ...QUEUE LINK FORWARD FOR NEXT BLOCK , 4 P CMR A2 RESET QUEUE LINK FORWARD OF REMOVED BLK d , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT 2 P LD A4,PAG:SB,A2 GET OLD SEGMENT BLOCK ADDRESS P RF(Z)
0x0992d4…099468 Dummy {f00=0x0100, f01=0x0190, f02=»EG:PB,A1 SET NEW PAGE BLOCK ADDRESS 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS , P* b P IFT MMUPAG=1 l P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* P INH 2 P MS 3,TTB:SA+2,A5 SAVE A1-A3 IN TTAB SAVE AREA
0x099468…0995fc Dummy {f00=0x0100, f01=0x0190, f02=»ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 STORE NEW MMU TABLE FOR CALLING TASK L P ENB P XIF P* P EJECT LDTASK P* $ P* PREPARE FOR READING OF SEGMENT P* ( P LD A6,SEG:E
0x0995fc…099790 Dummy {f00=0x0100, f01=0x0190, f02=»O WORDS v 0 P LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK 0 P LD A3,PAG:PA,A2 GET PAGE ADDRESS (PHYSICAL) D . P LD A2,SEG:DS,A1 GET SEGMENT DISC ADDRESS x * P LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS 0 P LDR A11,A5 INDICATE DISC PAGING (A11 <> 0)
0x099790…099924 Dummy {f00=0x0100, f01=0x0190, f02=»BY LT:SWB x P LDK A7,/91 PHYSICAL READ P* 4 P* SET ECB PARAMETERS > P* Z & PLTD:40 EQU * ENTRY USED BY LT:SWB d , P LDKL A14,LD:STB LOAD LDTASK STACK BASE & P LDKL A8,LD:ECB GET LD:ECB ADDRESS P ST A2,ECBCW,A8 P*
0x099924…099ab8 Dummy {f00=0x0100, f01=0x0190, f02=»CBBA,A8 SET BUFFER ADDRESS P RF LTD:60 " P XIF 4 P* @ P EJECT LDTASK J P* b P* l P IFT ASSOLY=1 v , P LD A2,SCTPLD GET PROGRAM DISC FILE CODE P STR A2,A8 . P LDKL A1,LD:BUF GET LDTASK BUFFER ADDRESS P ST A1,E
0x099ab8…099c4c Dummy {f00=0x0100, f01=0x0190, f02=» A11,A11 CHECK DISC PAGING/SWB FLAG ( P RF(NZ) LTD:43 DISC PAGING REQUEST? , P* X P EJECT LDTASK b P* z P* , P LDR A12,A3 SAVE LOGICAL BUFFER ADDRESS 2 P ECR A2,A3 CONVERT LOGICAL ADDRESS TO PHYSICAL P ANKL A3,/FFF
0x099c4c…099de0 Dummy {f00=0x0100, f01=0x0190, f02=»RESS j P SRL A2,2 P ECR A1,A2 P ANK A2,/0F 0 P SRC A2,4 D P ORR A3,A2 V P RF(NZ) LTD:48 h P SUKL A1,/1000 ~ P RF LTD:48 P* PLTD:43 EQU * P XIF P* P IFT MMUPAG=1 P LDR A1,A3 P SRL A
0x099de0…099f74 (0, 195) Dummy {f00=0x0100, f01=0x0190, f02=»QU * P LDR A12,A3 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP Z P* p PLTD:48 EQU * z P SUK A3,2 & P ST A3,ECBBA,A8 SET BUFFER ADDRESS P ANKL A1,/3000 , P OR A1,SCTPLD GET PROGRAM DISC FILE CODE
0x099f74…09a108 Dummy {f00=0x0100, f01=0x0190, f02=» P* $ P* MOVE FIRST SECTOR TO PAGE AREA P* 6 P LDKL A1,LD:BUF+2 @ P LDR A2,A12 Z P LDKL A3,376 n & P MVSU A3 MOVE FIRST SECTOR TO PAGE P SUKL A12,2 P XIF P* P EJECT LDTASK P* P* PLTD:50
0x09a108…09a29c Dummy {f00=0x0100, f01=0x0190, f02=»SSOLY=1 P LDK A1,188 P XIF $ P* 0 2 P SUR A6,A1 GET REMAINING LENGTH OF SEGMENT/SWB : 2 P RF(NP) LTD:75 SEGMENT/SWB HANDLING FINISHED? p , P SUR A4,A1 GET REMAINING LENGTH OF PAGE P ADR A1,A1 ( P ADR A12,A1 UPDATE PAGE AREA POI
0x09a29c…09a430 Dummy {f00=0x0100, f01=0x0190, f02=»FFER ADDRESS v P RF LTD:60 P* & PLTD:55 EQU * 0 * P ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS D P RF(N) LTD:60 NOT OVERFLOW? r & P LDKL A1,/1000 OVERFLOW CORRECTION P ADRS A1,A8 P XIF P* P IFT MMUPAG=0 * P ADS A1,
0x09a430…09a5c4 Dummy {f00=0x0100, f01=0x0190, f02=»CHECK REMAINING LENGTH OF PAGE 8 P RF(L) LTD:65 NOT ROOM FOR ONE MORE SECTOR IN PAGE? & P* b P IFT MMUPAG=1 l : P ELR A10,A12 SAVE WORD TO BE DESTROYED BY DISC CYL-ID ( P CF A14,LTD:85 READ/WRITE ONE SECTOR $ P ESR A10,A12 RESTORE SAVED W
0x09a5c4…09a758 Dummy {f00=0x0100, f01=0x0190, f02=» CF A14,LTD:85 READ/WRITE ONE SECTOR $ P STR A10,A12 RESTORE SAVED WORD , P RB LTD:50 T P XIF f P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x09a758…09a8ec Dummy {f00=0x0100, f01=0x0190, f02=»ATE BUFFER NOW IN SYSTEM AREA , P CF A14,LTD:85 READ ONE SECTOR TO LD:BUF & P ADK A1,2 SKIP CYLINDER ID V P LDR A2,A12 GET PAGE POINTER x P ADK A2,2 & P ADR A6,A6 CONVERT LENGTH TO BYTES P* P IFT MMUPAG=1 2 P MVSU A6 MOVE LA
0x09a8ec…09aa80 Dummy {f00=0x0100, f01=0x0190, f02=» STR A10,A2 ( P ADK A1,2 INCREMENT BUFFER POINTERS P ADK A2,2 @ P SUK A6,2 DECREMENT COUNTER R P RB(P) LTD:70 v P XIF P* P EJECT LDTASK P* P* PLTD:75 EQU * P IFT SWPBLK=1 , P LDR A11,A11 CHE
0x09aa80…09ac14 (0, 196) Dummy {f00=0x0100, f01=0x0190, f02=»OADED b P XRRS A4,A9 P* " PLTD:80 EQU * , , P CF A15,QTJOB QUEUE TASK FOR DISPATCHING @ & P ABL MEXIT PERFORM EXIT ON LDTASK p P* P EJECT LDTASK P* P* READ ONE SECTOR FROM DISC P* PLTD:85 EQU * P
0x09ac14…09ada8 Dummy {f00=0x0100, f01=0x0190, f02=» P RTN A14 NO, RETURN P* ( P* ERROR: INSERT PAGE IN PAGQUE AGAIN * P* V PLTD:95 ANK A2,1 ` P NGR A2,A2 x . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 P* P IFT SWPBLK=1
0x09ada8…09af3c Dummy {f00=0x0100, f01=0x0190, f02=»ENT BLOCK ADDRESS x , P LD A3,SEG:PB,A9 GET PAGE BLOCK ADDRESS & P LDKL A4,PAGQUE GET PAGQUE ADDRESS J P ST A4,PAG:QB,A3 t 4 P LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE " P STR A4,A3 UPDATE QUEUE LINKS P ST A3,PAGQUE P ST A3,P
0x09af3c…09b0d0 Dummy {f00=0x0100, f01=0x0190, f02=»* P********** ! P* QLTDSK * ! P* QLTSWB * ! . P********** ! @ P* ! R P* ! : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. ! f P* ! : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. ! B P* ACTIVATION IS AT LT:SWB
0x09b0d0…09b264 Dummy {f00=0x0100, f01=0x0190, f02=»LOCK ADDRESS (LT:SWB) ! t 2 P* A3 = TTAB ADDRESS OF CALLING TASK " P* " T $ P* OUTPUT: A2, A5 ARE DESTROYED " ^ P* " P* " 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB " ( P LDKL A2,LT:SWB GET DISPATCH ADDRESS " P RF QLTASK "
0x09b264…09b3f8 Dummy {f00=0x0100, f01=0x0190, f02=» , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS # " P ABL ACTOT ACTIVATE LDTASK =1 # 4 P* # Z P EJECT LDTASK # d P* # | P* # P IFT SWPBLK=1 # P* # P* # P********** # P* LT:SWB * # P********** # P* # P* # D P*
0x09b3f8…09b58c Dummy {f00=0x0100, f01=0x018e, f02=» A3 = TTAB ADDRESS OF CALLING TASK # P* $ 2 P* $ < * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY $ F P IFT MMUPAG=1 $ t P INH $ , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS $ , P TL TTB:MT,A3 LOAD MMU WITH CALLING TASK $ , P TS TTB:MT,A5 STOR
0x09b58c…09b720 Dummy {f00=0x0100, f01=0x0190, f02=» 0 P LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK % 4 P LD A3,TTB:SA+16,A5 GET MEMORY ADDRESS (LOGICAL) % 8 4 P LD A4,SWB:DS,A1 GET DISC ADDRESS OF FIRST COPY % p 0 P LD A6,SWB:EL,A1 GET SWB COPY LENGTH (BYTES) % 2 P LD A2,SWB:NS,A1 GET SWB COPY LENGTH (SECTOR
0x09b720…09b8b4 (0, 197) Dummy {f00=0x0101, f01=0x018e, f02=»* % P* & PLTS:10 EQU * & P SUK A1,1 & ( P* & : P IFT CPU852=1 & D P RF(NP) LTS:20 & Z 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB & p P RB LTS:10 & P* & PLTS:20 EQU * & 0 P LDR A2,A4 GET DISC ADDRESS OF REQUESTED SWB &
0x09b8b4…09ba48 Dummy {f00=0x0101, f01=0x0190, f02=» & P XIF ' P* ' P IFT SWPBLK=1 ' P ADK A6,1 ' 4 * P SRL A6,1 CONVERT SWB LENGTH TO WORDS ' F P LDR A4,A6 ' t . P ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ' $ P ABL(Z) LTD:35 LOAD SWB REQUEST? ' : P LDKL A4,/7FFF PARAMETER TO AVOID INTERM
0x09ba48…09bbdc Dummy {f00=0x0101, f01=0x406e, f02=» , PLT:SWB ABL LKMERR INDICATE SYSGEN ERROR ( P XIF ( 4 P* ( @ P* ( J P* ( T END ( ^@ ( j F P LDR A4,A6 ' t . P ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ' $ P ABL(Z) LTD:35 LOAD SWB REQUEST? ' : P LDKL A4,/7FFF PARAMETER TO AVOID INTERM
0x09bbdc…09bd70 Dummy {f00=0x0101, f01=0x2008, f02=» ) NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x09bd70…09bf04 Dummy {f00=0x0101, f01=0x0190, f02=»ARAMETER ) p P RF TIOQ20 * P* * " & PATT:80 LDK A3,/40 SET TIME OUT BIT * , P RF TIOERR RETURN * V P* * p P EJECT TOSSIO * z P* * P* * P********** * P* DETACH * * P********** * P* * * P* THIS MODULE IS CALLED FROM TIO W
0x09bf04…09c098 Dummy {f00=0x0101, f01=0x018e, f02=»E ERROR? * r P TM A10,A13 + P RF(Z) TIOERR NOT ATTACHED? + $ P CW A5,DWTTAB,A6 + H * P RF(NE) TIOERR ATTACHED TO OTHER TASK? + ` P XRS A10,DWTST,A6 DETACH + P CWK A12,TIODM + " P RF(NE) DET:05 NO DM REQUEST? + ( P CF A15,FDBDET DETACH FILE STR
0x09c098…09c22c Dummy {f00=0x0101, f01=0x0190, f02=» P* , 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT , PDETRTN LDK A3,0 RETURN CODE , D P XIF , h P* , t P EJECT TOSSIO , ~ P* , P* , P********** , P* TIOERR * , P********** , P* , P* ERROR: FILE CODE UNKNOWN ,
0x09c22c…09c3c0 Dummy {f00=0x0101, f01=0x0190, f02=» , * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB - P XIF - 6 P* - B P IFT MMUPAG=1 - L * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB - b P XIF - P* - PTIORTN EQU * - ( P ABL LKMQDI QUEUE TASK AND DISPATCH - P* - P EJECT TOSSIO - P
0x09c3c0…09c554 (0, 198) Opaque[0x194]
0x09c554…09c6e8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c18, f03=0x0000}
0x09c554…09c6e8 IdxSect {
0x09c554…09c6e8 f00 = 0x00e0 // 0x9c554 @0x0
0x09c554…09c6e8 f01 = 0x0002 // 0x9c556 @0x2
0x09c554…09c6e8 gno = [ // 0x9c558 @0x4
0x09c554…09c6e8 [0x00]: C0x00e0.0x3.0
0x09c554…09c6e8 ]
0x09c554…09c6e8 }
0x09c6e8…09c87c Dummy {f00=0x00e0, f01=0x018e, f02=» 0 P IDENT PFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x09c87c…09ca10 Dummy {f00=0x00e0, f01=0x0190, f02=» P* P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-05012 . P EXTRN DUON DISC UNIT N 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION l $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TCDRON P DATA SOPR P DATA CHLTON P*
0x09ca10…09cba4 Dummy {f00=0x00e0, f01=0x401e, f02=» P* P END @ PRINTER P EXTRN LPON JOS 77-05012 . P EXTRN DUON DISC UNIT N 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION l $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TCDRON P DATA SOPR P DATA CHLTON P*
0x09cba4…09cd38 Dummy {f00=0x00e0, f01=0x2008, f02=» TON LOCAL/REMOTE TERMINALS P* * P EXTRN DUON DISC UNIT 4 " P EXTRN MTON MAGNETIC YAPE UNIT R P* x P* $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA TCDRON P DATA SOPR P DATA DRDCON P DATA
0x09cd38…09cecc Dummy {f00=0x00e0, f01=0x0190, f02=»ANGER NO. 1 x ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 @ * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 l * P EXTRN CHLT2 LOCAL CHANNEL UNIT NO. 2 P EXTRN CHLT3 P EXTRN CHLT4 P EXTRN IHFD FLOPPY DISCE
0x09cecc…09d060 Dummy {f00=0x00e0, f01=0x018e, f02=» 2 v P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT ( P EXTRN HALT HALT ROUTINE P P EXTRN BUG DEBUGGER p P EXTRN IHINPT PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD
0x09d060…09d1f4 (0, 199) Opaque[0x194]
0x09d1f4…09d388 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2450, f03=0x0000}
0x09d1f4…09d388 IdxSect {
0x09d1f4…09d388 f00 = 0x0122 // 0x9d1f4 @0x0
0x09d1f4…09d388 f01 = 0x0002 // 0x9d1f6 @0x2
0x09d1f4…09d388 gno = [ // 0x9d1f8 @0x4
0x09d1f4…09d388 [0x00]: C0x0122.0x2.0
0x09d1f4…09d388 ]
0x09d1f4…09d388 }
0x09d388…09d51c Dummy {f00=0x0122, f01=0x0190, f02=» 0 P IDENT LKMAL REL 9.2 79-11-16 870105040920 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x09d51c…09d6b0 Dummy {f00=0x0122, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l P EXTRN TABORT ABORT FUNCTION $ P EXTRN SETTIM SET MONITOR CLOCK 4 P EXTRN GETTIM GET CURRENT VALUE OF MONITOR C
0x09d6b0…09d844 Dummy {f00=0x0122, f01=0x0190, f02=»TH r P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT ( P DATA TEXIT TERMINAL EXIT J ( P DATA TACTOT ACTIVATE OTHER TERMINAL l P DATA TPAUSE TERMINAL PAUSE P DATA TIMER TIMER P DATA TMWAIT MULTIPLE WAIT P DATA
0x09d844…09d9d8 Dummy {f00=0x0122, f01=0x40ca, f02=»F MONITOR CLOCK p " P DATA SETTIM SET MONITOR CLOCK P DATA 0 > * P DATA TASS ASSIGN FILE CODE AND INDEX Z P DATA IXTASS PLKMALE EQU * P* P END @ MER P DATA TMWAIT MULTIPLE WAIT P DATA
0x09d9d8…09db6c Dummy {f00=0x0122, f01=0x2008, f02=» f " P DATA SETTIM SET MONITOR CLOCK PLKMALE EQU * 4 P* H P END R@ ^INAL EXIT R ( P DATA TACTOT ACTIVATE OTHER TERMINAL t P DATA TPAUSE TERMINAL PAUSE P DATA TIMER TIMER P DATA GETBUF GET BUFFER P DATA RELB
0x09db6c…09dd00 Dummy {f00=0x0122, f01=0x0000, f02=»
0x09dd00…09de94 (0, 200) Opaque[0x194]
0x09de94…09e028 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2050, f03=0x0000}
0x09de94…09e028 IdxSect {
0x09de94…09e028 f00 = 0x0102 // 0x9de94 @0x0
0x09de94…09e028 f01 = 0x0002 // 0x9de96 @0x2
0x09de94…09e028 gno = [ // 0x9de98 @0x4
0x09de94…09e028 [0x00]: C0x0102.0x2.0
0x09de94…09e028 ]
0x09de94…09e028 }
0x09e028…09e1bc Dummy {f00=0x0102, f01=0x0190, f02=» 0 P IDENT CTABX REL 9.2 79-11-16 870105040920 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x09e1bc…09e350 Dummy {f00=0x0102, f01=0x4142, f02=» 5 ( PC6 EQU 0 6 " ( PC7 EQU 0 7 N P* z P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x09e350…09e4e4 Dummy {f00=0x0102, f01=0x2008, f02=» C7 EQU 0 7 * 4 * > * H CTABX DATA C1 R DATA C2 h DATA C2 x DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END @
0x09e4e4…09e678 Dummy {f00=0x0102, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT
0x09e678…09e80c Dummy {f00=0x0102, f01=0x0190, f02=» DRFD01 P* P************* P* * 2 P* EXTERNALS * H P* * ^ P************* t P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR EXTRN DWTST STATUS
0x09e80c…09e9a0 Dummy {f00=0x0102, f01=0x0190, f02=»EA A5 | & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE 8 ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK d P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT SAVE AREA & P EXTRN INIFLG INITIALIZATION FLAG & P EXTRN T
0x09e9a0…09eb34 (0, 201) Opaque[0x194]
0x09eb34…09ecc8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22e8, f03=0x0000}
0x09eb34…09ecc8 IdxSect {
0x09eb34…09ecc8 f00 = 0x0117 // 0x9eb34 @0x0
0x09eb34…09ecc8 f01 = 0x0002 // 0x9eb36 @0x2
0x09eb34…09ecc8 gno = [ // 0x9eb38 @0x4
0x09eb34…09ecc8 [0x00]: C0x0117.0x1.0
0x09eb34…09ecc8 ]
0x09eb34…09ecc8 }
0x09ecc8…09ee5c Dummy {f00=0x0117, f01=0x0190, f02=» 0 P IDENT DVTKB REL 9.2 79-11-16 870105040920 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x09ee5c…09eff0 Dummy {f00=0x0117, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x09eff0…09f184 Dummy {f00=0x0117, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 6 P DATA ECH ECHO DEVICE T $ P DATA /BCA BACKSPACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x09f184…09f318 Dummy {f00=0x0117, f01=0x4060, f02=»ATA 0,0,0,0,0,0 P DATA P XIF & PDWTEND EQU * 2 P* F P END P@ HO DEVICE T $ P DATA /BCA BACKSPACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x09f318…09f4ac Dummy {f00=0x0117, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x09f4ac…09f640 Dummy {f00=0x0117, f01=0x0190, f02=»3,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 H ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF t ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/535
0x09f640…09f7d4 (0, 202) Opaque[0x194]
0x09f7d4…09f968 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2070, f03=0x0000}
0x09f7d4…09f968 IdxSect {
0x09f7d4…09f968 f00 = 0x0103 // 0x9f7d4 @0x0
0x09f7d4…09f968 f01 = 0x0002 // 0x9f7d6 @0x2
0x09f7d4…09f968 gno = [ // 0x9f7d8 @0x4
0x09f7d4…09f968 [0x00]: C0x0103.0x2.0
0x09f7d4…09f968 ]
0x09f7d4…09f968 }
0x09f968…09fafc Dummy {f00=0x0103, f01=0x0190, f02=» 0 P IDENT DVTGP REL 9.2 79-11-16 870105040920 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x09fafc…09fc90 Dummy {f00=0x0103, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA 'GP' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x09fc90…09fe24 Dummy {f00=0x0103, f01=0x40e8, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER * " P DATA 0 HEAD POSITIPN POINTER H P IFT MMUPAG=1 n PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU ECB ADD
0x09fe24…09ffb8 Dummy {f00=0x0103, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT
0x09ffb8…0a014c Dummy {f00=0x0103, f01=0x0190, f02=»A5,DSOPCH 3 P CMR A2 INDICATE NOT OPEN 4 P* 4 4 P* UNLOCK 4 > P* 4 R P XIF 4 PUNL:70 EQU * 4 h P LDK A2,/C UNLOCK 4 | P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6 4 P ANK A3,1 4 , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED 4 P
0x0a014c…0a02e0 Dummy {f00=0x0103, f01=0x0190, f02=»S+IBM=0 4 P* 5 P* UNLOAD RETURN CODE CHECK 5 P* 5 > PUNL:RC ORS A3,DWTRCW,A6 5 H P ANK A3,/7 FATAL ERROR? 5 h P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5 P IFT IBM=1 5 P EJECT DRFD01 5 P* 5 P*******************
0x0a02e0…0a0474 (0, 203) Opaque[0x194]
0x0a0474…0a0608 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x0a0474…0a0608 IdxSect {
0x0a0474…0a0608 f00 = 0x0104 // 0xa0474 @0x0
0x0a0474…0a0608 f01 = 0x0002 // 0xa0476 @0x2
0x0a0474…0a0608 gno = [ // 0xa0478 @0x4
0x0a0474…0a0608 [0x00]: C0x0104.0x0.0
0x0a0474…0a0608 ]
0x0a0474…0a0608 }
0x0a0608…0a079c Dummy {f00=0x0104, f01=0x0190, f02=» 0 P IDENT DVTDY REL 9.2 79-11-16 870105040920 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x0a079c…0a0930 Dummy {f00=0x0104, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x0a0930…0a0ac4 Dummy {f00=0x0104, f01=0x4150, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER ( P DATA /101 CURSOR POINTER F ( P DATA /ABC LEFT BYTE=NUMBER OF LINES h " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0
0x0a0ac4…0a0c58 Dummy {f00=0x0104, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x0a0c58…0a0dec Dummy {f00=0x0104, f01=0x0190, f02=» P LD A7,DWTOR,A6 L P ANK A7,/3F ORDER L P LD A8,DWTECB,A6 ECB ADDRESS L 6 P ABL FDAD REACTIVATE L Z P EJECT DRFD01 L v P* L P********************* L P* * L P* INTERRUPT HANDLER * L P* *
0x0a0dec…0a0f80 Dummy {f00=0x0104, f01=0x018e, f02=» L r P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M P XIF M L P* M X P IFT CPU852=0 M b " P MSR 8,A15 SAVE A1-A8 ON STACK M x P XIF M P* M P LDKL A6,DWFD01 DWT ADDRESS M P IFT CHAN=1 M P ENB M & P LD A1,DWTUB,A6
0x0a0f80…0a1114 (0, 204) Opaque[0x194]
0x0a1114…0a12a8 # DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2378, f03=0x0000}
0x0a1114…0a12a8 IdxSect {
0x0a1114…0a12a8 f00 = 0x011b // 0xa1114 @0x0
0x0a1114…0a12a8 f01 = 0x0012 // 0xa1116 @0x2
0x0a1114…0a12a8 gno = [ // 0xa1118 @0x4
0x0a1114…0a12a8 [0x00]: C0x011b.0x3.0
0x0a1114…0a12a8 [0x01]: C0x011c.0x0.0
0x0a1114…0a12a8 [0x02]: C0x011c.0x1.0
0x0a1114…0a12a8 [0x03]: C0x011c.0x2.0
0x0a1114…0a12a8 [0x04]: C0x011c.0x3.0
0x0a1114…0a12a8 [0x05]: C0x011d.0x0.0
0x0a1114…0a12a8 [0x06]: C0x011d.0x1.0
0x0a1114…0a12a8 [0x07]: C0x011d.0x2.0
0x0a1114…0a12a8 [0x08]: C0x011d.0x3.0
0x0a1114…0a12a8 ]
0x0a1114…0a12a8 }
0x0a12a8…0a143c Dummy {f00=0x011b, f01=0x018e, f02=» 2 P IDENT DRKB01 9.2DK 1 79-11-16 870105040920 P : P =DK1, TIME OUT =2400 B P 80-03-11 b P v P* ~ P* 0 P******************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DR
0x0a143c…0a15d0 Dummy {f00=0x011b, f01=0x0190, f02=» b P* P* 0 P* THIS DRIVER HANDLES INPUT FROM NUMERIC . P* AND ALPHANUMERIC KEYBOARDS PTS 6231, P ( P* 6232, 6233, 6234, 6331,AND 6342 , P* CONNECTED TO CPU VIA CHLT OR CHRT. P* , P* ONLY INPUT DATA FROM DEPRES
0x0a15d0…0a1764 Dummy {f00=0x011b, f01=0x018e, f02=»E RECEIVED CHARACTERS ARE ~ P* ECHOED. " P* 6 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: @ P* t " P* A C K B : ACTIVATION PART ~ P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER P*
0x0a1764…0a18f8 Dummy {f00=0x011b, f01=0x0190, f02=» P* P* ORDER 01: BASIC READ P* ORDER 02: STANDARD READ 0 P* ORDER 03: NUMERIC READ T & P* ORDER 04: RESET INPUT BUFFER x P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE &
0x0a18f8…0a1a8c Dummy {f00=0x011b, f01=0x0190, f02=» A5 : STACK BASE " P* A6 : DWT-ADDRESS P* A7 : ORDER @ " P* A8 : ECB-ADDRESS ` P* P EJECT P* P* P* SYSTEM ADAPTATION P* 4 P* KEYBOARD TYPE MUST BE DEFINED IN FIRST WO
0x0a1a8c…0a1c20 Dummy {f00=0x011b, f01=0x0190, f02=»= 0 FOR PTS 6231, 6233, 6234 0 P* BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 $ < P* BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 X & P* BIT 11 = 1 FOR PTS 6234,6342 P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P
0x0a1c20…0a1db4 (0, 205) Dummy {f00=0x011c, f01=0x0190, f02=» b P* DEFINED IN DWT. P* $ , P* IF TIMING IS WANTED, TIMER POINTER . , P* IN DWT MUST BE SET UNEQUAL TO ZERO. ^ 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANT
0x0a1db4…0a1f48 Dummy {f00=0x011c, f01=0x018e, f02=» 8 P* DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL @ P* DWT:S IN SYSTEM | P EJECT P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO EXCLUDE FROM THE DRI
0x0a1f48…0a20dc Dummy {f00=0x011c, f01=0x0190, f02=» r 2 P* -----CODE CONVERSION VIA "8-BIT" SETTING $ P* AND CONVERSION TABLES > 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO f 4 P* POSSIBLE TO GIVE A KEY THE MEANING OF TWO, P* THREE OR MORE ZEROES. P* 6 P* T
0x0a20dc…0a2270 Dummy {f00=0x011c, f01=0x018e, f02=»ED TO THE SAME p P* SELECTOR UNIT. 4 P* BY ASSEMBLING THE DRIVER CONDITIONALLY THIS 2 P* FUNCTION IS INCLUDED. j P EJECT P* P* P************** P* ENTRIES * P************** P* P ENTRY KBAD AD
0x0a2270…0a2404 Dummy {f00=0x011c, f01=0x0190, f02=» 2 P********************************************** 2 P* EXTERNAL TOSS MODULE ENTRIES * : 2 P********************************************** p P* $ P EXTRN DISIOE I/0 REQUEST ERROR . P EXTRN DISEND END I/O AND GO TO DISPATCHER
0x0a2404…0a2598 Dummy {f00=0x011c, f01=0x0190, f02=»RN STREG STORE REGISTERS AND GO TO DISPATCHER , P EXTRN LDREGE RETURN FROM ECHO HANDLING 6 P EXTRN LDREGF f P EXTRN SETIME SET TIME | P EXTRN SETIMP SET TIME " P EXTRN SAVE8 SAVE 8 REGISTERS " P EXTRN ECHRTN RETURN FROM ECHO P EXT
0x0a2598…0a272c Dummy {f00=0x011c, f01=0x0190, f02=»WT PARAMETERS * P************************* P* > P EXTRN DWTST STATUS H EXTRN DWTBC BYTE COUNTER d & " EXTRN DWTADR DRIVER ADDRESS BLOCK P EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AR
0x0a272c…0a28c0 Dummy {f00=0x011c, f01=0x0190, f02=»*************** P* CONSTANTS * P*************** 0 P* H * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER R P* . PX:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER 2 PDWTLNG EQU 10 NUMBER OF BYTES IN DECIMAL FORM P* P* TIME BE
0x0a28c0…0a2a54 (0, 206) Dummy {f00=0x011c, f01=0x0190, f02=»********************************** , P* CONDITIONAL ASSEMBLY * * , P**************************************** Z P* . P* TIME OUT FUNCTION MAY BE EXCLUDED BY P* SETTING X:A = 0. P* PX:A EQU 0 PCTIMUT E
0x0a2a54…0a2be8 Dummy {f00=0x011c, f01=0x0190, f02=»1 P* * P* STANDARD READ MAY BE EXCLUDED BY P* SETTING X:C = 0. B P* ` PX:C EQU 1 j PCSTAND EQU 1 | P* . P* DOUBLE ZERO MAY BE INCLUDED IN SYSTEM ( P* BY SETTING X:D = 2. SETTING X:D , P* = 3 GIVES A
0x0a2be8…0a2d7c Dummy {f00=0x011c, f01=0x0190, f02=» ` P* PX:D EQU 2 PCMULTZ EQU 2 $ P* 8 P EJECT B P* P 8 P* BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION Z ( P* CAN BE INCLUDED IN THE DRIVER. > P* IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2 @ P*
0x0a2d7c…0a2f10 Dummy {f00=0x011c, f01=0x018e, f02=» BE COMPLETED WITH CONTROL WORD SET TO -2. P* 4 PX:E EQU 0 > PPOWOFF EQU 1 P P** d P** n 4 P* BY SETTING X:G TO 1 THE CODE CONVERSION VIA x 2 P* "8-BIT" SETTING AND CONVERSION TABLES IS P* INCLUDED IN THE DRIVER.
0x0a2f10…0a30a4 Dummy {f00=0x011c, f01=0x0190, f02=» P* BY SETTING CREDIT = 1 0 P* ORDER /04 IS THEN REPLACED BY ORDER /31 & < P* BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS Z B P* IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE @ P* IS GIVEN INDEX =1, THE SECOND EOR-K
0x0a30a4…0a3238 Dummy {f00=0x011c, f01=0x0190, f02=»* P* P PCREDIT EQU 0 P* 0 4 P* BY SETTING NOLJE=1 THIS DRIVER IS PREPARED : 0 P* TO HANDLE THE NORWAY-CASE WITH BETWEEN r . P* THEMSELVES DEPENDENT KEYBOARDS ON THE P* SAME SELECTOR UNIT. P* PNOLJE
0x0a3238…0a33cc Dummy {f00=0x011c, f01=0x0190, f02=» EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P* P* MMU BUFFER SIZE P* P* PX:J EQU 10 PDVBLEN
0x0a33cc…0a3560 Dummy {f00=0x011c, f01=0x0190, f02=» EJECT P* P* P*************************** " P* DWT-DISPLACEMENT * F P*************************** j P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD
0x0a3560…0a36f4 (0, 207) Dummy {f00=0x011c, f01=0x0190, f02=» j 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE D & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE P* . P****************************************
0x0a36f4…0a3888 Dummy {f00=0x011c, f01=0x0190, f02=»/14 BACK-SPACE CHARACTER ( PKBCLR EQU START+/15 CLEAR CHARACTER & PKBEOF EQU START+/16 EOR-CHARACTER L , PKBMZ EQU START+/17 DOUBLE ZERO CHARACTER v P* P EJECT P* P* P************** P* TABLES * P**********
0x0a3888…0a3a1c Dummy {f00=0x011c, f01=0x0190, f02=» P DATA ACKB ACTIVATION DRIVER " P DATA 0 ABORT ROUTINE ADDRESS ( P DATA IHKB INTERRUPT HANDLER N P* r P IFF POWOFF=1 | P* P DATA 0 NO RECOVERY P* P XIF P* P* P IFT POWOFF=1 P* P DATA
0x0a3a1c…0a3bb0 Dummy {f00=0x011c, f01=0x0190, f02=»OARD f & P* ENTERED FROM CHLT/CHRT DRIVER P* 6 PRCKB EQU * @ P IFT CPU852=1 R & P CF A15,SAVE8 SAVE A1-A8 ON STACK h P XIF P* P IFT POWOFF=1 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x0a3bb0…0a3d44 Dummy {f00=0x011c, f01=0x0190, f02=»OFF OCCURED p P ABL TDISP & PRCKB10 CF A5,LDREGE LOAD REGISTERS & P RF AKB202 P P* b P XIF l P* x P EJECT P* P* P* A C K B P* P* ACTIVATION PART: P* 0 P* CHECKS VALIDITY OF ORDERS
0x0a3d44…0a3ed8 Dummy {f00=0x011c, f01=0x0190, f02=»L A1,/FEFF 2 P ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG P LDK A1,0 H P LDK A3,0 START BUFFER INDEX Z P LDR A4,A7 ~ " P RF(NG) AKB100 ILLEGEAL ORDER P IFT NOLJE=1 P CWK A7,/37 SELECT KEYBOARD P RF(E) AKBSEL P XIF
0x0a3ed8…0a406c Dummy {f00=0x011c, f01=0x0190, f02=»UK A4,4 P P IFT CREDIT=1 P SUK A4,/2D . $ P RF(Z) CRE:10 SKIP INPUT BUFFER B P ADK A4,/2D j PCRE:10 EQU * ~ P XIF P RF(Z) AKB110 ORDER 4 P RF(N) AKB200 ORDER 1,2 OR 3 * PAKB100 ORKL A1,/8000 I/O REQUEST ERROR
0x0a406c…0a4200 Dummy {f00=0x011c, f01=0x0190, f02=»ER 4 v ( P SCR A1,A2 RESET OVERFLOW IF OCCURED ( P ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE 8 P ABL ENDI05 END I/O d P IFT NOLJE=1 P* P* " P* ORDER 37 SELECT KEYBOARD P* PAKBSEL LDKL A2,/FF7F * P ANRS A2,A6 RESET AL
0x0a4200…0a4394 (0, 208) Dummy {f00=0x011c, f01=0x0190, f02=» PAKB200 EQU * P* P IFT POWOFF=1 " P* 8 P LD A2,DWTST,A6 B P ANKL A2,/200 POWER OFF ? Z P RF(E) AKB205 | P XRS A2,DWTST,A6 RESET BIT P XIF PAKB202 EQU * P IFT CREDIT-POWOFF=-1 " P LDKL A1,-2 INDICATE P
0x0a4394…0a4528 Dummy {f00=0x011c, f01=0x0190, f02=»1 P ABL AKB380 P* P XIF ( P* 4 PAKB205 EQU * > P* R P IFT CTIMUT=1 P* r P LDR* A1,A6 | P ANK A1,/40 TIMING ? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE P LD A4,DWTTP,A6 P RF(E) AKBTIM
0x0a4528…0a46bc Dummy {f00=0x011c, f01=0x0190, f02=» DWT-ADDRESS P LDR A1,A6 P CF A15,SETIMP SET TIME & 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME F . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT z P* P XIF P* & PAKB210 LD A2,4,A8 REQUESTED LENGTH , PAKB220 RF(E) AKB38
0x0a46bc…0a4850 Dummy {f00=0x011c, f01=0x0190, f02=» P ADR A1,A2 ADDRESS IN BUFFER ! $ PAKB230 SCR A3,A1 STORE CHARACTER ! ( " P SUK A1,1 NEXT CHAR. POSITION ! P P SUK A2,1 LAST ? ! v P RB(NE) AKB230 NO ! P EJECT ! P* ! , P* READ CHARACTER FROM INPUT BUFFER OR ! & P* WAIT FOR KEY-BOARD
0x0a4850…0a49e4 Dummy {f00=0x011c, f01=0x0190, f02=»FLOW ? ! P RF(NE) AKB250 " " P SCR A4,A1 RESET OVERFLOW MARK " $ P LDK A1,OVMASK OVERFLOW SET " J P RF ENDIO " n . PAKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? " P RF(NE) AKB260 " " P CF A5,STREG NOTHING IN QUEUE " P IFT CTIMUT=1 " * P LDR
0x0a49e4…0a4b78 Dummy {f00=0x011c, f01=0x018e, f02=»T=0 " P RF AKB270 # P XIF # 0 PAKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER # * & P ST A1,DWTUTQ,A6 STORE NEW POINTER # ^ PAKB270 LDR A4,A7 # P SUK A4,2 # P RF(NN) AKB310 ORDER 2 OR 3 # P EJECT # P* # P* # P* ORDER 1 BA
0x0a4b78…0a4d0c Dummy {f00=0x011c, f01=0x018e, f02=» # j P XIF $ 0 P CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? $ P RB AKB220 $ H P EJECT $ Z P* $ h P* $ r 2 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ $ | P* $ 6 P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE $ P* $ P* $ (
0x0a4d0c…0a4ea0 Dummy {f00=0x011c, f01=0x0190, f02=» & P ADR A1,A4 LAST PLACE IN KEY-TABLE % P ADK A1,1 % . PAKB355 SUK A4,1 % @ , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE % X P SUK A1,1 NEXT KEY % P CCR A2,A1 EOR-CHARACTER? % P RB(NE) AKB355 NO % P IFT CREDIT=0 % P ADR A4,A4 YES DOUBL
0x0a4ea0…0a5034 (0, 209) Dummy {f00=0x011d, f01=0x0190, f02=»NTROLWORD % r ( PAKB358 CF A15,STORE STORE CHARACTER & P RF AKB370 & > P* & P P* & Z 4 PAKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY & d P RB(E) AKB358 YES & P EJECT & P* & * P* CHARACTER NOT FOUND IN KEY-TABLE. & P* CHECK C
0x0a5034…0a51c8 Dummy {f00=0x011d, f01=0x0190, f02=»4,/20 SHIFT BIT 9 ? & P RF(E) AKB361 YES ' P LDR A4,A2 CHARACTER ' 6 P RF AKB363 ' R PAKB361 EQU * ' d P LDR* A4,A6 ' x P ANK A4,/10 PTS 6234 ? ' P RF(E) AKB362 ' P LDR A4,A2 ' P ANK A4,/80 ' P RF(NE) AKB362 ' P LDR A4,A2 '
0x0a51c8…0a535c Dummy {f00=0x011d, f01=0x0190, f02=»0 ' " P CC A4,KBMZ,A6 MULTIPLE ZERO ? ( P RF(E) KBMZ10 YES! ( 0 P XIF ( J P CC A4,KBCLR,A6 CLEAR? ( V P RF(E) KBCL10 ( t P CC A4,KBBSP,A6 BACKSPACE? ( P RF(E) KBSP10 ( P LDR A1,A1 RETURN CODE? ( ( P RF(NE) AKB369 YES,STORE AND END I/O (
0x0a535c…0a54f0 Dummy {f00=0x011d, f01=0x0190, f02=»RFLOW? ( z P RB(L) AKB210 NO ) $ PAKB368 LDK A1,8 SET RETURN CODE ) & P RF ENDIO AND END I/O ) N 6 PAKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER ) l P RF ENDIO END I/O REQUEST ) P EJECT ) P* ) P* ) ( P* CHECK CODE OF END OF RECO
0x0a54f0…0a5684 Dummy {f00=0x011d, f01=0x0190, f02=»F RECORD ) v P LDR A1,A1 RETURN CODE? * P RF(NE) AKB380 * 0 P CF A5,ECHO ECHO CHARACTER * F P* * h P XIF * r P* * ~ PAKB380 LDK A1,0 RETURN CODE * P EJECT * P* * P* * , P* THIS IS A COMMON END OF THE DRIVER * P* * 2 P
0x0a5684…0a5818 Dummy {f00=0x011d, f01=0x0190, f02=» * P IFT CTIMUT=1 + P INH + P LD A4,DWTTP,A6 + * * P RF(E) ENDI05 NO TIMING ON THIS DEVICE + B P CM* DWTTP,A6 RESET TIMER + p P CM DWTTP,A6 + P XIF + P* + , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH + PENDI10 EQU * + P* +
0x0a5818…0a59ac Dummy {f00=0x011d, f01=0x018e, f02=» + 0 P ABL DISEND END I/O ON KEYBOARD AND DISPATCH , P EJECT , < P* , J P* MULTIPLE ZERO , T P* , n P IFF CMULTZ=0 , x PKBMZ10 EQU * , ( P LDK A4,CMULTZ LOAD NUMBER OF ZEROES , , PKBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO , P SUK A4,1
0x0a59ac…0a5b40 Dummy {f00=0x011d, f01=0x0190, f02=» , x P* - P IFT CECHO=1 - P* - & P CF A5,ECHO ECHO ZERO - 0 P XIF - N P* - Z P* - d P IFF CMULTZ=0 - n P* - " P CW A3,4,A8 LENGTH OVERFLOW ? - P RB(L) KBMZ20 NO - . PKBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ? - P RB(L) AKB
0x0a5b40…0a5cd4 (0, 210) Dummy {f00=0x011d, f01=0x018e, f02=»KBMZ30 NO - , P LDK A1,DWTEQ GET LAST POSITION IN QUEUE . P ADR A1,A6 . B P SUK A1,1 . T P RF KBMZ40 . f 2 PKBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION . x P SUK A1,1 . , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? . P RF(E) KBMZ90 NO NOT REA
0x0a5cd4…0a5e68 Dummy {f00=0x011d, f01=0x0190, f02=» P RB KBMZ25 ONCE MORE TIME !! / PKBMZ90 EQU * / ( ( P LDK A4,/FF INDICATE BUFFER OWERFLOW / < P SCR A4,A1 / h $ P ST A1,DWTUTQ,A6 UPPDATE POINTER / z ( P LDK A1,/A SET RETURN CODE FOR BOTH / * P RB ENDIO LENGTH AND THRUGHPUT ERRORS / P XIF / P
0x0a5e68…0a5ffc Dummy {f00=0x011d, f01=0x0190, f02=» P* 0 P* BACKSPACE 0 P* 0 $ & PKBSP10 LDR A3,A3 FIRST CHARACTER? 0 . P RF(Z) KBSP15 0 X $ P SUK A3,1 DECREMENT BUFFER INDEX 0 n P LDK A2,/00 CLEAR ECB-BUFFER 0 P CF A15,STORE 0 P SUK A3,1 DECREMENT INDEX 0 * PKBSP15 LDK A2,/8 CHANG
0x0a5ffc…0a6190 Dummy {f00=0x011d, f01=0x0190, f02=» CHARACTER 0 r P* 1 P* ON ENTRY: 1 P* 1 2 P* A2 = CHARACTER 1 < P* A3 = BUFFER INDEX 1 X P* A6 = DWT-ADDRESS 1 v P* A7 = ORDER 1 P* 1 P* 1 P* ON EXIT: 1 P* 1 P* A1 = RETURN CODE 1 P* 1 P
0x0a6190…0a6324 Dummy {f00=0x011d, f01=0x0190, f02=» 1 P* 2 P CWK A7,2 ORDER 2? 2 P RF(NE) CHEK05 NO 2 , P ANK A1,/20 2 F ( P ORK A1,/5F 5F OR 7F AS UPPER LIMIT 2 Z P LDK A4,/20 LOWER LIMIT 2 P RF CHEK08 2 P* 2 P XIF 2 P* 2 PCHEK05 ANK A1,/10 2 P RF(NE) CHEK06 2 P
0x0a6324…0a64b8 Dummy {f00=0x011d, f01=0x0190, f02=»RRO CODE CHECK ERROR 2 P SUR A4,A2 3 " P RF(P) CHERRO CODE CHECK ERROR 3 . P LDR* A1,A15 3 T PCHEK10 LDK A1,0 RETURN CODE 3 h PCHEK20 RTN A5 3 P* 3 P* 3 P* CODE CHECK ERROR 3 P* 3 . PCHERRO LDK A1,4 SET RETURN CODE AND RETURN
0x0a64b8…0a664c Dummy {f00=0x011d, f01=0x0190, f02=»S IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER 3 P* 4 @ P* 4 J PIHKB EQU * 4 T P IFT NOLJE=1 4 f P LDR* A3,A6 GET ALLOW BITS 4 z P ANK A3,/C0 4 4 P RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS 4 P LDK A4,1 4 P ANK A3,/80 4
0x0a664c…0a67e0 Dummy {f00=0x011d, f01=0x0190, f02=» * 4 P XIF 5 P* 5 P IFT CONVER=1 5 P* 5 6 P LDR A4,A2 INPUT WORD 5 @ " P SRL A4,11 DEVICE ADDRESS * 2 5 ^ P ANK A4,/E 5 $ P CC A4,DWTBC,A6 8-BIT SETTING ? 5 P RF(NE) IHKB03 5 P LDR A3,A2 5 P ANK A3,/3F 5 P SUK A3,/30 5
0x0a67e0…0a6974 (0, 211) Dummy {f00=0x011d, f01=0x0190, f02=» P RF IHKB04 6 4 PIHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS 6 P RF(E) IHKB04 6 N P LDR A4,A2 6 d P ANK A4,/FF 6 v P SRL A4,3 LINE INDEX 6 P ADR A3,A4 6 $ P LDR* A3,A3 COLUMN TABLE ADDRESS 6 P RF(E) IHKB04 6 P LDR A4,A2 6 P
0x0a6974…0a6b08 Dummy {f00=0x011d, f01=0x0190, f02=» 6 P IFT NOLJE=1 7 P* 7 P LDR A3,A2 7 & P ANK A3,/3F 7 8 P SUK A3,/22 7 L P RF(Z) IHNOL6 7 ` P SUK A3,1 7 v P RF(NZ) IHNOL8 7 P RF IHNOL7 7 PIHNOL6 ADK A2,7 7 PIHNOL7 ANKL A2,/FF3F 7 PIHNOL8 EQU * 7 P* 7 P XIF 7
0x0a6b08…0a6c9c Dummy {f00=0x011d, f01=0x0190, f02=»CHARACTER IN DWT-BUFFER 7 x P* 8 P IFT CTIMUT=1 8 * P* 8 @ P LD A3,DWTTP,A6 8 J * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 8 b P LDKL A3,-TIME RESTART TIME 8 P ST* A3,DWTTP,A6 8 P* 8 P XIF 8 P* 8 , PIHKB05 ABL LDREG RETURN TO R
0x0a6c9c…0a6e30 Dummy {f00=0x011d, f01=0x0190, f02=»3,A1 8 2 P CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS 9 P CW A1,DWTUTQ,A6 OVERFLOW? 9 B P RF(NE) IHKB20 NO! 9 d 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 9 ~ P RF IHKB30 9 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER 9 4 PIHKB30 SCR A2,A3
0x0a6e30…0a6fc4 Dummy {f00=0x011d, f01=0x0190, f02=» 9 P SUK A3,1 : P RF(E) IHNOL4 : P LDK A4,/80 : 0 P SUK A3,4 : D P RB(NE) IHNOL2 : V $ PIHNOL4 ORRS A4,A6 SET ALLOW BIT : l P RB IHNOL2 : P XIF : P EJECT : P* : P* : P* A K B T U T : P* : & P* THIS IS THE T
0x0a6fc4…0a7158 Dummy {f00=0x011d, f01=0x0190, f02=»TTP,A6 : P LD A1,DWTST,A6 ; P RB(N) EXIT ; & P LDK A1,/40 SET RETURN CODE ; : , P RB IHKB05 RESTORE REGISTERS AND END I/O ; ^ P* ; P XIF ; P EJECT ; P* ; 4 P* STORE = SUBROUTINE TO STORE A CHARACTER IN ; 6 P* ECB-BUF
0x0a7158…0a72ec Dummy {f00=0x011d, f01=0x0190, f02=»EX ; | P* < P* < PSTORE EQU * < P LD A4,2,A8 BUFFER ADDRESS < 2 P ADR A4,A3 ADD BUFFER INDEX < T ( P SCR A2,A4 STORE CHARACTER IN BUFFER < x $ P ADK A3,1 INCREMENT BUFFER INDEX < P ANK A2,/7F < P RF EOQU20 RTN A15 AND ENB < P EJECT
0x0a72ec…0a7480 Dummy {f00=0x011d, f01=0x0190, f02=»= QUEUE POINTER < P* A6 = DWT-ADDRESS = P* = 6 P* ON EXIT: = @ P* = V P* A1 = NEW QUEUE POINTER = ` PEOQUEU EQU * = P INH = P ADK A1,1 = P SUR A1,A6 = P CWK A1,DWTEQ END OF QUEUE? = P RF(NE) EOQU10 = * P LDK A
0x0a7480…0a7614 (0, 212) Dummy {f00=0x011d, f01=0x401e, f02=» P* > P END > @ >
0x0a7614…0a77a8 Dummy {f00=0x011d, f01=0x2008, f02=» ? O 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE 1 > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 1 > 4 PRETUR ABL LDREGE RELOAD A3-A5 AND RETURN VIA A5 1 P* 1 P XIF 1 P* 1 P END 1 @ 1 RESS TO ADDRESS-BLOCK 0 2 P A
0x0a77a8…0a793c Dummy {f00=0x011d, f01=0x0000, f02=»
[…0x5…]
0x0a8120…0a82b4 (0, 213) Opaque[0x194]
0x0a82b4…0a8448 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20e0, f03=0x0000}
0x0a82b4…0a8448 IdxSect {
0x0a82b4…0a8448 f00 = 0x0107 // 0xa82b4 @0x0
0x0a82b4…0a8448 f01 = 0x000e // 0xa82b6 @0x2
0x0a82b4…0a8448 gno = [ // 0xa82b8 @0x4
0x0a82b4…0a8448 [0x00]: C0x0107.0x0.0
0x0a82b4…0a8448 [0x01]: C0x0107.0x1.0
0x0a82b4…0a8448 [0x02]: C0x0107.0x2.0
0x0a82b4…0a8448 [0x03]: C0x0107.0x3.0
0x0a82b4…0a8448 [0x04]: C0x0108.0x0.0
0x0a82b4…0a8448 [0x05]: C0x0108.0x1.0
0x0a82b4…0a8448 [0x06]: C0x0108.0x2.0
0x0a82b4…0a8448 ]
0x0a82b4…0a8448 }
0x0a8448…0a85dc Dummy {f00=0x0107, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 9.2 80-01-03 870105040920 P : P =4,MMU BUFFER CONDITION B P REL 9.2 79-11-16 d P =3,RB - ABL P REL 9.1 79-05-23 P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06
0x0a85dc…0a8770 Dummy {f00=0x0107, f01=0x0190, f02=» " P =1,ECHO OF LF AND CR, ABIS P REL 8.2 78-09-15 * P* F P* P 6 P************************************************** Z P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRGP01 = DRIVER GENERAL PRINTER P* P*
0x0a8770…0a8904 Dummy {f00=0x0107, f01=0x018e, f02=»DRIVER HANDLES GENERAL TERMINAL PRINTER < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. 0 P* p 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO z 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE 6 P* GENERAL PRINTER AS
0x0a8904…0a8a98 Dummy {f00=0x0107, f01=0x0190, f02=» 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* 8 & P* A C G P ACTIVATION PART B P* l ( P* I H G P INTERRUPT HANDLER v P* ( P* R C G P RECOVERY ROUTINE P* & P* E C H O G P ECHO FUNCTIONS
0x0a8a98…0a8c2c Dummy {f00=0x0107, f01=0x0190, f02=» 05: BASIC WRITE " P* 06: STANDARD WRITE P* @ P* NORMAL REGISTER USAGE J P* l " P* REGISTER A1 = RETURN CODE v ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX $ P* A4 = WORK
0x0a8c2c…0a8dc0 Dummy {f00=0x0107, f01=0x018e, f02=» A8 = ECB-ADDRESS P* P* $ P* SYSTEM ADAPTATION . P* L : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR V ( P* (GPCLR) KEYS SHOULD BE DEFINED. P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS 0 P*
0x0a8dc0…0a8f54 (0, 214) Dummy {f00=0x0107, f01=0x0190, f02=» X P* D P* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER Z * P** --SUPPRESION OF TRAILING BLANKS @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE P*
0x0a8f54…0a90e8 Dummy {f00=0x0107, f01=0x0190, f02=» P EJECT P* P* P* & P* 0 P*********** : P* ENTRIES * N P*********** b P* v P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P* P* P
0x0a90e8…0a927c Dummy {f00=0x0107, f01=0x0190, f02=»************************* P* " P* , $ P EXTRN DISIOE I/O REQUEST ERROR 6 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER ^ P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O
0x0a927c…0a9410 Dummy {f00=0x0107, f01=0x0190, f02=»R FROM ECB-BUFFER v P EJECT P* ( P* 2 P************************ < P* DWT PARAMETERS * P************************ | P* P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER P
0x0a9410…0a95a4 Dummy {f00=0x0107, f01=0x018e, f02=» P* P* : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY PSTX EQU /82 START OF MESSAGE Z PETB EQU /97 END OF MESSAGE ~ PETX EQU /03 LAST DUMMY PCR EQU /0D CARRIAGE RETURN PLF EQU /0A LINE FEED PFFED EQU /0C
0x0a95a4…0a9738 Dummy {f00=0x0107, f01=0x0190, f02=» * P************************************** * P* CONDITIONAL ASSEMBLY * 6 * P************************************** d P* 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT $ P* FUNCTION BY SETTING X:A = 0 P* PX:A
0x0a9738…0a98cc Dummy {f00=0x0107, f01=0x0190, f02=»TING X:B=1 n P* PX:B EQU 0 PTRETON EQU X:B . P* D 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE N 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* PX:C EQU 0 PFJOTON EQU X:C P* . P* IT IS POSSIBL
0x0a98cc…0a9a60 Dummy {f00=0x0107, f01=0x018e, f02=»COSPAC EQU X:D P* P EJECT P* . P* 8 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE B 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. ~ 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. P* PX:E EQU
0x0a9a60…0a9bf4 (0, 215) Dummy {f00=0x0107, f01=0x018e, f02=» PX:F EQU 0 PSUPSPA EQU X:F P* , ( P* END OF REQUEST IN SITUATIONS WHERE 6 , P* THE SELECTOR UNIT OR PRINTER HARDWARE b * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 PX:G EQU 0 PRECEND EQU X:G
0x0a9bf4…0a9d88 Dummy {f00=0x0107, f01=0x0190, f02=» P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. R P* PCPU852 EQU 1 P* P* MMU BUFFER SIZE P* PX:H EQU 120 PDVBLEN EQU X:H P* =1
0x0a9d88…0a9f1c Dummy {f00=0x0107, f01=0x0190, f02=»**** t $ P* DWT-DISPLACEMENT * $ P******************************** 4 P* P* f 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART p P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 P
0x0a9f1c…0aa0b0 Dummy {f00=0x0107, f01=0x0190, f02=»********** t , P* SPECIAL KEYS FOR ECHO FUNCTION * * P************************************** B P* p PGPBSP EQU /2D BACK SPACE z PGPCLR EQU /3F CLEAR P* P******************** P* RETURN CODES * P****************
0x0aa0b0…0aa244 Dummy {f00=0x0107, f01=0x018e, f02=»ERROR x ( POPERR EQU /1 NOT OPERABLE, POWER OFF P* : P EJECT D P* R P* P********** f P* TABLES * x P********** P* P* P IFT CROOM=1 P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTERS
0x0aa244…0aa3d8 Dummy {f00=0x0107, f01=0x0190, f02=» p P DATA 2 DEVICE INDEX PGPAD EQU * ADDRESS BLOCK $ P DATA ACGP ACTIVATION DRIVER D " P DATA 0 ABORT ROUTINE ADDRESS h P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P
0x0aa3d8…0aa56c Dummy {f00=0x0107, f01=0x0190, f02=»T STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE ~ < P* IS SET IF PAPER OUT OR READY SWITCH OFF. : H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM z P* CHANNEL UNIT. P* > P* ORDER 05: BASIC
0x0aa56c…0aa700 Dummy {f00=0x0107, f01=0x018e, f02=»ARE SENT TO PRINTER FROM f < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* ` PACGP EQU * j P LDK A2,STX START OF MESSAGE | P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1
0x0aa700…0aa894 (0, 216) Dummy {f00=0x0107, f01=0x0190, f02=» | & P LD A3,2,A8 GET BUFFER ADDRESS =1 ( P LC A3,1,A3 GET CONTROL CHARACTER =1 2 P ANK A3,/FF =1 ^ PACGP01 SUK A3,/2B =1 v $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 P LDK A2,CR =1 P CF A5,OUTPUT =1
0x0aa894…0aaa28 Dummy {f00=0x0107, f01=0x0190, f02=» P LDK A2,LF =1 P SUK A3,/30-/2B =1 * P RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 6 P CF A5,OUTPUT =1 d P LDK A2,LF =1 ~ , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 * PACGP06 LDK A3,2 START BUFFER INDEX =1
0x0aaa28…0aabbc Dummy {f00=0x0107, f01=0x0190, f02=» IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 P* =2 H $ PACGP10 LDK A2,2 SEND CHAR /02 =2 X P CF A5,OUTPUT =2 * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 P RF AGP410 =2 P EJECT P*
0x0aabbc…0aad50 Dummy {f00=0x0107, f01=0x0190, f02=»T,A6 POSITION COUNTER UPDATING PACGP19 EQU * & * P LDKL A4,/400 INDICATE LINE FEED DONE : P ORS A4,DWTST,A6 h P IFT SUPSPA=1 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF P LDK A4,0 6 PACGP20 CF A15,GETCHR GET CHA
0x0aad50…0aaee4 Dummy {f00=0x0107, f01=0x0190, f02=»F(E) ACGP24 BASIC WRITE $ P SUK A1,9 HARDWARE TABULATION ? P RF(NE) ACGP22 H 0 P ST A4,DWTAP,A6 RESET HEAD POSITION POINTER ^ P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? P RF(E) ACGP40 P IFT ABIS=1 =1 P CWK A2,
0x0aaee4…0ab078 Dummy {f00=0x0107, f01=0x0190, f02=»1,/F LESS THAN /20 ? P* P XIF & P* 2 P IFT TRETON=0 < P IFT FJOTON=1 R P* h P SUK A1,3 /14? r P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* P XIF P* P* P IFT TRETON=1 P IFT FJO
0x0ab078…0ab20c Dummy {f00=0x0107, f01=0x0190, f02=» IFT TRETON=1 P IFT FJOTON=1 P* , P SUK A1,2 /13? 6 P RB(E) ACGP17 L P SUK A1,1 /14? b P RB(E) ACGP17 x P SUK A1,/C LESS THAN /20 ? P* P XIF P* & P RF(N) ACGP30 YES,CODE CHECK ERROR & P SUK A1,/8E RO
0x0ab20c…0ab3a0 Dummy {f00=0x0107, f01=0x0190, f02=»NN) ACGP30 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & P TO CHARACTER BETWEEN /40 TO /5F L P RB ACGP17 v PACGP24 EQU * P SUK A1,/D P RF(NZ) ACGP26 NOT CR " P CM DWTST,A6 SET POS LTR.TO 0 ( P CM DWTAP,A6 RESET HEA
0x0ab3a0…0ab534 (0, 217) Dummy {f00=0x0108, f01=0x0190, f02=»ER l P RB ACGP17 P EJECT P* * P* CODE CHECK ERROR 4 P* R PACGP30 EQU * P LDK A1,CCERR p P ORS A1,8,A8 RETURN CODE P RB ACGP20 P EJECT P* P* TABULATION P* PACGP40 EQU * , P C
0x0ab534…0ab6c8 Dummy {f00=0x0108, f01=0x0190, f02=» A4,/F P RF(E) ACGP44 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL $ P SUK A4,1 X P RB(NE) ACGP43 j 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 , P SUR A2,A4 AND REQUESTS POSITION COUNTER & P T
0x0ab6c8…0ab85c Dummy {f00=0x0108, f01=0x0190, f02=» PACGP46 CF A5,OUTPUT ( P IM DWTST,A6 INCREMENT BUFFER INDEX P SUK A4,1 L P RB(P) ACGP45 ^ P LDR A3,A3 RECOVERY? t P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER P LDK A3,2 START BUFFER INDEX P RB ACGP19
0x0ab85c…0ab9f0 Dummy {f00=0x0108, f01=0x0190, f02=»HR GET CHARACTER TO SEND P ANK A2,/F ! P LC A2,ROMTAB,A2 TRANSFORM ! 2 P* ! T P XIF ! ^ P* ! j P* ! t P IFF CROOM=1 ! ~ P* ! P ANK A2,/7F ! P* ! P XIF ! P* ! P RB ACGP17 ! P EJECT ! P* ! P* ! ( P*
0x0ab9f0…0abb84 Dummy {f00=0x0108, f01=0x018e, f02=» P CF A5,OUTPUT SEND " PAGP410 LDK A2,ETX LAST DUMMY " P CF A5,OUTPUT SEND " B PAGP415 EQU * =1 " P IFT ABIS=1 =1 " t P ANK A2,/4 PAPER IN ? =1 " P RF(NZ) AGP420 YES =1 " " P LDK A1,/20 SET RETURN CODE =1 " P XIF =1 " PAGP420
0x0abb84…0abd18 Dummy {f00=0x0108, f01=0x0190, f02=» " n PAGP430 EQU * # P LD A3,DWTA3,A6 # P ST A3,6,A8 EFF. LENGTH # 4 P RB AGP415 =1 # T P EJECT # j P* # x P* # , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # ( P* OF REQUEST IS
0x0abd18…0abeac Dummy {f00=0x0108, f01=0x0190, f02=»DK A3,0 # , P SC A3,DWTBC,A6 RESET POSITION COUNTER $ P RTN A15 $ @ P IFT SUPSPA=1 $ P P EJECT $ f P* $ t P* $ ~ * P* SKIPSP = SUBROTINE TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ 6 P* REQUESTED LENGTH IN ECB
0x0abeac…0ac040 Dummy {f00=0x0108, f01=0x0190, f02=» LD A2,4,A8 GET REQUESTED LENGTH(RL) $ $ P ADR A1,A2 GET ADD END OF BUFFER % , PSKIP05 CWK A2,2 % T P RF(NG) SKIP30 RL < 3 % l P SUK A1,1 DECR. BA % P LCR A4,A1 GET CHAR % P CCK A4,/2020 SPACE ? % P RF(NE) SKIP20 NO % PSKIP07 SUK A2,1
0x0ac040…0ac1d4 (0, 218) Dummy {f00=0x0108, f01=0x0190, f02=»/1111 TABULATION CHAR ? % P RF(NE) SKIP30 NO & P SUK A1,2 DECR BA & : P SUK A2,2 DECR RL & T P RB SKIP07 GET NEXT & n P* & " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & P XIF & P EJECT & P* & P* I H G P & P* &
0x0ac1d4…0ac368 Dummy {f00=0x0108, f01=0x0190, f02=» RF(N) IHGP10 & P LDR A7,A7 ORDER 0? ' P RF(Z) IHGP20 =2 ' 2 . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? ' L P IFT RECEND=0 ' ~ P RB(NZ) EXIT ' P XIF ' P IFT RECEND=1 ' P RB(NZ) AGP430 ' P XIF ' P ' 4 PIHGP10 ABL LDREG REL
0x0ac368…0ac4fc Dummy {f00=0x0108, f01=0x018e, f02=»JECT ' P* ( P* E C H O G P ( P* ( . 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE ( 8 P* ( l PECHOGP EQU * ( v P LDK A4,COSPAC ( P LDR A7,A7 EOR? ( P RF(N) ECGP17 YES ( P* ( P IFT EORECH=0 ( P* ( P SUK A2,/80
0x0ac4fc…0ac690 Dummy {f00=0x0108, f01=0x0190, f02=» P SUK A1,/8 ) P RF(E) ECGP40 BACKSPACE ) P SUK A1,/2 LINE FEED =1 ) 6 P RF(E) ECGP10 YES =1 ) V P SUK A1,/3 CR =1 ) r P RF(E) ECGP10 YES =1 ) P SUK A1,/B =1 ) P RF(E) ECGP50 CLEAR ) 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20
0x0ac690…0ac824 Dummy {f00=0x0108, f01=0x0190, f02=»PDATE POSITION COUNTER ) P SUK A4,1 READY ? * P RF(N) ECGP20 YES * 8 * P RF(P) ECGP60 NO, GO TO CLEAR SECTION * R P* * P IFT COSPAC=1 * P* * P LDK A2,SPACE NO SEND SPACE * P RB ECGP10 * P* * P XIF * P* * 6 PECGP17 C
0x0ac824…0ac9b8 Dummy {f00=0x0108, f01=0x0190, f02=» P* + PECGP40 EQU * + & P LDK A2,GPBSP BACKSPACE CHARACTER + " P RB ECGP10 + L P* + ^ P* CANCEL + h P* + | PECGP50 EQU * + " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + P RB ECGP10 + PECGP60 LDK A2,LF LINE FEED + P L
0x0ac9b8…0acb4c Dummy {f00=0x0108, f01=0x0190, f02=»ECGP70 + P LDK A3,0 , * P SC A3,DWTBC,A6 RESET POSITION COUNTER , P RB ECGP20 , N P EJECT , ` P* , n P* R C G P , x P* , 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , P* , ( P* RECOVERY IS CARRIED OUT ONLY IF ,
0x0acb4c…0acce0 Dummy {f00=0x0108, f01=0x018e, f02=»8 = ECB-ADDRESS , PRCGP EQU * - P IFT CPU852=1 - * & P CF A15,SAVE8 SAVE A1-A8 ON STACK - @ P XIF - j P* - v P IFT CPU852=0 - " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - P* - P LD A2,DWTST,A6 BUSY ? - P RB(N) EXIT NO - ( P L
0x0acce0…0ace74 (0, 219) Dummy {f00=0x0108, f01=0x0190, f02=» P RF(E) RCGP05 YES . P CWK A7,0 ORDER 0? . P ABL(E) ENDIO =3 . 8 P ABL EXIT =3 . R PRCGP05 EQU * . h 0 P LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD . | P ANK A2,/4 LINE FEED DONE ? . P ABL(E) ACGP NO . P LDK A2,SPACE . P CF A5
0x0ace74…0ad008 Dummy {f00=0x0108, f01=0x4090, f02=»WTAP,A6 GET NUMBER OF SPACES TO SEND . P ABL ACGP46 / , ( PRCGP10 LDK A1,TPERR SET RETURN CODE / @ P ABL AGP430 / l P END / @ / LEFT BYTE OF STATUS WORD . | P ANK A2,/4 LINE FEED DONE ? . P ABL(E) ACGP NO . P LDK A2,SPACE . P CF A5
0x0ad008…0ad19c Dummy {f00=0x0108, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x0ad19c…0ad330 Dummy {f00=0x0108, f01=0x0190, f02=» H P* I P* I 8 P* DEVICE WORK TABLE FOR LINE 07, OUTPUT AND CONTROL I P* I X P* I b PDW8114 EQU * TABLE ENTRY I l P DATA DAMU07 DEVICE ADDRESS I 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY I P DATA 0 ECB ADDRESS I P DATA
0x0ad330…0ad4c4 Dummy {f00=0x0108, f01=0x0190, f02=»0 TASK QUEUE FOR THIS DEVICE I P IFT MMUPAG=1 J $ P DATA 0 USERECB J : P DATA MECB14 DRIVER ECB J R P XIF J r P IFT MLIN07=1 J P DATA 0 TIMER POINTER J " P DATA 0 ACTIVITY TIMER POINTER J & P DATA 0,0,0,0,0,0 SUBROUTINE STACK J P RES
0x0ad4c4…0ad658 Dummy {f00=0x0108, f01=0x0190, f02=» P DATA 0 CU 6857 I/O IND =1 K P DATA 0 RETRY COUNTER K & P DATA 0 BCC COUNTER K D P DATA 0 ACK COUNTER K ` P DATA 0 PACT K | P DATA 0 PINACT K P DATA LINE07+LINE07 K P RES LINE07 K P DATA /FFFF K P IFT MMUPAG=1 K , PMECB14 D
0x0ad658…0ad7ec Dummy {f00=0x0108, f01=0x018e, f02=» K * P* DEVICE WORK TABLE FOR LINE 07, INPUT L P* L 6 P* L @ PDW8113 EQU * TABLE ENTRY L J P DATA DAMI07 DEVICE ADDRESS L j 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY L P DATA 0 ECB ADDRESS L P DATA 0 ORDER L * P DATA DRMIAD POINT
0x0ad7ec…0ad980 Dummy {f00=0x0108, f01=0x0190, f02=» P IFT MMUPAG=1 M P DATA 0 USER ECB M P DATA MECB13 DRIVER ECB M 2 P XIF M R P IFT MLIN07=1 M ^ P DATA 0 TIMER POINTER M t " P DATA 0 ACTIVITY TIMER POINTER M & P DATA 0,0,0,0,0,0 SUBROUTINE STACK M P RES 3 SAVE AREA FOR A3-A5 M $ P DAT
0x0ad980…0adb14 (0, 220) Opaque[0x194]
0x0adb14…0adca8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1be0, f03=0x0000}
0x0adb14…0adca8 IdxSect {
0x0adb14…0adca8 f00 = 0x00df // 0xadb14 @0x0
0x0adb14…0adca8 f01 = 0x0018 // 0xadb16 @0x2
0x0adb14…0adca8 gno = [ // 0xadb18 @0x4
0x0adb14…0adca8 [0x00]: C0x00df.0x0.0
0x0adb14…0adca8 [0x01]: C0x0104.0x2.0
0x0adb14…0adca8 [0x02]: C0x0104.0x3.0
0x0adb14…0adca8 [0x03]: C0x0105.0x0.0
0x0adb14…0adca8 [0x04]: C0x0105.0x1.0
0x0adb14…0adca8 [0x05]: C0x0105.0x2.0
0x0adb14…0adca8 [0x06]: C0x0105.0x3.0
0x0adb14…0adca8 [0x07]: C0x0106.0x0.0
0x0adb14…0adca8 [0x08]: C0x0106.0x1.0
0x0adb14…0adca8 [0x09]: C0x0106.0x2.0
0x0adb14…0adca8 [0x0a]: C0x011e.0x0.0
0x0adb14…0adca8 [0x0b]: C0x011e.0x1.0
0x0adb14…0adca8 ]
0x0adb14…0adca8 }
0x0adca8…0ade3c Dummy {f00=0x00df, f01=0x0190, f02=» 2 P IDENT DRDY01 9.2DK 1 80-02-12 870105040921 P : P *DK,POS 80 ON VDU B P REL 9.2 80-02-12 ^ P =4,ABORT ROUTINE INCLUDED z P REL 9.1 79-05-23 * P =3,STEADY CURSOR PROBLEM CORRECTED P PRR 9.1 79-04-06 , P =
0x0ade3c…0adfd0 Dummy {f00=0x00df, f01=0x0190, f02=»01-12 P P* 6 P************************************************** P* Z $ P* PHILIPS TERMINAL SYSTEM PTS d P* 2 P* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY P* P* P* P* P* P* 6 P
0x0adfd0…0ae164 Dummy {f00=0x00df, f01=0x0190, f02=» @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 H 6 P* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM b P* VIA CHLT OR CHRT. P* < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS : P*
0x0ae164…0ae2f8 Dummy {f00=0x00df, f01=0x018e, f02=»BOARD DRIVER DRKB01. P* P* & 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: 0 P* d & P* A C D Y ACTIVATION PART n P* ( P* I H D Y INTERRUPT HANDLER P* ( P* R C D Y RECOVERY ROUTINE P*
0x0ae2f8…0ae48c Dummy {f00=0x00df, f01=0x0190, f02=» P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE 0 " P* 06: STANDARD WRITE R ( P* 07: WRITE GRAPHIC DISPLAY x & P* 0B: CURSOR POSITIONING P* 31: ERASE P* P* NORMAL REGISTER
0x0ae48c…0ae620 Dummy {f00=0x00df, f01=0x0190, f02=»X r $ P* A4 = WORK REGISTER " P* A5 = STACK BASE 2 " P* A6 = DWT-ADDRESS X P* A7 = ORDER ~ " P* A8 = ECB-ADDRESS P* P EJECT P* P* P* SYSTEM ADAPTATION
0x0ae620…0ae7b4 (0, 221) Dummy {f00=0x0104, f01=0x0190, f02=»* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 4 * P* 0 1 PTS 6351 & 6342 Z * P* 1 0 PTS 6386 & 6385 * P* --------------------------------- P* 6 P* BY MEANS OF CONDITION
0x0ae7b4…0ae948 Dummy {f00=0x0104, f01=0x0190, f02=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER > & P* -CAN SUPPRESS TRAILING BLANKS z F P* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) P EJECT P* P*
0x0ae948…0aeadc Dummy {f00=0x0104, f01=0x0190, f02=»S TO ADDRESSBLOCK ~ 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* N P* X P* b P* l . P***************************************** v . P* EXTERNAL TOSS MODULE ENTRIES * . P*****************************************
0x0aeadc…0aec70 Dummy {f00=0x0104, f01=0x0190, f02=»R z > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O L . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK j 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJE
0x0aec70…0aee04 Dummy {f00=0x0104, f01=0x0190, f02=»ST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER 4 P* N P EJECT X P************* f P* CONSTANTS * | P************* P* PFASTO EQU /14 FAST OUTPUT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTAR EQU /
0x0aee04…0aef98 Dummy {f00=0x0104, f01=0x0190, f02=»TOP r PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED , PHOME EQU /0B CURSOR HOME H ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME h PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT PSPACE EQU /20 SPACE PSTX EQU /82 START
0x0aef98…0af12c Dummy {f00=0x0104, f01=0x018e, f02=»PE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER * 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT P PSTILL EQU /18 CURSOR STEADY $ PCTYCOD EQU /1B SET COUNTRY CODE P* P******************** P* RETURN CODE
0x0af12c…0af2c0 Dummy {f00=0x0104, f01=0x0190, f02=» P EJECT P* P* . P***************************************** * . P* CONDITIONAL ASSEMBLY * . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MO
0x0af2c0…0af454 (0, 222) Dummy {f00=0x0104, f01=0x0190, f02=»44 Z P* PX:B EQU 1 PWHATDY EQU 0 & P* : P* D 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR N & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 0 PLOWCHA EQU 0 P* P* 8 P* BY MEANS OF CONDITION
0x0af454…0af5e8 Dummy {f00=0x0104, f01=0x018e, f02=»ANT X:G=0 f P* PX:D EQU 0 PEORECH EQU 0 . P* B 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS L @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 PTRASPA EQU 1 P EJECT P*
0x0af5e8…0af77c Dummy {f00=0x0104, f01=0x0190, f02=» < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 D P* f PMMUPAG EQU 0 p P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x0af77c…0af910 Dummy {f00=0x0104, f01=0x0190, f02=» CHARACTER SETS. h P P P* CODE COUNTRY ( P > P* 0 GB/NL/B F P* 1 D/A/L/CH Z P* 2 F/CH/B/L n P* 3 E P* 4 I/CH P* 5 S/SF P* 6 DK/N P* 7 P P* 8 YU P* 9 US PX:G EQU 0 PCOUNTRY EQU
0x0af910…0afaa4 Dummy {f00=0x0104, f01=0x0190, f02=»CT P* P* $ P******************************** $ P* DWT-DISPLACEMENT * F $ P******************************** n P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU
0x0afaa4…0afc38 Dummy {f00=0x0104, f01=0x0190, f02=»ION POINTER r " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES : & PDWTBIN EQU START+/16 BUFFER INDEX P* P EJECT P* P* P********** P* TABLES * P********** P* P* P DATA DVBLEN
0x0afc38…0afdcc Dummy {f00=0x0104, f01=0x0190, f02=»OUTINE ADDRESS ~ P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE : . P DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE ^ P* P* , PTABSPE EQU * TABLE OF SPECIAL CHARACTERS P DATA /0712,/131E,/1F14 P EJECT P*
0x0afdcc…0aff60 Dummy {f00=0x0104, f01=0x0190, f02=»ISPLAY AND RETURN CODE b 2 P* IS SET IF DISPLAY NOT OPERABLE P* T P* ^ > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY h 6 P* FROM ECB-BUFFER WITHOUT ANY CHECK. P* F P* ORDER 06: STANDARD WR
0x0aff60…0b00f4 (0, 223) Dummy {f00=0x0105, f01=0x0190, f02=» IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER B F P* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> P* P IFT GRAFIC=1 B P* ORDER 07:
0x0b00f4…0b0288 Dummy {f00=0x0105, f01=0x0190, f02=» IS SENT TO THE DISPLAY. P* " P XIF , : P* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. 8 < P* THE CURSOR IS SENT TO THE POSITION GIVEN v > P* IN CONTROL WORD. NO INFORMATION ON DISPLAY @ P* I
0x0b0288…0b041c Dummy {f00=0x0105, f01=0x0190, f02=»RASED ON THE LINE j < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL Z @ P* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS : P* IN THE CURSOR POSITION.
0x0b041c…0b05b0 Dummy {f00=0x0105, f01=0x018e, f02=»UNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES * P LDK A2,STX START OF MESSAGE D P CF A5,OUTPUT SEND h P IFT WHATDY=0 " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/10 GRAPHIC DISPLAY P RF(E) ACDY02 NO P IFT GRAFIC=1
0x0b05b0…0b0744 Dummy {f00=0x0105, f01=0x0190, f02=» d P CF A5,OUTPUT P* P XIF ( P* 4 PACDY02 EQU * > P CWK A7,5 ORDER 5 R P RF(E) ACDY90 YES l P SUK A7,6 ORDER 6 ? P RF(E) ACDY20 YES P SUK A7,5 ORDER /B ? P ABL(E) ADY200 YES P SUK A7,/26 ORDER ERAS
0x0b0744…0b08d8 Dummy {f00=0x0105, f01=0x0190, f02=»N RIGHT BYTE IN BUFFER p P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD < " P* /30 CR, LF, LF p B P* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION P* OTHER VALUE CR, LF P* P
0x0b08d8…0b0a6c Dummy {f00=0x0105, f01=0x0190, f02=»FFER ADDRESS ~ & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF > PACDY25 EQU * R * P SUK A2,/2B POSITIONING BEFORE WRITE ? f P RF(E) ACDY90 P SUK A2,6 /31 ? P RF(E) ACDY65 P LDK A4,1 INDICATE LINE FEED " P ADK A2,1 DO
0x0b0a6c…0b0c00 Dummy {f00=0x0105, f01=0x0190, f02=»TURN t PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER $ 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS Z P* PACDY50 EQU * P CF A5,OUTPUT SEND CHARACTER PACDY52 SUK A4,1 & P RF(N) ACDY90 START SECT
0x0b0c00…0b0d94 (0, 224) Dummy {f00=0x0105, f01=0x0190, f02=»OUNTER r P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND & P RB ACDY50 P ( PACDY65 LDK A2,CLEHOM CLEAR AND HOME b P LDK A1,1 & P SC A1,DWTAP,A6 RESET LINE COUNTER P RB ACDY35 P EJECT P* & P* GET, CHECK AND
0x0b0d94…0b0f28 Dummy {f00=0x0105, f01=0x0190, f02=»METER t P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 " P XIF J P LD A4,2,A8 V 2 P ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER j $ P CCR A2,A4 CHAR EQU TO CURRENT? P ABL(E) CHECK YES! PACDY75 EQU * P CF A5,OUTPUT
0x0b0f28…0b10bc Dummy {f00=0x0105, f01=0x0190, f02=»GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 H P RF(NG) SKIP30 RL < 3 ` P SUK A1,1 DECR. BA ~ P LCR A4,A1 GET CHAR P CCK A4,/2020 SPACE ? P RF(NE) SKIP20 NO PSKIP07 SUK A2,1 DECR RL
0x0b10bc…0b1250 Dummy {f00=0x0105, f01=0x0190, f02=»TION CHAR ? | P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! . P SUK A2,2 DECR RL ! H P RB SKIP07 GET NEXT ! b ( PSKIP25 LCR A4,A1 GET CHARACTER AGAIN ! ~ P ANK A4,/FF ! " P SUK A4,/12 UNDER LINE START? ! P RB(Z) SKIP07 YES! SKIP IT! ! P
0x0b1250…0b13e4 Dummy {f00=0x0105, f01=0x018e, f02=»T A2,4,A8 STORE NEW RL ! P XIF " PACDY90 LDK A4,0 " * 6 PADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER " B P LDR A1,A1 LAST CHARACTER? " | P ABL(NP) ADY405 " P SUK A7,5 ORDER 5? " P RB(E) ACDY75 " P ANK A2,/7F " P LDK A1,5 SET
0x0b13e4…0b1578 Dummy {f00=0x0105, f01=0x0190, f02=» " p P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # , P LDK A1,0 SET TABLE PONTER # D * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND # f P RF(NE) ADY128 # " P CCK A2,/1E1E LOW INTENSITY ? # P RF(NE) ADY122 NO # P LDK A4,/80 # , PADY120 ORR
0x0b1578…0b170c Dummy {f00=0x0105, f01=0x0190, f02=» LDK A4,/40 SET UNDERLINE MODE # P RB ADY120 $ & & PADY125 CCK A2,/1414 FAST OUTPUT ? $ 8 P LDK A4,0 $ b P RB(NE) ACDY50 NO $ t P LDR A4,A2 $ ( P CF A15,GETCHR GET OUTPUT CHARACTER $ P LDR A1,A2 $ P LDR A2,A4 $ P LD A4,4,A8 REQ LENGTH $
0x0b170c…0b18a0 Dummy {f00=0x0105, f01=0x018e, f02=» P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % N P LDR A3,A1 NO! % Z P CF A5,FASTER % p PADY127 EQU * % P LD A3,4,A8 REQ LENGTH % P ST A3,6,A8 EFF LENGTH % P ABL ADY405 % PADY128 EQU * % P SUK A1,1
0x0b18a0…0b1a34 (0, 225) Dummy {f00=0x0105, f01=0x0190, f02=» % P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & * P SUK A1,/3F GREATER THAN /5F & P P RB(NP) ACDY70 & t P IFT LOWCHA=0 & 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & & P TO CHARACTER BETWEEN /40 TO /5F & P XIF
0x0b1a34…0b1bc8 Dummy {f00=0x0105, f01=0x018e, f02=» P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' 2 P LC A2,DWTBC,A6 ' R P AD A2,DWTAP,A6 GET POSITION ' j P ANK A2,/FF ' $ P ADR A2,A4 ADD LENGTH OF REQUEST ' $ P LD A3,DWTPOS,A6 GET MAX-POS AND ' P ANK A3,/FF ' P S
0x0b1bc8…0b1d5c Dummy {f00=0x0105, f01=0x0190, f02=» 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( 8 & P LDR A3,A1 SAVE CHARACTER TO SEND ( L POT010 LDR A2,A3 ( v $ P CF A5,OUTPUT SENT CHAR (IN A2) ( P SUK A4,1 DECREMENT COUNTER ( P RB(P) OT010 ( P LD A4,10,A8 GET ACT. LENG
0x0b1d5c…0b1ef0 Dummy {f00=0x0105, f01=0x0190, f02=»27 ( P XIF ) P EJECT ) P* ) $ P* CODE CHECK ERROR ) . P* ) L PADY130 EQU * ) V P LDK A1,CCERR ) j P ORS A1,8,A8 RETURN CODE ) P RB ADY100 ) P EJECT ) P* ) P* TABULATION ) P* ) PADY140 EQU * ) , P CF A15,
0x0b1ef0…0b2084 Dummy {f00=0x0105, f01=0x0190, f02=» ) P RF(E) ADY144 * 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL * P SUK A4,1 * R P RB(NE) ADY143 * d PADY144 LC A4,DWTAP+1,A6 * z . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER * P LC A4,DWTBC,A6 * , P SUR A2,A4 AND REQUESTS POSITION COU
0x0b2084…0b2218 Dummy {f00=0x0105, f01=0x0190, f02=»ADY146 CF A5,OUTPUT * , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + L P RB(NE) ADY145 NO + f P ABL ADY100 + P EJECT + P* + P* ERASE ORDER /31 + P* + 2 PADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE +
0x0b2218…0b23ac Dummy {f00=0x0105, f01=0x0190, f02=» & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , . P CF A5,FASTER FAST OUTPUT , B PADY165 LDK A2,ETB , d P CF A5,OUTPUT , ~ P ABL ADY410 END OF REQUEST , P IFT WHATDY=0 , PADY166 EQU * YES =2 , & P CF A5,ERA GET LENGTH TO ERASE =
0x0b23ac…0b2540 Dummy {f00=0x0105, f01=0x0190, f02=»ND IT , P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - : P LDR A3,A3 OVER EDGE =2 - d P RF(NN) ADY186 NO =2 - P SUK A4,1 ADJUST LENGTH - PADY186 EQU * - P SUK A4,1 DECREMENT =2 - , P RB(N) ADY165 CURSOR I
0x0b2540…0b26d4 (0, 226) Dummy {f00=0x0105, f01=0x0190, f02=» P* . * P* ORDER /B CURSOR POSITIONING PART . P* . < PADY200 EQU * . F P* . Z P IFT WHATDY=0 . d " P LDR* A1,A6 CHANNEL PARAMETER . z P ANK A1,/10 GRAFIC DISPLAY? . P RF(NE) ADY205 YES . 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DI
0x0b26d4…0b2868 Dummy {f00=0x0105, f01=0x0190, f02=»T CURSOR . P RF ADY380 / P IFT WHATDY=0 / " P* GET LINE / 8 * PADY205 LC A4,10,A8 GET REQUESTED LINE / N $ P CC A4,DWTLIN,A6 OUTSIDE SCREEN? / | P RF(NG) ADY207 NO! / 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE / PADY207 EQU * / $
0x0b2868…0b29fc Dummy {f00=0x0105, f01=0x018e, f02=»INE / | P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 ( PADY230 CF A5,OUTPUT SEND 0 V P LDR A4,A4 REQUESTED LINE 0 v " P RB(NZ) ADY210 NOT EQUAL ZERO 0 P LDK A4,1 0 P RF ADY300 0 PADY250 LDK A2,HOME HOME 0 & P LDK A
0x0b29fc…0b2b90 Dummy {f00=0x0105, f01=0x0190, f02=» 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 : $ P CC A4,DWTPOS,A6 OUTSIDE SCREEN? 1 f P RF(NG) ADY303 NO! 1 " P LC A4,DWTPOS,A6 SET LAST LINE 1 PADY303 EQU * 1 P CWK A4,1 FIRST POSITION ? 1 P RF(
0x0b2b90…0b2d24 Dummy {f00=0x0105, f01=0x0190, f02=»Y305 RF(NL) ADY307 REQ. POS NOT ZERO 1 P LDK A4,1 2 , 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2 > P CC A3,DWTPOS,A6 MAX-POS? 2 r P RF(NG) ADY310 NO! 2 P SUK A3,1 2 * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS 2 P RF(E) ADY370 POSITION FOU
0x0b2d24…0b2eb8 Dummy {f00=0x0105, f01=0x0190, f02=»ND 2 z P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 3 N P RF(L) ADY345 BACKSPACE WAY 3 ~ P LDK A2,CR CARRIAGE RETURN 3 & P LDK A3,1 INDICATE FIRST POSITION 3 P RB ADY330 3 " PADY345 L
0x0b2eb8…0b304c Dummy {f00=0x0105, f01=0x0190, f02=»UPDATE HEAD POSITION POINTER 3 x P XIF 4 $ & PADY380 LDK A3,2 START BUFFER INDEX 4 0 P ABL ACDY90 4 Z P IFT WHATDY=0 4 n P* 4 & PADY400 LDK A2,/22 START CHARACTER 4 P CF A5,OUTPUT 4 P* 4 P XIF 4 P* 4 P EJECT 4 P* 4 P*
0x0b304c…0b31e0 Dummy {f00=0x0105, f01=0x018e, f02=»Y405 EQU * 4 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 < P RF(NE) ADY407 NO 5 V P LDR* A1,A6 5 p P LDR A4,A1 5 P ANK A1,/40 UNDERLINE MODE ? 5 P RF(E) ADY406 NO 5 " P LDK A2,ULSTOP UNDERLINE STOP 5 P CF A5,OUTPUT 5
0x0b31e0…0b3374 (0, 227) Dummy {f00=0x0106, f01=0x018e, f02=» PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 @ 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 6 d PADY410 LDK A2,ETX LAST DUMMY 6 P CF A5,OUTPUT SEND DUMMY 6 PADY415 EQU * 6 P SUK A7,5 ORDER 5 ? 6
0x0b3374…0b3508 Dummy {f00=0x0106, f01=0x0190, f02=» P RF(NE) ENDIO NO *DK 7 , P LD A4,DWTAP,A6 GET CURSOR POSITION. *DK 7 " P ST A4,10,A8 PUT IN ECBCW *DK 7 P PENDIO CF A15,TENDIO END I/O 7 v $ PEXIT ABL TDISP GO TO DISPATCHER 7 P* 7 P IFT GRAFIC=1 7 P* 7 P EJECT 7 P* 7 P*
0x0b3508…0b369c Dummy {f00=0x0106, f01=0x018e, f02=» GET CHARACTER 7 | P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 6 P LDR A4,A2 8 L & P CF A15,GETCHR GET NEXT CHARACTER 8 ^ P LDR A1,A4 8 P ANK A4,/80 ADDRESS OR DATA 8 P RF(E) ADY530 DATA MESSAGE 8 P* 8 P* ADDRESS MESSAGE 8 P*
0x0b369c…0b3830 Dummy {f00=0x0106, f01=0x0190, f02=» P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 ( P ORK A2,/20 9 < , PADY515 CF A5,OUTPUT SEND FIRST CHARACTER 9 P $ P LDR A2,A4 GET SECOND CHARACTER 9 ( P CF A5,OUTPUT SEND SECOND CHARACTER 9 P RB ADY510 9 P EJECT 9 P* 9 P* DATA
0x0b3830…0b39c4 Dummy {f00=0x0106, f01=0x018e, f02=»A2 9 P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : . P LDK A2,0 : @ PADY540 SLL A1,1 : R P RF(NN) ADY550 : j P ORKL A2,/200 : PADY550 SUK A7,1 : P RF(E) ADY560 : P SRL A2,1 : P RB ADY540 : PADY560 LDR A4,A2 : P SRL A4,
0x0b39c4…0b3b58 Dummy {f00=0x0106, f01=0x0190, f02=» : , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINTER WHEN END ; 8 ( P* OF REQUEST IS REACHED ; h PUPDAPP EQU * ; ( P LC A3,DWTBC,A6 GET POSITION COUNTER ; 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER ;
0x0b3b58…0b3cec Dummy {f00=0x0106, f01=0x0190, f02=»POSITION ; f 0 P* POINTER WHEN REQUEST RUNNING. < > P* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE < D P* < PPOSUPD EQU * < ( P LC A2,DWTBC,A6 GET POSITION POINTER < P ANK A2,/FF < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITIO
0x0b3cec…0b3e80 Dummy {f00=0x0106, f01=0x0190, f02=»R < j PPOSU10 RTN A15 = P EJECT = P* = . P* I H D Y = 8 P* = L P* INTERRUPT = V P* = l PIHDY EQU * = v P LD A4,DWTST,A6 BUSY? = P RB(N) EXIT NO = P SLL A4,2 ECHO MODE ? = P RF(N) IHDY10 = . P LDR A1,A1 RETURN CODE F
0x0b3e80…0b4014 (0, 228) Dummy {f00=0x0106, f01=0x0190, f02=» R C D Y = P* > ( P* RCDY = RECOVERY ROUTINE DISPLAY > P* > F P* > P ( P* RECOVERY IS CARRIED OUT ONLY IF > Z P* ORDER 6 IS RUNNING > P* > P* AT ENTRY: > P* > P* A6 = DWT-ADDRESS > P* A7 = ORDER > P*
0x0b4014…0b41a8 Dummy {f00=0x0106, f01=0x018e, f02=» CPU852=0 > " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? 8 P* ? D P =3 ? N P LDKL A2,/7FFF ? P ANS A2,DWTST,A6 SET BUSY ? r P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P* ?
0x0b41a8…0b433c Dummy {f00=0x0106, f01=0x0190, f02=» . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ 6 P* @ L P XIF @ V P* @ b P EJECT @ l PRCDY10 EQU * @ z P LDK A2,/00 DUMMY TO SEND @ P CF A5,OUTPUT @ $ P LDR A4,A4 LRC-ERROR IN BLOCK ? @ P RF(NE) RCDY20 @ P IFT
0x0b433c…0b44d0 Dummy {f00=0x0106, f01=0x0190, f02=» P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 A N , P ADK A2,STEADY ADJUST TO STEADY IF SO =3 A $ P CF A5,OUTPUT SEND CURSOR INF =3 A & P SUK A3,1 DEC TRANSFER COUNTER =3 A , P
0x0b44d0…0b4664 Dummy {f00=0x0106, f01=0x018e, f02=»TRY SEND 'COUNTRY CODE' =1 A P ORK A2,/30 =1 B " P CF A5,OUTPUT =1 B : P =3 B T P =3 B b PRCDY14 EQU * =3 B p P XIF =1 B ( P LD A3,DWTST,A6 SAVE STATUS WORD =3 B " P LDK A2,CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND B P L
0x0b4664…0b47f8 Dummy {f00=0x0106, f01=0x018e, f02=» B x " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C . P EJECT C H P* C V ( P* LRC-ERROR IN BLOCK SENT REMOTE C ` P* C PRCDY20 EQU * C P SUK A7,5 ORDER 5 ? C P RF(NE) RCDY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR C
0x0b47f8…0b498c Dummy {f00=0x0106, f01=0x0190, f02=» C ^ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT D 2 P LDK A3,2 START BUFFER INDEX D d PRCDY30 ABL ACDY90 D P EJECT D P* D P* E C H O D Y D P* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE
0x0b498c…0b4b20 Dummy {f00=0x0106, f01=0x018e, f02=» EORECH=0 D P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E 0 P ADK A2,/80 E X P* E l P XIF E v P* E P SUK A3,/8 E P RF(E) ECDY40 BACKSPACE E P SUK A3,/10 E P RF(E) ECDY50 CLEAR E & PECDY10 CF A5,OUTPUT SEND C
0x0b4b20…0b4cb4 (0, 229) Dummy {f00=0x0106, f01=0x0190, f02=» ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F 0 P* BACKSPACE F : P* F P PECDY40 EQU * F Z ( P LC A4,DWTBC,A6 GET POSITION COUNTER F n P ANK A4,/FF F P RB(E) ECDY20 FIRST POSITION F $ P LDK A4,1 INDICATE ONE BACKSTEP F P CF A5,BACCAN
0x0b4cb4…0b4e48 Dummy {f00=0x0106, f01=0x0190, f02=»ER F n P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G B & P LDR* A1,A6 GET CHANNEL PARAMETER G X P ANK A1,/10 GRAFIC DISPLAY G P RF(E) ECDY60 N G P CF A5,BACCAN BACK G P RB ECDY20 G P XIF G * PECDY60 LDR A3,A4 SAV
0x0b4e48…0b4fdc Dummy {f00=0x0106, f01=0x0190, f02=»OUNTER G | P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H 2 P CF A5,FASTER FAST OUTPUT H F P LDK A2,0 H h * P SC A2,DWTBC,A6 RESET POSITION COUNTER H z P RB ECDY20 H P EJECT H P* H P* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR
0x0b4fdc…0b5170 Dummy {f00=0x0106, f01=0x0190, f02=» H x P* I PBACCAN EQU * I P LDR A3,A4 I & ( P LC A2,DWTBC,A6 GET POSITION COUNTER I 8 P ANK A2,/FF I d . P AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER I x P ANK A2,/FF I " P CC A2,DWTPOS,A6 LAST POSITION I P RF(NP) BACA10 NO I $ P LDK A2,SP
0x0b5170…0b5304 Dummy {f00=0x0106, f01=0x0190, f02=»E SPACE I x P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J * PBACA20 CF A5,OUTPUT SEND J J P SUK A4,1 J j P RB(NE) BACA10 J | P NGR A3,A3 NEGATE REGISTER J , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER J P RTN A5 J P EJECT J 4 P******
0x0b5304…0b5498 Dummy {f00=0x0106, f01=0x0190, f02=»SON FOR USING * J r 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P* AND 6386 * K R 4 P*********************************************** K PCHECK EQU * K P* K P* K P LD A1,4,A8 K P SUR A1,A3
0x0b5498…0b562c Dummy {f00=0x0106, f01=0x0190, f02=» K l P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L ( P SUK A1,1 END OF BUFFER? L P P RF(NP) OUT YES! L p P ADK A2,1 INCREMENT POINTER L $ P CCR A7,A2 CHAR EQU TO PREVIUS? L P RB(E) NEXT YES! L POUT EQU * L 6 P CWK A4,EQ
0x0b562c…0b57c0 Dummy {f00=0x0106, f01=0x0190, f02=»TION POINTER * L | , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M F P ANK A2,/FF M ^ " P ADR A3,A4 UPDATE BUFFER-INDEX M r P ST A3,DWTBIN,A6 SAVE INDEX M 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE M P SUR A3,A2 AND COMPARE M
0x0b57c0…0b5954 (0, 230) Dummy {f00=0x011e, f01=0x0190, f02=»*********** M P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N 4 P CF A5,FASTER N X P************** N n P* SET CURSOR * N " P LD A4,DWTST,A6 GET ACTUAL POS N P ANK A4,/FF N ( P AD A4,DWTAP,A6 INC HEAD POS POINTER N P CF A5,C
0x0b5954…0b5ae8 Dummy {f00=0x011e, f01=0x018e, f02=» SUK A3,1 N P ABL ACDY90 READ NEXT CHAR O P* O 4 . PNOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER O > P ABL ACDY75 O p P EJECT O P* O P* O < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT O 4 P* AT ENTRY A4 = NUMBER
0x0b5ae8…0b5c7c Dummy {f00=0x011e, f01=0x0190, f02=» O PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P < P CF A5,OUTPUT SEND P ^ P LDR A2,A4 NO OF CHAR P x P CF A5,OUTPUT SEND P P LDR A2,A3 P P CF A5,OUTPUT SEND P P RTN A5 P P EJECT P P* P P* P
0x0b5c7c…0b5e10 Dummy {f00=0x011e, f01=0x0190, f02=»QU * P P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q * P CF A5,OUTPUT SEND Q J P ECR A2,A4 POS. X < /80? Q d P LDR A2,A2 Q P RF(NN) CURR05 YES! Q P LCK A4,/7F00 Q PCURR05 EQU * Q P LDR A2,A4 Q & P CF A5,OUTPUT OUTPUT POSIT
0x0b5e10…0b5fa4 Dummy {f00=0x011e, f01=0x0190, f02=»IFT RIGHT Q PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R & P RTN A5 R J P EJECT R Z P* =2 R h P* =2 R v P* =2 R 8 P* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 R P* =2 R P* =2 R 0 P* AT ENTRY A4 = CHAR TO ERASE
0x0b5fa4…0b6138 Dummy {f00=0x011e, f01=0x0190, f02=»2 R t P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 S . P ANK A3,/FF =2 S b 2 P SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x0b6138…0b62cc Dummy {f00=0x011e, f01=0x40a2, f02=» RTN A5 RETURN =2 S PABDY EQU * ABORT ROUTINE =4 T , P CF A15,UPDAPP UPDATE CURSOR POSITION =4 T > P RTN A15 RETURN TO CALLER =4 T n P END T @ T EEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x0b62cc…0b6460 Dummy {f00=0x011e, f01=0x2008, f02=» U PP UPDATE CURSOR POSITION =4 S P RTN A15 RETURN TO CALLER =4 T , P END T P@ T EEN =2 S 8 P ADK A2,1 ADJUST LENGTH =2 S n P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO =2 S . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 S P LDK
0x0b6460…0b65f4 (0, 231) Dummy {f00=0x011e, f01=0x0000, f02=»
[…0x7…]
0x0b7100…0b7294 (0, 232) Opaque[0x194]
0x0b7294…0b7428 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2120, f03=0x0000}
0x0b7294…0b7428 IdxSect {
0x0b7294…0b7428 f00 = 0x0109 // 0xb7294 @0x0
0x0b7294…0b7428 f01 = 0x0018 // 0xb7296 @0x2
0x0b7294…0b7428 gno = [ // 0xb7298 @0x4
0x0b7294…0b7428 [0x00]: C0x0109.0x0.0
0x0b7294…0b7428 [0x01]: C0x0109.0x1.0
0x0b7294…0b7428 [0x02]: C0x0109.0x2.0
0x0b7294…0b7428 [0x03]: C0x0109.0x3.0
0x0b7294…0b7428 [0x04]: C0x010a.0x0.0
0x0b7294…0b7428 [0x05]: C0x010a.0x1.0
0x0b7294…0b7428 [0x06]: C0x010a.0x2.0
0x0b7294…0b7428 [0x07]: C0x010a.0x3.0
0x0b7294…0b7428 [0x08]: C0x010b.0x0.0
0x0b7294…0b7428 [0x09]: C0x010b.0x1.0
0x0b7294…0b7428 [0x0a]: C0x010b.0x2.0
0x0b7294…0b7428 [0x0b]: C0x010b.0x3.0
0x0b7294…0b7428 ]
0x0b7294…0b7428 }
0x0b7428…0b75bc Dummy {f00=0x0109, f01=0x018e, f02=» 2 P IDENT DRLT01 REL 9.2 79-11-16 870105040920 P : ( P =8,TIMER RESET,TEST ORDER,INH-A15 B P REL 9.1 79-05-23 n * P =7,CLT010 DUBLE DEF LABEL, RB - ABL P PRR 9.1 79-05-14 " P =6,CWT ADRESS ERROR A5 - A1 P PRR 9.1 79-
0x0b75bc…0b7750 Dummy {f00=0x0109, f01=0x0190, f02=» z P =4,TIMER RESET CORRECTED P REL 8.2 79-03-22 , P =3,NAK HANDLING CORRECTED H P REL 8.2 79-03-16 l P =2,IMPROV. OF TEST ORDER P REL 8.2 79-01-11 , P =1,DISPL.RECV,NAK ERROR,ERR. RETRYCNT P REL 8.2 78-09
0x0b7750…0b78e4 Dummy {f00=0x0109, f01=0x0190, f02=»TERMINAL SYSTEM PTS P* $ P* DRLT01 = DRIVER CHANNEL UNIT & $ P* FOR LOCAL TERMINALS N P* v P* P* P* P* 2 P********************************************* P* < P* THIS IS THE CHANNEL UNIT DRI
0x0b78e4…0b7a78 Dummy {f00=0x0109, f01=0x0190, f02=» IS MADE TO INTERRUPT HANDLER n P* FOR ACTUAL DEVICE. & D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS D P* ARE CARRIED OUT. P* < P* THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES:- P* . P* - OUTLIN
0x0b7a78…0b7c0c Dummy {f00=0x0109, f01=0x0190, f02=» GET ONE CHARACTER FROM ECB-BUFFER P* * 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE 4 P* INCLUDED IN THE DRIVER. j P EJECT P* P* P* B P* THE FOLLOWING FUNCTIONS ARE ALSO INCLUDED IN THE DRIVER:- P* J
0x0b7c0c…0b7da0 Dummy {f00=0x0109, f01=0x0190, f02=»CHER b P* D P* - LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN " P* TO USER VIA A5 ^ P* : P* - LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 P* P* P* . P* NORMAL REGISTER USAGE IN T
0x0b7da0…0b7f34 (0, 233) Dummy {f00=0x0109, f01=0x0190, f02=»MBER * 2 ~ P* A5 = CWT-ADDRESS P* A6 = DWT-ADDRESS , P* A7 = ORDER H P* A8 = ECB-ADDRESS ^ P* z P* P* P EJECT P* P*********** P* ENTRIES * P*********** P* P* & P ENTRY C
0x0b7f34…0b80c8 Dummy {f00=0x0109, f01=0x0190, f02=»RUP FROM CHLT4 ~ $ P ENTRY OUTLIN SEND ONE CHARACTER P ENTRY CHLTON START OF CHLT > : P ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH b ( P ENTRY LDREG RESTORE A3-A5 ANDRETURN . P ENTRY LDREGE WAY BACK FROM ECHO HANDLING P ENTRY LDR
0x0b80c8…0b825c Dummy {f00=0x0109, f01=0x0190, f02=»NUMBER OF LOCAL CHANNEL UNITS 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS & P ENTRY REMFC DUMMY ENTRY Z P ENTRY DWREMU DUMMY ENTRY z " P ENTRY ECHRTN RETURN FROM ECHO P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO P*
0x0b825c…0b83f0 Dummy {f00=0x0109, f01=0x018e, f02=»************************************ P* , P* 6 & P EXTRN SAVE8 SAVE REGISTERS A1-A8 @ P EXTRN TDISP DISPATCHER j P EXTRN IHRET8 RESTORE A1-A8 " P EXTRN INTLT1 INTERRUPT TABLE " P EXTRN INTLT2 INTERRUPT TABLE " P EXTRN INTLT3
0x0b83f0…0b8584 Dummy {f00=0x0109, f01=0x018e, f02=» * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P EXTRN TENDIO 2 P* H P* R ( P*********************************** ( P* DWT PARAMETERS * ( P*********************************** P EXTRN DWTST STATUS P EXTRN DWTOR
0x0b8584…0b8718 Dummy {f00=0x0109, f01=0x0190, f02=» P EXTRN DWTWAT P EXTRN DWTOTQ OUTPUT QUEUE P EXTRN DWTA3 SAVE AREA A3 < P EXTRN DWTA4 SAVE AREA A4 ^ P EXTRN DWTA5 SAVE AREA A5 & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER " P EXTRN DWTECH ECHO DEVICE
0x0b8718…0b88ac Dummy {f00=0x0109, f01=0x0190, f02=»DDRESS DISPLACEMENT | P* P EJECT & P 4 P* < P************* F P* CONSTANTS * P************* r P* P* * PNOERR EQU 1 RETURN CODE. NOT OPERABLE PDUMMSP EQU /03 SPECIAL DUMMY PDRQTIM EQU 30 P*
0x0b88ac…0b8a40 Dummy {f00=0x0109, f01=0x018e, f02=»* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 @ P* | PX:A EQU 1 PLOGING EQU 0 P* 4 P* THIS DRIVER HANDLES ONE OR UP TO FOUR LOCAL . P* CHANNELS BY SETTING X
0x0b8a40…0b8bd4 (0, 234) Dummy {f00=0x0109, f01=0x0190, f02=» Z 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM @ $ P* DRIVER BY SETTING X:C = 0. | P* PX:C EQU 1 PACKMUL EQU 0 P* 8 P* BY SETTING X:D = 1 A SOFTWARE TIME OU
0x0b8bd4…0b8d68 Dummy {f00=0x0109, f01=0x0190, f02=»UPDATED EVERY TIME A SOFTWARE v * P* TIME OUT OCCURS IS ALSO INCLUDED. & P* T PX:D EQU 1 ^ PSOFTIM EQU 0 p P* P* ( P* ECHO FONCTION CAN BE EXCLODED P* BY SETTING X:E = 0 PX:E EQU 1 PCECHO EQU 01
0x0b8d68…0b8efc Dummy {f00=0x0109, f01=0x0190, f02=» P* PCPU852 EQU 1 P* " P EJECT , P : P B PRECHAN EQU 0 J PREMFC EQU 0 ^ PCWTRT1 EQU * r PCWTRT2 EQU * PCWTRT3 EQU * PCWTRT4 EQU * PCWTRT5 EQU * PCWTRT6 EQU * PCWTRT7 EQU * PCWTRT8 EQU
0x0b8efc…0b9090 Dummy {f00=0x0109, f01=0x0190, f02=» L T 1 * : P***************************************************** 4 P* r 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 | P* P* PDWA1 EQU /03 DEVICEADDRESS P* PCWTLT1 EQU * TABLE E
0x0b9090…0b9224 Dummy {f00=0x0109, f01=0x0190, f02=» * PCWTITA EQU *-CWTLT1 ADDRESS TO INTLT1 P DATA INTLT1 2 PCWTINR EQU *-CWTLT1 INR F P INR A2,0,DWA1 f PCWTOTR EQU *-CWTLT1 OTR | P OTR A2,0,DWA1 " PCWTCIS EQU *-CWTLT1 CIO-START P CIO A2,1,DWA1 PCWTRTC EQU *-CWTLT1 "
0x0b9224…0b93b8 Dummy {f00=0x0109, f01=0x018e, f02=»FT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR > , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR f PACKTIM EQU *-CWTLT1 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P EJECT P*
0x0b93b8…0b954c Dummy {f00=0x0109, f01=0x0190, f02=» : P***************************************************** P* B 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 L P* PCWTLT2 EQU * P* P IFT LOCHAN=2 PDWA2 EQU /13 DEVICE ADDRESS P* $ P DATA 0 LAST OUTPUT DWT-
0x0b954c…0b96e0 Dummy {f00=0x0109, f01=0x0190, f02=» CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE F P* b P IFT ACKMUL=1 l P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DAT
0x0b96e0…0b9874 (0, 235) Dummy {f00=0x0109, f01=0x0190, f02=»OCHAN=3 PDWA2 EQU /13 DEVICE ADDRESS P* 4 $ P DATA 0 LAST OUTPUT DWT-ADDRESS > P DATA 0 LAST OUTPUT WORD f P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START " P DATA 0 RE
0x0b9874…0b9a08 Dummy {f00=0x0109, f01=0x0190, f02=»0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR " ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR R P* ~ P XIF P* P* P XIF P IFT LOCHAN=4 P* P* 6 P* CHANNEL UNIT WORK TABLE FOR LOCAL TERMI
0x0b9a08…0b9b9c Dummy {f00=0x0109, f01=0x0190, f02=» x P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR , P OTR A2,0,DWA2 OTR F P CIO A2,1,DWA2 CIO-START ` " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR
0x0b9b9c…0b9d30 Dummy {f00=0x0109, f01=0x0190, f02=»* P XIF P EJECT P* $ P* . 6 P* CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.3 8 P* r PCWTLT3 EQU * | P IFT LOCHAN=3 PDWA3 EQU /23 DEVICE ADDRESS P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST
0x0b9d30…0b9ec4 Dummy {f00=0x0109, f01=0x0190, f02=» " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE * P* F P IFT ACKMUL=1 P P* f P DATA 0 NAK-ACKUMULATOR p $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULA
0x0b9ec4…0ba058 Dummy {f00=0x0109, f01=0x018e, f02=»UTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE : P INR A2,0,DWA3 INR ^ P OTR A2,0,DWA3 OTR x P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P* P IFT ACKMU
0x0ba058…0ba1ec Dummy {f00=0x0109, f01=0x018e, f02=» f ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* 4 P XIF > P EJECT J P* X 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 4 b P* PCWTLT4 EQU * P* P* P IFT LOCHAN=4 PDWA4 EQU /33 DEVICE ADDRESS P*
0x0ba1ec…0ba380 Dummy {f00=0x0109, f01=0x0190, f02=» | P OTR A2,0,DWA4 OTR P CIO A2,1,DWA4 CIO-START " " P DATA 0 RETRANSMISSION COUNTER B P DATA 0 END OF QUEUE h P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED-
0x0ba380…0ba514 (0, 236) Dummy {f00=0x010a, f01=0x0190, f02=»**************************************** 2 P* C H T A B * 0 2 P********************************************** f P* 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCA
0x0ba514…0ba6a8 Dummy {f00=0x010a, f01=0x0190, f02=» P DATA CWTLT2 P IFT LOCHAN=3 P DATA CWTLT3 . P XIF B P IFT LOCHAN=4 N P DATA CWTLT3 d P DATA CWTLT4 x P XIF PCHTABE EQU * END OF TABLE P* P* P* P* P* P EJECT P* P IFF
0x0ba6a8…0ba83c Dummy {f00=0x010a, f01=0x0190, f02=» P* INTERRUPT FROM CHLT1 P* ( P XIF 2 P IFT LOCHAN=2 > PCHLT3 EQU * T PCHLT4 EQU * h P XIF | P IFF LOCHAN=1 PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8
0x0ba83c…0ba9d0 Dummy {f00=0x010a, f01=0x0190, f02=» P IFF LOCHAN=1 ! . P LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 ! P RF CLT010 ! P P* ! b P* C H L T 2 ! l P* INTERRUPT FROM CHLT2 ! P* ! PCHLT2 EQU * ! $ P ST P,INTSAV SAVE LAST INTERRUPT ! P IFT CPU852=1 ! & P CF A15,SA
0x0ba9d0…0bab64 Dummy {f00=0x010a, f01=0x018e, f02=» XIF ! P* " P IFF LOCHAN=1 " . P LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 " , P XIF " ^ P IFT LOCHAN=2 " j 0 PCLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION " P* " P XIF " P* " P IFT LOCHAN=3 " P RF CLT010 " P* " P*
0x0bab64…0bacf8 Dummy {f00=0x010a, f01=0x0190, f02=» " n P IFT CPU852=1 # & P CF A15,SAVE8 SAVE A1-A8 ON STACK # P XIF # H P* # T P IFT LOCHAN=3 # ^ P IFT CPU852=0 # t " P MSR 8,A15 SAVE A1-A8 ON STACK # P XIF # P* # P IFT LOCHAN=3 # . P LDKL A5,CWTLT3 SET CWT-ADDRESS FOR CHLT3 #
0x0bacf8…0bae8c Dummy {f00=0x010a, f01=0x0190, f02=»L T 2 # P* INTERRUPT FROM CHLT3 $ P* $ . PCHLT3 EQU * $ 8 $ P ST P,INTSAV SAVE LAST INTERRUPT $ L P IFT CPU852=1 $ t & P CF A15,SAVE8 SAVE A1-A8 ON STACK $ P XIF $ P* $ P IFT LOCHAN=4 $ P IFT CPU852=0 $ " P MSR 8,A15 SAVE A1
0x0bae8c…0bb020 Dummy {f00=0x010a, f01=0x0190, f02=»C H L T 4 $ P* INTERRUPT FROM CHLT4 % P* % 2 PCHLT4 EQU * % < $ P ST P,INTSAV SAVE LAST INTERRUPT % P P IFT CPU852=1 % x & P CF A15,SAVE8 SAVE A1-A8 ON STACK % P XIF % P* % P IFT LOCHAN=4 % P IFT CPU852=0 % " P MSR 8,A15 SAV
0x0bb020…0bb1b4 (0, 237) Dummy {f00=0x010a, f01=0x0190, f02=»5 EXECUTE INR % ~ P XIF & P* & " P IFT LOCHAN=1 & , P* & B P* & L P* C H L T 1 & V P* & l P* INTERRUPT FROM CHLT1 & v P* & PCHLT1 EQU * & PCHLT2 EQU * & PCHLT3 EQU * & PCHLT4 EQU * & P IFT CPU852=1 & & P
0x0bb1b4…0bb348 Dummy {f00=0x010a, f01=0x0190, f02=»CK & t P XIF ' P* ' P IFT LOCHAN=1 ' $ P LDKL A5,CWTLT1 GET CWT-ADDRESS ' 6 $ P ST P,INTSAV SAVE LAST INTERRUPT ' ^ P INR A2,0,DWA1 ' P* ' P XIF ' P* ' P IFT LOGING=1 ' . P CF A15,LOGG ** LOGG OF INPUT CHARACTER ** ' P XIF
0x0bb348…0bb4dc Dummy {f00=0x010a, f01=0x0190, f02=»DR A3,A2 INPUT WORD IN A3 ' P SRL A3,8 ( " P LDR A4,A3 ( 4 $ P ANK A3,/E 2 * LINE NUMBER IN A3 ( F P SRL A4,3 ( n & P ANK A4,/E 2 * DEVICE NUMBER IN A4 ( . P ABL(NE) CLT100 INPUT IS A DATA CHARACTER ( P ANK A2,/7F ( P SUK A2,3 POWER ON ? (
0x0bb4dc…0bb670 Dummy {f00=0x010a, f01=0x0190, f02=» QUEUE AND SEND IF SOMETHING THERE ( P* ) * & P LDR* A7,A5 LAST OUTPUT DWT IN A7 ) 4 P CMR A5 RESET LAST OUTPUT ) ^ P LD A6,CWTEQ,A5 OUTPUT QUEUE ) P RF(E) CLT020 ) P STR A2,A15 SAVE A2 ) $ P LD A2,DWTOTQ,A6 GET QUEUE LINK ) $ P ST A2,CWT
0x0bb670…0bb804 Dummy {f00=0x010a, f01=0x0190, f02=» EJECT ) P* * P* * 2 P* CHECK CONTROL CHARACTER AND UPDATE ERROR- * " 2 P* ACKUMULATORS IF NAK, RETRANSMISSION FAULT * X ( P* OR UNDEFINED CONTROL CHARACTER * P* * PCLT020 EQU * * P LDR A6,A7 GET LAST OUTPUT * P RF(E) CLT062
0x0bb804…0bb998 Dummy {f00=0x010a, f01=0x0190, f02=»F(Z) CLT032 =3 * P* + P IFT ACKMUL=1 + " P* + 8 P =1 + B P =1 + P P LDK A7,2 + ^ $ P SUK A2,/16 RETRANSMISSION FAULT + p P RF(E) CLT025 + " P ADK A7,2 UNDEFINED INTERRUPT + PCLT025 ADR A7,A5 + 0 P IM CWTADD,A7 INCREMENT ACKU
0x0bb998…0bbb2c Dummy {f00=0x010a, f01=0x0190, f02=», RETRANSMISSION FAULT OR + ~ $ P* UNDEFINED CONTROL CHARACTER , " P* , J : P* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE , T 4 P* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH , P* MESSAGE NOT OPERABLE. , P* , PCLT028 EQU * , .
0x0bbb2c…0bbcc0 Dummy {f00=0x010a, f01=0x0190, f02=»,/1000 INDICATE RECOVERY TRIAL DONE , , P XRS A2,DWTST,A6 SET BIT IN STATUS WORD - , 0 PCLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE - P LDK A4,1 =1 - P LDK A4,0 - P RF CPO025 - . PCLT032 LDK A1,NOERR INDICATE NOT OPERABLE - ( P CM CWTRTC,A
0x0bbcc0…0bbe54 (0, 238) Dummy {f00=0x010a, f01=0x0190, f02=» AND RETRANSMISSION COUNTER IS UPDATED. - z B P* LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER . 0 @ P* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT . v , P* OPERABLE IS SENT TO DEVICE DRIVER. . P* . PCLT035 EQU * . P
0x0bbe54…0bbfe8 Dummy {f00=0x010a, f01=0x0190, f02=»ON COUNTER . l P LD A4,CWTRTC,A5 GET COUNTER / P SUK A4,7 SEVEN TIMES ? / 6 P RB(E) CLT015 =7(=3) / V * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD / t P LDR A1,A5 / * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION / P =3 / P IFT LOGING=1 / . P C
0x0bbfe8…0bc17c Dummy {f00=0x010a, f01=0x018e, f02=» DATA = 07 / P* 0 2 P* SIMULATE DATA REQUEST IF RETURN CODE FROM 0 . P* CHLT OR DEVICE WITHOUT DATA REQUEST, 0 V P* ELSE GO TO DISPATCHER 0 P* 0 PCLT040 EQU * 0 P LDKL A7,/EFFF 0 6 P ANS A7,DWTST,A6 RESET RECOVERY BIT IN STA
0x0bc17c…0bc310 Dummy {f00=0x010a, f01=0x0190, f02=» , P RF(N) CLT110 YES. SIMULATE DATA REQUEST 1 P* 1 4 P IFF SOFTIM=1 1 > P* 1 T PCLT062 EQU * 1 ^ P RF EXIT 1 r P* 1 P XIF 1 P* 1 P* 1 P IFT SOFTIM=1 1 P* 1 P EJECT 1 P* 1 P* 1 P* PRINTER TIMING 1
0x0bc310…0bc4a4 Dummy {f00=0x010a, f01=0x0190, f02=» 1 P* RESTART TIMER 2 P* 2 " " P LDKL A3,-DRQTIM RESTART TIMER 2 , P ST* A3,DWTTP,A6 2 R P RF EXIT 2 j P* 2 z P* START TIMER 2 P* 2 PCLT060 LDR A1,A6 PARAMETER 2 P LDKL A4,DWTTP TIMER POINTER 2 $ P ADR A4,A6 ADD WITH DWT-ADDR
0x0bc4a4…0bc638 Dummy {f00=0x010a, f01=0x0190, f02=» RF EXIT 2 P 3 P EJECT 3 P* 3 & P* 3 0 P* RESET TIMER IF STARTED 3 : P* 3 ^ P =4 3 h P =4 3 v P =4 3 P =4 3 P =4 3 P EJECT 3 P* 3 6 P* TIME-OUT ROUTINE HANDLING MISSING INTERRUPTS 3 P* FRO
0x0bc638…0bc7cc Dummy {f00=0x010a, f01=0x0190, f02=»A3,DWTST,A6 3 P SLL A3,2 ECHO MODE ? 4 P RF(N) CLT110 YES 4 2 P* 4 L P IFT ACKMUL=1 4 V P IFF LOCHAN=1 4 l P* 4 " P LDR* A5,A6 CHANNEL PARAMETER 4 P ANK A5,/F 4 P SLL A5,1 2 * INDEX 4 ( P ADK A5,2 JUST TO AVOID TABLE LENGTH 4
0x0bc7cc…0bc960 Dummy {f00=0x010a, f01=0x0190, f02=» ACKMUL=1 4 P IFT LOCHAN=1 5 P* 5 ( $ P LDKL A5,CWTLT1 GET CWT-ADDRESS 5 2 ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR 5 Z P* 5 P XIF 5 P IFT SOFTIM=1 5 P* 5 $ P LD A7,DWTOR,A6 TEST ORDER ? =2 5 P ANK A7,/FE U =9(=2) 5 2 P RB(E) C
0x0bc960…0bcaf4 (0, 239) Dummy {f00=0x010a, f01=0x0190, f02=» P* 6 P* POWER ON DATA = 03 6 P* 6 0 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 6 : 6 P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL 6 t $ P* UNIT OR THOSE IN ECHO MODE. 6 P* 6 P* 6 & P* ON EXIT TO RECOVERY ROUT
0x0bcaf4…0bcc88 Dummy {f00=0x010a, f01=0x0190, f02=» 6 P CF A15,GETLIN 7 $ P LDR* A2,A5 GET LAST OUTPUT DWT 7 . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER 7 F P LDK A4,0 7 x P LDR A3,A6 DEVICE COUNTER 7 P LDR A1,A8 ADDRESS POINTER 7 $ P RF(Z) EXIT EXIT IF NOT DEFINED 7 PCPO020 ADK A1,2 7
0x0bcc88…0bce1c Dummy {f00=0x010a, f01=0x0190, f02=»A6 LEFT BYTE OF DWTCHP 7 P ANK A7,1 INPUT DEVICE ? 8 P RF(NE) CPO025 YES 8 > P LDKL A7,/EFFF 8 X ( P ANS A7,DWTST,A6 RESET RECOVERY BIT 8 n P LC A7,DWTST,A6 8 P ANK A7,/20 ECHO MODE ? 8 P RF(NE) CPO030 YES 8 2 P CWR A6,A2 DEVICE WAITING FO
0x0bce1c…0bcfb0 Dummy {f00=0x010a, f01=0x0190, f02=» TO RECOVERY IN A7 8 x P RF(E) CPO030 NO RECOVERY 9 P LDKL A5,DWTSB2 STACKBASE 9 < P ADR A5,A6 9 ^ P INH 9 p & P CFR A15,A7 GO TO RECOVERY ROUTINE 9 | ( PCPO030 SUK A3,2 ALL DEVICES THREATED 9 P 9 P RB(NE) CPO020 NO TAKE NEXT 9 PEXIT ABL T
0x0bcfb0…0bd144 Dummy {f00=0x010a, f01=0x0190, f02=» VALID INTERRUPT ? 9 P RB(N) EXIT : P LDR A8,A8 : . P RB(Z) EXIT EXIT NOT DEFINED : @ P LDR* A6,A8 GET DWT : d P RB(E) EXIT : P ANKL A6,/FFFE : . P LCR A7,A6 LEFT BYTE IN CHANNEL PARAMETER : P ANK A7,1 DATA INPUT ? : P RF(NE) CLT110
0x0bd144…0bd2d8 Dummy {f00=0x010a, f01=0x0190, f02=» * P LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 ; P IFT SOFTIM=1 ; 2 * P LC A3,DWTOCH,A6 GET LAST CHARACTER =4 ; H P ANK A3,/7F =4 ; v * P SUK A3,DUMMSP SPECIAL DUMMY=ETX ? =4 ; P RF(NE) CLT120 NO =4 ; 0 P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST ? =9 ;
0x0bd2d8…0bd46c Dummy {f00=0x010a, f01=0x0190, f02=» =4 ; P CM* DWTTP,A6 RESET TIMER =4 < 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TIMER =4 < 0 PCLT120 EQU * =4 < f P XIF < ~ 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 < P ENB < * P ABI INTADR,A3 GO TO INTERRUPT HANDLER < P* < > P*
0x0bd46c…0bd600 Dummy {f00=0x010a, f01=0x018e, f02=»RROR CODE (A1=0 NOERROR) < B P* (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) = " P* A6 = DWT-ADDRESS = h P* = P* A7 = ORDER = P* = P* A8 = ECB-ADDRESS = P EJECT = P* = P* G E T L I N = P* = > P*
0x0bd600…0bd794 (0, 240) Dummy {f00=0x010b, f01=0x018e, f02=» = P* > P* A3 = LINE NUMBER * 2 > P* A4 = DEVICE NUMBER * 2 > 2 P* > T P* ON EXIT:- > ^ P* > t 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE > ~ < P* A8 = ADDRESS IN 'INTLTX' WHERE DWT-ADDRESS IS FOUND > P* > P* >
0x0bd794…0bd928 Dummy {f00=0x010b, f01=0x018e, f02=» , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION ? ( P RF(Z) GTL010 RETURN IF NOT DEFINED ? 4 P LDR* A6,A8 GET ID-WORD ? ` , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES ? 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION ? $ PGTL010 ABL RTNA15 RETURN AND ENB
0x0bd928…0bdabc Dummy {f00=0x010b, f01=0x018e, f02=» < P* CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL @ 8 P* UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A @ D P* OUTPUT QUEUE THREAD. @ P* @ P* ON ENTRY: @ P* @ . P* A2 = OUTPUT CHARACTER IN RIGHT BYTE @ P* A6
0x0bdabc…0bdc50 Dummy {f00=0x010b, f01=0x0190, f02=» P IFT CPU852=0 A " P MSR 8,A15 SAVE A1-A8 ON STACK A P XIF A @ P* A L P* A V P IFF LOCHAN=1 A ` P* A v " P LDR* A1,A6 CHANNEL PARAMETER A P ANK A1,/F CHANNEL INDEX A P SLL A1,1 A P ADK A1,2 A * P LD A1,CHTAB,A1 GET CWT-ADDRES
0x0bdc50…0bdde4 Dummy {f00=0x010b, f01=0x018e, f02=»* A P INH INHIBIT INTERRUPT B P LDR* A4,A1 IS UNIT FREE ? B * P RF(E) OUL050 YES B L P EJECT B f P* B t P* QUEUE OUTPUT B ~ P* B & POUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE B P RF(E) OUL020 B POUL010 CWR A6,A4 B . P RF(E) OUL060
0x0bdde4…0bdf78 Dummy {f00=0x010b, f01=0x0190, f02=» P RB OUL010 C $ POUL020 ST A6,CWTEQ,A1 QUEUE DWT C P RF OUL040 C > $ POUL030 ST A6,DWTOTQ,A4 QUEUE DWT C P * POUL040 CM DWTOTQ,A6 SET END OF THREAD C x P RF OUL060 C P EJECT C P* C P* SEND CHARACTER C P* C , POUL050 LDR* A3,A6
0x0bdf78…0be10c Dummy {f00=0x010b, f01=0x0190, f02=»INSTRUCTION C v P RB(NA) OUL005 D $ P STR A6,A1 STORE LAST DWT IN CWT D * P IFT LOGING=1 D R 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** D h P XIF D 4 P ST A2,CWTLOW,A1 STORE LAST OUTPUT IN CWT =6(=3) D 8 POUL060 SC A2,DWTOCH,A6 STORE OUTPUT CHAR
0x0be10c…0be2a0 Dummy {f00=0x010b, f01=0x0190, f02=»852=0 D * P MLR 8,A15 RESTORE A1-A8 FROM STACK... E P INH U =9 E < P ADKL A15,2 ...AND =9 E N P LDR* P,A15 RETURN =9 E l P XIF E P* E P EJECT E P* E P* C H L T O N E P* E > P* SUBROUTINE TO RESET CWT AND PERFORM
0x0be2a0…0be434 (0, 241) Dummy {f00=0x010b, f01=0x0190, f02=»FF LOCHAN=1 E P* F P LD A1,CHTAB F " PCON010 SUK A1,2 ALL TREATED ? F 2 P RF(NZ) CON020 NO TAKE NEXT F X P ABL RTNA15 RETURN AND ENB F | * PCON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS F P RB(Z) CON010 F $ P EX CWTCIS,A5 EXECUTE CIO-START F
0x0be434…0be5c8 Dummy {f00=0x010b, f01=0x0190, f02=»R F t P RB CON010 G P* G P* G & P XIF G 0 P* G < P* G F P IFT LOCHAN=1 G P P* G f P CIO A2,1,DWA1 CIO-START G p P LD A6,CWTLT1 GET LAST DWT G P RF(Z) CON010 G P CM CWTLT1 RESET LAST OUTPUT G P LDK A2,0 G " P CF A15,OU
0x0be5c8…0be75c Dummy {f00=0x010b, f01=0x018e, f02=»U T G P* H < P* SEND ONE CHARACTER VIA 'OUTLIN' INDICATE INTERRUPTS H & P* ALLOWED AND SAVE A3-A5 IN DWT. H V P* H P* H POUTPUT EQU * H P ANK A2,/FF H P LDR A1,A2 H P SUK A1,/82 STX ? H P RF(E) LDRE10 H P SUK A1,/1
0x0be75c…0be8f0 Dummy {f00=0x010b, f01=0x0190, f02=» P* I : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT I P* I L P* I V PSTREG EQU * I ` P INH I t P LDKL A1,/100 I 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED I $ P ST A3,DWTA3,A6 SAVE REGISTER A3 I $ P ST A4,DWTA4,A6
0x0be8f0…0bea84 Dummy {f00=0x010b, f01=0x0190, f02=»* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN I & P* VIA A5. ELSE GO TO DISPATCHER. J B P* J l P* J v PLDREG EQU * J P LD A3,DWTST,A6 J P ANKL A3,/100 J P ABL(Z) EXIT =4 J P XRS A3,DWTST,A6 J P* J P* J P*
0x0bea84…0bec18 Dummy {f00=0x010b, f01=0x0190, f02=»A5,DWTA5,A6 A5 J PLDREGE EQU * K & & P LD A3,DWTA3,A6 RELOAD REGISTER A3 K : & P LD A4,DWTA4,A6 A4 K d $ PLDRE10 LD A7,DWTOR,A6 GET ORDER K P ANK A7,/FF K P LD A8,DWTECB,A6 K P RTN A5 RETURN VIA A5-STACK K P E
0x0bec18…0bedac Dummy {f00=0x010b, f01=0x0190, f02=»* ON ENTRY: K P* L P* A3 = BUFFER INDEX L P* A8 = ECB-ADDRESS L > P* L P* ON EXIT: L f P* L | P* A2 = CHARACTER L * P* A1 = 0 IF LAST CHARACTER ELSE # 0 L P* L J P* IF LAST CHARACTER IS REACHED A3 IS STORED
0x0bedac…0bef40 Dummy {f00=0x010b, f01=0x0190, f02=»H010 LAST CHARACTER REACHED L " P LD A2,2,A8 GET BUFFER ADDRESS M $ P ADR A2,A3 M J P LCR A2,A2 CHAR. TO A2 M P ANK A2,/FF M z $ P ADK A3,1 INCREMENT BUFFER INDEX M P RF GCH020 M , PGCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH M PGCH020 EQU * M
0x0bef40…0bf0d4 (0, 242) Dummy {f00=0x010b, f01=0x0190, f02=» M 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND N $ P* OUTPUT CHARACTER ARE LOGGED N D P* N l P* N v P* N P IFT LOGING=1 N P* N PLOGG STR A1,A15 N P LD A1,POINT N P ADK A1,2 N & P CWK A1,BUFE BUFE IS MAX LOGG AR
0x0bf0d4…0bf268 Dummy {f00=0x010b, f01=0x0190, f02=» N f P LDR* A1,A15 O P ADKL A15,2 O P LDR* P,A15 RETURN O 0 P* O J P* O T PPOINT DATA BUF LOGG POINTER O ^ P* O PBUF RES 63 LOGG AREA O PBUFE EQU * O P* O P XIF O P EJECT O P* O P* O P* E C H O , E C H E
0x0bf268…0bf3fc Dummy {f00=0x010b, f01=0x0190, f02=»* O 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, P 2 P* LOAD STACKBASE AND FIND ADDRESS P B 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE P x P* P . P* PART TWO: ECHO ONE OR MORE CHARACTERS P 2 P* CORRESPONDING
0x0bf3fc…0bf590 Dummy {f00=0x010b, f01=0x0190, f02=» CAN BE FOUND P n 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO Q P* OUTPUT DEVICE Q N P* Q h 6 P* RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER Q r P* Q " P* A7 MUST NOT BE DESTROYED Q 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED W
0x0bf590…0bf724 Dummy {f00=0x010b, f01=0x0190, f02=»E END I/O Q z P XIF R PECHO EQU * R P IFT CECHO=1 R 0 & P ST A3,DWTA3,A6 SAVE A3-A5 IN DWT R D P ST A4,DWTA4,A6 R n P ST A5,DWTA5,A6 R P LD A1,DWTST,A6 STATUS R P SLL A1,2 R $ P RF(NN) RETUR NO ECHO REQUESTED R 0 P LDR A4,A6 SAVE DW
0x0bf724…0bf8b8 Dummy {f00=0x010b, f01=0x0190, f02=»E R ` P LDKL A5,DWTSB2 S & P ADR A5,A6 STACKBASE-ADDRESS IN A5 S " . P LD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK S L 6 P ABI ECHADR,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT S ~ P XIF S PECHRTN EQU * S P IFT CECHO=1 S P LDR A7,A7 END? S P RF(
0x0bf8b8…0bfa4c Dummy {f00=0x010b, f01=0x404e, f02=»R ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 S P* T 4 P END T >@ T JD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK S L 6 P ABI ECHADR,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT S ~ P XIF S PECHRTN EQU * S P IFT CECHO=1 S P LDR A7,A7 END? S P RF(
0x0bfa4c…0bfbe0 Dummy {f00=0x010b, f01=0x2008, f02=» U PPOINT DATA BUF LOGG POINTER 9 P* 9 2 PBUF RES 63 LOGG AREA 9 < PBUFE EQU * 9 X P* 9 j P XIF 9 t P* 9 P END 9 @ 9 A1,BUFE BUFE IS MAX LOGG AREA 8 P RF(NE) L1 8 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS 8 PL1 ST A1,P
0x0bfbe0…0bfd74 (0, 243) Dummy {f00=0x010b, f01=0x4190, f02=» REGGO DCTASKD GETTIDA PRINT T1GO- T:DSC01 T:PAUS. T:RSTR1 VDUKB X [ >ADM6 800205 $$$TRA ADM600M CHNGDKD EXCHAN- t SENDRC1 i SIGNOFX T SIGNON d STRTRC " TERMINE 9 TRNOK WJDCS ADMRETM ASGVOLD BCKUP CLSVOLt GETBIT1 LAMPOFO LAM
0x0bfd74…0bff08 Dummy {f00=0x010b, f01=0x0002, f02=»
0x0bff08…0c009c Dummy {f00=0x010b, f01=0x2008, f02=»
0x0c009c…0c0230 Dummy {f00=0x010b, f01=0x0190, f02=» t * & y * & @ * & n * & NJ-AMT & & & - & K
0x0c0230…0c03c4 Dummy {f00=0x010b, f01=0x0190, f02=» F l * & G H I P Q R S T 8 P d : H IDENT D:CB40 TRA 4.1 80-01-22 F1 O1111 02.01.XXX.1 v D:CB40 D:CB40C * & F 0 0 * &
0x0c03c4…0c0558 Dummy {f00=0x010b, f01=0x0190, f02=»01.XXX.1 b C:CB60 C:CB60C " * & x 6 * & d & = & [ & y & & & & &
0x0c0558…0c06ec Dummy {f00=0x010b, f01=0x0190, f02=».1 80-01-22 F1 O1111 02.01.XXX.1 | D:CB60 * D:CB60C < * & . 9 P 0 9 ; ~ . : H IDENT Z:TB10 TRA 4.1 80-01-22 F1 O1111 02.01.XXX.1 Z:TB10 Z:TB1
0x0c06ec…0c0880 Dummy {f00=0x010b, f01=0x0190, f02=» p * & [ * & y < * & j * & * &
0x0c0880…0c0a14 (0, 244) Opaque[0x194]
0x0c0a14…0c0ba8 # DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21f8, f03=0x0000}
0x0c0a14…0c0ba8 IdxSect {
0x0c0a14…0c0ba8 f00 = 0x010f // 0xc0a14 @0x0
0x0c0a14…0c0ba8 f01 = 0x0012 // 0xc0a16 @0x2
0x0c0a14…0c0ba8 gno = [ // 0xc0a18 @0x4
0x0c0a14…0c0ba8 [0x00]: C0x010f.0x3.0
0x0c0a14…0c0ba8 [0x01]: C0x0110.0x0.0
0x0c0a14…0c0ba8 [0x02]: C0x0110.0x1.0
0x0c0a14…0c0ba8 [0x03]: C0x0110.0x2.0
0x0c0a14…0c0ba8 [0x04]: C0x0110.0x3.0
0x0c0a14…0c0ba8 [0x05]: C0x0111.0x0.0
0x0c0a14…0c0ba8 [0x06]: C0x0111.0x1.0
0x0c0a14…0c0ba8 [0x07]: C0x0111.0x2.0
0x0c0a14…0c0ba8 [0x08]: C0x0111.0x3.0
0x0c0a14…0c0ba8 ]
0x0c0a14…0c0ba8 }
0x0c0ba8…0c0d3c Dummy {f00=0x010f, f01=0x0190, f02=» 2 P IDENT DRTC01 REL 9.2 79-11-16 870105040920 P : $ P =2, INTERFACE UNKNOWN HANG-UP B P REL 9.1 79-11-02 j " P =1,SKIP LEADER BIT WHEN BOT P REL 9.1 79-05-23 P* P* < P********************************************
0x0c0d3c…0c0ed0 Dummy {f00=0x010f, f01=0x0190, f02=» P* P* P* P* " P* , < P******************************************************* 6 P* v P* > P* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS & P* CONNECTED TO CPU VIA CHCR-DCR P* > P* ONLY
0x0c0ed0…0c1064 Dummy {f00=0x010f, f01=0x0190, f02=»LENGTHS FROM 2 TO l P* 256 CHARACTERS P* 4 P EJECT DRTC01 > P* V P* ` 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: j P* " P* T C D A : ACTIVATION PART P* $ P* I H T C : INTERRUPT HANDLER P*
0x0c1064…0c11f8 Dummy {f00=0x010f, f01=0x0190, f02=»CE WORK TABLE 02 z P* , P* AND O R D E R P R O C E S S O R S " P* R P* * P* THE FOLLOWING ORDERS ARE TREATED: f P* P* ORDER /00: TEST STATUS P* /02: READ P* /05: WRITE P* /0
0x0c11f8…0c138c Dummy {f00=0x010f, f01=0x0190, f02=»REVERSE ~ P* /24: ERASE P* /37: LOAD 0 P* /38: UNLOAD L P* j P EJECT DRTC01 t P* P* , P* THE FOLLOWING RETURN CODES ARE USED: P* P* BIT 0 REQUEST ERROR P* 1 LEADER
0x0c138c…0c1520 Dummy {f00=0x010f, f01=0x0190, f02=» 6 WRITE PROTECTED P* 7 B-SIDE P* 9 REWIND TIME-OUT 6 P* 11 SEQUENCE ERROR V P* -READ SEQUENCE ERROR v > P* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY 6 P* -POWER RECOVERY WHEN SEQ. COUNTER NO
0x0c1520…0c16b4 (0, 245) Dummy {f00=0x0110, f01=0x0190, f02=»OUGHPUT ERROR P* 15 NOT OPERABEL P* 4 P EJECT DRTC01 > P* V P* ` " P* NORMAL USAGE OF REGISTERS: j P* P* REGISTER A1: RETURN CODE P* A2: SST STATUS * P* A3: DWT STATUS AFTER SST
0x0c16b4…0c1848 Dummy {f00=0x0110, f01=0x0190, f02=» t & P* A8: SUBROUTINE STACK P* 2 P* < P* SYSTEM ADAPTATION: F P* d : P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE n P* REDUCED TO HANDLE: P* " P* -ONLY ONE CASSETTE RECORDER 0 P* -ORDERS REV
0x0c1848…0c19dc Dummy {f00=0x0110, f01=0x0190, f02=»******* P* P* " P ENTRY IHTC INTERRUPT ADDRESS $ . P ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01 J . P ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02 | $ P ENTRY TCDRON POWER UP RECOVERY P P P P* P* $ P******
0x0c19dc…0c1b70 Dummy {f00=0x0110, f01=0x0190, f02=»XTRN TDISP DISPATCHER MAIN ENTRY 4 P EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE ( $ P EXTRN SWLXY SWITCH TO LEVEL XY ` . P EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN , P EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE . P EXTRN DISEND GO TO DISPATCHER
0x0c1b70…0c1d04 Dummy {f00=0x0110, f01=0x0190, f02=»INIT FLAG AT PGM LOADING ( P EXTRN ECBRL REQUESTED LENGTH IN ECB ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB L $ P EXTRN ECBCW CONTROL WORD IN ECB x P EJECT DRTC01 P* P* P****************** P* DWT PARAMETERS * P********
0x0c1d04…0c1e98 Dummy {f00=0x0110, f01=0x0190, f02=»T #11 - TAPE MARK ENCOUNTERED ON LAST , P* BIT #12 - REPOSITIONING AT RECOVERY . " P* BIT #13 - WRITE PROTECTED ^ P* BIT #14 - A-SIDE * P BIT #15 - DEVICE LOCKED (OPERABLE) P EXTRN DWTOR DWT ORDER " P EXTRN DWTECB DWT ECB ADDRES
0x0c1e98…0c202c Dummy {f00=0x0110, f01=0x0190, f02=»****** ~ P* > P* THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE " P* RECORDER BY SETTING X:A=1 Z P* PX:A EQU 1 PDBCAS EQU X:A P* 6 P* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED P* BY SETTING X:B
0x0c202c…0c21c0 Dummy {f00=0x0110, f01=0x018e, f02=» SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 ( P* < P* F 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION P . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P* MMU BUFFER SIZE P*
0x0c21c0…0c2354 (0, 246) Dummy {f00=0x0110, f01=0x0190, f02=» P EJECT DRTC01 P* P* CONSTANTS AND WORK AREAS * P* L 4 P DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFER SIZE V P DATA DEVIND DEVICE INDEX $ PTCAD DATA TCDA ACTIVATION ENTRY " P DATA 0 ABORT ROUTINE ADDRESS P RES 4 SUB
0x0c2354…0c24e8 Dummy {f00=0x0110, f01=0x0190, f02=»4FF P XIF PTABL EQU *-TAB P EJECT DRTC01 . P* F P* P P*************************** Z P* CHANNEL UNIT PARAMETERS * ~ P*************************** P* P* P* DEVICE ADDRESS: P* PCHCRDA EQU
0x0c24e8…0c267c Dummy {f00=0x0110, f01=0x0190, f02=»O OF RETRIES ~ P* * PPSUBS EQU 5 POWER UP BACKSPACE NUMBER P* L $ PPREAD EQU 4 POWER UP READ NUMBER V P* ~ 6 PPINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL P* P IFT REVER=1 * PPERAS EQU 6 NO OF ERASE FOR ORDER /24
0x0c267c…0c2810 Dummy {f00=0x0110, f01=0x018e, f02=»RS AND START PROCESSING d P* P* * PTCDA EQU * 4 P LDK A1,0 F P LDK A4,TABL-1 X P* n 0 PTCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER x P RF(E) TCDA20 VALID ORDER P SUK A4,1 P RB(NN) TCDA10 TRY NEXT P*
0x0c2810…0c29a4 Dummy {f00=0x0110, f01=0x0190, f02=» v ( P LD A5,ECBRL,A8 GET REQUESTED LENGTH ( P LD A3,SEKBYT,A6 SEQUENCE COUNTER ? 4 P RF(NE) TCDA21 NO ` 0 P ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER z P* PTCDA21 EQU * . P LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS P ANK A2,2
0x0c29a4…0c2b38 Dummy {f00=0x0110, f01=0x0190, f02=»R RECOVERY PURPOSES x P SUK A7,/37 LOAD ? P RF(NE) TCDA22 NO 6 $ P LD A3,ECBCW,A8 GET CONTROL WORD P P ANK A3,1 x 2 P ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT P* ( PTCDA22 LD A3,2,A8 GET BUFFER ADDRESS 0 P ST A3,BUFADR SAVE
0x0c2b38…0c2ccc Dummy {f00=0x0110, f01=0x0190, f02=» * PTCDA23 ADK A5,3 CHECK REQUESTED LENGTH ( P RB(P) TCDA15 LESS THAN 2 CHARACTERS 2 P ADK A5,254 ^ * P RB(N) TCDA15 MORE THAN 256 CHARACTERS r P SUR A3,A5 $ P LD A4,SEKBYT,A6 SEQ. COUNTING ? P RF(NZ) TCDA25 NO , P LD A2,DWTBKC,A6 GET
0x0c2ccc…0c2e60 Dummy {f00=0x0110, f01=0x0190, f02=»1 P* P* P* SELECT RECORDER P* 8 P* B & PTCDA30 LDKL A8,STB LOAD STACK BASE L P CF A8,SELECT SELECT CASSETT v $ P CF A15,SWLXY SWITCH TO LEVEL XY P LDR A1,A2 SAVE STATUS , P LDK A4,RTRIES PRESET NUMBER OF RETRIES
0x0c2e60…0c2ff4 (0, 247) Dummy {f00=0x0110, f01=0x018e, f02=»A ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE P IFT REVER=1 6 P DATA OLOCK,REVERS,ERTAPE J P XIF l P* x P EJECT DRTC01 P* P* P* RECOVERY AFTER POWER ON P* P* PTCDRON EQU * P IFT CPU852=1
0x0c2ff4…0c3188 Dummy {f00=0x0110, f01=0x0190, f02=» P* & P LD A1,INIFLG CHECK IF PGM LOADING $ P ABL(NZ) TDISP YES SKIP RECOVERY < P LDKL A8,STB LOAD STACK BASE d P LDKL A6,DWTC01 FIRST DWT P CF A8,RCOVER RECOVERY P IFT DBCAS=2 P LDR* A6,A6 GET OTHER DWT P CF A8,RCO
0x0c3188…0c331c Dummy {f00=0x0110, f01=0x0190, f02=»T GOING ON z $ P LDR A6,A4 PUT DWT ADDRESS IN A6 " P LD A3,SEKBYT,A6 SEQ. COUNTING : ( P RB(Z) TCDA30 YES; REACTIVATE ORDER ` P* * PTCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR P ST A3,SEKBYT,A6 , P ORK A1,/10 IND SEQUENCE ERROR, BIT #11
0x0c331c…0c34b0 Dummy {f00=0x0110, f01=0x0190, f02=»L A1,/400 SAVE EOT BIT P ORR A1,A2 P ANK A2,/0E 0 P RF(Z) READ20 STATUS OK D P* d & PREAD15 SUK A4,1 RECOVERABLE ERROR n P RF(Z) READ20 3 TRIALS DONE $ P CF A8,BKSP BACKSPACE ONE BLOCK P RB READ READ AGAIN P*
0x0c34b0…0c3644 Dummy {f00=0x0110, f01=0x0190, f02=»APE MARK t $ P LDK A7,0 RESET EFFECTIVE LENGTH P RF READ35 8 P* L PREAD30 LDR A2,A1 V $ P LDKL A7,0 GET EFFECTIVE LENGTH n ( PEFFLEN EQU *-2 **EFFECTIVE LENGTH** P ANKL A2,/801 NO DATA,NOT OP P RF(NZ) READ32 P LDR A7,A7
0x0c3644…0c37d8 Dummy {f00=0x0110, f01=0x0190, f02=»1 SET NO OF RETRIES TO ONE P RB READ TRY NEXT BLOCK " P* B PREAD32 EQU * L P ANK A3,/2F NOT TAPE MARK ` $ P LD A2,SEKBYT,A6 SEQ. COUNTING ? P RF(NE) READ35 NO , P SUK A7,1 DECREMENT EFF. LENGTH COUNTER . P CC A5,DWTBKC+1,A6 C
0x0c37d8…0c396c Dummy {f00=0x0110, f01=0x0190, f02=» COUNTER j P* * PREAD40 LD A8,DWTECB,A6 GET ECB ADDRESS * P ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH H P LDK A2,RTRIES v . P SUR A2,A4 GET NUMBER OF RETRIES PERFORMED , P ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD P* PREAD50 EQU *
0x0c396c…0c3b00 Dummy {f00=0x0110, f01=0x0190, f02=»DIO EQU * ( P LDKL A2,/400 BOT/EOT RETURN CODE =1 P TM A2,A1 =1 > P RF(Z) ENDIO2 NOT BOT/EOT =1 T & P ANKL A1,/BFFF RESET LEADER BIT =1 x PENDIO2 EQU * =1 ( P CM TCDADT INDICATE NONE ACTIVE DWT P IFT DBCAS=2 $ P CF A15,SWLXY
0x0c3b00…0c3c94 (0, 248) Dummy {f00=0x0110, f01=0x0190, f02=» P XIF $ P CF A15,SWLXY SWITCH TO LEVEL XY , P ABL DISEND GO TO DISPATCHER VIA TENDIO 8 P* h P EJECT DRTC01 r P* P* P* WRITE TAPE MARK P* PTM LDKL A3,-1 P ST A3,HELPME P* P* W R I T E
0x0c3c94…0c3e28 Dummy {f00=0x0110, f01=0x0190, f02=»ST BLOCK z & P CF A8,ERASE MAKE ONE BLANK BLOCK * P SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK : P* h $ PWRIT10 CF A8,WRITER WRITE RECORD r P ANKL A1,/400 SAVE EOT-BIT P ORR A1,A2 P ANK A2,/0E P RF(Z) WRIT30 STATUS OK P*
0x0c3e28…0c3fbc Dummy {f00=0x0110, f01=0x018e, f02=»1 P* P* $ P CF A8,BKSP BACKSPACE ONE BLOCK P LDK A4,0 ONE ERASE F P RF WRIT20 b P* t $ PWRIT15 CF A8,REPOS POSITION TAPE ~ & P CM SEKBYT,A6 RESET SEQ. INDICATOR P LD A4,WRITA4 GET NO ... P LDR A2,A2 & P RF(NZ
0x0c3fbc…0c4150 Dummy {f00=0x0110, f01=0x0190, f02=» z P ADK A4,1 COUNT ERASE ! P RB(NG) WRIT20 NOT READY ! & P LDKL A4,0 GET RETRY COUNTER ! F $ PWRITA4 EQU *-2 **RETRY COUNTER** ! j P SUK A4,1 ! P RB(NZ) WRIT10 TRY AGAIN ! . P ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 ! P RF WRIT50 GIVE UP
0x0c4150…0c42e4 Dummy {f00=0x0110, f01=0x0190, f02=»B(NZ) READ30 NO ! P LDR A2,A1 CHECK IF " P SLL A2,3 TAPE MARK OK " 4 P RB(N) READ25 YES " R P RB WRIT12 NO " l P* " : PWRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR " P* " , PWRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH " P RB
0x0c42e4…0c4478 Dummy {f00=0x0110, f01=0x018e, f02=» " " PLOAD CF A8,LOCK LOCK CASSETTE # " P RF(Z) REWIND CASSETTE LOCKED # . PLOAD10 LDR A1,A2 NO CASSETTE # T P RB READ50 # x P* # P* # P* R E W I N D # P* # P* REWIND TAPE # P* # P* # , PREWIND CM DWTBKC,A6 CLEAR BL
0x0c4478…0c460c Dummy {f00=0x0110, f01=0x0190, f02=» P ORK A3,1 PREPARE STATUS $ P RB LOAD10 $ $ P* $ 6 P EJECT DRTC01 $ @ P* $ X P* $ b P* U N L O A D $ l P* $ P* UNLOAD CASSETTE $ P* $ P* $ $ PUNLOAD CM DWTST,A6 RESET STATUS $ P CF A8,UNLD UNLOAD CASSETTE $ &
0x0c460c…0c47a0 Dummy {f00=0x0110, f01=0x018e, f02=»* BACKSPACE ONE BLOCK $ P* % P* % * PREVERS CF A8,BKSP BACKSPACE % 4 $ P LDKL A4,-1 DECREMENT BLOCK SEQ. % X $ P ADS A4,DWTBKC,A6 COUNTER BY ONE % P RB UNLO10 % P* % P EJECT DRTC01 % P* % P* % P* E R T A P E % P
0x0c47a0…0c4934 (0, 249) Dummy {f00=0x0111, f01=0x018e, f02=» P ANKL A1,/400 SAVE EOT BIT & P ORR A1,A2 RETURN CODE & & P SUK A4,1 & D " P RB(NZ) ERT10 ERASE NOT READY & V P RB READ50 & | P* & P* & P* O L O C K & P* & P* ORDER LOCK CASSETTE & P* & P* & " POLOCK CF A8,LOCK L
0x0c4934…0c4ac8 Dummy {f00=0x0111, f01=0x0190, f02=» & P* CASSETTE COMMANDS ' P* ' $ P* ' . P* SELECT ' 8 P* ' H PSELECT EQU * ' R P LDK A2,/FF LOAD MASK ' f " P ANS A2,DWTST,A6 SET DWT BUSY ' P IFT DBCAS=1 ' P LDK A3,0 SELECT CODE ' P XIF ' P IFT DBCAS=2 ' P LDR* A3,A6
0x0c4ac8…0c4c5c Dummy {f00=0x0111, f01=0x0190, f02=»A CIO START ' | P RF(Z) EXIT ACCEPTED =2 ( P LDK A1,1 ERROR ( 4 P ABL ENDIO ( L P* ( ^ P* READ SEQUENCE CHAR TO A5 ( h P* ( PREADSQ EQU * ( P LDK A3,/A ( , P ST A3,REQLEN MAKE REQUESTED LENGTH > 0 ( P RB CRCOM ( P* ( P E
0x0c4c5c…0c4df0 Dummy {f00=0x0111, f01=0x0190, f02=» " P LDKL A2,0 GET BUFFER ADDRESS ) PBUFADR EQU *-2 **BUFADR** ) * P ST A2,TCDBA ) L $ P LDKL A2,0 GET REQUESTED LENGTH ) ` PHELPME EQU *-2 **HELPME** ) P ST A2,REQLEN ) P RB CRCOM ) P* ) P* WRITE ONE RECORD ) P* ) PWRITER L
0x0c4df0…0c4f84 Dummy {f00=0x0111, f01=0x0190, f02=» CASSETTE ) P* * PLOCK LDK A3,2 * P RB CRCOM * 2 P* * D P EJECT DRTC01 * N P* * f P* SEARCH BEGINNING OF TAPE * p P* * PSBOT LDK A3,8 * P RB CRCOM * P* * & P* REWIND TAPE AND UNLOCK CASSETTE * P* * PUNLD L
0x0c4f84…0c5118 Dummy {f00=0x0111, f01=0x0190, f02=»JECT DRTC01 * P* + P* + P* I H T C + * P* + > 0 P* INTERRUPT HANDLER : PROCESS OF INTERRUPT + H P* + | P* + PIHTC EQU * + $ P ST P,INTSAV SAVE LAST INTERRUPT + P STR A5,A15 SAVE A5 ON STACK + P SST A5,CHCRDA + P RF(
0x0c5118…0c52ac Dummy {f00=0x0111, f01=0x0190, f02=»A15 SAVE A3 ON STACK + " P LDKL A3,0 GET BUFFER ADDRESS , $ PTCDBA EQU *-2 **BUFFER ADDRESS** , B & P IM TCDBA INCREMENT BUFFER ADDRESS , j 4 P LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE , P SUK A5,10 , P RF(NZ) IHTC05 WRITE , P* , & PIHTC
0x0c52ac…0c5440 Dummy {f00=0x0111, f01=0x0190, f02=»5,A3 GET CHAR FROM BUFFER , P OTR A5,0,CHCRDA OUTPUT IT - " P EJECT DRTC01 - D P* - P* - f PEXIT2 ST A5,TCDA5 - p * P IM EFFLEN INCREMENT EFFECTIVE LENGTH - . P LDR* A3,A15 RESTORE A3 AND A5 FROM STACK - P* - PEXIT3 LDR* A5,A15 -
0x0c5440…0c55d4 (0, 250) Dummy {f00=0x0111, f01=0x0190, f02=»TCDA2 SAVE STATUS - P LDR* A5,A15 RESTORE A5 . P IFT CPU852=1 . : & P CF A15,SAVE8 SAVE A1-A8 ON STACK . P P XIF . z P* . P IFT CPU852=0 . " P MSR 8,A15 SAVE A1-A8 ON STACK . P XIF . P* . P LDKL A1,0 . PTCDA1 EQU *-2 .
0x0c55d4…0c5768 Dummy {f00=0x0111, f01=0x0190, f02=» PTCDA8 EQU *-2 / P EJECT DRTC01 / P* / 2 P* / < P LDKL A2,0 RESTORE STATUS / F PTCDA2 EQU *-2 / h P LDR A3,A2 GET STATUS / ~ P SLL A3,9 SHIFT / P ST A3,2,A8 SAVE ON STACK / ( P LD A3,DWTST,A6 PUT DWT STATUS IN A3 / P* /
0x0c5768…0c58fc Dummy {f00=0x0111, f01=0x0190, f02=» ST A1,TCDA1 / P ST A4,TCDA4 0 P ST A5,TCDA5 0 ( P ST A6,TCDA6 0 < P ST A8,TCDA8 0 P P ABL TDISP GO TO DISPATCHER 0 d P* 0 P EJECT DRTC01 0 P* 0 P* 0 P* R C O V E R 0 P* 0 : P* RECOVERY ROUTINE : POSITIONING OF TA
0x0c58fc…0c5a90 Dummy {f00=0x0111, f01=0x018e, f02=»TURN FROM RECOVERY 0 t P CF A8,LOCK 1 P RF(NZ) REPER NO CASSETTE 1 . , P LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ 1 P P RF(NZ) RC0050 YES 1 ( P CF A8,SBOT SEARCH BEGINNING OF TAPE 1 P SLL A2,5 1 P RF(NN) REPER BOT NOT FOUND 1 P RF REPOK 1
0x0c5a90…0c5c24 Dummy {f00=0x0111, f01=0x0190, f02=» P* R E P O S 2 P* 2 * P* REPOSITIONING OF TAPE AT POWER ON 2 $ P* AND WRITE RECOVERY 2 R P* 2 p 4 P* EXIT: A2 EQ ZERO SUCCESS 2 z 8 P* A2 NOT EQ ZERO NO SUCCESS 2 P* 2 P* 2 PREPOS
0x0c5c24…0c5db8 Dummy {f00=0x0111, f01=0x0190, f02=»SET NO OF BACKSPACES 2 P* 3 PREP010 CF A8,BKSP BACKSPACE 3 & P SLL A2,4 3 J P RF(NN) REP015 DATA FOUND 3 & P LD A2,DWTBKC,A6 GET BLOCK COUNTER 3 ~ P SUK A2,8 GREATER 8 ? 3 P RF(G) REPER YES 3 . P CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE
0x0c5db8…0c5f4c Dummy {f00=0x0111, f01=0x0190, f02=» 3 P EJECT DRTC01 4 P* 4 P* 4 * PREP015 EQU * 4 4 P SUK A4,1 4 H " P RB(NZ) REP010 BACKSPACE AGAIN 4 Z $ P LDK A4,PREAD SET NO OF MAX READ 4 P* 4 & PREP017 CF A8,READSQ READ SEQ. CHAR 4 P LDKL A7,/180F SET READ MASK 4 P TM A2,A
0x0c5f4c…0c60e0 Dummy {f00=0x0111, f01=0x0190, f02=» 4 * PREP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR 5 P SUR A4,A5 CALCULATE 5 6 P SUK A4,1 NO OF BLOCKS TO 5 R P ANK A4,/FF READ FORWARD. 5 t P CWK A4,PINT TOO MANY BLOCKS 5 P RF(G) REPER YES 5 P* 5 P EJECT DRTC01 5 P* 5 P* 5 " P
0x0c60e0…0c6274 (0, 251) Dummy {f00=0x0111, f01=0x0190, f02=»40 LDK A4,RTRIES SET NO OF RETRY 5 & PREP042 LDKL A7,/80F SET READ MASK 6 ( P TM A2,A7 CORRECT READ 6 R P RF(Z) REP045 YES 6 p P SUK A4,1 COUNT RETRY 6 P RF(NP) REP060 GIVE UP 6 P CF A8,BKSP BACKSPACE 6 " P CF A8,READSQ READ SEQ NUMBER 6
0x0c6274…0c6408 Dummy {f00=0x0111, f01=0x0190, f02=»NK A3,/10 6 * P RF(Z) REP060 SHOULD NOT BE TAPE MARK 7 P RF REPOK 7 @ P* 7 R & PREP050 ADK A5,1 CHECK SEQ. NUMBER 7 P CC A5,DWTBKC+1,A6 7 P RF(E) REPOK EQUAL 7 P* 7 PREP060 LD A7,DWTST,A6 7 $ P ANK A7,8 TRY POSITIONING AGAIN? 7
0x0c6408…0c659c Dummy {f00=0x0111, f01=0x0190, f02=»ECOVERY/SEQUENCE ERROR STATUS 7 | " P ORS A2,SEKBYT,A6 SAVE IN DWT 8 & P RTN A8 8 L P* 8 ( PREPOK LDK A2,0 IND RECOVERY CORRECT 8 f P RTN A8 8 P* 8 P EJECT DRTC01 8 P* 8 P* 8 P* D W T C 0 2 8 P* 8 2 P* DEVICE WOR
0x0c659c…0c6730 Dummy {f00=0x0111, f01=0x0190, f02=» 8 x 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY 9 P DATA 0 ECB ADDRESS 9 < P DATA 0 ORDER 9 X ( P DATA TCAD POINTER TO ADDRESS BLOCK 9 n P DATA 0 TTAB ADDRESS 9 $ P DATA 0 WAIT/ACTIVATE INDICATOR 9 P DATA 0 TERMINAL QUEUE 9 IFT MMUPAG=
0x0c6730…0c68c4 Dummy {f00=0x0111, f01=0x0190, f02=»UNTER 9 P DATA 0 SEQ. INDICATOR : P IFT MMUPAG=1 : , PECBTC2 EQU * : B P DATA 0 : V P DATA TCBUF2 : f P DATA 0,0,0,0 : z PTCBUF2 RES DVBLEN+1 : P XIF : P* : P EJECT DRTC01 : P* : P* : P* D W T C 0 1 : P*
0x0c68c4…0c6a58 Dummy {f00=0x0111, f01=0x0190, f02=» 2 : | 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ; P DATA 0 ECB ADDRESS ; > P DATA 0 ORDER ; Z ( P DATA TCAD POINTER TO ADDRESS BLOCK ; p P DATA 0 TTAB ADDRESS ; $ P DATA 0 WAIT/ACTIVATE INDICATOR ; P DATA 0 TERMINAL QUEUE ; IFT MMUPA
0x0c6a58…0c6bec Dummy {f00=0x0111, f01=0x4146, f02=» ; n P DATA 0 < PSEKBYT EQU *-DWTC01 < P DATA 0 SEQ. INDICATOR < 4 P* < R P IFT MMUPAG=1 < PECBTC1 EQU * < r P DATA 0 < P DATA TCBUF1 < P DATA 0,0,0,0 < PTCBUF1 RES DVBLEN+1 < P XIF < P* < " PREQLEN DATA 0 REQUESTE
0x0c6bec…0c6d80 Dummy {f00=0x0111, f01=0x2008, f02=» = OCK - x P DATA 0 TTAB-ADDRESS . $ P DATA 0 WAIT/ACTIVATE INDICATOR . 0 P DATA 0 TERMINAL QUEUE . X & PDWTBKC EQU *-DWTC01 BLOCK COUNTER . v P DATA 0 . PSEKBYT EQU *-DWTC01 . P DATA 0 SEQ. INDICATOR . P* . P* . P END . @
0x0c6d80…0c6f14 (0, 252) Dummy {f00=0x0111, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x0c6f14…0c70a8 Dummy {f00=0x0111, f01=0x0190, f02=» P RF(Z) CRN100 LINK END P* " P* CHECK ATASK IDENT , P* J P LC A3,FDBTNR,A1 TASK ID T P CC A3,CRNTID,A2 t P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P* P* GET NEW BUFFER P* PCRN100 EQU *
0x0c70a8…0c723c Dummy {f00=0x0111, f01=0x018e, f02=»RS v PCRN120 EQU * P LDR* A3,A2 NEXT FREE P ST A3,CRNQUE UPD ROOT < P* Z P* FILL BUFFER WITH ZEROES d P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES PCRN140 EQU * P SUK A3,2 ZEROE WORDS 2 - N P RF(NP) CRN160 B
0x0c723c…0c73d0 Dummy {f00=0x0111, f01=0x0190, f02=» " P* CONNECT NEW BUFFER TO LINK P* . PCRN160 EQU * 8 P LC A3,FDBTNR,A1 L P SC A3,CRNTID,A2 TASK ID d P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD P ST A2,FDBCRL,A1 NEW ROOT PCRN200 EQU * P RTN A14 P E
0x0c73d0…0c7564 Dummy {f00=0x0111, f01=0x018e, f02=»TO d P* SECTOR AND OFFSET P* ( 8 P****ENTRY PARAMETERS******************************** 2 P* n " P* A1,A2 = LOGICAL RECORD NO x P* A6 = FDB ADDR P* P* CF A14,CALSNO P* 8 P****EXIT PARAMETERS*************
0x0c7564…0c76f8 Dummy {f00=0x0111, f01=0x0190, f02=» P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v P* 8 P****USED REGISTERS********************************** P* P* A1 - A9 P
0x0c76f8…0c788c Dummy {f00=0x0111, f01=0x0190, f02=»DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0 $ P ADK A3,1 RECORD
0x0c788c…0c7a20 Dummy {f00=0x0111, f01=0x018e, f02=» PTIOD40 EQU * P LDR A4,A6 & P ADKL A4,FDBEXT FIRST FILE EXTENT * , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT T P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SECTOR IN THIS EXTENT P SUK A5,1 NO & P RF(NP)
0x0c7a20…0c7bb4 (0, 253) Opaque[0x194]
0x0c7bb4…0c7d48 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2248, f03=0x0000}
0x0c7bb4…0c7d48 IdxSect {
0x0c7bb4…0c7d48 f00 = 0x0112 // 0xc7bb4 @0x0
0x0c7bb4…0c7d48 f01 = 0x000a // 0xc7bb6 @0x2
0x0c7bb4…0c7d48 gno = [ // 0xc7bb8 @0x4
0x0c7bb4…0c7d48 [0x00]: C0x0112.0x1.0
0x0c7bb4…0c7d48 [0x01]: C0x0112.0x2.0
0x0c7bb4…0c7d48 [0x02]: C0x0112.0x3.0
0x0c7bb4…0c7d48 [0x03]: C0x0113.0x0.0
0x0c7bb4…0c7d48 [0x04]: C0x0113.0x1.0
0x0c7bb4…0c7d48 ]
0x0c7bb4…0c7d48 }
0x0c7d48…0c7edc Dummy {f00=0x0112, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 9.2 79-11-16 870105040920 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x0c7edc…0c8070 Dummy {f00=0x0112, f01=0x0190, f02=» P* B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP X P* P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TA
0x0c8070…0c8204 Dummy {f00=0x0112, f01=0x0190, f02=»ING READ REQUEST,POWER UP r > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH " P* -2 IN CONTROL WORD d P* P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES N
0x0c8204…0c8398 Dummy {f00=0x0112, f01=0x0190, f02=» ` P* ( P* S O P A S : READ SWITCHES ENTRY P* > * P* S O P A L : ACTIVATE LIGHTS ENTRY H P* v & P* I H S O P : INTERRUPT HANDLER P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWIN
0x0c8398…0c852c Dummy {f00=0x0112, f01=0x018e, f02=»IGHTS OFF z , P* 39 : WRITE FLASHING LIGHTS P* B P* NORMAL REGISTER USAGE: L P* n " P* REGISTER A1: INPUT/OUTPUT x " P* A2: WORK REGISTER " P* A3: WORK REGISTER " P* A4: WORK REGISTER
0x0c852c…0c86c0 Dummy {f00=0x0112, f01=0x0190, f02=» r P* P* P EJECT P* * P************ 4 P* ENTRIES: * H P************ P* p P* z * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALI
0x0c86c0…0c8854 (0, 254) Dummy {f00=0x0112, f01=0x0190, f02=»**** P* EXTERNALS: * P************** " P* 8 P* TOSS GLOBALS: B P* Z , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK d 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP
0x0c8854…0c89e8 Dummy {f00=0x0112, f01=0x018e, f02=»I DATA SOP LIGHTS AND FD POWER P EJECT & P 4 P* < ( P************************************ F P* r P* DWT DISPLACEMENTS | P* ( P************************************ P* $ EXTRN DWTCHP CHANNEL PARAMETER EXTRN
0x0c89e8…0c8b7c Dummy {f00=0x0112, f01=0x0190, f02=» EXTRN DWTTAB TTAB ADDRESS * % EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & EXTRN DWTTQ TERMINAL QUEUE T . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT x ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB " P EXTRN ECBCW ECB CONTROL WORD PTIME EQU 5 F
0x0c8b7c…0c8d10 Dummy {f00=0x0112, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU X:A " P** 6 P** @ 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS J P* BY SETTING CREDIT = 1 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS P* /37 AND /38 RESPECTIVLY B P*
0x0c8d10…0c8ea4 Dummy {f00=0x0112, f01=0x0190, f02=» ON ZERO IS STORED IN THE CONTROL WORD | P* OF THE ECB. . P** F P P PCREDIT EQU 0 X P** l P** v @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU X:B
0x0c8ea4…0c9038 Dummy {f00=0x0112, f01=0x0190, f02=»UPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION & . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. ` P* PCPU852 EQU 1 P* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P*
0x0c9038…0c91cc Dummy {f00=0x0112, f01=0x018e, f02=»TDRD P XIF P* P IFT MMUPAG=1 " PSTART EQU DWTDRD+4 8 P XIF R P* ^ & PDWTTP EQU START+/00 TIMER POINTER h P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P****************
0x0c91cc…0c9360 Dummy {f00=0x0112, f01=0x0190, f02=» p " P* * " P* S.O.P. CHANNEL UNIT TABLE * . " P* * T " P****************************** z P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFE
0x0c9360…0c94f4 (0, 255) Dummy {f00=0x0112, f01=0x0190, f02=» SWITCHES ENTRY | " P DATA 0 ABORT ROUTINE ADDRESS P* > P DATA DVBLEN MMU BUFFER SIZE H P DATA DEVIND DEVICE INDEX l & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRES
0x0c94f4…0c9688 Dummy {f00=0x0112, f01=0x0190, f02=» r " P* * " P* S.O.P. ACTIVATION ROUTINE: * . " P* * T " P****************************** z P* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. P
0x0c9688…0c981c Dummy {f00=0x0112, f01=0x0190, f02=» r P* * P RF(NZ) SOPER ERROR IF NOT READ ORDER P* @ P* INPUT SWITCH VALUE J P* h * PSOPIN LDR* A2,A6 POWER UP INDICATION ? r P IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. P XIF P IFT CRE
0x0c981c…0c99b0 Dummy {f00=0x0112, f01=0x0190, f02=»OR CHANGES OF S.O.P. LIGHTS P* $ & PSOPAL EQU * ACTIVATE LIGHTS ENTRY . P* X P LD A3,10,A8 CHANGED LIGHTS b , P ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS P* P LDR A4,A7 COPY ORDER P IFT WRFLA=1 P CCK A4,/3939 P
0x0c99b0…0c9b44 Dummy {f00=0x0112, f01=0x0190, f02=» A4,/37 P XIF & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* F & P SUK A4,1 SEE IF LIGHTS OFF ORDER P P RF(Z) SOPOFF z & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT WRFLA=1 P EJECT P* P* P* FLASH LIGHTS
0x0c9b44…0c9cd8 Dummy {f00=0x0112, f01=0x018e, f02=» A4,A6 P LDR A1,A6 P CF A15,SETIMP P DATA FLTUT,TIME 6 P ST A4,DWTTP,A6 N P LDKL A1,/FFBF f P ANS A1,DWTST,A6 SET ON FLAG | PFL010 EQU * . P* A3 CONTAINS LIGHTS THAT SHOULD FLASH * P ORS A3,FLASH STORE NEW LAMPS TO F
0x0c9cd8…0c9e6c Dummy {f00=0x0112, f01=0x0190, f02=» PFL020 EQU * P C1R A3,A3 P ANS A3,SPDLCI . P RF SOPONOF D P* X P EJECT b P* p PFLTUT EQU * FLASH TIME OUT z P LDKL A6,DWSO01 P LD A3,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR THIS TIME P LDKL A1,-TI
0x0c9e6c…0ca000 Dummy {f00=0x0112, f01=0x018e, f02=» RF EXIT END I/O P XIF P EJECT $ P* 2 PSOPOFF EQU * < , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD P 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF P IFT WRFLA=1 $ P ANS A3,FLASH STOP SOME FLASHING P XIF , P RF SOPO
0x0ca000…0ca194 (0, 256) Dummy {f00=0x0113, f01=0x0190, f02=» " P* A3 CONTAINS CONTROL WORD . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON * P IFT WRFLA=1 P C1R A3,A3 p * P ANS A3,FLASH STOP SOME OTHER FLASHING P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET
0x0ca194…0ca328 Dummy {f00=0x0113, f01=0x018e, f02=»**************************** P* * $ P* S.O.P. INTERRUPT HANDLER * H P* * l P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS.
0x0ca328…0ca4bc Dummy {f00=0x0113, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF 2 P* > P IFT CPU852=0 H " P MSR 8,A15 SAVE A1-A8 ON STACK ^ P XIF P* $ P ST P,INTSAV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX P IFT C
0x0ca4bc…0ca650 Dummy {f00=0x0113, f01=0x0190, f02=»0 " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD 0 P RF(N) IHSOP2 NO T $ P LD A8,DWTECB,A6 GET ECB-ADDRESS l P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF A15,TENDIO END
0x0ca650…0ca7e4 Dummy {f00=0x0113, f01=0x018e, f02=»D A8,DWTECB,A6 GET ECB-ADDRESS P & & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX . P X , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH ` P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT P* * P
0x0ca7e4…0ca978 Dummy {f00=0x0113, f01=0x0190, f02=» * P* * * P************************************* 2 P* ` P* j : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE t 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWE
0x0ca978…0cab0c Dummy {f00=0x0113, f01=0x0190, f02=»AVED IN DWTCHP r P* P* PSOPR EQU * ENTRY POINT * P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVA
0x0cab0c…0caca0 Dummy {f00=0x0113, f01=0x018e, f02=»DIT=0 " P LDKL A2,-2 POWER UP INDICATOR P XIF 4 P IFT CREDIT=1 @ P LDK A2,0 V P XIF h P t P IFF SOPX=0 | " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND P
0x0caca0…0cae34 (0, 257) Dummy {f00=0x0113, f01=0x0190, f02=» | P STR A2,A6 IND POWER UP P ( PSOPR2 RB IHSOP1 0 P EJECT H P* V P* D W S I 0 1 : INPUT DWT ` P* PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA
0x0cae34…0cafc8 Dummy {f00=0x0113, f01=0x0190, f02=»G=1 & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECI MMU ECB ADDRESS 6 PDEVECI EQU * Z P DATA 0,0,0,0,0,0 n P XIF P* P* D W S O 0 1 : OUTPUT DWT P* P* PDWSO01 EQU * " P DATA /0040 CHANNEL PARAMETER
0x0cafc8…0cb15c Dummy {f00=0x0113, f01=0x0190, f02=»S BLOCK r P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR , P DATA 0 TERMINAL QUEUE T IFT MMUPAG=1 r & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECO MMU ECB ADDRESS XIF P DATA 0 TIMER POINTER . PFLASH DA
0x0cb15c…0cb2f0 Dummy {f00=0x0113, f01=0x018e, f02=» P* ! * P* D W S I 0 2 : EXTENDED INPUT DWT ! P* ! @ P ! J PDWSI02 EQU * ! R P IFF SOPX=0 ! f P DATA 0 ! z P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 !
0x0cb2f0…0cb484 Dummy {f00=0x0113, f01=0x4036, f02=» ! P* " P* " P* " P END " &@ " 2T ! P* ! @ P ! J PDWSI02 EQU * ! R P IFF SOPX=0 ! f P DATA 0 ! z P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 !
0x0cb484…0cb618 Dummy {f00=0x0113, f01=0x2008, f02=» # -ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE @ P* ^ P END h@ t P* z P* P* D W S O P U : OUTPUT DWT P* P* PDWSOPU EQU * P DATA 0 CHANNEL PARAMETER , P DATA /8000
0x0cb618…0cb7ac Dummy {f00=0x0113, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x0cb7ac…0cb940 Dummy {f00=0x0113, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x0cb940…0cbad4 (0, 258) Opaque[0x194]
0x0cbad4…0cbc68 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2190, f03=0x0000}
0x0cbad4…0cbc68 IdxSect {
0x0cbad4…0cbc68 f00 = 0x010c // 0xcbad4 @0x0
0x0cbad4…0cbc68 f01 = 0x0012 // 0xcbad6 @0x2
0x0cbad4…0cbc68 gno = [ // 0xcbad8 @0x4
0x0cbad4…0cbc68 [0x00]: C0x010c.0x2.0
0x0cbad4…0cbc68 [0x01]: C0x010c.0x3.0
0x0cbad4…0cbc68 [0x02]: C0x010d.0x0.0
0x0cbad4…0cbc68 [0x03]: C0x010d.0x1.0
0x0cbad4…0cbc68 [0x04]: C0x010d.0x2.0
0x0cbad4…0cbc68 [0x05]: C0x010d.0x3.0
0x0cbad4…0cbc68 [0x06]: C0x010e.0x0.0
0x0cbad4…0cbc68 [0x07]: C0x010e.0x1.0
0x0cbad4…0cbc68 [0x08]: C0x010e.0x2.0
0x0cbad4…0cbc68 ]
0x0cbad4…0cbc68 }
0x0cbc68…0cbdfc Dummy {f00=0x010c, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 9.2 79-11-16 870105040920 P : P* B P* L 2 P********************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* D P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS X/1215 AND/OR X/1216
0x0cbdfc…0cbf90 Dummy {f00=0x010c, f01=0x0190, f02=»* P* 0 P* THIS DISC DRIVER HANDLES UP TO TWO DISC 6 P* DRIVES X/1215,X/1216 CONNECTED TO CPU VIA IOP H P* ON MULTIPLEX CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED : P* P* /00 TEST STATUS
0x0cbf90…0cc124 Dummy {f00=0x010c, f01=0x0190, f02=» P EJECT DRDU01 DRDU01 P* $ P* . P*********** 8 P* ENTRIES * L P*********** ` P* t P* ~ $ P ENTRY DUADR ACTIVATION ADDRESS P ENTRY DUON RECOVERY ROUTINE 2 P ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1 2
0x0cc124…0cc2b8 Dummy {f00=0x010c, f01=0x0190, f02=»DISC UNIT NO. 1 v . P ENTRY DWDU02 DWT ADDRESS DISC UNIT NO. 2 P EJECT DRDU01 J P* b P* l P************* v P* EXTERNALS * P************* P* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O .
0x0cc2b8…0cc44c Dummy {f00=0x010c, f01=0x0190, f02=» INTSAV SAVE AREA LAST INTERRUPT P EXTRN SETIMP TIMER ( EXTRN DWTST STATUS D EXTRN DWTECB ECB ADDRESS ` $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5
0x0cc44c…0cc5e0 Dummy {f00=0x010c, f01=0x0190, f02=»************************** P* * " P* CONDITIONAL ASSEMBLY * D P* * f P************************** P* P* 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P* BY SETTING X
0x0cc5e0…0cc774 (0, 259) Dummy {f00=0x010c, f01=0x0190, f02=» X:B := 2 P* PX:B EQU 1 PNUNITS EQU 2 . P* B P* L 4 P* DRIVE 1 MAY BE A X/1216 INSTEAD OF A X/1215 V P* BY SETTING X:C = 1 P* PX:C EQU 0 PTYPE1 EQU 1 P* P* 4 P* DRIVE 2 MAY BE A X/1
0x0cc774…0cc908 Dummy {f00=0x010c, f01=0x0190, f02=» P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. N P* | PMMUPAG EQU 0 P* P* 6 P* IF DISC ACCESSES ARE MADE EXCLUSIVELY BY DATA 8 P* MANAGEMENT, AND MMUPAG=1, TH
0x0cc908…0cca9c Dummy {f00=0x010c, f01=0x0190, f02=»NSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* D PCPU852 EQU 1 N P* b * l . ** A PROGRAM VERSION USING TOSS DISC PAGING v * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 0 * P EJECT D
0x0cca9c…0ccc30 Dummy {f00=0x010c, f01=0x0190, f02=» /28 DEVICE ADDRESS FIXED DISC NO. 1 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1 , 0 PDAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2 d 4 PDAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2 $ PWER1 EQU /10 MULTIPLEXOR ADDRESS & PCUADR EQU /08 CO
0x0ccc30…0ccdc4 Dummy {f00=0x010c, f01=0x0190, f02=»QU 410 SECTOR LENGTH, CHARACTERS PQRETRY EQU 4 NO OF RETRIES ( PTIME EQU 1000 1 MIN 40 SEC J P* l P EJECT DRDU01 DRDU01 v P* P* $ P DATA 0 INDICATES NO MMU BUFFER P DATA 4 DISC DEVICE INDEX & PDUADR DATA DUAD ACTI
0x0ccdc4…0ccf58 Dummy {f00=0x010c, f01=0x0190, f02=» 200 READ AFTER WRITE BUFFER P XIF $ P* 0 P EJECT DRDU01 : P* R ( P* RETRY IS USED TO DETECT RETRIES P* PRETRY DATA 0 MAX NO OF TRIES P* P* 6 P* TABLE FOR CONVERSION FROM LOGICAL TO PHYSICAL P*
0x0ccf58…0cd0ec Dummy {f00=0x010c, f01=0x0190, f02=»215,/181B,/1E11,/1417,/1A1D v P* $ P EJECT DRDU01 DRDU01 . P* N P* X P***************** b P* * | P* ACTIVATION * P* * P***************** P* P* PDUAD EQU * ACTIV
0x0cd0ec…0cd280 Dummy {f00=0x010c, f01=0x0190, f02=»ISC UNIT BUSY t P XIF P* " PDUA:00 EQU * , 0 P LDK A4,QRETRY GET MAX NO OF RETRIES TO MAKE @ P ADK A7,0 SET CR t " P RF(Z) TEST TEST STATUS ORDER P* P IFT MMUPAG=1 P IFF 1-ONLYDM+DSKPAG=0 & P LDR* A1,A8 GET FIRST WO
0x0cd280…0cd414 (0, 260) Dummy {f00=0x010d, f01=0x0190, f02=»RDU01 P* P* " P LD A2,2,A8 GET BUFFER ADDRESS " P LDR A3,A2 H P ANKL A2,/F000 Z P SRL A2,2 p P SLL A1,2 P ORR A1,A2 4 P ST A1,DWT:PA,A6 PAGE NUMBER (PSEUDO MMU TABLE) P ANKL A3,/FFF P LDR A1,A3 ( P O
0x0cd414…0cd5a8 Dummy {f00=0x010d, f01=0x0190, f02=»JECT DRDU01 P* P* ( P LD A2,DWTOR,A6 GET INDEX AND ORDER * * P ST A2,DWTORD,A6 SAVE IT FOR RECOVERY V " P SRL A2,7 GET INDEX (DOUBLED) P ADR A2,A6 P LD A1,DWTBSY,A2 P ABL(NZ) END:15 P LDR A1,A7 CHECK ORDER
0x0cd5a8…0cd73c Dummy {f00=0x010d, f01=0x0190, f02=»0 PHYSICAL READ P SUK A1,4 P RF(Z) DUA:30 PHYSICAL WRITE * P* N " PDUERR ABL DISIOE REQUEST ERROR X P* ~ P EJECT DRDU01 DRDU01 P* P* P********************* P* * P* TEST STATUS
0x0cd73c…0cd8d0 Dummy {f00=0x010d, f01=0x0190, f02=»E NAME x P RF DENDIO PERFORM ENDIO P* . P EJECT DRDU01 8 P* P P* Z & PDUA:30 LD A1,4,A8 REQUESTED LENGTH d P SUKL A1,LENGTH ( P RB(NZ) DUERR REQUESTED LENGTH # 410 ( P LD A2,10,A8 RELATIVE SECTOR NUMBER P LDR A3,A2
0x0cd8d0…0cda64 Dummy {f00=0x010d, f01=0x0190, f02=»2,5 CYLINDER NUMBER P CW A2,DWTCMX,A6 . P RB(G) DUERR CYLINDER NO GREATER THAN MAX. 4 : P CW A2,DWTCYL,A6 COMPARE WITH CURRENT CYLINDER NUMBER f . P RF(E) DU:030 DISC HEAD ALREADY POSITIONED * P ST A2,DWTCYL,A6 SAVE CYLINDER NUMBER P*
0x0cda64…0cdbf8 Dummy {f00=0x010d, f01=0x0190, f02=» x P************************ P* ( P* 2 & PDU:010 CF A5,SEEK SEEK CYLINDER N < P SLC A1,5 f $ P RF(N) DU:030 OK. SEEK COMPLETED x P* P EJECT DRDU01 P* P* P************************ P*
0x0cdbf8…0cdd8c Dummy {f00=0x010d, f01=0x0190, f02=» CF A5,SEEKZ SEEK CYLINDER 0 P SLC A1,6 $ $ P RF(N) DU:020 SECTOR 0 NOT FOUND 6 P SUK A4,1 ^ P RB(NZ) DU:010 TRY AGAIN p P* * PDU:020 LDKL A3,/FFFF ALL RETRIES DONE 0 P ST A3,DWTCYL,A6 SET ILLEGAL CYLINDER NUMBER ( P LDKL A1,/20
0x0cdd8c…0cdf20 Dummy {f00=0x010d, f01=0x0190, f02=»**************** P* * P* GO AND EXECUTE ORDER * : P* * P************************** ~ P* P* PDU:030 LDR A1,A7 ORDER P SUK A1,5 P RF(Z) WRIT:N BASIC WRITE P S
0x0cdf20…0ce0b4 (0, 261) Dummy {f00=0x010d, f01=0x0190, f02=» SECTOR N-1 * P* * P************************ 8 P* X P* b 0 PP:WRIT CF A5,WER:R5 EXECUTE WER INSTRUCTIONS l P CF A5,READ5 READ FIVE WORDS P ANK A1,2 , P RF(Z) P:WR10 OK. CHECK CYLINDER NUMBER & P S
0x0ce0b4…0ce248 Dummy {f00=0x010d, f01=0x0190, f02=»D A2,DWTCYL,A6 CYLINDER NUMBER 6 P CW A2,BUF+1 COMPARE WITH CURRENT CYLINDER NUMBER & ( P RB(NE) DU:015 ERROR.SEEK CYLINDER 0 ` P* P EJECT DRDU01 P* P* P********************* P* * P* WRITE
0x0ce248…0ce3dc Dummy {f00=0x010d, f01=0x0190, f02=»UCTIONS l P CF A5,WRITE WRITE SECTOR N P ANK A1,/1F 4 $ P RF(Z) WRIT20 OK. NO RETURN CODE H & P SUK A4,1 DECREMENT RETRY COUNTER p P RB(NZ) WRIT:N TRY AGAIN? ( P RF DENDIO ALL RETRIES DONE, GIVE UP P* PWRIT20 EQU * P I
0x0ce3dc…0ce570 Dummy {f00=0x010d, f01=0x0190, f02=»F A5,WER:R EXECUTE WER INSTRUCTIONS P CF A5,READ READ SECTOR N , P ANK A1,/F N P RF(Z) DENDIO JUMP IF OK ` & P SUK A4,1 DECREMENT RETRY COUNTER P RB(NZ) WRIT30 TRY AGAIN? P XIF P* ( P RF DENDIO ALL RETRIES DONE, GIVE UP
0x0ce570…0ce704 Dummy {f00=0x010d, f01=0x0190, f02=» SECTOR N * P* * P********************** 4 P* R P* 0 PREAD:N CF A5,WER:R EXECUTE WER INSTRUCTIONS f P CF A5,READ READ SECTOR N P ANK A1,/F $ P RF(Z) READ10 OK. NO RETURN CODE & P SUK A4,1 DECREMEN
0x0ce704…0ce898 Dummy {f00=0x010d, f01=0x0190, f02=»E t P* P EJECT DRDU01 P* , P* 6 P*************************** @ P* * d P* CHECK CYLINDER NUMBER * P* * P*************************** P* P* P
0x0ce898…0cea2c Dummy {f00=0x010d, f01=0x0190, f02=»FF 1-ONLYDM+DSKPAG=0 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS 0 P RF(Z) READ30 JUMP IF BUFFER IN SYSTEM AREA T , P TS -30,A15 SAVE MMU REGISTERS ON STACK ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE * P ELR A2,A2 GET CURRENT CYLINDER NUMB
0x0cea2c…0cebc0 Dummy {f00=0x010d, f01=0x0190, f02=»YLINDER NUMBER v P XIF P* " P EJECT DRDU01 , P* D P* N P IFT MMUPAG=1 X P IFT ONLYDM-DSKPAG=1 n , P LD* A2,2,A8 GET CURRENT CYLINDER NUMBER P XIF P* PREAD40 EQU * < P CW A2,DWTCYL,A6 COMPARE WITH REQUES
0x0cebc0…0ced54 (0, 262) Dummy {f00=0x010d, f01=0x0190, f02=» DRDU01 P* P* " P****************************** $ " P* * J " P* EXECUTE WER INSTRUCTIONS * p " P* * " P****************************** P* P* & PWER:R5 LDKL A2,/80
0x0ced54…0ceee8 Dummy {f00=0x010d, f01=0x018e, f02=» CWK A3,BUF P RF(E) EX:WER P RF WER:WB * P* < & PWER:W LDKL A2,/C0CD WRITE 1 SECTOR F P* p P EJECT DRDU01 z P* P* * PWER:WB LD A3,2,A8 USER BUFFER ADDRESS P* P IFT MMUPAG=1 P IFF 1-ONLYDM+DSKPAG
0x0ceee8…0cf07c Dummy {f00=0x010d, f01=0x0190, f02=» P* PEX:WER EQU * " P EX DWTWR1,A6 EXECUTE 1:ST WER " " P EX DWTWR2,A6 EXECUTE 2:ND WER H P RTN A5 n P* ~ P EJECT DRDU01 DRDU01 P* P* P******************* P* * P* SEEK CYLINDER *
0x0cf07c…0cf210 Dummy {f00=0x010d, f01=0x0190, f02=»3 P ORK A2,2 ! P RF CIO EXECUTE CIO-START ! P* ! > PSEEKZ EQU * ! H P LDK A2,3 ! P RF CIO EXECUTE CIO-START ! n P* ! ( PREAD5 LC A2,DWTSEC,A6 SECTOR NUMBER ! P ANK A2,/1F ! P SUK A2,3 SECTOR N-1 ! P ANK A2,/1F !
0x0cf210…0cf3a4 Dummy {f00=0x010d, f01=0x0190, f02=» SECTOR NUMBER ! | P ANK A2,/1F " P SLL A2,2 " * P RF CIO EXECUTE CIO-START " < P* " ^ * PWRITE LD A2,DWTCYL,A6 CYLINDER NUMBER " h P* " P IFT MMUPAG=0 " , P ST* A2,2,A8 PUT CYL. NR IN USER BUFFER " P XIF " P* " P IFT MMUPAG=
0x0cf3a4…0cf538 Dummy {f00=0x010d, f01=0x0190, f02=»REA " h , P TS -30,A15 SAVE MMU REGISTERS ON STACK # ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE # < * P ESR A2,A1 PUT CYL. NR IN USER BUFFER # h 0 P TL -30,A15 RESTORE MMU REGISTERS FROM STACK # P RF WRITE4 # P* # PWRITE3 EQU * # , P ST* A2,2,A8 P
0x0cf538…0cf6cc Dummy {f00=0x010d, f01=0x0190, f02=»KPAG=1 # , P ST* A2,2,A8 PUT CYLNMB. IN USER BUFFER $ P XIF $ > P* $ J PWRITE4 EQU * $ T " P LC A2,DWTSEC,A6 SECTOR NUMBER $ h P SLL A2,2 $ P ADK A2,1 $ P* $ P EJECT DRDU01 DRDU01 $ P* $ P* $ PCIO EQU * $ P LC A
0x0cf6cc…0cf860 Dummy {f00=0x010d, f01=0x018e, f02=»DK A1,1 $ * P ABL(3) END:20 DEVICE ADDRESS UNKNOWN? % " P ST A4,DWTA4,A6 A4 % > " P ST A5,DWTA5,A6 A5 % d P* % & PT:DISP ABL TDISP GO TO DISPATCHER % P* % P EJECT DRDU01 DRDU01 % P* % P* % P************
0x0cf860…0cf9f4 (0, 263) Dummy {f00=0x010d, f01=0x018e, f02=» P* & P* & PDUON EQU * & P IFT CPU852=1 & * & P CF A15,SAVE8 SAVE A1-A8 ON STACK & @ P XIF & j P* & v P IFT CPU852=0 & " P MSR 8,A15 SAVE A1-A8 ON STACK & P XIF & P* & P LDKL A6,DWDU01 & & P LD A1,INIFLG INITIALIZATION F
0x0cf9f4…0cfb88 Dummy {f00=0x010d, f01=0x0190, f02=» P* ' P IFT NUNITS=2 ' & P LDR* A6,A6 GET OTHER DWT ADDRESS ' $ " P ANS A1,DWTST,A6 SET DWT BUSY ' N P XIF ' t P* ' P EJECT DRDU01 ' P* ' P* ' PDUON05 EQU * ' P LDKL A5,DWTSB2 STACK BASE ' P ADR A5,A6 STACK BASE '
0x0cfb88…0cfd1c Dummy {f00=0x010d, f01=0x0190, f02=»2 ' P ADR A5,A6 STACK BASE ( " P CF A5,VO:NAM GET VOLUME NAME ( ( $ P LD A8,DWTECB,A6 GET ECB ADDRESS ( N " P RF(NZ) DUON10 ANY REQUEST ON? ( v $ P LDR* A6,A6 NO, CHECK NEXT DRIVE ( P XIF ( P* ( $ P LD A8,DWTECB,A6 GET ECB ADDRESS ( P RF(Z)
0x0cfd1c…0cfeb0 Dummy {f00=0x010d, f01=0x0190, f02=»/3F ( P ABL DUA:00 REPEAT REQUEST ) P* ) . P EJECT DRDU01 ) 8 P* ) P P* ) Z PDUON15 CF A15,TENDIO ) d P* ) P IFT NUNITS=2 ) & P LDR* A6,A6 GET OTHER DWT ADDRESS ) P CF A15,TENDIO ) P XIF ) P RB T:DISP DISPATCH ) P
0x0cfeb0…0d0044 Dummy {f00=0x010d, f01=0x0190, f02=» ) P CM* TIMER KILL TIMER * P RF DUON40 * & P XIF * 8 P* * D P RB T:DISP TIMER ACTIVE * N P* * n P EJECT DRDU01 * x P* * $ P* SET DISC BUSY AND START TIMER * P* * PDUON20 LDKL A1,/7FFF * P IFT NUNITS=2 * " P ANS A1,DW
0x0d0044…0d01d8 Dummy {f00=0x010d, f01=0x0190, f02=»STACK BASE * | P ADR A5,A6 + " P CF A5,VO:NAM READ VOLUME NAME + $ P* + J P IFT NUNITS=2 + T P LDR A4,A1 SAVE RETURN CODE + j & P LDR* A6,A6 GET OTHER DWT ADDRESS + " P LDKL A5,DWTSB2 GET STACK BASE + P ADR A5,A6 + " P CF A5,VO:NAM READ VOLUM
0x0d01d8…0d036c Dummy {f00=0x010d, f01=0x0190, f02=» ADK A1,0 CHECK RETURN CODE + " P RB(Z) DUON10 REPEAT REQUEST? , $ P* , J PDUON23 EQU * , T & P LDR* A6,A6 GET OTHER DWT ADDRESS , h 2 P LDR A1,A4 RESTORE RETURN CODE FROM OTHER DISC , P XIF , P* , $ P LD A8,DWTECB,A6 GET ECB ADDRESS , * P R
0x0d036c…0d0500 Dummy {f00=0x010d, f01=0x018e, f02=» DRDU01 , P* - P* - PDUON26 EQU * - $ P IFT NUNITS=2 - 8 " P ADR A1,A3 CHECK RETURN CODES - N 0 P RB(Z) DUON15 NO REQUESTS AND BOTH OPERABLE? - t P XIF - P* - P IFT NUNITS=1 - P ADK A1,0 SET CR - * P RB(Z) DUON15 NO REQUEST AND
0x0d0500…0d0694 (0, 264) Dummy {f00=0x010e, f01=0x0190, f02=» - p P LDKL A1,-TIME . P STR A1,A3 RESTART TIMER . P RB T:DISP . > P* . P $ PDUON30 CF A15,SETIMP START TIMER . Z , P DATA DUON40,TIME TIME OUT ADDRESS, TIME . P RB T:DISP . P* . P* TIME OUT . P* . PDUON40 LDKL A6,DWDU01 .
0x0d0694…0d0828 Dummy {f00=0x010e, f01=0x018e, f02=» * . P* INTERRUPT HANDLER * / P* * / < P*********************** / P* / | P* / PIHDU2 EQU * / P IFT NUNITS=2 / $ P ST P,INTSAV SAVE LAST INTERRUPT / P IFT CPU852=1 / & P CF A15,SAVE8 SA
0x0d0828…0d09bc Dummy {f00=0x010e, f01=0x0190, f02=» / P* 0 P IFT NUNITS=2 0 $ P LDKL A6,DWDU02 DISC UNIT NO. 2 0 ( P RF IHDU10 0 P P XIF 0 b P* 0 n P EJECT DRDU01 0 x P* 0 P* 0 PIHDU EQU * 0 PIHDU1 EQU * 0 $ P ST P,INTSAV SAVE LAST INTERRUPT 0 P IFT CPU852=1 0 & P
0x0d09bc…0d0b50 Dummy {f00=0x010e, f01=0x0190, f02=»* 0 $ P LDKL A6,DWDU01 DISC UNIT NO. 1 1 P* 1 2 P EJECT DRDU01 1 < P* 1 T P* 1 ^ " PIHDU10 SST A1,CUADR GET STATUS 1 h P IFT NUNITS=2 1 P LDR A2,A1 1 P ANK A2,/40 1 P RF(Z) IHDU20 1 P LDKL A6,DWDU02 1 P XIF 1 P* 1
0x0d0b50…0d0ce4 Dummy {f00=0x010e, f01=0x0190, f02=»SAV,A6 1 P RF(NN) GET 2 P LDR A3,A1 2 " P ANK A3,1 2 4 * P RF(NZ) END:IO DISC UNIT NOT OPERABLE 2 F P* 2 t * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 2 ~ ( P LD A4,DWTA4,A6 A4 2 P LD A7,DWTOR,A6 2 P ANK A7,/3F ORDER 2
0x0d0ce4…0d0e78 Dummy {f00=0x010e, f01=0x0190, f02=» 2 | P* * 3 P* PERFORM ENDIO * 3 $ P* * 3 @ P******************* 3 P* 3 x P* 3 PEND:IO EQU * 3 " P ANKL A1,/20F MASK RETURN CODE 3 P RF(NZ) END:10 ERROR 3 " P LD A2,4,A8 REQUESTED LENGTH = 3 P
0x0d0e78…0d100c Dummy {f00=0x010e, f01=0x0190, f02=»F(E) END:15 NO RETRY 3 " P ORKL A1,/100 BIT 7 = RETRIES 4 P* 4 B PEND:15 EQU * 4 L P LC A2,DWTOR,A6 ORDER 4 ` P ANK A2,1 INDEX 4 ~ P ADR A2,A2 4 P ADR A2,A6 4 " P CM DWTBSY,A2 RESET READY WORD 4 P* 4 P EJECT DRDU01 4 P* 4
0x0d100c…0d11a0 Dummy {f00=0x010e, f01=0x0190, f02=» , P LDR* A6,A6 ACTIVE DISC UNIT DWT ADDRESS 5 P XIF 5 4 P* 5 @ P CF A15,TENDIO PERFORM ENDIO 5 J P ABL TDISP GO TO DISPATCHER 5 n P* 5 P EJECT DRDU01 5 P* 5 P* 5 PVO:NAM EQU * 5 . P CM DWTSAV,A6 INDICATE VOLUME NAME READING 5
0x0d11a0…0d1334 (0, 265) Dummy {f00=0x010e, f01=0x0190, f02=» SEEK-,THROUGHPUT ERROR,NOT OPERABLE 5 * P CF A5,WER:R5 EXECUTE WER INSTRUCTIONS 6 , " P LDK A2,0 CYLINDER NUMBER = 0 6 Z P ST A2,DWTCYL,A6 6 P CF A5,CIO READ VOLUME LABEL 6 P ANK A1,3 6 0 P RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE 6 P LDK A
0x0d1334…0d14c8 Dummy {f00=0x010e, f01=0x0190, f02=»CT DRDU01 6 P* 7 P* 7 , PDUNA10 LDKL A3,BUF+2 GET BUFFER ADDRESS 7 ( & P ST A4,DWTA4,A6 SAVE RETRY COUNTER 7 X P LDK A4,6 7 P* 7 & PDUNA20 LDR* A7,A3 GET VOLUME NAME 7 . P CWR* A7,A2 COMPARE WITH LAST VOLUME NAME 7 P RF(E) DUNA30
0x0d14c8…0d165c Dummy {f00=0x010e, f01=0x0190, f02=» P ADK A3,2 8 P SUK A4,2 8 P RB(NZ) DUNA20 GET NEXT WORD 8 ( P ADK A1,0 SET CR 8 L P RF(Z) DUNA40 VOLUME MATCH 8 d , P LD A4,INIFLG CHECK INITIALIZATION FLAG 8 P RF(NZ) DUNA40 NOT POWER UP? 8 P LC A4,DWTOR,A6 INDEX 8 P ADR A4,A4 8
0x0d165c…0d17f0 Dummy {f00=0x010e, f01=0x0190, f02=» LD A4,DWTA4,A6 RESTORE RETRY COUNTER 8 P LD A1,DWTOR,A6 ORDER 9 . P RF(NZ) VO:NA6 9 L P LDK A1,1 9 b P SC A1,DWTOR,A6 INDEX=1 9 t P RB VO:NA5 9 P* 9 & PVO:NA6 LDK A1,0 RESET RETURN CODE 9 P* 9 PVO:NA8 EQU * 9 P LDKL A2,-1 9
0x0d17f0…0d1984 Dummy {f00=0x010e, f01=0x0190, f02=»JECT DRDU01 DRDU01 9 P* : P* : ( * P* DEVICE WORK TABLE DISC UNIT NO. 2 : 2 P* : ` P* : j PDWDU02 EQU * : t P IFT NUNITS=2 : & P DATA DWDU01 POINTER TO OTHER DWT : P DATA /8000 DWT STATUS : P DATA 0 ECB ADDRESS : P DATA
0x0d1984…0d1b18 Dummy {f00=0x010e, f01=0x0190, f02=»AL QUEUE : IFT MMUPAG=1 ; & " DATA 0 SAVE AREA USER ECB ADDRESS ; & P DATA ECBDU2 MMU ECB ADDRESS ; P XIF ; t P IFT NUNITS=2 ; ( P DATA /00FF LEFT BYTE=SECTOR NUMBER ; ( P DATA 0,0,0 SAVE AREA FOR REGISTERS ; P DATA 0,0 STACK ; P D
0x0d1b18…0d1cac Dummy {f00=0x010e, f01=0x0190, f02=» FIXED DISC ; x , P CIO A2,1,DAC2 CIO-START CARTRIDGE DISC < P* < D P EJECT DRDU01 < N P* < f P* < p P WER A2,WER1 < z P WER A3,WER1+1 < & P DATA 0,0,0 VOLUME NAME FIXED DISC < * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC < P DATA -1 <
0x0d1cac…0d1e40 Dummy {f00=0x010e, f01=0x0190, f02=»2=3 < P DATA MAXCY6 MAX CYLINDER NO = P XIF = 0 P* = < P IFT NUNITS=2 = F P IFT MMUPAG=1 = * P DATA 0 PAGE NUMBER (PSEUDO MMU TABLE) = r * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS = PECBDU2 EQU * = P DATA 0,0,0,0,0,0 = P XIF = P
0x0d1e40…0d1fd4 (0, 266) Dummy {f00=0x010e, f01=0x0190, f02=»QU * = & P DATA DWDU02 POINTER TO OTHER DWT > P DATA /8000 DWT STATUS > 6 P DATA 0 ECB ADDRESS > T P DATA 0 ORDER > p " P DATA DUADR ACTIVATION ADDRESS > P DATA 0 TTAB ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR > P DATA 0 TERMINAL QUEUE >
0x0d1fd4…0d2168 Dummy {f00=0x010e, f01=0x0190, f02=»1 > ~ ( P DATA /00FF LEFT BYTE=SECTOR NUMBER ? ( P DATA 0,0,0 SAVE AREA FOR REGISTERS ? 6 P DATA 0,0 STACK ? b P DATA 0,0 ? z PDWTBSY EQU *-DWDU01 ? P DATA 0 UNIT BUSY INDICATOR ? P DATA 0 UNIT BUSY INDICATOR ? " PDWTCIO EQU *-DWDU01 CIO-
0x0d2168…0d22fc Dummy {f00=0x010e, f01=0x018e, f02=» WER INSTRUCTION ? x P WER A2,WER1 @ , PDWTWR2 EQU *-DWDU01 2:ND WER INSTRUCTION @ , P WER A3,WER1+1 @ PDWTNAM EQU *-DWDU01 @ r & P DATA 0,0,0 VOLUME NAME FIXED DISC @ * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC @ PDWTSAV EQU *-DWDU01 @ P DATA
0x0d22fc…0d2490 Dummy {f00=0x010e, f01=0x0190, f02=» PDWTCMX EQU *-DWDU01 A $ P DATA MAXCY5 MAX CYLINDER X/1215 A P XIF A H P IFT TYPE1=1 A T PDWTCMX EQU *-DWDU01 A h ( P DATA MAXCY6 MAX CYLINDER NO X/1216 A P XIF A P* A P EJECT DRDU01 A P* A P* A P IFT MMUPAG=1 A P
0x0d2490…0d2624 Dummy {f00=0x010e, f01=0x4074, f02=»ESS A n PECBDU1 EQU * B P DATA 0,0,0,0,0,0 B P XIF B : P* B F P* B P P* B Z P END B d@ B p-DWDU01 A h ( P DATA MAXCY6 MAX CYLINDER NO X/1216 A P XIF A P* A P EJECT DRDU01 A P* A P* A P IFT MMUPAG=1 A P
0x0d2624…0d27b8 Dummy {f00=0x010e, f01=0x2008, f02=» C -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x0d27b8…0d294c Dummy {f00=0x010e, f01=0x018e, f02=»1 EXECUTE OTR-INSTRUCTION C P RB(NA) OUL005 D " $ P STR A6,A1 STORE LAST DWT IN CWT D 8 P IFT LOGING=1 D ` 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** D v P XIF D 4 P ST A2,CWTLOW,A1 STORE LAST OUTPUT IN CWT =6(=3) D 8 POUL060 SC A2,DWTOCH,A6 STO
0x0d294c…0d2ae0 Dummy {f00=0x010e, f01=0x0190, f02=» D P IFT CPU852=0 E * P MLR 8,A15 RESTORE A1-A8 FROM STACK... E P INH U =9 E L P ADKL A15,2 ...AND =9 E ^ P LDR* P,A15 RETURN =9 E | P XIF E P* E P EJECT E P* E P* C H L T O N E P* E > P* SUBROUTINE TO RESET
0x0d2ae0…0d2c74 (0, 267) Opaque[0x194]
0x0d2c74…0d2e08 # DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21d8, f03=0x0000}
0x0d2c74…0d2e08 IdxSect {
0x0d2c74…0d2e08 f00 = 0x010e // 0xd2c74 @0x0
0x0d2c74…0d2e08 f01 = 0x0008 // 0xd2c76 @0x2
0x0d2c74…0d2e08 gno = [ // 0xd2c78 @0x4
0x0d2c74…0d2e08 [0x00]: C0x010e.0x3.0
0x0d2c74…0d2e08 [0x01]: C0x010f.0x0.0
0x0d2c74…0d2e08 [0x02]: C0x0113.0x2.0
0x0d2c74…0d2e08 [0x03]: C0x0113.0x3.0
0x0d2c74…0d2e08 ]
0x0d2c74…0d2e08 }
0x0d2e08…0d2f9c Dummy {f00=0x010e, f01=0x0190, f02=» 2 P IDENT DRLP01 REL 9.2 79-11-16 870105040920 P : $ P =1, INTERFACE UNKNOWN HANG-UP B P REL 9.1 79-05-23 j P* P* > P********************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x0d2f9c…0d3130 Dummy {f00=0x010e, f01=0x0190, f02=»************************************** | P* . P* 8 @ P* THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED B < P* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED P* CHANNEL P* P EJECT DRLP01 P* P*
0x0d3130…0d32c4 Dummy {f00=0x010e, f01=0x0190, f02=» ADDRESS BLOCK " P ENTRY ACLP ACTIVATION DRIVER " P ENTRY IHLP INTERRUPT HANDLER < P ENTRY LPON RECOVERY ROUTINE b & P ENTRY DWLP01 DWT FOR LINE PRINTER P P P P* P* , P****************************************
0x0d32c4…0d3458 Dummy {f00=0x010e, f01=0x0190, f02=»PATCHER P EXTRN TENDIO END I/O & P EXTRN SAVE8 SAVE 8 REGS ON STACK . P EXTRN DISIOE REQUEST ERROR X EXTRN DWTST STATUS | EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER P EXT
0x0d3458…0d35ec Dummy {f00=0x010e, f01=0x018e, f02=» * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P EJECT DRLP01 2 P* J P* T " P***************************** ^ " P* CONSTANTS * " P***************************** P* P* PDWALP EQU /0F & PMUXLP EQU DWAL
0x0d35ec…0d3780 Dummy {f00=0x010e, f01=0x018e, f02=» P* CONDITIONAL ASSEMBLY P* & . P***************************************** 0 P* b 2 P* PROGRAMMED CHANNEL MAY BE USED INSTEAD OF l , P* MULTIPLEX CHANNEL BY SETTING X:A=1 P* PX:A EQU 0 PCHAN EQU 0 P* .
0x0d3780…0d3914 (0, 268) Dummy {f00=0x010f, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. H P* z PCPU852 EQU 1 P* P* MMU BUFFER SIZE P* PX:B EQU 67 PDVBLEN EQU 000 P* P* MMU DEVICE
0x0d3914…0d3aa8 Dummy {f00=0x010f, f01=0x0190, f02=» P*********************** P* ORDERS * ( P*********************** H P* h P* ORDER /00: TEST STATUS. r 8 P* A TST INSTRUCTION IS EXECUTED TO SEE 0 P* IF LINE PRINTER IS OPERABLE. P*
0x0d3aa8…0d3c3c Dummy {f00=0x010f, f01=0x0190, f02=» TO THE LINE PRINTER WITHOUT ANY CHECK. | P* 0 $ P* ORDER /06: STANDARD WRITE. : @ P* FIRST WORD IN ECB BUFFER CONTAINS A CONTROL b P* CHARACTER. < P* /2B: PRINT LINE WITHOUT ADVANCING PAPER : P
0x0d3c3c…0d3dd0 Dummy {f00=0x010f, f01=0x0190, f02=» OTHER CHARACTERS GIVES A LINE FEED BEFORE P* PRINTING. 8 P* Z P* d > P* CHARACTERS IN BUFFER SHOULD BE WITHIN THE n > P* INTERVAL /20-/5F. NO CHECK IS CARRIED OUT B P* BY DRI
0x0d3dd0…0d3f64 Dummy {f00=0x010f, f01=0x0190, f02=»CHARACTER. z P* P EJECT DRLP01 P* 4 P* > ( P************************************ H ( P* NORMAL REGISTER USAGE * t ( P************************************ P* P* P* A1 = RETURN CODE P* A2 =
0x0d3f64…0d40f8 Dummy {f00=0x010f, f01=0x0190, f02=» z P* A7 = ORDER P* A8 = ECB ADDRESS P* > P* H $ P******************************** R $ P* TABLES * z $ P******************************** P* P* * P DATA DVBLEN+DVBLEN MMU BUFFER LENGTH
0x0d40f8…0d428c Dummy {f00=0x010f, f01=0x0190, f02=» DRLP01 P* P* P* A C T I V A T I O N $ P* D P* N PACLP EQU * X P LDK A1,/0D CARRIAGE RETURN j P LDR A7,A7 ORDER 0 ? P RF(NE) ACLP05 NO P LDKL A4,DWTBC BYTE COUNTER P ADR A4,A6 ADD DWT ADDRESS $
0x0d428c…0d4420 Dummy {f00=0x010f, f01=0x0190, f02=»,A8 REQ. LENGTH P SUK A7,5 ORDER 5 ? P RF(E) ACLP30 4 P SUK A7,1 ORDER 6 ? J P RF(E) ACLP10 f P* | PACERR ABL DISIOE P* P EJECT DRLP01 P* P* PACLP10 EQU * P CWK A2,2 REQ. LENGTH < 2 ?
0x0d4420…0d45b4 (0, 269) Dummy {f00=0x0113, f01=0x018e, f02=»ADDRESS ~ & P ADR A3,A2 ADDED WITH REQ. LENGTH $ P SCR A1,A3 STORE PRINT CHARACTER : P ADK A2,1 b P LCR A3,A4 t P ECR A3,A3 & P LC A3,1,A4 GET CONTROL CHARACTER P ST A3,CONCHA P ANK A3,/FF $ P SUK A3,/2B SUPER POSITIONIN
0x0d45b4…0d4748 Dummy {f00=0x0113, f01=0x0190, f02=» P* PACLP15 LDK A1,/0A LINE FEED * P SC A1,1,A4 SECOND CHARACTER IN BUFFER 2 P SUK A3,5 TWO LINE FEEDS ? ` P RF(E) ACLP20 YES P LDK A1,/0C TOP OF FORM P SUK A3,1 WANTED ? P RF(E) ACLP20 YES P LDK A1,/0D CARRIAGE RET
0x0d4748…0d48dc Dummy {f00=0x0113, f01=0x0190, f02=»IOSTA SEND BUFFER P SUK A7,6 ORDER 6 ? P RF(NE) ENDIO 6 P LDR A2,A2 L P RF(NN) ACLP35 ^ 4 P IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D) t P* PACLP35 EQU * P LD A4,2,A8 BUFFER ADDRESS P LDKL A3,0 PCONCHA EQU
0x0d48dc…0d4a70 Dummy {f00=0x0113, f01=0x0190, f02=»DIO CF A15,TENDIO END REQUEST PEXIT ABL TDISP & P* < P EJECT DRLP01 F P* ^ P* h P* CIOSTA r " P* SUBROUTINE TO SEND BUFFER P* P* PCIOSTA EQU * P ST A5,DWTA5,A6 SAVE A5 P IFT CHAN=0 6 P
0x0d4a70…0d4c04 Dummy {f00=0x0113, f01=0x0190, f02=»FIRST WRITE EXTERNAL REGISTER 2 P WER A4,MUXLP+1 SECOND WRITE EXTERNAL REGISTER & P XIF P* h P IFT CHAN=1 r ( P ST A4,DWTA3,A6 SAVE BUFFER ADDRESS P ADR A4,A2 . P ST A4,DWTA4,A6 SAVE BUFFER END ADDRESS+1 P XIF P*
0x0d4c04…0d4d98 Dummy {f00=0x0113, f01=0x0190, f02=»1 P* P* P* RECOVERY ROUTINE P* < P* F PLPON EQU * P P IFT CPU852=1 b & P CF A15,SAVE8 SAVE A1-A8 ON STACK x P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x0d4d98…0d4f2c Dummy {f00=0x0113, f01=0x018e, f02=»LP30 P* P EJECT DRLP01 P* . P* 8 P* I N T E R R U P T B P* ` P* j PIHLP EQU * t $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CHAN=0 P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF
0x0d4f2c…0d50c0 Dummy {f00=0x0113, f01=0x0190, f02=» P STR A1,A15 P STR A2,A15 P LDKL A2,DWLP01 DWT-ADDRESS , 2 P LD A1,DWTA3,A2 POINTER AT NEXT BYTE IN BUFFER P P LCR A2,A1 NEXT BYTE " P OTR A2,0,DWALP WRITE ONE BYTE P RF(NA) IHLP20 NOT ACCEPTED P LDKL A2,DWLP01 DWT-ADDRESS
0x0d50c0…0d5254 (0, 270) Dummy {f00=0x0113, f01=0x018e, f02=»ALP CIO HALT PIHLP10 EQU * P LDR* A2,A15 ( P LDR* A1,A15 < P RTN A15 P P* ` P* j P* t PIHLP20 STR A3,A15 ~ P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P XIF P
0x0d5254…0d53e8 Dummy {f00=0x0113, f01=0x0190, f02=» P ANK A7,/FF P LD A8,DWTECB,A6 ECB ADDRESS P* < P IFT CHAN=0 F 4 P RER A3,MUXLP GET NUMBER OF NOT TRANSFERED CHAR. Z P ANKL A3,/FFF 8 P LD A2,4,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS P SUR A2,A3 P XIF P*
0x0d53e8…0d557c Dummy {f00=0x0113, f01=0x0190, f02=» RF(NE) IHLP35 P ADK A2,1 YES PIHLP35 EQU * , 8 P SU A2,2,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS @ P XIF | " P ST A2,6,A8 STORE EFF. LENGTH $ P LD A5,DWTA5,A6 GET STACK VALUE P RTN A5 P* P EJECT DRLP01 P
0x0d557c…0d5710 Dummy {f00=0x0113, f01=0x0190, f02=»L PARAMETER P DATA /8000 STATUS P DATA 0 ECB ADDRESS . P DATA 0 ORDER J ( P DATA LPADR ADDRESS TO ADDRESS BLOCK ` P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DAT
0x0d5710…0d58a4 Dummy {f00=0x0113, f01=0x4118, f02=»A FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 0 P RES 4 DWT STACK P P* h P IFT MMUPAG=1 r PDEVECB EQU * P DATA 0 P DATA LP:BUF P DATA 0,0,0,0 PLP:BUF RES DVBLEN+1 P XIF P* P
0x0d58a4…0d5a38 Dummy {f00=0x0113, f01=0x2008, f02=» P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR ( P DATA 0 TERMINAL QUEUE P P DATA 0 OUTPUT QUEUE LINK n P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P
0x0d5a38…0d5bcc Dummy {f00=0x0113, f01=0x0190, f02=»619,/1C1F,/1215,/181B,/1E11,/1417,/1A1D P* 0 P EJECT DRDU01 DRDU01 : P* Z P* d P***************** n P* * P* ACTIVATION * P* * P***************** P* P* PDUAD
0x0d5bcc…0d5d60 Dummy {f00=0x0113, f01=0x018e, f02=» SET OTHER DISC UNIT BUSY P XIF " P* . PDUA:00 EQU * 8 0 P LDK A4,QRETRY GET MAX NO OF RETRIES TO MAKE L P ADK A7,0 SET CR " P RF(Z) TEST TEST STATUS ORDER P* P IFT MMUPAG=1 P IFF 1-ONLYDM+DSKPAG=0 & P LDR* A1,A8
0x0d5d60…0d5ef4 (0, 271) Opaque[0x194]
0x0d5ef4…0d6088 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2280, f03=0x0000}
0x0d5ef4…0d6088 IdxSect {
0x0d5ef4…0d6088 f00 = 0x0114 // 0xd5ef4 @0x0
0x0d5ef4…0d6088 f01 = 0x0020 // 0xd5ef6 @0x2
0x0d5ef4…0d6088 gno = [ // 0xd5ef8 @0x4
0x0d5ef4…0d6088 [0x00]: C0x0114.0x0.0
0x0d5ef4…0d6088 [0x01]: C0x0114.0x1.0
0x0d5ef4…0d6088 [0x02]: C0x0114.0x2.0
0x0d5ef4…0d6088 [0x03]: C0x0114.0x3.0
0x0d5ef4…0d6088 [0x04]: C0x0115.0x0.0
0x0d5ef4…0d6088 [0x05]: C0x0115.0x1.0
0x0d5ef4…0d6088 [0x06]: C0x0115.0x2.0
0x0d5ef4…0d6088 [0x07]: C0x0116.0x1.0
0x0d5ef4…0d6088 [0x08]: C0x0116.0x2.0
0x0d5ef4…0d6088 [0x09]: C0x0116.0x3.0
0x0d5ef4…0d6088 [0x0a]: C0x0117.0x0.0
0x0d5ef4…0d6088 [0x0b]: C0x011e.0x2.0
0x0d5ef4…0d6088 [0x0c]: C0x011e.0x3.0
0x0d5ef4…0d6088 [0x0d]: C0x011f.0x2.0
0x0d5ef4…0d6088 [0x0e]: C0x011f.0x3.0
0x0d5ef4…0d6088 [0x0f]: C0x0120.0x0.0
0x0d5ef4…0d6088 ]
0x0d5ef4…0d6088 }
0x0d6088…0d621c Dummy {f00=0x0114, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 9.2 79-12-05 870105040920 P : * P =2,TIMING PROBLEMS IN INT. HANDLER B P REL 9.2 79-11-16 p $ P =1,CHANGED INTERRUPT HANDLER P REL 9.1 79-05-23 P* 2 P**********************************************
0x0d621c…0d63b0 Dummy {f00=0x0114, f01=0x0190, f02=» P* P* P* 2 P********************************************* " 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY X . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON & P* MULTIPLEX OR PROGRA
0x0d63b0…0d6544 Dummy {f00=0x0114, f01=0x0190, f02=»L READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRITE T D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- p P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /1A SEARCH KE
0x0d6544…0d66d8 Dummy {f00=0x0114, f01=0x0190, f02=» -IBM DISC ONLY- t P* /37 LOAD , P* /38 UNLOAD B P* Z P* ENTRY PARAMETERS: d P* P* A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER P* A8 ECB-ADDRESS P EJECT DRFD01
0x0d66d8…0d686c Dummy {f00=0x0114, f01=0x0190, f02=»R ACTIVATION ADDRESS " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE B P ENTRY DWFD01 DWT-ADDRESS f P EJECT DRFD01 P* P************* P* * P* EXTERNALS * P* * P******
0x0d686c…0d6a00 Dummy {f00=0x0114, f01=0x0190, f02=»TATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER 0 EXTRN DWTA2 SAVE AREA A2 X EXTRN DWTA5 SAVE AREA A5 z & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE ( P EXTRN SAVE8 SAVE A1-A
0x0d6a00…0d6b94 (0, 272) Dummy {f00=0x0114, f01=0x0190, f02=»XTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB ( 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE R $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN
0x0d6b94…0d6d28 Dummy {f00=0x0114, f01=0x0190, f02=» * P* CONDITIONAL ASSEMBLY * P* * > P************************ ^ P* ~ . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P* PX:A EQU 1 PCHAN EQU 1
0x0d6d28…0d6ebc Dummy {f00=0x0114, f01=0x0190, f02=» PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAINED BY SETTING IBM EQU 1. V P* PX:C EQU 0 PIBM EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMU
0x0d6ebc…0d7050 Dummy {f00=0x0114, f01=0x0190, f02=»BTAINED BY SETTING CPU852 EQU 0. P* ( PCPU852 EQU 1 2 P* F P EJECT DRFD01 P P* h * r . ** A PROGRAM VERSION USING TOSS DISC PAGING | * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 0 * P*
0x0d7050…0d71e4 Dummy {f00=0x0114, f01=0x0190, f02=»QU 0 P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 d P* PX:D EQU 0 POPCLOS EQU 1 P* P EJECT DRFD01 P* P
0x0d71e4…0d7378 Dummy {f00=0x0114, f01=0x018e, f02=»CE INDEX P* P* P IFT CHAN=1 $ PDEVIND EQU 2 8 P XIF L P* X P IFT CHAN=0 b PDEVIND EQU 4-IBM-IBM v P XIF P* P EJECT DRFD01 P* P************* P* * P* CONSTANTS *
0x0d7378…0d750c Dummy {f00=0x0114, f01=0x0190, f02=» l ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. 4 ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH b " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITION $
0x0d750c…0d76a0 Dummy {f00=0x0114, f01=0x018e, f02=»************** P* * P* DWT-DISPLACEMENTS* 2 P* * N P******************** j P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P
0x0d76a0…0d7834 (0, 273) Dummy {f00=0x0114, f01=0x018e, f02=» ~ P* P********** P* * $ P* TABLES * 6 P* * H P********** Z P* l P IFT DEVIND=2 v ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P XIF P* P IFT DEVIND=4 " P DATA 0 INDICATE NO MMU BUFFER
0x0d7834…0d79c8 Dummy {f00=0x0114, f01=0x0190, f02=» P* P EJECT DRFD01 P* & P************** 0 P* * F P* ACTIVATION * P* * r P************** P* PFDAD EQU * ACTIVATION ENTRY P* P IFT OPCLOS=1 & P* CHECK IF OPEN OR CLOSE
0x0d79c8…0d7b5c Dummy {f00=0x0114, f01=0x0190, f02=»* P EJECT P XIF P* $ P LDK A3,0 . P LC A3,DWTOR,A6 INDEX @ P LDR A2,A3 SAVE FOR FDIX ^ P* ~ & P* PUT DRIVE NO IN CIO-INSTRUCTION P* P CF A5,SETCIO A3,A4 AFFECTED ( P CM DWTRCW,A6 SAVE RETURN CODE WORD
0x0d7b5c…0d7cf0 Dummy {f00=0x0114, f01=0x0190, f02=»WTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3 & P RF(NZ) FD:ORD LOCKED 8 P LDR A1,A7 V P SUK A1,/26 h P ABL(Z) LOAD LOCK ORDER | P SUK A1,/11 P ABL(Z) LOAD LOAD ORDER P LDKL A1,/8001 RETURN CODE P ABL END:IO ENDIO
0x0d7cf0…0d7e84 Dummy {f00=0x0114, f01=0x0190, f02=» DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GET FIRST WORD OF ECB B 4 P ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS l . P RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? P LDR A3,A2 P RF(NN) FD:005 6 P ADKL A3,T
0x0d7e84…0d8018 Dummy {f00=0x0114, f01=0x018e, f02=» LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 ( P SLL A1,2 : P ORR A1,A2 L P ANKL A3,/FFF ^ 2 P ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS t , P ADKL A1,/400 CREATE ONE MORE MMU ENTRY P ST A1,DWT:PA+2,A6 P LDR A1,A3 ( P O
0x0d8018…0d81ac Dummy {f00=0x0114, f01=0x0190, f02=» ` P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P* N P EJECT DRFD01 X P XIF p P* | P LDR A1,A7 P ABL(Z) FD:070 TEST STATUS P SUK A1,1 P RF(Z) FD:040 PHYSICAL READ P SUK A1,4 P RF(Z)
0x0d81ac…0d8340 Dummy {f00=0x0114, f01=0x018e, f02=» SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 : P ABL(Z) UNLOAD UNLOAD ORDER N P IFT IBM=1 r P ADK A1,/36 " P ABL(Z) SQREAD SEQUENTIAL READ P SUK A1,4 $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A1,/2B
0x0d8340…0d84d4 (0, 274) Dummy {f00=0x0114, f01=0x0190, f02=» v P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR 0 P* R P IFT OPCLOS=1 P EJECT r P* P******** P* * P* OPEN * P* * P******** P* 4 P* OPEN IS PERFORMED BY WRITING A
0x0d84d4…0d8668 Dummy {f00=0x0114, f01=0x0190, f02=» ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA 0 " P OTR A1,0,SOPDA OPEN FD DRIVE d P* * P* WAIT FOR DRIVE TO BECOME OPERABLE ( P LDK A4,DWTTP2 TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINT
0x0d8668…0d87fc Dummy {f00=0x0114, f01=0x0190, f02=»SP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED . P LDR A6,A1 GET DWT-ADDR L , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING l & P RF OCLEXI COMMON OPEN/CLOSE EXIT P* P EJECT P* P********* P* *
0x0d87fc…0d8990 Dummy {f00=0x0114, f01=0x0190, f02=» THE SOP LIGHTS EXTERNAL REGISTER P* * PCLOSE EQU * 4 " P LDKL A1,/8000 MASK FOR BIT 0 H & P ORS A1,SPDLCI SET OPEN/CLOSE BIT n 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA CLOSE FD DRIVE P* POCLEXI EQU *
0x0d8990…0d8b24 Dummy {f00=0x0114, f01=0x0190, f02=»JECT DRFD01 P* P*************** P* * 8 P* BASIC WRITE * P P* * h P*************** P* PFD:010 CF A5,BIO P ORK A2,1 PFD:015 EQU * P IFT TOSS+IBM=2 P LD A1,DWTLAB,A6
0x0d8b24…0d8cb8 Dummy {f00=0x0114, f01=0x0190, f02=» P CF A5,EBCDIC PFD:018 EQU * P XIF . P* : P IFT CHAN+TOSS=2 D P IFT MMUPAG+SWPBLK=2 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS x ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH P
0x0d8cb8…0d8e4c Dummy {f00=0x0114, f01=0x0190, f02=»MMU TABLE v 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK H P LDR A2,A8 RESTORE A2 r P* P EJECT DRFD01 P* P* PFD:019 EQU * P XIF P* " P CF A5,FD:WRITE PERFORME
0x0d8e4c…0d8fe0 Dummy {f00=0x0114, f01=0x0190, f02=» WAS IN SYSTEM AREA? | . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A1,ECBBA,A8 RESTORE IT IN ECB N P* x PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* * P
0x0d8fe0…0d9174 (0, 275) Dummy {f00=0x0115, f01=0x018e, f02=»S 13-15 x P RB FD:015 P EJECT DRFD01 " P* : P********************** D P* * b P* WRITE DELETED DATA * P* * P********************** P* PFD:030 CF A5,BIO P ORK A2,6
0x0d9174…0d9308 Dummy {f00=0x0115, f01=0x0190, f02=» P***************** P* PFD:040 CF A5,BIO:RE ( P IFT TOSS+IBM=2 D P LD A1,DWTLAB,A6 P AN A1,DWTA3,A6 t P RF(Z) FD:042 TOSS DISC P XIF P IFT IBM=1 P LDKL A4,BUF PFD:042 EQU * P XIF $ PFD:045 CF
0x0d9308…0d949c Dummy {f00=0x0115, f01=0x0190, f02=»SKPAG+SWPBLK=0 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( P RF(Z) FD:046 BUFFER IN SYSTEM AREA? N ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH z * P LDKL A1,FD:BUF GET DWT BUFFER ADDRESS & P TS -30,A15 SAVE RUNNING TASK MMU ( P TL DWT:PA
0x0d949c…0d9630 Dummy {f00=0x0115, f01=0x0190, f02=»,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A2,ECBBA,A8 RESTORE IT IN ECB ! , P RF FD:048 ! V P* ! h PFD:046 EQU * ! r P XIF ! P* ! P IFT TOSS+IBM=2 ! P LD A1,DWTLAB,A6 ! P AN A1,DWTA3,A6 ! P RF(Z) FD:047 NOT IBM ! P XIF !
0x0d9630…0d97c4 Dummy {f00=0x0115, f01=0x0190, f02=» P XIF " PFD:048 EQU * " P ABL FD:RC " $ P* " 6 P EJECT DRFD01 " @ P* " X P IFT TOSS+IBM=0 " b P IFT MMUPAG=0 " z P* " P************** " P* * " P* SEARCH KEY * " P* * " P************** " P
0x0d97c4…0d9958 Dummy {f00=0x0115, f01=0x018e, f02=»0 ILLEGAL LENGTH " P SUK A1,128 # " P ABL(P) END:10 ILLEGAL LENGTH # , P LDR A3,A2 # R P* # d * P* IF ODD CHANGE TO EVEN NO OF BYTES # n P* # P ADK A3,1 # P SRL A3,1 # P SLL A3,1 # P* # P SLL A2,3 # P ORK A2,7 BIO #
0x0d9958…0d9aec Dummy {f00=0x0115, f01=0x0190, f02=» P* $ P EJECT DRFD01 $ P* $ & $ P* READ RECORD WITH KEY COMMAND $ 0 P* $ X PFD:060 EQU * $ b P LDK A2,4 BIO $ v P LD A3,4,A8 REQUESTED LENGTH $ P CWK A3,130 $ " P ABL(NE) END:10 ILLEGAL LENGTH $ P LD A4,2,A8 BUFFER ADDRESS $
0x0d9aec…0d9c80 Dummy {f00=0x0115, f01=0x0190, f02=»TUS * $ P* * % P*************** % & P* % > PFD:070 EQU * % H P LDKL A2,/FFF9 BIO DUMMY % P CF A5,FD:WRI % | P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % " P ANKL A3,/200 WRITE PROTECTED? % P O
0x0d9c80…0d9e14 (0, 276) Dummy {f00=0x0115, f01=0x018e, f02=»RCW,A6 GET RETURN CODE % PFD:090 ABL END:IO & P* & 8 P EJECT DRFD01 & B P* & Z P******** & d P* * & t P* LOAD * & P* * & P******** & P* & PLOAD EQU * & P LDK A2,/14 LOCK & P CF A5,FD:REA & P ANK A3,1
0x0d9e14…0d9fa8 Dummy {f00=0x0115, f01=0x0190, f02=» & P LDK A2,0 BIO ' P LDKL A4,BUF ' P LDK A3,38 NO OF BYTES ' 2 P CF A5,FD:REA ' P P CF A5,LD:RC ' f P ADK A4,34 ' z P LDR* A2,A4 ' P CWK A2,'TO' ' ( P RF(NE) LOA:10 IBM LABEL PREASSUMED ' P ADK A4,2 ' P LDR* A2,A4 ' P C
0x0d9fa8…0da13c Dummy {f00=0x0115, f01=0x0190, f02=»* ' P* READ VOLUME NAME ( P* ( & P LDK A3,8 LENGTH ( 0 P LDK A2,0 BIO ( H * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ( ^ * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL ( P RF LOA:15 ( P XIF ( P IFT IBM=1 ( PLOA:10 LDK A3,10 LENGTH (
0x0da13c…0da2d0 Dummy {f00=0x0115, f01=0x018e, f02=»BIT 10 ( x P ORS A1,DWTRCW,A6 ) P XIF ) ( P IFF TOSS+IBM=0 ) 4 PLOA:15 EQU * ) L P LDKL A4,BUF BUFFER ADDRESS ) ` P CF A5,FD:REA ) P CF A5,LD:RC ) P LDK A1,2 ) P XIF ) P IFT IBM=1 ) P LD A7,DWTRCW,A6 ) $ P ANK A7,/20 CHECK
0x0da2d0…0da464 Dummy {f00=0x0115, f01=0x0190, f02=» ) P XIF * P* * P EJECT DRFD01 * P* * 6 P* * @ P IFF TOSS+IBM=0 * J P* * b P* GET DWT VOL NAME ADDRESS * l P* * P CF A5,VOLADR ADDRESS TO A2 * P* * P* STORE NAME IN DWT * P* * P LDK A3,3 * PLOA:40 L
0x0da464…0da5f8 Dummy {f00=0x0115, f01=0x018e, f02=»50 EQU * * P LC A2,DWTOR+1,A6 GET ORDER + P ANK A2,/FF + 4 & P RB(Z) FD:075 JUMP IF TEST STATUS + H P XIF + r P IFT IBM=1 + ~ P* + P* DATA SET OPENING WANTED? + P* + " P ANK A1,/2 A1: TOSS=6, IBM=8 + P RF(NZ) LOA:70 TOSS LABEL +
0x0da5f8…0da78c Dummy {f00=0x0115, f01=0x0190, f02=» + P LD A2,ECBCW,A8 SECTOR NO , P SUK A2,7 , * P ABL(N) FD:DIS REQUEST ERROR , < P SUK A2,18 , ` P ABL(P) FD:DIS REQUEST ERROR , r P ADK A2,25 , P SLL A2,3 BIO , P LDK A3,80 LENGTH , P LDKL A4,BUF , P CF A5,FD:REA , P LDR A
0x0da78c…0da920 Dummy {f00=0x0115, f01=0x0190, f02=»ABEL , f PLOA:60 EQU * - P CF A5,LD:RC - P ENB - 4 * P LD A3,ECBCW,A8 DATA SET LABEL SECTOR - @ P LDK A1,DWTDSS - n P CF A5,STDWT SAVE IN DWT - P ADK A4,BOE BOE ADDRESS - . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - P LDK A1,DWTBOE -
0x0da920…0daab4 (0, 277) Dummy {f00=0x0115, f01=0x0190, f02=» - t P CF A5,LOGSEC . P LDK A1,DWTEOE . $ P CF A5,STDWT STORE EOE NO IN DWT . 4 P ADK A4,EOD-EOE EOD ADDRESS . P CF A5,LOGSEC . P CF A5,SETINH INHIBIT . P LDK A1,DWTEOD . $ P CF A5,STDWT STORE EOD NO IN DWT . P* . PLOA:70 EQU *
0x0daab4…0dac48 Dummy {f00=0x0115, f01=0x0190, f02=»D:RC . P* / P EJECT DRFD01 / P* / . P* / 8 P IFF TOSS+IBM=0 / B P* / Z P* ERROR , UNLOCK / d P* / ~ PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:
0x0dac48…0daddc Dummy {f00=0x0115, f01=0x0190, f02=»WTRCW,A6 / P ANKL A3,/2007 FATAL ERROR 0 P RB(NZ) LOA:90 0 2 & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 H P RTN A5 0 r P XIF 0 P EJECT DRFD01 0 P* 0 P********** 0 P* * 0 P* UNLOAD * 0 P* * 0 P********** 0
0x0daddc…0daf70 Dummy {f00=0x0115, f01=0x0190, f02=» A7,A7 EOD 0 P RF(Z) UNL:70 NOT OPEN 1 4 P ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 0 P* 1 h , P* READ DATA SET LABEL TO DRIVER BUFFER 1 r P* 1 P CF A5,DSLIO PREPARE FOR I/O 1 & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC
0x0daf70…0db104 Dummy {f00=0x0115, f01=0x0190, f02=»C-CODED) 1 ` P* 2 P CF A5,DSOPCH EOD-NO TO A7 2 P* 2 < P* DIVIDE EOD BY 26 2 F P* 2 b P LDK A1,0 2 l PUNL:10 SUK A7,26 2 ~ P RF(N) UNL:20 2 P ADK A1,1 2 P RB UNL:10 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK
0x0db104…0db298 Dummy {f00=0x0115, f01=0x0190, f02=» TO POS 79 2 v P SCR A3,A4 3 P SUK A4,1 3 $ P SRL A3,8 LEFT BYTE 3 6 P SCR A3,A4 STORE IN BUFFER 3 R P LDR A7,A1 TRACK 3 t ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 P CF A5,SETINH INHIBIT 3
0x0db298…0db42c Dummy {f00=0x0115, f01=0x0190, f02=»E WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 P CF A5,DSOPCH 4 F P CMR A2 INDICATE NOT OPEN 4 P* 4 ~ P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6
0x0db42c…0db5c0 Dummy {f00=0x0115, f01=0x018e, f02=»LOCK IN DWT 4 t PUNL:80 EQU * 5 P RB LOA:75 END:IO 5 ( P IFF TOSS+IBM=0 5 B P* 5 Z P* UNLOAD RETURN CODE CHECK 5 d P* 5 PUNL:RC ORS A3,DWTRCW,A6 5 P ANK A3,/7 FATAL ERROR? 5 P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5
0x0db5c0…0db754 (0, 278) Dummy {f00=0x0116, f01=0x0190, f02=» P* 6 PSQREAD EQU * 6 * P CF A5,DSOPCH GET EOD AND EOD ADDRESS 6 " P LDR A7,A7 EOD 6 P " PSQR:05 ABL(Z) DISIOE NOT OPEN 6 f . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 6 P LDR* A3,A2 CRN 6 P ADK A3,1 CRN+1 6 & P ST A3,ECBCW,A8 STORE CRN+
0x0db754…0db8e8 Dummy {f00=0x0116, f01=0x0190, f02=»REA READ SECTOR POINTED AT BY CRN+1 6 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 7 , $ P LD A7,ECBRL,A8 REQUESTED LENGTH 7 X $ P CF A5,ASCII TRANSFORM TO ASCII 7 P LDK A1,DWTCRN 7 P CF A5,DSPAD 7 P RF SQW:10 UPDATE CRN 7 P* 7 P* END OF DA
0x0db8e8…0dba7c Dummy {f00=0x0116, f01=0x0190, f02=» P* SEQUENTIAL WRITE * 8 P******************* 8 P* 8 < PSQWRIT EQU * 8 F P CF A5,DSOPCH GET EOD 8 Z P ADK A7,0 EOD-NO (SET CR) 8 x P RB(Z) SQR:05 NOT OPEN 8 P* 8 P* CHECK IF END OF EXTENT 8 P* 8 P LDK A1,DWTEOE 8 & P CF
0x0dba7c…0dbc10 Dummy {f00=0x0116, f01=0x018e, f02=»F A5,BIO 8 P LDK A7,128 9 , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF 9 $ P ORK A2,5 PHYS. WRITE 9 T P CF A5,FD:WRI 9 r P CF A5,DSOPCH 9 PSQW:10 LDR A1,A3 RETURN CODE 9 P ANK A1,/1 9 P RF(NZ) SQW:15 NOT OPERABLE 9 * P IMR A2 EOD=EOD+
0x0dbc10…0dbda4 Dummy {f00=0x0116, f01=0x0190, f02=» P RF END:IO : P EJECT DRFD01 : P* : . P********** : 8 P* REWIND * : J P********** : P* : n PREWIND EQU * : x P CF A5,DSOPCH : P ADK A7,0 EOD (SET CR) : $ P RB(Z) SQR:05 DATA SET NOT OPEN : P LDR A3,A2 SAVE EOD ADDRESS :
0x0dbda4…0dbf38 Dummy {f00=0x0116, f01=0x0190, f02=» P SUK A4,1 BOE - 1 ; P STR A4,A2 CRN = BOE -1 ; P LDK A1,0 RETURN CODE ; > P RF END:IO ; P XIF ; n P EJECT DRFD01 ; z P* ; P***************** ; P* * ; P* PERFORM ORDER * ; P* * ; P****
0x0dbf38…0dc0cc Dummy {f00=0x0116, f01=0x018e, f02=» A4 BUFFER ADDRESS ; P* < PFD:WRI EQU * < * P IFT CHAN=0 < > P LDKL A1,/C000 WORDS,WRITE < R P XIF < t P IFT CHAN=1 < ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < P XIF < P RF FD:800 < P* < PFD:REA EQU * < P IFT CHAN=1
0x0dc0cc…0dc260 Dummy {f00=0x0116, f01=0x0190, f02=» PFD:800 EQU * = P IFT CHAN=0 = " P SRL A3,1 FROM BYTES TO WORDS = , P* = R P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = r * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = P XIF = P* = P IFT CHAN=0 = P ORR A3,A1 = PWE
0x0dc260…0dc3f4 (0, 279) Dummy {f00=0x0116, f01=0x0190, f02=» P* > . P* PUT BUFFER START AND END ADDRESS IN DWT > P* > @ P ST A4,DWTUB,A6 > J P ADR A3,A4 > b " P ST A3,DWTUBE,A6 END ADDRESS+2 > t P XIF > PFD:820 EQU * > & P ST A5,DWTA5,A6 SAVE STACK POINTER > $ PFD:CIO CIO A2,1,CUADR CIO-START >
0x0dc3f4…0dc588 Dummy {f00=0x0116, f01=0x0190, f02=» > P* ? * P************************************* ? * P* * ? @ * P* FD:RC - STORE EFF LEN, END:IO * ? n * P* * ? * P************************************* ? P* ? P* INP
0x0dc588…0dc71c Dummy {f00=0x0116, f01=0x0190, f02=»D A2,ECBRL,A8 REQ LENGTH ? P ST A2,ECBEL,A8 EFF LENGTH @ P EJECT DRFD01 @ B P* @ Z P********** @ d P* * @ v P* END:IO * @ P* * @ P********** @ P* @ PEND:IO EQU * @ P CF A15,TENDIO @ PT:DISP ABL TDISP @
0x0dc71c…0dc8b0 Dummy {f00=0x0116, f01=0x018e, f02=»END:10 LDK A1,8 RETURN CODE @ P RB END:IO A $ P EJECT DRFD01 A 6 P* A N P******************** A X P* * A t P* RECOVERY ROUTINE * A P* * A P******************** A P* A PFDON EQU * A P IFT CPU
0x0dc8b0…0dca44 Dummy {f00=0x0116, f01=0x0190, f02=» P XIF B P* B P LDKL A6,DWFD01 DWT ADDRESS B P* B > PFDON05 EQU * B H P IM DWTA2,A6 SET FDON FLAG B P LDKL A5,DWTSB2 B ~ P ADR A5,A6 GET STACK BASE B P* B P IFF DSKPAG+SWPBLK=0 B , P LD A2,INIFLG CHECK INITIALIZATION FLAG B
0x0dca44…0dcbd8 Dummy {f00=0x0116, f01=0x0190, f02=»T FLEXIBLE DISC? B P LDR A3,A2 C . P CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION C * ( P CF A5,FDIX GET DRIVE BIT INDICATOR C * P ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED C P* C P EJECT DRFD01 C P* C P* C P C1R A3,A3 C * P ANS A3,DW
0x0dcbd8…0dcd6c Dummy {f00=0x0116, f01=0x0190, f02=» P CF A5,FD:REA D P LD A3,SCTPLD D 0 P CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT D 0 P LDK A1,2 D d P LDK A3,3 D v P* D P* MOVE VOLUME NAME TO DWT D P* D PFDON06 LD A4,BUF,A1 D P STR A4,A2 D P ADK A1,2 D P ADK A2,2
0x0dcd6c…0dcf00 Dummy {f00=0x0116, f01=0x0190, f02=» SAVE DWTST TO DWTST2 IF NOT ALREADY DONE. D P* DWTST IS SET BUSY E 2 P* E P P LD A2,DWTST2,A6 E Z P CWK A2,-1 E r P RF(NE) FDON08 ALREADY SAVED E P LD A2,DWTST,A6 E P ST A2,DWTST2,A6 E PFDON08 CM DWTST,A6 SET BUSY E P* E P I
0x0dcf00…0dd094 (0, 280) Dummy {f00=0x0116, f01=0x0190, f02=»ER POINTER E | P RF(Z) FDON09 NOT RUNNING F P CMR A4 STOP TIMER F 4 $ P CM DWTTP2,A6 INDICATE NO TIMER F N PFDON09 EQU * F v P* F 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE F 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS F P* F
0x0dd094…0dd228 Dummy {f00=0x0116, f01=0x0190, f02=»ATUS WORD TO OPEN F ~ P* G P LDR* A2,A4 G $ & P OTR A2,0,SOPDA SET DRIVE TO OPEN G 8 P* G b P XIF G l P* G x P EJECT G P* G P* DELAY 2 SEC G P* G P LD A4,DWTTP,A6 G P RF(Z) FDON10 NO TIMER SET G P LDKL A4,-TIME G "
0x0dd228…0dd3bc Dummy {f00=0x0116, f01=0x018e, f02=»5,SETIMP G P DATA FDON20,TIME H P RB T:DISP H * P* H < P* TIME OUT ROUTINE H F P* H b PFDON20 LDR A6,A1 H l P CM DWTTP,A6 H P LDKL A5,DWTSB2 H P ADR A5,A6 STACK BASE H P* H P* LOCK DOORS H P* H P LDK A2,1 H
0x0dd3bc…0dd550 Dummy {f00=0x0116, f01=0x0190, f02=» P* I P EJECT I P* I P* PUT DRIVE NO IN CIO INSTR I & P* I J P SRN A2,A3 DRIVE NO IN A3 I T * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR I v P LDK A2,/14 LOCK I P CF A5,FD:REA I P LD A2,DWTA3,A6 DRIVE IND. I P ANK A3,1 I P R
0x0dd550…0dd6e4 Dummy {f00=0x0116, f01=0x018e, f02=» I P* J P IFT OPCLOS=1 J P* J ( D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF J 2 $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG J z " P ORS A2,SPDLCI TO STATUS WORD J P CM DWTOCF,A6 CLEAR FLAG J P* J $ P LD A2,SPDLCI OPEN/CLO
0x0dd6e4…0dd878 Dummy {f00=0x0116, f01=0x018e, f02=» P* K P* ANY REQUEST? K P* K & . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. K 0 P* SET DWTST2 TO -1 K b " P LD A2,DWTST2,A6 SAVED STATUS K ~ * P ST A2,DWTST,A6 PUT IN CUURENT STATUS K P LDKL A2,-1 K ( P ST A2,DWTST2,A6 INDICATE NOT SAVE
0x0dd878…0dda0c Dummy {f00=0x0116, f01=0x0190, f02=» K b P* L P* RETRY REQUEST L P* L * P IM DWTRTY,A6 INDICATE RETRY L 4 P LD A7,DWTOR,A6 L X P ANK A7,/3F ORDER L p P LD A8,DWTECB,A6 ECB ADDRESS L P ABL FDAD REACTIVATE L P EJECT DRFD01 L P* L P********************* L
0x0dda0c…0ddba0 Dummy {f00=0x0116, f01=0x0190, f02=» EQU * L $ P ST P,INTSAV SAVE LAST INTERRUPT M " P******************** =1 START M 6 P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M r P XIF M P* M P IFT CPU852=0 M " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M P* M P
0x0ddba0…0ddd34 (0, 281) Dummy {f00=0x0117, f01=0x0190, f02=»FFER M v P SUR A2,A1 LENGTH N PIH005 EQU * N & P SST A3,CUADR GET STATUS N : " P RF(A) IH:000 READY INTERRUPT N Z ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR N P RF(NZ) IH050 READ N P* N P EJECT DRFD01 N P* N P* N PIH010 EQU * N
0x0ddd34…0ddec8 Dummy {f00=0x0117, f01=0x0190, f02=»WRITE N P RB(NA) IH005 O $ P ADK A1,2 UPDATE BUFFER POINTER O $ P SUK A2,2 O L P RB(P) IH010 O ^ P CIO A2,0,CUADR CIO HALT O r P ABL TDISP GOTO DISPATCHER O P* O PIH050 EQU * O P INR A3,0,CUADR READ O P RB(NA) IH005 O $ P SC
0x0ddec8…0de05c Dummy {f00=0x0117, f01=0x0190, f02=» A2,2 O P RB(P) IH050 P P CIO A2,0,CUADR CIO HALT P " P SST A3,CUADR STATUS =2 P B P RB(NA) *-2 =2 P b PIH:000 EQU * =1 P z P XIF P P* P P EJECT DRFD01 P P* P P* P P******************** =1 END P P IFT CHAN=0 =2 P
0x0de05c…0de1f0 Dummy {f00=0x0117, f01=0x0190, f02=»,A6 STACK POINTER P P SLL A3,1 Q P RF(N) FDRE READY INTERRUPT Q , P SRL A3,1 Q P P LD A2,DWTRTY,A6 RETRY? Q b P RF(Z) IH:10 NO Q " P CM DWTRTY,A6 RESET RETRY FLAG Q P LDR A1,A3 Q P ANKL A1,/0405 Q P RF(Z) IH:10 RETURN CODE OK Q
0x0de1f0…0de384 Dummy {f00=0x0117, f01=0x0190, f02=» CU - ECB Q x P* R P ANKL A3,/FF37 R P RF(Z) IH:80 R 2 P LDR A1,A3 R F " P ANKL A3,/0A05 UNCHANGED BITS R X P LDR A4,A1 R ~ P ANKL A4,/0400 BIT 5 R P SLC A4,7 TO BIT 14 R P ORR A3,A4 R P IFT TOSS+IBM=0 R P LDR A4,A1 R P ANK
0x0de384…0de518 Dummy {f00=0x0117, f01=0x0190, f02=» BIT 7 R P ORR A3,A4 S P ANK A1,/10 BIT 11 S P SRC A1,5 TO BIT 0 S : P ORR A3,A1 S T PIH:80 EQU * S f P IFT CHAN=1 =1 S z P INH =1 S P XIF =1 S P RTN A5 S P EJECT DRFD01 S P* S P******************** S P*
0x0de518…0de6ac Dummy {f00=0x0117, f01=0x0190, f02=»,DWTA2,A6 S , P ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE T P LDKL A5,DWTSB2 T B P ADR A5,A6 STACK BASE T Z P RB FDON60 T x P EJECT DRFD01 T P* T 0 P******************************************* T 0 P*
0x0de6ac…0de840 Dummy {f00=0x0117, f01=0x0190, f02=»*********************** T | P* U P******* U * P* * U : P* BIO * U J P* * U Z P******* U j P* U z P* U P* INPUT: A8 ECB ADDRESS U P* U > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START U 0 P* A
0x0de840…0de9d4 (0, 282) Dummy {f00=0x011e, f01=0x0190, f02=»10 U PBIO:RE LDK A4,1 V PBIO010 EQU * V " P LD A3,ECBRL,A8 REQ LEN V 6 P RF(N) BIOERR ILLEGAL LENGTH V V P IFT TOSS+IBM=2 V z P LD A2,DWTLAB,A6 V P AN A2,DWTA3,A6 V P RF(Z) BIO020 TOSS DISC V P XIF V P IFT IBM=1 V P LDK A7,
0x0de9d4…0deb68 Dummy {f00=0x011e, f01=0x0190, f02=»LEN V ~ P LDK A2,3 W PBIO030 EQU * W P XIF W 2 P IFF TOSS+IBM=0 W > P ADK A4,0 SET CR W V P RF(Z) BIO060 WRITE W n P LDK A2,0 W P LDR A1,A3 REQ LEN W & P CWR A3,A7 REQ LENGTH WITHIN RANGE W P RF(G) BIOERR NO W PBIO040 SUK A1,12
0x0deb68…0decfc Dummy {f00=0x011e, f01=0x018e, f02=»* W PBIO060 CWR A3,A7 X " P RF(NE) BIOERR ILLEGAL REQ LEN X " P XIF X H P IFT TOSS+IBM=0 X T P* X l > P* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH X v P* X P LDR A1,A3 REQ LENGTH X P LDK A2,0 NO OF SECTORS-1 X $ PBIO015
0x0decfc…0dee90 Dummy {f00=0x011e, f01=0x0190, f02=» P* Y PBIO035 SUK A1,128 Y & P RF(NP) BIO100 REQ LENGTH ACCEPTED Y ( PBIO045 ADK A2,1 Y R P CWK A2,3 Y j P RB(NG) BIO015 Y | $ P RF BIOERR REQ LEN OUTSIDE RANGE Y P XIF Y P* Y 6 PBIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1 Y
0x0dee90…0df024 Dummy {f00=0x011e, f01=0x0190, f02=»SECTOR NO Y P RF(N) BIOER2 OUTSIDE RANGE Z P IFT TOSS+IBM=2 Z 6 P ANK A7,/A Z N P RF(Z) BIO110 IBM DISC Z ` P XIF Z ~ P IFT TOSS=1 Z P CWK A1,499 Z P RF(G) BIOER2 OUT OF RANGE Z , P SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR Z P XIF
0x0df024…0df1b8 Dummy {f00=0x011e, f01=0x0190, f02=» P XIF [ P IFT TOSS+IBM=0 [ ( P CWK A1,2001 SECTOR NO OUT OF RANGE [ ( P RF(G) BIOER2 YES! [ T P XIF [ n PBIO120 EQU * [ z P SLL A1,3 [ P ORR A2,A1 [ " P LD A4,ECBBA,A8 BUFFER ADDRESS [ P LDR A1,A3 REQ LENGTH [ P ANK A1,1 [ $ P
0x0df1b8…0df34c Dummy {f00=0x011e, f01=0x0190, f02=» PBIOERR ABL END:10 P* ILLEGAL SECTOR NO PBIOER2 ABL FD:DIS < P* V P EJECT DRFD01 ` P* x P********* P* * P* FDIX * P* * P********* P* P* INPUT: A2 X P*
0x0df34c…0df4e0 Dummy {f00=0x011e, f01=0x018e, f02=»LL A3,1 P SUK A2,1 ] P RB FDIX10 ] " PFDIX20 RTN A5 ] 4 P EJECT DRFD01 ] J P IFF TOSS+IBM=0 ] b P****************** ] z P* * ] P* VOLADR * ] P* * ] P****************** ] P* ] P*
0x0df4e0…0df674 (0, 283) Dummy {f00=0x011e, f01=0x0190, f02=» ] P LC A3,DWTOR,A6 DRIVE NO ^ PVOLA05 EQU * ^ ( P LDK A2,DWTVO0 ^ < P ADR A2,A6 ^ R P ANK A3,/3 ^ d PVOLA10 EQU * ^ v P RF(Z) VOLA20 ^ P ADK A2,6 UPDATE ADDRESS ^ P SUK A3,1 ^ P RB VOLA10 ^ PVOLA20 RTN A5 ^ P XIF ^ P ^
0x0df674…0df808 Dummy {f00=0x011e, f01=0x0190, f02=»ASCII TRANSFORMS A STRING FROM EBCDIC TO ^ P* ASCII CODE _ 0 . P* INPUT STRING ADDRESS IS BUF _ P & P* INPUT: A7 NO OF CHARACTERS _ , P* A4 OUTPUT STRING ADDRESS _ P* OUTPUT: A1 CHANGED _ P*
0x0df808…0df99c Dummy {f00=0x011e, f01=0x0190, f02=»C:10 SUK A7,1 _ P RF(N) ASC:20 ` P SUK A4,1 ` , " P LC A1,BUF,A7 GET EBCDIC CHAR ` > ( P LC A1,TASCII,A1 TRANSFORM TO ASCII ` d 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER ` P RB ASC:10 ` PASC:20 EQU * ` " P RF EBC:90 SET INH AND RETURN
0x0df99c…0dfb30 Dummy {f00=0x011e, f01=0x018e, f02=»ES A STRING FROM ASCII TO ` r P* EBCDIC CODE a " 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER a D P* a & P* INPUT: A7 NO OF CHARACTERS a * P* A4 INPUT STRING ADDRESS a P* a P* OUTPUT: A1 CHANGED a
0x0dfb30…0dfcc4 Dummy {f00=0x011e, f01=0x0190, f02=» P LDK A1,0 b PEBC:10 SUK A7,1 b P RF(N) EBC:80 b . P SUK A4,1 b D P LCR A1,A4 GET ASCII CHAR. b V P LC A1,TEBCDIC,A1 b x P SC A1,BUF,A7 b P RB EBC:10 b PEBC:80 EQU * b P LDKL A4,BUF b PEBC:90 EQU * b P CF A5,SETINH b
0x0dfcc4…0dfe58 Dummy {f00=0x011e, f01=0x0190, f02=»EC TRANSFORMS PHYSICAL SECTOR TO STANDARD b ~ , P* LOGICAL SECTOR (BINARY). c 2 < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) c b * P* TT = TRACK, SS=SECTOR c P* c , P* INPUT: A4 ADDRESS TO PHYS. SECTOR c
0x0dfe58…0dffec Dummy {f00=0x011e, f01=0x0190, f02=»F A5,DECBIN c P LDR A3,A1 SAVE d P ADK A4,2 d , P* d > P* MULTIPLY BY 26 d H P* d b P SLL A3,5 *32 d l P LDR A2,A1 d P SLL A2,2 d P SUR A3,A2 *28 d P SLL A1,1 d P SUR A3,A1 *26 d P CF A5,DECBIN d P SUK A1,1 d
0x0dffec…0e0180 Dummy {f00=0x011e, f01=0x0190, f02=»F+EOD+4 EOD? d P RF(E) LOG:02 YES! e P SUKL A1,1898 e . P RF LOG:04 e D P* e V " P* CHECK EOD LESS/EQUAL 74001 e ` P* e PLOG:02 SUKL A1,1899 e PLOG:04 EQU * e " P RF(P) LOG:10 NOT ACC SEC. NO e " P SUK A4,4 RESET BUFFER POINTER e
0x0e0180…0e0314 (0, 284) Dummy {f00=0x011f, f01=0x0190, f02=»DE e r P ORS A1,DWTRCW,A6 f P CF A5,SETINH f $ P ABL LOA:90 ERROR ROUTINE f : P* f P EJECT DRFD01 f f P* f ~ P********** f P* DECBIN* f P********** f P* f > P* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO f D
0x0e0314…0e04a8 Dummy {f00=0x011f, f01=0x0190, f02=» BINARY f P* WORKING REG: A2,A7 g P* g 0 PDECBIN LDK A1,0 g : P LDK A7,2 g R PDEC:10 LCR A2,A4 DIGIT g d P ANK A2,/FF g P SUK A2,/F0 g P RB(N) LOG:05 g P SUK A2,9 g P RB(P) LOG:05 NOT DIGIT g P ADK A2,9 g P SUK
0x0e04a8…0e063c Dummy {f00=0x011f, f01=0x0190, f02=»DK A1,/A MULTIPLY BY 10 g P RB DEC:20 h PDEC:30 ADR A1,A2 h 2 P RTN A5 h J P XIF h Z P EJECT DRFD01 h f P* h ~ P********** h P* SETCIO * h P********** h P* h 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION h P* h 8 P
0x0e063c…0e07d0 Dummy {f00=0x011f, f01=0x0190, f02=» PSETCIO LDKL A4,/FFCF i P ANS A4,FD:CIO i P SLL A3,4 i 6 P ORS A3,FD:CIO i H P RTN A5 i ^ P IFT IBM=1 i n P EJECT DRFD01 i P* i P********** i P* BINDEC * i P********** i P* i : P* FUNCTION: BINDEC TRANSFORMS A BINA
0x0e07d0…0e0964 Dummy {f00=0x011f, f01=0x0190, f02=»UTPUT: A3 EBCDIC CODED DECIMAL DIGITS i P* A7 CHANGED j . P* j L PBINDEC LDK A3,0 j V PBIN:10 SUK A7,10 j n P RF(N) BIN:20 j P ADK A3,1 j P RB BIN:10 j PBIN:20 ADK A7,10 j P SLL A3,8 j * P ORR A3,A7 DECIMAL CONVERTED N
0x0e0964…0e0af8 Dummy {f00=0x011f, f01=0x0190, f02=»* j P* k 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL k P* k L P* INPUT: A6 DWT ADDRESS k V P* k x : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES k P* A3 128 k ( P* A4 DRIVER BUFFER ADDRESS k P
0x0e0af8…0e0c8c Dummy {f00=0x011f, f01=0x018e, f02=»2 k P SLL A2,3 l P LDK A3,128 l P LDKL A4,BUF l 0 P RTN A5 l D P EJECT DRFD01 l T P* l l P********** l v P* DSOPCH * l P********** l P* l 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT l P* l P* INPUT: A6
0x0e0c8c…0e0e20 Dummy {f00=0x011f, f01=0x0190, f02=» l x PDSOPCH LDK A1,DWTEOD m P CF A5,DSPAD m $ P LDR* A7,A2 EOD-NO m 8 P RTN A5 m R P EJECT DRFD01 m b P* m z P********* m P* DSPAD * m P********* m P* m 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED m 6 P* T
0x0e0e20…0e0fb4 (0, 285) Dummy {f00=0x011f, f01=0x0190, f02=»UTPUT: A2 ADDRESS TO DATA m P* A6 DWT ADDRESS n " P* n D " PDSPAD LC A2,DWTOR,A6 DRIVE NO n N P ANK A2,/3 n t P ADR A2,A2 n P ADR A2,A6 n P ADR A2,A1 n P RTN A5 n P EJECT DRFD01 n P* n P********* n P* STDWT
0x0e0fb4…0e1148 Dummy {f00=0x011f, f01=0x018e, f02=» ( P* INPUT: A1 OFFSET TO DWT AREA o . P* A3 WORD TO BE STORED IN DWT o 0 P* A6 DWT ADDRESS o b P* o P* OUTPUT: A1 UNCHANGED o 0 P* A2 ADDRESS TO WORD IN DWT AREA o P* A3 UNCHANGED o P
0x0e1148…0e12dc Dummy {f00=0x011f, f01=0x018e, f02=» o ~ P* p P********** p P* SETINH * p $ P********** p 6 P* p H @ P* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE p R > P* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND p P* RETURN p P* p " P* INPUT:
0x0e12dc…0e1470 Dummy {f00=0x011f, f01=0x0190, f02=» p | PSET:10 RTN A5 q P XIF q P* q * " P* D R I V E R B U F F E R q 4 PBUF DATA 0,0,0,0 q Z P* q r P IFT IBM=1 q | P RES 60 q P XIF q P* q P EJECT DRFD01 q P* q P********************* q P*
0x0e1470…0e1604 Dummy {f00=0x011f, f01=0x0190, f02=»0 q P DATA /8000 DWT STATUS r P DATA 0 ECB ADDRESS r ( P DATA 0 ORDER r D " P DATA FDADR ACTIVATION ADDRESS r Z P DATA 0 TTAB-ADDRESS r $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE r P* r IFT MMUPAG=1 r & " DATA
0x0e1604…0e1798 Dummy {f00=0x011f, f01=0x0190, f02=» DATA 0 r P DATA 0 s P DATA 0,0,0,0 STACK s ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD s < P DATA -1 s h * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG s x P DATA 0 s $ PDWTTP EQU *-DWFD01 TIMER POINTER s P DATA 0 s ( PDWTRCW EQU *-DWFD01 TEMP R
0x0e1798…0e192c Dummy {f00=0x011f, f01=0x0190, f02=»R s j P DATA 0 t ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 t P DATA 0,0,0 t F ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 t Z P DATA 0,0,0 t ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 t P DATA 0,0,0 t ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 t P D
0x0e192c…0e1ac0 Dummy {f00=0x011f, f01=0x0190, f02=» FLAG AT POWER ON t r P DATA 0 u P XIF u * P* u 6 P IFT CHAN=1 u @ 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER u T P DATA 0 u , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 u P DATA 0 u , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR u
0x0e1ac0…0e1c54 (0, 286) Dummy {f00=0x0120, f01=0x0190, f02=»OD EQU *-DWFD01 END OF DATA u P DATA 0,0,0,0 v $ & PDWTEOE EQU *-DWFD01 END OF EXTENT v : P DATA 0,0,0,0 v d * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO v z P DATA 0,0,0,0 v . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR v P DATA 0,0,0,0 v P X
0x0e1c54…0e1de8 Dummy {f00=0x0120, f01=0x0190, f02=»PHYSICAL BUFFER ADDRESS v P DATA 0 SECOND MMU ENTRY w P* w @ PDWT:LA EQU *-DWFD01 w J * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS w f P* w PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x0e1de8…0e1f7c Dummy {f00=0x0120, f01=0x4098, f02=» w | P XIF x P* x P IFT MMUPAG=1 x P IFT DEVIND=4 x 4 PFD:BUF EQU 0 x J P XIF x ^ P* x j P* x t P* x ~ P END x @ x PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x0e1f7c…0e2110 Dummy {f00=0x0120, f01=0x2008, f02=» y END @
0x0e2110…0e22a4 Dummy {f00=0x0120, f01=0x0000, f02=»
[…0x3…]
0x0e2760…0e28f4 (0, 287) Opaque[0x194]
0x0e28f4…0e2a88 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2308, f03=0x0000}
0x0e28f4…0e2a88 IdxSect {
0x0e28f4…0e2a88 f00 = 0x0118 // 0xe28f4 @0x0
0x0e28f4…0e2a88 f01 = 0x0004 // 0xe28f6 @0x2
0x0e28f4…0e2a88 gno = [ // 0xe28f8 @0x4
0x0e28f4…0e2a88 [0x00]: C0x0118.0x1.0
0x0e28f4…0e2a88 [0x01]: C0x0118.0x2.0
0x0e28f4…0e2a88 ]
0x0e28f4…0e2a88 }
0x0e2a88…0e2c1c Dummy {f00=0x0118, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x0e2c1c…0e2db0 Dummy {f00=0x0118, f01=0x018e, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND
0x0e2db0…0e2f44 Dummy {f00=0x0118, f01=0x0190, f02=» P* 7C 5C P* 00 7C P* 5A 24 $ P* 6A 40 4 P EJECT D P* R P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII f P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /7F01,/0203,/0009,/0000 00-07 ( P DAT
0x0e2f44…0e30d8 Dummy {f00=0x0118, f01=0x0190, f02=»000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F $ ( P DATA /0000,/1600,/0000,/0004 30-37 P ( P DATA /0000,/0000,/1415,/001A 38-3F | ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B21 48-4F ( P DATA /2
0x0e30d8…0e326c Dummy {f00=0x0118, f01=0x0190, f02=»/402C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F L ( P DATA /2061,/6263,/6465,/6667 80-87 x ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,
0x0e326c…0e3400 Dummy {f00=0x0118, f01=0x0190, f02=»3,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 H ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF t ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/535
0x0e3400…0e3594 (0, 288) Dummy {f00=0x0118, f01=0x0190, f02=»027,/3DFF F8-FF | P XIF P EJECT $ P* 2 P* < 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC F P* | P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1500,/0C00,/0000
0x0e3594…0e3728 Dummy {f00=0x0118, f01=0x018e, f02=»7 n ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 6 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F b ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x0e3728…0e38bc Dummy {f00=0x0118, f01=0x40b4, f02=» j ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F 4 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 ` P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x0e38bc…0e3a50 Dummy {f00=0x0118, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x0e3a50…0e3be4 Dummy {f00=0x0118, f01=0x0190, f02=» * ) P XIF * P* * P EJECT DRFD01 * P* * 8 P* * B P IFF TOSS+IBM=0 * L P* * d P* GET DWT VOL NAME ADDRESS * n P* * P CF A5,VOLADR ADDRESS TO A2 * P* * P* STORE NAME IN DWT * P* * P LDK A3,3 * PLOA:40
0x0e3be4…0e3d78 Dummy {f00=0x0118, f01=0x0190, f02=»A:50 EQU * * P LC A2,DWTOR+1,A6 GET ORDER + P ANK A2,/FF + 6 & P RB(Z) FD:075 JUMP IF TEST STATUS + J P XIF + t P IFT IBM=1 + P* + P* DATA SET OPENING WANTED? + P* + " P ANK A1,/2 A1: TOSS=6, IBM=8 + P RF(NZ) LOA:70 TOSS LABEL
0x0e3d78…0e3f0c Dummy {f00=0x0118, f01=0x0190, f02=» + P LD A2,ECBCW,A8 SECTOR NO , P SUK A2,7 , * P ABL(N) FD:DIS REQUEST ERROR , < P SUK A2,18 , ` P ABL(P) FD:DIS REQUEST ERROR , r P ADK A2,25 , P SLL A2,3 BIO , P LDK A3,80 LENGTH , P LDKL A4,BUF , P CF A5,FD:REA , P LDR A
0x0e3f0c…0e40a0 Dummy {f00=0x0118, f01=0x0190, f02=»ABEL , f PLOA:60 EQU * - P CF A5,LD:RC - P ENB - 4 * P LD A3,ECBCW,A8 DATA SET LABEL SECTOR - @ P LDK A1,DWTDSS - n P CF A5,STDWT SAVE IN DWT - P ADK A4,BOE BOE ADDRESS - . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - P LDK A1,DWTBOE -
0x0e40a0…0e4234 (0, 289) Opaque[0x194]
0x0e4234…0e43c8 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d00, f03=0x0000}
0x0e4234…0e43c8 IdxSect {
0x0e4234…0e43c8 f00 = 0x00e8 // 0xe4234 @0x0
0x0e4234…0e43c8 f01 = 0x0006 // 0xe4236 @0x2
0x0e4234…0e43c8 gno = [ // 0xe4238 @0x4
0x0e4234…0e43c8 [0x00]: C0x00e8.0x0.0
0x0e4234…0e43c8 [0x01]: C0x00e8.0x1.0
0x0e4234…0e43c8 [0x02]: C0x00e8.0x2.0
0x0e4234…0e43c8 ]
0x0e4234…0e43c8 }
0x0e43c8…0e455c Dummy {f00=0x00e8, f01=0x0190, f02=» 0 P IDENT TIMER REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x0e455c…0e46f0 Dummy {f00=0x00e8, f01=0x0190, f02=»AINS TIMER LKM PROCESSORS AND | " P* THE FOLLOWING SUBROUTINES: & P* L * P* -SETIME: SET BLOCK IN TIMER QUEUE V . P* -SETIMP: SETIME + STORE TIMER POINTER P* P* P EJECT TIMER P* P* P*********** P
0x0e46f0…0e4884 Dummy {f00=0x00e8, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P 6 P > P F P* N P* X P*********** b P* EXTRNALS * v P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXT
0x0e4884…0e4a18 Dummy {f00=0x00e8, f01=0x018e, f02=»ADDRESS x $ P EXTRN ACTOT ACTIVATE A TERMINAL * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK 8 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE f 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P********
0x0e4a18…0e4bac Dummy {f00=0x00e8, f01=0x0190, f02=» d P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 1 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIMER LK
0x0e4bac…0e4d40 Dummy {f00=0x00e8, f01=0x018e, f02=»ELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS ( P* A8 = DELAY F P* P* f P* 2. TIMING AND ACTIVATION p P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB ADDRES
0x0e4d40…0e4ed4 (0, 290) Dummy {f00=0x00e8, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR * P RF(NZ) TIM010 TIMING AND ACTIVATION? 0 P* ^ P EJECT TIMER h P* ~ P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 DAT
0x0e4ed4…0e5068 Dummy {f00=0x00e8, f01=0x0190, f02=» PTIM010 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D " P ABL(Z) LKMRQE TTAB NOT FOUND? ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER .
0x0e5068…0e51fc Dummy {f00=0x00e8, f01=0x0190, f02=» PQUEDIS EQU * P ABL LKMQDI P* , P EJECT TIMER 6 P* L P* V P* RETURN AFTER TIME OUT ` P* P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISP
0x0e51fc…0e5390 Dummy {f00=0x00e8, f01=0x0190, f02=»FREBLK AND SET IT FREE P LDR A5,A3 SET TTAB ADDRESS * P LDK A7,0 MONITOR ACTIVATION PARAMETER B ( P CF A15,ACTOT AND ACTIVATE TERMINAL p P RB TTDIS P* P EJECT TIMER P* P* " P* S E T I M E , S E T I M P P
0x0e5390…0e5524 Dummy {f00=0x00e8, f01=0x0190, f02=»RS:- ~ P* P* A1 = PARAMETER . P* A4 = IF SETIMP: TIMER POINTER ADDRESS 0 , P* P1 = DISPATCH ADDRESS AFTER TIME OUT b P* P2 = DELAY P* : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. P* P* EXIT PARAM
0x0e5524…0e56b8 Dummy {f00=0x00e8, f01=0x018e, f02=» * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF J P* V P IFT CPU852=0 ` P INH v " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P EJECT TIMER P* P* * P LDR A6,A4 SAVE TIMER POINTER AD
0x0e56b8…0e584c Dummy {f00=0x00e8, f01=0x0190, f02=» P LDR* A8,A5 TIME IN A8 P ADK A5,2 & ( P ST A5,20,A15 ADJUST PROGRAM COUNTER 8 $ P CF A15,GETBLK GET A FREE BLOCK d P LDR A2,A4 P C1R A1,A8 " P CF A15,GETBLK GET TIMER BLOCK P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEU
0x0e584c…0e59e0 Dummy {f00=0x00e8, f01=0x417a, f02=»ETIME? , P STR A4,A6 -SETIMP. STORE TIMER POINTER P* > P EJECT TIMER H P* ^ P* h PSETEND EQU * r P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A
0x0e59e0…0e5b74 (0, 291) Dummy {f00=0x00e8, f01=0x2008, f02=» ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER ADDRESS A4 ON STACK 0 P LDR A6,A6 d P RF(Z) SETEND -SETIME v , P STR A4,A6 -SETIMP STORE TIMER POINTER PSETEND ABL IHRET8 P* P END @ GET A FREE BLOC
0x0e5b74…0e5d08 Dummy {f00=0x00e8, f01=0x0190, f02=» P P P T )P. 3P ; Z l H D !PE AP I Z OP W Z aP iP }P T P #P -W 5P M QP0 U ( H D !P cU P0 U P< P W #P 1T KT sP w V T t H D !6 P P P 9 APh I gP$ wP T R T P
0x0e5d08…0e5e9c Dummy {f00=0x00e8, f01=0x412a, f02=» 1P$ AP X H D ! sR& P T P R P W P P W %V )W -R 3W KP@ H D ! YT@ _P {P W P PH P, U P #T =WR AT KW, OT [W aT ` H D ! mW R T P P T P$ P U P 3W CP OP YW eP wT P P P
0x0e5e9c…0e6030 Dummy {f00=0x00e8, f01=0x2008, f02=»
0x0e6030…0e61c4 Dummy {f00=0x00e8, f01=0x0000, f02=»
[…0x3…]
0x0e6680…0e6814 (0, 292) Opaque[0x194]
0x0e6814…0e69a8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c98, f03=0x0000}
0x0e6814…0e69a8 IdxSect {
0x0e6814…0e69a8 f00 = 0x00e4 // 0xe6814 @0x0
0x0e6814…0e69a8 f01 = 0x0004 // 0xe6816 @0x2
0x0e6814…0e69a8 gno = [ // 0xe6818 @0x4
0x0e6814…0e69a8 [0x00]: C0x00e4.0x3.0
0x0e6814…0e69a8 [0x01]: C0x00e5.0x0.0
0x0e6814…0e69a8 ]
0x0e6814…0e69a8 }
0x0e69a8…0e6b3c Dummy {f00=0x00e4, f01=0x0190, f02=» 2 P IDENT TABORT REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x0e6b3c…0e6cd0 Dummy {f00=0x00e4, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P P P P* P*
0x0e6cd0…0e6e64 Dummy {f00=0x00e4, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n " P EXTRN DWTECH ECHO DEVICE DWT ( P EXTRN ABTADR ABORT ROUTINE ADDRESS P EXTRN TENDIO END I/
0x0e6e64…0e6ff8 Dummy {f00=0x00e4, f01=0x0190, f02=» TABORT P* P* . P***************************************** & P* X P* CONDITIONAL ASSEMBLY b P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY
0x0e6ff8…0e718c Dummy {f00=0x00e4, f01=0x0190, f02=»BORT * P********** P* P* * 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. 4 P* l * P* IT IS ENTERED FROM THE LKM HANDLER v & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRE
0x0e718c…0e7320 Dummy {f00=0x00e4, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x0e7320…0e74b4 (0, 293) Dummy {f00=0x00e5, f01=0x0190, f02=» P RF(Z) TABOER DWT UNKNOWN? P* & P EJECT TABORT 0 P* H P* R P CW A5,DWTTAB,A6 P RF(NE) TABOER ILLEGAL TASK? t P LD A7,DWTST,A6 " P RF(N) TABOER DEVICE NOT BUSY? P SLC A7,2 $ P RF(NN) TABO20 NOT ECHO REQUEST?
0x0e74b4…0e7648 Dummy {f00=0x00e5, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE? N & P CFR A15,A2 PERFORM ABORT ROUTINE ~ P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x0e7648…0e77dc Dummy {f00=0x00e5, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x0e77dc…0e7970 Dummy {f00=0x00e5, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x0e7970…0e7b04 Dummy {f00=0x00e5, f01=0x2008, f02=»
0x0e7b04…0e7c98 Dummy {f00=0x00e5, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY)
0x0e7c98…0e7e2c Dummy {f00=0x00e5, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x0e7e2c…0e7fc0 Dummy {f00=0x00e5, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P*
0x0e7fc0…0e8154 (0, 294) Opaque[0x194]
0x0e8154…0e82e8 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d40, f03=0x0000}
0x0e8154…0e82e8 IdxSect {
0x0e8154…0e82e8 f00 = 0x00ea // 0xe8154 @0x0
0x0e8154…0e82e8 f01 = 0x0006 // 0xe8156 @0x2
0x0e8154…0e82e8 gno = [ // 0xe8158 @0x4
0x0e8154…0e82e8 [0x00]: C0x00ea.0x0.0
0x0e8154…0e82e8 [0x01]: C0x00ea.0x1.0
0x0e8154…0e82e8 [0x02]: C0x00ea.0x2.0
0x0e8154…0e82e8 ]
0x0e8154…0e82e8 }
0x0e82e8…0e847c Dummy {f00=0x00ea, f01=0x0190, f02=» 2 P IDENT MONTIM REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x0e847c…0e8610 Dummy {f00=0x00ea, f01=0x0190, f02=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS P* @ 0 P* -GETTIM GET TIME FROM MONITOR CLOCK J P* ~ . P* -SETTIM SET TIME IN MONITOR CLOCK P* P EJECT MONTIM P* P* P*********** P* EN
0x0e8610…0e87a4 Dummy {f00=0x00ea, f01=0x0190, f02=»TOR CLOCK r P P P " P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x0e87a4…0e8938 Dummy {f00=0x00ea, f01=0x0190, f02=»* . P***************************************** P* < . P* A PROGRAM VERSION USING TOSS MMU PAGING F * P* IS OBTAINED BY SETTING MMUPAG EQU 1. x P* PMMUPAG EQU 0 P* P EJECT MONTIM P* P* P* G E T T I
0x0e8938…0e8acc Dummy {f00=0x00ea, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P INH
0x0e8acc…0e8c60 Dummy {f00=0x00ea, f01=0x018e, f02=» v P SUK A7,2 P LDR* A6,A7 HOURS P ENB 4 P* @ * PGETT10 CF A15,BYTASC CONVERT TO ASCII J P IFT MMUPAG=0 x * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P*
0x0e8c60…0e8df4 (0, 295) Dummy {f00=0x00ea, f01=0x0190, f02=» $ P RF(Z) GETT15 TCB ADDRESS EVEN? P LDR A1,A6 0 P EL A4,1,A8 B P ANK A4,/FF V P SLL A1,8 j P ORR A1,A4 | P ES A1,1,A8 P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8
0x0e8df4…0e8f88 Dummy {f00=0x00ea, f01=0x0190, f02=»ET ACTUAL TIME FROM STACK P RB GETT10 " P* 4 P EJECT MONTIM > P* V P* ` PGETT20 SUK A7,2 j . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY
0x0e8f88…0e911c Dummy {f00=0x00ea, f01=0x0190, f02=»S IS THE SET TIME LKM PROCESSOR. P* ( 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH 2 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK f 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P*
0x0e911c…0e92b0 Dummy {f00=0x00ea, f01=0x0190, f02=»QU * P IFT MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER " P ECR A6,A6 L ( P LC A6,1,A8 GET RIGHTHAND CHARACTER ^ P XIF P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL
0x0e92b0…0e9444 Dummy {f00=0x00ea, f01=0x0190, f02=»LL A6,8 P SRL A4,8 P ORR A6,A4 " P* 4 PSETT15 EQU * > P XIF R P* ^ P EJECT MONTIM h P* P* $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END ? P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15
0x0e9444…0e95d8 Dummy {f00=0x00ea, f01=0x0190, f02=» l P SUK A7,2 P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK . P SUK A7,2 Z P LDR* A6,A15 l & P STR A6,A7 HOURS TO MONITOR CLOCK P SUK A7,2 P CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MON
0x0e95d8…0e976c Dummy {f00=0x00ea, f01=0x0190, f02=» RESULT IN A6. P* P* ( PBYTASC EQU * 2 P LDK A4,0 F P* X PBYTA10 SUK A6,/A b P RF(N) BYTA20 z P ADKL A4,/100 P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A
0x0e976c…0e9900 Dummy {f00=0x00ea, f01=0x415c, f02=» ASCII TO BINARY. ~ P* RESULT IN A6. P* > P* H PASCTBY EQU * R P LDR A4,A6 f P ANK A6,/F x P SRL A4,8 P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10
0x0e9900…0e9a94 (0, 296) Dummy {f00=0x00ea, f01=0x2008, f02=» ASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 2 PASCT20 RTN A15 H P END ^@ j P RTN A15 p P* P* 2 P* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT ( P* FROM ASCII TO BINARY. P* RESU
0x0e9a94…0e9c28 Dummy {f00=0x00ea, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF . P* : P IFT CPU852=0 D P INH Z " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* $ P LDKL A5,TTMJOB SET TTAB ADDRESS P RF ACT01 P* P EJECT MSUBS P* P*
0x0e9c28…0e9dbc Dummy {f00=0x00ea, f01=0x0190, f02=»* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS & P* A3 = SEGMENT NUMBER H P* A4 = PARAMETER 2 h P* A5 = TTAB ADDRESS P* < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* PUT IN DISPATCHER QUEU
0x0e9dbc…0e9f50 Dummy {f00=0x00ea, f01=0x0190, f02=»LL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. 6 P* | P* PACTOTP EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x0e9f50…0ea0e4 Dummy {f00=0x00ea, f01=0x0190, f02=» P EJECT MSUBS P* P* $ PACTOT EQU * . P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* PACT01 LDK A6,0 IND
0x0ea0e4…0ea278 Dummy {f00=0x00ea, f01=0x0190, f02=» " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS * & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER ^ " P ST A4,TTB:SA+8,A5 PARAMETER 2 $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA P*
0x0ea278…0ea40c Dummy {f00=0x00ea, f01=0x0190, f02=»E JOB z P* P EJECT MSUBS P* . P* 8 PACT010 EQU * B P IFT CPU852=1 V ( P ABL IHRET8 RESTORE A1-A8 AND RETURN l P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN
0x0ea40c…0ea5a0 Dummy {f00=0x00ea, f01=0x0190, f02=»K GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 8 P CF A15,GETBLK J P ADKL A5,TTB:PP ` P* x " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5,A5 FOLLOW THE QUEUE THREAD P ADK A6,0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO
0x0ea5a0…0ea734 (0, 297) Opaque[0x194]
0x0ea734…0ea8c8 # DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2548, f03=0x0000}
0x0ea734…0ea8c8 IdxSect {
0x0ea734…0ea8c8 f00 = 0x012a // 0xea734 @0x0
0x0ea734…0ea8c8 f01 = 0x000c // 0xea736 @0x2
0x0ea734…0ea8c8 gno = [ // 0xea738 @0x4
0x0ea734…0ea8c8 [0x00]: C0x012a.0x1.0
0x0ea734…0ea8c8 [0x01]: C0x012a.0x2.0
0x0ea734…0ea8c8 [0x02]: C0x012a.0x3.0
0x0ea734…0ea8c8 [0x03]: C0x012b.0x0.0
0x0ea734…0ea8c8 [0x04]: C0x012b.0x1.0
0x0ea734…0ea8c8 [0x05]: C0x012b.0x2.0
0x0ea734…0ea8c8 ]
0x0ea734…0ea8c8 }
0x0ea8c8…0eaa5c Dummy {f00=0x012a, f01=0x0190, f02=» 0 P IDENT TASS REL 9.2 79-11-16 870105040920 P 8 P =1, PR 4313 @ P* REL 9.1 78-10-25 V P r P* z P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P*
0x0eaa5c…0eabf0 Dummy {f00=0x012a, f01=0x0190, f02=»**************************** x P* $ " P* THIS MODULE IS ENTERED VIA . $ P* ASSIGN REQUEST (DATA 15) OR T ( P* ASSIGN INDEX REQUEST (DATA 16). | P* P* LDK A7,TC P* LDKL A8,ASBLK P* LKM P* DATA 15 P
0x0eabf0…0ead84 Dummy {f00=0x012a, f01=0x018e, f02=»K IS A PARAMETER BLOCK z D P* AND TC = 1 WHEN TASK LOCAL ASSIGN IN TTAB IS WANTED B P* TC = 0 WHEN GLOBAL ASSIGN IN SCTCDT IS WANETED f P* P EJECT P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I
0x0ead84…0eaf18 Dummy {f00=0x012a, f01=0x0190, f02=» t . P* I I P* +---------------------+ : P* I I P* I VOL NAME I ~ P* I I P* +---------------------+ P* I I P*
0x0eaf18…0eb0ac Dummy {f00=0x012a, f01=0x018e, f02=»* CREATED IN TTAB/CD:TAB. P* $ F P* THE FDB IS INITIALIZED WITH INFORMATION FROM THE VTOC:S OF THE . $ P* VOLUMES MENTIONED IN ASBLK. x P* J P* UPON COMPLETION OF THE ASSIGN REQUEST REG A7 WILL HAVE ONE OF THE P* FOLLOWING RE
0x0eb0ac…0eb240 Dummy {f00=0x012a, f01=0x0190, f02=» x " P* 2 = NO FREE ENTRY IN TABLE P* 3 = NO FDB AVAILABLE . ( P* 4 = ONE OR MORE VOLUMES UNKNOWN N " P* 5 = FILE CODE ALREADY USED z P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE P* 8 = FAULTY DIS
0x0eb240…0eb3d4 (0, 298) Dummy {f00=0x012a, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x0eb3d4…0eb568 Dummy {f00=0x012a, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x0eb568…0eb6fc Dummy {f00=0x012a, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x0eb6fc…0eb890 Dummy {f00=0x012a, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x0eb890…0eba24 Dummy {f00=0x012a, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x0eba24…0ebbb8 Dummy {f00=0x012a, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x0ebbb8…0ebd4c Dummy {f00=0x012a, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x0ebd4c…0ebee0 Dummy {f00=0x012a, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 0 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x0ebee0…0ec074 (0, 299) Dummy {f00=0x012a, f01=0x018e, f02=» 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (DMI,FC) " P DATA 0,0,0 THREE MORE ENTRIES 8 6 PTASCXO DATA 0 CURRENT OFFSET IN TASSEX AND TASXLB ^ 0 PTASSEX DATA 0 SECTION NUMBER, EXTENT NUMBER * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,
0x0ec074…0ec208 Dummy {f00=0x012a, f01=0x0190, f02=» PTASFDB DATA 0 FDB ADDRESS $ PTASVRL DATA 0 VTOC RECORD LENGTH & PTASVLE DATA 0 VTOC LENGTH N PTASVRN DATA 0 VTOC RECORD NO p PTASECB DATA 0,0 ECBFC,ECBBA P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 0 PTA
0x0ec208…0ec39c Dummy {f00=0x012a, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x0ec39c…0ec530 Dummy {f00=0x012a, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x0ec530…0ec6c4 Dummy {f00=0x012a, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x0ec6c4…0ec858 Dummy {f00=0x012a, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x0ec858…0ec9ec Dummy {f00=0x012a, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x0ec9ec…0ecb80 Dummy {f00=0x012a, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x0ecb80…0ecd14 (0, 300) Dummy {f00=0x012b, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x0ecd14…0ecea8 Dummy {f00=0x012b, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 N
0x0ecea8…0ed03c Dummy {f00=0x012b, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P
0x0ed03c…0ed1d0 Dummy {f00=0x012b, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT
0x0ed1d0…0ed364 Dummy {f00=0x012b, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P L
0x0ed364…0ed4f8 Dummy {f00=0x012b, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2
0x0ed4f8…0ed68c Dummy {f00=0x012b, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK
0x0ed68c…0ed820 Dummy {f00=0x012b, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY
0x0ed820…0ed9b4 (0, 301) Dummy {f00=0x012b, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x0ed9b4…0edb48 Dummy {f00=0x012b, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x0edb48…0edcdc Dummy {f00=0x012b, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x0edcdc…0ede70 Dummy {f00=0x012b, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x0ede70…0ee004 Dummy {f00=0x012b, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x0ee004…0ee198 Dummy {f00=0x012b, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x0ee198…0ee32c Dummy {f00=0x012b, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x0ee32c…0ee4c0 Dummy {f00=0x012b, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x0ee4c0…0ee654 (0, 302) Dummy {f00=0x012b, f01=0x0190, f02=»S170 NO MATCH % P* & P* FILE CODE USED & . P* OK WHEN REQ = ASS INDEX AND INDEX = 1 & : P* & l P LDR* A2,A8 ASBLK 1ST WORD & v P RF(NN) TASSE5 NORMAL ASSIGN & P LDK A2,1 & P CC A2,-1,A1 INDEX & * P RF(NE) TASSE5 FILE CODE ALREADY
0x0ee654…0ee7e8 Dummy {f00=0x012b, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x0ee7e8…0ee97c Dummy {f00=0x012b, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x0ee97c…0eeb10 Dummy {f00=0x012b, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x0eeb10…0eeca4 Dummy {f00=0x012b, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x0eeca4…0eee38 Dummy {f00=0x012b, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x0eee38…0eefcc Dummy {f00=0x012b, f01=0x2008, f02=» ,
0x0eefcc…0ef160 Dummy {f00=0x012b, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x0ef160…0ef2f4 (0, 303) Opaque[0x194]
0x0ef2f4…0ef488 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26e0, f03=0x0000}
0x0ef2f4…0ef488 IdxSect {
0x0ef2f4…0ef488 f00 = 0x0137 // 0xef2f4 @0x0
0x0ef2f4…0ef488 f01 = 0x000c // 0xef2f6 @0x2
0x0ef2f4…0ef488 gno = [ // 0xef2f8 @0x4
0x0ef2f4…0ef488 [0x00]: C0x0137.0x0.0
0x0ef2f4…0ef488 [0x01]: C0x0137.0x1.0
0x0ef2f4…0ef488 [0x02]: C0x0137.0x2.0
0x0ef2f4…0ef488 [0x03]: C0x0137.0x3.0
0x0ef2f4…0ef488 [0x04]: C0x0138.0x0.0
0x0ef2f4…0ef488 [0x05]: C0x0138.0x1.0
0x0ef2f4…0ef488 ]
0x0ef2f4…0ef488 }
0x0ef488…0ef61c Dummy {f00=0x0137, f01=0x0190, f02=» 0 P IDENT TIODM REL 9.2 79-11-16 870105040920 P 8 P =1, PR 5649 @ P REL 9.1 79-05-23 V P* r 8 P**************************************************** | P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MA
0x0ef61c…0ef7b0 Dummy {f00=0x0137, f01=0x018e, f02=»******** d P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE ` P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED
0x0ef7b0…0ef944 Dummy {f00=0x0137, f01=0x0190, f02=» P* A7 = ORDER P* A8 = ECB ADDRESS " P* F P* USED REGISTERS A1 - A10 P P* t D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 ~ P* AS THE ONLY PARAMETER P* 4 P* THE FOLLOWING WORD
0x0ef944…0efad8 Dummy {f00=0x0137, f01=0x0190, f02=» FOR CALLING TASK x . P* FDBCEX CURRENT EXTENT BLOCK POINTER P* L P* V D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: ` P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P* P EJECT P
0x0efad8…0efc6c Dummy {f00=0x0137, f01=0x0190, f02=»DBLNK P ENTRY FDBECB P ENTRY FDBSNR $ P ENTRY FDBRRO : P ENTRY FDBRLE P P ENTRY FDBBLF f P ENTRY FDBTNR | P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXTFC P ENTRY EXT
0x0efc6c…0efe00 Dummy {f00=0x0137, f01=0x0190, f02=»NTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO ( & P ENTRY FDBMEC MMU ECB DISPLACEMENT L 6 P ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS v P EJECT P* P***************** P* EXTERNALS * P************
0x0efe00…0eff94 (0, 304) Dummy {f00=0x0137, f01=0x0190, f02=» P EXTRN DISEND EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER < & P EXTRN DWTTDM DM TASK TTAB ADDRESS d P EXTRN TTB:ID TASK ID 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA " P EXTRN DMTGCA GET CRN ADDRESS , P E
0x0eff94…0f0128 Dummy {f00=0x0137, f01=0x0190, f02=» ECBRL P EXTRN ECBEL P EXTRN ECBRC " P EXTRN ECBCW 6 & P EXTRN ECBCW2 SECOND CONTROL WORD J P EXTRN FDBLEN t " P EXTRN SQR SEQ READ ORDER CODE & P EXTRN EARELB,DWTST,CRNGET,EATEST & P EXTRN TASHLT HALT SYSTEM ROUTINE P EJE
0x0f0128…0f02bc Dummy {f00=0x0137, f01=0x0190, f02=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 D * P* INDXAC EQU 0 OTHRERWISE h PX:A EQU 0 PINDXAC EQU 00000 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINE
0x0f02bc…0f0450 Dummy {f00=0x0137, f01=0x0190, f02=»TA DEFINITIONS * P************************ P* : P* D P DATA 0,0 4 WORDS N P DATA 0,0 h " PTIOD14 EQU *-2 TIODM A14 STACK z P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA CLOSE CLOSE " P DATA REVTOC REA
0x0f0450…0f05e4 Dummy {f00=0x0137, f01=0x0190, f02=»DELETE | P DATA IXREWR INDEXED REWRITE $ P DATA IXRARE INDEXED RANDOM READ 2 P XIF Z P IFF INDXAC=1 f P DATA TIODME | P DATA TIODME P DATA TIODME P DATA TIODME P DATA TIODME P XIF P DATA RANDEL RANDOM DELETE
0x0f05e4…0f0778 Dummy {f00=0x0137, f01=0x0190, f02=» SEQUENTIAL WRITE " P DATA SEQREAD SEQUENTIAL READ P DATA GETCUR GET CURRENCY @ P IFT INDXAC=1 b $ P DATA INSIXR INSERT INDEX RECORD x $ P DATA DELIXR DELETE INDEX RECORD P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIOD
0x0f0778…0f090c Dummy {f00=0x0137, f01=0x0190, f02=»LETE r $ P DATA RANREB RAND READ REL BUFF P DATA SETLRN SET LRN 4 P* P P* Z PTIODMO EQU * DM ORDERS d $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND INSERT,IND DELETE . P DATA /1B1A INDEXED REWRITE,IND RAND READ $ P D
0x0f090c…0f0aa0 Dummy {f00=0x0137, f01=0x0190, f02=»SEQ WR. , BASIC WRITE $ P DATA /0302 READ VTOC, SEQ READ ( P DATA /0123 BASIC READ,GET CURRENCY F * P DATA /1F20 INS INDEXREC,DEL INDEXREC r . P DATA /240D GET CURR INDEX,DELAYED RAND WR 0 P DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF P D
0x0f0aa0…0f0c34 (0, 305) Dummy {f00=0x0137, f01=0x0190, f02=»ATA /0E10 P DATA /1214 P DATA /1616 & P DATA /1616 : P DATA /0218 N P DATA /181A b P DATA /1C1E v P DATA /2022 P DATA /2426 P DATA /281A SET LRN P* $ PNOOFOR EQU 25 NO OF ORDER CODES P*
0x0f0c34…0f0dc8 Dummy {f00=0x0137, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* P* f P* FDB OFFSET DEFINITIONS p P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER
0x0f0dc8…0f0f5c Dummy {f00=0x0137, f01=0x0190, f02=» l 0 PFDBTNR EQU START+23 TASK NUMBER CALLING TASK & PFDBVTO EQU START+24 VTOC RECORD NO < 4 PFDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER f 0 PFDBEXT EQU START+28 FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME F
0x0f0f5c…0f10f0 Dummy {f00=0x0137, f01=0x0190, f02=»+53 LAST RECORD NUMBER * PFDBNIF EQU START+52 NO OF INDEX FILES $ PFDBEAL EQU START+56 EA LINK ROOT L & PFDBCRL EQU START+58 CRN LINK ROOT t 0 PFDBKA EQU START+60 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START+62 ADDRESS OF MASTER INDEX 0 PFD
0x0f10f0…0f1284 Dummy {f00=0x0137, f01=0x0190, f02=»AND REL BUFFER FLAGS p , PFDBMRN EQU START+75 LAST REC NR IN FILE " PFDBMRO EQU START+78 MAX FDBRRO L , PFDBMEC EQU START+80 MMU ECB DISPLACEMENT r < PFDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS P* & P* CRN BUFFER OFFSET DEFINI
0x0f1284…0f1418 Dummy {f00=0x0137, f01=0x0190, f02=» P EJECT P* P************* P* TIODM * 2 P************* H P* ^ P* h ( P DATA 0 DATA MANAGEMENT DEVICE INDEX r & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14
0x0f1418…0f15ac Dummy {f00=0x0137, f01=0x018e, f02=» A1,A2 P LD A3,2,A1 P CW A3,DWTTDM,A6 " P RF(E) TIOD10 THIS TASK : P ADK A2,2 NO Z P RB TIOD05 TRY NEXT n PTIOD10 EQU * P LC A1,TTB:ID,A3 GET TASK ID P CCK A1,'##' ( P RF(E) TIO13 JUMP IF DMTASK CALLING P*
0x0f15ac…0f1740 Dummy {f00=0x0137, f01=0x0190, f02=» P LDKL A4,/4000 REQ BUSY BIT PTIO11 EQU * ( P SUK A3,2 < P RF(N) TIO13 ALL FDB READY N P LDR* A5,A1 FDB ADDR p P RF(E) TIO12 NO FDB P SC A2,FDBTNR,A5 TASK ID " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A
0x0f1740…0f18d4 (0, 306) Dummy {f00=0x0137, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD
0x0f18d4…0f1a68 Dummy {f00=0x0137, f01=0x0190, f02=»BI TIODMF,A2 BRANCH TO DM FUNCTION P EJECT * P* 8 $ PIXRARE EQU * INDEXED RANDOM READ B P LD A3,ECBCW2,A8 =1 j P ANK A3,/FF REQ KEY LGTH =1 P LD A4,FDBRLE,A6 =1 P SUK A4,6 MAX LGTH =1 P CWR A3,A4 =1 P RF(NG) IXRAR1
0x0f1a68…0f1bfc Dummy {f00=0x0137, f01=0x0190, f02=»GET USER KEY ADDRESS 0 P LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT P ADR A2,A6 ADD FDB ADDRESS P P* =1 r 2 P CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA P XIF P* $ PDELIXR EQU * DELETE INDEX RECORD P* $ PINSIXR E
0x0f1bfc…0f1d90 Dummy {f00=0x0137, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x0f1d90…0f1f24 Dummy {f00=0x0137, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x0f1f24…0f20b8 Dummy {f00=0x0137, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x0f20b8…0f224c Dummy {f00=0x0137, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x0f224c…0f23e0 Dummy {f00=0x0137, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x0f23e0…0f2574 (0, 307) Dummy {f00=0x0138, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB
0x0f2574…0f2708 Dummy {f00=0x0138, f01=0x018e, f02=»EQU * INDEXED INSRERT P IFT MMUPAG=1 P* 4 " P* MOVE KEYS TO FDB KEY AREAS > P* d P LDK A5,8 n PIXINS3 EQU * P LDR A2,A6 FDB DATA P ADR A2,A5 P LD A3,FDBADF,A2 FDB INDEX P RF(Z) IXINS4 NO INDEX P LD A1
0x0f2708…0f289c Dummy {f00=0x0138, f01=0x0190, f02=» P LD A3,FDBRLE,A3 REC LGTH P SUK A3,6 KEY LGTH & " P CF A14,MOV:US KEY TO FDB AREA @ PIXINS4 EQU * f P SUK A5,2 z P RB(NZ) IXINS3 MORE INDEXS P XIF P* $ PSEQWRITE EQU * SEQUENTIAL WRITE P* 2 P* GET LRN+1 INTO
0x0f289c…0f2a30 Dummy {f00=0x0138, f01=0x0190, f02=» x P LDK A1,0 ! P LC A1,FDBMRN,A6 LAST REC NR ! P LD A2,FDBMRN+1,A6 ! > P LDK A6,0 ! X P LC A6,FDBLRN,A5 ! j P LD A7,FDBLRN+1,A5 LRN ! P CF A14,DSUMOD SUBTRACT ! P SUK A2,1 ! P LDR A1,A1 ! P RF(Z) SEQ005 NOT MANY ! P LDKL
0x0f2a30…0f2bc4 Dummy {f00=0x0138, f01=0x0190, f02=»,FDBLRN+1,A6 LRN ! P IFT INDXAC=1 " P RF IXR020 STORE LOG REC NO " . P EJECT " R $ PIXRDNX EQU * INDEXED EREAD NEXT " ` P* " P* GET CRN " P* " P LD A1,FDBADF,A6 FDB ADDR " " P CF A14,CRNGET GET CRN BUFFER " P LDR A4,A2 BUFFA
0x0f2bc4…0f2d58 Dummy {f00=0x0138, f01=0x0190, f02=»C A5,CRNCIF,A4 " . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT # P LC A1,CRNCIF+1,A4 # H " P LD A2,CRNCIF+2,A4 LOG REC NO # b PIXR020 EQU * # P XIF # P ADK A2,1 # P RF(O) IXR030 OVERFLOW # P RF IXR040 # , PIXR030 ANKL A2,/7FFF REMOVE OV
0x0f2d58…0f2eec Dummy {f00=0x0138, f01=0x0190, f02=»NOT CHECK EOF CONDITION # P EJECT $ P* $ . PIXREWR EQU * INDEXED REWRITE $ 8 P* $ PIXDEL EQU * INDEXED DELETE $ f P* $ PRANWRITE EQU * RANDOM WRITE $ P* $ & PRANWRD EQU * DELAYED RANDOM WRITE $ P* $ & PRANDLD EQU * DELAYED
0x0f2eec…0f3080 Dummy {f00=0x0138, f01=0x018e, f02=» $ P************************* % P* DMTASK ACTIVATION * % * P************************* % L P* % n PTIODMA EQU * % x P* % P* SET EOF IF CRN > LRN % P* % P LDK A1,0 % P LC A1,ECBCW+3,A8 REC NO % P LD A2,ECBCW,A8 DITTO
0x0f3080…0f3214 (0, 308) Dummy {f00=0x0138, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x0f3214…0f33a8 Dummy {f00=0x0138, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x0f33a8…0f353c Dummy {f00=0x0138, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x0f353c…0f36d0 Dummy {f00=0x0138, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x0f36d0…0f3864 Dummy {f00=0x0138, f01=0x2008, f02=» *
0x0f3864…0f39f8 Dummy {f00=0x0138, f01=0x0000, f02=»
[…0x2…]
0x0f3d20…0f3eb4 (0, 309) Opaque[0x194]
0x0f3eb4…0f4048 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c80, f03=0x0000}
0x0f3eb4…0f4048 IdxSect {
0x0f3eb4…0f4048 f00 = 0x00e4 // 0xf3eb4 @0x0
0x0f3eb4…0f4048 f01 = 0x0026 // 0xf3eb6 @0x2
0x0f3eb4…0f4048 gno = [ // 0xf3eb8 @0x4
0x0f3eb4…0f4048 [0x00]: C0x00e4.0x0.0
0x0f3eb4…0f4048 [0x01]: C0x00eb.0x0.0
0x0f3eb4…0f4048 [0x02]: C0x0123.0x2.0
0x0f3eb4…0f4048 [0x03]: C0x012d.0x0.0
0x0f3eb4…0f4048 [0x04]: C0x012d.0x1.0
0x0f3eb4…0f4048 [0x05]: C0x012d.0x2.0
0x0f3eb4…0f4048 [0x06]: C0x012d.0x3.0
0x0f3eb4…0f4048 [0x07]: C0x0136.0x1.0
0x0f3eb4…0f4048 [0x08]: C0x0138.0x2.0
0x0f3eb4…0f4048 [0x09]: C0x0138.0x3.0
0x0f3eb4…0f4048 [0x0a]: C0x0139.0x0.0
0x0f3eb4…0f4048 [0x0b]: C0x0139.0x1.0
0x0f3eb4…0f4048 [0x0c]: C0x0139.0x2.0
0x0f3eb4…0f4048 [0x0d]: C0x0139.0x3.0
0x0f3eb4…0f4048 [0x0e]: C0x013a.0x0.0
0x0f3eb4…0f4048 [0x0f]: C0x013a.0x1.0
0x0f3eb4…0f4048 [0x10]: C0x013a.0x2.0
0x0f3eb4…0f4048 [0x11]: C0x013a.0x3.0
0x0f3eb4…0f4048 [0x12]: C0x013b.0x0.0
0x0f3eb4…0f4048 ]
0x0f3eb4…0f4048 }
0x0f4048…0f41dc Dummy {f00=0x00e4, f01=0x0190, f02=» 2 P IDENT DMTASK REL 9.2 79-11-16 870105040920 P : P =5, PR5649 B P REL 9.1 79-11-01 X P =4,CURRENCY INSERT t P REL 9.1 79-07-02 P =3,TEST KEY P REL 9.1 79-07-02 P =2,CH REQ P REL 8.2 P
0x0f41dc…0f4370 Dummy {f00=0x00e4, f01=0x0190, f02=»M PTS v P* 0 P* DMTASK = HANDLES DATAMANAGEMENT DISC I/O P* L P* V P* ` P* j P* t 8 P**************************************************** ~ P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT
0x0f4370…0f4504 Dummy {f00=0x00e4, f01=0x0190, f02=» TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, -FC, -SNR). : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS SECTOR > F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET | D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT
0x0f4504…0f4698 Dummy {f00=0x00e4, f01=0x0190, f02=»N AND ARE V ( P* FOLLOWED BY AN EXIT LKM REQUEST. : P* INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE > & P* ALL I/O ARE MADE IN WAIT MODE | P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 6 P* FOR INDEXED
0x0f4698…0f482c Dummy {f00=0x00e4, f01=0x018e, f02=»SIVE ACCESS CHECK INCLUDED | 2 P* QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED " P EJECT X P* f P*************** p P* ENTRIES * P*************** P* P* P ENTRY DMTASK & P ENTRY SQR EXTERNAL CODE SEQ READ
0x0f482c…0f49c0 Dummy {f00=0x00e4, f01=0x0190, f02=» | P***************** P* " P* , P EXTRN SCTTCT,SCTCDT 6 & P EXTRN TTB:ID TASK IDENTIFICATION R P EXTRN TTB:TD,FDBSTA | P EXTRN FNDTID P EXTRN TENDIO P EXTRN FDBECB P EXTRN FDBSNR P EXTRN FDBRRO P E
0x0f49c0…0f4b54 (0, 310) Dummy {f00=0x00eb, f01=0x0190, f02=» EXTDMI P EXTRN EXTFC P EXTRN EXTLEN $ P EXTRN EXTBAS : P EXTRN EXTELE P P EXTRN FDBLRN f P EXTRN FDBMIA | P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDBAI1 P EXTRN FDBCRL P EXTRN FDBDBR,FDBMRN,FDBMRO
0x0f4b54…0f4ce8 Dummy {f00=0x00eb, f01=0x0190, f02=»BUF P EXTRN BUFLNK P EXTRN BUFDMI " P EXTRN BUFFC 8 P EXTRN BUFSNR L P EXTRN BUFOR b P EXTRN BUFSTA v P EXTRN CURBUF P EXTRN DWTECB P EXTRN DWTUEC P EXTRN DWTOR P EXTRN DWTST,DWTTDM,DWTTQ P EXT
0x0f4ce8…0f4e7c Dummy {f00=0x00eb, f01=0x0190, f02=»DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CALSNO * P EXTRN DSUMOD @ . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU V P EXTRN QTJOB,GTLGRN P EXTRN FNDKEY P EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RD
0x0f4e7c…0f5010 Dummy {f00=0x00eb, f01=0x0190, f02=»VE FROM USER TO SYSTEM AREA 0 P EXTRN MOV:SU MOVE FROM SYSTEM TO USER AREA $ P EXTRN MONMMU X , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK n P EXTRN TTB:MT MMU TABLE ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EJECT P* P*
0x0f5010…0f51a4 Dummy {f00=0x00eb, f01=0x0190, f02=»LUSIVE ACCESS BIT CAN BE EXCLUDED AT 8 P* RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0. , P* h P* r PX:A EQU 1 | PX:B EQU 0 PX:C EQU 0 PX:D EQU 1 PX:E EQU 0 P* PQNOEXA EQU 00001 6 P* INDEXED ACCE
0x0f51a4…0f5338 Dummy {f00=0x00eb, f01=0x018e, f02=»TED b PINDXAC EQU 00000 6 PRECBFZ EQU 00004 INDEX RECORD BUFFER SIZE IN WORDS $ 4 PFLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 ^ 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 P* P EJECT DMTASK P* P* . P* A PROG
0x0f5338…0f54cc Dummy {f00=0x00eb, f01=0x0190, f02=» . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 * d DSKPAG EQU 0 n * P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P*
0x0f54cc…0f5660 Dummy {f00=0x00eb, f01=0x0190, f02=»************** P* P* , PEABIT EQU /20 EA-BIT IN DWT STATUS BYTE * P* Z & PVTOBLK EQU 9 VTOC BLOCKING FACTOR d P* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF P*
0x0f5660…0f57f4 (0, 311) Dummy {f00=0x0123, f01=0x0190, f02=»XAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6 4 P DATA DMINS INDEXED INSERT F PQDEL EQU 8 h P DATA DMDEL INDEXED DELETE z PQIRW EQU 10 P DATA DMIRW INDEXED REWRITE $ P DATA DMIRR INDEXED RANDOM RESAD P XIF P
0x0f57f4…0f5988 Dummy {f00=0x0123, f01=0x0190, f02=»DOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE $ PQRR EQU 18 F P DATA DMRDRE RANDOM READ X PQREA EQU 20 x * P DATA DMTERR RELEASE EXCLUSIVE ACCESS PQSW EQU 22 " P DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORD
0x0f5988…0f5b1c Dummy {f00=0x0123, f01=0x0190, f02=» INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX & PQDELX EQU 30 H P DATA DMDELX DELETE INDEX P XIF ~ P IFF INDXAC=1 P DATA DMTERR,DMTERR P XIF PQGCURX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD
0x0f5b1c…0f5cb0 Dummy {f00=0x0123, f01=0x0190, f02=» $ P DATA DMRRRB RAND READ REL BUFF P* , $ PVTOCRL DATA 0 VTOC RECORD LENGTH 6 P EJECT ^ P* l P************** v P* DMTFRL * P************** P* , P* ENTRY DMTFRL FIND RECORD LENGTH P* 4 P* INPUT
0x0f5cb0…0f5e44 Dummy {f00=0x0123, f01=0x0190, f02=»OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH . & P* A2 IS STORED IN ECBEL n P* PDMTFRL EQU * P LD A2,ECBRL,A9 P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH
0x0f5e44…0f5fd8 Dummy {f00=0x0123, f01=0x0190, f02=»ETURN CODE t . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH P RTN A14 D P EJECT T P* b P************ l P* DMTWM * P************ P* " P* ENTRY DMTWM WORD MOVE P* " P* INPUT A1 = FROM ADDRESS , P
0x0f5fd8…0f616c Dummy {f00=0x0123, f01=0x0190, f02=» P* PDMTWM EQU * P SUK A2,2 & " P RF(N) DMTW10 LAST WORD MOVED 8 P LDR* A4,A1 ^ P STR A4,A3 r P ADK A1,2 P ADK A3,2 P RB DMTWM PDMTW10 ANK A2,/01 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR
0x0f616c…0f6300 Dummy {f00=0x0123, f01=0x0190, f02=» " P* ENTRY DMTBM BYTE MOVE P* . " P* INPUT A1 = FROM ADDRESS 8 , P* A2 = NO OF BYTES TO BE MOVED ^ P* A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR
0x0f6300…0f6494 (0, 312) Dummy {f00=0x012d, f01=0x0190, f02=» P ADK A1,1 P ADK A3,1 P RB DMTBM ( PDMTB10 RTN A14 : P* P 2 P* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT Z P* MOVES FROM THE END P* PDMTBMR ADR A1,A2 P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10
0x0f6494…0f6628 Dummy {f00=0x012d, f01=0x0190, f02=»**************************** x P* $ : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE . P* l 8 P****ENTRY PARAMETERS******************************** v P* P* A1 = TTAB ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT
0x0f6628…0f67bc Dummy {f00=0x012d, f01=0x0190, f02=»NCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 P* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND F 2 P* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB P* 8 P****USED REGISTERS********************************** P* P*
0x0f67bc…0f6950 Dummy {f00=0x012d, f01=0x0190, f02=»* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR PFND030 EQU * H P SUK A3,4 ( P RF(NP) FND040 FILE CODE NOT IN TTAB n P LDR A4,A1 P ADKL A4,TTB:TD =1 P ADR A4,A3 P CWR* A2,A4 =1 P RB(NE) FND030 P
0x0f6950…0f6ae4 Dummy {f00=0x012d, f01=0x0190, f02=» EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED P LD* A4,SCTCDT L PFND050 EQU * b P SUK A4,4 v ( P RF(NP) FND060 CODE NOT FOUND AT ALL P LD A3,SCTCDT P ADR A3,A4 P CWR* A2,A3 =1 P RB(NE) FND050
0x0f6ae4…0f6c78 Dummy {f00=0x012d, f01=0x0190, f02=» EJECT P* P************** P* DMTREM * . P************** D P* Z D P* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA d P* 0 P* INPUT RELATIVE REC OFFSET IN FDBRRO,A6 $ P* BUFFER ADDRESS IN
0x0f6c78…0f6e0c Dummy {f00=0x012d, f01=0x0190, f02=»HE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE B P* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE T > P* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE
0x0f6e0c…0f6fa0 Dummy {f00=0x012d, f01=0x0190, f02=» LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 4 P ANK A4,/01 F ( P RF(Z) DMT210 BOTH ODD OR BOTH EVEN Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P RF DMT225 P* PDMT210 LDR A4,A1 P ANK A4,/01 P RF(E) DMT220 BO
0x0f6fa0…0f7134 (0, 313) Dummy {f00=0x012d, f01=0x0190, f02=»RD MOVE z PDMT225 EQU * P XIF $ P* 0 P IFT MMUPAG=1 : & P LD A4,DWTTDM,A6 GET TTAB ADDRESS P $ P LC A3,TTB:ID,A4 ID CALLING TASK z P CCK A3,'##' P RF(NE) DMTREN NOT DMTASK P LDK A3,QRR P CC A3,DWTOR+1,A6 " P R
0x0f7134…0f72c8 Dummy {f00=0x012d, f01=0x0190, f02=»SER TTAB ~ PDMTREN EQU * P INH $ $ P TL TTB:MT,A4 LOAD MMU REGISTERS 0 PDMTREP EQU * X $ P LD A4,PRUN GET DM TTAB ADDRESS l 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE P ENB P LDR A3,A2 GET LENGTH 0 P LD A2,ECBBA,A9 GET RE
0x0f72c8…0f745c Dummy {f00=0x012d, f01=0x018e, f02=»PAG=1 PDMTREQ INH P TL MONMMU SYSTEM MMU P RB DMTREP > P XIF P P EJECT P* j P* SET UP A14 STACK t P* PGETA14 EQU * $ P LD A14,PRUN GET DM TTAB ADDRESS * P AD A14,TTB:TD,A14 LENGTH DEVICE DESCR P ADK
0x0f745c…0f75f0 Dummy {f00=0x012d, f01=0x0190, f02=» P************** ! P* ! P* ! ( PDMTASK EQU * ! 2 P* ! F P* SET UP A14 STACK ! P P* ! l P CF A15,GETA14 ! v P LDR A6,A1 FDB ADDR ! P LDKL A5,-1 ! * P CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 ! 2 P RF(E) DMT090 FOR ORDERS XR,DX
0x0f75f0…0f7784 Dummy {f00=0x012d, f01=0x0190, f02=»1 ! P ANK A2,/3F " P CWK A2,QCL " P RF(E) DMT024 CLOSE " 2 P CWK A2,QRV " N P RF(E) DMT024 READ VTOC " b P SUK A2,QRRRB " & P RF(E) DMT024 RAND READ REL BUFFER " P ORKL A4,/100 " PDMT024 EQU * " P ST A4,FDBDBR,A1 " PDMT0
0x0f7784…0f7918 Dummy {f00=0x012d, f01=0x0190, f02=»80 BUFFER WAS BEFORE " P* # ( P* READ SECTOR INTO BUFFER AND EXIT # & P* # R P SUK A5,QCL # P RF(Z) DMT030 CLOSE # p P LDK A7,/11 PHYSICAL READ # P LKM # P DATA -1 I/O AND ACTIVATION # " P DATA DMTAR1 DMTASK RESTART #1 # P LKM
0x0f7918…0f7aac Dummy {f00=0x012d, f01=0x0190, f02=»T050 CHECK RETURN CODES # P EJECT $ P************** $ . P* DMTAR1 * $ D P************** $ Z P* RESTART POINT AFTER READ $ p P* $ PDMTAR1 EQU * $ P* $ P* SET UP A14 STACK $ P* $ P CF A15,GETA14 $ PDMT050 EQU * $
0x0f7aac…0f7c40 Dummy {f00=0x012d, f01=0x0190, f02=» $ 0 PDMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER % P LDR A5,A3 % < P ADK A5,8 SKIP BUFFER HEADER % N * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB % r PDMT090 EQU * % P* % 4 P* HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR % P* % P ADK A5,
0x0f7c40…0f7dd4 (0, 314) Dummy {f00=0x012d, f01=0x0190, f02=» TABLE % r P EJECT & $ PDMRRRB EQU * RAND READ REL BUFF & P* & D PDMSQRE EQU * SEQUENTIAL READ & N P* & r PDMRDRE EQU * RANDOM READ & | P* & 4 P* CHECK STATUS IF NOT USED THEN ERROR RETURN & P* & P LD A2,FDBRRO,A6 & P AD A2,F
0x0f7dd4…0f7f68 Dummy {f00=0x012d, f01=0x018e, f02=»A & | P ABL DMTERR ' & PDMT200 LDK A1,/8 INCORRECT LENGTH ' & P CF A14,DMTFRL A2 := RECORD LENGTH ' H P* ' r P* MOVE THE RECORD ' | P* ' P CF A14,DMTREM ' P* ' 0 P* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT ' P* ' PDMT230 E
0x0f7f68…0f80fc Dummy {f00=0x012d, f01=0x0190, f02=» ' t P* ( P LD A2,FDBSNR,A6 ( ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER ( * P* ( V P* VOLUME LABEL IN BUFFER ( ` H P* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR ( 8 P* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER (
0x0f80fc…0f8290 Dummy {f00=0x012d, f01=0x0190, f02=»OBLK VTOC BLOCKING FACTIOR ( ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER ) " P LDK A1,0 ) N , P CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER ) ` P LDR A3,A2 QUOTIENT ) P LDR A6,A10 FDB ADDR ) P LDR A2,A1 REST ) P RF(Z) DMT240 REST = 0 ) $ P ADK A3,1
0x0f8290…0f8424 Dummy {f00=0x012d, f01=0x0190, f02=» P ST A3,FDBSNR,A6 * P LDK A3,0 * PDMT255 SUK A2,1 * . P RF(Z) DMT260 * F P AD A3,VLVRL-2,A5 * P ADK A3,1 SKIP STATUS BYTE * v P RB DMT255 * PDMT260 ST A3,FDBRRO,A6 * P* * P* RELEASE BUFFER * P* * P LD A3,ECBBA,A9 *
0x0f8424…0f85b8 Dummy {f00=0x012d, f01=0x0190, f02=» ADDR * P RB DMT020 READ VTOC SECTOR + P EJECT + 2 PDMT270 EQU * + @ P SUK A7,QRV + T $ P ABL(Z) DMT500 READ VTOC RECORD + h P* CLOSE FILE + & P* UPDATE VTOC LAST RECORD NUMBER + & P* AND WRITE SECTOR BACK ON DISC + P AD A5,FDBRRO,
0x0f85b8…0f874c Dummy {f00=0x012d, f01=0x0190, f02=»E FILE. WRITE VTOC + P* , P LDK A7,/95 , $ P LKM , 8 P DATA 1 , D P* , T P LDR A1,A6 FDBADDRESS IN A1 , ^ & P CF A14,DMTIOT CHECK RETURN CODES , P LDR A1,A1 , P RF(NZ) DMT724 ERROR , PDMT720 EQU * , P LD A1,DWTTDM,A6 TTAB ADDR
0x0f874c…0f88e0 Dummy {f00=0x012d, f01=0x0190, f02=» A2,1 0 OR 1 , P ECR A2,A2 =1 END - P LC A2,ECBFC,A9 FILE CODE - . " P LDK A5,0 TRY LOCAL AND GLOBAL - P . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB - v & P LDR A13,A5 LOCAL/GLOBAL INDICATOR - P LDR A2,A2 - P RF(NZ) DMT725 FC FOUND - P LDK
0x0f88e0…0f8a74 (0, 315) Dummy {f00=0x012d, f01=0x0190, f02=»R - p P LDR A12,A1 SAVE TTEAB ADDR . 4 P SUR A10,A10 MARK THAT FDB NOT SHALL BE RELEASED . . P EJECT . f 0 P* CHECK IF THIS FDB ADDR IS USED ELEWHERE . t P* . P* SEARCH ALL TTABS . P* . P LD* A2,SCTTCT . PDMT730 EQU * . P SUK A
0x0f8a74…0f8c08 Dummy {f00=0x012d, f01=0x018e, f02=»K ID . | P CCK A3,'##' / & P RB(E) DMT730 JUMP IF MONITOR TASK / P LD A3,TTB:TD,A1 / J ( P ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 / b PDMT770 EQU * / P SUK A3,4 / $ P RB(NP) DMT730 NOT IN THIS TTAB / P LDR A4,A1 / P ADR A4,A3 / P CWR* A5
0x0f8c08…0f8d9c Dummy {f00=0x012d, f01=0x0190, f02=» / v & P RF DMT895 MORE USERS ON THIS FDB 0 P* 0 2 P* NOW SEARCH SCTCDT 0 < P* 0 Z PDMT780 EQU * 0 d P LD* A4,SCTCDT 0 x PDMT790 EQU * 0 P SUK A4,4 0 . P RF(NP) DMT800 THIS FDB HAS NO OTHER USER 0 P LD A2,SCTCDT 0 P ADR A2,A4 0
0x0f8d9c…0f8f30 Dummy {f00=0x012d, f01=0x018e, f02=» & P RF DMT895 THIS FDB HAS MORE USERS 1 P EJECT 1 . P* 1 < P* NOW RELEASE THIS FDB 1 F P* 1 f PDMT800 EQU * 1 p P* 1 P* RELEASE EA-BUFFERS 1 P* 1 . P LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED 1 P LDR A1,A6 FDB ADDR 1 P CF
0x0f8f30…0f90c4 Dummy {f00=0x012d, f01=0x0190, f02=» 1 P CMR A5 CLEAR FDB 2 P RF DMT830 2 " PDMT820 EQU * 2 4 P LDR A4,A5 BUFFER ADDRESS 2 H PDMT830 EQU * 2 j & P RF(Z) DMT840 ALL BUFFER S REMOVED 2 ~ $ P LDR* A5,A4 NEXT BUFFER ADDRESS 2 P* 2 P* RETIURN BUFFER TO POOL 2 P* 2 P I
0x0f90c4…0f9258 Dummy {f00=0x012d, f01=0x0190, f02=» 2 P* 3 < P* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON 3 > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME 3 R P* 3 P LDK A1,4 EXTENT COUNTER 3 P LDR A5,A6 FDB ADDR 3 . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE 3
0x0f9258…0f93ec Dummy {f00=0x012d, f01=0x0190, f02=»1 LOOP 3 & P ABL(NN) DMT900 CHECK THIS EXTENT 4 P XIF 4 8 P IFT INDXAC=1 4 D P EJECT 4 Z P* 4 h P* ALL EXTENTS CHECKED 4 r P* RELEASE MASRTER INDEX 4 P* 4 P INH 4 & P LD A1,FDBMIA,A6 MASTER INDEX ADDR 4 P RF(Z) DMT894 NO MAT
0x0f93ec…0f9580 Dummy {f00=0x012d, f01=0x018e, f02=» DMT894 NO MATER IX 4 P CW A1,MXIND+2,A5 5 P RB(NE) DMT885 5 6 P LD A4,MXIND,A5 5 L & P RF(N) DMT890 PREVIOUS ENTRY USED 5 d " P LD A4,MXIND+4,A5 NO OF WORDS 5 P ANKL A4,/7FFF REMOV USE BIT 5 P ADS A4,MXIND,A5 NR OF WORDS 5 P* 5 P*
0x0f9580…0f9714 (0, 316) Dummy {f00=0x0136, f01=0x0190, f02=» P LD A2,MXIND 6 P SUR A2,A5 6 P SUK A2,2 NO OF CHAR 6 * P CF A14,DMTWM MOVE UOP 6 F P RF DMT894 6 d PDMT890 EQU * 6 v P LDKL A4,/7FFF 6 & P ANS A4,MXIND+4,A5 REMOVE USE BIT 6 P XIF 6 P EJECT 6 PDMT894 EQU * 6 0 P LDKL A10,1 MARK
0x0f9714…0f98a8 Dummy {f00=0x0136, f01=0x0190, f02=»11 FILE CODE 6 P CM 2,A11 FDB ADDR 7 P* 7 . * P* RELEASE DWT-QUEUQ IN THIS FDB-DWT 7 8 P* 7 f P LDR A1,A6 FDBADDR 7 p $ P ADKL A1,DWTTQ ADDR QUEUE START 7 P LDR* A5,A1 NEXT TTAB ADDR 7 P RF(Z) DMTA20 NO Q 7 P CMR A1 KILL ROOT 7 $ P
0x0f98a8…0f9a3c Dummy {f00=0x0136, f01=0x0190, f02=» 7 P* 8 " P* NEXT ENTRY IN TTAB/CDATAB 8 P* 8 8 P LDR A1,A12 TTAB ADDR 8 B P LDK A2,0 8 ` ( P LC A2,ECBFC,A9 FILE CODE USERT ECB 8 r & P LDR A5,A13 LOCAL/GLOBAL INDICATOR 8 & P CF A14,FNDFDB SEARCH TTAB SCTCDT 8 P LDK A7,0 INDICATES A2
0x0f9a3c…0f9bd0 Dummy {f00=0x0136, f01=0x018e, f02=»ALL ALSO BE RELEASED 8 | P* 9 & P LD A7,2,A4 NEXT FDB ADDR TO CLOSE 9 & P LDK A1,2 9 P P ADR A1,A6 FROM ADDR 9 b P LDK A3,2 9 ~ P ADR A3,A7 TO ADDR 9 P LDK A2,12 NO OF BYTES 9 P CF A14,DMTWM MOVE DWT 9 P IFT MMUPAG=1 9 P LD A3,DWTUE
0x0f9bd0…0f9d64 Dummy {f00=0x0136, f01=0x018e, f02=» 9 x P CM FDBSNR,A7 SECTOR NR : P LDKL A3,FDBEXT : ( P ADR A3,A7 : @ P ST A3,FDBCEX,A7 1ST EXTENT : R P LDR A10,A10 =1 : v P RF(Z) DMTA30 NO RELEASE =1 : P LDKL A3,/8000 : P ST A3,DWTST,A6 NOT BUSY : PDMTA30 EQU * : P XIF : P
0x0f9d64…0f9ef8 Dummy {f00=0x0136, f01=0x0190, f02=» P* RELEASE FDB ; P* ; P LDR A10,A10 ; & P RF(Z) DMTA40 NO RELEASE ; : P IFT INDXAC=1 ; Z P* ; p 0 P* REMOVE ALL OTHER REFERAENCES TO THIS FDB ; z P* ; P LDK A1,10 2*MAX NR OF FDBS ; PDMTA50 SUK A1,2 ; " P RF(N) DMTA70 ALL FD
0x0f9ef8…0fa08c Dummy {f00=0x0136, f01=0x0190, f02=»OF FDBS ; | PDMTA60 SUK A4,2 < 0 P RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB < ( P LDR A5,A3 < P ADR A5,A4 < n P CW A6,FDBADF,A5 < P RB(NE) DMTA60 < P* < @ P* DELETE THIS REFERENCE TO THE FDB THAT SHALL BE RELEASED < P* < P C
0x0fa08c…0fa220 Dummy {f00=0x0136, f01=0x0190, f02=»SET FDB FREE < PDMTA40 EQU * = * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS = ( P LDR A1,A7 NEW FDB ADDR = V P ABL(Z) DMTERX NO MORE FDBS = v P IFT INDXAC=1 = P ENB ENB = P* = 4 P* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT = P* =
0x0fa220…0fa3b4 (0, 317) Dummy {f00=0x0138, f01=0x0190, f02=» P LKM > P DATA 3 EXIT > P XIF > $ P IFT FLXDSC=1 > 0 P EJECT > F PDMT900 EQU * > T $ P* UNLOCK FLEXDISC IN THIS LOOP > h P* > P* REGISTERS > P* A1 = EXTENT COUNTER > 6 P* A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR >
0x0fa3b4…0fa548 Dummy {f00=0x0138, f01=0x0190, f02=»NGTH IN FDB > z P LCR A7,A5 VOLUME CODE ? P ANK A7,/FF ? 2 P ABL(Z) DMT880 NO CODE ? F P* ? d & P* FLEXDICSC IF BIT 8-13 = 111110 ? n P* ? P ANK A7,/F8 ? P SUK A7,/F8 ? P ABL(NE) DMT880 NO FLEXDISC ? P* ? 6 P* IF SAME FLEX
0x0fa548…0fa6dc Dummy {f00=0x0138, f01=0x0190, f02=»THOIS FLEXIBLE DISC VOL CODE ? t P* @ $ PDMT910 EQU * @ . P LCR A4,A5 SAVE VOL CODE @ B " P LDKL A3,FDBSTA FDB LINK ROOT @ b P INH INH @ P RF DMT925 @ PDMT920 EQU * @ P LDR* A3,A3 FDB ADDR @ PDMT925 EQU * @ P ANKL A3,/FFFE FDB ADD
0x0fa6dc…0fa870 Dummy {f00=0x0138, f01=0x018e, f02=» DMT920 CURRENT FDB @ P LDK A7,4 EXTENT COUNTER A P LDR A2,A3 FDB ADDR A < P ADKL A2,FDBEXT+1 A X P* ADDR OF 1ST VOL CODE A r & P SUKL A2,EXTELE EXT LENGTH IN FDB A PDMT930 EQU * A P SUK A7,1 A & P RB(N) DMT920 ALL EXTENTS CHECKED A
0x0fa870…0faa04 Dummy {f00=0x0138, f01=0x018e, f02=» A & P* ALL FSDBS CHECKED. MAKE UNLOAD B P* B 2 PDMT980 EQU * B < P ENB ENB B P P* B b 6 P* NOTE THAT ECBBUF IS ASSUMED NOT TO BE CHANGED B l P* WITH THIS REQUEST B P* B P SC A4,ECBFC,A8 VOL CODE B P* B P IFF DSKPAG+SWPB
0x0faa04…0fab98 Dummy {f00=0x0138, f01=0x0190, f02=» P IFT FLXDSC=1 C P LDK A7,/B8 UNLOAD WAIT C P LKM C : P DATA 1 C F P LD A1,ECBRC,A8 C V P ANK A1,1 INOPER C n P ABL(NZ) DMTERR C P ABL DMT880 CHECK NEXT EXT C P XIF C P EJECT C " PDMT500 EQU * READ VTOC RECORD C P* C "
0x0fab98…0fad2c Dummy {f00=0x0138, f01=0x0190, f02=»H C v ( P ORS A1,ECBRC,A9 SET RC BUT CONTINUE D , P LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU D 6 PDMT510 EQU * D f P ST A2,ECBEL,A9 D z P CF A14,DMTREM MOVE RECORD D PDMAEX EQU * D P ABL DMTAEX EXIT D P EJECT D " PDMSQWR EQU * SEQUENTIAL WR
0x0fad2c…0faec0 Dummy {f00=0x0138, f01=0x0190, f02=» D v P* E PDMDEL EQU * INDEXED DELETE E P* E 4 PDMIRW EQU * INDEXED REWRITE E > P* E b & PDMRDWD EQU * DELAYED RANDOM WRITE E l P* E & PDMRDDD EQU * DELAYED RANDOM DELETE E P* E P* TEST STATUS E P LD A10,FDBRRO,A6 E P A
0x0faec0…0fb054 (0, 318) Dummy {f00=0x0138, f01=0x0190, f02=»+2,A9 E P ANK A2,/FF F P LD A3,ECBCW,A9 LOG REC NR F " P LDK A4,0 F D P CCR A4,A10 F V P RF(E) DMS010 FREE F j P IFT INDXAC=1 F P LDR A4,A7 F P SUK A4,QINS F P RF(E) DMEAER INDEXED INSERT F P XIF F P LDR A4,A7 F P SUK A
0x0fb054…0fb1e8 Dummy {f00=0x0138, f01=0x0190, f02=» P ANK A4,EABIT G " P RF(NZ) DMS020 EA=1, NO CHECK G P* EA MUST BE SET G @ P* G Z P CF A14,EATEST G d P LDR A4,A4 RTN CODE G z " P RF(NP) DMEAER NO EA THIS TASK G P XIF G P RF DMS100 G PDMS010 EQU * G P IFT INDXAC=1 G P LDR
0x0fb1e8…0fb37c Dummy {f00=0x0138, f01=0x0190, f02=»TE G v P XIF H PDMS020 EQU * H P CF A14,EATEST H * P LDR A4,A4 RTN CODE H @ P RF(N) DMEAER EA OTHER TASK H PDMS100 EQU * H P LDK A1,0 SET STATUS FREE H P IFT INDXAC=1 H P LDR A2,A7 H P SUK A2,QIRW H " P RF(E) CHK010 INDEXED
0x0fb37c…0fb510 Dummy {f00=0x0138, f01=0x0190, f02=»HK010 INDEXED DELETE H P XIF I P LDR A2,A7 I ( P SUK A2,QRD I : P RF(E) DMT350 RANDOM DELETE I N P LDR A2,A7 I r P SUK A2,QRDD I ( P RF(E) DMT350 DELAYED RANDOM DELETE I P RF DMT310 RW,RWD,SW I P IFT INDXAC=1 I P EJECT I PCHK0
0x0fb510…0fb6a4 Dummy {f00=0x0138, f01=0x0190, f02=»* COMPARE KEYS IN FILE AND USER BUFFER I P* J 0 P LDR A1,A6 FDB ADDR J : P LDK A5,8 MAX 4 INDEX J V P SUR A12,A12 INDEX COUNTER J t PCHK040 EQU * J P SUK A5,2 J $ P RF(N) CHK100 ALL INDEX CHECKED J P LDR A2,A1 FDB ADD J P ADR A2,A5
0x0fb6a4…0fb838 Dummy {f00=0x0138, f01=0x0190, f02=»ORDER =3 J P ANK A2,/3F ORDER INDEX K P SUK A2,QIRW K 0 & P RB(NE) CHK040 NOT INDEXED REWRITE K D P* K n P IFT MMUPAG=1 K x P LDR A7,A1 SAVE A1 K * P LD A1,FDBKA,A6 GET KEY START ADDRESS K P AD A1,ECBBA,A9 K 2 P LDKL A2,FDBKEY GET KEY SA
0x0fb838…0fb9cc Dummy {f00=0x0138, f01=0x0190, f02=»6 KEY LENGTH K P INH L & P LD A4,DWTTDM,A7 GET TTAB ADDRESS L $ P TL TTB:MT,A4 LOAD MMU REGISTERS L J $ P LD A4,PRUN GET DM TTAB ADDRESS L r 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE L P ENB L , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA L
0x0fb9cc…0fbb60 Dummy {f00=0x0138, f01=0x0190, f02=»NDXAC=1 L P IFT MMUPAG=0 M " P LD A2,FDBKA,A6 KEY START ADDR M & P LDR A3,A2 M L " P AD A2,ECBBA,A9 KEY IN BUFFER M ^ P XIF M P* M P IFT INDXAC=1 M P AD A3,FDBRRO,A1 M P ADR A3,A11 KEY IN FILE M P LDK A7,0 M " P LD A6,FDBRLE,
0x0fbb60…0fbcf4 (0, 319) Dummy {f00=0x0139, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x0fbcf4…0fbe88 Dummy {f00=0x0139, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x0fbe88…0fc01c Dummy {f00=0x0139, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x0fc01c…0fc1b0 Dummy {f00=0x0139, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x0fc1b0…0fc344 Dummy {f00=0x0139, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x0fc344…0fc4d8 Dummy {f00=0x0139, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x0fc4d8…0fc66c Dummy {f00=0x0139, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x0fc66c…0fc800 Dummy {f00=0x0139, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x0fc800…0fc994 (0, 320) Dummy {f00=0x0139, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x0fc994…0fcb28 Dummy {f00=0x0139, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x0fcb28…0fccbc Dummy {f00=0x0139, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x0fccbc…0fce50 Dummy {f00=0x0139, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x0fce50…0fcfe4 Dummy {f00=0x0139, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x0fcfe4…0fd178 Dummy {f00=0x0139, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x0fd178…0fd30c Dummy {f00=0x0139, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x0fd30c…0fd4a0 Dummy {f00=0x0139, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x0fd4a0…0fd634 (0, 321) Dummy {f00=0x0139, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x0fd634…0fd7c8 Dummy {f00=0x0139, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x0fd7c8…0fd95c Dummy {f00=0x0139, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x0fd95c…0fdaf0 Dummy {f00=0x0139, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x0fdaf0…0fdc84 Dummy {f00=0x0139, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x0fdc84…0fde18 Dummy {f00=0x0139, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x0fde18…0fdfac Dummy {f00=0x0139, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x0fdfac…0fe140 Dummy {f00=0x0139, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x0fe140…0fe2d4 (0, 322) Dummy {f00=0x0139, f01=0x0190, f02=»DMI100 RECORD FOUND e P LDR A6,A1 FDB ADDR f & PDMI030 LDKL A1,/4000 KEY NOT FOUND f 8 PDMI035 EQU * f b P LDR A3,A3 BUFFER ADDR f v P ABL(Z) DMTERX NO BUFFER f P ABL DMTERR ERROR AND BUFFER f P EJECT f P* f & PDMINS2 EQU * INDEXED INS
0x0fe2d4…0fe468 Dummy {f00=0x0139, f01=0x0190, f02=»FSTA f " P CF A14,DMTRBU RELEASE BUFFER g PDMXDEL EQU * INDEXED DELETE g 2 6 P************************************************* g V P LDR A11,A7 ORDER CODE g P LDR A12,A8 PHYS ECB ADDR g P LDK A5,0 g . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUN
0x0fe468…0fe5fc Dummy {f00=0x0139, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x0fe5fc…0fe790 Dummy {f00=0x0139, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x0fe790…0fe924 Dummy {f00=0x0139, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x0fe924…0feab8 Dummy {f00=0x0139, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x0feab8…0fec4c Dummy {f00=0x0139, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x0fec4c…0fede0 Dummy {f00=0x0139, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x0fede0…0fef74 (0, 323) Dummy {f00=0x013a, f01=0x0190, f02=»*************** m r " P LD A9,DWTECB,A1 USER ECB ADDR n $ P LD A8,ECBBA,A9 BUFFER ADDR USER n > P LDR A12,A8 n f $ P LD A11,FDBRLE,A1 RECORD LENGTH n z P SUKL A11,6 KEY LENGTH n P LDR A13,A14 n 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS n $ P
0x0fef74…0ff108 Dummy {f00=0x013a, f01=0x0190, f02=»OR FOUND n z P LDR A13,A3 BUFFER ADDR o " P LD A4,FDBADF,A6 FDB DATA FILE o 0 P LD A5,DWTECB,A4 USER ECB o V P LD A1,DWTOR,A6 o x P ANK A1,/3F o P SUK A1,QDELX o & P ABL(E) DEL000 DELETE INDEX RECORD o P* o ( P* SET RC BIT 6 TO USER I
0x0ff108…0ff29c Dummy {f00=0x013a, f01=0x018e, f02=»EY NOT ALLOWED IN FILE) o P* p P LC A4,ECBFC,A5 FILE CODE p * P CC A4,FDBECB+1,A6 p L * P RF(NE) INS049 NOT REQUESTED FILE CODE p f P LDKL A4,/200 BIT 6 p " P ORS A4,ECBRC,A5 NEXT KEY SAME p PINS049 EQU * p P IFT INSLAS=1 p P* p
0x0ff29c…0ff430 Dummy {f00=0x013a, f01=0x018e, f02=» P CF A14,RDNXTR GET NEXT REC q P RF INS100 OK q ( P ABL DEL045 ERROR q > PINS100 EQU * q X P ADR A2,A3 q l P ADK A2,10 REC ADDR q ~ P AD A2,FDBRLE,A1 ADDR STATUS q P LDK A5,/FF q P CCR A5,A2 q P RF(E) INS150 USED q P LD A5,FDB
0x0ff430…0ff5c4 Dummy {f00=0x013a, f01=0x0190, f02=» P CWR A5,A11 KEY LENGTH r $ P RB(E) INS080 NEXT SAME GET NEXT r " P* r J P* UPDATE LAST SAME RECORD r T P* r x P SC A11,-4,A2 NEXT SAME r P LD A7,FDBRRO,A1 r P CW A7,FDBMRO,A1 r & P RF(NE) INS160 SECT WRITTEN LATER r P* r P*
0x0ff5c4…0ff758 Dummy {f00=0x013a, f01=0x018e, f02=» P ABL(NZ) DMTERR s P* s P* GET NEXT RECORD s & P* s B PINS160 EQU * s L " P LDR A7,A5 NR OF SAME IN NEXT s ` P LDR A1,A6 FDB s P CF A14,RDNXTR GET NEXT RC s P RF INS170 OK s P ABL DEL045 ERROR s PINS170 EQU * s P LDR A
0x0ff758…0ff8ec Dummy {f00=0x013a, f01=0x0190, f02=» s P* t ( P* CREATE AN INDE XRECORD IN AREA 1 t P* t > P LDR A1,A12 FROM ADDR t H P* t f P LDR A3,A14 t p P ADK A3,2 TO ADDR t P LDR A2,A11 KEY LENGTH t P CF A14,DMTBM MOVE KEY t P LDK A2,0 t P SCR A2,A3 DUMMY t P ADK
0x0ff8ec…0ffa80 Dummy {f00=0x013a, f01=0x0190, f02=»R t t P LD A2,ECBCW+2,A5 u ( P LD A3,ECBCW,A5 REC NR DATA FILE REC u $ P SCR A2,A7 u P P ADK A7,2 u b P SCR A3,A7 u t P ECR A3,A3 u P SUK A7,1 u P SCR A3,A7 LOG REC NR u P ADK A7,2 u P LDK A1,/FF USED u P SCR A1,A7 STATUS CHAR
0x0ffa80…0ffc14 (0, 324) Dummy {f00=0x013a, f01=0x0190, f02=» u P ST A2,-28,A14 v P ST A3,-26,A14 v P EJECT v 4 P* v B : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING v L $ P* USED RECORDS ROLLED FORWARD v $ P* A6,A11,A13 IS USED AT ENTRY v $ P ADKL A11,7 RECORD LENGTH TOTAL v P* v
0x0ffc14…0ffda8 Dummy {f00=0x013a, f01=0x0190, f02=»A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 v $ P* A13 = BUFFER ADDRESS SECTOR w , P* w T PINS190 EQU * w ^ P LDKL A12,1 BUFADR2 w r PINS200 EQU * w P LDK A1,0 w P LDR A12,A12 w P RF(Z) INS210 BUFAR1 w ( P LDKL A1,RECBFZ RECORD BUUFFER SIZE
0x0ffda8…0fff3c Dummy {f00=0x013a, f01=0x0190, f02=» LAST RECORD w P* x P LDR A1,A13 x P ADK A1,10 BUFSTA+2 x 2 . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT x N P LDR A2,A11 x P LDR A3,A10 x " P CF A14,DMTBM SAVE LAST RECORD x P* MOVE REST OF SECTOR x P* x P LDR A1,A13 x
0x0fff3c…1000d0 Dummy {f00=0x013a, f01=0x0190, f02=» x t P LDR A3,A1 y P ADR A3,A11 TO ADDR y P CF A14,DMTBMR MOVE y 6 P* INSERT NEW RECORD y R P* y p P LDKL A1,RECBFZ BUFFER SIZE y z P SLL A1,1 BYTE NO y P LDR A12,A12 y P RF(Z) INS250 BUFAR1 y " P LDK A1,0 SELECT OTHER BUFFER y
0x1000d0…100264 Dummy {f00=0x013a, f01=0x0190, f02=» P CF A14,DMTBM MOVE z P* WRITE BUFFER z P* z 6 P LDR A8,A14 USE STACK AS ECB z @ P SUKL A8,24 z d $ P LC A2,FDBEXT+1,A6 VOL DEV CODE z x P ANK A2,/FF z P STR A2,A8 z P LDR A2,A13 z P ADK A2,8 BUFSTA z P ST A2,ECBBA,A8 SECT
0x100264…1003f8 Dummy {f00=0x013a, f01=0x0190, f02=» z v P LDK A7,/95 WRITE , WAIT { P LKM { ( P DATA 1 { 4 P LDR A1,A6 FDB INDEX { D P CF A14,DMTIOZ IO CHECK { ` P LDR A1,A1 { P ABL(NZ) DMTERR { P* { 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY { P* { P LDR A2,A10 RECO
0x1003f8…10058c Dummy {f00=0x013a, f01=0x0190, f02=»T IN SECT { v P CCR A1,A2 | P RF(Z) INS400 FREE RECORD | $ P* | F P* GET NEXT SECTOR | P P* | l P LDR A1,A6 FDB ADDR | v P LDR A3,A13 BUFFER ADDR | 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR | P RF INS260 OK | P LDR A1,A5
0x10058c…100720 Dummy {f00=0x013a, f01=0x0190, f02=»D BUFFERS | v P SUR A12,A12 } P RB INS200 } & P EJECT } 8 PINS400 EQU * } F P* } Z ( P* UPDATE LRN IF EOF IS ENCOUNTERED } d P* } P LDR A1,A6 FDB INDEX } P CF A14,GTLGRN } P CC A2,FDBLRN,A1 } P RF(L) INS430 NO EOF } P RF(G)
0x100720…1008b4 (0, 325) Dummy {f00=0x013a, f01=0x0190, f02=»T A3,FDBLRN+1,A6 } P LDKL A1,/1000 EOF ~ P ORS A1,ECBRC,A9 EOF TO USER ~ 4 PINS430 EQU * ~ X P* ~ l 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS ~ v P* ~ P LDKL A12,1 ADD ON E TO CRN ~ P LDR A8,A2 ~ P LDR A9,A3 LAST REC NR MOVED ~
0x1008b4…100a48 Dummy {f00=0x013a, f01=0x0190, f02=»TE CRN IF SAME FILE CODE ~ P* P LD A1,FDBADF,A5 FDB DATA F * " P CF A14,CRNGET GET CRN BUFFER N & P LD A9,DWTECB,A1 USER ECB ADDR =4 t " P LC A4,ECBFC,A9 USER FILE CODE P CC A4,FDBECB+1,A5 P RF(NE) INS440 OTHRER FILE P ST A10,
0x100a48…100bdc Dummy {f00=0x013a, f01=0x0190, f02=»DK A1,0 OK RET CODE P LDR A3,A13 BUFFER ADDR P ABL DMTEX2 < P EJECT P * PDEL000 EQU * DELETE INDEX RECORD CONT ^ P LDR A12,A5 USER ECB ADDR P LDR A2,A2 PDEL010 EQU * " P ABL(NZ) DMI030 KEY NOT FOUND P* P*
0x100bdc…100d70 Dummy {f00=0x013a, f01=0x0190, f02=»7 BUFSTA+2-3=ADDR REC NR P LCR A2,A1 P CC A2,ECBCW+3,A12 REC NR 2 P RF(NE) DEL030 WRONG RECORD T P LC A2,1,A1 x P ECR A2,A2 P LC A2,2,A1 REC NR P CW A2,ECBCW,A12 P RF(E) DEL200 RECORD FOUND PDEL030 EQU * P*
0x100d70…100f04 Dummy {f00=0x013a, f01=0x018e, f02=»DB INDEX PDEL040 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD $ P RF DEL050 OK P PDEL045 LDR A1,A5 ERROR CODE f P ABL DMI035 ERROR PDEL050 EQU * P* P* CHECK IF RECORD IS USED P* P LDR A13,A3 NEW BUFFER A
0x100f04…101098 Dummy {f00=0x013a, f01=0x0190, f02=» P RB(E) DEL020 USED P LD A4,FDBMRO,A1 ( P ST A4,FDBRRO,A1 LAST REC IN SECTOR 6 P RB DEL040 NEXT REC b P EJECT ~ PDEL200 EQU * RECORD FOUND P* & P* SET RC BIT 6 IF NEXT KEY SAME P* $ P LC A2,ECBFC,A12 USER FILE C
0x101098…10122c Dummy {f00=0x013a, f01=0x0190, f02=»A6 * P RF(NE) DEL220 NOT REQUESTED FILE CODE P CWR A11,A7 KEY LENGTH : $ P RF(NE) DEL220 NEXT KEY NOT SAME X P LDKL A4,/200 $ P ORS A4,ECBRC,A12 NEXT KEY SAME PDEL220 EQU * P* $ P* MOVE UP RECORDS OVER DELETED P*
0x10122c…1013c0 Dummy {f00=0x013a, f01=0x0190, f02=» P ADR A1,A11 FROM ADDR P LD A2,FDBMRO,A6 & P SU A2,FDBRRO,A6 NR OF CHAR > P CF A14,DMTBM MOVE b P* | P* SET LAST RECORD FREE P* P ADR A3,A11 P SUK A3,1 P LDK A1,0 P SCR A1,A3 STATUS FREE P*
0x1013c0…101554 (0, 326) Dummy {f00=0x013a, f01=0x018e, f02=» " P LDR A11,A3 FIRST REC NR MOVED P LD A12,FDBRRO,A6 OLD OFFSET * P LD A4,FDBMRO,A6 N P ST A4,FDBRRO,A6 MAX OFFSET f $ P CF A14,GTLGRN LAST REC NR MOVED P LDR A8,A2 P LDR A9,A3 REC NR " P ST A12,FDBRRO,A6 RESET OFFSET P LDK
0x101554…1016e8 Dummy {f00=0x013a, f01=0x0190, f02=» ~ $ P RF(NZ) DEL290 NOT FIRST RECORD P LDR A1,A5 FDB 0 P CF A14,GTLGRN GET REC NR F P LDR A1,A2 h P LDR A2,A3 z P LDK A6,0 P LDK A7,1 $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 P RF(Z) DEL600 FILE START P LDR A6,A5 FDB A
0x1016e8…10187c Dummy {f00=0x013a, f01=0x0190, f02=»A14 P ADKL A8,2 ECB ADDR P LDR A12,A12 ( $ P RF(Z) DEL245 BUFFER NOT CHANGED < P* d P* WRITE SECTOR n P* P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB P CF A14,DMTIOZ IO CHECK P LDR A1,
0x10187c…101a10 Dummy {f00=0x013a, f01=0x018e, f02=»EASE BUFFER ~ P* P* GET PREVIOUS SECTOR P* > P LDR A1,A5 FDB ADDR H P LDK A3,0 d P CF A14,RDNXTR GET SECTOR v P RF DEL250 OK P LDR A6,A1 FDB ADDR P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P L
0x101a10…101ba4 Dummy {f00=0x013a, f01=0x018e, f02=» PDEL300 EQU * * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET P ADK A4,10 BUFSTA+2 F P ADR A4,A13 RECORD ADDR b & P AD A4,FDBRLE,A5 STATUS CHAR ADDR P LDK A2,/FF P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME I
0x101ba4…101d38 Dummy {f00=0x013a, f01=0x0190, f02=» v PDEL600 EQU * P LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x101d38…101ecc Dummy {f00=0x013a, f01=0x401c, f02=» XIF P END @ LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x101ecc…102060 Dummy {f00=0x013a, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x102060…1021f4 (0, 327) Dummy {f00=0x013b, f01=0x0000, f02=»
[…0x7…]
0x102d00…102e94 (0, 328) Opaque[0x194]
0x102e94…103028 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x102e94…103028 IdxSect {
0x102e94…103028 f00 = 0x0129 // 0x102e94 @0x0
0x102e94…103028 f01 = 0x0004 // 0x102e96 @0x2
0x102e94…103028 gno = [ // 0x102e98 @0x4
0x102e94…103028 [0x00]: C0x0129.0x3.0
0x102e94…103028 [0x01]: C0x012a.0x0.0
0x102e94…103028 ]
0x102e94…103028 }
0x103028…1031bc Dummy {f00=0x0129, f01=0x0190, f02=» 2 P IDENT DMINIT REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P*
0x1031bc…103350 Dummy {f00=0x0129, f01=0x018e, f02=»FDB:S IN THE FDB AREA z > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK ` , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS CALLED AS A PFINIT ROUTINE P* " P
0x103350…1034e4 Dummy {f00=0x0129, f01=0x0190, f02=» P EXTRN FDBSTA P EXTRN FDBEND P EXTRN CURBUF 0 P EXTRN BUFDMI F P EXTRN BUFSNR P EXTRN BUFOR r P EXTRN TASBLK P EXTRN TASQUE P EXTRN CRNQUE,CRNEND P EXTRN CRBUFL P EJECT P* P* P*
0x1034e4…103678 Dummy {f00=0x0129, f01=0x0190, f02=» P* DIV W. 2 FOR 16 K LIMIT P* ( P LDR A5,A4 2 P SRL A5,1 D P LDR A1,A6 V P SRL A1,1 h P CWR A5,A1 z " P RF(G) DMIN40 END OF FDB AREA P STR A4,A3 CHAIN P LDR A3,A4 P RB DMIN30 PDMIN40 EQU * P SUR A
0x103678…10380c Dummy {f00=0x0129, f01=0x0190, f02=»ALIZATIONS IF POWER FAIL RESTART P* ( P LD A1,INIFLG 2 P RF(Z) DMINEX H P LDKL A2,QFDBFL FDB LENGTH ^ P* $ P* CHAIN FDB:S IN THE FDB AREA P* P LDKL A3,FDBSTA P LDKL A6,FDBEND P CF A15,DMIN30 P*
0x10380c…1039a0 Dummy {f00=0x0129, f01=0x0190, f02=» P CF A15,DMIN30 P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS $ P* d P LDKL A2,/FFFE n P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 P CM BU
0x1039a0…103b34 (0, 329) Dummy {f00=0x012a, f01=0x405a, f02=»LK P CM TASQUE P* PDMINEX EQU * & P RTN A15 : P END J@ V
0x103b34…103cc8 Dummy {f00=0x012a, f01=0x2008, f02=» PDMINEX EQU * P RTN A15 " P END 2@ >TASBLK P CM TASBLK P P CM TASQUE b P* t , P* CLEAR DM FILE CODE ENTRIES IN CDTAB ~ P* P LD A2,CDTAB PDMIN60 SUK A2,4 P LDR A3,A2 P ADKL A3,CDTAB
0x103cc8…103e5c Dummy {f00=0x012a, f01=0x0190, f02=»DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CALSNO * P EXTRN DSUMOD @ . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU V P EXTRN QTJOB,GTLGRN P EXTRN FNDKEY P EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RD
0x103e5c…103ff0 Dummy {f00=0x012a, f01=0x0190, f02=»VE FROM USER TO SYSTEM AREA 0 P EXTRN MOV:SU MOVE FROM SYSTEM TO USER AREA $ P EXTRN MONMMU X , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK n P EXTRN TTB:MT MMU TABLE ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EJECT P* P*
0x103ff0…104184 Dummy {f00=0x012a, f01=0x0190, f02=»LUSIVE ACCESS BIT CAN BE EXCLUDED AT 8 P* RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0. , P* h P* r PX:A EQU 1 | PX:B EQU 0 PX:C EQU 0 PX:D EQU 1 PX:E EQU 0 P* PQNOEXA EQU X:A 6 P* INDEXED ACCEXS
0x104184…104318 Dummy {f00=0x012a, f01=0x0190, f02=»D ` PINDXAC EQU X:B 4 PRECBFZ EQU X:C INDEX RECORD BUFFER SIZE IN WORDS 4 PFLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 X 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 P* P EJECT DMTASK P* P* . P* A PROGRAM VE
0x104318…1044ac Dummy {f00=0x012a, f01=0x0190, f02=»PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. . * DSKPAG EQU 0 f * z P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* P
0x1044ac…104640 Dummy {f00=0x012a, f01=0x018e, f02=»****** ~ P* P* , PEABIT EQU /20 EA-BIT IN DWT STATUS BYTE " P* R & PVTOBLK EQU 9 VTOC BLOCKING FACTOR P* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF P* PQCL EQ
0x104640…1047d4 (0, 330) Opaque[0x194]
0x1047d4…104968 # DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2490, f03=0x0000}
0x1047d4…104968 IdxSect {
0x1047d4…104968 f00 = 0x0124 // 0x1047d4 @0x0
0x1047d4…104968 f01 = 0x0010 // 0x1047d6 @0x2
0x1047d4…104968 gno = [ // 0x1047d8 @0x4
0x1047d4…104968 [0x00]: C0x0124.0x2.0
0x1047d4…104968 [0x01]: C0x0124.0x3.0
0x1047d4…104968 [0x02]: C0x0125.0x0.0
0x1047d4…104968 [0x03]: C0x0125.0x1.0
0x1047d4…104968 [0x04]: C0x0125.0x2.0
0x1047d4…104968 [0x05]: C0x0125.0x3.0
0x1047d4…104968 [0x06]: C0x0126.0x0.0
0x1047d4…104968 [0x07]: C0x0126.0x1.0
0x1047d4…104968 ]
0x1047d4…104968 }
0x104968…104afc Dummy {f00=0x0124, f01=0x0190, f02=» 2 P IDENT DMTASS REL 9.2 79-11-16 870105040920 P : P* =3 PR 5141 B P* = 79-04-06 X P* =2 WAIT AT VTOC READ n P* REL 9.1 79-04-06 P* =1, PR 3413 P* REL 9.1 78-10-25 P P P* P* 8 P******
0x104afc…104c90 Dummy {f00=0x0124, f01=0x0190, f02=»LE CODE DISC I/O HANDLING z P* " P* , P* 6 P* @ P* J P* T 8 P**************************************************** ^ P* * P* THIS MODULE IS ACTIVATED FROM TASS P* B P* INPUT A2 = TID TASK IDENT OF DMTASK AT
0x104c90…104e24 Dummy {f00=0x0124, f01=0x0190, f02=» ASSIGNED CAN X L P* RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND D P* ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS f > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND . P* FILE-EXTENT-BASE ARE
0x104e24…104fb8 Dummy {f00=0x0124, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x104fb8…10514c Dummy {f00=0x0124, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x10514c…1052e0 Dummy {f00=0x0124, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x1052e0…105474 (0, 331) Dummy {f00=0x0124, f01=0x0190, f02=» P EXTRN ECBRL P EXTRN ECBRC P EXTRN ECBCW , P* @ P EXTRN TIODM J P EXTRN DMTGBU ^ P EXTRN DMTRBU t P EXTRN CLRBUF P EXTRN BUFSTA P EXTRN BUFSNR P EXTRN BUFDMI P* P EXTRN QFDBFL P EXTRN
0x105474…105608 Dummy {f00=0x0124, f01=0x0190, f02=»BAS P EXTRN FDBRLE P EXTRN FDBBLF " P EXTRN FDBVTO 8 P EXTRN FDBLRN N P EXTRN FDBNIF,FDBKA d & P EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO . P EXTRN FDBMEC MM
0x105608…10579c Dummy {f00=0x0124, f01=0x0190, f02=» P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB 0 P EXTRN TASFDB F P EXTRN TASVRL P EXTRN TASVLE r P EXTRN TASVRN P EXTRN TASECB P EXTRN TASFIL,TASTID,TASMXA P EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCA
0x10579c…105930 Dummy {f00=0x0124, f01=0x018e, f02=» PX:B EQU 0 4 PINDXAC EQU 00000 INDEX ACCESS FUNCTIONS WHEN = 1 P* N . P* A PROGRAM VERSION USING TOSS MMU PAGING X * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P EJECT P* P************
0x105930…105ac4 Dummy {f00=0x0124, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* , PVTFSNO EQU 8 6 PVTFXNO EQU 10 J PVTFXLE EQU 14 ` PVTFXBA EQU 18 v PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38 P*
0x105ac4…105c58 Dummy {f00=0x0124, f01=0x0190, f02=»RDS P DATA 0,0 STACK PDMTA14 EQU *-2 $ P EJECT : P* H P************** R P* DMTIOC * h P************** ~ P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WITH A
0x105c58…105dec Dummy {f00=0x0124, f01=0x0190, f02=»FF BIT 7 ONLY RETRIES P RF(Z) DMTIOX P ADKL A14,4 4 P ANK A1,/80 H $ P RF(NZ) DMT060 NEW VOLUME LOADED P SUKL A3,BUFSTA , P CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER P LDK A7,1 P ABL DMTASX DISC I/O ERROR PDMTIOX E
0x105dec…105f80 Dummy {f00=0x0124, f01=0x0190, f02=»QU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT H P CM TASMXA MASTER INDEX ADDR h P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8,TAS
0x105f80…106114 (0, 332) Dummy {f00=0x0125, f01=0x0190, f02=»DR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN ( P SUR A8,A8 NO BUFFER =3 F P ABL DMTASX f PDMT010 EQU * z P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P
0x106114…1062a8 Dummy {f00=0x0125, f01=0x0190, f02=» LDKL A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 > 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) P P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA &
0x1062a8…10643c Dummy {f00=0x0125, f01=0x0190, f02=»IT =2 P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER . P CF A14,DMTIOC I/O CHECK ` P LD A2,VLVER,A3 VERSION & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERRO
0x10643c…1065d0 Dummy {f00=0x0125, f01=0x018e, f02=»3 VTOC BASE . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH F P ST A9,TASVRL p P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6
0x1065d0…106764 Dummy {f00=0x0125, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED 0 P ST A1,TASCVO UPDATE TASCVO Z $ P LDK A7,7 TOO MANY FILE SECTIONS ~ P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFST
0x106764…1068f8 Dummy {f00=0x0125, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* * P ADKL A7,'#D' 4 P LKM J P DATA -4 V P DATA DMTASS f P LKM z P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A
0x1068f8…106a8c Dummy {f00=0x0125, f01=0x0190, f02=» LD A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS : P ADKL A3,BUFSTA ^ P ST A3,ECBBA,A8 v P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x106a8c…106c20 Dummy {f00=0x0125, f01=0x0190, f02=» $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR , PDMT135 EQU * R P ADK A3,2 SKIP CYLID f PDMT120 EQU * ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4
0x106c20…106db4 (0, 333) Dummy {f00=0x0125, f01=0x0190, f02=»AME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 , P CWR* A10,A7 @ P ABL(NE) DMT250 NO MATCH T P SUK A2,1 t . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P
0x106db4…106f48 Dummy {f00=0x0125, f01=0x0190, f02=»F(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO < P LDK A2,0 FILE EXTENT NUMBER V P RF DMT167 z . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAV
0x106f48…1070dc Dummy {f00=0x0125, f01=0x0190, f02=»1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS " P LDK A7,9 F * P ABL DMTASX MORE THAN 4 EXTENTS EXIST X PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x1070dc…107270 Dummy {f00=0x0125, f01=0x0190, f02=» P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 ( P LD A2,TASSEX,A1 B $ P RF(NZ) DMT250 NOT FIRST EXTENT Z P EJECT P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB
0x107270…107404 Dummy {f00=0x0125, f01=0x0190, f02=»A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 & P ANK A5,/01 : P RF(Z) DMT210 FREE N P LD A2,FDBEXT,A12 h P CW A2,TASVOL,A6 " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME
0x107404…107598 Dummy {f00=0x0125, f01=0x0190, f02=»DB FOUND n PDMT205 EQU * P LDK A7,5 FILE CODE USED $ P ABL DMTASX D P* X $ PDMT210 LDR* A12,A12 GET NEXT FDB b P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB
0x107598…10772c Dummy {f00=0x0125, f01=0x0190, f02=» v P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 J P ABL DMTASX NO FDB AVAILABLE ( P* INITIALIZE FDB ZERO FROM FDB+2 P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL
0x10772c…1078c0 Dummy {f00=0x0125, f01=0x0190, f02=» RB DMT233 PDMT237 EQU * P LDKL A2,/8000 & P* DEV NOT BUSY < P ST A2,DWTST,A12 T P LDKL A2,TIODM l P ST A2,DWTADR,A12 P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01
0x1078c0…107a54 (0, 334) Dummy {f00=0x0125, f01=0x0190, f02=» P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,VTBLF,A4 6 P SC A2,FDBBLF,A12 N P LC A2,VTNIF,A4 h P SC A2,FDBNIF,A12 P LD A2,VTKA,A4 P ST A2,FDBKA,A12 P LD A2,TASVRN P ST A2,FDBVTO,A12 P* P IFT M
0x107a54…107be8 Dummy {f00=0x0125, f01=0x0190, f02=» ECB IN FDB l P XIF P* P EJECT * P* 8 P* CHECK NEXT VTOC RECORD B P* d PDMT250 EQU * n P* A3 = ADR 1ST REC P* A9 = VTOC REC LGTH P ADR A3,A9 P ADK A3,1 SKIP STATUS BYTE P LDR A2,A3 P SU A2
0x107be8…107d7c Dummy {f00=0x0125, f01=0x0190, f02=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* @ PDMT300 EQU * J P LDK A3,16 ^ P SU A3,TASCXO p P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P RF(NZ) DMT3
0x107d7c…107f10 Dummy {f00=0x0125, f01=0x0190, f02=»ENDING ORDER f 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO ! P* ! P PDMT320 EQU * ! Z P* ! n @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE ! x P* ! P LD A6,TASFIL ! P RF(Z) DMT330 DATA FILE ASS ! $ P LD A6,F
0x107f10…1080a4 Dummy {f00=0x0125, f01=0x0190, f02=» OK ! P LDK A7,12 " * P RF DMTASX RECORD BUFFER IS TOO SMALL " PDMT330 EQU * " L P LDR A6,A12 " ` P* FDB ADDR " t P ADKL A6,FDBEXT " P LDK A2,0 " P LDR A5,A3 " P SRL A5,2 NUMBER OF EXTENTS " PDMT340 EQU * " P LDK A4,16 "
0x1080a4…108238 Dummy {f00=0x0125, f01=0x0190, f02=»E EXTENTS TO CHECK " ~ P* # , P* THE EXTENT SEARCHED FOR IS NOT FOUND # $ 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) # T P* # P LDR A1,A2 # P ANK A1,/FF # $ P RF(NZ) DMT370 TRY NEXT SECTION # P* # PDMT355 EQU * # P LDK A7,
0x108238…1083cc Dummy {f00=0x0125, f01=0x0190, f02=» LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 $ P ST A1,EXTDMI,A6 $ 2 P LD A1,TASXLB,A4 $ J P ST A1,EXTLEN,A6 $ b P LD A1,TASXLB+2,A4 $ z P ST A1,EXTBAS,A6 $ P ADK A6,6 $ P SUK A5,1 $ & P RF(NP) DMT500 ALL EXTENTS HANDLED $ P* $ : P*
0x1083cc…108560 Dummy {f00=0x0125, f01=0x0190, f02=» A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 % PDMT370 EQU * % 4 P ECR A1,A2 % H P ANK A1,/FF % Z P SUK A1,3 % n P RB(E) DMT355 SECTION-NO = 3 % " P ADK A1,4 INCREMENT SECTION-NO % P ECR A2,A1 EXT-NO = 0 % P RB DMT340 % $ PDMT380 ADK A2,
0x108560…1086f4 (0, 335) Dummy {f00=0x0125, f01=0x018e, f02=»CH WERE UNLOCKED BEFORE % j P* & P LDR A5,A7 & * P LDR A6,A8 SAVE & < P LDK A1,3 LOOP & T PDMTASY EQU * & j P LC A2,TASLFD,A1 FILE CODES & ~ P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK
0x1086f4…108888 Dummy {f00=0x0125, f01=0x0190, f02=» & P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 4 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' > P* ' j PDMT400 EQU * ' t P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORREC
0x108888…108a1c Dummy {f00=0x0125, f01=0x018e, f02=»DDR ' t " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( 2 ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( D P SUK A2,2 ( p PDMT405 EQU * ( P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4
0x108a1c…108bb0 Dummy {f00=0x0125, f01=0x0190, f02=» ( ~ PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) 2 P LDKL A2,/FFFE ) T " P ANRS A2,A3 CLEAR FDB USE BIT ) j P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440
0x108bb0…108d44 Dummy {f00=0x0125, f01=0x0190, f02=»UF RELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ $ P CF A15,QTJOB QUEUE CALLING TASK * N P ENB * v P LKM * P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 *
0x108d44…108ed8 Dummy {f00=0x0125, f01=0x018e, f02=» EJECT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + > < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + z P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR
0x108ed8…10906c Dummy {f00=0x0125, f01=0x0190, f02=» P SC A3,TASECB+1 , " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , B P LD A3,ECBBA,A8 , f P SUKL A3,BUFSTA , ~ " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD
0x10906c…109200 Dummy {f00=0x0125, f01=0x018e, f02=»RR A2,A1 GET MOST SIGN BIT , P ADK A2,5 - " P SRL A2,1 NO OF WORDS NEEDED - 4 P RF(Z) DMT570 WRONG SIZE - X P INH - x P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY -
0x109200…109394 (0, 336) Dummy {f00=0x0126, f01=0x0190, f02=» - | P RB(N) DMT540 ENTRY USED . P SUR A6,A2 NO OF SPARE WORDS . ( & P RB(N) DMT540 LARGER ENTRY NEEDED . L P* . v P* SUFFICIENT SPACE FOUND . P* . P LDKL A1,/8000 USED BIT . & P ORS A1,MXIND+2,A5 MARK ENTRY USED . $ P ST A3,TASMXA MAST
0x109394…109528 Dummy {f00=0x0126, f01=0x0190, f02=»T A1,2,A3 ENTRY LENGTH . P ADK A3,4 SKIP MX HEADRER / P ST A3,ECBBA,A8 BUFFER ADDR / @ P ST A1,ECBRL,A8 REQ LGTH / d . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / P CWR A1,A4 MXIND ENTRY / P RF(NL) DMT590 LAST ENTRY / P LD A3,MXIND+6,A1
0x109528…1096bc Dummy {f00=0x0126, f01=0x0190, f02=»NKL A2,/7FFF REMOVE USE BIT / P SUR A2,A6 0 $ P ORKL A2,/8000 USE BIT 0 6 P ST A2,MXIND+2,A1 0 T . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 n $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A
0x1096bc…109850 Dummy {f00=0x0126, f01=0x0190, f02=» 0 8 P* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE 1 < P* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON 1 D P* 1 PDMT550 EQU * 1 & P LDK A7,/42 SEQ READ,NOWAIT,NO EA 1 P LKM 1 P DATA -1 1 P DATA DMTAR5 1 P LKM 1 P
0x109850…1099e4 Dummy {f00=0x0126, f01=0x0190, f02=»NKL A2,/FEFF BIT 7 ONLY RETRIES 1 P RF(Z) DMT560 NO ERROR 2 ( P* 2 F " P* REMOVE THE ONLY CRN BUFFER 2 P P* 2 v P LD A4,TASFDB FDB ADDR 2 P LD A5,FDBCRL,A4 CRN BUF ADR 2 P RF(Z) DMT553 NO CRN 2 P CM FDBCRL,A4 2 P INH 2 P LD A6,C
0x1099e4…109b78 Dummy {f00=0x0126, f01=0x018e, f02=»EADY ,WHOLIE MXINDEX IS READ 2 P LDK A7,7 3 $ PDMT555 SUR A8,A8 NO BUFFER 3 6 P ABL DMTASX DISC IO ERR 3 X PDMT560 EQU * 3 x P* 3 P* RECORD READ,READ NEXRT 3 P* 3 P LD A2,ECBRL,A8 3 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB DMT550
0x109b78…109d0c Dummy {f00=0x0126, f01=0x0190, f02=» 3 P* 4 2 P* MASTER INDE X READUY. RERUN FOR INDEX FILE 4 P* 4 H P LDK A1,1 4 R P ST A1,TASFIL INDEX FILE 4 d " P LD A3,TASSPW TTAB ADR DMTASK 4 P CM TTB:TD+2,A3 DELETE ENTRY 4 P CM TTB:TD+4,A3 4 P LD A3,TASFDB FDB ADDR 4 P LDK
0x109d0c…109ea0 Dummy {f00=0x0126, f01=0x0190, f02=» ENTRY POSSIBLE 4 ~ P LDK A1,0 5 2 P* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP 5 * P ABL DMT050 ASSIGN INDEX 5 ` P EJECT 5 PDMT600 EQU * 5 P* 5 P* INDEX FILE ASSIGN 5 P* 5 P LDK A7,10 RET CODE 5 & P LD A10,TASFDD FDB ADDR
0x109ea0…10a034 (0, 337) Dummy {f00=0x0126, f01=0x0190, f02=» LC A3,DWTST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 , P LDK A3,8 MAX NO OF INDE*2 6 V PDMT620 EQU * 6 x P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(
0x10a034…10a1c8 Dummy {f00=0x0126, f01=0x0190, f02=» 6 X P* 7 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 2 P SUK A5,2 7 F " P RF(N) DMT635 ALL FDB UPPDATED 7 X P LDR A1,A10 FDB DATA 7 ~ P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF
0x10a1c8…10a35c Dummy {f00=0x0126, f01=0x0190, f02=»25 7 PDMT635 EQU * 8 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 6 P ENB ENB 8 j P LD A1,TASMXA 8 | ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A
0x10a35c…10a4f0 Dummy {f00=0x0126, f01=0x0190, f02=»IGN DATA FILE 8 & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 @ P ANKL A1,/6000 9 b P SLL A1,1 9 x $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P L
0x10a4f0…10a684 Dummy {f00=0x0126, f01=0x018e, f02=»750 9 P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : : P SUK A2,1 : T P ST A2,FDBSNR,A12 : f P LDR A1,A12 : " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR
0x10a684…10a818 Dummy {f00=0x0126, f01=0x4154, f02=» P ST A3,FDBMRN+1,A12 ; P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; * P* ; b P LD A6,FDBRLE,A12 REC LENGTH ; l P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ;
0x10a818…10a9ac Dummy {f00=0x0126, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x10a9ac…10ab40 Dummy {f00=0x0126, f01=0x0190, f02=»SET FDB FREE < PDMTA40 EQU * = * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS = ( P LDR A1,A7 NEW FDB ADDR = V P ABL(Z) DMTERX NO MORE FDBS = v P IFT INDXAC=1 = P ENB ENB = P* = 4 P* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT = P* =
0x10ab40…10acd4 (0, 338) Opaque[0x194]
0x10acd4…10ae68 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c60, f03=0x0000}
0x10acd4…10ae68 IdxSect {
0x10acd4…10ae68 f00 = 0x00e3 // 0x10acd4 @0x0
0x10acd4…10ae68 f01 = 0x0008 // 0x10acd6 @0x2
0x10acd4…10ae68 gno = [ // 0x10acd8 @0x4
0x10acd4…10ae68 [0x00]: C0x00e3.0x0.0
0x10acd4…10ae68 [0x01]: C0x00e3.0x1.0
0x10acd4…10ae68 [0x02]: C0x00e3.0x2.0
0x10acd4…10ae68 [0x03]: C0x00e3.0x3.0
0x10acd4…10ae68 ]
0x10acd4…10ae68 }
0x10ae68…10affc Dummy {f00=0x00e3, f01=0x0190, f02=» 0 P IDENT DMBUF REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P
0x10affc…10b190 Dummy {f00=0x00e3, f01=0x018e, f02=»FOR DMTASK v P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* N L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL X P* P* MAX VALUE OF QNBUF IS 16 P* > P* AT LEAST TWO BUFFERS PER DISC DRIVE
0x10b190…10b324 Dummy {f00=0x00e3, f01=0x018e, f02=» ( P ENTRY CURBUF CURRENT BUFFER POINTER P ENTRY BUFLNK BUFFER LINK 4 P ENTRY BUFDMI DMTASK IDENT V P ENTRY BUFFC FILE CODE x P ENTRY BUFSNR SECTOR NO P ENTRY BUFOR ORDER * P ENTRY BUFSTA DATA AREA START ADDRESS P ENTRY DMT
0x10b324…10b4b8 Dummy {f00=0x00e3, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00002 : P* R P* PCURBUF DATA BUF1 f PNEWBUF DATA 0 ~ P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x10b4b8…10b64c Dummy {f00=0x00e3, f01=0x0190, f02=» LRU-WORD " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 8 P RES 205 d P* t P* ~ P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x10b64c…10b7e0 Dummy {f00=0x00e3, f01=0x018e, f02=»NBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 " P DATA 0,0,0 8 P RES 205 L P XIF P* h P* r P IFT QNBUF=3 | PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 D
0x10b7e0…10b974 (0, 339) Dummy {f00=0x00e3, f01=0x0190, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 , P IFF QNBUF=3 @ P IFF QNBUF=4 T PBUF5 DATA BUF6 h P DATA 0,0,0 ~ P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P*
0x10b974…10bb08 Dummy {f00=0x00e3, f01=0x018e, f02=»0 P RES 205 P XIF P* & P* 0 P IFT QNBUF=6 : PBUF7 EQU BUF1 N P XIF d P* p P* z P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 PBUF7 DATA BU
0x10bb08…10bc9c Dummy {f00=0x00e3, f01=0x018e, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N P IFF QNBUF=5 b P IFF QNBUF=6 v P IFF QNBUF=7 PBUF8 DATA BUF9 P DATA 0,0,0 P RES 205 P XIF P* P* P IFT QNBUF=8
0x10bc9c…10be30 Dummy {f00=0x00e3, f01=0x0190, f02=» P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 , P IFF QNBUF=8 @ PBUF9 DATA BUF10 T P DATA 0,0,0 l P RES 205 P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1
0x10be30…10bfc4 Dummy {f00=0x00e3, f01=0x0190, f02=»=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 6 P RES 205 J P XIF Z P IFT QNBUF=10 f PBUF11 EQU BUF1 | P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF Q
0x10bfc4…10c158 Dummy {f00=0x00e3, f01=0x0190, f02=» P DATA 0,0,0 P RES 205 P XIF ( P IFT QNBUF=11 4 PBUF12 EQU BUF1 J P XIF ` P* l P* v P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7
0x10c158…10c2ec Dummy {f00=0x00e3, f01=0x018e, f02=» 205 P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 . P XIF D P* P P* Z P IFF QNBUF=1 d P IFF QNBUF=2 x P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF
0x10c2ec…10c480 Dummy {f00=0x00e3, f01=0x0190, f02=» P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 * P XIF @ P* L P* V P IFF QNBUF=1 ` P IFF QNBUF=2 t P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNB
0x10c480…10c614 (0, 340) Dummy {f00=0x00e3, f01=0x018e, f02=» P RES 205 P XIF P IFT QNBUF=14 $ PBUF15 EQU BUF1 : P XIF P P* P* f P IFF QNBUF=1 p P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8
0x10c614…10c7a8 Dummy {f00=0x00e3, f01=0x0190, f02=» PBUF15 DATA BUF16 P DATA 0,0,0 P RES 205 0 P XIF @ P IFT QNBUF=15 L PBUF16 EQU BUF1 b P XIF x P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6
0x10c7a8…10c93c Dummy {f00=0x00e3, f01=0x0190, f02=»FF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15 * PBUF16 DATA BUF1 @ P DATA 0,0,0 X P RES 205 l P XIF | P EJECT P* P************** P* DMTGBU * P************** P* * P* ENTRY DMTGBU GET A D
0x10c93c…10cad0 Dummy {f00=0x00e3, f01=0x0190, f02=»ER t P* $ P* OUTPUT A3 = BUFFER ADDRESS J P* SKIP RETURN (+2) IF SECTOR MUST BE READ INTO BUFFER AT A3 < , P* A5 AND A7 WILL BE DESTROYED P* 8 P* CURBUF, BUFDMI, -FC AND -SNR WILL BE SET < P*
0x10cad0…10cc64 Dummy {f00=0x00e3, f01=0x0190, f02=»* SEARCHED FOR IS ALREADY PRESENT IN ANY FREE BUFFER. F P* IF THIS SECTOR IS NOT FOUND A FREE SECTOR MUS BE FOUND AND IN @ P* P* P* PDMTGBU EQU * P INH INH P* 4 P* CHECK IF THIS SECTOR IS FOUND IN ANY BUFFER
0x10cc64…10cdf8 Dummy {f00=0x00e3, f01=0x0190, f02=») DMT020 WRONG VOLUME P CW A2,BUFSNR,A3 P RF(E) DMT050 SAME SECTOR NO 6 PDMT020 EQU * Z P LDK A7,/01 n & P AN A7,BUFLNK,A3 STATUS IN BIT 15 P RF(NZ) DMT041 USED P IM BUFOR,A3 MAKE OLDER P RF(P) DMT030 P LDK A7,/F
0x10cdf8…10cf8c Dummy {f00=0x00e3, f01=0x0190, f02=»T A3,NEWBUF PDMT041 EQU * P CW A3,CURBUF ( * P RB(NE) DMT010 MORE BUFFERS TO SERARCH > P LDR A5,A5 l P RF(NZ) DMT043 BUFFER FOUND ~ P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PDMT043 LD A3,NEWBUF P*
0x10cf8c…10d120 Dummy {f00=0x00e3, f01=0x0190, f02=» t " P ST A2,BUFSNR,A3 SECTOR NUMBER PDMT050 EQU * . " P CM BUFOR,A3 RESET OLD-COUNTER B P ST A3,CURBUF h P LDK A7,/01 ~ ( P ORRS A7,A3 SET STATUS USED BIT 15 P ENB ENB P RTN A14 P EJECT P* P**************
0x10d120…10d2b4 (0, 341) Dummy {f00=0x00e3, f01=0x0190, f02=» BUFFER ADDRESS P* A2 IS DESTROYED P* < P* F PDMTRBU EQU * P P LDKL A2,/FFFE d P ANRS A2,A3 SET OFF BIT 15 z P RTN A14 P* P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x10d2b4…10d448 Dummy {f00=0x00e3, f01=0x40b4, f02=» P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE 8 PDMT750 CW A3,CURBUF T P RB(NE) DMT700 MORE BUFFERS p P RTN A14 P END @ P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x10d448…10d5dc Dummy {f00=0x00e3, f01=0x2008, f02=» P* DMTRBU * P************** " P* 8 . P* ENTRY DMTRBU RELEASE A DISC BUFFER B P* t $ P* INPUT A3 = BUFFER ADDRESS ~ P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2,/FFFE P
0x10d5dc…10d770 Dummy {f00=0x00e3, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x10d770…10d904 Dummy {f00=0x00e3, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x10d904…10da98 Dummy {f00=0x00e3, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x10da98…10dc2c Dummy {f00=0x00e3, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x10dc2c…10ddc0 Dummy {f00=0x00e3, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x10ddc0…10df54 (0, 342) Opaque[0x194]
0x10df54…10e0e8 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d78, f03=0x0000}
0x10df54…10e0e8 IdxSect {
0x10df54…10e0e8 f00 = 0x00eb // 0x10df54 @0x0
0x10df54…10e0e8 f01 = 0x0004 // 0x10df56 @0x2
0x10df54…10e0e8 gno = [ // 0x10df58 @0x4
0x10df54…10e0e8 [0x00]: C0x00eb.0x3.0
0x10df54…10e0e8 [0x01]: C0x00ec.0x0.0
0x10df54…10e0e8 ]
0x10df54…10e0e8 }
0x10e0e8…10e27c Dummy {f00=0x00eb, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x10e27c…10e410 Dummy {f00=0x00eb, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x10e410…10e5a4 Dummy {f00=0x00eb, f01=0x0190, f02=»REA r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 2 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS < 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER | P* PX:B EQU 50 " PCRNBAR EQU 00120 CURRENCY AREA P* P*
0x10e5a4…10e738 Dummy {f00=0x00eb, f01=0x0190, f02=» P* PQFDBAR EQU 00192 P* & PX:D EQU 96 0 ( PQFDBFL EQU 00096 FDB FIX PART LENGTH B P* n P EJECT x P* PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNE
0x10e738…10e8cc Dummy {f00=0x00eb, f01=0x410a, f02=» IFF MXSIZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 B P XIF p PMXINDE EQU * END INDEX INDEX | 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @
0x10e8cc…10ea60 Dummy {f00=0x00eb, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x10ea60…10ebf4 (0, 343) Dummy {f00=0x00ec, f01=0x0190, f02=»1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN $ P SUR A8,A8 NO BUFFER =3 B P ABL DMTASX b PDMT010 EQU * v P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF
0x10ebf4…10ed88 Dummy {f00=0x00ec, f01=0x0190, f02=»L A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 : 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) L P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P S
0x10ed88…10ef1c Dummy {f00=0x00ec, f01=0x0190, f02=»2 ~ P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER * P CF A14,DMTIOC I/O CHECK P LD A2,VLVER,A3 VERSION | & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERROR RE
0x10ef1c…10f0b0 Dummy {f00=0x00ec, f01=0x018e, f02=»OC BASE ~ . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH B P ST A9,TASVRL l P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6,TAS
0x10f0b0…10f244 Dummy {f00=0x00ec, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED , P ST A1,TASCVO UPDATE TASCVO V $ P LDK A7,7 TOO MANY FILE SECTIONS z P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x10f244…10f3d8 Dummy {f00=0x00ec, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* & P ADKL A7,'#D' 0 P LKM F P DATA -4 R P DATA DMTASS b P LKM v P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A8
0x10f3d8…10f56c Dummy {f00=0x00ec, f01=0x0190, f02=»A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS 6 P ADKL A3,BUFSTA Z P ST A3,ECBBA,A8 r P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x10f56c…10f700 Dummy {f00=0x00ec, f01=0x0190, f02=» RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR ( PDMT135 EQU * N P ADK A3,2 SKIP CYLID b PDMT120 EQU * ~ ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 P
0x10f700…10f894 (0, 344) Opaque[0x194]
0x10f894…10fa28 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d70, f03=0x0000}
0x10f894…10fa28 IdxSect {
0x10f894…10fa28 f00 = 0x00eb // 0x10f894 @0x0
0x10f894…10fa28 f01 = 0x0002 // 0x10f896 @0x2
0x10f894…10fa28 gno = [ // 0x10f898 @0x4
0x10f894…10fa28 [0x00]: C0x00eb.0x2.0
0x10f894…10fa28 ]
0x10f894…10fa28 }
0x10fa28…10fbbc Dummy {f00=0x00eb, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x10fbbc…10fd50 Dummy {f00=0x00eb, f01=0x40e8, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P* P* P* LEVE
0x10fd50…10fee4 Dummy {f00=0x00eb, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P*
0x10fee4…110078 Dummy {f00=0x00eb, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x110078…11020c Dummy {f00=0x00eb, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x11020c…1103a0 Dummy {f00=0x00eb, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x1103a0…110534 (0, 345) Opaque[0x194]
0x110534…1106c8 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25e8, f03=0x0000}
0x110534…1106c8 IdxSect {
0x110534…1106c8 f00 = 0x012f // 0x110534 @0x0
0x110534…1106c8 f01 = 0x000c // 0x110536 @0x2
0x110534…1106c8 gno = [ // 0x110538 @0x4
0x110534…1106c8 [0x00]: C0x012f.0x1.0
0x110534…1106c8 [0x01]: C0x012f.0x2.0
0x110534…1106c8 [0x02]: C0x012f.0x3.0
0x110534…1106c8 [0x03]: C0x0130.0x0.0
0x110534…1106c8 [0x04]: C0x0130.0x1.0
0x110534…1106c8 [0x05]: C0x0130.0x2.0
0x110534…1106c8 ]
0x110534…1106c8 }
0x1106c8…11085c Dummy {f00=0x012f, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* P*
0x11085c…1109f0 Dummy {f00=0x012f, f01=0x0190, f02=»ROM :***************** r P* P* DMTASK ( P* : P*************** D P* ENTRIES * P*************** t P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR P ENTRY FNDKEY P ENTRY CRNUPD P* P**********
0x1109f0…110b84 Dummy {f00=0x012f, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x110b84…110d18 Dummy {f00=0x012f, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x110d18…110eac Dummy {f00=0x012f, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x110eac…111040 Dummy {f00=0x012f, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x111040…1111d4 (0, 346) Dummy {f00=0x012f, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x1111d4…111368 Dummy {f00=0x012f, f01=0x0190, f02=» v . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL P* : P* SEARCHED KEY GREATER D P* d P LDR A10,A10 M n P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CEIL) PFND030 EQU * P LDR A10,A7 M=M/2 FLOOR P RB FND020
0x111368…1114fc Dummy {f00=0x012f, f01=0x0190, f02=»D045 EQU * NO MASTER INDEX P LDK A1,0 " P LDK A2,1 REC NR 1 4 P RF FND070 N PFND050 EQU * ` P ADR* A1,A5 ARDR NEXT ENTRY t PFND060 EQU * P LDR A3,A1 ENTRY ADR P SUK A3,3 P ADR* A3,A5 ADR REC NO P* P* MO
0x1114fc…111690 Dummy {f00=0x012f, f01=0x0190, f02=»2,A2 P LCR A2,A3 PFND070 EQU * P RTN A14 2 P EJECT B 8 P****DESCRIPTION************************************* P P* D P* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE P* TERMINATED WITH A /EE. P* 8
0x111690…111824 Dummy {f00=0x012f, f01=0x0190, f02=» * P* A6 = MAX NO OF CAHARACTERS IN KEY 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY 2 P* h P* CF A14,CHKKEY r P* 8 P****EXIT PARAMETERS********************************* P* : P* A3 = 0 WHEN SEARCED KEY IS CONTAINED I
0x111824…1119b8 Dummy {f00=0x012f, f01=0x0190, f02=»CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY x " P* A6 = MAX NO OF CHAR IN KEY : P* ` 8 P****USED REGISTERS********************************** j P* P* A2-A4,A6-A7 < P******************************************************** P
0x1119b8…111b4c Dummy {f00=0x012f, f01=0x0190, f02=»CR A4,A3 SEARCED KEY CHAR P CCK A4,/EE00 " " P RF(E) CHK060 END OF KEY CHAR 8 P CCR A4,A2 SC=EC? ^ P RF(G) CHK100 SC GT TH EC x " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL)
0x111b4c…111ce0 Dummy {f00=0x012f, f01=0x0190, f02=» LDK A3,0 FOUND P RF CHK140 PCHK120 EQU * * $ P LDKL A3,-1 SEARCHED KEY SMALLER > P RF CHK140 f PCHK100 EQU * x $ P LDK A3,1 SEARCHED KEY SGREATER PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*******************
0x111ce0…111e74 (0, 347) Dummy {f00=0x012f, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x111e74…112008 Dummy {f00=0x012f, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x112008…11219c Dummy {f00=0x012f, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x11219c…112330 Dummy {f00=0x012f, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x112330…1124c4 Dummy {f00=0x012f, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x1124c4…112658 Dummy {f00=0x012f, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x112658…1127ec Dummy {f00=0x012f, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x1127ec…112980 Dummy {f00=0x012f, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x112980…112b14 (0, 348) Dummy {f00=0x0130, f01=0x0190, f02=» NO v P LDR A1,A2 P LDR A2,A3 P LDK A6,0 0 P LDK A7,1 B P CF A14,ADDMOD NEXT REC NO T P LDR A6,A5 RESTORE FDB ADDR v * P CF A14,CALSNO GET NEXT REC ADDR PHYS P LDR A8,A13 $ P LDR A1,A1 CHECK EN D OF MEDIUM P RF(
0x112b14…112ca8 Dummy {f00=0x0130, f01=0x0190, f02=» x " P CF A14,DMTRBU RELEASE BUFFER P LDR A1,A6 FDB ADDR . P RB RDN040 NEXT SECTOR J P* h P* EXIT r P* PRDN900 EQU * P LDR A5,A1 RET CODE P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO
0x112ca8…112e3c Dummy {f00=0x0130, f01=0x0190, f02=»ER ADDR PRDN940 EQU * P LD A6,2,A14 $ P ADKL A14,4 8 P LDR* A7,A14 L PRDN950 EQU * ` P RTN A14 t P EJECT 8 P****DESCRIPTION************************************* P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD
0x112e3c…112fd0 Dummy {f00=0x0130, f01=0x0190, f02=»ENTRY PARAMETERS******************************** P* 8 P* A1 = FDB ADDRESS B P* A8 = SEARCH KEY ADDR ^ & P* A11 = NO OF CHARACTERS IN KEY ~ " P* A13= PHYSICAL ECB ADDRESS P* 8 P****EXIT PARAMETERS*****************************
0x112fd0…113164 Dummy {f00=0x0130, f01=0x0190, f02=» 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND . P* = RETURN CODE WHEN KEY IS NOT FOUND : 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER l P* A3 = BUFFER ADDRESS & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARAC
0x113164…1132f8 Dummy {f00=0x0130, f01=0x0190, f02=»**** ` P* , P* A1 - A11,A13 + 4 WORDS ON A14 STACK P* F : P****************************************************** P P EJECT PFNDKEY EQU * P* & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF M
0x1132f8…11348c Dummy {f00=0x0130, f01=0x0190, f02=» GET KEY ENTRY IN MASTER INDEX P LD A6,8,A14 FDB ADDR & P CF A14,CALSNO GET PHYS ADDR D P LDR A1,A1 h P RF(NZ) FKY900 ERROR z P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9
0x11348c…113620 Dummy {f00=0x0130, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x113620…1137b4 (0, 349) Dummy {f00=0x0130, f01=0x0190, f02=» P RF(E) FKY200 USED RECORD P* & & P* NO MORE RECORDS IN THIS SECTOR 0 P* Z * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET d P LD A4,FDBMRO,A1 & P ST A4,FDBRRO,A1 LAST REC IN SECT P* P* *CHECK IF EOF P* P LDR
0x1137b4…113948 Dummy {f00=0x0130, f01=0x0190, f02=»N,A1 P RB(L) FKY100 NOT EOF P RF(G) FKY180 EOF * P CW A3,FDBLRN+1,A1 D P RB(L) FKY100 NOT EOF ^ PFKY180 EQU * | P* P* EOF IS IN THIS SECTOR P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR
0x113948…113adc Dummy {f00=0x0130, f01=0x0190, f02=» P LD A3,6,A14 SEARCH KEY ADDR P CF A14,CHKKEY COMPARE KEYS , P LDR A3,A3 P & P RF(P) FKY840 SEARCHED KEY GREATER b " P RF(N) FKY850 SEARCH KEY LESS P RF FKY870 KEY FOUNFD PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P
0x113adc…113c70 Dummy {f00=0x0130, f01=0x0190, f02=» THAT HAS BEEN CHECKED FOR THIS KEY . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! 0 P RB FKY100 NEXT KEY ! b PFKY850 EQU * ! ~ P LDKL A2,/4000 KEY NOT FOUND ! P RF FKY950 ! PFKY870 EQU * ! P LDK A2,0 KEY FOUND ! P RF FKY950 !
0x113c70…113e04 Dummy {f00=0x0130, f01=0x0190, f02=» P ADKL A14,8 RESTORE STACK " P LDR* A1,A14 FDB ADDR " & P LDR A3,A9 BUFFER ADDR " D P RTN A14 " b P EJECT " r P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX " P* RECORDS ARE UPDATED " P* " P* IN
0x113e04…113f98 Dummy {f00=0x0130, f01=0x0190, f02=»2 = ADD PARAMETER +1, -1 " P* # $ P* USED REGISTERS: # . P* A1 -A12 # J P* # ^ P* OUT: # h P* A5 = FDB ADDR INDEX # x P* A10,A11 = UNCHANGED # P* # PCRNUPD EQU * # P STR A12,A14 # P SUKL A14,2 # $ P LD A12,FD
0x113f98…11412c Dummy {f00=0x0130, f01=0x0190, f02=»F(Z) CRU900 END OF LINK # P LC A7,FDBECB+1,A5 FILE CODE $ P CC A7,CRNCIF,A12 $ D P RB(NE) CRU100 WRONG FC $ ^ P CC A10,CRNCIF+1,A12 $ ~ P RB(G) CRU100 $ P RF(L) CRU200 $ P CW A11,CRNCIF+2,A12 $ P RB(G) CRU100 $ PCRU200 EQU * $
0x11412c…1142c0 Dummy {f00=0x0130, f01=0x018e, f02=» * $ P* % P* UPDATE CRN % P* % * P LD A7,2,A14 ADD PARAM % 4 P LDR A6,A7 % R P RF(N) CRU230 -1 % d P LDK A6,0 % | PCRU230 EQU * % P ANKL A7,/7FFF % P LDK A1,0 % P LC A1,CRNCIF+1,A12 % P LD A2,CRNCIF+2,A12 % P CF A1
0x1142c0…114454 (0, 350) Dummy {f00=0x0130, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x114454…1145e8 Dummy {f00=0x0130, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x1145e8…11477c Dummy {f00=0x0130, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x11477c…114910 Dummy {f00=0x0130, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x114910…114aa4 Dummy {f00=0x0130, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x114aa4…114c38 Dummy {f00=0x0130, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x114c38…114dcc Dummy {f00=0x0130, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x114dcc…114f60 Dummy {f00=0x0130, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x114f60…1150f4 (0, 351) Opaque[0x194]
0x1150f4…115288 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2620, f03=0x0000}
0x1150f4…115288 IdxSect {
0x1150f4…115288 f00 = 0x0131 // 0x1150f4 @0x0
0x1150f4…115288 f01 = 0x0004 // 0x1150f6 @0x2
0x1150f4…115288 gno = [ // 0x1150f8 @0x4
0x1150f4…115288 [0x00]: C0x0131.0x0.0
0x1150f4…115288 [0x01]: C0x0131.0x1.0
0x1150f4…115288 ]
0x1150f4…115288 }
0x115288…11541c Dummy {f00=0x0131, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x11541c…1155b0 Dummy {f00=0x0131, f01=0x0190, f02=»CTION ON THE ALPHA ^ P* COMPUTER P*CALLING SEQUENCE: , $ P* A1-A2 = ARG1 F $ P* AG-A7 = ARG2 n P* CF A14,ADDMOD & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 A
0x1155b0…115744 Dummy {f00=0x0131, f01=0x0190, f02=»NDITIONAL ASSEMBLY P* . P***************************************** $ P* V 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P EJECT PADDMOD
0x115744…1158d8 Dummy {f00=0x0131, f01=0x0190, f02=».L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 8 P RF(3) OVER1 X 0 PNOVER ADR A1,A6 * NO OVERFLOW x P RF(1) END1 P RF(2) END2 P RF(3) END3 PNO
0x1158d8…115a6c Dummy {f00=0x0131, f01=0x018e, f02=» A1,1 P RF(3) OVER3 P RB(7) NOVER 0 POVER3 ADR A1,A6 P P RF(2) END3 p P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 P XIF =1 P IFT CPU852=
0x115a6c…115c00 Dummy {f00=0x0131, f01=0x4184, f02=» t PEND2 ADK A3,/80 PEND1 ADK A3,/80 * B PEND0 SLL A3,1 ********************************** L P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S
0x115c00…115d94 (0, 352) Dummy {f00=0x0131, f01=0x2008, f02=» ANK.L A3,/0300 P LDK.L A4,/FCFF * P AN.S A4,2,A14 L B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM n P RTN A14 P END @ D1 P RB(7) NO
0x115d94…115f28 Dummy {f00=0x0131, f01=0x0002, f02=»
0x115f28…1160bc Dummy {f00=0x0131, f01=0x0190, f02=» 0 P IDENT DVTDY REL 9.1 79-05-23 870105040910 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x1160bc…116250 Dummy {f00=0x0131, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x116250…1163e4 Dummy {f00=0x0131, f01=0x4150, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER ( P DATA /101 CURSOR POINTER F ( P DATA /ABC LEFT BYTE=NUMBER OF LINES h " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0
0x1163e4…116578 Dummy {f00=0x0131, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x116578…11670c Dummy {f00=0x0131, f01=0x0190, f02=»K 3 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 4 P CF A5,FD:REA 4 N P ORS A3,DWTRCW,A6 4 d P ANK A3,1 4 ~ , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED 4 P LD A2,DWTA3,A6 INDEX MASK 4 , P XRS A2,DWTLC,A6 INDICATE UNLOCK IN DW
0x11670c…1168a0 Dummy {f00=0x0131, f01=0x0190, f02=»UNL:RC ORS A3,DWTRCW,A6 4 P ANK A3,/7 FATAL ERROR? 5 P RB(NZ) UNL:80 ENDIO 5 @ P RTN A5 5 P XIF 5 l P IFT IBM=1 5 x P EJECT DRFD01 5 P* 5 P******************* 5 P* SEQUENTIAL READ * 5 P******************* 5 P* 5
0x1168a0…116a34 (0, 353) Opaque[0x194]
0x116a34…116bc8 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2638, f03=0x0000}
0x116a34…116bc8 IdxSect {
0x116a34…116bc8 f00 = 0x0131 // 0x116a34 @0x0
0x116a34…116bc8 f01 = 0x0004 // 0x116a36 @0x2
0x116a34…116bc8 gno = [ // 0x116a38 @0x4
0x116a34…116bc8 [0x00]: C0x0131.0x3.0
0x116a34…116bc8 [0x01]: C0x0132.0x0.0
0x116a34…116bc8 ]
0x116a34…116bc8 }
0x116bc8…116d5c Dummy {f00=0x0131, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x116d5c…116ef0 Dummy {f00=0x0131, f01=0x0190, f02=»STRUCTION ON THE ALPHA ^ P*COMPUTER P*CALLING SEQUENCE 0 $ P* A1-A2 = ARG1 J $ P* A6-A7 = ARG2 r P* CF A14,DSUMOD & P*RETURN: RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A
0x116ef0…117084 Dummy {f00=0x0131, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P EJECT PDS
0x117084…117218 Dummy {f00=0x0131, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' 8 P ANK.L A2,/7FFF P ADK A7,1 ~ P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P RF(7)
0x117218…1173ac Dummy {f00=0x0131, f01=0x0190, f02=» z P RF(2) END2 P RF(3) END3 & P ADK A2,0 D P RF(0) END0 b P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P
0x1173ac…117540 Dummy {f00=0x0131, f01=0x0190, f02=»VER2 | P XIF =1 P IFT CPU852=0 6813 =1 P RF(0) END0 =1 < P RF(1) END1 =1 T P RF(2) END2 =1 l P XIF =1 PEND3 ADK A3,/80 PEND2 ADK A3,/80 PEND1 ADK A3,/80 F PEND0 SLL
0x117540…1176d4 (0, 354) Dummy {f00=0x0132, f01=0x40a8, f02=» AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P* =1 b P RTN A14 r P END @
0x1176d4…117868 Dummy {f00=0x0132, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P A
0x117868…1179fc Dummy {f00=0x0132, f01=0x0190, f02=» 2 PPROUT EQU /20 RETURN CODE. END OF JOURNAL TAPE P* : P* D 0 PVOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST N 2 PEOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. @ PVOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /40
0x1179fc…117b90 Dummy {f00=0x0132, f01=0x0190, f02=»EQU /03 LAST DUMMY , PREMOT EQU /01 RESET PRINT BUFFER REMOTE * PTAB EQU /11 TABULATION CHAR IN BUFFER J PCR1 EQU /0D CR JOURNAL TAPE x PLF1 EQU /18 LF JOURNAL TAPE . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK PLF2 EQU /19 LF TALLY R
0x117b90…117d24 Dummy {f00=0x0132, f01=0x0190, f02=»EQU /1A WAIT FOR INSERTION OF VOUCHER/PASSBOOK ( PREL EQU /1B RELEASE VOUCHER/PASSBOOK 6 " PAPH EQU /1D ATTACH PRINT HEAD b " PRPH EQU /1E RETURN PRINT HEAD 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE P* P* P**************
0x117d24…117eb8 Dummy {f00=0x0132, f01=0x0190, f02=»ART h P* P IFT MMUPAG=0 PSTART EQU DWTDRD , P XIF D P* P P IFT MMUPAG=1 Z PSTART EQU DWTDRD+4 p P XIF P* . PDWTRLN EQU START+/12 REQUESTED LINE NUMBER , PDWTALN EQU START+/13 ACTUAL LINE NUMBER P*
0x117eb8…11804c Dummy {f00=0x0132, f01=0x0190, f02=»1,APH t P IFT CUTPER=0 PBUF2 DATA /0382 STX $ P XIF @ P IFT CUTPER=1 L PBUF2 DATA /0482 STX b P XIF ~ $ P DATA /091D,/2000 CR2,APH,SPACE & PBUF3 DATA /0382,/091D STX,CR2,APH 4 PBUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,ST
0x11804c…1181e0 Dummy {f00=0x0132, f01=0x0190, f02=»FER SIZE | P DATA 2 DEVICE INDEX PTPAD EQU * ADDRESS BLOCK , P DATA ACTP ACTIVATIONDRIVER L " P DATA 0 ABORT ROUTINE ADDRESS p P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLESS POINT
0x1181e0…118374 (0, 355) Opaque[0x194]
0x118374…118508 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2650, f03=0x0000}
0x118374…118508 IdxSect {
0x118374…118508 f00 = 0x0132 // 0x118374 @0x0
0x118374…118508 f01 = 0x0004 // 0x118376 @0x2
0x118374…118508 gno = [ // 0x118378 @0x4
0x118374…118508 [0x00]: C0x0132.0x2.0
0x118374…118508 [0x01]: C0x0132.0x3.0
0x118374…118508 ]
0x118374…118508 }
0x118508…11869c Dummy {f00=0x0132, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITIONS B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x11869c…118830 Dummy {f00=0x0132, f01=0x0190, f02=»N THE ALPLA COMPUTER ^ P* CALLING SEQUENCE: ( P* LD A6,ARG1 8 ( P* LD A7,ARG1 d P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2 0 P* REGISTERS A3,A4,A6,A7, ARE CRU
0x118830…1189c4 Dummy {f00=0x0132, f01=0x0190, f02=»L ASSEMBLY P* . P***************************************** P* N 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION X . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P EJECT PMPYMOD EQU *
0x1189c4…118b58 Dummy {f00=0x0132, f01=0x0190, f02=»A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT ~ P CWR A3,A6 8 P RF(4) SUITE X P CWR A3,A7 x P RF(0) END3 < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR
0x118b58…118cec Dummy {f00=0x0132, f01=0x0190, f02=»A3,0 ~ P LDK A4,15 P ADK A6,0 , P RF(0) END0 J P RF(6) ARG1PS h 0 P ADK A3,1 *ARG1 NEGATIVE P C1R A6,A6 P ADK A6,1 PARG1PS ADK
0x118cec…118e80 Dummy {f00=0x0132, f01=0x0190, f02=» C1R A7,A7 P ADK A7,1 P RF(3) CASSPE 8 PARG2PS SRC A7,1 X P RF(6) NOVER1 v P ADR A1,A6 PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVE
0x118e80…119014 (0, 356) Dummy {f00=0x0132, f01=0x0190, f02=» 4 PNOVER3 ADK A3,0 *END* RESTORE SI=N P RF(0) END1 < P C1R A1,A1 Z P C1R A2,A2 z P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN T
0x119014…1191a8 Dummy {f00=0x0132, f01=0x0190, f02=»A1,1 ~ PNOVER4 ANK.L A2,/7FFF P RF(7) END2 . P XIF =1 L P IFT CPU852=0 6813 =1 ^ P RF(0) END0 =1 | P RF(1) END1 =1 P RF(2) END2 =1 P XIF =1 PEND3 ADK A3,/81 PEND2 ADK
0x1191a8…11933c Dummy {f00=0x0132, f01=0x4168, f02=» v P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM * P* =1 p P RTN A14 P IFT CPU852=1 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P*
0x11933c…1194d0 Dummy {f00=0x0132, f01=0x2008, f02=» 4 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P* *AND A1= A6 P P RB(7) NOVER3 P END @
0x1194d0…119664 Dummy {f00=0x0132, f01=0x0190, f02=» AFTER LAST DUMMY CHARACTER ! P* " $ PTPTST EQU * " . . P SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ? " B P RF(NZ) TST010 NO " t $ PTST005 ANK A2,VOIN VOUCHER OUT ? " P RF(NZ) ENDIO NO " P RF TST015 YES " P* " PTST010 SUK A7,4 " P I
0x119664…1197f8 Dummy {f00=0x0132, f01=0x018e, f02=»AL " l PTST012 EQU * # P XIF # & P ANK A2,EOJT END OF JOURNAL TAPE? # * $ P RF(NZ) ENDIO NO: PERFORM ENDIO # T ( PTST015 ORK A1,PROUT SET RETURN CODE: # | ( P END OF JOURNAL TAPE, VOUCHER OUT # P* # P* # , P* PERFORM END I/O AND GO TO DI
0x1197f8…11998c Dummy {f00=0x0132, f01=0x018e, f02=» # P IFT CUTPER=1 $ PTST020 SUK A7,16 $ " P RB(L) ENDIO VOUCHER/PASSBOOK $ 6 P SUK A7,4 $ P RB(G) ENDIO GRASP,RELEASE $ n P RB TST012 CUT,PERFORATE $ P XIF $ P EJECT $ P* $ P* $ P* $ $ P* ORDER 06 : PRINT TALLY ROLL
0x11998c…119b20 Dummy {f00=0x0132, f01=0x0190, f02=» PTP410 EQU * % P LDKL A1,VOCHA % @ P ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED % . P RB TP210 % r P* % P EJECT % P* % P* % P* % * P* ORDER 06 : WRITE VOUCHER/PASSBOOK % * P* OB : POSITION LIFT AND
0x119b20…119cb4 (0, 357) Opaque[0x194]
0x119cb4…119e48 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2668, f03=0x0000}
0x119cb4…119e48 IdxSect {
0x119cb4…119e48 f00 = 0x0133 // 0x119cb4 @0x0
0x119cb4…119e48 f01 = 0x0004 // 0x119cb6 @0x2
0x119cb4…119e48 gno = [ // 0x119cb8 @0x4
0x119cb4…119e48 [0x00]: C0x0133.0x1.0
0x119cb4…119e48 [0x01]: C0x0133.0x2.0
0x119cb4…119e48 ]
0x119cb4…119e48 }
0x119e48…119fdc Dummy {f00=0x0133, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 9.2 79-11-16 870105040920 P : P* =1 RET COND B P* Z 8 P**************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x119fdc…11a170 Dummy {f00=0x0133, f01=0x018e, f02=»A COMPUTER V P* CALLING SEQUENCE & P* A1-A2= DIVIDEND , $ P* A6 = DIVISOR V P* CF A14,DIVMOD ~ B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT 6 P* CAUTION : REGISTERS A3,A4,A6,A
0x11a170…11a304 Dummy {f00=0x0133, f01=0x0190, f02=» P* CONDITIONAL ASSEMBLY P* " . P***************************************** , P* ^ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P EJECT
0x11a304…11a498 Dummy {f00=0x0133, f01=0x0190, f02=»,A1 SAVE DIVIDEND SIGN | P* =1 $ P ADK A6,0 4 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW R P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0)
0x11a498…11a62c Dummy {f00=0x0133, f01=0x018e, f02=» P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND $ P RF(6) DIVENP 8 P ADK A3,1 * DIVIDEND IS NEGATIVE | P C1R A1,A1 P C1R A2,A2 P ANK.L
0x11a62c…11a7c0 Dummy {f00=0x0133, f01=0x018e, f02=» x 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP > 4 P SUK A3,1 *NEGATIVE DIVISOR ^ P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RESET IF OVER
0x11a7c0…11a954 (0, 358) Dummy {f00=0x0133, f01=0x0190, f02=» 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END : P SLL A1,1 X P SLL A7,1 v P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK A1,0
0x11a954…11aae8 Dummy {f00=0x0133, f01=0x0190, f02=» ADK A7,1 P RB(7) SHIFT 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS : PEND LDR A2,A7 r P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR +
0x11aae8…11ac7c Dummy {f00=0x0133, f01=0x018e, f02=» ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) ` P ADK A2,0 P XIF =1 P IFT CPU852=0 6813 =1 P RF(1) END1 =1 P
0x11ac7c…11ae10 Dummy {f00=0x0133, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x11ae10…11afa4 Dummy {f00=0x0133, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x11afa4…11b138 Dummy {f00=0x0133, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x11b138…11b2cc Dummy {f00=0x0133, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x11b2cc…11b460 Dummy {f00=0x0133, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x11b460…11b5f4 (0, 359) Opaque[0x194]
0x11b5f4…11b788 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2680, f03=0x0000}
0x11b5f4…11b788 IdxSect {
0x11b5f4…11b788 f00 = 0x0134 // 0x11b5f4 @0x0
0x11b5f4…11b788 f01 = 0x0012 // 0x11b5f6 @0x2
0x11b5f4…11b788 gno = [ // 0x11b5f8 @0x4
0x11b5f4…11b788 [0x00]: C0x0134.0x0.0
0x11b5f4…11b788 [0x01]: C0x0134.0x1.0
0x11b5f4…11b788 [0x02]: C0x0134.0x2.0
0x11b5f4…11b788 [0x03]: C0x0134.0x3.0
0x11b5f4…11b788 [0x04]: C0x0135.0x0.0
0x11b5f4…11b788 [0x05]: C0x0135.0x1.0
0x11b5f4…11b788 [0x06]: C0x0135.0x2.0
0x11b5f4…11b788 [0x07]: C0x0135.0x3.0
0x11b5f4…11b788 [0x08]: C0x0136.0x0.0
0x11b5f4…11b788 ]
0x11b5f4…11b788 }
0x11b788…11b91c Dummy {f00=0x0134, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 9.2 79-11-16 870105040920 P : P =1 CLEAR ECB B P REL 9.1 79-04-06 Z P* v 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DMSUBR = COM
0x11b91c…11bab0 Dummy {f00=0x0134, f01=0x0190, f02=» 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* D P* DMTASK,TIODM,DMTASS N P* n P*************** x P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET P ENTRY CAL
0x11bab0…11bc44 Dummy {f00=0x0134, f01=0x0190, f02=»USER TO SYSTEM AREA x 0 P ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA P* P P***************** Z P* EXTERNALS * t P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO P EXTRN FDBCEX,FDBBLF
0x11bc44…11bdd8 Dummy {f00=0x0134, f01=0x0190, f02=»D | P EXTRN DWTTDM,DWTTQ P EXTRN QTJOB & P EXTRN ECBRL,SECTLE : P EXTRN DIVMOD,MPYMOD V P EXTRN EXTELE r P EXTRN CRNTID P EXTRN DMTGBU P EXTRN EXTLEN,EXTBAS P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P
0x11bdd8…11bf6c Dummy {f00=0x0134, f01=0x0190, f02=»UTINE t P EJECT DMSUBR TOSSIO P* . P* 8 . P***************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x11bf6c…11c100 Dummy {f00=0x0134, f01=0x0190, f02=»CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT 2 P* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR 4 ( P* DX,IX,XR,XN, DATA FILE OTHERWISE j P* PCHKIND EQU * P STR A1,A15 P STR A2,A15 " P LDK A2,1 INDEX FOR DATA FILE P LDR A
0x11c100…11c294 (0, 360) Dummy {f00=0x0134, f01=0x0190, f02=»AD x P ANK A1,/3E REMOVE BIT 15 P SUK A1,/1E , 4 P RF(E) FND320 INSERT INDEX OR INDEXED READ NEXT @ P RF FND340 x ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * P CCR A2,A6 INDEX P RF(E) FND390 ENTRY FOUND P LDK
0x11c294…11c428 Dummy {f00=0x0134, f01=0x0190, f02=»ED IN TENDIO TO RESET REQUEST BUSY BIT P* FOR ALL FILES . " P* AND TO RESOLVE ALL QUEUES H P* n PREQEND EQU * x P LC A2,TTB:ID,A5 GET TASK ID P CCK A2,'##' ( P RF(E) TEN117 JUMP IF DMTASK CALLING P* , P* RESET REQU
0x11c428…11c5bc Dummy {f00=0x0134, f01=0x0190, f02=»QU * P SUK A2,2 P RF(N) TEN115 NO MORE FILES P LDR A3,A6 B P ADR A3,A2 T P LD A3,FDBADF,A3 FDB ADDR f P RB(Z) TEN112 P CWR A3,A6 DWT ADDR P RF(E) TEN114 MASTER DWT P LD A5,DWTTQ,A3 P RF(Z) TEN113 NO QUEUE
0x11c5bc…11c750 Dummy {f00=0x0134, f01=0x0190, f02=»TEN114 EQU * $ P LDKL A4,/BFFF REQUEST BUSY BIT P ANS A4,DWTST,A3 RESET < P LDKL A4,/8000 Z $ P ORS A4,DWTST,A3 DEVICE NOT BUSY r P RB TEN112 PTEN115 EQU * P LDR* A4,A15 RESTORE A4 P* PTEN117 EQU * P ABL IHRTN
0x11c750…11c8e4 Dummy {f00=0x0134, f01=0x0190, f02=» FOR A LOG RECORD NO. n P* 8 P****ENTRY PARAMETERS******************************** ( P* d P* A1 = FDB ADRESS n P* A2,A3 = LOG RECORD NO P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS*************************
0x11c8e4…11ca78 Dummy {f00=0x0134, f01=0x018e, f02=»* = -1 EA FOUND FO R OTHER TASK P* . 8 P****USED REGISTERS********************************** 8 P* t P* A1 - A4 ~ P EJECT DMSUBR PEATEST EQU * " P LD A4,FDBEAL,A1 BUFFER QUEUE P RF EAT030 PEAT020 EQU *
0x11ca78…11cc0c Dummy {f00=0x0134, f01=0x018e, f02=» P* P CC A2,3,A4 FIRST CHAR P RB(NE) EAT020 , P CW A3,4,A4 2 AND 3 CHAR B P RB(NE) EAT020 b P* x P* RECORD NO FOUND P* P LC A4,2,A4 P CC A4,FDBTNR,A1 TASK ID P RF(E) EAT060 P LDKL A4,-1 EA OTHER T
0x11cc0c…11cda0 Dummy {f00=0x0134, f01=0x0190, f02=» ~ 8 P****DESCRIPTION************************************* P* D B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK N L P* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS P* 8 P****ENTRY PARAMETERS******
0x11cda0…11cf34 (0, 361) Dummy {f00=0x0134, f01=0x018e, f02=»B ~ P* 8 P****EXIT PARAMETERS********************************* P* P P* A6 = FDB ADDR Z P* t 8 P****USED REGISTERS********************************** ~ P* P* A1-A4,A6 P* < P**************************************
0x11cf34…11d0c8 Dummy {f00=0x0134, f01=0x0190, f02=» P LDR A1,A3 LOG REC NO P INH " , P CF A15,GETBLK GET BUFF AND STORE A1,A2 . P* ^ P* LINK BUFFER TO FDB h P* P LD A2,FDBEAL,A6 LINK ROOT P STR A2,A4 THREAD P ST A4,FDBEAL,A6 NEW ROOT P RTN A14 P EJECT D
0x11d0c8…11d25c Dummy {f00=0x0134, f01=0x0190, f02=» P* TIO THE FREE LINK. P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A1 = FDB-ADDRESS v " P* A2,A3 = LOGICAL RECORD NO B P* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB ( P*
0x11d25c…11d3f0 Dummy {f00=0x0134, f01=0x0190, f02=»FER WITH TASK ID AND LOG REC NO j 0 P* AS SPEC IS REMOVED. ( P* 8 P****EXIT PARAMETERS********************************* f P* P* A1 = UNCHANGED P* 8 P****USED REGISTERS**********************************
0x11d3f0…11d584 Dummy {f00=0x0134, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x11d584…11d718 Dummy {f00=0x0134, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x11d718…11d8ac Dummy {f00=0x0134, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x11d8ac…11da40 Dummy {f00=0x0134, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x11da40…11dbd4 (0, 362) Dummy {f00=0x0134, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x11dbd4…11dd68 Dummy {f00=0x0134, f01=0x0190, f02=» P RF(Z) CRN100 LINK END P* " P* CHECK ATASK IDENT , P* J P LC A3,FDBTNR,A1 TASK ID T P CC A3,CRNTID,A2 t P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P* P* GET NEW BUFFER P* PCRN100 EQU *
0x11dd68…11defc Dummy {f00=0x0134, f01=0x018e, f02=»RS v PCRN120 EQU * P LDR* A3,A2 NEXT FREE P ST A3,CRNQUE UPD ROOT < P* Z P* FILL BUFFER WITH ZEROES d P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES PCRN140 EQU * P SUK A3,2 ZEROE WORDS 2 - N P RF(NP) CRN160 B
0x11defc…11e090 Dummy {f00=0x0134, f01=0x0190, f02=» " P* CONNECT NEW BUFFER TO LINK P* . PCRN160 EQU * 8 P LC A3,FDBTNR,A1 L P SC A3,CRNTID,A2 TASK ID d P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD P ST A2,FDBCRL,A1 NEW ROOT PCRN200 EQU * P RTN A14 P E
0x11e090…11e224 Dummy {f00=0x0134, f01=0x018e, f02=»TO d P* SECTOR AND OFFSET P* ( 8 P****ENTRY PARAMETERS******************************** 2 P* n " P* A1,A2 = LOGICAL RECORD NO x P* A6 = FDB ADDR P* P* CF A14,CALSNO P* 8 P****EXIT PARAMETERS*************
0x11e224…11e3b8 Dummy {f00=0x0134, f01=0x0190, f02=» P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v P* 8 P****USED REGISTERS********************************** P* P* A1 - A9 P
0x11e3b8…11e54c Dummy {f00=0x0134, f01=0x0190, f02=»DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0 $ P ADK A3,1 RECORD
0x11e54c…11e6e0 Dummy {f00=0x0134, f01=0x018e, f02=» PTIOD40 EQU * P LDR A4,A6 & P ADKL A4,FDBEXT FIRST FILE EXTENT * , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT T P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SECTOR IN THIS EXTENT P SUK A5,1 NO & P RF(NP)
0x11e6e0…11e874 (0, 363) Dummy {f00=0x0135, f01=0x0190, f02=» P* * P* SAVE CURRENT EXTENT BLOCK POINTER P* < PTIOD55 ST A4,FDBCEX,A6 F P* d * P* FIND LOGICAL SECTOR NUMBER ON DISC n P* 6 P SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTENTS $ P SUR A3,A9 SECTOR NO WITHIN EXT P
0x11e874…11ea08 Dummy {f00=0x0135, f01=0x0190, f02=»GICAL SECTOR NUMBER x 2 P* FIND RELATIVE RECORD OFFSET WITHIN SECTOR P* R P LDK A3,0 & PTIOD60 SUK A2,1 A2=RELATIVE REC NO n ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * P AD A3,FDBRLE,A6 NO ADD RECORD LENGTH P ADK A3,1 SKIP STATUS
0x11ea08…11eb9c Dummy {f00=0x0135, f01=0x0190, f02=»RELATIVE REC OFFSET IN FBDRRO P* & PTIOD65 EQU * 0 P LDK A1,0 OK D P ST A3,FDBRRO,A6 X PTIODMF EQU * p P RTN A14 P EJECT DMSUBR P* P************** P* DMTIOT P************** P* > P* ENTRY
0x11eb9c…11ed30 Dummy {f00=0x0135, f01=0x0190, f02=»RESS x P* A1 = 0 WHEN OK ! $ P* = ERROR CODE ELSE ! . $ P* A9 = DM ECB ADDRESS ! V * P* A8 = PHYS I/O ECB ADDRESS ! ~ $ P* A2 WILL BE DESTROYED ! P* ! ( P* USED REGISTERS : A1,A2,A6,A8,A9 !
0x11ed30…11eec4 Dummy {f00=0x0135, f01=0x0190, f02=»B ADDRESS ! z PDMTIT0 EQU * " P LD A1,ECBRC,A8 " & P RF(Z) DMTIOX DISC I/O OK " > P ANKL A1,/FEFF " ` $ P RF(NZ) DMTIT1 NOT ONLY RETRIES " v P LDKL A2,/100 " P ORS A2,ECBRC,A9 USER RC " P RF DMTIOX " PDMTIT1 EQU * " P LD A2,FDBDBR,
0x11eec4…11f058 Dummy {f00=0x0135, f01=0x0190, f02=» A2,8 BUFSTA " , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER # P LDK A1,/02 DISC IO ERROR # D " P LDKL A2,/FF7E NOT BIT 8 OR 15 # f P AN A2,ECBRC,A8 # P RF(NZ) DMTIOX # P LD A1,ECBRC,A8 BIT 8 OR 15 # PDMTIOX RTN A14 # P EJECT # P* #
0x11f058…11f1ec Dummy {f00=0x0135, f01=0x0190, f02=» P* A8 = ECB ADDR $ P* OUT: $ P* A1 = RET CODE $ . P* A2 = DESTROYED $ H P* A6 = FDB ADDR $ b P* A8 = ECB ADDR $ | P* A9 == USER ECB $ P* $ PDMTIOZ LDR A6,A1 $ P LD A2,DWTOR,A6 ORDER $ P ANK A2,/3F $ P CWK
0x11f1ec…11f380 Dummy {f00=0x0135, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x11f380…11f514 (0, 364) Dummy {f00=0x0135, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x11f514…11f6a8 Dummy {f00=0x0135, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P**
0x11f6a8…11f83c Dummy {f00=0x0135, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL
0x11f83c…11f9d0 Dummy {f00=0x0135, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR
0x11f9d0…11fb64 Dummy {f00=0x0135, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* *
0x11fb64…11fcf8 Dummy {f00=0x0135, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x11fcf8…11fe8c Dummy {f00=0x0135, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL
0x11fe8c…120020 Dummy {f00=0x0135, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,F
0x120020…1201b4 (0, 365) Dummy {f00=0x0135, f01=0x0190, f02=» PGTL150 EQU * . P ADK A7,1 RECORD COUNTER . P SUR A6,A4 . 8 * P RB(NN) GTL150 COUNT RECORDS IN SECTOR . J P* . x , P* ADD SECT*BLOCFACT AND RECINCURRSECT . P* . P ADR A2,A7 . P RF(O) GTL160 OVERFLOW . P RF GTL170 . PGTL160 EQU
0x1201b4…120348 Dummy {f00=0x0135, f01=0x0190, f02=» LDR A1,A5 FDB ADDR . P LDR A6,A5 / P RTN A14 / . P EJECT DMSUBR / > P* / V P* / ` P IFT MMUPAG=1 / j P* / P* M O V : U S / P* / D P* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO / L P* THE SYSTEM AREA (REC
0x120348…1204dc Dummy {f00=0x0135, f01=0x0190, f02=»* / 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) 0 < P* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) 0 F . P* A3 = NUMBER OF BYTES TO BE MOVED 0 P* 0 " P* OUTPUT: A1-A4 ARE DESTROYED 0 P* 0 , PMOV:US LDR A3,A3 CHECK
0x1204dc…120670 Dummy {f00=0x0135, f01=0x0190, f02=»ER ADDRESS 0 v P ANK A4,1 1 . P RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN? 1 $ . P LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS 1 V P ANK A4,1 1 0 P RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN? 1 P* 1 , PMVUS10 LDR A4,A3 CHECK REQUESTED LENGTH 1 P
0x120670…120804 Dummy {f00=0x0135, f01=0x0190, f02=»5 1 t P* 2 PMVUS35 RTN A14 2 P* 2 * P EJECT DMSUBR 2 4 P* 2 L P* 2 V 0 PMVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN 2 ` * P LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS 2 P ANK A4,1 2 0 P RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? 2 4 P
0x120804…120998 Dummy {f00=0x0135, f01=0x0190, f02=» SYSTEM BUFFER ADDRESS 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 3 $ P RB(NP) MVUS30 LAST CHAR. MOVED? 3 J , P ADK A1,2 NO, UPDATE USER BUFFER ADDRESS 3 r P* 3 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 3 P ECR A5,A4 3 0 P SCR A5,A2 STO
0x120998…120b2c Dummy {f00=0x0135, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x120b2c…120cc0 Dummy {f00=0x0135, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x120cc0…120e54 (0, 366) Dummy {f00=0x0135, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x120e54…120fe8 Dummy {f00=0x0135, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x120fe8…12117c Dummy {f00=0x0135, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x12117c…121310 Dummy {f00=0x0135, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x121310…1214a4 Dummy {f00=0x0135, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x1214a4…121638 Dummy {f00=0x0135, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x121638…1217cc Dummy {f00=0x0135, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x1217cc…121960 Dummy {f00=0x0135, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x121960…121af4 (0, 367) Dummy {f00=0x0136, f01=0x0190, f02=» = & P ADR A4,A5 UPDATE BUFFER ADDRESSES > P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x121af4…121c88 Dummy {f00=0x0136, f01=0x402e, f02=»IF > P* ? P* ? P END ? @ ? * P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x121c88…121e1c Dummy {f00=0x0136, f01=0x2008, f02=» @ + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x121e1c…121fb0 Dummy {f00=0x0136, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x121fb0…122144 Dummy {f00=0x0136, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x122144…1222d8 Dummy {f00=0x0136, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x1222d8…12246c Dummy {f00=0x0136, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x12246c…122600 Dummy {f00=0x0136, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x122600…122794 (0, 368) Opaque[0x194]
0x122794…122928 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x122794…122928 IdxSect {
0x122794…122928 f00 = 0x00ec // 0x122794 @0x0
0x122794…122928 f01 = 0x0002 // 0x122796 @0x2
0x122794…122928 gno = [ // 0x122798 @0x4
0x122794…122928 [0x00]: C0x00ec.0x1.0
0x122794…122928 ]
0x122794…122928 }
0x122928…122abc Dummy {f00=0x00ec, f01=0x0190, f02=» 2 P IDENT CTAB01 REL 9.2 79-11-16 870105040920 P : P* B P* CODE CONVERSION TABLE L P* n P* x P ENTRY CTAB01 P* P* T PC0 DATA /434A,/484D,/4750,/514E,/4B49,/4C4F,/7F7F,/7F7F CODE CONVERSION COLUMN N < PC1 D
0x122abc…122c50 Dummy {f00=0x00ec, f01=0x0190, f02=» 3 < PC4 DATA /3A55,/5358,/5220,/2059,/5654,/575A,/7F7F,/7F7F < PC5 DATA /0D5E,/5F24,/2E2D,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F ` < PC6 DATA /2C27,/180A,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F ( PC7 EQU 0 7
0x122c50…122de4 Dummy {f00=0x00ec, f01=0x4044, f02=» DATA C6 P DATA C7 P* P* * P END 4@ @4,/575A,/7F7F,/7F7F < PC5 DATA /0D5E,/5F24,/2E2D,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F ` < PC6 DATA /2C27,/180A,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F ( PC7 EQU 0 7
0x122de4…122f78 Dummy {f00=0x00ec, f01=0x2008, f02=» C7 EQU 0 7 * 4 * > * H CTABX DATA C1 R DATA C2 h DATA C2 x DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END @
0x122f78…12310c Dummy {f00=0x00ec, f01=0x0190, f02=» P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 F P ABL DMTASX NO FDB AVAILABLE X ( P* INITIALIZE FDB ZERO FROM FDB+2 | P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL P
0x12310c…1232a0 Dummy {f00=0x00ec, f01=0x0190, f02=»DMT233 PDMT237 EQU * P LDKL A2,/8000 " P* DEV NOT BUSY 8 P ST A2,DWTST,A12 P P LDKL A2,TIODM h P ST A2,DWTADR,A12 ~ P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 P
0x1232a0…123434 (0, 369) Opaque[0x194]
0x123434…1235c8 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c20, f03=0x0000}
0x123434…1235c8 IdxSect {
0x123434…1235c8 f00 = 0x00e1 // 0x123434 @0x0
0x123434…1235c8 f01 = 0x0002 // 0x123436 @0x2
0x123434…1235c8 gno = [ // 0x123438 @0x4
0x123434…1235c8 [0x00]: C0x00e1.0x0.0
0x123434…1235c8 ]
0x123434…1235c8 }
0x1235c8…12375c Dummy {f00=0x00e1, f01=0x018e, f02=» 2 P IDENT DVKB00 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 0 P* PDVKB00 E
0x12375c…1238f0 Dummy {f00=0x00e1, f01=0x0190, f02=» z P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK * P DATA 'KB' TTAB-ADDRESS V $ P DATA 0 WAIT/ACTIVATE INDICATOR v P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB
0x1238f0…123a84 Dummy {f00=0x00e1, f01=0x0190, f02=»A4 z P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK * P DATA 0 TIMER POINTER B P DATA DVDY00 DVDY00O DEVICE ` $ P DATA /1211 BACKSPACE AND CANCEL $ P DATA /0DFF EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE
0x123a84…123c18 Dummy {f00=0x00e1, f01=0x4076, f02=»DEVECB EQU * P DATA 0,0,0,0,0,0 P DATA . P XIF < PDWTEND EQU * H P* P END f@ rEVICE ` $ P DATA /1211 BACKSPACE AND CANCEL $ P DATA /0DFF EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE
0x123c18…123dac Dummy {f00=0x00e1, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x123dac…123f40 Dummy {f00=0x00e1, f01=0x0190, f02=» P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG 0 P ABR(NZ) A1 F P HLT Z P f P EJECT SYSTAB n P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES
0x123f40…1240d4 (0, 370) Opaque[0x194]
0x1240d4…124268 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c28, f03=0x0000}
0x1240d4…124268 IdxSect {
0x1240d4…124268 f00 = 0x00e1 // 0x1240d4 @0x0
0x1240d4…124268 f01 = 0x0002 // 0x1240d6 @0x2
0x1240d4…124268 gno = [ // 0x1240d8 @0x4
0x1240d4…124268 [0x00]: C0x00e1.0x1.0
0x1240d4…124268 ]
0x1240d4…124268 }
0x124268…1243fc Dummy {f00=0x00e1, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVDY00 EQU * T
0x1243fc…124590 Dummy {f00=0x00e1, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x124590…124724 Dummy {f00=0x00e1, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /0824 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x124724…1248b8 Dummy {f00=0x00e1, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x1248b8…124a4c Dummy {f00=0x00e1, f01=0x0190, f02=» P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 2 P XIF F P IFT RBUFNR=6 R P DATA *+RLINK h P RES RBUFL+3 ~ P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3
0x124a4c…124be0 Dummy {f00=0x00e1, f01=0x0190, f02=»INK P RES RBUFL+3 P XIF P IFT RBUFNR=4 , P DATA *+RLINK B P RES RBUFL+3 X P DATA *+RLINK l P RES RBUFL+3 P XIF P IFT RBUFNR=3 P DATA *+RLINK P RES RBUFL+3 P XIF P DATA *+RLINK P RES
0x124be0…124d74 (0, 371) Opaque[0x194]
0x124d74…124f08 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2508, f03=0x0000}
0x124d74…124f08 IdxSect {
0x124d74…124f08 f00 = 0x0128 // 0x124d74 @0x0
0x124d74…124f08 f01 = 0x0002 // 0x124d76 @0x2
0x124d74…124f08 gno = [ // 0x124d78 @0x4
0x124d74…124f08 [0x00]: C0x0128.0x1.0
0x124d74…124f08 ]
0x124d74…124f08 }
0x124f08…12509c Dummy {f00=0x0128, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 0 P*
0x12509c…125230 Dummy {f00=0x0128, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x125230…1253c4 Dummy {f00=0x0128, f01=0x0190, f02=»REA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 2 P DATA 0 TIMER POINTER J P DATA DVDY01 DVDY01O DEVICE h $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLACE IN
0x1253c4…125558 Dummy {f00=0x0128, f01=0x407e, f02=» PDEVECB EQU * P DATA 0,0,0,0,0,0 P DATA 6 P XIF D PDWTEND EQU * P P* d P END n@ zEVICE h $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLACE IN
0x125558…1256ec Dummy {f00=0x0128, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x1256ec…125880 Dummy {f00=0x0128, f01=0x0190, f02=»D BUFFERS | v P SUR A12,A12 } P RB INS200 } & P EJECT } 8 PINS400 EQU * } F P* } Z ( P* UPDATE LRN IF EOF IS ENCOUNTERED } d P* } P LDR A1,A6 FDB INDEX } P CF A14,GTLGRN } P CC A2,FDBLRN,A1 } P RF(L) INS430 NO EOF } P RF(G)
0x125880…125a14 (0, 372) Opaque[0x194]
0x125a14…125ba8 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24f8, f03=0x0000}
0x125a14…125ba8 IdxSect {
0x125a14…125ba8 f00 = 0x0127 // 0x125a14 @0x0
0x125a14…125ba8 f01 = 0x0002 // 0x125a16 @0x2
0x125a14…125ba8 gno = [ // 0x125a18 @0x4
0x125a14…125ba8 [0x00]: C0x0127.0x3.0
0x125a14…125ba8 ]
0x125a14…125ba8 }
0x125ba8…125d3c Dummy {f00=0x0127, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVDY01 EQU * T
0x125d3c…125ed0 Dummy {f00=0x0127, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x125ed0…126064 Dummy {f00=0x0127, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x126064…1261f8 Dummy {f00=0x0127, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x1261f8…12638c Dummy {f00=0x0127, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x12638c…126520 Dummy {f00=0x0127, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x126520…1266b4 (0, 373) Opaque[0x194]
0x1266b4…126848 # DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2518, f03=0x0000}
0x1266b4…126848 IdxSect {
0x1266b4…126848 f00 = 0x0128 // 0x1266b4 @0x0
0x1266b4…126848 f01 = 0x0002 // 0x1266b6 @0x2
0x1266b4…126848 gno = [ // 0x1266b8 @0x4
0x1266b4…126848 [0x00]: C0x0128.0x3.0
0x1266b4…126848 ]
0x1266b4…126848 }
0x126848…1269dc Dummy {f00=0x0128, f01=0x018e, f02=» 2 P IDENT DVKB02 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB02 TABLE ENTRY r P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DVDY02 PMMUPAG EQU 0 P* PDVKB02 E
0x1269dc…126b70 Dummy {f00=0x0128, f01=0x0190, f02=» z P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK * P DATA 'KB' TTAB-ADDRESS V $ P DATA 0 WAIT/ACTIVATE INDICATOR v P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB
0x126b70…126d04 Dummy {f00=0x0128, f01=0x0190, f02=»A4 z P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK * P DATA 0 TIMER POINTER B P DATA DVDY02 DVDY02O DEVICE ` $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLACE IN QUEUE
0x126d04…126e98 Dummy {f00=0x0128, f01=0x4076, f02=»DEVECB EQU * P DATA 0,0,0,0,0,0 P DATA . P XIF < PDWTEND EQU * H P* P END f@ rEVICE ` $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLACE IN QUEUE
0x126e98…12702c Dummy {f00=0x0128, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x12702c…1271c0 Dummy {f00=0x0128, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x1271c0…127354 (0, 374) Opaque[0x194]
0x127354…1274e8 # DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24e8, f03=0x0000}
0x127354…1274e8 IdxSect {
0x127354…1274e8 f00 = 0x0127 // 0x127354 @0x0
0x127354…1274e8 f01 = 0x0002 // 0x127356 @0x2
0x127354…1274e8 gno = [ // 0x127358 @0x4
0x127354…1274e8 [0x00]: C0x0127.0x1.0
0x127354…1274e8 ]
0x127354…1274e8 }
0x1274e8…12767c Dummy {f00=0x0127, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY02 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVDY02 EQU * T
0x12767c…127810 Dummy {f00=0x0127, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x127810…1279a4 Dummy {f00=0x0127, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x1279a4…127b38 Dummy {f00=0x0127, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x127b38…127ccc Dummy {f00=0x0127, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x127ccc…127e60 Dummy {f00=0x0127, f01=0x405e, f02=» _ ( H@ Z T SCTNPE h SCTSTB | SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x127e60…127ff4 (0, 375) Opaque[0x194]
0x127ff4…128188 # DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2578, f03=0x0000}
0x127ff4…128188 IdxSect {
0x127ff4…128188 f00 = 0x012b // 0x127ff4 @0x0
0x127ff4…128188 f01 = 0x0002 // 0x127ff6 @0x2
0x127ff4…128188 gno = [ // 0x127ff8 @0x4
0x127ff4…128188 [0x00]: C0x012b.0x3.0
0x127ff4…128188 ]
0x127ff4…128188 }
0x128188…12831c Dummy {f00=0x012b, f01=0x018e, f02=» 2 P IDENT DVGP03 REL 9.2 79-11-16 870105040920 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP03 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVGP03 EQU *
0x12831c…1284b0 Dummy {f00=0x012b, f01=0x0190, f02=» P DATA DWTEND-DVGP03 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA 'GP' TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x1284b0…128644 Dummy {f00=0x012b, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x128644…1287d8 Dummy {f00=0x012b, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT
0x1287d8…12896c Dummy {f00=0x012b, f01=0x0190, f02=»C A3,TASECB+1 + " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , < P LD A3,ECBBA,A8 , ` P SUKL A3,BUFSTA , x " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD A6,FDB
0x12896c…128b00 Dummy {f00=0x012b, f01=0x0190, f02=»A1 GET MOST SIGN BIT , P ADK A2,5 - P SRL A2,1 NO OF WORDS NEEDED - . P RF(Z) DMT570 WRONG SIZE - R P INH - r P LD A4,MXIND LENGTH MXIND - ~ P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY - P
0x128b00…128c94 (0, 376) Opaque[0x194]
0x128c94…128e28 # DirEnt {nam=»M:92T1«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2770, f03=0x0000}
0x128c94…128e28 IdxSect {
0x128c94…128e28 f00 = 0x013b // 0x128c94 @0x0
0x128c94…128e28 f01 = 0x0012 // 0x128c96 @0x2
0x128c94…128e28 gno = [ // 0x128c98 @0x4
0x128c94…128e28 [0x00]: C0x013b.0x2.0
0x128c94…128e28 [0x01]: C0x013b.0x3.0
0x128c94…128e28 [0x02]: C0x013c.0x0.0
0x128c94…128e28 [0x03]: C0x013c.0x1.0
0x128c94…128e28 [0x04]: C0x013c.0x2.0
0x128c94…128e28 [0x05]: C0x013c.0x3.0
0x128c94…128e28 [0x06]: C0x013d.0x0.0
0x128c94…128e28 [0x07]: C0x013d.0x1.0
0x128c94…128e28 [0x08]: C0x013d.0x2.0
0x128c94…128e28 ]
0x128c94…128e28 }
0x128e28…128fbc Dummy {f00=0x013b, f01=0x0190, f02=»H6 B`l V ^ c @ Tg t z ^ b bLPL H b2 Z ` z
0x128fbc…129150 Dummy {f00=0x013b, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A ~ > ; & ? ? ? ? ? ? ? @; > > U H ( ( P c P W. A; Z V ( U P @
0x129150…1292e4 Dummy {f00=0x013b, f01=0x0190, f02=»_ B 8 < Q Z P 0 9 _ . Z _, P H H #P v A ~ A RQ @; F ) A; _ L L A T B A; _ ? ? ? ? ? ^ A _ _ ^ ? ? ? ; $P T I R $ 5 % 4 W W T
0x1292e4…129478 Dummy {f00=0x013b, f01=0x0190, f02=» 0 A; 1 Q Q >W 0 @; 1 A; P P W ? * X " R" Y T ? X D % T> 8 W8 > _& @ 8 R" Y T ? X D % T 8 W > _& W8 > 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ V ? > _ > ? _ > > ? ^ !
0x129478…12960c Dummy {f00=0x013b, f01=0x0190, f02=»= = = `=< !J! #j#d ; J B B A ~J ;h # <c$ " P PR 4 5 T P ? X U X V > PZ PF P P 0 X T Y Wn U , U T X^ T E <" Y Tx 8RtWP @ 4 U P> $P4> R0> 8' T Y X
0x12960c…1297a0 Dummy {f00=0x013b, f01=0x0190, f02=» $P$ D P P0 P P _ E W Q Y W 8 " E 4 % E Y *B @ P A V (" P> P: V Y Y Y Y X Y X X X X ' 4 B U B (" W C (@ > Y Y Y X 9BV$ X " Y X D
0x1297a0…129934 (0, 377) Dummy {f00=0x013b, f01=0x0190, f02=» P T YF ZJ X T X M A 6 ~ f h H H > Z L @ T <" ~ @ Px X XN# Y ) Wf " P P _ :CV + W* T T * _<#/ X T Y P ) Y C C Y P A 6 h < A X T
0x129934…129ac8 Dummy {f00=0x013b, f01=0x0190, f02=» Y ;g# + _ Y _ Y C P A _ A t A A _* _ _2 _6 _: _> _B A ~ ?M P: A PdQ* ? A @ T M -W ,E A A t > > >M A _ A > ;I C X "A _@ A A A A <" f# X& T X
0x129ac8…129c5c Dummy {f00=0x013b, f01=0x0190, f02=» P U x_ : V # P W Y P X ' P Y _ Y " " t & 4 T 8PX 9WF B P P < A; W A; @; A.W A ~I.9 :A X R C C <" A @; A. X V 9_> @ "
0x129c5c…129df0 Dummy {f00=0x013b, f01=0x0190, f02=» ! ` T V C B Q 1 <" Y @ r t B X _ X Z(W A ~ I X ' { B C X 4 E A A M A _ A > ;I C X "A _@ A A A A f# X& T X
0x129df0…129f84 Dummy {f00=0x013b, f01=0x0190, f02=» P U x_ : V # P W Y P X ' P Y _ Y " " t & 4 T 8PX 9WF B P P A W A @ A.W A ~I.9 :A X R C C 8 I P* X Y ::g H
0x129f84…12a118 Dummy {f00=0x013b, f01=0x0190, f02=» P UH ! ! ! P WF X < @ @ ! ! ! P W* P& ! ! ! P W ! ! ! P 0 b X <X _ W P W B Y ( Y * 4 X <:C* W, W( X " " :BW X " :BW X < c X :B X ! E $ X Y Y <" * @ TPT Y 8 Y
0x12a118…12a2ac Dummy {f00=0x013b, f01=0x0190, f02=» P XT 8 P Xb XX 0P -_ _ * A _ A ~ W A ~ *I "@P F 9AZ 9a X 8V # T X X X '? 4 T B C X P X " I 8 8 <" Y 8 Y ! Td ! Y < ! ! TR , X P Y , (P
0x12a2ac…12a440 Dummy {f00=0x013b, f01=0x0190, f02=» B B r s r !Pp P X ! Y & X * ! " Y T & ~ P Pb P Pv Pz 6 L + < A; @; A. D <" Y DW A; @; A.
0x12a440…12a5d4 (0, 378) Dummy {f00=0x013c, f01=0x0190, f02=» Y &W X & ! # T & ! ! " 0 TOT 0 SST X Y (W 0 X Y ( Y & T ! ! X &' P ! D ! 0 D T ) P _ X " X ! Tr X !& Ph B :C P T ! 9DV ! (@ B n ! > ! N ! > f ! > ! ^ ! > ( ! !
0x12a5d4…12a768 Dummy {f00=0x013c, f01=0x0190, f02=» ! 1 ! F ! * ! ! B ! & ) ! Y &# T X Y *_ Y &# 4 ! & < ( C V ! T ! B B ! D f ! 0W0 W ! & X@ ^ ! 0 C (Q ! ! ^* ! ! & ! T )WL WP ! & Xz N ! 0 ( - f ! 0 ) W. Y LW Y L Y H Y J Y B S W W B
0x12a768…12a8fc Dummy {f00=0x013c, f01=0x0190, f02=» _p Y $ X * P Y : ! ! X # P Y *:A , X F A; Y F @; B. X Y Y Y X Y " X '? r A ~ (@ X H X J K P6 X LT $ D C Y B <"K & E % Y B K X ;AR@;a X "P Y " P 7P
0x12a8fc…12aa90 Dummy {f00=0x013c, f01=0x0190, f02=»P Q 9BW Q 9C B ! T 4 P ;A _ 4 X , # P _ 4(@ R T D J 1_ W (@ R 0 D J ] T_ T ! F 4 ! ;E :B 9A ! U P jW kQ 4 Y & ! F 0" Z Y" P Z _ 4 A ;D A 4
0x12aa90…12ac24 Dummy {f00=0x013c, f01=0x0190, f02=» _p Y X P Y : ! ! X # P Y :A , X A Y @ B. X Y Y n
0x12ac24…12adb8 Dummy {f00=0x013c, f01=0x0190, f02=»;^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS ( H 0 ) $P
0x12adb8…12af4c Dummy {f00=0x013c, f01=0x0190, f02=»T C T, V. Y % T Pn q 0 ) W` X P T& B RNP" A @ ^ A W> @W& T" P X T % T W H C 8W T 8P Y ^ 5 ) P U <" XH ' X X D #DP
0x12af4c…12b0e0 Dummy {f00=0x013c, f01=0x0190, f02=» '? Y % T Y W Y T # P W ^ Y (@ 2 X L % T L Rr : *(@ L U0 L QF L # T R < 5 ^ R < 5 Y X D ( ) 1 > _" X : < Y _ : (@ X P& T D #DP
0x12b0e0…12b274 (0, 379) Dummy {f00=0x013c, f01=0x0190, f02=» W Y * T p <" ^ _ _< ^ 4 _ ^ ^ @ B 1 A B _ P 9 * "RT PL X TF X R@? V X " X H P X P Y X H P < ?
0x12b274…12b408 Dummy {f00=0x013c, f01=0x0190, f02=»_ 00 > & <h$ P > @! P 4 A! U W A! A! @! U : A"< A">:A A! 7p , ` R @ U P. ,% T& "" C ( B P T
0x12b408…12b59c Dummy {f00=0x013c, f01=0x0190, f02=» ,! T T ( 7x : # "F @! P ! $ ) 5 <" A! A"8 A! ! A! "" P U W "t ! P @! E! "# P P @! P ( )W @ 0 R % "V E T D A"8_" P @! P ( )W @ 0 Rb ' F "R
0x12b59c…12b730 Dummy {f00=0x013c, f01=0x0190, f02=»& & & &$% &B& % & & % & & &$% " # $ % "$&( % $ @ D X P _ L !##P P @ R $P U ' U _ (@(@ I$ P ^ & H$ Y H$ B # X $ U & W Y " Y , Y * & 9 & B
0x12b730…12b8c4 Dummy {f00=0x013c, f01=0x0190, f02=» B U 9r R WJ X [ X T E T F 7x P C X E X F S W C C W, B B Y ER Q X FU C '? T W6 :P T.(@(@ P #D #^ ' <" < ( ( , , , , , * * (l, * (l, , , , * * (l F X $P R X $W G G :
0x12b8c4…12ba58 Dummy {f00=0x013c, f01=0x0190, f02=» : X " F $ P 'PW $ P $ - '8 : ; ( H > ' X "Pj D ZV" D "? P P &P E Z ;$ V, P ( (D( ( W ' : , B W C X '? & X " X $ )T , ' ' + X TT T A' J ( 8L
0x12ba58…12bbec Dummy {f00=0x013c, f01=0x0190, f02=»P F 'r T , P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF 9 J 4 5W P 0 @6t 1 A6t(@_ - (@ *8 / O $P % 4 F 'r (@ B 4 P
0x12bbec…12bd80 Dummy {f00=0x013c, f01=0x0190, f02=» ! , ) @' F U G F G ' , " $ F " F +P P* X $ T 9r U W 9r R PB $P<W , X $ X " F $ P 'PW $ P $ - '8 + X ZV" P "P8 $P4W X " X ^T( ;AR ( + ( ' : T Y Z F "
0x12bd80…12bf14 (0, 380) Dummy {f00=0x013c, f01=0x0190, f02=» E E E F X ZV ? T B 4 (@( =a 9a Q - _ - > @ TPJ ` 4 6t ,< 6v A6t 7f ,< @1 , - M M M @1 A! A! > "" B B P ! Tn M 0 : , A"2 A"4" P ! "" "t P 0 "" @! 4
0x12bf14…12c0a8 Dummy {f00=0x013c, f01=0x0190, f02=» /x A! @"0 0 B 4 D! E! X #D( , ( B 4 B @! D! 4 W C C ( , , " ! @"0T A" 0" /b /b U _ L !SSP !LL /b W L @! A! V 0 P E! @! E! P E" P E" D!
0x12c0a8…12c23c Dummy {f00=0x013c, f01=0x0190, f02=» P %_ S % S E 3 P S E P S F P S $ P S & P % S D P & S L @" S ( B | . -x @! T W " T Wz @"0P R $ >a U Wb , =b P! P @! ! T. W< P! D! Y P" Y P" Y U ! T ! X6 _R _V
0x12c23c…12c3d0 Dummy {f00=0x013c, f01=0x0190, f02=» 4 4 "H (@( @"0 0 _ P `! ` 9A S Z D $X D S * S ;l R & S W S [ S R $ R & 7 S ^ 0.1 2 U _ L !SSP !LL W L @! A! V P E! @! E! P E" P E" D!
0x12c3d0…12c564 Dummy {f00=0x013c, f01=0x0190, f02=» P %_ S % S E 3 P S E P S F P S $ P S & P % S D P & S L @" S ( B | . -x @! T W " T W @"0P R $ >a U W , =b P! P @! ! T 1 ! Y P" Y P" Y U ! T ! X6 _R _V
0x12c564…12c6f8 Dummy {f00=0x013c, f01=0x0190, f02=» "H (@( @"0 0 _ P `! ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ 0. U _ L !SSP !LL W L @! A! V P E! @! E! @1 , L T
0x12c6f8…12c88c Dummy {f00=0x013c, f01=0x0190, f02=» L T M @1 : S E 3 P S E P S F P S $ P S & P % S D P & S L @" S ( B | . -x @! T W " T W @"0P R $ >a U W , =b P! P @! ! T ! Y P" Y P" Y U ! T ! X6 _R _V
0x12c88c…12ca20 Dummy {f00=0x013c, f01=0x0190, f02=» "H (@( "0 0 _ P `! ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ 0. U _ L !SSP !LL W L @! A! V P E! @! E! @1 , L T
0x12ca20…12cbb4 (0, 381) Dummy {f00=0x013c, f01=0x0190, f02=» T PT PJV P>V SH? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ :
0x12cbb4…12cd48 Dummy {f00=0x013c, f01=0x0190, f02=» P 4 M X M M _8 > : D HW 0P Q P P E 'P W : X ' ^ X H 1 Y H : H 4W 0P8 R Q P W R D ' Q ( 0 5 @; 1 A; Z> : D JW (P D ' I W6 @6tT ( A6t U 1_ D ' I D J ) E J :
0x12cd48…12cedc Dummy {f00=0x013c, f01=0x0190, f02=» B P6 T G W& X Z Y Z B I ~ B T B : X "? P P X P _ X * P X ! # C 4 W C C X %? : X "_ , D * P , _ D * D D & 7 T $ T " ^ S W
0x12cedc…12d070 Dummy {f00=0x013c, f01=0x0190, f02=»; P T M ]N , ) A; Pj P Y U ( ) 5 & > > > > > > > $ " [ [ [ [ [ [ [ > > [ [ ; Z Z ? ? Z Z Z Z Z Z Z " $ & > P "R Y W > <" Pl T Pb _ <
0x12d070…12d204 Dummy {f00=0x013c, f01=0x0190, f02=»?f? PB P8 < B P B L # +P ! ! T ! Y " ! W ! ! W ! Y Y U P" T Y "_* P4 R( Pj O]: V _B T Y Y " R Y _Z C _P " $ P X " X ]r ! Y Y Y _ " H= _
0x12d204…12d398 Dummy {f00=0x013c, f01=0x0190, f02=» ?Q ! Y R Q > ` -_ ? _ X # ! ^ Y _( X Z ! P4 P > > X " = ! ! X " > > ? A ? X V Y <" ! W: Y U P R A X ( ) Y * A X P Y C A B P T
0x12d398…12d52c Dummy {f00=0x013c, f01=0x0190, f02=» &X !A 8$ P W 8$ P $ T W $ Y 'PH Y %P Y $P T B ! 4 B Z W B W !A * T ! 4 C ! 0 < 0 Z B ! 4 B Z ZH X * ,T 6 W X (P Y * 0 %_. % Y * _d _ P B _ ?" 8 T ! )_ W ! T "? 9 0 R Q >
0x12d52c…12d6c0 Dummy {f00=0x013c, f01=0x0190, f02=» ( - <" B 1 " W 6T , (@ > BZG E E FH Eh ! 8! P ! P P D & DL < B P B H " +P P. T Y # ! R X $ Y "R Y " _ Y "_. 8$ T B 1 F ! E B B U4 $ ! T _ U
0x12d6c0…12d854 (0, 382) Dummy {f00=0x013d, f01=0x0190, f02=» B P 8' T( !GL B C E@ ^T PR RF ?] _ X X "" X %# C V C ! Y B ! Y _` C _ " $ P X # X ] ! E CF B 8! T !G !GL ! Eh !G R ! _ B !G V Z, ! _ 8!
0x12d854…12d9e8 Dummy {f00=0x013d, f01=0x0190, f02=» P"R ! _ R _ ! Y # CD " ! 8!0T 8 !@P ! $ P ! ! E ! T Y " T X " C <" X Y " Y > X " X "" Y %Q Y > X Z2<BR J Y 8" P ! ! T> 8" P d ! Y ! *0 ! X
0x12d9e8…12db7c Dummy {f00=0x013d, f01=0x0190, f02=» $ X 8! P !F _( X " !Gj !GL Y _D X " X "" Y %U W ! ! ! Y 4 B B U )X R@ X X "" Y & X % V Y !GL X $ X " !Gj X & CD B `R Y ! ! ! 4 ! V ! V
0x12db7c…12dd10 Dummy {f00=0x013d, f01=0x0190, f02=»_$.- ,' G G G G G H ($SWAP A A A A. P UU @ @ ! P$>B @Q AQ @Q E D P _ $ % $P _ % A @ " Q A H& : R W2 A N AP N P. M _ " :c* A N N W "
0x12dd10…12dea4 Dummy {f00=0x013d, f01=0x0190, f02=»J F J W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q Q K< Q Y P @ T W - Q P _ T <B :L A W
0x12dea4…12e038 Dummy {f00=0x013d, f01=0x0190, f02=» = :L < P W <9B @ V W Q Q W @Q @ A P @ P CRT @ P @ ! P W @ V P _ @ ! P P !RRP V @ P W _: P P P V @ PZ W @ @
0x12e038…12e1cc Dummy {f00=0x013d, f01=0x0190, f02=» M N TJ V 0 !;;P P V P$ _ P !;;T X$ W Q _J Q N T N N W N Mt O8 W W L V 0 !;;P P V Xb _ P !;;T X$ W Q nP XZ_V S AOq AO O8 @ R @ ! T
0x12e1cc…12e360 Dummy {f00=0x013d, f01=0x0190, f02=»M X C.9h! N N # " N N :A K : A T.I T P 1 I P < R P A _> Q : N~ AP AL AO> AOT AN AN AN AN : 9e9C) A I " 9A ! 9B r @H&r A I ! ( : N AP AL AO> AOT AO ! T AO
0x12e360…12e4f4 (0, 383) Dummy {f00=0x013d, f01=0x0190, f02=» OT 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P R @ T X W n : YX d C !CCTZ B. M X B.9 HH( Q N _ NX_ !SST& 0 UH. R X A X W : @ ' R xW V W$ V P P P W
0x12e4f4…12e688 Dummy {f00=0x013d, f01=0x0190, f02=» 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ : S| W Z A. c @ V
0x12e688…12e81c Dummy {f00=0x013d, f01=0x0190, f02=» @ A 9n A @ A A A. @ @ W A B : A <" > ;h 0 :C # : .=H N R R .=H N R R N : d 8" R _ ZY QY : @ H W z W | CR
0x12e81c…12e9b0 Dummy {f00=0x013d, f01=0x0190, f02=» % ^ V , P@ , - 4 ] 4 Q Y 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP Q ^ @ T Q Y R !TTX" A 9 A : @ @ P. @ " P #D T " P
0x12e9b0…12eb44 Dummy {f00=0x013d, f01=0x0190, f02=» @ T Q : @ :B W . !TTP Q ^ W t N =H N W l N =H N R W | ( @ % P W @ % P ^ P0 ^4 r " U Q _2 ^& P0 ^4 " U Q
0x12eb44…12ecd8 Dummy {f00=0x013d, f01=0x0190, f02=» !TTT Ul P @ @ T Q : ; ` @ P W>_ W> 3 S S V V W @ @ T Q : P S S _ : . !TTP Q V ^ W t * ^ P ^4 r
0x12ecd8…12ee6c Dummy {f00=0x013d, f01=0x0190, f02=» p _j V t Y R !TTX @ @ T Q : X~ @ R @ T Q P / _ T @ A V W ^ W t ^ PT W f ( ^4 W d ^D ^T G =h G V d V r < [6 V f P W f
0x12ee6c…12f000 Dummy {f00=0x013d, f01=0x0190, f02=» r 4 U Q $ $ _. ^& P, ^4 V 4 U Q $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W ^ P0 W f ^4 W d ^D V d V r < [6 V f _2 ^& U^ ^4 V 8 8
0x12f000…12f194 (0, 384) Dummy {f00=0x013d, f01=0x0190, f02=» 4 _r @ @ T Q : W V @ 0 V P _ W $ q > R P >b W >b & 8P D P U " E W H6 V W R 9 W D Q ) $ P@ D L T@ D "P V U , I ( I * $# P V -W H P U " I @
0x12f194…12f328 Dummy {f00=0x013d, f01=0x0190, f02=» $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U
0x12f328…12f4bc Dummy {f00=0x013d, f01=0x0190, f02=» : N =H N R : N =H N R : &=H F R : F =H F R : F =H F R : 00=H 00 P P _ _ : @ ! P (W ( : T T UJ V WX XX Yh ] : ^ ^ ^ ^ _. 0_d _ 0_ _ _ _ 0` `H ^ _ _
0x12f4bc…12f650 Dummy {f00=0x013d, f01=0x0190, f02=» F $ % 6? KB H W # T _ _ _ (BJDY W P 6? KB W | ` ` ` (BJDY _ / P $= GP _ .P _ / V z U
0x12f650…12f7e4 Dummy {f00=0x013d, f01=0x0000, f02=»
[…0x3…]
0x12fca0…130940 (1, 0) DirGranule ((1, 0)) {
0x12fca0…130940 DirEnt {nam=» : f «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0020}
0x12fca0…130940 DirEnt {nam=»a @«, typ=»a «, f00=0x5914, f01=0x8341, f02=0x61a0, f03=0x0795}
0x12fca0…130940 DirEnt {nam=»_: @a «, typ=»T «, f00=0x9041, f01=0x61a6, f02=0x8f20, f03=0x62f8}
0x12fca0…130940 DirEnt {nam=» T «, typ=» «, f00=0x5010, f01=0xf6a1, f02=0x643e, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»c «, typ=»c «, f00=0x5704, f01=0xf6a1, f02=0x63ee, f03=0x8f20}
0x12fca0…130940 DirEnt {nam=»b «, typ=» «, f00=0xf6a1, f01=0x63c6, f02=0x5f10, f03=0x0220}
0x12fca0…130940 DirEnt {nam=» 2 «, typ=»dP«, f00=0x0200, f01=0x0380, f02=0x9b06, f03=0x5008}
0x12fca0…130940 DirEnt {nam=» 5 «, typ=» «, f00=0xf03a, f01=0x8541, f02=0x6474, f03=0xff92}
0x12fca0…130940 DirEnt {nam=» * «, typ=» «, f00=0x64ac, f01=0x810c, f02=0x5404, f03=0x012e}
0x12fca0…130940 DirEnt {nam=» «, typ=» «, f00=0x0001, f01=0xea86, f02=0x500a, f03=0x1e01}
0x12fca0…130940 DirEnt {nam=»Y" «, typ=»_2«, f00=0x8514, f01=0x500a, f02=0xf6a1, f03=0x0000}
0x12fca0…130940 DirEnt {nam=» %%%«, typ=» «, f00=0x0000, f01=0xf03a, f02=0x0000, f03=0x0000}
0x12fca0…130940 DirEnt {nam=» <«, typ=» $«, f00=0x22ff, f01=0x923d, f02=0x8440, f03=0x0000}
0x12fca0…130940 DirEnt {nam=» A A«, typ=» «, f00=0xf6a1, f01=0x5041, f02=0x4745, f03=0x3a20}
0x12fca0…130940 DirEnt {nam=» f «, typ=» «, f00=0x5700, f01=0x8340, f02=0x0000, f03=0x136e}
0x12fca0…130940 DirEnt {nam=» A «, typ=» «, f00=0xff92, f01=0x8341, f02=0x0000, f03=0x80a0}
0x12fca0…130940 DirEnt {nam=» «, typ=» «, f00=0x2804, f01=0x0002, f02=0x8140, f03=0x0000}
0x12fca0…130940 DirEnt {nam=» @ «, typ=» «, f00=0x8341, f01=0x0000, f02=0x8241, f03=0x0000}
0x12fca0…130940 DirEnt {nam=» «, typ=»( «, f00=0x0001, f01=0x8742, f02=0x0008, f03=0x2703}
0x12fca0…130940 DirEnt {nam=»P «, typ=» A«, f00=0x0000, f01=0x8f20, f02=0x56f8, f03=0xf03a}
0x12fca0…130940 DirEnt {nam=» «, typ=»U «, f00=0x83a0, f01=0x0028, f02=0xe12a, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»hZ «, typ=» «, f00=0x2092, f01=0x2502, f02=0x9284, f03=0x1002}
0x12fca0…130940 DirEnt {nam=» «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0002, f03=0x0086}
0x12fca0…130940 DirEnt {nam=»U Y «, typ=» «, f00=0x64da, f01=0x5f1c, f02=0xf6a1, f03=0x64da}
0x12fca0…130940 DirEnt {nam=» : h «, typ=» «, f00=0x26ff, f01=0x5024, f02=0x1e20, f03=0x5508}
0x12fca0…130940 DirEnt {nam=» ?V «, typ=»W «, f00=0x015f, f01=0xf6a1, f02=0x65da, f03=0x571e}
0x12fca0…130940 DirEnt {nam=» h «, typ=» «, f00=0x65c8, f01=0x5712, f02=0x2455, f03=0x4e20}
0x12fca0…130940 DirEnt {nam=» # «, typ=»e «, f00=0x8118, f01=0xf6a1, f02=0x65e4, f03=0x0120}
0x12fca0…130940 DirEnt {nam=» e :«, typ=»h «, f00=0x68b4, f01=0x21ff, f02=0x8304, f03=0x1b20}
0x12fca0…130940 DirEnt {nam=»R ?U «, typ=»W «, f00=0x8304, f01=0x5714, f02=0x21ff, f03=0x8304}
0x12fca0…130940 DirEnt {nam=» @R @«, typ=»R «, f00=0x1b40, f01=0x5208, f02=0xe34c, f03=0x6910}
0x12fca0…130940 DirEnt {nam=»# : «, typ=» :«, f00=0x2000, f01=0x0000, f02=0x0000, f03=0x0000}
0x12fca0…130940 DirEnt {nam=»HI «, typ=» «, f00=0x004a, f01=0x4b4c, f02=0x4d4e, f03=0x4f50}
0x12fca0…130940 DirEnt {nam=»QR «, typ=» «, f00=0x0000, f01=0x5354, f02=0x5556, f03=0x5758}
0x12fca0…130940 DirEnt {nam=»YZ «, typ=» «, f00=0x3031, f01=0x3233, f02=0x3435, f03=0x3637}
0x12fca0…130940 DirEnt {nam=»89 «, typ=» «, f00=0x8541, f01=0x69e0, f02=0x83a0, f03=0x0010}
0x12fca0…130940 DirEnt {nam=» i «, typ=» «, f00=0xf6a1, f01=0x667c, f02=0x8186, f03=0x553c}
0x12fca0…130940 DirEnt {nam=» " T «, typ=» «, f00=0xf6a1, f01=0x65da, f02=0x820e, f03=0x2207}
0x12fca0…130940 DirEnt {nam=»T «, typ=»e «, f00=0xe12a, f01=0xf6a1, f02=0x65e4, f03=0xe12a}
0x12fca0…130940 DirEnt {nam=» @i «, typ=»i «, f00=0x23ff, f01=0x5402, f02=0x032e, f03=0xe335}
0x12fca0…130940 DirEnt {nam=» «, typ=» «, f00=0x9b88, f01=0x5940, f02=0x0238, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»f: " «, typ=»e «, f00=0x8120, f01=0x69d0, f02=0x8214, f03=0x9a04}
0x12fca0…130940 DirEnt {nam=» e "«, typ=» «, f00=0x0920, f01=0x0248, f02=0x1258, f03=0x0001}
0x12fca0…130940 DirEnt {nam=»e d «, typ=» «, f00=0x5976, f01=0xf6a1, f02=0x64d2, f03=0xf03a}
0x12fca0…130940 DirEnt {nam=»a @«, typ=»a «, f00=0x5914, f01=0x8341, f02=0x61a0, f03=0x0795}
0x12fca0…130940 DirEnt {nam=»_:h h «, typ=»T «, f00=0x69fe, f01=0x0001, f02=0x8f20, f03=0x62f8}
0x12fca0…130940 DirEnt {nam=» T «, typ=» «, f00=0x5010, f01=0xf6a1, f02=0x643e, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»c 0OK«, typ=»? «, f00=0x2030, f01=0x4f55, f02=0x5450, f03=0x5554}
0x12fca0…130940 DirEnt {nam=» VOLUM«, typ=»E «, f00=0x4e41, f01=0x4d45, f02=0x3a20, f03=0x2020}
0x12fca0…130940 DirEnt {nam=» «, typ=»i «, f00=0x8143, f01=0x0002, f02=0x8243, f03=0x0004}
0x12fca0…130940 DirEnt {nam=» R «, typ=» A«, f00=0x69f3, f01=0x0100, f02=0x22ff, f03=0x500c}
0x12fca0…130940 DirEnt {nam=» Ai «, typ=»( «, f00=0x0001, f01=0xf03a, f02=0x96a0, f03=0x0004}
0x12fca0…130940 DirEnt {nam=» : B «, typ=» «, f00=0x8220, f01=0x6a1e, f02=0x0306, f03=0xe424}
0x12fca0…130940 DirEnt {nam=» ) «, typ=» «, f00=0x590c, f01=0x8120, f02=0x6a08, f03=0x021c}
0x12fca0…130940 DirEnt {nam=» j$ «, typ=»j «, f00=0x0206, f01=0xf6a1, f02=0x6a24, f03=0xa041}
0x12fca0…130940 DirEnt {nam=»i «, typ=»i «, f00=0x2804, f01=0x0001, f02=0xe160, f03=0x69e8}
0x12fca0…130940 DirEnt {nam=» YP «, typ=» $«, f00=0x1901, f01=0xf03a, f02=0x0003, f03=0x0005}
0x12fca0…130940 DirEnt {nam=» «, typ=» «, f00=0x5204, f01=0x1101, f02=0x5f08, f03=0x8104}
0x12fca0…130940 DirEnt {nam=»P 0 -«, typ=» «, f00=0x8120, f01=0x8000, f02=0x9210, f03=0xf03a}
0x12fca0…130940 DirEnt {nam=» ; «, typ=» [«, f00=0x0002, f01=0x0100, f02=0x8208, f03=0x5608}
0x12fca0…130940 DirEnt {nam=» - -«, typ=» «, f00=0x8420, f01=0x2710, f02=0xf6a1, f03=0x6ab6}
0x12fca0…130940 DirEnt {nam=» «, typ=»j «, f00=0x0464, f01=0xf6a1, f02=0x6ab6, f03=0x040a}
0x12fca0…130940 DirEnt {nam=» j «, typ=» «, f00=0x6ac2, f01=0x845a, f02=0x0002, f03=0x96a0}
0x12fca0…130940 DirEnt {nam=» : «, typ=» :«, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x833b}
0x12fca0…130940 DirEnt {nam=» «, typ=»k «, f00=0xf6a1, f01=0x6ad0, f02=0x96a0, f03=0x0002}
0x12fca0…130940 DirEnt {nam=» : V «, typ=» «, f00=0xa292, f01=0x6902, f02=0x8000, f03=0x1008}
0x12fca0…130940 DirEnt {nam=»@ R «, typ=» «, f00=0x0000, f01=0x0112, f02=0x4800, f03=0x1406}
0x12fca0…130940 DirEnt {nam=» *W «, typ=» «, f00=0x1c01, f01=0x520a, f02=0xe12d, f03=0x1301}
0x12fca0…130940 DirEnt {nam=»_ 1 T «, typ=» «, f00=0x1a01, f01=0x520c, f02=0xe150, f03=0x6b18}
0x12fca0…130940 DirEnt {nam=» - «, typ=»_ «, f00=0xf03a, f01=0x8198, f02=0x829c, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»UjR «, typ=» «, f00=0x870a, f01=0x5f0e, f02=0x8514, f03=0x500c}
0x12fca0…130940 DirEnt {nam=» 0 / «, typ=» «, f00=0x8520, f01=0x8000, f02=0x8606, f03=0x870a}
0x12fca0…130940 DirEnt {nam=» U :«, typ=» ;«, f00=0x9ea0, f01=0x0010, f02=0x845b, f03=0x0002}
0x12fca0…130940 DirEnt {nam=» [ [«, typ=» «, f00=0x875b, f01=0x0008, f02=0x81db, f03=0x000a}
0x12fca0…130940 DirEnt {nam=» «, typ=» «, f00=0x0500, f01=0x838c, f02=0x8720, f03=0x4240}
0x12fca0…130940 DirEnt {nam=» kb«, typ=» «, f00=0x06a0, f01=0x0603, f02=0xf6a1, f03=0x6b62}
0x12fca0…130940 DirEnt {nam=» ' «, typ=» «, f00=0x6b62, f01=0x8720, f02=0x03e8, f03=0x0600}
0x12fca0…130940 DirEnt {nam=» kb d«, typ=» «, f00=0xf6a1, f01=0x6b62, f02=0x070a, f03=0x0600}
0x12fca0…130940 DirEnt {nam=» kb «, typ=» «, f00=0x6b78, f01=0x830e, f02=0x845a, f03=0x0002}
0x12fca0…130940 DirEnt {nam=» Z Z«, typ=» «, f00=0x875a, f01=0x0008, f02=0x81da, f03=0x000a}
0x12fca0…130940 DirEnt {nam=» «, typ=» «, f00=0x96a0, f01=0x0010, f02=0x9b3a, f03=0x820c}
0x12fca0…130940 DirEnt {nam=» : «, typ=» «, f00=0x0000, f01=0x0000, f02=0x833b, f03=0x9ea0}
0x12fca0…130940 DirEnt {nam=» l «, typ=» «, f00=0x6b8e, f01=0x96a0, f02=0x0002, f03=0x833a}
0x12fca0…130940 DirEnt {nam=» V «, typ=» *«, f00=0x5702, f01=0x0120, f02=0x1c01, f03=0x520a}
0x12fca0…130940 DirEnt {nam=» - _ «, typ=»1 «, f00=0x5412, f01=0x0400, f02=0x1a01, f03=0x520c}
0x12fca0…130940 DirEnt {nam=» Pl -«, typ=» «, f00=0x1401, f01=0x5f10, f02=0xf03a, f03=0x8420}
0x12fca0…130940 DirEnt {nam=» W «, typ=» ;«, f00=0x9ea0, f01=0x000c, f02=0x825b, f03=0x000a}
0x12fca0…130940 DirEnt {nam=» [ [«, typ=» «, f00=0x875b, f01=0x0002, f02=0x8220, f03=0xfffb}
0x12fca0…130940 DirEnt {nam=» Am «, typ=» «, f00=0x5606, f01=0x8220, f02=0x8020, f03=0x5704}
0x12fca0…130940 DirEnt {nam=» - A«, typ=»m «, f00=0x060a, f01=0x1e02, f02=0x0500, f03=0x5240}
0x12fca0…130940 DirEnt {nam=» Xm «, typ=»R «, f00=0x0001, f01=0x0080, f02=0x0040, f03=0x0000}
0x12fca0…130940 DirEnt {nam=»! DH «, typ=» («, f00=0x0000, f01=0x4000, f02=0x0040, f03=0x104f}
0x12fca0…130940 DirEnt {nam=» Xm «, typ=»_ «, f00=0x9041, f01=0x6d0c, f02=0x5012, f03=0x5120}
0x12fca0…130940 DirEnt {nam=» T «, typ=»Z&«, f00=0x0220, f01=0xe22d, f02=0x1301, f03=0x5f2e}
0x12fca0…130940 DirEnt {nam=» Am @«, typ=»m «, f00=0xa211, f01=0x5204, f02=0xe22d, f03=0x1301}
0x12fca0…130940 DirEnt {nam=» 0 - «, typ=»_F«, f00=0x875a, f01=0x0002, f02=0x865a, f03=0x0004}
0x12fca0…130940 DirEnt {nam=» Z Z«, typ=» «, f00=0x96a0, f01=0x000c, f02=0x813a, f03=0xf03a}
0x12fca0…130940 DirEnt {nam=»** «, typ=» d«, f00=0x03e8, f01=0x2710, f02=0x0000, f03=0x2020}
0x12fca0…130940 DirEnt {nam=» «, typ=»i «, f00=0x8143, f01=0x0002, f02=0x8243, f03=0x0004}
0x12fca0…130940 DirEnt {nam=» R «, typ=» A«, f00=0x69f3, f01=0x0100, f02=0x22ff, f03=0x500c}
0x12fca0…130940 DirEnt {nam=» Ai «, typ=»( «, f00=0x0001, f01=0xf03a, f02=0x96a0, f03=0x0004}
0x12fca0…130940 DirEnt {nam=» : B «, typ=» «, f00=0x8220, f01=0x6a1e, f02=0x0306, f03=0xe424}
0x12fca0…130940 DirEnt {nam=» ) «, typ=» «, f00=0x590c, f01=0x8120, f02=0x6a08, f03=0x021c}
0x12fca0…130940 DirEnt {nam=» j$ «, typ=»j «, f00=0x0206, f01=0xf6a1, f02=0x6a24, f03=0xa041}
0x12fca0…130940 DirEnt {nam=»i «, typ=»i «, f00=0x2804, f01=0x0001, f02=0xe160, f03=0x69e8}
0x12fca0…130940 DirEnt {nam=» YP «, typ=» $«, f00=0x1901, f01=0xf03a, f02=0x0003, f03=0x0005}
0x12fca0…130940 DirEnt {nam=» «, typ=» «, f00=0x5200, f01=0x1101, f02=0x5f08, f03=0x8104}
0x12fca0…130940 DirEnt {nam=»P 0 -«, typ=» «, f00=0x8120, f01=0x8000, f02=0x9210, f03=0xf03a}
0x12fca0…130940 DirEnt {nam=» ; «, typ=» [«, f00=0x0002, f01=0x0100, f02=0x8208, f03=0x5600}
0x12fca0…130940 DirEnt {nam=» - -«, typ=» «, f00=0x8420, f01=0x2710, f02=0xf6a1, f03=0x6ab6}
0x12fca0…130940 DirEnt {nam=»m n «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0223}
0x12fca0…130940 DirEnt {nam=» +«, typ=»: «, f00=0x202b, f01=0x3f07, f02=0x202b, f03=0x202a}
0x12fca0…130940 DirEnt {nam=»CAN* «, typ=»k «, f00=0xf6a1, f01=0x6ad0, f02=0x96a0, f03=0x0002}
0x12fca0…130940 DirEnt {nam=» : V «, typ=» «, f00=0x4400, f01=0x5000, f02=0x0000, f03=0x1008}
0x12fca0…130940 DirEnt {nam=»@ R «, typ=» «, f00=0x0000, f01=0x0108, f02=0xa000, f03=0x1406}
0x12fca0…130940 DirEnt {nam=» *W «, typ=» «, f00=0x1c01, f01=0x520a, f02=0xe12d, f03=0x1301}
0x12fca0…130940 DirEnt {nam=»_ 1 T «, typ=» «, f00=0x1a01, f01=0x520c, f02=0xe150, f03=0x6b18}
0x12fca0…130940 DirEnt {nam=» - «, typ=»_ «, f00=0xf03a, f01=0x8198, f02=0x829c, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»UjR «, typ=» «, f00=0x870a, f01=0x5f0e, f02=0x8514, f03=0x500c}
0x12fca0…130940 DirEnt {nam=» 0 / «, typ=» «, f00=0x8520, f01=0x8000, f02=0x8606, f03=0x870a}
0x12fca0…130940 DirEnt {nam=» U :«, typ=» ;«, f00=0x9ea0, f01=0x0010, f02=0x6d0e, f03=0x6e16}
0x12fca0…130940 DirEnt {nam=»n + *«, typ=»CO«, f00=0x4d54, f01=0x4142, f02=0x204f, f03=0x5646}
0x12fca0…130940 DirEnt {nam=»L* + *«, typ=»TO«, f00=0x4f20, f01=0x4c4f, f02=0x4e47, f03=0x2a20}
0x12fca0…130940 DirEnt {nam=» + *ST«, typ=»RT«, f00=0x4142, f01=0x204f, f02=0x5646, f03=0x4c2a}
0x12fca0…130940 DirEnt {nam=» + *NU«, typ=»M «, f00=0x4f56, f01=0x464c, f02=0x2a20, f03=0x080a}
0x12fca0…130940 DirEnt {nam=» ,* «, typ=». «, f00=0x272f, f01=0x8427, f02=0x91a0, f03=0x0002}
0x12fca0…130940 DirEnt {nam=» m^ «, typ=»q&«, f00=0xf03a, f01=0xe744, f02=0x0002, f03=0xe761}
0x12fca0…130940 DirEnt {nam=»m Am «, typ=» «, f00=0x5702, f01=0x0785, f02=0x8141, f03=0x6df4}
0x12fca0…130940 DirEnt {nam=» Am «, typ=»m «, f00=0x2804, f01=0x0001, f02=0xf03a, f03=0x8120}
0x12fca0…130940 DirEnt {nam=»m Am «, typ=» «, f00=0x80a0, f01=0x6de6, f02=0x2804, f03=0x0001}
0x12fca0…130940 DirEnt {nam=» B P «, typ=»! «, f00=0x8c20, f01=0x712a, f02=0x9d14, f03=0xe560}
0x12fca0…130940 DirEnt {nam=»m Am «, typ=»% «, f00=0x572e, f01=0x8120, f02=0x6e0c, f03=0x0208}
0x12fca0…130940 DirEnt {nam=» n «, typ=»m «, f00=0x0101, f01=0xa140, f02=0x6de4, f03=0x507e}
0x12fca0…130940 DirEnt {nam=» @n A«, typ=»m «, f00=0x8120, f01=0x6e14, f02=0x9a04, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»n n «, typ=»W «, f00=0x0104, f01=0x8214, f02=0x1a30, f03=0x520c}
0x12fca0…130940 DirEnt {nam=» U0 «, typ=»R «, f00=0x1a19, f01=0x552c, f02=0x0206, f03=0x1a01}
0x12fca0…130940 DirEnt {nam=»R. In «, typ=» «, f00=0x5722, f01=0xed41, f02=0x6ed0, f03=0x5022}
0x12fca0…130940 DirEnt {nam=» An W «, typ=» «, f00=0x1901, f01=0x5216, f02=0xed45, f03=0x6eca}
0x12fca0…130940 DirEnt {nam=»P _ «, typ=»W «, f00=0x0001, f01=0x0080, f02=0x0043, f03=0x8000}
0x12fca0…130940 DirEnt {nam=» W «, typ=»W «, f00=0x390f, f01=0xf681, f02=0x815a, f03=0x0002}
0x12fca0…130940 DirEnt {nam=» [«, typ=» «, f00=0xf03a, f01=0x0101, f02=0x8141, f03=0x6de4}
0x12fca0…130940 DirEnt {nam=» Am :«, typ=» «, f00=0x6dde, f01=0x82a0, f02=0x6d5e, f03=0x81a0}
0x12fca0…130940 DirEnt {nam=»m n «, typ=» A«, f00=0x6de8, f01=0x8120, f02=0x6e02, f03=0x0202}
0x12fca0…130940 DirEnt {nam=» n «, typ=»n «, f00=0x8140, f01=0x6de8, f02=0x8141, f03=0x6e86}
0x12fca0…130940 DirEnt {nam=» Am «, typ=»n «, f00=0x0203, f01=0xf6a1, f02=0x6ee2, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»o P R «, typ=» «, f00=0x6f82, f01=0x5008, f02=0x5718, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»o X @«, typ=»m «, f00=0xf6a1, f01=0x6ed2, f02=0xf6a1, f03=0x6f60}
0x12fca0…130940 DirEnt {nam=» o W&«, typ=» «, f00=0x8224, f01=0x50ee, f02=0xed25, f03=0x5004}
0x12fca0…130940 DirEnt {nam=» _ «, typ=» «, f00=0xf6a1, f01=0x6ed2, f02=0x8441, f03=0x6de0}
0x12fca0…130940 DirEnt {nam=» o A«, typ=»m «, f00=0xf6a1, f01=0x6f06, f02=0x5020, f03=0x5112}
0x12fca0…130940 DirEnt {nam=»S o «, typ=»X «, f00=0x579e, f01=0xf6a1, f02=0x6f82, f03=0x5038}
0x12fca0…130940 DirEnt {nam=»W «, typ=» «, f00=0xf6a1, f01=0x6ed2, f02=0x5f2e, f03=0x0400}
0x12fca0…130940 DirEnt {nam=»% «, typ=»< «, f00=0x53bc, f01=0x9414, f02=0x53b8, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»o X S «, typ=» «, f00=0x6ed2, f01=0x5f40, f02=0xf6a1, f03=0x6f82}
0x12fca0…130940 DirEnt {nam=»T Am «, typ=»W «, f00=0x860a, f01=0xf6a1, f02=0x6f06, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»o P «, typ=»m «, f00=0x5688, f01=0xe539, f02=0x1601, f03=0x5f16}
0x12fca0…130940 DirEnt {nam=» o «, typ=»o «, f00=0x5816, f01=0xf6a1, f02=0x6f60, f03=0x567a}
0x12fca0…130940 DirEnt {nam=» @m P «, typ=» «, f00=0x0120, f01=0xea18, f02=0x550c, f03=0xe139}
0x12fca0…130940 DirEnt {nam=» m «, typ=»VZ«, f00=0x5f10, f01=0x8608, f02=0x8418, f03=0x9c0a}
0x12fca0…130940 DirEnt {nam=» ?QH«, typ=» «, f00=0x3c48, f01=0x9aa0, f02=0x6d5e, f03=0xac0a}
0x12fca0…130940 DirEnt {nam=» n «, typ=»_ «, f00=0x8420, f01=0xffff, f02=0xf6a1, f03=0x6ed2}
0x12fca0…130940 DirEnt {nam=» !..T «, typ=» «, f00=0x6e0c, f01=0x0203, f02=0xf6a1, f03=0x6ee2}
0x12fca0…130940 DirEnt {nam=» o «, typ=»n «, f00=0x0001, f01=0x4aaa, f02=0x5552, f03=0x8895}
0x12fca0…130940 DirEnt {nam=»@ T" «, typ=» "«, f00=0x9052, f01=0x4020, f02=0x0241, f03=0x0956}
0x12fca0…130940 DirEnt {nam=» : W «, typ=» «, f00=0x571a, f01=0x0304, f02=0x5716, f03=0x0306}
0x12fca0…130940 DirEnt {nam=»W W «, typ=» «, f00=0x570a, f01=0x030c, f02=0x5706, f03=0x030e}
0x12fca0…130940 DirEnt {nam=»W L«, typ=»q «, f00=0x3a6b, f01=0x500c, f02=0x8148, f03=0x7174}
0x12fca0…130940 DirEnt {nam=» Hq~ «, typ=»n «, f00=0x824c, f01=0x7190, f02=0x3a67, f03=0x221e}
0x12fca0…130940 DirEnt {nam=»P q «, typ=» L«, f00=0x7190, f01=0x3a63, f02=0x221e, f03=0x8f48}
0x12fca0…130940 DirEnt {nam=»qhp~o «, typ=»p@«, f00=0x6f3c, f01=0x6f06, f02=0x70b0, f03=0x6e08}
0x12fca0…130940 DirEnt {nam=»n n n «, typ=»n «, f00=0x0004, f01=0x0010, f02=0x000e, f03=0x0010}
0x12fca0…130940 DirEnt {nam=» n q «, typ=»q «, f00=0x1240, f01=0x1330, f02=0x1310, f03=0x2040}
0x12fca0…130940 DirEnt {nam=» P1@@@«, typ=»P@«, f00=0x1360, f01=0x9041, f02=0x6de4, f03=0xf03a}
0x12fca0…130940 DirEnt {nam=» n «, typ=» «, f00=0x6ef2, f01=0x1a05, f02=0x9241, f03=0x6de8}
0x12fca0…130940 DirEnt {nam=» : «, typ=» 2«, f00=0x8244, f01=0x0020, f02=0xea20, f03=0x544f}
0x12fca0…130940 DirEnt {nam=»TN 0 $«, typ=»' «, f00=0x8624, f01=0x26ff, f02=0xee20, f03=0x0003}
0x12fca0…130940 DirEnt {nam=»PL «, typ=»P «, f00=0xee20, f01=0x0002, f02=0x5020, f03=0xee20}
0x12fca0…130940 DirEnt {nam=» P, «, typ=» «, f00=0x5042, f01=0x5724, f02=0xef20, f03=0x0001}
0x12fca0…130940 DirEnt {nam=»PH «, typ=»PP«, f00=0xef20, f01=0x0003, f02=0x5058, f03=0xef20}
0x12fca0…130940 DirEnt {nam=» P` «, typ=» «, f00=0x5068, f01=0xef20, f02=0x0003, f03=0x5070}
0x12fca0…130940 DirEnt {nam=» «, typ=»S «, f00=0xf6a1, f01=0x7298, f02=0x5770, f03=0x82a0}
0x12fca0…130940 DirEnt {nam=» «, typ=»r «, f00=0x5754, f01=0x82a0, f02=0x0000, f03=0x83a0}
0x12fca0…130940 DirEnt {nam=»%s r «, typ=»WF«, f00=0x82a0, f01=0x0000, f02=0x83a0, f03=0x184f}
0x12fca0…130940 DirEnt {nam=» r W8«, typ=» «, f00=0x0000, f01=0x83a0, f02=0x263f, f03=0xf6a1}
0x12fca0…130940 DirEnt {nam=»r W* «, typ=» «, f00=0x83a0, f01=0x4ae7, f02=0xf6a1, f03=0x7298}
0x12fca0…130940 DirEnt {nam=»W «, typ=» «, f00=0x3167, f01=0xf6a1, f02=0x7298, f03=0x570e}
0x12fca0…130940 DirEnt {nam=» «, typ=»L «, f00=0x0000, f01=0x1154, f02=0x28ff, f03=0xf070}
0x12fca0…130940 DirEnt {nam=» I «, typ=» «, f00=0x0408, f01=0x1020, f02=0x4081, f03=0x020f}
0x12fca0…130940 }
0x130940…18f440 (1, 1) [
0x130940…18f440 [0x000]: Pad {f00=0x0058, f01=0x0190, f02=» r W : R Q R @q T R Q R : q : Am n n n @m An Am n n o P R o P W o X @m n o` o W $P %P _ n Am o Am o P Q S o X W o P W n _. % < S S o X S n _@ o T Am W o o P m V
0x130940…18f440 [0x001]: Pad {f00=0x0058, f01=0x018e, f02=» n PLOC:10 EQU * P =20 P* , P EJECT PRVTOC 6 P* N P* ****** X P* * VL * h P* ****** x P* P* READ VL TO BUF1 P* P LDKL A7,BUFLEN =1 P ST A7,ECBR+4 =1 P LDKL A8,ECBR P CM ECBC
0x130940…18f440 [0x002]: Pad {f00=0x0058, f01=0x0190, f02=» x $ P LD A6,ECBRC,A8 GET RETURN CODE P =20 0 P ANK A6,/20 (WAS 80) =3 @ " P RB(NZ) VL01 NEW VOLUME LOADED ` P LD A6,ECBRC,A8 P ANK A6,/1 $ P ABL(NZ) RTNNO DISC NOT OPERABLE P LD A6,ECBRC,A8 P ANKL A6,/820E P
0x130940…18f440 [0x003]: Pad {f00=0x0058, f01=0x0190, f02=» " P LDR* A3,A12 GET BUF1 ADDRESS P* =1 DEL * P LDKL A6,VLNAME : P LDK A2,3 R P* d . PVL03 LDR* A1,A3 MOVE VOLUME NAME TO VLNAME n P STR A1,A6 P ADK A3,2 P ADK A6,2 P SUK A2,1 P RB(NZ) VL03 P* $ P LDK
0x130940…18f440 [0x004]: Pad {f00=0x0058, f01=0x0190, f02=»SC FORMAT x P* P LDK A7,7 PVL05 LDR* A1,A5 . P ST A1,TOSREL,A2 F P ADK A2,2 ^ P ADK A5,2 p P SUK A7,1 COUNTER P RB(P) VL05 NEXT P* P EJECT PRVTOC P* P* WRITE VOLUME NAME P* P LDK
0x130940…18f440 [0x005]: Pad {f00=0x0058, f01=0x0190, f02=» P* P LDKL A9,TOSSRL P LDK A7,QTOSRL & P CF A14,PRINT < P* R " P LDR* A2,A3 VTOC LENGTH TO A2 P ST A2,VTCLEN P ADK A3,4 P LDR* A1,A3 VTOC BASE TO A1 P ST A1,VTCBAS P ADK A3,2 ( P LDR* A2,A3 VTOC REC
0x130940…18f440 [0x006]: Pad {f00=0x0058, f01=0x0190, f02=» P* P EJECT PRVTOC P* & P* *********** 0 P* *VTOC FSAT* F P* *********** P* r 8 P* READ SECTORS WITH VTOC BASE CONTAINING FREE SPACE | P* ADMINISTRATING TABLE FSAT P* P* =1 START P LD A7,NRFST
0x130940…18f440 [0x007]: Pad {f00=0x0058, f01=0x0190, f02=»T A6,NRFSAT P* =1 END P LDKL A8,ECBR $ P =20 : P LDK A7,/91 J & P ST A1,ECBCW2,A8 SECTOR NO TO ECBR ^ P* PLINK1 LKM P DATA 1 P* TEST OF RETURN CODE $ P LD A6,ECBRC,A8 GET RETURN CODE P =20 P
0x130940…18f440 [0x008]: Pad {f00=0x0058, f01=0x0000, f02=»
0x130940…18f440 [0x009]: Pad {f00=0x0058, f01=0x0016, f02=» ( 0 8 @ H P X
0x130940…18f440 [0x00a]: Pad {f00=0x0058, f01=0x0190, f02=»4v Or . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x00b]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x00c]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x00d]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x00e]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x00f]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x010]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x011]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x012]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x013]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x014]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x015]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x016]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x017]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x018]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x019]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x01a]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x01b]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x01c]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x01d]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x01e]: Pad {f00=0x0058, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x01f]: Pad {f00=0x0058, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x020]: Pad {f00=0x0059, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x021]: Pad {f00=0x0059, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x022]: Pad {f00=0x0059, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x023]: Pad {f00=0x0059, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x024]: Pad {f00=0x0059, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x025]: Pad {f00=0x0059, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x026]: Pad {f00=0x0059, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x027]: Pad {f00=0x0059, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x028]: Pad {f00=0x0059, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x029]: Pad {f00=0x0059, f01=0x0190, f02=» 4c @]u N d 2Z $"z y L / y N Dl` n $ @ 4Z wL a [ ? d d% L & "~ T &b CCn 1 d J < R:R: ` T l` % l`zF :| Fb fvzn : v ` ^* D3bH P D' >~ `" f >~ $' d p 4d @ BH|
0x130940…18f440 [0x02a]: Pad {f00=0x0059, f01=0x0190, f02=» ^F < . 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ ,* # + RC: 0 r tB l`Tg t z ^ lFZF H 2 Z j zP
0x130940…18f440 [0x02b]: Pad {f00=0x0059, f01=0x0190, f02=» > V W . C / C ( B P 1 _ B Z T / 0 . B U [ B : $ !; P I. =Z I. . . C C ( : [ ? 0 Z : [ [ [ [ QxP~ , 0 S* P. 9A<AV S _0
0x130940…18f440 [0x02c]: Pad {f00=0x0059, f01=0x0190, f02=» Y6 _ [ [ Q. , 0R" 9U AR FQ 0 P =D _, [ Z Z : = ! U 9 - Y : [ [ [ [ [ [ [ RZ 0=A A T R !LLT TE ! A0@ TA R TE 0 XF V 1 _D 1 0lW6
0x130940…18f440 [0x02d]: Pad {f00=0x0059, f01=0x0190, f02=» >Px Pr PlW _ A0< TA >FV :A HB @0<Y HB @0<Z >AV DdW _ _ @0< @0@ >BV -Wp>AV -Wh>AVd B /8 RV _ @0@ T T S S S S >T T S S S S @0> - - TE A0@ . B 2 R& TA > R > @0: T T W 3
0x130940…18f440 [0x02e]: Pad {f00=0x0059, f01=0x0190, f02=»5 TH 5 #( W0 @5 P 5 #( : d M/ ^ R _ @4 / 2jW 5 _ / . 0 @5 P8 P2 R " R Q 5 #( @5 T R A5 _. @0: E 5 P^Q0 T$ 5 W2FUNCTION NOT IN THIS PACKAGE ;
0x130940…18f440 [0x02f]: Pad {f00=0x0059, f01=0x0190, f02=»2 MT1 MT2 pqCSH @/8 !NNP !YYP 8 A0< : @/8! P P 8 A0< : @E(" ( " R @0< ] 8 : W @/8 FDX 8 HQ @/8T HQ A/:T W 8 8 A0< : W @/8 FDX 8 HQ @/8T HQ A/:T W 8 8 A0< @/8 CDP
0x130940…18f440 [0x030]: Pad {f00=0x0059, f01=0x0190, f02=» W6 : R !LLT : @/8! YT A0< @0: &T : X < A6pW* A6n A6p A6j A6lW$ A6l A6pW A6j A6pW A6p A6j A6l A6n ;d @6lP AxW @6jP AzW @6pP At A6lW Ap 2jW [ : H P P _ @6nT A/ A; W @6lP A/ _ A/ _ @0:
0x130940…18f440 [0x031]: Pad {f00=0x0059, f01=0x0190, f02=» ] @ @; ; A; ( B 9 ( @ LP ] : ] < ( A; 9 @; @6nT A/ W A/ / : P P ;> 5 9 DG 5 @ ] ^ ( = ( = P P P P _& _, @
0x130940…18f440 [0x032]: Pad {f00=0x0059, f01=0x0190, f02=» B T / : ! P ;T 5 ' P< ( @; P W ; ( 8 Q 9A DG T ;( 5 FATAL DM OPEN ERROR ; FATAL FM OPEN ERROR ; DISC I/O ERROR; T @6lT "] : @/8 DKTj A/ : @/8 DKP WX A/ : @/8 DK
0x130940…18f440 [0x033]: Pad {f00=0x0059, f01=0x0190, f02=» 6bW& <l 6b E/ P < A/ W < A/ 0< : @/8 @/: "P ^ Wp C ;b : @/8! YT A0< : P WL _ AhW Al 2jW W2 : @/8 R& I6f : W @/8! P !P T A0< : [ : 6 W A6n < W 1 0l_ A6nW< ; @0< # ( B # TlW IBM
0x130940…18f440 [0x034]: Pad {f00=0x0059, f01=0x0190, f02=» :' P P =>W =H 0 _ /8 = Z rQ0 , 0 = Z %U < : ,! 9D ," : , 0 & = 0_. `0B /; /8^ /7 00 /8R _ a0B /8 = > ]| (Y : : : 7 _ _ S : W @ A0< : &P P @
0x130940…18f440 [0x035]: Pad {f00=0x0059, f01=0x0190, f02=» * ?zT@ @/ A/ W2 J ?zT @/ A/ W * J ?zT @/ A/ W : $ ) : Y :TOSS UTILITIES REL 10.0 DATE: 80-03-14 12NC=870136641000 ; 0CC: WHAT?? ZCRV CRF DLF PVC PDS UDS CDD CFF CFT CTF PRF SCT LFD ULD CIT CTI WIL PIT BIX RIX CCF SR
0x130940…18f440 [0x036]: Pad {f00=0x0059, f01=0x0190, f02=» 8 # ! # " - D 6 87 67 - 4.5/0123 - <= 8 GHF@ 8J KLMVQRSTO 8 NP B AI A A V! VAW!T
0x130940…18f440 [0x037]: Pad {f00=0x0059, f01=0x0190, f02=» A AT V/V/T @ ! AV! A AWA
0x130940…18f440 [0x038]: Pad {f00=0x0059, f01=0x0190, f02=» c d 7 6 7 7 7 7 6 7 6 7 8 7 < < < < 7 7
0x130940…18f440 [0x039]: Pad {f00=0x0059, f01=0x0190, f02=»> > 7 > 7 7 6 ( . 1 2 7 7 4 5 " ( . 5 6 4 * H . . . . . . . . . . . . =T= . . . . . . . T H H8H>HZHhHtH H H H H H I
0x130940…18f440 [0x03a]: Pad {f00=0x0059, f01=0x0190, f02=»K K K H> K L H L L<K LLLLLLI H LhH8LzF F F F G G G G*G6G6GNGNGVG GfGtG G G G G G L L L L O L ObM&M4MPMfM O M L ObO MtO L L L M L L L P L L O P Q NtN`ObM MfM&M O Q*L L M N N P N`NtN N N N N O O"O@O N L L L P L L O L L O N6M L L M N N P O L L M N N P OvO L L Ob
0x130940…18f440 [0x03b]: Pad {f00=0x0059, f01=0x0190, f02=»Q Q Q L PRINT DEVICE:;OLD RESP. NEW DISC:;VOLUME NAME:; OLD RESP. NEW VOLUME NAMES:;FILE NAME:; NUMBER OF VTOC ENTRIES:;CREATION DATE:; RETENTION PERIOD:;BLOCKING FACTOR:; EFFECTIVE RECORD LENGTH:; MAXIMUM NUMBER OF RECORDS:; SECTOR NUMBE
0x130940…18f440 [0x03c]: Pad {f00=0x0059, f01=0x0190, f02=»LLED TAPE:; SEQ. NUMBER INPUT TAPE:;SEQ. NUMBER OUTPUT TAPE:; BLOCK FACTOR INPUT TAPE:; BLOCK FACTOR OUTPUT TAPE:;TAPE VOLUME ID:;RECORD LIMITS:; PRINT FORMAT:;RECORD NUMBERS IN LISTING:; CHARACTER CODE:;PROGRAM LENGTH:;MONITOR NUMBER:;START SWITCH ON SOP:; MORE THA
0x130940…18f440 [0x03d]: Pad {f00=0x0059, f01=0x0190, f02=»F DATA SET LABEL:;NUMBER OF INDEX FILES:; KEY ADDRESS WITHIN DATA RECORD:;KEY LENGTH IN DATA RECORD:; RECORD LENGTH INPUT TAPE:;LOAD FACTOR:; INDEX FILE NAME:; MASTER INDEX FILE NAME:;INPUT DEVICE:;PTS 6876 DISC :;MAX NO OF RECORDS ON OUTPUT INDEX FILE:;SUB-KEY ADDR
0x130940…18f440 [0x03e]: Pad {f00=0x0059, f01=0x0190, f02=» ORDER:;REORGANIZE DISC:; DISC VERSION:;DISC NOT OPERABLE;BADSPOT ON TRACK ZERO.DISC NOT USABLE;MORE THAN 18 BADSPOTS.DISC NOT USABLE;DISC I/O ERROR.;PRINTER NOT OPERABLE; TOO MANY SECTORS IN FILE; DISC OVERFLOW;MORE THAN 4 EXTENTS NEEDED; ILLEGAL BLOCK LENGTH; VTOC
0x130940…18f440 [0x03f]: Pad {f00=0x0059, f01=0x0190, f02=»TPUT DISC NOT EMPTY;FAULTY RECORD LENGTH; OUTPUT FILE NOT LARGE ENOUGH; OUTPUT FILE NOT EMPTY;TAPE UNIT NOT LOCKED/LOADED;INCORRECT TNR;OUTPUT I/O ERROR, ;INPUT I/O ERROR, ; BLOCK FACTOR ON OUTPUT TOO LARGE; TAPE MARK MISSING;TAPE MARK MISSING AFTER LABEL RECORD;
0x130940…18f440 [0x040]: Pad {f00=0x005a, f01=0x0190, f02=»TED RECORD; INPUT VOLUME NAME UNKNOWN;OUTPUT VOLUME NAME UNKNOWN; FILE NAME UNKNOWN;FLEX. DISC ALREADY LOCKED;FLEX. DISC NOT LOCKED;FLEX. DISC WRITE PROTECTED; DATA SET NAME ALREADY USED; DATA SET NAME NOT FOUND;NO IBM DISC FORMAT; BLOCK SEQUENCE ERROR; KEY DEF. ERR
0x130940…18f440 [0x041]: Pad {f00=0x005a, f01=0x0190, f02=»LE; FILE ORG. ERROR;CORE AREA TOO SMALL;RECORD NOT IN FILE-END OF MEDIUM; ILLEGAL POSITION NUMBER;NOT ALLOWED TO MIX DISCSIZES; NOT ENOUGH CORE;OVERFLOW; WRONG FD PARAMETER; ILLEGAL FILE-CODE;ILLEGAL ECB PARAMETER;UNKNOWN FILE; ILLEGAL VOLUME/FILE NAME; DU2 DU1 DU4
0x130940…18f440 [0x042]: Pad {f00=0x005a, f01=0x0190, f02=»TED RECORD; INPUT VOLUME NAME UNKNOWN;OUTP E NOT FO
0x130940…18f440 [0x043]: Pad {f00=0x005a, f01=0x0190, f02=» NPPSJ NL S6 IL S4 IP SD LPMSL LDMSN DMMS& NM SV BI S2 B S0 IM SP NP S8 UTILITY SORTF. NUMBER OF PASSES IN MERGE PHASE = PARAMETERS : PRESORT PHASE STARTED MERGE PHASE, PASS STARTED CHECK PHASE STARTED SORT ENDED NUMBER OF RECORDS: * H
0x130940…18f440 [0x044]: Pad {f00=0x005a, f01=0x0190, f02=»R4 j i D !SS i D # AR D ; AR D < AR D AR& T RB j i D !SS i D # AR D AR( RP j i D !SS i D # AR$ R D AR D AR D AS D AS D AS" R # P AR| R # P @R U @R W AR R # Ap R 9a R :a i 9A A
0x130940…18f440 [0x045]: Pad {f00=0x005a, f01=0x0190, f02=» R " T AS @S @S P T i @R. AS Y @R.Y Z n R S P n R S Q2 n R S S R4 C C i @R P AR ] W @R$ @R @R Q @R Q @R$ p~ p~ P _ AR0 @S P @R @R$ Q @R p~ P _ AS W ^P R m i ^ XT
0x130940…18f440 [0x046]: Pad {f00=0x005a, f01=0x0190, f02=» ASP ASR AST ASV AS& AS2 AS0 n S<S P _ `| b : _ ARz R _ n R S n R S @S AR @R @Sb _ R4 ARj @Rn ARl n R R e( @S P k S R P S4T S R R0 R2 @R R P @S:T @R %:! jz _6 c R P0 < / d `R $ @R ,
0x130940…18f440 [0x047]: Pad {f00=0x005a, f01=0x0190, f02=»R R Rn @S2 @R* p~ @R T @R U @R _ @S0 @R* p~ _ Rj Rl n R S n R S AR n R S S R 9! AS n S R oPS S oDS S o R S n S R U oDS R o R S ]V n R R oPR S c R R oDR R AR @R @R P> AR
0x130940…18f440 [0x048]: Pad {f00=0x005a, f01=0x0190, f02=» @R* # R @R R " @R $P d _T o*S R o*S R n S S T #_& e @R X0 _ @R XN o R R _X e @R Qf S R R o*S R oDS R o R S o*S R oDS R oJS R o R S n S R U R ]X Zt n R R : _ ARz RB @Rl i ARj R _ n R S e(
0x130940…18f440 [0x049]: Pad {f00=0x005a, f01=0x0190, f02=»i _v n R R i n R R i : RB Rj n R S n R R @S"T n R S n R R PN i B @R* @R| @R(U @R( ? V ? = k T i oDR S oJR S _X n R S P n R R oJR R oJR R oDR S n R R n R S PX oDR S i @R n S R n R R i
0x130940…18f440 [0x04a]: Pad {f00=0x005a, f01=0x0190, f02=» jN( ( jN ( B @R E : @R E < ( @R @R E @R E : @S8 T6 l T & ^ @S P T8 ^ S @R_ l : TF ^ @S P lD : @R Tr l T^ W T| AR` ARb R^ ( : @S P @R_ lD T ^ @R @R T nx T _F @S P @
0x130940…18f440 [0x04b]: Pad {f00=0x005a, f01=0x0190, f02=» ) : S@W SL SX _v : @R. @R0 AR* AR2 p< i i i AR, : @S @R.P @S _6 @R `R $ @S @R 1 : _ AR @Sb _ ARx n R S n R R b : ARx @R R ;B @R i aR @S& AS( n S<R oVS<SJ AS6 P oDS<S @S6 @R2 p~ P AS4<A AS: : ARx
0x130940…18f440 [0x04c]: Pad {f00=0x005a, f01=0x0190, f02=»P :hP P W T _ p~ AS* AS. AS, R n S,S<V oPS,S* _ : @R AS& @R, p~ @R2 p< ASb d @RxT 9C;B p~W p~ =D;B ASX @R R i @R @SX @R, p~ p< ASZ @R* p~ ASb @R2 p~ @RxP AS P
0x130940…18f440 [0x04d]: Pad {f00=0x005a, f01=0x0190, f02=» : AS& bx_ @RxP e : e _ RP RB @R @R$ @S8P 9 R ARp AR" ARn AR W ARn ARp AR" AR @R* AR8 ARF ART : @R P AR @SX AR @R29A AR @S p< @R d AR : @R P @SX AR AR @S 9B AR d @S @R p< @R AR @S0 @R* AR : c @S @S`>A @R aR
0x130940…18f440 [0x04e]: Pad {f00=0x005a, f01=0x0190, f02=» _ @S` 9A d0 P _ >a : @R @S` 9A ; R d0 P =a _ : [ [ @R $ :a P> P& R R @RxQ j R R Q W * Z Z : _ d @R $ @R $ P P =A _ P =A _& AR : AR @S :A AR
0x130940…18f440 [0x04f]: Pad {f00=0x005a, f01=0x0190, f02=» AR n R R : Rl _l AR AS n R R f n R R : Rj _f o*R R o*R R oJR S AS @R @R :! p< @R `R @R % AR f o R R : @S P, Rl _l n R R n R R AS f AS n R R : AR AR n S R oJS R oDS S @S AS n S S Q n R R R AR AR n R R
0x130940…18f440 [0x050]: Pad {f00=0x005a, f01=0x0190, f02=»R P n R R Q g _ RjP@ R~ @R AR @S AS n R R g| @R AR @S AS n R R AR~ S R Q S g| P$ T @S P p< hv_8 Y Z @R Y S _ : R R P AR g @R @R P AR hv_. : @R~Q RjT` @R @S C h @RxQ: B @R
0x130940…18f440 [0x051]: Pad {f00=0x005a, f01=0x0190, f02=»Rj ARr Rj C S C h @R* C @Rr ARj : @RxQ AR h : oD V oJ Ah AS @R* p< @h oDP AS h R S : n R R P* P T @S T @R P RjT W W RjT W i @R* AS oDR S : W @R C @R C ( B #T B @P T
0x130940…18f440 [0x052]: Pad {f00=0x005a, f01=0x0190, f02=» ( ^: : W, W( W" W W W W W W W j R R : _ B C ( B B AjP AjO jN( : P P R4( RB( RP( : Pb P ?A ARt R R j U P _ AR AR P $
0x130940…18f440 [0x053]: Pad {f00=0x005a, f01=0x0190, f02=»R|Z _ , )Q R Y : _ _ R . R @Rv @R * p $ $ k Y @R = @R = S k oDR S n R R ZX : ( - Y : p R $ - _ : p R % _ : p R $T _ :R S : l * ELAPSED TIME : HRS, MIN, SEC.
0x130940…18f440 [0x054]: Pad {f00=0x005a, f01=0x0190, f02=» Al T Al T 4P&R ( l W ( H nx l ( _D : V nx :_ m C ( B 0OK? 0OUTPUT VOLUME NAME: m C C R Am " P Am ( : : B m8 $ ) Y m" m> m m> Am m ( `m YP $ :
0x130940…18f440 [0x055]: Pad {f00=0x005a, f01=0x0190, f02=» m d m m m Z Z Z Z : : ; np m : V *W R - _ 1 T R Pnp - _ : p n P R 9A [ [ : , )Q R Y : _ _ p ( % ( % : W p @R $ P W p @R
0x130940…18f440 [0x056]: Pad {f00=0x005a, f01=0x0190, f02=»Wp [ q [ Z q [ p Z q Z p Z p W H ; [ ( D $ : Z - M Z Z [ [ p : AR AR AR AR AR AR rJ P [ [ 9O @R W2 AR AR AR AR AR R ;o q
0x130940…18f440 [0x057]: Pad {f00=0x005a, f01=0x0190, f02=»R S P W S _ R Q _ ;A [ : [ Q S W S Q R S P W S _ R _ ;A [ : Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [
0x130940…18f440 [0x058]: Pad {f00=0x005a, f01=0x0190, f02=» P R W ;A [ [ : _4 Z Z W H ; [ ( D $ : Z - M Z Z [ [ p : AR AR AR AR AR AR P [ [ 9O @R W2 AR AR AR AR AR R ;o
0x130940…18f440 [0x059]: Pad {f00=0x005a, f01=0x0190, f02=»2 RESTORE n P* =4 END o P LDK A7,2 o " ( P ST A7,SECNO OFFSET IN SECREC TABLE o 4 ( P CF A14,VTOSEC A1 POINT TO RECORD NO o ` B P* FILE ENTRY:TAKE FILE EXTENT LENGTH, BASE AND LAST RECORD NO o PCOPY12 ADK A1,14 o P* =4 START o P LD A10,-2,A1
0x130940…18f440 [0x05a]: Pad {f00=0x005a, f01=0x0190, f02=»A11,FILBA1 FILE EXTENT BASE o P ST A11,SECNR1 p $ P LDR* A11,A1 p : P ST A11,FILBA2 p N " P ST A11,SECNR2 SECNR := FILBA p d P* =4 END p P ADK A1,2 p & P LDR* A3,A1 LAST RECORD NO PART 1 p P ST A3,LSTRN1 p P ADK A1,2 p & P LDR* A3,A1
0x130940…18f440 [0x05b]: Pad {f00=0x005a, f01=0x018e, f02=» p P ST A3,RECLEN q P LDK A3,0 q P LC A3,4,A1 BLOCKING FACTOR q 0 P LDK A5,0 q T P ST A5,BLKSLE q f P CM LIBFIL q | P LDK A7,0 q & P LC A7,5,A1 GET FILE ORGANIZATION q P CCK A7,'LL' q P RF(NE) COP:12 NO L-FILE q P IM LIBFIL q
0x130940…18f440 [0x05c]: Pad {f00=0x005a, f01=0x0190, f02=» q x P ADK A7,1 r P SUKL A5,SECLEN r P RB(P) COP:13 r 2 PCOP:15 ST A3,BLKLEN r H P ST A7,BLKSLE r d P LDKL A3,MAXBLK =5 r z P SU A3,BLKLEN =5 r P LDK A5,0 r PCOP:16 AD A5,BLKSLE r P SU A3,BLKLEN =5 r P RB(NN) COP:16 r
0x130940…18f440 [0x05d]: Pad {f00=0x005a, f01=0x0190, f02=»D A4,FSATL2 =4 r P SLL A4,8 =4 s " P ST A4,ECB2+4 MULTIPLE I/O =4 s . P CF A14,READ2 s T P LDKL A4,SECLEN =4 s j & P ST A4,ECB2+4 RESET REQ. LENGTH =4 s & P CF A14,FSAT2 FREE EXTENT IN VTOC2 s P* =4 s P ADK A2,4 s P LD A4,-2,A2 =4
0x130940…18f440 [0x05e]: Pad {f00=0x005a, f01=0x0190, f02=»2 s P SUK A7,2 t P RF(N) COPY18 t P* =4 START t 2 P LD A3,FRELE1 t D P CW A3,TFILE1 t Z P RF(G) COPY18 t p P RF(L) COP:17 t P LD A3,FRELE2 t P CW A3,TFILE2 t P RF(NL) COPY18 t PCOP:17 CF A14,NXTFRE t P ST A2,ADR2 =4
0x130940…18f440 [0x05f]: Pad {f00=0x005a, f01=0x018e, f02=» t P LD A5,NRSEBU u P* =4 END u P* WRITE BUF1 ON FREBAS DISC2 u . P* =4 START u R PCOPY20 LD A9,FREBA1 u d P ST A9,SECNR1 u P LD A9,FREBA2 u P ST A9,SECNR2 u P LD A7,BLKLEN u " P ST A7,ECB4+4 SET REQ. LENGTH u P* =4 END u
0x130940…18f440 [0x060]: Pad {f00=0x005b, f01=0x0000, f02=»
0x130940…18f440 [0x061]: Pad {f00=0x005b, f01=0x0014, f02=» ` h p x
0x130940…18f440 [0x062]: Pad {f00=0x005b, f01=0x0190, f02=» LnF 9 i $ 7 f w |4r tV u 3 qC 5
0x130940…18f440 [0x063]: Pad {f00=0x005b, f01=0x0190, f02=» TNR S F M LPP J LDP L DMP 2 NPP T NL @ IL > IP N LPM V LDM X DMM 0 NM ` BI < B : IM Z NP B UTILITY SORTF. NUMBER OF PASSES IN MERGE PHASE = PARAMETERS : PRESORT PHASE STARTED MERGE PHASE, PASS STA
0x130940…18f440 [0x064]: Pad {f00=0x005b, f01=0x0190, f02=» : $ " R A i R A M A ? R A [ R A @ A N A > D !SS D # A & D ; A D < A D A 0 L D !SS D # A ( D A 2 Z D !SS D # A . R D A D A D A ( D A * D A ,
0x130940…18f440 [0x065]: Pad {f00=0x005b, f01=0x0190, f02=» R T @ 0 V A 89 V A 8 @ 8 R T A "9 V A " @ "P R " T A $ @ " @ $P T @ 8 A " Y @ 8Y Z P Q2 > C C & @ P A W @ . @ & @ ( Q @ ( Q @ . P _ A
0x130940…18f440 [0x066]: Pad {f00=0x005b, f01=0x0190, f02=» @ $ : E $ ( @ $P @ T @ " A B A V A X A Z A A ^ A ` A 0 A < A : F P : A & @ f A @ * @ l & > A t @ x A v 2 @ $P f f P >T f R0 < @
0x130940…18f440 [0x067]: Pad {f00=0x005b, f01=0x0190, f02=» A A @ T A A @ < A : * , x z @ 4 K O A @ 9 R * x @ < @ 4 @ T @ U @ " @ : @ 4 & t v A f 9! A n b 2 U b 2
0x130940…18f440 [0x068]: Pad {f00=0x005b, f01=0x0190, f02=» @ T @ A A P 4 T " @ 4 # @ " @ $P _T H H T #_& @ X0 @ XN . _X @ Qf f H b 2 H b h 2 U
0x130940…18f440 [0x069]: Pad {f00=0x005b, f01=0x0190, f02=» _. @ Q6 Q, ` t C & b _v : L t @ ,T PN & B @ 4 @ @ 2U @ 2 ? V ? = T & b h _X P h h
0x130940…18f440 [0x06a]: Pad {f00=0x005b, f01=0x0190, f02=»_b h @ $ D $ Tr D Tl B C ( B A Y A Z X( ( X ( B @ E : @ E < ( @ $ @ E @ E : @ B @ & @ (P B @ i : P @ *P N : @ | h W A j
0x130940…18f440 [0x06b]: Pad {f00=0x005b, f01=0x0190, f02=» C r @ R @ C t C v C x B p @ C z C | : nW ~ $ ) : JW V b : @ 8 @ : A 4 A < Z A 6 : @ " @ 8P @ &_6 @ ` $ @ @ 1 : A @ l " A : A @ R ;B @ @
0x130940…18f440 [0x06c]: Pad {f00=0x005b, f01=0x0190, f02=» A < A : A B @ 4 A Z @ 6 Z A < @ 6 Z A : @ BX. : 4 ! P :hP P W T _ A 4 A 8 A 6 R 6 FV n 6 4 _ : @ A 0 @ 6 @ < Z A l d @ T 9C;B W =D;B A b @ R @ @ b
0x130940…18f440 [0x06d]: Pad {f00=0x005b, f01=0x0190, f02=» f @ T @ l;BW ;C:A A b @ @ d @ bR @ b A . @ 6R @ 0V A 0 : A 0 _ @ P : _ Z L @ ( @ . @ BP 9 R A z A , A x A *W A x A z A , A * @ 4 A B A P A ^ : @ $ P A @ b A @ <9A A @ f Z @ A : @ $ P @ b A A @ f
0x130940…18f440 [0x06e]: Pad {f00=0x005b, f01=0x0190, f02=» @ P @ 9_ : @ >A ` P 1 _ @ h >A P 1 _ @ j 9A : P _ >a : @ @ j 9A ; R : P =a _ : [ [ @ $ :a P> P& @ Q Q W * Z Z : _
0x130940…18f440 [0x06f]: Pad {f00=0x005b, f01=0x0190, f02=» : @ :a Z @ : t p A A h @ A : v v A A : t p H H h A @ @ :! Z @ ` @ % A 2 : @ P, v v A A : A A
0x130940…18f440 [0x070]: Pad {f00=0x005b, f01=0x0190, f02=» t t A @ A R W" T @ P Q _ tP@ @ A @ A @ A @ A A Q P$ T @ P Z _8 Y Z @ Y _ : P A
0x130940…18f440 [0x071]: Pad {f00=0x005b, f01=0x0190, f02=» @ 4 @ W @ P WX @ Q @ @ A $W @ @ C W. @ t A | t C C @ 4 C @ | A t : @ Q A : b V h A A @ 4 Z @ bP A : P* P T @ T @ P tT W W tT W
0x130940…18f440 [0x072]: Pad {f00=0x005b, f01=0x0190, f02=» PnWd A 9 V A : P: Z A h @ @ C C ( ^: : W, W( W" W W W W W W W f " : _ B C ( B B A Z A Y X( : P P >( L( Z( : Pb
0x130940…18f440 [0x073]: Pad {f00=0x005b, f01=0x0190, f02=» @ @ $ * @ $P $ $ @ $Q $ J T Y$ Z Z : @ Z _ , )Q R Y : _ _ . @ @ $ * $ $ Y @ = @ = " b ZX : ( - Y : R $ - _ : R % _ :
0x130940…18f440 [0x074]: Pad {f00=0x005b, f01=0x0190, f02=» 4_ A ( ( : : @ A T A T A T 4P&R ( W ( H ( _D : V : [ S Q"R S P W S _ R Q _ ;A [ : [ Q S W S
0x130940…18f440 [0x075]: Pad {f00=0x005b, f01=0x0190, f02=» @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P TR _ P 0 /
0x130940…18f440 [0x076]: Pad {f00=0x005b, f01=0x0190, f02=» Z Z Z Z : : ; : V *W R - _ 1 T R P - _ : P R 9A [ [ : , )Q R Y : _ _ ( % ( % : W @ $ P W @ ( : W
0x130940…18f440 [0x077]: Pad {f00=0x005b, f01=0x0190, f02=» Z ( [ Z ( Z Z W H ; [ ( D $ : Z - M Z Z [ [ : A A A A A A P [ [ 9O @ W2 A A A A A ;o ( @ @ @ @ @
0x130940…18f440 [0x078]: Pad {f00=0x005b, f01=0x0190, f02=»ME: ( C C R A ) " P A ( : : B T $ ) Y > Z 8 Z A & ( ` YP $ : &h % %8 %L N'XP A% % $ % %8_" %L % %8 %t A%f A%` % ( @%fZ( @%dP % %8_: H!L! ! "N$b !<!<
0x130940…18f440 [0x079]: Pad {f00=0x005b, f01=0x0190, f02=» ) Z %^ 'Z ' U _ R& "% 0Z U Z Y <D _, P + ! + ! ' CREATE ? "D %8 A%f % ( @%fZ @%d $ `%^ N ! Y 6 & # $ "2& @"2! A"2 "6 "."( b"."* B @". M - @"0 M
0x130940…18f440 [0x07a]: Pad {f00=0x005b, f01=0x0190, f02=» 'B( @"@ @"B "6( 'B( & ] : ] < ( ! B A%X %X % % % %8 "6( ! A'P A'R A'T 'V @ E& ^ E& ^ & ( = & ( = B A'5 & E '4( : (
0x130940…18f440 [0x07b]: Pad {f00=0x005b, f01=0x0190, f02=» A%X A%Z %X % % %Z % % % %8 ! 'Z ' Q % W : T ":HW " 9l Q 0W 7 + :D : A%j A%l %h ( : % %8 : Z % 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x07c]: Pad {f00=0x005b, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD' FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x07d]: Pad {f00=0x005b, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x07e]: Pad {f00=0x005b, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x07f]: Pad {f00=0x005b, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x080]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x081]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x082]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x083]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x084]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x085]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x086]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x087]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x088]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x089]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x08a]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x08b]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x08c]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x08d]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x08e]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x08f]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x090]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x091]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x092]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x093]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x094]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x095]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x096]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x097]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x098]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x099]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x09a]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x09b]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x09c]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x09d]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x09e]: Pad {f00=0x005c, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x09f]: Pad {f00=0x005c, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x0a0]: Pad {f00=0x005d, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x0a1]: Pad {f00=0x005d, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x0a2]: Pad {f00=0x005d, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x0a3]: Pad {f00=0x005d, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x0a4]: Pad {f00=0x005d, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x0a5]: Pad {f00=0x005d, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x0a6]: Pad {f00=0x005d, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x0a7]: Pad {f00=0x005d, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x0a8]: Pad {f00=0x005d, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x0a9]: Pad {f00=0x005d, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x0aa]: Pad {f00=0x005d, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x0ab]: Pad {f00=0x005d, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x0ac]: Pad {f00=0x005d, f01=0x0190, f02=» ( @"@ @"B "6( ( ] : ] < 0 DD FP P "6( ! A A A a IN SORT a OUT FIX2 a WK FIX2 ( = B A E ( & B
0x130940…18f440 [0x0ad]: Pad {f00=0x005d, f01=0x0190, f02=»& SR& SK& KA& KL& C FR IF& IV& OF& OV& WF& WV& : T ":HW " 9l Q 0W 7 + :D : A A ( : %8 : Z 0 / =!? * * "2 0SORT-AID REL 10.0 = "* B @ + - -
0x130940…18f440 [0x0ae]: Pad {f00=0x005d, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l D
0x130940…18f440 [0x0af]: Pad {f00=0x005d, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R _ @ r T T S S S S >T T S S S S @ p - - T A r B
0x130940…18f440 [0x0b0]: Pad {f00=0x005d, f01=0x0000, f02=»
0x130940…18f440 [0x0b1]: Pad {f00=0x005d, f01=0x001a, f02=»
0x130940…18f440 [0x0b2]: Pad {f00=0x005d, f01=0x0190, f02=»n _ | | | | n | | | H |' | | | | | | | | | | | | | |' | | | H | | | |!`!` | | | | |2 | | | | | | | | | | | | | | c @ p z ^ N l8Z8 H N2 Z jq zP
0x130940…18f440 [0x0b3]: Pad {f00=0x005d, f01=0x0190, f02=» 4c r @]g N x d 2Z $"z y wL / y N DlR m 2 &Z iL a [ ? d V% L % "~ T &b 5Cn 1 d _ A x > ], & ? ? ? ? ? ? ? @], > > U H ( ( P c P W. A], T V ( U P @ V
0x130940…18f440 [0x0b4]: Pad {f00=0x005d, f01=0x0190, f02=»XV ) A]* A _b A A < A],_t A x A Q > A l A jQ b_ A j < Q d P d Q d Z Y _ 8 ]D Q Z P 0 9 _ T _, _ P H H ? ? ? ? ? ^ A _ _ ^ ? ? ? ]* $P T I R
0x130940…18f440 [0x0b5]: Pad {f00=0x005d, f01=0x0190, f02=» U T P 0 U _n ? @] T 0 A] 1 Q Q >W 0 @] 1 A] P P Wp " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^
0x130940…18f440 [0x0b6]: Pad {f00=0x005d, f01=0x0190, f02=»7 2J "_ ^F]N^Z]b5 ^t 6"6^ 6 T2 " 1"78 &3$ Q P ^ ]Z A B X T " T A 7T B # Y B A P T YF ZJ X T X M A z b H X . $ @ r P ^ @ ]b 4 ` 8 ` Px X XZ#
0x130940…18f440 [0x0b7]: Pad {f00=0x005d, f01=0x0190, f02=» A P8 P )@:b P ) :a P :a P X '? R Q )@ b 8 ` 8 b ]^ A X T " P: A X P W Y @ T* ] D W @ :C _L) @ _ P _ Y ;g# + _ Y _ Y _
0x130940…18f440 [0x0b8]: Pad {f00=0x005d, f01=0x0190, f02=» A x ?M P: A HPdQ* ? A @ T M -W ,E A ( A > > >M A (_ A 4 > ;I C X "A _@ A A $ A ( A , 0 ]b z# X& T X T :EV W X T Y :DV X Qx :EVp W " P Y WD X $ QB R
0x130940…18f440 [0x0b9]: Pad {f00=0x005d, f01=0x0190, f02=» Q ?P ]Z J A r X " :B RV B H R <aX4<k 8 B 8P ! A ` r X ' ! ! |P ! _ = H } ( 5T 5P ) W H R ( C C ! P Q ! ! R ! A _ ! Q ; V )Wv ! ! Rj! A _$ B 9 I !
0x130940…18f440 [0x0ba]: Pad {f00=0x005d, f01=0x0190, f02=» I A r P: P )@ P :b P ) :b P X ' R Q )@ ]^? A x A t 5 ( ]b @ x @ t A _r A ! 9 R 9 4 A X A v 5 h ]b @ t @ v @ x A _< s t W4 @ _ W( W$ AW QW @W !W W _4 ` 9 @ T"A P S
0x130940…18f440 [0x0bb]: Pad {f00=0x005d, f01=0x0190, f02=» t B H R B @ x 4 b Y 9 @ P 1 A @ T 5 1 ]b A b H 9 R ! @ r ]^ f ?b ! H R` ! ( 8 ( ! ! 9 Z 9 V A ! T8 @ ( )T Q R ! _ R ! _ ! T 9 V H ; R @ (
0x130940…18f440 [0x0bc]: Pad {f00=0x005d, f01=0x0190, f02=» B U P R U ]Z ! ! W ! Q ! B Z P C ! B P $$ R % C ! _, Y &X Y $P. Y %P( $ P 0R Q W R ?U C ! _f Y $P Y % _ ^ _ ! P: B L # +P Y ( ! U _ X T _ W ! Y !
0x130940…18f440 [0x0bd]: Pad {f00=0x005d, f01=0x0190, f02=» T X R X X ' P ! X ( _X ]^ A x T X R> 8 J P X ' Q 8 J " W~ C U X Y ( Y ]^ 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y ]b Y * ! X *_B B 1 4 X X X X '
0x130940…18f440 [0x0be]: Pad {f00=0x005d, f01=0x0190, f02=» PD P ]Z V - 0 P A # +T W Q P P 1 ! T V C B Q 1 ` ]b Y Y Y @ r t @ B X$ _, X Z8W4 A x ? ? d B T E E R B > > > > > I X ' B C X 4
0x130940…18f440 [0x0bf]: Pad {f00=0x005d, f01=0x0190, f02=» Pn Pb P ]Z ! C ` @ Y H Y L ! ! T( X H ! ! T Y H X L Y L ]( ^B _ Y F @ Y B B P ! T B R Y L A S [hU B Y D h Y :B X HP Y J Y H 4R 4 @ D : V V 49B Y F X JP ! P C
0x130940…18f440 [0x0c0]: Pad {f00=0x005e, f01=0x0190, f02=» Ds X F Y @ T a Q N SL Y WB T. X F" P& Y B Y D Y F @ Y L B X H a Q V ` ]b Y _ Y ` Y H ! ! T Y B ` Y D Y F ! X H a Q V Y 4 Y @ T" 0P -_t 5 t _~ A Y ! X ]
0x130940…18f440 [0x0c1]: Pad {f00=0x005e, f01=0x0190, f02=» C C C C ]( ^B _ Y @ Y B P ! T B R Y A S [hU B Y h Y :B X P Y Y 4R 4 @ D : V V 49B Y X P ! ]Z B PU
0x130940…18f440 [0x0c2]: Pad {f00=0x005e, f01=0x0190, f02=» A x X `(@ 4 W I X 4 ;DR Q B ;AY B U Y C T Q P &W -W /W A ;AY A Q` @ V8 D ( @ R $W . 8 BABCDEFGHI JKLMNOPQR /STUVWXYZ Pn Qf @ T^ D dW`:#@'=" @ QJ @ RB Q> ;AY T2
0x130940…18f440 [0x0c3]: Pad {f00=0x005e, f01=0x0190, f02=» Y Y ]. C ]( ^B _ Y @ Y B P ! T B R Y A S [hU B Y h Y :B X P Y Y 4R 4 @ D : V V 49B Y X P ! B PU
0x130940…18f440 [0x0c4]: Pad {f00=0x005e, f01=0x0190, f02=» A x X `(@ 4 W I X 4 ;DR Q B ;AY B U Y Y D X Q^ l ` T8 C Y Y B !! T X Y ` Y B ! ! P P P P P ]Z ! B ! T > " T Y D 9 ! I N ! ! H9E
0x130940…18f440 [0x0c5]: Pad {f00=0x005e, f01=0x0190, f02=» Y H Z P B ;b :b ^ 9 Y n Y pR4P 9 Y p ! W" ! H R T ! WJ ! @WB ! U ! ! _ P Q R" ! W ! ! @W ! ! X ' T: X nP Q C X p 8 9 ! @ 9 C B C ! ! Y p !
0x130940…18f440 [0x0c6]: Pad {f00=0x005e, f01=0x0190, f02=» ! R9 R Y ! I N W` ! t 9BV( ! > ! v! T6 @ > ! H N P H N;E Y ! Y D ! V X ! ! P Y ! ! H N @ X $ Pt t R::ARd P Y D ! 8 t $ <A" :E ! ! H N A Y D ! Wh Y x Y Y ! H N y Y D ! ! 4W: !
0x130940…18f440 [0x0c7]: Pad {f00=0x005e, f01=0x0190, f02=»" P X ! v! P Y <W: 8 T " T 9_l ! ! ! ! ! P Y ! 4 ! 4 X ;F 8 X P@ ! ! ! V! ! P Y ! X DT x W @ ! H NP _* X DT Y ! 4 > X W > X Y $ ) Y 4 B ;e :e Q
0x130940…18f440 [0x0c8]: Pad {f00=0x005e, f01=0x0190, f02=»W( W$ W X DT X W >q r Y @ T a Q F ! Y Y ]b "x l Y Y B @ T Y ! R! Tn Y ! R! T` Y !! ! P Y ` Y !! ! P Y ` Y Y B P X Y '? ! 4 C @"vP$_ "v 0P -_ 5 !J _ "x A"v Y Y B
0x130940…18f440 [0x0c9]: Pad {f00=0x005e, f01=0x0190, f02=» X P ` ]b ! R! T 9 ! I N Y D ! V! ! Tr > X BP a. @ ^ TOT2 @ f 1T( @ n a # " Q Z P R P Q R X X X Y ! W 4 : C C C C
0x130940…18f440 [0x0ca]: Pad {f00=0x005e, f01=0x0190, f02=» !)p XT P. P P& P R P $B X % ]Z ]^ ` B X ; Z Y B X T < Z0:A Z: ^@ Y@ Y Y B Y | V Y Y ~ Y X !? P6 P P. P !(8 X P !( !&D P @ 9W !(8 !&H X P X | X ~ !( &h P P
0x130940…18f440 [0x0cb]: Pad {f00=0x005e, f01=0x0190, f02=» d !) ( !) !) 9 X Y L & 9 !&H_ # ) 4 !) PR C !) !&H !%h(@ !) R _ !) * 1 ;h 1 !) 1 !) * !&D !%h !) ) !&H# X Y L_ P P !) P @ 9 4 ` & !) P X 1P B #t +P: Tx ( C Qh V
0x130940…18f440 [0x0cc]: Pad {f00=0x005e, f01=0x0190, f02=») ( - l !) ) WT W Y R Y N Y P Y D @ T:B S:W4 Y 8! T$ X Y X ~ C X U Y | # W 8 ` ]b Y _ + Y Y X HP y H_, H 5 & _< Y H Y B Y L" Y !)p !&H# P ` W !(b 9 !&H X ^< Y Y B Y X L
0x130940…18f440 [0x0cd]: Pad {f00=0x005e, f01=0x0190, f02=» P K P0 @ T X RT $C Y B ]bK & % Y B K X D :AZn X FP Y F ! P + 7P, $ P + < $ <C ! 9 9 4 X 9C X : X | X ~ 4 B :C B 4 $ ) !&H# T` @) TOT @) SST X Y J ) W( 0 ) !&H !$ X Y J 9
0x130940…18f440 [0x0ce]: Pad {f00=0x005e, f01=0x0190, f02=» U * P jW kQ 4 9 $ 0" Z Y P Z _ 4 A&b;D A&b 4 R _ ;H 4 t !) (:C ) 4 !) ( 4 X " 4 !) ) 4 Y Y Y L" Y ! !&H# P W ! 9 !&H X ^< Y Y Y X
0x130940…18f440 [0x0cf]: Pad {f00=0x005e, f01=0x0190, f02=» K P @ T X T $C Y B K & % Y B K X :AZn X P Y ! P + 7P $ P + < $ <C ! 9 9 4 X 9C X : X X 4 B :C B 4 $ !&H# T @ TOT @ SST X Y W 0 !&H !$ X Y 9
0x130940…18f440 [0x0d0]: Pad {f00=0x005e, f01=0x0190, f02=» .X _ 4 A&b;D A&b 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 !) ) 4 Y Y Y L" Y ! !&H# P W ! 9 !&H X ^< Y Y Y X
0x130940…18f440 [0x0d1]: Pad {f00=0x005e, f01=0x0190, f02=» K P @ T X T $C Y B K & % Y B K X :AZn X P Y ! P + 7P $ P + < $ <C ! 9 9 4 X 9C X : X X 4 B :C B 4 $ !&H# T @ z X & Y ( ` T C Y !3&! T ` Y W T
0x130940…18f440 [0x0d2]: Pad {f00=0x005e, f01=0x0190, f02=» 8 B S Yf B Y 6 B ^ Y : Y < !1 ' P X > PJ X > T X X :P Y !0 !0~ X ! P !0 !1 X 8P !1 X > J X 6 Y | Y > !0~ Y !1 Y X 8 ^ X " P X | Y 6 !0 !0 !1 X 8 ^ P, !1 _ !0 !1 Y > X 8P ^ !1 !0 !1 2(
0x130940…18f440 [0x0d3]: Pad {f00=0x005e, f01=0x0190, f02=» Xv 4 !0 Y !0 ! P Y ( _ 4 8 Y _ DW FW HW Y @ T a Q @ 2B Y ]b Y ,X X >; Y P.;AV X T @ X 6 1 _( @ 1_6 Y h Y ^ Y X : s Y ; V 9E Y ; a P lP( Q l Y D
0x130940…18f440 [0x0d4]: Pad {f00=0x005e, f01=0x0190, f02=» X : Y : 4 X 8 R P P R ;a;a Y > 4 a Q l X ( X &P Y & ` ]b Y _ 3 z Y Y @ T Y !0 ! TH Y !0 ! T: Y !3& Y !3& Y Y Xh X Y '? C .X @3 P$_~ 3 0P -_ 5 2 _ 3 A3 Y Y z _n A x ? 3
0x130940…18f440 [0x0d5]: Pad {f00=0x005e, f01=0x0190, f02=»R a. W ` a Q l 4 ,T B B " " " " * ABCDEFGHI[.<(+!&JKLMNOPQR]$*)
0x130940…18f440 [0x0d6]: Pad {f00=0x005e, f01=0x0190, f02=»<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS T 5 5 5 ]b 5 5 5 _ ]T
0x130940…18f440 [0x0d7]: Pad {f00=0x005e, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P* P P" P P P T` XV W ]T 7 P ^ B B T P2 & T, L L R Q U V , , " _L , SF V :a
0x130940…18f440 [0x0d8]: Pad {f00=0x005e, f01=0x0190, f02=» L P T L R :AV ' > _ @ 8 >8 A @ Aa S AS T 8L @7 , - M M M M @7 7 =a 9a Q - _ - > j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0d9]: Pad {f00=0x005e, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0da]: Pad {f00=0x005e, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0db]: Pad {f00=0x005e, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0dc]: Pad {f00=0x005e, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0dd]: Pad {f00=0x005e, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0de]: Pad {f00=0x005e, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka J | J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0df]: Pad {f00=0x005e, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0e0]: Pad {f00=0x005f, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka | J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0e1]: Pad {f00=0x005f, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0e2]: Pad {f00=0x005f, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka | J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0e3]: Pad {f00=0x005f, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0e4]: Pad {f00=0x005f, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka | J Z_m 8 j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0e5]: Pad {f00=0x005f, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0e6]: Pad {f00=0x005f, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka | J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0e7]: Pad {f00=0x005f, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0e8]: Pad {f00=0x005f, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka | J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x0e9]: Pad {f00=0x005f, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x0ea]: Pad {f00=0x005f, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka | J Z_m j TOSS T 5 5 5 @7 , L T" L P ?A M L T L
0x130940…18f440 [0x0eb]: Pad {f00=0x005f, f01=0x0190, f02=» -(@ : - : @7 , L T M @7 (@ : > = =_: R _ T a $" P E Uh(@ $ : ' P W @ D P _ Tp T U ]b R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0
0x130940…18f440 [0x0ec]: Pad {f00=0x005f, f01=0x0190, f02=» P P E AP W : X A X F 1 Y F(@ : F 4W 0P< R Q P W R T D A Q , 0 5 @] 1 A] ZB : D HW (P D A I W6 @S T ( AS U 1_ D A I D H ) E H(@ : T @ n SB P W @ U0 T m S W
0x130940…18f440 [0x0ed]: Pad {f00=0x005f, f01=0x0190, f02=»"? T _$ : X X 8 X : ! # X =H C S W C C C X %? : C X <_" d #A 1 W: WV T U > AWT @ @ bB @ R&P % % @ I I I I _4 @ P a #D
0x130940…18f440 [0x0ee]: Pad {f00=0x005f, f01=0x0190, f02=» P P E P W : X X 1 Y (@ WR ' Z Z ! [ AW P< P& 8! P6 K @P X T X !? ? Y W W @W [ [x " W AW X* b X2 " (@ I # V V " LP V : V V
0x130940…18f440 [0x0ef]: Pad {f00=0x005f, f01=0x0190, f02=» $P X X $ $P, # ' P @T #?W #?$? X _2 J @" P Y 9 @ J ! T " Y X G [x! [ 4 P C P* [x J : J < W W P X V C W [ X ! "? K >Q 9 [ W Y B W _.! T 4 T P % Y
0x130940…18f440 [0x0f0]: Pad {f00=0x005f, f01=0x0190, f02=» F " G R [ N ! N P" N & N T S _ _& - M L G ]@ _ W C ( B P U Zz T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ $ : mg mxP" $ [ 8X
0x130940…18f440 [0x0f1]: Pad {f00=0x005f, f01=0x0190, f02=»$ T B * Y $ : " $ Y : @ P0 8 T _ " & Y 4 : : $ - Y : n > > > > > > > > @], A], hW W ` ^ ! Z@ ]* (XH @],P T M ]X , ) A], Pj
0x130940…18f440 [0x0f2]: Pad {f00=0x005f, f01=0x0190, f02=» Z Z ? ? Z Z Z Z Z Z Z " $ & > P~ "R~ Y ]b Pj T P` ]T <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ C C 8W T 8P Y ^ 5 ) P
0x130940…18f440 [0x0f3]: Pad {f00=0x005f, f01=0x0190, f02=»'? Y Y T # P W Y (@ 2 @ _ > (@ X L U0 L QL L # T R < 5 ^ R < 5 Y ` X D P ( X ) 1 $ _( 4 (@ X P 0P X T 4 Y X 1 1 X P> - M X P. P& # P 0
0x130940…18f440 [0x0f4]: Pad {f00=0x005f, f01=0x0190, f02=»:g H " I "! P& X a a P ,P 9A _ H "P I " 4 ` P Y a X$; [(;! P "Z0?AZ4 @a Q " X " $XL ( I T E _ (X _ X $ _vW b b b b b b b b c"b c"b d b c c b c !" bB
0x130940…18f440 [0x0f5]: Pad {f00=0x005f, f01=0x0190, f02=» A X T X % T Ua P ^ d =A Y a T P U H I Ta I $ C C d T X?j c b ?j c W _l X X# Xt X B# T d. c _ b _ X X# X X B# P Y T ?h d. H H d$ a P I d
0x130940…18f440 [0x0f6]: Pad {f00=0x005f, f01=0x0190, f02=»W B B B d W. Y X C X D S W W B B $ T _ C C W B B X N U Rd V Tf #D X ! V( X Y P$ H P$ X ]mhP _ m T d ]b A T X N ]^e e grgrfJfJgrgrfJgrfJgre grh l grhv U (@
0x130940…18f440 [0x0f7]: Pad {f00=0x005f, f01=0x0190, f02=» C ( Vf gr S _z ( Vf gr B W Y X C X '? d X < X > )T P T0 X ! T(W" gr P F X >U X > G T g F S W G G F F U f V gr X X# T B S d < > F F +
0x130940…18f440 [0x0f8]: Pad {f00=0x005f, f01=0x0190, f02=» $ - Tr + X XR ( Vf TzW Y X U F F D '? P2 P, P< T V K K W K K D X$ P U T UJW E C E D_ X X# T B S X N ` (@( I1M1I2M2I3M3I4M4
0x130940…18f440 [0x0f9]: Pad {f00=0x005f, f01=0x0190, f02=» C ( Vf S _z ( Vf B J B& Ag Rl P NP L <a Qg _ g J " T # T W 0T # P P R Ig _ J L u T F % =N Ag g * F % G G @ a T ( Vf T$ 9a " Eg & a PJ _ W
0x130940…18f440 [0x0fa]: Pad {f00=0x005f, f01=0x0190, f02=» a j ^ S G F > P2 J # " N X# N B @g ~ @g R O X j ^ * R ] *_ @g O X F O > F O @ @g O B F ; O C F < O D Vg O LP F D Vg O J F ;F J $ $ P O ;H O X N YmhP _ Xmx O Y N > N @ m O Z N > :h! P O
0x130940…18f440 [0x0fb]: Pad {f00=0x005f, f01=0x0190, f02=» ^2 : J P U Q P T T j g a TZ R Tg X g N Tr_ j " Ag J T U H $ P _ , % @S ) AS (@ : N B" J L B U B M L B T g D XV ( Vf S U I I I
0x130940…18f440 [0x0fc]: Pad {f00=0x005f, f01=0x0190, f02=» g Rg " P J T P a Q ?A g PB Uh(@ N %? T* N F d H 4 5W P 0 @S 1 AS (@_ * g ?B g G : g G < Rg ' P C S ( Vf G l T PT PJV
0x130940…18f440 [0x0fd]: Pad {f00=0x005f, f01=0x0190, f02=» V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P ($SWAP A A A A A. z& UU @ @ ! P$>B @z Az @z E D P _
0x130940…18f440 [0x0fe]: Pad {f00=0x005f, f01=0x0190, f02=» Ay u P2 uF_ * A w W * A wHW :a2 * A u y & W F W @ F W CRP BAP COP A W F A @ : V, @ P z ;b=H : r F r W =J : R F P W W @ $ P @ R| W W {2R" W
0x130940…18f440 [0x0ff]: Pad {f00=0x005f, f01=0x0190, f02=» Q {2VD Y2 W V @ " TJ W P {2Y z r z Y P @ P @ T W - z P _ T <B :L A W A A W z
0x130940…18f440 [0x100]: Pad {f00=0x0060, f01=0x0190, f02=»W <9B @ V W Q z W @z A yn @ s V W s ! P W @ V P _ @ ! P* z 9h !RRP V V s W _> z z z y V V PZ W @ @ ! T _ P
0x130940…18f440 [0x101]: Pad {f00=0x0060, f01=0x0190, f02=»PB _ P !;;T X$ W { _J u T u u W u t z xn W @n W tr V 0 !;;P P V XH _ P !;;T X$ W { nP XZ_V S Ax Ax xn @ R @ ! T Ax6 AxJ @n V V I
0x130940…18f440 [0x102]: Pad {f00=0x0060, f01=0x0190, f02=» :A K : A T.I T P 1 I P < R P A _> z : @ " P P o v* Av` Avd Av Av W v An Av Av Aw Aw Ay Atr Axt Ax : 9e :e Q P 9e @n P An 9C) A I " @n ! P " :B An t
0x130940…18f440 [0x103]: Pad {f00=0x0060, f01=0x0190, f02=»n t w B J " r R,Q$ @ ( = @n Q @n "| _@ _$ : Aw Aw Aw Aw wn Ay Atr Axt Ax : h:B* An @n P An B J 4R 4 :B 4 @n : V V 49B @n 4R @ t w A I ! j : x Ay Atr Axt Ax Ax6! T xH x:
0x130940…18f440 [0x104]: Pad {f00=0x0060, f01=0x0190, f02=» xt x 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P { @ T X W n : YX d C !CCTx xB. u> <X B.9 Hn Q w _ u _ !SSTF 0 Un P A X X W W X X S W W W : V
0x130940…18f440 [0x105]: Pad {f00=0x0060, f01=0x0190, f02=» Ayt y _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A Atr 2 ; Z [ : : [ [ : |
0x130940…18f440 [0x106]: Pad {f00=0x0060, f01=0x0190, f02=» @ 0 V @ z 0 H W : @ A 9n A @ A A A. @ @ W A < : A ]bA > ;h 0 :C # : .=H N { {B .=H N { {B N : d 8" R _ ZY
0x130940…18f440 [0x107]: Pad {f00=0x0060, f01=0x0190, f02=» nP } W r n } W @ @ % V , P@ , - 4 ] 4 {2Y 5 X * _6 : W @ ] @ P @ " P : V _ W W . !TTP z d @ T z Y | !TTX" A 9 A : ` @ V :a @
0x130940…18f440 [0x108]: Pad {f00=0x0060, f01=0x0190, f02=» V W @ @ T z : P S S _ : @ @ @ #D# P ; V ~ _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T z : W . !TTP
0x130940…18f440 [0x109]: Pad {f00=0x0060, f01=0x0190, f02=» W = V t P0 r " U z _2 P0 " U z _2 V tPx {2R z S ( V | S =J @ " S V l S W l V CRT V p S W p W
0x130940…18f440 [0x10a]: Pad {f00=0x0060, f01=0x0190, f02=» r _ Pd W p V 8 8 4 D P$ { @ # P H I K T + Y@ V p _f V t Y | !TTX @ @ T z : W % @ P _ R @ WT R @
0x130940…18f440 [0x10b]: Pad {f00=0x0060, f01=0x0190, f02=» f ( W d G =h G V d V r < V f P W f _B V W V t Yv | !TTX @ @ T z : | !TTX !CCTr d P, V r 4 U z $ $ _. P, V 4 U
0x130940…18f440 [0x10c]: Pad {f00=0x0060, f01=0x0190, f02=» W d V d V r < V f _2 U^ V 8 8 8 4 D P$ { @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T z : W V F !SST WJ !
0x130940…18f440 [0x10d]: Pad {f00=0x0060, f01=0x0190, f02=»W D { ) $ PV D L Tp D "P V ` T @ 1 Q a , I ( I * $# P8 V -W( W" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P V : `
0x130940…18f440 [0x10e]: Pad {f00=0x0060, f01=0x0190, f02=»# ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : z Y Z ]$ @]$T A]$ V W Y0 Z6 ]& @]&T A]& V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W |
0x130940…18f440 [0x10f]: Pad {f00=0x0060, f01=0x0190, f02=» U Y$ P W | V z 3 % W P _ V |P V v ]] W v P _ @]$P V { A]$ (P ) @]$ @]&P V { A]& (P ) @]& @ @ T z : N =H N { : N =H N { : &=H F { : F =H F { :
0x130940…18f440 [0x110]: Pad {f00=0x0060, f01=0x0190, f02=» _ : }Z } ~" ~ B J @ R @ $ D L * A CRT M " L x 4 p b T 0 T a q b a a : 3 3 "x "x "x "x + + + + ;c F !AAP # $ < $ : W |
0x130940…18f440 [0x111]: Pad {f00=0x0060, f01=0x0190, f02=»# P P R Ir _ J L u _ F % =N As> sH * F % G G @ m,T ( a T$ 9a " Er & m, PJ _ W & P & a I - G w W _* _ # ( a G sH T @s@ Yf?A W ' m, v"
0x130940…18f440 [0x112]: Pad {f00=0x0060, f01=0x0190, f02=» O @ @s@ O B F ; O C F < O D Vs O LP F D Vs* O J F ;F J $ $ P O ;H O X N Yx P _ Xx O Y N > N @ x O Z N > :h! P O :G t N s v.W N B" P G G @r G N X:n G V V N & y` t N @' x W W ^2
0x130940…18f440 [0x113]: Pad {f00=0x0060, f01=0x0190, f02=» Ar J _ a H $ P _ , % @_2 ) A_2(@ : N B" J L B U B M L B _ r D XV ( a _ a I I I F RD P NP L L C D s Us <a Qr Qr <B s s _H Ar J " " r V r
0x130940…18f440 [0x114]: Pad {f00=0x0060, f01=0x0190, f02=» * sH ?B s G : s G < Rr ' P C _ ( a G w T PT PJV P>V SH? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V
0x130940…18f440 [0x115]: Pad {f00=0x0060, f01=0x0190, f02=» : V X"Z(_( L _P ($SWAP A A A A A. p UU @ @ ! P$>B @ : A : @ : E D P _ $ % $P _ % A >f A A A @ " Q" z :d @ # U R>P0 P @ A 8
0x130940…18f440 [0x116]: Pad {f00=0x0060, f01=0x0190, f02=» F A @ : V, @ P @;b=H : } F } W =J : R F P W W @ $ P @ R| W W |R" W W V V 8 !RRT W V X W W V V V PF A @ |U U^ A
0x130940…18f440 [0x117]: Pad {f00=0x0060, f01=0x0190, f02=»~ : Y P @ P @ T W - :P _ T <B :L A W A A W : T F W V @ = V W Y( P Z& = :L < P W <9B
0x130940…18f440 [0x118]: Pad {f00=0x0060, f01=0x0000, f02=»
0x130940…18f440 [0x119]: Pad {f00=0x0060, f01=0x0002, f02=»
0x130940…18f440 [0x11a]: Pad {f00=0x0060, f01=0x008e, f02=» T; 01; TID=TU; TCL=TU; * LEV=60; : P00; J P03; V SDC=S01; b SDC=S02; r PSDC=S03;
0x130940…18f440 [0x11b]: Pad {f00=0x0060, f01=0x2008, f02=» 01; TID=TU; TCL=TU; * LEV=60; : P00; J P03; V SDC=S01; b SDC=S02; r PSDC=S03;
0x130940…18f440 [0x11c]: Pad {f00=0x0060, f01=0x2008, f02=» MES PARAMETER ERROR H$PCASE $ HEND 2RUN CPLGEN MON01 : HMOV MON01,/L,MONITOR R HRUN PCAS MON01 n HWEF 3 UTIL01 HMOV UTIL01,/L HRUN PCAS UTIL01 & H$PCASC C=CONF01,CU=CONFIG,A=UTIL01 H$PCASC C=CONF01,A=UTIL01
0x130940…18f440 [0x11d]: Pad {f00=0x0060, f01=0x4128, f02=»MLBL EQU * PDUM1 EQU * PDUM2 EQU * $ PDUM3 EQU * 6 PDUM6 EQU * H PDUM4 EQU * Z PDUM5 EQU * l PPRINDX EQU * ~ PBINDEX EQU * PRINDEX EQU * PCOPYCF EQU * PSORTF EQU * P LDKL A1,-5 P LDK A2,0 P R
0x130940…18f440 [0x11e]: Pad {f00=0x0060, f01=0x2008, f02=» * PCOPYIT EQU * PCOPYTI EQU * & PIBMLBL EQU * : PSORTF EQU * N PPRINDX EQU * b PBINDEX EQU * v PRINDEX EQU * PCOPYCF EQU * P END @ PIPL412 EQU * PIPL413 EQU * PIPL811 EQU * PIPL812 E
0x130940…18f440 [0x11f]: Pad {f00=0x0060, f01=0x0190, f02=»C ENTRIES | P* 6: CREATION DATE P* 7: RETENTION PERIOD . P* 8: BLOCKING FACTOR N P* 9: RECORD LENGTH l P* 10: NUMBER OF RECORDS P* 11: SECTOR NUMBER P* 12: CHARACTER POSITION P* 13: HEXADECIMAL VALUE P* 1
0x130940…18f440 [0x120]: Pad {f00=0x0061, f01=0x0000, f02=»
0x130940…18f440 [0x121]: Pad {f00=0x0061, f01=0x0008, f02=» ( 0 8
0x130940…18f440 [0x122]: Pad {f00=0x0061, f01=0x000c, f02=» 5 5 CCEMT CCASSE FMERR n 8 rDK2IPL / IPL121 IPL221 IPL122 IPL222 IPL123 IPL223 QBLFAC *GETFC 3 GETFC PRVTOC PRDISC UPDISC COPVOL COPFIL
0x130940…18f440 [0x123]: Pad {f00=0x0061, f01=0x0190, f02=» CCI ECBBA ECBRL ECBEL ECBRC ECBCW REBUF Z U:BUF1 PBLK U:BUF2 CCIUTI BINRES ^ EFFLEN d CCFCT READAN CCCCT WRITT WRINER ( CCTIE QCTIEL DTBCON N NUMBER CTR:30 HTBCON C
0x130940…18f440 [0x124]: Pad {f00=0x0061, f01=0x0190, f02=» j LCDISCT CDISCT CDISLE 8 FIRFC FCMAX 8 BINDEX BINDEX . FMRLEN FMREC1 FMREC2 RRORD WRORD ERPROT RDORD CLORD RFORD FDLEN FDFNR FMLEN FMORD FMORG SORG . nCCIB
0x130940…18f440 [0x125]: Pad {f00=0x0061, f01=0x0190, f02=»RVTOC FIRFC CDISCT BINACR BIDACR L TIBMLBL IBMLBL VOLNAM BIDACR DECBIN CONIBM l >PRINDX PRINDX FIRFC CDISCT XIBMSUB " SUB1 CONIBM h DECBIN
0x130940…18f440 [0x126]: Pad {f00=0x0061, f01=0x0190, f02=» fFILHND 8 CRFILE l FIRFC FCMAX ADDMOD DSUMOD BINACR DLFILE F b ,ADDMOD H ADDMOD J ,DSUMOD I DSUMOD V JCRVOL J QBLFAC TOSREL CRVOL
0x130940…18f440 [0x127]: Pad {f00=0x0061, f01=0x0190, f02=»131 IPL132 IPL133 IPL211 IPL212 IPL213 IPL221 IPL222 IPL223 IPL231 IPL232 IPL233 VOLNAM BIDACR DSUMOD PRFILE Z STCKP PREC1 PREC2 FMLEN PRFILE * PRTECB FDLEN RFORD FDFILE PRINTK SPACE
0x130940…18f440 [0x128]: Pad {f00=0x0061, f01=0x0190, f02=» PRFIS RRORD RTN:02 RTN:01 RTN:04 PREC1 PREC2 PRINTK OUTTXK PRTBUF BININT BININR COMPCT bASC HEXASC b rDMTEST ` DMTEST FDLEN RFORD FDRLEN RRWORD RWORD RDORD WRORD BIDACR
0x130940…18f440 [0x129]: Pad {f00=0x0061, f01=0x0190, f02=»C N UPPR STACKP SECNO BINAC CHSCNO RINDEX k RINDEX FMRLEN FMBLF FMSIZE FMREC1 FMREC2 BIDACR CLORD RRORD WRORD ERPROT RDORD RFORD FDLEN FMLEN FDFNR FMORD FMORG SORG DIVMOD OK:
0x130940…18f440 [0x12a]: Pad {f00=0x0061, f01=0x0190, f02=»CBI SPACE SCAN COMTAB OUTINT OUTCHA T:INP x TPREAD TPWAIT ERROR2 ERROR7 ERROR8 ASC:IM INVOL1 NXVLIN COPIED ERROR4 ERROR5 ERROR6 ERRORB COPYCF } COPYCF
0x130940…18f440 [0x12b]: Pad {f00=0x0061, f01=0x0190, f02=» TOWEOF " TOWRIT b TOWAIT j TOVOL1 FMFILE FMCCD FMCRP COPIED ERROR1 ASC:IM ASC:CM COPYIT COPYIT @ SUB1 CONIBM DECBIN FDLEN RFORD FDRLEN FDFNR FMLEN FMORD FMREC
0x130940…18f440 [0x12c]: Pad {f00=0x0061, f01=0x0190, f02=» DECBIN FDLEN RFORD FDRLEN FDFNR FMORD FMREC1 FMREC2 RRORD CLORD COPYFT COPYFT FDLEN RFORD ERROR2 FDRLEN ERROR3 FDFNR FMLEN FMORD TOVOL1 REORD RRORD TOWAIT TOWRIT TOWEOF COP
0x130940…18f440 [0x12d]: Pad {f00=0x0061, f01=0x0190, f02=» ERROR4 ERROR5 " ERROR6 & ERROR7 * ERROR8 . ERROR9 2 ERRORA 6 ERRORB : CLORD WRORD ERPROT TPWAIT ^COMPCT COMPCT bTAB OUTCHA PRTBUF OUTTXK ATOA ATOE V RPRINT P
0x130940…18f440 [0x12e]: Pad {f00=0x0061, f01=0x0190, f02=»X 4 XDISPB : OUTXW d XDISPW j BLANKS z |TAB SKIPIF PRTIF OUTINT OUTINR IDISPR BININT BINAC BININR BINACR PRTECB " ^ASC |ASC PRTBUF OUTCHA OUTTXT OUTHEX ATOA ATOE
0x130940…18f440 [0x12f]: Pad {f00=0x0061, f01=0x0190, f02=» HEXASC OUTINR OUTCHA OUTHEX bTAB OUTTXT PRTBUF SPACE ATOA ATOE 8OK:SUB VOLNAM l OK:SUB RCONPAR SYSPAR CONPAR <C SYSFNR |VBB 6BIDACR
0x130940…18f440 [0x130]: Pad {f00=0x0061, f01=0x0190, f02=»DISPL IDISPR ZSCAN COMTAB STRTAB P SCECBI SCECBO SCAN ,MPYMOD MPYMOD ~ ~COMPUT DUBCMP DUBMOV D DMOVIB V DMOVI1 Z BXJ DMOVI2 p MURMO
0x130940…18f440 [0x131]: Pad {f00=0x0061, f01=0x0190, f02=»IVMOD SWMUL SAVEA1 SAVEA2 SAVEA4 SAVEA5 SAVEA6 SAVEA7 SWDIV SAVEA8 FETCH2 FETCH1 SWTASK 2 PRORD B D SORTF " " SAVEA1 z SAVEA2 | SAVEA4 ~ SAVEA5 SAVEA6 SAVEA7 SAVEA8 XJ
0x130940…18f440 [0x132]: Pad {f00=0x0061, f01=0x0190, f02=»UBADD DMOVI1 DMOVIB DMOVI2 DUBSUB RDORD RWORD FDLEN RFORD FDFNR FMORD CLORD FMOP FMCL BINACR SWMUL DUBDIV ERPROT RRWORD FMLEN SWTASK MOVE1 COPMOV $SRTAID SRTAID COPMOV M
0x130940…18f440 [0x133]: Pad {f00=0x0061, f01=0x0190, f02=»DLEN FDVOL FDFILE BASWR DELWR FDOPT OPORD SORTF CONPAR FMLEN bVBB "C SYSFNR Mt rDK3IPL IPL131 IPL231 IPL132 IPL232 IPL133 IPL233 QBLFAC NFLDIPL IPL811 I
0x130940…18f440 [0x134]: Pad {f00=0x0061, f01=0x0190, f02=» RDORD RRORD RWORD ERPROT RRWORD WRORD RFORD FDLEN COPFIL FDRLEN FDFNR FMLEN FMORD FMORG FMREC1 FMREC2 CLORD FMCL FMREAD FMWRIT h DMOFF OPORD: CLORD RSORD RFORD R
0x130940…18f440 [0x135]: Pad {f00=0x0061, f01=0x0190, f02=» FDFNR FDSIZE FMLEN P FMFILE FMRLEN FMBLF FMORG FMREC1 : FMREC2 < FMCCD F FMCRP L FMSIZE FMORD FMOP FMCL FMREAD FMWRIT BASWR DELWR ERFC ERPROT @ SORG SS MAXBLK DMNMDOS
0x130940…18f440 [0x136]: Pad {f00=0x0061, f01=0x0190, f02=»MEN2 IPL111 IPL112 IPL113 IPL211 IPL212 IPL213 IPL411 IPL412 IPL413 vCCISUB CDTYPE , REBUF BINRES CDFORM J BLRLEN f CCPBOT MAXBLK CDISC CDISC2 CDISC
0x130940…18f440 [0x137]: Pad {f00=0x0061, f01=0x0190, f02=» CASMIX CASIXF CASOUT PBLK2 MIXLST IXLIST WKLIST ASLIST CCIHFI PBLK FMFPB FMOP FMORD FMREC1 FMCL CCIERR FMERR FDLEN FDBLK FDFILE FDVOL FDSIZE FDOPT BASWR DELWR OPORD RSORD ERFC CLORD C
0x130940…18f440 [0x138]: Pad {f00=0x0061, f01=0x0190, f02=»CCODE UNLOAD WRINER READAN LOCKFD WRITT CTRSEC NUMBER CTR:30 CIBMRL EFFLEN UPD:A4 2 UPD:A9 6 UPDA9B : FCCARD B CWAA J CCIBUF CWAL P CCIBFL U:BUF1 F LSECNO STACKP U
0x130940…18f440 [0x139]: Pad {f00=0x0061, f01=0x0190, f02=»CCMT L CCSQT INLIST OTLIST ASLIST WKLIST MIXLST IXLIST FLTAB QCCHBC QCCDBC QCCFOR QCCLIM QCCSPE QCCOBB @ QCCOBW QCCOAS CCCCT CCFCT CCLCT n CCSCT CPRDEV CDISC CSPNAL S
0x130940…18f440 [0x13a]: Pad {f00=0x0061, f01=0x0190, f02=» CMTDK1 UPD:A4 CMTDK2 UPD:A9 CMTDK3 CDTYPE CASIXF CASMIX FCCARD CASWKF CMTDK4 CWAA CWAL UPDA9B CDISCA CDFORM DTYP CCPBOT CCFAT > CRVOL CRFILE DLFILE PRVTOC PRDISC UPDISC COPVOL COPFIL
0x130940…18f440 [0x13b]: Pad {f00=0x0061, f01=0x40d8, f02=»TF CCLTT j CCEMT CCASSE FMERR n 8 rDK2IPL / IPL121 IPL221 IPL122 IPL222 IPL123 IPL223 QBLFAC *GETFC 3 GETFC PRVTOC PRDISC UPDISC COPVOL COPFIL
0x130940…18f440 [0x13c]: Pad {f00=0x0061, f01=0x0190, f02=» ? A > @ P ,V$ A % @ 9 % T A T @ &z ? ? >_ ? ? ? ? ? ? ? Q _ ^ ( H & W '~ W ' X I I R P8 X B$P B*T Y Y W x Y Y $ 0T W W ,^ X ? ? ? ? ? ? ? '0 - X #? P
0x130940…18f440 [0x13d]: Pad {f00=0x0061, f01=0x0190, f02=» ? ? ? ? ' - ? ? ? ? ? ? ? ' - (@_~ + X R Y _ X D $! TR ? ? ? ? ? ? ? ( . 8 M ? ? ? ? ? ? ? (> - % > > > > > > > > ? ? ? ? ? ? ? (j . P X - - ( * 8 TRT X + + ? ? + Pl +
0x130940…18f440 [0x13e]: Pad {f00=0x0061, f01=0x0190, f02=»B$P B*T" Y 0 Y Y X Q Y _ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y ( ? ? ? ? ? ? ? ) . Qv ) * " PF X Q< X P P ? ? ? ? ? ? ? ** .:
0x130940…18f440 [0x13f]: Pad {f00=0x0061, f01=0x0190, f02=» - Y Y X X T ? ? ? ? ? ? ? * - > > > > > > > > ? @ ? > X B A* B (@ $ X X W W $ # C C P L L m A , DKP L X X L ! X L P L @ _ C C # $ _R _ _ _
0x130940…18f440 [0x140]: Pad {f00=0x0062, f01=0x0000, f02=»
0x130940…18f440 [0x141]: Pad {f00=0x0062, f01=0x0002, f02=» @
0x130940…18f440 [0x142]: Pad {f00=0x0062, f01=0x4152, f02=» PASG 2,NO PSCR PLED DUMENT P!!CH $$CRVOL$$DUM1$$ 2 P!!CH $$CRFILE$$DUM2$$ N P!!CH $$DLFILE$$DUM3$$ l P!!CH $$PRDISC$$DUM4$$ P!!CH $$UPDISC$$DUM5$$ P!!CH $$PRVTOC$$DUM6$$ P!!EN PASM /S PINC CCI
0x130940…18f440 [0x143]: Pad {f00=0x0062, f01=0x2008, f02=» 2,NO PSCR PLED DUMENT P!!CH $$CRVOL$$DUM1$$ 2 P!!CH $$CRFILE$$DUM2$$ N P!!CH $$DLFILE$$DUM3$$ l P!!CH $$PRDISC$$DUM4$$ P!!CH $$UPDISC$$DUM5$$ P!!CH $$PRVTOC$$DUM6$$ P!!EN PASM /S PINC CCI
0x130940…18f440 [0x144]: Pad {f00=0x0062, f01=0x0190, f02=»FOND EQU * P LDKL A2,/200 P OTR A2,0,SOP ( P HLT > P* J . PFCCHEK CWK A3,MONNUM SEARCH FOR MONITOR ? T ( P RF(NE) RET100 START MONITOR SEARCH $ P LC A7,SOPFIL,A4 GET SOP NUMBER P ANK A7,/FF * P RB(NE) FILFOR NOT A MONITOR
0x130940…18f440 [0x145]: Pad {f00=0x0062, f01=0x0190, f02=»A3,16,A4 FILE EXTENDED BASE,MOST SIGNIFICANT P ST A3,FILXBM,A12 4 6 P LD A3,18,A4 FILE EXTENDED BASE,LEAST SIGNIFICANT N P ST A3,FILXBL,A12 2 P LDK A3,MONNUM MONITOR NUMBER FIELD TO COMPARE 6 P LC A5,MONNUM,A4 A2:=MONITOR NUMBER TO SEARCH FOR
0x130940…18f440 [0x146]: Pad {f00=0x0062, f01=0x4092, f02=» PLIMIT EQU * P* P* END OF DISK IPL " P* > 6 P************************************************** H END @ XBL,A12 2 P LDK A3,MONNUM MONITOR NUMBER FIELD TO COMPARE 6 P LC A5,MONNUM,A4 A2:=MONITOR NUMBER TO SEARCH FOR
0x130940…18f440 [0x147]: Pad {f00=0x0062, f01=0x2008, f02=» NT DSKIPL 79-07-13 POHO END *@ 6
0x130940…18f440 [0x148]: Pad {f00=0x0062, f01=0x0000, f02=»
0x130940…18f440 [0x149]: Pad {f00=0x0062, f01=0x0002, f02=» H
0x130940…18f440 [0x14a]: Pad {f00=0x0062, f01=0x0190, f02=» PASG 2,NO PSCR PLED DUMENT P!!CH $$CRFILE$$DUM0$$ 2 P!!CH $$DLFILE$$DUM1$$ P P!!CH $$PRVTOC$$DUM2$$ n P!!CH $$COPFIL$$DUM3$$ P!!CH $$COPYFT$$DUM4$$ P!!CH $$COPYTF$$DUM5$$ P!!CH $$PRFILE$$DUM6$$ P!!CH $
0x130940…18f440 [0x14b]: Pad {f00=0x0062, f01=0x4012, f02=»0,TY10 @ PSCR PLED DUMENT P!!CH $$CRFILE$$DUM0$$ 2 P!!CH $$DLFILE$$DUM1$$ P P!!CH $$PRVTOC$$DUM2$$ n P!!CH $$COPFIL$$DUM3$$ P!!CH $$COPYFT$$DUM4$$ P!!CH $$COPYTF$$DUM5$$ P!!CH $$PRFILE$$DUM6$$ P!!CH $
0x130940…18f440 [0x14c]: Pad {f00=0x0062, f01=0x2008, f02=» @ PSCR PLED DUMENT P!!CH $$CRFILE$$DUM0$$ 2 P!!CH $$DLFILE$$DUM1$$ P P!!CH $$PRVTOC$$DUM2$$ n P!!CH $$COPFIL$$DUM3$$ P!!CH $$COPYFT$$DUM4$$ P!!CH $$COPYTF$$DUM5$$ P!!CH $$PRFILE$$DUM6$$ P!!CH $
0x130940…18f440 [0x14d]: Pad {f00=0x0062, f01=0x454e, f02=»D FORMAT;TAPE UNIT NOT OPERABLE; OUTPUT DISC NOT EMPTY;FAULTY RECORD LENGTH; !!CH $$DLFILE$$DUM3$$ ENOUGH; OUTPUT FILE NOT EMPTY;TAPE UNIT NOT LOCKED/LOADED;INCORRECT TNR;OUTPUT I/O ERROR, ;INPUT I/O ERROR, ; BLOCK FACTOR ON OUTPUT TOO LARGE; TAPE MARK MISSING;TA
0x130940…18f440 [0x14e]: Pad {f00=0x0062, f01=0x0190, f02=»OCK LENGTH ON INPUT;EOF INSIDE SPLITTED RECORD; INPUT VOLUME NAME UNKNOWN;OUTPUT VOLUME NAME UNKNOWN; FILE NAME UNKNOWN;FLEX. DISC ALREADY LOCKED;FLEX. DISC NOT LOCKED;FLEX. DISC WRITE PROTECTED; DATA SET NAME ALREADY USED; DATA SET NAME NOT FOUND;NO IBM DISC FORMAT
0x130940…18f440 [0x14f]: Pad {f00=0x0062, f01=0x0190, f02=»SECTOR NUMBER;CARD READER NOT OPERABLE; FILE ORG. ERROR;CORE AREA TOO SMALL;RECORD NOT IN FILE-END OF MEDIUM; ILLEGAL POSITION NUMBER;NOT ALLOWED TO MIX DISCSIZES; DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 FD1 FD2 FD3 FD4 CD1 CD2 CTOR TOO LARGE; 1VOLUME NAME:
0x130940…18f440 [0x150]: Pad {f00=0x0062, f01=0x0000, f02=»
0x130940…18f440 [0x151]: Pad {f00=0x0062, f01=0x0002, f02=» P
0x130940…18f440 [0x152]: Pad {f00=0x0062, f01=0x4182, f02=» PASG 2,NO PSCR PLED DUMENT P!!CH $$COPYIT$$DUM1$$ 2 P!!CH $$COPYTI$$DUM2$$ P P!!CH $$IBMLBL$$DUM3$$ n P!!CH $$PRINDX$$DUM4$$ P!!CH $$SCANT$$DUM7$$ P!!CH $$COPYCF$$DUM8$$ P!!CH $$PRFILE$$DUM9$$ P!!CH $$C
0x130940…18f440 [0x153]: Pad {f00=0x0062, f01=0x2008, f02=» 2,NO PSCR PLED DUMENT P!!CH $$COPYIT$$DUM1$$ 2 P!!CH $$COPYTI$$DUM2$$ P P!!CH $$IBMLBL$$DUM3$$ n P!!CH $$PRINDX$$DUM4$$ P!!CH $$SCANT$$DUM7$$ P!!CH $$COPYCF$$DUM8$$ P!!CH $$PRFILE$$DUM9$$ P!!CH $$C
0x130940…18f440 [0x154]: Pad {f00=0x0062, f01=0x2121, f02=»CH $$SCANT$$DUM7$$ : P S P S P " X6_b NfR _ P 0 / !!CH $$COPYCF$$DUM8$$ [ [ B@ ^, ^, ' ^, !!CH $$PRFILE$$DUM9$$ %? v t v UU < 3 2P _ 4 , ) !!EN T G.G K. A
0x130940…18f440 [0x155]: Pad {f00=0x0062, f01=0x494e, f02=»C CCI N S W P X _ R R "( R ASG 2,LP0F 0 R _ <d?d U ?e R P S ?C/ G O LKE M ' P % =B S t w E M % t R.Q& @ Q R ASG /E0,TY10 & :ch
0x130940…18f440 [0x156]: Pad {f00=0x0062, f01=0x0190, f02=» _ L 4 , ) T G.G K. A ;A; G. ] S % T S S M % T S L . N 0 P S P S P " P P N S W P X _ R R R " $
0x130940…18f440 [0x157]: Pad {f00=0x0062, f01=0x0190, f02=» B. T P ' " : 6 "? UU t 3 2P _ 4 , 5 T G.G K. A ;A; G. ( ] ] S S S S " :A S S S . N 0 S & N S W P
0x130940…18f440 [0x158]: Pad {f00=0x0062, f01=0x0000, f02=»
0x130940…18f440 [0x159]: Pad {f00=0x0062, f01=0x0002, f02=» X
0x130940…18f440 [0x15a]: Pad {f00=0x0062, f01=0x4108, f02=» PASG 2,NO PSCR PLED CCIBUF ( P!!CH $$SRTBUF EQU 0$$SRTBUF EQU 1$$ 2 P!!EN ^ PASM /S j PLED DUMENT x P!!CH $$SORTF$$DUM1$$ P!!EN PASM /S PINC CCI PASG 2,LP0F PLKE M PASG /E0,TY10 @
0x130940…18f440 [0x15b]: Pad {f00=0x0062, f01=0x2008, f02=» 2,NO PSCR PLED CCIBUF ( P!!CH $$SRTBUF EQU 0$$SRTBUF EQU 1$$ 2 P!!EN ^ PASM /S j PLED DUMENT x P!!CH $$SORTF$$DUM1$$ P!!EN PASM /S PINC CCI PASG 2,LP0F PLKE M PASG /E0,TY10 @
0x130940…18f440 [0x15c]: Pad {f00=0x0062, f01=0x406e, f02=» =50 P XIF P* PLENGTH EQU *-CCIBUF $ P* @ P* J P* T P END ^@ jNGTH N P* z PCCIBUF EQU * PU:BUF1 RES 2048 =4 P* PPBLK2 EQU * " PFDBLK EQU *+200 OPEN BLOCK =4 PU:BUF2 RES 774 =4
0x130940…18f440 [0x15d]: Pad {f00=0x0062, f01=0x2008, f02=» P XIF P* PLENGTH EQU *-CCIBUF $ P* @ P* J P* T P END ^@ jNGTH N P* z PCCIBUF EQU * PU:BUF1 RES 2048 =4 P* PPBLK2 EQU * " PFDBLK EQU *+200 OPEN BLOCK =4 PU:BUF2 RES 774 =4
0x130940…18f440 [0x15e]: Pad {f00=0x0062, f01=0x0190, f02=» ^< 2 . fY%w n b ] $ ^ : 9 i $ - w z~4r tV u 3 qC + zuqL $ ) > Pu ZD q c r F~ uL _^ % ;Pl G > # F $ 4` 1F ^-8 T t tB bbTg t z ^ ^ bHPH H ^2 Z ` zP
0x130940…18f440 [0x15f]: Pad {f00=0x0062, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d @ < R:R: ` J bb ^% bbpH 0~ <d hl|d : x ` ^ D)dH P D >~ `" f >~ $ d p 4d @u { D>~
0x130940…18f440 [0x160]: Pad {f00=0x0063, f01=0x0000, f02=»
0x130940…18f440 [0x161]: Pad {f00=0x0063, f01=0x0002, f02=» `
0x130940…18f440 [0x162]: Pad {f00=0x0063, f01=0x0190, f02=» PASG 2,NO PSCR PLED CONPAR,/S,## ( P##CH $$TIMER DATA 0$$TIMER DATA 1$$ 8 P##EN d PASM /S,NL p PINC SORTF PINC DMOFF PINC ADDMOD PINC DSUMOD PINC MPYMOD PINC DIVMOD PINC BINACR PINC COMPUT
0x130940…18f440 [0x163]: Pad {f00=0x0063, f01=0x401c, f02=» PASG /E0,TY10 @ PLED CONPAR,/S,## ( P##CH $$TIMER DATA 0$$TIMER DATA 1$$ 8 P##EN d PASM /S,NL p PINC SORTF PINC DMOFF PINC ADDMOD PINC DSUMOD PINC MPYMOD PINC DIVMOD PINC BINACR PINC COMPUT
0x130940…18f440 [0x164]: Pad {f00=0x0063, f01=0x2008, f02=» /E0,TY10 @ PLED CONPAR,/S,## ( P##CH $$TIMER DATA 0$$TIMER DATA 1$$ 8 P##EN d PASM /S,NL p PINC SORTF PINC DMOFF PINC ADDMOD PINC DSUMOD PINC MPYMOD PINC DIVMOD PINC BINACR PINC COMPUT
0x130940…18f440 [0x165]: Pad {f00=0x0063, f01=0x2a5c, f02=»DATA RSECM* /01 READ WITH NO WAIT * DATA RLTRA* * T A10,ECBCW,A8 =1 DEFRO EQU * 2,A8 =1
0x130940…18f440 [0x166]: Pad {f00=0x0063, f01=0x5c4c, f02=»DR* A2,A1 ST A2,LTRACK =4 LD A2,2,A1 ST A2,SEPRTR =4
0x130940…18f440 [0x167]: Pad {f00=0x0063, f01=0x5c53, f02=»T A2,RSECND =4 LD A2,6,A1 =4 B43 =4 ST A2,RSECMX =4 LD A2,8,A1 =4
0x130940…18f440 [0x168]: Pad {f00=0x0063, f01=0x0000, f02=»
0x130940…18f440 [0x169]: Pad {f00=0x0063, f01=0x0002, f02=» h
0x130940…18f440 [0x16a]: Pad {f00=0x0063, f01=0x0190, f02=» 2 P IDENT DUMENT REL 10.0 80-03-14 870136641000 * P =10 IPL-EQU' S HAVE MOVED TO DUMEN2 : P* h P* DUMMY ENTRYS FOR LKE r P* $ P ENTRY COPVOL COPY DISC TO DISC , P ENTRY COPFIL COPY FILE TO FILE ON DISCS ( P ENTRY COPYFT COPY DISC
0x130940…18f440 [0x16b]: Pad {f00=0x0063, f01=0x0190, f02=»OPYIT COPY FILE IBM TO TOSS ( P ENTRY COPYTI COPY FILE TOSS TO IBM $ " P ENTRY IBMLBL WRITE IBM LABELS P $ P ENTRY PRINDX PRINT INDEX TRACK v " P ENTRY BINDEX BUILD INDEX FILE ( P ENTRY RINDEX REORGANIZE INDEX FILE $ P ENTRY COPYCF COPY CARDS T
0x130940…18f440 [0x16c]: Pad {f00=0x0063, f01=0x018e, f02=»C P ENTRY SORTF P* =10 PCOPVOL EQU * . PCOPFIL EQU * B PCOPYFT EQU * V PCOPYTF EQU * j PPRFILE EQU * ~ PSCANT EQU * PCOPYIT EQU * PCOPYTI EQU * PIBMLBL EQU * PCRVOL EQU * PCRFILE EQU * P
0x130940…18f440 [0x16d]: Pad {f00=0x0063, f01=0x4076, f02=» PCOPYCF EQU * PSORTF EQU * P LDKL A1,-5 0 P LDK A2,0 D P RTN A14 V P END f@ r j PPRFILE EQU * ~ PSCANT EQU * PCOPYIT EQU * PCOPYTI EQU * PIBMLBL EQU * PCRVOL EQU * PCRFILE EQU * P
0x130940…18f440 [0x16e]: Pad {f00=0x0063, f01=0x2008, f02=» F EQU * P LDKL A1,-5 P LDK A2,0 , P RTN A14 > P END N@ Z * T PPRFILE EQU * h PSCANT EQU * | PCOPYIT EQU * PCOPYTI EQU * PIBMLBL EQU * PCRVOL EQU * PCRFILE EQU * PDLFILE EQU * PPR
0x130940…18f440 [0x16f]: Pad {f00=0x0063, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R _ @ r T T S S S S >T T S S S S @ p - - T A r B
0x130940…18f440 [0x170]: Pad {f00=0x0063, f01=0x0000, f02=»
0x130940…18f440 [0x171]: Pad {f00=0x0063, f01=0x0002, f02=» p
0x130940…18f440 [0x172]: Pad {f00=0x0063, f01=0x412c, f02=» PSCR PASG 2,NO PLED CCIBUF ( P!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 P!!EN ^ PASM /S,NL j PINC CCI | PINC CCITAB PLED DUMENT P!!DL 4,23 P!!DL 36,55 P!!EN PASM /S,NL PASG 2,LP0F PLKE U,
0x130940…18f440 [0x173]: Pad {f00=0x0063, f01=0x2008, f02=» PASG 2,NO PLED CCIBUF ( P!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 P!!EN ^ PASM /S,NL j PINC CCI | PINC CCITAB PLED DUMENT P!!DL 4,23 P!!DL 36,55 P!!EN PASM /S,NL PASG 2,LP0F PLKE U,
0x130940…18f440 [0x174]: Pad {f00=0x0063, f01=0x0190, f02=»1 Q v P CM EXTNO R ( P CF A14,LOCK LOCK IF FLEXIBLE DISCS R P* R H P EJECT COPVOL CRVOL R R P* R r P* ****** R | P* *TEST* R P* ****** R P* R ( P* COMPARE NAMES IN PBLK AND ON DISC R P* R P* READ VL1 TO BUF1 R P* R
0x130940…18f440 [0x175]: Pad {f00=0x0063, f01=0x0190, f02=»N PBLK R x P ADK A3,8 S P LDK A5,3 A5 COUNTER S P* S < PTST010 LDR* A4,A3 S F P CWR* A4,A1 COMPARE ONE WORD S ` P ABL(NE) RTN02 ERROR MESSAGE S P ADK A3,2 S P ADK A1,2 S P SUK A5,1 END? S P RB(P) TST010 NEXT S P* S P ADK
0x130940…18f440 [0x176]: Pad {f00=0x0063, f01=0x018e, f02=»UK A1,26 =4 S P* T . P LC A5,QREORG,A12 GET REORGANIZE PARAMETER T P ANK A5,/FF T P " P ABL(Z) BACKUP NO REORGANIZE? T d P* T P EJECT COPVOL CRVOL T P* T P* READ VL2 TO BUF2 T P* T P CF A14,READ2 T * P LD A2,QBUF2,A12 L
0x130940…18f440 [0x177]: Pad {f00=0x0063, f01=0x0190, f02=» T r P ABL(NE) RTN02 ERROR MESSAGE U P ADK A3,2 A3 POINTER IN PBLK U , P ADK A2,2 U P P SUK A5,1 U b P RB(P) TST020 NEXT U t P* U P EJECT COPVOL CRVOL U P* U P* U & P ADK A2,26 POINT TO 'TO' ON DISC2 U P LDR* A4,A2 'TO' TO
0x130940…18f440 [0x178]: Pad {f00=0x0063, f01=0x0000, f02=»
0x130940…18f440 [0x179]: Pad {f00=0x0063, f01=0x001c, f02=» x
0x130940…18f440 [0x17a]: Pad {f00=0x0063, f01=0x0190, f02=»x h T L L L L d L L L$`2 L* L L L L L L L L L L L L L L* L L L$`< L L L L! ! L L 2 L L L:2 L L L L L L L L L L L L L L R c @ p z ^ N l8Z8 H N2 Z jq zP
0x130940…18f440 [0x17b]: Pad {f00=0x0063, f01=0x0190, f02=» 4c r @]g N x d 2Z $"z y wL / y N DlR m 2 &Z iL a [ ? d V% L % "~ T &b 5Cn 1 d _ A H " M, _ @M, > > U # T @ H ( ( P c P W6 @ AM, $ V ( U P @A"V LA"
0x130940…18f440 [0x17c]: Pad {f00=0x0063, f01=0x0190, f02=» H A Q > ? A H A FQ 2_ A F < Q @ P @ Q @ Z Y _ 8 M6 Q Z P 0 9 _ z $ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ M* $P T I R $ 5 % > ? W ? W ? T
0x130940…18f440 [0x17d]: Pad {f00=0x0063, f01=0x0190, f02=» @K T R 0 AK 1 Q Q > > 0 @K 1 AK P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @K V ? K > _ > ? _ > > ? ^ ! Y ^ _ R ? JA. ~
0x130940…18f440 [0x17e]: Pad {f00=0x0063, f01=0x0190, f02=» $ ( , 0 4 8 < C C 8W T 8P Y ^ 5 ) P U MT 4 XT XF Y @ P R T X &P Xh I Y T # C C W4 O " # X Y ) C C x # P Y '? Y
0x130940…18f440 [0x17f]: Pad {f00=0x0063, f01=0x0190, f02=» F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL F > X B U( H Q2 X D B $ T C
0x130940…18f440 [0x180]: Pad {f00=0x0064, f01=0x0190, f02=» Q > P _0 # T p > P p (_H _2 B U X F > ? _ X T (@ 2 ^ > > ? _ X T (@ X L U L Q4 M X D P ( X ) 1_f _& ?(@ X P 0P X
0x130940…18f440 [0x181]: Pad {f00=0x0064, f01=0x0190, f02=» ^ X P8 P0 # P T P 0P 1 _ W Y > > ! P C 1"78 &3$ Q P ^ ML A 6 B X T " T A D 7T B # Y B A < P T YF ZJ X T X M A p 2 H < B J J
0x130940…18f440 [0x182]: Pad {f00=0x0064, f01=0x0190, f02=»_<#/ X T Y P ) Y C C Y A p P8 P )@:b P ) :a P :a P X '? R Q )@ 2 8 8 2 MP A D X T P L " P: A X P ` W Y @ T* P ] D W @ 6 :C _L) @ _ TP _ Y X
0x130940…18f440 [0x183]: Pad {f00=0x0064, f01=0x0190, f02=» A z A _0 _ _8 _< _@ _D _H A H ?M P: A PbQ* ? A z @ 6 T M -W ,E A A > > >M A _ A > ? ;I C X "A _> A A A A MT # X& TT X T X:EV W X T Y `:DV X Qx X:EVp W "
0x130940…18f440 [0x184]: Pad {f00=0x0064, f01=0x0190, f02=» " Y A p P P )@:b P ) :a P :a P X '? R Q )@ 2 8 8 2 A X T " P A X P W Y @ T ] D W @ 6 :C _L) @ _ P _ Y
0x130940…18f440 [0x185]: Pad {f00=0x0064, f01=0x0190, f02=» A A _0 _ _8 _< _@ _D _H A H ?M P A P Q ? A z @ 6 T M -W ,E A A > > >M A _ A > ? ;I C X "A _> A A A A # X& TT X T X:EV W X Q }P ML A X " :B
0x130940…18f440 [0x186]: Pad {f00=0x0064, f01=0x0190, f02=» T } B X T # T 4 ^ ( ) W 4# T _$ H R4 ( X _ X P < R0< Q B ^ ! P Q ! ! R ! A _ < 0' 9H 1 P & Q _J ! Q ; V )Wv ! ! Rj! A _$ B 9 I ! ) ! rWT ) ! TR ! WH !
0x130940…18f440 [0x187]: Pad {f00=0x0064, f01=0x0190, f02=» P :b P ) :b P X ' R Q )@ MP? A A @x b MT @ @ A _r A ! 9 R 9 4 A X A @x MT @ @ @ A _< " 0 s t W4 @ _ W( W$ AW QW @W !W W _4 ` 9 @ T"A P S R B B 4 A
0x130940…18f440 [0x188]: Pad {f00=0x0064, f01=0x0190, f02=» ? Y 9 @ P 1 A @ T @x 1 MT A H 9 R ! @ MP ?b ! H R` ! ( r ( ! ! 9 Z 9 V A ! T8 @ ( )T Q R ! _ R ! _ ! T 9 V H ; R @ ( "13478? n `
0x130940…18f440 [0x189]: Pad {f00=0x0064, f01=0x0190, f02=» U P R U ML ! ! W ! 8 Q ! ^ B Z P C ! " B P $$ R % C ! ^_, Y *X Y (P. Y )P( $ P 0R Q W R ?U C ! ^_f Y (P Y ) _ ^ _ ! P: B L # +P Y , ! ( U _ X T _ W ! ( Y ! X
0x130940…18f440 [0x18a]: Pad {f00=0x0064, f01=0x0190, f02=»R X X ' " P ! X , _V MP A H ? X R> 8 J P X ' Q 8 J " W~ C U X Y , Y MP 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y MT Y . ! " X ._B B 1 4 X X X X ' 4 B U
0x130940…18f440 [0x18b]: Pad {f00=0x0064, f01=0x0190, f02=» U P R U ! ! W ! Q ! B Z P C ! B P $$ R % C ! _, Y *X Y (P Y ) P 0R Q W R ?U C ! _f Y (P Y ) _ ^ _ ! P B L # +P Y , ! U _ X T _ W ! Y ! X
0x130940…18f440 [0x18c]: Pad {f00=0x0064, f01=0x0190, f02=»R X X ' " P ! X , _V A H ? X R> 8 J P X ' Q 8 J " W~ C U X Y , Y Y " Y H X Qj p "9 ! :a ! r Lh T8 C Y Y F !"r T X $ Y L& Y F "j "j P P P P P ML
0x130940…18f440 [0x18d]: Pad {f00=0x0064, f01=0x0190, f02=» > B " ! 9FR P "j B X # B Z H V^ H VY H ^ P B 9 Y r Y tR4P 9 Y t ! > W" ! > H R T ! > WJ ! > @WB ! > U ! > ! > _ P Q R" ! > W ! > ! > @W ! > ! > X ' T: X rP Q C X t 8 9 ! >@ 9 C
0x130940…18f440 [0x18e]: Pad {f00=0x0064, f01=0x0190, f02=» ! h H RT RdW I R ! h ! 9 R ! 9 R Y " ! h I R W` ! h t 9BV( ! X r !! ! T6 @ r ! h H R P H R;E Y ! X Y H ! X ! ! P Y " "B ! h H R @ X $ P t R::AR~ P Y H ! t $ <A" :E ! ! h H R A Y H ! ZWz ! h H R X P
0x130940…18f440 [0x18f]: Pad {f00=0x0064, f01=0x0190, f02=» t " :A C :a X ! r U 4 ! h ! P t :AV rW X " P X 9 :A !! ! P Y " FW: 8 T " T 9_ ! h ! P ! ! ! P Y " ! "B 4 X ;F 8 X P^ ! h ! P ! ! ! P Y " "X X HT$ X P _ X X L ^ W :A H W @
0x130940…18f440 [0x190]: Pad {f00=0x0064, f01=0x0190, f02=» 8 H R" P # ;B 4 X " 4 Y 8 9 Y Y :c Y 4 8 X HP T X :F Y 4 X P* X X P _ X X I ^ W :A I Y 4 H R;C+ W( W$ W X HT X :AW r9 q r Y @ T M Q J ": Y Y MT ? # p Y Y F @ T Y ! ! Tn
0x130940…18f440 [0x191]: Pad {f00=0x0064, f01=0x0190, f02=» # 0P -_ @x! _ # A# Y Y F p _ A H ? # I F 9AZL9a P D ) X FV # T> X X X 4 Y W( x n?AR X $' T C C X "P MT ! ! T 9 ! h I R Y H ! ! ! Tr r X FP L @ TOT2 @ 1T( @ M # " Q
0x130940…18f440 [0x192]: Pad {f00=0x0064, f01=0x0190, f02=» C C C C # T 1 WP B B PD P ML V - 0 P A$ # +T W Q P P 1 !$, T V C B Q 1 MT Y Y Y @ r t @ B
0x130940…18f440 [0x193]: Pad {f00=0x0064, f01=0x0190, f02=» $ _ $ Y Y _ A H ? I F 9AZL9a P D ) X V # T X X X 4 Y W x ?AR X $' T C C X P % Lh 9 !)~! Tp 9 !+ X $ Y L& ) X Y $ 9 X L%b Y X N Y !, XT
0x130940…18f440 [0x194]: Pad {f00=0x0064, f01=0x0190, f02=» Y B Y ""0 Y V Y Y Y X X T V" X R # ;b9B Y Y ) Y X !? PZ P PR P !+ X P - _ X x ^ Y X P !,6 !)~ P @ 9W@ !+ X P - Y !) X P X !, X P X - _ X p ^
0x130940…18f440 [0x195]: Pad {f00=0x0064, f01=0x0190, f02=» p !- !,X h !- ( !,X ` !- 9 X Y P ) 9 " !) _ # - 4 !, PR C !, !) !(f(@ !, R _ !, -f 1 ;h 1 !, 1 !, * !)~ !(f !, ) !) # X Y P_ P P !, P @ 9 4 Lh ) !, P X 1P B % +PV T (
0x130940…18f440 [0x196]: Pad {f00=0x0064, f01=0x0190, f02=» D - x ^ !+ !,6 !)~ P @ 9 !, T ) C W ML X !- ( - p !- ) Wf W Y V Y R Y T Y H @ TLB SLWF Y 8! T6 X Y X C X U X Y R V Y &D W 8 MT Y _ ? / Y Y X LP y L_* L @x*" _: Y L
0x130940…18f440 [0x197]: Pad {f00=0x0064, f01=0x0190, f02=» # P Y P:A , Y ) Y J X $ Y C '? % X " Y _ A H ? / (@ X R X T K P0 @ T X VT $C Y B MTK & % Y B K X H :AZl X JP Y J ! P + 7P, $ P + < $ <C ! 9 9 4 X 9C X : X X 4 B :C
0x130940…18f440 [0x198]: Pad {f00=0x0064, f01=0x0190, f02=» L 4 - (@ 0! D> 1 Y W (@ - 0! D? ]- Y - 4 !, ;E :B 9A !, U -fP jW kQ 4 9 ' 0" Z Y P Z _ 4 A) ;D A) 4 R _ ;H 4 x !- (:C - 4 ` !- ( 4 X " 4 !- ) 4
0x130940…18f440 [0x199]: Pad {f00=0x0064, f01=0x0190, f02=» # P Y :A , Y ) Y X $ Y C '? % X " Y _ A H ? (@ X X K P @ T X T $C Y B K & % Y B K X :AZl X P Y ! P + 7P $ P + < $ <C ! 9 9 4 X 9C X : X X 4 B :C
0x130940…18f440 [0x19a]: Pad {f00=0x0064, f01=0x0190, f02=» 4 (@ 0 %j / / $(,0 !%)-1 "&*.2 #'+/3 X Y $ M P Z Y
0x130940…18f440 [0x19b]: Pad {f00=0x0064, f01=0x0190, f02=» P ]( 1 ^B _ Y J @ Y F B P ! T B R Y P A3 S [hU 1 B Y H h Y :B X LP Y N Y L 4R 4 @ D/ : V V 49B Y J X NP !1 P C W Y N !1 P C W Y J T X JT C Y PPT Y H Y X L X
0x130940…18f440 [0x19c]: Pad {f00=0x0064, f01=0x0190, f02=» 0 X L M Q Z MT Y _ Y L Y L !1 ! T Y F LR Y H Y J !1 X L M Q Z Y 4 ? 3 Y @ T" 3 0P -_r @x2 _| 3 A3 " Y !2 X ] Y X X $ Y '? 0 ? 3 I : V :c X V X X X
0x130940…18f440 [0x19d]: Pad {f00=0x0064, f01=0x0190, f02=» 5~ _ Y @ Y B P ! T B R Y A S [hU B Y h Y :B X P Y Y 4R 4 @ D/ : V V 49B Y X P ! P C W Y ! P C W Y T X T C Y P Y Y X X
0x130940…18f440 [0x19e]: Pad {f00=0x0064, f01=0x0190, f02=» 0 X Q Y _ Y Y !1 ! T Y Y Y !1 X Q Y 4 ? Y @ T 0P -_r _| A " X * Y , Lh T C Y " !:h! T L& Y "W T PP PJ PH PB P ML 9~ Y J !7 W !7 !
0x130940…18f440 [0x19f]: Pad {f00=0x0064, f01=0x0190, f02=» Y B !9@' P X D PJ X D T X X @P Y !7D !7 X ! P !7 !8 X >P !9> X D J X : Y X B Y Y D !7 Y !8 Y X > ^ X " P$ X Y : X Y B !8 !7 !8 X > ^ P, !9>_ !7D !8 Y D X >P ^ !9> !7D !8 9l !8 Y Y b !7 ! PX Y ,
0x130940…18f440 [0x1a0]: Pad {f00=0x0065, f01=0x0190, f02=» , _ 4 8 Y b_ JW LW NW b Y @ T M Q F 9 Y MT Y " b 3~ X D; Y "P0;AV X T X ::A9 1 _* @ 1_8 Y n Y d Y X @ s Y b ; V 9E Y b; M P rP( Q r Y J !7 ! P Y , P !7 ! X W
0x130940…18f440 [0x1a1]: Pad {f00=0x0065, f01=0x0190, f02=»R P P R ;a;a Y D 4 M Q r X , X *P Y * MT Y _ ? : Y " Y @ T Y !7 ! TH Y !7 ! T: Y !:h Y !:h Y Y " Xf X $ Y '? C 5~ @: P$_| : 0P -_ @x: _ : A: Y Y " _n A H ? : I :AZN P ) !
0x130940…18f440 [0x1a2]: Pad {f00=0x0065, f01=0x0190, f02=» M Q r 4 3z ;^ B B " " " " * P < Y ; V 9E Y ; P P Q Y !7 ! P Y P !7 ! X W
0x130940…18f440 [0x1a3]: Pad {f00=0x0065, f01=0x0190, f02=» X $ " P MT Y B Y Y Pt ;tt @ *C X. _6 ? >" X Z> A>H_J A H ? >" X ;t(@ 4 W I X 4 ;DR Q B = = ;AY B U Y $ = C T Q P &W -W /W A< ;AY A< Q` @< V8 D=8 @< R $W =>=H=RABCD
0x130940…18f440 [0x1a4]: Pad {f00=0x0065, f01=0x0190, f02=» W = = = [.<(+^!$*);] ,%_>? Y $ ? @>HTD X 1 PR, B T X 0 :ET P OFT Y $ < Y < M. ;p >J >V P Y ; V 9E Y ; P P Q Y !7 ! P
0x130940…18f440 [0x1a5]: Pad {f00=0x0065, f01=0x0190, f02=» abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS T
0x130940…18f440 [0x1a6]: Pad {f00=0x0065, f01=0x0190, f02=» 1 A _ P 9 > > T R L U R9C _ T M D W. D D " @ @ - U _ 9B @ T u X > " <M M@M MT@,M @ NTN O Aj Pn $" P E ` B (@ $ : ' P W @ D P _ A AD U MT
0x130940…18f440 [0x1a7]: Pad {f00=0x0065, f01=0x0190, f02=» : X @ X F D : M, ( H > D JW 0P Q P P E EP W : X E d X J 1 Y J(@ : J 4W 0P< R Q P W R T D E Q , 0 5 @K 1 AK ZB : D LW (P D E I W6 @r<T R ( Ar< U 1_ D E I D L ) E L
0x130940…18f440 [0x1a8]: Pad {f00=0x0065, f01=0x0190, f02=» C D > C B P. T G W B I X "? T _$ : X X < X > ! # X `=H C n~W C C C X %? : C X @_" P @M, Q (@ DN @ @M, Q (@ : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0
0x130940…18f440 [0x1a9]: Pad {f00=0x0065, f01=0x0190, f02=»U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_<W : X d X 1 Y #A 1 E F 5 @ 1 A ZB : D W (P D I W @ T R ( A U 1_ D I D > A
0x130940…18f440 [0x1aa]: Pad {f00=0x0065, f01=0x0190, f02=» Y M ,P :A M( AM( >W B I X "? T _$ : X X X ! # X =H C W C C C X %? : E Ez T M F E Px ' IV H ! JT AEv J P< K P& 8! P6 K @P X T X !? ? H W W
0x130940…18f440 [0x1ab]: Pad {f00=0x0065, f01=0x0190, f02=» P dW Y Y " V V T Y " Y $ K` P(_t d(@ - $T 1 %_" Y (_ @Ev 0P $P X X $ $P, # ' P @T #?W #?$? G _2 J @" P Y 9 @ J ! T " Y X & $ ' JL! JT K P C P* JL
0x130940…18f440 [0x1ac]: Pad {f00=0x0065, f01=0x0190, f02=» % Y Y V + V K V K : V K < V K A V % K C V & K D X P K @ X 9AV K 9 !? K > F K & G K R J K N ! N P N & N T _ - M @ F Pp G M2 _ W C ( B P U
0x130940…18f440 [0x1ad]: Pad {f00=0x0065, f01=0x0190, f02=» 8X 8 , Y $ : _ & O (@ T X " C X KN V P K`_ : C J^ @F @F< F J^ F V )$ T B * Y $ : & $ Y : @ P0 8 T _ & & Y " 4 : : $ - Y : ~ v R) $P<~!62V
0x130940…18f440 [0x1ae]: Pad {f00=0x0065, f01=0x0190, f02=» ^ WB X Y $:g H & I &! P& X M M(P ,P 9A _ H &P I & > LR P Y M X"; [&;! P &Z.?AZ2 @M( Q & X " $XJ ( I T E _ (X _ X $ _tEz > > @M, AM, DW W ^ ! Z2 M* (X: @
0x130940…18f440 [0x1af]: Pad {f00=0x0065, f01=0x0190, f02=»MT Pj T P` MF <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ D < ? < ? <(@ N $ P B $ 9H C ">h # P >_2 < U = D (@ " $ P B >H<h O P ?_" = > = >
0x130940…18f440 [0x1b0]: Pad {f00=0x0065, f01=0x0190, f02=» B B T P* & T$ L L R Q U , , _D , V :a B # S0 S0 Q Z8 Z< P X @ _6 _6 " " P2 @ Q, , Y ," P L P T L R :AV ' > _ QpQpQ(Q(Q Q Q(Q Q Q(Q Q(R Q(Q R:Q
0x130940…18f440 [0x1b1]: Pad {f00=0x0065, f01=0x0190, f02=» Pj T P . (@ @ D X P _ Y E X T X `% T UP P ^ SV=A Y PnT P B H I TP8 I $ C C SV T X?j Rd Q ?j R W _l X # Xt X F# T R R _ Q _ X # X X F# P
0x130940…18f440 [0x1b2]: Pad {f00=0x0065, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ]r P _ r, T R ol MT E
0x130940…18f440 [0x1b3]: Pad {f00=0x0065, f01=0x0190, f02=» Q - _ - > P . (@ @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1b4]: Pad {f00=0x0065, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1b5]: Pad {f00=0x0065, f01=0x0190, f02=» Pj T P . (@ @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1b6]: Pad {f00=0x0065, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1b7]: Pad {f00=0x0065, f01=0x0190, f02=» Pj T P . (@ @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1b8]: Pad {f00=0x0065, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1b9]: Pad {f00=0x0065, f01=0x0190, f02=» Pj T P . (@ @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1ba]: Pad {f00=0x0065, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1bb]: Pad {f00=0x0065, f01=0x0190, f02=» Pj T P . (@ @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1bc]: Pad {f00=0x0065, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1bd]: Pad {f00=0x0065, f01=0x0190, f02=» Pj T P . (@ @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1be]: Pad {f00=0x0065, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1bf]: Pad {f00=0x0065, f01=0x0190, f02=» Pj T P S` @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1c0]: Pad {f00=0x0066, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1c1]: Pad {f00=0x0066, f01=0x0190, f02=» Pj T P @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1c2]: Pad {f00=0x0066, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1c3]: Pad {f00=0x0066, f01=0x0190, f02=» Pj T P @ D X P _ Y E X T X `% T UP P ^ =A Y PnT P B H I TP8 I $ C C T X?j ?j W _l X # Xt X F# T _ Q _ X # X X F# P
0x130940…18f440 [0x1c4]: Pad {f00=0x0066, f01=0x0190, f02=»" A Pn Q X G X HT T W| Y H H S W W B B B SRW. Y X G X H S W W B B $ T _ C C W B B X R B@ Rd C& Tf #D X ! V( X ] P$ H P$ X " ] P _ T R MT E
0x130940…18f440 [0x1c5]: Pad {f00=0x0066, f01=0x0190, f02=» Pj T P @ D X P _ Y E X T X `% T @S , L T" L P ?A M L T L T M W L T L T M M L Q L AS^ @S Z @S^ P % P % T W R [ [ M M M M AS -(@ : - : @S ,
0x130940…18f440 [0x1c6]: Pad {f00=0x0066, f01=0x0190, f02=»Q D HU q Y . C R8 L ' PN M ' T> L C L C ( C q o _z ( C q B W Y C X '? oH X @ X B )T P T0 X ! T(W" q P F X BU X B G B qx F S W G G F F B@ q&
0x130940…18f440 [0x1c7]: Pad {f00=0x0066, f01=0x0190, f02=» qVW W E AD q X B X @ F X D( + X R ( C TzW Y B F F D '? P2 P, P< T V K K W K K D $ P B@ T BjW E G E H_ X # T B o X R (@(
0x130940…18f440 [0x1c8]: Pad {f00=0x0066, f01=0x0190, f02=» ' T L C L C ( C o _z ( C B W Y C X '? oH X @ X B )T P T X J F& Ar Rl P RP L <a Qrv_ r J " T # T W 0T # P P R Irv
0x130940…18f440 [0x1c9]: Pad {f00=0x0066, f01=0x0190, f02=»PJ _ W & P & B I - G wj W _* _ # ( C G r T @r Yf?A W ' Pn u ^ S G F > P2 J # " N # N F @r ~ @r R O u b . R ] ._ @r O F O B F O D @r O F F ;
0x130940…18f440 [0x1ca]: Pad {f00=0x0066, f01=0x0190, f02=» N B :h! P O `:G tH R r u W N F" P G G @rv G N :n G V V N `& xl tD N D' xF W W ^2 : J P U Q P J D A u r PnTZ R Tr X r R A _ j " Ar| J A
0x130940…18f440 [0x1cb]: Pad {f00=0x0066, f01=0x0190, f02=» C o B I I I F RD P RP P L G H r Ur <a Qrv Qr|<B r r _H Ar| J " " q V q Rr|" P J A P Pn Q ?A r PB B (@ N %? T* N J S0 L 4 5W P 0 @r< 1 Ar<(@_ . r
0x130940…18f440 [0x1cc]: Pad {f00=0x0066, f01=0x0190, f02=»Q R P ;A [ [ : ($SWAP A A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A >f A A A @ " Q" x :d @ # U R>P0 P J A J
0x130940…18f440 [0x1cd]: Pad {f00=0x0066, f01=0x0190, f02=» A @ : V, @ P ;b=H : { F { W =J : R F P W W @ $ P @ R| W W 2R" W W V V 8 !RRT W V X W W V V V PF A @ 2U U^ A Q
0x130940…18f440 [0x1ce]: Pad {f00=0x0066, f01=0x0190, f02=» Y P @ P @ T W - P _ T <B :L A W A A W T F W V = V W Y( P Z& = :L < P W <9B @
0x130940…18f440 [0x1cf]: Pad {f00=0x0066, f01=0x0190, f02=» 9h !RRP V V } W _> V V PZ W @ @ ! T _ P :l 9b ) V _ @ V^ W A A n W W J J PH W> J T B
0x130940…18f440 [0x1d0]: Pad {f00=0x0066, f01=0x0190, f02=» Z Z V 00P& Z Z_0 Z V 00P Z_ 0 !TTX W A~ !CCT CC A _ 0 !;; Z_ S A g A . @ R @ ! T A A @x V V I W V $ ) H
0x130940…18f440 [0x1d1]: Pad {f00=0x0066, f01=0x0190, f02=» : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 A ( P.=H_, !11R T$ 0 !LLP !RRP !AAP !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : : : : : : : 0 )T : !00T
0x130940…18f440 [0x1d2]: Pad {f00=0x0066, f01=0x0190, f02=» :A K : A T.I T P 1 I P < R P A _> : @ " P P yb A A $ A L A PW ^ Ax A A A A A A A 4 A J : 9e :e Q P 9e @x P Ax 9C) A I " @x ! P " :B Ax t
0x130940…18f440 [0x1d3]: Pad {f00=0x0066, f01=0x0190, f02=»x t w B J " r R,Q$ @ ( = @x Q @x "| _@ _$ : A H A L A A . A A A 4 A J : h:B* Ax @x P Ax B J 4R 4 :B 4 @x : V V 49B @x 4R @ t w A I ! j : A A A 4 A J A ! T
0x130940…18f440 [0x1d4]: Pad {f00=0x0066, f01=0x0190, f02=» 4 J 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P 0 @ T X W n : YX d C !CCTx xB. <X B.9 Hx Q _ _ !SSTF 0 Ux P A X X W W X X S W W W : V
0x130940…18f440 [0x1d5]: Pad {f00=0x0066, f01=0x0190, f02=» A 4 _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A A 2 ; Z [ : : [ [ : @
0x130940…18f440 [0x1d6]: Pad {f00=0x0066, f01=0x0190, f02=» R $ )_ : V W 0 : W ; V : : , X G : J @ 0 V @ 0 H W : V ) V v : @ 9B A 9n A @ A A A. @ @ W < H A : A MT
0x130940…18f440 [0x1d7]: Pad {f00=0x0066, f01=0x0190, f02=» _ ZY QY : @ V H W z W | CRPp ? ? > W ` V @ @ P 1_ R 8 _ v V @ A x R P W r W @ @ % V , P@ , - 4
0x130940…18f440 [0x1d8]: Pad {f00=0x0066, f01=0x0190, f02=» . !TTP @ T Y J !TTX" A 9 A : ` @ V :a @ B @ A @ B;a P$ W @ A @ T A : K ` @ P _ 3 S S V V W @ @ T : P S S
0x130940…18f440 [0x1d9]: Pad {f00=0x0066, f01=0x0190, f02=»RRP @ ! T W* H @ S W @ U 3 S H S Yd @ @ T : @ @ @ #D# P ; V * _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T
0x130940…18f440 [0x1da]: Pad {f00=0x0066, f01=0x0190, f02=» 0 W | ( @ % 5 T W @ = V W = V P0 r " U _2 P0 " U _2 V tP 2R S ( V | S =J @ " S V l
0x130940…18f440 [0x1db]: Pad {f00=0x0066, f01=0x0190, f02=»P V W t * P r _ Pd W p V 8 8 4 D P$ @ # P H I K T + Y@ V p _f V t Y J !TTX @ @ T : W % @ P _ R
0x130940…18f440 [0x1dc]: Pad {f00=0x0066, f01=0x0190, f02=» A V W W t PT W f ( W d X G =h G V d V r < ~ V f P W f _B V W V t Yv J !TTX @ @ T : J !TTX !CCTr P, V r 4 U $
0x130940…18f440 [0x1dd]: Pad {f00=0x0066, f01=0x0190, f02=» 3 . !CCP W P0 W f W d V d V r < ~ V f _2 U^ V 8 8 8 4 D P$ @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T
0x130940…18f440 [0x1de]: Pad {f00=0x0066, f01=0x0190, f02=» W >b & 8P V x V W R 9 W D ) $ PV D L Tp D &P V ` T @ 1 Q a 0 I , I . $# P8 V -W( W" D V ` T @ 1 Q a : @ % PD H I H T P( H U V
0x130940…18f440 [0x1df]: Pad {f00=0x0066, f01=0x0190, f02=» : V Q R $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : Y Z L @L T AL V W Y0 Z6 L @L T AL V >A 8T 9 0 1 8 $; # V
0x130940…18f440 [0x1e0]: Pad {f00=0x0067, f01=0x0190, f02=» *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]K W v P _ @L P V AL (P ) @L @L P V AL (P ) @L @ @ T : N =H N
0x130940…18f440 [0x1e1]: Pad {f00=0x0067, f01=0x0190, f02=» @ ! P (W ( : 00=H 00 P P _ _ : P j f @ R @ $ D L * A CRT M " p 0 $ Pn >" q Pn Pn : 3 3 3 3 : : # # # # / / / /
0x130940…18f440 [0x1e2]: Pad {f00=0x0067, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x1e3]: Pad {f00=0x0067, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x1e4]: Pad {f00=0x0067, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x1e5]: Pad {f00=0x0067, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x1e6]: Pad {f00=0x0067, f01=0x0190, f02=» L P T L R :AV ' > _ @ > <=2&p ?' @O {[lP}M] Nk`Ka J | J Z_m j TOSS T 5 5 5 5 5 5 _
0x130940…18f440 [0x1e7]: Pad {f00=0x0067, f01=0x0190, f02=» = h (@ " B 6 P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P B B T P & T L L R Q U V , , " _L , S V :a
0x130940…18f440 [0x1e8]: Pad {f00=0x0067, f01=0x0000, f02=»
0x130940…18f440 [0x1e9]: Pad {f00=0x0067, f01=0x0058, f02=» ( 0 8 @ H P X ` h p x ( 0 8 @
0x130940…18f440 [0x1ea]: Pad {f00=0x0067, f01=0x0190, f02=» > @ IDENT CCI REL 10.0 80-03-14 870136641000 F B REBUF BINRES CCIUTI HTBCON DTBCON ECBBA ECBRL ECBEL EFFLEN F > : ECBRC ECBCW PBLK WRINER READAN CCIERR CCIHFI WRITT ECBBA ECBRL ECBEL
0x130940…18f440 [0x1eb]: Pad {f00=0x0067, f01=0x0190, f02=»:BUF2 ( $ P ,* # + RC: 0 CCIUTI : BINRES ^ N EFFLEN d b , ( ] END OF ;PROGRAM AB v CCFCT READAN CCCCT , ( } $ORTED BY OPERATOR; T T > , (
0x130940…18f440 [0x1ec]: Pad {f00=0x0067, f01=0x0190, f02=» [ B : $ ! | , ( $ ; P I =Z I WRINER ( L CCTIE ` * & C C ( : [ p QCTIEL DTBCON N , ( 7 Z : , ( S [ [ [ [
0x130940…18f440 [0x1ed]: Pad {f00=0x0067, f01=0x0190, f02=» T T @ `T W Z Z NUMBER $ , ( Z Z : [ _ 6 CTR:30 f , ( Y R Y$R x HTBCON , ( @ Y6 _ [ [ , ( + Q , 0R 9U
0x130940…18f440 [0x1ee]: Pad {f00=0x0067, f01=0x0190, f02=» : [ [ [ [ [ [ , ( [ R 0 0 CCPBOT ` , ( =A T R !LLT r CCLTT , ( A T ! A b T R T , ( XF V (_D ( W [ Z
0x130940…18f440 [0x1ef]: Pad {f00=0x0067, f01=0x0190, f02=»_d>AV N r , ( } P P >P P P W CCLCT B , ( _ A ^ T >FV :A H @ ^Y R CCSCT , ( @@ H @ ^Z >AV W _ _ @ ^ , ( @ @ b >BV -W >AV -W >AV B , ( @ Z R
0x130940…18f440 [0x1f0]: Pad {f00=0x0067, f01=0x0190, f02=» A b B R T , ( q > R > @ T T W CCTSTT P QCTCCL b * & * t CCTCC CCCMT , ( D P (_ @ * & @ Z H P
0x130940…18f440 [0x1f1]: Pad {f00=0x0067, f01=0x0190, f02=» W @ 2P , ( = " #( : d M 0 QCCMNI ` CCSQT r , ( ] ^ R $_ & , ( y W 4_ @ 0P , ( P R " R Q " #(
0x130940…18f440 [0x1f2]: Pad {f00=0x0067, f01=0x0190, f02=»N THIS PACKAGE ; rW ;A CCEMT " CCIERR 2 , ( AE @ H * , 4 P r F , ( J 5 B @ :A H A n H v & " T Q A p f H D ! Z R V W P ( T U P gQx iP~ {S*
0x130940…18f440 [0x1f3]: Pad {f00=0x0067, f01=0x40fa, f02=» Px Pr Pl W V V W h H D ! V Wp V Wh Vd RV T T +T 1T mR& uR T T W P $ H D !j P 0 2 P 2 TH " !W0 9P eR {W P8 P2 R Q T p $ P^ Q0 T$ W2 W +P j @ P gQx iP~ {S*
0x130940…18f440 [0x1f4]: Pad {f00=0x0067, f01=0x4126, f02=» > @ IDENT CDISCT REL 10.0 80-03-14 870136641000 " CDISCT CDISLE FIRFC FCMAX F CDISCT l , ( DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 CDISLE 8 FIRFC FCMAX $ ! FD1 FD2 FD3 FD4 CD1 CD2
0x130940…18f440 [0x1f5]: Pad {f00=0x0067, f01=0x0190, f02=» > @ IDENT BINDEX REL 10.0 80-03-14 870136641000 BINDEX F BINDEX . X , ( + , 2 A A R A R A l FMRLEN , ( @ K A 9h A A * D R FMREC1 FMREC2 , ( @ i
0x130940…18f440 [0x1f6]: Pad {f00=0x0067, f01=0x0190, f02=» A S r , ( ( @ / P ;BR ;BZ ;FZ W , ( D A A _. 2 R R R $ - B , ( " - @ - @ r WRORD ERPROT , ( ! - - ( @ T , ( @ = @ # X
0x130940…18f440 [0x1f7]: Pad {f00=0x0067, f01=0x0190, f02=» , ( W W W W W W W CLORD 4 , ( @ ( ( , : A * D RFORD t FDLEN , ( _$ C ( B FDFNR FMLEN , ( D f B " D #
0x130940…18f440 [0x1f8]: Pad {f00=0x0067, f01=0x408c, f02=» s T S P R W ;T QTF SW W Z T , ( T W W W W W W W W F . v@ , ( _$ C ( B FDFNR FMLEN , ( D f B " D #
0x130940…18f440 [0x1f9]: Pad {f00=0x0067, f01=0x4140, f02=» > @ IDENT CCIBUF REL 10.0 80-03-14 870136641000 8 4 CCIBUF CCIBFL U:BUF1 U:BUF2 FMFPB PBLK2 FDBLK F CCIBFL CCIBUF U:BUF1 PBLK2 FDBLK FMFPB U
0x130940…18f440 [0x1fa]: Pad {f00=0x0067, f01=0x0190, f02=» > @ IDENT PRVTOC REL 10.0 80-03-14 870136641000 PRVTOC F , ( 1 0 0VOLUME NAME: X , ( ! DISC: , ( A 0FREE SPACE TAB ( ( a LE 0EXT BASE EXT LENGTH
0x130940…18f440 [0x1fb]: Pad {f00=0x0067, f01=0x0190, f02=» FILE FI t ( ( LE FILE RECORD BLOCK LAST , ( FILE FILE CREATION RET INDE @ , ( ! X KEY MONITOR SWITCH NAME p , ( A EXT BASE EXT LEN ORG LENGT , ( a H FACT REC NO SEC NO EXT NO D ( ( AT
0x130940…18f440 [0x1fc]: Pad {f00=0x0067, f01=0x0190, f02=» ( - : PRVTOC , , ( C ( B : 2 A @ FIRFC p * & D ! A B A R A R A CDISCT , ( ? P A * P A , A , ( @ Y "' R Q
0x130940…18f440 [0x1fd]: Pad {f00=0x0067, f01=0x0190, f02=» 2 , 9 TO , ( A 4 4 I 2 Y , ( )I $ 0 , A N P , ( , A F , A H " , A J @ J , ( @ 9 A >c A L C ( B , ( Y . B & A
0x130940…18f440 [0x1fe]: Pad {f00=0x0067, f01=0x0190, f02=» 4 | BIDACR " , ( P YBW YL @ B 4 , ( PJ @ L d , ( R n : n , ( P 1 N F D J , ( B Q D
0x130940…18f440 [0x1ff]: Pad {f00=0x0067, f01=0x0190, f02=» J U !LLT J , ( " c J " k $ , ( - U 8 U T U ZW - U d U l J T , ( 8 J ? J , ( ) J J J , ( G@ . J J J
0x130940…18f440 [0x200]: Pad {f00=0x0068, f01=0x018e, f02=» J & X t , ( H R p $ ! R ! , ( __Q Y . % Y p W A D , ( @ t , ( R & W 9 W W W : H D ! : cR$ iQ {
0x130940…18f440 [0x201]: Pad {f00=0x0068, f01=0x4008, f02=»@ t , ( H R p $ ! R ! , ( __Q Y . % Y p W A D , ( @ t , ( R & W 9 W W W : H D ! : cR$ iQ {
0x130940…18f440 [0x202]: Pad {f00=0x0068, f01=0x0190, f02=» > @ IDENT IBMLBL REL 10.0 80-03-14 870136641000 IBMLBL F X r , ( ERMAPVOL1 080 01001 , ( ; 7302601001080 74001 7302674001DD , ( [ R1 DATA HDR1 DATA VOL1 0-C
0x130940…18f440 [0x203]: Pad {f00=0x0068, f01=0x0190, f02=» A R A A , ( P A l ( , ( B , 0T Y W A p R 5 X VOLNAM , ( $ A C , ( ; A A , ( @ Y
0x130940…18f440 [0x204]: Pad {f00=0x0068, f01=0x0190, f02=» 4 )T , ( R W ],W A " * , ( & Z , ( W E 5 @ pP , ( " 7 @ r 5 @ s 5 2 P , ( W b 0
0x130940…18f440 [0x205]: Pad {f00=0x0068, f01=0x0190, f02=» z , ( R BIDACR J , ( @ P @ " , ( W 10_ 20_ C C , ( 5 ( P P A " , ( U P T T
0x130940…18f440 [0x206]: Pad {f00=0x0068, f01=0x0190, f02=» : W 5 | , ( I : # A 4 4 DECBIN L * & $ : @ ( : ^ , ( @ P A @ Z A CONIBM , ( / A 2 @ P , ( M t
0x130940…18f440 [0x207]: Pad {f00=0x0068, f01=0x410c, f02=» t W W * , , ) 5P K , z H D ! S Y 4 a k y P P W , 6 H D ! * P 4 Wf EP$ MP ]P cT iT oW sW wW $ 0 {W W W PP EP l @
0x130940…18f440 [0x208]: Pad {f00=0x0068, f01=0x0190, f02=» > @ IDENT PRINDX REL 10.0 80-03-14 870136641000 PRINDX F X , ( 1VOLUME NAME: DISC: r * ( ; 0INDEX TRACK: 0DSL DATA , ( [ RECORD BOE EOE EOD , ( {
0x130940…18f440 [0x209]: Pad {f00=0x0068, f01=0x0190, f02=» DATE r , ( BE A 07 2 A R A , ( A 0 B , ( VO 0 L1 r FIRFC CDISCT * & ; F , ( W 5 F U
0x130940…18f440 [0x20a]: Pad {f00=0x0068, f01=0x0190, f02=» , ( H @ " , ( T 0 a A A @ Y R , ( W 10_x 20_~ W W W , ( ! 3 : A ( @ & : , ( S ( @ P P F
0x130940…18f440 [0x20b]: Pad {f00=0x0068, f01=0x407a, f02=» y L Px Px ~ ~ h < 8 ~ ~ ~ ~ ~ T 6 W #W 'W +W eP kP $ d@ v R , ( W 10_x 20_~ W W W , ( ! 3 : A ( @ & : , ( S ( @ P P F
0x130940…18f440 [0x20c]: Pad {f00=0x0068, f01=0x0190, f02=» > @ IDENT IBMSUB REL 10.0 80-03-14 870136641000 * & SUB1 CONIBM DECBIN CONVRT CHAR F SUB1 t , ( # ( B P C C , ( ! C ( B P B " T , ( A B 4 9T
0x130940…18f440 [0x20d]: Pad {f00=0x0068, f01=0x40c0, f02=» n CONVRT CHAR " , ( : <C : 4$ 4 : d 0 , PH 7P ?T QT m q v @ ( B P B " T , ( A B 4 9T
0x130940…18f440 [0x20e]: Pad {f00=0x0068, f01=0x0190, f02=» > @ IDENT FILHND REL 10.0 80-03-14 870136641000 CRFILE DLFILE F , ( ` , ( ! , ( A CRFILE l , ( U a
0x130940…18f440 [0x20f]: Pad {f00=0x0068, f01=0x0190, f02=» , ( h A f A d Y A d A , ( f @ hW S 1 A d S 2 4 , ( P A f A : d FIRFC , ( ! R P # A R Q , ( ? ( B T ( B T C C , ( _
0x130940…18f440 [0x210]: Pad {f00=0x0068, f01=0x0190, f02=» R 0 $ t , ( ' R T W $ T A L R , ( ( !LLP @ T A . A 0 R 1 R D , ( !* 8 A @ R 6! A >P A D A F @ . @ t ADDMOD , ( J 0 A . A 0S @ D @ F DSUMOD , ( ; Y4
0x130940…18f440 [0x211]: Pad {f00=0x0068, f01=0x0190, f02=»Y4W R 6:B A A @ LP @ A > , ( UB @ A @ @ f A N @ f Y P @ f ( , ( T A f @ @ @ f P Y X , ( P @ @ A A A R , ( " A A A . A `9H A ^ , ( ) 1 A A A A @
0x130940…18f440 [0x212]: Pad {f00=0x0068, f01=0x0190, f02=» @ ^:c A b A x , ( 2 A 4 A 6 A 8 @ A * @ A , A , ( D @ * @ , A * A , @ D H , ( E R 0 A . 0 A 0 @ . x , ( % T @ 0X" @ . @ 2R Q @ 0 @ 4R , ( UQ / @ . A 2 @ 0 A 4 @ . @ ZTQ @ 0 , (
0x130940…18f440 [0x213]: Pad {f00=0x0068, f01=0x0190, f02=» h , ( . @ A 0W T Q 1 Q Q , ( " P R A R @ A Z A @ ^ C 8 , ( B ( C @ X /T @ jT h , ( A j : W W : _ @ T , ( T / _ _ R @ A . @ A 0 !LL , ( !@ O P @ 2
0x130940…18f440 [0x214]: Pad {f00=0x0068, f01=0x0190, f02=» A 2 A 4 @ B P A : P , ( T A < @ . @ 0 P P Q Q ( , ( " @ 2 Q @ 4 1 P X , ( IB A 2 0 A 4 A . A 0 @ f , ( H ) A . A 0 @ . @ 0 @ f , ( U! E A . A 0 @ 2 @ 4 @ f
0x130940…18f440 [0x215]: Pad {f00=0x0068, f01=0x0190, f02=» Q @ 2 Q @ x , ( B 4 1 @ @ @ . @ 0 A A , ( U A 2 A 4 @ LP @ > @ @ @ . @ 0 H , ( @ A > A @ x , ( E A A @ : A j , ( ; : P . P @ LP , (
0x130940…18f440 [0x216]: Pad {f00=0x0068, f01=0x0190, f02=» h , ( X / R 6 P J S , ( T $ 1T P _ X` 8 , ( " _2 A : @ T @ h , ( B Q : " @ , ( ; @ K @ K @ . K @ , ( [ 0 K @ :
0x130940…18f440 [0x217]: Pad {f00=0x0068, f01=0x0190, f02=» . " R !LLP R , ( 6 K % R 4 K & K ( K ) ( @ ( , ( X / : @ T @ X , ( !R Q : " @ A , ( ; 2 A R @ d % @ R , ( [ R 2 R 1 % Y @ . A
0x130940…18f440 [0x218]: Pad {f00=0x0068, f01=0x0190, f02=» @ J @ f @ LP x , ( B @ N A H A J @ . @ HYXR @ , ( T 0 @ JYd @ : A H @ < A J @ d C H , ( * @ H A Z @ J A ( C @ x , ( 7 X / @ H @ J @ f @ LP @ , ( Q W N A H A J @ . @ HY`R @ 0 , (
0x130940…18f440 [0x219]: Pad {f00=0x0068, f01=0x0190, f02=» h , ( @ 0 A @ : @ < BINACR 8 , ( @ . @ 0 J , ( " @ T A A z DLFILE F , ( 1 ( P @ : A , ( Q T @ T : A A
0x130940…18f440 [0x21a]: Pad {f00=0x0068, f01=0x0190, f02=» @ - ( ~ , ( DD @ X / J A J A . J , ( DP A 0 J A : J A < R @ N , ( ^9c A b @ b 0 A B ~ , ( ) 1 0 A D @ BT @ D P @ :T P , ( * Q @ < r A D A F A @ @ B @ D P
0x130940…18f440 [0x21b]: Pad {f00=0x0068, f01=0x0190, f02=» @ 0 n , ( Q 1 P A . 0 A 0 @ D @ F , ( @ @ @ T _ ] = ] ] r A > , ( ( D A F A @ P P @ . @ 0 n , ( UU + A B A D @ D @ F @ @ @ : @ B , ( U K @ < @ D @ : Q @ < Q _ , ( ID k
0x130940…18f440 [0x21c]: Pad {f00=0x0068, f01=0x0190, f02=» 9 VOLUME NAME FILE EXT , ( .NO EXTENT BASE EXTENT LENGT . ( H A ^ ( + | $ K DELETED H D ! P P b P< W 5R ;Q KTH WT< oP uW Q H D !
0x130940…18f440 [0x21d]: Pad {f00=0x0068, f01=0x4182, f02=» L H D ! T T W W -T OPJ YT e 2 Rn W4 ~ T P H D ! X KP2 SP* YP P T T P T Q ? T P T !Q T H D ! ? P R SP oR Q6 2 ; H D ! K Q T Z # ' /
0x130940…18f440 [0x21e]: Pad {f00=0x0068, f01=0x412c, f02=» > @ IDENT ADDMOD REL 10.0 80-03-14 870136641000 ADDMOD F ADDMOD X , ( [ S Q R S l , ( ! P W S _ R Q _ ;A A [ : , ( S Q" R S !P #W +S 1R
0x130940…18f440 [0x21f]: Pad {f00=0x0068, f01=0x4140, f02=» > @ IDENT DSUMOD REL 10.0 80-03-14 870136641000 DSUMOD F DSUMOD X , ( [ Q S W l , ( ! S Q R S P W S _ R " A _ ;A [ : 4 0 Q S W #S 'Q
0x130940…18f440 [0x220]: Pad {f00=0x0069, f01=0x0190, f02=» > @ IDENT CRVOL REL 10.0 80-03-14 870136641000 CRVOL QBLFAC TOSREL F QBLFAC f z K J , ( - * ( W NUMBER
0x130940…18f440 [0x221]: Pad {f00=0x0069, f01=0x0190, f02=» , ( SECTORS TOSS REL 10.0 , ( Z 4 , ( $ A D A D A D A d , ( D A [ : Z $ A D A , ( 7 D A D A D A [ , ( D W : Z $ A D
0x130940…18f440 [0x222]: Pad {f00=0x0069, f01=0x0190, f02=» : : , ( : < 2 C C ( $ , ( B & B .P " T T CRVOL , ( : A @ A @ A 2 & IPL811 IPL812 IPL813 * & 7 R ' P P X
0x130940…18f440 [0x223]: Pad {f00=0x0069, f01=0x0190, f02=» h IPL411 IPL412 IPL413 , ( [h 4 &[4 4 P X * , ( rS S E &q+ Z IPL111 IPL112 IPL113 , ( W R &? &@ X IPL121 IPL122 IPL123 * &
0x130940…18f440 [0x224]: Pad {f00=0x0069, f01=0x0190, f02=» " $ &? &@ ~ IPL211 IPL212 IPL213 , ( / W R X & ( * @ IPL221 IPL222 IPL223 p , ( @ I * L L P X , . 0 IPL231 IPL232 IPL233 , ( c 1g 1h P X
0x130940…18f440 [0x225]: Pad {f00=0x0069, f01=0x0190, f02=» B t , ( " P C C VOLNAM D , ( ( C 8 < V , ( 2 C I I " C ( , ( ; ( C W B 9 , ( [ R ! T :
0x130940…18f440 [0x226]: Pad {f00=0x0069, f01=0x018e, f02=»' P ( v , ( C ( B R % R E R , ( E B N % Z F , ( R R E ( ( ( v , ( UU 9 A V A X A , A J A J , ( T Y A A 2 , ( J!
0x130940…18f440 [0x227]: Pad {f00=0x0069, f01=0x0190, f02=» f , ( T B & B P , ( T @ J ) I 8 , ( * A J @ @ U Y h , ( $ 9 A @ Y A @_ A , ( H Y A @_ A @ A 2 , ( @ y .
0x130940…18f440 [0x228]: Pad {f00=0x0069, f01=0x0190, f02=» P W T , ( T P W $ ( , ( ( Y P _2 W X , ( @ 9 T @ J A , ( Y @ T @ , ( y Q A 2 Q @ A 2
0x130940…18f440 [0x229]: Pad {f00=0x0069, f01=0x0190, f02=»P W T x , ( @ T P W , ( J $ Y P _2 H , ( 9 @ T @ U Q x , ( @ Y A @ Q A @W T P , ( H* y @ JV A , (
0x130940…18f440 [0x22a]: Pad {f00=0x0069, f01=0x0190, f02=» h , ( R D H R Q W ,^` - , ( @ $ M _> H ,^| - ( M 8 , ( @ 9 _ @ Q ,^ ( M H h , ( Y - _" @ JQ ,^ $ M D BIDACR , ( y - _" A u : , (
0x130940…18f440 [0x22b]: Pad {f00=0x0069, f01=0x0190, f02=» < 1 Q | , ( @ Q _* @ W @ , ( @ @ <Q 1 Q A @ L , ( 1 A @ 2 | , ( Q P T 0P 0 % % , ( A q @ Q _4 _ % ,
0x130940…18f440 [0x22c]: Pad {f00=0x0069, f01=0x0190, f02=» j , ( ( A @ A @ Q , ( U _ 2 % 2 : , ( - * % Y : 2 * j , ( M @ Q P * BA % DS % , ( m PO % T % 5 Y , ( 5
0x130940…18f440 [0x22d]: Pad {f00=0x0069, f01=0x0190, f02=» " T ` A 9A D 2 , ( @ R V 2 * , ( - U A ]D 2 2 Z , ( M @ % % , ( @ m Z ) % % Z @ % @ , ( @ % @ % ( %
0x130940…18f440 [0x22e]: Pad {f00=0x0069, f01=0x0190, f02=»T . : z H D ! @ S V P T EP KP o P W P P 1Wf WP@ H D ! yP W T P T ; T I T SW [R _T i q ^ H D ! P T Tv P& T 1U, P Wl P W H D ! T T P W(
0x130940…18f440 [0x22f]: Pad {f00=0x0069, f01=0x40c4, f02=» W W W W Qv QN Q* R R Q W EQ> gQ QT Q4 H D ! Q W Q UT YP( uQ T R Q U( UQ [Pl W T R J @ %V T @ P& T 1U, P Wl P W H D ! T T P W(
0x130940…18f440 [0x230]: Pad {f00=0x0069, f01=0x0190, f02=» > @ IDENT PRFILE REL 10.0 80-03-14 870136641000 @ < PRFILE RTN:01 RTN:02 RTN:03 RTN:04 STCKP PREC1 PREC2 F STCKP PREC1 PREC2 FMLEN PRFILE * PRTECB , (
0x130940…18f440 [0x231]: Pad {f00=0x0069, f01=0x0190, f02=»E , ( Q ( B T " T B PRINTK : , ( o@ $ ) L SPACE | FDFNR , ( 1FILE NAME: FMORD FMREC1 , ( @ B J A
0x130940…18f440 [0x232]: Pad {f00=0x0069, f01=0x4126, f02=» R C R r PRFIS , ( ! 9 C R C " CLORD R RTN:01 0 b RTN:02 4 v RTN:03 8 , ( ! ( : _ _ RTN:04 < ; _ _$ eT iT u
0x130940…18f440 [0x233]: Pad {f00=0x0069, f01=0x0190, f02=» > @ IDENT PRFIS REL 10.0 80-03-14 870136641000 PRFIS F PRFIS V RRORD h , ( % 6 x RTN:02 RTN:01 * & !@ ( B RTN:04
0x130940…18f440 [0x234]: Pad {f00=0x0069, f01=0x0190, f02=» l , ( q 2 FOLLOWING RECORDS ARE BEHI OUTTXK < , ( ND LAST RECORD NUMBER > V N PRTBUF ~ , ( NO DATA W N N , ( @ U P REC.NO: BININT BININ
0x130940…18f440 [0x235]: Pad {f00=0x0069, f01=0x40e2, f02=» X W t COMPCT bASC & * & C Y Y _( : 4 HEXASC b _ t < 8 WQ YRJ cU@ iT: V^ W^ U0 P W 'S AW b @ C.NO: BININT BININ
0x130940…18f440 [0x236]: Pad {f00=0x0069, f01=0x0190, f02=» > @ IDENT DMTEST REL 10.0 80-03-14 870136641000 DMTEST F DMTEST X FDLEN l , ( R A A 2 A A | RFORD FDRLEN , ( A ( D A RRWORD
0x130940…18f440 [0x237]: Pad {f00=0x0069, f01=0x0190, f02=»RDP p , ( s WRP PRP NOP EX V , ( : S [ : R A @ > , ( A @ 5 U ( B P n BIDACR , ( @ 2 , ( A R @ ^P_ A A
0x130940…18f440 [0x238]: Pad {f00=0x0069, f01=0x412e, f02=»ODE : / p , ( o 0 @ H D ! 4 y | z ! ) x 5 | 9 6 A I Q [PH eP> oP4 yP* ` H D !? P P 4 2 2 z x P" n X 2 D 2 2
0x130940…18f440 [0x239]: Pad {f00=0x0069, f01=0x0190, f02=» > @ IDENT UPDISC REL 10.0 80-03-14 870136641000 UPDISC F UPDISC X STACKP l UPPR ~ , ( " A , ( @T 2 I R A A A R , ( = Q A (
0x130940…18f440 [0x23a]: Pad {f00=0x0069, f01=0x0190, f02=» W A R V R V CHSCNO , , ( R C R C > , ( ( B & B .T & T R n , ( R 2 $ 1 P , ( Y ( B .T & T W " 7 W
0x130940…18f440 [0x23b]: Pad {f00=0x0069, f01=0x400e, f02=» @ R V R V CHSCNO , , ( R C R C > , ( ( B & B .T & T R n , ( R 2 $ 1 P , ( Y ( B .T & T W " 7 W
0x130940…18f440 [0x23c]: Pad {f00=0x0069, f01=0x0190, f02=» > @ IDENT PRDISC REL 10.0 80-03-14 870136641000 PRDISC F X , ( k 1VOLUME NAME: 0SECTOR x , ( NO: , ( ( B ' P , (
0x130940…18f440 [0x23d]: Pad {f00=0x0069, f01=0x0190, f02=» h BIDACR , ( + Y : 5 PRDISC N J UPPR ^ STACKP n , ( I Y : A 2 A R , ( E e A R A A R Q A , ( ( B A A
0x130940…18f440 [0x23e]: Pad {f00=0x0069, f01=0x0190, f02=» j R A R , ( P A ( W : BINAC P , ( U ! @ A @ @ ` , ( J ? A A ( ^ A , ( @ _ 2 5 Y , ( P 0 ! R
0x130940…18f440 [0x23f]: Pad {f00=0x0069, f01=0x0190, f02=» A W _ @ 5 Y , ( Q" _N j CHSCNO P , ( $ A & A A b , ( = A A ( B " , ( ] 2 @ P P @ } .P _ :
0x130940…18f440 [0x240]: Pad {f00=0x006a, f01=0x4024, f02=»P P ^ @ _N j CHSCNO P , ( $ A & A A b , ( = A A ( B " , ( ] 2 @ P P @ } .P _ :
0x130940…18f440 [0x241]: Pad {f00=0x006a, f01=0x0190, f02=» > @ IDENT RINDEX REL 10.0 80-03-14 870136641000 RINDEX F + X 9 j , ( K | , ( k 0NUMBER OF MASTER INDEX ENTRIES , ( : 0NUMBER OF INDEX RECORD ,
0x130940…18f440 [0x242]: Pad {f00=0x006a, f01=0x0190, f02=» R A A 7 A R FMRLEN , ( D @ A ) D @ 2 FMBLF b , ( ) d A X A J A Z D # A r , ( @ G V A : ( @ X D FMSIZE , ( eA D # A D A ^
0x130940…18f440 [0x243]: Pad {f00=0x006a, f01=0x0190, f02=» A ` @ & A b t , ( T( A L @ T @ RZZ @ P @ NZh * & " _n A P A T : D D , ( R A d A A A r FMREC1 FMREC2 , ( =" D T D T : ( @ * @ Z , ( @T Y `
0x130940…18f440 [0x244]: Pad {f00=0x006a, f01=0x0190, f02=» h , ( P A 4 j ' W W , ( W W W W W W W W 8 CLORD h , ( " ( ( ( ( x RRORD , ( h : A S ( @ WRORD , ( " 3 P ; Z ;
0x130940…18f440 [0x245]: Pad {f00=0x006a, f01=0x0190, f02=»W 6( @ z , ( >" : B A @ B A B " A 7 , ( QP v | : @ @ * @ Z J RFORD z * & J @ fP R A P A T : FDLEN , ( C ( B FMLEN
0x130940…18f440 [0x246]: Pad {f00=0x006a, f01=0x0190, f02=» ! $ : $ ) x , ( @ ; : @ @ X ) : R , ( [ @ V dU _ A R @ V H DIVMOD x * & % { A f : @ @ ^ R ! R , ( D & P @ VV @ VW @ VY OK:SUB * & ( A N
0x130940…18f440 [0x247]: Pad {f00=0x006a, f01=0x4172, f02=» _ W W : H D ! + D 9 H : % - U : c { X h 6 H D ! 6 T L R %R = CT IT c 6 g R yP2 N P h H D ! P W& W$ W W W W W W W W )S 3P H D !0` _P {
0x130940…18f440 [0x248]: Pad {f00=0x006a, f01=0x0190, f02=» > @ IDENT SCANT REL 10.0 80-03-14 870136641000 SCANT F V COMPCT bASC HEXASC r , ( O AECSHN F B R P L O X , ( i R ! A R ! , ( Q A A A :
0x130940…18f440 [0x249]: Pad {f00=0x006a, f01=0x0190, f02=» L YB: @ J I " A JW OUTTXK , ( D @ A J P @ ? V *TM* @ 2 , ( ' ? V *NO DATA* @ ?BV b , ( @ E *BOT/EOT* @ P OUTXW PRTBUF , ( a RC: @ @ Z
0x130940…18f440 [0x24a]: Pad {f00=0x006a, f01=0x0190, f02=»CBI , ( A A R A ! Q SPACE < , ( A W A 2 A A L SCAN | COMTAB , ( ( @ Z 4Z , ( J A M M Y 4R , ( A P
0x130940…18f440 [0x24b]: Pad {f00=0x006a, f01=0x0190, f02=» i V _ A @ @ R , ( R @ @ @ P BLK.NO . OUTINT ^ OUTCHA p , ( : @ L . @ J * & P , SIZE: @ , ( @ T A Z :
0x130940…18f440 [0x24c]: Pad {f00=0x006a, f01=0x018e, f02=» R A p , ( H W @ R A W $ x $" P M NP , ( @ w ^ W Q R A W Q ; A @ " _4 : g : p H D ! k m o B q F s N u H w P4 P WL V W0 W& V W Pd H D ! V )V AV [P Q W R P
0x130940…18f440 [0x24d]: Pad {f00=0x006a, f01=0x401a, f02=» @ R A W $ x $" P M NP , ( @ w ^ W Q R A W Q ; A @ " _4 : g : p H D ! k m o B q F s N u H w P4 P WL V W0 W& V W Pd H D ! V )V AV [P Q W R P
0x130940…18f440 [0x24e]: Pad {f00=0x006a, f01=0x0190, f02=» > @ IDENT T:INP REL 10.0 80-03-14 870136641000 & " TPREAD TPWAIT NXVLIN INVOL1 F TPREAD p TPWAIT ERROR2 , ( V T ( W ( B ERROR7 , ( B > R > Z$W R & P
0x130940…18f440 [0x24f]: Pad {f00=0x006a, f01=0x0190, f02=» n INVOL1 NXVLIN " , ( w X > Z 01 W (W ( 6 COPIED f , ( W R W R " R x , ( MP W C C ( , ( B P ( B a R
0x130940…18f440 [0x250]: Pad {f00=0x006a, f01=0x0190, f02=»RROR6 , ( / " N V (T h : ! ERRORB > , ( K : W W W V & W & P , ( i 8# R @V `W . I ^ 0 , ( _6W R " P # D ! $P , ( # " C C ( B Y
0x130940…18f440 [0x251]: Pad {f00=0x006a, f01=0x0190, f02=» HD p , ( ) R LABEL CHECK: ERR +VOLUME + , ( I LABEL +IDENTIFIER LABEL RECORD @ i : ' p , ( ' ENTER COMMAND (GO/REMOUNT/AB , ( ORT): +FILE SECTION SEQUENCE , ( " * 64j$ * 64j$ 64j$
0x130940…18f440 [0x252]: Pad {f00=0x006a, f01=0x406c, f02=»T* 9T OW SW WW qR uV yW l WB P8 ~ P" $ : V@ h i : ' p , ( ' ENTER COMMAND (GO/REMOUNT/AB , ( ORT): +FILE SECTION SEQUENCE , ( " * 64j$ * 64j$ 64j$
0x130940…18f440 [0x253]: Pad {f00=0x006a, f01=0x0190, f02=» > @ IDENT COPYCF REL 10.0 80-03-14 870136641000 COPYCF F 3 X COPYCF l ( ( = 0NUMBER OF READ CARDS: , ( J( ] > 2 A A R A A $ R A RFORD FDLEN , ( P } 1 R
0x130940…18f440 [0x254]: Pad {f00=0x006a, f01=0x018e, f02=» 2 " D # # C ( FMREC2 , FMREC1 > FMRLEN P , ( # D T D T D PU b , ( 2 R D P A A A , ( < 2 P ( @ P WRORN , ( +
0x130940…18f440 [0x255]: Pad {f00=0x006a, f01=0x0190, f02=» , ( B ( "( @ *P ( , ( A <_ W W W W W W 4 CLORD d , ( " ( > : _ t , ( ( B " : F T WRORD , ( F 2 : P ( B
0x130940…18f440 [0x256]: Pad {f00=0x006a, f01=0x40bc, f02=» h _ P - : H D ! k 3 @ T T T U ` #P ' 7 ` YP ] kP o ` & 0 , @ P W W W W W W @ P r l @ F T WRORD , ( F 2 : P ( B
0x130940…18f440 [0x257]: Pad {f00=0x006a, f01=0x0190, f02=» > @ IDENT T:OUTP REL 10.0 80-03-14 870136641000 6 2 TOWRIT TOWAIT TOWEOF TOVOL1 ASC:CM ASC:IM F 1 00 00000000 TOWEOF " , ( # 9 $ R ! P A W , ( C
0x130940…18f440 [0x258]: Pad {f00=0x006a, f01=0x0190, f02=»1 FMFILE , ( $ ( b_* W FMCCD N , ( $ I ^ $ ! P ^ FMCRP , ( $ I ^ $ I COPIED , ( ^ W W
0x130940…18f440 [0x259]: Pad {f00=0x006a, f01=0x416a, f02=» C C p , ( [ ( B P ( B aT ERROR1 @ ASC:IM R , ( { R ! P J N : $# f ASC:CM , ( 9P : % : 0 % ^ : 0 % ^ : H D !j 1P 5 N = J ?W C N MW _
0x130940…18f440 [0x25a]: Pad {f00=0x006a, f01=0x0190, f02=» > @ IDENT COPYIT REL 10.0 80-03-14 870136641000 COPYIT F X v COPYIT @ , ( 9 2 A A R A , > SUB1 , ( Y A A <
0x130940…18f440 [0x25b]: Pad {f00=0x006a, f01=0x0190, f02=» l FDLEN , ( ( A : R A A + RFORD L FDRLEN , ( @ @ A 2 T T A A n FDFNR FMLEN FMORD * & . T $ A A A FMREC1
0x130940…18f440 [0x25c]: Pad {f00=0x006a, f01=0x0190, f02=» P , ( _ _ _& A , ( W ( T @ A A P , ( @ @ P T P , ( " T W @ <T : W W W W CLORD , ( W W
0x130940…18f440 [0x25d]: Pad {f00=0x006a, f01=0x0190, f02=» " r , ( 7 T _ : _@ 2 5 : , ( W T @ @ :Q @ <T A < p B , ( w P F W p r RWORD , ( _ A S P RDORD , ( @ _ A
0x130940…18f440 [0x25e]: Pad {f00=0x006a, f01=0x411a, f02=» ! s p T T T ) / 9 z =T M SP [ F _ c H D ! g m W T P T P T W" T W W W W W L H D ! u W !P 7T ? C YT: cQ0 iT wP W S ` PZ W P
0x130940…18f440 [0x25f]: Pad {f00=0x006a, f01=0x0190, f02=» > @ IDENT COPYTI REL 10.0 80-03-14 870136641000 COPYTI F FMLEN X , ( h COPYTI 8 , ( P / 2 A A " A SUB1 , ( O @
0x130940…18f440 [0x260]: Pad {f00=0x006b, f01=0x0190, f02=» p , ( @ B A ' FDLEN @ RFORD P FDRLEN ` , ( @ R A A 2 r FDFNR FMORD , ( @@ T A T A % A & FMREC1 FMR
0x130940…18f440 [0x261]: Pad {f00=0x006b, f01=0x0190, f02=» P T v RRORD * & W _ _( A S & , ( u W A A _ A 6_ ( T , ( $A @ 6P A 6 B @ 2Q R B @ 4 , ( U C @ 0# P @ , ( T T T W @ T :
0x130940…18f440 [0x262]: Pad {f00=0x006b, f01=0x0190, f02=» ( " : ( @ , ( " O Xj X @ R_F @ " , ( H o @ Y A _: @ T A r T R , ( J P h BW h l , ( @_ 2 P 5 : H D ! ] i w
0x130940…18f440 [0x263]: Pad {f00=0x006b, f01=0x4062, f02=» ! h B W W W W W W W T T P W P L@ ^ _: @ T A r T R , ( J P h BW h l , ( @_ 2 P 5 : H D ! ] i w
0x130940…18f440 [0x264]: Pad {f00=0x006b, f01=0x018e, f02=» > @ IDENT COPYFT REL 10.0 80-03-14 870136641000 COPYFT F COPYFT X , ( 8 : % 6 W l FDLEN RFORD , ( ! R W W ERROR2 FDRLEN
0x130940…18f440 [0x265]: Pad {f00=0x006b, f01=0x0190, f02=» , ( y MP W W J FMLEN 4 FMORD D , ( ' # B C ( C T TOVOL1 , ( R ' # R REORD , ( ( B T Y W R
0x130940…18f440 [0x266]: Pad {f00=0x006b, f01=0x0190, f02=» W U V R $ C , ( G R # MMT W ( TOWRIT X , ( g Q C W C W " j , ( V " _0 V Q , ( V R $ W V ] TOWEOF
0x130940…18f440 [0x267]: Pad {f00=0x006b, f01=0x4024, f02=»R W @ , ( G R # MMT W ( TOWRIT X , ( g Q C W C W " j , ( V " _0 V Q , ( V R $ W V ] TOWEOF
0x130940…18f440 [0x268]: Pad {f00=0x006b, f01=0x0190, f02=» > @ IDENT COPYTF REL 10.0 80-03-14 870136641000 F B COPYTF COPIED ERROR1 ERROR2 ERROR3 ERROR4 ERROR5 ERROR6 F . * ERROR7 ERROR8 ERROR9 ERRORA ERRORB COPYTF FDLEN , ( < > % 6
0x130940…18f440 [0x269]: Pad {f00=0x006b, f01=0x0190, f02=» h INVOL1 , ( [ R # Y W R !MMP , ( {@ ( W W V P W J , ( V P ( V V 5 z , ( Y W B W V Y , ( V P (
0x130940…18f440 [0x26a]: Pad {f00=0x006b, f01=0x0190, f02=»OR4 ERROR5 " ERROR6 & " ERROR7 * 6 ERROR8 . J ERROR9 2 ^ ERRORA 6 r , ( W W W W W W W W ERRORB : CLORD , ( 9 W W R ! T W
0x130940…18f440 [0x26b]: Pad {f00=0x006b, f01=0x0190, f02=»PWAIT , ( B ^ : : , ( _ P $ R # > , ( B Q P A C ( _ n , ( B A @ V Z" C : [ : H D ! * M uP y W W8 P W P
0x130940…18f440 [0x26c]: Pad {f00=0x006b, f01=0x4022, f02=» x @ : : , ( _ P $ R # > , ( B Q P A C ( _ n , ( B A @ V Z" C : [ : H D ! * M uP y W W8 P W P
0x130940…18f440 [0x26d]: Pad {f00=0x006b, f01=0x0190, f02=» > @ IDENT COMPCT REL 10.0 80-03-14 870136641000 COMPCT F COMPCT X bTAB l , ( A I * z OUTCHA PRTBUF * & T . P Y" OUTTXK
0x130940…18f440 [0x26e]: Pad {f00=0x006b, f01=0x4010, f02=» V @ T COMPCT REL 10.0 80-03-14 870136641000 COMPCT F COMPCT X bTAB l , ( A I * z OUTCHA PRTBUF * & T . P Y" OUTTXK
0x130940…18f440 [0x26f]: Pad {f00=0x006b, f01=0x0190, f02=» > @ IDENT PRINT REL 10.0 80-03-14 870136641000 H D ! PAGE PRINT SPACE PRTBUF SKIPIF PRTIF SKIPPdTAB BLANKS OUTTXT F F B OUTCHA OUTINT OUTINR BININT BININR OUTTXK PRINTK XDISPB * & XDISPW OUTHEX OUTXW MOVE PRTECB
0x130940…18f440 [0x270]: Pad {f00=0x006b, f01=0x0190, f02=» A W @ n A A , ( A A U ( @ & , ( a @ A A ( B ' V RTN:03 PAGE , ( P A : U SKIPP IDISPL , (
0x130940…18f440 [0x271]: Pad {f00=0x006b, f01=0x018e, f02=» OUTTXK OUTTXT , ( Z : : < , = = & MOVE V OUTCHA * h OUTHEX 4 | XDISPB : , ( $ - Y : - : , ( = " :d H - " H - :01234567 OUT
0x130940…18f440 [0x272]: Pad {f00=0x006b, f01=0x0190, f02=» , ( } - Y : @ nY : @ U PRTIF 4 OUTINT F , ( : @ A R ._ : Z OUTINR IDISPR BININT BINAC , ( A : : , (
0x130940…18f440 [0x273]: Pad {f00=0x006b, f01=0x0190, f02=»ECB " * & M : 1 < PAGE: . T H D ! > ' )W - 5 = A F E I KU O S r H D ! W " _ c g k $ o & s P . U ~ W H D
0x130940…18f440 [0x274]: Pad {f00=0x006b, f01=0x4014, f02=» @ M : 1 < PAGE: . T H D ! > ' )W - 5 = A F E I KU O S r H D ! W " _ c g k $ o & s P . U ~ W H D
0x130940…18f440 [0x275]: Pad {f00=0x006b, f01=0x0190, f02=» > @ IDENT ASC REL 10.0 80-03-14 870136641000 dASC F |ASC T PRTBUF d , ( ( * U Y _ v OUTCHA , ( : & P U ?V W _ OUTTXT * & = W
0x130940…18f440 [0x276]: Pad {f00=0x006b, f01=0x4038, f02=»P$ /U 3V 7W ?W C L KW ~ j "@ 4641000 dASC F |ASC T PRTBUF d , ( ( * U Y _ v OUTCHA , ( : & P U ?V W _ OUTTXT * & = W
0x130940…18f440 [0x277]: Pad {f00=0x006b, f01=0x0190, f02=» > @ IDENT DIVMOD REL 10.0 80-03-14 870136641000 DIVMOD F DIVMOD X , ( P T P V l , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , ( a P R
0x130940…18f440 [0x278]: Pad {f00=0x006b, f01=0x405a, f02=» +UF /V 9Ud =Q4 ?P CP QR aP* cR oR qP x V 4 D@ V DIVMOD X , ( P T P V l , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , ( a P R
0x130940…18f440 [0x279]: Pad {f00=0x006b, f01=0x0190, f02=» > @ IDENT TCCODE REL 10.0 80-03-14 870136641000 ATOA ATOE F ATOA ATOE n , ( ! R ?U W W ! @R @R @ , ( ! R L # : : .<(+?& , ( A !$*); ??? &%->?
0x130940…18f440 [0x27a]: Pad {f00=0x006b, f01=0x4040, f02=» R U W W R R !R % n *@ < ATOA ATOE F ATOA ATOE n , ( ! R ?U W W ! @R @R @ , ( ! R L # : : .<(+?& , ( A !$*); ??? &%->?
0x130940…18f440 [0x27b]: Pad {f00=0x006b, f01=0x018e, f02=» > @ IDENT HEXPRT REL 10.0 80-03-14 870136641000 HEXASC F HEXASC X OUTINR l , ( @ A U " T ~ OUTCHA OUTHEX , ( D " T * * bTAB
0x130940…18f440 [0x27c]: Pad {f00=0x006b, f01=0x40aa, f02=» SPACE " q Yv : ATOA ATOE : P ( $ U< T )T ; ? c h @ OUTCHA OUTHEX , ( D " T * * bTAB
0x130940…18f440 [0x27d]: Pad {f00=0x006b, f01=0x0190, f02=» > @ IDENT OK:SUB REL 10.0 80-03-14 870136641000 OK:SUB VOLNAM F ` ( ( 0OK? 0OUTPUT VOLUME NAME: t , ( = C C R A " P A VOLNAM l , ( ] ( : : B 8 $
0x130940…18f440 [0x27e]: Pad {f00=0x006b, f01=0x4020, f02=»P @ REL 10.0 80-03-14 870136641000 OK:SUB VOLNAM F ` ( ( 0OK? 0OUTPUT VOLUME NAME: t , ( = C C R A " P A VOLNAM l , ( ] ( : : B 8 $
0x130940…18f440 [0x27f]: Pad {f00=0x006b, f01=0x4108, f02=» > @ IDENT CONPAR REL 10.0 80-03-14 870136641000 $ SYSPAR CONPAR $C SYSFNR dVBB F SYSPAR n CONPAR <C SYSFNR |VBB & " @ P
0x130940…18f440 [0x280]: Pad {f00=0x006c, f01=0x0190, f02=» > @ IDENT BIDACR REL 10.0 80-03-14 870136641000 BIDAC BIDACR F BIDAC ^ , ( R _ P 0 - : ; p , ( ! [ V - - ' , ( @ A d Z : BIDACR
0x130940…18f440 [0x281]: Pad {f00=0x006c, f01=0x4042, f02=» R P )V V W R T R ,@ > BIDAC BIDACR F BIDAC ^ , ( R _ P 0 - : ; p , ( ! [ V - - ' , ( @ A d Z : BIDACR
0x130940…18f440 [0x282]: Pad {f00=0x006c, f01=0x0190, f02=» > @ IDENT BINACR REL 10.0 80-03-14 870136641000 BINAC BINACR F DSUMOD ^ , ( R _ P 0 / p ADDMOD BINAC , , ( : ; [ [ [ , ( = [
0x130940…18f440 [0x283]: Pad {f00=0x006c, f01=0x40ee, f02=» : : BINACR $ , ( @ ; , : V 8 , ( *W R - _ 1 T R P - h _ : $ R P V W R T R @ , ( = [
0x130940…18f440 [0x284]: Pad {f00=0x006c, f01=0x0190, f02=» > @ IDENT IDISPL REL 10.0 80-03-14 870136641000 IDISPL IDISPR F IDISPL ` IDISPR t , ( W ; [ [ [ [ , ( ! A V W - A , ( A R X R X _ A P Q
0x130940…18f440 [0x285]: Pad {f00=0x006c, f01=0x4062, f02=» !J W % +V 1W 9 AR@ E IR M U WP YQ ]T m q uR L@ ^ IDISPL ` IDISPR t , ( W ; [ [ [ [ , ( ! A V W - A , ( A R X R X _ A P Q
0x130940…18f440 [0x286]: Pad {f00=0x006c, f01=0x0190, f02=» > @ IDENT SCAN REL 10.0 80-03-14 870136641000 , ( SCAN SCECBI SCECBO COMTAB STRTAB F COMTAB v STRTAB P SCECBI SCECBO , ( # +
0x130940…18f440 [0x287]: Pad {f00=0x006c, f01=0x0190, f02=» ,* . '/ ' P : D , ( (T a A W A A ( & , ( ) : A ( B P ! V , ( ( ` A % W @ , ( ( 7 P @ x A vW , ( W 0R U R U R I
0x130940…18f440 [0x288]: Pad {f00=0x006c, f01=0x0190, f02=» : P A , ( UJ v @ A x A P ( , ( "U R tP W X @ R X , ( W $P %P _ A , ( P 7 A P Q S X W tP W , ( W _. % < S S
0x130940…18f440 [0x289]: Pad {f00=0x006c, f01=0x0190, f02=» V _ ? x , ( Q <H P _ !.. , ( %@ T : W W H , ( W W W W W W L :kP x , ( 7 H H L :g" P L :c , ( W " H p 2 . | , (
0x130940…18f440 [0x28a]: Pad {f00=0x006c, f01=0x4130, f02=»U0 aR eU, kR. sW" ^ H D ! yP" W R P W W W P R P W W& P !P ?P AQ H D ! CS KW QP8 SW kS oS wS T W P V Vz P U VZ QH f H D ! ] T W W W W W #W 'W +W 1 5P 9 f = p E KP O z S [ Z
0x130940…18f440 [0x28b]: Pad {f00=0x006c, f01=0x417c, f02=» > @ IDENT MPYMOD REL 10.0 80-03-14 870136641000 MPYMOD F MPYMOD X , ( T P P V l , ( ! P V S ? V :!9 V , ( A @ P R W * & a
0x130940…18f440 [0x28c]: Pad {f00=0x006c, f01=0x0190, f02=» > @ IDENT COMPUT REL 10.0 80-03-14 870136641000 F B DUBADD DUBSUB DUBMUL DUBDIV DURADD DURSUB DURMUL DURDIV F J F " MURMOD DUBCMP DUBMOV DMOVI1 DMOVI2 DMOVIB SWMUL SWDIV FETCH1 FETCH2 SWTASK PRORD DUBCMP
0x130940…18f440 [0x28d]: Pad {f00=0x006c, f01=0x018e, f02=» V DMOVI1 Z BXJ , ( A _ ( % ( % : W , DMOVI2 p , ( a@ @ $ P W @ ( p MURMOD MPYMOD DUBADD DUBSUB DUBMUL , ( }
0x130940…18f440 [0x28e]: Pad {f00=0x006c, f01=0x0190, f02=» ADDMOD , ( W W W W W W DSUMOD J , ( D W W [ , ( Z W [ DIVMOD , ( [ Z [ , (
0x130940…18f440 [0x28f]: Pad {f00=0x006c, f01=0x0190, f02=» SWMUL SAVEA1 * & g Z [ [ : A " SAVEA2 P SAVEA4 b SAVEA5 t SAVEA6 SAVEA7 * & H A A A A A , ( P [
0x130940…18f440 [0x290]: Pad {f00=0x006c, f01=0x0190, f02=» @ @ FETCH2 * FETCH1 > , ( @ @ @ @ : W R SWTASK 2 , ( Z [ < : ; @ PRORD B 7 P ( : : H D ! ( P R
0x130940…18f440 [0x291]: Pad {f00=0x006c, f01=0x403c, f02=» 2 P W2 2 W 7 B 9P D &@ 8 FETCH1 > , ( @ @ @ @ : W R SWTASK 2 , ( Z [ < : ; @ PRORD B 7 P ( : : H D ! ( P R
0x130940…18f440 [0x292]: Pad {f00=0x006c, f01=0x018e, f02=» > @ IDENT SORTF REL 10.0 80-03-14 870136641000 F B SORTFDXJ COPMOV MOVE1 SAVEA1 SAVEA2 SAVEA4 SAVEA5 SAVEA6 F SAVEA7 SAVEA8 ( $ , ( S S
0x130940…18f440 [0x293]: Pad {f00=0x006c, f01=0x018e, f02=» , ( s , ( 4 , ( d XJ * & , ( , (
0x130940…18f440 [0x294]: Pad {f00=0x006c, f01=0x0190, f02=» , ( $ y TNR S $ M r LPP ( LDP , ( I * DMP NPP 2 NL IL IP , 4 , ( $ LPM 4 LDM 6 DMM NM > BI B d , ( I IM 8 NP UTILITY SORT , ( F. NUMBER OF PASSES IN MERGE PH , ( ASE = PARA
0x130940…18f440 [0x295]: Pad {f00=0x006c, f01=0x0190, f02=»SORT ENDED NUMBER OF RECORD , ( S: * H R ( $ SORTF T , ( A ^ 4 ( : f , ( R A G R A + , ( "* A R A 9 R A A , A : FMORG S
0x130940…18f440 [0x296]: Pad {f00=0x006c, f01=0x0190, f02=» 5 # A D A D A D * & O A * D , , ( k ! D # A D Z , ( P A 8 D ! , ( D # A R D A D , ( DD A D A D A D
0x130940…18f440 [0x297]: Pad {f00=0x006c, f01=0x0190, f02=»CMP * & D 9A A r R ! A R A DUBMOV : , ( 0 9 T R T @ L , ( U V A 9 V A @ R | , ( u T A 9 V A @ P R " , ( @ T A @ @ P T ,
0x130940…18f440 [0x298]: Pad {f00=0x006c, f01=0x0190, f02=» @ nP A | , ( B W @ @ @ Q @ SWDIV L , ( - Q @ , ( P I P _ A @ P @ @ Q @ , ( i P _ A OK:SUB , (
0x130940…18f440 [0x299]: Pad {f00=0x006c, f01=0x0190, f02=»$E @ P @ 2 @ A A 4 , ( UU A 6 A 8 A : A < A > A A A . , ( %@ $ P : A ^ , ( C b @ , ( * _ D A p @ @ J A R @ V A , ( B T @
0x130940…18f440 [0x29a]: Pad {f00=0x006c, f01=0x0190, f02=» P < / ~ , ( " ` $ @ , T W % , ( _4 @ hX : A v A N , ( P = @ 2 A A ` @ A x : ~ , ( ] V X @ K O A v @ , ( } v9 R V @ @
0x130940…18f440 [0x29b]: Pad {f00=0x006c, f01=0x0190, f02=» l DUBMUL * & 9! A DUBADD L DMOVI1 ^ * & 1 p * & 0 % U , ( 0 ? B ]V , ( Y @ D
0x130940…18f440 [0x29c]: Pad {f00=0x006c, f01=0x0190, f02=» p @ n , ( $B T @ p A p A P , ( T > , ( " @ # @ " @ $ n DMOVI2 * & P _T " " , ( 0 / T #_& @ lX0 @
0x130940…18f440 [0x29d]: Pad {f00=0x006c, f01=0x0190, f02=» " ~ , ( 1 $ U , ( F ]X : L , ( A b * @ T A R | , ( t U , ( @ ,
0x130940…18f440 [0x29e]: Pad {f00=0x006c, f01=0x0190, f02=» l , ( B : * R , ( @ T P < , ( @ B @ @ d @ U @ l RDORD , ( ? V ? = T & , ( B $ _X ,
0x130940…18f440 [0x29f]: Pad {f00=0x006c, f01=0x0190, f02=» l RWORD , ( c ( , ( }! & L , ( h A $ _b $ @ D $ | FDLEN RFORD * & T D T * C FDFNR
0x130940…18f440 [0x2a0]: Pad {f00=0x006d, f01=0x0190, f02=» 4 j FMCL * & ( B @ E @ E , ( 6( @ @ E @ E : @ H , ( ; & @ P x , ( [ | @ G : . @ , ( { P : @ v Z F , (
0x130940…18f440 [0x2a1]: Pad {f00=0x006d, f01=0x0190, f02=» _F @ P @ P @ z , ( P G : W C L C N , ( IA C P @ R @ C R C T J , ( T) 5 C V B N @ C X C Z : L z , ( ( S W l $ ) : (W SWMUL , ( RU s 4 @ ^ : @ @
0x130940…18f440 [0x2a2]: Pad {f00=0x006d, f01=0x0190, f02=» A h @ J A ` z , ( B : A ` @ , ( ( rR ;B @ r @ A J DUBDIV z , ( + $ < $ 2 A P $ , ( P G @ @ P A <A A " : , ( A e A ` : @ T
0x130940…18f440 [0x2a3]: Pad {f00=0x006d, f01=0x0190, f02=» @ X. : 4 ! P :hP | , ( P W T _ , ( A A A R L , ( $V _ | , ( * 9 : @ r A @ @ : , ( B U A J d @ `T 9C;B W ,
0x130940…18f440 [0x2a4]: Pad {f00=0x006d, f01=0x0190, f02=» `P l , ( A D P : ^ , ( P ? A F A H 9B ;A @ D < , ( H @ `T @ J;BW ;C:A A @ @ r l , ( R ) @ B @ @R @ @ A @ R @ V A , ( I : A _ @ `P , ( i :
0x130940…18f440 [0x2a5]: Pad {f00=0x006d, f01=0x0190, f02=» A @ @ A @ 9A A x @ D : , ( BB @ A : @ P @ @ A , , ( A @ D9B A @ D @ x , ( '@ : @ A @ @ A : , ( R E @ D @ H>A @ a @ F;B @ , ( e P ;a %_ :
0x130940…18f440 [0x2a6]: Pad {f00=0x006d, f01=0x0190, f02=» 9A P _ | , ( >a : @ @ H 9A ; R , ( P =a _ : [ [ L , ( @ % @ $ :a P P | , ( T E @ `Q , ( e Q W * Z Z : _ ,
0x130940…18f440 [0x2a7]: Pad {f00=0x006d, f01=0x0190, f02=» : @ l , ( D_ (W 4 @ z : @ x , ( :a : @ : R N A A < , ( 0c # $ l , ( Q = @ A t : T T A , ( F [ A : , ( w B R N
0x130940…18f440 [0x2a8]: Pad {f00=0x006d, f01=0x0190, f02=» T T A * & A : A l A j , , ( 1 $ @ l Z , ( F @ A Q R A , ( ; B h A j $ , ( 2 U
0x130940…18f440 [0x2a9]: Pad {f00=0x006d, f01=0x0190, f02=» @ jP Q z , ( U _ RP f @ A @ , ( F* A @ A @ A J , ( Q A f x Q z z , ( @ # P T @ zP , ( C@ : _8 Y Z @ lY v , (
0x130940…18f440 [0x2aa]: Pad {f00=0x006d, f01=0x0190, f02=» @ j , ( @ ) A @ nP @ bT , ( B @ @ d W @ nP : , ( H W @ `Q @ @ A $W @ j , ( T @ C W @ R A Z R C , ( ? C @ C @ Z A R : , ( B _ @ `Q
0x130940…18f440 [0x2ab]: Pad {f00=0x006d, f01=0x0190, f02=»P P T @ zT @ P RT , ( @ D W (W RT W ( , ( @ ( @ A : W X , ( " @ C @ C ( B #T ERPROT RRWORD , ( ) B >P (T @_4 ,
0x130940…18f440 [0x2ac]: Pad {f00=0x006d, f01=0x0190, f02=» l , ( P @ @ C C ( ^: : , ( W W W W W W W W < , ( ( W W : _ l , ( H , * C ( B B , ( @ . A A 0 ( FMLEN ,
0x130940…18f440 [0x2ad]: Pad {f00=0x006d, f01=0x0190, f02=» l , ( P U P _ A A P , ( H $ E _ @ a @ ZT : < SWTASK l , ( [ [ @ ^ @ * @ P ~ , ( @ @ D $ $ @ Q $ T , ( Y$ Z Z : @ dZ _ ,
0x130940…18f440 [0x2ae]: Pad {f00=0x006d, f01=0x0190, f02=» n , ( @ ZX : ( MOVE1 > , ( - Y : D R $ - P COPMOV , ( _ : D R % _ : D R $T _ : , ( * ELAPSED TIME :
0x130940…18f440 [0x2af]: Pad {f00=0x006d, f01=0x0190, f02=» j " m : : , ( P A o T A } T A ~ T 4 0 , ( P R ( W ( H 8 n ` , ( ( _D : V 8 : H D ! % 1 _ g s P P U H
0x130940…18f440 [0x2b0]: Pad {f00=0x006d, f01=0x0190, f02=» < P X H D ! . Z P -P 1 5 d H D ! 9 r ? K o P D P T R0 P T b P0 ` H D !>5 T W % N 1 5 r W R T U +U _ x P> t H D ! T
0x130940…18f440 [0x2b1]: Pad {f00=0x006d, f01=0x0190, f02=» ! U V T P GPX W u } Tr Tl 7 8 H D ! d 6 6 E O UP _ k w }P , W P , P P L H D ! Y , W !R SW qW P R : =P UP m : H D ! q t P P P W T
0x130940…18f440 [0x2b2]: Pad {f00=0x006d, f01=0x0190, f02=» P P P P R P =P> CP& | H D !Ht QQ Y eQ iW P P P W + i P, +Q 5R 8 H D ! iQ R W" T P Q P@ d Q % d )P$ /T 7P K ^ oP H D ! L w P ^ Q T` Q: P. T W P r
0x130940…18f440 [0x2b3]: Pad {f00=0x006d, f01=0x410a, f02=» A r GPp IWr QV U r [Tl aPn h H D ! cWd kV yP: W, W( W" W W W W W W W D 8 # 7 ! $ H D ! F - 6 ePb kP U P P P Q ( T -Q /R i R ! p 4 0 R R T ?R q z P& R W V ! ! @ !
0x130940…18f440 [0x2b4]: Pad {f00=0x006d, f01=0x0190, f02=» > @ IDENT SRTAID REL 10.0 80-03-14 870136641000 SRTAID F SRTAID X , ( N P l , ( ! A _" , ( A A A ( @ , ( a Z( @
0x130940…18f440 [0x2b5]: Pad {f00=0x006d, f01=0x0190, f02=» n , ( A A ( @ Z @ , ( x @ X @ ) Z > MOVE1 n , ( U _ ~ , ( R "% 0Z U Z Y <D , ( H = _, P + < + <
0x130940…18f440 [0x2b6]: Pad {f00=0x006d, f01=0x0190, f02=» n DUBMOV , ( J ` @ `! A ` d DUBADD P , ( 1 V X B @ M b RWORD , ( - @ ^ M M @ C ERPROT , ( " @ ^ C ( B P
0x130940…18f440 [0x2b7]: Pad {f00=0x006d, f01=0x018e, f02=» ` t ( B FMORD $ CLORD 4 , ( g A ( @ n @ p D FMOP t FMREC1 , ( d( ( ] FMREC2 FMCL , ( ] ( < B
0x130940…18f440 [0x2b8]: Pad {f00=0x006d, f01=0x0190, f02=» FDFILE , ( @ " E ^ $ E ^ , ( @ & ( = J , ( 1 $ ( = z BASWR DELWR FDOPT , ( O B A ( * E ,
0x130940…18f440 [0x2b9]: Pad {f00=0x006d, f01=0x0190, f02=» P A z SORTF , ( @ < 0 * , ( @ < A A Z , ( < , ( # Q W : T , ( A ":HW " 9l Q 0W 7
0x130940…18f440 [0x2ba]: Pad {f00=0x006d, f01=0x0190, f02=» * * ( $ 0SORT-AID REL 10.0 = + B * ( - + ? ERROR: A1= A2= T " ASG-ERR A7= CONPAR , ( @ 0 2DD FP P , (
0x130940…18f440 [0x2bb]: Pad {f00=0x006d, f01=0x0190, f02=» h bVBB * & { V8 6 V7 6 V6 , ( 6 V5 6 V4 6 V3 6 V2 D , ( 6 V1 6 SO WL NB t , ( I$ N1 N2 RL SR SK KA "C SYSFNR , ( KL C 8
0x130940…18f440 [0x2bc]: Pad {f00=0x006d, f01=0x0190, f02=» M R H D ! S Y a g iP m s f y z { } | H D ! f U R& +U Z H D ! IP g $ f +P 1T ATn IRf H D ! [ b c k q s p p
0x130940…18f440 [0x2bd]: Pad {f00=0x006d, f01=0x40b8, f02=»P" 6 f 6 6 H D ! f %Q ) 6 -W ?T EW QQ UW i m q } F $ Mt @ +P 1T ATn IRf H D ! [ b c k q s p p
0x130940…18f440 [0x2be]: Pad {f00=0x006d, f01=0x0190, f02=» > @ IDENT DK3IPL REL 10.0 80-03-14 870136641000 6 2 IPL131 IPL132 IPL133 IPL231 IPL232 IPL233 F IPL131 IPL231 IPL132 IPL232 IPL133 IPL233 , (
0x130940…18f440 [0x2bf]: Pad {f00=0x006d, f01=0x0190, f02=» j , ( , ) , ( 0 R _ <d?d U : , ( ! ?e R P S ?C/ G O j , ( A % R ' P % =B S t w E , ( a M % t R Q @ , (
0x130940…18f440 [0x2c0]: Pad {f00=0x006e, f01=0x0190, f02=» . N 0 , ( N S W * , ( ! P X _ R R <"( R Z QBLFAC * ( A J , ( _ P #P & B. , ( T P
0x130940…18f440 [0x2c1]: Pad {f00=0x006e, f01=0x4092, f02=» H D ! R U ' )P - E IP S oR. qQ& Q T T ( $ R 4 W -P _P gP T P |@ C * ( A J , ( _ P #P & B. , ( T P
0x130940…18f440 [0x2c2]: Pad {f00=0x006e, f01=0x0190, f02=» > @ IDENT FLDIPL REL 10.0 80-03-14 870136641000 IPL811 IPL812 IPL813 F IPL811 h IPL812 | IPL813 , ( t v @0 UU , ( ! 3 2P _ , ) , ( A
0x130940…18f440 [0x2c3]: Pad {f00=0x006e, f01=0x018e, f02=» , ( M % T S , ( . N 0 N 4 , ( S W d , ( P X _ R R " R R QBLFAC , ( ! & P , (
0x130940…18f440 [0x2c4]: Pad {f00=0x006e, f01=0x40ec, f02=» f , ( E M T 1 E _ M @ p : 8 H D ! F %P / 5 4 IT s } $ < T @ < T " N 8 4 " W " P < - " =P EP _T T @ P , (
0x130940…18f440 [0x2c5]: Pad {f00=0x006e, f01=0x0190, f02=» > @ IDENT MFDIPL REL 10.0 80-03-14 870136641000 IPL311 IPL312 IPL313 F IPL311 h IPL312 | IPL313 , ( "? UU 3 2P _ , ( ! , 5 T G. , ( A
0x130940…18f440 [0x2c6]: Pad {f00=0x006e, f01=0x018e, f02=» , ( . N 0 S , ( N S W 4 , ( P X _ R R d , ( "? R R h:B* S , ( ! R P S B J 4R 4 :B , ( A 4 R :
0x130940…18f440 [0x2c7]: Pad {f00=0x006e, f01=0x4128, f02=» f , ( P ( B. T P , ( ' " P : P S P S P 8 % `_" h H D ! 6 t P % 4 9T c ( m u y } ~ D @ & W P 'P 9R OV SV aR P P T
0x130940…18f440 [0x2c8]: Pad {f00=0x006e, f01=0x0190, f02=» > @ IDENT COPFIL REL 10.0 80-03-14 870136641000 COPFIL F , ( X , ( ! , ( D A A *S : A ( A *_ @ RDORD , ( a @ A ( @
0x130940…18f440 [0x2c9]: Pad {f00=0x006e, f01=0x0190, f02=» h , ( D A _( ( @ &' RWORD 8 , ( H" : A S ( @ ' H ERPROT x RRWORD , ( T @ P _" , ( D @ : A A _J , ( 3 2 -
0x130940…18f440 [0x2ca]: Pad {f00=0x006e, f01=0x0190, f02=»RORD , ( @ ' : ( B ' RFORD < FDLEN L , ( @ $ B : C COPFIL , ( @ ( B C C : , ( B 2 A A R A R A A , (
0x130940…18f440 [0x2cb]: Pad {f00=0x006e, f01=0x0190, f02=» FMORD * & I D A - A . A 0 FMORG > FMREC1 N FMREC2 ` * & a ,( D A : D r , ( P y A <T D 2 H * & @ H A - A . ,( H , ( @
0x130940…18f440 [0x2cc]: Pad {f00=0x006e, f01=0x0190, f02=» * p_ @_. 6 0 @ , ( % P ^ p_ ^ p . , ( * C _d ^ W @ ^ , ( c T T @ : R D _( A , ( " S _0 A A _> @ : ZF _L , ( T D p W W
0x130940…18f440 [0x2cd]: Pad {f00=0x006e, f01=0x0190, f02=» ] n , ( @ " ( R A R , ( ( W @ > A ] @ B > , ( 7H ] " ( : A B 0 n , ( ER S A > A A A A A A FMREAD , ( s A @ $( B
0x130940…18f440 [0x2ce]: Pad {f00=0x006e, f01=0x0190, f02=» @ p FMWRIT , ( T A @ @ A W @ @ A A " , ( &( B ' @ R , ( @ + @ A @ A A $( B " I ' H D ! A G ^ MS S S< T P ES G
0x130940…18f440 [0x2cf]: Pad {f00=0x006e, f01=0x4056, f02=» W W W W R W R %W X p @ W< ' X , ^ @@ R &( B ' @ R , ( @ + @ A @ A A $( B " I ' H D ! A G ^ MS S S< T P ES G
0x130940…18f440 [0x2d0]: Pad {f00=0x006e, f01=0x0190, f02=» > @ IDENT DMOFF REL 10.0 80-03-14 870136641000 J F " OPORD CLORD RSORD RFORD REORD RRORD WRORD RWORD RRWORD WRORN RDORD F J F " FDLEN FDRLEN FDORG FDFILE FDVOL FDOPT FDFNR FDSIZE FMLEN FMFILE J F " FMRLEN FMBLF FMORG FMREC1 FMREC2 F
0x130940…18f440 [0x2d1]: Pad {f00=0x006e, f01=0x018e, f02=»RD RSORD RFORD REORD 0 RRORD B WRORD T RWORD f RRWORD x WRORN RDORD FDLEN B FDRLEN FDORG FDFILE FDVOL
0x130940…18f440 [0x2d2]: Pad {f00=0x006e, f01=0x415a, f02=» FMORG FMREC1 : FMREC2 < * FMCCD F > FMCRP L P FMSIZE b FMORD v FMOP FMCL FMREAD FMWRIT BASWR DELWR ERFC
0x130940…18f440 [0x2d3]: Pad {f00=0x006e, f01=0x40fc, f02=» > @ IDENT MNMDOS REL 10.0 80-03-14 870136641000 MNMDOS MNMLEN MNMPOI F MNMDOS h MNMLEN | , ( DU1 DU2 DU3 DU4 MD1 MD2 FD1 FD2 MNMPOI ! " @ NMDOS P
0x130940…18f440 [0x2d4]: Pad {f00=0x006e, f01=0x4072, f02=» @ @ IDENT TEST2 REL 10.0 80-01-03 870136641000 H @ n
0x130940…18f440 [0x2d5]: Pad {f00=0x006e, f01=0x4072, f02=» @ @ IDENT TEST1 REL 10.0 80-01-03 870136641000 H @ nD p@ |$PCASE PEND P$PCASF PMES M FOLLOWED BY C PMES ONLY COMBINATION PMES WHICH IS NOT PMES ALLOWED
0x130940…18f440 [0x2d6]: Pad {f00=0x006e, f01=0x416c, f02=» > @ IDENT DUMEN2 REL 10.0 80-03-14 870136641000 F B IPL111 IPL112 IPL113 IPL211 IPL212 IPL213 IPL411 IPL412 F IPL413 IPL111 IPL112 IPL113 IPL211 IPL212 I
0x130940…18f440 [0x2d7]: Pad {f00=0x006e, f01=0x0190, f02=» > @ IDENT CCISUB REL 10.0 80-03-14 870136641000 D @ BLRLEN CDISC CPRDEV CFIORG CSPNAL CYESNO CASSFC CASOUT F D @ CINDEV COTDEV CLAB CPCONV CCCODE STLIFI LOCKFD UNLOAD F B CDISC2 CTRSEC CIBMRL CMTDK1 CMTDK2 CMTDK3 C
0x130940…18f440 [0x2d8]: Pad {f00=0x006e, f01=0x0190, f02=» j , ( LPOP 0XLS TK1 TK2 MT1 MT2 pqCS CDTYPE , 8 REBUF L , ( ! H @ !NNP !YY BINRES CDFORM J , ( ? P A : @ ! P P BLRLEN f CCPBOT , (
0x130940…18f440 [0x2d9]: Pad {f00=0x006e, f01=0x0190, f02=»DISC2 CDISCT , ( @H @ FDX H @ T H " CDISLE R FIRFC d , ( A T W t CDISCA , ( A : W @ FDX , ( $H H @ T H A
0x130940…18f440 [0x2da]: Pad {f00=0x006e, f01=0x0190, f02=» B , ( / W W S : @ , ( K $P W 9a D A : CFIORG j j CSPNAL ~ ~ , ( i : @ I P ^ W : R I STLIFI CYESNO , ( W : R !LLT
0x130940…18f440 [0x2db]: Pad {f00=0x006e, f01=0x0190, f02=» , ( X A (W A & A ( A " A $W CASIXF 8 CASOUT L , ( R A $ A (W A " A (W A ( A " A $ ` PBLK2 MIXLST , ( @@ A & @ $P W @ IXLIST WKLIST A
0x130940…18f440 [0x2dc]: Pad {f00=0x006e, f01=0x0190, f02=»K , ( Q P P _ @ &T A , ( o A W @ $P A _ A _ : FMFPB j , ( @ @ " ] z * & ( = , ( " ( = , (
0x130940…18f440 [0x2dd]: Pad {f00=0x006e, f01=0x0190, f02=» B &( @ " LP FMREC1 ( FMCL : , ( 7 @ " ] ( ] ( *( A J , ( O @ @ &T A W A z CCIERR , ( i : P P , FMERR FDLEN
0x130940…18f440 [0x2de]: Pad {f00=0x006e, f01=0x0190, f02=» FDVOL , ( ( = 2 6 , ( @ ( = P > FDSIZE n , ( DP P P _& 8_, @ FDOPT BASWR , ( " *T @ *T 2 B : * & )H
0x130940…18f440 [0x2df]: Pad {f00=0x006e, f01=0x0190, f02=» A 2 A ~ , ( s @( B T : ! P RSORD L ERFC , ( @ ,' P B( @ l CLORD , ( @ DP W F( CCASSE , ( Q 9A D HT
0x130940…18f440 [0x2e0]: Pad {f00=0x006f, f01=0x0190, f02=»T @ $T "] : | CMTDK1 J , ( A @ DKT A 0 CMTDK2 ^ ` , ( ] : @ DKP W A t CMTDK3 z CMTDK4 , ( y : @ DKX. W S DK , ( V A
0x130940…18f440 [0x2e1]: Pad {f00=0x006f, f01=0x0190, f02=» , ( " ! P !TTP "W , ( @ W E P 4 , ( H A W A : d , ( %H @ @ "P ^ W CLAB J , ( A C ;b : @ ! YT A I
0x130940…18f440 [0x2e2]: Pad {f00=0x006f, f01=0x0190, f02=»W : @ R I : W , ( @ ! P !P T A : " UNLOAD R WRINER f READAN x , ( [ : W A & W P , ( @ R_ A &W < @ # ( , ( B # T W IBM LABEL;TO
0x130940…18f440 [0x2e3]: Pad {f00=0x006f, f01=0x0190, f02=» I R P $ T W T # P WRITT . , ( i :' P P W T > CTRSEC n , ( _ Z rQ , 0 NUMBER CTR:30 , ( Z %U : ,! 9D ,"
0x130940…18f440 [0x2e4]: Pad {f00=0x006f, f01=0x0190, f02=» ^ 00 R _ a UPD:A4 2 . , ( V ]| (Y : B UPD:A9 6 r UPDA9B : FCCARD B CWAA J CCIBUF CWAL P CCIBFL , ( 5 : : _
0x130940…18f440 [0x2e5]: Pad {f00=0x006f, f01=0x0190, f02=» h , ( < ) 2 6 , ( < ) P P P 8 * & P _& 8_, : &P T h , ( $ T @ A W , ( H @ T @ A * & $ W @
0x130940…18f440 [0x2e6]: Pad {f00=0x006f, f01=0x0190, f02=» W T H D ! T T W P P #P )T /W 3W MP WWj uP {WF R W6 H D ! T T T W* W$ W W P W P #W )P 3W =W H D ! UP ]P gT q = sW yP P P P P = < > ! l 3P H D ! K = O S = YT _
0x130940…18f440 [0x2e7]: Pad {f00=0x006f, f01=0x417e, f02=» Q T -T 3T STj gP mWX W6 P W P P $ W0 $ H D !T W& $ P r W l 1P ?Wp UT aP cWL qW {W }W2 R& W H H D ! P P T W W W< Tl W W EP KR MP QT UW [T _P H D ! oP uP {W Q0 U R OW g
0x130940…18f440 [0x2e8]: Pad {f00=0x006f, f01=0x0190, f02=» > @ IDENT SECNO REL 10.0 80-03-14 870136641000 " STACKP SECNO CHSCNO UPPR F STACKP l UPPR SECNO , ( 2 D TOT 0 $' $& P , ( ! P P P P W P , ( A
0x130940…18f440 [0x2e9]: Pad {f00=0x006f, f01=0x018e, f02=» , ( W &? W J W CHSCNO 4 , ( 1g W L W : H , ( R Q R @ T R Q R x : : H D ! TN PL %P +P 1P, 7PB 9W$ ?PH EPP KPX QP` WPh ]Pp i kWp w
0x130940…18f440 [0x2ea]: Pad {f00=0x006f, f01=0x4008, f02=»@ W &? W J W CHSCNO 4 , ( 1g W L W : H , ( R Q R @ T R Q R x : : H D ! TN PL %P +P 1P, 7PB 9W$ ?PH EPP KPX QP` WPh ]Pp i kWp w
0x130940…18f440 [0x2eb]: Pad {f00=0x006f, f01=0x0190, f02=» > @ IDENT DK2IPL REL 10.0 80-03-14 870136641000 6 2 IPL121 IPL122 IPL123 IPL221 IPL222 IPL223 F IPL121 IPL221 IPL122 IPL222 IPL123 IPL223 , ( %?
0x130940…18f440 [0x2ec]: Pad {f00=0x006f, f01=0x0190, f02=» , ) ?e , ( =e Q P ?e R ( , ( P S ?C/ G O % R X , ( ' P % =B S t w E M , ( % n : T G.G K. A ;A; , ( G. x ]
0x130940…18f440 [0x2ed]: Pad {f00=0x006f, f01=0x0190, f02=» P X _ R z R x QBLFAC , ( 6"( R ~ | * , ( P #P & Z , ( B. T P ' " P : P S | P S ~ P " ^_" H D ! v : f ! 6 % b - ^ 1 ` 5 ; x
0x130940…18f440 [0x2ee]: Pad {f00=0x006f, f01=0x4010, f02=» @ x QBLFAC , ( 6"( R ~ | * , ( P #P & Z , ( B. T P ' " P : P S | P S ~ P " ^_" H D ! v : f ! 6 % b - ^ 1 ` 5 ; x
0x130940…18f440 [0x2ef]: Pad {f00=0x006f, f01=0x4172, f02=» > @ IDENT GETFC REL 10.0 80-03-14 870136641000 GETFC F GETFC V , ( ( 8 ) 9 DUFDMD [ h , ( ! ; @ H -P Z : : , ( @ A H M :B L # ;A H , ( a @ P 0
0x130940…18f440 [0x2f0]: Pad {f00=0x006f, f01=0x0190, f02=» > @ IDENT CCITAB REL 10.0 80-05-09 870136641000 J F " FLTAB CCCMT CCSCT CCCCT CCFCT CCLCT CCSQT CCPBOT CCFAT CCLTT CCEMT F F B CCASSE QCCHBC QCCDBC QCCFOR QCCLIM QCCSPE QCCOBB QCCOBW J F " QCCOAS QCCMNI QCTCCL QCTIEL CCTSTT C
0x130940…18f440 [0x2f1]: Pad {f00=0x006f, f01=0x0190, f02=» TOSS UTILITIES REL 10.0 DATE: 8 , ( ! 0-05-09 12NC=870136641000 ; 0CC * CCTCC < Z QCTCCL l CCTIE B QCTIEL CCCMT L , ( A : WHAT?? CRV CRF DLF PVC PD , ( a S UDS CDD CFF CFT CTF PRF
0x130940…18f440 [0x2f2]: Pad {f00=0x006f, f01=0x0190, f02=» *+ , ( W * , ( 8 Z , ( ! 8 # ! , ( A # " - D , ( a 6 87
0x130940…18f440 [0x2f3]: Pad {f00=0x006f, f01=0x0190, f02=» OTLIST , ( J KLMVQRSTO 8 ASLIST B WKLIST V MIXLST j IXLIST ~ FLTAB , ( NP B AI QCCHBC QCCDBC QCCFOR
0x130940…18f440 [0x2f4]: Pad {f00=0x006f, f01=0x0190, f02=» A A V! VAW!T T"V" , ( ! $, B A A A A A A AVAVA & , ( A T A A A A V!VAVA A V , ( a A E E AV!E A VAV! AV! , ( V!W! AW! A AT V/V/ CCFCT , ( T @
0x130940…18f440 [0x2f5]: Pad {f00=0x006f, f01=0x0190, f02=» , ( ! ( , ( A X CCLCT n , ( a MAXBLK , ( | ,
0x130940…18f440 [0x2f6]: Pad {f00=0x006f, f01=0x0190, f02=» l , ( c ! , ( ! < , ( ? ! l , ( ] d ! , ( { ! , ( @
0x130940…18f440 [0x2f7]: Pad {f00=0x006f, f01=0x018e, f02=» CSPNAL ! STLIFI " BLRLEN " " * & " 4 CFIORG " b CASSFC " t CYESNO " , ( " CINDEV " COTDEV " CLAB " , (
0x130940…18f440 [0x2f8]: Pad {f00=0x006f, f01=0x0190, f02=» CTRSEC # * & ) P # CIBMRL # D CASOUT # V CMTDK1 # h , ( = D " $ & # z UPD:A4 # CMTDK2 # UPD:A9 # CMTDK3 # CDTYPE # , ( Q
0x130940…18f440 [0x2f9]: Pad {f00=0x006f, f01=0x018e, f02=» 6 8 # | CMTDK4 $ CWAA $ , CWAL $ < UPDA9B $ L CDISCA $ ^ * & w : < > @ $ p CDFORM $ DTYP $ CCPBOT $ , ( B D ( . 1 2 7 $ , (
0x130940…18f440 [0x2fa]: Pad {f00=0x006f, f01=0x0190, f02=» $ f , ( * % CCFAT > % 8 CRVOL % J CRFILE % Z , ( # H F % l DLFILE % PRVTOC % PRDISC % UPDISC % COPVOL % COPFIL %
0x130940…18f440 [0x2fb]: Pad {f00=0x006f, f01=0x0190, f02=» UNLOAD % COPYIT & COPYTI & $ IBMLBL & 6 PRINDX & H , ( Q X Z ^ ` b d f & Z BINDEX & RINDEX & COPYCF & SORTF & CCLTT j & , ( a h j l n p
0x130940…18f440 [0x2fc]: Pad {f00=0x006f, f01=0x0190, f02=» & r , ( ' , ( ' B CCEMT ' r , ( ' , ( 7 ' , ( W
0x130940…18f440 [0x2fd]: Pad {f00=0x006f, f01=0x0190, f02=» ' t , ( ( , ( ( D , ( ( t , ( 7 ( CCASSE ( FMERR n ( , ( W
0x130940…18f440 [0x2fe]: Pad {f00=0x006f, f01=0x0190, f02=» NAME:; OLD RESP. NEW VOLUME NAM ( , ( ES:;FILE NAME:; NUMBER OF VTOC E ) * , ( NTRIES:;CREATION DATE:; RETENTIO ) Z , ( N PERIOD:;BLOCKING FACTOR:; EFFE ) , ( 7 CTIVE RECORD LENGTH:; MAXIMUM NU ) , ( W MBER OF RECORDS:; SECTOR
0x130940…18f440 [0x2ff]: Pad {f00=0x006f, f01=0x0190, f02=»***;PACK:;OUTPUT D ) z , ( EVICE:; LABELLED TAPE:; SEQ. NUM * , ( BER INPUT TAPE:;SEQ. NUMBER OUTP * J , ( UT TAPE:; BLOCK FACTOR INPUT TAP * z , ( 7 E:; BLOCK FACTOR OUTPUT TAPE:;TA * , ( W PE VOLUME ID:;RECORD LIMITS:; PR * , (
0x130940…18f440 [0x300]: Pad {f00=0x0070, f01=0x0190, f02=»SW * j , ( ITCH ON SOP:; MORE THAN ONE APPL + , ( ICATION :;DATA SET NAME:; BOE-SE + : , ( CTOR:;EOE-SECTOR:;EXPIRATION DAT + j , ( 7 E:; VOLUME INITIALIZATION:; SECT + , ( W OR OF DATA SET LABEL:;NUMBER OF + , ( w INDEX FI
0x130940…18f440 [0x301]: Pad {f00=0x0070, f01=0x0190, f02=» PE:;LOAD FACTOR:; INDEX FILE NAM + , ( E:; MASTER INDEX FILE NAME:;INPU , * , ( T DEVICE:;PTS 6876 DISC :;MAX NO , Z , ( 7 OF RECORDS ON OUTPUT INDEX FILE , , ( W :;SUB-KEY ADDRESSES IN RECORD:; , , ( w SUB-KEY LENGTHS IN RECOR
0x130940…18f440 [0x302]: Pad {f00=0x0070, f01=0x0190, f02=» DISC:; DISC VERSI , z , ( ON:;DISC NOT OPERABLE;BADSPOT ON - , ( TRACK ZERO.DISC NOT USABLE;MORE - J , ( 7 THAN 18 BADSPOTS.DISC NOT USABL - z , ( W E;DISC I/O ERROR.;PRINTER NOT OP - , ( w ERABLE; TOO MANY SECTORS IN FILE - , (
0x130940…18f440 [0x303]: Pad {f00=0x0070, f01=0x0190, f02=»EN - j , ( TRY AVAILABLE;FILE NAME ALREADY . , ( USED; NO TOSS DISC FORMAT;TAPE U . : , ( 7 NIT NOT OPERABLE; OUTPUT DISC NO . j , ( W T EMPTY;FAULTY RECORD LENGTH; OU . , ( w TPUT FILE NOT LARGE ENOUGH; OUTP . , ( UT FILE
0x130940…18f440 [0x304]: Pad {f00=0x0070, f01=0x0190, f02=» ; BLOCK FACTOR ON OUTPUT TOO L . , ( ARGE; TAPE MARK MISSING;TAPE MAR / * , ( 7 K MISSING AFTER LABEL RECORD; LA / Z , ( W BEL RECORD MISSING; UNEXPECTED T / , ( w APE MARK; LABEL RECORD ERROR; IL / , ( LEGAL BLOCK LENGTH ON IN
0x130940…18f440 [0x305]: Pad {f00=0x0070, f01=0x0190, f02=»FILE NAME UNKNOWN; / z , ( FLEX. DISC ALREADY LOCKED;FLEX. 0 , ( 7 DISC NOT LOCKED;FLEX. DISC WRITE 0 J , ( W PROTECTED; DATA SET NAME ALREAD 0 z , ( w Y USED; DATA SET NAME NOT FOUND; 0 , ( NO IBM DISC FORMAT; BLOCK SEQUEN 0 , (
0x130940…18f440 [0x306]: Pad {f00=0x0070, f01=0x0190, f02=»L 0 j , ( SECTOR NUMBER;CARD READER NOT OP 1 , ( 7 ERABLE; FILE ORG. ERROR;CORE ARE 1 : , ( W A TOO SMALL;RECORD NOT IN FILE-E 1 j , ( w ND OF MEDIUM; ILLEGAL POSITION N 1 , ( UMBER;NOT ALLOWED TO MIX DISCSIZ 1 , ( ES; NOT
0x130940…18f440 [0x307]: Pad {f00=0x0070, f01=0x0190, f02=» N FILE; ILLEGAL VOLUME/FILE NAME 1 7 ; 2 * H D ! M Z k m o q s u w y { } < T h x 2 < H D ! : T T d 2 H D ! t
0x130940…18f440 [0x308]: Pad {f00=0x0070, f01=0x0190, f02=» 2 2 l H D ! J ! T # f % p ' x ) + - / 1 3 5 7 9 ; = 3 ( H D ! ? A C E G 6 I F K M O 2 Q X S F U X W Y [ ] 3 t H D ! _ a c F e ~ g X i k m o F q s X u h w y { X } h 3 H
0x130940…18f440 [0x309]: Pad {f00=0x0070, f01=0x0190, f02=» 3 X H D ! t X h b X X 0 0 X ^ 4 H D ! t ~ X ^ t ~ F X b 4 ` H D ! F X h > ^ t 4 H D ! ! # % '
0x130940…18f440 [0x30a]: Pad {f00=0x0070, f01=0x402e, f02=» m w 4 8 5 @ 5 * X X 0 0 X ^ 4 H D ! t ~ X ^ t ~ F X b 4 ` H D ! F X h > ^ t 4 H D ! ! # % '
0x130940…18f440 [0x30b]: Pad {f00=0x0070, f01=0x0190, f02=» > @ IDENT COPVOL REL 10.0 80-05-09 870136641000 COPVOL F , ( X , ( ! , ( A , ( a
0x130940…18f440 [0x30c]: Pad {f00=0x0070, f01=0x0190, f02=» 0READ ERROR x & ( SECTOR NO: TO , ( FILE NAME: DE B ( ( ! STROYED RECORDS: TO r , ( A 0INPUT DISC 0OUTPUT DISC , ( a @ x | , ( @
0x130940…18f440 [0x30d]: Pad {f00=0x0070, f01=0x0190, f02=»)E ( A 8 @ tP @ 6 @ BY,R @ 8 @ D , ( ^8W @ 6 @ @ 8 @ V^J YB $ . , ( D ! ) Y : ) @ . ) @ 0 ) ^ , ( D A @ * ) @ , ) ) @ ) : , ( @$ a @ P<E H A 6 ( A 8 H , ( %E A 2 ( A 4 @ 6 @ B
0x130940…18f440 [0x30e]: Pad {f00=0x0070, f01=0x018e, f02=» J L ( ~ , ( @ ! @ J @ L , ( ! J > L @ A @ : A ` @ < A N DSUMOD ~ ADDMOD , ( A b @ B @ D @ Z , ( ]@ @ A ` A b @ VP A , ( T {
0x130940…18f440 [0x30f]: Pad {f00=0x0070, f01=0x018e, f02=» BINACR , ( 0 @ , ( T < @ > @ @ F , ( @ > @ @ @ V v , ( J +@ " , ( RP I ( 2 @ @ % , ( !
0x130940…18f440 [0x310]: Pad {f00=0x0070, f01=0x0190, f02=» f , ( B @ ( A J A LW @ J @ L @ , ( U Z A J A L & " ( $ 8 , ( ( 2 A A A A Z Z h , ( @ ! : : C ( , ( A B ' : _* , ( a 0
0x130940…18f440 [0x311]: Pad {f00=0x0070, f01=0x0190, f02=» A ( / : , ( J L ( ( , ( B B / : _> X , ( ( ! A 0 2 P , ( A *_ : A " ! R ( B , ( a R T T W " T
0x130940…18f440 [0x312]: Pad {f00=0x0070, f01=0x0190, f02=» A A x , ( @ @ P : B A P , ( P B _| B P A j B H , ( %* P R @ l @ n x , ( ? @ l @ n @ j , ( A$ [ " : F _R , (
0x130940…18f440 [0x313]: Pad {f00=0x0070, f01=0x0190, f02=» h VOLNAM , ( C R C , ( I I " C C C ( J , ( $ ( C W A ( z , ( 7 B ' : ( B , ( W ( C
0x130940…18f440 [0x314]: Pad {f00=0x0070, f01=0x0190, f02=» D 1 C ( B , , ( % Y 2 $ 2 , Y A * , ( @ v @ v Y Z , ( P A J A L 2 A < A l A , ( J ) 2 A A @ l A l A A * & T I l A n x @ J @ L @
0x130940…18f440 [0x315]: Pad {f00=0x0070, f01=0x0190, f02=» ( 2 A A R , ( ( A A R A a R A A R , , ( * A A A F 0 2 , ( , $ Y $ TO R , ( % % J X R , ( , ( D E Y ( TO $ A | (
0x130940…18f440 [0x316]: Pad {f00=0x0070, f01=0x0190, f02=» z @ P:H A X | * & @ A @ P<E J * , ( U Y A F A H | A @ x J , ( ) @ N ^ z , ( ! ! B $ T A $ A , ( A $ A $ A B $ A D $ A , (
0x130940…18f440 [0x317]: Pad {f00=0x0070, f01=0x0190, f02=»W j , ( J A ( , ( ! R : , ( _~ P _ j , ( U! ! A A d A h A r A f H ( @ B , ( B A @ D A B A D @ d @ f @ h @ , ( E _ r (
0x130940…18f440 [0x318]: Pad {f00=0x0070, f01=0x0190, f02=» A W A A A , ( U @ P A A 0 @ B * , ( U A : @ D A < @ F R @ H A Z , ( T f @ F @ H A F A H @ f A , ( ! = " $ , ( J" ] J L $ A
0x130940…18f440 [0x319]: Pad {f00=0x0070, f01=0x0190, f02=» A T A V @ T @ V @ T^ A , ( Z z A @ P<H A X , , ( P A H A 2 ( A 4 A f @ , ( R R @ 6 @ BQ R @ 8 @ DV ` A , ( ; f @ 2 A * @ 4 A , @ Z 2 J , ( [ 4 L @ T A
0x130940…18f440 [0x31a]: Pad {f00=0x0070, f01=0x0190, f02=» @ V A 2 A 4 @ | , ( ( 6 @ 8 @ V A 6 A 8 T , ( E! @ V @ @ @ V A L , ( T A @ " @ $ @ V A " A $ | , ( ( / T @ VR @ VP @ T A _ 2 A , ( O J L @ Z P @ ,
0x130940…18f440 [0x31b]: Pad {f00=0x0070, f01=0x0190, f02=» @ V l , ( @ A 6 A 8 Q @ VR @ f @ , ( 2 I @ 4 )W @ ) % < , ( J @ A " $ l , ( R ' _ @ " @ $ @ V , ( H G A " A $ @ @ @ V , ( TE c A @
0x130940…18f440 [0x31c]: Pad {f00=0x0070, f01=0x0190, f02=» A f H A 2 ( A 4 @ R @ , ( 6 @ BQ R @ 8 @ DV ` A f @ , , ( T z @ ~ P X , ( JH # @ @ , @ T % , ( UU C A J L L A . A 0 , ( IU c "T $P J
0x130940…18f440 [0x31d]: Pad {f00=0x0070, f01=0x0190, f02=» W W W t | , ( W W W t W t W W , ( W : @ l A p @ n A r @ L , ( Q # @ A A @ ?( @ p | , ( B C @ r A A @ ?( , ( a ( B P P B @ ,
0x130940…18f440 [0x31e]: Pad {f00=0x0070, f01=0x0190, f02=» A l A : H D ! l ^ T4 P X P R W m Q x sPJ R $ H D !"` W P & U U* W U uT P ?P WR* cR iT oT p H D !- qW uT } T P P P PZ PP P T T H D !
0x130940…18f440 [0x31f]: Pad {f00=0x0070, f01=0x410a, f02=» gPJ mP" T H D ! @ uQ W Q W: Q W P R T R 'Q )R 3V T H D ! R T 6 3T 9R ?P Q R W T P> R Q R V =T H D ! gT mP T P* W6 W W. W$ W W W W W W mP sP @
0x130940…18f440 [0x320]: Pad {f00=0x0071, f01=0x2008, f02=» d L = REL10.2,5 1 DATE = 800508 6875PACK NBR = 9999 f ?
0x130940…18f440 [0x321]: Pad {f00=0x0071, f01=0x0190, f02=»` " ` _ Yv _ : %%% : d@dR e " = @ A A PAGE 0OK? 0OUTPUT VOLUME NAME: e C C R Ae " P Ae ( : : B e $ ) Y e e e e Ae e ( `e YP $ : R _ P 0
0x130940…18f440 [0x322]: Pad {f00=0x0071, f01=0x0190, f02=» V *W R - _ 1 T R Pf - _ : RXR _ P 0 / R : ; [ [ [ [ B@ g g ' g g d g g g Z Z Z Z : : ; g g, : V
0x130940…18f440 [0x323]: Pad {f00=0x0071, f01=0x0190, f02=»h R Xh _ Ah P Q T Z& - _. Ah @h R - 0 - _F Z Z Z Z : :** d ' i Ah S : Ah Ah _ @h Ah @h Ah : h ( i. : B l^ lb : Ah S h
0x130940…18f440 [0x324]: Pad {f00=0x0071, f01=0x0190, f02=» @h lj : Ah Ah _J 2 - Y : Ah S W Ah Ah @h @h @h Q R @h @h U h C i. : h ( @h ' i. : h ( B ' i. B lj : B C ( B i. C C : h 2 Ah Ah R Ah R Ah Ah Ah
0x130940…18f440 [0x325]: Pad {f00=0x0071, f01=0x0190, f02=» 2 H H Ah Ah h ( H <T H : ln lr lf Ah Ah Ah Ah Ah PxW, iD @h : RX: R" jF @h @P i ir i _ i _. 6 i jF @h @P i ir i _ i ir i _d i ir i iJW iD @h T> T, @h : R h ir i _( Ah S _0 Ah Ah _> @
0x130940…18f440 [0x326]: Pad {f00=0x0071, f01=0x0190, f02=»( R Ah R h ( W @h Ah ] : @h ] < h ( : Ah 0 Ah Ah Ah Ah Ah Ah Ah Ah h ( i. h B B n h h @h @h Ah ( Ah @h lj h ( i. h B B ln @h Ah @h Ah W< @h Ah Ah h
0x130940…18f440 [0x327]: Pad {f00=0x0071, f01=0x0190, f02=» B > R > Z$W4 R & P2 nrW W ^f b 7P P ^j ) r n _Z [ : ( B X > Z ^N 01 W (W ( W ^F R W R " R MP W C C ( B P ( B a ^N R nrWL! ^Z 1 /TD R P D M T*
0x130940…18f440 [0x328]: Pad {f00=0x0071, f01=0x0190, f02=»P8 # Dp ! p $P" # p." C C ( B Y _& [ : R C * C C p C ( B Y B Y| o W GOX ABX n HDR LABEL CHECK: ERR +VOLUME +LABEL +IDENTIFIER LABEL RECORD: 'h B B ln @h Ah @h Ah W<' ENTER COMMAND (G
0x130940…18f440 [0x329]: Pad {f00=0x0071, f01=0x0190, f02=» B 00000000W 9 $ R ! P qR Aq qNW qR : W ( B r : ( :( B P 9 r 7 q( ( q qf_* q W $ Iq ^ K $ ! P $ Iq ^ N $ Iq ^ q r W W ^F 1 Aq ! $ Iq ^ q# r
0x130940…18f440 [0x32a]: Pad {f00=0x0071, f01=0x0190, f02=» : ^J $# 9P : % : 0 % ^ : 0 % ^ :Y _& [ : R C * C C p C ( B Y B Y| o W GOX ABX n HDR LABEL CHECK: ERR +VOLUME +LABEL +IDENTIFIER LABEL RECORD: 'h B B ln @h Ah @h Ah W<' ENTER COMMAND (G
0x130940…18f440 [0x32b]: Pad {f00=0x0071, f01=0x0190, f02=»2 ~ P RTN A14 P* P EJECT COPFIL $ P* < P* **************** F P* * ENTRY COPFIL * ` P* **************** z P* PCOPFIL EQU * & P ST A14,STACKP STORE STACKPOINTER " P LDR* A1,A12 GET BUF1 ADDRESS ( P ST A1,E
0x130940…18f440 [0x32c]: Pad {f00=0x0071, f01=0x0190, f02=»2+2 BUF2 ADDRESS TO ECB2 P* . P LD A3,QFC,A12 GET FILE CODES INPUT/OUTPUT * P ECR A2,A3 0 P SC A2,ECBIN+1 FILE CODE INPUT DISC TO ECBIN n 4 P SC A3,ECBOUT+1 FILE CODE OUTPUT DISC TO ECBOUT 0 P SC A3,ECB2+1 FILE CODE OUTPUT DISC TO ECB2
0x130940…18f440 [0x32d]: Pad {f00=0x0071, f01=0x0190, f02=»FF P ANKL A2,/FF P CWK A2,/A0 P ABL(L) L1 2 P CWK A3,/A0 D P ABL(L) RTN:06 TYPE ERROR X P ABL L2 OK,BOTH ARE S-FILES z PL1 EQU * P CWK A3,/A0 P ABL(NL) RTN:06 TYPE ERROR " P ABL COPYL OK,BOTH ARE L-FILES P
0x130940…18f440 [0x32e]: Pad {f00=0x0071, f01=0x0190, f02=»* P LDKL A8,ECBIN & P CF A14,VTOC READ VTOC INPUT DISC P* =4 START J ( P LD A10,FDRLEN,A1 RECORD LENGTH=A10 P* P LC A6,FDFNR,A1 FILENR P SC A6,ECBFM+1 IN FM ECB P ST A1,ECBFM+2 P LDKL A6,FMLEN P ST A6,ECBFM+4
0x130940…18f440 [0x32f]: Pad {f00=0x0071, f01=0x0190, f02=» P LD A6,FMREC1,A1 =4 P ST A6,FREC1 =4 & P LD A6,FMREC2,A1 LAST RECNR PART 2 8 P ST A6,FREC2 =4 b P RF(NZ) A006 z & P LD A6,FMREC1,A1 LAST RECNR PART 1 P* =4 END P* P EJECT COPFIL P* P* PA006 EQU *
0x130940…18f440 [0x330]: Pad {f00=0x0071, f01=0x0190, f02=»,FDRLEN,A2 RECORD LENGTH=A4 P LC A5,FDFNR,A2 FILE NR $ P SC A5,ECBFM+1 D P ST A2,ECBFM+2 Z P LDKL A7,FMORD p 2 P LDKL A8,ECBFM READ FILE PARM BLOCK OUTPUTFILE P LKM P DATA 15 P LD A5,FMREC2,A2 LRN PART 2 & P RF(NZ) A007 O
0x130940…18f440 [0x331]: Pad {f00=0x0071, f01=0x0190, f02=»CT COPFIL P* P* 2 P CC A11,FMORG,A2 COMPARE FILE ORGANIZATIONS =4 ( . P ABL(NE) RTN:06 JUMP TO ERROR IF NOT EQUAL ^ P* 2 P CWR A4,A10 COMPARE INPUT/OUTPUT RECORD LENGTH * P ABL(NE) RTN:03 FAULTY RECORD LENGTHS? P ST A4,ECBIN
0x130940…18f440 [0x332]: Pad {f00=0x0071, f01=0x0000, f02=»
0x130940…18f440 [0x333]: Pad {f00=0x0071, f01=0x0016, f02=»
0x130940…18f440 [0x334]: Pad {f00=0x0071, f01=0x0190, f02=» Or : 0 j 0 $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ ,* # + RC: | | 0 zP
0x130940…18f440 [0x335]: Pad {f00=0x0071, f01=0x0190, f02=»D OF ;PROGRAM ABORTED BY OPERATOR; T+} T* > R > V W C C ( B P 8_ B Z T $ B U [ B : $ !; P I , =Z I , * C C ( : [ ) $ Z : [ [ [ [ QxP~
0x130940…18f440 [0x336]: Pad {f00=0x0071, f01=0x0190, f02=» [ _ '0 Y R '0 Y$R '0 '8 Y6 _ [ [ Q. , 0R" 9U AR FQ 0 P =D _, [ Z Z : = ! U 9 - Y : [ [ [ [ [ [ [ RZ 0=A * T R !LLT T
0x130940…18f440 [0x337]: Pad {f00=0x0071, f01=0x0190, f02=» U+|ZN j T* >BV ,W,_d>AV* ^ P P~ >Px Pr PlW _ A n T* >FV :A H,0 @ nY H,2 @ nZ >AV - W _ _ @ n @ r >BV -Wp>AV -Wh>AVd B j RV _ @ r T T S S S S >T T S S S S @ p - - T.M A r B
0x130940…18f440 [0x338]: Pad {f00=0x0071, f01=0x0190, f02=»P X _ @ l I) :a A l ;a L* # A @ A B P A B TH 2 #( W0 @ BP 2 #( : d M ^ R _ )h W D_ * $ @ @P8 P2 R " R Q 2 #( @ @ T R A @_. @ l / D
0x130940…18f440 [0x339]: Pad {f00=0x0071, f01=0x0190, f02=» A ~ H) A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R _ @ r T T S S S S >T T S S S S @ p - - T A r B
0x130940…18f440 [0x33a]: Pad {f00=0x0071, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l D
0x130940…18f440 [0x33b]: Pad {f00=0x0071, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R _ @ r T T S S S S >T T S S S S @ p - - T A r B
0x130940…18f440 [0x33c]: Pad {f00=0x0071, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l D
0x130940…18f440 [0x33d]: Pad {f00=0x0071, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R _ @ r T T S S S S >T T S S S S @ p - - T A r B
0x130940…18f440 [0x33e]: Pad {f00=0x0071, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l D
0x130940…18f440 [0x33f]: Pad {f00=0x0071, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R _ @ r T T S S S S >T T S S S S @ p - - T A r B
0x130940…18f440 [0x340]: Pad {f00=0x0072, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l D
0x130940…18f440 [0x341]: Pad {f00=0x0072, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R _ @ r T T S S S S >T T S S S S @ p - - T A r B
0x130940…18f440 [0x342]: Pad {f00=0x0072, f01=0x0000, f02=»
0x130940…18f440 [0x343]: Pad {f00=0x0072, f01=0x0000, f02=»
0x130940…18f440 [0x344]: Pad {f00=0x0072, f01=0x0000, f02=»
0x130940…18f440 [0x345]: Pad {f00=0x0072, f01=0x0000, f02=»
0x130940…18f440 [0x346]: Pad {f00=0x0072, f01=0x0000, f02=»
0x130940…18f440 [0x347]: Pad {f00=0x0072, f01=0x0000, f02=»
0x130940…18f440 [0x348]: Pad {f00=0x0072, f01=0x0000, f02=»
0x130940…18f440 [0x349]: Pad {f00=0x0072, f01=0x000a, f02=» H P X ` h
0x130940…18f440 [0x34a]: Pad {f00=0x0072, f01=0x0190, f02=» ,` & J & c @ z ^ ^ bHPH H ^2 Z ` zP
0x130940…18f440 [0x34b]: Pad {f00=0x0072, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d @ _ A B 6 & ? ? ? ? ? ? ? @ 6 > > U H ( ( P c P W. A 6 V ( U P @
0x130940…18f440 [0x34c]: Pad {f00=0x0072, f01=0x0190, f02=»_ _( ^ P H H #P F A A "Q ^ @ 4 ) A 4_ A $ A 6_ ? ? ? ? ? ^ A _ _ ^ ? ? ? 4 $P T I R $ 5 % ^ FW ^ W ^ T T U U U U T U W , ,
0x130940…18f440 [0x34d]: Pad {f00=0x0072, f01=0x0190, f02=» " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ nV ? n > _ > ? _ > > ? ^ ! Y ^ _ & ^ A. #M 1 <
0x130940…18f440 [0x34e]: Pad {f00=0x0072, f01=0x0190, f02=» B A " P T YF ZJ X T X M A H & . r 6 6 ^ @ $ l 8 Px X XZ# Y ) Wf " P P F_ :CV + W* T T * _<#/ X T Y P ) Y C C Y A P8 P
0x130940…18f440 [0x34f]: Pad {f00=0x0072, f01=0x0190, f02=»P F W Y @ T* 6 ] D W @ :C _L) @ _ :P _ Y > ;g# + _ Y B _ F Y _ 6 :XB_P Y 8 M # C P A _ A A ` A _* _ _2 _6 _: _> _B A ?M P: A PdQ* ?
0x130940…18f440 [0x350]: Pad {f00=0x0072, f01=0x0190, f02=» l # X& :T X T >:EV W X T Y F:DV X Qx >:EVp W " P Y WD X $ QB R _ P U F _ : V # P W Y P X ' P Y _ Y " " T
0x130940…18f440 [0x351]: Pad {f00=0x0072, f01=0x0190, f02=» X X V 9_> @ ! ! T< 9 X Y 9 X L | Y ! F X6 &R f d h B X ; Z Y B Z$ ^* Y* Y 6 Y 4 B Y 0 V Y 8 Y 2 Y 6 X !? P* P P" P x ! , !
0x130940…18f440 [0x352]: Pad {f00=0x0072, f01=0x0190, f02=» 8! T X 8 Y 4 X 2 C X 6U Y 0 8 P l ^ V Y Y X &P y &_$ & _4 Y & X ( P Y : ! F ! X # P Y (:A , Y X| Y $ X Y C '? X b _* A ? ? V H * H .T $B P W J T % V I * H ,T B > > > ? ? ? ?
0x130940…18f440 [0x353]: Pad {f00=0x0072, f01=0x0190, f02=» X 0 X 2 4 A ;D A 4 T , _ P ^ ^ ^ 4 _ , , @ 1 A _ P 9 > > > >
0x130940…18f440 [0x354]: Pad {f00=0x0072, f01=0x0190, f02=» & > > > > > > > $ " [ [ [ [ [ [ [ > > [ [ 6 Z Z ? ? Z Z Z Z Z Z Z " $ & > h P~ "R~ Y l Pj T P` ^ <UR "R4 h PB X R< X T6 X T0. T G Y6
0x130940…18f440 [0x355]: Pad {f00=0x0072, f01=0x0190, f02=»XL X@ Y @ P R T X "P Xb I Y # C C # P Y '? Y Y T # P W , Y (@ 2 ^ X L % T L Rr (@ L U0 L QF L # T R < 5 ^ R < 5 Y P X D ( ) 1 > _" X
0x130940…18f440 [0x356]: Pad {f00=0x0072, f01=0x0190, f02=» # P 0P 1 _ P W Y ($SWAP A A A A @ A. UU @ @ ! P$>B @ T A T @ T E D P _ $ % $P _ % A A @ " Q" :d @ # U RDP2 P
0x130940…18f440 [0x357]: Pad {f00=0x0072, f01=0x0190, f02=»BAP COP A W F A @ : V, @ P X;b=H : ~ F ~W =J : RT F PN W @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q X * T Y P @
0x130940…18f440 [0x358]: Pad {f00=0x0072, f01=0x0190, f02=»T F W V X = V W Y* P Z( = :L < P W <9B @ V W Q X W @ T @ V ! P W @ V P _ @ ! P( | !RRP V V W _< X |
0x130940…18f440 [0x359]: Pad {f00=0x0072, f01=0x0190, f02=» 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;T X$ W h_J X T W X W @ W V 0 !;;P P V Xf _ P !;;T X$ W
0x130940…18f440 [0x35a]: Pad {f00=0x0072, f01=0x0190, f02=» V $ ) H A I. : C. X C.9h! # " :A K : A T.I T P 1 I P < R P A _> X : @ " P P A A A A W A A < A @ A h A l A A V A A A
0x130940…18f440 [0x35b]: Pad {f00=0x0072, f01=0x0190, f02=»" n : 0 R _ <d?d A U <e @ P A <C, D L " @ $ P " :B A t w B J " r R,Q$ @ ( = @ Q @ "| _@ _$ : A A A 0 A 4 A V A A A : h:B* A @ P A B J 4R 4 :B
0x130940…18f440 [0x35c]: Pad {f00=0x0072, f01=0x0190, f02=» A I ! : 9D @ @ r s @ A I T - A _ I N T V S : X 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P D @ T X W n : YX d C !CCT xB. <X B.9 H Q
0x130940…18f440 [0x35d]: Pad {f00=0x0072, f01=0x0190, f02=»V W V T W P Z V T W P V W @ $ P p W h T : A V_| 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A A 2 ; Z [ : : [ [ :
0x130940…18f440 [0x35e]: Pad {f00=0x0072, f01=0x0190, f02=» A. c R $ )_ : V W 0 : W ; V : : J @ 0 V @ X 0 H W : @ A 9n A @ A A r A. @ t @ W A ^ : A lA > ;h 0 :C # : .=H N
0x130940…18f440 [0x35f]: Pad {f00=0x0072, f01=0x0190, f02=» ? ? > v V @ @ X A ,< ,>P X W r ,> X W @ @ % , V , P@ , - 4 ] 4 |Y 5 X * _6 : W @ F ] @ P @ " P : V _ W W . !TTP
0x130940…18f440 [0x360]: Pad {f00=0x0073, f01=0x0190, f02=» @ T X A : ` @ P _ 3 S S V V W @ @ T X : P S S _ : @ @ @ #D# P ; V ! _ : @ " P @ P 3 _ @ " P S 1 S 9J S (
0x130940…18f440 [0x361]: Pad {f00=0x0073, f01=0x0190, f02=» =H N + W p N =H N D W | ( @ % 5 T W @ = V W = V +^ P0 +| r " U X _2 +n P0 +| " U X _2 V tPZ S ( V | S =J @ " S V l S
0x130940…18f440 [0x362]: Pad {f00=0x0073, f01=0x0190, f02=» . !TTP X V +N W t * +^ P +| r _ +n Pd W p +| V 8 8 4 D P$ h @ # P H I K T + Y@ V p _f V t Y ^ !TTX @ @ T X : W % @ P
0x130940…18f440 [0x363]: Pad {f00=0x0073, f01=0x0190, f02=» +N W t +^ PT W f ( +| W d + + G =h G V d V r < '. V f P W f _B V W V t Yr ^ !TTX @ @ T X : ^ !TTX !CCTr +N P, +| V r 4 U X $ $ _. +n P, +| V
0x130940…18f440 [0x364]: Pad {f00=0x0073, f01=0x0190, f02=» +N P0 W f +| W d + V d V r < '. V f _2 +n Un +| V 8 U X 8 8 8 4 D P$ h @ # P H I K T + Y@ _pR& @ @ @ % P V 4 4 4 _r @ @ T X : W
0x130940…18f440 [0x365]: Pad {f00=0x0073, f01=0x0190, f02=» V V W R 9 W D h ) $ PV D L Tp D "P V ` T @ 1 Q a , I ( I * $# P8 V -W( (8W" D V ` T @ 1 Q a : @ % PH H I H T P, H U V U W < +
0x130940…18f440 [0x366]: Pad {f00=0x0073, f01=0x0190, f02=»LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : . @ .T A . V W 0 @ 0T A 0 V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v
0x130940…18f440 [0x367]: Pad {f00=0x0073, f01=0x0190, f02=» W | V z 3 % W P _ V |P V v ] P _ @ .P V h A . (P ) @ . @ 0P V h A 0 (P ) @ 0 @ @ T X : N =H N D : N =H N D : &=H F D : F =H F D : F =H F D :
0x130940…18f440 [0x368]: Pad {f00=0x0073, f01=0x0190, f02=» ! #@ $< %X * A CRT M " . ,D,V X V V h W R _ $ W : . @ .T A . V W 0 @ 0T A 0 V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v
0x130940…18f440 [0x369]: Pad {f00=0x0073, f01=0x0002, f02=»
0x130940…18f440 [0x36a]: Pad {f00=0x0073, f01=0x0190, f02=» 2 P IDENT INTLT3 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x130940…18f440 [0x36b]: Pad {f00=0x0073, f01=0x40f8, f02=»TABLE ENTRY P* P* TERMINAL PARAMETERS P* > P* H , P* RIGHT BYTE = 2 * NUMBER OF DEVICES R P* P* P* P* PINTLT3 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO
0x130940…18f440 [0x36c]: Pad {f00=0x0073, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x130940…18f440 [0x36d]: Pad {f00=0x0073, f01=0x4010, f02=» END @ = DEVICE DEPENDENT ECHO SUBROUTINE P* : PECHOCD EQU * D P LDR A7,A7 EOR ? X P RF(N) ECHO10 p P CF A5,OUTPUT SEND CHARACTER PECHO10 ABL ECHRTN P EJECT P* P* R C C D P* P* PRCCD E
0x130940…18f440 [0x36e]: Pad {f00=0x0073, f01=0x2008, f02=» A15,SAVE8 LD A7,DWTST,A6 RB(N) EXIT 2 LDK A1,2 F RB ENDIO X * j * t END ~@ LD A4,DWTST,A6 STATUS RF(N) EXIT LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O ABL LDREG
0x130940…18f440 [0x36f]: Pad {f00=0x0073, f01=0x0190, f02=» SUK A4,1 DECREMENT RETRY COUNTER $ P ABL(Z) END:IO ALL RETRIES DONE * P RB WRIT:N TRY AGAIN R P n P IFT RAW=1 v PWRIT20 CWK A7,5 P ABL(E) END:IO BASIC WRITE & P LDKL A3,BUF DRIVER BUFFER ADDRESS P XIF P IFF RAW=1 $ P
0x130940…18f440 [0x370]: Pad {f00=0x0073, f01=0x0000, f02=»
0x130940…18f440 [0x371]: Pad {f00=0x0073, f01=0x000a, f02=» p x
0x130940…18f440 [0x372]: Pad {f00=0x0073, f01=0x0190, f02=» ,` & J & c @ z ^ ^ bHPH H ^2 Z ` zP
0x130940…18f440 [0x373]: Pad {f00=0x0073, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d @ _ A B 6 & ? ? ? ? ? ? ? @ 6 > > U H ( ( P c P W. A 6 V ( U P @
0x130940…18f440 [0x374]: Pad {f00=0x0073, f01=0x0190, f02=»_ _( ^ P H H #P F A A "Q ^ @ 4 ) A 4_ A $ A 6_ ? ? ? ? ? ^ A _ _ ^ ? ? ? 4 $P T I R $ 5 % ^ FW ^ W ^ T T U U U U T U W , ,
0x130940…18f440 [0x375]: Pad {f00=0x0073, f01=0x0190, f02=» " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ nV ? n > _ > ? _ > > ? ^ ! Y ^ _ & ^ A. #M 1 <
0x130940…18f440 [0x376]: Pad {f00=0x0073, f01=0x0190, f02=» B A " P T YF ZJ X T X M A H & . r 6 6 ^ @ $ l 8 Px X XZ# Y ) Wf " P P F_ :CV + W* T T * _<#/ X T Y P ) Y C C Y A P8 P
0x130940…18f440 [0x377]: Pad {f00=0x0073, f01=0x0190, f02=»P F W Y @ T* 6 ] D W @ :C _L) @ _ :P _ Y > ;g# + _ Y B _ F Y _ 6 :XB_P Y 8 M # C P A _ A A ` A _* _ _2 _6 _: _> _B A ?M P: A PdQ* ?
0x130940…18f440 [0x378]: Pad {f00=0x0073, f01=0x0190, f02=» l # X& :T X T >:EV W X T Y F:DV X Qx >:EVp W " P Y WD X $ QB R _ P U F _ : V # P W Y P X ' P Y _ Y " " T
0x130940…18f440 [0x379]: Pad {f00=0x0073, f01=0x0190, f02=» X X V 9_> @ ! ! T< 9 X Y 9 X L | Y ! F X6 &R f d h B X ; Z Y B Z$ ^* Y* Y 6 Y 4 B Y 0 V Y 8 Y 2 Y 6 X !? P* P P" P x ! , !
0x130940…18f440 [0x37a]: Pad {f00=0x0073, f01=0x0190, f02=» 8! T X 8 Y 4 X 2 C X 6U Y 0 8 P l ^ V Y Y X &P y &_$ & _4 Y & X ( P Y : ! F ! X # P Y (:A , Y X| Y $ X Y C '? X b _* A ? ? V H * H .T $B P W J T % V I * H ,T B > > > ? ? ? ?
0x130940…18f440 [0x37b]: Pad {f00=0x0073, f01=0x0190, f02=» X 0 X 2 4 A ;D A 4 T , _ P ^ ^ ^ 4 _ , , @ 1 A _ P 9 > > > >
0x130940…18f440 [0x37c]: Pad {f00=0x0073, f01=0x0190, f02=» & > > > > > > > $ " [ [ [ [ [ [ [ > > [ [ 6 Z Z ? ? Z Z Z Z Z Z Z " $ & > h P~ "R~ Y l Pj T P` ^ <UR "R4 h PB X R< X T6 X T0. T G Y6
0x130940…18f440 [0x37d]: Pad {f00=0x0073, f01=0x0190, f02=»XL X@ Y @ P R T X "P Xb I Y # C C # P Y '? Y Y T # P W , Y (@ 2 ^ X L % T L Rr (@ L U0 L QF L # T R < 5 ^ R < 5 Y P X D ( ) 1 > _" X
0x130940…18f440 [0x37e]: Pad {f00=0x0073, f01=0x0190, f02=» # P 0P 1 _ P W Y ($SWAP A A A A @ A. UU @ @ ! P$>B @ T A T @ T E D P _ $ % $P _ % A A @ " Q" :d @ # U RDP2 P
0x130940…18f440 [0x37f]: Pad {f00=0x0073, f01=0x0190, f02=»BAP COP A W F A @ : V, @ P X;b=H : ~ F ~W =J : RT F PN W @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q X * T Y P @
0x130940…18f440 [0x380]: Pad {f00=0x0074, f01=0x0190, f02=»T F W V X = V W Y* P Z( = :L < P W <9B @ V W Q X W @ T @ V ! P W @ V P _ @ ! P( | !RRP V V W _< X |
0x130940…18f440 [0x381]: Pad {f00=0x0074, f01=0x0190, f02=» 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;T X$ W h_J X T W X W @ W V 0 !;;P P V Xf _ P !;;T X$ W
0x130940…18f440 [0x382]: Pad {f00=0x0074, f01=0x0190, f02=» V $ ) H A I. : C. X C.9h! # " :A K : A T.I T P 1 I P < R P A _> X : @ " P P A A A A W A A < A @ A h A l A A V A A A
0x130940…18f440 [0x383]: Pad {f00=0x0074, f01=0x0190, f02=»" n : 0 R _ <d?d A U <e @ P A <C, D L " @ $ P " :B A t w B J " r R,Q$ @ ( = @ Q @ "| _@ _$ : A A A 0 A 4 A V A A A : h:B* A @ P A B J 4R 4 :B
0x130940…18f440 [0x384]: Pad {f00=0x0074, f01=0x0190, f02=» A I ! : 9D @ @ r s @ A I T - A _ I N T V S : X 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P D @ T X W n : YX d C !CCT xB. <X B.9 H Q
0x130940…18f440 [0x385]: Pad {f00=0x0074, f01=0x0190, f02=»V W V T W P Z V T W P V W @ $ P p W h T : A V_| 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A A 2 ; Z [ : : [ [ :
0x130940…18f440 [0x386]: Pad {f00=0x0074, f01=0x0190, f02=» A. c R $ )_ : V W 0 : W ; V : : J @ 0 V @ X 0 H W : @ A 9n A @ A A r A. @ t @ W A ^ : A lA > ;h 0 :C # : .=H N
0x130940…18f440 [0x387]: Pad {f00=0x0074, f01=0x0190, f02=» ? ? > v V @ @ X A ,< ,>P X W r ,> X W @ @ % , V , P@ , - 4 ] 4 |Y 5 X * _6 : W @ F ] @ P @ " P : V _ W W . !TTP
0x130940…18f440 [0x388]: Pad {f00=0x0074, f01=0x0190, f02=» @ T X A : ` @ P _ 3 S S V V W @ @ T X : P S S _ : @ @ @ #D# P ; V ! _ : @ " P @ P 3 _ @ " P S 1 S 9J S (
0x130940…18f440 [0x389]: Pad {f00=0x0074, f01=0x0190, f02=» =H N + W p N =H N D W | ( @ % 5 T W @ = V W = V +^ P0 +| r " U X _2 +n P0 +| " U X _2 V tPZ S ( V | S =J @ " S V l S
0x130940…18f440 [0x38a]: Pad {f00=0x0074, f01=0x0190, f02=» . !TTP X V +N W t * +^ P +| r _ +n Pd W p +| V 8 8 4 D P$ h @ # P H I K T + Y@ V p _f V t Y ^ !TTX @ @ T X : W % @ P
0x130940…18f440 [0x38b]: Pad {f00=0x0074, f01=0x0190, f02=» +N W t +^ PT W f ( +| W d + + G =h G V d V r < '. V f P W f _B V W V t Yr ^ !TTX @ @ T X : ^ !TTX !CCTr +N P, +| V r 4 U X $ $ _. +n P, +| V
0x130940…18f440 [0x38c]: Pad {f00=0x0074, f01=0x0190, f02=» +N P0 W f +| W d + V d V r < '. V f _2 +n Un +| V 8 U X 8 8 8 4 D P$ h @ # P H I K T + Y@ _pR& @ @ @ % P V 4 4 4 _r @ @ T X : W
0x130940…18f440 [0x38d]: Pad {f00=0x0074, f01=0x0190, f02=» V V W R 9 W D h ) $ PV D L Tp D "P V ` T @ 1 Q a , I ( I * $# P8 V -W( (8W" D V ` T @ 1 Q a : @ % PH H I H T P, H U V U W < +
0x130940…18f440 [0x38e]: Pad {f00=0x0074, f01=0x0190, f02=»LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : . @ .T A . V W 0 @ 0T A 0 V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v
0x130940…18f440 [0x38f]: Pad {f00=0x0074, f01=0x0190, f02=» W | V z 3 % W P _ V |P V v ] P _ @ .P V h A . (P ) @ . @ 0P V h A 0 (P ) @ 0 @ @ T X : N =H N D : N =H N D : &=H F D : F =H F D : F =H F D :
0x130940…18f440 [0x390]: Pad {f00=0x0074, f01=0x0190, f02=» ! #@ $< %X * A CRT M " . ,D,V X V V h W R _ $ W : . @ .T A . V W 0 @ 0T A 0 V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v
0x130940…18f440 [0x391]: Pad {f00=0x0074, f01=0x0002, f02=»
0x130940…18f440 [0x392]: Pad {f00=0x0074, f01=0x0190, f02=» 2 P IDENT INTLT3 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x130940…18f440 [0x393]: Pad {f00=0x0074, f01=0x40f8, f02=»TABLE ENTRY P* P* TERMINAL PARAMETERS P* > P* H , P* RIGHT BYTE = 2 * NUMBER OF DEVICES R P* P* P* P* PINTLT3 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO
0x130940…18f440 [0x394]: Pad {f00=0x0074, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x130940…18f440 [0x395]: Pad {f00=0x0074, f01=0x4010, f02=» END @ = DEVICE DEPENDENT ECHO SUBROUTINE P* : PECHOCD EQU * D P LDR A7,A7 EOR ? X P RF(N) ECHO10 p P CF A5,OUTPUT SEND CHARACTER PECHO10 ABL ECHRTN P EJECT P* P* R C C D P* P* PRCCD E
0x130940…18f440 [0x396]: Pad {f00=0x0074, f01=0x2008, f02=» A15,SAVE8 LD A7,DWTST,A6 RB(N) EXIT 2 LDK A1,2 F RB ENDIO X * j * t END ~@ LD A4,DWTST,A6 STATUS RF(N) EXIT LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O ABL LDREG
0x130940…18f440 [0x397]: Pad {f00=0x0074, f01=0x0190, f02=» SUK A4,1 DECREMENT RETRY COUNTER $ P ABL(Z) END:IO ALL RETRIES DONE * P RB WRIT:N TRY AGAIN R P n P IFT RAW=1 v PWRIT20 CWK A7,5 P ABL(E) END:IO BASIC WRITE & P LDKL A3,BUF DRIVER BUFFER ADDRESS P XIF P IFF RAW=1 $ P
0x130940…18f440 [0x398]: Pad {f00=0x0074, f01=0x0000, f02=»
0x130940…18f440 [0x399]: Pad {f00=0x0074, f01=0x0002, f02=»
0x130940…18f440 [0x39a]: Pad {f00=0x0074, f01=0x0190, f02=» < + . Y%w n b ] $ ^ : 9 i $ - w z~4r tV u 3 qC + zuqL $ ) > Pu ZD q c r F~ uL _^ % ;Pl G > # F $ 4` 1F ^-8 T t tB bbTg t z ^ ^ bHPH H ^2 Z ` zP
0x130940…18f440 [0x39b]: Pad {f00=0x0074, f01=0x0190, f02=» & T X Q A & T l A $ A & # C ( B Tl B C # T" ( B TH A $ @ PW ( B T( @ $T A $_n p # ( #( _ p 9H9h @ &T W <i<E ! l _> # C ( B : W # C (
0x130940…18f440 [0x39c]: Pad {f00=0x0074, f01=0x0000, f02=»
0x130940…18f440 [0x39d]: Pad {f00=0x0074, f01=0x0000, f02=»
0x130940…18f440 [0x39e]: Pad {f00=0x0074, f01=0x0000, f02=»
0x130940…18f440 [0x39f]: Pad {f00=0x0074, f01=0x0000, f02=»
0x130940…18f440 [0x3a0]: Pad {f00=0x0075, f01=0x0000, f02=»
0x130940…18f440 [0x3a1]: Pad {f00=0x0075, f01=0x0002, f02=»
0x130940…18f440 [0x3a2]: Pad {f00=0x0075, f01=0x007e, f02=» T; 01; TID=SP; TCL=SP; * LEV=60; : 00; J 02; V SDC=S01; b SDC=S02; r KPF /L,FLXMON ASG /E0,TY10
0x130940…18f440 [0x3a3]: Pad {f00=0x0075, f01=0x2008, f02=» 01; TID=SP; TCL=SP; * LEV=60; : 00; J 02; V SDC=S01; b SDC=S02; r KPF /L,FLXMON ASG /E0,TY10
0x130940…18f440 [0x3a4]: Pad {f00=0x0075, f01=0x0190, f02=» IHTCN , ( IHSOP > IHFDN N , ( ^ , ( ! , ( 1 , ( A
0x130940…18f440 [0x3a5]: Pad {f00=0x0075, f01=0x0190, f02=» ~ HALTN . SCTMSZK F SCTSFA Z SCTEFA n SCTPLD SCTANO SCTADA SCTPAGL , ( @ SCTSE
0x130940…18f440 [0x3a6]: Pad {f00=0x0075, f01=0x018e, f02=» SCTMMP SCTLAP SCTNPE & SCTSTB : SCTOPT N SCTTCTR b SCTCDTr v SCTBUGa SCTDMT! , ( SCTDMI SCTDML
0x130940…18f440 [0x3a7]: Pad {f00=0x0075, f01=0x401e, f02=» v @ SCTNPE & SCTSTB : SCTOPT N SCTTCTR b SCTCDTr v SCTBUGa SCTDMT! , ( SCTDMI SCTDML
0x130940…18f440 [0x3a8]: Pad {f00=0x0075, f01=0x0000, f02=»
0x130940…18f440 [0x3a9]: Pad {f00=0x0075, f01=0x0002, f02=»
0x130940…18f440 [0x3aa]: Pad {f00=0x0075, f01=0x007e, f02=» T; 01; TID=SP; TCL=SP; * LEV=60; : 00; J 02; V SDC=S01; b SDC=S02; r
0x130940…18f440 [0x3ab]: Pad {f00=0x0075, f01=0x2008, f02=» 01; TID=SP; TCL=SP; * LEV=60; : 00; J 02; V SDC=S01; b SDC=S02; r
0x130940…18f440 [0x3ac]: Pad {f00=0x0075, f01=0x2008, f02=»
0x130940…18f440 [0x3ad]: Pad {f00=0x0075, f01=0x018e, f02=» A3,0 P ADK A6,0 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW 0 P ADK A1,0 t P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0) END0 * IF DIVIDEND IS NULL, C
0x130940…18f440 [0x3ae]: Pad {f00=0x0075, f01=0x0190, f02=» 4 P ADK A1,0 *SIGN OF DIVIDEND P RF(6) DIVENP < 8 P ADK A3,1 * DIVIDEND IS NEGATIVE P C1R A1,A1 P C1R A2,A2 P ANK.L A2,X'7FFF' P ADK
0x130940…18f440 [0x3af]: Pad {f00=0x0075, f01=0x0190, f02=» *SIGN OF DIVISOR v P RF(6) DIVORP 4 P SUK A3,1 *NEGATIVE DIVISOR < P C1R A6,A6 t P ADK A6,1 < P ADK A6,0 RESET IF OVERFLOW P RF(5) CASSPE
0x130940…18f440 [0x3b0]: Pad {f00=0x0075, f01=0x0000, f02=»
0x130940…18f440 [0x3b1]: Pad {f00=0x0075, f01=0x0004, f02=»
0x130940…18f440 [0x3b2]: Pad {f00=0x0075, f01=0x0190, f02=» t + . f w n b $ ^ : 9 i $ - w z~4r tV u 3 qC + zuqL $ ) > Pu ZD q c r F~ uL _^ % ;Pl G > # F $ 4` 1F ^-8 T t tB bbTg t z ^ ^ bHPH H ^2 Z ` zP
0x130940…18f440 [0x3b3]: Pad {f00=0x0075, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d @ < R:R: ` J bb ^% bbpH 0~ <d hl|d : x ` ^ D)dH P D >~ `" f >~ $ d p 4d @u { D>~
0x130940…18f440 [0x3b4]: Pad {f00=0x0075, f01=0x0190, f02=» ^< 2 + . f w n b $ ^ : 9 i $ - w z~4r tV u 3 qC + zuqL $ ) > Pu ZD q c r F~ uL _^ % ;Pl G > # F $ 4` 1F ^-8 T t tB bbTg t z ^ ^ bHPH H ^2 Z ` zP
0x130940…18f440 [0x3b5]: Pad {f00=0x0075, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d @ < R:R: ` J bb ^% bbpH 0~ <d hl|d : x ` ^ D)dH P D >~ `" f >~ $ d p 4d @u { D>~
0x130940…18f440 [0x3b6]: Pad {f00=0x0075, f01=0x0190, f02=» ^< 2 + . f w n b $ ^ : 9 i $ - w z~4r tV u 3 qC + zuqL $ ) > Pu ZD q c r F~ uL _^ % ;Pl G > # F $ 4` 1F ^-8 T t tB bbTg t z ^ ^ bHPH H ^2 Z ` zP
0x130940…18f440 [0x3b7]: Pad {f00=0x0075, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d @ < R:R: ` J bb ^% bbpH 0~ <d hl|d : x ` ^ D)dH P D >~ `" f >~ $ d p 4d @u { D>~
0x130940…18f440 [0x3b8]: Pad {f00=0x0075, f01=0x0190, f02=» ^< 2 + . f w n b $ ^ : 9 i $ - w z~4r tV u 3 qC + zuqL $ ) > Pu ZD q c r F~ uL _^ % ;Pl G > # F $ 4` 1F ^-8 T t tB bbTg t z ^ ^ bHPH H ^2 Z ` zP
0x130940…18f440 [0x3b9]: Pad {f00=0x0075, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d @ < R:R: ` J bb ^% bbpH 0~ <d hl|d : x ` ^ D)dH P D >~ `" f >~ $ d p 4d @u { D>~
0x130940…18f440 [0x3ba]: Pad {f00=0x0075, f01=0x0190, f02=» ^< 2 + . f w n b $ ^ : 9 i $ - w z~4r tV u 3 qC + zuqL $ ) > Pu ZD q c r F~ uL _^ % ;Pl G > # F SP( ( r N @ Z J 8 " 8 8 F
0x130940…18f440 [0x3bb]: Pad {f00=0x0075, f01=0x0190, f02=» J ( "( _ J F_(( @ T @ A : X: A ( @ T A A @ A _< Xp 5_& T( ( @ * $ @ . A . . : A & 4T ( @ * A $ A . " & @ . A ._B( B
0x130940…18f440 [0x3bc]: Pad {f00=0x0075, f01=0x0190, f02=» P A f (P ) @ , ( $ f @ hP V > P A " , ( h (P ) @ h @ R * & )A @ T " , ( A @ : N =H N J : N =H N , ( ] J : &=H F J : F =H
0x130940…18f440 [0x3bd]: Pad {f00=0x0075, f01=0x0190, f02=» (W ( : p , ( 00=H 00 P P _ , ( _ : b | @ SCTIOE: p SYSLDX , ( 6 2 N A p CRT M " -@ r H D !pC P # N / N G WP@ P P V P D
0x130940…18f440 [0x3be]: Pad {f00=0x0075, f01=0x0190, f02=» ;U ] d eP0 i r wU PZ T T #T EP t H D ! W D m T qP u r d Pd r P$ P T ?P MR aW& oT }P D 0 H D ! U T PT r $ P ;T gTr q D uP, y r U d P, r | H D ! U P P W ) D -P0 5 r = Q $ e d mUn q r U P$ P
0x130940…18f440 [0x3bf]: Pad {f00=0x0075, f01=0x4102, f02=» -W" 3V 9T WPH sP, ` H D ! U P P: P W T 3WR 7T AW, ET QW WT cW uR T W H D ! T T P 5T 9P KP aT eP$ oP U P W P P P P h 4 0 P P P -T P T P W P P %T 2 @ P$ P
0x130940…18f440 ]
0x18f440…1900e0 (2, 0) DirGranule ((2, 0)) {
0x18f440…1900e0 DirEnt {nam=»IBM327«, typ=»0 «, f00=0x0000, f01=0x0000, f02=0x0ec0, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»START «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ec8, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»VDUPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f50, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»PRT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fb0, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»TB3270«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd8, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fe8, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»NOIFLI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ff0, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»DATDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ff8, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1010, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»LIST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1070, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1078, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»DW2501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1080, f03=0x0000}
0x18f440…1900e0 DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1088, f03=0x0000}
0x18f440…1900e0 }
0x1900e0…190274 (2, 1) Opaque[0x194]
0x190274…190408 # DirEnt {nam=»START «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ec8, f03=0x0000}
0x190274…190408 IdxSect {
0x190274…190408 f00 = 0x0076 // 0x190274 @0x0
0x190274…190408 f01 = 0x0022 // 0x190276 @0x2
0x190274…190408 gno = [ // 0x190278 @0x4
0x190274…190408 [0x00]: C0x0076.0x1.0
0x190274…190408 [0x01]: C0x0076.0x2.0
0x190274…190408 [0x02]: C0x0076.0x3.0
0x190274…190408 [0x03]: C0x0077.0x0.0
0x190274…190408 [0x04]: C0x0077.0x1.0
0x190274…190408 [0x05]: C0x0077.0x2.0
0x190274…190408 [0x06]: C0x0077.0x3.0
0x190274…190408 [0x07]: C0x0078.0x0.0
0x190274…190408 [0x08]: C0x0078.0x1.0
0x190274…190408 [0x09]: C0x0078.0x2.0
0x190274…190408 [0x0a]: C0x0078.0x3.0
0x190274…190408 [0x0b]: C0x0079.0x0.0
0x190274…190408 [0x0c]: C0x0079.0x1.0
0x190274…190408 [0x0d]: C0x0079.0x2.0
0x190274…190408 [0x0e]: C0x0079.0x3.0
0x190274…190408 [0x0f]: C0x007a.0x0.0
0x190274…190408 [0x10]: C0x007a.0x1.0
0x190274…190408 ]
0x190274…190408 }
0x190408…19059c Dummy {f00=0x0076, f01=0x0190, f02=» 0 P IDENT START REL 10.0 80-03-14 870150541000 P 8 " P =6, SKIP CIRCULAR KB-BUFFER @ P REL 2.1 79-05-23 f , P =4,CURSOR STOP AT LAST POS. EACH LINE P REL 2.1 79-05-23 , P =5, RESET KEY DOESN7T WORK ON KB6234 P REL 2.1
0x19059c…190730 Dummy {f00=0x0076, f01=0x0190, f02=» =3, UNDEFINED LABEL P REL 2.1 79-05-23 B P************************************************************* 8 P* ~ H P* S T A R T : MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED H P* MESSAGES ADDRESSED TO THE MAIN FRA
0x190730…1908c4 Dummy {f00=0x0076, f01=0x0190, f02=»****************************************** p P 2 P : P B P J P EJECT R P* ` P* j P* ENTRY PARAMETERS t P* P* P* P ENTRY LINHON,LINHOF,ATMASB P ENTRY LSAVOF,LSAVON P ENTRY EMULA & P ENTRY L
0x1908c4…190a58 Dummy {f00=0x0076, f01=0x0190, f02=» ENTRY DC1INQ P ENTRY DC2INQ $ P ENTRY REQTIM SET REQUEST TIMER , P ENTRY ICWRTE T P* j P* t P* ~ P* EXTERNAL REFERENSES P* P* P* P EXTRN DCINP P EXTRN DCGETM P EXTRN ICREAD P
0x190a58…190bec Dummy {f00=0x0076, f01=0x0190, f02=»XTRN TRPA P EXTRN ERASUA P EXTRN DISPL ( P EXTRN ERASUP < P* R 0 P EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272 P EXTRN TASCII P* , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE & P EXTRN I:RT1 RETURN TO CREDIT CODE
0x190bec…190d80 Dummy {f00=0x0076, f01=0x018e, f02=» P* & P********************************* P 8 P* @ F PKB6272 EQU 1 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' J 0 P USE THE KEY CONVERSION TABLE IN 'TB3270' 0 PKEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS' POFLIN EQU 0
0x190d80…190f14 (2, 2) Dummy {f00=0x0076, f01=0x0190, f02=» 8 PCOPCMD EQU 0 COPY COMMAND (ONLY TO PRINTER) IF := 1 PCOPL EQU 0 COPY LOCK IF := 1 @ P EJECT d P* r P* | P* EQUATES P* PRSET EQU /B2 RESET KEY " P* COMMON EQU FOR ECB HANDLING P* P PECBBA EQU 2
0x190f14…1910a8 Dummy {f00=0x0076, f01=0x0190, f02=» P* P* ECB REL. ADDRESSES P* . P* 8 PDIS EQU 20 B P* T PECBDC EQU -DIS-14 ^ P IFT DCLIN=2 x P IFT COPCMD=1 PECBDC2 EQU ECBDC-DIS PECBICR EQU ECBDC2-DIS PECBICW EQU ECBICR-DIS P XIF P I
0x1910a8…19123c Dummy {f00=0x0076, f01=0x0190, f02=»OPCMD=1 PECBICR EQU ECBDC-DIS PECBICW EQU ECBICR-DIS , P XIF J P IFF DCLIN=2 V P IFF COPCMD=1 j PECBICW EQU ECBDC-DIS P XIF PECBVDU EQU ECBICW-DIS PECBKB EQU ECBVDU-DIS PECBSD EQU ECBKB-DIS P EJECT
0x19123c…1913d0 Dummy {f00=0x0076, f01=0x0190, f02=» P* TCA REL. ADDRESSES P* PTCT01 EQU 0 * PPRINTER EQU TCT01+2 > ( PBVDU EQU PRINTER+2 VDU SCREEN BUFFER Z 0 PPCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR PCURATT EQU ATTRIB+2 & PWCC
0x1913d0…191564 Dummy {f00=0x0076, f01=0x0190, f02=»QU LINCNT+2 DC READ EFFECTIVE LENGTH 2 PICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM , , PINTATT EQU ICWORK+2 INTENSITY ATTRIBUTE b $ POFFFLG EQU INTATT+2 OFFLINE FLAG ( PCOPNO EQU OFFFLG+2 HARDCOPY TASK ID * PCCC EQU COPNO+2 COPY COMMAND CHARA
0x191564…1916f8 Dummy {f00=0x0076, f01=0x0190, f02=»QU KEYS+2 ECB ADDRESS LAST READ DC 2 PECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C * 4 PRDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB ` P EJECT PNULL EQU /7F NULL CHARACTER PDUPCH EQU /7B PFMCH EQU /60 * PLBVDU EQU 1920 1920
0x1916f8…19188c Dummy {f00=0x0076, f01=0x018e, f02=»B1' REL ADDRESSES P* " PNBRKBV EQU 0 NUMBER OF KB/VDUS $ & PNBRGTP EQU NBRKBV+2 NUMBER OF GTPS J P* t 2 PMF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 ~ 2 PMF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 P IFT DCLIN=2 PMF2KBV EQU
0x19188c…191a20 Dummy {f00=0x0076, f01=0x0190, f02=» PKEYTAB EQU * P DATA CHAR SPACE P DATA CHAR ! 4 P DATA CHAR " H P DATA CHAR # P DATA CHAR $ p P DATA CHAR % P DATA CHAR & P DATA CHAR ' P DATA CHAR ( P DATA CHAR ) P DATA CHAR * P DATA CHAR +
0x191a20…191bb4 (2, 3) Dummy {f00=0x0076, f01=0x0190, f02=» DATA NUM 2 P DATA NUM 3 P DATA NUM 4 ( P DATA NUM 5 < P DATA NUM 6 P P DATA NUM 7 d P DATA NUM 8 x P DATA NUM 9 P DATA CHAR : P DATA CHAR ; P DATA CHAR < P DATA CHAR = P DATA CHAR > P DAT
0x191bb4…191d48 Dummy {f00=0x0076, f01=0x018e, f02=»AR E P DATA CHAR F P DATA CHAR G P DATA CHAR H 4 P DATA CHAR I H P DATA CHAR J P DATA CHAR K p P DATA CHAR L P DATA CHAR M P DATA CHAR N P DATA CHAR O P* P DATA CHAR P P DATA CHAR Q P D
0x191d48…191edc Dummy {f00=0x0076, f01=0x0190, f02=» P DATA CHAR Y P DATA CHAR Z P DATA CHAR [ , P DATA CHAR BACK SLASH @ P DATA CHAR ] ^ P DATA CHAR CIRCOMFLEX r P DATA CHAR UNDERLINE P* $ P DATA RETURN /60 CANNOT BE USED P DATA CHAR LOWER CASE P DATA CHAR
0x191edc…192070 Dummy {f00=0x0076, f01=0x018e, f02=»A CHAR P DATA CHAR P DATA CHAR P DATA CHAR 2 P DATA CHAR D P DATA CHAR V P* h P IFT KEYLST=1 r P DATA KEYL KEYLOCK P DATA KEYL P DATA KEYL P DATA KEYL P DATA KEYL P DATA KEYL P DATA KEYL
0x192070…192204 Dummy {f00=0x0076, f01=0x0190, f02=» P DATA RETURN P DATA RETURN P DATA RETURN , P DATA RETURN @ P XIF T P DATA CHAR LOWER CASE X ` P DATA CHAR P DATA CHAR ( P DATA RETURN /7B-/7F CANNOT BE USED P DATA RETURN P DATA RETURN P DATA RETURN
0x192204…192398 Dummy {f00=0x0076, f01=0x0190, f02=»A PA1 P DATA PA2 P DATA PA3 & P DATA PA410 PA4 - PA10 (ALFASKOP) 2 P DATA PA410 P DATA PA410 p P DATA PA410 P DATA PA410 P DATA PA410 P DATA PA410 P DATA CLEAR P IFT PFX=1 P DATA PFEX
0x192398…19252c Dummy {f00=0x0076, f01=0x018e, f02=»PF 4 P DATA PF 5 P DATA PF 6 P DATA PF 7 0 P DATA PF 8 B P DATA PF 9 T P DATA PF 10 f P DATA PF 11 z P DATA PF 12 . P DATA RETURN /99-/A4 RESERVED FOR PF13-24 P DATA RETURN P DATA RETURN P DATA RETURN
0x19252c…1926c0 Dummy {f00=0x0076, f01=0x0190, f02=» P DATA RETURN P DATA RETURN P DATA ENTER , P DATA CRUP @ P DATA CRLEFT R P DATA CRRIGT f P DATA CRDOWN z P DATA BAKTAB P DATA TAB P DATA CRNL P DATA RDHOME P DATA ERINPT P DATA EREOF P*
0x1926c0…192854 (2, 4) Dummy {f00=0x0077, f01=0x0190, f02=» XIF P DATA RESET P DATA DUP P DATA FLDMRK 2 P DATA COPY F P IFT OFLIN=1 X P DATA OFLINE l P XIF P IFF OFLIN=1 P DATA RETURN P XIF P IFT DCLIN=2 P DATA MFCHGE P XIF P IFF DCLIN=2 P
0x192854…1929e8 Dummy {f00=0x0077, f01=0x0190, f02=»A RETURN P DATA RETURN P DATA RETURN $ P* 8 6 P DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK) B P DATA LCASPW | P DATA LCASPW P DATA LCASPW P DATA LCASPW P DATA LCASPW P DATA LCASPW P DATA LCASPW P
0x1929e8…192b7c Dummy {f00=0x0077, f01=0x0190, f02=»******************************************************* P @ PDCTASK EQU * H P CF A14,I:EVA0 & P LDR* A1,A9 POLL & SELECT ADDRESS r P LDKL A8,ECBDC P ADR A8,CREBAS P ST A1,ECBCW,A8 $ P LDK A7,/B7 TRANSFER PARAMETERS P
0x192b7c…192d10 Dummy {f00=0x0077, f01=0x0190, f02=»RBUF GET RECEIVE BUFFER P LDKL A8,ECBDC P ADR A8,CREBAS 6 P CF A14,DCGETM L P LD A4,ECBBA,A8 b " P CF A14,RLRBUF RELEASE BUFFER z P RB DCT100 P EJECT P* P* ( P* SUBROUTINE ACTIVATED BY ALL TASKS P*
0x192d10…192ea4 Dummy {f00=0x0077, f01=0x0190, f02=»ETERS v P LKM P DATA 1 P RTN A14 * P EJECT : P* H : P***************************************************** R P* P* VDUKB P* " P* MAIN MODULE FOR KEYBOARD VDU P* < P********************************
0x192ea4…193038 Dummy {f00=0x0077, f01=0x0190, f02=» P P 4 P STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK P ST A13,-2,A14 P $ P SUKL A14,4 UPDATE STACK POINTER f P CM OFFFLG,TCABAS * P CF A14,LIOLOF TURN OFF OFF LINE LAMP P XIF P P EJECT B P****************
0x193038…1931cc Dummy {f00=0x0077, f01=0x0190, f02=»*********************************************** P 8 P LDR* A4,TCABAS REL TASK NO @ " P AD A4,6,CREBAS 'CB1' ADDRESS d & P LC A1,MF1KBV-1,A4 GET DV-ADDRESS P ANK A1,/FF P LDKL A8,ECBDC P CF A14,EMULA P P IFT DCLIN=2
0x1931cc…193360 Dummy {f00=0x0077, f01=0x018e, f02=»* B P************************************************************* P P & P LC A1,MF2KBV-1,A4 GET DV ADDRESS X P ANK A1,/FF P LDKL A8,ECBDC2 P CF A14,EMULA P XIF P EJECT PVDU080 EQU * P CF A14,ERASE ERASE SC
0x193360…1934f4 (2, 5) Dummy {f00=0x0077, f01=0x0190, f02=» , P CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 P EJECT 8 P* F P* RELATIVE POS IN ECBBLK P PKB EQU 2 p PDC1 EQU 4 P IFT DCLIN=2 P IFT COPCMD=1 PDC2 EQU 6 PICR EQU 8 PECBBS EQU 4 P XIF P IFT DCL
0x1934f4…193688 Dummy {f00=0x0077, f01=0x0190, f02=» PECBBS EQU 3 P XIF P IFF DCLIN=2 ( P IFF COPCMD=1 < PECBBS EQU 2 R P XIF f P* r P LDK A1,ECBBS | P ST A1,ECBBLK,TCABAS PVDU100 EQU * P LD A1,ECBBLK+DC1,TCABAS P RF(NZ) VDU110 PENDING 0 P CF A14,
0x193688…19381c Dummy {f00=0x0077, f01=0x0190, f02=»NG | 6 P CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT P XIF D PVDU120 EQU * P P IFT COPCMD=1 d P LD A1,ECBBLK+ICR,TCABAS z P RF(NZ) VDU125 PENDING P LDKL A3,ICWORK BUFFER P ADR A3,TCABAS ADDRESS P LDK A6,2 REQ LENG
0x19381c…1939b0 Dummy {f00=0x0077, f01=0x0190, f02=»VDU150 PENDING ( P CF A14,RDKBNW READ KEYBOARD NO WAIT ! PVDU150 EQU * ! B P LDKL A7,ECBBLK ! V P ADR A7,TCABAS ! n P LKM ! P DATA 7 MULTIPLE WAIT ! P CW A8,ECBBLK+KB,TCABAS ! $ P RF(E) KBINP INPUT FROM KEYBOARD ! P IFT COPCMD=1 !
0x1939b0…193b44 Dummy {f00=0x0077, f01=0x0190, f02=»RRENT READ ! d P CF A14,DCINP INPUT FROM DC " P RB VDU100 " 6 P EJECT " H P* " V P* READ KEYBOARD WITH NO WAIT " ` P* " PRDKBNW EQU * " P LDKL A8,ECBKB " P ADR A8,CREBAS " P LDK A7,1 " " P ST A7,ECBRL,A8 REQ LENGTH = 1 " * P S
0x193b44…193cd8 Dummy {f00=0x0077, f01=0x0190, f02=»* " PDC1INQ EQU * # P LDKL A8,ECBDC # P ADR A8,CREBAS # 4 P ST A8,ECBBLK+DC1,TCABAS # J PDC1I20 EQU * # j P LDK A1,0 # ~ P CF A14,REQTIM # P LDK A7,0 # PDC1I30 EQU * # P LKM # P DATA 1 # P RTN A14 # PDC2INQ EQU * #
0x193cd8…193e6c Dummy {f00=0x0077, f01=0x0190, f02=» COPCMD=1 # P EJECT $ P* $ " P* SEND BUFFER TO PRINTER TASK $ * P* $ P PBUFCOP EQU * $ Z P CM ECBBLK+ICR,TCABAS $ n P LDKL A3,BVDU BUFFER $ P ADR A3,TCABAS ADDRESS $ P IFT COPL=1 $ P* $ P* CHECK IF COPY LOCK $ P* $
0x193e6c…194000 Dummy {f00=0x0077, f01=0x0190, f02=»/8B ORDER: WRITE ADDRESSED WITH WAIT $ P LD A5,ICWORK,TCABAS TASK ID % , P LDKL A6,LBVDU REQ LENGTH % P P CF A14,ICWRTE % r P LD A1,KBINH,TCABAS % ( P ANK A1,/E NOT INHIBITED ANY LONGER % P ST A1,KBINH,TCABAS % P RB VDU100 % P XIF %
0x194000…194194 (2, 6) Dummy {f00=0x0077, f01=0x0190, f02=»5 POWER OFF % P LD A2,ECBRC,A8 & P RF(0) KBIN10 & , PKBIN05 EQU * & B & P LDK A7,/31 RESET KEYBOARD BUFFER & V P LKM & P DATA 1 & P RB VDU100 & PKBIN10 EQU * & P LD A1,KBINH,TCABAS & , P ANK A1,1 RESETTING BY 'RESET' ALLOWED ? &
0x194194…194328 Dummy {f00=0x0077, f01=0x0190, f02=» & n P XIF =5 ' P LD A1,KBINH,TCABAS ' " P ANK A1,6 MUST BE RESET KEY ? ' 6 P RF(Z) KBIN20 NO ' P CWK A2,RSET RESET KEY ? ' t P RB(NE) KBIN05 NO ' PKBIN20 EQU * ' P KB6234 RESET KEY =5 ' $ P LDR A5,A2 COPY INPUT CHARACTER ' P
0x194328…1944bc Dummy {f00=0x0077, f01=0x0190, f02=»C-READ TO ENABLE DC-WRITE ' z P LDR A7,A7 ( " 6 P ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE ( 4 P ADR A5,A5 TO KEY TABLE ( n P* ( P LDKL A8,ECBVDU ( P ADR A8,CREBAS ( P LD A1,RDMORE,TCABAS ( P RF(Z) KBIN30 ( P* ( P CFR A
0x1944bc…194650 Dummy {f00=0x0077, f01=0x0190, f02=»0 ( P EJECT ) P* ) & P* ABORT DC-REQUEST TO ENABLE WRITE ) " P* ) L PDCABOR EQU * ) V P LDK A7,0 ) j P LDKL A8,ECBDC ) | P IFT DCLIN=2 ) P LD A1,MAIN,TCABAS ) P RF(NZ) DCAB05 ) P XIF ) P CM ECBBLK+DC1,TCABAS ) P IFT DCL
0x194650…1947e4 Dummy {f00=0x0077, f01=0x0190, f02=» ADR A8,CREBAS ) P LKM * P DATA 10 * " P RTN A14 * 2 P EJECT * B P* * P P* SET REQUEST TIMER * Z P* A1 = TIME OUT VALUE * v P* A8 = ECB ADDRESS * P* * PREQTIM EQU * * P ST A1,ECBCW,A8 * P LDK A7,/B9 * P LKM * P DAT
0x1947e4…194978 Dummy {f00=0x0077, f01=0x0190, f02=»* * P* RETURN + P* + B P************************************************************** + $ P* + j PRETURN RTN A14 + t P EJECT + P* + < P******************************************************* + P* + P* CRLEFT + P* + 6
0x194978…194b0c Dummy {f00=0x0077, f01=0x0190, f02=» + PCRLEFT EQU * , * P LD A2,PCURS,TCABAS GET CURSOR BINARY , P SUK A2,1 , J $ P RF(NN) CRL050 NOT LEFTMOST POS , P LDKL A2,LBVDU-1 , PCRL050 RF CRH100 , P* , < P******************************************************** , P* , P
0x194b0c…194ca0 Dummy {f00=0x0077, f01=0x0190, f02=»************************ , p P* - P* A3=CHARACTER - * P* - @ PCRRIGT EQU * - J * P LD A2,PCURS,TCABAS GET CURSOR BINARY - ^ P ADK A2,1 - P CWK A2,LBVDU END OF BUFFER? - P RF(L) CRR050 NO - P LDK A2,0 - PCRR050 RF CRH100 - P EJE
0x194ca0…194e34 (2, 7) Dummy {f00=0x0077, f01=0x018e, f02=» MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. - P* . 4 @ P************************************************************ . > P* . PCRDOWN EQU * . & P LD A2,PCURS,TCABAS GET CURSOR POS . P ADKL A2,LLINE . P CWK A2,LBVDU LAST LINE? . P RF(L) C
0x194e34…194fc8 Dummy {f00=0x0077, f01=0x0190, f02=» . P P* / P* CRUP / P* / ( P* MOVE CURSOR ONE LINE UP. SAME COL. / * P* / V B P************************************************************** / ` P* / PCRUP EQU * / * P LD A2,PCURS,TCABAS GET CURSOR BINARY / P SUKL A2,LLINE / P R
0x194fc8…19515c Dummy {f00=0x0077, f01=0x0190, f02=»******************** / n P* 0 P* CRHOME 0 & P* 0 6 P* HOME POSITIONING OF CURSOR 0 @ P* 0 d : P****************************************************** 0 n P* 0 PCRHOME EQU * 0 P LDK A2,0 0 PCRH100 EQU * 0 * P ST A2,PCURS,TCABAS GET
0x19515c…1952f0 Dummy {f00=0x0077, f01=0x0190, f02=»***************************************************** 0 P* 1 > P* CRNL 1 H P* 1 V 2 P* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE 1 ` P* 1 : P***************************************************** 1 P* 1 PCRNL EQU * 1 & P LD A2,PCURS,T
0x1952f0…195484 Dummy {f00=0x0077, f01=0x0190, f02=» 1 P* COMPUTE LEFTMOST POS 2 P* 2 & PCRN050 LDK A1,0 2 0 PCRN100 SUKL A2,LLINE 2 H P RF(N) CRN120 2 d P ADKL A1,LLINE 2 z P RB CRN100 2 2 PCRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS 2 P EJECT 2 P 2 F P**************************
0x195484…195618 Dummy {f00=0x0077, f01=0x0190, f02=»F(Z) CRN130 NO ATTRIBUTE FOUND 2 P ANK A3,/10 3 & P RF(NZ) TAB PROTECTED FIELD 3 : . P CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ?? 3 ^ P RF(NE) CRN150 NO!! 3 ( P CWK A2,1919 LAST SCREEN POSITION?? 3 P RF(NE) CRN140 NO!! 3 PCRN130 LDKL A2,-1 3
0x195618…1957ac Dummy {f00=0x0077, f01=0x0190, f02=»************************************************* 3 ~ P EJECT 4 : P* 4 H 8 P**************************************************** 4 R P* 4 P* TAB 4 P* 4 2 P* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION 4 ( P* OF THE NEXT UNPROTECTED DATA FIE
0x1957ac…195940 Dummy {f00=0x0077, f01=0x0190, f02=» 4 b P* 2=EOB 5 P* 3=ATTRIB. IN EOB POS 5 P* A2=CURSOR BINARY ADDRESS 5 : P* A3=CHARACTGR 5 P* 5 r PTAB EQU * 5 | P LDK A5,1 5 & P LD A2,PCURS,TCABAS GET CURSOR POS 5 * PTAB100 CF A14,ATMASF SEARCH ATTRIBUTE 5 P CWK A1,0 END OF
0x195940…195ad4 (2, 8) Dummy {f00=0x0078, f01=0x0190, f02=»EXT ATTRIB. 5 PTAB200 ST A2,PCURS,TCABAS 6 & P CF A14,SETCUR DISPLAY NEW CURSOR 6 6 P RTN A14 6 ` PTAB300 LDK A2,0 6 p , P CWK A1,3 ATTRIBUTE IN LAST POSITION ?? 6 P EJECT 6 < P******************************************************** 6 P R
0x195ad4…195c68 Dummy {f00=0x0078, f01=0x0190, f02=»TTRIBUTE 6 ~ PTAB350 EQU * 7 < P******************************************************** 7 $ $ P ANK A5,1 WHOLE BUFF. CONTROLED? 7 d P RF(G) TAB400 NO 7 0 P RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. 7 PTAB400 LDK A5,0 7 P RB TAB100 7 P EJECT
0x195c68…195dfc Dummy {f00=0x0078, f01=0x0190, f02=» 7 : P* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE 8 : P* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD 8 F ( P* TAB KEY OPERATION TO BE PERFORMED 8 P* 8 @ P************************************************************ 8 P* 8 P
0x195dfc…195f90 Dummy {f00=0x0078, f01=0x0190, f02=» 0 P LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR. 9 P SCR A2,A3 9 8 P CF A14,NUM 9 J P CF A14,TAB 9 ^ P RTN A14 9 r P EJECT 9 P* 9 @ P*********************************************************** 9 P* 9 P* FIELD MARK 9 P* 9
0x195f90…196124 Dummy {f00=0x0078, f01=0x0190, f02=»* TO THE DC CHARACTER TRANSMITTED 9 P* : 0 > P********************************************************** : : P* : | PFLDMRK EQU * : $ P LD A1,MODE,TCABAS INSERT MODE?? : 6 P ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSERT MODE : P LDK A2,FMCH
0x196124…1962b8 Dummy {f00=0x0078, f01=0x018e, f02=» > P********************************************************** ; P* ; F P* RDHOME ; P P* ; f P* READY HOME KEY ; p 8 P* OPERATION OF THIS KEY CAUSES THE CURSOR TOBE ; : P* POSITIONED AT THE FIRST UNPROTECTED CHARACTER ; P
0x1962b8…19644c Dummy {f00=0x0078, f01=0x0190, f02=» ; z & P ADR A4,TCABAS VDU BUFFER ADDRESS < , P LC A2,1919,A4 GET LAST SCREEN CHARACTER < 2 P ANK A2,/7F < b P CWK A2,/20 < v P RF(NL) RDH10 < P ANK A2,/10 < $ P ABL(Z) CRHOME UNPROTECTED FIELD < PRDH10 CM PCURS,TCABAS < , P CF A14,TAB SE
0x19644c…1965e0 Dummy {f00=0x0078, f01=0x018e, f02=»* < P* BAKTAB = P* = 6 P* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION = $ 2 P* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD = ^ P* = 8 P**************************************************** = P* = P* A2=CURSOR BINARY ADDRESS = P*
0x1965e0…196774 (2, 9) Dummy {f00=0x0078, f01=0x0190, f02=» P CWK A3,/1F ATTRIB. CHAR? > P RF(NG) BAK100 YES > & " P CWK A2,0 UPPER LEFTMOST POS? > @ P RF(E) BAK400 YES > f P SUK A2,1 > ( PBAK100 CWK A2,0 UPPER LEFTMOST POS? > P RF(E) BAK400 YES > PBAK200 SUK A2,1 > $ P CF A14,ATMASB SEARCH AT
0x196774…196908 Dummy {f00=0x0078, f01=0x0190, f02=» RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. > 0 P SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION ? 8 P RF BAK300 ? l PBAK250 EQU * ? ~ > P********************************************************* ? P ANK A3,/10 PROTECTED? ? P RB(NE) BAK100 YES ?
0x196908…196a9c Dummy {f00=0x0078, f01=0x0190, f02=»TROLLED? ? r P RB(NZ) BAK300 YES @ ( P LDKL A2,LBVDU-1 END BUFFER ADDRESS @ * " P CF A14,GBUFFC GET BUFF CHAR. @ V P CWK A3,/1F ATTRIBUTE CHAR? @ | P RB(G) BAK200 NO @ P ANK A3,/10 PROTECTED? @ P RB(NE) BAK200 YES @ . P ST A3,ATTRIB,TCABAS UPD
0x196a9c…196c30 Dummy {f00=0x0078, f01=0x0190, f02=» @ D P**************************************************************** A P EJECT A P P EJECT A ^ P* A l > P********************************************************* A v P* A P* CHAR A P* A : P* ALPHABETIC AND SPECIAL CHAR UPDATING AND DIS
0x196c30…196dc4 Dummy {f00=0x0078, f01=0x0190, f02=»NVERT TO LOWER CASE P - W A P SC* A2,ECBKB+ECBBA,CREBAS B " P* B D PCHAR EQU * B N & P LD A2,PCURS,TCABAS GET CURSOR POS B ` . P LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS B P CWR A2,A3 CURSOR ON ATTRIB? B P RF(E) CHA300 YES B 2 PCHA100 LD A3,A
0x196dc4…196f58 Dummy {f00=0x0078, f01=0x0190, f02=»A3 B P ANK A4,/8 NUMERIC FIELD? C P RF(E) ANCOMM NO C , , PCHA300 ABL ERROR NOT ALLOWED DISPLAY POS C D P EJECT C t D P*************************************************************** C P* C & P* Z E R O : 3 TRIPLE ZERO KEY C ( P* Z E R
0x196f58…1970ec Dummy {f00=0x0078, f01=0x0190, f02=»1,X'30' CHARACTER ZERO C 8 P SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER D " P CF A14,NUM DISPLAY CHARACTER D Z P D PZERO:2 EQU * D P LDK A1,X'30' CHARACTER ZERO D 8 P SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER D " P CF A14,NUM
0x1970ec…197280 Dummy {f00=0x0078, f01=0x0190, f02=»******************** D j P* E P* NUM E & P* E 4 " P* DISPLAY AND UPDATE NUMERICS E > P* E d > P********************************************************** E n P* E PNUMCOM EQU * E P LDK A2,/2C E P SC* A2,ECBKB+ECBBA,CREBAS E P* E
0x197280…197414 (2, 10) Dummy {f00=0x0078, f01=0x0190, f02=» ATTRIBUTE? E | P RF(E) NUM200 YES F 2 PNUM100 LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR F . P LDR A4,A3 F d P ANK A4,/10 PROTECTED FIELD? F v P RF(E) ANCOMM NO F , PNUM200 ABL ERROR NOT ALLOWED DISPLAY POS F P EJECT F P* F > P**************
0x197414…1975a8 Dummy {f00=0x0078, f01=0x0190, f02=»YING AND F ` P* UPDATING G P* G " > P********************************************************** G , P* G n PANCOMM EQU * G x " P LC* A4,ECBKB+ECBBA,CREBAS =1 G PANC005 EQU * G P LDKL A6,BVDU G P ADR A6,TCABAS G P ADR A6,A2 G P G
0x1975a8…19773c Dummy {f00=0x0078, f01=0x0190, f02=» POSITION G t P LD A5,CURATT,TCABAS H ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN? H . P RF(E) ANC100 YES H Z P SUR A6,A2 BVDU START ADDR. H t P ADR A6,A5 ATTRIB. POS H , P LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR H P ORK A3,1 MDT-BIT ON H P SCR A
0x19773c…1978d0 Dummy {f00=0x0078, f01=0x018e, f02=»ET CHARACTER AT CURSOR POSITION H P ANK A1,/7F I ( P CWK A1,NULL NULL?? I < P RF(NE) INS:10 NO!! I X $ P SCR A4,A7 STORE INPUT CHARACTER I t P XIF =3 I PANC120 EQU * I P I 2 P LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING I P LD A1,E
0x1978d0…197a64 Dummy {f00=0x0078, f01=0x0190, f02=» I j P LDR A6,A3 J $ P ANK A3,/4 STANDARD DISPLAYING? J P RF(Z) ANC200 YES J B & P ANK A6,/2 INTENSIFIED DISPLAYING? J P RF(Z) ANC150 YES J P LDK A2,/20 LOAD SPACE J P RF ANC250 NON DISPLAYING J ( PANC150 LDK A5,/1F SET HIGH INTENSITY J
0x197a64…197bf8 Dummy {f00=0x0078, f01=0x0190, f02=»D A2,PCURS,TCABAS GET CURSOR POS J P ADK A2,1 K ( PANC252 EQU * K : P CWK A2,LBVDU K N P RF(NE) ANC255 K d P LDKL A2,0 K z PANC255 EQU * K P ST A2,PCURS,TCABAS K " P CF A14,GBUFFC GET BUFFER CHAR K P CWK A3,/1F ATTRIBUTE CHAR? K P R
0x197bf8…197d8c Dummy {f00=0x0078, f01=0x0190, f02=»1,X'FF' LINE POSITION K * P SUK A1,80 LAST POSITION ON LINE ?? =4 L P RF(NZ) ANC350 NO!!! L L : P CF A14,SETCUR POSITION CURSOR TO 1:ST POS. NEXT LINE L h PANC350 EQU * L P RTN A14 L P IFT IN:DL=1 L P EJECT L P L 8 P********************
0x197d8c…197f20 Dummy {f00=0x0078, f01=0x0190, f02=»OSITION TO THE LEFT L z P* M @ P************************************************************ M & P M j PDELETE EQU * M r P LDKL A6,-1 M & P LD A2,PCURS,TCABAS CURSOR ADDRESS M ( PDEL:10 ADK A6,80 END OF LINE POINTER M . P CWR A6,A2 LAST POSITION
0x197f20…1980b4 (2, 11) Dummy {f00=0x0078, f01=0x0190, f02=»UTE FOUND ?? M P RF(Z) DEL:20 NO!! N . P CWR A2,A6 ATTRIBUTE AFTER END OF LINE ?? N . P RF(G) DEL:20 YES!! N ` P SUK A2,1 SKIP ATTRIBUTE N | P LDR A6,A2 N PDEL:20 LDR A2,A6 N P N P N P LDK A1,BVDU N * P ADR A1,TCABAS ABSOLUTE BUFFER
0x1980b4…198248 Dummy {f00=0x0078, f01=0x0190, f02=»SHIFTED ?? N p P RF(E) DEL:40 YES!! O P LC A3,1,A1 GET CHARACTER O . P ORK A3,/80 SET MODIFIED BIT O P * P SCR A3,A1 SHIFT CHARACTER 1 POS. LEFT O t P ADK A1,1 O " P RB DEL:30 GET NEXT CHARACTER O P O P O * PDEL:40 LDK A3,NULL+/80 NULL CH
0x198248…1983dc Dummy {f00=0x0078, f01=0x0190, f02=» P P 2 P LD A1,CURATT,TCABAS CURRENT ATTRIBUTE ADDRESS P * P CWK A1,LBVDU+1 UNFORMATTED SCREEN ??? P B P RF(E) INS:60 YES!!! P p P ADKL A1,BVDU P . P ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS P " P SCR A3,A1 SAVE NEW ATTRIBUTE P & P RF INS:60 DIS
0x1983dc…198570 Dummy {f00=0x0078, f01=0x0190, f02=»SERT CHARACTER AT CURSOR POSITION. SHIFT CHARACTERS IN P < P* SAME FIELD , EXCEPT NULLS, ONE POSITION TO THE RIGHT Q > P* Q ~ 8 P**************************************************** Q P Q PINSERT EQU * Q $ P IM MODE,TCABAS SET INSERT MODE Q . P
0x198570…198704 Dummy {f00=0x0078, f01=0x0190, f02=»LBVDU+1 UNFORMATTED SCREEN?? Q P RF(NE) INS:20 NO!! R $ P LDKL A2,LBVDU-1 R @ P RF INS:30 R X P R j P R r 0 PINS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD R z P R P R P SUK A1,2 ATTRIBUTE FOUND ?? R P RF(Z) INS:30 NO!! R P SUK A2,1 R
0x198704…198898 Dummy {f00=0x0078, f01=0x0190, f02=»RACTER R l . PINS:40 CWR A2,A6 ALL CHARACTERS SHIFTED ?? S P RF(E) INS:50 YES!! S @ P LC A3,-1,A2 GET CHARACTER S P ORK A3,/80 SET MODIFIED BIT S ~ * P SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT S P SUK A2,1 S " P RB INS:40 GET NEXT CHARACTER S P
0x198898…198a2c Dummy {f00=0x0078, f01=0x0190, f02=» CURSOR POSITION S v PINS:60 EQU * T * P CF A14,DISPL DISPLAY MODIFIED FIELDS T , ( P LD A2,PCURS,TCABAS CURSOR POSITION T Z P RB ANC252 T P XIF T P EJECT T P T > P********************************************************** T P* T 4 P*
0x198a2c…198bc0 Dummy {f00=0x0078, f01=0x0190, f02=»NULL EQU * T P LDR A1,A6 U P U $ PS:NU10 CWR A1,A2 U , P RF(E) S:NU30 U D P LCR A3,A1 GET CHARACTER U Z & P ANK A3,/7F MASK AWAY MODIFIED BIT U z P CWK A3,NULL NULL CHARACTER U P RF(E) S:NU20 YES!! U P ADK A1,1 U * P RB S:NU10 CHECK N
0x198bc0…198d54 (2, 12) Dummy {f00=0x0079, f01=0x0190, f02=»************************************************* U P* V : P* CANCEL V D P* V T : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION V ^ $ P* AND GENERATE AN AID CHARACTER V P* V > P*********************************************************
0x198d54…198ee8 Dummy {f00=0x0079, f01=0x0190, f02=»E V r PCAN200 EQU * W . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" W ( P CF A14,TRPA UPDATE AID AND TRANSMIT W P P RTN A14 W | P* W P W P IFT PAX=1 W P W P* W P* W F P* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERT
0x198ee8…19907c Dummy {f00=0x0079, f01=0x0190, f02=» ST A1,RDMORE,TCABAS W P RTN A14 X PPAEXA EQU * X , P CM RDMORE,TCABAS X @ P SUK A2,/31 CHECK IF NUM.1-3 X Z P RF(L) PFERR ILLEGAL CHAR. X ~ P SUK A2,/2 CHECK IF NUM.1-3 X P RF(G) PFERR ILLEGAL CHAR. X P RF(Z) PA3 X P ADK A2,1 X
0x19907c…199210 Dummy {f00=0x0079, f01=0x0190, f02=»A1 PROGRAM ATTENTION KEY X P* Y $ P* Y . PPA1 EQU * Y 8 P LDK A2,/2C PA1 POS Y J P RB CAN100 Y f P* Y x P* Y $ P* PA3 PROGRAM ATTENTION KEY Y P* Y P* Y PPA3 EQU * Y P LDK A2,/2B PA3 POS Y P RB CAN100 Y P
0x199210…1993a4 Dummy {f00=0x0079, f01=0x0190, f02=»****************************************************** Y P* Z > P* ENTER Z H P* Z X 8 P* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION Z b < P* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER Z 8 P* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODI
0x1993a4…199538 Dummy {f00=0x0079, f01=0x0190, f02=»TER EQU * Z P LDK A2,/3D ENTER POS [ PENT100 EQU * [ 0 & P LC A2,TASCII,A2 CONVERT TO ASCII [ D . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" [ n . P CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT [ PENT200 EQU * [ P RTN A14 [ P* [ P [ P
0x199538…1996cc Dummy {f00=0x0079, f01=0x0190, f02=»THE FUNCTIONS UNDER PF1-PF12 [ P* $ P* . PPFEX EQU * 8 P LDKL A1,PFEXA J P RF PFNXT ` PPFEXA EQU * r P CM RDMORE,TCABAS P SUK A2,/30 LEGAL CHAR ? , P RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING & P RF(Z) PF0 FIRST NUM. 0
0x1996cc…199860 Dummy {f00=0x0079, f01=0x0190, f02=» P CM RDMORE,TCABAS ] P SUK A2,/30 LEGAL NUM.? ] " , P RF(L) PFERR ILLEGAL GO TO ERR.HANDLING ] B P SUK A2,/2 LEGAL NUM ? ] r , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING ] P ADK A2,/3C PF10-12 POS ] P RB ENT100 ] P ] PPF0 EQU * ]
0x199860…1999f4 (2, 13) Dummy {f00=0x0079, f01=0x0190, f02=»UK A2,/31 LEGAL NUM ? ] , P RF(L) PFERR ILLEGAL GO TO ERR.HANDLING ^ P SUK A2,/8 LEGAL NUM ? ^ N , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING ^ l P ADK A2,/39 PF1-9 POS ^ P RB ENT100 ^ P XIF ^ PPFERR EQU * ^ * P CF A14,ERROR GO TO ERR-HAND
0x1999f4…199b88 Dummy {f00=0x0079, f01=0x0190, f02=»IN=1 ^ P EJECT _ @ P************************************************************ _ P* _ ^ P* OFLINE _ h < P* THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND _ x 8 P* A BRANCH IS MADE BACK TO CREDIT PROGRAM _ P* _ B P**********
0x199b88…199d1c Dummy {f00=0x0079, f01=0x0190, f02=» _ P IFT DCLIN=2 ` P LD A7,MAIN,TCABAS ` P XRK A7,1 ` 6 P ST A7,MAIN,TCABAS ` H 0 P CF A14,DCABOR ABORT REQUEST NOT CURRENT MF ` b P XIF ` P IFT OFLIN=1 ` 6 P LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED ` P LDKL A8,ECBDC MF # 1 `
0x199d1c…199eb0 Dummy {f00=0x0079, f01=0x018e, f02=» P XIF a P IFT OFLIN=1 a P CF A14,LMF1OF a $ P CF A14,LMF2OF a : P CF A14,LSAVOF a P ( P CF A14,LIOLON TURN ON OFFLINE LAMP a f & P IM OFFFLG,TCABAS SET OFFLINE FLAG a $ P ADKL A14,4 SKIP ONE STACK LEVEL a * P LD A13,2,A14 RELOAD REGISTERS A12-A
0x199eb0…19a044 Dummy {f00=0x0079, f01=0x0190, f02=» P IFT DCLIN=2 b P EJECT b @ P*********************************************************** b & P* b j P* MAINFRAME CHANGE b t H P* THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP b P* IS TTURNED ON b P* b J P******
0x19a044…19a1d8 Dummy {f00=0x0079, f01=0x018e, f02=» b P CF A14,RESET c P CF A14,LMF1OF c P CF A14,LMF2OF c 4 P CF A14,LSAVOF c J P LD A1,MAIN,TCABAS c ` P XRK A1,1 c z P RF(NZ) MFCH10 c P CF A14,LMF1ON c P RF MFCH90 c PMFCH10 EQU * c P CF A14,LMF2ON c PMFCH90 EQU * c P
0x19a1d8…19a36c Dummy {f00=0x0079, f01=0x0190, f02=» c V P* d P* CLEAR d P* d " : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION d , 8 P* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY d j : P* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN d P* HOME POS d P* d < P********
0x19a36c…19a500 Dummy {f00=0x0079, f01=0x0190, f02=»A2 d . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" e ( P CF A14,TRPA UPDATE AID AND TRANSMIT e < & P CF A14,ERASE ERASE ENTIRE SCREEN e h P RTN A14 e P EJECT e P* e @ P************************************************************ e P* e P
0x19a500…19a694 (2, 14) Dummy {f00=0x0079, f01=0x0190, f02=»* e PEREOF EQU * f P LDK A6,1 f & P LD A3,ATTRIB,TCABAS GET ATTRIBUTE f 0 P ANK A3,/10 UNPROTECTED? f Z P RF(E) ERE100 YES f z P ABL ERROR f PERE100 LD A2,PCURS,TCABAS f P f ( P************************ 77.06.01 f P f 2 P CW
0x19a694…19a828 Dummy {f00=0x0079, f01=0x018e, f02=».01 f p P g ( PERE150 CF A14,GBUFFC GET BUFF. CHAR g P CWK A3,/1F ATTRIBUTE CHAR g @ P RF(G) ERE200 NO g b PERE160 LDR A1,A2 g z P LD A3,PCURS,TCABAS g PERE170 EQU * g P LDKL A4,BVDU g P ADR A4,TCABAS g P ADR A4,A3 g 0 P CF A14,
0x19a828…19a9bc Dummy {f00=0x0079, f01=0x0190, f02=» g j P* h P h P LD A2,CURATT,TCABAS h P CWK A2,LBVDU+1 h 6 $ P RF(E) ERE180 UNFORMATTED SCREEN h N P h v P ADK A2,BVDU h ~ . P ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS h P LCR A1,A2 GET ATTRIBUTE h P ORK A1,1 SET MDT BIT h P SCR A
0x19a9bc…19ab50 Dummy {f00=0x0079, f01=0x0190, f02=» RB ERE150 NEXT h * PERE300 SUK A6,1 WHOLW BUFF CONTROLED? i P RB(N) ERE160 i F P LDK A2,0 WRAP AROUND. i P RB ERE150 i z P EJECT i P* i < P******************************************************** i P* i P* ERINPT i P* i : P
0x19ab50…19ace4 Dummy {f00=0x0079, f01=0x0190, f02=»ION ON THE SCREEN i P* j < P******************************************************* j $ P* j d PERINPT EQU * j n ( P CF A14,ERASUP ERASE ALL UNPROTECTED j P CF A14,DISPL j P LD A2,PCURS,TCABAS j P CF A14,ATMASB j > P******************
0x19ace4…19ae78 Dummy {f00=0x0079, f01=0x0190, f02=»LAST POSITION j r * P LDKL A2,-1 ATTRIBUTE IN LAST POSITION k PERI:5 EQU * k D > P********************************************************** k X P ADK A2,1 k P k PERI:10 EQU * k P ST A2,PCURS,TCABAS k P RTN A14 k P EJECT k P* k
0x19ae78…19b00c Dummy {f00=0x0079, f01=0x0190, f02=»NALLOWED KEYS k t P* l @ P*********************************************************** l P* l d PERROR EQU * l n ( P CF A14,LERRON TURN ON 'ERROR' LAMP l P LD A5,KBINH,TCABAS l 4 P ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED l P ST A5
0x19b00c…19b1a0 Dummy {f00=0x0079, f01=0x0190, f02=» ADDRESS l z " P LD A2,ECBBA,A8 BUFFER ADDRESS m $ P LDK A7,X'2B' CONTROL CHARACTER m 6 P SC A7,1,A2 m ^ P LDK A7,X'07' BELL CHARACTER m r P SC A7,2,A2 m P LDK A7,3 REQUESTED LENGTH m P ST A7,ECBRL,A8 m P LDK A7,X'86' SOUND ALARM m P L
0x19b1a0…19b334 (2, 15) Dummy {f00=0x0079, f01=0x0190, f02=»**************** m ^ P* n ( P* KEY LOCK STATUS IS SET IN 'KEYS' n " , P* ON ENTRY A2 = KEY LOCK VALUE /70-/77 n N P* n ~ F P****************************************************************** n P* n PKEYL EQU * n & P SUK A2,/78 GET NEG KEY LO
0x19b334…19b4c8 Dummy {f00=0x0079, f01=0x018e, f02=» n x P RB(N) KEYL10 o P ANR A3,A4 CHECK OLD KEY POS o P RF(NZ) KEYL20 WAS ON o B P LDR A2,A2 WAS OFF o ` & P RF(NZ) KEYL99 NOW OFF, NO CHANGE o z P RF KEYL30 NOW ON o PKEYL20 EQU * WAS ON o P LDR A2,A2 o $ P RF(Z) KEYL99 NOW ON, NO CHA
0x19b4c8…19b65c Dummy {f00=0x0079, f01=0x0190, f02=» o j P* p P* KEYLOCK STATUS CHANGED p J P* A3 = NEW STATUS, RIGHTMOST BIT = RIGHTMOST LOCK, BIT ON = LOCK ON p 2 * P* A4 = KEYLOCK CHANGED, LAYOUT AS A3 p ( P* A2 = 1, IF CHANGED TO OFF ELSE 0 p P* p * P* INSERT USER ROUTINE BELOW THIS LIN
0x19b65c…19b7f0 Dummy {f00=0x0079, f01=0x0190, f02=»************ p d P* q P* LAMPMODULE q P* q 2 P* q < < P******************************************************** q F P* q PLON EQU /B7 q PLOF EQU /B8 q P IFT KB6272=1 q PLMF1 EQU /20 q PLMF2 EQU /10 q PLIOL EQU 8 q P
0x19b7f0…19b984 Dummy {f00=0x0079, f01=0x0190, f02=» EQU 1 =2 q PLINH EQU 2 =2 r PLERR EQU 4 =2 r ( PLSAV EQU 8 =2 r > P XIF r T PLMF1ON LDK A3,LMF1 r ` P RF LMPON r z PLMF1OF LDK A3,LMF1 r P RF LMPOF r PLMF2ON LDK A3,LMF2 r P RF LMPON r PLMF2OF LDK A3,LMF2 r P RF LMPOF
0x19b984…19bb18 Dummy {f00=0x0079, f01=0x0190, f02=» PLINHOF LDK A3,LINH s P RF LMPOF s PLERRON LDK A3,LERR s 0 P RF LMPON s J PLERROF LDK A3,LERR s P RF LMPOF s v PLSAVON LDK A3,LSAV s P RF LMPON s PLSAVOF LDK A3,LSAV s P RF LMPOF s P* s PLMPON LDK A7,LON s P RF SD
0x19bb18…19bcac Dummy {f00=0x0079, f01=0x0190, f02=»****** s ^ P* t P* SDISP t P* t ( $ P* SIGNAL DISPLAY MONITOR REQUEST t 2 P* t Z < P******************************************************** t d P* t PSDISP EQU * t P LDKL A8,ECBSD t P ADR A8,CREBAS t P ST A3,ECBCW,A8 t P L
0x19bcac…19be40 Dummy {f00=0x0079, f01=0x0190, f02=» P* ATMASB u P* u : P* SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK IT u " P* u ` < P******************************************************** u j P* u " P* A2=CURSOR BINARY ADDRESS u $ P* A1=BUFFER SCANNING PARAM. u . P* 0=AT
0x19be40…19bfd4 (2, 16) Dummy {f00=0x007a, f01=0x0190, f02=»ASB05 EQU * u " P CF A14,GBUFFC GET BUFFER CHAR v P CWK A3,/1F ATTRIB. CHAR. v : P RF(G) ASB10 NO v PASB08 ST A3,ATTRIB,TCABAS v t , P ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE v P RTN A14 v PASB10 CWK A2,0 END OF BUFFER v P RF(E) ASB20 Y
0x19bfd4…19c168 Dummy {f00=0x007a, f01=0x0190, f02=»***** v d $ P LDK A1,2 ATTRIBUTE IN LAST POS. w & P LDKL A2,1919 LAST BUFFER POSITION w 6 P CF A14,GBUFFC GET CHARACTER w ` P CWK A3,/1F ATTRIBUTE ??? w P RB(NG) ASB08 YES!!! w P SUR A2,A2 FIRST SCREEN POS. w 2 P**********************************
0x19c168…19c2fc Dummy {f00=0x007a, f01=0x0190, f02=»SIBLY UNFORMATTED SCREEN w x P RTN A14 x P EJECT x 0 P* x > < P******************************************************** x H P* x P* ATMASF x P* x : P* SEARCH FOR ATTRIBUTE CHAR. FORWARDS AND MASK IT x P* x > P****************
0x19c2fc…19c490 Dummy {f00=0x007a, f01=0x0190, f02=»SCANNING PARAM. x . P* 0=ATTRIB FOUND 2=END OF BUFFER RIGHT y " P* A3=ATTRIB IN LAST BUFF POS y J P* y p P y z P y PS:ATT EQU * y P LD A7,ATTRIB,TCABAS y P LD A8,CURATT,TCABAS y , P CF A14,ATMASF SEARCH ATTRIBUTE FORWARD y P S
0x19c490…19c624 Dummy {f00=0x007a, f01=0x018e, f02=» CF A14,GBUFFC GET BUFFER CHAR y P CWK A3,/1F ATTRIB CHAR? z & P RF(G) ASF10 NO z F @ P************************************************************ z ^ , P CWK A2,LBVDU-1 EOB +ATTRIB IN LAST POS z @ P******************************************************
0x19c624…19c7b8 Dummy {f00=0x007a, f01=0x018e, f02=» P RTN A14 { ( PASF10 CWK A2,LBVDU-1 END OF BUFFER? { P RF(L) ASF20 NO { @ P LDK A1,2 { X P RTN A14 { j PASF20 ADK A2,1 { z P RB ASF05 { P EJECT { P* { 6 P************************************************** { P* { P* GBUFFC {
0x19c7b8…19c94c Dummy {f00=0x007a, f01=0x0190, f02=» { P* | P* A2=CURSOR BINARY ADDR | P* A3=CHARACTER | 2 P* | H P* | R PGBUFFC EQU * | P LDK A3,0 | p P LDKL A4,BVDU | " P ADR A4,TCABAS GET VDU BUFFER | P ADR A4,A2 | & P LCR A3,A4 GET CHARACTER IN BUFF. | P RTN A14 |
0x19c94c…19cae0 Dummy {f00=0x007a, f01=0x0190, f02=»T 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: | 8 P* 1- A DEVICE WITH AN ATTACHED KEYBOARD IS EXECUTING } 6 $ P* A COMMAND. BIT 14=1 IN KBINH } r 2 P* 2- A PA-KEY OPERATION IS IN PROCESS PRIOR TO } < P* INITIATION OF A COMMAND FOR A DEVICE WITH AN ATTACHED
0x19cae0…19cc74 (2, 17) Dummy {f00=0x007a, f01=0x018e, f02=»TING ALLOWED DURING } n $ P* UPDATE AND DISPLAY SITUATION. ~ P* ~ D @ P*********************************************************** ~ N P* ~ PRESET EQU * ~ & P CM MODE,TCABAS RESET INSERT MODE ~ * P CF A14,LIOLOF TURN OFF "INSERT" LAMP ~ & P
0x19cc74…19ce08 Dummy {f00=0x007a, f01=0x0190, f02=» ~ ^ P RTN A14 P EJECT P & P . D P*************************************************************** 6 P* ~ 4 P* C O P Y : COPY CONTENTS IN VDU BUFFER ON $ P* HARDCOPY DEVICE P* @ P**********************
0x19ce08…19cf9c Dummy {f00=0x007a, f01=0x0190, f02=»BUFFER P ADR A3,TCABAS ADDRESSS P LDKL A6,LBVDU REQ LENGTH 0 , P LDK A4,/8B ORDER = WRITE ADDRESSED WAIT R P EJECT P* $ P* WRITE INTERTASK COMMUNICATION P* P* A3 = BUFFER ADDRESS P* A4 = ORDER P* A5 = "TO
0x19cf9c…19d130 Dummy {f00=0x007a, f01=0x40de, f02=» CF A14,REQTIM NO TIME OUT SUPERVISION P ST A5,ECBCW,A8 TO TASK ID . P ST A6,ECBRL,A8 REQ LENGTH P P ST A3,ECBBA,A8 r P LDR A7,A4 ORDER P LKM P DATA 1 P RTN A14 P END @ ESS P* A4 = ORDER P* A5 = "TO
0x19d130…19d2c4 Dummy {f00=0x007a, f01=0x2008, f02=» A7,/B7 TRANSFER PARAMETERS LKM , DATA 1 8 CF A14,ERASE ERASE SCREEN H 0 ,EM100 CF A14,TRPF TRANSMIT, PROGRAM FUNCTION j RB EM100 AGAIN * * END START @ 4,2,A13 ADR A14,A13 LOAD STACK
0x19d2c4…19d458 Dummy {f00=0x007a, f01=0x0190, f02=»ST ON j p P* k P* k PPOLL EQU * k " P LD A8,DWTECB,A7 k 4 P ST A8,DWTSAV+10,A6 k L P ST A8,DWTSAV+10,A7 k h P CM ECBRC,A8 k P CM ECBEL,A8 k P ANK A1,2 k P RF(Z) POL100 k " P LDKL A1,POLHLT RC:POLL HALTED k P RF POL225 k
0x19d458…19d5ec Dummy {f00=0x007a, f01=0x0190, f02=»,A1 GET NEXT TCA k P RB(Z) POL110 EMPTY PLACE l " P RF(NN) POL150 ACTIVE TC FOUND l : P ADK A3,1 l ` P RB(NZ) POL110 INACTIVE TCA l r P LDK A1,PLIST END OF POLLIST l P ADR A1,A6 l PPOL120 EQU * l P ST A1,PACT,A6 UPDATE PACT l PPOL130
0x19d5ec…19d780 Dummy {f00=0x007a, f01=0x018e, f02=» l n P CW A1,PINACT,A6 m P RF(E) POL134 LIST SCANNED m P LDR* A3,A1 m B " P RB(NN) POL132 NOT INACTIVE TC m V P ADK A3,1 m | $ P RF(NZ) POL138 INACTIVE TC FOUND m & P LDK A1,PLIST END OF LIST REACHED m P ADR A1,A6 m P RB POL132 m PPOL1
0x19d780…19d914 (2, 18) Opaque[0x194]
0x19d914…19daa8 # DirEnt {nam=»VDUPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f50, f03=0x0000}
0x19d914…19daa8 IdxSect {
0x19d914…19daa8 f00 = 0x007a // 0x19d914 @0x0
0x19d914…19daa8 f01 = 0x0018 // 0x19d916 @0x2
0x19d914…19daa8 gno = [ // 0x19d918 @0x4
0x19d914…19daa8 [0x00]: C0x007a.0x2.0
0x19d914…19daa8 [0x01]: C0x007a.0x3.0
0x19d914…19daa8 [0x02]: C0x007b.0x0.0
0x19d914…19daa8 [0x03]: C0x007b.0x1.0
0x19d914…19daa8 [0x04]: C0x007b.0x2.0
0x19d914…19daa8 [0x05]: C0x007b.0x3.0
0x19d914…19daa8 [0x06]: C0x007c.0x0.0
0x19d914…19daa8 [0x07]: C0x007c.0x1.0
0x19d914…19daa8 [0x08]: C0x007c.0x2.0
0x19d914…19daa8 [0x09]: C0x007c.0x3.0
0x19d914…19daa8 [0x0a]: C0x007d.0x0.0
0x19d914…19daa8 [0x0b]: C0x007d.0x1.0
0x19d914…19daa8 ]
0x19d914…19daa8 }
0x19daa8…19dc3c Dummy {f00=0x007a, f01=0x018e, f02=» 2 P IDENT VDUPRT REL 10.0 80-03-14 870150541000 P : P =6, BUFFER OVERFLOW B P REL 3.0 79-12-07 ` P =4, ESC IN MESSAGE TEXT | P REL 2.1 79-05-23 " P =5, SKIP CIRCULAR KB-BUFFER P REL 2.1 79-05-23 P =1,ODD BU
0x19dc3c…19ddd0 Dummy {f00=0x007a, f01=0x018e, f02=» p P REL 2.1 79-05-23 F P****************************************************************** $ P* n < P* V D U P R T : MODULE HANDLING MESSAGES COMING FROM x : P* MAIN FRAME, AND DISPLAYING THEM ON . P*
0x19ddd0…19df64 Dummy {f00=0x007a, f01=0x0190, f02=» P EJECT P* P* P* ENTRIES & P* 8 P* B * P ENTRY TRPF TRANSMIT, PROGRAM FUNCTION L , P ENTRY TRPA TRANSMIT, PROGRAM ATTENTION z $ P ENTRY ERASE ERASE ENTIRE SCREEN $ P ENTRY SETCUR CURSOR POSITIONING ( P ENTRY ERASUP
0x19df64…19e0f8 Dummy {f00=0x007a, f01=0x018e, f02=»RITE ONE CHAR IN CURSOR POS P ENTRY UPDATE $ " P ENTRY RFMDUP REPLACE FM & DUP : P ENTRY DCINP ` P ENTRY RLRBUF t P ENTRY DCGETM P ENTRY GTRBUF P* P* P* EXTERNALS P* P* P EXTRN LINHON,LINHOF S
0x19e0f8…19e28c Dummy {f00=0x007a, f01=0x0190, f02=» P EXTRN SNBUSY PRT P* " * P EXTRN I:EVA0 CREDIT EVALUATION TABLE , P* Z P EXTRN TASCII,TEBCDI TB3270 d P EJECT P* D P**************************************************************** P* ( P* CONDITIONAL ASSEMB
0x19e28c…19e420 Dummy {f00=0x007a, f01=0x0190, f02=»:= 1 f , PDCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2) 2 PRBUFL EQU 1050 RECEIVE BUFFER LENGTH IN WORDS < 0 PRBUFNR EQU 2 NUMBER OF RECEIVE BUFFERS (1-5) r 2 PTBUFL EQU 500 TRANSMIT BUFFER LENGTH IN WORDS 2 PTBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5
0x19e420…19e5b4 (2, 19) Dummy {f00=0x007a, f01=0x0190, f02=» P* P* * PTIMDC EQU 300 DC TIME OUT VALUE: 30 S PESC EQU /1B F PSBA EQU /11 Z PNULL EQU /7F NULL CHARACTER n & PNEWLIN EQU /7E NEW LINE CHARACTER $ PENDMES EQU /7D END MESSAGE CHAR " PFORMFD EQU /7C FORM FEED CHAR
0x19e5b4…19e748 Dummy {f00=0x007a, f01=0x0190, f02=»ING v P* P PECBBA EQU 2 PECBRL EQU 4 2 PECBEL EQU 6 F PECBRC EQU 8 Z PECBCW EQU 10 n P* P* P* CREDIT USED EQU P* P* P* ECB REL. ADDRESSES P* P* PDIS EQU 20 P*
0x19e748…19e8dc Dummy {f00=0x007a, f01=0x0190, f02=»BICW EQU ECBICR-DIS P XIF P IFT DCLIN=2 ( P IFF COPCMD=1 < PECBDC2 EQU ECBDC-DIS R PECBICW EQU ECBDC2-DIS n P XIF P IFF DCLIN=2 P IFT COPCMD=1 PECBICR EQU ECBDC-DIS PECBICW EQU ECBICR-DIS P XIF P
0x19e8dc…19ea70 Dummy {f00=0x007a, f01=0x0190, f02=» PECBSD EQU ECBKB-DIS P EJECT P* . P* 8 " P* BASE ADDRESS FOR TCA AND ECB B P* h PTCABAS EQU A11 r PCREBAS EQU A13 ECB P* P* P* TCA REL. ADDRESSES P* PTCT01 EQU 0 PPRINTER EQU TCT01+2
0x19ea70…19ec04 Dummy {f00=0x007a, f01=0x0190, f02=»AR l PCURATT EQU ATTRIB+2 & PWCC EQU CURATT+2 WCC/CCC CHARACTER & . PKBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR P $ PLINCNT EQU KBINH+2 LINE COUNTER 0 PDCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH 2 PICWORK EQU DCLENG+2 WORK FIELD INTERTASK C
0x19ec04…19ed98 Dummy {f00=0x007a, f01=0x0190, f02=» l * PCCC EQU COPNO+2 COPY COMMAND CHARACTER PMAIN EQU CCC+2 MAIN FRAME 6 & PMODE EQU MAIN+2 INSERT MODE SWITCH X $ PKEYS EQU MODE+2 KEY LOCK STATUS . PECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC 2 PECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &
0x19ed98…19ef2c Dummy {f00=0x007a, f01=0x0190, f02=»R DISPLAY t " PLPAGE EQU 48 LINES ON ONE PAGE * PLLINE EQU 80 80 CHAR PER DISPLAY LINE 8 . PTID EQU -4 TASK IDENTITY T:A DISPLACEMENT f P* & P* CONFIG DATA 'CB1' REL ADDRESSES P* " PNBRKBV EQU 0 NUMBER OF KB/VDUS & PNBRGTP EQU N
0x19ef2c…19f0c0 Dummy {f00=0x007a, f01=0x018e, f02=»# 1 f P IFT DCLIN=2 PMF2KBV EQU MF1GTP+16 PMF2GTP EQU MF2KBV+16 < P XIF X P* d P n P EJECT v D P**************************************************************** P* P* INPUT FROM DC P* 8 P****************
0x19f0c0…19f254 (2, 20) Dummy {f00=0x007b, f01=0x018e, f02=» P* PDCINP EQU * & P CF A14,GTRBUF GET RECEIVE BUFFER " P LD A8,ECBDCC,TCABAS L P CF A14,DCGETM READ MESSAGE h P IFF DCLIN=2 P CM ECBBLK+DC1,TCABAS P XIF P IFT DCLIN=2 P LD A1,MAIN,TCABAS P CW A8,ECBBLK+DC
0x19f254…19f3e8 Dummy {f00=0x007b, f01=0x0190, f02=» PDCIN20 EQU * P CM ECBBLK+DC2,TCABAS P LDR A1,A1 : P RF(Z) DCIN90 WRONG MF L P XIF j PDCIN30 EQU * v P IFT OFLIN=1 P LD A1,OFFFLG,TCABAS P RF(NZ) DCIN90 P XIF ( P LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH P
0x19f3e8…19f57c Dummy {f00=0x007b, f01=0x0190, f02=»BIT 15 = 0 AFTER DISPLAYING. P ST A5,KBINH,TCABAS $ . P CF A14,LINHON TURN ON 'KEYBOARD INHIBIT' @ . P CF A14,LSAVON TURN ON "SYSTEM AVAILABLE" r P CF A14,UPDATE P CF A14,DISPL P LD A2,PCURS,TCABAS P CF A14,ATMASB P
0x19f57c…19f710 Dummy {f00=0x007b, f01=0x0190, f02=»/E BIT 15:=0 KEYBOARD NOT TOTALLY P* INHIBITED ANY LONGER * P ST A2,KBINH,TCABAS J P LD A2,WCC,TCABAS f P ANK A2,2 P RF(Z) DCIN95 PDCIN60 EQU * . P CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' P LD A2,KBINH,TCABAS ,
0x19f710…19f8a4 Dummy {f00=0x007b, f01=0x0190, f02=» | P LD A4,ECBBA,A8 P CF A14,RLRBUF PDCIN95 EQU * 6 P CF A14,SNBUSY J P RTN A14 ` P EJECT p P* ~ P* READ DC P* PDCGETM EQU * P LDK A1,0 P CF A14,REQTIM P LDK A7,/82 READ, WAIT ( P CM ECBCW,
0x19f8a4…19fa38 Dummy {f00=0x007b, f01=0x0190, f02=»A 1 P RTN A14 P EJECT > P********************************************************** * P* l P* BUFFER HANDLING v P* > P********************************************************** P* PRLINK EQU RBUFL+RBUFL+2 P*
0x19fa38…19fbcc Dummy {f00=0x007b, f01=0x0190, f02=»2 P DATA *+RLINK P RES RBUFL P IFF RBUFNR=3 2 P DATA *+RLINK H P RES RBUFL ^ P IFF RBUFNR=4 p P DATA *+RLINK P RES RBUFL P XIF P DATA 0 END OF CHAIN P RES RBUFL P* P* PTLINK EQU TB
0x19fbcc…19fd60 Dummy {f00=0x007b, f01=0x0190, f02=»FL P IFF TBUFNR=2 P DATA *+TLINK P RES TBUFL 6 P IFF TBUFNR=3 H P DATA *+TLINK ^ P RES TBUFL t P IFF TBUFNR=4 P DATA *+TLINK P RES TBUFL P XIF P DATA 0 END OF CHAIN P RES TBUFL P* P
0x19fd60…19fef4 (2, 21) Dummy {f00=0x007b, f01=0x0190, f02=»,A4 P ADK A7,2 SKIP P LDKL A9,2 FOR DV ADDRESS " P RTN A14 F P* V P* GET RECEIVE BUFFER ` P* | PGTRBUF EQU * P LDKL A5,RBUF P* P* PGETBUF EQU * P LDR* A4,A5 P RF(Z) GETB50 NO BUFFER FREE
0x19fef4…1a0088 Dummy {f00=0x007b, f01=0x0190, f02=» TASK P RB GETBUF P* P* RELEASE BUFFER * P* B PRLRBUF EQU * L P LDKL A2,RBUF ` PRELB05 EQU * v P SUK A4,2 POINT TO LINK PRELB10 EQU * P LDR* A3,A2 P RF(Z) RELB20 P LDR A2,A3 P RB RELB10
0x1a0088…1a021c Dummy {f00=0x007b, f01=0x0190, f02=» P EJECT P* P* " P* STORE CHARACTER IN DC BUFFER * P* P P* A2=CHAR Z P* A7=BUFFER POINTER l " P* A9=BUFFER CHARACTER COUNTER P* P* PPDCCH EQU * P CWK A9,TBUFL+TBUFL =3 P RF(NL) PDCCHR OVE
0x1a021c…1a03b0 Dummy {f00=0x007b, f01=0x0190, f02=»ORE ATTENTION ID FROM A2 P* P* * PPAID CF A14,PDCCH 4 P RTN A14 N P* ^ P* h ( P* GET CHARACTER FROM DC BUFFER TO A2 r P* P* PGDCCH LCR A2,A7 P ANK A2,/FF & P RF(NZ) GDCC:1 NOT NULL CHARACTER $ P
0x1a03b0…1a0544 Dummy {f00=0x007b, f01=0x0190, f02=»A1 FROM DC BUFFER x P* P* $ PGETADR CF A14,GDCCH . P LC A1,TEBCDI,A2 J P ANK A1,/3F b P SLL A1,6 v P CF A14,GDCCH P LC A2,TEBCDI,A2 P ANK A2,/3F P ORR A1,A2 P RTN A14 P EJECT P* P*
0x1a0544…1a06d8 Dummy {f00=0x007b, f01=0x0190, f02=» LDKL A8,ECBDC P IFT DCLIN=2 P LD A7,MAIN,TCABAS * P RF(Z) DC050 D P LDKL A8,ECBDC2 X P XIF p PDC050 EQU * | P ADR A8,CREBAS P LDKL A1,TIMDC P CF A14,REQTIM P ST A9,ECBRL,A8 REQ LENGTH $ P ST A12,ECBBA,A8 BUF
0x1a06d8…1a086c Dummy {f00=0x007b, f01=0x0190, f02=» LDK A7,/86 PDC100 EQU * P LKM ( P DATA 1 4 PDC200 EQU * D P LDR A4,A12 X P CF A14,RLWBUF l $ P LD A1,ECBRC,A8 GET RETURN CODE P RF(Z) DC300 P LD A7,KBINH,TCABAS ( P ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD P S
0x1a086c…1a0a00 Dummy {f00=0x007b, f01=0x0190, f02=» LDK A7,/31 RESET KEYBOARD ECB BUFFER P LDKL A8,ECBKB . P ADR A8,CREBAS D P LKM Z P DATA 1 f P* v P RTN A14 PDC300 EQU * . P CF A14,LSAVON TURN ON 'SYSTEM AVAILABLE' P RTN A14 P EJECT P* P* ( P
0x1a0a00…1a0b94 (2, 22) Dummy {f00=0x007b, f01=0x0190, f02=»STORE BUFFER ADDRESS IN DC BUFFER P* * P* A1=BINARY BUFFER ADDRESS 4 P* V P* ` PBUFADR LDR A2,A1 j P SRL A2,6 P ANK A2,/3F & P LC A2,TASCII,A2 CONVERT TO ASCII P CF A14,PDCCH P LDR A2,A1 P ANK A2,/3F
0x1a0b94…1a0d28 Dummy {f00=0x007b, f01=0x0190, f02=»MAGE BUFFER n P* P* A3=BUFFER POSITION BINARY P* A4=BUFFER POINTER B P* ^ P* h " PRDMOD LDK A3,0 RESET POSITION r P LDKL A4,BVDU " P ADR A4,TCABAS BUFFER POINTER @ P****************************************************
0x1a0d28…1a0ebc Dummy {f00=0x007b, f01=0x0190, f02=» P ADR A4,TCABAS P P LDR A1,A2 " P ANK A1,/60 ATTRIBUTE ??? 4 P RF(Z) RD200 YES!!! V P r @ P************************************************************ z PRD100 CWK A3,LBVDU P RF(NL) RDMODE ALL EXAMINED P LCR A2,A4 G
0x1a0ebc…1a1050 Dummy {f00=0x007b, f01=0x0190, f02=» @ P************************************************************ ! P LDR A1,A2 ! H P ANK A1,/60 ! Z P RF(Z) RD200 ATTRIBUTE CHAR ! n PRD110 CWK A2,NULL ! " P RB(E) RD100 DON'T STORE NULL ! * P CF A14,PDCCH STORE CHAR IN DC BUFFER ! P RB RD10
0x1a1050…1a11e4 Dummy {f00=0x007b, f01=0x0190, f02=» ! t P LCR A2,A4 " P ADK A3,1 " P ADK A4,1 " , P LDR A1,A2 " > P ANK A1,/60 " P $ P RB(NZ) RD210 NO ATTRIBUTE CHAR " d F P******************************************************** 78-05-11 " * P CWK A3,LBVDU ALL BUFFER EXAMINED ??? " P RF(
0x1a11e4…1a1378 Dummy {f00=0x007b, f01=0x0190, f02=»0 LDK A2,SBA " " P CF A14,PDCCH SBA TO DC BUFFER # P LDR A1,A3 BUFFER POSITION # : P CF A14,BUFADR TO DC BUFFER # P RB RD100 # PRDMODE RTN A14 # P EJECT # P* # P* # 4 P* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA # P* #
0x1a1378…1a150c Dummy {f00=0x007b, f01=0x0190, f02=»FFER INDEX, INITIALLY ZERO # P* $ " P* A3=DISPLAY BUFFER POSITION $ , P* A4=DISPLAY BUFFER POINTER $ P P* $ t P* $ ~ PUPDATE EQU * $ P CM ICWORK,TCABAS $ P LD A8,ECBDCC,TCABAS $ & P LD A7,ECBBA,A8 DC BUFFER ADDRESS $ $ P SUR A9,A9 R
0x1a150c…1a16a0 Dummy {f00=0x007b, f01=0x0190, f02=»SCAPE $ | PUPD010 EQU * % " P CF A14,GDCCH GET COMMAND CODE % " P CWK A2,/31 % H P RF(E) UPD100 WRITE % P CWK A2,/35 % x P RF(E) UPD120 ERASE/WRITE % P CWK A2,/3F % ( P RF(E) UPD140 ERASE ALL UNPROTECTED % P IFT COPCMD=1 % P CWK
0x1a16a0…1a1834 (2, 23) Dummy {f00=0x007b, f01=0x0190, f02=»COMMAND % P* & PUPD100 EQU * & ( P CF A14,PWCC PROCESS WCC FOR MDT BIT & . P LD A3,PCURS,TCABAS & Z ( P LDR A4,A3 START IN CURSOR POSITION & v P ADKL A4,BVDU & P ADR A4,TCABAS & $ P LDK A5,1 INDICATE WCC, IC OR RA & P RF UPD220 & P
0x1a1834…1a19c8 Dummy {f00=0x007b, f01=0x0190, f02=»ASE ALL UNPROTECTED & P* ' PUPD140 EQU * ' & ( P CF A14,ERASUP ERASE ALL UNPROTECTED ' : ( P RF UPDEND NO TEXT WITH THIS COMMAND ' f P* ' . P* TAKE CARE OF WRITE CONTROL CHARACTER WCC ' P* ' " PUPD200 CF A14,PWCC PROCESS WCC ' $ P LDK A5,1
0x1a19c8…1a1b5c Dummy {f00=0x007b, f01=0x0190, f02=»0 START FROM POSITION ZERO ' P LDKL A4,BVDU ( " P ADR A4,TCABAS ( 8 PUPD220 CW A9,DCLENG,TCABAS ( N 0 P RF(NL) UPDEND ALL RECEIVED CHARS PROCESSED ( p * P CF A14,GDCCH GET CHAR FROM DC BUFFER ( P CWK A2,/20 ( P RF(L) UPD300 ORDER ( PUPD230
0x1a1b5c…1a1cf0 Dummy {f00=0x007b, f01=0x0190, f02=» RF(E) UPD260 END OF VIDEO BUFFER ( PUPD250 EQU * ) * $ P SCR A2,A4 STORE IN VIDEO BUFFER ) > P ADK A3,1 ) f P ADK A4,1 ) x P RB UPD220 ) PUPD260 LDK A3,0 ) P LDKL A4,BVDU ) P ADR A4,TCABAS ) P RB UPD250 ) PUPD300 EQU * ) : P**
0x1a1cf0…1a1e84 Dummy {f00=0x007b, f01=0x018e, f02=» SUR A3,A3 FIRST SCREEN POSITION ) P LDKL A4,BVDU * ( " P ADR A4,TCABAS BUFFER POSITION * > PUPD302 EQU * * d : P******************************************* 78-08-15 * x P CWK A2,/1D * P RF(E) UPD320 START FIELD * P CWK A2,/11 * $ P RF(E) U
0x1a1e84…1a2018 Dummy {f00=0x007b, f01=0x0190, f02=» * t P CWK A2,/14 + $ P RF(E) UPD500 REPEAT TO ADDRESS + P CWK A2,/12 + D . P RF(E) UPD540 ERASE UNPROTECTED TO ADDRESS + X P CWK A2,/0C + P RF(NE) UPD305 + P LDK A2,FORMFD FORM FEED + P RB UPD230 + PUPD305 CWK A2,/19 + P RF(NE)
0x1a2018…1a21ac Dummy {f00=0x007b, f01=0x0190, f02=»NEWLIN NEW LINE + P RB UPD230 , PUPD315 EQU * , * P CWK A2,/18 , > P RF(NE) UPD317 ILLEGAL ORDER , R P LDK A2,/30 , v P RB UPD230 , P , PUPD317 EQU * , P CWK A2,ESC ESCAPE ??? , P RB(E) UPD010 YES!! GET TEXT , P EJECT , P
0x1a21ac…1a2340 Dummy {f00=0x007b, f01=0x0190, f02=»ER , t P RB UPD230 - P - @ P************************************************************ - $ P* - h P* RELEASE RECEIVE BUFFER - r P* - * P************************************* - P - PUPDEND EQU * - P LD A8,ECBDCC,TCABAS - P LD
0x1a2340…1a24d4 (2, 24) Dummy {f00=0x007c, f01=0x0190, f02=» CF A14,GDCCH GET ATTRIBUTE CHAR - P LC A2,TEBCDI,A2 . ( * P LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR . @ P ANK A1,1 . n P SRL A2,1 . P ANK A2,/1E . P ORR A2,A1 . P RB UPD240 . P* . P* SET BUFFER ADDRESS . P* . $ PUPD340 CF A14,
0x1a24d4…1a2668 Dummy {f00=0x007c, f01=0x0190, f02=» . P ADR A4,TCABAS / P RB UPD220 / P* / 0 P* INSERT CURSOR / : P* / R 0 PUPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS / $ P LDK A5,1 INDICATE WCC, IC OR RA / P RB UPD220 / P EJECT / P* / P* PROGRAM TAB / P* / PUPD400
0x1a2668…1a27fc Dummy {f00=0x007c, f01=0x0190, f02=» LDK A5,0 / P CWK A3,LBVDU 0 P RB(NL) UPD210 END OF BUFFER 0 ( P LCR A2,A4 0 L P ADK A3,1 0 ^ P ANK A2,/7F 0 p P CWK A2,/20 0 P RF(L) UPD415 0 P SCR A1,A4 STORE NULL 0 P ADK A4,1 0 P RB UPD410 0 PUPD415 EQU * 0 P ADK
0x1a27fc…1a2990 Dummy {f00=0x007c, f01=0x0190, f02=» * P ABL(NL) UPD210 END OF DISPLAY BUFFER 1 P LCR A2,A4 1 2 P ADK A3,1 1 D P ADK A4,1 1 V P ANK A2,/7F 1 h P CWK A2,/20 1 | P RB(L) UPD420 1 P RB UPD430 1 P EJECT 1 P* 1 P* REPEAT TO ADDRESS 1 P* 1 ( PUPD500 CF A14,GETA
0x1a2990…1a2b24 Dummy {f00=0x007c, f01=0x0190, f02=» A5,1 INDICATE WCC, IC OR RA 1 " P ORK A2,/80 INDICATE MODIFIED 2 $ P 2 J B P**************************************************** 78-07-02 2 R P 2 2 P CWR A3,A1 NULLS TO ALL SCREEN POSITIONS ???? 2 P RF(E) UPD530 YES!!! 2 P 2 D P**************
0x1a2b24…1a2cb8 Dummy {f00=0x007c, f01=0x0190, f02=»DK A3,0 2 P LDKL A4,BVDU WRAP AROUND 3 P ADR A4,TCABAS 3 2 PUPD520 CWR A3,A1 3 H $ P ABL(E) UPD220 ALL CHAR REPEATED 3 ` P 3 F P******************************************************* 78-07-02 3 PUPD530 EQU * 3 D P**************************
0x1a2cb8…1a2e4c Dummy {f00=0x007c, f01=0x0190, f02=» P* 4 " P* ERASE UNPROTECTED TO ADDRESS 4 P* 4 4 ( PUPD540 CF A14,GETADR GET END ADDRESS 4 > P CWK A3,LBVDU 4 j " P RB(NL) UPDEND INVALID ADDRESS 4 0 P CF A14,ERASUA ERASE UNPROTECTED TO ADDRESS 4 P ABL UPD220 4 P IFT COPCMD=1 4 P EJE
0x1a2e4c…1a2fe0 Dummy {f00=0x007c, f01=0x0190, f02=»PORTED FOR VDU 4 n P ADK A7,1 5 P BYPASS CCC 5 ( " P CF A14,GDCCH GET FROM DEVICE 5 > P IFT EBCDIC=1 5 d & P LC A2,TEBCDI,A2 CONVERT TO EBCDIC 5 z P XIF 5 P IFT COPCMD=1 5 " P LD A3,6,CREBAS 'CB1' ADDRESS 5 P LDK A4,MF1KBV-1 5 P IFT
0x1a2fe0…1a3174 (2, 25) Dummy {f00=0x007c, f01=0x0190, f02=» PUPD602 EQU * 6 P ADR A4,A3 CONFIG TABLE -1 6 & P LD A5,NBRKBV,A3 NUMBER OF KB/VDUS 6 : ( P ADR A4,A5 LAST KB/VDU CONFIGURATED 6 d PUPD604 EQU * 6 $ P CCR A2,A4 DV-ADDRESS MATCHES ? 6 P RF(E) UPD610 YES 6 P SUK A4,1 6 P SUK A5,1 6
0x1a3174…1a3308 Dummy {f00=0x007c, f01=0x0190, f02=» LKM 6 0 P DATA 10 ABORT LAST REQUEST IF NOT COMPLETED 7 & P ADKL A5,/4B40 TASKID FROM DEVICE 7 @ $ P LD A2,-4,CREBAS GET OWN TASKID 7 j & P ST A2,ICWORK,TCABAS PUT IN BUFFER 7 * P LDK A4,/0B WRITE ADDRESSED , NO WAIT 7 P LDK A6,2 REQ LENGTH 7 P L
0x1a3308…1a349c Dummy {f00=0x007c, f01=0x018e, f02=» 7 P* 8 P* 8 & P* PROCESS WRITE CONTROL CHARACTER 8 P* 8 F * P* ONLY RESET MDT BIT IS TAKEN CARE OF 8 P P* 8 ~ P* 8 PPWCC CF A14,GDCCH GET WCC 8 P LC A2,TEBCDI,A2 IN EBCDIC 8 P ST A2,WCC,TCABAS SAVE IT 8 P ANK A2,/04 8
0x1a349c…1a3630 Dummy {f00=0x007c, f01=0x0190, f02=» 8 P LD A2,ECBBA,A8 9 P LDK A7,/2B 9 P SC A7,1,A2 =1 9 4 P LDK A7,/07 BELL =1 9 L P SC A7,2,A2 =1 9 h P SC A7,3,A2 =1 9 P LDK A7,4 9 P ST A7,ECBRL,A8 9 P LDK A7,/86 9 P LKM 9 P DATA 1 9 P LD A8,ECBDCC,TCABAS 9
0x1a3630…1a37c4 Dummy {f00=0x007c, f01=0x0190, f02=» A14 NO ACTION 9 P* : P* : P* RESET ALL MDT BITS : * P* : F P* : P PRESMDT LDK A3,0 : Z P LDKL A4,BVDU : r P ADR A4,TCABAS : PRESM10 CWK A3,LBVDU : P RB(NL) PWCC10 ALL DONE : P LCR A2,A4 GET CHAR : P ANK A2,/60 :
0x1a37c4…1a3958 Dummy {f00=0x007c, f01=0x0190, f02=»1 : P RB RESM10 ; P EJECT ; P* ; * P* ; 4 P* ERASE ENTIRE SCREEN ; > P* ; P* ; f PERASE LDK A3,0 ; p P LDKL A4,BVDU ; P ADR A4,TCABAS ; P LDK A2,NULL ; PERAS20 CWK A3,LBVDU ; P RF(NL) ERAS25 ALL ERASED ; P SCR
0x1a3958…1a3aec Dummy {f00=0x007c, f01=0x018e, f02=» 0 P ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN < P CM ATTRIB,TCABAS < 8 , P LD A1,PRINTER,TCABAS CHECK DEVISE TYPE < R ( P RF(NZ) ERAEND PRINTER, NOT DISPLAY < ( P STR A7,A14 SAVE A7 AND A8 ON STACK < P ST A8,-2,A14 < P LDKL A8,ECBVDU < P
0x1a3aec…1a3c80 Dummy {f00=0x007c, f01=0x0190, f02=» " P ST A7,ECBRL,A8 REQ LENGTH = 2 = P LDK A7,/86 WRITE = * P LKM = D P DATA 1 = P P LD A8,-2,A14 = ` " P LDR* A7,A14 RESTORE A7 AND A8 = v PERAEND RTN A14 = P EJECT = P* = P* = P* ERASE ALL UNPROTECTED = P* = P* = P
0x1a3c80…1a3e14 (2, 26) Dummy {f00=0x007c, f01=0x0190, f02=» CM PCURS,TCABAS FIND FIRST UNPROTECTED POS = H P******************************************************************** > 4 , P LC A2,1919,A4 GET LAST SCREEN CHARACTER > P ANK A2,/7F > P CWK A2,/20 ATTRIBUTE ??? > $ P RF(L) ERU:01 YES!! WE GOT IT!! >
0x1a3e14…1a3fa8 Dummy {f00=0x007c, f01=0x0190, f02=»LBVDU > P RF(NL) ERASU2 ? P LCR A2,A4 GET CHAR ? $ P ANK A2,/7F ? @ P ADK A3,1 ? T P ADK A4,1 ? f P CWK A2,/20 ? x P RB(NL) ERASU1 NO ATTRIBUTE ? PERU:01 EQU * ? P ANK A2,/10 ? P RB(NZ) ERASU1 PROTECTED ? * P ST A3,PCURS,TCA
0x1a3fa8…1a413c Dummy {f00=0x007c, f01=0x018e, f02=»U ? P ADR A4,TCABAS @ P RF ERASU4 @ PERASU3 EQU * @ 2 P LDR A3,A3 @ F 6 P RF(Z) ERASU4 UNPROTECTED ATT. IN LAST SCREEN POS. @ X $ P SUK A3,1 GET BACK TO ATTRIBUTE @ P SUK A4,1 - " - @ PERASU4 EQU * @ P LDK A1,0 @ P LDK A6,NU
0x1a413c…1a42d0 Dummy {f00=0x007c, f01=0x0190, f02=» P* A * PERASUA LDK A6,NULL+/80 ERASE CHARACTER A $ P ******************* 78-09-11 A < " P CWK A3,LBVDU WRAP AROUND ??? A d P RF(L) ERAS:1 NO!! A P LDK A3,0 BUFFERINDEX A P LDKL A4,BVDU A , P ADR A4,TCABAS ABSOLUTE BUFFER ADDRESS A P
0x1a42d0…1a4464 Dummy {f00=0x007c, f01=0x0190, f02=» P ANK A2,/7F B ( P CWK A2,/20 ATTRIBUTE CHARACTER ??? B P RF(NL) ERAS35 NO!!! B D P ANK A2,/10 B ` " P RF(NZ) ERAS70 PROTECTED FIELD B t P LC A2,1919,A4 B P ANK A2,/FE B P SC A2,1919,A4 RESET MDT BIT B P RF ERAS35 B $ P ***********
0x1a4464…1a45f8 Dummy {f00=0x007c, f01=0x0190, f02=»D B x P ADR A4,TCABAS C PERAS33 EQU * C P CWR A3,A1 C 4 ( P RB(E) ERAEND ALL UNPROTECTED ERASED C F . PERAS35 LCR A2,A4 GET CHAR FROM VDU BUFFER C r P ANK A2,/7F C P CWK A2,/20 C P RF(L) ERAS50 ATTRIBUTE CHAR C P XRK A2,NULL C P RF(
0x1a45f8…1a478c Dummy {f00=0x007c, f01=0x0190, f02=»DK A3,1 C P ADK A4,1 D P ANK A2,/10 D " " P RF(NZ) ERAS60 PROTECTED FIELD D 6 P LC A2,-1,A4 D P ANK A2,/FE RESET MDT BIT D p P SC A2,-1,A4 D P RB ERAS30 D PERAS60 CWK A3,LBVDU D P RF(L) ERAS65 D P LDK A3,0 D P LDKL A4,BVD
0x1a478c…1a4920 Dummy {f00=0x007c, f01=0x0190, f02=» A2,A4 D P ANK A2,/7F E P CWK A2,/20 E " " P RB(L) ERAS50 ATTRIBUTE FOUND E 6 P ADK A3,1 E P ADK A4,1 E n P RB ERAS60 E P EJECT E P* E P* E P* TRANSMIT PROGRAM ATTENTION E P* E P* A2=AID E P* E P* E * PTR
0x1a4920…1a4ab4 (2, 27) Dummy {f00=0x007c, f01=0x0190, f02=»TR050 EQU * E " P RTN A14 TRANSMISSION TROUBLE F PTRRTN RTN A14 F : P EJECT F P P* F ^ P* F h P* TRANSMIT PROGRAM FUNCTION F r P* F P* A2=AID F P* F P* F * PTRPF CF A14,GTWBUF GET TRANSMIT BUFFER F PTRPF10 CF A14,PAID STO
0x1a4ab4…1a4c48 Dummy {f00=0x007c, f01=0x0190, f02=» F P* G P* G $ P* DISPLAY MODIFIED FIELDS ON VDU G P* G D P* G N P* A3=VDU POSITION G X P* A4=VDU IMAGE POINTER G r P* A5=MODIFIED INDICATOR G P* A7=VDU LINE OUTPUT POINTER G P* A8=VDU ECB G P* A9=VDU OUTPUT CHAR COUNTER G
0x1a4c48…1a4ddc Dummy {f00=0x007c, f01=0x0190, f02=» G 8 P SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING H P LDK A3,0 H D P LDKL A4,BVDU H V P ADR A4,TCABAS H l , P CF A14,SPACES PUT SPACES IN LINE BUFFER H D P**************************************************************** H 6 P LC A2,1919,A4
0x1a4ddc…1a4f70 Dummy {f00=0x007c, f01=0x0190, f02=»NK A2,6 H P XRK A2,6 I > P ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION I " P RF(Z) DIS210 NON DISPLAY I d 4 P CF A14,INTCHK INSERT HIGH/LOW INTENS. IN BUFFER I H P******************************************************************* I
0x1a4f70…1a5104 Dummy {f00=0x007c, f01=0x018e, f02=» CHECK IF LOW/HIGH INTENSITY I PDIS110 EQU * J $ P CWK A3,LBVDU J 8 P RF(NL) DIS900 ALL SCANNED J N P LCR A2,A4 GET CHAR J p > P************************************************ 78-08-15 J P J " P CF A14,SET:M SET MODIFIED BIT J P J > P****
0x1a5104…1a5298 Dummy {f00=0x007c, f01=0x0190, f02=» P ADK A3,1 K P ADK A4,1 K P ADK A7,1 K ( P ADKL A9,1 K : P CWK A2,/20 K L P RF(L) DIS200 ATTRIBUTE CHAR K ` P CWK A2,NULL K . P RB(E) DIS100 NULL EQUALS SPACE AT DISPLAY K P CWK A2,/7D K P RF(NE) DIS120 K P LDK A2,/39 K P
0x1a5298…1a542c Dummy {f00=0x007c, f01=0x0190, f02=»DIS122 EQU * K 4 P SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER L P RB DIS100 L L PDIS200 ANK A2,6 L ^ " P XRK A2,6 CHECK IF NONDISPLAY L v 2 P ST A2,INTATT,TCABAS SAVE ATTRIBUTE CHARACTER L P RF(Z) DIS210 NON DISPLAY L P ANK A2,4 L P R
0x1a542c…1a55c0 Dummy {f00=0x007c, f01=0x0190, f02=» EQU * L * P SC A2,-1,A7 STORE INTENSITY CHARACTER M " P ADKL A10,1 INCREMENT COUNTER M < P ADK A7,1 M b P RB DIS100 M t PDIS210 EQU * M P CWK A9,LLINE M P RF(L) DIS220 M $ P CF A14,DISLIN DISPLAY THIS LINE M PDIS220 EQU * M P CWK A
0x1a55c0…1a5754 (2, 28) Dummy {f00=0x007d, f01=0x0190, f02=» M " P CF A14,SET:M SET MODIFIED BIT N P N . > P************************************************ 78-08-15 N 6 PDIS225 EQU * N x " P ANK A2,/7F RESET DISPLAY BIT N P SCR A2,A4 N P ADK A3,1 N P ADK A4,1 N P ADK A7,1 N P ADKL A9,1 N
0x1a5754…1a58e8 Dummy {f00=0x007d, f01=0x0190, f02=» N z P* O P* O PSETCUR EQU * O PDIS900 LDK A1,2 REQ LENGTH O 0 PDIS905 ST A1,ECBRL,A8 O R & P LD A1,PCURS,TCABAS GET CURSOR POS O p & P LDKL A2,/101 START ON LIN 1 POS 1 O P ST A2,ECBCW,A8 O P LDKL A2,/100 O PDIS910 CWK A1,LLINE O
0x1a58e8…1a5a7c Dummy {f00=0x007d, f01=0x0190, f02=»T CURSOR AND WRITE O P LKM P P DATA 1 P & 0 P CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE P 6 P RTN A14 P j P EJECT P z P* P P* P 0 P* WRITE ONE CHAR FROM A2 IN CURSOR POSITION P P* P P* P PWCHAR LD A1,ECBBA,A8 P P CF A14,
0x1a5a7c…1a5c10 Dummy {f00=0x007d, f01=0x0190, f02=»************************************************************* P P* Q F 8 P* REPLACE FM & DUP WITH '*' RESP. ';', IF PRESENT Q P P* CHARACTER IN A2 Q P* Q J P********************************************************************* Q P* Q
0x1a5c10…1a5da4 Dummy {f00=0x007d, f01=0x0190, f02=»NE) RFMD20 Q P LDK A2,/3B R PRFMD20 EQU * R & P RTN A14 R : P EJECT R J P* R X P* R b ( P* PUT SPACES TO DISPLAY LINE BUFFER R l P* R P* R PSPACES LD A7,ECBBA,A8 R P ADK A7,2 BUFFER ADDRESS R P LDKL A9,LLINE LINE LENGTH R
0x1a5da4…1a5f38 Dummy {f00=0x007d, f01=0x018e, f02=»A9,2 R P RB(P) SPAC10 S $ P LDK A2,0 CLEAR A2=CHAR REGISTER S " & P LDK A5,0 RESET MODIFIED INDICATOR S J P LD A7,ECBBA,A8 S t P ADK A7,2 BUFFER ADDRESS S & P SUR A9,A9 RESET LINE CHAR COUNTER S P RTN A14 S P EJECT S P* S P* S ( P
0x1a5f38…1a60cc Dummy {f00=0x007d, f01=0x018e, f02=» PDISLIN EQU * T P LDR A7,A5 T $ P ANK A5,/80 ANY MODIFICATIONS ?? T * " P RF(Z) DISL10 NO MODIFICATIONS T R P LDK A1,2 T x ( P XRK A7,/A0 ONLY SPACES IN BUFFER ?? T P RF(Z) DIS:10 YES!! T P LDKL A1,LLINE+2 T . P ADR A1,A10 ADD NR OF INTENSIT
0x1a60cc…1a6260 Dummy {f00=0x007d, f01=0x0190, f02=» T p P U P U $ P LDK A7,/8B SET CURSOR AND WRITE U P LKM U @ P DATA 1 U L P EJECT U P U j H P******************************************************************** U r P* U 0 P* EXECUTE FAST OUTPUT TO BLANK REMAINIG PART U P* OF THE LIN
0x1a6260…1a63f4 (2, 29) Dummy {f00=0x007d, f01=0x018e, f02=» U p P ANK A1,X'FF' COLUMN NUMBER V P SUK A1,81 LAST POSITION ??? V , 4 P RF(Z) DISL10 YES!! NO FAST OUTPUT ON THIS LINE V P P V " P LD A1,ECBBA,A8 BUFFER ADRESS V , P LDK A2,X'2B' DONT MOVE CURSOR ONE LINE V P SC A2,1,A1 =1 V * P LDKL A2,X
0x1a63f4…1a6588 Dummy {f00=0x007d, f01=0x018e, f02=» V r P ST A2,ECBRL,A8 W P LDK A7,X'86' WRITE ORDER W P LKM W B P DATA 1 W N P W ^ PDISL10 EQU * W f P LDK A2,1 W z ( P SC A2,ECBCW+1,A8 POS 1 ON NEXT LINE W P LDKL A2,/100 W * P ADS A2,ECBCW,A8 INCREMENT LINE NUMBER W $ P RB SPACES P
0x1a6588…1a671c Dummy {f00=0x007d, f01=0x018e, f02=» P* X > P* I N T C H K CHECK IF LINE SHOULD BE PRINTED WITH X 0 P* HIGH OR LOW INTENSITY X P P* X J P********************************************************************** X P X , PINTCHK SUR A10,A10 RESET INTENSITY C
0x1a671c…1a68b0 Dummy {f00=0x007d, f01=0x0190, f02=» P RF(Z) INT:10 YES Y P Y P LDK A2,X'1E' LOW INTENSITY Y & P RF INT:20 HIGH INTENSITY Y J P Y l & PINT:10 LDK A2,X'1F' HIGH INTENSITY Y t P Y 8 PINT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER Y & P ADK A7,1 INCREMENT BUFFER POINTER Y
0x1a68b0…1a6a44 Dummy {f00=0x007d, f01=0x0190, f02=»**************************************** Y x P* Z 0 @ P* SET:M SET MODIFIED BIT IF CHARACTER HAS BEEN MODIFIED Z : P* Z ~ F P****************************************************************** Z P Z PSET:M CWK A2,/20 Z & P RF(L) SET:M2 ATTRIBUT
0x1a6a44…1a6bd8 Dummy {f00=0x007d, f01=0x4096, f02=»TE Z n ( P ORK A5,/A0 MODIFIED NULL CHARACTER [ P RTN A14 [ 6 & PSET:M1 ORR A5,A2 SET MODIFIED BIT [ F PSET:M2 RTN A14 [ p P END [ @ [ **************************************************** Z P Z PSET:M CWK A2,/20 Z & P RF(L) SET:M2 ATTRIBUT
0x1a6bd8…1a6d6c Dummy {f00=0x007d, f01=0x2008, f02=» NT DUMMY END @ (
0x1a6d6c…1a6f00 Dummy {f00=0x007d, f01=0x018e, f02=» MOVE DATA FROM USER BUFFER P XIF ] $ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS ] 0 P LD A3,ECBRL,A8 GET LENGTH ] Z PPOL127 EQU * ] | & P ST A4,FECBBA SAVE BUFFER ADDRESS ] ( P SUK A3,2 SKIP FIRST WORD OF BUFFER ] P ST A3,FECBRL SAVE LENGTH ] P
0x1a6f00…1a7094 (2, 30) Opaque[0x194]
0x1a7094…1a7228 # DirEnt {nam=»PRT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fb0, f03=0x0000}
0x1a7094…1a7228 IdxSect {
0x1a7094…1a7228 f00 = 0x007d // 0x1a7094 @0x0
0x1a7094…1a7228 f01 = 0x000a // 0x1a7096 @0x2
0x1a7094…1a7228 gno = [ // 0x1a7098 @0x4
0x1a7094…1a7228 [0x00]: C0x007d.0x2.0
0x1a7094…1a7228 [0x01]: C0x007d.0x3.0
0x1a7094…1a7228 [0x02]: C0x007e.0x0.0
0x1a7094…1a7228 [0x03]: C0x007e.0x1.0
0x1a7094…1a7228 [0x04]: C0x007e.0x2.0
0x1a7094…1a7228 ]
0x1a7094…1a7228 }
0x1a7228…1a73bc Dummy {f00=0x007d, f01=0x0190, f02=» . P IDENT PRT REL 10.0 80-03-14 870150541000 P 6 P =1, ODD BUFFER ADDRESS > P REL 2.1 79-05-23 ` N P************************************************************************* | P* F P* P R T : MODULE PRINTING MAIN FRAME MESSAGE
0x1a73bc…1a7550 Dummy {f00=0x007d, f01=0x0190, f02=» h P* J P********************************************************************** P* ` P EJECT j P x P P* P* P* ENTRY PARAMETERS P* P* P ENTRY SNBUSY P ENTRY PRINT P ENTRY ICREAD
0x1a7550…1a76e4 Dummy {f00=0x007d, f01=0x0190, f02=»E FM & DUP CHARS | P EXTRN GTRBUF P EXTRN DCGETM . P EXTRN RELBUF D P EXTRN DC1INQ Z P EXTRN DC2INQ p P EXTRN REQTIM P* , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE P* P EXTRN EMULA START P EJECT P
0x1a76e4…1a7878 Dummy {f00=0x007d, f01=0x0190, f02=»************************************* P . 2 POFLIN EQU 0 OFFLINE HANDLING POSSIBLE IF ::= 1 6 , PDCLIN EQU 1 NUMBER OF MAIN FRAMES 81-2) l & PCOPCMD EQU 0 COPY COMMAND IF := 1 P* P* EQUATES P* P* P* * PTIMDC EQ
0x1a7878…1a7a0c Dummy {f00=0x007d, f01=0x0190, f02=»E CHARACTER z $ PENDMES EQU /7D END MESSAGE CHAR " PFORMFD EQU /7C FORMFEED CHAR. < PFMCH EQU /60 b PDUPCH EQU /7B v P EJECT P* P* P* EQUATES P* " P* COMMON EQU FOR ECB HANDLING P* P PEC
0x1a7a0c…1a7ba0 Dummy {f00=0x007d, f01=0x0190, f02=» ~ P* P* P* ECB REL. ADDRESSES P* 8 P* B PDIS EQU 20 L P* ^ PECBDC EQU -DIS-14 h P IFT DCLIN=2 PECBDC2 EQU ECBDC-DIS PECBICR EQU ECBDC2-DIS P XIF P IFF DCLIN=2 PECBICR EQU ECBDC-DIS
0x1a7ba0…1a7d34 (2, 31) Dummy {f00=0x007d, f01=0x0190, f02=»EQU ECBICR-DIS P XIF P* " P* , " P* BASE ADDRESS FOR TCA AND ECB 6 P* PTCABAS EQU A11 f PCREBAS EQU A13 ECB | P* & P* CONFIG DATA 'CB1' REL ADDRESSES P* " PNBRKBV EQU 0 NUMBER OF KB/VDUS & PNBRGTP EQU NBR
0x1a7d34…1a7ec8 Dummy {f00=0x007d, f01=0x0190, f02=»1 d P IFT DCLIN=2 PMF2KBV EQU MF1GTP+16 PMF2GTP EQU MF2KBV+16 : P XIF V P EJECT b P* p P* TCA REL. ADDRESSES z P* PTCT01 EQU 0 PPRINTER EQU TCT01+2 ( PBVDU EQU PRINTER+2 VDU SCREEN BUFFER 0 PPCURS EQU BV
0x1a7ec8…1a805c Dummy {f00=0x007d, f01=0x0190, f02=»CC CHARACTER z . PKBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR $ PLINCNT EQU KBINH+2 LINE COUNTER F 0 PDCLENG EQU LINCNT+2 DC READ EFFECTIVE LENGTH n 2 PICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM , PINTATT EQU ICWORK+2 INTENSITY ATTRIBUTE $ P
0x1a805c…1a81f0 Dummy {f00=0x007d, f01=0x0190, f02=»QU CCC+2 MAIN FRAME & PMODE EQU MAIN+2 INSERT MODE SWITCH $ PKEYS EQU MODE+2 KEY LOCK STATUS F . PECBDCC EQU KEYS+2 ECB ADDRESS LAST READ DC n 2 PECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C 4 PRDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB
0x1a81f0…1a8384 Dummy {f00=0x007d, f01=0x0190, f02=»920 CHARACTER DISPLAY " PLPAGE EQU 48 LINES ON ONE PAGE : PGTPLIN EQU 112 LINELENGTH MAX 112 CHAR. 'NL' ORDER IN D , P* BUFFER DETERMINES PRINT LINE LENGTH P* P P P EJECT PPRINT EQU * P CF A14,I:EVA0 & P LDR
0x1a8384…1a8518 Dummy {f00=0x007d, f01=0x018e, f02=»********************************* P* * , P* TRANSFER PARAMETER FOR MAIN-FRAME #1 4 P* d 6 P************************************************* n P P LC A1,MF1GTP-1,A4 P ANK A1,/FF P LDKL A8,ECBDC P CF A14,EMULA
0x1a8518…1a86ac Dummy {f00=0x007d, f01=0x0190, f02=» P* 6 P************************************************* P H P LC A1,MF2GTP-1,A4 P P ANK A1,/FF j P LDKL A8,ECBDC2 ~ $ P CF A14,EMULA TRANSFER PARAMETER P XIF P EJECT P* P* RELATIVE POS IN ECBBLK PICR EQ
0x1a86ac…1a8840 Dummy {f00=0x007d, f01=0x018e, f02=»3 P XIF P ST A1,ECBBLK,TCABAS PPRI100 EQU * 2 P CM ICWORK,TCABAS F P LD A1,ECBBLK+DC1,TCABAS ` P RF(NZ) PRI110 PENDING 0 P CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT PPRI110 EQU * P IFT DCLIN=2 P LD A1,ECBBLK+
0x1a8840…1a89d4 (2, 32) Dummy {f00=0x007e, f01=0x0190, f02=» P LD A1,ECBBLK+ICR,TCABAS P RF(NZ) PRI150 PENDING $ P LDKL A6,LBVDU REQ LENGTH B P LDKL A3,BVDU BUFFER d P ADR A3,TCABAS ADDRESS * P CF A14,ICREAD READ INTERTASK NO WAIT P ST A8,ECBBLK+ICR,TCABAS PPRI150 EQU * P LDKL
0x1a89d4…1a8b68 Dummy {f00=0x007e, f01=0x0190, f02=»OM INTERTASK z : P ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ P CF A14,DCINP INPUT FROM DC R P RB PRI100 v P EJECT P* P* READ INTERTASK, NOWAIT P* P* A3 = BUFFER ADDRESS P* A6 = REQ LENGTH P*
0x1a8b68…1a8cfc Dummy {f00=0x007e, f01=0x018e, f02=»TH x P ST A3,ECBBA,A8 * P LDK A7,2 READ NOT ADDRESSED, NO WAIT " P LKM P P DATA 1 P RTN A14 l P EJECT | D P**************************************************************** P* P* INPUT FROM DC P* 8 P**********
0x1a8cfc…1a8e90 Dummy {f00=0x007e, f01=0x0190, f02=» P RF(Z) DCIN10 NOT COMPLETED P IM ICWORK,TCABAS SET FLAG , , P RF ICRINP TAKE CARE OF INTERTASK INPUT N . P OR BUFFER WILL BE DESTROYED IN 'UPDATE' ~ PDCIN10 EQU * & P CF A14,GTRBUF GET RECEIVE BUFFER P LD A8,ECBDCC,TCABAS
0x1a8e90…1a9024 Dummy {f00=0x007e, f01=0x0190, f02=»2,TCABAS P RF(E) DCIN20 MF # 2 P CM ECBBLK+DC1,TCABAS , P RF DCIN30 J PDCIN20 EQU * P CM ECBBLK+DC2,TCABAS p P XIF PDCIN30 EQU * $ P LD A1,ECBEL,A8 EFFECTIVE LENGTH . P ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA P
0x1a9024…1a91b8 Dummy {f00=0x007e, f01=0x0190, f02=»AND x P XIF . P LD A1,WCC,TCABAS WRITE CONTROL CHARACTER P ST A1,CCC,TCABAS COPY IT J P CF A14,COPY COPY ON PRINTER l PDCIN90 EQU * P CF A14,SNBUSY P RTN A14 P EJECT P* P* ABORT INTERTASK READ P*
0x1a91b8…1a934c Dummy {f00=0x007e, f01=0x0190, f02=» P RTN A14 P EJECT P* & P* INPUT FROM INTERTASK 0 P* N PICRINP EQU * X P CM ECBBLK+ICR,TCABAS l P * P LDK A1,X'38' PRINT BIT, 80 CHAR./LINE 4 P ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER * P CF A14,COPY PRI
0x1a934c…1a94e0 Dummy {f00=0x007e, f01=0x0190, f02=» P* . P* PRINT THE CONTENTS OF THE PRINTER BUFFER P* D P* N > PLINLEN DATA /0028,/4050 LINE LENGTHS /40, 64 AND 80 CHARS X P* P* PCOPY LDKL A8,ECBPR P ADR A8,CREBAS PRINTER ECB P LD A7,ECBBA,A8 P SUR A
0x1a94e0…1a9674 (2, 33) Dummy {f00=0x007e, f01=0x0190, f02=» P LDKL A4,BVDU P ADR A4,TCABAS " P LD A2,CCC,TCABAS GET CCC/CCC 0 P ANK A2,/08 V ( P RF(NZ) COP100 START PRINTER BIT SET j PCOPRTN RTN A14 PCOP100 EQU * P LD A2,CCC,TCABAS P ANK A2,/30 , P ABL(Z) COP111 NL DETERMIN
0x1a9674…1a9808 Dummy {f00=0x007e, f01=0x018e, f02=» , PCOP115 CF A14,PRLINE LINE FULL: PRINT IT P RB COP110 8 PCOP120 CWK A3,LBVDU J $ P ABL(NL) COP300 PRINT LAST LINE f P LCR A2,A4 " P ANK A2,/7F RESET DISPLAY BIT P SCR A2,A4 P CWK A2,/20 P RF(NL) COP130 PCOP123
0x1a9808…1a999c Dummy {f00=0x007e, f01=0x0190, f02=» PCOP130 CWK A2,NULL ( P RB(E) COP125 REPLACE NULL BY SPACE PCOP140 EQU * J P CWK A2,/7D ^ P RF(NE) COP141 r P LDK A2,/39 PCOP141 CWK A2,/7E P RF(NE) COP142 P LDK A2,/35 PCOP142 EQU * P CF A14,RFMDUP FM OR
0x1a999c…1a9b30 Dummy {f00=0x007e, f01=0x018e, f02=»DK A3,1 P ADK A4,1 P ADK A7,1 " P ADKL A9,1 4 P RB COP110 F , PCOP150 LDK A2,/20 SPACE INSTEAD OF TEXT X P SCR A2,A7 P ADK A3,1 P ADK A4,1 P ADK A7,1 P ADKL A9,1 P CWR A9,A6 P RF(L) COP160 (
0x1a9b30…1a9cc4 Dummy {f00=0x007e, f01=0x0190, f02=» v ( P RB COP150 STILL IN PROTECTED FIELD P* 4 P* > , P* LINE LENGTH AS DEFINED BY NL CHARACTER H P* x P* 6 P* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. P* P* PCOP111 EQU * P CWK A9,GTPLIN P
0x1a9cc4…1a9e58 Dummy {f00=0x007e, f01=0x0190, f02=») COP300 PRINT LAST LINE P LCR A2,A4 P ANK A2,/7F 2 P SCR A2,A4 RESET DISPLAY BIT F P CWK A2,/20 j P RF(NL) COP230 ~ ( PCOP223 ANK A2,/6 ATTRIBUTE CHARACTER P XRK A2,6 " P RF(Z) COP250 PROTECTED FIELD 0 PCOP225 LDK A2,/2
0x1a9e58…1a9fec Dummy {f00=0x007e, f01=0x0190, f02=»QU * P CWK A2,/7B P RF(NE) COP241 P LDK A2,/2A 6 PCOP241 SCR A2,A7 J P ADK A3,1 b P ADK A4,1 t P ADK A7,1 P CWK A2,NEWLIN & P RB(E) COP210 NL CHAR: PRINT LINE P CWK A2,ENDMES . P RF(E) COP300 UND MESSAGE:
0x1a9fec…1aa180 Dummy {f00=0x007e, f01=0x0190, f02=»1 P ADK A4,1 P ADK A7,1 P ADKL A9,1 . P CWR A9,A6 @ P RF(L) COP260 R ( P CF A14,PRLINE LINE FULL : PRINT IT h PCOP260 LCR A2,A4 P ANK A2,/7F P CWK A2,/20 " P RB(L) COP223 ATTRIBUTE FOUND ( P RB COP250 STI
0x1aa180…1aa314 (2, 34) Dummy {f00=0x007e, f01=0x0190, f02=»N P EJECT P* P* " P* PRINT ONE LINE ON PRINTER , P* P ( P* A9=NUMBER OF CHAR IN PRINT BUFFER Z P* P* 4 PPRLINE IM LINCNT,TCABAS COUNT NBR OF PRINTLINES " P RF(N) PRL100 NOT END OF PAGE P LDK A7,LPAGE EN
0x1aa314…1aa4a8 Dummy {f00=0x007e, f01=0x0190, f02=»CHAR IN BUFFER z P ANK A2,/7F P CWK A2,FORMFD * P RF(NE) PRL200 NOT FORM FEED @ P LDK A2,/20 d $ P SC A2,2,A7 REPLACE LF BY SPACE x P PPRL110 EQU * " P LD A1,LINCNT,TCABAS FORM FEED P LDK A7,2 4 P ST A7,ECBRL,A8 SET
0x1aa4a8…1aa63c Dummy {f00=0x007e, f01=0x0190, f02=» PRL120 P LDK A7,LPAGE P NGR A7,A7 & , P ST A7,LINCNT,TCABAS RESET LINE COUNTER 8 0 PPRL200 ADKL A9,2 ADJUST LENGTH FOR BUFFER CW h P ST A9,ECBRL,A8 REQ LENGTH P LDK A7,/86 STD WRITE P LKM P DATA 1 P LDK A7,0
0x1aa63c…1aa7d0 Dummy {f00=0x007e, f01=0x4128, f02=»TN A14 P EJECT ! P* ! P* ! & P* SET STATUS NOT BUSY FOR DC ! 0 P* ! T P* ! ^ PSNBUSY EQU * ! h P LD A8,ECBDCC,TCABAS ! | P CM ECBCW,A8 ! P LDK A7,/B8 SET STATUS ORDER ! P LKM ! P DATA 1 ! P RTN A14 ! P* ! P*
0x1aa7d0…1aa964 Dummy {f00=0x007e, f01=0x2008, f02=» " IDENT PRT END "@ 6
0x1aa964…1aaaf8 Dummy {f00=0x007e, f01=0x0190, f02=»* " PDC1INQ EQU * # P LDKL A8,ECBDC # P ADR A8,CREBAS # 4 P ST A8,ECBBLK+DC1,TCABAS # J PDC1I20 EQU * # j P LDK A1,0 # ~ P CF A14,REQTIM # P LDK A7,0 # PDC1I30 EQU * # P LKM # P DATA 1 # P RTN A14 # PDC2INQ EQU * #
0x1aaaf8…1aac8c Dummy {f00=0x007e, f01=0x0190, f02=» COPCMD=1 # P EJECT $ P* $ " P* SEND BUFFER TO PRINTER TASK $ * P* $ P PBUFCOP EQU * $ Z P CM ECBBLK+ICR,TCABAS $ n P LDKL A3,BVDU BUFFER $ P ADR A3,TCABAS ADDRESS $ P IFT COPL=1 $ P* $ P* CHECK IF COPY LOCK $ P* $
0x1aac8c…1aae20 Dummy {f00=0x007e, f01=0x0190, f02=»/8B ORDER: WRITE ADDRESSED WITH WAIT $ P LD A5,ICWORK,TCABAS TASK ID % , P LDKL A6,LBVDU REQ LENGTH % P P CF A14,ICWRTE % r P LD A1,KBINH,TCABAS % ( P ANK A1,/E NOT INHIBITED ANY LONGER % P ST A1,KBINH,TCABAS % P RB VDU100 % P XIF %
0x1aae20…1aafb4 (2, 35) Opaque[0x194]
0x1aafb4…1ab148 # DirEnt {nam=»TB3270«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd8, f03=0x0000}
0x1aafb4…1ab148 IdxSect {
0x1aafb4…1ab148 f00 = 0x007e // 0x1aafb4 @0x0
0x1aafb4…1ab148 f01 = 0x0004 // 0x1aafb6 @0x2
0x1aafb4…1ab148 gno = [ // 0x1aafb8 @0x4
0x1aafb4…1ab148 [0x00]: C0x007e.0x3.0
0x1aafb4…1ab148 [0x01]: C0x007f.0x0.0
0x1aafb4…1ab148 ]
0x1aafb4…1ab148 }
0x1ab148…1ab2dc Dummy {f00=0x007e, f01=0x0190, f02=» 2 P IDENT TB3270 REL 10.0 80-03-14 870150541000 P : F P****************************************************************** B P* : P* CONVERSION TABLES FOR IBM 3270 EMULATION PACKKAGE P* H P******************************************
0x1ab2dc…1ab470 Dummy {f00=0x007e, f01=0x0190, f02=»EYCNV P* P P* CONDITIONAL ASSEMBLIES P* B PKB6272 EQU 1 L P* ` P EJECT j P* x P* 4 P* TABLE FOR CONVERSION OF EBCDIC 6 BIT INTERNAL P* P* CODE TO ASCII P* PTASCII EQU * * P DAT
0x1ab470…1ab604 Dummy {f00=0x007e, f01=0x0190, f02=»ATA /5152,/5D24,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 , * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F Z ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A23,/4027,/3D22 /38-3F P EJECT P* P* 4 P* TABL
0x1ab604…1ab798 Dummy {f00=0x007e, f01=0x0190, f02=»CODES ARE CONVERTED TO ZEROS P* $ P* . PTEBCDIC EQU * 8 P DATA 0,0,0,0 /00-/07 N P DATA 0,0,0,0 /08-/0F l P DATA 0,0,0,0 /10-/17 P DATA 0,0,0,0 /18-1F * P DATA /404F,/7F7B,/5B6C,/507D /20-/27 * P DATA /4D5D,/5C4E,/6B6
0x1ab798…1ab92c Dummy {f00=0x007e, f01=0x0190, f02=»4C5,/C6C7 /40-/47 | * P DATA /C8C9,/D1D2,/D3D4,/D5D6 /48-/4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 /50-57 H * P DATA /E7E8,/E94A,/005A,/5F6D /58-/5F t * P DATA /0081,/8282,/8485,/8687 /60-/67 * P DATA /8889,/9192,/9394,/9596 /68-/6F * P DATA /979
0x1ab92c…1abac0 Dummy {f00=0x007e, f01=0x0190, f02=»& LOWER CASE P - W r P* PKEYCNV EQU * $ P IFF KB6272=1 8 P CWK A2,/70 N P RF(L) KEYC99 b P CWK A2,/77 x P RF(G) KEYC10 P ADK A2,/50 LOWER CASE P - W P RF KEYC99 PKEYC10 EQU * P CWK A2,/80 P RF(L) K
0x1abac0…1abc54 (2, 36) Dummy {f00=0x007f, f01=0x0190, f02=» P* * P DATA /93A6,/A8AA,/A7AC,/83AB /80-/87 * P DATA /A98D,/8E8F,/7F7F,/7F7F /88-/8F @ * P DATA /8BAE,/A594,/9596,/AF82 /90-/97 n * P DATA /8192,/7F7F,/7F7F,/7F7F /98-/9F * P DATA /9190,/B5B3,/7F7F,/7F7F /A0-/A7 * P DATA /7F7F,/7F7
0x1abc54…1abde8 Dummy {f00=0x007f, f01=0x400e, f02=»ND @ * P DATA /93A6,/A8AA,/A7AC,/83AB /80-/87 * P DATA /A98D,/8E8F,/7F7F,/7F7F /88-/8F @ * P DATA /8BAE,/A594,/9596,/AF82 /90-/97 n * P DATA /8192,/7F7F,/7F7F,/7F7F /98-/9F * P DATA /9190,/B5B3,/7F7F,/7F7F /A0-/A7 * P DATA /7F7F,/7F7
0x1abde8…1abf7c Dummy {f00=0x007f, f01=0x2008, f02=» A @ aP x (@ :P T P> H D ! P P T P P T #P 'P +W AT M SQ T H D !A( aT y }P Q P PP WF T W P P P P H D ! $ 1 d I d _ d sP w
0x1abf7c…1ac110 Dummy {f00=0x007f, f01=0x0190, f02=»***************************************************** 0 P* 1 > P* CRNL 1 H P* 1 V 2 P* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE 1 ` P* 1 : P***************************************************** 1 P* 1 PCRNL EQU * 1 & P LD A2,PCURS,T
0x1ac110…1ac2a4 Dummy {f00=0x007f, f01=0x0190, f02=» 1 P* COMPUTE LEFTMOST POS 2 P* 2 & PCRN050 LDK A1,0 2 0 PCRN100 SUKL A2,LLINE 2 H P RF(N) CRN120 2 d P ADKL A1,LLINE 2 z P RB CRN100 2 2 PCRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS 2 P EJECT 2 P 2 F P**************************
0x1ac2a4…1ac438 Dummy {f00=0x007f, f01=0x0190, f02=»F(Z) CRN130 NO ATTRIBUTE FOUND 2 P ANK A3,/10 3 & P RF(NZ) TAB PROTECTED FIELD 3 : . P CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ?? 3 ^ P RF(NE) CRN150 NO!! 3 ( P CWK A2,1919 LAST SCREEN POSITION?? 3 P RF(NE) CRN140 NO!! 3 PCRN130 LDKL A2,-1 3
0x1ac438…1ac5cc Dummy {f00=0x007f, f01=0x0190, f02=»************************************************* 3 ~ P EJECT 4 : P* 4 H 8 P**************************************************** 4 R P* 4 P* TAB 4 P* 4 2 P* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION 4 ( P* OF THE NEXT UNPROTECTED DATA FIE
0x1ac5cc…1ac760 Dummy {f00=0x007f, f01=0x0190, f02=» 4 b P* 2=EOB 5 P* 3=ATTRIB. IN EOB POS 5 P* A2=CURSOR BINARY ADDRESS 5 : P* A3=CHARACTGR 5 P* 5 r PTAB EQU * 5 | P LDK A5,1 5 & P LD A2,PCURS,TCABAS GET CURSOR POS 5 * PTAB100 CF A14,ATMASF SEARCH ATTRIBUTE 5 P CWK A1,0 END OF
0x1ac760…1ac8f4 (2, 37) Opaque[0x194]
0x1ac8f4…1aca88 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fe8, f03=0x0000}
0x1ac8f4…1aca88 IdxSect {
0x1ac8f4…1aca88 f00 = 0x007f // 0x1ac8f4 @0x0
0x1ac8f4…1aca88 f01 = 0x0002 // 0x1ac8f6 @0x2
0x1ac8f4…1aca88 gno = [ // 0x1ac8f8 @0x4
0x1ac8f4…1aca88 [0x00]: C0x007f.0x1.0
0x1ac8f4…1aca88 ]
0x1ac8f4…1aca88 }
0x1aca88…1acc1c Dummy {f00=0x007f, f01=0x0190, f02=» 2 P IDENT CTAB01 REL 10.0 80-03-14 870150541000 P* : 4 P* CODE CONVERSION TABLE FOR IBM 3270 EMULATION D P* | P ENTRY CTAB01 P 0 PCTAB01 DATA FUNC,FUNC,UNSC,SHIFT,UNSC,SHIFT PFUNC EQU * : P DATA /9693,/9495,/9091,/928D,
0x1acc1c…1acdb0 Dummy {f00=0x007f, f01=0x0190, f02=»/7F7F,/7F7F f PUNSC EQU * : P DATA /207F,/7F7F,/7F7F,/7F27,/7F7F,/7F2B,/2C2D,/2E7F & : P DATA /3031,/3233,/3435,/3637,/3839,/ADA9,/3CA7,/A8A6 d : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5
0x1acdb0…1acf44 Dummy {f00=0x007f, f01=0x40aa, f02=»829,/ADA9,/3EA7,/A8A6 p : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5E7F P END @ 041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5
0x1acf44…1ad0d8 Dummy {f00=0x007f, f01=0x2008, f02=» A @ aP x (@ :P T P> H D ! P P T P P T #P 'P +W AT M SQ T H D !A( aT y }P Q P PP WF T W P P P P H D ! $ 1 d I d _ d sP w
0x1ad0d8…1ad26c Dummy {f00=0x007f, f01=0x0190, f02=» ; z & P ADR A4,TCABAS VDU BUFFER ADDRESS < , P LC A2,1919,A4 GET LAST SCREEN CHARACTER < 2 P ANK A2,/7F < b P CWK A2,/20 < v P RF(NL) RDH10 < P ANK A2,/10 < $ P ABL(Z) CRHOME UNPROTECTED FIELD < PRDH10 CM PCURS,TCABAS < , P CF A14,TAB SE
0x1ad26c…1ad400 Dummy {f00=0x007f, f01=0x018e, f02=»* < P* BAKTAB = P* = 6 P* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION = $ 2 P* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD = ^ P* = 8 P**************************************************** = P* = P* A2=CURSOR BINARY ADDRESS = P*
0x1ad400…1ad594 (2, 38) Opaque[0x194]
0x1ad594…1ad728 # DirEnt {nam=»NOIFLI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ff0, f03=0x0000}
0x1ad594…1ad728 IdxSect {
0x1ad594…1ad728 f00 = 0x007f // 0x1ad594 @0x0
0x1ad594…1ad728 f01 = 0x0002 // 0x1ad596 @0x2
0x1ad594…1ad728 gno = [ // 0x1ad598 @0x4
0x1ad594…1ad728 [0x00]: C0x007f.0x2.0
0x1ad594…1ad728 ]
0x1ad594…1ad728 }
0x1ad728…1ad8bc Dummy {f00=0x007f, f01=0x00a6, f02=» $NOIF S=START PSCR /O $NOIF S=VDUPRT ( PSCR /O > $NOIF S=PRT L P$NOIF S=TB3270 ` PTRA DATDIV v SCR /O ASG /E0,TY10
0x1ad8bc…1ada50 Dummy {f00=0x007f, f01=0x2008, f02=» F S=START PSCR /O $NOIF S=VDUPRT ( PSCR /O > $NOIF S=PRT L P$NOIF S=TB3270 ` PTRA DATDIV v SCR /O ASG /E0,TY10
0x1ada50…1adbe4 Dummy {f00=0x007f, f01=0x0190, f02=» A , v_ I " P A A n 4 A _$" P H B P W ! _ ! ! 1 4 A @ ` @ P 0 M A 4 , @ ` @ P $ Y _ @ rT @ A j A j a r 4 ! X A r > A 4 A
0x1adbe4…1add78 Dummy {f00=0x007f, f01=0x0190, f02=» ! A @! :H 4 x ! ) P R W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Z` Q P Q T 0 ! A 0 ! A ! " ! " ! A _" A A ! ! % ! R ! ! @ ! 8 !
0x1add78…1adf0c Dummy {f00=0x007f, f01=0x0190, f02=» A , v_ I " P A A n 4 A _$" P H B P W ! _ ! ! 1 4 A @ ` @ P 0 M A 4 , @ ` @ P $ Y _ @ rT @ A j A j a r 4 ! X A r > A 4 A
0x1adf0c…1ae0a0 Dummy {f00=0x007f, f01=0x0190, f02=» ! A @! :H 4 x ! ) P R W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Z` Q P Q T 0 ! A 0 ! A ! " ! " ! A _" A A ! ! % ! R ! ! @ ! 8 !
0x1ae0a0…1ae234 (2, 39) Opaque[0x194]
0x1ae234…1ae3c8 # DirEnt {nam=»DATDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ff8, f03=0x0000}
0x1ae234…1ae3c8 IdxSect {
0x1ae234…1ae3c8 f00 = 0x007f // 0x1ae234 @0x0
0x1ae234…1ae3c8 f01 = 0x0006 // 0x1ae236 @0x2
0x1ae234…1ae3c8 gno = [ // 0x1ae238 @0x4
0x1ae234…1ae3c8 [0x00]: C0x007f.0x3.0
0x1ae234…1ae3c8 [0x01]: C0x0080.0x0.0
0x1ae234…1ae3c8 [0x02]: C0x0080.0x1.0
0x1ae234…1ae3c8 ]
0x1ae234…1ae3c8 }
0x1ae3c8…1ae55c Dummy {f00=0x007f, f01=0x0190, f02=» 2 P IDENT DATDIV REL 10.0 80-03-14 870150541000 P : L P************************************************************************ B P* F P* D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. B P* THIS MODULE AL
0x1ae55c…1ae6f0 Dummy {f00=0x007f, f01=0x0190, f02=»************************ d P P EJECT ( P DDIV 6 P* D P* KB/VDU TERMINAL N P* n P TERM KA x P* P CWB CB1 P TWB TB1 P* P START KBVGO P* PDSDC DSET FC=61 " P*DSDC2 DSET FC=62 IFT
0x1ae6f0…1ae884 Dummy {f00=0x007f, f01=0x0190, f02=»KBAN DSET FC=20,DEV=KA,BUFL=2 $ PDSKBSD DSET FC=40,DEV=KI,BUFL=2 & P EJECT N P* P* GTP TERMINAL f P* P TERM GA P* P CWB CB1 P TWB TB1 P* P START GTPGO P* PDSDC DSET FC=61 " P*D
0x1ae884…1aea18 Dummy {f00=0x007f, f01=0x0190, f02=»P,BUFL=162 z P EJECT P* P* * P* DCTASK FOR DC LINE 1 4 P* V P* ` P TERM D0 j P* z P CWB CB1 P START DC1GO PDSDC DSET FC=60 P* P* DCTASK FOR DC-LINE 2 P* P* TERM D1 P*
0x1aea18…1aebac Dummy {f00=0x007f, f01=0x0190, f02=»Y TASKS h P* P* PTB1 BLK $ P* 4 & PTCT01 BIN 4X'0' TID AND STACKBASE > * PPRINTER STRG 4X'0' KEYBARD/VDU/PRINTER h & PBVDU STRG 3840X'0' VDU SCREEN BUFF ( PPCURS STRG 4X'0' CURSOR ADDR. BINARY . PATTRIB STRG 4X'0' LAST ATTRI
0x1aebac…1aed40 Dummy {f00=0x007f, f01=0x0190, f02=»T INDIC. p PLINCNT STRG 4X'0' . PDCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH * PICWORK STRG 4X'0' * PINTATT STRG 4X'0' INTENSITY ATTRIBUTE v " POFFFLG STRG 4X'0' OFFLINE FLAG PCOPNO BIN TID FOR HARDCOPY PMISCAR STRG 44X'0' CCC,MAI
0x1aed40…1aeed4 (2, 40) Dummy {f00=0x0080, f01=0x0190, f02=»OCK FOR ALL TASKS ~ P* . P***************************************** $ P V PCB1 BLK ^ P* n PCNFIGD BOOL x PCNFBSY BOOL P* P* CONFIGURATION DATA P* " PNBRKBV BIN NUMBER OF KB/VDUS PNBRGTP BIN NUMB
0x1aeed4…1af068 Dummy {f00=0x0080, f01=0x0190, f02=» GTP b P* MF # 2 ( P*MF2KBV STRG 32X'40C1C2C3C4C5C6C7' ( P*MF2GTP STRG 32X'C8C94A4B4C4D4E4F' H H P* THE LENGTH OR PLACE OF THE CONFIG DATA ABOVE SHOULD NOT BE CHANGED t P* ( PMF1CU STRG X'6040' CU-ADDRESS MF # 1 P*MF2CU STRG X'6040
0x1af068…1af1fc Dummy {f00=0x0080, f01=0x018e, f02=»IN P PDIV P* P* " P* , P ENTRY KBVGO 6 P ENTRY GTPGO J P ENTRY DC1GO ^ P* ENTRY DC2GO r P EXT VDUKB P EXT PRINT P EXT DCTASK P EXT SWITCH " P EXT GETTID GET TASK IDENTITY 2 P* EXT OFFLNE C
0x1af1fc…1af390 Dummy {f00=0x0080, f01=0x0190, f02=» , P**************************************** P* 8 ( P* START ADDRESS FOR KEYBOARD TASK B P* n , P**************************************** x P PKBVGO P ADD NBRKBV,='1' P CALL GETTID,TCT01 P SUB TCT01,=X'4B40'
0x1af390…1af524 Dummy {f00=0x0080, f01=0x0190, f02=» PKB050 P CALL VDUKB,TCT01 ( P* PERF OFFLNE BRANCH TO CREDIT CODE , * P* B KB050 RETURN TO IBM-3270 EMULATION X P EJECT P P 2 P********************************************* P* . P* START ADDRESS FOR GENERAL PRINTE
0x1af524…1af6b8 Dummy {f00=0x0080, f01=0x0190, f02=»,TCT01 P SUB TCT01,=X'4740' P MOVE PRINTER,=X'0001' * P* PERF CONF H P CALL PRINT,TCT01 P v P EJECT ~ P P 4 P*********************************************** P* " P* START ADDRESS FOR DC-TASK P*
0x1af6b8…1af84c Dummy {f00=0x0080, f01=0x4024, f02=»2CU P P END @ P MOVE PRINTER,=X'0001' * P* PERF CONF H P CALL PRINT,TCT01 P v P EJECT ~ P P 4 P*********************************************** P* " P* START ADDRESS FOR DC-TASK P*
0x1af84c…1af9e0 Dummy {f00=0x0080, f01=0x2008, f02=» * END @ * $ * . GP1 BLK 8 * H GPAREA STRG 2000 R EJECT j PDIV x * * ENTRY KBGO ENTRY VDUGO ENTRY GTPGO * EXT VDUKB EXT VDTASK E
0x1af9e0…1afb74 (2, 41) Dummy {f00=0x0080, f01=0x0190, f02=»************************************************* U P* V : P* CANCEL V D P* V T : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION V ^ $ P* AND GENERATE AN AID CHARACTER V P* V > P*********************************************************
0x1afb74…1afd08 Dummy {f00=0x0080, f01=0x0190, f02=»E V r PCAN200 EQU * W . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" W ( P CF A14,TRPA UPDATE AID AND TRANSMIT W P P RTN A14 W | P* W P W P IFT PAX=1 W P W P* W P* W F P* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERT
0x1afd08…1afe9c Dummy {f00=0x0080, f01=0x0190, f02=» ST A1,RDMORE,TCABAS W P RTN A14 X PPAEXA EQU * X , P CM RDMORE,TCABAS X @ P SUK A2,/31 CHECK IF NUM.1-3 X Z P RF(L) PFERR ILLEGAL CHAR. X ~ P SUK A2,/2 CHECK IF NUM.1-3 X P RF(G) PFERR ILLEGAL CHAR. X P RF(Z) PA3 X P ADK A2,1 X
0x1afe9c…1b0030 Dummy {f00=0x0080, f01=0x0190, f02=»A1 PROGRAM ATTENTION KEY X P* Y $ P* Y . PPA1 EQU * Y 8 P LDK A2,/2C PA1 POS Y J P RB CAN100 Y f P* Y x P* Y $ P* PA3 PROGRAM ATTENTION KEY Y P* Y P* Y PPA3 EQU * Y P LDK A2,/2B PA3 POS Y P RB CAN100 Y P
0x1b0030…1b01c4 Dummy {f00=0x0080, f01=0x0190, f02=»****************************************************** Y P* Z > P* ENTER Z H P* Z X 8 P* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION Z b < P* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER Z 8 P* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODI
0x1b01c4…1b0358 Dummy {f00=0x0080, f01=0x0190, f02=»TER EQU * Z P LDK A2,/3D ENTER POS [ PENT100 EQU * [ 0 & P LC A2,TASCII,A2 CONVERT TO ASCII [ D . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" [ n . P CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT [ PENT200 EQU * [ P RTN A14 [ P* [ P [ P
0x1b0358…1b04ec Dummy {f00=0x0080, f01=0x0190, f02=»THE FUNCTIONS UNDER PF1-PF12 [ P* $ P* . PPFEX EQU * 8 P LDKL A1,PFEXA J P RF PFNXT ` PPFEXA EQU * r P CM RDMORE,TCABAS P SUK A2,/30 LEGAL CHAR ? , P RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING & P RF(Z) PF0 FIRST NUM. 0
0x1b04ec…1b0680 Dummy {f00=0x0080, f01=0x0190, f02=» P CM RDMORE,TCABAS ] P SUK A2,/30 LEGAL NUM.? ] " , P RF(L) PFERR ILLEGAL GO TO ERR.HANDLING ] B P SUK A2,/2 LEGAL NUM ? ] r , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING ] P ADK A2,/3C PF10-12 POS ] P RB ENT100 ] P ] PPF0 EQU * ]
0x1b0680…1b0814 (2, 42) Opaque[0x194]
0x1b0814…1b09a8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1010, f03=0x0000}
0x1b0814…1b09a8 IdxSect {
0x1b0814…1b09a8 f00 = 0x0080 // 0x1b0814 @0x0
0x1b0814…1b09a8 f01 = 0x0018 // 0x1b0816 @0x2
0x1b0814…1b09a8 gno = [ // 0x1b0818 @0x4
0x1b0814…1b09a8 [0x00]: C0x0080.0x2.0
0x1b0814…1b09a8 [0x01]: C0x0080.0x3.0
0x1b0814…1b09a8 [0x02]: C0x0081.0x0.0
0x1b0814…1b09a8 [0x03]: C0x0081.0x1.0
0x1b0814…1b09a8 [0x04]: C0x0081.0x2.0
0x1b0814…1b09a8 [0x05]: C0x0081.0x3.0
0x1b0814…1b09a8 [0x06]: C0x0082.0x0.0
0x1b0814…1b09a8 [0x07]: C0x0082.0x1.0
0x1b0814…1b09a8 [0x08]: C0x0082.0x2.0
0x1b0814…1b09a8 [0x09]: C0x0082.0x3.0
0x1b0814…1b09a8 [0x0a]: C0x0083.0x0.0
0x1b0814…1b09a8 [0x0b]: C0x0083.0x1.0
0x1b0814…1b09a8 ]
0x1b0814…1b09a8 }
0x1b09a8…1b0b3c Dummy {f00=0x0080, f01=0x0190, f02=» > @ IDENT START REL 10.0 80-03-14 870150541000 J F " LINHON LINHOF ATMASB LSAVOF LSAVON EMULA LIOLON LIOLOF VDUKB F . * DCTASK DC1INQ DC2INQ REQTIM ICWRTE , ( , ( !
0x1b0b3c…1b0cd0 Dummy {f00=0x0080, f01=0x0190, f02=» , ( & , ( V , ( , ( , ( !
0x1b0cd0…1b0e64 Dummy {f00=0x0080, f01=0x0190, f02=» _ ( ( RLRBUF 0 EMULA B VDUKB T , ( { B _ C ( : f ERASE , ( . V P ! , ( O O O N T N
0x1b0e64…1b0ff8 Dummy {f00=0x0080, f01=0x0190, f02=»Q $ , ( ( : O B P B , ( 1 P 1( _t N ! b N ! P < , ( Q " Z Y l , ( P q N P O REQTIM , ( ( : C ( : : N V
0x1b0ff8…1b118c Dummy {f00=0x0080, f01=0x0190, f02=» : N P R , ( PR P_ O P # T N " , ( / T T O : N R , ( M Q # P _ O : , ( k T % X _ % Q _ _6 N , ( { V - F : N ` V
0x1b118c…1b1320 Dummy {f00=0x0080, f01=0x0190, f02=»W # O r , ( : Y2# 6 , ( ) O O _@ P w N N P N B , ( I $ T $ P 0 w 0 w r , ( i : , w N N P N , ( $ P v N T 9 , (
0x1b1320…1b14b4 (2, 43) Dummy {f00=0x0080, f01=0x0190, f02=» T r , ( @ O Q F B ! PT , ( ' : N P Z P Q B , ( E N P D + % _ r , ( e ) N + N P %W O , ( : T W P , (
0x1b14b4…1b1648 Dummy {f00=0x0080, f01=0x0190, f02=» , ( _ : . H : ,_ TRPF 4 , ( +_ _ = H : D , ( $ : _ - H : t , ( 5 N # P N N ERASUA , ( U $ Q N
0x1b1648…1b17dc Dummy {f00=0x0080, f01=0x0190, f02=» O : N - O , ( B + I I C ( : ( LIOLON X LIOLOF l LINHON LINHOF , ( W W W W W W W W LSAVON LSAVOF , (
0x1b17dc…1b1970 Dummy {f00=0x0080, f01=0x0190, f02=»]$ O t , ( m O : N O : , ( Q T O O : D , ( R : _* 0 : O t , ( O : N ICWRTE , ( C C
0x1b1970…1b1b04 Dummy {f00=0x0080, f01=0x0190, f02=» + x - x / x 1 x 3 x 5 8 7 8 9 8 ; 8 = 8 ? 8 x H D ! A 8 C 8 E 8 G 8 I 8 K 8 M 8 O 8 Q 8 S 8 U 8 W 8 Y 8 [ 8 ] 8 _ 8 4 H D ! a 8 c 8 e 8 g 8 i 8 k 8 m 8 o 8 q 8 s 8 u 8 w 8 y 8 { 8 } 8 8 H D ! 8 8 8 8 8 8 8 8 8 8 8 8 8
0x1b1b04…1b1c98 Dummy {f00=0x0080, f01=0x0190, f02=» d H D ! H D ! F 4 l H D ! ! # * % ' ) + - / 1 3 5 b 7 X 9 r ; = ? H D !
0x1b1c98…1b1e2c Dummy {f00=0x0080, f01=0x0190, f02=» R P H D ! = ! 2 %P )T /T 5T O UQ [P oT {Q x x V H D ! U P( P 2 P R W CP MT SP> W a x k x o x P X H D !@$ P T P P T P P W T Q #T ; t ?P CQ H D ! WP wPP WF T
0x1b1e2c…1b1fc0 Dummy {f00=0x0080, f01=0x406e, f02=» W W W W W W W !W 7 =Q MP [ Q T R D X@ jP R W CP MT SP> W a x k x o x P X H D !@$ P T P P T P P W T Q #T ; t ?P CQ H D ! WP wPP WF T
0x1b1fc0…1b2154 (2, 44) Dummy {f00=0x0081, f01=0x0190, f02=» > @ IDENT VDUPRT REL 10.0 80-03-14 870150541000 D @ TRPF TRPA ERASE SETCUR ERASUP DISPL ERASUA WCHAR UPDATE F , ( RFMDUP DCINP RLRBUF DCGETM GTRBUF DCINP , ( O B O N - O LINHO
0x1b2154…1b22e8 Dummy {f00=0x0081, f01=0x0190, f02=» N " P x SNBUSY DCGETM v * , ( Y N " O W B : > REQTIM n , ( w C 4 C C ( : GTRBUF
0x1b22e8…1b247c Dummy {f00=0x0081, f01=0x0190, f02=» V = : : <" T TEBCDI $ , ( 9 _ 2 H !?9F 2 H "? 6 , ( U : , N / f , ( s O ( B P N ' O LSAVOF , ( H 1 ( :
0x1b247c…1b2610 Dummy {f00=0x0081, f01=0x0190, f02=» !`P X x , ( _ " T V 0 !` V _ UPDATE 6 H , ( $ ' _J : O B , ( G 2 T 2 1P 5P ?P W , ( g N W W W , ( V
0x1b2610…1b27a4 Dummy {f00=0x0081, f01=0x0190, f02=» T |_X T }_b | , ( T ~_l T 0_v X T , ( ' _ B : 2 H ! L , ( E :a" _ < ^, _ O | , ( e _ T ^ 0 " R , ( 1 _ " X 0 "
0x1b27a4…1b2938 Dummy {f00=0x0081, f01=0x0190, f02=» N l , ( T B + I I I , ( # C ( N " T : < ERASE l , ( C ^ 0"`T 0" 1 _ ~ , ( c V 1 _ O O O , ( N T ; 1 B E
0x1b2938…1b2acc Dummy {f00=0x0081, f01=0x0190, f02=»" O P W P ERASUA " , ( W R T P 6 , ( # " V " T P " Q W R f , ( C X 0" R 2 P 1 , ( c _( " T P " Q _< R TRPA , (
0x1b2acc…1b2c60 Dummy {f00=0x0081, f01=0x0190, f02=» C P " , ( Q " 2 O P PR , , ( V 0 " 1 R , ( # X4 }T 9 ~T 5 |T < ] , ( C _R" 2 O P " P W ] , ( c _r PR V 0
0x1b2c60…1b2df4 (2, 45) Dummy {f00=0x0081, f01=0x0190, f02=» WCHAR RFMDUP , ( : B E _D {T * ` & , ( T ; : B P = ] V , ( Y B : % P 7 P , ( # R C ( B ! QP B + E , ( C E :h E T C (
0x1b2df4…1b2f88 Dummy {f00=0x0081, f01=0x0190, f02=» v - 6 1 AP SP cW o P P !V 7T P W P H D ! * VD P T V" #V MT WP ]P cP eW i yW } W W D H D ! V R P T Pd Pr P P P P T T T T %T H D ! mT" R P R P4 T. 9T OT kV
0x1b2f88…1b311c Dummy {f00=0x0081, f01=0x4082, f02=» 3T ;T MP QP UW iR m sV y R t 8 4 T T PD P 9P$ uP yP }W R P T 0 l@ ~ W D H D ! V R P T Pd Pr P P P P T T T T %T H D ! mT" R P R P4 T. 9T OT kV
0x1b311c…1b32b0 Dummy {f00=0x0081, f01=0x018e, f02=» > @ IDENT PRT REL 10.0 80-03-14 870150541000 SNBUSY PRINT ICREAD F PRINT f I:EVA0 x EMULA , ( @ . V P ! DC1INQ , ( O O N T N T
0x1b32b0…1b3444 Dummy {f00=0x0081, f01=0x0190, f02=» GTRBUF DCGETM , ( y ( : P O W ( UPDATE X , ( @ O B O N O j , ( : O ( : O 8 , ( O N T_ (@P B , ( ] ]
0x1b3444…1b35d8 Dummy {f00=0x0081, f01=0x0190, f02=»DUP , ( S T 9 ~T 5 aR = , ( q _X = R 0 < , ( " ZZ_" pR V 0 l , ( " 1 V " 2 P W X {T , ( * = ~X@ }P , ( =
0x1b35d8…1b376c Dummy {f00=0x0081, f01=0x413c, f02=» Q Z 0 O ( B SNBUSY ~ , * & q : C ( : @ H D !, )T 3T A ` UPv ] ~ P W@ ~ T #R ' 1 n H D ! @ =V CP4 GW ST [T gR R R Vb V P. W T P*
0x1b376c…1b3900 Dummy {f00=0x0081, f01=0x0190, f02=» > @ IDENT TB3270 REL 10.0 80-03-14 870150541000 TASCII TEBCDI KEYCNV F TASCII h , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ | TEBCDI @ , ( ! -/STUVWXYZ|,%_>?0123456789:#@'=" , ( A
0x1b3900…1b3a94 (2, 46) Dummy {f00=0x0081, f01=0x405c, f02=» , ( j : 4 F@ XCNV F TASCII h , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ | TEBCDI @ , ( ! -/STUVWXYZ|,%_>?0123456789:#@'=" , ( A
0x1b3a94…1b3c28 Dummy {f00=0x0081, f01=0x0190, f02=» > @ IDENT CTAB01 REL 10.0 80-03-14 870150541000 CTAB01 F CTAB01 X , ( 0123 l , ( ! 456789 , ( A ' +,-. 0123456789 < @ABC , ( a DEFG
0x1b3c28…1b3dbc Dummy {f00=0x0081, f01=0x4032, f02=» < | < | @ .870150541000 CTAB01 F CTAB01 X , ( 0123 l , ( ! 456789 , ( A ' +,-. 0123456789 < @ABC , ( a DEFG
0x1b3dbc…1b3f50 Dummy {f00=0x0081, f01=0x40d4, f02=» > @ IDENT DW2501 REL 10.0 80-03-14 870150541000 DW2501 F DW2501 X DC25AD l , ( DC 2 ~ @ ECB P DATA 0,0,0,0,0,0 P XIF P*
0x1b3f50…1b40e4 Dummy {f00=0x0081, f01=0x0190, f02=» > @ IDENT DRDC25 REL 10.0 80-03-14 870150541000 . * DC25AD IH2501 IH2502 DC25ON DW2500 F DC25AD x * & DISIOE , ( C P P 1P P W P 5P TDISP
0x1b40e4…1b4278 Dummy {f00=0x0081, f01=0x0190, f02=» DWTECB , ( % A A _F _P ECBEL @ DC:MIN P , ( @ X P 0 Y P C b DISEND , ( @ _r _x B Y _D SETIME , ( @ X P A
0x1b4278…1b440c Dummy {f00=0x0081, f01=0x0190, f02=» W (P v , ( k 0 ) > (P _ ) 1_ , ( @ (X( P _ 0 )_6 ( F DWTST v DWTOR , ( BP _ ) 1 4 X R X , ( T X P , Y L C , ( L C
0x1b440c…1b45a0 Dummy {f00=0x0081, f01=0x0190, f02=» A > A A A A A , ( [ W & { > V l PFPOST , ( < @ T ! @ , ( T B ! T P P , (
0x1b45a0…1b4734 (2, 47) Dummy {f00=0x0081, f01=0x0190, f02=» 5 _ ! T " X ! , ( U _ ! @ P @ P ! A A , , ( u _ ! @ P @ X< ! T A , ( ! ! ! X _4 A @ @ , ( @ T P A ` @ P X , ( R X T
0x1b4734…1b48c8 Dummy {f00=0x0081, f01=0x0190, f02=» T @ X W @ @ | , ( P@ G @ A ! @ X4 ! T , ( @ g @ P ! ! _N 1T @ X @ L , ( @ P ! ! _l A 8 A | , ( D @ T _( _, @ T W @ , ( ( T ! _ ! ! _ A A E A
0x1b48c8…1b4a5c Dummy {f00=0x0081, f01=0x0190, f02=» % A B B A A A , ( $ A A A ! ! A _R @ j , , ( a ! X Z X X X`_j @ , ( } P X R X P T T , ( @ Y W L P C , ( T A A 4 @
0x1b4a5c…1b4bf0 Dummy {f00=0x0081, f01=0x0190, f02=» P 1 A @ | , ( 3 ]6W P _@ @ @ E ! P , ( S ! 4 _$ ! 2_l 1 A L , ( s T 0W ;W A A W W W | , ( $D A A ! @ ! @ ! , ( ! ! B J ! 4 ! !
0x1b4bf0…1b4d84 Dummy {f00=0x0081, f01=0x0190, f02=» l , ( 3 Z& ! ! A _ @ IH2501 l < INTSAV P * & Q T B J B ! ! 4 A b SAVE8 , ( o bJ T ! A T IH2502 , ( P 4 ! A
0x1b4d84…1b4f18 Dummy {f00=0x0081, f01=0x0190, f02=» H " t , ( * 9AY X 2 _ ! 9AP ^ 2 _ " , ( ! ! 1 4 A ( @ ` @ P D DC25ON R t , ( A 0 M A ( 4 @ A , ( J _ @ T < @ A , ( P A a
0x1b4f18…1b50ac Dummy {f00=0x0081, f01=0x0190, f02=» A ! T ' x DW2500 , ( A A 4 , 0 t , ( (o A W A W P A A , ( ( @ - R A @ @ ( 4 , ( +
0x1b50ac…1b5240 Dummy {f00=0x0081, f01=0x0190, f02=» GPp KPb OP SP UW [P _P g u wP. t H D ! {+ +T + + + P P + + t P P 0 H D !~B Wb ! ( ' 0 9 = E I QP _W c iP }P P P R2 | H D ! T* P& P )P -T 5 9T = A K d O h S l W p [ t _ x
0x1b5240…1b53d4 (2, 48) Dummy {f00=0x0082, f01=0x0190, f02=» 3 * 9 X ? * CT G ` H D ! K U [ aP gP m z { P T T PP H D ! 3 P2 R, T$ W W l T #P ' / 5T =WP Q B U h H D ! _ eT kP o s {T" P z B T T8 W T z H D !
0x1b53d4…1b5568 Dummy {f00=0x0082, f01=0x018e, f02=» L H D ! PL P #P. 7W =P C O QP Y g uT yW }W W W W H D ! ~ L (n L T" R T H D ! +U 9 ? QT ] e {T ( T Ph (n P P H D !.q P W (x P 1+ 5+
0x1b5568…1b56fc Dummy {f00=0x0082, f01=0x400c, f02=» @
0x1b56fc…1b5890 Dummy {f00=0x0082, f01=0x2008, f02=» 3 L = REL 10.1:2 DATE = 79 -1 0- 1215PACK NBR = 0001 f ?
0x1b5890…1b5a24 Dummy {f00=0x0082, f01=0x0190, f02=» Q O O : P _ ]$ O O : N O : Q T O O : R : _* 0 : O f O v n : N C C C ( : +h O B O N - O j z ,
0x1b5a24…1b5bb8 Dummy {f00=0x0082, f01=0x0190, f02=» O N _ P $# P _ : . H : ,_ +_ _ = H : : _ - H : N # P N N Q N N P () ) : P _@ Z: _H N P R O : N - O
0x1b5bb8…1b5d4c Dummy {f00=0x0082, f01=0x0000, f02=»
0x1b5d4c…1b5ee0 Dummy {f00=0x0082, f01=0x0014, f02=» ( 0 8 @ H P
0x1b5ee0…1b6074 (2, 49) Dummy {f00=0x0082, f01=0x018e, f02=» J F IDENT START REL 2.1 79-10-29 870150540210 J F " LINHONK LINHOF ATMASB LSAVOF LSAVON EMULA LIOLON LIOLOFC VDUKB R . * DCTASK DC1INQN DC2INQ REQTIM ICWRTE@ , ( , ( !
0x1b6074…1b6208 Dummy {f00=0x0082, f01=0x0190, f02=» , ( , ( 4 , ( d , ( , ( , ( !
0x1b6208…1b639c Dummy {f00=0x0082, f01=0x018e, f02=»CGETM , ( _ ( ( RLRBUF > EMULA P VDUKB b , ( { B _ C ( : t ERASE , ( . V P ! , ( O O O N T
0x1b639c…1b6530 Dummy {f00=0x0082, f01=0x018e, f02=» f DC2INQ $ , ( ( : O B P B , ( 1 P 1( _t N ! b N ! P L , ( Q " Z Y | , ( P q N P O REQTIM , ( ( : C
0x1b6530…1b66c4 Dummy {f00=0x0082, f01=0x0190, f02=» , ( : N P R , ( PR P_ O P # T N 4 , ( / T T O : N d , ( M Q # P _ O : , ( k T % X _ % Q _ _6 N , ( { V -
0x1b66c4…1b6858 Dummy {f00=0x0082, f01=0x0190, f02=» P P R W # O , ( : Y2# 6 $ , ( ) O O _@ P w N N P N T , ( I $ T $ P 0 w 0 w , ( i : , w N N P N , ( $ P v N T
0x1b6858…1b69ec Dummy {f00=0x0082, f01=0x018e, f02=»W % N T , ( @ O Q F B ! PT $ , ( ' : N P Z P Q T , ( E N P D + % _ , ( e ) N + N P %W O , ( : T W
0x1b69ec…1b6b80 Dummy {f00=0x0082, f01=0x0190, f02=» TRPAN , ( _ : . H : ,_ TRPFN H , ( +_ _ = H : X , ( $ : _ - H : , ( 5 N # P N N ERASUA , ( U $ Q
0x1b6b80…1b6d14 (2, 50) Dummy {f00=0x0082, f01=0x0190, f02=»P R l , ( O : N - O , ( B + I I C ( : < LIOLON l LIOLOFC LINHONK LINHOF , ( W W W W W W W W LSAVON LSAVO
0x1b6d14…1b6ea8 Dummy {f00=0x0082, f01=0x0190, f02=»P _ ]$ O , ( m O : N O : ( , ( Q T O O : X , ( R : _* 0 : O , ( O : N ICWRTE@ , (
0x1b6ea8…1b703c Dummy {f00=0x0082, f01=0x0190, f02=» ! x # x % x ' x ) x + x - x / x 1 x 3 x 5 8 7 8 9 8 ; 8 = 8 ? 8 H D ! A 8 C 8 E 8 G 8 I 8 K 8 M 8 O 8 Q 8 S 8 U 8 W 8 Y 8 [ 8 ] 8 _ 8 H H D ! a 8 c 8 e 8 g 8 i 8 k 8 m 8 o 8 q 8 s 8 u 8 w 8 y 8 { 8 } 8 8 H D ! 8 8 8 8 8 8 8 8
0x1b703c…1b71d0 Dummy {f00=0x0082, f01=0x0190, f02=» x H D ! 4 H D ! F 4 H D ! ! # * % ' ) + - / 1 3 5 b 7 X 9 r ;
0x1b71d0…1b7364 Dummy {f00=0x0082, f01=0x0190, f02=» W V W 2 R R d H D ! = ! 2 %P )T /T 5T O UQ [P oT {Q x x V H D ! U P( P 2 P R W CP MT SP> W a x k x o x P l H D !@$ P T P P T P P W T Q #T ; t ?P CQ H D !
0x1b7364…1b74f8 Dummy {f00=0x0082, f01=0x4082, f02=» W P H D ! N W W W W W W W W !W 7 =Q MP [ Q T R X l@ ~P R W CP MT SP> W a x k x o x P l H D !@$ P T P P T P P W T Q #T ; t ?P CQ H D !
0x1b74f8…1b768c Dummy {f00=0x0082, f01=0x0190, f02=» J F IDENT VDUPRT REL 2.1 79-10-29 870150540210 D @ TRPFY TRPAY ERASE SETCUR ERASUPA DISPL ERASUAL WCHAR UPDATE R , ( RFMDUP DCINP RLRBUF DCGETM GTRBUF DCINP , ( O B O N - O
0x1b768c…1b7820 Dummy {f00=0x0082, f01=0x0190, f02=»" P N " O N " P SNBUSY $ DCGETM v 6 , ( Y N " O W B : J REQTIM~ z , ( w C 4 C C ( :
0x1b7820…1b79b4 (2, 51) Dummy {f00=0x0082, f01=0x0190, f02=» _ Q = : : <" T TEBCDI 0 , ( 9 _ 2 H !?9F 2 H "? B , ( U : , N / r , ( s O ( B P N ' O LSAVOF , ( H 1 ( :
0x1b79b4…1b7b48 Dummy {f00=0x0082, f01=0x0190, f02=» V 0 !`P X , ( _ " T V 0 !` V _ $ UPDATE 6 T , ( $ ' _J : O B h , ( G 2 T 2 1P 5P ?P W , ( g N W W W , (
0x1b7b48…1b7cdc Dummy {f00=0x0082, f01=0x0190, f02=» P P T |_X T }_b , ( T ~_l T 0_v X T ( , ( ' _ B : 2 H ! X , ( E :a" _ < ^, _ O , ( e _ T ^ 0 " R , ( 1 _ " X 0
0x1b7cdc…1b7e70 Dummy {f00=0x0082, f01=0x0190, f02=» O " P N x , ( T B + I I I , ( # C ( N " T : H ERASE x , ( C ^ 0"`T 0" 1 _ , ( c V 1 _ O O O , ( N T ; 1
0x1b7e70…1b8004 Dummy {f00=0x0082, f01=0x0190, f02=» ^ " O P W P ERASUAL . , ( W R T P B , ( # " V " T P " Q W R r , ( C X 0" R 2 P 1 , ( c _( " T P " Q _< R TRP
0x1b8004…1b8198 Dummy {f00=0x0082, f01=0x0190, f02=» h , ( C P " , ( Q " 2 O P PR 8 , ( V 0 " 1 R h , ( # X4 }T 9 ~T 5 |T < ] , ( C _R" 2 O P " P W ] , ( c _r PR
0x1b8198…1b832c Dummy {f00=0x0082, f01=0x0190, f02=»A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 & P ABR* A15 : P EJECT L P* Z P* START PROCEDURE TIMER d P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P DATA PRTOUT,TIMPRO $ P ST A4,DCTPP
0x1b832c…1b84c0 Dummy {f00=0x0082, f01=0x0190, f02=» | P LDKL A5,STB LOAD STACK BASE , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ , P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED p P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM P EJECT P*
0x1b84c0…1b8654 (2, 52) Dummy {f00=0x0083, f01=0x0190, f02=»TIMER P CM DCTPP PHPT10 RTN A5 P EJECT 4 P IFT CODE=1 B P* V P* ` P* CALCULATION OF CRC j P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRCSAV P ST
0x1b8654…1b87e8 Dummy {f00=0x0083, f01=0x0190, f02=» P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 , PCRC110 SUK A1,1 B P RB(NZ) CRC100 Z P LD A1,CRCSAV p P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P* ( P* READ CRC C
0x1b87e8…1b897c Dummy {f00=0x0083, f01=0x0190, f02=» NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SAVE IT < P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN | P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,4 . P CWR A2,A6
0x1b897c…1b8b10 Dummy {f00=0x0083, f01=0x018e, f02=» " P* CR=0 IF LRC OK P* * PRDLRC IM SYNSW 4 P CF A5,READP J P ADK A5,4 ^ P LDR A1,A1 p P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P XIF P EJECT P*
0x1b8b10…1b8ca4 Dummy {f00=0x0083, f01=0x0190, f02=»,ECBCW,A8 GET TCS IF ANY P ANK A2,/FF P RF(Z) DCTP10 4 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII J P SLL A2,8 v PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P XIF
0x1b8ca4…1b8e38 Dummy {f00=0x0083, f01=0x0190, f02=»BUF,A6 ( P LD A3,ECBRL,A8 CURSOR ADDRESS WORD P ST A3,DWTCUR,A6 : P XIF R " P CWK A6,DW1500 DCTASK DWT ??? ^ 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FUL
0x1b8e38…1b8fcc Dummy {f00=0x0083, f01=0x0190, f02=» r $ P AD* A4,DCTAB LAST TABLE POS. =3 * PDCTP22 SUK A4,2 ADDR. TO NEXT ENTRY =3 0 * P CW A4,DCTAB ALL ENTRIES CHECKED?? =3 ^ * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 " P RB DCTP22 CHE
0x1b8fcc…1b9160 Dummy {f00=0x0083, f01=0x0190, f02=»C:TAB IN POINTER z P * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH P IFT STAT=1 N P LDK A1,4 DEVICE END b P ORS A1,DWTST,A6 ~ ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF PDCTP30 EQU * P SUR A1,A1 RETURN CODE ::= 0 PEN
0x1b9160…1b92f4 (2, 53) Dummy {f00=0x0083, f01=0x018e, f02=»* P* COMPLETE WHEN: P* SUCCESFUL TRANSMISSION " P* TIME OUT D P* X P* b PDCWR EQU * l P IFT MMUPAG=1 ~ $ P LD A1,ECBRL,A8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! P XIF
0x1b92f4…1b9488 Dummy {f00=0x0083, f01=0x0190, f02=» P* P* COMPLETE WHEN: P* MESSAGE RECEIVED * P* TIME OUT F P* Z P* d PDCRD EQU * n P LD A8,DWTECB,A6 GET ECB $ P LD A2,ECBRL,A8 REQUESTED LENGTH P CWK A2,RBUFL+RBUFL & P RF(L) IL:LEN ILLEGAL BUFFER SIZE
0x1b9488…1b961c Dummy {f00=0x0083, f01=0x0190, f02=»HE FIRST IN QUEUE ~ P ST A2,DWTRQ,A6 P ADK A4,6 2 " P LD A3,-4,A4 EFFECTIVE LENGTH D P ST A3,ECBEL,A8 j P * P CF A15,DC:MIN MOV DATA TO USER BUFFER P SUK A4,6 P CF A15,RRBUF RELEASE BUFFER P LDK A1,0 P CF A15,
0x1b961c…1b97b0 Dummy {f00=0x0083, f01=0x0190, f02=»T STATUS P* P* P IFF STAT=0 $ PDCSS EQU * 8 * P LD A1,ECBCW,A8 GET STATUS INFORMATION J P ANK A1,3 MASK DB,IR x P RF(Z) DCSS20 DEVICE END PDCSS10 EQU * P ST A1,DWTST,A6 P RB DCTP30 COMPLETE REQUEST PDCSS
0x1b97b0…1b9944 Dummy {f00=0x0083, f01=0x0190, f02=»INSERT DWT IN STATUS QUEUE P LDK A1,4 SET DE " P RB DCSS10 : P XIF L P EJECT X P f P* n " P* SET REQUEST TIMEOUT VALUE x P* P* P PREQTIM EQU * " P LD A2,ECBCW,A8 TIMEOUT VALUE $ P ST A2,DWTTIM,A6 SAV
0x1b9944…1b9ad8 Dummy {f00=0x0083, f01=0x018e, f02=»IL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH P ABL DISEND COMPLETE REQUEST < P EJECT ` P* n P* x P* P* TIMER HANDLING PART P* P* P* P* READ TIMER=TIMERR P* PTIMERE EQU * P LDR A
0x1b9ad8…1b9c6c Dummy {f00=0x0083, f01=0x0000, f02=»
[…0x1…]
0x1b9e00…1b9f94 (2, 54) Opaque[0x194]
0x1b9f94…1ba128 # DirEnt {nam=»LIST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1070, f03=0x0000}
0x1b9f94…1ba128 IdxSect {
0x1b9f94…1ba128 f00 = 0x0083 // 0x1b9f94 @0x0
0x1b9f94…1ba128 f01 = 0x0002 // 0x1b9f96 @0x2
0x1b9f94…1ba128 gno = [ // 0x1b9f98 @0x4
0x1b9f94…1ba128 [0x00]: C0x0083.0x2.0
0x1b9f94…1ba128 ]
0x1b9f94…1ba128 }
0x1ba128…1ba2bc Dummy {f00=0x0083, f01=0x00a4, f02=» ASM START PSCR /O ASM VDUPRT $ PSCR /O 6 ASM PRT D ASM TB3270 T PSCR /O f TRA DATDIV t SCR /O ASG /E0,TY10
0x1ba2bc…1ba450 Dummy {f00=0x0083, f01=0x2008, f02=» START PSCR /O ASM VDUPRT $ PSCR /O 6 ASM PRT D ASM TB3270 T PSCR /O f TRA DATDIV t SCR /O ASG /E0,TY10
0x1ba450…1ba5e4 Dummy {f00=0x0083, f01=0x40a2, f02=» L H IDENT S:BTAB TRA 4.1 79-05-07 F1 O1111 REL 2.1 79-05-07 87015054012 S:BTAB T S:BTABB f z :B @ T :A @ D0 * @
0x1ba5e4…1ba778 Dummy {f00=0x0083, f01=0x0190, f02=» L H IDENT Z:TB10 TRA 4.1 79-05-07 F1 O1111 REL 2.1 79-05-07 87015054012 Z:TB10 T Z:TB10T f * & z * & * & = * &
0x1ba778…1ba90c Dummy {f00=0x0083, f01=0x0190, f02=» * & , * & Z * & * & - * & K
0x1ba90c…1baaa0 Dummy {f00=0x0083, f01=0x0190, f02=» n * & * & : * & h * & * & ; * & Y
0x1baaa0…1bac34 (2, 55) Opaque[0x194]
0x1bac34…1badc8 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1078, f03=0x0000}
0x1bac34…1badc8 IdxSect {
0x1bac34…1badc8 f00 = 0x0083 // 0x1bac34 @0x0
0x1bac34…1badc8 f01 = 0x0002 // 0x1bac36 @0x2
0x1bac34…1badc8 gno = [ // 0x1bac38 @0x4
0x1bac34…1badc8 [0x00]: C0x0083.0x3.0
0x1bac34…1badc8 ]
0x1bac34…1badc8 }
0x1badc8…1baf5c Dummy {f00=0x0083, f01=0x006c, f02=» $NOIF PLED @S,/S,/EE,XX PXXCH $$ IF$$ IF$$ * PXXEN F ASM /S,@L R END d
0x1baf5c…1bb0f0 Dummy {f00=0x0083, f01=0x2008, f02=» F PLED @S,/S,/EE,XX PXXCH $$ IF$$ IF$$ * PXXEN F ASM /S,@L R END d
0x1bb0f0…1bb284 Dummy {f00=0x0083, f01=0x0190, f02=» H W W > > > > > > > > @4tV ? 4t > _ > ? _ > > ? ^ ! Y ^ _ , A. #M 1 C j 8W T 8P Y ^ 5 ) P U , XH D #D
0x1bb284…1bb418 Dummy {f00=0x0083, f01=0x0190, f02=» T # P W R Y (@ 2 ,(@ X L L U 0 % _ ,(@ X P& T D #DP 0P X T 4 Y R X @z X T X @z 1 1 X P> - M X P. P& # P 0P 1 _ W R Y ( Y
0x1bb418…1bb5ac Dummy {f00=0x0083, f01=0x0190, f02=» P C B T B % X * $ 4 T % X (T ! W Y * V B P X " _V B P $$ R % C W Y 'PB Y &P8 Y $P Y %P R _Q P OR R Wz B V Wn W 0 Z B Z Z" X * ,T @
0x1bb5ac…1bb740 Dummy {f00=0x0083, f01=0x0190, f02=» X R2;GV. X V X ( $4 P X *T * W Y ( - ? X :a Z T T W P X :d Y > > |Vd ? 8 R @R6 V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > @T , _
0x1bb740…1bb8d4 (2, 56) Opaque[0x194]
0x1bb8d4…1bba68 # DirEnt {nam=»DW2501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1080, f03=0x0000}
0x1bb8d4…1bba68 IdxSect {
0x1bb8d4…1bba68 f00 = 0x0084 // 0x1bb8d4 @0x0
0x1bb8d4…1bba68 f01 = 0x0002 // 0x1bb8d6 @0x2
0x1bb8d4…1bba68 gno = [ // 0x1bb8d8 @0x4
0x1bb8d4…1bba68 [0x00]: C0x0084.0x0.0
0x1bb8d4…1bba68 ]
0x1bb8d4…1bba68 }
0x1bba68…1bbbfc Dummy {f00=0x0084, f01=0x0190, f02=» 2 P IDENT DW2501 REL 10.0 80-03-14 870150541000 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW2501 TABLE ENTRY * P EXTRN DC25AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 0 P*
0x1bbbfc…1bbd90 Dummy {f00=0x0084, f01=0x0190, f02=»DRESS P DATA DWTEND-DW2501 P RIGHT BYTE=ORDER * * P DATA DC25AD POINTER TO ADDRESS-BLOCK F P DATA 'DC' TTAB-ADDRESS t $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 P DATA 0 USER E
0x1bbd90…1bbf24 Dummy {f00=0x0084, f01=0x4134, f02=»ATA 0 STATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V , P DATA 50 REQUEST TIMEOUT. DEFAULT 5 SEC. t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P*
0x1bbf24…1bc0b8 Dummy {f00=0x0084, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x1bc0b8…1bc24c Dummy {f00=0x0084, f01=0x0190, f02=»1,X'30' CHARACTER ZERO C 8 P SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER D " P CF A14,NUM DISPLAY CHARACTER D Z P D PZERO:2 EQU * D P LDK A1,X'30' CHARACTER ZERO D 8 P SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER D " P CF A14,NUM
0x1bc24c…1bc3e0 Dummy {f00=0x0084, f01=0x0190, f02=»******************** D j P* E P* NUM E & P* E 4 " P* DISPLAY AND UPDATE NUMERICS E > P* E d > P********************************************************** E n P* E PNUMCOM EQU * E P LDK A2,/2C E P SC* A2,ECBKB+ECBBA,CREBAS E P* E
0x1bc3e0…1bc574 (2, 57) Opaque[0x194]
0x1bc574…1bc708 # DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1088, f03=0x0000}
0x1bc574…1bc708 IdxSect {
0x1bc574…1bc708 f00 = 0x0084 // 0x1bc574 @0x0
0x1bc574…1bc708 f01 = 0x002a // 0x1bc576 @0x2
0x1bc574…1bc708 gno = [ // 0x1bc578 @0x4
0x1bc574…1bc708 [0x00]: C0x0084.0x1.0
0x1bc574…1bc708 [0x01]: C0x0084.0x2.0
0x1bc574…1bc708 [0x02]: C0x0084.0x3.0
0x1bc574…1bc708 [0x03]: C0x0085.0x0.0
0x1bc574…1bc708 [0x04]: C0x0085.0x1.0
0x1bc574…1bc708 [0x05]: C0x0085.0x2.0
0x1bc574…1bc708 [0x06]: C0x0085.0x3.0
0x1bc574…1bc708 [0x07]: C0x0086.0x0.0
0x1bc574…1bc708 [0x08]: C0x0086.0x1.0
0x1bc574…1bc708 [0x09]: C0x0086.0x2.0
0x1bc574…1bc708 [0x0a]: C0x0086.0x3.0
0x1bc574…1bc708 [0x0b]: C0x0087.0x0.0
0x1bc574…1bc708 [0x0c]: C0x0087.0x1.0
0x1bc574…1bc708 [0x0d]: C0x0087.0x2.0
0x1bc574…1bc708 [0x0e]: C0x0087.0x3.0
0x1bc574…1bc708 [0x0f]: C0x0088.0x0.0
0x1bc574…1bc708 [0x10]: C0x0088.0x1.0
0x1bc574…1bc708 [0x11]: C0x0088.0x2.0
0x1bc574…1bc708 [0x12]: C0x0088.0x3.0
0x1bc574…1bc708 [0x13]: C0x0089.0x0.0
0x1bc574…1bc708 [0x14]: C0x0089.0x1.0
0x1bc574…1bc708 ]
0x1bc574…1bc708 }
0x1bc708…1bc89c Dummy {f00=0x0084, f01=0x018e, f02=» 2 P IDENT DRDC25 REL 10.0 80-03-14 870150541000 & P =9, OLLES POWER UP+MODEM NOT OP : P REL 10.1 79-10-26 d P P REL 10.1 ADAPTATION P REL 9.1 79-08-16 P =8, ASCII-MODE FOR SALCUZ P REL 9.1 79-07-19 & P =7,
0x1bc89c…1bca30 Dummy {f00=0x0084, f01=0x0190, f02=» $ P =5, INCOMPLETE POLL SEQUENCE P REL 9.1 79-05-23 , P =3, TRANSFER PARAMETER H P PRR 9.1 79-04-06 j P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING P PRR 9.1 78-11-29 P =1, MSR-I
0x1bca30…1bcbc4 Dummy {f00=0x0084, f01=0x0190, f02=»*********** n P* $ P* PHILIPS TERMINAL SYSTEM PTS P* F * P* DRDC15: DRIVER DATA COMMUNICATION P . P* BSC MULTIPOINT LINE PROCEDURE ~ P* OR SIEMENS MSV1 P* P* P* P* P* 8 P**
0x1bcbc4…1bcd58 Dummy {f00=0x0084, f01=0x0190, f02=»D ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH2501 INPUT INTERRUPT * " P ENTRY IH2502 OUTPUT INTERRUPT P " P ENTRY DC25ON POWER ON ROUTINE v " P ENTRY DW2500 DWT FOR DC TASK P* P* P* EXTERNAL REFERENCES P* P* " P
0x1bcd58…1bceec Dummy {f00=0x0084, f01=0x0190, f02=»REQUEST ERROR P EXTRN SETIME SET TIMER P EXTRN DWTST DWT STATUS 6 P EXTRN DWTOR DWT ORDER V P EXTRN DWTECB DWT ECB t * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCDIC TABLE ( P EXTRN TASCII EBCDIC TO ASCI
0x1bceec…1bd080 Dummy {f00=0x0084, f01=0x018e, f02=» P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD ( * P EXTRN DC:MIN MOVE DATA TO USER BUFFER N , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER | 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH * P EXTRN PFPOST WAIT FOR POWER UP IF SET
0x1bd080…1bd214 (2, 58) Dummy {f00=0x0084, f01=0x0190, f02=» P* P* P* DWT CONTENTS P* . J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) 8 P* P EJECT < P******************************************************* P* * P* PARAMETERS FOR CONDITIONAL ASS
0x1bd214…1bd3a8 Dummy {f00=0x0084, f01=0x0190, f02=»15FC EQU /63 $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU X:C < " PX:D EQU 600 POLL TIMEOUT VALUE P PTIMPOL EQU X:D v * PX:E EQU 0 STATUS AND RVI HANDLING IF=1 PSTAT EQU X:E ( PX:F EQU 0 READ COMMAND HANDLING IF=1 PRCOM EQU X:F
0x1bd3a8…1bd53c Dummy {f00=0x0084, f01=0x0190, f02=»I EQU 1 IF 1 SPECIFIC POLL HANDLING PSPECP EQU X:I , , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH B ( P IF = 0 LINE SPEED IS SET TO LOW r PSPEED EQU X:J * PX:K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:K . PX:L EQU 2 NUMBER O
0x1bd53c…1bd6d0 Dummy {f00=0x0084, f01=0x0190, f02=»2 P IFT P6805=0 , PLCUIN EQU X:N DEVICE ADDRESS OF RECEIVER P XIF N P IFT P6805=1 Z , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER n P XIF PX:O EQU 1 . PIBMCHR EQU X:O IF 1 IBM CHARACTER HANDLING . PX:P EQU 0 IF 1 MESSAGE PAS
0x1bd6d0…1bd864 Dummy {f00=0x0084, f01=0x0190, f02=» $ PTBUFL EQU X:R MMU BUFFER LENGTH * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION 0 , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING ^ , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 0 P DOESN'T ACCEPT
0x1bd864…1bd9f8 Dummy {f00=0x0084, f01=0x0190, f02=»FT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ Z P IFT P6805=1 p < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P* P EJECT P* P* . P**
0x1bd9f8…1bdb8c Dummy {f00=0x0084, f01=0x0190, f02=»*** j P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. H P* v PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQ
0x1bdb8c…1bdd20 Dummy {f00=0x0084, f01=0x0190, f02=»FER SIZE r P* P EJECT P* ( P* DWT DISPLACEMENTS 2 P* N 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART X P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4
0x1bdd20…1bdeb4 (2, 59) Dummy {f00=0x0084, f01=0x0190, f02=»EQU START+/04 STATUS QUEUE & PDWTRQ EQU START+/06 RECEIVE QUEUE " . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS L ( PDWTCUR EQU START+/0A CURSOR ADDRESS ~ , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* P EJECT P* P* REQUEST HA
0x1bdeb4…1be048 Dummy {f00=0x0084, f01=0x0190, f02=»RS x P* /38: SET STATUS $ P* /39: SET REQUEST TIMEOUT VALUE $ P* L P* V P* CONSTANTS AND WORK AREAS ` P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STAT
0x1be048…1be1dc Dummy {f00=0x0084, f01=0x0190, f02=»ESS BLOCK P* $ P DATA 0 INDICATES NO MMU BUFFER P DATA DEVIND DEVICE INDEX D * PDC15DC DATA DCACTD ACTIVATION ADDRESS f & P DATA ABORT ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR P* P* DRIVER ADDRESS BLOCK
0x1be1dc…1be370 Dummy {f00=0x0084, f01=0x0190, f02=»ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR 2 P* Z , P RES 15 SUBROUTINE STACK FOR INTERRUPTS d PSTB RES 1 " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 P P IFT SPEED=1 PLSPEED EQU /02
0x1be370…1be504 Dummy {f00=0x0084, f01=0x0190, f02=»ASKS t P* PDCACT EQU * P LDK A1,0 PRESET RETURN CODE * P IFT EM3270=1 =4 N P LDR A7,A7 =4 h & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 ~ P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC P SUK A7,/06-/02 P RF(Z)
0x1be504…1be698 Dummy {f00=0x0084, f01=0x0190, f02=»T STATUS P SUK A7,/39-/38 $ P ABL(Z) REQTIM SET REQUEST TIMER ( P XIF P P P IFT STAT=0 d P SUK A7,/39-/37 x $ P RF(Z) REQTIM SET REQUEST TIMER P XIF P RF DCA100 P EJECT P* P* P* ACTIVATION FRO
0x1be698…1be82c Dummy {f00=0x0084, f01=0x0190, f02=» & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF 2 P SUK A7,/02 > P RF(E) DCRDDC READ R P SUK A7,/37-/02 l $ P RF(E) DCTP TRANSFER PARAMETERS P PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER P* P*
0x1be82c…1be9c0 Dummy {f00=0x0084, f01=0x0190, f02=»T p $ P* SPONTANOUS MESSAGE RECEPTION P* 2 PDCRDDC EQU * < , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED P PDCRTN EQU * P ABL TDISP GO TO DISPATCHER P IFT EM3270=1 =4 P EJECT . P****************************************
0x1be9c0…1beb54 (2, 60) Dummy {f00=0x0085, f01=0x0190, f02=»ED MESSAGE ?? =4 r P RF(Z) DCRD10 NO!! =4 ( P RF ENDIO YES!! COMPLETE REQUEST =4 6 P XIF b P EJECT n P* | P* P* TRANSFER PARAMETERS P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P*
0x1beb54…1bece8 Dummy {f00=0x0085, f01=0x0190, f02=» P XIF P IFT CODE=1 & PDCTP LC A2,ECBCW,A8 GET TCS IF ANY $ P ANK A2,/FF N P RF(Z) DCTP10 b ( P LC A2,TASCII,A2 TRANSLATE TO ASCII x P SLL A2,8 PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF ( P L
0x1bece8…1bee7c Dummy {f00=0x0085, f01=0x0190, f02=»BA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6 $ ( P LD A3,ECBRL,A8 CURSOR ADDRESS WORD < P ST A3,DWTCUR,A6 h P XIF " P CWK A6,DW2500 DCTASK DWT ??? 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT PO
0x1bee7c…1bf010 Dummy {f00=0x0085, f01=0x018e, f02=»20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB LAST TABLE POS. =3 6 * PDCTP22 SUK A4,2 ADDR. TO NEXT ENTRY =3 ^ * P CW A4,DCTAB ALL ENTRIES CHECKED?? =3 * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3
0x1bf010…1bf1a4 Dummy {f00=0x0085, f01=0x018e, f02=» n P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P H * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH P P IFT STAT=1 ~ P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF PDCTP30 EQU
0x1bf1a4…1bf338 Dummy {f00=0x0085, f01=0x018e, f02=» P* P* P* WRITE P* ( P* 2 P* COMPLETE WHEN: < P* SUCCESFUL TRANSMISSION T P* TIME OUT v P* P* PDCWR EQU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LEN
0x1bf338…1bf4cc Dummy {f00=0x0085, f01=0x0190, f02=» P* P* P* P* READ " P* 0 P* : P* COMPLETE WHEN: D P* MESSAGE RECEIVED P* TIME OUT x P* P* PDCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE " P RF(
0x1bf4cc…1bf660 Dummy {f00=0x0085, f01=0x018e, f02=» " P LD A3,-4,A4 EFFECTIVE LENGTH P ST A3,ECBEL,A8 . P F P LDK A1,0 RESET RETURN CODE N * P CF A15,DC:MIN MOV DATA TO USER BUFFER r P RB DCRTN P $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN P EJECT P*
0x1bf660…1bf7f4 (2, 61) Dummy {f00=0x0085, f01=0x0190, f02=» P ANK A1,3 MASK DB,IR P RF(Z) DCSS20 DEVICE END PDCSS10 EQU * @ P ST A1,DWTST,A6 T P RB DCTP30 COMPLETE REQUEST l PDCSS20 EQU * P LD A1,DWTST,A6 P ANK A1,9 ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT PDCSS30 EQU *
0x1bf7f4…1bf988 Dummy {f00=0x0085, f01=0x0190, f02=» " P* SET REQUEST TIMEOUT VALUE P* * P* 4 P > PREQTIM EQU * F " P LD A2,ECBCW,A8 TIMEOUT VALUE Z $ P ST A2,DWTTIM,A6 SAVE IT IN DWT P RB DCTP30 TENDIO & DISPATCH P P* ( P* ILLEGAL APPLICATION BUFFER SIZE
0x1bf988…1bfb1c Dummy {f00=0x0085, f01=0x0190, f02=» P* P* P* TIMER HANDLING PART P* 6 P* @ P* J P* READ TIMER=TIMERR T P* p PTIMERE EQU * z P LDR A1,A6 . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE P RF(Z) TIME10 NO TIMING P ST A2,TIMERR P
0x1bfb1c…1bfcb0 Dummy {f00=0x0085, f01=0x018e, f02=»10 RETURN P* ! P* TIMEOUT READ TIMER ! P* ! 8 PTOUTRE EQU * ! B P LDR A6,A1 FETCH DWT ! V P CM DWTTP,A6 ! r PTOUTR1 EQU * ! " P LDK A1,/40 INDICATE TIME OUT ! $ PTOUTR2 RB ENDIO COMPLETE REQUEST ! P* ! P* WRITE TIMER=TIMWR !
0x1bfcb0…1bfe44 Dummy {f00=0x0085, f01=0x0190, f02=» ! P CF A15,SETIME " P DATA TOUTWR " PTIMWR DATA 0 " 2 P ST A4,DWTTP,A6 " F P RB TIME10 " ^ P EJECT " p P* " ~ P* TIMEOUT WRITE TIMER " P* " PTOUTWR EQU * " P LDR A6,A1 FETCH DWT " P CM DWTTP,A6 " * P CF A15,REMOVW REMOV
0x1bfe44…1bffd8 Dummy {f00=0x0085, f01=0x0190, f02=» CWR A2,A6 " * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING # ( P CM XACK INDICATE 'ACK NOT EXPECTED' # @ P CM FDWTUT # l P* # ~ P* # P RB TOUTR1 # P EJECT # P* # P* # P* STOP REQUEST TIMING # P* # & P* REMAINING TIME IS RETURN
0x1bffd8…1c016c Dummy {f00=0x0085, f01=0x0190, f02=»* A2,A2 # " P NGR A2,A2 GET REMAINING TIME $ P CM* DWTTP,A6 STOP TIMER $ 6 P CM DWTTP,A6 $ V PCTIM10 EQU * $ j P RF GBUF10 $ ~ P EJECT $ P* $ P* GET RECEIVE BUFFER $ P* $ $ P* CALLING SEQUENCE: CF A15,GRBUF $ P* A4=0 IF NO BUFFE
0x1c016c…1c0300 Dummy {f00=0x0085, f01=0x0190, f02=»ECEIVE BUFFERS $ z PGBUF INH % P LDR* A4,A2 % & P RF(Z) GBUF10 NO BUFFER FREE % : . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN % ^ P STR A3,A2 % * PGBUF10 ADKL A15,4 ADJUST STACK POINTER % P ABR* A15 RETURN TO CALLER % P EJECT % P* %
0x1c0300…1c0494 (2, 62) Dummy {f00=0x0085, f01=0x0190, f02=»WRQ GET QUEUE ANCHOR % PINSWQ1 LDK A4,DWTWQ & PINSWQ2 LDR* A3,A2 & 8 $ P RF(Z) INSWQ3 END OF QUEUE FOUND & R P LDR A2,A3 & z P RB INSWQ2 & PINSWQ3 ADR A4,A6 & P STR A4,A2 INSERT IN QUEUE & " P CMR A4 INDICATE END OF QUEUE & P RB GBUF10
0x1c0494…1c0628 Dummy {f00=0x0085, f01=0x0190, f02=»* & * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR ' 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED ' 8 PREM06 EQU * ' n P ADR A4,A6 ' PREM10 LDR* A3,A2 ' & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ' P CWR A3,A4 ' P RF(E) REM15 ' P LDR A2,A3
0x1c0628…1c07bc Dummy {f00=0x0085, f01=0x0190, f02=»* ' P* INSERT DWT IN STATUS QUEUE ( P* ( . P IFF STAT=0 ( 8 P* A2,A3,A4 DESTROYED ( L P* A6=DWT ( h P* ( x ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR ( P LDK A4,DWTSQ ( P RB INSWQ2 ( P* ( P* ( " P* REMOVE DWT FROM STATUS QUEUE
0x1c07bc…1c0950 Dummy {f00=0x0085, f01=0x0190, f02=» P RB REM06 ) P XIF ) P EJECT ) " P* ) 0 P* ) : $ P* QUEUE ALLOCATED RECEIVE BUFFER ) D P* ) l P* A4=BUFFER ADDR ) v P* A2,A3 DESTROYED ) P* ) PQRBUF EQU * ) P IFT MESPAS=1 ) ( P LDKL A2,DW2500 QUEUE ON DC-TASK DWT ) P
0x1c0950…1c0ae4 Dummy {f00=0x0085, f01=0x0190, f02=»100 EQU * ) P LDR* A3,A2 * $ P RF(Z) QR200 END OF QUEUE FOUND * & P LDR A2,A3 * N P RB QR100 * ` & PQR200 STR A4,A2 INSERT INTO QUEUE * r " P CMR A4 INDICATE END OF QUEUE * P RTN A5 * P EJECT * P* * P* * 2 P* CHECK IF UNEXPECTE
0x1c0ae4…1c0c78 Dummy {f00=0x0085, f01=0x0190, f02=» P LD A1,DWTST,A6 + P RF(N) CKM110 NO REQUEST + P LDK A1,2 READ REQUEST ? + < P CW A1,DWTOR,A6 + P RF(NE) CKM110 NO + t $ P LD A8,DWTECB,A6 ECB ADDR TO A8 + * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE + " P RF(Z) CKM200 NO READ IN QUEUE +
0x1c0c78…1c0e0c Dummy {f00=0x0085, f01=0x018e, f02=»ER TO TEXT + | & P DONT DESTROY BUFFER ADDRESS =6 , P LD A4,-4,A3 , < 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS , P P LD A4,-2,A3 , . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS , P , P LDK A1,0 RESET RETURN CODE , & P LDR A4,A3 RECEIVE
0x1c0e0c…1c0fa0 Dummy {f00=0x0085, f01=0x0190, f02=» , ~ 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS - , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT - D P CW A1,DCSTOL - t P ST A1,DCSTOL - & P RB(E) CKM110 NO CHANGE OF STATUS - * P ORKL A1,/2000 INDICATE STATUS CHANGE - 0 P CF A15,TENDIO C
0x1c0fa0…1c1134 (2, 63) Dummy {f00=0x0085, f01=0x018e, f02=» - T P* . P* ABORT ROUTINE . P* . , P************************ . 6 P . V & PABORT LD A1,DWTTP,A6 TIMER POINTER . ^ " P RF(Z) AB:10 NO TIMER RUNNING . P CM* DWTTP,A6 KILL TIMER . P CM DWTTP,A6 . P . $ PAB:10 LD A1,DWTOR,A6 ORDER COD
0x1c1134…1c12c8 Dummy {f00=0x0085, f01=0x018e, f02=» . d P / . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE / & P LD A2,FDWTUT WRITING DWT ADDRESS / B P CWR A2,A6 / l P RF(NE) AB:RTN NOT THIS DWT / ~ P CM XACK RESET ACK EXPECTED / P CM FDWTUT RESET WRITING DWT / P / PAB:RTN EQU * / P I
0x1c12c8…1c145c Dummy {f00=0x0085, f01=0x0190, f02=» / P EJECT 0 P 0 P EJECT 0 P* 0 , P* 0 6 P* STORE REGISTER A3-A8 0 @ $ P* CALLING SEQUENSE: CF A15,STREG 0 ^ P* 0 P* RESTORE 0 $ P* CALLING SEQUENCE: CF A15,LDREG 0 P* 0 P* 0 PSTREG ST A3,LCA3 0 P ST A4,LCA4 0
0x1c145c…1c15f0 Dummy {f00=0x0085, f01=0x0190, f02=»0 0 PLCA3 EQU *-2 1 P LDKL A4,0 1 PLCA4 EQU *-2 1 0 P LDKL A5,0 1 D PLCA5 EQU *-2 1 V P LDKL A6,0 1 j PLCA6 EQU *-2 1 | P LDKL A7,0 1 PLCA7 EQU *-2 1 P LDKL A8,0 1 PLCA8 EQU *-2 1 PRTNA15 EQU * 1 P ADKL A15,4 1 P ABR
0x1c15f0…1c1784 Dummy {f00=0x0085, f01=0x0190, f02=» 1 P* 2 P* CHARACTER EQUATES 2 P* 2 . & PSF EQU X'1D' START FIELD CHARACTER 2 8 PSYN EQU /16 2 b PSTX EQU /02 2 v PETX EQU /03 2 PETB EQU /17 2 PITB EQU /1F 2 PSOH EQU /01 2 PENQ EQU /05 2 PDLE EQU /10 2 PEOT EQ
0x1c1784…1c1918 Dummy {f00=0x0085, f01=0x0190, f02=» IFT CODE=0 2 PPAR EQU /80 3 PRVI EQU /3C 3 ( PACK0 EQU /30 3 < PACK1 EQU /31 3 P PDC1 EQU /11 3 d P IFT MSV1=0 3 x PWACK EQU /3B 3 P XIF 3 P IFT CODE=0 3 P IFT MSV1=1 3 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 3 P
0x1c1918…1c1aac Dummy {f00=0x0085, f01=0x0190, f02=»BC EQU /32 3 P XIF 4 P EJECT 4 P* 4 , P* 4 6 P* PROCEDURE WORK AREAS 4 @ P* 4 ^ P* 4 h * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 4 r . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 4 PXACK DATA 0 ACK EXPECTED 4 PXSEL DATA 0 SELECTED 4
0x1c1aac…1c1c40 Dummy {f00=0x0085, f01=0x0190, f02=»0 ACK COUNTER 4 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5 P* 5 D PFECB RES 1 WRITING ECB 5 N ( PFECBBA RES 1 WRITING BUFFER ADDRESS 5 l & PFECBRL RES 1 WRITING BUFFER LENGTH 5 PFBAX DATA 0 BUFFER INDEX 5 0 PFBLST DATA 0 START OF LAST TRANSMITTED
0x1c1c40…1c1dd4 (2, 64) Dummy {f00=0x0086, f01=0x0190, f02=»AVE AREA 5 p P* 6 P* 6 $ P* 3270 SENSE/STATUS INFORMATION 6 $ P* 6 L P* 6 V P IFF STAT=0 6 ` . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE 6 t P* 6 P* 6 P DATA /4248 6 P DATA /4242 6 P* 6 2 PNOIR EQU /20 S/S 1 : NO INTE
0x1c1dd4…1c1f68 Dummy {f00=0x0086, f01=0x0190, f02=»MODE 6 P* 7 " P* ENTERED EVERY TIME A MESSAGE 7 & P* IS EXPECTED FROM THE MASTER SIDE 7 < P* 7 f P* 7 p P IFT P6805=1 SALCUZ 7 z , PBRMHLT CF A5,HALTIN HALT RECEIVER SALCUZ 7 P XIF SALCUZ 7 PBRM EQU * 7 P LDKL A5,STB LOAD STACKBAS
0x1c1f68…1c20fc Dummy {f00=0x0086, f01=0x0190, f02=»TE STATUS 7 l P XIF SALCUZ 8 P IFT P6805=1 SALCUZ 8 ( 0 P CF A15,CKMESS CHECK IF STATUS CHANGE SALCUZ 8 D P XIF SALCUZ 8 x PBRM010 EQU * 8 P LD A2,PFPOST 8 $ P RF(NZ) BRM100 WAIT FOR POWER UP 8 P IFT CODE+P6805=0 SALCUZ 8 0 P LDKL
0x1c20fc…1c2290 Dummy {f00=0x0086, f01=0x0190, f02=»+SYNEBC SPECIFY SYN PATTERN 8 | P XIF SALCUZ 9 $ P IFT P6805=0 SALCUZ 9 : " P CIO A2,1,LCUIN START RECEIVER 9 V P XIF SALCUZ 9 | P IFT P6805=1 SALCUZ 9 P IFF CODE=1 SALCUZ 9 P LDK A2,/0C SALCUZ 9 * P CIO A2,1,LCUIN START RECEIVER SAL
0x1c2290…1c2424 Dummy {f00=0x0086, f01=0x0190, f02=»Z 9 P IFT CODE+P6805=2 SALCUZ : P LDK A2,0 SALCUZ : , * P CIO A2,1,LCUIN START RECEIVER SALCUZ : F P LDK A2,SYNEBC SALCUZ : t 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : P RB(NA) BRMHLT SALCUZ : P XIF SALCUZ : PBRM100 EQU *
0x1c2424…1c25b8 Dummy {f00=0x0086, f01=0x0190, f02=»STX RECEIVED : P SUK A1,EOT-STX ; P RF(Z) BRM200 EOT RECEIVED ; , P SUK A1,ENQ-EOT ; N P ABL(Z) BRM400 ENQ RECEIVED ; f P SUK A1,DLE-ENQ ; P ABL(Z) BRM600 DLE RECEIVED ; P SUK A1,NAK-DLE ; P ABL(Z) BRM500 NAK RECEIVED ; P IFT M
0x1c25b8…1c274c Dummy {f00=0x0086, f01=0x0190, f02=»M150 INVALID ADDRESSING ; P XIF < P LDK A3,0 < , P CC A2,DW2500+1 < > P RF(E) BRM110 POLLING < V P LDK A3,2 < t P CC A2,DW2500 < P RF(NE) BRM150 NOT THIS TCU < PBRM110 EQU * < P CF A5,READP READ 1:ST STA < P RF(NZ) BRM150 PAR
0x1c274c…1c28e0 Dummy {f00=0x0086, f01=0x018e, f02=» < , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE = P XIF = 8 " P CF A5,READ READ ONE CHARACTER = D P IFT P6805=0 SALCUZ = j P SUK A2,ENQ+PAR = P XIF SALCUZ = P IFT P6805=1 SALCUZ = P SUK A2,ENQ SALCUZ = P XIF SALCUZ = P RF(NZ
0x1c28e0…1c2a74 (2, 65) Dummy {f00=0x0086, f01=0x0190, f02=» P > P CIO A1,0,LCUIN HALT INPUT > P SST A1,LCUIN > . P XIF SALCUZ > D P IFT P6805=1 SALCUZ > Z $ P CF A5,HALTIN HALT INPUT SALCUZ > v . P RB(NZ) BRM010 PARITY ERROR SALCUZ SALCUZ > P XIF SALCUZ > P LDK A1,1 > P ST A1,CACK LOAD
0x1c2a74…1c2c08 Dummy {f00=0x0086, f01=0x0190, f02=» P IFT MSV1=1 ? 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) ? P XIF ? R P IFT MSV1=0 ? ^ & P CF A5,FINTER CHECK IF STA PRESENT ? r P XIF ? P LDR A6,A3 LOAD DWT TO A6 ? P ABL(NZ) SPOLL SPECIFIC POLL ? P RB BRM INVALID POLL ?
0x1c2c08…1c2d9c Dummy {f00=0x0086, f01=0x018e, f02=»SV1=0 ? $ P LDKL A6,DW2500 SELECT TO DCTASK @ PBRM130 EQU * @ 8 P ABL SELECT @ L P XIF @ ` P IFT MSV1=1 @ p P ABL BRM INVALID ADDRESS @ P XIF @ P* @ , P* WAIT FOR MARK HOLD TO RESYNCHRONIZE @ P* @ PBRM150 EQU * @
0x1c2d9c…1c2f30 Dummy {f00=0x0086, f01=0x0190, f02=» P EJECT A P* A P* A P* EOT HAS BEEN RECEIVED A & P* A F P* A P PBRM200 EQU * A Z & P CF A5,HPTIM STOP PROCEDURE TIMER A n P IFT RCOM=1 A P CM XRB RESET READ BUFFER A P XIF A P LD A1,XACK A & P RF(Z) BRM220 ACK IS NOT E
0x1c2f30…1c30c4 Dummy {f00=0x0086, f01=0x0190, f02=»TE WRITE REQUEST A | PBRM210 EQU * B " P CM XACK RESET 'ACK EXPECTED' B , PBRM220 EQU * B R P CM XSEL RESET 'SELECTED' B f P RB BRM B P EJECT B P* B P* B P* STX HAS BEEN RECEIVED B P* B P* B PBRM300 EQU * B P CF A5
0x1c30c4…1c3258 Dummy {f00=0x0086, f01=0x0190, f02=»B(Z) BRM150 NO BUFFER AVAILABLE B P********************* C ( PBRM305 EQU * C F P CF A5,RDMESS READ MESSAGE C Z P SUK A7,1 C | P RF(NZ) BRM320 MESSAGE OK C PBRM310 EQU * C ( P CM XSTA INDICATE 'INVALID MESSAGE' C PBRM312 EQU * C P CF
0x1c3258…1c33ec Dummy {f00=0x0086, f01=0x0190, f02=» C n P LD A1,DCRBUF D & P RF(Z) BRM316 NO BUFFER AVAILABLE D " P LD A6,FDWTUT GET WRITING DWT D H 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE D n P LDR* A2,A6 GET STA D P XIF D P IFT RCOM=1 D , P CF A5,PRREC PREPARE FOR TEXT RECEPTION D
0x1c33ec…1c3580 Dummy {f00=0x0086, f01=0x0190, f02=» D t P XIF E ( PBRM316 CF A5,READ READ ONE CHARACTER E P IFF P6805=1 =8 E @ P SUK A2,ENQ+PAR E X P XIF =8 E p P IFT P6805=1 =8 E P SUK A2,ENQ =8 E P XIF =8 E ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE E P RB BRM220 E PBRM320
0x1c3580…1c3714 (2, 66) Dummy {f00=0x0086, f01=0x0190, f02=»BRM325 NOT FIRST BLOCK E P IFF RCOM=0 F P LDK A1,ESC F 2 P CCR A1,A4 F F P RB(NE) BRM310 ESC NOT FOUND F X P ADK A4,1 F | P LCR A1,A4 GET COMMAND CODE F P SUK A4,1 F P SUK A1,RDBCOM F ( P RF(Z) RDBUF READ MODIFIED RECEIVED F P S
0x1c3714…1c38a8 Dummy {f00=0x0086, f01=0x0190, f02=»SSAGE ENDED BY ETB F P CM FBAX G * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER G * P ADK A4,6 G X P LD A6,FDWTIN GET INPUT DWT G j P* G " P* PREPARE FOR CHAINED COMMAND G P* G P IFT RCOM=1 G P LDR* A2,A6 G P LC A2,TEBCDIC,A2 G
0x1c38a8…1c3a3c Dummy {f00=0x0086, f01=0x0190, f02=»SSAGE IS MENT FOR DCTASK G P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H B P IFT EM3270=1 =4 H b P LD A2,DWTOR,A6 ORDER =4 H | & P RF(Z) BRM327 ANY MESSAGE ORDER =4 H P XIF =4 H P LDK A2,2 H P CW A2,DWTOR,A6 H " P RF(NE
0x1c3a3c…1c3bd0 Dummy {f00=0x0086, f01=0x0190, f02=»ENGTH H ~ * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I & P CF A15,CTIME STOP REQUEST TIMING I < ( P ST A2,ECBCW,A8 STORE REMAINING TIME I f P EJECT I P* I P* I 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC I P* I P* I P IFT STAT=1
0x1c3bd0…1c3d64 Dummy {f00=0x0086, f01=0x0190, f02=»D A2,DWTST,A6 GET STATUS I P ORK A2,/A J P ST A2,DWTST,A6 J 2 PBRM328 EQU * J J P XIF J ^ P IFT EM3270=1 =4 J j P LD A2,DWTOR,A6 ORDER =4 J , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 J & P SUK A4,6 ADJUST BUFFER ADDRESS =4 J ( P CF A5,QRB
0x1c3d64…1c3ef8 Dummy {f00=0x0086, f01=0x018e, f02=» & P CF A15,DC:MIN MOVE TO USER BUFFER K P RF BRM345 K . PBRM32A EQU * =4 K @ P K X $ P CF A15,TENDIO COMPLETE REQUEST K ` P RF BRM345 K P EJECT K PBRM330 EQU * K P IFT EM3270=1 =4 K P LD A1,DWTST,A6 STATUS =4 K P RF(N) BRM335 NO
0x1c3ef8…1c408c Dummy {f00=0x0086, f01=0x018e, f02=» K l PBRM335 EQU * =4 L P XIF =4 L P SUK A4,6 GET BUFFER BASE L 2 ( P CF A5,QRBUF QUEUE BUFFER FOR DCTASK L T . P CF A15,CKMESS COMPLETE DCTASK READ IF ANY L PBRM340 EQU * L P CF A5,TRACK SEND ACK 0/1 L P ABL BRM L PBRM345 EQU * L
0x1c408c…1c4220 Dummy {f00=0x0086, f01=0x0190, f02=» P RF BRM410 M P XIF M P IFF STAT=1 M " P RB BRM340 M 6 P XIF M H P EJECT M T P* M b P* M l , P* READ MODIFIED OR READ BUFFER RECEIVED M v P* M P* M P IFF RCOM=0 M $ PRDBUF EQU * READ BUFFER COMMAND M PRDMOD EQU * M "
0x1c4220…1c43b4 (2, 67) Dummy {f00=0x0086, f01=0x0190, f02=» SUK A4,2 SDJUST BUFFER ADDRESS M " P LDKL A3,1922 REQUESTED LENGTH N ( " P IM XRB SET READ BUFFER SWITCH N N P CM FDWTUT N t P LDK A1,1 N & P XRS A1,CACK INCREMENT ACK COUNTER N P ABL POL127 N P XIF N P* N P* N P* ENQ HAS BEEN REC
0x1c43b4…1c4548 Dummy {f00=0x0086, f01=0x0190, f02=»NSMISSION OF MESSAGE N | P OR A1,XSEL O " P RF(Z) BRM410 IN CONTROL STATE O 0 . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE O V PBRM410 EQU * O P ABL BRM O P EJECT O P* O P* O P* NAK HAS BEEN RECEIVED O P* O P* O PBRM500
0x1c4548…1c46dc Dummy {f00=0x0086, f01=0x0190, f02=»Z) BRM410 IN CONTROL STATE O P RF BRM636 P " PBRM510 EQU * P 4 " P LD A6,FDWTUT GET WRITING DWT P H P IFF STAT=0 P n P LD A1,XSTA P 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED P P XIF P 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK P &
0x1c46dc…1c4870 Dummy {f00=0x0086, f01=0x0190, f02=»* P P* Q PBRM600 EQU * Q & P CF A5,HPTIM STOP PROCEDURE TIMER Q ( P LD A1,XACK Q R " P RB(Z) BRM410 ACK NOT EXPECTED Q f & P CF A5,READ READ SECOND CHARACTER Q P IFF P6805=1 =8 Q P CWK A2,ACK0+PAR Q P XIF =8 Q P IFT P6805=1 =8
0x1c4870…1c4a04 Dummy {f00=0x0086, f01=0x0190, f02=»KCOUNTER Q ~ P RF(Z) BRM630 ACK,0 EXPECTED R PBRM610 EQU * R 4 P CF A5,TRENQ SEND ENQ R H & P CF A5,SPTIM START PROCEDURE TIMER R f P RB BRM410 R PBRM620 EQU * R P CWK A2,ACK1 R P RF(NE) BRM650 R P* R P* ACK , 1 RECEIVED R P* R
0x1c4a04…1c4b98 Dummy {f00=0x0086, f01=0x018e, f02=»ETX NOT SENT R P EJECT S P* S " , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK S , P* S P LDK A1,0 SET RC=0 S f PBRM635 EQU * S P IFF STAT=0 S P LD A2,XSTA S . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED S P XIF S ( P CF A5,CWRITE
0x1c4b98…1c4d2c Dummy {f00=0x0086, f01=0x0190, f02=» S t P XIF T P RB BRM410 T PBRM640 EQU * T & P LDK A1,1 T : & P XRS A1,CACK INCREMENT ACK COUNTER T L P ABL POL130 T v PBRM650 EQU * T P IFF P6805=1 =8 T P CWK A2,RVI+PAR T P XIF =8 T P IFT P6805=1 =8 T P CWK A2,RVI =8
0x1c4d2c…1c4ec0 Dummy {f00=0x0086, f01=0x0190, f02=»BRM660 ETX HAS BEEN SENT T P LDK A1,2 SET RC=2 U P RB BRM635 U : PBRM660 EQU * U L P LDK A1,0 SET RC=0 U ` P RB BRM635 U z P IFF STAT=0 U P EJECT U P* U P* U " P* STATUS HAS BEEN TRANSMITTED U P* U P* U PBRM670 EQU *
0x1c4ec0…1c5054 (2, 68) Dummy {f00=0x0087, f01=0x0190, f02=»CK CLEAR 'ACK EXPECTED' U P LD A1,DWTST,A6 GET STATUS V P ANK A1,4 V B P RB(Z) BRM636 NOT DE V T P LDKL A1,/8000 V p " P ANS A1,DWTST,A6 CLEAR STATUS V P RB BRM636 V P XIF V P EJECT V P* V P* V P* SELECT HAS BEEN RECEIVED V
0x1c5054…1c51e8 Dummy {f00=0x0087, f01=0x0190, f02=» LD A1,DWTST,A6 GET STATUS V P LDR A3,A1 W " P ANK A1,1 W 4 $ P RF(Z) SEL110 NO PENDING STATUS W F P CF A5,TRRVI SEND RVI W n P XIF W P IFF STAT=1 W P RF SEL110 W P XIF W PSEL100 EQU * W P ABL BRM W PSEL110 EQU * W P IFT S
0x1c51e8…1c537c Dummy {f00=0x0087, f01=0x0190, f02=»DEVICE NOT BUSY W P CF A5,TRWACK TRANSMIT WACK X P ABL BRM X < PSEL111 EQU * X L P XIF X ` P LD A1,DCRBUF X l $ P RF(NZ) SEL120 BUFFER AVAILABLE X PSEL115 EQU * X P IFF STAT+NOWACK=2 X P CF A5,TRWACK SEND WACK X P XIF X P RB
0x1c537c…1c5510 Dummy {f00=0x0087, f01=0x0190, f02=»CT X P* Y P* Y P* PREPARE FOR TEXT RECEPTION Y P* Y B P* Y L PPRREC EQU * Y V P IM XSEL SET 'SELECTED' Y j P CM FBAX RESET BUFFER INDEX Y P IFT CODE=1 Y . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC Y P XIF Y $ P ST A2,+
0x1c5510…1c56a4 Dummy {f00=0x0087, f01=0x0190, f02=»* GENERAL POLL HAS BEEN RECEIVED Y P* Z ( P* Z 2 PGPOLL EQU * Z < P LD A1,XACK =5 Z P & P RF(Z) POL020 ACK NOT EXPECTED =5 Z h " PPOL010 CF A5,TRENQ SEND ENQ =5 Z * P CF A5,SPTIM START PROCEDURE TIMER =5 Z " P ABL BRM WAIT FOR RESPONSE =5 Z
0x1c56a4…1c5838 Dummy {f00=0x0087, f01=0x0190, f02=»E SENT Z t " P SUK A6,DWTSQ GET DWT ADDRESS [ PPOL050 EQU * [ 4 P CF A5,TRSTA SEND STATUS [ H & P CF A5,SPTIM START PROCEDURE TIMER [ h P IM XACK SET 'ACK EXPECTED' [ P XIF [ P IFF STAT=1 [ P RF POL110 [ P XIF [ PPOL100 EQU * [ P
0x1c5838…1c59cc Dummy {f00=0x0087, f01=0x0190, f02=» [ z P RB POL100 PPOL120 EQU * " P SUK A6,DWTWQ GET DWT ADDRESS . PPOL125 EQU * T $ P LD A8,DWTECB,A6 GET ECB ADDRESS h P RF(NZ) POL126 P CF A15,REMOVW P RB POL115 PPOL126 EQU * P ST A8,FECB SAVE ECB ADDRESS P S
0x1c59cc…1c5b60 Dummy {f00=0x0087, f01=0x018e, f02=» MOVE DATA FROM USER BUFFER P XIF ] $ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS ] 0 P LD A3,ECBRL,A8 GET LENGTH ] Z PPOL127 EQU * ] | & P ST A4,FECBBA SAVE BUFFER ADDRESS ] ( P SUK A3,2 SKIP FIRST WORD OF BUFFER ] P ST A3,FECBRL SAVE LENGTH ] P
0x1c5b60…1c5cf4 (2, 69) Dummy {f00=0x0087, f01=0x0190, f02=» ] r & P CF A5,SPTIM START PROCEDURE TIMER ^ P IM XACK SET 'ACK EXPECTED' ^ 2 P RB POL100 ^ V P EJECT ^ h P* ^ v P* ^ & P* SPECIFIC POLL HAS BEEN RECEIVED ^ P* ^ P* ^ PSPOLL EQU * ^ P IFF STAT+SPECP=0 ^ P LD A1,XACK =5 ^
0x1c5cf4…1c5e88 Dummy {f00=0x0087, f01=0x018e, f02=» IFT STAT=1 ^ P LD A1,DWTST,A6 GET STATUS _ P ANK A1,7 _ 6 " P RB(NZ) POL050 PENDING STATUS _ H P XIF _ n P IFF STAT+SPECP=0 _ z P LD A1,DWTST,A6 _ P RB(N) POL115 NO REQUEST _ P LD A1,DWTOR,A6 GET ORDER _ P SUK A1,6 _ P RB(Z) P
0x1c5e88…1c601c Dummy {f00=0x0087, f01=0x0190, f02=» P* ` P* ` 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED ` P* ` T P* A1 CONTAINS RETURN CODE ` ^ P* ` P* ` PCWRITE LD A6,FDWTUT ` $ P RF(Z) CWR900 NO WRITE GOING ON ` P LD A2,DWTST,A6 ` P RF(N) CWR900 NO REQUEST
0x1c601c…1c61b0 Dummy {f00=0x0087, f01=0x0190, f02=»HANGE REQUEST ` z P LDR A1,A1 a 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO a ( P LDK A2,2 TRANMISSION OK a ^ ( P ST A2,DWTOR,A6 INDICATE READ ORDER a ~ P RF CWR150 a & PCWR100 LD A8,FECB GET ECB ADDRESS a P CF A15,CTIME STOP TIMING a P
0x1c61b0…1c6344 Dummy {f00=0x0087, f01=0x0190, f02=»VW REMOVE FROM WRITE QUEUE a PCWR200 EQU * b " PCWR900 EQU * b 6 " P CM XACK RESET 'ACK EXPECTED' b J P CM FDWTUT b p P RTN A5 b P EJECT b P* b P* b P* READ ONE TEXT BLOCK b P* b P* ON EXIT A3 CONTAINS : b ( P* 0 : IF COR
0x1c6344…1c64d8 Dummy {f00=0x0087, f01=0x0190, f02=» PRDMESS EQU * c $ P LD A4,DCRBUF GET BUFFER ADDRESS c P ADK A4,6 RESERVE HEADER c @ P LDK A3,0 c ` P LD A1,XSTA c r $ P RF(NZ) RDM050 LAST INPUT WAS OK c " P LD A1,FBLST COMPUTE NEW INDEX c P SUR A1,A4 c P ST A1,FBAX c PRDM050 EQU * c
0x1c64d8…1c666c Dummy {f00=0x0087, f01=0x0190, f02=»T LRC c P d P IFT IBMCHR=1 d P LD A1,FBAX d , " P RF(NZ) RDM100 NOT FIRST BLOCK d @ P CF A5,READP d f P RF(NZ) RDM120 PARITY ERROR d z P CWK A2,ESC d P RF(NE) RDM110 d * P CF A5,READP SKIP NEXT TWO CHARACTERS d P CF A5,READP d
0x1c666c…1c6800 Dummy {f00=0x0087, f01=0x0190, f02=»2,ETX d P RF(E) RDM130 ETX RECEIVED e P CWK A2,ETB e 0 P RF(E) RDM160 ETB RECEIVED e D P CWK A2,ITB e f P RF(E) RDM170 ITB RECEIVED e z P CWK A2,ENQ e 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE e P CWK A2,/FF e $ P RF(E) RDM140
0x1c6800…1c6994 (2, 70) Dummy {f00=0x0087, f01=0x018e, f02=»5 NOT DC1-DC3 e P ADK A1,3 f P RF(N) RDM115 NOT DC1-DC3 f ( P SLL A1,6 f J P LDR A8,A1 f * P CF A5,READP 8-BIT CHAR GET NEXT PART f n P RF(NZ) RDM120 PARITY ERROR f * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER f P ORR A2,A8 f PRDM115 E
0x1c6994…1c6b28 Dummy {f00=0x0087, f01=0x0190, f02=» f n P LD A1,FBAX g P CWK A1,RBUFL+RBUFL g P RB(NG) RDM100 NOT OVERFLOW g 8 P* g P* BUFFER OVERFLOW g f P* g P RF RDM140 ABORT INPUT g PRDM120 EQU * g & P LDK A3,1 INDICATE INVALID MESSAGE g P SUK A2,/7F g $ P RF(Z) RDM150
0x1c6b28…1c6cbc Dummy {f00=0x0087, f01=0x0190, f02=»SS g r P LD A2,FBAX GET BUFFER INDEX h 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER h . P IFF CODE=1 h d P CF A5,RDLRC h x P RF(Z) RDM150 LRC WAS OK h P XIF h P IFT CODE=1 h & P CF A5,RDCRC READ CRC AND CHECK IT h P RF(E) RDM150 CRC
0x1c6cbc…1c6e50 Dummy {f00=0x0087, f01=0x0190, f02=»TER h t P CF A5,HALTIN HALT INPUT i P IFT P6805=1 i , " P ORR A7,A1 PARITY ERROR SALCUZ i @ P XIF SALCUZ i f P RTN A5 i | P* i P* ETB RECEIVED i P* i PRDM160 EQU * i P LDR A3,A3 i " P RB(NZ) RDM130 ALREADY INVALID i " P LDK A
0x1c6e50…1c6fe4 Dummy {f00=0x0087, f01=0x0190, f02=»A5,RDLRC i " P RB(NZ) RDM120 LRC WAS NOT OK j P XIF j 6 P IFT CODE=1 j B & P CF A5,RDCRC READ CRC AND CHECK IT j V " P RB(NE) RDM120 CRC WAS NOT OK j P XIF j P RB RDM100 j P EJECT j P* j P* TRANSMIT ACK 0 OR 1 j P* j PTRAC
0x1c6fe4…1c7178 Dummy {f00=0x0087, f01=0x0190, f02=»K0 j | P RF TRDLE k P* k P* TRANSMIT WACK k & P* k > PTRWACK LDK A3,WACK LOAD WACK k H P RF TRDLE k l P* k ~ P* TRANSMIT RVI k P* k P IFF STAT=0 k PTRRVI LDK A3,RVI LOAD RVI k P XIF k P* k P* TRANSMIT DLE k
0x1c7178…1c730c Dummy {f00=0x0087, f01=0x018e, f02=» P* l P* TRANSMIT NAK l P* l $ PTRNAK LDK A3,NAK LOAD NAK l . P RF TREN10 l P P* l b P* TRANSMIT EOT l l P* l PTREOT LDK A3,EOT LOAD EOT l P RF TREN10 l P* l P* TRANSMIT ENQ l P* l PTRENQ LDK A3,ENQ LOAD ENQ l
0x1c730c…1c74a0 Dummy {f00=0x0087, f01=0x018e, f02=» l n & P LC A2,RESEND GET FIRST CHARACTER m P CF A5,WRITEP SEND IT m 2 & P LC A2,RESEND+1 GET NEXT CHARACTER m P P CF A5,WRITEP SEND IT m z PTRRE10 LDK A2,/FF m P CF A5,WRIT05 SEND PAD m P LDK A2,/FF m P CF A5,WRIT05 m P LDK A2,0 SAL
0x1c74a0…1c7634 (2, 71) Dummy {f00=0x0087, f01=0x0190, f02=» m & P SST A2,LCUUT PERFORM SST AT ONCE n P IFF LOGG=0 n 2 ( P CF A5,LOGSST LOG TRANSMITTER STATUS n F P XIF n r P RTN A5 n ~ P EJECT n P* n P* n P* TRANSMIT ONE TEXT BLOCK n P* n P* n PTRTEXT EQU * n P CF A5,TRSYNC
0x1c7634…1c77c8 Dummy {f00=0x0087, f01=0x0190, f02=»F(NZ) TRT050 NOT START OF MESSAGE n P o * 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? o 2 P RF(NZ) TRT050 YES !! o h P o P LD A4,FECBBA o " P LC A3,+2,A4 GET AID CHARACTER o P SUK A3,/30 o $ P RF(NZ) TRT050 NOT TEST REQUEST o P L
0x1c77c8…1c795c Dummy {f00=0x0087, f01=0x018e, f02=» o P CF A5,WRITE SEND / p P LDK A2,STX p $ P CF A5,WRITE SEND STX p 8 ( P ST A4,FBLST REMEMBER START OF BLOCK p V ( P ADK A4,5 SKIP AID + CURSOR ADDRESS p P LDK A3,5 ADJUST LENGTH p P LDK A2,3 p P ST A2,FBAX p P RF TRT100 p PTR
0x1c795c…1c7af0 Dummy {f00=0x0087, f01=0x0190, f02=» $ P LD A4,FECBBA GET BUFFER ADDRESS q P AD A4,FBAX ADD BUFFER INDEX q , ( P ST A4,FBLST REMEMBER START OF BLOCK q P ( P ADK A4,2 SKIP FIRST WORD OF BUFFER q | & P LDK A3,0 RESET CHARACTER COUNTER q P LD A1,FBAX GET BUFFER INDEX q " P RF(NZ) TRT100 NOT
0x1c7af0…1c7c84 Dummy {f00=0x0087, f01=0x0190, f02=» P IFT IBMCHR=1 r P IFF RCOM=1 r " P LDK A2,/27 SEND ENTER AS AID r . P CF A5,WRITEP r T " P LDK A2,/20 AND CURSOR ADDRESS r j P CF A5,WRITEP r P LDK A2,/20 r P CF A5,WRITEP r P XIF r P IFT RCOM=1 r P r & P LD A1,XRB READ
0x1c7c84…1c7e18 Dummy {f00=0x0087, f01=0x0190, f02=» CF A5,WRITEP SEND AID r P s $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS s & . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER s N P LDK A3,5 SET BLOCK COUNT s P RF TRT100 s PTRT070 EQU * s P XIF s P s P LDK A3,2 s PTRT100 EQU * s P LCR A
0x1c7e18…1c7fac Dummy {f00=0x0087, f01=0x0190, f02=» ??? s r P RF(Z) TRT105 NO!! t P t & @ P************************************************************ t . P* t r , P* CHECK IF ATTRIBUTE CHARACTER OR NULL t | P* t 4 P*********************************************** t P t & P CWK A2,X'20' ATTR
0x1c7fac…1c8140 Dummy {f00=0x0087, f01=0x0190, f02=» TO TRT102 t | P LDK A2,/0A u PTRT102 EQU * u & P CWK A2,/7D END OF MESSAGE ? u : " P RF(NE) TRT103 NO,GO TO TRT103 u ^ P LDK A2,/19 u PTRT103 EQU * u P CWK A2,X'7F' NULL ?? u P RF(NE) TRT105 u P SUK A2,1 u P XIF u P IFT RCOM=
0x1c8140…1c82d4 (2, 72) Dummy {f00=0x0088, f01=0x018e, f02=»1,A4 GET ATTRIBUTE CHARACTER u P ANK A2,X'7F' v $ ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE v : P ANK A1,1 v f P ANK A2,/1E MASK v x P SLL A2,1 v & P ORR A2,A1 IBM ATTRIBUTE COMPOSED v " P ORK A2,/40 BIT ALWAYS SET ONE v P LC A2,TASCII,A2 v &
0x1c82d4…1c8468 Dummy {f00=0x0088, f01=0x0190, f02=» v r P ADK A3,1 w P RF TRT110 w PTRT105 EQU * w , P XIF w @ P EJECT w L P CWK A2,/07 w Z ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT w n P CF A5,WRITEP SEND CHARACTER w PTRT110 EQU * w $ P IM FBAX INCREMENT BUFFER INDEX w & P LD A1,FECBRL
0x1c8468…1c85fc Dummy {f00=0x0088, f01=0x0190, f02=» A3,TBLEN w P RB(L) TRT100 NOT FULL BLOCK x P IFT RCOM=1 x 6 , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK x J P CC A1,-2,A4 x z P RF(E) TRT115 YES x P CC A1,-1,A4 x P RF(NE) TRT116 NO SEND ETB x ( P LCR A2,A4 GET FIRST BYTE AFTER SBA x
0x1c85fc…1c8790 Dummy {f00=0x0088, f01=0x0190, f02=» SBA x j P CF A5,WRITEP SEND IT y P IM FBAX INCREMENT INDEX y * P XIF y J PTRT116 EQU * y V P LDK A2,ETB LOAD ETB y j PTRT120 EQU * y P CF A5,WRITEP SEND IT y P IFF CODE=1 y P LDR A2,A7 GET LRC y P CF A5,WRITEP SEND LRC y P XIF
0x1c8790…1c8924 Dummy {f00=0x0088, f01=0x0190, f02=» P ECR A2,A8 z P ANK A2,/FF z " P CF A5,WRIT05 SEND CRC BYTE 2 z * P XIF z P P ABL TRRE10 HALT OUTPUT z PTRT130 EQU * z | P IM XETX INDICATE 'ETX SENT' z PTRT140 EQU * z P LDK A2,ETX LOAD ETX z P RB TRT120 SEND ETX AND LRC z P
0x1c8924…1c8ab8 Dummy {f00=0x0088, f01=0x0190, f02=» INDICATE 'STATUS SENT' z P ST A6,FDWTUT SAVE A6 { P CF A5,TRSYNC START OUTPUT { > P LDK A2,SOH { ` P CF A5,WRITE SEND SOH { t P LDK A7,0 REST LRC { P LDK A2,'%' { P CF A5,WRITEP SEND '%' { P LDK A2,'R' { P CF A5,WRITEP SEND 'R'
0x1c8ab8…1c8c4c Dummy {f00=0x0088, f01=0x0190, f02=»A5,WRITEP SEND STA { P LD A1,DWTST,A6 GET STATUS | P ANK A1,/06 MASK FOR S/S 0 | < P SRL A1,1 | ^ $ P LC A2,SSTAB,A1 GET STATUS BYTE | p P CF A5,WRITEP SEND S/S 0 | P LDK A2,NOIR PRELOAD S/S 1 | P LD A1,DWTST,A6 GET STATUS | P ANK A1,5 |
0x1c8c4c…1c8de0 Dummy {f00=0x0088, f01=0x0190, f02=»TEP SEND S/S 1 | P RB TRT130 SEND ETX AND LRC } P XIF } : P EJECT } F P* } T P* } ^ P* TRANSMIT SYNC SEQUENCE } h P* } P* } PTRSYNC EQU * } P LD A2,PFPOST } $ P RF(NZ) TRS050 WAIT FOR POWER UP } P LDK A2,0 SALCUZ } * P
0x1c8de0…1c8f74 (2, 73) Dummy {f00=0x0088, f01=0x0190, f02=»ITTER } t P XIF SALCUZ ~ P IFT P6805=1 SALCUZ ~ $ P IFT CODE=1 SALCUZ ~ @ P LDK A2,0 SALCUZ ~ , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ ~ v P RF(A) TRS010 SALCUZ ~ P SST A1,LCUUT SALCUZ ~ P RF(A) TRS005 SALCUZ ~ P ABL BRM
0x1c8f74…1c9108 Dummy {f00=0x0088, f01=0x0190, f02=»SYNC CHARACTER SALCUZ ~ x P XIF SALCUZ P IFT P6805=1 SALCUZ 4 P IFT CODE=0 SALCUZ P P LDK A2,/0C SALCUZ l P CIO A2,1,LCUUT SALCUZ P RF(A) TRS010 SALCUZ P SST A1,LCUUT SALCUZ P RF(A) TRS005 SALCUZ P ABL B
0x1c9108…1c929c Dummy {f00=0x0088, f01=0x0190, f02=»RACTER SALCUZ p P XIF SALCUZ PTRS050 EQU * , * P CF A5,READ WAIT FOR OUTPUT INTERRUPT @ P LDK A3,4 4 SYNS n PTRS100 LDK A2,SYN P CF A5,WRITE SEND SYN P SUK A3,1 P RB(NZ) TRS100 P RTN A5 P EJECT P*
0x1c929c…1c9430 Dummy {f00=0x0088, f01=0x0190, f02=»SAVE8 SAVE A1-A8 P XIF P $ P IFF CPU852=1 , P MSR 8,A15 SAVE A1-A8 =1 B P XIF b * P CF A15,LDREG RESTORE DC REGS A3 - A8 n P INR A2,0,LCUIN READ CHAR , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS P IFF LOGG=0 ( P CF A5
0x1c9430…1c95c4 Dummy {f00=0x0088, f01=0x0190, f02=» P RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF > P IFT CODE=1 J P C2 SYNSW ^ 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME p P CWK A2,SYNEBC P RF(E) READ SKIP EBCDIC SYN PIHLCI1 EQU * P CF A5,CRCCAL CALCUL
0x1c95c4…1c9758 Dummy {f00=0x0088, f01=0x0190, f02=»ST PERFORM SST P ABL BRM P XIF SALCUZ & P IFT P6805=1 SALCUZ < $ PIHIN20 RF SST PERFORM SST SALCUZ X P XIF SALCUZ P EJECT P* P* P* TRANSMITTER INTERRUPT P* P* PIH2502 EQU * P ST P,
0x1c9758…1c98ec Dummy {f00=0x0088, f01=0x0190, f02=» x P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 B P EJECT T P* b P* l & P* SST INSTRUCTION AND STATUS CHECK v P* ( P* LCU STATUS : BIT 10=CARRIER OFF . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ , P
0x1c98ec…1c9a80 Dummy {f00=0x0088, f01=0x0190, f02=»6805=1 SALCUZ 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ P XIF SALCUZ L P LDR A2,A1 b P IFF LOGG=0 t & P CF A5,LOGSST LOG SST INFORMATION P XIF P IFT P6805=0 SALCUZ P ANK A2,2 P RF(Z) SST100 P XIF
0x1c9a80…1c9c14 (2, 74) Dummy {f00=0x0088, f01=0x0190, f02=»T050 THROUGH PUT SALCUZ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ J P XIF SALCUZ d PSST050 EQU * SALCUZ z P CM XSTA TROUHHPUT ERROR P LDKL A5,STB P ABL BRM010 PSST100 EQU * P LDR A2,A1 P ANK
0x1c9c14…1c9da8 Dummy {f00=0x0088, f01=0x0190, f02=» P ABL TDISP DISPATCH PSST150 EQU * $ P CF A15,LDREG LOAD REGISTERS 8 PSST200 EQU * P ST A1,DCSTCU p P IFT P6805=0 SALCUZ * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 P XIF SALCUZ P IFT P6805=1 SALC
0x1c9da8…1c9f3c Dummy {f00=0x0088, f01=0x0190, f02=»RESTART SALCUZ P DATA 2 WAIT TIME SALCUZ P RF READ SALCUZ 6 P* N PSST200 LDK A1,0 SALCUZ X PSSTRET ADK A5,4 SALCUZ x P LDR A1,A1 SET CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ P* P* P* HALT I
0x1c9f3c…1ca0d0 Dummy {f00=0x0088, f01=0x0190, f02=»INSTRUCTION AND STATUS CHECK | P XIF SALCUZ $ P IFT P6805=1 SALCUZ : * P RF READ WAIT FOR SST INTERRUPT SALCUZ V P XIF SALCUZ P EJECT P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* P* PWRITE EQ
0x1ca0d0…1ca264 Dummy {f00=0x0088, f01=0x0190, f02=»IC,A2 TRANSLATE TO EBCDIC P XIF " PWRIT05 EQU * . " P OTR A2,0,LCUUT SEND CHARACTER B P RF(A) WRIT10 h P RF READ THROUGHPUT ERROR ~ P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF P IFT CODE=1 & PWRIT10 CF A5
0x1ca264…1ca3f8 Dummy {f00=0x0088, f01=0x018e, f02=»5,STREG P ABL TDISP P EJECT " P* 0 P* : P*** WRITEP D P* V P* WRITE A2 WITH PARITY ` P* P* P IFT CODE+P6805=0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1
0x1ca3f8…1ca58c Dummy {f00=0x0088, f01=0x018e, f02=» PWRITEP RB WRITE P XIF P* ( P* 2 P* < P*** READP F P* X . P* READ CHARACTER TO A2 AND CHECK PARITY b P* P* PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 PRE100 SLL A1,1
0x1ca58c…1ca720 Dummy {f00=0x0088, f01=0x0190, f02=» P IFF CODE+P6805=0 SALCUZ P LDK A1,/80 & P XIF : P ADK A5,4 F P ANK A1,/80 X P XRK A1,/80 l P ABR* A5 P* P* P EJECT P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* $ P*
0x1ca720…1ca8b4 (2, 75) Dummy {f00=0x0088, f01=0x0190, f02=» B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES * P* ENTRY: FINTER - CHECK SELECT ADDRESS J , P* FINTEP - CHECK SPECIFIC POLL ADDRESS x P* . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE P* P* PFINTEP EQU *
0x1ca8b4…1caa48 Dummy {f00=0x0088, f01=0x0190, f02=»AB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB PFINT10 SUK A4,2 N P LDK A3,0 DEFAULT VALUE f P CW A4,DCTAB END OF TABLE ( P RF(E) FINT20 SUBTERMINAL NOT FOUND P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1
0x1caa48…1cabdc Dummy {f00=0x0088, f01=0x0190, f02=»MPARE TO SUBTERMINAL ADDRESS P XIF $ & P RB(NE) FINT10 TAKE NEXT TERMINAL 0 PFINT20 CM RBYTE Z P ANKL A3,/FFFE r P RTN A5 P EJECT P* P* P* POWER ON FUNCTIONS P* P* PDC25ON EQU * P IFT CPU85
0x1cabdc…1cad70 Dummy {f00=0x0088, f01=0x0190, f02=»TAT=1 P LDK A5,4 SET DEVICE END P LD A1,DCTAB . . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE B PDRDC05 SUK A1,2 t P CW A1,DCTAB P RF(E) DRDC06 END OF TABLE P LDR* A6,A1 GET DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END
0x1cad70…1caf04 Dummy {f00=0x0088, f01=0x018e, f02=» A2,DCONOF P CF A15,CKMESS ( P LD A2,DCTPGP GET POLL TIMER POINTER ( " P RF(NZ) DRDC20 ALREADY STARTED T * PDRDC10 CF A15,SPOTIM START POLL TIMER z PDRDC20 ABL BRM P EJECT P* P* POLL TIME OUT P* ( PPTOUT LDKL A5,ST
0x1caf04…1cb098 Dummy {f00=0x0088, f01=0x0190, f02=» $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP , P* > 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED H P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF ST
0x1cb098…1cb22c Dummy {f00=0x0088, f01=0x0190, f02=»MPOL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 6 P ABR* A15 J P EJECT P* j P* START PROCEDURE TIMER t P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P DATA PRTOUT,TIMPRO
0x1cb22c…1cb3c0 Dummy {f00=0x0088, f01=0x0190, f02=» A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ < P LD A1,XACK l " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM P EJE
0x1cb3c0…1cb554 (2, 76) Dummy {f00=0x0089, f01=0x018e, f02=» CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5 0 P EJECT D P IFT CODE=1 R P* f P* p P* CALCULATION OF CRC z P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRC
0x1cb554…1cb6e8 Dummy {f00=0x0089, f01=0x018e, f02=» P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 ( P XRKL A7,/A001 > PCRC110 SUK A1,1 T P RB(NZ) CRC100 l P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P*
0x1cb6e8…1cb87c Dummy {f00=0x0089, f01=0x0190, f02=» n $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 0 P LD A8,CRCSAV+2 SAVE IT P P CF A5,READ READ BYTE 2 p ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,
0x1cb87c…1cba10 Dummy {f00=0x0089, f01=0x0190, f02=»D LRC CHARACTER ~ " P* CR=0 IF LRC OK P* > PRDLRC IM SYNSW H P CF A5,READP ^ P ADK A5,4 r P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P XIF
0x1cba10…1cbba4 Dummy {f00=0x0089, f01=0x0190, f02=» LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS 0 P DATA 0 ORDER L * P DATA DC15DC POINTER TO ADDRESS BLOCK b P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P* P IFT MMUPAG=1
0x1cbba4…1cbd38 Dummy {f00=0x0089, f01=0x0190, f02=»ITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) " " P DATA 0 RECEIVE MESSAGE QUEUE T , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS z P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE P* P IFT MMUPAG=1
0x1cbd38…1cbecc Dummy {f00=0x0089, f01=0x0190, f02=»POOL | P* PRLINK EQU RBUFL+RBUFL+8 P* 6 PDCRBUF EQU * @ P DATA *+2 FREE BUFFER ANCHOR T P IFF RBUFNR=2 x P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=4
0x1cbecc…1cc060 Dummy {f00=0x0089, f01=0x018e, f02=»BUFL+3 P P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER , P XIF V P EJECT b P* p P* z P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG1
0x1cc060…1cc1f4 (2, 77) Dummy {f00=0x0089, f01=0x0190, f02=» PLOG10 ST A3,SAVE3 P LD A3,LOGPNT " P STR A2,A3 8 P ADK A3,2 J P CWK A3,LOGEND P RF(L) LOGEXI r P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P
0x1cc1f4…1cc388 Dummy {f00=0x0089, f01=0x0190, f02=» P XIF P* P* P* ( P IFT RCOM=1 2 P EJECT F < P******************************************************* T P* P* L I N C O L P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* >
0x1cc388…1cc51c Dummy {f00=0x0089, f01=0x0190, f02=»RL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER & " P CF A5,WRITEP SEND LINE NUMBER P P v P LDR A2,A3 ~ P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN
0x1cc51c…1cc6b0 Dummy {f00=0x0089, f01=0x0190, f02=»ATA /4849,/5B2E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 , * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F Z * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37
0x1cc6b0…1cc844 Dummy {f00=0x0089, f01=0x40be, f02=» " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 X PDC:END EQU * P* P* P END @ 95A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37
0x1cc844…1cc9d8 Dummy {f00=0x0089, f01=0x2008, f02=» H P X ` h p x
0x1cc9d8…1ccb6c Dummy {f00=0x0089, f01=0x018e, f02=» P* P* INDICATE WRONG N(R) P* , PUPD205 EQU * 6 P LDKL A1,BIT12 J P ORS A1,DWTST,A7 ` P CF A5,STORCO x P RTN A5 P* * P* HERE NO TRANSMISSION HAS BEEN DONE P* CHECK VALID N(R) P* PUPD210 EQU *
0x1ccb6c…1ccd00 Dummy {f00=0x0089, f01=0x0190, f02=» P RTN A5 P* P EJECT " P* 0 0 P* BEFORE RETURN,RESTORE COUNTERS IN POLLIST : P* n PSTORCO EQU * x P LC A2,DWTOR,A6 P ANK A2,/FF P ADR A2,A6 P ADK A2,PLIST $ P SUK A2,2 POINTER TO TC'S STATUS P