|
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 - metrics - downloadIndex: / A C D E L M P S T p ½
Length: 927584 (0xe2760)
Description: Bits:30009708 Philips computer tape "M_92F3"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| M:92F3 | «none» |
| M:92F3//OBJCT.OB | ⟦7fdb6e099⟧ pts_type |
| M:92F3/ADDMOD.SC | ⟦e025d7dd0⟧ pts_type |
| M:92F3/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| M:92F3/DFTAB.SC | ⟦abe5da9c8⟧ pts_type |
| M:92F3/DIVMOD.SC | ⟦b9eb194e5⟧ pts_type |
| M:92F3/DMBUF.SC | ⟦0aa60395e⟧ pts_type |
| M:92F3/DMFDB.SC | ⟦31cd155c1⟧ pts_type |
| M:92F3/DMINIT.SC | ⟦edfbc020d⟧ pts_type |
| M:92F3/DMSUBR.SC | ⟦e45677dad⟧ pts_type |
| M:92F3/DMSUBX.SC | ⟦211c916bf⟧ pts_type |
| M:92F3/DMTASK.SC | ⟦7ca6e5eb2⟧ pts_type |
| M:92F3/DMTASS.SC | ⟦bc845f52b⟧ pts_type |
| M:92F3/DRFD01.SC | ⟦784decccc⟧ pts_type |
| M:92F3/DSUMOD.SC | ⟦d2407a445⟧ pts_type |
| M:92F3/DVDY00.SC | ⟦6fdf23745⟧ pts_type |
| M:92F3/DVKB00.SC | ⟦d00b44bd3⟧ pts_type |
| M:92F3/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| M:92F3/DVTKB.SC | ⟦59de49b1b⟧ pts_type |
| M:92F3/DVTP00.SC | ⟦fa88042d2⟧ pts_type |
| M:92F3/DVTTP.SC | ⟦a7d1d2605⟧ pts_type |
| M:92F3/DW1501.SC | ⟦929e44d0d⟧ pts_type |
| M:92F3/DWII01.SC | ⟦a9ecb6a95⟧ pts_type |
| M:92F3/DWIO01.SC | ⟦c0c59ad64⟧ pts_type |
| M:92F3/EBCDIC.SC | ⟦1c61c084b⟧ pts_type |
| M:92F3/LDTASK.SC | ⟦c22a825ef⟧ pts_type |
| M:92F3/LKMAL.SC | ⟦25f335d67⟧ pts_type |
| M:92F3/LRPINT.SC | ⟦1f1335ad8⟧ pts_type |
| M:92F3/M:92F3.LM | ⟦11c3c5b29⟧ pts_type |
| M:92F3/M:92F3.UF | ⟦5c42c55f6⟧ pts_type |
| M:92F3/MONTAB.SC | ⟦d39ac6903⟧ pts_type |
| M:92F3/MONTIM.SC | ⟦60cd0791c⟧ pts_type |
| M:92F3/MPYMOD.SC | ⟦f8bcb6c39⟧ pts_type |
| M:92F3/MSUBS.SC | ⟦54b87a1f6⟧ pts_type |
| M:92F3/PFTAB.SC | ⟦afb58180c⟧ pts_type |
| M:92F3/SCLASS.SC | ⟦050e1f436⟧ pts_type |
| M:92F3/SYSLDA.SC | ⟦ecf0e7de9⟧ pts_type |
| M:92F3/SYSLDM.SC | ⟦247a2010d⟧ pts_type |
| M:92F3/SYSTAB.SC | ⟦ca9339be7⟧ pts_type |
| M:92F3/TABORT.SC | ⟦0d771f830⟧ pts_type |
| M:92F3/TASS.SC | ⟦3eaf702aa⟧ pts_type |
| M:92F3/TCLASS.SC | ⟦baabdbe97⟧ pts_type |
| M:92F3/TDISP.SC | ⟦cc0be8e7a⟧ pts_type |
| M:92F3/TIMER.SC | ⟦c0f3a4d44⟧ pts_type |
| M:92F3/TIODM.SC | ⟦19fe244d0⟧ pts_type |
| M:92F3/TLDSEG.SC | ⟦541931378⟧ pts_type |
| M:92F3/TMMLKM.SC | ⟦3cbd60306⟧ pts_type |
| M:92F3/TOSSIO.SC | ⟦852669773⟧ pts_type |
| M:92F3/TPROC.SC | ⟦4526d3ef3⟧ pts_type |
| M:92F3/TTMJOB.SC | ⟦aa082cdb7⟧ pts_type |
0x00000…00ca0 (0, 0) DirGranule ((0, 0)) {
0x00000…00ca0 DirEnt {nam=»M:92F3«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0c90, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»M:92F3«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0c98, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2510, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2740, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d10, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0db0, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c48, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e90, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1808, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1528, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12d8, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1338, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1400, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14f8, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c68, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20c0, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1818, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f60, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1538, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1540, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1678, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1550, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»M:92F3«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x12c8, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0248, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2040, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2218, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2068, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a0, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2090, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22e8, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2528, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1878, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2260, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2278, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cd8, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20b0, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20a8, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2330, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2380, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23e0, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2418, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2430, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2460, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1800, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DVTP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1860, f03=0x0000}
0x00000…00ca0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2500, f03=0x0000}
0x00000…00ca0 }
0x00ca0…00e34 (0, 1) Opaque[0x194]
0x00e34…00fc8 # DirEnt {nam=»M:92F3«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0c98, f03=0x0000}
0x00e34…00fc8 IdxSect {
0x00e34…00fc8 f00 = 0x0064 // 0xe34 @0x0
0x00e34…00fc8 f01 = 0x000e // 0xe36 @0x2
0x00e34…00fc8 gno = [ // 0xe38 @0x4
0x00e34…00fc8 [0x00]: C0x0064.0x3.0
0x00e34…00fc8 [0x01]: C0x0065.0x0.0
0x00e34…00fc8 [0x02]: C0x0065.0x1.0
0x00e34…00fc8 [0x03]: C0x0065.0x2.0
0x00e34…00fc8 [0x04]: C0x0065.0x3.0
0x00e34…00fc8 [0x05]: C0x0066.0x0.0
0x00e34…00fc8 [0x06]: C0x0066.0x1.0
0x00e34…00fc8 ]
0x00e34…00fc8 }
0x00fc8…0115c Dummy {f00=0x0064, 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
0x0115c…012f0 Dummy {f00=0x0064, f01=0x0190, f02=» MOV TDISP,/S,TOSSWORK KPF /S,TDISP " SCR 6 MOV LRPINT,/S,TOSSWORK B KPF /S,LRPINT ` SCR v MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR MOV TTMJOB
0x012f0…01484 Dummy {f00=0x0064, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB SCR MOV LKMAL,/S,TOSSWORK
0x01484…01618 Dummy {f00=0x0064, f01=0x0190, f02=»REDIT EQU 1$$ z ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN B ASM /S N KPF /O KPF /S j SCR x LED TDISP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S
0x01618…017ac Dummy {f00=0x0064, f01=0x0190, f02=»$ n !!EN ASM /S KPF /O $ KPF /S 2 SCR @ LED TPROC L ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ^ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR LED MSUBS (
0x017ac…01940 Dummy {f00=0x0064, f01=0x0190, f02=» SCR LED TTMJOB ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ R !!EN ~ ASM /S KPF /O KPF /S SCR LED TOSSIO ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSK
0x01940…01ad4 (0, 2) Dummy {f00=0x0065, f01=0x0190, f02=»0$$CREDIT EQU 1$$ ~ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN F ASM /S R KPF /O ` KPF /S n SCR | LED SYSLDA ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S
0x01ad4…01c68 Dummy {f00=0x0065, f01=0x018e, f02=»U 1$$ r !!EN ASM /S KPF /O ( KPF /S 6 SCR D MOV DVTKB,/S,TOSSWORK P KPF /S,DVTKB n SCR MOV DVTTP,/S,TOSSWORK KPF /S,DVTTP SCR MOV DVTDY,/S,TOSSWORK KPF /S,DVTDY SCR
0x01c68…01dfc Dummy {f00=0x0065, f01=0x0190, f02=» KPF /S,DWIO01 SCR INC DWIO01,TOSSWORK & KPF /O B MOV DW1501,/S,TOSSWORK P KPF /S,DW1501 n SCR INC DW1501,TOSSWORK KPF /O LED DWII01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQ
0x01dfc…01f90 Dummy {f00=0x0065, f01=0x0190, f02=»DIT EQU 1$$ x ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN @ ASM /S L KPF /O Z KPF /S h SCR v LED DW1501 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KP
0x01f90…02124 Dummy {f00=0x0065, f01=0x018e, f02=»/S,DRTP02 SCR MOV DRDY01,/S,TOSSWORK KPF /S,DRDY01 < SCR R MOV DRLT01,/S,TOSSWORK ^ KPF /S,DRLT01 | SCR MOV DRSOP1,/S,TOSSWORK KPF /S,DRSOP1 SCR MOV DRFD01,/S,TOSSWORK KPF /S,DRFD0
0x02124…022b8 Dummy {f00=0x0065, f01=0x0190, f02=» SCR LED DRKB01 !!CH $$ X:A$$ 1$$ " !!CH $$ X:B$$ 1$$ < !!CH $$ X:C$$ 1$$ V !!CH $$ X:D$$ 2$$ p !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 40$$ !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 0$$
0x022b8…0244c Dummy {f00=0x0065, f01=0x0190, f02=»$ n !!EN ASM /S KPF /O $ KPF /S 2 SCR @ LED DRTP02 L !!CH $$ X:A$$ 0$$ ^ !!CH $$ X:B$$ 0$$ x !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 0$$ !!CH $$ X:G$$
0x0244c…025e0 Dummy {f00=0x0065, f01=0x0190, f02=»0$$CREDIT EQU 1$$ ~ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN F ASM /S R KPF /O ` KPF /S n SCR | LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $
0x025e0…02774 (0, 3) Dummy {f00=0x0065, f01=0x0190, f02=» l ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN 4 ASM /S @ KPF /O N KPF /S SCR j LED DRLT01 v !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 01$$ (
0x02774…02908 Dummy {f00=0x0065, f01=0x0190, f02=» SCR LED DRSOP1 !!CH $$ X:A$$ 0$$ & !!CH $$ X:B$$ 0$$ @ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ Z ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR LED DRFD01 !!
0x02908…02a9c Dummy {f00=0x0065, f01=0x0190, f02=»$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ & !!EN R ASM /S ^ KPF /O l KPF /S z SCR LED DRIC01 !!CH $$ X:A$$ 000$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPA
0x02a9c…02c30 Dummy {f00=0x0065, f01=0x0190, f02=»$ X:B$$ /60$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 000$$ 0 !!CH $$ X:E$$ 1$$ L !!CH $$ X:F$$ 1$$ f !!CH $$ X:G$$ 252$$ !!CH $$ X:H$$ 1$$ !!CH $$ X:I$$ 0$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 0$$ !!CH
0x02c30…02dc4 Dummy {f00=0x0065, f01=0x0190, f02=»Q$$ 1$$ !!CH $$ X:R$$ 000$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ , ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ X !!EN ASM /S KPF /O KPF /S SCR MOV EBCDIC,/S,TOSSWORK KPF /S,EBCDIC SCR LE
0x02dc4…02f58 Dummy {f00=0x0065, f01=0x0190, f02=» KPF /S SCR LED DVTKB " !!DL 35 4 DATA 0,0,0,0,0,0,0,0 D DATA 0,0,0,0,0,0,0,0 b DATA 0,0,0,0, !!IL 38 DATA !!EN ASM /S KPF /O KPF /S SCR MOV TIMER,/S,TOSS
0x02f58…030ec Dummy {f00=0x0065, f01=0x018e, f02=»KPF /S,TMMLKM SCR MOV TLDSEG,/S,TOSSWORK " KPF /S,TLDSEG @ SCR V MOV TABORT,/S,TOSSWORK b KPF /S,TABORT SCR MOV MONTIM,/S,TOSSWORK KPF /S,MONTIM SCR MOV TASS,/S,TOSSWORK KPF /S,T
0x030ec…03280 Dummy {f00=0x0065, f01=0x018e, f02=» ASM /S KPF /O KPF /S $ SCR 2 LED TPROC > ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ P ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ | !!EN ASM /S KPF /O KPF /S SCR LED TMMLKM ( #!!CH $$CREDI
0x03280…03414 (0, 4) Dummy {f00=0x0065, f01=0x0190, f02=» LED TLDSEG ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ F !!EN r ASM /S ~ KPF /O KPF /S SCR LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$D
0x03414…035a8 Dummy {f00=0x0065, f01=0x0190, f02=»U 1$$ r ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN : ASM /S F KPF /O T KPF /S b SCR p LED TASS | ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O
0x035a8…0373c Dummy {f00=0x0065, f01=0x0190, f02=» DATA 00 !!DL 045 DATA 00 & !!DL 050 B !!DL 051 R !!EN b ASM /S n KPF /O | KPF /S SCR LED LRPINT !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O KPF /S SC
0x0373c…038d0 Dummy {f00=0x0065, f01=0x018e, f02=»MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT SCR 4 MOV TASS,/S,TOSSWORK @ KPF /S,TASSI ^ SCR r MOV DMTASS,/S,TOSSWORK ~ KPF /S,DMTASS SCR MOV DMBUF,/S,TOSSWORK KPF /S,DMBUF SCR MOV DMFDB,/
0x038d0…03a64 Dummy {f00=0x0065, f01=0x0190, f02=» x KPF /S,DMSUBX SCR MOV ADDMOD,/S,TOSSWORK * KPF /S,ADDMOD H SCR ^ MOV DSUMOD,/S,TOSSWORK j KPF /S,DSUMOD SCR MOV MPYMOD,/S,TOSSWORK KPF /S,MPYMOD SCR MOV DIVMOD,/S,TOSSWORK
0x03a64…03bf8 Dummy {f00=0x0065, f01=0x0190, f02=»$ | ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 6 !!EN b ASM /S n KPF /O | KPF /S SCR LED DMBUF !!CH $$ X:A$$ 00004$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$D
0x03bf8…03d8c Dummy {f00=0x0065, f01=0x018e, f02=»001$$ !!CH $$ X:B$$ 00000$$ !!CH $$ X:C$$ 00004$$ , ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ J ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ v !!EN ASM /S KPF /O KPF /S SCR LED DMTASS !!CH $$ X:A$$ 0000
0x03d8c…03f20 Dummy {f00=0x0065, f01=0x0190, f02=» ASM /S KPF /O KPF /S $ SCR 2 LED DFTAB > !!DL 23 P !!EN ` ASM /S l KPF /O z KPF /S SCR LED DMFDB !!CH $$ X:A$$ 00480$$ !!CH $$ X:B$$ 00240$$ !!CH $$ X:C$$ 00000$$
0x03f20…040b4 (0, 5) Dummy {f00=0x0065, f01=0x0190, f02=»ASM /S KPF /O KPF /S SCR * LED DMINIT 6 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ H ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ t !!EN ASM /S KPF /O KPF /S SCR LED TASS ( #!!CH $$CREDIT EQU 0$
0x040b4…04248 Dummy {f00=0x0065, f01=0x0190, f02=»D DMSUBX ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ < !!EN h ASM /S t KPF /O KPF /S SCR LED ADDMOD ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU
0x04248…043dc Dummy {f00=0x0065, f01=0x0190, f02=» ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN 0 ASM /S < KPF /O J KPF /S X SCR f LED MPYMOD r ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF
0x043dc…04570 Dummy {f00=0x0065, f01=0x0190, f02=» ASM /S ! KPF /O ! KPF /S ! SCR ! . LED DMSUBR ! : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ! L ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ! x !!EN ! ASM /S ! KPF /O ! KPF /S ! SCR ! LED SYSTAB ! !!CH $$IHINPT$$T
0x04570…04704 Dummy {f00=0x0065, f01=0x018e, f02=»$ X:C$$ 00004$$ ! !!CH $$ X:D$$ 00000$$ " !!CH $$ X:E$$ 00010$$ " 6 !!CH $$ X:F$$ 00001$$ " T , '!!CH $$ILLINT 12$$IH1501 12$$ " r , '!!CH $$ILLINT 13$$IH1502 13$$ " !!IL 55 " EXTRN IH1501 "
0x04704…04898 Dummy {f00=0x0065, f01=0x0190, f02=» !!DL 070 # !!DL 071 # !!DL 073 # $ !!DL 074 # 4 !!DL 075 # D !!DL 077 # T !!DL 078 # d !!DL 079 # t !!DL 080 # !!DL 081 # !!DL 85 # !!DL 122 # DATA ILLINT # !!DL 123 # DATA IL
0x04898…04a2c Dummy {f00=0x0065, f01=0x0190, f02=»A ILLINT # !!DL 134 $ DATA ILLINT $ $ !!DL 135 $ D DATA ILLINT $ T !!DL 136 $ t DATA ILLINT $ !!DL 138 $ DATA ILLINT $ !!DL 140 $ DATA ILLINT $ !!DL
0x04a2c…04bc0 Dummy {f00=0x0065, f01=0x0190, f02=» !!DL 150 % DATA ILLINT % !!DL 155 % 4 DATA ILLINT % D !!DL 156 % d DATA ILLINT % t !!DL 159 % DATA ILLINT % !!EN % ASM /S % KPF /O % KPF /S % SCR % LE
0x04bc0…04d54 (0, 6) Dummy {f00=0x0066, f01=0x0190, f02=» % !!DL 022 & !!DL 023 & !!DL 024 & ( !!DL 025 & 8 !!DL 026 & H !!DL 027 & X !!DL 028 & h !!DL 029 & x !!DL 030 & !!DL 031 & !!DL 032 & !!DL 034 & !!DL 035 & !!DL 036 & !!DL 037 & !!DL 038 &
0x04d54…04ee8 Dummy {f00=0x0066, f01=0x0190, f02=» & !!DL 051 ' !!DL 052 ' !!DL 053 ' ( !!DL 054 ' 8 !!DL 055 ' H !!DL 056 ' X !!DL 057 ' h !!DL 058 ' x !!DL 059 ' !!DL 060 ' !!DL 062 ' !!DL 063 ' !!DL 064 ' !!DL 065 ' !!DL 066 ' !!EN ' ASM
0x04ee8…0507c Dummy {f00=0x0066, f01=0x0190, f02=»PAG EQU 1$$ ' x !!CH $$DVTKB$$DVKB00$$ ( !!CH $$/1111$$/1100$$ ( 2 !!CH $$BCA$$8791$$ ( P !!CH $$ED0$$FFBA$$ ( j !!CH $$8000$$8002$$ ( !!CH $$ECH$$DVDY00$$ ( !!EN ( ASM /S ( KPF /O ( KPF /S ( SCR ( LED DVTTP
0x0507c…05210 Dummy {f00=0x0066, f01=0x0190, f02=»11$$/2000$$ ( !!EN ) ASM /S ) KPF /O ) . KPF /S ) < SCR ) J LED DVTTP ) V ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ) h ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ) !!CH $$DVTTP$$DVTP00$$ ) !!CH $$/1111$$/2000$$ ) !!EN )
0x05210…053a4 Dummy {f00=0x0066, f01=0x0190, f02=»$DSKPAG EQU 1$$ ) | !!CH $$DVTTP$$DVTP00$$ * !!CH $$/1111$$/2000$$ * 6 !!EN * T ASM /S * ` KPF /O * n KPF /S * | SCR * LED DVTDY * ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ * !!CH $$D
0x053a4…05538 Dummy {f00=0x0066, f01=0x0190, f02=»R * LED TCLASS + !!IL 6 + EXTRN DVKB00 + * EXTRN DVTP00 + J EXTRN DVDY00 + j !!IL 11 + DATA TC00 + !!IL 12 + TC00 DATA TC00E-* + DATA /0020 +
0x05538…056cc Dummy {f00=0x0066, f01=0x0190, f02=» DATA DVTP00 + DATA /01320 , DATA DVTP00 , : DATA /00500 , Z DATA DVDY00 , z TC00E EQU * , !!EN , ASM /S , KPF /O , KPF /S , SCR , LED SCLASS ,
0x056cc…05860 Dummy {f00=0x0066, f01=0x0190, f02=» , x EXTRN DW1501 - EXTRN DW1500 - ( EXTRN DWFD01 - H !!IL 11 - h DATA TC00 - x DATA TC01 - DATA TC02 - DATA TC03 - DATA TC04 -
0x05860…059f4 (0, 7) Dummy {f00=0x0066, f01=0x0190, f02=» /00111 - DATA DWSO01 . TC00E EQU * . 0 TC01 DATA TC01E-* . L DATA /00E01 . n DATA DWII01 . TC01E EQU * . TC02 DATA TC02E-* . DATA /00E11 .
0x059f4…05b88 Dummy {f00=0x0066, f01=0x0190, f02=» DATA DW1501 . TC03E EQU * / TC04 DATA TC04E-* / 6 DATA /00601 / X DATA DW1500 / x DATA /00F80 / DATA DWFD01 / DATA /01F90 / DATA DWFD01 /
0x05b88…05d1c Dummy {f00=0x0066, f01=0x0190, f02=» / ASM /S 0 KPF /O 0 KPF /S 0 $ SCR 0 2 LED MONTAB 0 > !!IL 19 0 P **** 0 ` EXTRN ITAD 0 l !!DL 20 0 !!DL 023 0 !!DL 024 0 !!DL 025 0 !!DL 028 0 !!DL 029 0 !!DL 030 0 !!DL 031 0 !!DL 032
0x05d1c…05eb0 Dummy {f00=0x0066, f01=0x0108, f02=»!!DL 056 0 !!DL 057 1 !!DL 058 1 !!DL 059 1 0 !!DL 060 1 @ !!DL 061 1 P !!EN 1 ` ASM /S 1 l KPF /O 1 z KPF /S 1 SCR 1 ASG /02,LP0F 1 SCR 1 INC SYSTAB 1 LKE M 1 KPF /L,M:92F3 1 ASG /E0,TY10 1
0x05eb0…06044 Dummy {f00=0x0066, f01=0x2008, f02=» 2 0 !!DL 057 1 !!DL 058 1 !!DL 059 1 0 !!DL 060 1 @ !!DL 061 1 P !!EN 1 ` ASM /S 1 l KPF /O 1 z KPF /S 1 SCR 1 ASG /02,LP0F 1 SCR 1 INC SYSTAB 1 LKE M 1 KPF /L,M:92F3 1 ASG /E0,TY10 1
0x06044…061d8 Dummy {f00=0x0066, f01=0x0190, f02=» ='T[LLER' : P FILLR ' ',4 ; P FCOPY ='KONTONR' ; & P FILLR ' ',10 ; @ P FCOPY ='BEV.PERIODE' ; V P FILLR ' ',12 ; t P FCOPY ='SALDO' ; P FILLR ' ',1 ; P FMEND ; P* ; PVOX14 FRMT ; P FLINK VOX14L ; P FMEND ; P
0x061d8…0636c Dummy {f00=0x0066, f01=0x0190, f02=»N1) ; h 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',CBACC(GSWBIN3,CBIN2) < 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',CBACC(GSWBIN3,CBIN3) < F P FMEND < P* < PVOX15 FRMT < P FILLR '2',2 < P FCOPY GSWSTR20 < P FMEND < P* < PVOX16 FRMT < P FILLR '
0x0636c…06500 Dummy {f00=0x0066, f01=0x0190, f02=» < P FNL = P FILLR X'5D',40 ] = P FILLR X'4E',40 N = . P FNL = H P FNL = T P FILLR X'45',40 E = ` P FILLR X'53',40 S = z P FNL = P FNL = P FILLR X'5B',40 [ = P FILLR X'5C',40 OE = P FMEND = P* = PVOX17 FRMT =
0x06500…06694 (0, 8) Opaque[0x194]
0x06694…06828 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2510, f03=0x0000}
0x06694…06828 IdxSect {
0x06694…06828 f00 = 0x0128 // 0x6694 @0x0
0x06694…06828 f01 = 0x0002 // 0x6696 @0x2
0x06694…06828 gno = [ // 0x6698 @0x4
0x06694…06828 [0x00]: C0x0128.0x2.0
0x06694…06828 ]
0x06694…06828 }
0x06828…069bc Dummy {f00=0x0128, 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 DVTP00 P EXTRN DVDY00 P* P* P* P* P
0x069bc…06b50 Dummy {f00=0x0128, f01=0x4154, f02=» x P DATA DVKB00 P DATA /0030 ( P DATA DVTP00 H P DATA /0231 h P DATA DVTP00 P DATA /0132 P DATA DVTP00 P DATA /0050 P
0x06b50…06ce4 Dummy {f00=0x0128, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x06ce4…06e78 Dummy {f00=0x0128, 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
0x06e78…0700c Dummy {f00=0x0128, 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,
0x0700c…071a0 Dummy {f00=0x0128, 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
0x071a0…07334 (0, 9) Opaque[0x194]
0x07334…074c8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2740, f03=0x0000}
0x07334…074c8 IdxSect {
0x07334…074c8 f00 = 0x013a // 0x7334 @0x0
0x07334…074c8 f01 = 0x003c // 0x7336 @0x2
0x07334…074c8 gno = [ // 0x7338 @0x4
0x07334…074c8 [0x00]: C0x013a.0x0.0
0x07334…074c8 [0x01]: C0x013a.0x1.0
0x07334…074c8 [0x02]: C0x013a.0x2.0
0x07334…074c8 [0x03]: C0x013a.0x3.0
0x07334…074c8 [0x04]: C0x013b.0x0.0
0x07334…074c8 [0x05]: C0x013b.0x1.0
0x07334…074c8 [0x06]: C0x013b.0x2.0
0x07334…074c8 [0x07]: C0x013b.0x3.0
0x07334…074c8 [0x08]: C0x013c.0x0.0
0x07334…074c8 [0x09]: C0x013c.0x1.0
0x07334…074c8 [0x0a]: C0x013c.0x2.0
0x07334…074c8 [0x0b]: C0x013c.0x3.0
0x07334…074c8 [0x0c]: C0x013d.0x0.0
0x07334…074c8 [0x0d]: C0x013d.0x1.0
0x07334…074c8 [0x0e]: C0x013d.0x2.0
0x07334…074c8 [0x0f]: C0x013d.0x3.0
0x07334…074c8 [0x10]: C0x013e.0x0.0
0x07334…074c8 [0x11]: C0x013e.0x1.0
0x07334…074c8 [0x12]: C0x013e.0x2.0
0x07334…074c8 [0x13]: C0x013e.0x3.0
0x07334…074c8 [0x14]: C0x013f.0x0.0
0x07334…074c8 [0x15]: C0x013f.0x1.0
0x07334…074c8 [0x16]: C0x013f.0x2.0
0x07334…074c8 [0x17]: C0x013f.0x3.0
0x07334…074c8 [0x18]: C0x0140.0x0.0
0x07334…074c8 [0x19]: C0x0140.0x1.0
0x07334…074c8 [0x1a]: C0x0140.0x2.0
0x07334…074c8 [0x1b]: C0x0140.0x3.0
0x07334…074c8 [0x1c]: C0x0141.0x0.0
0x07334…074c8 [0x1d]: C0x0141.0x1.0
0x07334…074c8 ]
0x07334…074c8 }
0x074c8…0765c Dummy {f00=0x013a, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 80-11-20 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
0x0765c…077f0 Dummy {f00=0x013a, 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
0x077f0…07984 Dummy {f00=0x013a, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r , ( , ( ! IHFD2 , ( 1
0x07984…07b18 Dummy {f00=0x013a, f01=0x0190, f02=» , ( q " HALTN R b SCTMSZK z SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL , (
0x07b18…07cac Dummy {f00=0x013a, f01=0x0190, f02=» SCTMMC SCTLACL SCTMMP 2 SCTLAP F SCTNPE Z SCTSTB n SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x07cac…07e40 Dummy {f00=0x013a, f01=0x4050, f02=» _ :@ L F SCTNPE Z SCTSTB n SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x07e40…07fd4 (0, 10) Dummy {f00=0x013a, 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
0x07fd4…08168 Dummy {f00=0x013a, f01=0x0190, f02=» ( ( P c P W T | SEG:PB PAGQUE# . PAG:QBH @ , ( W P , T L M R PQEMTYT TTABLD , ( o D 0 - A Q @ P A QTJOB LKM030 , ( H
0x08168…082fc Dummy {f00=0x013a, f01=0x0190, f02=» HALTN , ( ! P @ V L W @ LKMRQE > LKMQDI R TDISP f IHRTC v , ( U A SAVE8 QMJOB * & A Q > A
0x082fc…08490 Dummy {f00=0x013a, f01=0x0190, f02=»IT FREBLK0 * & C 8 & Q Z P 0 9 * & _ ( (_ _, J TIMQUE@ x , ( w P H H #P INIFLG IHPFARC DISQUEA * & @ A
0x08490…08624 Dummy {f00=0x013a, f01=0x408e, f02=» OP SW~ YP> aT6 P P, V P" V W Q B 4 0 @ Q @ # : ' : - : G WP k t Q @ x@ w P H H #P INIFLG IHPFARC DISQUEA * & @ A
0x08624…087b8 Dummy {f00=0x013a, 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
0x087b8…0894c Dummy {f00=0x013a, f01=0x0190, 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 TTB:SB, * & s H U U
0x0894c…08ae0 Dummy {f00=0x013a, f01=0x0190, f02=» U T P v GETBLK FREQUE * * & 0 U _t ? @ < , ( T 0 A 1 Q Q > j FREBLKL FNDDWT TTB:TD , ( W 0 @ 1 A P P W ? D
0x08ae0…08c74 (0, 11) Dummy {f00=0x013a, f01=0x0190, f02=» W > _& @ z , ( I 8 R Y T ? X D FNDTID J SCTTCTD ^ , ( e T W > _& W > 8 X W ? p , ( H ` @ @ P $ H IHRET8 IHRET2 IHRET1
0x08c74…08e08 Dummy {f00=0x013a, f01=0x418e, f02=» V ? > _ > ? SWLXY $ INTSAV@ 6 , ( _ > > ? ^ ! Y ^ _ J ILLINT z HALTY , ( A. H D ! $ 5P ?R M WW _W kT$ T P
0x08e08…08f9c Dummy {f00=0x013a, 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
0x08f9c…09130 Dummy {f00=0x013a, f01=0x407c, f02=» #M 1 TTB:TD ( & ! : + V , f@ x TTB:ID TTB:STL TTB:PP R TTB:PW TTB:SA TTB:TD TTB:LAK TTB:MT TTB:SB TTMJOB
0x09130…092c4 Dummy {f00=0x013a, 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
0x092c4…09458 Dummy {f00=0x013a, 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
0x09458…095ec Dummy {f00=0x013a, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f @ DWTTP T DWTECHj " f DWTSQ , z DWTVOLW , BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x095ec…09780 Dummy {f00=0x013a, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 MONMMU LKMQDIR TTB:ST , ( C 8W T TTB:SAS
0x09780…09914 (0, 12) Dummy {f00=0x013a, f01=0x018e, 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 GETBLKP QTJ
0x09914…09aa8 Dummy {f00=0x013a, f01=0x018e, f02=» f IHRET8W , ( 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
0x09aa8…09c3c Dummy {f00=0x013a, f01=0x0190, f02=» , ( B 0P X T 4 Y X REQEND 4 , ( X T X 1 1 X F , ( P - M X P P # P v FREBLK ACTOTPN , ( H 0P 1 _ "W / Y
0x09c3c…09dd0 Dummy {f00=0x013a, f01=0x404a, 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 FREBLK ACTOTPN , ( H 0P 1 _ "W / Y
0x09dd0…09f64 Dummy {f00=0x013a, f01=0x0190, f02=» J F IDENT LDTASK REL 9.2 79-12-06 870105040920 6 2 LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB PQEMTY R PQEMTY TTABLD , ( #L 1 LT:DS
0x09f64…0a0f8 Dummy {f00=0x013a, f01=0x0190, f02=» H D A ( @ PAG:QB , PAG:SB > , ( D X H A ) @ H P SEG:EL SCTPSZ , ( H P 1 % E I D >a @ PAG:PA` SEG:DS T:ACSB ,
0x0a0f8…0a28c Dummy {f00=0x013a, f01=0x0190, f02=» l , ( g W C U C R , ( _$ C # < QTJOB l MEXIT | * & Y ' ECBRC * & ( B " T :" U TTB:SBH ,
0x0a28c…0a420 Dummy {f00=0x013a, f01=0x40a2, f02=»W r LKMERR LT:SWB $ H & ( 8 4 0 C@ V P gW qU> R T W T @ Y ' ECBRC * & ( B " T :" U TTB:SBH ,
0x0a420…0a5b4 (0, 13) Dummy {f00=0x013b, 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
0x0a5b4…0a748 Dummy {f00=0x013b, 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 >
0x0a748…0a8dc Dummy {f00=0x013b, 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
0x0a8dc…0aa70 Dummy {f00=0x013b, 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
0x0aa70…0ac04 Dummy {f00=0x013b, 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
0x0ac04…0ad98 Dummy {f00=0x013b, 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
0x0ad98…0af2c Dummy {f00=0x013b, f01=0x0190, f02=» J F IDENT DRSOP1 REL 9.2 79-11-16 870105040920 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT , ( T 8T 9W B DISIOE SPDLCI , ( ! D 7P P
0x0af2c…0b0c0 Dummy {f00=0x013b, f01=0x018e, f02=» DWTECBC ECBCW ECBEL " , ( U X R C C 2 TENDIO b TDISP t SOPRY v , ( m$ A @ A. DWSI01 DWSO01A , ( X V 9_<
0x0b0c0…0b254 (0, 14) Dummy {f00=0x013b, f01=0x401e, f02=» V @ ECBEL " , ( U X R C C 2 TENDIO b TDISP t SOPRY v , ( m$ A @ A. DWSI01 DWSO01A , ( X V 9_<
0x0b254…0b3e8 Dummy {f00=0x013b, f01=0x0190, f02=» J F IDENT DRFD01 REL 9.2 80-11-12 870105040920 4 0 FDADR IHFDY FDONY DWFD01 IHFD2 DWFD02 FDON2 R FDADR DWTOR , ( X ! Y X ! , ( Y T &
0x0b3e8…0b57c Dummy {f00=0x013b, f01=0x0190, f02=» ! ! W ! * _ ! ~ , ( * _& ! X X P ! X X ECBRL N ECBBA ^ , ( P B B ! ! n , ( ! T Y W X ! # , ( & ! ! " 0 TOT , ( 0
0x0b57c…0b710 Dummy {f00=0x013b, f01=0x0190, f02=»CBCW , ( w " X ! T X !& P B , ( H p p :C P ! 9DV < , ( ! (@ B ! ! ! l , ( ! ! ! ( ! ! DWTSB2L , ( ! X Y X !
0x0b710…0b8a4 Dummy {f00=0x013b, f01=0x0190, f02=» ! n , ( m * ! ! ! ) ! Y # T X , ( Y _ Y # 4 ! > , ( ( C V ! ! B n , ( @ B ! ! W W ! X@ , ( ! C (Q ! ! * ! , ( !
0x0b8a4…0ba38 Dummy {f00=0x013b, f01=0x0190, f02=» W n ECBEL TENDIOC TDISP 0 FDONY t @ SAVE8 R * & aI B C _ b FDON2 ~ DWTA2 , ( w W Y INIFLG SCTPLD , (
0x0ba38…0bbcc Dummy {f00=0x013b, f01=0x0190, f02=» T X Y v SETIMP , ( Y X P y _ ( , ( @ _ Y X X , ( ! P Y : ! ! > X # P Y :A , ( A , X Y Y Y X DWTECBN IHFDY t
0x0bbcc…0bd60 Dummy {f00=0x013b, f01=0x0190, f02=» (@ X X Y P X T $ D , ( @ Y Y Y Y . E 0 , ( % Y Y Y " X ` , ( ;AR ;a X P Y P 7 , ( P < $ <C ! 9 , ( ) 4 X l
0x0bd60…0bef4 (0, 15) Dummy {f00=0x013b, f01=0x0190, f02=»9BW Q 9C B ! , ( T 4 p p P ;A _ 4 X TASCIIP P , ( # P _ 4(@ R b TEBCDI , ( @ D & 1_ W (@ R 0 D ( , ( ] _ ! 4 ! ;E :B , (
0x0bef4…0c088 Dummy {f00=0x013b, f01=0x0190, f02=» , ( y Y ;D Y 4 R _ ;H , ( 4 ! (:C 4 ! ( 4 4 , ( @ @ X " 4 ! ) 4 X d P l 4 DWFD01 , ( ] , ( }
0x0c088…0c21c Dummy {f00=0x013b, f01=0x0190, f02=» l , ( , ( < , ( l $ = B K C B K H D ! v & * 'T / 5 = h C GPX KP( OPP SP< WP@ ]
0x0c21c…0c3b0 Dummy {f00=0x013b, f01=0x0190, f02=» > T H D ! 8 T + ( -W 9 ( ? & C G > K Q & UP [ a g mP Tr Ph H D ! > V j J b Z d H D !M R * & ^ > & # 'PT / 3 > 7 = CR M H D ! Q * _
0x0c3b0…0c544 Dummy {f00=0x013b, f01=0x0190, f02=» H D !* WN WR ! J % + b / 7W0 ; H =W C H G D M F U r WS YW H D !S8 ]W { }W P@ R8 v * ( T P H D ! $ P $ $ $ * !P + v 9P = * I U e " W H D ! D F t P@ H T
0x0c544…0c6d8 Dummy {f00=0x013b, f01=0x4096, f02=» P R W R R R )U - * /P @ < h 5W ;Q I & M gP } r r R j R P < T @ P H D ! $ P $ $ $ * !P + v 9P = * I U e " W H D ! D F t P@ H T
0x0c6d8…0c86c Dummy {f00=0x013b, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 2 80-01-03 870105040920 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P P 1P P W DISIOEC
0x0c86c…0ca00 Dummy {f00=0x013b, f01=0x0190, f02=» L j ECBBA ECBRL , ( @ 9 B Y B Y P * , ( @ @ ` @ P 0 Z DWTST TENDIO , ( P _ % A A Y DWTECB , ( @ _| _
0x0ca00…0cb94 (0, 16) Dummy {f00=0x013b, f01=0x0190, f02=»X p DISEND , ( A _ B Y _b X P " SETIME R , ( ] A Y W Y @_ d , ( { X X A Y _& Y , ( @ 0 A A _: X P ( , ( y Y W
0x0cb94…0cd28 Dummy {f00=0x013b, f01=0x0190, f02=» , ( (P _ ) 1 4 X R X , ( 7 T X P , Y L C 4 , ( S L C > @ d , ( m @ @ A X _" X , ( P y Y X P T @ , ( T A A
0x0cd28…0cebc Dummy {f00=0x013b, f01=0x0190, f02=» BHBB < ! 2B ! , ( + T P P , , ( K ! T T A P A T ! , ( k T ! T T ! T ! A I , ( @ A P " ! _ ! , ( T " X
0x0cebc…0d050 Dummy {f00=0x013b, f01=0x0190, f02=»P @ 8 ! ! | , ( ! + A _: ! X6_Z A @ @ , ( K T 1 R 0 2P P P A L TEBCDI | , ( k @ 8 H @ P E P * & D X R X P X T , ( P C C
0x0d050…0d1e4 Dummy {f00=0x013b, f01=0x0190, f02=» ! ( ! | , ( P @ X ! X ! W A @ X , ( )H ' A A A @ A ! L , ( $" G @ T @ P ! ! @ T | * & @ g @ X W A I , ( @ @ @ @ A ,
0x0d1e4…0d378 Dummy {f00=0x013b, f01=0x0190, f02=» B j , ( P* A @ T _2 _6 @ A A , ( ! @ X ! XD Y _N @ T X : , ( = ! P ! # T @ T ! j , ( @ [ _ ! ! _ A A H E A , ( y A 4 @ P ! ! ! @ , ( P
0x0d378…0d50c Dummy {f00=0x013b, f01=0x0190, f02=» ! A _R @ | ! X ! , ( " t X Zd X Xd Xh_r @ P * * & -D X R X P T T Y Z , ( G $ W P C , ( a A A 4 @ @ T @ , ( U A @ A A ! T
0x0d50c…0d6a0 Dummy {f00=0x013b, f01=0x0190, f02=» _$ ! 2_l x , ( / A T W ,W A A W , ( ! W W A A ! @ ! @ H , ( A ! ! ! B J 4 ! x , ( a ! @ @ A @ T @ , ( ! 8 ! @ P - ! x ! , (
0x0d6a0…0d834 (0, 17) Dummy {f00=0x013c, f01=0x0190, f02=» h , ( @ R ! A @ @ U Zx , ( Q P Q T 0 ! A 0 ! A 8 , ( ? ! " ! " ! F A h , ( _ _" A A ! ! % ! , ( R ! ! @ ! 8 ! X , ( ! 9a D
0x0d834…0d9c8 Dummy {f00=0x013c, f01=0x0190, f02=» " J T A T 2P ! IH1502 . , ( $ H 4 ! A " B , ( U _ I " P A < " A ( r , ( 1 @ 4 A _$" P H B P W ! , ( A O _ ! N ! 1 4 A f , ( m
0x0d9c8…0db5c Dummy {f00=0x013c, f01=0x0190, f02=» ( @ T v , ( < @ A ( A , ( (H a ( 4 X A > F , ( % Z A 4 A < ! 2 v , ( J # @ P ! & ! @ P a A , ( C 4 A A A ?a :a# P
0x0db5c…0dcf0 Dummy {f00=0x013c, f01=0x0190, f02=» l ` " , ( :f"? H ! V "? H ! V 4 ABC 4 , ( / DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST d , ( O UVWXYZ@,%_>?0123456789:[ '=" , ( o , (
0x0dcf0…0de84 Dummy {f00=0x013c, f01=0x0190, f02=»Wj P P8 j l l l P P j n H D ! x P ! T +P = [P _ f e n mWb > H D !#@ P W P P P P + 1R2 9T* CP& P P T H D ! T W !
0x0de84…0e018 Dummy {f00=0x013c, f01=0x0190, f02=»T 4 N 4 P P & 4 n H D !j P l T< P P % f + & 5 N C KT [P _P cP * H D ! { }P P^ RX P TJ P T W W( W" R T v H D !f| WB C G 4 MT SP W 2 _ 4 eT mWx } 4 N T P
0x0e018…0e1ac Dummy {f00=0x013c, f01=0x018e, f02=» Z +P6 Z H D ! 1R0 9P =T$ AT IW UP o yT X T2 P4 PJ PL P P. W H D !l P z P 2 z T W W W !W %W 5 = V E V K D b H D ! Q D ] c 8 {T( V V P V W PL R T T T0 H D !R? W, V
0x0e1ac…0e340 Dummy {f00=0x013c, f01=0x40b2, f02=» H D ! D P ?P GP IW M D o l s l { l }P l l l P T H D ! 'P 9P G t K v O x ]P i t m v q x * # * k p m n P @ Q D ] c 8 {T( V V P V W PL R T T T0 H D !R? W, V
0x0e340…0e4d4 (0, 18) Dummy {f00=0x013c, f01=0x0190, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^
0x0e4d4…0e668 Dummy {f00=0x013c, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x0e668…0e7fc Dummy {f00=0x013c, 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
0x0e7fc…0e990 Dummy {f00=0x013c, f01=0x4116, f02=» , ( 9 _ _< , ( S ^ 4 _ 8 TIMQUE h , ( o$@ @ 1 A _ P z IHRET8 9 ( $ ~ T N : - 4 1 N 3 > P
0x0e990…0eb24 Dummy {f00=0x013c, f01=0x0190, f02=» J F IDENT TLDSEG REL 9.2 79-11-16 870105040920 TLDSEGK TLDS15 TLDS20 R TLDSEGK t SCTNOS LKM030 SCTSEG , ( R @ U 9C @ TTB:SB@ SEG:D
0x0eb24…0ecb8 Dummy {f00=0x013c, f01=0x4150, f02=» * & 5 H $R M A D TLDS15 T 6 PAG:QB@ J TLDS20 d PAG:PA p , ( K B _ $P D % 1 I T:ACSBN , ( eI$ D W T T T T { T T
0x0ecb8…0ee4c Dummy {f00=0x013c, f01=0x018e, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x0ee4c…0efe0 Dummy {f00=0x013c, f01=0x4096, f02=» TCHPAG , ( J TCHMMU F # X & p & @ EXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x0efe0…0f174 (0, 19) Dummy {f00=0x013c, 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
0x0f174…0f308 Dummy {f00=0x013c, f01=0x0190, f02=» t , ( ! " , ( A # $ % D FDBLNK t FDBECB FDBSNR FDBRRO " FDBRLE $ FDBBLF & FDBTNRC ' FDBVT
0x0f308…0f49c Dummy {f00=0x013c, 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
0x0f49c…0f630 Dummy {f00=0x013c, 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 $
0x0f630…0f7c4 Dummy {f00=0x013c, 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
0x0f7c4…0f958 Dummy {f00=0x013c, 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 * & !
0x0f958…0faec Dummy {f00=0x013c, 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 @
0x0faec…0fc80 Dummy {f00=0x013c, 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
0x0fc80…0fe14 (0, 20) Dummy {f00=0x013c, 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
0x0fe14…0ffa8 Dummy {f00=0x013c, 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 @
0x0ffa8…1013c Dummy {f00=0x013c, 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
0x1013c…102d0 Dummy {f00=0x013c, 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 , (
0x102d0…10464 Dummy {f00=0x013c, f01=0x0190, f02=» , ( 5W P 0 @ > 1 A >(@_ FDBEXT: 8 EXTELER J , ( $ @ B (@ / DWTTQ QTJOB , ( O D $P % 4 F , ( " F 4 (@ B (
0x10464…105f8 Dummy {f00=0x013c, f01=0x0190, f02=»' X X @ ~ SCTPLDX , ( @ B Z" B ) _ (@ C 4 . , ( @@ A J ( B ! ^ , ( @ @ ( F U G F G ECBCW , ( @ F L DWTST
0x105f8…1078c Dummy {f00=0x013c, f01=0x0190, f02=» X X F , ( A $ P ^W $ P $ - , ( @ _ F + X V P "P $P N FDBMROU ~ , ( }$ W X X RT ;AR ( , ( ( T Y F , ( L" F L
0x1078c…10920 Dummy {f00=0x013c, f01=0x0190, f02=» V K X K X X P , ( P & P :W D N$ T & EASETB: V , ( H P T ZW E , E , X h TENDIO * & 5 V ? T B ( M (@( H D ! 2 2
0x10920…10ab4 (0, 21) Dummy {f00=0x013d, f01=0x4174, f02=»W P Pj V" P P #P 9V, =P E R QW _ 2 eW T 2 H D ! TT P W P %T$ /P ET M 2 _U0 Wf U WF W P F F H D !% P 3P E H iW qP& 2 U 0 P P* T U W R !PB 'P< H D !@ )W 1 2 GP MW SP kV" qP wP8 {P4 }
0x10ab4…10c48 Dummy {f00=0x013d, 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 , (
0x10c48…10ddc Dummy {f00=0x013d, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x10ddc…10f70 Dummy {f00=0x013d, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x10f70…11104 Dummy {f00=0x013d, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x11104…11298 Dummy {f00=0x013d, 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
0x11298…1142c Dummy {f00=0x013d, 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
0x1142c…115c0 Dummy {f00=0x013d, 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 @
0x115c0…11754 (0, 22) Dummy {f00=0x013d, f01=0x0190, f02=» QTJOB * & H * FDBADF& B , ( ^(@( @ ( _ ` T FDBDBR EXTELE , ( A ` ` 9A S b L d FDBCEXj FDBSNR * & @
0x11754…118e8 Dummy {f00=0x013d, 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
0x118e8…11a7c Dummy {f00=0x013d, 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
0x11a7c…11c10 Dummy {f00=0x013d, 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
0x11c10…11da4 Dummy {f00=0x013d, 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 * &
0x11da4…11f38 Dummy {f00=0x013d, 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 _ , (
0x11f38…120cc Dummy {f00=0x013d, 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 _ , (
0x120cc…12260 Dummy {f00=0x013d, 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
0x12260…123f4 (0, 23) Dummy {f00=0x013d, 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
0x123f4…12588 Dummy {f00=0x013d, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x12588…1271c Dummy {f00=0x013d, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x1271c…128b0 Dummy {f00=0x013d, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x128b0…12a44 Dummy {f00=0x013d, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x12a44…12bd8 Dummy {f00=0x013d, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r MOV:SU TASHLTP : X H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R
0x12bd8…12d6c Dummy {f00=0x013d, f01=0x4012, f02=» @ 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r MOV:SU TASHLTP : X H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R
0x12d6c…12f00 Dummy {f00=0x013d, f01=0x412a, f02=» J F IDENT PFTAB REL 9.2 80-11-20 870105040920 PFTAB R PFTAB b DC15ON t SOPRN CHLTON FDONN FDON2 DMINITL & " UP
0x12f00…13094 (0, 24) Dummy {f00=0x013d, 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
0x13094…13228 Dummy {f00=0x013d, f01=0x40da, f02=» INTRT4 SYSLOD ITADN $ KBADN 4 * & D TPADN r DYADN SPDLCI " @ FREQUE PAGQUE INT
0x13228…133bc Dummy {f00=0x013d, 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 * & > > > > > > > >
0x133bc…13550 Dummy {f00=0x013d, f01=0x0190, f02=» TTB:ST TTB:SBA , ( D ; (X> @ P T M ]N , ) ( QLTDSK0 X , ( WA L P $R _, A P P j TTB:SA` , ( s@ Y U ( ) 5 > > * & H > > > > > *
0x13550…136e4 Dummy {f00=0x013d, f01=0x4182, f02=» HD [ [ Z P D 0 PAG:QB` , PAG:PA > T:ACSB P , ( "$P P - I 1 P Z U b , ( Z Z ? ? Z Z , ( I$ Z Z Z Z Z * & - H
0x136e4…13878 Dummy {f00=0x013d, 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
0x13878…13a0c Dummy {f00=0x013d, 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
0x13a0c…13ba0 Dummy {f00=0x013d, 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
0x13ba0…13d34 (0, 25) Dummy {f00=0x013e, 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
0x13d34…13ec8 Dummy {f00=0x013e, f01=0x0190, f02=» * X P Y C DWTTP & * & q 8!@P X P y W 6 SETIMPL d , ( ` Y B P v , ( T B % X * $ 4 T % STREG , ( W X (T ! P W
0x13ec8…1405c Dummy {f00=0x013e, f01=0x0190, f02=» 8$ P W 8$ P $ T W $ , ( A Y 'P Y %P Y $P T ! & , ( _ B Z W W ! * T ! V ECHEND , ( } X P y Y C ! DISEND * & 0 Z ! , (
0x1405c…141f0 Dummy {f00=0x013e, f01=0x0190, f02=» h , ( 8 T ! )_ W ! T "? 9 0 R DWTBC 8 , ( / Q > 4 >_ <k$ Y T #? H , ( M 0R R * W ?W X P $ <c x , ( m ,P $ , X R ;GV X P LDREG , ( y X ( $4
0x141f0…14384 Dummy {f00=0x013e, f01=0x018e, f02=» TT , (@ > H D ! h * < V )W@ 9U ?P CP ER M [ eP q | wP$ }P W H D ! P T T W T P W V P R WV ! h H D ! T 'P +W 1P 7T ;W EPX KP QP UT Y gW k mW q wT P H D !
0x14384…14518 Dummy {f00=0x013e, f01=0x400c, f02=» @ (@ > H D ! h * < V )W@ 9U ?P CP ER M [ eP q | wP$ }P W H D ! P T T W T P W V P R WV ! h H D ! T 'P +W 1P 7T ;W EPX KP QP UT Y gW k mW q wT P H D !
0x14518…146ac Dummy {f00=0x013e, f01=0x0190, f02=» J F IDENT DRTP02 REL 9.2 79-11-16 870105040920 TPADY R TPADY b , ( t DWTOR , ( ! !"&';<>@^_ 9: X ! Y DISIOE DWTBC , (
0x146ac…14840 Dummy {f00=0x013e, f01=0x0190, f02=» , ( w ! W B W B L , ( # 9Q T W Q P X " V 8 DWTST h ECBRL x , ( T Y "W X ! T B , ( R Q B D ! V ! ! * & ! W ! !
0x14840…149d4 (0, 26) Dummy {f00=0x013e, f01=0x0190, f02=» , ( 5 T " T W Q " T ) ! , ( Q Y _ ! ! Y 8 , ( m @ "P Q W ! Y #" h * & _" _< ! _n ! _t B B , ( , ! T _ D ! , ( P ! P
0x149d4…14b68 Dummy {f00=0x013e, f01=0x0190, f02=»T ! L ,! :D" ! Y , ( 7 Y U ! _$ W , & ECBRC V , ( Q ! T ,' ! R !__U f , ( qHD C X ' W Y ! LDREG , ( _ X R U T X
0x14b68…14cfc Dummy {f00=0x013e, f01=0x0190, f02=»T j TDISP , ( @ $ ! B R , ( B _ 4 ! ! ! J , ( " T ! ! ! ! z , ( % 4 X # 4 Y # ! * & A@ ! " P ,$ , ! 4 H D
0x14cfc…14e90 Dummy {f00=0x013e, f01=0x40ea, f02=» T V T H D ! 8 9T =T ?W CQ GT Q . i oP qQ wW . T P P H D ! @ W V P RN Q PH P R: T2 3 =U MW4 UT gR mU {W ( $ RV U TL P T R T GP Z @ P ,$ , ! 4 H D
0x14e90…15024 Dummy {f00=0x013e, 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 , ( =
0x15024…151b8 Dummy {f00=0x013e, 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
0x151b8…1534c Dummy {f00=0x013e, f01=0x018e, f02=» X X " r , ( " X %# C V C ! , ( Y B ! Y _` C B , ( " _ " $ P X # r , ( @ X ] ! , ( B 8! T ! ! ! , ( #
0x1534c…154e0 Dummy {f00=0x013e, 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 ! !
0x154e0…15674 (0, 27) Dummy {f00=0x013e, 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 , (
0x15674…15808 Dummy {f00=0x013e, 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
0x15808…1599c Dummy {f00=0x013e, 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
0x1599c…15b30 Dummy {f00=0x013e, 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
0x15b30…15cc4 Dummy {f00=0x013e, f01=0x0190, f02=» J F IDENT DRIC01 9.2DK 0 80-01-02 870105040920 ITADY ITABRT IT:BUF R ITADY r IT:BUF , ( P P P ECBCW FNDTID` DWTTAB , ( ! H .T
0x15cc4…15e58 Dummy {f00=0x013e, f01=0x0190, f02=» U H R H P ' P DWTSB1A . TENDIO @ , ( q P W T ' P ! R TDISP , ( X P P SETIMP TTB:ST , ( R A Y
0x15e58…15fec Dummy {f00=0x013e, f01=0x0190, f02=» _ ( Y _ _x X T @ , ( P ( A _ ( Y _ _ ( ITABRT L X , ( = i 9 @_ H P l , ( @ ] P $ $ 1 )W ) $ IHRTN DWTECB ECBRL , ( } P
0x15fec…16180 Dummy {f00=0x013e, f01=0x410e, f02=» F " R _ ~ 4 H D ! L P P P #T -Wd 9P ?P OR _R: gP kP qP sW( 0 H D !Q yT" } N P| P P R: : Q P T P t T P | , ( ) t E R Q v [P aP sW }P U R @
0x16180…16314 (0, 28) Dummy {f00=0x013e, f01=0x0190, f02=» J F IDENT TMMLKM REL 9.2 79-11-16 870105040920 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x16314…164a8 Dummy {f00=0x013e, f01=0x4060, f02=»$ T %_< z O %_B P )U /U GT . R J@ MMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x164a8…1663c Dummy {f00=0x013e, 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
0x1663c…167d0 Dummy {f00=0x013e, 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
0x167d0…16964 Dummy {f00=0x013e, 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
0x16964…16af8 Dummy {f00=0x013e, f01=0x4078, f02=» R _ 00 > & <h$ P > * t 'P Q UP yR P > b@ t l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI , ( # P >_ < U
0x16af8…16c8c Dummy {f00=0x013e, 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 TASMXAP T
0x16c8c…16e20 Dummy {f00=0x013e, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x16e20…16fb4 (0, 29) Dummy {f00=0x013f, f01=0x0190, f02=» TASTBE T TASLFD# V , ( A , TASCAQT b TTB:SA p QTJOB , ( " a $ @ P 4 A U W VOLCHE , ( T } A A @ U : A V A X:A
0x16fb4…17148 Dummy {f00=0x013f, f01=0x0190, f02=» ECBRC , ( ( B P T W , ( ' T I @ 8 =hP Y X D DWTVOL t , ( P T Y H ! , ( ) R W 9a I T T 9a H , ( @ I E V ^ W P ,! T
0x17148…172dc Dummy {f00=0x013f, 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
0x172dc…17470 Dummy {f00=0x013f, 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
0x17470…17604 Dummy {f00=0x013f, f01=0x402e, f02=» _R T W, R @ *
0x17604…17798 Dummy {f00=0x013f, 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
0x17798…1792c Dummy {f00=0x013f, f01=0x018e, f02=» DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x1792c…17ac0 Dummy {f00=0x013f, f01=0x4008, f02=»@ DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x17ac0…17c54 (0, 30) Dummy {f00=0x013f, f01=0x40ba, f02=» J F IDENT DFTAB REL 9.2 79-11-16 870105040920 DFTAB DFTABE R DFTAB j DFTABE | @ B PDFTABE EQU * P END @ P* P* P* LEVE
0x17c54…17de8 Dummy {f00=0x013f, 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 , ( !
0x17de8…17f7c Dummy {f00=0x013f, f01=0x40da, f02=» h BUFDMIL BUFSNR BUFOR , , ( Q , - M M M @ < TASBLK l TASQUE ~ g$ A A > Q %PJ r @ FDBEND CRNQUE , ( !
0x17f7c…18110 Dummy {f00=0x013f, f01=0x0190, f02=» J F IDENT SYSLDA REL 9.2 79-12-21 870105040920 D @ JUMPY SYSLDA dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MMTAB TABBE MMEND MMDDIV BUFSIZ` SYSBUF M:REL F B SAVE01 SAVE120 SAVE03 SAVE04 S
0x18110…182a4 Dummy {f00=0x013f, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x182a4…18438 Dummy {f00=0x013f, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x18438…185cc Dummy {f00=0x013f, f01=0x018e, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND ERROR , ( W Z A.
0x185cc…18760 Dummy {f00=0x013f, f01=0x0190, f02=» , ( V t , ( - Z W r _j V <B W 4 , ( @ M : $ w : V d , ( @ m $ V l $ V , ( M : W V R R , ( Y R
0x18760…188f4 (0, 31) Dummy {f00=0x013f, f01=0x0190, f02=» P W V P , ( - $;A^ D E D P V $ , ( A M P P T T , ( m E _N T E _ , ( r V t_~ " V r D , ( T E % E : " R
0x188f4…18a88 Dummy {f00=0x013f, f01=0x0190, f02=» : V P 9a _ " ( ) 8 ( , ( - ) : " $ V P 9A _ 0 : W ( , ( M W W ?AP ^ 0 : W ; V X SCTTCT , ( m : : J @ 0 V , ( @ 0 H W : ? SAVE8
0x18a88…18c1c Dummy {f00=0x013f, f01=0x0190, f02=» _ n TTB:SA , ( : 4P " D ~ H H SCTSFA P , ( M v b - I Y& : b , ( !@ @ ` V b p , ( ? @P t " = 4 , ( ! ] Q _2
0x18c1c…18db0 Dummy {f00=0x013f, f01=0x0190, f02=» SCTOPT SCTPAG , ( @ @ ! ( SCTNOPN X , ( @ P P j SCTPSZ , ( P P _ _ @ , ( V W U P P
0x18db0…18f44 Dummy {f00=0x013f, f01=0x0190, f02=» A | , ( s$ @ .V 3 S PAGQUE L , ( Y& P ^ , ( S P 3 , ( _ 3 SCTBUGR SCTST
0x18f44…190d8 Dummy {f00=0x013f, f01=0x0190, f02=» , ( A ( > , ( = l : 0R < W n V pT 4 , ( ] : N V l W H V ]" d , ( } . nT j W v T W n V ~ , ( P W x , (
0x190d8…1926c Dummy {f00=0x013f, f01=0x0190, f02=»V P : j T V ~P , ( = W x _$ 8 V V x % V v % : $ , ( ] V V P W T , ( {@ t $ ) ^ r V , ( W f ) G V ) , ( W b G ) G `
0x1926c…19400 Dummy {f00=0x013f, f01=0x018e, f02=» 4 R t , ( 9 , ` " E , ( @ Y R W ~ R R P R D , ( y X^ _dW HT : < j W x t , ( P@ P_ V P ~ I W z ` , ( A pP " R ` * &
0x19400…19594 (0, 32) Dummy {f00=0x013f, f01=0x0190, f02=» CONVRT > , ( 5 ;h 0 :C # NXTBLKL X H NXTCOM , ( D U : .=H N > ` p , ( u .=H N > ` N GETNUM SYSLDA , ( : d
0x19594…19728 Dummy {f00=0x013f, f01=0x0190, f02=» d 2 @ R , ( - @ - N !TTP ( , ( @ + N :H N TBT W W 2 X , ( K " T @ X 2 N =H N , ( @ k > @ ) X !TTXT !CCT , ( !UUT d W
0x19728…198bc Dummy {f00=0x013f, f01=0x018e, f02=» @ x , ( W W > W @ W , ( % D ` V W W H , ( C ` " W p @ x , ( a pP " 4X 1 , ( R Z0 % _ W l a w ` , (
0x198bc…19a50 Dummy {f00=0x013f, f01=0x0190, f02=» H D ! W> 2 0 . 1 2 C S Y V W U R V + H D !P R, H P P P +Pv CP. KV SP eT uT V T P P P H D ! V W P 9P OW WP V R P0 ?PL ]Q T | P H D ! P^ P PR V W U( P
0x19a50…19be4 Dummy {f00=0x013f, f01=0x4092, f02=» P0 P +PV qP u W T P PJ T R P < 8 R 'P =T CW4 QT T T WT P V eP* P < |@ P P H D ! V W P 9P OW WP V R P0 ?PL ]Q T | P H D ! P^ P PR V W U( P
0x19be4…19d78 Dummy {f00=0x013f, f01=0x018e, f02=» J F IDENT SYSLDM REL 9.2 79-12-20 870105040920 SYSLDMK R SYSLDMK d SCTSFA x SYSBAS SCTEFA TCLASSV , ( I A SCLASS SAV
0x19d78…19f0c Dummy {f00=0x013f, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x19f0c…1a0a0 Dummy {f00=0x013f, f01=0x0190, f02=» . !TTP @ NXTBLK $ , ( T Y " !TTX" 6 SCTTCTW f , ( B$ A 9 A $ : @ $ x SCTDMI , ( %B @ P @ &" P #D " , ( A P #E " P #F
0x1a0a0…1a234 (0, 33) Dummy {f00=0x0140, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x1a234…1a3c8 Dummy {f00=0x0140, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x1a3c8…1a55c Dummy {f00=0x0140, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x1a55c…1a6f0 Dummy {f00=0x0140, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x1a6f0…1a884 Dummy {f00=0x0140, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x1a884…1aa18 Dummy {f00=0x0140, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x1aa18…1abac Dummy {f00=0x0140, f01=0x0190, f02=» W , P W N SAVE14G , ( K ( W P 0 , ( g G =h G V P V < ` , ( V N P W N _B V , ( $ W V , Yr " !TTX @ , ( @ T
0x1abac…1ad40 Dummy {f00=0x0140, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x1ad40…1aed4 (0, 34) Dummy {f00=0x0140, f01=0x018e, f02=» V t , ( N _2 U V * & 8 8 8 4 D P B , ( ! L @ # P H I p , ( = K T + Y@ _`R , ( ]H @ @ R @ % P V , ( u
0x1aed4…1b068 Dummy {f00=0x0140, f01=0x0190, f02=» * & V Z @ 0 V SAVE072 6 , ( P _ W ^ $ q > R H DWTECH x * & P >b W >b & 8P D P U SYSLOD , ( ` E W b V W R 9 , ( W
0x1b068…1b1fc Dummy {f00=0x0140, f01=0x0190, f02=» V j , ( o ^ -W H P U ` I @ % , ( P H I H T P H : , ( U V FU W j , ( F H < + + P , ( @ V : V X $ * & F !
0x1b1fc…1b390 Dummy {f00=0x0140, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x1b390…1b524 Dummy {f00=0x0140, f01=0x0190, f02=» _ V 4P V f ] ~ , ( ; jW f P _ @ , ( U @ T N , ( o @ : N =H N 2 : N =H N ~ , ( 2 : &=H F 2 : F =H , ( F 2 : F =H F 2 :
0x1b524…1b6b8 Dummy {f00=0x0140, f01=0x0190, f02=» ! n , ( P (W ( : ~ F , ( = v @ : < > , ( Y CRT @ ! P ` : @ E "W n SYSLDA * & sH ` : @ E " l H D !p P # N / N G &
0x1b6b8…1b84c Dummy {f00=0x0140, f01=0x0190, f02=» g uU P0 U PJ 5P ;W CP QT kT P T H D ! PP P T P 3T [P _ g {V T P H H D !m P r P ! )Ph 1 OP$ _P T R T P T H D ! * 7 r ? CPT Y a i P T
0x1b84c…1b9e0 Dummy {f00=0x0140, f01=0x410e, f02=» P W P P W V W R W 3P@ AT@ x H D ! GP cP sW yP PD P( U P T !WR %T /W, 3T ?W ET QW 4 H D ! cR T P P T P$ P U P W 'P 3P =W IP [T P ( $ T P P P !W [T" cP qW @
0x1b9e0…1bb74 (0, 35) Dummy {f00=0x0140, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 80-11-20 870105040920 SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x1bb74…1bd08 Dummy {f00=0x0140, f01=0x4048, f02=» " ( # ) > 2@ D20 SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x1bd08…1be9c Dummy {f00=0x0140, f01=0x4120, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVTP00 DVDY00 , ( $ 0 1 2 P @
0x1be9c…1c030 Dummy {f00=0x0140, f01=0x40dc, f02=» J F IDENT DWII01 REL 9.2 79-11-16 870105040920 DWII01K R DWII01K d ITADN x * & @ @ U ECB ADDRESS P XIF
0x1c030…1c1c4 Dummy {f00=0x0140, f01=0x40dc, f02=» J F IDENT DWIO01 REL 9.2 79-11-16 870105040920 DWIO01K R DWIO01K d ITADN x * & @ @ U ECB ADDRESS P XIF
0x1c1c4…1c358 Dummy {f00=0x0140, f01=0x40e0, f02=» J F IDENT DW1501 REL 9.2 79-11-16 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ 0,0,0,0 P XIF P* PDW
0x1c358…1c4ec Dummy {f00=0x0140, f01=0x4148, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBADN x & " KB DVDY00 , ( !@ " ?
0x1c4ec…1c680 Dummy {f00=0x0140, f01=0x40f4, f02=» J F IDENT DVTP00 REL 9.2 79-11-16 870105040920 DVTP00K R DVTP00K d TPADN x , ( TP $ $ @ USER ECB ADDRESS
0x1c680…1c814 (0, 36) Dummy {f00=0x0140, 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
0x1c814…1c9a8 Dummy {f00=0x0140, f01=0x2008, f02=» L = KMD12 DATE = 80 06 13 1216PACK NBR = 0012 ! ` [ 0 g @ $ 'P / _
0x1c9a8…1cb3c Dummy {f00=0x0140, f01=0x4036, f02=» 'P 7 4 8 @ 8 2 P:MTAB 7 4 T:ATAB 7 H U:BTAB 7 Z I:NTPA 7 l P:BAS 7 ~ T:BAT 7 T:CAT 7 T:PAT 7 T:LIT 7 , ( 7 T:KEY 7
0x1cb3c…1ccd0 Dummy {f00=0x0140, f01=0x0190, f02=» IDENT P:PIL 9 < 8 P:BAS T:BAT T:PAT T:CAT T:LIT T:PIC T:KEY T:FMT P:END 9 DC1GO 9 ` REEND0 9 p REENTC 9 REGGO 9 DC1GO 9 REEND0 4 9 REENTC 9 REGGO 9 P:BAS 9 * &
0x1ccd0…1ce64 Dummy {f00=0x0140, f01=0x0190, f02=» [ 4 0 4 0 4 0 4 0 9 y 4 0 4 4 : * T:CAT : F T:DSC0 : X DCTSK : j T:RSTR : z T:PAUS : T:DSC1 : T:DELA : T:EXIT : * & UT / : FMO
0x1ce64…1cff8 Dummy {f00=0x0140, f01=0x0190, f02=» : T:GETC ; 0 T:DYKI ; B T:UPDF ; T T:TFWD ; f T:TBWD ; x T:TLDO ; T:TLEF ; T:TRIG ; , ( " $ & ( * , . ; T:TDOW ; T:T
0x1cff8…1d18c Dummy {f00=0x0140, f01=0x0190, f02=» 4 6 8 : < > ; ~ T:NKI < T:ASSI < . T:KI < @ T:GETI < P T:USE < b T:ATTF < r MASK < T:WAIT < , ( @ B D F H J L N < T:TEST < ABORT < T:RREA <
0x1d18c…1d320 Dummy {f00=0x0140, f01=0x0190, f02=» T:BAT = = T:PAT = , * & = > * & " = l * & ' $ % ' / 1 @ D X [ h i m s = * & E - SUMADVIDATODEN SIDET = * & c RP ADM AR
0x1d320…1d4b4 (0, 37) Dummy {f00=0x0141, f01=0x0190, f02=»AGS-DATOKONTOKORTMASKI = * & N NRPOST-DATOSTART SUM SLUT T > * & EST FRA/TIL-NRBEV.PERIODEREMIT > L * & TERING START TESTKASSELUKNING > z * & 5 SPECIFIKATION DISKETTE SKIFT B > * & S EHOLDNINGST[LLEREUDSKRIFT AF T > * &
0x1d4b4…1d648 Dummy {f00=0x0141, f01=0x0190, f02=» E 9BX99BZXXZZ99 > * & 999BB**BBXBBZBXBBXXBZZXXXZZ9ZZ ? , * & Z999BB99.B999B99BBBZBBBZZBXX.B ? Z * & % ZZZZZZ9ZZZZ****9***99B999BBBBZ ? * & C ZBZZZZBBZ999BB****9XX.XXPPZZZZ ? * & a ZZZ99V99V99ZZ.ZZ.ZZZZ9999999
0x1d648…1d7dc Dummy {f00=0x0141, f01=0x0190, f02=»99.9 ? n * & 9ZZZ999999999.99.999.9BXXXXXXX @ * & XXXBZZZZZZZZZZZZZZZZZZZZB***** @ : * & *E-****XXXXXXE-XXXXZZZZ9999.99 @ h * & 3 BBBZZ.ZZ.ZZBBBE-9999999999B999 @ * & Q E-99999E-99XE-XXE-XXE-XXBXXXE- @ * & o XXXXXE-XXXXXVX
0x1d7dc…1d970 Dummy {f00=0x0141, f01=0x0190, f02=»***.***.**9,99+*.* @ | * & **.***.**9.99+*.***.***.**9.99 A * & -Z.ZZZ.ZZZ.ZZ9.99-*.***.***.** A H * & # 9.99+BB*.***.***.**9.99-B*.*** A v * & A .***.**9E,99ZZZVZZZVZZZVZZ9E,9 A * & _ 9-BBZZZ.ZZZ.ZZZ.ZZ9,99-BBZZZ.Z A * & }
0x1d970…1db04 Dummy {f00=0x0141, f01=0x0190, f02=» A * & & B ( * & B V * & 1 1 ^ Z _ V o g r s a | B * & O U x t m ~ n j y v [ B * & m z ]S T 2 a Y w i B
0x1db04…1dc98 Dummy {f00=0x0141, f01=0x0190, f02=» B j * & d ` P +X * W C * & f 0 X Z K } 0 Y C 6 * & ! T 2 ^ ^ , , WZ S C d * & ? W W Z K } W C * & ] V Z M 0 0 J B 4 C * & { +A W D K
0x1dc98…1de2c Dummy {f00=0x0141, f01=0x0190, f02=» ^ ^ 4) C x * & Z E + " W9 i D * & G * * Y D D : #: $ D D * & / + + + F 5 D r * & M V i c 3 e 2 Oi D * & k ^i ^i K 3 D * & M
0x1de2c…1dfc0 Dummy {f00=0x0141, f01=0x0190, f02=» Z 4$ D E $ D * & < ] N E S [ +> W [ E $ * & * 7 i = E R * & = q Y Z 4 D q 5 E * & [ ! * _ E * & y Q I O ; 5H E *
0x1dfc0…1e154 (0, 38) Dummy {f00=0x0141, f01=0x0190, f02=» * & 3 e i F * & F J I q Y ` / F 2 * & - H J A > C* 2 L F ` * & K 2N ] ] ] F * & i Z q D 6 5/ ' F * & & Z q D
0x1e154…1e2e8 Dummy {f00=0x0141, f01=0x0190, f02=» IALT F t * & SIDE(R) 4L PRIMO^ G * & 2 BEV ^ ^ ^ 2 ULTIMO^ G @ * & ; 4 TOTAL^ ^ ^ 4 SUPL G n * & Y ^ ^ ^ 2 KOR ^ ^ G * & w + A 1}2 - W 2 G * & * * 4 R
0x1e2e8…1e47c Dummy {f00=0x0141, f01=0x0190, f02=» Q * + 0 Y! / e G * & ? G ] P @ P d H * & + B5 BEL B LEV-NR NA H N * & I VN REMIT.OPLYSNING C* H | * & g O##NI6TS2102S2//2.FFFF-,JJ,-,+ H * & +,(----BA*) B BBA=BBBBH<8@"! H * &
0x1e47c…1e610 Dummy {f00=0x0141, f01=0x0190, f02=» H * & " $ & ( * , I . * & 9 . 0 2 4 6 8 : I * & W < > @ B D F H J I * & u L N P R T V X I * & Z ] a e i m
0x1e610…1e7a4 Dummy {f00=0x0141, f01=0x0190, f02=» I p * & ! , 8 D R a J * & ) s * 0 0 0 0 J < * & G 0 0 0 0 0 0 0 J j * & e 0 J * & J * & # &
0x1e7a4…1e938 Dummy {f00=0x0141, f01=0x0190, f02=» J ~ * & K * & 7 ) 4 @ L X K J * & U e r K x * & s * ; K * & M _ q K * &
0x1e938…1eacc Dummy {f00=0x0141, f01=0x0190, f02=» ! # % ' ) + - K * & ' / 1 3 5 7 9 ; = L * * & E ? A C E H K O L X * & c S W [ _ c g k o L * & s w { L * &
0x1eacc…1ec60 Dummy {f00=0x0141, f01=0x0190, f02=» L l * & M * & 5 # 4 F Y l M 8 * & S ( M f * & q > V n M * & % % : ( _ * * 4 9 M * & < H K h @ 7
0x1ec60…1edf4 (0, 39) Opaque[0x194]
0x1edf4…1ef88 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d10, f03=0x0000}
0x1edf4…1ef88 IdxSect {
0x1edf4…1ef88 f00 = 0x00e8 // 0x1edf4 @0x0
0x1edf4…1ef88 f01 = 0x0002 // 0x1edf6 @0x2
0x1edf4…1ef88 gno = [ // 0x1edf8 @0x4
0x1edf4…1ef88 [0x00]: C0x00e8.0x2.0
0x1edf4…1ef88 ]
0x1edf4…1ef88 }
0x1ef88…1f11c Dummy {f00=0x00e8, f01=0x0190, f02=» 2 P IDENT SCLASS REL 9.2 80-11-20 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x1f11c…1f2b0 Dummy {f00=0x00e8, f01=0x018e, f02=» P* PSCLASS DATA TCLASE-* P DATA TC00 . P DATA TC01 L P DATA TC02 j P DATA TC03 P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-* P DATA
0x1f2b0…1f444 Dummy {f00=0x00e8, f01=0x0190, f02=» z PTC01 DATA TC01E-* P DATA /00E0 * P DATA DWII01 J PTC01E EQU * j PTC02 DATA TC02E-* P DATA /00E1 P DATA DWIO01 PTC02E EQU * PTC03
0x1f444…1f5d8 Dummy {f00=0x00e8, f01=0x414c, f02=» TC04E-* P DATA /0060 P DATA DW1500 4 P DATA /00F8 T P DATA DWFD01 t P DATA /01F9 P DATA DWFD01 P DATA /00FA NJ P DATA DWFD02 NJ P DATA /01FB NJ P
0x1f5d8…1f76c Dummy {f00=0x00e8, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x1f76c…1f900 Dummy {f00=0x00e8, f01=0x0190, f02=»CKED 4 l P LD A2,DWTA3,A6 INDEX MASK 5 , P XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT 5 . PUNL:80 EQU * 5 ^ P RB LOA:75 END:IO 5 r P IFF TOSS+IBM=0 5 P* 5 P* UNLOAD RETURN CODE CHECK 5 P* 5 PUNL:RC ORS A3,DWTRCW,A6 5 P ANK A3,/7 F
0x1f900…1fa94 (0, 40) Opaque[0x194]
0x1fa94…1fc28 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0db0, f03=0x0000}
0x1fa94…1fc28 IdxSect {
0x1fa94…1fc28 f00 = 0x006d // 0x1fa94 @0x0
0x1fa94…1fc28 f01 = 0x0002 // 0x1fa96 @0x2
0x1fa94…1fc28 gno = [ // 0x1fa98 @0x4
0x1fa94…1fc28 [0x00]: C0x006d.0x2.0
0x1fa94…1fc28 ]
0x1fa94…1fc28 }
0x1fc28…1fdbc Dummy {f00=0x006d, 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
0x1fdbc…1ff50 Dummy {f00=0x006d, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN ITAD R P EXTRN KBAD f P EXTRN TPAD z P EXTRN DYAD P* P P PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA 0,0 PINTLT1 DAT
0x1ff50…200e4 Dummy {f00=0x006d, f01=0x40d6, f02=» PINTRT4 DATA 0 P DATA SYSLOD P**** 2 P DATA ITAD > P DATA KBAD R P DATA TPAD d P DATA DYAD v P* 0 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF P END @ DATA 0 PPAGQUE DATA 0,0 PINTLT1 DAT
0x200e4…20278 Dummy {f00=0x006d, 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
0x20278…2040c Dummy {f00=0x006d, 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
0x2040c…205a0 Dummy {f00=0x006d, 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,
0x205a0…20734 (0, 41) Opaque[0x194]
0x20734…208c8 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c48, f03=0x0000}
0x20734…208c8 IdxSect {
0x20734…208c8 f00 = 0x00e2 // 0x20734 @0x0
0x20734…208c8 f01 = 0x0006 // 0x20736 @0x2
0x20734…208c8 gno = [ // 0x20738 @0x4
0x20734…208c8 [0x00]: C0x00e2.0x1.0
0x20734…208c8 [0x01]: C0x00e2.0x3.0
0x20734…208c8 [0x02]: C0x00e3.0x0.0
0x20734…208c8 ]
0x20734…208c8 }
0x208c8…20a5c Dummy {f00=0x00e2, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 80-11-20 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*
0x20a5c…20bf0 Dummy {f00=0x00e2, 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 SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD P E
0x20bf0…20d84 Dummy {f00=0x00e2, f01=0x0190, f02=»MMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 0 P ENTRY SCTTCT,SCTCDT F P ENTRY SCTBUG b & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC x P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:
0x20d84…20f18 Dummy {f00=0x00e2, f01=0x018e, f02=»START n P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 0 P EXTRN IH1501 T P EXTRN IH1502 t ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHLT1 LOCAL CHANN
0x20f18…210ac Dummy {f00=0x00e2, f01=0x0190, f02=» P EXTRN HALT HALT ROUTINE P* DEBUGGER $ PX:A EQU 0 MONITOR OPTION 6 ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM V * 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 PX:
0x210ac…21240 Dummy {f00=0x00e2, f01=0x0190, f02=» $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH , $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS R P* z & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA EQU 4 PAGE ADDRESS & PPAG:SB EQU 6
0x21240…213d4 (0, 42) Dummy {f00=0x00e2, f01=0x0190, f02=»COPY f $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 SWB LENGTH (SECTORS) 4 P* ^ ( PT:ACSB EQU -12 CURRENT SEGMENT BASE h P SYSTAB P* P* INTERRUPT VECTORS P* P DATA IHPFAR 0 P DATA IHLKM 1
0x213d4…21568 Dummy {f00=0x00e2, f01=0x0190, f02=» 6 P DATA ILLINT P DATA ILLINT , P DATA IHSOP 9 L P DATA ILLINT 10 h P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13 P DATA CHLT1 14 P DATA IHFD 15
0x21568…216fc Dummy {f00=0x00e2, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT P DATA ILLINT 22 > P DATA ILLINT Z P DATA CHLT1 24 z P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT
0x216fc…21890 Dummy {f00=0x00e2, f01=0x0190, f02=»33 ~ P DATA ILLINT P DATA ILLINT * P DATA ILLINT 36 J P DATA ILLINT 37 f P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT P DATA ILLINT P DATA ILLINT
0x21890…21a24 Dummy {f00=0x00e2, f01=0x0190, f02=»ILLINT 47 P DATA ILLINT 48 P DATA ILLINT 49 2 P DATA ILLINT 50 N P DATA ILLINT 51 j P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT
0x21a24…21bb8 Dummy {f00=0x00e2, f01=0x018e, f02=» 61 P DATA ILLINT 62 P DATA TRAP TRAP ROUTINE * P SYSTAB J P ^ P* f " P* SYSTEM CONTROL TABLE POINTER p P* P DATA SCT P P P* P* SYSTEM TRAP P* PTRAP LDK A1,/D P CF A1
0x21bb8…21d4c Dummy {f00=0x00e2, f01=0x0190, f02=» P LD A1,SCTBUG P ABR(NZ) A1 P HLT . P : P SYSTAB B P V P* ^ P* SYSTEM CONTROL TABLE h P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA $
0x21d4c…21ee0 Dummy {f00=0x00e2, f01=0x0190, f02=»ATA 0 APPLICATION NUMBER 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS V PSCTSEG DATA 0 SEGTAB ADDRESS z PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER OF SEGMENTS " PSCTNOP DATA 0 NUMBER OF PAGES
0x21ee0…22074 (0, 43) Dummy {f00=0x00e3, f01=0x0190, f02=»L ADDRESS OF COMMON PART | & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB J * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES d ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE $ PSCTOPT DATA 00002 MONITOR OPTION
0x22074…22208 Dummy {f00=0x00e3, f01=0x0190, f02=»0 DEBUGGER ( PSCTDMT DATA 00004 DMTASKS IN SYSTEM P BIT 13:D2,14:D1,15:D0 > 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE ^ * PSCTDML DATA 00000 DM NO OF LOCAL FILES , PSCTDMC DATA 00010 DM NO OF COMMON FILES ( PSCTBLK DATA 6 NUMBER O
0x22208…2239c Dummy {f00=0x00e3, f01=0x40d0, f02=» RES 145 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR IDLE LOOP , P V P ^ P* f P* IDLE LOOP p P* P PLOOP RB * P P P P END @ 010 DM NO OF COMMON FILES ( PSCTBLK DATA 6 NUMBER O
0x2239c…22530 Dummy {f00=0x00e3, 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
0x22530…226c4 Dummy {f00=0x00e3, f01=0x0190, f02=»DIO P* P P* P* ORDER? * P* < PFD:ORD EQU * F P IFT CHAN+TOSS=2 Z P IFT MMUPAG=1 r P IFF DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GET FIRST WORD OF ECB 4 P ANKL A1,/3000 G
0x226c4…22858 Dummy {f00=0x00e3, f01=0x018e, f02=»A3,TOSLEN CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:005 NO? 4 P* N PFD:000 EQU * X P ST A2,DWT:BF,A6 SAVE IT l P LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 P SLL A1,2 P ORR A1,A2 P ANKL A3,/FFF 2 P ST A1,D
0x22858…229ec Dummy {f00=0x00e3, f01=0x0190, f02=» ( P ORK A1,1 INDICATE ADDRESS NOT ZERO * P LDKL A2,FD:BUF GET DWT BUFFER ADDRESS 0 2 P ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB ^ P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P* P DRFD01 P XIF P*
0x229ec…22b80 Dummy {f00=0x00e3, f01=0x0190, f02=» FD:010 BASIC WRITE P SUK A1,12 P RF(Z) FD:040 PHYSICAL READ . P SUK A1,4 R P RF(Z) FD:028 PHYSICAL WRITE d P SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 P ABL(Z) UNLOAD UNLOAD ORDER P IFT IBM=1
0x22b80…22d14 (0, 44) Opaque[0x194]
0x22d14…22ea8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e90, f03=0x0000}
0x22d14…22ea8 IdxSect {
0x22d14…22ea8 f00 = 0x0074 // 0x22d14 @0x0
0x22d14…22ea8 f01 = 0x0008 // 0x22d16 @0x2
0x22d14…22ea8 gno = [ // 0x22d18 @0x4
0x22d14…22ea8 [0x00]: C0x0074.0x2.0
0x22d14…22ea8 [0x01]: C0x0076.0x1.0
0x22d14…22ea8 [0x02]: C0x0094.0x0.0
0x22d14…22ea8 [0x03]: C0x00c3.0x2.0
0x22d14…22ea8 ]
0x22d14…22ea8 }
0x22ea8…2303c Dummy {f00=0x0074, 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*
0x2303c…231d0 Dummy {f00=0x0074, 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
0x231d0…23364 Dummy {f00=0x0074, 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.
0x23364…234f8 Dummy {f00=0x0074, 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
0x234f8…2368c Dummy {f00=0x0074, 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
0x2368c…23820 Dummy {f00=0x0074, 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
0x23820…239b4 (0, 45) Dummy {f00=0x0076, 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
0x239b4…23b48 Dummy {f00=0x0076, f01=0x0190, f02=»ISC PAGING p * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * @ PDSKPAG EQU 1 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
0x23b48…23cdc Dummy {f00=0x0076, 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*
0x23cdc…23e70 Dummy {f00=0x0076, 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
0x23e70…24004 Dummy {f00=0x0076, 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
0x24004…24198 Dummy {f00=0x0076, 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
0x24198…2432c Dummy {f00=0x0076, 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
0x2432c…244c0 Dummy {f00=0x0076, 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
0x244c0…24654 (0, 46) Dummy {f00=0x0094, 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
0x24654…247e8 Dummy {f00=0x0094, 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
0x247e8…2497c Dummy {f00=0x0094, 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,
0x2497c…24b10 Dummy {f00=0x0094, 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
0x24b10…24ca4 Dummy {f00=0x0094, 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
0x24ca4…24e38 Dummy {f00=0x0094, 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
0x24e38…24fcc Dummy {f00=0x0094, 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
0x24fcc…25160 Dummy {f00=0x0094, 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
0x25160…252f4 (0, 47) Dummy {f00=0x00c3, 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
0x252f4…25488 Dummy {f00=0x00c3, 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
0x25488…2561c Dummy {f00=0x00c3, 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
0x2561c…257b0 Dummy {f00=0x00c3, 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
0x257b0…25944 Dummy {f00=0x00c3, f01=0x0190, f02=» IHTWN IHTCN , ( IHSOP N CHLT1 ^ IHFDN n CHRT1 ~ , ( CHRT2 CHRT3 CHRT4 IHCC1 IHCC2
0x25944…25ad8 Dummy {f00=0x00c3, f01=0x018e, f02=» $ & ~ IHLPN IHCRN . IHDU1 > , ( A ( * N IHDU2 ~ IHMTN , ( Q , . 0 , ( a IHINPTI
0x25ad8…25c6c Dummy {f00=0x00c3, f01=0x0190, f02=» SCTEFA SCTPLD SCTANO , SCTADA @ SCTPAGL T , ( @ h SCTSEG SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC
0x25c6c…25e00 Dummy {f00=0x00c3, f01=0x414e, f02=»T SCTCDT bBUG SCTBUG~ . , ( 6 B SCTDMT r SCTDMI SCTDML SCTDMC SCTBLK SCTDCT
0x25e00…25f94 (0, 48) Opaque[0x194]
0x25f94…26128 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1808, f03=0x0000}
0x25f94…26128 IdxSect {
0x25f94…26128 f00 = 0x00c0 // 0x25f94 @0x0
0x25f94…26128 f01 = 0x000a // 0x25f96 @0x2
0x25f94…26128 gno = [ // 0x25f98 @0x4
0x25f94…26128 [0x00]: C0x00c0.0x1.0
0x25f94…26128 [0x01]: C0x00c0.0x2.0
0x25f94…26128 [0x02]: C0x0106.0x2.0
0x25f94…26128 [0x03]: C0x010f.0x0.0
0x25f94…26128 [0x04]: C0x010f.0x1.0
0x25f94…26128 ]
0x25f94…26128 }
0x26128…262bc Dummy {f00=0x00c0, 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*
0x262bc…26450 Dummy {f00=0x00c0, 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*
0x26450…265e4 Dummy {f00=0x00c0, 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*
0x265e4…26778 Dummy {f00=0x00c0, 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
0x26778…2690c Dummy {f00=0x00c0, 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
0x2690c…26aa0 Dummy {f00=0x00c0, 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
0x26aa0…26c34 (0, 49) Dummy {f00=0x00c0, 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****************************
0x26c34…26dc8 Dummy {f00=0x00c0, 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
0x26dc8…26f5c Dummy {f00=0x00c0, f01=0x018e, f02=» PDSKPAG EQU 1 * 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
0x26f5c…270f0 Dummy {f00=0x00c0, 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*
0x270f0…27284 Dummy {f00=0x00c0, 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
0x27284…27418 Dummy {f00=0x00c0, 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
0x27418…275ac Dummy {f00=0x00c0, 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
0x275ac…27740 Dummy {f00=0x00c0, 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
0x27740…278d4 (0, 50) Dummy {f00=0x0106, 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
0x278d4…27a68 Dummy {f00=0x0106, 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
0x27a68…27bfc Dummy {f00=0x0106, 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
0x27bfc…27d90 Dummy {f00=0x0106, 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
0x27d90…27f24 Dummy {f00=0x0106, 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
0x27f24…280b8 Dummy {f00=0x0106, 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
0x280b8…2824c Dummy {f00=0x0106, 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
0x2824c…283e0 Dummy {f00=0x0106, 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
0x283e0…28574 (0, 51) Dummy {f00=0x010f, 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 *
0x28574…28708 Dummy {f00=0x010f, 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
0x28708…2889c Dummy {f00=0x010f, 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
0x2889c…28a30 Dummy {f00=0x010f, 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,-
0x28a30…28bc4 Dummy {f00=0x010f, 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
0x28bc4…28d58 Dummy {f00=0x010f, 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
0x28d58…28eec Dummy {f00=0x010f, 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
0x28eec…29080 Dummy {f00=0x010f, 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*
0x29080…29214 (0, 52) Dummy {f00=0x010f, 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*
0x29214…293a8 Dummy {f00=0x010f, 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*
0x293a8…2953c Dummy {f00=0x010f, 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
0x2953c…296d0 Dummy {f00=0x010f, 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
0x296d0…29864 Dummy {f00=0x010f, 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
0x29864…299f8 Dummy {f00=0x010f, 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
0x299f8…29b8c Dummy {f00=0x010f, f01=0x2008, f02=» ,
0x29b8c…29d20 Dummy {f00=0x010f, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x29d20…29eb4 (0, 53) Opaque[0x194]
0x29eb4…2a048 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1528, f03=0x0000}
0x29eb4…2a048 IdxSect {
0x29eb4…2a048 f00 = 0x00a9 // 0x29eb4 @0x0
0x29eb4…2a048 f01 = 0x0006 // 0x29eb6 @0x2
0x29eb4…2a048 gno = [ // 0x29eb8 @0x4
0x29eb4…2a048 [0x00]: C0x00a9.0x1.0
0x29eb4…2a048 [0x01]: C0x00fb.0x1.0
0x29eb4…2a048 [0x02]: C0x0103.0x0.0
0x29eb4…2a048 ]
0x29eb4…2a048 }
0x2a048…2a1dc Dummy {f00=0x00a9, 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*
0x2a1dc…2a370 Dummy {f00=0x00a9, 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
0x2a370…2a504 Dummy {f00=0x00a9, 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*
0x2a504…2a698 Dummy {f00=0x00a9, 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
0x2a698…2a82c Dummy {f00=0x00a9, 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
0x2a82c…2a9c0 Dummy {f00=0x00a9, 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*
0x2a9c0…2ab54 (0, 54) Dummy {f00=0x00fb, 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
0x2ab54…2ace8 Dummy {f00=0x00fb, 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
0x2ace8…2ae7c Dummy {f00=0x00fb, 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
0x2ae7c…2b010 Dummy {f00=0x00fb, 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
0x2b010…2b1a4 Dummy {f00=0x00fb, 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
0x2b1a4…2b338 Dummy {f00=0x00fb, 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)
0x2b338…2b4cc Dummy {f00=0x00fb, 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
0x2b4cc…2b660 Dummy {f00=0x00fb, 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*
0x2b660…2b7f4 (0, 55) Dummy {f00=0x0103, 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*
0x2b7f4…2b988 Dummy {f00=0x0103, 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
0x2b988…2bb1c Dummy {f00=0x0103, 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
0x2bb1c…2bcb0 Dummy {f00=0x0103, 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
0x2bcb0…2be44 Dummy {f00=0x0103, 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?
0x2be44…2bfd8 Dummy {f00=0x0103, 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?
0x2bfd8…2c16c Dummy {f00=0x0103, 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
0x2c16c…2c300 Dummy {f00=0x0103, f01=0x0000, f02=»
0x2c300…2c494 (0, 56) Opaque[0x194]
0x2c494…2c628 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12d8, f03=0x0000}
0x2c494…2c628 IdxSect {
0x2c494…2c628 f00 = 0x0096 // 0x2c494 @0x0
0x2c494…2c628 f01 = 0x000c // 0x2c496 @0x2
0x2c494…2c628 gno = [ // 0x2c498 @0x4
0x2c494…2c628 [0x00]: C0x0096.0x3.0
0x2c494…2c628 [0x01]: C0x0097.0x1.0
0x2c494…2c628 [0x02]: C0x0097.0x2.0
0x2c494…2c628 [0x03]: C0x0097.0x3.0
0x2c494…2c628 [0x04]: C0x00c5.0x1.0
0x2c494…2c628 [0x05]: C0x00c5.0x3.0
0x2c494…2c628 ]
0x2c494…2c628 }
0x2c628…2c7bc Dummy {f00=0x0096, 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*
0x2c7bc…2c950 Dummy {f00=0x0096, 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*
0x2c950…2cae4 Dummy {f00=0x0096, 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
0x2cae4…2cc78 Dummy {f00=0x0096, 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
0x2cc78…2ce0c Dummy {f00=0x0096, 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
0x2ce0c…2cfa0 Dummy {f00=0x0096, 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
0x2cfa0…2d134 (0, 57) Dummy {f00=0x0097, 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
0x2d134…2d2c8 Dummy {f00=0x0097, 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*
0x2d2c8…2d45c Dummy {f00=0x0097, 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
0x2d45c…2d5f0 Dummy {f00=0x0097, 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
0x2d5f0…2d784 Dummy {f00=0x0097, 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
0x2d784…2d918 Dummy {f00=0x0097, 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
0x2d918…2daac Dummy {f00=0x0097, 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*
0x2daac…2dc40 Dummy {f00=0x0097, 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
0x2dc40…2ddd4 (0, 58) Dummy {f00=0x0097, 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*
0x2ddd4…2df68 Dummy {f00=0x0097, 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*
0x2df68…2e0fc Dummy {f00=0x0097, 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
0x2e0fc…2e290 Dummy {f00=0x0097, 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
0x2e290…2e424 Dummy {f00=0x0097, 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
0x2e424…2e5b8 Dummy {f00=0x0097, 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*
0x2e5b8…2e74c Dummy {f00=0x0097, 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
0x2e74c…2e8e0 Dummy {f00=0x0097, 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
0x2e8e0…2ea74 (0, 59) Dummy {f00=0x0097, 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
0x2ea74…2ec08 Dummy {f00=0x0097, 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
0x2ec08…2ed9c Dummy {f00=0x0097, 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*
0x2ed9c…2ef30 Dummy {f00=0x0097, 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
0x2ef30…2f0c4 Dummy {f00=0x0097, 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*
0x2f0c4…2f258 Dummy {f00=0x0097, 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
0x2f258…2f3ec Dummy {f00=0x0097, 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
0x2f3ec…2f580 Dummy {f00=0x0097, 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
0x2f580…2f714 (0, 60) Dummy {f00=0x00c5, 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
0x2f714…2f8a8 Dummy {f00=0x00c5, 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
0x2f8a8…2fa3c Dummy {f00=0x00c5, 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
0x2fa3c…2fbd0 Dummy {f00=0x00c5, 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* !
0x2fbd0…2fd64 Dummy {f00=0x00c5, 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
0x2fd64…2fef8 Dummy {f00=0x00c5, 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 #
0x2fef8…3008c Dummy {f00=0x00c5, 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
0x3008c…30220 Dummy {f00=0x00c5, 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
0x30220…303b4 (0, 61) Dummy {f00=0x00c5, 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
0x303b4…30548 Dummy {f00=0x00c5, 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
0x30548…306dc Dummy {f00=0x00c5, 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*
0x306dc…30870 Dummy {f00=0x00c5, 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
0x30870…30a04 Dummy {f00=0x00c5, 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* *
0x30a04…30b98 Dummy {f00=0x00c5, 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* *
0x30b98…30d2c Dummy {f00=0x00c5, 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. "
0x30d2c…30ec0 Dummy {f00=0x00c5, f01=0x0190, f02=» UDEN B ]R: SLUTD TO ~ * & TAL:LINNR: BUDG.BELBUDGET]RBUD * & ) GETBEL BUDGET]RBUDGETTAL PROJ J * & G EKT NR REGKONTONR REGKONTONR: x * & e OMPLACERINGER PRISREG.KODE: DE * & T.KODE/LBNR: PLUS REGKONTONR B * &
0x30ec0…31054 (0, 62) Opaque[0x194]
0x31054…311e8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x31054…311e8 IdxSect {
0x31054…311e8 f00 = 0x0098 // 0x31054 @0x0
0x31054…311e8 f01 = 0x0004 // 0x31056 @0x2
0x31054…311e8 gno = [ // 0x31058 @0x4
0x31054…311e8 [0x00]: C0x0098.0x0.0
0x31054…311e8 [0x01]: C0x0098.0x1.0
0x31054…311e8 ]
0x31054…311e8 }
0x311e8…3137c Dummy {f00=0x0098, 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
0x3137c…31510 Dummy {f00=0x0098, 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
0x31510…316a4 Dummy {f00=0x0098, 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
0x316a4…31838 Dummy {f00=0x0098, 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 *
0x31838…319cc Dummy {f00=0x0098, 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
0x319cc…31b60 Dummy {f00=0x0098, 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
0x31b60…31cf4 (0, 63) Dummy {f00=0x0098, 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
0x31cf4…31e88 Dummy {f00=0x0098, 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,
0x31e88…3201c Dummy {f00=0x0098, 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
0x3201c…321b0 Dummy {f00=0x0098, 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
0x321b0…32344 Dummy {f00=0x0098, 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
0x32344…324d8 Dummy {f00=0x0098, 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
0x324d8…3266c Dummy {f00=0x0098, 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*
0x3266c…32800 Dummy {f00=0x0098, 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
0x32800…32994 (0, 64) Opaque[0x194]
0x32994…32b28 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1338, f03=0x0000}
0x32994…32b28 IdxSect {
0x32994…32b28 f00 = 0x0099 // 0x32994 @0x0
0x32994…32b28 f01 = 0x0026 // 0x32996 @0x2
0x32994…32b28 gno = [ // 0x32998 @0x4
0x32994…32b28 [0x00]: C0x0099.0x3.0
0x32994…32b28 [0x01]: C0x009a.0x1.0
0x32994…32b28 [0x02]: C0x009a.0x2.0
0x32994…32b28 [0x03]: C0x009a.0x3.0
0x32994…32b28 [0x04]: C0x009b.0x0.0
0x32994…32b28 [0x05]: C0x00c6.0x2.0
0x32994…32b28 [0x06]: C0x00c7.0x2.0
0x32994…32b28 [0x07]: C0x00c9.0x2.0
0x32994…32b28 [0x08]: C0x00c9.0x3.0
0x32994…32b28 [0x09]: C0x00ca.0x1.0
0x32994…32b28 [0x0a]: C0x00ca.0x2.0
0x32994…32b28 [0x0b]: C0x00ca.0x3.0
0x32994…32b28 [0x0c]: C0x00cb.0x0.0
0x32994…32b28 [0x0d]: C0x00cb.0x1.0
0x32994…32b28 [0x0e]: C0x00cb.0x2.0
0x32994…32b28 [0x0f]: C0x00ce.0x1.0
0x32994…32b28 [0x10]: C0x00cf.0x0.0
0x32994…32b28 [0x11]: C0x00cf.0x1.0
0x32994…32b28 [0x12]: C0x00cf.0x2.0
0x32994…32b28 ]
0x32994…32b28 }
0x32b28…32cbc Dummy {f00=0x0099, 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
0x32cbc…32e50 Dummy {f00=0x0099, 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*
0x32e50…32fe4 Dummy {f00=0x0099, 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*
0x32fe4…33178 Dummy {f00=0x0099, 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
0x33178…3330c Dummy {f00=0x0099, 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
0x3330c…334a0 Dummy {f00=0x0099, 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
0x334a0…33634 (0, 65) Dummy {f00=0x009a, 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
0x33634…337c8 Dummy {f00=0x009a, 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
0x337c8…3395c Dummy {f00=0x009a, 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
0x3395c…33af0 Dummy {f00=0x009a, 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
0x33af0…33c84 Dummy {f00=0x009a, 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
0x33c84…33e18 Dummy {f00=0x009a, 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
0x33e18…33fac Dummy {f00=0x009a, 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 X:A P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY
0x33fac…34140 Dummy {f00=0x009a, f01=0x0190, f02=»***************** P* FORM STATEMENTS * P******************* 6 P* R P* PBYTES FORM 8,8 f P* | P EJECT TOSSIO P* P* P********************* P* DWT DISPLACEMENTS * P*********************
0x34140…342d4 (0, 66) Dummy {f00=0x009a, f01=0x0190, f02=»TBC EQU /03 BYTE COUNTER PDWTECB EQU /04 ECB ADDRESS " PDWTOR EQU /06 INDEX AND ORDER B ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER h ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICAT
0x342d4…34468 Dummy {f00=0x009a, f01=0x0190, f02=»FT MMUPAG=0 4 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEFINED PART P XIF L P* X P IFT MMUPAG=1 b 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART x P XIF P* P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFI
0x34468…345fc Dummy {f00=0x009a, f01=0x0190, f02=»U DWTDRD+/02 SAVE AREA A2 & PDWTA3 EQU DWTDRD+/02 SAVE AREA A3 " & PDWTA4 EQU DWTDRD+/04 SAVE AREA A4 L & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 v . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT & PDWTT
0x345fc…34790 Dummy {f00=0x009a, f01=0x018e, f02=»QU DWTDRD+/1C DISC VOLUME NAME P* & P EJECT TOSSIO 0 P* H P* R * P************************************** * P* DRIVER ADDRESS BLOCK DISPLACEMENTS * * P************************************** P* P* & PKEYLEN EQU -6
0x34790…34924 Dummy {f00=0x009a, f01=0x018e, f02=» n PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS * $ PPOLADR EQU 4 BUFFER POOL ADDRESS P " PRECADR EQU 6 RECOVERY ADDRESS x PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE INDEX VALUE
0x34924…34ab8 Dummy {f00=0x009a, f01=0x0190, f02=» H F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* R $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6 KEYBO
0x34ab8…34c4c Dummy {f00=0x009a, f01=0x0190, f02=» z P* ECB DISPLACEMENTS * P********************* & P* D P* N PECBFC EQU /01 FILE CODE X PECBBA EQU /02 BUFFER ADDRESS x " PECBRL EQU /04 REQUESTED LENGTH " PECBEL EQU /06 EFFECTIVE LENGTH PECBRC EQU /08 RETURN CODE
0x34c4c…34de0 Dummy {f00=0x009a, f01=0x0190, f02=» MMUPAG=1 P* P* P********** & P* TIOTAB * 8 P********** J P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TIO f P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPU
0x34de0…34f74 (0, 67) Dummy {f00=0x009a, 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*
0x34f74…35108 Dummy {f00=0x009a, f01=0x0190, f02=»DRESSES TO ROUTINES ENTERED FROM TENDIO | P* 0 2 PTENTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE : . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT p * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT $ P DATA TENKBI KEYBOARD/CT
0x35108…3529c Dummy {f00=0x009a, f01=0x0190, f02=»TPUT | & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P DATA TENITO INTERTASK COMMUNICATION, OUTPUT 6 P XIF j P* v P EJECT TOSSIO P* P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE
0x3529c…35430 Dummy {f00=0x009a, f01=0x0190, f02=»0,/1400,/1800,/1C00 " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 B P XIF h P* t P EJECT TOSSIO ~ P* P* P IFT ATTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P*
0x35430…355c4 Dummy {f00=0x009a, f01=0x0190, f02=»: A4 = BLOCK ADDRESS P* A5 = TTAB ADDRESS P* A6 = DWT ADDRESS @ " P* A1-A3 ARE DESTROYED b P* PTIMOUT LDR A6,A1 & P LDR* A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 GET TTAB ADDRESS P* P IFT M
0x355c4…35758 Dummy {f00=0x009a, 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
0x35758…358ec Dummy {f00=0x009a, 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
0x358ec…35a80 Dummy {f00=0x009a, 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*
0x35a80…35c14 (0, 68) Dummy {f00=0x009b, 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(
0x35c14…35da8 Dummy {f00=0x009b, 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
0x35da8…35f3c Dummy {f00=0x009b, 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
0x35f3c…360d0 Dummy {f00=0x009b, 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
0x360d0…36264 Dummy {f00=0x009b, 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
0x36264…363f8 Dummy {f00=0x009b, 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 #
0x363f8…3658c Dummy {f00=0x009b, 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
0x3658c…36720 Dummy {f00=0x009b, 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
0x36720…368b4 (0, 69) Dummy {f00=0x00c6, f01=0x018e, f02=» DEVICE ALREADY ATTACHED? % P LDR A13,A13 & " P RF(NN) ATT:50 DEVICE BUSY? & 6 P* & Z P* ATTACH REQUESTING TASK & d 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 N
0x368b4…36a48 Dummy {f00=0x00c6, f01=0x0190, f02=» P ADK A4,0 SET CR ' P RF(Z) ATTRTN NO! ' P* ' 6 P EJECT TOSSIO ' @ P* ' X & P* FREE BLOCK AND TIMER IN ATT:CH ' b 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 '
0x36a48…36bdc Dummy {f00=0x00c6, f01=0x018e, f02=»ATT:50 CF A15,FNDBLK ' P ADK A4,0 SET CR ( $ P RF(NZ) ATT:70 IS TIMER ACTIVE? ( 6 P* ( ^ P* SET TIMER ( h P* ( P IFT MMUPAG=0 ( P LD A1,ECBCW,A8 TIME ( P XIF ( P* ( P EJECT TOSSIO ( P* ( P* ( P IFT ATTDE
0x36bdc…36d70 Dummy {f00=0x00c6, f01=0x0190, f02=» ( r P RF(Z) ATT:80 END REQUEST? ) P* ) * PATT:60 ST A1,ATTIM ) 4 P LDR A1,A5 TTAB ADDRESS ) N P LD A3,ATT:CH ANCHOR ) n 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 ADD
0x36d70…36f04 Dummy {f00=0x00c6, 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
0x36f04…37098 Dummy {f00=0x00c6, 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
0x37098…3722c Dummy {f00=0x00c6, 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 ,
0x3722c…373c0 Dummy {f00=0x00c6, 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
0x373c0…37554 (0, 70) Dummy {f00=0x00c7, f01=0x0190, f02=»R QUEUEING DEVICE REQUESTS. - x > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON . $ @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING . f 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT, AND WHEN . B P* ATTACHED, WHETHER THE DEVICE IS
0x37554…376e8 Dummy {f00=0x00c7, f01=0x0190, f02=»CE FIRST . P* / ( PTIOQ05 ADK A6,DWTTQ GET QUEUE ANCHOR / P LDR A2,A6 / F P LDR* A6,A6 / X $ P RF TIOQ40 INSERT FIRST IN QUEUE / l P* / & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE / P* / ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR / P LD A1,TTB
0x376e8…3787c Dummy {f00=0x00c7, f01=0x0190, f02=» A2,A6 / $ P LDR* A6,A6 FOLLOW QUEUE TO END 0 P RF(Z) TIOQ40 END FOUND? 0 6 & P CC A1,TTB:ST+1,A6 COMPARE LEVELS 0 V P RB(NL) TIOQ30 TRY NEXT? 0 P* 0 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 0 P* 0 PTIOQ40 LDKL A3,-4 0 P STR A
0x3787c…37a10 Dummy {f00=0x00c7, f01=0x0190, f02=» 0 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM 1 P* 1 @ PTIOQ60 EQU * 1 J P ABL TDISP GO TO DISPATCHER 1 ^ P* 1 P EJECT TOSSIO 1 P* 1 P* 1 P******* 1 P* TIO * 1 P******* 1 P* 1 P* 1 . P* THIS MODUL
0x37a10…37ba4 Dummy {f00=0x00c7, f01=0x0190, f02=»EUED 1 d 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 2 P* 2 B 2 P* WHEN RUNNING WITH MMU OPTION SPECIAL DEVICE 2 L * P* DEPENDENT SUBROUTINES ARE PERFORMED. 2 P* 2 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 2 & P* WITH THE FOLLOWING
0x37ba4…37d38 Dummy {f00=0x00c7, f01=0x0190, f02=» NOT ZERO, I/O AND ACTIVATION 2 P* 3 ( P* A5 = TTAB ADDRESS 3 2 P* 3 N P* A7 = ORDER CODE 3 X P* 3 r P* A8 = ECB ADDRESS 3 | P* 3 P EJECT TOSSIO 3 P* 3 P* 3 < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 3
0x37d38…37ecc Dummy {f00=0x00c7, f01=0x0190, f02=»* 3 P* A7 = ORDER CODE 4 P* 4 $ P* A8 = ECB ADDRESS 4 . P* 4 J , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK 4 T P* 4 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 4 . P* = 1, " " " " USER MODE 4 P* 4 P* 4 , P
0x37ecc…38060 Dummy {f00=0x00c7, f01=0x0190, f02=» READY AND ECHO FIELDS 4 P* -DWTTAB TTAB ADDRESS 5 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 5 > . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 5 h P* 5 P* 5 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 5 P* 5 P* -BIT 0 IN THE FIRST WORD 5
0x38060…381f4 (0, 71) Dummy {f00=0x00c9, f01=0x0190, f02=»ECK IF REQUEST IS BUSY 5 x P* 6 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 6 ( P LDKL A3,/8000 6 T P ADK A6,0 SET CR 6 j $ 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
0x381f4…38388 Dummy {f00=0x00c9, f01=0x0190, f02=»TTACH ATTACH ORDER? 6 P SUK A7,1 7 P RB(Z) DETACH DETACH ORDER? 7 . " P ADK A7,/BC RESTORE ORDER CODE 7 R P XIF 7 x 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) TIO02
0x38388…3851c Dummy {f00=0x00c9, f01=0x0190, f02=» TOSSIO 7 P* 8 & P* CHECK IF DEVICE IS ATTACHED/BUSY 8 P* 8 F P IFT ATTDET=1 8 P P TM A10,A13 8 f P RF(Z) TIO020 NOT ATTACHED? 8 z P CW A5,DWTTAB,A6 8 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK? 8 P TM A3,A13 8 $ P RF(NZ) TIO030 DEV
0x3851c…386b0 Dummy {f00=0x00c9, f01=0x0190, f02=»VICE BUSY? 8 P* 9 P EJECT TOSSIO 9 P* 9 4 H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 9 > 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
0x386b0…38844 Dummy {f00=0x00c9, f01=0x0190, f02=»70 9 P* : . PTIO040 LD A2,DWTECH,A6 GET ECHO DEVICE DWT : " P RF(Z) TIO070 NO ECHO DEVICE? : F & P LD A9,DEVIND,A12 GET DEVICE INDEX : l $ P CWK A9,KB:DIX CHECK IF KEYBOARD : 4 P RF(NE) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD : ( P LD A14,DWTST,A2 G
0x38844…389d8 Dummy {f00=0x00c9, f01=0x018e, f02=»TAB,A2 : 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK? ; P TM A3,A14 ; H ( P RF(NZ) TIO060 ECHO DEVICE NOT BUSY? ; Z & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE ; P XIF ; P* ; P EJECT TOSSIO ; P* ; P* ; PTIO050 TM A3,A14 ; $
0x389d8…38b6c Dummy {f00=0x00c9, f01=0x0190, f02=» ; X P* < P* UPDATE ECB AND DWT FIELDS < P* < 6 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS IN DWT STATUS < @ 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
0x38b6c…38d00 Dummy {f00=0x00c9, f01=0x0190, f02=» CM ECBEL,A8 RESET EFFECTIVE LENGTH < $ P CM ECBRC,A8 RESET RETURN CODE = , P RF TIO110 = T P* = f P EJECT TOSSIO = p P* = P* MOVE USER ECB TO DWT ECB = P* = PTIO100 EQU * = P LDKL A2,/4FFF = * P ELR A3,A8 LOAD FIRST WORD OF US
0x38d00…38e94 (0, 72) Dummy {f00=0x00c9, f01=0x0190, f02=»A2,DWTECB,A6 SET ACTUAL ECB ADDRESS = P STR A3,A2 > , * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS > > P LDR A9,A8 > l P LDK A3,0 > ~ * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE > P* > P LDR A10,A1 SAVE PARAM
0x38e94…39028 Dummy {f00=0x00c9, f01=0x0190, f02=» MVUS A3 MOVE PART OF USER ECB TO DWT ECB > " P LDR A1,A10 RESTORE PARAMETER ? 2 P XIF ? X P* ? d P IFT MMUPAG=0 ? n 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 RESE
0x39028…391bc Dummy {f00=0x00c9, f01=0x0190, f02=» ANK A7,/3F ? ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT @ P CWK A12,TIODM @ @ * P RF(NE) TIO120 JUMP IF NOT DM REQUEST @ V 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 ADDRE
0x391bc…39350 Dummy {f00=0x00c9, f01=0x0190, f02=»* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) @ P* A 2 P LDR A2,A4 CHECK PARAMETER A < & P RF(NZ) TIO210 I/O AND ACTIVATION? A ^ 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 TIO2
0x39350…394e4 Dummy {f00=0x00c9, f01=0x0190, f02=»HING A f P* B 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* B R P EJECT TOSSIO B P* B t P* B ~ 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
0x394e4…39678 Dummy {f00=0x00c9, f01=0x0190, f02=»K ON ORDER CODE B P* C P LDR A4,A7 GET ORDER CODE C " 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE C D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER C x P* C PTIO240 EQU * C P ENB C < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROU
0x39678…3980c Dummy {f00=0x00c9, f01=0x0190, f02=» ADR A5,A6 C P INH D & P ABR* A12 GO TO DRIVER ACTIVATION D P* D H P EJECT TOSSIO D R P* D j P* D t P IFT MMUPAG=1 D ~ P* D P* R D : W R D P* D @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING D @ P* THE AP
0x3980c…399a0 Dummy {f00=0x00c9, f01=0x0190, f02=»AD/WRITE REQUEST, CONDITION REGISTER ON STACK IS D * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. E 8 P* E f P* INPUT: A3 = DEVICE INDEX E p P* A6 = DWT ADDRESS E P* E : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING E . P*
0x399a0…39b34 (0, 73) Dummy {f00=0x00ca, f01=0x0190, f02=»DWTOR,A6 GET ORDER CODE FROM DWT E P ANK A4,/3F F ( P* F < * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER F F $ P LC A4,ORDTAB,A4 GET ORDER INDEX F t 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/
0x39b34…39cc8 Dummy {f00=0x00ca, f01=0x0190, f02=»* ORDTAB * F P********** G P* G $ 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: G . P* G d P* =0: NO READ/WRITE ORDER G n P* =1: READ ORDER G P* =TINDEX+1: WRITE ORDER G P* G PORDTAB EQU * ORDER CONSTANTS G P BYTES 0,1 /00
0x39cc8…39e5c Dummy {f00=0x00ca, f01=0x0190, f02=»/08, /09 G ~ P BYTES 1,TINDEX+1 /0A, /0B H P BYTES 0,0 /0C, /0D H 2 P BYTES 0,0 /0E, /0F H N P BYTES 0,1 /10, /11 H j 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 /
0x39e5c…39ff0 Dummy {f00=0x00ca, f01=0x018e, f02=» P BYTES 0,0 /24, /25 I P BYTES 0,0 /26, /27 I P BYTES 0,0 /28, /29 I < P BYTES 0,0 /2A, /2B I X P BYTES 0,1 /2C, /2D I t 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 B
0x39ff0…3a184 Dummy {f00=0x00ca, f01=0x0190, f02=» P* J P EJECT TOSSIO J P* J & P* T I O : D M J 0 P* J F 4 P* THIS MODULE IS CALLED BY 'TIO' WHEN A REQUEST J P * P* FOR DATA MANAGEMENT HAS BEEN ISSUED. J P* J & P* INPUT: A8 = FDB MMU ECB ADDRESS J $ P* A9 = USER ECB ADDRES
0x3a184…3a318 Dummy {f00=0x00ca, f01=0x0190, f02=»ER BUFFER ADDRESS J z P ST A2,ECBBA,A8 K , P EL A2,ECBCW2,A9 GET SECOND CONTROL WORD K 2 P ST A2,ECBCW2,A8 K b P* K z PA15RTN EQU * K 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 CAL
0x3a318…3a4ac Dummy {f00=0x00ca, f01=0x0190, f02=» AND DWT BUFFER ADDRESSES SO THAT BOTH ARE K | < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. L 2 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT L r , P* COMPLETION OF THE REQUEST IS 'TENPCI'. L 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'
0x3a4ac…3a640 Dummy {f00=0x00ca, f01=0x0190, f02=»K L j P* M P* OUTPUT: A1 IS DESTROYED M P* M 6 * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT M @ ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH M n 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
0x3a640…3a7d4 (0, 74) Dummy {f00=0x00ca, f01=0x0190, f02=»IPI10 USER BUFFER ADDRESS EVEN? M P ORS A1,ECBBA,A8 N ( P RTN A15 N @ P* N P 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN N Z 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
0x3a7d4…3a968 Dummy {f00=0x00ca, f01=0x0190, f02=»XI ASSEMBLES THE FULL 18 BIT BUFFER ADDRESS WHICH IS N , P* TRANSFERRED TO THE MUX BY THE DRIVER. O < 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT O l , P* COMPLETION OF THE REQUEST IS 'TENMXI'. O 6 P* NOTICE THAT MODULE 'TIOMXO' IS EQUAL TO TIOMXI. O
0x3a968…3aafc Dummy {f00=0x00ca, f01=0x0190, f02=»TPUT: A1-A2 ARE DESTROYED O B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB P " P* P h PTIOMXI EQU * MUX, INPUT P r , 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
0x3aafc…3ac90 Dummy {f00=0x00ca, f01=0x0190, f02=» SRL A2,2 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 ^ P SRC A2,4 Q r P ORR A1,A2 Q 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS Q P RTN A15 Q P* Q P EJECT TOSSIO Q P* Q P
0x3ac90…3ae24 Dummy {f00=0x00ca, f01=0x018e, f02=»D/CTW. TIOKBI WILL SET BUFFER ADDRESSES Q n 6 P* AND MOVE KEYTABLE (IF ANY) BY USING ENTRY TIPI05 R 0 0 P* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. R j 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT R , P* COMPLETION OF THE REQUEST IS 'TENKBI'. R P*
0x3ae24…3afb8 Dummy {f00=0x00ca, f01=0x0190, f02=» , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK S P* S 4 " P* OUTPUT: A1-A4 ARE DESTROYED S > P* S d PTIOKBI EQU * KEYBOARD/CTW S n ( 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. LEN
0x3afb8…3b14c Dummy {f00=0x00ca, f01=0x0190, f02=»IKB20 NO KEYTABLE IF BASIC READ S . P LD A4,ECBCW,A8 GET USER KEYTABLE ADDRESS T ( P RF(Z) TIKB20 NO KEYTABLE? T Z P* T | P EJECT TOSSIO T 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
0x3b14c…3b2e0 Dummy {f00=0x00ca, f01=0x018e, f02=»EVEN? T n , P ECR A3,A3 NO, PUT LENGTH IN RIGHT BYTE U P* U > * PTIKB10 ANK A3,/FF SKIP LEFT CHARACTER U H P ADK A3,1 U v 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
0x3b2e0…3b474 (0, 75) Dummy {f00=0x00ca, 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
0x3b474…3b608 Dummy {f00=0x00ca, 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
0x3b608…3b79c Dummy {f00=0x00ca, 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
0x3b79c…3b930 Dummy {f00=0x00ca, 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
0x3b930…3bac4 Dummy {f00=0x00ca, 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
0x3bac4…3bc58 Dummy {f00=0x00ca, 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
0x3bc58…3bdec Dummy {f00=0x00ca, 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
0x3bdec…3bf80 Dummy {f00=0x00ca, 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
0x3bf80…3c114 (0, 76) Dummy {f00=0x00cb, f01=0x0190, f02=»: D M ] P* ^ 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ^ . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ^ R P* ^ P* INPUT: A6 = FDB ADDRESS ^ $ P* A8 = USER ECB ADDRESS ^ P* ^ " P* OUTPUT: A1-A2 ARE DESTROYED ^ P
0x3c114…3c2a8 Dummy {f00=0x00cb, f01=0x0190, f02=»A2,ECBCW2+1,A1 ^ P ES A2,ECBCW2,A8 _ P RTN A15 _ . P* _ > P EJECT TOSSIO _ H P* _ ` P* T E N P C I _ j P* _ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN _ @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED CH
0x3c2a8…3c43c Dummy {f00=0x00cb, f01=0x0190, f02=»Y 'TIO' AT _ ` & P* ISSUING THE REQUEST IS 'TIOPCI'. ` D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. ` < 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. ` P* ` P* INPUT: A6 = DWT ADDRESS ` $ P* A8 = USER ECB ADDR
0x3c43c…3c5d0 Dummy {f00=0x00cb, f01=0x0190, f02=» GET DWT ECB ADDRESS ` ( P LD A4,ECBEL,A2 GET EFFECTIVE LENGTH a " P RF(NP) TEPI30 NO MOVE IF ZERO a H * P LD A1,ECBBA,A2 GET DWT BUFFER ADDRESS a n P* a . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' a , P EL A2,ECBBA,A8 GET USER BUFFER ADDRESS a $ P
0x3c5d0…3c764 Dummy {f00=0x00cb, f01=0x0190, f02=»ADDRESS a p , P RF(Z) TEPI60 USER BUFFER ADDRESS EVEN? b P* b @ P EJECT TOSSIO b J P* b b P* b l 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN b v 4 P LDR* A3,A1 GET FIRST CHARACTER FROM DWT BUFFER b P ELR A8,A2 b P* b * PTEPI15 A
0x3c764…3c8f8 Dummy {f00=0x00cb, f01=0x0190, f02=»UFFER b l $ P ADK A1,1 UPDATE BUFFER POINTERS c P ADK A2,1 c 6 P SUK A4,1 c H * P RF(P) TEPI25 MORE CHARACTERS TO MOVE? c Z 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
0x3c8f8…3ca8c Dummy {f00=0x00cb, f01=0x0190, f02=»IS CHAR. ONE BYTE TO THE RIGHT c ~ & P SUK A3,1 POINT TO NEXT CHARACTER d & 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER d P , 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
0x3ca8c…3cc20 Dummy {f00=0x00cb, f01=0x0190, f02=»ENGTH UNEVEN? d v 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER e P* e J PTEPI30 RTN A15 e T P* e j , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN e t ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN e . P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE? e P LDR A
0x3cc20…3cdb4 (0, 77) Dummy {f00=0x00cb, f01=0x0190, f02=»* e PTEPI50 EQU * f 2 P LDR* A8,A1 GET LAST CHARACTER FROM DWT BUFFER f P ELR A3,A2 f T P RB TEPI15 f f P* f x . 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*
0x3cdb4…3cf48 Dummy {f00=0x00cb, f01=0x0190, f02=»ACTER f t * P CWR A3,A1 COMPARE WITH ENDING ADDRESS g , P RB(NE) TEPI70 MORE CHARACTERS TO MOVE? g < . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS g l * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN g P RB TEPI25 g P* g P EJECT TOSSIO g P* g
0x3cf48…3d0dc Dummy {f00=0x00cb, f01=0x0190, f02=»RD, INPUT g x P* h P* T E N I T I h P* h 2 4 PTENITI EQU TENPCI INTERTASK COMMUNICATION, INPUT h < P* h t P* T E N P C O h ~ P* h 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT h P* h P* T E N M X O h P* h " PTENMXO EQU A
0x3d0dc…3d270 Dummy {f00=0x00cb, f01=0x0190, f02=»SIO 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 6 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 TIP
0x3d270…3d404 Dummy {f00=0x00cb, f01=0x0190, f02=»-A4, A8 ARE DESTROYED i P* j 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT j ( ( P LD A8,DWTECB,A6 GET DWT ECB ADDRESS j ( 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 A1
0x3d404…3d598 Dummy {f00=0x00cb, 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 J < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' k " P* IS USED FOR MOVING THE DATA. k P* k P* INPUT: A6 =
0x3d598…3d72c Dummy {f00=0x00cb, f01=0x018e, f02=» 8,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER l " * P TS 2,A15 SAVE MMU REGISTERS ON STACK l J & P LD A5,DWTTAB,A6 GET TTAB ADDRESS l x $ P TL TTB:MT,A5 LOAD MMU REGISTERS l ( P LD A8,DWTMEC,A6 GET DWT ECB ADDRESS l P ENB l ( P CF A1
0x3d72c…3d8c0 Dummy {f00=0x00cb, f01=0x0190, f02=» $ P ADKL A15,32 ADJUST STACKPOINTER m * P MLR 8,A15 RESTORE A1-A8 FROM STACK... m , P RTN A15 ...AND RETURN m Z P XIF m x 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
0x3d8c0…3da54 (0, 78) Dummy {f00=0x00cb, f01=0x0190, f02=» A4 = DRIVER BUFFER ADDRESS m P* A6 = DWT ADDRESS n * P* n L ( P* OUTPUT: NO REGISTERS ARE DESTROYED n V 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
0x3da54…3dbe8 Dummy {f00=0x00cb, f01=0x0190, f02=» TS 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 T P XIF o | P* o P EJECT TOSSIO o P* o & P* CHECK MESSAGE LENGTH AND DECIDE o $ P* IF TTMJOB IS TO BE ACTIVATED. o P*
0x3dbe8…3dd7c Dummy {f00=0x00cb, f01=0x018e, f02=»PU852=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 X 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,
0x3dd7c…3df10 Dummy {f00=0x00cb, f01=0x0190, f02=» p x P XIF q P* q P IFT MMUPAG=0 q P IFT CPU852=0 q 4 P IFT CPU857=1 q J P LDKL A7,256 857 CPU q ` ( P ANK A5,1 CHECK USER BUFFER ADDRESS q | . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN q P ADR A7,A7 A7 := 512 q P XIF q P* q
0x3df10…3e0a4 Dummy {f00=0x00cb, f01=0x0190, f02=»FER ADDRESS q x P LDKL A7,256 r ( P ANK A5,1 CHECK USER BUFFER ADDRESS r ( . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN r T 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
0x3e0a4…3e238 Dummy {f00=0x00cb, f01=0x018e, f02=»IVER r t P IFT CPU852=1 s ( P ABL IHRET8 RESTORE A1-A8 AND RETURN s " P XIF s N P* s Z P IFT MMUPAG=0 s d P IFT CPU852=0 s z * 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 M
0x3e238…3e3cc Dummy {f00=0x00cb, f01=0x0190, f02=» s P* INPUT: A1 = RETURN CODE t P* A3 = ECB ADDRESS t * ( P* A4 = DRIVER BUFFER ADDRESS t L P* A6 = DWT ADDRESS t x P* t & P* OUTPUT: A1-A5, A7 ARE DESTROYED t P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t *
0x3e3cc…3e560 Dummy {f00=0x00cb, f01=0x0190, f02=»RL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH t $ P RF(G) MIN:70 NO, REQUEST ERROR u 2 P* u Z P IFT MMUPAG=0 u d ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u z P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS U
0x3e560…3e6f4 (0, 79) Dummy {f00=0x00ce, f01=0x0190, f02=» u P* v PMIN:10 EQU * v P LDR* A3,A7 MOVE ONE WORD v & P STR A3,A5 v H ( P ADK A7,2 INCREMENT BUFFER POINTERS v Z 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 E
0x3e6f4…3e888 Dummy {f00=0x00ce, f01=0x0190, f02=»3,A7 MOVE ONE CHARACTER v P SCR A3,A5 w ( P ADK A7,1 INCREMENT BUFFER POINTERS w 2 P ADK A5,1 w ^ $ P SUK A2,1 DECREMENT LOOP COUNTER w p 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,ECB
0x3e888…3ea1c Dummy {f00=0x00ce, f01=0x018e, f02=»B ADDRESS w x ( P CF A15,TEN:DC MOVE BUFFER CONTENTS x & P LDR A4,A7 RESTORE BUFFER ADDRESS x > P LDK A1,0 x h P XIF x z 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
0x3ea1c…3ebb0 Dummy {f00=0x00ce, f01=0x0190, f02=» PMIN:50 EQU * y " P LDR A2,A1 SAVE BUFFER ADDRESS y $ P LDR* A1,A2 NEXT BUFFER ADDRESS y > , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y f P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y " P SUK A4,6 REAL BUFFER ADDRESS y " P STR A4,A2 UPDAT
0x3ebb0…3ed44 Dummy {f00=0x00ce, f01=0x0190, f02=»L A1,/8008 REQUEST ERROR/INCORRECT LENGTH y $ P RB MIN:40 RETURN VIA TENDIO ETC z 2 P* z Z P EJECT TOSSIO z d P* z | 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
0x3ed44…3eed8 Dummy {f00=0x00ce, f01=0x018e, f02=»SS z x ( P* A4 = DRIVER BUFFER ADDRESS { P* { 6 * PDCMINT EQU * TTMJOB MOVE BUFFER ENTRY { @ P LDR A6,A3 DWT ADDRESS { n P LD A3,DWTECB,A6 ECB ADDRESS { P* { P IFT MMUPAG=1 { P INH { " P LD A5,DWTTAB,A6 TTAB ADDRESS { $ P TL TT
0x3eed8…3f06c Dummy {f00=0x00ce, f01=0x0190, f02=» P* | ( P CF A15,MINMOV MOVE BUFFER CONTENTS | P ABL MEXIT EXIT TTMJOB | : P* | X P EJECT TOSSIO | b P* | z 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 PERFO
0x3f06c…3f200 Dummy {f00=0x00ce, f01=0x018e, f02=» DRIVER BUFFER ADDRESS | P* A6 = DWT ADDRESS } P* } @ PQMTASK EQU * ACTIVATE TTMJOB } J $ P LDKL A2,DCMINT DISPATCH ADDRESS } n P LDR A3,A6 DWT ADDRESS } " P CF A15,QMJOB ACTIVATE TTMJOB } P LDKL A1,/8000 NOT BUSY BIT } " P ORS A1,DW
0x3f200…3f394 (0, 80) Dummy {f00=0x00cf, f01=0x0190, f02=» } P IFT CPU852=1 ~ PDC:MOT INH ~ 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS ~ 0 P XIF ~ f P* ~ r P EJECT TOSSIO ~ | P* ~ P* ~ P********** ~ P* TENDIO * ~ P********** ~ P* ~ P* ~ . P* THIS MODULE IS CALLE
0x3f394…3f528 Dummy {f00=0x00cf, f01=0x0190, f02=»O START THE TASK ~ z P* P* -IF NORMAL I/O WITH WAIT:- " P* F * P* QTJOB IS CALLED TO QUEUE THE TASK P 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- ~ P* P* A5 = TTAB ADDRESS P* $ P* -IF NORMAL I/O WITH NO WAI
0x3f528…3f6bc Dummy {f00=0x00cf, f01=0x0190, f02=»ASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. P* F P EJECT TOSSIO P P* h P* r 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- | P* P* A1 = RETURN CODE P* P* A6 = DWT ADDRESS P* P*
0x3f6bc…3f850 Dummy {f00=0x00cf, f01=0x018e, f02=» j P* P EJECT TOSSIO P* * P* END I/O ENTRY 4 P* L PTENDIO EQU * V P IFT CPU852=1 j & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P
0x3f850…3f9e4 Dummy {f00=0x00cf, f01=0x018e, f02=» , P LD A5,DWTTQ,A6 GET TERMINAL QUEUE LINK " P RF(Z) TEN110 NO TASK QUEUED? 4 P LD A2,TTB:ID,A5 GET TASK ID Z P ANKL A2,/FF44 ~ P CWK A2,'#D' CHECK TASK ID " P RF(E) TEN100 DM REQUEST NEXT? P LDKL A2,/800 ATTACH BIT P ANR* A2,A4
0x3f9e4…3fb78 Dummy {f00=0x00cf, f01=0x0190, f02=» j P* P EJECT TOSSIO P* * P* 4 PTEN100 EQU * > , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS R P ST A3,DWTTQ,A6 . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST P* P* UPDATE ECB AND DWT P* 4 PTEN110 LD A5
0x3fb78…3fd0c Dummy {f00=0x00cf, f01=0x0190, f02=»WTTDM,A6 GET TTAB ADDRESS 4 P CF A15,REQEND RESET REQUEST BUSY FOR ALL FILES " P* Z PTEN120 LDKL A2,/8000 d , P ORRS A2,A4 INDICATE DEVICE READY IN DWT P LDKL A3,/DBFF ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 $ P LD A3,DWTECB,A6 GET E
0x3fd0c…3fea0 Dummy {f00=0x00cf, f01=0x0190, f02=»RRS A2,A3 SET EVENT COMPLETED IN ECB , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB , P* P IFT MMUPAG=1 f P LD A4,TTB:PW,A5 GET PSW | & P ANK A4,1 GET SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE? P* P* LOAD MMU REGISTERS
0x3fea0…40034 (0, 81) Dummy {f00=0x00cf, f01=0x018e, f02=»LOAD MMU REGISTERS FROM TTAB P* $ P EJECT TOSSIO . P* F P* MOVE DWT ECB TO USER ECB P P* r * P LD A8,DWTUEC,A6 GET USER ECB ADDRESS | P ELR A4,A8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB P ESR A4,A8 P LDR A1,A3
0x40034…401c8 Dummy {f00=0x00cf, f01=0x018e, f02=» ^ P* 8 P LD A3,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK & P LD A3,DEVIND,A3 GET DEVICE INDEX N . P RF(N) TEN160 NO SPECIAL ACTION REQUIRED? x " P RF(Z) TEN140 DATA MANAGEMENT? P* " P* PERFORM CHECK ON ORDER CODE P* ,
0x401c8…4035c Dummy {f00=0x00cf, f01=0x0190, f02=» < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* H P EJECT TOSSIO R P* j P* RESTORE MMU REGISTERS t P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK
0x4035c…404f0 Dummy {f00=0x00cf, f01=0x0190, f02=» WAIT OR ACTIVATION n P* PTEN200 EQU * & 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR : * P RF(Z) TEN250 NOT WAIT OR ACTIVATION? n P SUK A4,1 P RF(Z) TEN240 WAIT? P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) T
0x404f0…40684 Dummy {f00=0x00cf, f01=0x0190, f02=»BIT j P RF(Z) TEN210 SYSTEM MODE? . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS . P XIF ` P* l PTEN210 EQU * v 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 $
0x40684…40818 Dummy {f00=0x00cf, f01=0x0190, f02=»TEN220 P* P EJECT TOSSIO P* 0 P* : PTEN230 EQU * D 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR X . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS P RF TEN250 P* PTEN240 EQU * 2 P CF A15,QTJOB WAIT
0x40818…409ac Dummy {f00=0x00cf, f01=0x40dc, f02=» IFT CPU852=1 P ABL IHRET8 P XIF * P* 6 P IFT CPU852=0 @ * P MLR 8,A15 RESTORE A1-A8 FROM STACK... V P RTN A15 ...AND RETURN P XIF P* P* P* P END @ PTEN240 EQU * 2 P CF A15,QTJOB WAIT
0x409ac…40b40 Dummy {f00=0x00cf, f01=0x2008, f02=» NT TOSSIO END @ &
0x40b40…40cd4 (0, 82) Dummy {f00=0x00cf, f01=0x0190, f02=»!& &01&02&03&04FEJL BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION @ B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-a~b ~ d c ) PAPIRINDSTILLING OK ? G d`X ! _} a `
0x40cd4…40e68 Dummy {f00=0x00cf, f01=0x0190, f02=» ha T A%_ } ha T^fa a p I" t g 8 p ! a pT<fa D!W8 {h $ da g? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 ) d & j } F W ?
0x40e68…40ffc Dummy {f00=0x00cf, f01=0x0190, f02=»!& &01&02&03&04FEJL BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION @ B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-a~b ~ d c ) PAPIRINDSTILLING OK ? G d`X ! _} a `
0x40ffc…41190 Dummy {f00=0x00cf, f01=0x0190, f02=» ha T A%_ } ha T^fa a p I" t g 8 p ! a pT<fa D!W8 {h $ da g? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 ) d & j } F W ?
0x41190…41324 Dummy {f00=0x00cf, f01=0x0190, f02=»!& &01&02&03&04FEJL BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION @ B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-a~b ~ d c ) PAPIRINDSTILLING OK ? G d`X ! _} a `
0x41324…414b8 Dummy {f00=0x00cf, f01=0x0190, f02=» ha T A%_ } ha T^fa a p I" t g 8 p ! a pT<fa D!W8 {h $ da g? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 ) d & j } F W ?
0x414b8…4164c Dummy {f00=0x00cf, f01=0x0190, f02=»!& &01&02&03&04FEJL BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION @ B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-a~b ~ d c ) PAPIRINDSTILLING OK ? G d`X ! _} a `
0x4164c…417e0 Dummy {f00=0x00cf, f01=0x0190, f02=» ha T A%_ } ha T^fa a p I" t g 8 p ! a pT<fa D!W8 {h $ da g? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 ) d & j } F W ?
0x417e0…41974 (0, 83) Opaque[0x194]
0x41974…41b08 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x41974…41b08 IdxSect {
0x41974…41b08 f00 = 0x009b // 0x41974 @0x0
0x41974…41b08 f01 = 0x0036 // 0x41976 @0x2
0x41974…41b08 gno = [ // 0x41978 @0x4
0x41974…41b08 [0x00]: C0x009b.0x1.0
0x41974…41b08 [0x01]: C0x009b.0x2.0
0x41974…41b08 [0x02]: C0x009b.0x3.0
0x41974…41b08 [0x03]: C0x009c.0x0.0
0x41974…41b08 [0x04]: C0x009c.0x1.0
0x41974…41b08 [0x05]: C0x009c.0x2.0
0x41974…41b08 [0x06]: C0x009c.0x3.0
0x41974…41b08 [0x07]: C0x009d.0x0.0
0x41974…41b08 [0x08]: C0x009d.0x1.0
0x41974…41b08 [0x09]: C0x009d.0x2.0
0x41974…41b08 [0x0a]: C0x009d.0x3.0
0x41974…41b08 [0x0b]: C0x009e.0x0.0
0x41974…41b08 [0x0c]: C0x009e.0x1.0
0x41974…41b08 [0x0d]: C0x009e.0x2.0
0x41974…41b08 [0x0e]: C0x009e.0x3.0
0x41974…41b08 [0x0f]: C0x009f.0x0.0
0x41974…41b08 [0x10]: C0x009f.0x1.0
0x41974…41b08 [0x11]: C0x009f.0x2.0
0x41974…41b08 [0x12]: C0x009f.0x3.0
0x41974…41b08 [0x13]: C0x00cf.0x3.0
0x41974…41b08 [0x14]: C0x00d0.0x0.0
0x41974…41b08 [0x15]: C0x00d8.0x3.0
0x41974…41b08 [0x16]: C0x00d9.0x0.0
0x41974…41b08 [0x17]: C0x00d9.0x1.0
0x41974…41b08 [0x18]: C0x00d9.0x2.0
0x41974…41b08 [0x19]: C0x00d9.0x3.0
0x41974…41b08 [0x1a]: C0x00da.0x0.0
0x41974…41b08 ]
0x41974…41b08 }
0x41b08…41c9c Dummy {f00=0x009b, 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
0x41c9c…41e30 Dummy {f00=0x009b, 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
0x41e30…41fc4 Dummy {f00=0x009b, 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
0x41fc4…42158 Dummy {f00=0x009b, 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
0x42158…422ec Dummy {f00=0x009b, 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
0x422ec…42480 Dummy {f00=0x009b, 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
0x42480…42614 (0, 84) Dummy {f00=0x009b, 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**********************
0x42614…427a8 Dummy {f00=0x009b, 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
0x427a8…4293c Dummy {f00=0x009b, 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
0x4293c…42ad0 Dummy {f00=0x009b, 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
0x42ad0…42c64 Dummy {f00=0x009b, 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*
0x42c64…42df8 Dummy {f00=0x009b, f01=0x0190, f02=»*************************************************************** P H P T P ` PCALL FORM 16=/F697,16 l P EJECT F P***************************************************************** F P* CONSTANTS USED IN SYS
0x42df8…42f8c Dummy {f00=0x009b, 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
0x42f8c…43120 Dummy {f00=0x009b, 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
0x43120…432b4 (0, 85) Dummy {f00=0x009b, 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*
0x432b4…43448 Dummy {f00=0x009b, 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
0x43448…435dc Dummy {f00=0x009b, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * P : P* * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * :
0x435dc…43770 Dummy {f00=0x009b, f01=0x0190, f02=»TERS: * : P* * 4 : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDA * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * : P*
0x43770…43904 Dummy {f00=0x009b, 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
0x43904…43a98 Dummy {f00=0x009b, 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
0x43a98…43c2c Dummy {f00=0x009b, 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 /*
0x43c2c…43dc0 Dummy {f00=0x009b, 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: *
0x43dc0…43f54 (0, 86) Dummy {f00=0x009c, 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
0x43f54…440e8 Dummy {f00=0x009c, 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
0x440e8…4427c Dummy {f00=0x009c, 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
0x4427c…44410 Dummy {f00=0x009c, 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
0x44410…445a4 Dummy {f00=0x009c, 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
0x445a4…44738 Dummy {f00=0x009c, f01=0x0190, f02=»___________________ z . ** I TTMJOB I . )* _________________________ N . ** I MONITOR TASKS I . )* _________________________ . ** I USER TASKS
0x44738…448cc Dummy {f00=0x009c, 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?
0x448cc…44a60 Dummy {f00=0x009c, 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
0x44a60…44bf4 (0, 87) Dummy {f00=0x009c, 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
0x44bf4…44d88 Dummy {f00=0x009c, 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
0x44d88…44f1c Dummy {f00=0x009c, 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
0x44f1c…450b0 Dummy {f00=0x009c, 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
0x450b0…45244 Dummy {f00=0x009c, 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 "
0x45244…453d8 Dummy {f00=0x009c, 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
0x453d8…4556c Dummy {f00=0x009c, 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
0x4556c…45700 Dummy {f00=0x009c, f01=0x018e, f02=» RTN A14 % EJECT % 6 2************************************************** % " 6 2* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * % 6 2************************************************** % * % * ENTRY: A1 - TASK ID % , (* A6
0x45700…45894 (0, 88) Dummy {f00=0x009c, 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 * &
0x45894…45a28 Dummy {f00=0x009c, 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 *
0x45a28…45bbc Dummy {f00=0x009c, 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
0x45bbc…45d50 Dummy {f00=0x009c, 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 )
0x45d50…45ee4 Dummy {f00=0x009c, 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 * *
0x45ee4…46078 Dummy {f00=0x009c, f01=0x0190, f02=»* TASK TABLE LAYOUT * * &* ________________________ + , * &* I MMU I + Z * &* I TABLE I + * &* I 16 I + * &* I WORDS
0x46078…4620c Dummy {f00=0x009c, f01=0x0190, f02=»---- + n * &* TASK ENTRY I QUEUE I , * &* ------------------------ , : * &* TTB:ID I TASK IDENTIFICATION I , h * &* ------------------------ , * &* TTB:ST I STATUS/LEVEL I , * &* --------
0x4620c…463a0 Dummy {f00=0x009c, f01=0x0190, f02=»RAM STATUS WORD I , | * &* ------------------------ - * &* TTB:SA I DISPATCH ADDRESS I - H * &* ------------------------ - v * &* I REGISTER I - * &* I SAVE I - * &*
0x463a0…46534 (0, 89) Dummy {f00=0x009c, f01=0x0190, f02=» ------------------------ - * &* TTB:TD I TASK I . ( * P* I SAVE01URATION I . V * &* I TABLE I . * &* : : . * &* : : .
0x46534…466c8 Dummy {f00=0x009c, f01=0x018e, f02=» ______________________________ . 0 ,* I LENGTH I / * 0 ,* ------------------------------ / ^ 0 ,* I INDEX/FILCODE I / 0 ,* ------------------------------ / 0 ,*
0x466c8…4685c Dummy {f00=0x009c, f01=0x0190, f02=» / b 0 ,* : : 0 0 ,* ------------------------------ 0 < 0 ,* I INDEX/FILECODE I 0 p 0 ,* ------------------------------ 0 0 ,* I DWT-ADDRESS I 0
0x4685c…469f0 Dummy {f00=0x009c, 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,
0x469f0…46b84 Dummy {f00=0x009c, 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
0x46b84…46d18 Dummy {f00=0x009c, 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
0x46d18…46eac Dummy {f00=0x009c, 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
0x46eac…47040 Dummy {f00=0x009c, 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
0x47040…471d4 (0, 90) Dummy {f00=0x009d, 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
0x471d4…47368 Dummy {f00=0x009d, 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
0x47368…474fc Dummy {f00=0x009d, 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
0x474fc…47690 Dummy {f00=0x009d, 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
0x47690…47824 Dummy {f00=0x009d, 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
0x47824…479b8 Dummy {f00=0x009d, 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
0x479b8…47b4c Dummy {f00=0x009d, 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
0x47b4c…47ce0 Dummy {f00=0x009d, 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
0x47ce0…47e74 (0, 91) Dummy {f00=0x009d, 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 >
0x47e74…48008 Dummy {f00=0x009d, 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
0x48008…4819c Dummy {f00=0x009d, 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
0x4819c…48330 Dummy {f00=0x009d, 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
0x48330…484c4 Dummy {f00=0x009d, 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
0x484c4…48658 Dummy {f00=0x009d, 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
0x48658…487ec Dummy {f00=0x009d, 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
0x487ec…48980 Dummy {f00=0x009d, 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
0x48980…48b14 (0, 92) Dummy {f00=0x009d, 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
0x48b14…48ca8 Dummy {f00=0x009d, 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
0x48ca8…48e3c Dummy {f00=0x009d, 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
0x48e3c…48fd0 Dummy {f00=0x009d, f01=0x0190, f02=» P EJECT I D P*************************************************************** I D P* * I Z D P* * I D P*
0x48fd0…49164 Dummy {f00=0x009d, f01=0x0190, f02=»============================== * I z D P* * J 2 D P* REFERENCED IN: SYSLDM * J z D P* * J D
0x49164…492f8 Dummy {f00=0x009d, f01=0x0190, f02=»* J R D P* EXIT: * K D P* * K R D P* WORK REGISTERS: A1-A12 * K D P*
0x492f8…4948c Dummy {f00=0x009d, 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*
0x4948c…49620 Dummy {f00=0x009d, f01=0x0190, f02=» D P* * M D P* * M L D P*************************************************************** M P EJECT M PB:SWBT EQU * M & P LD A12,SC
0x49620…497b4 (0, 93) Dummy {f00=0x009d, 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
0x497b4…49948 Dummy {f00=0x009d, 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
0x49948…49adc Dummy {f00=0x009d, 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
0x49adc…49c70 Dummy {f00=0x009d, 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
0x49c70…49e04 Dummy {f00=0x009d, 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
0x49e04…49f98 Dummy {f00=0x009d, 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
0x49f98…4a12c Dummy {f00=0x009d, 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
0x4a12c…4a2c0 Dummy {f00=0x009d, 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
0x4a2c0…4a454 (0, 94) Dummy {f00=0x009e, 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
0x4a454…4a5e8 Dummy {f00=0x009e, 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
0x4a5e8…4a77c Dummy {f00=0x009e, 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
0x4a77c…4a910 Dummy {f00=0x009e, 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
0x4a910…4aaa4 Dummy {f00=0x009e, 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
0x4aaa4…4ac38 Dummy {f00=0x009e, 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
0x4ac38…4adcc Dummy {f00=0x009e, 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*
0x4adcc…4af60 Dummy {f00=0x009e, 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
0x4af60…4b0f4 (0, 95) Dummy {f00=0x009e, 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 * ^
0x4b0f4…4b288 Dummy {f00=0x009e, 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 * _ * %********
0x4b288…4b41c Dummy {f00=0x009e, 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
0x4b41c…4b5b0 Dummy {f00=0x009e, f01=0x0190, f02=» -------------------- ` 0 ,* I DATA 0 I a $ 0 ,* -------------------- a X 0 ,* I DATA 0 I a 0 ,* -------------------- a * a EJECT a
0x4b5b0…4b744 Dummy {f00=0x009e, 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
0x4b744…4b8d8 Dummy {f00=0x009e, 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
0x4b8d8…4ba6c Dummy {f00=0x009e, 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
0x4ba6c…4bc00 Dummy {f00=0x009e, 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 * &
0x4bc00…4bd94 (0, 96) Dummy {f00=0x009e, 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
0x4bd94…4bf28 Dummy {f00=0x009e, 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
0x4bf28…4c0bc Dummy {f00=0x009e, 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 * &
0x4c0bc…4c250 Dummy {f00=0x009e, 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
0x4c250…4c3e4 Dummy {f00=0x009e, 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
0x4c3e4…4c578 Dummy {f00=0x009e, 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
0x4c578…4c70c Dummy {f00=0x009e, 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 /
0x4c70c…4c8a0 Dummy {f00=0x009e, 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
0x4c8a0…4ca34 (0, 97) Dummy {f00=0x009e, 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******************************************
0x4ca34…4cbc8 Dummy {f00=0x009e, 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
0x4cbc8…4cd5c Dummy {f00=0x009e, 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
0x4cd5c…4cef0 Dummy {f00=0x009e, 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?
0x4cef0…4d084 Dummy {f00=0x009e, 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
0x4d084…4d218 Dummy {f00=0x009e, 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
0x4d218…4d3ac Dummy {f00=0x009e, 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
0x4d3ac…4d540 Dummy {f00=0x009e, 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
0x4d540…4d6d4 (0, 98) Dummy {f00=0x009f, 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
0x4d6d4…4d868 Dummy {f00=0x009f, 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
0x4d868…4d9fc Dummy {f00=0x009f, 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
0x4d9fc…4db90 Dummy {f00=0x009f, 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
0x4db90…4dd24 Dummy {f00=0x009f, 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
0x4dd24…4deb8 Dummy {f00=0x009f, 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
0x4deb8…4e04c Dummy {f00=0x009f, 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 * | , (**************************************** | * | *
0x4e04c…4e1e0 Dummy {f00=0x009f, 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
0x4e1e0…4e374 (0, 99) Dummy {f00=0x009f, 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 ~
0x4e374…4e508 Dummy {f00=0x009f, 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
0x4e508…4e69c Dummy {f00=0x009f, 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
0x4e69c…4e830 Dummy {f00=0x009f, 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
0x4e830…4e9c4 Dummy {f00=0x009f, 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
0x4e9c4…4eb58 Dummy {f00=0x009f, 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
0x4eb58…4ecec Dummy {f00=0x009f, 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
0x4ecec…4ee80 Dummy {f00=0x009f, 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
0x4ee80…4f014 (0, 100) Dummy {f00=0x009f, 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
0x4f014…4f1a8 Dummy {f00=0x009f, 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
0x4f1a8…4f33c Dummy {f00=0x009f, 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
0x4f33c…4f4d0 Dummy {f00=0x009f, 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)
0x4f4d0…4f664 Dummy {f00=0x009f, 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
0x4f664…4f7f8 Dummy {f00=0x009f, 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
0x4f7f8…4f98c Dummy {f00=0x009f, 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
0x4f98c…4fb20 Dummy {f00=0x009f, 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
0x4fb20…4fcb4 (0, 101) Dummy {f00=0x009f, 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,
0x4fcb4…4fe48 Dummy {f00=0x009f, 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
0x4fe48…4ffdc Dummy {f00=0x009f, 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**************************
0x4ffdc…50170 Dummy {f00=0x009f, 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,
0x50170…50304 Dummy {f00=0x009f, 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
0x50304…50498 Dummy {f00=0x009f, 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
0x50498…5062c Dummy {f00=0x009f, 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 *
0x5062c…507c0 Dummy {f00=0x009f, 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
0x507c0…50954 (0, 102) Dummy {f00=0x00cf, 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
0x50954…50ae8 Dummy {f00=0x00cf, 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
0x50ae8…50c7c Dummy {f00=0x00cf, 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
0x50c7c…50e10 Dummy {f00=0x00cf, 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
0x50e10…50fa4 Dummy {f00=0x00cf, 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
0x50fa4…51138 Dummy {f00=0x00cf, 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
0x51138…512cc Dummy {f00=0x00cf, 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
0x512cc…51460 Dummy {f00=0x00cf, 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
0x51460…515f4 (0, 103) Dummy {f00=0x00d0, 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
0x515f4…51788 Dummy {f00=0x00d0, 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*
0x51788…5191c Dummy {f00=0x00d0, 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
0x5191c…51ab0 Dummy {f00=0x00d0, 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
0x51ab0…51c44 Dummy {f00=0x00d0, 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
0x51c44…51dd8 Dummy {f00=0x00d0, f01=0x0190, f02=»DWTEX EQU * RTN A14 RETURN EJECT , * %************************************* : * %* I:CHP - INIT CHANNEL PARAMETER * h * %************************************* * * REFERENCED IN: DWTGEN * , (* ENTRY: A1 -
0x51dd8…51f6c Dummy {f00=0x00d0, 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
0x51f6c…52100 Dummy {f00=0x00d0, 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
0x52100…52294 (0, 104) Dummy {f00=0x00d8, 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
0x52294…52428 Dummy {f00=0x00d8, 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
0x52428…525bc Dummy {f00=0x00d8, 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,
0x525bc…52750 Dummy {f00=0x00d8, 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
0x52750…528e4 Dummy {f00=0x00d8, 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
0x528e4…52a78 Dummy {f00=0x00d8, 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
0x52a78…52c0c Dummy {f00=0x00d8, 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
0x52c0c…52da0 Dummy {f00=0x00d8, 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
0x52da0…52f34 (0, 105) Dummy {f00=0x00d9, 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
0x52f34…530c8 Dummy {f00=0x00d9, 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
0x530c8…5325c Dummy {f00=0x00d9, 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
0x5325c…533f0 Dummy {f00=0x00d9, 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.
0x533f0…53584 Dummy {f00=0x00d9, 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
0x53584…53718 Dummy {f00=0x00d9, 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 *
0x53718…538ac Dummy {f00=0x00d9, 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
0x538ac…53a40 Dummy {f00=0x00d9, 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
0x53a40…53bd4 (0, 106) Dummy {f00=0x00d9, 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
0x53bd4…53d68 Dummy {f00=0x00d9, 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
0x53d68…53efc Dummy {f00=0x00d9, 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
0x53efc…54090 Dummy {f00=0x00d9, 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
0x54090…54224 Dummy {f00=0x00d9, 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
0x54224…543b8 Dummy {f00=0x00d9, 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.
0x543b8…5454c Dummy {f00=0x00d9, f01=0x0190, f02=»*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL SUBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************************************
0x5454c…546e0 Dummy {f00=0x00d9, 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
0x546e0…54874 (0, 107) Dummy {f00=0x00d9, 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**
0x54874…54a08 Dummy {f00=0x00d9, 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,
0x54a08…54b9c Dummy {f00=0x00d9, 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 -
0x54b9c…54d30 Dummy {f00=0x00d9, 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 .****************
0x54d30…54ec4 Dummy {f00=0x00d9, 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
0x54ec4…55058 Dummy {f00=0x00d9, 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) *
0x55058…551ec Dummy {f00=0x00d9, 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
0x551ec…55380 Dummy {f00=0x00d9, f01=0x0190, f02=» * f : P* REFERENCED IN: B:TT * : P* * R : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* *
0x55380…55514 (0, 108) Dummy {f00=0x00d9, f01=0x0190, f02=»REGISTERS: A1-A7,A10 * : P* * 6 : P* SUBROUTINES: GETTSK,NXTBLK * t : P* * : P************************
0x55514…556a8 Dummy {f00=0x00d9, 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
0x556a8…5583c Dummy {f00=0x00d9, 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 >****************************************************
0x5583c…559d0 Dummy {f00=0x00d9, f01=0x018e, f02=»ONVERTED * j * " B >************************************************************** , * r * REFERENCED IN: B:DWTT | * , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED
0x559d0…55b64 Dummy {f00=0x00d9, 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
0x55b64…55cf8 Dummy {f00=0x00d9, f01=0x018e, f02=»***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** L * ~ * REFERENCED IN: SEGGEN * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X)
0x55cf8…55e8c Dummy {f00=0x00d9, 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
0x55e8c…56020 Dummy {f00=0x00d9, 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
0x56020…561b4 (0, 109) Dummy {f00=0x00da, 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
0x561b4…56348 Dummy {f00=0x00da, 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
0x56348…564dc Dummy {f00=0x00da, 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 *
0x564dc…56670 Dummy {f00=0x00da, 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 *
0x56670…56804 Dummy {f00=0x00da, f01=0x403c, f02=» 0 P******************************************** @ 8 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 *
0x56804…56998 Dummy {f00=0x00da, f01=0x2008, f02=» P X ` h p
0x56998…56b2c Dummy {f00=0x00da, f01=0x0190, f02=»!& &01&02&03&04FEJL BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION @ B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-a~b ~ d c ) PAPIRINDSTILLING OK ? G d`X ! _} a `
0x56b2c…56cc0 Dummy {f00=0x00da, f01=0x0190, f02=» ha T A%_ } ha T^fa a p I" t g 8 p ! a pT<fa D!W8 {h $ da g? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 ) d & j } F W ?
0x56cc0…56e54 (0, 110) Opaque[0x194]
0x56e54…56fe8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1400, f03=0x0000}
0x56e54…56fe8 IdxSect {
0x56e54…56fe8 f00 = 0x00a0 // 0x56e54 @0x0
0x56e54…56fe8 f01 = 0x0054 // 0x56e56 @0x2
0x56e54…56fe8 gno = [ // 0x56e58 @0x4
0x56e54…56fe8 [0x00]: C0x00a0.0x0.0
0x56e54…56fe8 [0x01]: C0x00a0.0x1.0
0x56e54…56fe8 [0x02]: C0x00a0.0x2.0
0x56e54…56fe8 [0x03]: C0x00a0.0x3.0
0x56e54…56fe8 [0x04]: C0x00a1.0x0.0
0x56e54…56fe8 [0x05]: C0x00a1.0x1.0
0x56e54…56fe8 [0x06]: C0x00a1.0x2.0
0x56e54…56fe8 [0x07]: C0x00a1.0x3.0
0x56e54…56fe8 [0x08]: C0x00a2.0x0.0
0x56e54…56fe8 [0x09]: C0x00a2.0x1.0
0x56e54…56fe8 [0x0a]: C0x00a3.0x2.0
0x56e54…56fe8 [0x0b]: C0x00a3.0x3.0
0x56e54…56fe8 [0x0c]: C0x00a4.0x0.0
0x56e54…56fe8 [0x0d]: C0x00a4.0x1.0
0x56e54…56fe8 [0x0e]: C0x00a4.0x2.0
0x56e54…56fe8 [0x0f]: C0x00a4.0x3.0
0x56e54…56fe8 [0x10]: C0x00a5.0x0.0
0x56e54…56fe8 [0x11]: C0x00a5.0x1.0
0x56e54…56fe8 [0x12]: C0x00a5.0x2.0
0x56e54…56fe8 [0x13]: C0x00a5.0x3.0
0x56e54…56fe8 [0x14]: C0x00a6.0x0.0
0x56e54…56fe8 [0x15]: C0x00a6.0x1.0
0x56e54…56fe8 [0x16]: C0x00a6.0x2.0
0x56e54…56fe8 [0x17]: C0x00a6.0x3.0
0x56e54…56fe8 [0x18]: C0x00a7.0x0.0
0x56e54…56fe8 [0x19]: C0x00a7.0x1.0
0x56e54…56fe8 [0x1a]: C0x00a7.0x2.0
0x56e54…56fe8 [0x1b]: C0x00da.0x1.0
0x56e54…56fe8 [0x1c]: C0x00da.0x2.0
0x56e54…56fe8 [0x1d]: C0x00da.0x3.0
0x56e54…56fe8 [0x1e]: C0x00db.0x3.0
0x56e54…56fe8 [0x1f]: C0x00dc.0x0.0
0x56e54…56fe8 [0x20]: C0x00dc.0x1.0
0x56e54…56fe8 [0x21]: C0x00dd.0x0.0
0x56e54…56fe8 [0x22]: C0x00dd.0x1.0
0x56e54…56fe8 [0x23]: C0x00dd.0x2.0
0x56e54…56fe8 [0x24]: C0x00dd.0x3.0
0x56e54…56fe8 [0x25]: C0x00de.0x0.0
0x56e54…56fe8 [0x26]: C0x00de.0x1.0
0x56e54…56fe8 [0x27]: C0x00de.0x2.0
0x56e54…56fe8 [0x28]: C0x00de.0x3.0
0x56e54…56fe8 [0x29]: C0x00df.0x0.0
0x56e54…56fe8 ]
0x56e54…56fe8 }
0x56fe8…5717c Dummy {f00=0x00a0, 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
0x5717c…57310 Dummy {f00=0x00a0, 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
0x57310…574a4 Dummy {f00=0x00a0, 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
0x574a4…57638 Dummy {f00=0x00a0, 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
0x57638…577cc Dummy {f00=0x00a0, 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*
0x577cc…57960 Dummy {f00=0x00a0, 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* *
0x57960…57af4 (0, 111) Dummy {f00=0x00a0, 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
0x57af4…57c88 Dummy {f00=0x00a0, 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
0x57c88…57e1c Dummy {f00=0x00a0, 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
0x57e1c…57fb0 Dummy {f00=0x00a0, 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 =
0x57fb0…58144 Dummy {f00=0x00a0, 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
0x58144…582d8 Dummy {f00=0x00a0, 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
0x582d8…5846c Dummy {f00=0x00a0, 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
0x5846c…58600 Dummy {f00=0x00a0, 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*
0x58600…58794 (0, 112) Dummy {f00=0x00a0, 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
0x58794…58928 Dummy {f00=0x00a0, 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* !----------------------------------------------
0x58928…58abc Dummy {f00=0x00a0, 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*
0x58abc…58c50 Dummy {f00=0x00a0, 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.
0x58c50…58de4 Dummy {f00=0x00a0, 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
0x58de4…58f78 Dummy {f00=0x00a0, 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
0x58f78…5910c Dummy {f00=0x00a0, 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
0x5910c…592a0 Dummy {f00=0x00a0, 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
0x592a0…59434 (0, 113) Dummy {f00=0x00a0, 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
0x59434…595c8 Dummy {f00=0x00a0, 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
0x595c8…5975c Dummy {f00=0x00a0, f01=0x0190, f02=» ! b F P* ! -CONTINUE IN PART 2.A ! F P* !-----------------------------------------------------! f P EJECT P P ***************** P ***************** P **
0x5975c…598f0 Dummy {f00=0x00a0, 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
0x598f0…59a84 Dummy {f00=0x00a0, 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
0x59a84…59c18 Dummy {f00=0x00a0, 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
0x59c18…59dac Dummy {f00=0x00a0, 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
0x59dac…59f40 Dummy {f00=0x00a0, 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-
0x59f40…5a0d4 (0, 114) Dummy {f00=0x00a1, 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
0x5a0d4…5a268 Dummy {f00=0x00a1, 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
0x5a268…5a3fc Dummy {f00=0x00a1, 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 -"-
0x5a3fc…5a590 Dummy {f00=0x00a1, 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
0x5a590…5a724 Dummy {f00=0x00a1, 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****
0x5a724…5a8b8 Dummy {f00=0x00a1, 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:
0x5a8b8…5aa4c Dummy {f00=0x00a1, 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**********************************************
0x5aa4c…5abe0 Dummy {f00=0x00a1, f01=0x0190, f02=» [REL-ADDRESS] * $ n F P* * % ( F P***************************************************************** % r P % P % P % PCALL FORM 16=/F697,16 % P EJECT %
0x5abe0…5ad74 (0, 115) Dummy {f00=0x00a1, f01=0x0190, f02=» ** % 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & 6 6 P** ** & p 6 P************************************************** & 6 P************************************
0x5ad74…5af08 Dummy {f00=0x00a1, 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****************
0x5af08…5b09c Dummy {f00=0x00a1, 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******************************
0x5b09c…5b230 Dummy {f00=0x00a1, 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
0x5b230…5b3c4 Dummy {f00=0x00a1, 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
0x5b3c4…5b558 Dummy {f00=0x00a1, 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**************
0x5b558…5b6ec Dummy {f00=0x00a1, 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 , *
0x5b6ec…5b880 Dummy {f00=0x00a1, 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
0x5b880…5ba14 (0, 116) Dummy {f00=0x00a1, 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 .
0x5ba14…5bba8 Dummy {f00=0x00a1, 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 /
0x5bba8…5bd3c Dummy {f00=0x00a1, 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
0x5bd3c…5bed0 Dummy {f00=0x00a1, 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
0x5bed0…5c064 Dummy {f00=0x00a1, 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
0x5c064…5c1f8 Dummy {f00=0x00a1, 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
0x5c1f8…5c38c Dummy {f00=0x00a1, 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
0x5c38c…5c520 Dummy {f00=0x00a1, 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
0x5c520…5c6b4 (0, 117) Dummy {f00=0x00a1, 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
0x5c6b4…5c848 Dummy {f00=0x00a1, 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
0x5c848…5c9dc Dummy {f00=0x00a1, 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
0x5c9dc…5cb70 Dummy {f00=0x00a1, 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
0x5cb70…5cd04 Dummy {f00=0x00a1, 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
0x5cd04…5ce98 Dummy {f00=0x00a1, 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
0x5ce98…5d02c Dummy {f00=0x00a1, 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************************************
0x5d02c…5d1c0 Dummy {f00=0x00a1, 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 =
0x5d1c0…5d354 (0, 118) Dummy {f00=0x00a2, 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**
0x5d354…5d4e8 Dummy {f00=0x00a2, 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**
0x5d4e8…5d67c Dummy {f00=0x00a2, 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
0x5d67c…5d810 Dummy {f00=0x00a2, 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
0x5d810…5d9a4 Dummy {f00=0x00a2, 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
0x5d9a4…5db38 Dummy {f00=0x00a2, 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
0x5db38…5dccc Dummy {f00=0x00a2, 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
0x5dccc…5de60 Dummy {f00=0x00a2, 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
0x5de60…5dff4 (0, 119) Dummy {f00=0x00a2, 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
0x5dff4…5e188 Dummy {f00=0x00a2, 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
0x5e188…5e31c Dummy {f00=0x00a2, 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
0x5e31c…5e4b0 Dummy {f00=0x00a2, 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
0x5e4b0…5e644 Dummy {f00=0x00a2, 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
0x5e644…5e7d8 Dummy {f00=0x00a2, 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
0x5e7d8…5e96c Dummy {f00=0x00a2, 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
0x5e96c…5eb00 Dummy {f00=0x00a2, 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
0x5eb00…5ec94 (0, 120) Dummy {f00=0x00a3, 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
0x5ec94…5ee28 Dummy {f00=0x00a3, 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
0x5ee28…5efbc Dummy {f00=0x00a3, 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
0x5efbc…5f150 Dummy {f00=0x00a3, 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
0x5f150…5f2e4 Dummy {f00=0x00a3, 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)
0x5f2e4…5f478 Dummy {f00=0x00a3, 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**
0x5f478…5f60c Dummy {f00=0x00a3, 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
0x5f60c…5f7a0 Dummy {f00=0x00a3, 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
0x5f7a0…5f934 (0, 121) Dummy {f00=0x00a3, 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
0x5f934…5fac8 Dummy {f00=0x00a3, 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
0x5fac8…5fc5c Dummy {f00=0x00a3, 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
0x5fc5c…5fdf0 Dummy {f00=0x00a3, 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
0x5fdf0…5ff84 Dummy {f00=0x00a3, 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
0x5ff84…60118 Dummy {f00=0x00a3, 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
0x60118…602ac Dummy {f00=0x00a3, 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
0x602ac…60440 Dummy {f00=0x00a3, 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
0x60440…605d4 (0, 122) Dummy {f00=0x00a4, 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
0x605d4…60768 Dummy {f00=0x00a4, 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
0x60768…608fc Dummy {f00=0x00a4, 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
0x608fc…60a90 Dummy {f00=0x00a4, 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
0x60a90…60c24 Dummy {f00=0x00a4, 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
0x60c24…60db8 Dummy {f00=0x00a4, 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
0x60db8…60f4c Dummy {f00=0x00a4, 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
0x60f4c…610e0 Dummy {f00=0x00a4, 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
0x610e0…61274 (0, 123) Dummy {f00=0x00a4, 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
0x61274…61408 Dummy {f00=0x00a4, 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
0x61408…6159c Dummy {f00=0x00a4, 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)
0x6159c…61730 Dummy {f00=0x00a4, 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
0x61730…618c4 Dummy {f00=0x00a4, 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
0x618c4…61a58 Dummy {f00=0x00a4, 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
0x61a58…61bec Dummy {f00=0x00a4, 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
0x61bec…61d80 Dummy {f00=0x00a4, 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
0x61d80…61f14 (0, 124) Dummy {f00=0x00a4, 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
0x61f14…620a8 Dummy {f00=0x00a4, 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
0x620a8…6223c Dummy {f00=0x00a4, 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=
0x6223c…623d0 Dummy {f00=0x00a4, 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=
0x623d0…62564 Dummy {f00=0x00a4, 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
0x62564…626f8 Dummy {f00=0x00a4, 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,
0x626f8…6288c Dummy {f00=0x00a4, 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
0x6288c…62a20 Dummy {f00=0x00a4, 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
0x62a20…62bb4 (0, 125) Dummy {f00=0x00a4, 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
0x62bb4…62d48 Dummy {f00=0x00a4, 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**
0x62d48…62edc Dummy {f00=0x00a4, 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
0x62edc…63070 Dummy {f00=0x00a4, f01=0x018e, f02=»************************************* x v D P* * y . D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * y v D P* ===================================== * y D P*
0x63070…63204 Dummy {f00=0x00a4, 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
0x63204…63398 Dummy {f00=0x00a4, 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*
0x63398…6352c Dummy {f00=0x00a4, 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 |
0x6352c…636c0 Dummy {f00=0x00a4, 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
0x636c0…63854 (0, 126) Dummy {f00=0x00a5, 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
0x63854…639e8 Dummy {f00=0x00a5, 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**************************************
0x639e8…63b7c Dummy {f00=0x00a5, f01=0x0190, f02=»KMVD - CHECK IF BLOCK ALREADY MOVED * ~ J P* ===================================== * < J P* * J P* REFERENCED IN: MOVCOM,MOVCLA
0x63b7c…63d10 Dummy {f00=0x00a5, 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
0x63d10…63ea4 Dummy {f00=0x00a5, f01=0x0190, f02=» * j J P* * ( J P* SUBROUTINES: * v J P*
0x63ea4…64038 Dummy {f00=0x00a5, 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
0x64038…641cc Dummy {f00=0x00a5, 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**
0x641cc…64360 Dummy {f00=0x00a5, 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
0x64360…644f4 (0, 127) Dummy {f00=0x00a5, 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
0x644f4…64688 Dummy {f00=0x00a5, f01=0x0190, f02=» ** 4 P** ** ( 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** ` 4 P** ** 4 P** INPUT : A3,A2 ** 4 P
0x64688…6481c Dummy {f00=0x00a5, 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
0x6481c…649b0 Dummy {f00=0x00a5, 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 **
0x649b0…64b44 Dummy {f00=0x00a5, 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
0x64b44…64cd8 Dummy {f00=0x00a5, 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**
0x64cd8…64e6c Dummy {f00=0x00a5, 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
0x64e6c…65000 Dummy {f00=0x00a5, 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
0x65000…65194 (0, 128) Dummy {f00=0x00a5, 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**
0x65194…65328 Dummy {f00=0x00a5, 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
0x65328…654bc Dummy {f00=0x00a5, 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
0x654bc…65650 Dummy {f00=0x00a5, 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
0x65650…657e4 Dummy {f00=0x00a5, 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
0x657e4…65978 Dummy {f00=0x00a5, 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
0x65978…65b0c Dummy {f00=0x00a5, f01=0x0190, f02=»T ** v 4 P** ** 4 P** ** V 4 P** MOVE MM-TABLE ** 4 P** ** 4 P** INPUT
0x65b0c…65ca0 Dummy {f00=0x00a5, 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
0x65ca0…65e34 (0, 129) Dummy {f00=0x00a5, 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
0x65e34…65fc8 Dummy {f00=0x00a5, f01=0x0190, f02=»=========== * b @ P* * @ P* * Z @ P* REFERENCED IN: SYSLDA PART 2 B. * @ P*
0x65fc8…6615c Dummy {f00=0x00a5, f01=0x0190, f02=»NTRY IN REAL T:ATAB * j @ P* * @ P* EXIT: * b @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8
0x6615c…662f0 Dummy {f00=0x00a5, 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
0x662f0…66484 Dummy {f00=0x00a5, 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
0x66484…66618 Dummy {f00=0x00a5, 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
0x66618…667ac Dummy {f00=0x00a5, 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 =
0x667ac…66940 Dummy {f00=0x00a5, 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**
0x66940…66ad4 (0, 130) Dummy {f00=0x00a6, 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
0x66ad4…66c68 Dummy {f00=0x00a6, 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
0x66c68…66dfc Dummy {f00=0x00a6, 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
0x66dfc…66f90 Dummy {f00=0x00a6, 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
0x66f90…67124 Dummy {f00=0x00a6, 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
0x67124…672b8 Dummy {f00=0x00a6, 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
0x672b8…6744c Dummy {f00=0x00a6, 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
0x6744c…675e0 Dummy {f00=0x00a6, 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:
0x675e0…67774 (0, 131) Dummy {f00=0x00a6, 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
0x67774…67908 Dummy {f00=0x00a6, 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
0x67908…67a9c Dummy {f00=0x00a6, 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
0x67a9c…67c30 Dummy {f00=0x00a6, 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 ?***************************************************************
0x67c30…67dc4 Dummy {f00=0x00a6, f01=0x0190, f02=» * X D ?* ========================= * D ?* * X D ?* REFERENCED IN: SYSLDA * D ?*
0x67dc4…67f58 Dummy {f00=0x00a6, f01=0x0190, f02=»OF FREE AREA * x D ?* SCTNOS - NUMBER OF SEGMENTS * 0 D ?* SCTNOP - NUMBER OF PAGES * x D ?* SCTPSZ - PAGE SIZE * D ?
0x67f58…680ec Dummy {f00=0x00a6, 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
0x680ec…68280 Dummy {f00=0x00a6, f01=0x0190, f02=» * p D ?* * ( D ?* * p D ?*************************************************************** PAGGEN E
0x68280…68414 (0, 132) Dummy {f00=0x00a6, 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
0x68414…685a8 Dummy {f00=0x00a6, 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
0x685a8…6873c Dummy {f00=0x00a6, 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
0x6873c…688d0 Dummy {f00=0x00a6, 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
0x688d0…68a64 Dummy {f00=0x00a6, 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,
0x68a64…68bf8 Dummy {f00=0x00a6, 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,
0x68bf8…68d8c Dummy {f00=0x00a6, 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!
0x68d8c…68f20 Dummy {f00=0x00a6, 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
0x68f20…690b4 (0, 133) Dummy {f00=0x00a6, 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
0x690b4…69248 Dummy {f00=0x00a6, 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
0x69248…693dc Dummy {f00=0x00a6, 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
0x693dc…69570 Dummy {f00=0x00a6, 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
0x69570…69704 Dummy {f00=0x00a6, 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
0x69704…69898 Dummy {f00=0x00a6, 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
0x69898…69a2c Dummy {f00=0x00a6, 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
0x69a2c…69bc0 Dummy {f00=0x00a6, 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
0x69bc0…69d54 (0, 134) Dummy {f00=0x00a7, 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
0x69d54…69ee8 Dummy {f00=0x00a7, 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
0x69ee8…6a07c Dummy {f00=0x00a7, 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***
0x6a07c…6a210 Dummy {f00=0x00a7, 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****************
0x6a210…6a3a4 Dummy {f00=0x00a7, 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**
0x6a3a4…6a538 Dummy {f00=0x00a7, 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
0x6a538…6a6cc Dummy {f00=0x00a7, 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
0x6a6cc…6a860 Dummy {f00=0x00a7, 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 **
0x6a860…6a9f4 (0, 135) Dummy {f00=0x00a7, 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 (
0x6a9f4…6ab88 Dummy {f00=0x00a7, 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
0x6ab88…6ad1c Dummy {f00=0x00a7, 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
0x6ad1c…6aeb0 Dummy {f00=0x00a7, 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(
0x6aeb0…6b044 Dummy {f00=0x00a7, 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
0x6b044…6b1d8 Dummy {f00=0x00a7, 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
0x6b1d8…6b36c Dummy {f00=0x00a7, 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
0x6b36c…6b500 Dummy {f00=0x00a7, 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
0x6b500…6b694 (0, 136) Dummy {f00=0x00a7, 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
0x6b694…6b828 Dummy {f00=0x00a7, 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
0x6b828…6b9bc Dummy {f00=0x00a7, 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
0x6b9bc…6bb50 Dummy {f00=0x00a7, 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 *
0x6bb50…6bce4 Dummy {f00=0x00a7, 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
0x6bce4…6be78 Dummy {f00=0x00a7, 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*********************************
0x6be78…6c00c Dummy {f00=0x00a7, 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
0x6c00c…6c1a0 Dummy {f00=0x00a7, 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
0x6c1a0…6c334 (0, 137) Dummy {f00=0x00da, 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
0x6c334…6c4c8 Dummy {f00=0x00da, 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
0x6c4c8…6c65c Dummy {f00=0x00da, 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
0x6c65c…6c7f0 Dummy {f00=0x00da, 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
0x6c7f0…6c984 Dummy {f00=0x00da, f01=0x0190, f02=»FT CREDIT+SWPBLK=2 P EJECT B P************************************************************** ( B P* * n B P* * B P* B:RSWT - BU
0x6c984…6cb18 Dummy {f00=0x00da, f01=0x0190, f02=» * B P* REFERENCED IN: SYSLDA * < B P* * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *
0x6cb18…6ccac Dummy {f00=0x00da, f01=0x0190, f02=» * T B P* EXIT: * B P* * P B P* WORK REGISTERS: A1-A7 * B P*
0x6ccac…6ce40 Dummy {f00=0x00da, 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
0x6ce40…6cfd4 (0, 138) Dummy {f00=0x00da, 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
0x6cfd4…6d168 Dummy {f00=0x00da, 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
0x6d168…6d2fc Dummy {f00=0x00da, 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
0x6d2fc…6d490 Dummy {f00=0x00da, 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
0x6d490…6d624 Dummy {f00=0x00da, 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
0x6d624…6d7b8 Dummy {f00=0x00da, 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
0x6d7b8…6d94c Dummy {f00=0x00da, 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
0x6d94c…6dae0 Dummy {f00=0x00da, 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
0x6dae0…6dc74 (0, 139) Dummy {f00=0x00da, 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
0x6dc74…6de08 Dummy {f00=0x00da, 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 ,
0x6de08…6df9c Dummy {f00=0x00da, 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,
0x6df9c…6e130 Dummy {f00=0x00da, 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
0x6e130…6e2c4 Dummy {f00=0x00da, 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
0x6e2c4…6e458 Dummy {f00=0x00da, 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
0x6e458…6e5ec Dummy {f00=0x00da, 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
0x6e5ec…6e780 Dummy {f00=0x00da, 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
0x6e780…6e914 (0, 140) Dummy {f00=0x00db, 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:
0x6e914…6eaa8 Dummy {f00=0x00db, 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
0x6eaa8…6ec3c Dummy {f00=0x00db, 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
0x6ec3c…6edd0 Dummy {f00=0x00db, 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:
0x6edd0…6ef64 Dummy {f00=0x00db, 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
0x6ef64…6f0f8 Dummy {f00=0x00db, 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
0x6f0f8…6f28c Dummy {f00=0x00db, 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
0x6f28c…6f420 Dummy {f00=0x00db, 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
0x6f420…6f5b4 (0, 141) Dummy {f00=0x00dc, 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
0x6f5b4…6f748 Dummy {f00=0x00dc, 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
0x6f748…6f8dc Dummy {f00=0x00dc, 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
0x6f8dc…6fa70 Dummy {f00=0x00dc, 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
0x6fa70…6fc04 Dummy {f00=0x00dc, 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
0x6fc04…6fd98 Dummy {f00=0x00dc, 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
0x6fd98…6ff2c Dummy {f00=0x00dc, 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
0x6ff2c…700c0 Dummy {f00=0x00dc, 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
0x700c0…70254 (0, 142) Dummy {f00=0x00dc, 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
0x70254…703e8 Dummy {f00=0x00dc, 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
0x703e8…7057c Dummy {f00=0x00dc, 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
0x7057c…70710 Dummy {f00=0x00dc, 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:
0x70710…708a4 Dummy {f00=0x00dc, 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 .
0x708a4…70a38 Dummy {f00=0x00dc, 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
0x70a38…70bcc Dummy {f00=0x00dc, 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
0x70bcc…70d60 Dummy {f00=0x00dc, 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
0x70d60…70ef4 (0, 143) Dummy {f00=0x00dd, 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**
0x70ef4…71088 Dummy {f00=0x00dd, f01=0x0190, f02=» ***** 2 P********************************************* * P ` 2 P* READ CONFIGURATION FILE & BUILD * l 2 P* SHADOW-TABLES * 2 P* *
0x71088…7121c Dummy {f00=0x00dd, 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
0x7121c…713b0 Dummy {f00=0x00dd, 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
0x713b0…71544 Dummy {f00=0x00dd, 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
0x71544…716d8 Dummy {f00=0x00dd, 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
0x716d8…7186c Dummy {f00=0x00dd, 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
0x7186c…71a00 Dummy {f00=0x00dd, 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
0x71a00…71b94 (0, 144) Dummy {f00=0x00dd, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x71b94…71d28 Dummy {f00=0x00dd, 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
0x71d28…71ebc Dummy {f00=0x00dd, 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
0x71ebc…72050 Dummy {f00=0x00dd, 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
0x72050…721e4 Dummy {f00=0x00dd, 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
0x721e4…72378 Dummy {f00=0x00dd, 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
0x72378…7250c Dummy {f00=0x00dd, 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(
0x7250c…726a0 Dummy {f00=0x00dd, 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
0x726a0…72834 (0, 145) Dummy {f00=0x00dd, 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
0x72834…729c8 Dummy {f00=0x00dd, 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:
0x729c8…72b5c Dummy {f00=0x00dd, 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
0x72b5c…72cf0 Dummy {f00=0x00dd, 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
0x72cf0…72e84 Dummy {f00=0x00dd, 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
0x72e84…73018 Dummy {f00=0x00dd, 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
0x73018…731ac Dummy {f00=0x00dd, 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
0x731ac…73340 Dummy {f00=0x00dd, 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
0x73340…734d4 (0, 146) Dummy {f00=0x00dd, 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 .
0x734d4…73668 Dummy {f00=0x00dd, 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)
0x73668…737fc Dummy {f00=0x00dd, 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
0x737fc…73990 Dummy {f00=0x00dd, 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
0x73990…73b24 Dummy {f00=0x00dd, 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********
0x73b24…73cb8 Dummy {f00=0x00dd, 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
0x73cb8…73e4c Dummy {f00=0x00dd, 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:
0x73e4c…73fe0 Dummy {f00=0x00dd, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x73fe0…74174 (0, 147) Dummy {f00=0x00de, 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*
0x74174…74308 Dummy {f00=0x00de, 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
0x74308…7449c Dummy {f00=0x00de, 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
0x7449c…74630 Dummy {f00=0x00de, 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
0x74630…747c4 Dummy {f00=0x00de, 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
0x747c4…74958 Dummy {f00=0x00de, 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
0x74958…74aec Dummy {f00=0x00de, 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 * ,
0x74aec…74c80 Dummy {f00=0x00de, 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
0x74c80…74e14 (0, 148) Dummy {f00=0x00de, 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
0x74e14…74fa8 Dummy {f00=0x00de, 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 (
0x74fa8…7513c Dummy {f00=0x00de, 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
0x7513c…752d0 Dummy {f00=0x00de, 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
0x752d0…75464 Dummy {f00=0x00de, 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
0x75464…755f8 Dummy {f00=0x00de, 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
0x755f8…7578c Dummy {f00=0x00de, 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
0x7578c…75920 Dummy {f00=0x00de, 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
0x75920…75ab4 (0, 149) Dummy {f00=0x00de, 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
0x75ab4…75c48 Dummy {f00=0x00de, 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
0x75c48…75ddc Dummy {f00=0x00de, 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
0x75ddc…75f70 Dummy {f00=0x00de, 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
0x75f70…76104 Dummy {f00=0x00de, 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 :
0x76104…76298 Dummy {f00=0x00de, 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
0x76298…7642c Dummy {f00=0x00de, 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
0x7642c…765c0 Dummy {f00=0x00de, 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
0x765c0…76754 (0, 150) Dummy {f00=0x00de, 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
0x76754…768e8 Dummy {f00=0x00de, 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
0x768e8…76a7c Dummy {f00=0x00de, 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
0x76a7c…76c10 Dummy {f00=0x00de, 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,
0x76c10…76da4 Dummy {f00=0x00de, 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
0x76da4…76f38 Dummy {f00=0x00de, 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
0x76f38…770cc Dummy {f00=0x00de, 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
0x770cc…77260 Dummy {f00=0x00de, 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
0x77260…773f4 (0, 151) Dummy {f00=0x00df, 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
0x773f4…77588 Dummy {f00=0x00df, 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
0x77588…7771c Dummy {f00=0x00df, f01=0x0190, f02=»!& &01&02&03&04FEJL BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION @ B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-a~b ~ d c ) PAPIRINDSTILLING OK ? G d`X ! _} a `
0x7771c…778b0 Dummy {f00=0x00df, f01=0x0190, f02=» ha T A%_ } ha T^fa a p I" t g 8 p ! a pT<fa D!W8 {h $ da g? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 ) d & j } F W ?
0x778b0…77a44 Dummy {f00=0x00df, f01=0x0190, f02=»!& &01&02&03&04FEJL BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION @ B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-a~b ~ d c ) PAPIRINDSTILLING OK ? G d`X ! _} a `
0x77a44…77bd8 Dummy {f00=0x00df, f01=0x0190, f02=» ha T A%_ } ha T^fa a p I" t g 8 p ! a pT<fa D!W8 {h $ da g? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 ) d & j } F W ?
0x77bd8…77d6c Dummy {f00=0x00df, f01=0x0190, f02=»!& &01&02&03&04FEJL BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION @ B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-a~b ~ d c ) PAPIRINDSTILLING OK ? G d`X ! _} a `
0x77d6c…77f00 Dummy {f00=0x00df, f01=0x0190, f02=» ha T A%_ } ha T^fa a p I" t g 8 p ! a pT<fa D!W8 {h $ da g? I" ? I" ? @ @ 4 @ A 4 @ A @ 4 ) d & j } F W ?
0x77f00…78094 (0, 152) Opaque[0x194]
0x78094…78228 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14f8, f03=0x0000}
0x78094…78228 IdxSect {
0x78094…78228 f00 = 0x00a7 // 0x78094 @0x0
0x78094…78228 f01 = 0x000c // 0x78096 @0x2
0x78094…78228 gno = [ // 0x78098 @0x4
0x78094…78228 [0x00]: C0x00a7.0x3.0
0x78094…78228 [0x01]: C0x00a8.0x0.0
0x78094…78228 [0x02]: C0x00a8.0x1.0
0x78094…78228 [0x03]: C0x00a8.0x2.0
0x78094…78228 [0x04]: C0x00a8.0x3.0
0x78094…78228 [0x05]: C0x00a9.0x0.0
0x78094…78228 ]
0x78094…78228 }
0x78228…783bc Dummy {f00=0x00a7, 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**************************************************
0x783bc…78550 Dummy {f00=0x00a7, 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
0x78550…786e4 Dummy {f00=0x00a7, 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:
0x786e4…78878 Dummy {f00=0x00a7, 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
0x78878…78a0c Dummy {f00=0x00a7, 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
0x78a0c…78ba0 Dummy {f00=0x00a7, 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
0x78ba0…78d34 (0, 153) Dummy {f00=0x00a8, 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*
0x78d34…78ec8 Dummy {f00=0x00a8, 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
0x78ec8…7905c Dummy {f00=0x00a8, 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
0x7905c…791f0 Dummy {f00=0x00a8, 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
0x791f0…79384 Dummy {f00=0x00a8, 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
0x79384…79518 Dummy {f00=0x00a8, 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
0x79518…796ac Dummy {f00=0x00a8, 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
0x796ac…79840 Dummy {f00=0x00a8, 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
0x79840…799d4 (0, 154) Dummy {f00=0x00a8, 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)
0x799d4…79b68 Dummy {f00=0x00a8, 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
0x79b68…79cfc Dummy {f00=0x00a8, 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
0x79cfc…79e90 Dummy {f00=0x00a8, 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)
0x79e90…7a024 Dummy {f00=0x00a8, 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*
0x7a024…7a1b8 Dummy {f00=0x00a8, 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
0x7a1b8…7a34c Dummy {f00=0x00a8, 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
0x7a34c…7a4e0 Dummy {f00=0x00a8, 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
0x7a4e0…7a674 (0, 155) Dummy {f00=0x00a8, 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
0x7a674…7a808 Dummy {f00=0x00a8, 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
0x7a808…7a99c Dummy {f00=0x00a8, 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
0x7a99c…7ab30 Dummy {f00=0x00a8, 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,
0x7ab30…7acc4 Dummy {f00=0x00a8, 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
0x7acc4…7ae58 Dummy {f00=0x00a8, 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*
0x7ae58…7afec Dummy {f00=0x00a8, 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
0x7afec…7b180 Dummy {f00=0x00a8, 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
0x7b180…7b314 (0, 156) Dummy {f00=0x00a8, 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
0x7b314…7b4a8 Dummy {f00=0x00a8, 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
0x7b4a8…7b63c Dummy {f00=0x00a8, 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
0x7b63c…7b7d0 Dummy {f00=0x00a8, 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
0x7b7d0…7b964 Dummy {f00=0x00a8, 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 "
0x7b964…7baf8 Dummy {f00=0x00a8, 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*
0x7baf8…7bc8c Dummy {f00=0x00a8, 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
0x7bc8c…7be20 Dummy {f00=0x00a8, 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
0x7be20…7bfb4 (0, 157) Dummy {f00=0x00a9, 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 &
0x7bfb4…7c148 Dummy {f00=0x00a9, 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
0x7c148…7c2dc Dummy {f00=0x00a9, 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
0x7c2dc…7c470 Dummy {f00=0x00a9, 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*
0x7c470…7c604 Dummy {f00=0x00a9, 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
0x7c604…7c798 Dummy {f00=0x00a9, 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**************
0x7c798…7c92c Dummy {f00=0x00a9, 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 , *
0x7c92c…7cac0 Dummy {f00=0x00a9, 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
0x7cac0…7cc54 (0, 158) Opaque[0x194]
0x7cc54…7cde8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c68, f03=0x0000}
0x7cc54…7cde8 IdxSect {
0x7cc54…7cde8 f00 = 0x00e3 // 0x7cc54 @0x0
0x7cc54…7cde8 f01 = 0x0002 // 0x7cc56 @0x2
0x7cc54…7cde8 gno = [ // 0x7cc58 @0x4
0x7cc54…7cde8 [0x00]: C0x00e3.0x1.0
0x7cc54…7cde8 ]
0x7cc54…7cde8 }
0x7cde8…7cf7c Dummy {f00=0x00e3, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.2 80-11-20 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
0x7cf7c…7d110 Dummy {f00=0x00e3, f01=0x0190, f02=» l P* P EXTRN FDON LINE PRINTER P EXTRN FDON2 FLOPPYDISK 2 NJ 2 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION V $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA SOPR P* P DATA CHLTON P*
0x7d110…7d2a4 Dummy {f00=0x00e3, f01=0x4008, f02=»@ * P EXTRN FDON LINE PRINTER P EXTRN FDON2 FLOPPYDISK 2 NJ 2 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION V $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA SOPR P* P DATA CHLTON P*
0x7d2a4…7d438 Dummy {f00=0x00e3, 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
0x7d438…7d5cc Dummy {f00=0x00e3, f01=0x0190, f02=» SCTMMC SCTLACL SCTMMP 2 SCTLAP F SCTNPE Z SCTSTB n SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x7d5cc…7d760 Dummy {f00=0x00e3, f01=0x4050, f02=» _ :@ L F SCTNPE Z SCTSTB n SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x7d760…7d8f4 (0, 159) Opaque[0x194]
0x7d8f4…7da88 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20c0, f03=0x0000}
0x7d8f4…7da88 IdxSect {
0x7d8f4…7da88 f00 = 0x0106 // 0x7d8f4 @0x0
0x7d8f4…7da88 f01 = 0x0004 // 0x7d8f6 @0x2
0x7d8f4…7da88 gno = [ // 0x7d8f8 @0x4
0x7d8f4…7da88 [0x00]: C0x0106.0x0.0
0x7d8f4…7da88 [0x01]: C0x0106.0x1.0
0x7d8f4…7da88 ]
0x7d8f4…7da88 }
0x7da88…7dc1c Dummy {f00=0x0106, 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
0x7dc1c…7ddb0 Dummy {f00=0x0106, f01=0x018e, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION $ P EXTRN
0x7ddb0…7df44 Dummy {f00=0x0106, f01=0x0190, f02=» P EXTRN IXTASS " P EXTRN TCHPAG CHANGE MMU PAGE " P EXTRN TCHMMU CHANGE MMU TABLE @ P EJECT f P* t $ PLKMAL DATA LKMALE-* TABLE LENGTH ~ P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P
0x7df44…7e0d8 Dummy {f00=0x0106, f01=0x018e, f02=» $ P DATA TLUSEG LOCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x7e0d8…7e26c Dummy {f00=0x0106, f01=0x4036, f02=» p PLKMALE EQU * P* P END &@ 2EG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x7e26c…7e400 Dummy {f00=0x0106, 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
0x7e400…7e594 (0, 160) Dummy {f00=0x0106, 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* +
0x7e594…7e728 Dummy {f00=0x0106, 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
0x7e728…7e8bc Dummy {f00=0x0106, 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
0x7e8bc…7ea50 Dummy {f00=0x0106, 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
0x7ea50…7ebe4 Dummy {f00=0x0106, 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
0x7ebe4…7ed78 Dummy {f00=0x0106, 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
0x7ed78…7ef0c Dummy {f00=0x0106, 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
0x7ef0c…7f0a0 Dummy {f00=0x0106, 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
0x7f0a0…7f234 (0, 161) Opaque[0x194]
0x7f234…7f3c8 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1818, f03=0x0000}
0x7f234…7f3c8 IdxSect {
0x7f234…7f3c8 f00 = 0x00c0 // 0x7f234 @0x0
0x7f234…7f3c8 f01 = 0x0002 // 0x7f236 @0x2
0x7f234…7f3c8 gno = [ // 0x7f238 @0x4
0x7f234…7f3c8 [0x00]: C0x00c0.0x3.0
0x7f234…7f3c8 ]
0x7f234…7f3c8 }
0x7f3c8…7f55c Dummy {f00=0x00c0, 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
0x7f55c…7f6f0 Dummy {f00=0x00c0, 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
0x7f6f0…7f884 Dummy {f00=0x00c0, 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 @
0x7f884…7fa18 Dummy {f00=0x00c0, 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
0x7fa18…7fbac Dummy {f00=0x00c0, 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
0x7fbac…7fd40 Dummy {f00=0x00c0, 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
0x7fd40…7fed4 (0, 162) Opaque[0x194]
0x7fed4…80068 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f60, f03=0x0000}
0x7fed4…80068 IdxSect {
0x7fed4…80068 f00 = 0x00fb // 0x7fed4 @0x0
0x7fed4…80068 f01 = 0x0002 // 0x7fed6 @0x2
0x7fed4…80068 gno = [ // 0x7fed8 @0x4
0x7fed4…80068 [0x00]: C0x00fb.0x0.0
0x7fed4…80068 ]
0x7fed4…80068 }
0x80068…801fc Dummy {f00=0x00fb, 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
0x801fc…80390 Dummy {f00=0x00fb, 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
0x80390…80524 Dummy {f00=0x00fb, 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
0x80524…806b8 Dummy {f00=0x00fb, f01=0x409a, f02=»0,0,0 P IFT MMUPAG=1 PDEVECB EQU * $ P DATA 0,0,0,0,0,0 8 P DATA R P XIF ` PDWTEND EQU * l P* P END @ DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x806b8…8084c Dummy {f00=0x00fb, 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
0x8084c…809e0 Dummy {f00=0x00fb, 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
0x809e0…80b74 (0, 163) Opaque[0x194]
0x80b74…80d08 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1538, f03=0x0000}
0x80b74…80d08 IdxSect {
0x80b74…80d08 f00 = 0x00a9 // 0x80b74 @0x0
0x80b74…80d08 f01 = 0x0002 // 0x80b76 @0x2
0x80b74…80d08 gno = [ // 0x80b78 @0x4
0x80b74…80d08 [0x00]: C0x00a9.0x3.0
0x80b74…80d08 ]
0x80b74…80d08 }
0x80d08…80e9c Dummy {f00=0x00a9, f01=0x0190, f02=» 0 P IDENT DVTTP REL 9.2 79-11-16 870105040920 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x80e9c…81030 Dummy {f00=0x00a9, f01=0x0190, f02=»ATA 0 ECB ADDRESS P DATA DWTEND-DVTTP ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK : P DATA 'TP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x81030…811c4 Dummy {f00=0x00a9, f01=0x40ec, f02=»ATA 0,0,0,0 STACK P DATA 0 TIMER POINTER ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER 8 P IFT MMUPAG=1 d PDEVECB EQU * z P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ VE AREA USER ECB ADDRESS
0x811c4…81358 Dummy {f00=0x00a9, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x81358…814ec Dummy {f00=0x00a9, f01=0x0190, f02=»EQUEST ERROR + P SUK A2,18 , P ABL(P) FD:DIS REQUEST ERROR , & P ADK A2,25 , J P SLL A2,3 BIO , P LDK A3,80 LENGTH , r P LDKL A4,BUF , P CF A5,FD:REA , P LDR A1,A3 RETURN CODE , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 N
0x814ec…81680 Dummy {f00=0x00a9, f01=0x0190, f02=»,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS - " P CF A5,STDWT SAVE IN DWT - 8 P ADK A4,BOE BOE ADDRESS - X . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - x P LDK A1,DWTBOE - $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - P LDK A1,DW
0x81680…81814 (0, 164) Opaque[0x194]
0x81814…819a8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1540, f03=0x0000}
0x81814…819a8 IdxSect {
0x81814…819a8 f00 = 0x00aa // 0x81814 @0x0
0x81814…819a8 f01 = 0x0002 // 0x81816 @0x2
0x81814…819a8 gno = [ // 0x81818 @0x4
0x81814…819a8 [0x00]: C0x00aa.0x0.0
0x81814…819a8 ]
0x81814…819a8 }
0x819a8…81b3c Dummy {f00=0x00aa, 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
0x81b3c…81cd0 Dummy {f00=0x00aa, 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
0x81cd0…81e64 Dummy {f00=0x00aa, 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
0x81e64…81ff8 Dummy {f00=0x00aa, 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
0x81ff8…8218c Dummy {f00=0x00aa, 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* *
0x8218c…82320 Dummy {f00=0x00aa, 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
0x82320…824b4 (0, 165) Opaque[0x194]
0x824b4…82648 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1678, f03=0x0000}
0x824b4…82648 IdxSect {
0x824b4…82648 f00 = 0x00b3 // 0x824b4 @0x0
0x824b4…82648 f01 = 0x0002 // 0x824b6 @0x2
0x824b4…82648 gno = [ // 0x824b8 @0x4
0x824b4…82648 [0x00]: C0x00b3.0x3.0
0x824b4…82648 ]
0x824b4…82648 }
0x82648…827dc Dummy {f00=0x00b3, f01=0x0190, f02=» 2 P IDENT DWII01 REL 9.2 79-11-16 870105040920 P : P* B P* L ( P* INTERTASK COMMUNICATION INPUT DWT V P* P ENTRY DWII01 TABLE ENTRY P P EXTRN ITAD DRIVER ENTRY & P EXTRN IT:BUF INTERTASK MMU BUFFER PMMUPAG E
0x827dc…82970 Dummy {f00=0x00b3, f01=0x0190, f02=»I01 ORDER " P DATA ITAD+1 ACTIVATION ENTRY P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA ITECB MMU ECB ADDRESS P XIF
0x82970…82b04 Dummy {f00=0x00b3, f01=0x40e8, f02=» p P DATA 0,0 SAVE AREA P* $ P IFT MMUPAG=1 . PITECB EQU * MMU ECB D P DATA 0 ` P DATA IT:BUF p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P* P* P END @ U ECB ADDRESS P XIF
0x82b04…82c98 Dummy {f00=0x00b3, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x82c98…82e2c Dummy {f00=0x00b3, 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
0x82e2c…82fc0 Dummy {f00=0x00b3, 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
0x82fc0…83154 (0, 166) Opaque[0x194]
0x83154…832e8 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x83154…832e8 IdxSect {
0x83154…832e8 f00 = 0x00aa // 0x83154 @0x0
0x83154…832e8 f01 = 0x0002 // 0x83156 @0x2
0x83154…832e8 gno = [ // 0x83158 @0x4
0x83154…832e8 [0x00]: C0x00aa.0x1.0
0x83154…832e8 ]
0x83154…832e8 }
0x832e8…8347c Dummy {f00=0x00aa, f01=0x0190, f02=» 2 P IDENT DWIO01 REL 9.2 79-11-16 870105040920 P : P* B P* L * P* INTERTASK COMMUNICATION OUTPUT DWT V P* P ENTRY DWIO01 TABLE ENTRY P P EXTRN ITAD DRIVER ENTRY & P EXTRN IT:BUF INTERTASK MMU BUFFER PMMUPAG
0x8347c…83610 Dummy {f00=0x00aa, f01=0x0190, f02=»WIO01 ORDER P DATA ITAD ACTIVATION ENTRY P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA ITECB MMU ECB ADDRESS P XIF
0x83610…837a4 Dummy {f00=0x00aa, f01=0x40e8, f02=» p P DATA 0,0 SAVE AREA P* $ P IFT MMUPAG=1 . PITECB EQU * MMU ECB D P DATA 0 ` P DATA IT:BUF p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P* P* P END @ U ECB ADDRESS P XIF
0x837a4…83938 Dummy {f00=0x00aa, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x83938…83acc Dummy {f00=0x00aa, f01=0x0190, f02=»RC-PROCESS TERMINAL 2 C z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 D & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 D H , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) D r $ P DATA 0 BLOCK SENDING INDICATOR D P XIF D P EJECT D $ P******************************** D
0x83acc…83c60 Dummy {f00=0x00aa, f01=0x018e, f02=»ANNEL NO. 2 D f " P* CONNECTED TO FOURTH CHRT E P* E : PCWTRT8 EQU * E D P* E X P IFT RECHAN=4 E b P DATA 0 LAST OUTPUT DWT E x P DATA 0 LAST OUTPUT WORD E P DATA INTRT4 INTERRUPT TABLE E P INR A2,0,DWA8 INR E P OTR A2,1,DWA8 OTR
0x83c60…83df4 (0, 167) Opaque[0x194]
0x83df4…83f88 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1550, f03=0x0000}
0x83df4…83f88 IdxSect {
0x83df4…83f88 f00 = 0x00aa // 0x83df4 @0x0
0x83df4…83f88 f01 = 0x0002 // 0x83df6 @0x2
0x83df4…83f88 gno = [ // 0x83df8 @0x4
0x83df4…83f88 [0x00]: C0x00aa.0x2.0
0x83df4…83f88 ]
0x83df4…83f88 }
0x83f88…8411c Dummy {f00=0x00aa, f01=0x0190, f02=» 2 P IDENT DW1501 REL 9.2 79-11-16 870105040920 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 0 P*
0x8411c…842b0 Dummy {f00=0x00aa, f01=0x0190, f02=»DRESS P DATA DWTEND-DW1501 P RIGHT BYTE=ORDER * * P DATA DC15AD 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
0x842b0…84444 Dummy {f00=0x00aa, f01=0x412a, f02=»ATA 0 STATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V " P DATA 0 REQUEST TIMEOUT VALUE t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDW
0x84444…845d8 Dummy {f00=0x00aa, f01=0x2008, f02=» ATUS 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*
0x845d8…8476c Dummy {f00=0x00aa, 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
0x8476c…84900 Dummy {f00=0x00aa, 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
0x84900…84a94 (0, 168) Opaque[0x194]
0x84a94…84c28 # DirEnt {nam=»M:92F3«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x12c8, f03=0x0000}
0x84a94…84c28 IdxSect {
0x84a94…84c28 f00 = 0x0096 // 0x84a94 @0x0
0x84a94…84c28 f01 = 0x0018 // 0x84a96 @0x2
0x84a94…84c28 gno = [ // 0x84a98 @0x4
0x84a94…84c28 [0x00]: C0x0096.0x1.0
0x84a94…84c28 [0x01]: C0x0097.0x0.0
0x84a94…84c28 [0x02]: C0x0098.0x2.0
0x84a94…84c28 [0x03]: C0x0098.0x3.0
0x84a94…84c28 [0x04]: C0x0099.0x0.0
0x84a94…84c28 [0x05]: C0x0099.0x1.0
0x84a94…84c28 [0x06]: C0x0099.0x2.0
0x84a94…84c28 [0x07]: C0x00a2.0x2.0
0x84a94…84c28 [0x08]: C0x00a2.0x3.0
0x84a94…84c28 [0x09]: C0x00a3.0x0.0
0x84a94…84c28 [0x0a]: C0x00a3.0x1.0
0x84a94…84c28 [0x0b]: C0x00b8.0x0.0
0x84a94…84c28 ]
0x84a94…84c28 }
0x84c28…84dbc Dummy {f00=0x0096, f01=0x0190, f02=»] X 4 $ ~ ~ c @ Tg t z ^ b bLPL H b2 Z ` z
0x84dbc…84f50 Dummy {f00=0x0096, 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 > B & ? ? ? ? ? ? ? @B > > U H ( ( P c P W~ T P> , T6 L Br M 0 - ABr
0x84f50…850e4 Dummy {f00=0x0096, f01=0x0190, f02=» A A Q > A L , A JQ _2 A J < Q D P D Q D Z Y _ 8 B Q Z P 0 9 _ ~ _, P H H #P A A Q @B ) AB _ A AB _ ? ? ? ? ? ^ A _
0x850e4…85278 Dummy {f00=0x0096, f01=0x0190, f02=» ~ 4 T - 1_( U T P 0 U _t ? @BpT 0 ABp 1 Q Q >W 0 @Bp 1 ABp P P W ? * X " R" Y T ? X D , T> ? W8 > _& @ 8 R" Y T ? X D , T ? W > _& W8 > 8 X W. ? ` @ @ P
0x85278…8540c Dummy {f00=0x0096, f01=0x0190, f02=» A. #M 1 C 8W T 8P Y ^ 5 ) P U B XH D #DP @ R XV Y @ P, , T W X "P T X I Y # C C '? Y , T Y W Y
0x8540c…855a0 Dummy {f00=0x0096, f01=0x0190, f02=» ^ R < 5 Y X D ( ) 1 > _" X 2 B , Y _ (@ X P& T D #DP 0P X T 4 Y X , X T X ? 1 1 X P> - M X P. P& # P 0P 1 _ 6W Y ~
0x855a0…85734 (0, 169) Dummy {f00=0x0097, f01=0x0190, f02=» A. #M 1 C 8W T 8P Y ^ 5 ) P U XH D #DP @ R XV Y @ P T W X "P T X I Y # C C '? Y T Y W Y
0x85734…858c8 Dummy {f00=0x0097, f01=0x0190, f02=» A ( @Bt BrX H ABt ) @ H P 1 % E I D >a @ <a H D W X C @ # C W C U> C R _$ d C # Y ' B ( B T :" U U F Br M 0 - ABr Q '
0x858c8…85a5c Dummy {f00=0x0097, f01=0x0190, f02=» > PZ PF P P 0 X T Y Wn U U T X^ T E B Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P > B Z X "X 8' T 8Z" X ' X (@ L P P "&
0x85a5c…85bf0 Dummy {f00=0x0097, f01=0x0190, f02=» Y Y Y Y v X v Y X X X X ' 4 B U B (" W C (@ > Y Y Y X 9BV$ X " Y X D V X b T 8TX 9WF B 7P P B AB W AB @B A.W A I.9 n X R
0x85bf0…85d84 Dummy {f00=0x0097, f01=0x0190, f02=» < Y T & b PX P( PP P< P@ 6 0 n + B ! * X ( X P ! x ! W< ! * _ ! * _& ! X ( X P n ! X ( X P B B ! ^ ! ! T Y &W X & ! # n & ! ! " 0 TOT 0 SST X
0x85d84…85f18 Dummy {f00=0x0097, f01=0x0190, f02=» :C P n ! 9DV ! (@ B j ! X ! J ! X b ! X ! Z ! X ( ! ! ` R ! X X Y * X & ! _ Y & n 4 ! @ PT C ! . ! ! &(@ ! @ R _ ! 1 ;h 1 ! 1 ! ` ! .* ! ! & ! @ ) ! Y &# T X Y *_ Y &# 4
0x85f18…860ac Dummy {f00=0x0097, f01=0x0190, f02=»WN WR ! @ Xz J ! J ( - b ! J ) W0 Y HW Y H Y D Y F Y Y rS W W B C B _ W j Y @ P@ @ R8 ! ! < Y * Y ( n ! @ ! N D n ) Y X T X Y Y X $P y $_ $ +j _ Y $
0x860ac…86240 Dummy {f00=0x0097, f01=0x0190, f02=» j(@ X D X F Y tP@ X HT $ D Y v Y Y x B Y z . E % Y Y x Y t X ;AR@;a X "P Y " P 7P < $ <C ! 9 4 X _ W B RZ X ( X P W P Q8 U _ T,: B R(' P Q 9BW
0x86240…863d4 (0, 170) Dummy {f00=0x0098, f01=0x0190, f02=» n ! ` 4 ! ;E :B 9A ! U P jW kQ 4 Y & ! ` 0" Z Y" P Z _ 4 Y r;D Y r 4 R _ ;H 4 j ! J (:C n 4 R ! J ( 4 X " 4 ! J ) 4 X P 4 y _ _ Y
0x863d4…86568 Dummy {f00=0x0098, f01=0x0190, f02=» B K C B K B K C B K F l" ( l" Q 9BW
0x86568…866fc Dummy {f00=0x0098, f01=0x0190, f02=» 9 B Y B Y " P8 @)P ) B @)R `)R @)RP 0P _ % A)P A)T Y _| ^ _ X P 0 Y P C _ :_ B ! P Y _H X ! X _ B Y _b B X P A L +h T Y Wb Y @_ X X A p +h x Y _& Y @
0x866fc…86890 Dummy {f00=0x0098, f01=0x0190, f02=» _$ (P _ ) 1 4 " X R2 X T* X P& , Y L C L C > @ @ @ A X _" X P y Y X P T @ T A A > A A A A A W > BHBB
0x86890…86a24 Dummy {f00=0x0098, f01=0x0190, f02=» A P " f !!N _ !!N T " " X !!4_ !" A @ P @ P ! A A _ !" @ P @" X@ ! R T< A ! @ P @" P @ 8 ! L ! A _: !!4 X6_Z A @" @ T 1 R 0 2P P P A @ 8 H* @" P E " P^ X RX X
0x86a24…86bb8 Dummy {f00=0x0098, f01=0x0190, f02=» X ! X ! WB A @ X A A A @ A !" @ T @ P ! !" @ T @ X Wx A I +h j B @ @ @ @ A !" @ XV !!4 T @ P ! !! _p /T, @ X @ P @ T0 ! ! A _ A B A @ T
0x86bb8…86d4c Dummy {f00=0x0098, f01=0x0190, f02=» A 4 @ P ! !! !! @ P ! J !! A @ T ! _ T _ A B B A A A A A ! @ !! A _R @ | !! X ! t X Zd X Xd Xh_r @ P6 X R0 X P T$ T Y W P C A A 4 @" @ T @ A
0x86d4c…86ee0 Dummy {f00=0x0098, f01=0x0190, f02=» _$ !"` 2_l / A T W ,W A A W W W A A ! @ !!< @ !!< !!* !!* B J 4 ! !! @ @ A @ T( @" !!< 8 !!< @ P - !!< x !( W 0 " @ PL R ~T }T T0 W, !!< P " ! " :A *@ H) T 0 !!<
0x86ee0…87074 (0, 171) Dummy {f00=0x0098, f01=0x0190, f02=» ! !! % !!< R !!< !! @" !!< 8 !!< X ! 9a D !!< X ! P ! T & !!<_b B J B !!4 !! 4 A J T A T 2PZ !"* H) 4 ! A _ I " P A " A 4 A _$" P H* B P W !"* B _ !!4 ! 1 4 A!L @)R `
0x87074…87208 Dummy {f00=0x0098, f01=0x0190, f02=» a 4 +h! X A > +h! Z A 4 A " !! @ P ! !! @ P a A 4 A"Z A" A"^ ?a :a# P @"Z @" @"^ 4 8 ! A !!4 " !!4 A @" :H 4 " % ! P " ! " :A *@ H T 0 !
0x87208…8739c Dummy {f00=0x0098, f01=0x0190, f02=» ! ! % ! R ! ! @ ! 8 ! X ! 9a D ! X ! P ! T & ! _b B J B ! ! 4 A J T A T 2P ! H 4 ! A _ I " P A " A 4 A _$" P H B P W ! _ !!4 ! 1 4 A!L @ `
0x8739c…87530 Dummy {f00=0x0098, f01=0x0190, f02=» a 4 ! X A > Z A 4 A " !! @ P ! !! @ P a A 4 A A A ?a :a# P @ @ @ 4 8 ! A !!4 " !!4 A @" :H 4 " % ! P " ! " :A *@ H T 0 !
0x87530…876c4 Dummy {f00=0x0098, f01=0x0190, f02=» ! ! % ! R ! ! @ ! 8 ! X ! 9a D ! X ! P ! T & ! _b B J B ! ! 4 A J T A T 2P ! H 4 ! A _ I " P A " A 4 A _$" P H B P W ! _ !!4 ! 1 4 A!L @ `
0x876c4…87858 Dummy {f00=0x0098, f01=0x0190, f02=» a 4 ! X A > Z A 4 A " !! @ P ! !! @ P a A 4 A A A ?a :a# P @ @ @ 4 8 ! A !!4 " !!4 A @" :H 4 " % ! P " ! " :A *@ H T 0 !
0x87858…879ec Dummy {f00=0x0098, f01=0x0190, f02=»&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '=")V)T ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&j
0x879ec…87b80 Dummy {f00=0x0098, f01=0x0190, f02=» 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T +* +h+T B ^ +N +h+X _ >_< ^ 4 _ @ 1 A _
0x87b80…87d14 (0, 172) Dummy {f00=0x0099, f01=0x0190, f02=» W T T T T T T > & C C C C + D R + RD R R T T Q R -F-F. . . . . .<.<- -^- - - . . - .<.<- -n" # $ % "$&( , ,Z @ D X P _ L !##P P @ R $P U ' U _ (@(@ I, P ^
0x87d14…87ea8 Dummy {f00=0x0099, f01=0x0190, f02=» @ C P C W < C C _H @ H H S W C C B B B U @ R WJ X [ X T E T F > P C X E X F S W C C W, B B Y ER Q X FU C '? T W6 @ T.(@(@ P #D ^ T /
0x87ea8…8803c Dummy {f00=0x0099, f01=0x0190, f02=» R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X " F $ P / W $ P $ - . : B ( H > / X "Pj D ZV" D "? P P &P E Z A V, P ( / ( ( W / AL 3 B W
0x8803c…881d0 Dummy {f00=0x0099, f01=0x0190, f02=» P T _ Y " F (@ _ 2^ X " X E U X F U ( AL T$ X X NP F /" T 3 P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF @H J 4 5W P 0 @< 1 A< (@_
0x881d0…88364 Dummy {f00=0x0099, f01=0x0190, f02=» 1 ' 1 5 1 4 8 W , P& ,' X X - Z" ) 1 _ (@ C A 1 ( B ! 3 1 @. F U G F G /Z 3 " $ F " F +P P* X $ T @ U W @ R PB $P<W 3 X $ X " F $ P / W $ P
0x88364…884f8 Dummy {f00=0x0099, f01=0x0190, f02=» P P( $ P" @ I I K K P P & P @HW D $ T @ T @,W E E E F X ZV ? T B (@( Sx B B P ! Tn M 7P : 3 AS AS " P SB "" S P 7P Sx @SD (@ DSF C C
0x884f8…8868c Dummy {f00=0x0099, f01=0x0190, f02=» 7P B DSF ESHX #D( 4(( B B @SD DSF W C C ( 3 3 Sr SB @S T ASv 0" 6 6 U _ L !SSP !LL 6 W L @SN ASNV 7P P ESP @SD ESR P ES` P ESb DSPT SpP 7P
0x8868c…88820 Dummy {f00=0x0099, f01=0x0190, f02=» , S E 3 P S E P S F P S $ P S & P % S D P & S L @Sv S ( B | 5 4 @SNT W SpT Wz @S P R $ >a U Wb , =b PSPP @SN ! T. W< PSR DSF Y PS` Y PSb Y U ! T ! X6 _R _V DS " P
0x88820…889b4 (0, 173) Dummy {f00=0x0099, f01=0x0190, f02=»S (@( @S 7 _ P `SB ` 9A S Z D $X D S * S A R & S W S [ S R $ R & >^ S ^ 7v U _ L !SSP !LL W L @ A V P E @ E P E P E D T P
0x889b4…88b48 Dummy {f00=0x0099, f01=0x0190, f02=» , S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 5 4 @ T W T W @ P R $ >a U W , =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P
0x88b48…88cdc Dummy {f00=0x0099, f01=0x0190, f02=» (@( @ 7 _ P ` ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ 7v U _ L !SSP !LL W L @ A V P E @ E P E P E D T P
0x88cdc…88e70 Dummy {f00=0x0099, f01=0x0190, f02=» , S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 5 4 @ T W T W @ P R $ >a U W , =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P
0x88e70…89004 Dummy {f00=0x0099, f01=0x0190, f02=» (@( @ 7 _ P ` ` 9A S Z D $X D S * S > Q S W S Q R S P W S _ R _ ;A [ [ : T PT PJV P>V SH? V :!9 V @ P R
0x89004…89198 Dummy {f00=0x0099, f01=0x0190, f02=» R Z _ P*R R P ;A [ [ : V X"Z(_( L _P ? ? !? P P !> P W 9P _ T !##P> ? R4 L PX P L P 4 M X M M _8 > D HW 0P Q P P E 'P W : X
0x89198…8932c Dummy {f00=0x0099, f01=0x0190, f02=» I W6 @< T ( A< U 1_ D ' I D J ) E J : T & > SP P W X & , U U. _ Y * R P Y P X $ _ W Y " : B P6 T G W& X Z Y Z B I ~ B T B : X "? P
0x8932c…894c0 Dummy {f00=0x0099, f01=0x0190, f02=» _ D * D D & >^ T $ T " ^ S W : T !v R ]B ] P,DvGvJ > > > > > > > > @B AB W ^ ! Z6 B (X> @B P T M ]N , ) L P $R X_, AB Pj P Y U ( ) 5 & > >
0x894c0…89654 (0, 174) Dummy {f00=0x0099, f01=0x0190, f02=» U Z Z ? ? Z Z Z Z Z Z Z " $ & > P "R Y W B ^ Pl T Pb >_ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ D F D~ X V Y B ! f
0x89654…897e8 Dummy {f00=0x0099, f01=0x0190, f02=» Y B P T B % X * $ 4 T % W X (T ! 8 P W GF Y * V G8 ! B _T B P $$ R % C G8WV Y &X !Fz 8$ P W 8$ P $ T W $ Y 'PX Y %P Y $P T G8 ! B Z W G8W !Fz* T ! X P y Y C ! B
0x897e8…8997c Dummy {f00=0x0099, f01=0x0190, f02=» T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $ , X R ;GV X P y R X ( $4 P GF X *T * W Y ( - B Y X Z @_8 B 1 " W TT , (@ > G I J !"&';<>@^_
0x8997c…89b10 Dummy {f00=0x0099, f01=0x0190, f02=»W Q P X " V T Y "W G^ X ! T6 B R0Q$ B D ! V ! ( ! ( ! (W !J !H Y ! ( T ! ( V G ! ( B C ! ( ! ( T " T W Q " T ) B !J Gh Y _ ! ( !J` Y "P Q W ! ( Y #" J _" Gb_< !JT_n !J _t B
0x89b10…89ca4 Dummy {f00=0x0099, f01=0x0190, f02=»R: M T2 ! ( L ,! :D" !JH Y Y U ! (_$ W4 , ! T ,' G~ ! R !__U C X ' W Y ! ( _ X RV U TL R X H Y X P ! ( Y # ! ( X T ! ( B G B R _ 4 ! ( ! ( ! (" T ! ( ! (
0x89ca4…89e38 Dummy {f00=0x0099, f01=0x0190, f02=» P P M & L B B P B H " +P P. T Y # ! ( R X $ Y "R Y " _ Y "_. 8$ T B 1 OV ! ( N B B U4 $ ! T _ U D ! T _ $$ X" X& X* C z M X`" EJ P( 8'0P EJ TJ ! T 9 _ !
0x89e38…89fcc Dummy {f00=0x0099, f01=0x0190, f02=» ! ( Y B ! ( Y _` C _ z z" $ P X # X ] ! ( N K B 8! T !P !O ! ( M !P R ! (_ B !P V Z, ! (_ 8! T B Y " !O W B Y $U X $ X " R P ! ( W Y "_ Y " B Y %U X % T T
0x89fcc…8a160 Dummy {f00=0x0099, f01=0x0190, f02=»N ! ( T Y " T X " C B X Y " Y > X " X "" Y %Q Y > X Z2<BR J R Y 8" P ! ( ! ( T> 8" P d ! ( Y ! ( *0 ! ( X ! ( Y " Z M T _ ! ( X $ P !O K R V P P" ! ( N W N
0x8a160…8a2f4 (0, 175) Dummy {f00=0x00a2, f01=0x0190, f02=» Y 4 B Kf U )X R@ X X "" Y & X % V Y !O X $ X " !O X & K Kf `R Y ! ( ! ( ! ( 4 ! ( V ! ( V W :h ! ( 4 X %" X ## R 4 N > P4Qt P Q< P P .T B Y Wd B
0x8a2f4…8a488 Dummy {f00=0x00a2, f01=0x0190, f02=»P P R: AP +jQb Y X T Q (P H U ^ 9 1_N B X T @P2P ( AP2 Q _ ( Y _ P0_x X T @P0P ( AP0 Q _ ( Y _ P2_ i Qz 9 @_ Q H P0P P2P $ $ 1 )W ) $P e % (@ B Z F U F Z
0x8a488…8a61c Dummy {f00=0x00a2, f01=0x0190, f02=» %_B "RT PL X TF X R@? V X " X H P X P Y X H P H < ? < ? <(@ S C # P >_ < U = H (@ " B S* P ?_ = > = > = =_: R _ 00 > & <h$ P >
0x8a61c…8a7b0 Dummy {f00=0x00a2, f01=0x0190, f02=» AS> AS< @S@ U : AS AS :A ASD ] , ` R @ U P. ,% T& Sx C ( B P T W ' T| ISF @ 8 =hP Y X Pl ,T< Y HSF! R W 9a ISF T T 9a HSG ES ^ W P ,! T T ( ]" : #
0x8a7b0…8a944 Dummy {f00=0x00a2, f01=0x0190, f02=»S@ P ( )W @ 0 R % "V E T D AS _" P @S@ P ( )W @ 0 Rb ' F "R G S @SD DSF #D ^ T G W, AS 4( "R AS ASp > B S U W R _ 00 > & <h$ P >
0x8a944…8aad8 Dummy {f00=0x00a2, f01=0x0190, f02=» AS> AS< @S@ U : AS AS :A ASD , ` R @ U P ,% T Sx C ( B P T W ' T ISF @ 8 =hP Y X P ,T Y HSF! R W 9a ISF T T 9a HSG ES ^ W P ,! T T ( YB #
0x8aad8…8ac6c Dummy {f00=0x00a2, f01=0x0190, f02=»S@ P ( )W @ 0 R % "V E T D AS _" P @S@ P ( )W @ 0 Rb ' F "R G S @SD DSF #D ^ T G W, AS 4( "R AS ASp > B S R _ 00 > & <h$ P >
0x8ac6c…8ae00 Dummy {f00=0x00a2, f01=0x0190, f02=» AS> AS< @S@ U : AS AS :A ASD , ` R @ U P ,% T Sx C ( B P T W ' T ISF @ 8 =hP Y X P ,T Y HSF! R W 9a ISF T T 9a HSG ES ^ W P ,! T T ( #
0x8ae00…8af94 (0, 176) Dummy {f00=0x00a2, f01=0x0190, f02=»S@ P ( )W @ 0 R % "V E T D AS _" P @S@ P ( )W @ 0 Rb ' F "R G S @SD DSF #D ^ T G W, AS 4( "R AS ASp > B S R _ 00 > & <h$ P >
0x8af94…8b128 Dummy {f00=0x00a2, f01=0x0190, f02=» @U , L T L PF L T M Q M L V L AU @U : T @U [ [ M M M AU -(@ : - : @U , L T M @U : =a 9a Q - _ - > @ PJ ` 8 < ]" < A< = ]" @U , - M M M @U AS< A
0x8b128…8b2bc Dummy {f00=0x00a2, f01=0x0190, f02=» $P _ % A @ " Q A ] : R W2 A c| Af* c| P. c8_ " :c* A d* d`W " :d2 * A c c & W F ` W F W F CRT F A @ @ ! P2 @ P g";b=H F CR _ F _ W =J F CRTT F PN A @ $
0x8b2bc…8b450 Dummy {f00=0x00a2, f01=0x0190, f02=» ` g Y P @ T W - g P _ T <B :L A W A A W g T F W V g" = V W Y* P Z( = :L < P W
0x8b450…8b5e4 Dummy {f00=0x00a2, f01=0x0190, f02=» P _ @ ! P fP !RRP V @ P W _: fP fP f V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W c| c| P c8 c| TJ V 0 !;;P P V P$
0x8b5e4…8b778 Dummy {f00=0x00a2, f01=0x0190, f02=» 0 !;;P P V Xb _ P !;;T X$ W g2 nP XZ_V S Ad Ae% d @ R @ ! T Adz Ad V @ R V V I g2 W V $ ) H A I. : ct C. c0 X C.9h! ct ct# " ct
0x8b778…8b90c Dummy {f00=0x00a2, f01=0x0190, f02=»c Ad Ad : 9e9C) A I " 9A ! 9B r @] r A I ! ( : d` Af* Ab Ad Ad Adz! T Ad~ Adz I ! : 9E @] r s A I T ) A _ I N T : g" d d 9PJ S Y T@ $ 1T: C !CCTt
0x8b90c…8baa0 Dummy {f00=0x00a2, f01=0x0190, f02=»_ !SST& 0 U] R X A X W : @ ' R xW V W$ V P P f. W P V V T f. V T W P V W @ $ P p W g2 T : Ae f*_ 0V , - P X 9A_ : @ ! P (W ( :
0x8baa0…8bc34 (0, 177) Dummy {f00=0x00a3, f01=0x0190, f02=» W Z A. c @ V W U g" R $ )_ : V r i^V g" t i^Z W r _j V <B W : $ g^ w : V $ V
0x8bc34…8bdc8 Dummy {f00=0x00a3, f01=0x0190, f02=»i P g g W x g i _ V : t " D P W V Pv $;A^ D E D P. V g"P g" P T g" E _N T g^ E _ r i^V g" t_~ " V r D T E % g^ E : " R ;B D D g^ " P P R P |
0x8bdc8…8bf5c Dummy {f00=0x00a3, f01=0x0190, f02=» W ; V : : J @ 0 V @ g" 0 H W : ? ? R 0 R P P B > _ B : 4P0 " D i H H $ M v b - I Y& : @ ` V b pPL i j $ " = 4 Q jH_2
0x8bf5c…8c0f0 Dummy {f00=0x00a3, f01=0x0190, f02=»P P^ P PR_ _ @ V W U( P P( P V W U " @ Q @ P A. @ P _T A A @ .V 3 S Y& P4 Br Br S P 3 _ Br 3 Bt
0x8c0f0…8c284 Dummy {f00=0x00a3, f01=0x0190, f02=» n V pT : N V l W H V ]" . nT" g W v g W n V ~P m* W x g m in g _v V d , V g" P _ N L % V d V f G G U g G : i P g i V i : g g V ~P m* W x g _$ 8 V V x % V v
0x8c284…8c418 Dummy {f00=0x00a3, f01=0x0190, f02=» ) G ` " W p W ~ pP0 l R i P l i _ W ~ R i X4 l i _ ` W ~ pPV l R , i g^ " E R mr W ~ R mr R P n R X^ n _dW i T : g g W x g i _ V P i I W z ` pPJ h> " R
0x8c418…8c5ac Dummy {f00=0x00a3, f01=0x0190, f02=» ;h 0 :C # : .=H N o i .=H N o i N : d 8" R _ ZY QY : @ H W z W | CRP W ` ` H W d 2 @ i^R g" - @ - N !TTP g" N :H N TBT W W4 2
0x8c5ac…8c740 Dummy {f00=0x00a3, f01=0x0190, f02=» N R P V g" _ N S o S YB : v ` @ W W > W @ W D i V W W ` " W p @ pP* " 4X 1 R Z0 % _ W l a w ` :A W V d 4 W P 5 _ W
0x8c740…8c8d4 (0, 178) Dummy {f00=0x00a3, f01=0x0190, f02=» @ % ~~ V , P@ , - 4 ] 4 i^Y 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP g" } @ T g" Y o !TTX" A 9 A : @ @ P. @ " P #D s "
0x8c8d4…8ca68 Dummy {f00=0x00a3, f01=0x0190, f02=» @ T g" : @ :B W . !TTP g" } W t N =H N W l N =H N ~ W p N =H N o W | ( @ % P W @ % P } P0 } r " U g" _2 } P0 } " U
0x8ca68…8cbfc Dummy {f00=0x00a3, f01=0x0190, f02=» _L @ % P W @ % P o !TTT tH f` @ @ T g" : @ ! P @ @ ~n CRT 3 @ ~n ~n S @ ~n PP ~n !RRP @ ! T 3 @ & P ~n 3 ~n 3 YL @ @
0x8cbfc…8cd90 Dummy {f00=0x00a3, f01=0x0190, f02=» : P S S _ : . !TTP g" V } W t * } P } r _ } Ph W p } W V 8 8 4 D P$ g2 @ # P H I K T + Y@ V p _j V t Y o !TTX @
0x8cd90…8cf24 Dummy {f00=0x00a3, f01=0x0190, f02=» A V W } W t } PT W f ( } W d ~ ~D G =h G V d V r < z V f P W f _B V W V t Yr o !TTX @ @ T g" : o !TTX !CCTr } P, } V r 4 U g" $ $
0x8cf24…8d0b8 Dummy {f00=0x00a3, f01=0x0190, f02=» 3 . !CCP W } P0 W f } W d ~ V d V r < z V f _2 } U^ } V 8 8 8 4 D P$ g2 @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T g"
0x8d0b8…8d24c Dummy {f00=0x00a3, f01=0x0190, f02=»] V W R 9 W D g2 ) $ P@ D L T@ D "P V U , I ( I * $# P V -W H P U " I @ % PD H I H T P( H U V U W < + + P { V : V $ F !LLT # W ;I
0x8d24c…8d3e0 Dummy {f00=0x00a3, f01=0x0190, f02=» W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]BvW v P _ @ @ T g" : N =H N o : N =H
0x8d3e0…8d574 (0, 179) Dummy {f00=0x00b8, f01=0x0190, f02=» P P _ _ : @ ! P (W ( : r sr t& u v w x y, | @ ~n CRT" @ ! P ` @ E "W ` @ E " ~ ~ n ~ > Z a v `" j j ( 0 1 2 P P-
0x8d574…8d708 Dummy {f00=0x00b8, f01=0x0190, f02=» $GvTP (J DY _ .P $ V z U Y$ P W | V z 3 % W P _ V |P V v ]BvW v P _ @ @ T g" : N =H N o : N =H
0x8d708…8d89c Dummy {f00=0x00b8, f01=0x0190, f02=» l b Y 0 Y @ P ` p T T 0 0 l ` J F "
0x8d89c…8da30 Dummy {f00=0x00b8, f01=0x0190, f02=» 3 4 5 8 $ J F " D aa _! ) - R 9 W A 1XF R2 RRR_ 4 E 6 N0 a P 6 V 6 b c e T g
0x8da30…8dbc4 Dummy {f00=0x00b8, f01=0x0190, f02=»R R W RL R?R L L R R1XFA RW @ z b 8 H X h x 0 . SUBTOTAL .
0x8dbc4…8dd58 Dummy {f00=0x00b8, f01=0x018e, f02=»R R_% L R R_2 L R RA 1X l ` * : v L l b l ` | 0 t l l g `
0x8dd58…8deec Dummy {f00=0x00b8, f01=0x0190, f02=» T & 8 x H %0 X ) l j * r z , b 70 > P J F " D R LA W RL@ L R W H !I LA 1XF R6 _ L Wn RW
0x8deec…8e080 Dummy {f00=0x00b8, f01=0x018e, f02=» i r n 0 q t * z p : " J J F " D @j RWf RWb RW^ RWZ RWV0X R R R )$ 0X R!0X _ 0X W, Z " " " $
0x8e080…8e214 (0, 180) Opaque[0x194]
0x8e214…8e3a8 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0248, f03=0x0000}
0x8e214…8e3a8 IdxSect {
0x8e214…8e3a8 f00 = 0x0012 // 0x8e214 @0x0
0x8e214…8e3a8 f01 = 0x0022 // 0x8e216 @0x2
0x8e214…8e3a8 gno = [ // 0x8e218 @0x4
0x8e214…8e3a8 [0x00]: C0x0012.0x1.0
0x8e214…8e3a8 [0x01]: C0x0024.0x3.0
0x8e214…8e3a8 [0x02]: C0x0068.0x0.0
0x8e214…8e3a8 [0x03]: C0x006b.0x0.0
0x8e214…8e3a8 [0x04]: C0x006c.0x2.0
0x8e214…8e3a8 [0x05]: C0x006c.0x3.0
0x8e214…8e3a8 [0x06]: C0x006d.0x0.0
0x8e214…8e3a8 [0x07]: C0x006d.0x1.0
0x8e214…8e3a8 [0x08]: C0x006d.0x3.0
0x8e214…8e3a8 [0x09]: C0x006f.0x0.0
0x8e214…8e3a8 [0x0a]: C0x006f.0x1.0
0x8e214…8e3a8 [0x0b]: C0x006f.0x2.0
0x8e214…8e3a8 [0x0c]: C0x0072.0x3.0
0x8e214…8e3a8 [0x0d]: C0x0074.0x3.0
0x8e214…8e3a8 [0x0e]: C0x0088.0x0.0
0x8e214…8e3a8 [0x0f]: C0x0088.0x1.0
0x8e214…8e3a8 [0x10]: C0x0088.0x3.0
0x8e214…8e3a8 ]
0x8e214…8e3a8 }
0x8e3a8…8e53c Dummy {f00=0x0012, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 9.2 80-11-12 870105040920 P : . P KST,MODIFICATION FOR DUAL CONTR. UNITS B * P =2,TIMING PROBLEMS IN INT. HANDLER t P REL 9.2 79-11-16 $ P =1,CHANGED INTERRUPT HANDLER P REL 9.1 79-05-23 P*
0x8e53c…8e6d0 Dummy {f00=0x0012, f01=0x018e, f02=»OR FLEXIBLE DISK | P* P* " P* , P* 6 P* @ P* J 2 P********************************************* T 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA
0x8e6d0…8e864 Dummy {f00=0x0012, f01=0x0190, f02=» P* /00 TEST STATUS P* /01 PHYSICAL READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- > P* /05 BASIC WRITE D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ P*
0x8e864…8e9f8 Dummy {f00=0x0012, f01=0x018e, f02=» /26 LOCK D P* /31 REWIND -IBM DISC ONLY- P* /37 LOAD P* /38 UNLOAD r P* P* ENTRY PARAMETERS: P* P* A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER P
0x8e9f8…8eb8c Dummy {f00=0x0012, f01=0x0190, f02=» P*********** P* $ P ENTRY FDADR ACTIVATION ADDRESS " " P ENTRY IHFD INTERRUPT HANDLER J P ENTRY FDON RECOVERY ROUTINE p P ENTRY DWFD01 DWT-ADDRESS & P ENTRY IHFD2 INTERRUPT HANDLER KST P ENTRY DWFD02 DWT KST P ENTRY FDO
0x8eb8c…8ed20 Dummy {f00=0x0012, f01=0x0190, f02=»*********** P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO > P EXTRN DISIOE REQUEST ERROR Z EXTRN DWTST STATUS ~ EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA2 SAVE AREA A2 E
0x8ed20…8eeb4 (0, 181) Dummy {f00=0x0024, f01=0x0190, f02=»A1-A8 ON A15 STACK ~ P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT SAVE AREA 6 & P EXTRN INIFLG INITIALIZATION FLAG ` & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRI
0x8eeb4…8f048 Dummy {f00=0x0024, f01=0x0190, f02=»XTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD " P DRFD01 H P* P************************ f P* * P* CONDITIONAL ASSEMBLY * P* * P************************ P*
0x8f048…8f1dc Dummy {f00=0x0024, f01=0x0190, f02=» P* 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT ( P* IS OBTAINED BY SETTING TOSS EQU 1. D P* p PX:B EQU 0 z PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAINED BY SETTING IBM EQU 1.
0x8f1dc…8f370 Dummy {f00=0x0024, f01=0x018e, f02=»PAG EQU 1. t P* PMMUPAG EQU 0 P* 0 P* : 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 DRFD01 P* * . ** A PROG
0x8f370…8f504 Dummy {f00=0x0024, f01=0x0190, f02=» 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. > P* t PSWPBLK EQU 0 ~ P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CA
0x8f504…8f698 Dummy {f00=0x0024, f01=0x0190, f02=» P* MMU BUFFER SIZE P* P* * PX:E EQU 256 4 PDVBLEN EQU 0 J P* ^ P* h P* MMU DEVICE INDEX r P* P* P IFT CHAN=1 PDEVIND EQU 2 P XIF P* P IFT CHAN=0 PDEVIND EQU 4-IBM-IBM
0x8f698…8f82c Dummy {f00=0x0024, f01=0x0190, f02=» * P************* P* " & PCUADR EQU 09 CONTROL UNIT ADDRESS , PCUADR2 EQU /0A SECOND CU ADR V & PMUXADR EQU CUADR+CUADR MUX-ADDRESS z ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. ( PTOSLEN EQU
0x8f82c…8f9c0 Dummy {f00=0x0024, f01=0x0190, f02=»TENT POSITION | $ PEOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON > & POPENTI EQU 10 DELAY AT OPEN ORDERS b P* P******************** P* * P* DWT-DISPLACEMENTS* P* * P**
0x8f9c0…8fb54 (0, 182) Dummy {f00=0x0068, f01=0x0190, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 4 P XIF N P* Z PDWTA3 EQU START+/04 d P* P DRFD01 P* P********** P* * P* TABLES * P* * P********** P*
0x8fb54…8fce8 Dummy {f00=0x0068, f01=0x0190, f02=»U BUFFER z P XIF P* P DATA DEVIND DEVICE INDEX & & PFDADR DATA FDAD ACTIVATION ADDRESS H " P DATA 0 ABORT ROUTINE ADDRESS r P* P DRFD01 P* P************** P* * P* ACTIVATION * P*
0x8fce8…8fe7c Dummy {f00=0x0068, f01=0x0190, f02=»R CLOSE ORDER | P* P LDR A1,A7 ORDER P SUK A1,/21 8 P RF(Z) OPEN OPEN L P SUK A1,1 d P RF(Z) CLOSE CLOSE v P* P P XIF P* P LDK A3,0 P LC A3,DWTOR,A6 INDEX P LDR A2,A3 SAVE FOR FDIX
0x8fe7c…90010 Dummy {f00=0x0068, f01=0x0190, f02=» l P* P* CHECK IF LOCKED P* , $ P LD A1,DWTLC,A6 LOCK INDICATOR 6 " P CF A5,FDIX GET BIT MASK IN A3 ^ * P ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3 P RF(NZ) FD:ORD LOCKED P LDR A1,A7 P SUK A1,/26 P
0x90010…901a4 Dummy {f00=0x0068, f01=0x0190, f02=» ~ P* P P* P* ORDER? & P* 8 PFD:ORD EQU * B P IFT CHAN+TOSS=2 V P IFT MMUPAG=1 n P IFF DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GET FIRST WORD OF ECB 4 P ANKL A1,/3000 GET B
0x901a4…90338 Dummy {f00=0x0068, f01=0x0190, f02=»OSLEN CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:005 NO? 0 P* J PFD:000 EQU * T P ST A2,DWT:BF,A6 SAVE IT h P LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 P SLL A1,2 P ORR A1,A2 P ANKL A3,/FFF 2 P ST A1,DWT:P
0x90338…904cc Dummy {f00=0x0068, f01=0x0190, f02=»RK A1,1 INDICATE ADDRESS NOT ZERO * P LDKL A2,FD:BUF GET DWT BUFFER ADDRESS * 2 P ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB X P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P* P DRFD01 P XIF P* P
0x904cc…90660 Dummy {f00=0x0068, f01=0x0190, f02=»0 BASIC WRITE P SUK A1,12 P RF(Z) FD:040 PHYSICAL READ ( P SUK A1,4 L P RF(Z) FD:028 PHYSICAL WRITE ^ P SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 P ABL(Z) UNLOAD UNLOAD ORDER P IFT IBM=1 P A
0x90660…907f4 (0, 183) Dummy {f00=0x006b, f01=0x0190, f02=»BL(Z) REWIND REWIND P XIF P IFT TOSS+IBM=0 ( P IFT MMUPAG=0 @ P ADK A1,30 V P RF(Z) FD:050 SEARCH KEY h P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR P* P IFT OPCLOS=1 P P* P**
0x907f4…90988 Dummy {f00=0x006b, f01=0x018e, f02=» ` 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER. P* > POPEN EQU * H " P LDKL A1,/7FFF MASK FOR BIT 0 Z ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE P*
0x90988…90b1c Dummy {f00=0x006b, f01=0x0190, f02=» j P LDR A1,A6 SAVE DWT-ADDR P CF A15,SETIMP WAIT ( . P DATA OPENRE,OPENTI START ADDR, WAIT TIME D P ABL TDISP EXIT v P* POPENRE EQU * P* TIME HAS EXPIRED P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIME
0x90b1c…90cb0 Dummy {f00=0x006b, f01=0x0190, f02=» P* * P********* P* , 4 P* CLOSE IS PERFORMED BY WRITING A ONE TO BIT 6 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER n P* PCLOSE EQU * " P LDKL A1,/8000 MASK FOR BIT 0 & P ORS A1,SPDLCI SET OPEN/CLOSE BI
0x90cb0…90e44 Dummy {f00=0x006b, f01=0x0190, f02=»OMMON EXIT FOR OPEN/CLOSE P LDK A1,0 RETURN CODE " P RF FD:090 ENDIO @ P* X P XIF b P* n P DRFD01 x P* P*************** P* * P* BASIC WRITE * P* * P***************
0x90e44…90fd8 Dummy {f00=0x006b, f01=0x0190, f02=»A3,A6 P RF(Z) FD:018 NOT IBM P XIF , P IFT IBM=1 8 , P LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED J P CF A5,EBCDIC z PFD:018 EQU * P XIF P* P IFT CHAN+TOSS=2 P IFT MMUPAG+SWPBLK=2 4 P LD A1,DWT:LA,A6 GET FLAG/
0x90fd8…9116c Dummy {f00=0x006b, f01=0x018e, f02=» ~ & P LDR A2,A4 GET DWT BUFFER ADDRESS & P TS -30,A15 SAVE RUNNING TASK MMU 2 ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK P LDR A2,A8 RESTORE A2 P*
0x9116c…91300 Dummy {f00=0x006b, f01=0x018e, f02=» P IFT CHAN+TOSS=2 P IFT MMUPAG+SWPBLK=2 $ P LD A1,DWT:LA,A6 GET BUFFER FLAG 8 , P RF(Z) FD:025 BUFFER WAS IN SYSTEM AREA? ` . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A1,ECBBA,A8 RESTORE IT IN ECB P* PFD:025 EQU *
0x91300…91494 (0, 184) Dummy {f00=0x006c, f01=0x018e, f02=» | P* * P****************** " P* < PFD:028 CF A5,BIO F $ P ORK A2,5 INSERT BIO BITS 13-15 ^ P RB FD:015 P DRFD01 P* P********************** P* * P* WRITE DELETED DATA *
0x91494…91628 Dummy {f00=0x006c, f01=0x0190, f02=» P* P***************** P* * ( P* PHYSICAL READ * B P* * P***************** v P* PFD:040 CF A5,BIO:RE P IFT TOSS+IBM=2 P LD A1,DWTLAB,A6 P AN A1,DWTA3,A6 P RF(Z) FD:
0x91628…917bc Dummy {f00=0x006c, f01=0x0190, f02=» p P* P DRFD01 P* & P* 0 P IFT CHAN+TOSS=2 : P IFT MMUPAG=1 R P IFF DSKPAG+SWPBLK=0 h 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( P RF(Z) FD:046 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LE
0x917bc…91950 Dummy {f00=0x006c, f01=0x0190, f02=» l 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ! & P TL -30,A15 RESTORE MMU FROM STACK ! > . P LD A2,DWT:BF,A6 GET SAVED BUFFER ADDRESS ! h & P ST A2,ECBBA,A8 RESTORE IT IN ECB ! P RF FD:048 ! P* ! PFD:046 EQU * ! P XIF ! P* !
0x91950…91ae4 Dummy {f00=0x006c, f01=0x0190, f02=»D A7,ECBRL,A8 REQ LEN ! ( P LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS " P CF A5,ASCII " J PFD:047 EQU * " ^ P XIF " r PFD:048 EQU * " ~ P ABL FD:RC " P* " P DRFD01 " P* " P IFT TOSS+IBM=0 " P IFT MMUPAG=0 " P* " P****
0x91ae4…91c78 Dummy {f00=0x006c, f01=0x0190, f02=» LD A4,10,A8 KEY AREA ADDRESS " P LDR* A2,A4 KEY AREA LENGTH # & P LDR A1,A2 # J " P ABL(NP) END:10 ILLEGAL LENGTH # P SUK A1,128 # " P ABL(P) END:10 ILLEGAL LENGTH # P LDR A3,A2 # P* # * P* IF ODD CHANGE TO EVEN NO OF BYTES # P*
0x91c78…91e0c Dummy {f00=0x006c, f01=0x0190, f02=»4,2 KEY ADDRESS # P CF A5,FD:WRI SEARCH KEY $ P LDR A3,A3 RETURN CODE $ 8 P RB(NZ) FD:048 $ V P* $ l P DRFD01 $ v P* $ $ P* READ RECORD WITH KEY COMMAND $ P* $ PFD:060 EQU * $ P LDK A2,4 BIO $ P LD A3,4,A8 REQUESTED LE
0x91e0c…91fa0 Dummy {f00=0x006c, f01=0x0190, f02=» $ P DRFD01 % P* % P*************** % & P* * % > P* TEST STATUS * % V P* * % n P*************** % P* % PFD:070 EQU * % P LDKL A2,/FFF9 BIO DUMMY % P CF A5,FD:WRI % P LDR A1,A3 % P ANK
0x91fa0…92134 (0, 185) Dummy {f00=0x006c, f01=0x0190, f02=» % P RF LOA:05 READ VOLUME NAME & P* & , PFD:075 EQU * & 6 P XIF & J $ P LD A1,DWTRCW,A6 GET RETURN CODE & V PFD:090 ABL END:IO & ~ P* & P DRFD01 & P* & P******** & P* * & P* LOAD * & P* * & P********
0x92134…922c8 Dummy {f00=0x006c, f01=0x0190, f02=»LOA:05 EQU * & P IFT TOSS+IBM=2 ' P* ' , P* CHECK IF TOSS/IBM LABEL ' 6 P* ' X P LDK A2,0 BIO ' b P LDKL A4,BUF ' x P LDK A3,38 NO OF BYTES ' P CF A5,FD:REA ' P CF A5,LD:RC ' P ADK A4,34 ' P LDR* A2,A4 ' P CWK A2,'TO' '
0x922c8…9245c Dummy {f00=0x006c, f01=0x0190, f02=» P XIF ( P* ( P DRFD01 ( P* ( . P* ( 8 P IFT TOSS=1 ( B P* ( V P* READ VOLUME NAME ( ` P* ( | P LDK A3,8 LENGTH ( P LDK A2,0 BIO ( * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ( * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL
0x9245c…925f0 Dummy {f00=0x006c, f01=0x0190, f02=» BIT MASK ( x ( P ORS A1,DWTLAB,A6 INDICATE IBM DISC ) " P LDK A1,/20 RETURN CODE BIT 10 ) > P ORS A1,DWTRCW,A6 ) d P XIF ) ~ P IFF TOSS+IBM=0 ) PLOA:15 EQU * ) P LDKL A4,BUF BUFFER ADDRESS ) P CF A5,FD:REA ) P CF A5,LD:RC ) P LDK
0x925f0…92784 Dummy {f00=0x006c, f01=0x0190, f02=» P LDK A7,10 NO OF CHAR. * P CF A5,ASCII * " P LDK A1,4 * 6 PLOA:30 EQU * * H P XIF * P* * h P DRFD01 * r P* * P* * P IFF TOSS+IBM=0 * P* * P* GET DWT VOL NAME ADDRESS * P* * P CF A5,VOLADR ADDRESS TO A2 *
0x92784…92918 Dummy {f00=0x006c, f01=0x0190, f02=» RF(Z) LOA:50 * P ADK A1,2 + P ADK A2,2 + ( P RB LOA:40 + : PLOA:50 EQU * + L P LC A2,DWTOR+1,A6 GET ORDER + ` P ANK A2,/FF + & P RB(Z) FD:075 JUMP IF TEST STATUS + P XIF + P IFT IBM=1 + P* + P* DATA SET OPENING WANTED? +
0x92918…92aac Dummy {f00=0x006c, f01=0x018e, f02=» P RF(E) LOA:70 LOCK ORDER , P* , $ P* READ DATA SET LABEL , . P* , L P LD A2,ECBCW,A8 SECTOR NO , V P SUK A2,7 , x P ABL(N) FD:DIS REQUEST ERROR , P SUK A2,18 , P ABL(P) FD:DIS REQUEST ERROR , P ADK A2,25 , P SLL A2,3 BIO ,
0x92aac…92c40 Dummy {f00=0x006c, f01=0x0190, f02=» P RF(NN) LOA:60 NOT NO DATA - 2 P ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL - & PLOA:60 EQU * - P CF A5,LD:RC - p P ENB - * P LD A3,ECBCW,A8 DATA SET LABEL SECTOR - P LDK A1,DWTDSS - P CF A5,STDWT SAVE IN DWT - P ADK A4,BOE BOE ADDR
0x92c40…92dd4 (0, 186) Dummy {f00=0x006d, f01=0x0190, f02=»N - P LDK A1,DWTCRN . P CF A5,STDWT . P ADK A4,EOE-BOE EOE ADDRESS . 4 P CF A5,LOGSEC . X P LDK A1,DWTEOE . n $ P CF A5,STDWT STORE EOE NO IN DWT . P ADK A4,EOD-EOE EOD ADDRESS . P CF A5,LOGSEC . P CF A5,SETINH INHIBIT . P LDK
0x92dd4…92f68 Dummy {f00=0x006d, f01=0x0190, f02=»C,A6 INDICATE LOCK . & PLOA:75 LD A3,DWTRCW,A6 RETURN CODE / PLOA:80 ABL FD:RC / D P* / P DRFD01 / f P* / z P* / P IFF TOSS+IBM=0 / P* / P* ERROR , UNLOCK / P* / PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB
0x92f68…930fc Dummy {f00=0x006d, f01=0x0190, f02=»------------- / h P* LD:RC SUBROUTINE 0 P* 0 4 PLD:RC ORS A3,DWTRCW,A6 0 > P ANKL A3,/2007 FATAL ERROR 0 P RB(NZ) LOA:90 0 ~ & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 P RTN A5 0 P XIF 0 P DRFD01 0 P* 0 P********** 0
0x930fc…93290 Dummy {f00=0x006d, f01=0x0190, f02=» DATA SET OPEN? 0 P* 1 P CF A5,DSOPCH A1,AFFECTED 1 " P LDR A7,A7 EOD 1 D P RF(Z) UNL:70 NOT OPEN 1 Z 4 P ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 x P* 1 , P* READ DATA SET LABEL TO DRIVER BUFFER 1 P* 1 P CF A5,DSLIO PREPARE
0x93290…93424 Dummy {f00=0x006d, f01=0x018e, f02=»--------------- 1 < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) 2 P* 2 X P CF A5,DSOPCH EOD-NO TO A7 2 b P* 2 P* DIVIDE EOD BY 26 2 P* 2 P LDK A1,0 2 PUNL:10 SUK A7,26 2 P RF(N) UNL:20 2 P ADK A1,1 2 P R
0x93424…935b8 Dummy {f00=0x006d, f01=0x0190, f02=» ( P CF A5,BINDEC TRANSFORM SEC.NO TO A3 3 ( P LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 3 0 P SCR A3,A4 3 P SUK A4,1 3 n P SRL A3,8 LEFT BYTE 3 P SCR A3,A4 STORE IN BUFFER 3 P LDR A7,A1 TRACK 3 ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A
0x935b8…9374c Dummy {f00=0x006d, f01=0x0190, f02=»SLIO PREPARE FOR I/O 3 P ORK A2,5 PHYSICAL WRITE 4 ( P CF A5,FD:WRITE WRITE DATA SET LEBEL 4 < $ P CF A5,UNL:RC CHECK RETURN CODE 4 h P CF A5,DSOPCH 4 P CMR A2 INDICATE NOT OPEN 4 P* 4 P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU *
0x9374c…938e0 Dummy {f00=0x006d, f01=0x0190, f02=»CKED 4 l P LD A2,DWTA3,A6 INDEX MASK 5 , P XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT 5 . PUNL:80 EQU * 5 ^ P RB LOA:75 END:IO 5 r P IFF TOSS+IBM=0 5 P* 5 P* UNLOAD RETURN CODE CHECK 5 P* 5 PUNL:RC ORS A3,DWTRCW,A6 5 P ANK A3,/7 F
0x938e0…93a74 (0, 187) Dummy {f00=0x006d, f01=0x0190, f02=»******* 5 P* SEQUENTIAL READ * 6 P******************* 6 , P* 6 H PSQREAD EQU * 6 R * P CF A5,DSOPCH GET EOD AND EOD ADDRESS 6 f P LDR A7,A7 EOD 6 " PSQR:05 ABL(Z) DISIOE NOT OPEN 6 . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 6 P LDR*
0x93a74…93c08 Dummy {f00=0x006d, f01=0x0190, f02=» CF A5,BIO:RE 6 P LDKL A4,BUF BUFFER ADDRESS 7 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 7 : ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 7 p $ P LD A7,ECBRL,A8 REQUESTED LENGTH 7 $ P CF A5,ASCII TRANSFORM TO ASCII 7 P LDK A1,DWTCRN 7 P CF A5
0x93c08…93d9c Dummy {f00=0x006d, f01=0x0190, f02=»IO 7 P DRFD01 8 P* 8 P******************* 8 ( P* SEQUENTIAL WRITE * 8 D P******************* 8 ` P* 8 | PSQWRIT EQU * 8 P CF A5,DSOPCH GET EOD 8 P ADK A7,0 EOD-NO (SET CR) 8 P RB(Z) SQR:05 NOT OPEN 8 P* 8 P* CH
0x93d9c…93f30 Dummy {f00=0x006d, f01=0x018e, f02=». W. 8 n P CWR* A7,A2 9 P RF(G) SQW:20 YES,EOE 9 P CF A5,BIO 9 > P LDK A7,128 9 P , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF 9 d P ORK A2,5 PHYS. WRITE 9 P CF A5,FD:WRI 9 P CF A5,DSOPCH 9 PSQW:10 LDR A1,A3 RETURN CODE 9 P ANK A
0x93f30…940c4 Dummy {f00=0x006d, f01=0x0190, f02=» P* END OF EXTENT : $ PSQW:20 LDKL A1,/400 RETURN CODE : P RF END:IO : D P DRFD01 : V P* : j P********** : t P* REWIND * : P********** : P* : PREWIND EQU * : P CF A5,DSOPCH : P ADK A7,0 EOD (SET CR) : $ P RB(Z) SQR:0
0x940c4…94258 Dummy {f00=0x006d, f01=0x0190, f02=»4,A3 EOD = BOE : P LDK A1,DWTCRN ; P CF A5,DSPAD ; , P SUK A4,1 BOE - 1 ; @ P STR A4,A2 CRN = BOE -1 ; Z P LDK A1,0 RETURN CODE ; z P RF END:IO ; P XIF ; P DRFD01 ; P* ; P***************** ; P* * ; P
0x94258…943ec Dummy {f00=0x006d, f01=0x0190, f02=» A3 NO OF BYTES TO BE TRANSFERED ; " P* A4 BUFFER ADDRESS < 2 P* < X PFD:WRI EQU * < b P IFT CHAN=0 < v P LDKL A1,/C000 WORDS,WRITE < P XIF < P IFT CHAN=1 < ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < P XIF < P RF
0x943ec…94580 Dummy {f00=0x006d, f01=0x0190, f02=»N=0 < P LDKL A1,/8000 WORDS READ = P XIF = . PFD:800 EQU * = : P IFT CHAN=0 = N " P SRL A3,1 FROM BYTES TO WORDS = b P* = P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = P XIF =
0x94580…94714 (0, 188) Dummy {f00=0x006d, f01=0x0190, f02=» P IFT CHAN=1 > P* > P DRFD01 > " P* > 6 . P* PUT BUFFER START AND END ADDRESS IN DWT > @ P* > r P ST A4,DWTUB,A6 > | P ADR A3,A4 > " P ST A3,DWTUBE,A6 END ADDRESS+2 > P XIF > PFD:820 EQU * > & P ST A5,DWTA5,A6 SAVE STACK P
0x94714…948a8 Dummy {f00=0x006d, f01=0x0190, f02=»LE > v P RF END:IO ? P DRFD01 ? P* ? 0 * P************************************* ? : * P* * ? h * P* FD:RC - STORE EFF LEN, END:IO * ? * P* * ? * P**********************
0x948a8…94a3c Dummy {f00=0x006d, f01=0x0190, f02=»ECTIVE LENGTH IN ECB ? P* @ P LD A2,ECBRL,A8 REQ LENGTH @ & P ST A2,ECBEL,A8 EFF LENGTH @ H P DRFD01 @ j P* @ ~ P********** @ P* * @ P* END:IO * @ P* * @ P********** @ P* @ PEND:IO EQU * @ P CF A15,
0x94a3c…94bd0 Dummy {f00=0x006d, f01=0x0190, f02=»* ILLEGAL LENGTH @ P* A PEND:10 LDK A1,8 RETURN CODE A $ P RB END:IO A H P DRFD01 A Z P* A n P******************** A x P* * A P* RECOVERY ROUTINE * A P* * A P******************** A P* A
0x94bd0…94d64 Dummy {f00=0x006d, f01=0x0190, f02=» 8,A15 SAVE A1-A8 ON STACK A P XIF B " P* B . P LDKL A6,DWFD01 DWT ADDRESS B 8 P RF FDON05 KST B PFDON2 EQU * KST B t P IFT CPU852=1 KST B . P CF A15,SAVE8 SAVE REGISTERS ON STACK KST B P XIF KST B P IFT CPU852=0 KST B P MSR
0x94d64…94ef8 Dummy {f00=0x006d, f01=0x0190, f02=»A5,DWTSB2 B P ADR A5,A6 GET STACK BASE C P* C 4 P IFF DSKPAG+SWPBLK=0 C > , P LD A2,INIFLG CHECK INITIALIZATION FLAG C Z P RF(Z) FDON07 POWER UP? C : P LD A2,SCTPLD GET FILE CODE OF PROGRAM LOADING DEVICE C P SUK A2,/F8 C $ P RF(N) FDON0
0x94ef8…9508c Dummy {f00=0x006d, f01=0x0190, f02=» * P ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED D P* D 2 P DRFD01 D < P* D P P* D Z P C1R A3,A3 D d * P ANS A3,DWTLAB,A6 INDICATE TOSS LABEL D v P* D * P* READ VOLUME NAME (A2 = 0 FROM FDIX) D P* D P LDK A3,8 D P LDKL A4,BUF D
0x9508c…95220 Dummy {f00=0x006d, f01=0x0190, f02=»* D P* MOVE VOLUME NAME TO DWT E P* E , PFDON06 LD A4,BUF,A1 E 6 P STR A4,A2 E R P ADK A1,2 E d P ADK A2,2 E v P SUK A3,1 E P RB(P) FDON06 E P* E PFDON07 EQU * E P XIF E P* E P DRFD01 E P* E 0 P* SAV
0x95220…953b4 (0, 189) Dummy {f00=0x006f, f01=0x0190, f02=»FDON08 ALREADY SAVED E P LD A2,DWTST,A6 F P ST A2,DWTST2,A6 F 4 PFDON08 CM DWTST,A6 SET BUSY F L P* F p P IFT OPCLOS=1 F z P* F P F P* F : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING F " P LD A4,DWTTP2,A6 TIMER POINT
0x953b4…95548 Dummy {f00=0x006f, f01=0x018e, f02=» 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE G 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS G > P* G t & P LDKL A2,/8000 OPEN/CLOSE BIT MASK G ~ $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG G P ORS A2,DWTOCF,A6 SAVE G ( P XRRS A2,A4 SET STATUS WOR
0x95548…956dc Dummy {f00=0x006f, f01=0x018e, f02=» G P* DELAY 2 SEC H P* H P LD A4,DWTTP,A6 H ( P RF(Z) FDON10 NO TIMER SET H @ P LDKL A4,-TIME H b " P ST* A4,DWTTP,A6 RESTART TIMER H x P RB T:DISP H PFDON10 LDK A4,DWTTP H P ADR A4,A6 H P LDR A1,A6 SAVE A6 H P CF A15,SETIMP H
0x956dc…95870 Dummy {f00=0x006f, f01=0x0190, f02=» H P LDKL A5,DWTSB2 I P ADR A5,A6 STACK BASE I P* I > P* LOCK DOORS I H P* I ^ P LDK A2,1 I h PFDON25 EQU * I z " P LD A1,DWTLC,A6 LOCK INDICATOR I P ANR A1,A2 I P RF(Z) FDON30 NOT LOCKED I P ST A2,DWTA3,A6 SAVE I P* I
0x95870…95a04 Dummy {f00=0x006f, f01=0x0190, f02=»-INSTR I p P LDK A2,/14 LOCK J P CF A5,FD:REA J & P LD A2,DWTA3,A6 DRIVE IND. J < P ANK A3,1 J ^ P RF(Z) FDON30 OK J p $ P XRS A2,DWTLC,A6 INDICATE UNLOCK J PFDON30 EQU * J P SLL A2,1 J P CWK A2,/0010 J P RB(NE) FDON25 J P* J
0x95a04…95b98 Dummy {f00=0x006f, f01=0x0190, f02=»FLAG J t " P ORS A2,SPDLCI TO STATUS WORD K P CM DWTOCF,A6 CLEAR FLAG K 2 P* K R $ P LD A2,SPDLCI OPEN/CLOSE STATUS K 0 P OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED K P* BEFORE THE POWER OFF K P XIF K P* K P K P* K P* ANY
0x95b98…95d2c Dummy {f00=0x006f, f01=0x0190, f02=» K r * P ST A2,DWTST,A6 PUT IN CUURENT STATUS L P LDKL A2,-1 L 6 ( P ST A2,DWTST2,A6 INDICATE NOT SAVED L J P CM DWTA2,A6 RESET FDON FLAG L v PFDON60 EQU * L P LD A2,DWTST,A6 L 0 P ABL(N) END:05 NO REQUEST, RETURN VIA TENDIO L P* L P* R
0x95d2c…95ec0 Dummy {f00=0x006f, f01=0x0190, f02=» ADDRESS L | P ABL FDAD REACTIVATE M P DRFD01 M , P* M @ P********************* M J P* * M h P* INTERRUPT HANDLER * M P* * M P********************* M P* M PIHFD EQU * M $ P ST P,INTSAV
0x95ec0…96054 (0, 190) Dummy {f00=0x006f, f01=0x0190, f02=»IF M P* N P IFT CPU852=0 N " P MSR 8,A15 SAVE A1-A8 ON STACK N * P XIF N P P* N P LDKL A6,DWFD01 DWT ADDRESS N f P RF IH000 KST N PIHFD2 EQU * KST N P ST P,INTSAV KST N P IFT CPU852=1 KST N . P CF A15,SAVE8 SAVE REGISTERS
0x96054…961e8 Dummy {f00=0x006f, f01=0x0190, f02=»IH000 EQU * KST N P IFT CHAN=1 O P ENB O , & P LD A1,DWTUB,A6 GET BUFFER POINTER O 8 " P LD A2,DWTUBE,A6 END OF BUFFER O b P SUR A2,A1 LENGTH O PIH005 EQU * O P EX FDSST,A6 KST O " P RF(A) IH:000 READY INTERRUPT O ( P LD A3,DWTRW,A6 RE
0x961e8…9637c Dummy {f00=0x006f, f01=0x0190, f02=»YTE FROM BUFFER O P ECR A3,A3 LEFT POSITION P & P LC A3,1,A1 RIGHT BYTE FROM BUFFER P 8 P EX FDOTR,A6 WRITE KST P b P RB(NA) IH005 P $ P ADK A1,2 UPDATE BUFFER POINTER P P SUK A2,2 P P RB(P) IH010 P P EX FDHLT,A6 CIO-HALT KST P P A
0x9637c…96510 Dummy {f00=0x006f, f01=0x0190, f02=» TO BUFFER P z P ECR A3,A3 Q " P SCR A3,A1 LEFT BYTE TO BUFFER Q $ $ P ADK A1,2 UPDATE BUFFER POINTER Q J P SUK A2,2 Q r P RB(P) IH050 Q P EX FDHLT,A6 CIO-HALT KST Q P EX FDSST,A6 STATUS KST Q P RB(NA) *-2 =2 Q PIH:000 EQU * =1 Q
0x96510…966a4 Dummy {f00=0x006f, f01=0x0190, f02=»TATUS KST Q P XIF =2 R ( P* LDKL A6,DWFD01 DWT ADRESS KST R $ P LD A8,DWTECB,A6 ECB ADDRESS R P " P LD A5,DWTA5,A6 STACK POINTER R t P SLL A3,1 R P RF(N) FDRE READY INTERRUPT R P SRL A3,1 R P LD A2,DWTRTY,A6 RETRY? R P RF(Z)
0x966a4…96838 Dummy {f00=0x006f, f01=0x0190, f02=» A1,/4 R P ORR A3,A1 CRC ERROR S PIH:10 EQU * S * P* S > P DRFD01 S H P* S Z & P* TRANSFORM RETURN CODE, CU - ECB S d P* S P ANKL A3,/FF37 S P RF(Z) IH:80 S P LDR A1,A3 S " P ANKL A3,/0A05 UNCHANGED BITS S P LDR A4,A1 S
0x96838…969cc Dummy {f00=0x006f, f01=0x018e, f02=»IT 2 S P SLL A4,1 TO BIT 1 T P ORR A3,A4 T & P XIF T 8 P LDR A4,A1 T D P ANK A4,/20 BIT 10 T V P SLL A4,3 TO BIT 7 T p P ORR A3,A4 T P ANK A1,/10 BIT 11 T P SRC A1,5 TO BIT 0 T P ORR A3,A1 T PIH:80 EQU * T P IFT CHAN=1 =1 T
0x969cc…96b60 Dummy {f00=0x006f, f01=0x0190, f02=» P* READY INTERRUPT * U P* * U P******************** U < P* U X PFDRE EQU * U b P LD A2,DWTA2,A6 U t , P ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE U P LDKL A5,DWTSB2 U P ADR A5,A6 STACK BASE U P RB FDON60 U P
0x96b60…96cf4 (0, 191) Dummy {f00=0x006f, f01=0x0190, f02=» U B R O U T I N E S * U 0 P* * V . 0 P******************************************* V b P* V P******* V P* * V P* BIO * V P* * V P******* V P* V P* V P* I
0x96cf4…96e88 Dummy {f00=0x006f, f01=0x0190, f02=»BE TRANSFERED V r " P* A4 BUFFER ADDRESS W P* W < PBIO EQU * W F P LDK A4,0 FLAG W X P RF BIO010 W n PBIO:RE LDK A4,1 W PBIO010 EQU * W P LD A3,ECBRL,A8 REQ LEN W P RF(N) BIOERR ILLEGAL LENGTH W P IFT TOSS+IBM=2 W P
0x96e88…9701c Dummy {f00=0x006f, f01=0x0190, f02=» A2,0 W P XIF X P IFT TOSS+IBM=2 X P RF BIO030 X 2 P XIF X D P IFT TOSS=1 X P PBIO020 LDKL A7,TOSLEN X d P LDK A2,3 X PBIO030 EQU * X P XIF X P IFF TOSS+IBM=0 X P ADK A4,0 SET CR X P RF(Z) BIO060 WRITE X P LDK A2,
0x9701c…971b0 Dummy {f00=0x006f, f01=0x0190, f02=»BIO100 X & P ADK A2,1 INCREMENT NO OF SECTORS Y P RB BIO040 Y 8 P* Y J P* WRITE, CHECK REQ LENGTH Y T P* Y v PBIO060 CWR A3,A7 Y " P RF(NE) BIOERR ILLEGAL REQ LEN Y P XIF Y P IFT TOSS+IBM=0 Y P* Y > P* FIND NO OF SECTORS TO BE
0x971b0…97344 Dummy {f00=0x006f, f01=0x0190, f02=» WRITE? Y x P RF(NZ) BIO035 READ! Z P SUK A1,128 Z , " P RF(Z) BIO100 REQ LEN ACCEPTED Z @ P RF BIO045 Z f P* Z x PBIO035 SUK A1,128 Z & P RF(NP) BIO100 REQ LENGTH ACCEPTED Z PBIO045 ADK A2,1 Z P CWK A2,3 Z P RB(NG) BIO015 Z $ P R
0x97344…974d8 Dummy {f00=0x006f, f01=0x0190, f02=» SECTOR NO FROM CONTROL WORD OF ECB IS Z ( P* WITHIN RANGE, PUT IT IN POS 2-12 [ . P* [ Z P LD A1,ECBCW,A8 SECTOR NO [ d P RF(N) BIOER2 OUTSIDE RANGE [ P IFT TOSS+IBM=2 [ P ANK A7,/A [ P RF(Z) BIO110 IBM DISC [ P XIF [ P IFT TOSS=
0x974d8…9766c Dummy {f00=0x006f, f01=0x0190, f02=»M=2 [ P RF BIO120 P XIF P IFT IBM=1 * PBIO110 CWK A1,1923 < P RF(P) BIOER2 OUT OF RANGE V P XIF x P IFT TOSS+IBM=0 ( P CWK A1,2001 SECTOR NO OUT OF RANGE P RF(G) BIOER2 YES! P XIF PBIO120 EQU * P SLL A
0x9766c…97800 Dummy {f00=0x006f, f01=0x0190, f02=»EN. NOT EVEN | P RTN A5 ] P* ] $ P* ] . 2 P* ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO ] 8 P* ] n PBIOERR ABL END:10 ] x P* ILLEGAL SECTOR NO ] PBIOER2 ABL FD:DIS ] P* ] P DRFD01 ] P* ] P********* ] P*
0x97800…97994 (0, 192) Dummy {f00=0x0072, f01=0x0190, f02=»R(X) ] z P* ^ PFDIX LDK A3,1 ^ P ADK A2,0 SET CR ^ , PFDIX10 EQU * ^ D P RF(Z) FDIX20 ^ X P SLL A3,1 ^ n P SUK A2,1 ^ P RB FDIX10 ^ PFDIX20 RTN A5 ^ P DRFD01 ^ P IFF TOSS+IBM=0 ^ P****************** ^ P*
0x97994…97b28 Dummy {f00=0x0072, f01=0x0190, f02=» P* _ & P* OUTPUT: A2 VOLUME NAME ADDRESS _ P* A3 ZERO _ 8 P* _ T PVOLADR EQU * _ ^ P LC A3,DWTOR,A6 DRIVE NO _ r PVOLA05 EQU * _ P LDK A2,DWTVO0 _ P ADR A2,A6 _ P ANK A3,/3 _ PVOLA10 EQU * _ P RF(Z) VOLA20 _
0x97b28…97cbc Dummy {f00=0x0072, f01=0x0190, f02=»RFD01 _ P* ` P********* ` P* ASCII * ` * P********* ` < P* ` N : P* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO ` X P* ASCII CODE ` . P* INPUT STRING ADDRESS IS BUF ` & P* INPUT: A7 NO OF CHARACTE
0x97cbc…97e50 Dummy {f00=0x0072, f01=0x0190, f02=» A7 CHANGED ` P* a PASCII EQU * a P ENB a 4 P LDK A1,0 a @ P ADR A4,A7 a R PASC:10 SUK A7,1 a d P RF(N) ASC:20 a | P SUK A4,1 a " P LC A1,BUF,A7 GET EBCDIC CHAR a ( P LC A1,TASCII,A1 TRANSFORM TO ASCII a 0 P SCR A1,A4 PUT ASC
0x97e50…97fe4 Dummy {f00=0x0072, f01=0x0190, f02=» P********** b P* EBCDIC * b P********** b ( P* b : < P* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO b D P* EBCDIC CODE b 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER b P* b & P* INPUT: A7 NO OF CHARA
0x97fe4…98178 Dummy {f00=0x0072, f01=0x0190, f02=» ADDRESS b p P* A7 CHANGED c PEBCDIC EQU * c 2 P ENB c F P ADR A4,A7 c R P LDK A1,0 c d PEBC:10 SUK A7,1 c v P RF(N) EBC:80 c P SUK A4,1 c P LCR A1,A4 GET ASCII CHAR. c P LC A1,TEBCDIC,A1 c P SC A1,BUF,A7 c P
0x98178…9830c Dummy {f00=0x0072, f01=0x0190, f02=»* c P********** d P* LOGSEC * d P********* d . P* d @ @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD d J , P* LOGICAL SECTOR (BINARY). d < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) d * P*
0x9830c…984a0 Dummy {f00=0x0072, f01=0x0190, f02=»O d p . P* A4 ADDRESS TO PHYS. SEC. + 4 e P* e < PLOGSEC EQU * e F P CF A5,DECBIN e Z P LDR A3,A1 SAVE e p P ADK A4,2 e P* e P* MULTIPLY BY 26 e P* e P SLL A3,5 *32 e P LDR A2,A1 e P SLL A2,2 e P SUR A
0x984a0…98634 (0, 193) Dummy {f00=0x0074, f01=0x0190, f02=»TOR NO e P* f P LDR A1,A3 f P SUK A1,25 f * P RF(NP) LOG:10 f < P CWK A4,BUF+EOD+4 EOD? f R P RF(E) LOG:02 YES! f p P SUKL A1,1898 f P RF LOG:04 f P* f " P* CHECK EOD LESS/EQUAL 74001 f P* f PLOG:02 SUKL A1,1899 f P
0x98634…987c8 Dummy {f00=0x0074, f01=0x0190, f02=» f P* g ( PLOG:05 ADK A5,4 ADJUST STACK POINTER g $ PLOG:10 LDKL A1,/2000 RETURN CODE g > P ORS A1,DWTRCW,A6 g f P CF A5,SETINH g P ABL LOA:90 ERROR ROUTINE g P* g P DRFD01 g P* g P********** g P* DECBIN* g P****
0x987c8…9895c Dummy {f00=0x0074, f01=0x0190, f02=» - /F9 IS CHECKED g b , P* INPUT: A4 ADDRESS TO FIRST DIGIT h P* OUTPUT: A1 BINARY h J P* WORKING REG: A2,A7 h h P* h PDECBIN LDK A1,0 h P LDK A7,2 h PDEC:10 LCR A2,A4 DIGIT h P ANK A2,/FF h P SUK A2,/F0 h P RB(N)
0x9895c…98af0 Dummy {f00=0x0074, f01=0x0190, f02=»DRESS TO SECOND DIGIT h PDEC:20 SUK A2,1 i P RB(N) DEC:10 NEXT DIGIT i 6 P ADK A1,/A MULTIPLY BY 10 i V P RB DEC:20 i x PDEC:30 ADR A1,A2 i P RTN A5 i P XIF i P DRFD01 i P* i P********** i P* SETCIO * i P********
0x98af0…98c84 Dummy {f00=0x0074, f01=0x0190, f02=» i P* j P* OUTPUT: A3 CHANGED j P* A4 CHANGED j 0 P* j N PSETCIO LDKL A4,/FFCF j X P ANS A4,FDCIO,A6 KST j t P SLL A3,4 j P ORS A3,FDCIO,A6 KST j P RTN A5 j P IFT IBM=1 j P DRFD01 j P* j P******
0x98c84…98e18 Dummy {f00=0x0074, f01=0x0190, f02=»CDIC-CODED DIGITS (DECIMAL) j P* k $ P* INPUT: A7 BINARY NUMBER k . P* k R . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS k P* A7 CHANGED k P* k PBINDEC LDK A3,0 k PBIN:10 SUK A7,10 k P RF(N) BIN:20 k P ADK A3,1 k
0x98e18…98fac Dummy {f00=0x0074, f01=0x0190, f02=»DED k x P RTN A5 l P DRFD01 l P********* l 0 P* DSLIO * l B P********* l T P* l f 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL l p P* l P* INPUT: A6 DWT ADDRESS l P* l : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 1
0x98fac…99140 Dummy {f00=0x0074, f01=0x0190, f02=» A1 IS CHANGED l P* m PDSLIO LDK A1,DWTDSS m " P CF A5,DSPAD m > P LDR* A2,A2 m R P SLL A2,3 m f P LDK A3,128 m x P LDKL A4,BUF m P RTN A5 m P DRFD01 m P* m P********** m P* DSOPCH * m P********** m P* m
0x99140…992d4 (0, 194) Dummy {f00=0x0088, f01=0x0190, f02=» ADDRESS m ~ , P* A7 EOD-NO (0=NOT OPEN) n P* A1 CHANGED n @ PDSOPCH LDK A1,DWTEOD n ^ P CF A5,DSPAD n z P LDR* A7,A2 EOD-NO n P RTN A5 n P DRFD01 n P* n P********* n P* DSPAD * n P********* n
0x992d4…99468 Dummy {f00=0x0088, f01=0x0190, f02=»* INPUT: A1 DWT OFFSET n P* A6 DWT ADDRESS o " P* o D " P* OUTPUT: A2 ADDRESS TO DATA o N P* A6 DWT ADDRESS o t P* o " PDSPAD LC A2,DWTOR,A6 DRIVE NO o P ANK A2,/3 o P ADR A2,A2 o P ADR A2,A6 o P ADR A2,A1 o
0x99468…995fc Dummy {f00=0x0088, f01=0x018e, f02=»NPUT WORD IN DWT-AREA DEPENDING OF o | P* DRIVE NO p * P* p H ( P* INPUT: A1 OFFSET TO DWT AREA p R . P* A3 WORD TO BE STORED IN DWT p ~ P* A6 DWT ADDRESS p P* p P* OUTPUT: A1 UNCHANGED p 0 P*
0x995fc…99790 Dummy {f00=0x0088, f01=0x0190, f02=» p P CF A5,DSPAD q P STR A3,A2 q P RTN A5 q . P DRFD01 q > P* q R P********** q P* SETINH * q n P********** q P* q @ P* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE q > P* ESCAPE VIA DISPATCHER ELSE
0x99790…99924 Dummy {f00=0x0088, f01=0x018e, f02=»,DWTA2,A6 FDON q P RF(Z) SET:10 NOT ACTIVE r P ABL T:DISP ESCAPE r 6 PSET:10 RTN A5 r P P XIF r f P* r r " P* D R I V E R B U F F E R r | PBUF DATA 0,0,0,0 r P* r P IFT IBM=1 r P RES 60 r P XIF r P* r P DRFD01
0x99924…99ab8 Dummy {f00=0x0088, f01=0x018e, f02=» P********************* s P* s " PDWFD01 EQU * s , P DATA 0 s @ P DATA /8000 DWT STATUS s P P DATA 0 ECB ADDRESS s n P DATA 0 ORDER s " P DATA FDADR ACTIVATION ADDRESS s P DATA 0 TTAB-ADDRESS s $ P DATA 0 WAIT/ACTIVATE INDICATOR s
0x99ab8…99c4c Dummy {f00=0x0088, f01=0x0190, f02=» s r XIF t P* t P DATA 0 t P DATA 0 SAVE AREA t . P DATA 0 t H P DATA 0 t X P DATA 0,0,0,0 STACK t h ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD t P DATA -1 t * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG t P DATA 0 t $ PDWTTP EQU
0x99c4c…99de0 Dummy {f00=0x0088, f01=0x0190, f02=» INDICATOR t r P DATA 0 u , PDWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR u " P DATA 0 u R ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 u b P DATA 0,0,0 u ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 u P DATA 0,0,0 u ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 u
0x99de0…99f74 (0, 195) Dummy {f00=0x0088, f01=0x0190, f02=»R POINTER FOR OPEN u x P DATA 0 v 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON v * P DATA 0 v b P XIF v r P* v ~ P IFT CHAN=1 v 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER v P DATA 0 v , PDWTUBE EQU *-DWFD01 BUFFER END ADD
0x99f74…9a108 Dummy {f00=0x0088, f01=0x018e, f02=»TBOE EQU *-DWFD01 BEGINNING OF EXTENT v P DATA 0,0,0,0 w . $ PDWTEOD EQU *-DWFD01 END OF DATA w D P DATA 0,0,0,0 w l & PDWTEOE EQU *-DWFD01 END OF EXTENT w P DATA 0,0,0,0 w * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO w P DATA 0,0,0,0 w . PDW
0x9a108…9a29c Dummy {f00=0x0088, f01=0x0190, f02=» P IFF DSKPAG+SWPBLK=0 x PDWT:PA EQU *-DWFD01 x * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS x < P DATA 0 SECOND MMU ENTRY x j P* x PDWT:LA EQU *-DWFD01 x * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS x P* x PDWT:BF EQU *-DWFD01 x $ P DAT
0x9a29c…9a430 Dummy {f00=0x0088, f01=0x0190, f02=» DATA 0,0,0,0 x P* y P IFT DEVIND=2 y PFD:BUF RES DVBLEN+1 y 6 P XIF y R P* y ^ P IFT MMUPAG=1 y h P IFT DEVIND=4 y ~ PFD:BUF EQU 0 y P XIF y P* y PFDCIO EQU *-DWFD01 KST y P CIO A2,1,CUADR KST y PFDSST EQU *-DW
0x9a430…9a5c4 Dummy {f00=0x0088, f01=0x0190, f02=» A2,0,CUADR KST y PFDINR EQU *-DWFD01 KST z P INR A3,0,CUADR KST z 8 P* z T P* z ^ 6 P* NEXT DWT INTRODUCED BY KST 80-11-12 z h P* z PDWFD02 EQU * z P DATA 0 z P DATA /8000 DWT STATUS z P DATA 0 ECB ADDRESS z
0x9a5c4…9a758 Dummy {f00=0x0088, f01=0x0190, f02=»0 TERMINAL QUEUE z P* { IFT MMUPAG=1 { " & " DATA 0 SAVE AREA USER ECB ADDRESS { 8 P DATA DVECB2 MMU ECB ADDRESS { b XIF { P* { P DATA 0 { P DATA 0 SAVE AREA { P DATA 0 { P DATA 0 { P DATA 0,0,0,0 STACK { P DATA
0x9a758…9a8ec Dummy {f00=0x0088, f01=0x0190, f02=»0,0,0 { P DATA 0,0,0 | P IFT OPCLOS=1 | " P DATA 0 | 8 P DATA 0 | H P XIF | X P* | d P IFT CHAN=1 | n P DATA 0 | P DATA 0 | P DATA 0 | P XIF | P* | P IFT IBM=1 | P DATA 0,0,0,0 | P DATA 0,0,0,0 | P D
0x9a8ec…9aa80 Dummy {f00=0x0088, f01=0x018e, f02=» DSKPAG+SWPBLK=0 | * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS } P DATA 0 SECOND MMU ENTRY } F P* } f * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS } p P* } $ P DATA 0 SAVE AREA BUFFER ADDRESS } P XIF } P* } P IFT MMUPAG=1 } PDVECB2 EQU *
0x9aa80…9ac14 (0, 196) Dummy {f00=0x0088, f01=0x4102, f02=» P* ~ P IFT MMUPAG=1 ~ P IFT DEVIND=4 ~ $ PFDBUF2 EQU 0 ~ : P XIF ~ N " P CIO A2,1,CUADR2 CIO-START KST ~ Z P SST A3,CUADR2 ~ P OTR A3,0,CUADR2 ~ P CIO A2,0,CUADR2 ~ P INR A3,0,CUADR2 ~ P* ~ P* ~ P END ~ @ ~
0x9ac14…9ada8 Dummy {f00=0x0088, f01=0x2008, f02=» END @
0x9ada8…9af3c Dummy {f00=0x0088, f01=0x0190, f02=» _+H I I _s4 I H oA 6 bb - V k, n@ A ! V @ H 1 " 4 T& $ H T I A W @ I 1 W 1 P T _84 HU 0 _ AU R T * >D $^> Tr > W_ V > > > >" >$ ! ! V
0x9af3c…9b0d0 Dummy {f00=0x0088, f01=0x0190, f02=» >' >) R T $^> T @U 4 @U 4 i i i i i i 4 b " S % V W T 4 bHV 0 _ AV <D " < T9 V j < " _( j < @V 4 @V 4 @V 4 RoPmHV 0 _ "TSaAV " < T < T T
0x9b0d0…9b264 Dummy {f00=0x0088, f01=0x0190, f02=»j < ) V W! <D j< " < X S T <D " < ! Y ! _ h< D P _/ T <D " < 4 R[TYHV 0 _ AV # $ , T " < T1 " < T& _% T <D < " <T T @V 4 @V 4 ) b T T$ T S
0x9b264…9b3f8 Dummy {f00=0x0088, f01=0x0190, f02=»j< " < X _54 V R#T W$# j T P T V_ _ 4 4 R6P HV 0 _ AV , T <D " < T V < @V 4 @V 4 V 4 j 4 I, W b @ V m W 6 _ ! V A |W |W Tt! YM) _ Wc% VC
0x9b3f8…9b58c Dummy {f00=0x0088, f01=0x0190, f02=» 6 W DW 6 W DW W 4 H,- A A ( T ! _ @ ' T _.@ 4 @ 4 ch T f 4 4 j ; j '; ;) d i4 j; ' j; ' - V Dj; ' 4 6 H 1 W H 1 W H 1 W 4 6 H 0 W H 0 W H 0 W 4 HS
0x9b58c…9b720 Dummy {f00=0x0088, f01=0x0190, f02=» * l " " + 3 ? & = d } : d j + O & V n 0 FORESPG. SLETNING STRAKSLEVVEDLIGEH. 9999XXXXXXX9999999999XXXXXXXXXXBZZZVZZZVZZ9E,99- ;
0x9b720…9b8b4 (0, 197) Opaque[0x194]
0x9b8b4…9ba48 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2040, f03=0x0000}
0x9b8b4…9ba48 IdxSect {
0x9b8b4…9ba48 f00 = 0x0102 // 0x9b8b4 @0x0
0x9b8b4…9ba48 f01 = 0x0004 // 0x9b8b6 @0x2
0x9b8b4…9ba48 gno = [ // 0x9b8b8 @0x4
0x9b8b4…9ba48 [0x00]: C0x0102.0x0.0
0x9b8b4…9ba48 [0x01]: C0x0102.0x1.0
0x9b8b4…9ba48 ]
0x9b8b4…9ba48 }
0x9ba48…9bbdc Dummy {f00=0x0102, 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*
0x9bbdc…9bd70 Dummy {f00=0x0102, 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
0x9bd70…9bf04 Dummy {f00=0x0102, 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
0x9bf04…9c098 Dummy {f00=0x0102, 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
0x9c098…9c22c Dummy {f00=0x0102, 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,
0x9c22c…9c3c0 Dummy {f00=0x0102, 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
0x9c3c0…9c554 (0, 198) Dummy {f00=0x0102, 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
0x9c554…9c6e8 Dummy {f00=0x0102, 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
0x9c6e8…9c87c Dummy {f00=0x0102, 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
0x9c87c…9ca10 Dummy {f00=0x0102, 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,
0x9ca10…9cba4 Dummy {f00=0x0102, f01=0x0190, f02=» 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 CHECK NEXT ENTRY =3 PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB
0x9cba4…9cd38 Dummy {f00=0x0102, f01=0x0190, f02=» P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE 8 P XIF d PDCTP30 EQU * p P SUR A1,A1 RETURN CODE ::= 0 PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P EJECT P*
0x9cd38…9cecc Dummy {f00=0x0102, f01=0x0190, f02=» P* PDCWR EQU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH 6 " P CWK A1,BUFLEN ILLEGAL LENGTH? ^ P RF(G) IL:LEN YES!! P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P*
0x9cecc…9d060 Dummy {f00=0x0102, f01=0x0190, f02=» P* PDCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE @ " P RF(Z) DCRD10 NOTHING IN QUEUE r P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P L
0x9d060…9d1f4 (0, 199) Opaque[0x194]
0x9d1f4…9d388 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2218, f03=0x0000}
0x9d1f4…9d388 IdxSect {
0x9d1f4…9d388 f00 = 0x0110 // 0x9d1f4 @0x0
0x9d1f4…9d388 f01 = 0x0006 // 0x9d1f6 @0x2
0x9d1f4…9d388 gno = [ // 0x9d1f8 @0x4
0x9d1f4…9d388 [0x00]: C0x0110.0x3.0
0x9d1f4…9d388 [0x01]: C0x0111.0x0.0
0x9d1f4…9d388 [0x02]: C0x0111.0x1.0
0x9d1f4…9d388 ]
0x9d1f4…9d388 }
0x9d388…9d51c Dummy {f00=0x0110, 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*
0x9d51c…9d6b0 Dummy {f00=0x0110, 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
0x9d6b0…9d844 Dummy {f00=0x0110, 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
0x9d844…9d9d8 Dummy {f00=0x0110, 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********
0x9d9d8…9db6c Dummy {f00=0x0110, 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
0x9db6c…9dd00 Dummy {f00=0x0110, 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
0x9dd00…9de94 (0, 200) Dummy {f00=0x0111, 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
0x9de94…9e028 Dummy {f00=0x0111, 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 .
0x9e028…9e1bc Dummy {f00=0x0111, 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
0x9e1bc…9e350 Dummy {f00=0x0111, 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
0x9e350…9e4e4 Dummy {f00=0x0111, 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
0x9e4e4…9e678 Dummy {f00=0x0111, 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
0x9e678…9e80c Dummy {f00=0x0111, 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
0x9e80c…9e9a0 Dummy {f00=0x0111, 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
0x9e9a0…9eb34 (0, 201) Dummy {f00=0x0111, 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
0x9eb34…9ecc8 Dummy {f00=0x0111, f01=0x4142, f02=» : ; ; ; 2 ; D ; V ; f J F " D 4 L L L L4 L L L L4 ! LJ! L ! L L 4 RW R ; v ; . $ ; @ < : 6 W 6 $
0x9ecc8…9ee5c Dummy {f00=0x0111, f01=0x0190, f02=» : H IDENT REMPRT TRA 4.2 80-08-21 F1 O1111 04.01.XXX.1 AD4100 AD4200 AD4300 B $$$TRAM d $ AD4100 AD4200A @ AD4300 v > : ADMRETM BDTDELA BDTPRT0 BDTSCAF CHDATO SPCLRAX T:ATTF
0x9ee5c…9eff0 Dummy {f00=0x0111, f01=0x0190, f02=»0 M :0 M =0 M ? 0 J F " D H.0A 1XF R6 ## W!! L ! L A0 FL GL HL R RT W @0 FL GL HL?R @ P Q S `0 A f0 A j0 p0
0x9eff0…9f184 Dummy {f00=0x0111, f01=0x0190, f02=» FL GL H R 0 @ 0 I P 0 I b 0 I t 0 0 0 0
0x9f184…9f318 Dummy {f00=0x0111, f01=0x0190, f02=» 0 0 . @ 0 P 0 b 0 t J F " D HL R T @YW @/?RH.0A 1XF R6 ## W! % L L RT % L L L RT $ &
0x9f318…9f4ac Dummy {f00=0x0111, f01=0x0190, f02=» $ & & R DATO , $ @ $ P & ` BFO (1-9)T n $ & X " & ADVISLISTE (0-1) $
0x9f4ac…9f640 Dummy {f00=0x0111, f01=0x0190, f02=» RUTINE $ BUNDTREMITTERING $ $ D & T UDSKR. b $ x DATO $ $ & BFO (1-9)T $ &
0x9f640…9f7d4 (0, 202) Opaque[0x194]
0x9f7d4…9f968 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2068, f03=0x0000}
0x9f7d4…9f968 IdxSect {
0x9f7d4…9f968 f00 = 0x0103 // 0x9f7d4 @0x0
0x9f7d4…9f968 f01 = 0x0006 // 0x9f7d6 @0x2
0x9f7d4…9f968 gno = [ // 0x9f7d8 @0x4
0x9f7d4…9f968 [0x00]: C0x0103.0x1.0
0x9f7d4…9f968 [0x01]: C0x0103.0x2.0
0x9f7d4…9f968 [0x02]: C0x0103.0x3.0
0x9f7d4…9f968 ]
0x9f7d4…9f968 }
0x9f968…9fafc Dummy {f00=0x0103, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x9fafc…9fc90 Dummy {f00=0x0103, f01=0x0190, f02=»WING n P* TOSS MMU LKM PROCESSORS: P* 0 " P* - TCHPAG = CHANGE MMU PAGE : P* ` $ P* - TCHMMU = CHANGE MMU TABLE j P* & P* - TLUSEG = LOCK/UNLOCK SEGMENT P* P* P EJECT TMMLKM P* P* P**
0x9fc90…9fe24 Dummy {f00=0x0103, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P < P D P L P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID , P EXTRN LKMQDI QUEUE TA
0x9fe24…9ffb8 Dummy {f00=0x0103, f01=0x0190, f02=»AB ADDRESS ~ $ P EXTRN SCTNOS NUMBER OF SEGMENTS P EJECT TMMLKM : P* R P* P********** f P* TCHPAG * x P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR. P* B P* TCHPAG WILL CHANGE T
0x9ffb8…a014c Dummy {f00=0x0103, f01=0x0190, f02=»TERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: " P* L P* A5 = TTAB ADDRESS V ( P* A7 = PAGE TO BE CHANGED, 0 - 15 t * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT RETURNS TO CALLING TASK WITH A7 AND A8 UN
0xa014c…a02e0 Dummy {f00=0x0103, f01=0x0190, f02=»XING IN MMU TABLE v P ADR A7,A5 ADD TTAB ADDRESS P LDR A2,A8 NEW PAGE LOCATION > . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) b P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE P* 0 PT:DISP ABL LKMQDI QUEUE
0xa02e0…a0474 (0, 203) Dummy {f00=0x0103, f01=0x018e, f02=»* P* 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. P* L D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK V 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P* * P* IT IS ENTERED FROM THE LKM HANDLER
0xa0474…a0608 Dummy {f00=0x0103, f01=0x0190, f02=» ` P* ( P* IT RETURNS TO CALLING TASK WITH P* THE FOLLOWING PARAMETER: > P* b 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE l & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU EQU * CHANGE MMU TABLE * P CF A15,FNDT
0xa0608…a079c Dummy {f00=0x0103, f01=0x0190, f02=»NTENTS h 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK * P RB T:DISP QUEUE TASK FOR DISPATCHING F P* t P EJECT TMMLKM ~ P* P* P********** P* TLUSEG * P********** P* P* 6 P* THIS IS THE LOCK
0xa079c…a0930 Dummy {f00=0x0103, f01=0x0190, f02=»OCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* 8 * P* IT IS ENTERED FROM THE LKM HANDLER B & P* WITH THE FOLLOWING PARAMETERS: p P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER & P* A8 = 0 IF LOCK SEGMENT REQUEST
0xa0930…a0ac4 Dummy {f00=0x0103, f01=0x0190, f02=» P* > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE P P* z P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0
0xa0ac4…a0c58 Dummy {f00=0x0103, f01=0x0190, f02=»TLCERR EQU * , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR P* D PTLUS00 EQU * N , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB b $ P AD A1,SCTSEG ADD SEGTAB ADDRESS " P LCR A4,A1 GET SEGMENT STATUS P ANK A4,/8 " P RB(NZ) TLCERR CORE RE
0xa0c58…a0dec Dummy {f00=0x0103, f01=0x4164, f02=» P EJECT TMMLKM P* P* LOCK SEGMENT & P* < 4 P ORRS A4,A1 INDICATE SEGMENT TO BE CORE RESIDENT F P RB T:DISP ~ P* P* UNLOCK SEGMENT P* PTLUS10 EQU * P C1R A4,A4 A4 := /FDFF 2 P ANRS A4,A1 INDICATE SEGME
0xa0dec…a0f80 Dummy {f00=0x0103, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0xa0f80…a1114 (0, 204) Dummy {f00=0x0103, 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*
0xa1114…a12a8 Dummy {f00=0x0103, 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
0xa12a8…a143c Dummy {f00=0x0103, 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
0xa143c…a15d0 Dummy {f00=0x0103, 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
0xa15d0…a1764 Dummy {f00=0x0103, 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?
0xa1764…a18f8 Dummy {f00=0x0103, 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?
0xa18f8…a1a8c Dummy {f00=0x0103, 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
0xa1a8c…a1c20 Dummy {f00=0x0103, f01=0x0000, f02=»
0xa1c20…a1db4 (0, 205) Opaque[0x194]
0xa1db4…a1f48 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a0, f03=0x0000}
0xa1db4…a1f48 IdxSect {
0xa1db4…a1f48 f00 = 0x0095 // 0xa1db4 @0x0
0xa1db4…a1f48 f01 = 0x0006 // 0xa1db6 @0x2
0xa1db4…a1f48 gno = [ // 0xa1db8 @0x4
0xa1db4…a1f48 [0x00]: C0x0095.0x0.0
0xa1db4…a1f48 [0x01]: C0x0095.0x1.0
0xa1db4…a1f48 [0x02]: C0x0096.0x2.0
0xa1db4…a1f48 ]
0xa1db4…a1f48 }
0xa1f48…a20dc Dummy {f00=0x0095, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0xa20dc…a2270 Dummy {f00=0x0095, f01=0x0190, f02=»M PROCESSOR, d 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* H P* R P EJECT TLDSEG P* t P* ~ P*********** P* ENTRIES * P*********** P* P* P ENTRY TLDSEG LOAD SEGMENT & P ENTRY TLDS15
0xa2270…a2404 Dummy {f00=0x0095, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS & P
0xa2404…a2598 Dummy {f00=0x0095, f01=0x018e, f02=»A TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 8 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK d P EXTRN SCTSEG SEGTAB ADDRESS $ P EXTRN SCTNOS NUMBER OF SEGMENTS & P EXTRN SCTMMP MMU TABLE PAGE ENTRY
0xa2598…a272c Dummy {f00=0x0095, f01=0x0190, f02=» . P***************************************** P* : P* CONDITIONAL ASSEMBLY D P* b . P***************************************** l P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P
0xa272c…a28c0 Dummy {f00=0x0095, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 1 P* 4 * > . ** A PROGRAM VERSION USING TOSS DISC PAGING H * &* IS OBTAINED BY SETTING DSKPAG EQU 1. z * PDSKPAG EQU 1 * P* 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER OVERL
0xa28c0…a2a54 (0, 206) Dummy {f00=0x0095, f01=0x0190, f02=» P********** P* TLDSEG * P********** ( P* : P* D 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. N P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* 4 P* A2 = DISPATCH ADDRESS
0xa2a54…a2be8 Dummy {f00=0x0095, f01=0x0190, f02=»S) d P* ( P* IT RETURNS TO CALLING TASK WITH " P* THE FOLLOWING PARAMETERS: @ P* f > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE p & P* A7 = -1 IF REQUEST ERROR, ELSE ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P
0xa2be8…a2d7c Dummy {f00=0x0095, f01=0x018e, f02=»UGH THE DISPATCHER AFTER p > P* COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, < P* IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. b P* : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL : P* ACTIVATE LDTASK WHICH WILL
0xa2d7c…a2f10 Dummy {f00=0x0095, f01=0x018e, f02=» PTLDSEG EQU * LOAD SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 & P RF(N) TLDERR REQUEST ERROR? T 2 P CW A1,SCTNOS CHECK IF SEGMENT NUMBER TOO BIG x P RF(NG) TLDS00 OK? P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BR
0xa2f10…a30a4 Dummy {f00=0x0095, f01=0x0190, f02=» P LDR A3,A5 GET TTAB ADDRESS , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB , $ P AD A1,SCTSEG ADD SEGTAB ADDRESS & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET D
0xa30a4…a3238 Dummy {f00=0x0095, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40
0xa3238…a33cc Dummy {f00=0x0095, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO D
0xa33cc…a3560 Dummy {f00=0x0095, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0xa3560…a36f4 (0, 207) Dummy {f00=0x0096, f01=0x0190, f02=»F REMOVED BLK n " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2 < P XIF T P* ` P EJECT TLDSEG j P* , P* GET PAGE ADDRESS OF REQUESTED SEGMENT P* & PTLDS20 EQU * ENTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAG
0xa36f4…a3888 Dummy {f00=0x0096, f01=0x0190, f02=»MMU TABLE j P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY , P LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES P P* P* UPDATE PAGE ENTRY/ENTRIES P* PTLDS25 EQU * P SCR A2,A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP
0xa3888…a3a1c Dummy {f00=0x0096, f01=0x0190, f02=»* P EJECT TLDSEG P* " P* , 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE 6 P SLL A1,2 n P OR A1,SCTLAP $ P TL TTB:MT,A5 LOAD MMU REGISTERS P* PTLDS40 EQU * P IFT ASSOLY=0 2 P ES A1,T:ACSB,A13 UPDA
0xa3a1c…a3bb0 Dummy {f00=0x0096, f01=0x0190, f02=» BASE h P XIF P* P IFT CPU852=0 $ P LDR A6,A5 : $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5
0xa3bb0…a3d44 Dummy {f00=0x0096, f01=0x4048, f02=» TASK v P XIF P* P* $ P* . END 8@ D $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5
0xa3d44…a3ed8 Dummy {f00=0x0096, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0xa3ed8…a406c Dummy {f00=0x0096, f01=0x0190, f02=»D OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT? 2 P RF(Z) CLK30 TIME OUT? T P LDR* A3,A4 RELEASE TIMER r P STR A3,A6 P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 P* P EJECT
0xa406c…a4200 Dummy {f00=0x0096, f01=0x018e, f02=» P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF H P* T P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK t P XIF P* $ P CF A15,SWL48 SWITCH TO LEVEL 48 P INH P LD A2,2,A4 LOAD DISP BLOCK P
0xa4200…a4394 (0, 208) Opaque[0x194]
0xa4394…a4528 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2080, f03=0x0000}
0xa4394…a4528 IdxSect {
0xa4394…a4528 f00 = 0x0104 // 0xa4394 @0x0
0xa4394…a4528 f01 = 0x0004 // 0xa4396 @0x2
0xa4394…a4528 gno = [ // 0xa4398 @0x4
0xa4394…a4528 [0x00]: C0x0104.0x0.0
0xa4394…a4528 [0x01]: C0x0104.0x1.0
0xa4394…a4528 ]
0xa4394…a4528 }
0xa4528…a46bc Dummy {f00=0x0104, 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*
0xa46bc…a4850 Dummy {f00=0x0104, 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*
0xa4850…a49e4 Dummy {f00=0x0104, 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/
0xa49e4…a4b78 Dummy {f00=0x0104, 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
0xa4b78…a4d0c Dummy {f00=0x0104, 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
0xa4d0c…a4ea0 Dummy {f00=0x0104, 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
0xa4ea0…a5034 (0, 209) Dummy {f00=0x0104, 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?
0xa5034…a51c8 Dummy {f00=0x0104, 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
0xa51c8…a535c Dummy {f00=0x0104, 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)
0xa535c…a54f0 Dummy {f00=0x0104, 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)
0xa54f0…a5684 Dummy {f00=0x0104, f01=0x2008, f02=»
0xa5684…a5818 Dummy {f00=0x0104, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40
0xa5818…a59ac Dummy {f00=0x0104, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO D
0xa59ac…a5b40 Dummy {f00=0x0104, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0xa5b40…a5cd4 (0, 210) Opaque[0x194]
0xa5cd4…a5e68 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2090, f03=0x0000}
0xa5cd4…a5e68 IdxSect {
0xa5cd4…a5e68 f00 = 0x0104 // 0xa5cd4 @0x0
0xa5cd4…a5e68 f01 = 0x0006 // 0xa5cd6 @0x2
0xa5cd4…a5e68 gno = [ // 0xa5cd8 @0x4
0xa5cd4…a5e68 [0x00]: C0x0104.0x2.0
0xa5cd4…a5e68 [0x01]: C0x0104.0x3.0
0xa5cd4…a5e68 [0x02]: C0x0105.0x0.0
0xa5cd4…a5e68 ]
0xa5cd4…a5e68 }
0xa5e68…a5ffc Dummy {f00=0x0104, 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*
0xa5ffc…a6190 Dummy {f00=0x0104, 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
0xa6190…a6324 Dummy {f00=0x0104, 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
0xa6324…a64b8 Dummy {f00=0x0104, 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
0xa64b8…a664c Dummy {f00=0x0104, 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
0xa664c…a67e0 Dummy {f00=0x0104, 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*
0xa67e0…a6974 (0, 211) Dummy {f00=0x0104, 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
0xa6974…a6b08 Dummy {f00=0x0104, 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
0xa6b08…a6c9c Dummy {f00=0x0104, 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*
0xa6c9c…a6e30 Dummy {f00=0x0104, 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
0xa6e30…a6fc4 Dummy {f00=0x0104, 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
0xa6fc4…a7158 Dummy {f00=0x0104, 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
0xa7158…a72ec Dummy {f00=0x0104, 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
0xa72ec…a7480 Dummy {f00=0x0104, 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
0xa7480…a7614 (0, 212) Dummy {f00=0x0105, 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
0xa7614…a77a8 Dummy {f00=0x0105, 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
0xa77a8…a793c Dummy {f00=0x0105, 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)
0xa793c…a7ad0 Dummy {f00=0x0105, 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)
0xa7ad0…a7c64 Dummy {f00=0x0105, f01=0x2008, f02=»
0xa7c64…a7df8 Dummy {f00=0x0105, 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)
0xa7df8…a7f8c Dummy {f00=0x0105, 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
0xa7f8c…a8120 Dummy {f00=0x0105, 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*
0xa8120…a82b4 (0, 213) Opaque[0x194]
0xa82b4…a8448 # DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22e8, f03=0x0000}
0xa82b4…a8448 IdxSect {
0xa82b4…a8448 f00 = 0x0117 // 0xa82b4 @0x0
0xa82b4…a8448 f01 = 0x000c // 0xa82b6 @0x2
0xa82b4…a8448 gno = [ // 0xa82b8 @0x4
0xa82b4…a8448 [0x00]: C0x0117.0x1.0
0xa82b4…a8448 [0x01]: C0x0118.0x1.0
0xa82b4…a8448 [0x02]: C0x0118.0x2.0
0xa82b4…a8448 [0x03]: C0x0118.0x3.0
0xa82b4…a8448 [0x04]: C0x0119.0x0.0
0xa82b4…a8448 [0x05]: C0x0119.0x1.0
0xa82b4…a8448 ]
0xa82b4…a8448 }
0xa8448…a85dc Dummy {f00=0x0117, 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*
0xa85dc…a8770 Dummy {f00=0x0117, 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
0xa8770…a8904 Dummy {f00=0x0117, 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
0xa8904…a8a98 Dummy {f00=0x0117, f01=0x0190, f02=» t . P* I I P* +---------------------+ : P* I I P* I VOL NAME I ~ P* I I P* +---------------------+ P* I I P*
0xa8a98…a8c2c Dummy {f00=0x0117, 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
0xa8c2c…a8dc0 Dummy {f00=0x0117, 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
0xa8dc0…a8f54 (0, 214) Dummy {f00=0x0118, 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* +
0xa8f54…a90e8 Dummy {f00=0x0118, 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
0xa90e8…a927c Dummy {f00=0x0118, 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
0xa927c…a9410 Dummy {f00=0x0118, 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
0xa9410…a95a4 Dummy {f00=0x0118, 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
0xa95a4…a9738 Dummy {f00=0x0118, 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
0xa9738…a98cc Dummy {f00=0x0118, 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
0xa98cc…a9a60 Dummy {f00=0x0118, 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
0xa9a60…a9bf4 (0, 215) Dummy {f00=0x0118, 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,
0xa9bf4…a9d88 Dummy {f00=0x0118, 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
0xa9d88…a9f1c Dummy {f00=0x0118, 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
0xa9f1c…aa0b0 Dummy {f00=0x0118, 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
0xaa0b0…aa244 Dummy {f00=0x0118, 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
0xaa244…aa3d8 Dummy {f00=0x0118, 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****
0xaa3d8…aa56c Dummy {f00=0x0118, 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
0xaa56c…aa700 Dummy {f00=0x0118, 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
0xaa700…aa894 (0, 216) Dummy {f00=0x0118, 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
0xaa894…aaa28 Dummy {f00=0x0118, 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
0xaaa28…aabbc Dummy {f00=0x0118, 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
0xaabbc…aad50 Dummy {f00=0x0118, 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
0xaad50…aaee4 Dummy {f00=0x0118, 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
0xaaee4…ab078 Dummy {f00=0x0118, 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
0xab078…ab20c Dummy {f00=0x0118, 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
0xab20c…ab3a0 Dummy {f00=0x0118, 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
0xab3a0…ab534 (0, 217) Dummy {f00=0x0119, 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
0xab534…ab6c8 Dummy {f00=0x0119, 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
0xab6c8…ab85c Dummy {f00=0x0119, 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
0xab85c…ab9f0 Dummy {f00=0x0119, 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* ! ,
0xab9f0…abb84 Dummy {f00=0x0119, 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*
0xabb84…abd18 Dummy {f00=0x0119, 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
0xabd18…abeac Dummy {f00=0x0119, 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
0xabeac…ac040 Dummy {f00=0x0119, 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 %
0xac040…ac1d4 (0, 218) Dummy {f00=0x0119, 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
0xac1d4…ac368 Dummy {f00=0x0119, 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 '
0xac368…ac4fc Dummy {f00=0x0119, 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)
0xac4fc…ac690 Dummy {f00=0x0119, 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 )
0xac690…ac824 Dummy {f00=0x0119, 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 *
0xac824…ac9b8 Dummy {f00=0x0119, 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 +
0xac9b8…acb4c Dummy {f00=0x0119, f01=0x2008, f02=» ,
0xacb4c…acce0 Dummy {f00=0x0119, 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* +
0xacce0…ace74 (0, 219) Opaque[0x194]
0xace74…ad008 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2528, f03=0x0000}
0xace74…ad008 IdxSect {
0xace74…ad008 f00 = 0x0129 // 0xace74 @0x0
0xace74…ad008 f01 = 0x000c // 0xace76 @0x2
0xace74…ad008 gno = [ // 0xace78 @0x4
0xace74…ad008 [0x00]: C0x0129.0x1.0
0xace74…ad008 [0x01]: C0x0129.0x2.0
0xace74…ad008 [0x02]: C0x0129.0x3.0
0xace74…ad008 [0x03]: C0x012a.0x0.0
0xace74…ad008 [0x04]: C0x012a.0x1.0
0xace74…ad008 [0x05]: C0x012a.0x2.0
0xace74…ad008 ]
0xace74…ad008 }
0xad008…ad19c Dummy {f00=0x0129, 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
0xad19c…ad330 Dummy {f00=0x0129, 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
0xad330…ad4c4 Dummy {f00=0x0129, 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
0xad4c4…ad658 Dummy {f00=0x0129, 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
0xad658…ad7ec Dummy {f00=0x0129, 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
0xad7ec…ad980 Dummy {f00=0x0129, 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************
0xad980…adb14 (0, 220) Dummy {f00=0x0129, 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
0xadb14…adca8 Dummy {f00=0x0129, 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
0xadca8…ade3c Dummy {f00=0x0129, 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
0xade3c…adfd0 Dummy {f00=0x0129, 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
0xadfd0…ae164 Dummy {f00=0x0129, 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
0xae164…ae2f8 Dummy {f00=0x0129, 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
0xae2f8…ae48c Dummy {f00=0x0129, 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
0xae48c…ae620 Dummy {f00=0x0129, 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
0xae620…ae7b4 (0, 221) Dummy {f00=0x0129, 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*
0xae7b4…ae948 Dummy {f00=0x0129, 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
0xae948…aeadc Dummy {f00=0x0129, 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
0xaeadc…aec70 Dummy {f00=0x0129, 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
0xaec70…aee04 Dummy {f00=0x0129, 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
0xaee04…aef98 Dummy {f00=0x0129, 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
0xaef98…af12c Dummy {f00=0x0129, 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*
0xaf12c…af2c0 Dummy {f00=0x0129, 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
0xaf2c0…af454 (0, 222) Dummy {f00=0x012a, 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
0xaf454…af5e8 Dummy {f00=0x012a, 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
0xaf5e8…af77c Dummy {f00=0x012a, 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
0xaf77c…af910 Dummy {f00=0x012a, 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
0xaf910…afaa4 Dummy {f00=0x012a, 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
0xafaa4…afc38 Dummy {f00=0x012a, 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
0xafc38…afdcc Dummy {f00=0x012a, 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
0xafdcc…aff60 Dummy {f00=0x012a, 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
0xaff60…b00f4 (0, 223) Dummy {f00=0x012a, 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
0xb00f4…b0288 Dummy {f00=0x012a, 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
0xb0288…b041c Dummy {f00=0x012a, 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
0xb041c…b05b0 Dummy {f00=0x012a, 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
0xb05b0…b0744 Dummy {f00=0x012a, 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
0xb0744…b08d8 Dummy {f00=0x012a, 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
0xb08d8…b0a6c Dummy {f00=0x012a, 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
0xb0a6c…b0c00 Dummy {f00=0x012a, 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
0xb0c00…b0d94 (0, 224) Dummy {f00=0x012a, 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,
0xb0d94…b0f28 Dummy {f00=0x012a, 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 '
0xb0f28…b10bc Dummy {f00=0x012a, 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 (
0xb10bc…b1250 Dummy {f00=0x012a, 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 (
0xb1250…b13e4 Dummy {f00=0x012a, f01=0x2008, f02=» *
0xb13e4…b1578 Dummy {f00=0x012a, f01=0x018e, f02=» , > J F " D 4 HU 0X _ AU R R T L >D R$L> Tr R LL>L W_ L R LL> P
0xb1578…b170c Dummy {f00=0x012a, f01=0x0190, f02=» 0 ( : J % n J F " D L R LL>L R LL>L R LL>L R LL>L ! ! L R
0xb170c…b18a0 Dummy {f00=0x012a, f01=0x018e, f02=» 9 ; J F " D LL>L R LL>L@U 4 @U 4 HU 0X _ AU >D R>LL L R>LL L A n C ~ D F L N O Q W
0xb18a0…b1a34 (0, 225) Opaque[0x194]
0xb1a34…b1bc8 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1878, f03=0x0000}
0xb1a34…b1bc8 IdxSect {
0xb1a34…b1bc8 f00 = 0x00c3 // 0xb1a34 @0x0
0xb1a34…b1bc8 f01 = 0x0026 // 0xb1a36 @0x2
0xb1a34…b1bc8 gno = [ // 0xb1a38 @0x4
0xb1a34…b1bc8 [0x00]: C0x00c3.0x3.0
0xb1a34…b1bc8 [0x01]: C0x011f.0x2.0
0xb1a34…b1bc8 [0x02]: C0x011f.0x3.0
0xb1a34…b1bc8 [0x03]: C0x0120.0x0.0
0xb1a34…b1bc8 [0x04]: C0x0120.0x1.0
0xb1a34…b1bc8 [0x05]: C0x012a.0x3.0
0xb1a34…b1bc8 [0x06]: C0x012b.0x0.0
0xb1a34…b1bc8 [0x07]: C0x012b.0x2.0
0xb1a34…b1bc8 [0x08]: C0x012b.0x3.0
0xb1a34…b1bc8 [0x09]: C0x012c.0x0.0
0xb1a34…b1bc8 [0x0a]: C0x012c.0x1.0
0xb1a34…b1bc8 [0x0b]: C0x012c.0x2.0
0xb1a34…b1bc8 [0x0c]: C0x012c.0x3.0
0xb1a34…b1bc8 [0x0d]: C0x012d.0x0.0
0xb1a34…b1bc8 [0x0e]: C0x012d.0x1.0
0xb1a34…b1bc8 [0x0f]: C0x012d.0x2.0
0xb1a34…b1bc8 [0x10]: C0x012d.0x3.0
0xb1a34…b1bc8 [0x11]: C0x012e.0x0.0
0xb1a34…b1bc8 [0x12]: C0x012e.0x1.0
0xb1a34…b1bc8 ]
0xb1a34…b1bc8 }
0xb1bc8…b1d5c Dummy {f00=0x00c3, 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
0xb1d5c…b1ef0 Dummy {f00=0x00c3, 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
0xb1ef0…b2084 Dummy {f00=0x00c3, 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
0xb2084…b2218 Dummy {f00=0x00c3, 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
0xb2218…b23ac Dummy {f00=0x00c3, 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
0xb23ac…b2540 Dummy {f00=0x00c3, 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
0xb2540…b26d4 (0, 226) Dummy {f00=0x011f, 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
0xb26d4…b2868 Dummy {f00=0x011f, 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
0xb2868…b29fc Dummy {f00=0x011f, 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
0xb29fc…b2b90 Dummy {f00=0x011f, 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*
0xb2b90…b2d24 Dummy {f00=0x011f, 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
0xb2d24…b2eb8 Dummy {f00=0x011f, 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
0xb2eb8…b304c Dummy {f00=0x011f, f01=0x0190, f02=» . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 * d PDSKPAG EQU 1 n * P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P*
0xb304c…b31e0 Dummy {f00=0x011f, 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*
0xb31e0…b3374 (0, 227) Dummy {f00=0x011f, 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
0xb3374…b3508 Dummy {f00=0x011f, 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
0xb3508…b369c Dummy {f00=0x011f, 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
0xb369c…b3830 Dummy {f00=0x011f, 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
0xb3830…b39c4 Dummy {f00=0x011f, 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
0xb39c4…b3b58 Dummy {f00=0x011f, 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
0xb3b58…b3cec Dummy {f00=0x011f, 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
0xb3cec…b3e80 Dummy {f00=0x011f, 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
0xb3e80…b4014 (0, 228) Dummy {f00=0x0120, 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
0xb4014…b41a8 Dummy {f00=0x0120, 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
0xb41a8…b433c Dummy {f00=0x0120, 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*
0xb433c…b44d0 Dummy {f00=0x0120, 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
0xb44d0…b4664 Dummy {f00=0x0120, 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
0xb4664…b47f8 Dummy {f00=0x0120, 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
0xb47f8…b498c Dummy {f00=0x0120, 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
0xb498c…b4b20 Dummy {f00=0x0120, 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
0xb4b20…b4cb4 (0, 229) Dummy {f00=0x0120, 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
0xb4cb4…b4e48 Dummy {f00=0x0120, 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
0xb4e48…b4fdc Dummy {f00=0x0120, 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
0xb4fdc…b5170 Dummy {f00=0x0120, 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
0xb5170…b5304 Dummy {f00=0x0120, 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
0xb5304…b5498 Dummy {f00=0x0120, 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
0xb5498…b562c Dummy {f00=0x0120, 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 * $
0xb562c…b57c0 Dummy {f00=0x0120, 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,
0xb57c0…b5954 (0, 230) Dummy {f00=0x012a, 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
0xb5954…b5ae8 Dummy {f00=0x012a, 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
0xb5ae8…b5c7c Dummy {f00=0x012a, 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 (
0xb5c7c…b5e10 Dummy {f00=0x012a, 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
0xb5e10…b5fa4 Dummy {f00=0x012a, 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 *
0xb5fa4…b6138 Dummy {f00=0x012a, 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,
0xb6138…b62cc Dummy {f00=0x012a, 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
0xb62cc…b6460 Dummy {f00=0x012a, 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
0xb6460…b65f4 (0, 231) Dummy {f00=0x012b, 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
0xb65f4…b6788 Dummy {f00=0x012b, 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
0xb6788…b691c Dummy {f00=0x012b, 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
0xb691c…b6ab0 Dummy {f00=0x012b, 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
0xb6ab0…b6c44 Dummy {f00=0x012b, 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
0xb6c44…b6dd8 Dummy {f00=0x012b, 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
0xb6dd8…b6f6c Dummy {f00=0x012b, 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
0xb6f6c…b7100 Dummy {f00=0x012b, 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*
0xb7100…b7294 (0, 232) Dummy {f00=0x012b, 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
0xb7294…b7428 Dummy {f00=0x012b, 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
0xb7428…b75bc Dummy {f00=0x012b, 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
0xb75bc…b7750 Dummy {f00=0x012b, 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
0xb7750…b78e4 Dummy {f00=0x012b, 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
0xb78e4…b7a78 Dummy {f00=0x012b, 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
0xb7a78…b7c0c Dummy {f00=0x012b, 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
0xb7c0c…b7da0 Dummy {f00=0x012b, 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* =
0xb7da0…b7f34 (0, 233) Dummy {f00=0x012b, 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 >
0xb7f34…b80c8 Dummy {f00=0x012b, 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
0xb80c8…b825c Dummy {f00=0x012b, 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
0xb825c…b83f0 Dummy {f00=0x012b, 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
0xb83f0…b8584 Dummy {f00=0x012b, 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
0xb8584…b8718 Dummy {f00=0x012b, 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 "
0xb8718…b88ac Dummy {f00=0x012b, 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
0xb88ac…b8a40 Dummy {f00=0x012b, 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
0xb8a40…b8bd4 (0, 234) Dummy {f00=0x012c, 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
0xb8bd4…b8d68 Dummy {f00=0x012c, 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
0xb8d68…b8efc Dummy {f00=0x012c, 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
0xb8efc…b9090 Dummy {f00=0x012c, 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
0xb9090…b9224 Dummy {f00=0x012c, 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
0xb9224…b93b8 Dummy {f00=0x012c, 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
0xb93b8…b954c Dummy {f00=0x012c, 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
0xb954c…b96e0 Dummy {f00=0x012c, 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,
0xb96e0…b9874 (0, 235) Dummy {f00=0x012c, 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
0xb9874…b9a08 Dummy {f00=0x012c, 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
0xb9a08…b9b9c Dummy {f00=0x012c, 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
0xb9b9c…b9d30 Dummy {f00=0x012c, 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
0xb9d30…b9ec4 Dummy {f00=0x012c, 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
0xb9ec4…ba058 Dummy {f00=0x012c, 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
0xba058…ba1ec Dummy {f00=0x012c, 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 ,
0xba1ec…ba380 Dummy {f00=0x012c, 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
0xba380…ba514 (0, 236) Dummy {f00=0x012c, 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
0xba514…ba6a8 Dummy {f00=0x012c, 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
0xba6a8…ba83c Dummy {f00=0x012c, 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
0xba83c…ba9d0 Dummy {f00=0x012c, 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
0xba9d0…bab64 Dummy {f00=0x012c, 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
0xbab64…bacf8 Dummy {f00=0x012c, 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
0xbacf8…bae8c Dummy {f00=0x012c, 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
0xbae8c…bb020 Dummy {f00=0x012c, 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
0xbb020…bb1b4 (0, 237) Dummy {f00=0x012c, 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 ^
0xbb1b4…bb348 Dummy {f00=0x012c, 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
0xbb348…bb4dc Dummy {f00=0x012c, 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
0xbb4dc…bb670 Dummy {f00=0x012c, 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
0xbb670…bb804 Dummy {f00=0x012c, 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
0xbb804…bb998 Dummy {f00=0x012c, 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
0xbb998…bbb2c Dummy {f00=0x012c, 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
0xbbb2c…bbcc0 Dummy {f00=0x012c, 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
0xbbcc0…bbe54 (0, 238) Dummy {f00=0x012d, 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
0xbbe54…bbfe8 Dummy {f00=0x012d, 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
0xbbfe8…bc17c Dummy {f00=0x012d, 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
0xbc17c…bc310 Dummy {f00=0x012d, 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
0xbc310…bc4a4 Dummy {f00=0x012d, 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
0xbc4a4…bc638 Dummy {f00=0x012d, 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
0xbc638…bc7cc Dummy {f00=0x012d, 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
0xbc7cc…bc960 Dummy {f00=0x012d, 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
0xbc960…bcaf4 (0, 239) Dummy {f00=0x012d, 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
0xbcaf4…bcc88 Dummy {f00=0x012d, 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
0xbcc88…bce1c Dummy {f00=0x012d, 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
0xbce1c…bcfb0 Dummy {f00=0x012d, 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
0xbcfb0…bd144 Dummy {f00=0x012d, 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*
0xbd144…bd2d8 Dummy {f00=0x012d, 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
0xbd2d8…bd46c Dummy {f00=0x012d, 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
0xbd46c…bd600 Dummy {f00=0x012d, 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
0xbd600…bd794 (0, 240) Dummy {f00=0x012d, 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
0xbd794…bd928 Dummy {f00=0x012d, 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
0xbd928…bdabc Dummy {f00=0x012d, 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
0xbdabc…bdc50 Dummy {f00=0x012d, 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
0xbdc50…bdde4 Dummy {f00=0x012d, 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
0xbdde4…bdf78 Dummy {f00=0x012d, 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
0xbdf78…be10c Dummy {f00=0x012d, 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
0xbe10c…be2a0 Dummy {f00=0x012d, 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)
0xbe2a0…be434 (0, 241) Dummy {f00=0x012d, 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 ~
0xbe434…be5c8 Dummy {f00=0x012d, 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,
0xbe5c8…be75c Dummy {f00=0x012d, 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*
0xbe75c…be8f0 Dummy {f00=0x012d, 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*
0xbe8f0…bea84 Dummy {f00=0x012d, 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
0xbea84…bec18 Dummy {f00=0x012d, 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
0xbec18…bedac Dummy {f00=0x012d, 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*
0xbedac…bef40 Dummy {f00=0x012d, 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*
0xbef40…bf0d4 (0, 242) Dummy {f00=0x012e, 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
0xbf0d4…bf268 Dummy {f00=0x012e, 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
0xbf268…bf3fc Dummy {f00=0x012e, 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,
0xbf3fc…bf590 Dummy {f00=0x012e, 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
0xbf590…bf724 Dummy {f00=0x012e, 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
0xbf724…bf8b8 Dummy {f00=0x012e, 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
0xbf8b8…bfa4c Dummy {f00=0x012e, 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
0xbfa4c…bfbe0 Dummy {f00=0x012e, 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* +
0xbfbe0…bfd74 (0, 243) Dummy {f00=0x012e, f01=0x0190, f02=» " 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 Z * P LDKL A2,X'1420' FAST OUTPUT OF SPACES V r P SC A2,3,A1 =1 V P SRL A2,8 =1 V P SC A2,2,A1 =1 V P LDK A2,84 REQUESTED LENGTH V
0xbfd74…bff08 Dummy {f00=0x012e, f01=0x0190, f02=»C A2,ECBCW+1,A8 POS 1 ON NEXT LINE V P LDKL A2,/100 W * * P ADS A2,ECBCW,A8 INCREMENT LINE NUMBER W @ $ P RB SPACES PUT SPACES TO BUFFER W n P W P EJECT W P W P W D P**************************************************************** W P* W
0xbff08…c009c Dummy {f00=0x012e, f01=0x0190, f02=»******************************************************************** W P X L , PINTCHK SUR A10,A10 RESET INTENSITY COUNT X T 0 P LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE X P RF(Z) INTRTN NON DISPLAY X $ P ANK A2,X'4' HIGH INTENSITY ??? X P RF(Z)
0xc009c…c0230 Dummy {f00=0x012e, f01=0x0190, f02=»SITY X r P Y 8 PINT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER Y & P ADK A7,1 INCREMENT BUFFER POINTER Y P * P ADKL A10,1 INTENSITY COUNT Y z PINTRTN RTN A14 RETURN Y P* Y P EJECT Y P Y D P**********************************
0xc0230…c03c4 Dummy {f00=0x012e, f01=0x018c, f02=»******************************************************** Y P Z @ PSET:M CWK A2,/20 Z H & P RF(L) SET:M2 ATTRIBUTE CHARACTER Z ` P CWK A2,/7F Z & P RF(E) SET:M2 UNMODIFIED ATTRIBUTE Z P CWK A2,/FF Z ( P RF(NE) SET:M1 NOT NULL OR ATTRIBUTE Z ( P
0xc03c4…c0558 Dummy {f00=0x012e, f01=0x4008, f02=»@ [ ************************************************ Y P Z @ PSET:M CWK A2,/20 Z H & P RF(L) SET:M2 ATTRIBUTE CHARACTER Z ` P CWK A2,/7F Z & P RF(E) SET:M2 UNMODIFIED ATTRIBUTE Z P CWK A2,/FF Z ( P RF(NE) SET:M1 NOT NULL OR ATTRIBUTE Z ( P
0xc0558…c06ec Dummy {f00=0x012e, f01=0x2008, f02=» NT DUMMY END @ (
0xc06ec…c0880 Dummy {f00=0x012e, f01=0x018e, f02=» $ . BBBZZ " . BBZZ > " R BZZ b " v BBZB " ( $ ( $ $
0xc0880…c0a14 (0, 244) Opaque[0x194]
0xc0a14…c0ba8 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2260, f03=0x0000}
0xc0a14…c0ba8 IdxSect {
0xc0a14…c0ba8 f00 = 0x0113 // 0xc0a14 @0x0
0xc0a14…c0ba8 f01 = 0x0004 // 0xc0a16 @0x2
0xc0a14…c0ba8 gno = [ // 0xc0a18 @0x4
0xc0a14…c0ba8 [0x00]: C0x0113.0x0.0
0xc0a14…c0ba8 [0x01]: C0x0117.0x0.0
0xc0a14…c0ba8 ]
0xc0a14…c0ba8 }
0xc0ba8…c0d3c Dummy {f00=0x0113, 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*
0xc0d3c…c0ed0 Dummy {f00=0x0113, 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
0xc0ed0…c1064 Dummy {f00=0x0113, 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*
0xc1064…c11f8 Dummy {f00=0x0113, 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
0xc11f8…c138c Dummy {f00=0x0113, 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*
0xc138c…c1520 Dummy {f00=0x0113, 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
0xc1520…c16b4 (0, 245) Dummy {f00=0x0117, f01=0x405a, f02=»LK P CM TASQUE P* PDMINEX EQU * & P RTN A15 : P END J@ V
0xc16b4…c1848 Dummy {f00=0x0117, 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
0xc1848…c19dc Dummy {f00=0x0117, 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 , (
0xc19dc…c1b70 Dummy {f00=0x0117, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0xc1b70…c1d04 Dummy {f00=0x0117, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0xc1d04…c1e98 Dummy {f00=0x0117, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0xc1e98…c202c Dummy {f00=0x0117, 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
0xc202c…c21c0 Dummy {f00=0x0117, 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
0xc21c0…c2354 (0, 246) Opaque[0x194]
0xc2354…c24e8 # DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2278, f03=0x0000}
0xc2354…c24e8 IdxSect {
0xc2354…c24e8 f00 = 0x0113 // 0xc2354 @0x0
0xc2354…c24e8 f01 = 0x0010 // 0xc2356 @0x2
0xc2354…c24e8 gno = [ // 0xc2358 @0x4
0xc2354…c24e8 [0x00]: C0x0113.0x3.0
0xc2354…c24e8 [0x01]: C0x0114.0x1.0
0xc2354…c24e8 [0x02]: C0x0114.0x2.0
0xc2354…c24e8 [0x03]: C0x0114.0x3.0
0xc2354…c24e8 [0x04]: C0x0115.0x0.0
0xc2354…c24e8 [0x05]: C0x0115.0x1.0
0xc2354…c24e8 [0x06]: C0x0115.0x2.0
0xc2354…c24e8 [0x07]: C0x0116.0x3.0
0xc2354…c24e8 ]
0xc2354…c24e8 }
0xc24e8…c267c Dummy {f00=0x0113, 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******
0xc267c…c2810 Dummy {f00=0x0113, 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
0xc2810…c29a4 Dummy {f00=0x0113, 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
0xc29a4…c2b38 Dummy {f00=0x0113, 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
0xc2b38…c2ccc Dummy {f00=0x0113, 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
0xc2ccc…c2e60 Dummy {f00=0x0113, 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*
0xc2e60…c2ff4 (0, 247) Dummy {f00=0x0114, 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
0xc2ff4…c3188 Dummy {f00=0x0114, 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
0xc3188…c331c Dummy {f00=0x0114, 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
0xc331c…c34b0 Dummy {f00=0x0114, 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************
0xc34b0…c3644 Dummy {f00=0x0114, 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*
0xc3644…c37d8 Dummy {f00=0x0114, 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
0xc37d8…c396c Dummy {f00=0x0114, 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
0xc396c…c3b00 Dummy {f00=0x0114, 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
0xc3b00…c3c94 (0, 248) Dummy {f00=0x0114, 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
0xc3c94…c3e28 Dummy {f00=0x0114, 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 &
0xc3e28…c3fbc Dummy {f00=0x0114, 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
0xc3fbc…c4150 Dummy {f00=0x0114, 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
0xc4150…c42e4 Dummy {f00=0x0114, 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
0xc42e4…c4478 Dummy {f00=0x0114, 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
0xc4478…c460c Dummy {f00=0x0114, 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
0xc460c…c47a0 Dummy {f00=0x0114, 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
0xc47a0…c4934 (0, 249) Dummy {f00=0x0114, 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
0xc4934…c4ac8 Dummy {f00=0x0114, 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
0xc4ac8…c4c5c Dummy {f00=0x0114, 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
0xc4c5c…c4df0 Dummy {f00=0x0114, 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
0xc4df0…c4f84 Dummy {f00=0x0114, 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
0xc4f84…c5118 Dummy {f00=0x0114, 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
0xc5118…c52ac Dummy {f00=0x0114, 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
0xc52ac…c5440 Dummy {f00=0x0114, 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
0xc5440…c55d4 (0, 250) Dummy {f00=0x0115, 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
0xc55d4…c5768 Dummy {f00=0x0115, 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
0xc5768…c58fc Dummy {f00=0x0115, 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
0xc58fc…c5a90 Dummy {f00=0x0115, 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
0xc5a90…c5c24 Dummy {f00=0x0115, 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 "
0xc5c24…c5db8 Dummy {f00=0x0115, 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,
0xc5db8…c5f4c Dummy {f00=0x0115, 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*
0xc5f4c…c60e0 Dummy {f00=0x0115, 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,
0xc60e0…c6274 (0, 251) Dummy {f00=0x0115, 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
0xc6274…c6408 Dummy {f00=0x0115, 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
0xc6408…c659c Dummy {f00=0x0115, 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
0xc659c…c6730 Dummy {f00=0x0115, 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
0xc6730…c68c4 Dummy {f00=0x0115, 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 *
0xc68c4…c6a58 Dummy {f00=0x0115, 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
0xc6a58…c6bec Dummy {f00=0x0115, 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
0xc6bec…c6d80 Dummy {f00=0x0115, 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 -
0xc6d80…c6f14 (0, 252) Dummy {f00=0x0115, 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
0xc6f14…c70a8 Dummy {f00=0x0115, 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
0xc70a8…c723c Dummy {f00=0x0115, 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
0xc723c…c73d0 Dummy {f00=0x0115, 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
0xc73d0…c7564 Dummy {f00=0x0115, 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
0xc7564…c76f8 Dummy {f00=0x0115, 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
0xc76f8…c788c Dummy {f00=0x0115, 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
0xc788c…c7a20 Dummy {f00=0x0115, 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
0xc7a20…c7bb4 (0, 253) Dummy {f00=0x0116, 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(
0xc7bb4…c7d48 Dummy {f00=0x0116, 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
0xc7d48…c7edc Dummy {f00=0x0116, 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
0xc7edc…c8070 Dummy {f00=0x0116, 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
0xc8070…c8204 Dummy {f00=0x0116, 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
0xc8204…c8398 Dummy {f00=0x0116, 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 ;
0xc8398…c852c Dummy {f00=0x0116, 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
0xc852c…c86c0 Dummy {f00=0x0116, 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* =
0xc86c0…c8854 (0, 254) Opaque[0x194]
0xc8854…c89e8 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0cd8, f03=0x0000}
0xc8854…c89e8 IdxSect {
0xc8854…c89e8 f00 = 0x0066 // 0xc8854 @0x0
0xc8854…c89e8 f01 = 0x0008 // 0xc8856 @0x2
0xc8854…c89e8 gno = [ // 0xc8858 @0x4
0xc8854…c89e8 [0x00]: C0x0066.0x3.0
0xc8854…c89e8 [0x01]: C0x0094.0x1.0
0xc8854…c89e8 [0x02]: C0x0094.0x2.0
0xc8854…c89e8 [0x03]: C0x0094.0x3.0
0xc8854…c89e8 ]
0xc8854…c89e8 }
0xc89e8…c8b7c Dummy {f00=0x0066, 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
0xc8b7c…c8d10 Dummy {f00=0x0066, 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
0xc8d10…c8ea4 Dummy {f00=0x0066, 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
0xc8ea4…c9038 Dummy {f00=0x0066, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00004 : 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
0xc9038…c91cc Dummy {f00=0x0066, 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
0xc91cc…c9360 Dummy {f00=0x0066, 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
0xc9360…c94f4 (0, 255) Dummy {f00=0x0094, 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*
0xc94f4…c9688 Dummy {f00=0x0094, 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
0xc9688…c981c Dummy {f00=0x0094, 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
0xc981c…c99b0 Dummy {f00=0x0094, 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
0xc99b0…c9b44 Dummy {f00=0x0094, 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
0xc9b44…c9cd8 Dummy {f00=0x0094, 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
0xc9cd8…c9e6c Dummy {f00=0x0094, 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
0xc9e6c…ca000 Dummy {f00=0x0094, 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
0xca000…ca194 (0, 256) Dummy {f00=0x0094, 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
0xca194…ca328 Dummy {f00=0x0094, 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
0xca328…ca4bc Dummy {f00=0x0094, 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
0xca4bc…ca650 Dummy {f00=0x0094, 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*
0xca650…ca7e4 Dummy {f00=0x0094, 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
0xca7e4…ca978 Dummy {f00=0x0094, 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
0xca978…cab0c Dummy {f00=0x0094, 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*
0xcab0c…caca0 Dummy {f00=0x0094, 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**************
0xcaca0…cae34 (0, 257) Dummy {f00=0x0094, 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****************************
0xcae34…cafc8 Dummy {f00=0x0094, 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****************************
0xcafc8…cb15c Dummy {f00=0x0094, 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
0xcb15c…cb2f0 Dummy {f00=0x0094, 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
0xcb2f0…cb484 Dummy {f00=0x0094, 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
0xcb484…cb618 Dummy {f00=0x0094, 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
0xcb618…cb7ac Dummy {f00=0x0094, 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
0xcb7ac…cb940 Dummy {f00=0x0094, 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
0xcb940…cbad4 (0, 258) Opaque[0x194]
0xcbad4…cbc68 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20b0, f03=0x0000}
0xcbad4…cbc68 IdxSect {
0xcbad4…cbc68 f00 = 0x0105 // 0xcbad4 @0x0
0xcbad4…cbc68 f01 = 0x0004 // 0xcbad6 @0x2
0xcbad4…cbc68 gno = [ // 0xcbad8 @0x4
0xcbad4…cbc68 [0x00]: C0x0105.0x2.0
0xcbad4…cbc68 [0x01]: C0x0112.0x2.0
0xcbad4…cbc68 ]
0xcbad4…cbc68 }
0xcbc68…cbdfc Dummy {f00=0x0105, 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*
0xcbdfc…cbf90 Dummy {f00=0x0105, 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
0xcbf90…cc124 Dummy {f00=0x0105, 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 00240 CURRENCY AREA P* P*
0xcc124…cc2b8 Dummy {f00=0x0105, f01=0x0190, f02=» P* PQFDBAR EQU 00480 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
0xcc2b8…cc44c Dummy {f00=0x0105, 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 @
0xcc44c…cc5e0 Dummy {f00=0x0105, 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*
0xcc5e0…cc774 (0, 259) Dummy {f00=0x0112, f01=0x0190, f02=»MAX 4 WORDS | PDMT150 EQU * P LDR* A10,A4 ( P CWR* A10,A7 < P ABL(NE) DMT250 NO MATCH P P SUK A2,1 p . 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*
0xcc774…cc908 Dummy {f00=0x0112, f01=0x0190, f02=» DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO 8 P LDK A2,0 FILE EXTENT NUMBER R P RF DMT167 v . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN
0xcc908…cca9c Dummy {f00=0x0112, f01=0x0190, f02=» P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS P LDK A7,9 B * P ABL DMTASX MORE THAN 4 EXTENTS EXIST T 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
0xcca9c…ccc30 Dummy {f00=0x0112, f01=0x0190, f02=» LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 $ P LD A2,TASSEX,A1 > $ P RF(NZ) DMT250 NOT FIRST EXTENT V P EJECT ~ P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB *
0xccc30…ccdc4 Dummy {f00=0x0112, f01=0x0190, f02=»FDBSTA PDMT200 EQU * P LDR* A5,A12 " P ANK A5,/01 6 P RF(Z) DMT210 FREE J P LD A2,FDBEXT,A12 d 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 VTOC
0xccdc4…ccf58 Dummy {f00=0x0112, f01=0x0190, f02=»OUND j PDMT205 EQU * P LDK A7,5 FILE CODE USED P ABL DMTASX @ P* T $ PDMT210 LDR* A12,A12 GET NEXT FDB ^ P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P
0xccf58…cd0ec Dummy {f00=0x0112, 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
0xcd0ec…cd280 Dummy {f00=0x0112, 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
0xcd280…cd414 (0, 260) Opaque[0x194]
0xcd414…cd5a8 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20a8, f03=0x0000}
0xcd414…cd5a8 IdxSect {
0xcd414…cd5a8 f00 = 0x0105 // 0xcd414 @0x0
0xcd414…cd5a8 f01 = 0x0002 // 0xcd416 @0x2
0xcd414…cd5a8 gno = [ // 0xcd418 @0x4
0xcd414…cd5a8 [0x00]: C0x0105.0x1.0
0xcd414…cd5a8 ]
0xcd414…cd5a8 }
0xcd5a8…cd73c Dummy {f00=0x0105, 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
0xcd73c…cd8d0 Dummy {f00=0x0105, f01=0x40ce, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F8F9,/FAFB PDFTABE EQU * P END @ DISC FILE CODE TABLE P* P* P* LEVE
0xcd8d0…cda64 Dummy {f00=0x0105, 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*
0xcda64…cdbf8 Dummy {f00=0x0105, 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
0xcdbf8…cdd8c Dummy {f00=0x0105, 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
0xcdd8c…cdf20 Dummy {f00=0x0105, 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*
0xcdf20…ce0b4 (0, 261) Opaque[0x194]
0xce0b4…ce248 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2330, f03=0x0000}
0xce0b4…ce248 IdxSect {
0xce0b4…ce248 f00 = 0x0119 // 0xce0b4 @0x0
0xce0b4…ce248 f01 = 0x000c // 0xce0b6 @0x2
0xce0b4…ce248 gno = [ // 0xce0b8 @0x4
0xce0b4…ce248 [0x00]: C0x0119.0x2.0
0xce0b4…ce248 [0x01]: C0x0119.0x3.0
0xce0b4…ce248 [0x02]: C0x011a.0x0.0
0xce0b4…ce248 [0x03]: C0x011a.0x3.0
0xce0b4…ce248 [0x04]: C0x011b.0x0.0
0xce0b4…ce248 [0x05]: C0x011b.0x1.0
0xce0b4…ce248 ]
0xce0b4…ce248 }
0xce248…ce3dc Dummy {f00=0x0119, 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*
0xce3dc…ce570 Dummy {f00=0x0119, 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**********
0xce570…ce704 Dummy {f00=0x0119, 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*******************************
0xce704…ce898 Dummy {f00=0x0119, 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********************************
0xce898…cea2c Dummy {f00=0x0119, 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*
0xcea2c…cebc0 Dummy {f00=0x0119, 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
0xcebc0…ced54 (0, 262) Dummy {f00=0x0119, 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
0xced54…ceee8 Dummy {f00=0x0119, 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
0xceee8…cf07c Dummy {f00=0x0119, 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
0xcf07c…cf210 Dummy {f00=0x0119, 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
0xcf210…cf3a4 Dummy {f00=0x0119, 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
0xcf3a4…cf538 Dummy {f00=0x0119, 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
0xcf538…cf6cc Dummy {f00=0x0119, 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)
0xcf6cc…cf860 Dummy {f00=0x0119, 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*******************
0xcf860…cf9f4 (0, 263) Dummy {f00=0x011a, 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
0xcf9f4…cfb88 Dummy {f00=0x011a, 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
0xcfb88…cfd1c Dummy {f00=0x011a, 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**********************************
0xcfd1c…cfeb0 Dummy {f00=0x011a, 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
0xcfeb0…d0044 Dummy {f00=0x011a, 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
0xd0044…d01d8 Dummy {f00=0x011a, 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
0xd01d8…d036c Dummy {f00=0x011a, 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 *
0xd036c…d0500 Dummy {f00=0x011a, 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*
0xd0500…d0694 (0, 264) Dummy {f00=0x011a, 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(
0xd0694…d0828 Dummy {f00=0x011a, 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
0xd0828…d09bc Dummy {f00=0x011a, 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
0xd09bc…d0b50 Dummy {f00=0x011a, 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*****************************
0xd0b50…d0ce4 Dummy {f00=0x011a, 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
0xd0ce4…d0e78 Dummy {f00=0x011a, 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
0xd0e78…d100c Dummy {f00=0x011a, 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
0xd100c…d11a0 Dummy {f00=0x011a, 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
0xd11a0…d1334 (0, 265) Dummy {f00=0x011b, 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
0xd1334…d14c8 Dummy {f00=0x011b, 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
0xd14c8…d165c Dummy {f00=0x011b, 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
0xd165c…d17f0 Dummy {f00=0x011b, 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 !
0xd17f0…d1984 Dummy {f00=0x011b, 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
0xd1984…d1b18 Dummy {f00=0x011b, 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
0xd1b18…d1cac Dummy {f00=0x011b, 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 * $
0xd1cac…d1e40 Dummy {f00=0x011b, 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
0xd1e40…d1fd4 (0, 266) Dummy {f00=0x011b, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0xd1fd4…d2168 Dummy {f00=0x011b, 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* +
0xd2168…d22fc Dummy {f00=0x011b, 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
0xd22fc…d2490 Dummy {f00=0x011b, 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
0xd2490…d2624 Dummy {f00=0x011b, 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
0xd2624…d27b8 Dummy {f00=0x011b, 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****
0xd27b8…d294c Dummy {f00=0x011b, 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
0xd294c…d2ae0 Dummy {f00=0x011b, 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
0xd2ae0…d2c74 (0, 267) Opaque[0x194]
0xd2c74…d2e08 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2380, f03=0x0000}
0xd2c74…d2e08 IdxSect {
0xd2c74…d2e08 f00 = 0x011c // 0xd2c74 @0x0
0xd2c74…d2e08 f01 = 0x0004 // 0xd2c76 @0x2
0xd2c74…d2e08 gno = [ // 0xd2c78 @0x4
0xd2c74…d2e08 [0x00]: C0x011c.0x0.0
0xd2c74…d2e08 [0x01]: C0x011e.0x3.0
0xd2c74…d2e08 ]
0xd2c74…d2e08 }
0xd2e08…d2f9c Dummy {f00=0x011c, 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*
0xd2f9c…d3130 Dummy {f00=0x011c, 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
0xd3130…d32c4 Dummy {f00=0x011c, 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
0xd32c4…d3458 Dummy {f00=0x011c, 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
0xd3458…d35ec Dummy {f00=0x011c, 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=
0xd35ec…d3780 Dummy {f00=0x011c, 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
0xd3780…d3914 (0, 268) Dummy {f00=0x011e, 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
0xd3914…d3aa8 Dummy {f00=0x011e, 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 '
0xd3aa8…d3c3c Dummy {f00=0x011e, 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)
0xd3c3c…d3dd0 Dummy {f00=0x011e, 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 )
0xd3dd0…d3f64 Dummy {f00=0x011e, 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 *
0xd3f64…d40f8 Dummy {f00=0x011e, 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 +
0xd40f8…d428c Dummy {f00=0x011e, f01=0x2008, f02=» ,
0xd428c…d4420 Dummy {f00=0x011e, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0xd4420…d45b4 (0, 269) Opaque[0x194]
0xd45b4…d4748 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23e0, f03=0x0000}
0xd45b4…d4748 IdxSect {
0xd45b4…d4748 f00 = 0x011f // 0xd45b4 @0x0
0xd45b4…d4748 f01 = 0x0004 // 0xd45b6 @0x2
0xd45b4…d4748 gno = [ // 0xd45b8 @0x4
0xd45b4…d4748 [0x00]: C0x011f.0x0.0
0xd45b4…d4748 [0x01]: C0x0120.0x2.0
0xd45b4…d4748 ]
0xd45b4…d4748 }
0xd4748…d48dc Dummy {f00=0x011f, 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*
0xd48dc…d4a70 Dummy {f00=0x011f, 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
0xd4a70…d4c04 Dummy {f00=0x011f, 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
0xd4c04…d4d98 Dummy {f00=0x011f, 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)
0xd4d98…d4f2c Dummy {f00=0x011f, 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
0xd4f2c…d50c0 Dummy {f00=0x011f, 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
0xd50c0…d5254 (0, 270) Dummy {f00=0x0120, 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 @
0xd5254…d53e8 Dummy {f00=0x0120, 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
0xd53e8…d557c Dummy {f00=0x0120, 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*
0xd557c…d5710 Dummy {f00=0x0120, 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
0xd5710…d58a4 Dummy {f00=0x0120, 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:
0xd58a4…d5a38 Dummy {f00=0x0120, 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 *
0xd5a38…d5bcc Dummy {f00=0x0120, 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 *
0xd5bcc…d5d60 Dummy {f00=0x0120, 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*
0xd5d60…d5ef4 (0, 271) Opaque[0x194]
0xd5ef4…d6088 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2418, f03=0x0000}
0xd5ef4…d6088 IdxSect {
0xd5ef4…d6088 f00 = 0x0120 // 0xd5ef4 @0x0
0xd5ef4…d6088 f01 = 0x0004 // 0xd5ef6 @0x2
0xd5ef4…d6088 gno = [ // 0xd5ef8 @0x4
0xd5ef4…d6088 [0x00]: C0x0120.0x3.0
0xd5ef4…d6088 [0x01]: C0x0121.0x1.0
0xd5ef4…d6088 ]
0xd5ef4…d6088 }
0xd6088…d621c Dummy {f00=0x0120, 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*
0xd621c…d63b0 Dummy {f00=0x0120, 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
0xd63b0…d6544 Dummy {f00=0x0120, 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 *
0xd6544…d66d8 Dummy {f00=0x0120, 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
0xd66d8…d686c Dummy {f00=0x0120, 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
0xd686c…d6a00 Dummy {f00=0x0120, 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
0xd6a00…d6b94 (0, 272) Dummy {f00=0x0121, 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
0xd6b94…d6d28 Dummy {f00=0x0121, 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
0xd6d28…d6ebc Dummy {f00=0x0121, 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*
0xd6ebc…d7050 Dummy {f00=0x0121, 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 @
0xd7050…d71e4 Dummy {f00=0x0121, 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*******************************
0xd71e4…d7378 Dummy {f00=0x0121, 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********************************
0xd7378…d750c Dummy {f00=0x0121, 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*
0xd750c…d76a0 Dummy {f00=0x0121, 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
0xd76a0…d7834 (0, 273) Opaque[0x194]
0xd7834…d79c8 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2430, f03=0x0000}
0xd7834…d79c8 IdxSect {
0xd7834…d79c8 f00 = 0x0121 // 0xd7834 @0x0
0xd7834…d79c8 f01 = 0x0004 // 0xd7836 @0x2
0xd7834…d79c8 gno = [ // 0xd7838 @0x4
0xd7834…d79c8 [0x00]: C0x0121.0x2.0
0xd7834…d79c8 [0x01]: C0x0122.0x3.0
0xd7834…d79c8 ]
0xd7834…d79c8 }
0xd79c8…d7b5c Dummy {f00=0x0121, 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*
0xd7b5c…d7cf0 Dummy {f00=0x0121, 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
0xd7cf0…d7e84 Dummy {f00=0x0121, 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
0xd7e84…d8018 Dummy {f00=0x0121, 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)
0xd8018…d81ac Dummy {f00=0x0121, 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
0xd81ac…d8340 Dummy {f00=0x0121, 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
0xd8340…d84d4 (0, 274) Dummy {f00=0x0122, 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
0xd84d4…d8668 Dummy {f00=0x0122, 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 +
0xd8668…d87fc Dummy {f00=0x0122, 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
0xd87fc…d8990 Dummy {f00=0x0122, 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
0xd8990…d8b24 Dummy {f00=0x0122, 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
0xd8b24…d8cb8 Dummy {f00=0x0122, 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
0xd8cb8…d8e4c Dummy {f00=0x0122, 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
0xd8e4c…d8fe0 Dummy {f00=0x0122, 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
0xd8fe0…d9174 (0, 275) Opaque[0x194]
0xd9174…d9308 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2460, f03=0x0000}
0xd9174…d9308 IdxSect {
0xd9174…d9308 f00 = 0x0123 // 0xd9174 @0x0
0xd9174…d9308 f01 = 0x0012 // 0xd9176 @0x2
0xd9174…d9308 gno = [ // 0xd9178 @0x4
0xd9174…d9308 [0x00]: C0x0123.0x0.0
0xd9174…d9308 [0x01]: C0x0123.0x2.0
0xd9174…d9308 [0x02]: C0x0123.0x3.0
0xd9174…d9308 [0x03]: C0x0125.0x0.0
0xd9174…d9308 [0x04]: C0x0125.0x1.0
0xd9174…d9308 [0x05]: C0x0125.0x2.0
0xd9174…d9308 [0x06]: C0x0125.0x3.0
0xd9174…d9308 [0x07]: C0x0126.0x0.0
0xd9174…d9308 [0x08]: C0x0126.0x1.0
0xd9174…d9308 ]
0xd9174…d9308 }
0xd9308…d949c Dummy {f00=0x0123, 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
0xd949c…d9630 Dummy {f00=0x0123, 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
0xd9630…d97c4 Dummy {f00=0x0123, 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
0xd97c4…d9958 Dummy {f00=0x0123, 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
0xd9958…d9aec Dummy {f00=0x0123, 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
0xd9aec…d9c80 Dummy {f00=0x0123, 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
0xd9c80…d9e14 (0, 276) Dummy {f00=0x0123, 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
0xd9e14…d9fa8 Dummy {f00=0x0123, 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
0xd9fa8…da13c Dummy {f00=0x0123, 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
0xda13c…da2d0 Dummy {f00=0x0123, 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
0xda2d0…da464 Dummy {f00=0x0123, 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*************************
0xda464…da5f8 Dummy {f00=0x0123, 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 *
0xda5f8…da78c Dummy {f00=0x0123, 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
0xda78c…da920 Dummy {f00=0x0123, 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******
0xda920…daab4 (0, 277) Dummy {f00=0x0123, 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**************************************
0xdaab4…dac48 Dummy {f00=0x0123, 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
0xdac48…daddc Dummy {f00=0x0123, 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*
0xdaddc…daf70 Dummy {f00=0x0123, 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**********************************
0xdaf70…db104 Dummy {f00=0x0123, 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
0xdb104…db298 Dummy {f00=0x0123, 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*
0xdb298…db42c Dummy {f00=0x0123, 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
0xdb42c…db5c0 Dummy {f00=0x0123, 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
0xdb5c0…db754 (0, 278) Dummy {f00=0x0125, 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
0xdb754…db8e8 Dummy {f00=0x0125, 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 *
0xdb8e8…dba7c Dummy {f00=0x0125, 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
0xdba7c…dbc10 Dummy {f00=0x0125, 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
0xdbc10…dbda4 Dummy {f00=0x0125, 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*************
0xdbda4…dbf38 Dummy {f00=0x0125, 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
0xdbf38…dc0cc Dummy {f00=0x0125, 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
0xdc0cc…dc260 Dummy {f00=0x0125, 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)
0xdc260…dc3f4 (0, 279) Dummy {f00=0x0125, 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
0xdc3f4…dc588 Dummy {f00=0x0125, 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
0xdc588…dc71c Dummy {f00=0x0125, 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
0xdc71c…dc8b0 Dummy {f00=0x0125, 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 !
0xdc8b0…dca44 Dummy {f00=0x0125, 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,
0xdca44…dcbd8 Dummy {f00=0x0125, 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* #
0xdcbd8…dcd6c Dummy {f00=0x0125, 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
0xdcd6c…dcf00 Dummy {f00=0x0125, 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
0xdcf00…dd094 (0, 280) Dummy {f00=0x0125, 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
0xdd094…dd228 Dummy {f00=0x0125, 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**
0xdd228…dd3bc Dummy {f00=0x0125, 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
0xdd3bc…dd550 Dummy {f00=0x0125, 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
0xdd550…dd6e4 Dummy {f00=0x0125, 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* *
0xdd6e4…dd878 Dummy {f00=0x0125, 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
0xdd878…dda0c Dummy {f00=0x0125, 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
0xdda0c…ddba0 Dummy {f00=0x0125, 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
0xddba0…ddd34 (0, 281) Dummy {f00=0x0125, 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
0xddd34…ddec8 Dummy {f00=0x0125, 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
0xddec8…de05c Dummy {f00=0x0125, 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
0xde05c…de1f0 Dummy {f00=0x0125, 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
0xde1f0…de384 Dummy {f00=0x0125, 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
0xde384…de518 Dummy {f00=0x0125, 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
0xde518…de6ac Dummy {f00=0x0125, 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,
0xde6ac…de840 Dummy {f00=0x0125, 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
0xde840…de9d4 (0, 282) Dummy {f00=0x0126, 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
0xde9d4…deb68 Dummy {f00=0x0126, 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 "
0xdeb68…decfc Dummy {f00=0x0126, 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
0xdecfc…dee90 Dummy {f00=0x0126, 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
0xdee90…df024 Dummy {f00=0x0126, 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
0xdf024…df1b8 Dummy {f00=0x0126, 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
0xdf1b8…df34c Dummy {f00=0x0126, 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
0xdf34c…df4e0 Dummy {f00=0x0126, 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
0xdf4e0…df674 (0, 283) Dummy {f00=0x0126, 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
0xdf674…df808 Dummy {f00=0x0126, 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
0xdf808…df99c Dummy {f00=0x0126, 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* +
0xdf99c…dfb30 Dummy {f00=0x0126, 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
0xdfb30…dfcc4 Dummy {f00=0x0126, 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
0xdfcc4…dfe58 Dummy {f00=0x0126, 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
0xdfe58…dffec Dummy {f00=0x0126, 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
0xdffec…e0180 Dummy {f00=0x0126, 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
0xe0180…e0314 (0, 284) Opaque[0x194]
0xe0314…e04a8 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1800, f03=0x0000}
0xe0314…e04a8 IdxSect {
0xe0314…e04a8 f00 = 0x00c0 // 0xe0314 @0x0
0xe0314…e04a8 f01 = 0x0002 // 0xe0316 @0x2
0xe0314…e04a8 gno = [ // 0xe0318 @0x4
0xe0314…e04a8 [0x00]: C0x00c0.0x0.0
0xe0314…e04a8 ]
0xe0314…e04a8 }
0xe04a8…e063c Dummy {f00=0x00c0, 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
0xe063c…e07d0 Dummy {f00=0x00c0, 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
0xe07d0…e0964 Dummy {f00=0x00c0, 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 /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE
0xe0964…e0af8 Dummy {f00=0x00c0, f01=0x40b0, f02=»0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 $ PDEVECB EQU * : P DATA 0,0,0,0,0,0 N P DATA h P XIF v PDWTEND EQU * P* P END @ A /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE
0xe0af8…e0c8c Dummy {f00=0x00c0, 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
0xe0c8c…e0e20 Dummy {f00=0x00c0, 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
0xe0e20…e0fb4 (0, 285) Opaque[0x194]
0xe0fb4…e1148 # DirEnt {nam=»DVTP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1860, f03=0x0000}
0xe0fb4…e1148 IdxSect {
0xe0fb4…e1148 f00 = 0x00c3 // 0xe0fb4 @0x0
0xe0fb4…e1148 f01 = 0x0002 // 0xe0fb6 @0x2
0xe0fb4…e1148 gno = [ // 0xe0fb8 @0x4
0xe0fb4…e1148 [0x00]: C0x00c3.0x0.0
0xe0fb4…e1148 ]
0xe0fb4…e1148 }
0xe1148…e12dc Dummy {f00=0x00c3, f01=0x018e, f02=» 2 P IDENT DVTP00 REL 9.2 79-11-16 870105040920 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTP00 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0xe12dc…e1470 Dummy {f00=0x00c3, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTP00 ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADD
0xe1470…e1604 Dummy {f00=0x00c3, f01=0x40f6, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER B P IFT MMUPAG=1 n PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ AREA USER ECB ADD
0xe1604…e1798 Dummy {f00=0x00c3, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0xe1798…e192c Dummy {f00=0x00c3, f01=0x0190, f02=»A ILLINT 60 P DATA ILLINT 61 P DATA ILLINT 62 4 P DATA IHINPT IHINPT ROUTINE P P EJECT SYSTAB t P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP
0xe192c…e1ac0 Dummy {f00=0x00c3, 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
0xe1ac0…e1c54 (0, 286) Opaque[0x194]
0xe1c54…e1de8 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2500, f03=0x0000}
0xe1c54…e1de8 IdxSect {
0xe1c54…e1de8 f00 = 0x0128 // 0xe1c54 @0x0
0xe1c54…e1de8 f01 = 0x0002 // 0xe1c56 @0x2
0xe1c54…e1de8 gno = [ // 0xe1c58 @0x4
0xe1c54…e1de8 [0x00]: C0x0128.0x0.0
0xe1c54…e1de8 ]
0xe1c54…e1de8 }
0xe1de8…e1f7c Dummy {f00=0x0128, 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
0xe1f7c…e2110 Dummy {f00=0x0128, 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
0xe2110…e22a4 Dummy {f00=0x0128, 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,
0xe22a4…e2438 Dummy {f00=0x0128, 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
0xe2438…e25cc Dummy {f00=0x0128, 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
0xe25cc…e2760 Dummy {f00=0x0128, 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