|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / B C D E G L M P S T p ½
Length: 1402688 (0x156740)
Description: Bits:30009694 Philips computer tape "600410A"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| MOD3270 | «none» |
| MOD3270//OBJCT.OB | ⟦052b51eda⟧ pts_type |
| MOD3270/DRDC15.SC | ⟦5d946f178⟧ pts_type |
| MODMON | «none» |
| MODMON//OBJCT.OB | ⟦bd7f7922e⟧ pts_type |
| MODMON/BUGMON.LM | ⟦66b4d442a⟧ pts_type |
| MODMON/CTAB01.SC | ⟦5a695293c⟧ pts_type |
| MODMON/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| MODMON/DRDC15.SC | ⟦5d946f178⟧ pts_type |
| MODMON/DRDC25.SC | ⟦9bc4f970f⟧ pts_type |
| MODMON/DRDY01.SC | ⟦a4da13e63⟧ pts_type |
| MODMON/DRGP01.SC | ⟦9ce60db05⟧ pts_type |
| MODMON/DRIC01.SC | ⟦50ac31f91⟧ pts_type |
| MODMON/DRKB03.SC | ⟦24a2821ad⟧ pts_type |
| MODMON/DRRT01.SC | ⟦e25490c8a⟧ pts_type |
| MODMON/DRSOP1.SC | ⟦8e2f00fbe⟧ pts_type |
| MODMON/DVDY00.SC | ⟦22918a8a7⟧ pts_type |
| MODMON/DVGP01.SC | ⟦2531af082⟧ pts_type |
| MODMON/DVKB00.SC | ⟦bd10bbbb0⟧ pts_type |
| MODMON/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| MODMON/DVTGP.SC | ⟦93b53e66f⟧ pts_type |
| MODMON/DVTKB.SC | ⟦8acb67019⟧ pts_type |
| MODMON/DW1501.SC | ⟦e723b5c08⟧ pts_type |
| MODMON/DW2501.SC | ⟦7da25f0ad⟧ pts_type |
| MODMON/DWII01.SC | ⟦9fc7b189f⟧ pts_type |
| MODMON/DWIO01.SC | ⟦386c74ced⟧ pts_type |
| MODMON/EBCDIC.SC | ⟦1c61c084b⟧ pts_type |
| MODMON/LDTASK.SC | ⟦509a88e8f⟧ pts_type |
| MODMON/LKMAL.SC | ⟦ace24cad9⟧ pts_type |
| MODMON/LRPINT.SC | ⟦a62dff99c⟧ pts_type |
| MODMON/M:PTC.UF | ⟦3da583d81⟧ pts_type |
| MODMON/M:PTCB.LM | ⟦50d8559ae⟧ pts_type |
| MODMON/MODMON.LM | ⟦44219d5b7⟧ pts_type |
| MODMON/MONTAB.SC | ⟦666a35283⟧ pts_type |
| MODMON/MONTIM.SC | ⟦e3bdb0a74⟧ pts_type |
| MODMON/MSUBS.SC | ⟦ae4944be6⟧ pts_type |
| MODMON/PFTAB.SC | ⟦8dc8ea6db⟧ pts_type |
| MODMON/PROMON.LM | ⟦2ad3e94ad⟧ pts_type |
| MODMON/SCLASS.SC | ⟦952f870a4⟧ pts_type |
| MODMON/SYSBUG.SC | ⟦56b0620b4⟧ pts_type |
| MODMON/SYSLDA.SC | ⟦c5874bc9c⟧ pts_type |
| MODMON/SYSLDM.SC | ⟦c867ab040⟧ pts_type |
| MODMON/SYSLOD.SC | ⟦b4c52e377⟧ pts_type |
| MODMON/SYSTAB.SC | ⟦98f529084⟧ pts_type |
| MODMON/TABORT.SC | ⟦28ff1271c⟧ pts_type |
| MODMON/TCLASS.SC | ⟦b283b4552⟧ pts_type |
| MODMON/TDISP.SC | ⟦78bad221e⟧ pts_type |
| MODMON/TEST.UF | ⟦20cb54c2a⟧ pts_type |
| MODMON/TIMER.SC | ⟦4ee364632⟧ pts_type |
| MODMON/TIODMX.SC | ⟦e6cbc0c77⟧ pts_type |
| MODMON/TLDSEG.SC | ⟦c98812760⟧ pts_type |
| MODMON/TMMLKM.SC | ⟦3cbd60306⟧ pts_type |
| MODMON/TOSSIO.SC | ⟦7f22c90ef⟧ pts_type |
| MODMON/TPROC.SC | ⟦aaa790319⟧ pts_type |
| MODMON/TTMJOB.SC | ⟦02300311a⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»MODMON«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:PTC «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0238, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0250, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0270, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0460, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0600, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0608, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0610, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0618, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0620, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0628, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0630, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0670, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c58, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0908, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0920, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0930, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0948, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0950, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0958, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0960, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0968, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a10, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0aa0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:PTCB«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0ac0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW2501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»BUGMON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PROMON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0bb0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MODMON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0830, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000e34 (0, 1) Opaque[0x194]
0x000e34…000fc8 # DirEnt {nam=»M:PTC «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000e34…000fc8 IdxSect {
0x000e34…000fc8 f00 = 0x0000 // 0xe34 @0x0
0x000e34…000fc8 f01 = 0x000c // 0xe36 @0x2
0x000e34…000fc8 gno = [ // 0xe38 @0x4
0x000e34…000fc8 [0x00]: C0x0000.0x3.0
0x000e34…000fc8 [0x01]: C0x0001.0x0.0
0x000e34…000fc8 [0x02]: C0x0001.0x1.0
0x000e34…000fc8 [0x03]: C0x0001.0x2.0
0x000e34…000fc8 [0x04]: C0x0001.0x3.0
0x000e34…000fc8 [0x05]: C0x0002.0x0.0
0x000e34…000fc8 ]
0x000e34…000fc8 }
0x000fc8…00115c Dummy {f00=0x0000, f01=0x0190, f02=» ASG /02,NO MOV TCLASS,/S,TOSSWORK KPF /S,TCLASS 4 SCR J INC TCLASS,TOSSWORK V KPF /O r MOV SCLASS,/S,TOSSWORK KPF /S,SCLASS SCR INC SCLASS,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK
0x00115c…0012f0 Dummy {f00=0x0000, f01=0x0190, f02=»WORK ~ KPF /S,SYSTAB SCR " MOV TDISP,/S,TOSSWORK . KPF /S,TDISP L SCR ` MOV LRPINT,/S,TOSSWORK l KPF /S,LRPINT SCR MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK
0x0012f0…001484 Dummy {f00=0x0000, f01=0x018e, f02=»SIO SCR MOV SYSLDM,/S,TOSSWORK KPF /S,SYSLDM 6 SCR L MOV SYSLDA,/S,TOSSWORK X KPF /S,SYSLDA v SCR MOV LDTASK,/S,TOSSWORK KPF /S,LDTASK SCR MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB
0x001484…001618 Dummy {f00=0x0000, f01=0x0190, f02=» MOV TIODMX,/S,TOSSWORK KPF /S,TIODMX " SCR 8 INC TIODMX,TOSSWORK D KPF /O ` LED SYSTAB n ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x001618…0017ac Dummy {f00=0x0000, f01=0x0190, f02=»G EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN L ASM /S X KPF /O f KPF /S t SCR LED LRPINT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQ
0x0017ac…001940 Dummy {f00=0x0000, f01=0x0190, f02=»DIT EQU 1$$ x ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ @ !!EN l ASM /S x KPF /O KPF /S SCR LED MSUBS ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG
0x001940…001ad4 (0, 2) Dummy {f00=0x0001, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ` !!EN ASM /S KPF /O KPF /S SCR LED TOSSIO ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x001ad4…001c68 Dummy {f00=0x0001, f01=0x0190, f02=»/S SCR LED SYSLDM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ T ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED SYSLDA ( #!!CH $$C
0x001c68…001dfc Dummy {f00=0x0001, f01=0x0190, f02=»ASM /S KPF /O KPF /S SCR * LED LDTASK 6 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ H ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ t ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x001dfc…001f90 Dummy {f00=0x0001, f01=0x0190, f02=»VTDY,/S,TOSSWORK KPF /S,DVTDY SCR , MOV DWII01,/S,TOSSWORK 8 KPF /S,DWII01 V SCR l INC DWII01,TOSSWORK x KPF /O MOV DWIO01,/S,TOSSWORK KPF /S,DWIO01 SCR INC DWIO01,TOSSWORK KPF /O
0x001f90…002124 Dummy {f00=0x0001, f01=0x018e, f02=»REDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ P !!EN | ASM /S KPF /O KPF /S SCR LED DWIO01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPA
0x002124…0022b8 Dummy {f00=0x0001, f01=0x0190, f02=» LED DW1501 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ F ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ r !!EN ASM /S KPF /O KPF /S SCR MOV DRKB03,/S,TOSSWORK KPF /S,DRK
0x0022b8…00244c Dummy {f00=0x0001, f01=0x0190, f02=» SCR MOV DRRT01,/S,TOSSWORK KPF /S,DRRT01 . SCR D MOV DRSOP1,/S,TOSSWORK P KPF /S,DRSOP1 n SCR MOV DRIC01,/S,TOSSWORK KPF /S,DRIC01 SCR MOV DRDC15,/S,TOSSWORK KPF /S,DRDC15 SCR
0x00244c…0025e0 Dummy {f00=0x0001, f01=0x0190, f02=»$ X:E$$ 1$$ !!CH $$ X:F$$ 30$$ !!CH $$ X:G$$ 1$$ . !!CH $$ X:H$$ 1$$ H !!CH $$ X:I$$ 1$$ b !!CH $$ X:J$$ 030$$ | !!CH $$ X:K$$ 30$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ (
0x0025e0…002774 (0, 3) Dummy {f00=0x0001, f01=0x018e, f02=»$ X:A$$ 1$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ . !!CH $$ X:D$$ 0$$ H !!CH $$ X:E$$ 0$$ b !!CH $$ X:F$$ 1$$ | !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 162$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQ
0x002774…002908 Dummy {f00=0x0001, f01=0x0190, f02=» LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ 0 !!CH $$ X:C$$ 0$$ J !!CH $$ X:D$$ 0$$ d !!CH $$ X:E$$ 1$$ ~ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 6$$ !!CH $$ X:H$$ 162$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=» KPF /S SCR LED DRRT01 !!CH $$ X:A$$ 0$$ 0 !!CH $$ X:B$$ 1$$ J !!CH $$ X:C$$ 0$$ d !!CH $$ X:D$$ 3$$ ~ !!CH $$ X:E$$ /15$$ !!CH $$ X:F$$ 00$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x018e, f02=» LED DRSOP1 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ 0 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ J ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ v ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x0190, f02=» j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 4 ASM /S @ KPF /O N KPF /S SCR j LED DRDC15 v !!CH $$ X:A$$ 650$$ !!CH $$ X:B$$ /60$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 500$$ !!CH $$ X:E$$ 1$$
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=» !!CH $$ X:K$$ 0$$ !!CH $$ X:L$$ 2$$ !!CH $$ X:M$$ 00$$ 8 !!CH $$ X:N$$ 02$$ R !!CH $$ X:O$$ 0$$ l !!CH $$ X:P$$ 0$$ !!CH $$ X:Q$$ 1$$ !!CH $$ X:R$$ 650$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»SCR MOV EBCDIC,/S,TOSSWORK KPF /S,EBCDIC * SCR @ LED EBCDIC L !!EN ^ ASM /S j KPF /O x KPF /S SCR LED DRKB03 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 1$$ !!CH $$
0x0030ec…003280 Dummy {f00=0x0001, f01=0x018e, f02=»1$$ !!CH $$ X:J$$ 030$$ !!CH $$ X:K$$ 30$$ ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x003280…003414 (0, 4) Dummy {f00=0x0001, f01=0x0190, f02=» DATA 0,0,0,0,0,0,0, !!EN ASM /S , KPF /O : KPF /S H SCR V LED TOSSIO b !!CH $$ X:A$$ 1$$ t !!EN ASM /S KPF /O KPF /S SCR MOV TIMER,/S,TOSSWORK KPF /S,TIMER SCR
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=»TLDSEG,/S,TOSSWORK KPF /S,TLDSEG SCR 0 MOV TABORT,/S,TOSSWORK < KPF /S,TABORT Z SCR p MOV MONTIM,/S,TOSSWORK | KPF /S,MONTIM SCR LED TIMER ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=» LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n !!EN ASM /S KPF /O KPF /S SCR LED TMMLKM ( #!!CH $$CREDIT EQU 0$$CREDI
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x018e, f02=»/O KPF /S SCR LED TLDSEG $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ b ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TABORT
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=» !!EN ASM /S KPF /O KPF /S , SCR : LED MONTIM F ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ X ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x018e, f02=»!!DL 042 DATA 00 !!DL 045 , DATA 00 < !!DL 046 X DATA 00 h !!DL 047 DATA 00 !!DL 050 !!DL 051 !!EN ASM /S KPF /O KPF /S SC
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=» !!CH $$IHINPT$$TRAP$$ !!CH $$ X:A$$ 00001$$ " !!CH $$ X:C$$ 00000$$ @ !!CH $$ X:D$$ 00000$$ ^ !!CH $$ X:E$$ 00000$$ | !!CH $$ X:F$$ 00001$$ , '!!CH $$ILLINT 12$$IH1501 12$$ , '!!CH $$ILLINT 13$$IH1502
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=» !!DL 068 !!DL 069 !!DL 070 ( !!DL 071 8 !!DL 073 H !!DL 074 X !!DL 075 h !!DL 076 x !!DL 077 !!DL 078 !!DL 079 !!DL 080 !!DL 081 !!DL 85 !!DL 122 DATA
0x003f20…0040b4 (0, 5) Dummy {f00=0x0001, f01=0x0190, f02=» DATA ILLINT !!DL 135 DATA ILLINT ( !!DL 136 H DATA ILLINT X !!DL 138 x DATA ILLINT !!DL 140 DATA ILLINT !!DL 141 DATA ILLINT
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=» x !!DL 150 DATA ILLINT !!DL 155 8 DATA ILLINT H !!DL 156 h DATA ILLINT x !!DL 159 DATA ILLINT !!EN ASM /S KPF /O KPF /S SCR
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=» 020 !!DL 021 !!DL 022 !!DL 023 , !!DL 024 < !!DL 025 L !!DL 026 !!DL 027 l !!DL 028 | !!DL 029 !!DL 030 !!DL 031 !!DL 032 !!DL 033 !!DL 034 !!DL 035 !!DL 036
0x0043dc…004570 Dummy {f00=0x0001, f01=0x018e, f02=» 046 !!DL 047 ! !!DL 048 ! !!DL 049 ! , !!DL 050 ! < !!DL 051 ! L !!DL 052 ! !!DL 053 ! l !!DL 054 ! | !!DL 055 ! !!DL 056 ! !!DL 057 ! !!DL 058 ! !!DL 059 ! !!DL 060 ! !!DL 061 ! !!DL 062 !
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=» SCR " MOV CTAB01,/S,PTAID " ASM /S " , KPF /O " : KPF /S " H SCR " V MOV DRGP01,/S,PTAID " b ASM /S " ~ KPF /O " KPF /S " SCR " MOV DVGP01,/S,PTAID " ASM /S " KPF /O " KPF /S " SCR " LE
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=»0$$ " p !!CH $$DVTKB$$DVKB00$$ # !!CH $$KBAD$$KBAD3$$ # * !!CH $$/1111$$/1100$$ # F !!CH $$BCA$$FFFF$$ # d !!CH $$ED0$$FFFF$$ # ~ " !!CH $$0 CODE $$CTAB01 CODE $$ # !!DL 5 # EXTRN CTAB01 # !!DL 07 # !!DL 29 #
0x004898…004a2c Dummy {f00=0x0001, f01=0x018e, f02=»U 1$$ # r ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ : !!CH $$DVTDY$$DVDY00$$ $ f !!CH $$/ABC$$/1850$$ $ !!CH $$/1111$$/C000$$ $ !!EN $ ASM /S $ KPF /O $ KPF /S $ SCR $ LED DVT
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» $ j !!CH $$DVTGP$$DVGP01$$ % !!CH $$/1111$$/3000$$ % & !!EN % D ASM /S % P KPF /O % ^ KPF /S % l SCR % z LED TCLASS % !!IL 6 % EXTRN DVKB00 % EXTRN DVDY00 % EXTRN DVGP01 % !!
0x004bc0…004d54 (0, 6) Dummy {f00=0x0002, f01=0x0190, f02=»A /0020 % DATA DVKB00 & DATA /00500 & 4 DATA DVDY00 & T TC00E EQU * & t TC01 DATA TC01E-* & DATA /00300 & DATA DVGP01 & TC01E EQU * &
0x004d54…004ee8 Dummy {f00=0x0002, f01=0x0190, f02=» EXTRN DWII01 & EXTRN DWIO01 ' EXTRN DW1501 ' @ EXTRN DW1500 ' ` EXTRN DWREMU ' !!IL 11 ' DATA TC00 ' DATA TC01 ' DATA TC02 '
0x004ee8…00507c Dummy {f00=0x0002, f01=0x0190, f02=» DATA DWSI01 ' TC00E EQU * ( TC01 DATA TC01E-* ( : DATA /00E01 ( DATA DWII01 ( | TC01E EQU * ( TC02 DATA TC02E-* ( DATA /00E11 ( DATA
0x00507c…005210 Dummy {f00=0x0002, f01=0x018e, f02=» ( x TC03E EQU * ) TC04 DATA TC04E-* ) $ DATA /00601 ) F DATA DW1500 ) f DATA /015 ) DATA DWREMU ) TC04E EQU * ) !!EN ) ASM /S ) KPF /O ) KPF /S ) SCR )
0x005210…0053a4 Dummy {f00=0x0002, f01=0x0190, f02=» !!DL 025 * !!DL 027 * !!DL 029 * $ !!DL 030 * 4 !!DL 031 * D !!DL 032 * T !!DL 033 * d !!IL 47 * t **** * DATA CTAB01 * DATA ITAD * !!DL 049 * !!DL 050 * !!DL 052 * !!DL 053 * !!DL 055 *
0x0053a4…005538 Dummy {f00=0x0002, f01=0x0082, f02=»SCR * ASG /02,LP0F + SCR + INC SYSTAB + , INC DEBUGM + > LKE M + P KPF /L,M:PTC + ^ ASG /E0,TY10 + r **** * DATA CTAB01 * DATA ITAD * !!DL 049 * !!DL 050 * !!DL 052 * !!DL 053 * !!DL 055 *
0x005538…0056cc Dummy {f00=0x0002, f01=0x2008, f02=» , ASG /02,LP0F + SCR + INC SYSTAB + , INC DEBUGM + > LKE M + P KPF /L,M:PTC + ^ ASG /E0,TY10 + r **** * DATA CTAB01 * DATA ITAD * !!DL 049 * !!DL 050 * !!DL 052 * !!DL 053 * !!DL 055 *
0x0056cc…005860 Dummy {f00=0x0002, f01=0x0190, f02=» PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH H $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS n P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA EQU 4 PAGE
0x005860…0059f4 (0, 7) Opaque[0x194]
0x0059f4…005b88 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x0059f4…005b88 IdxSect {
0x0059f4…005b88 f00 = 0x0002 // 0x59f4 @0x0
0x0059f4…005b88 f01 = 0x0002 // 0x59f6 @0x2
0x0059f4…005b88 gno = [ // 0x59f8 @0x4
0x0059f4…005b88 [0x00]: C0x0002.0x1.0
0x0059f4…005b88 ]
0x0059f4…005b88 }
0x005b88…005d1c Dummy {f00=0x0002, f01=0x018e, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVGP01 P* P* P* P* P
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x4164, f02=» t P DATA /0020 P DATA DVKB00 ( P DATA /0050 H P DATA DVDY00 h P DATA /0040 KB LAMPS P DATA DVDY00 PTC00E EQU * PTC01 DATA TC01E-* P DATA
0x005eb0…006044 Dummy {f00=0x0002, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x006044…0061d8 Dummy {f00=0x0002, f01=0x018e, f02=» , ( a & , ( q V HALTN SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO
0x0061d8…00636c Dummy {f00=0x0002, f01=0x018e, f02=» SCTNOS SCTNOP SCTPSZ , SCTMMC @ SCTLACL T SCTMMP h SCTLAP | SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCT
0x00636c…006500 Dummy {f00=0x0002, f01=0x4098, f02=» SCTBLK SCTDCT 0 _ L b @ E SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCT
0x006500…006694 (0, 8) Opaque[0x194]
0x006694…006828 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x006694…006828 IdxSect {
0x006694…006828 f00 = 0x0002 // 0x6694 @0x0
0x006694…006828 f01 = 0x007c // 0x6696 @0x2
0x006694…006828 gno = [ // 0x6698 @0x4
0x006694…006828 [0x00]: C0x0002.0x2.0
0x006694…006828 [0x01]: C0x0002.0x3.0
0x006694…006828 [0x02]: C0x0003.0x0.0
0x006694…006828 [0x03]: C0x0003.0x1.0
0x006694…006828 [0x04]: C0x0003.0x2.0
0x006694…006828 [0x05]: C0x0003.0x3.0
0x006694…006828 [0x06]: C0x0004.0x0.0
0x006694…006828 [0x07]: C0x0004.0x1.0
0x006694…006828 [0x08]: C0x0004.0x2.0
0x006694…006828 [0x09]: C0x0004.0x3.0
0x006694…006828 [0x0a]: C0x0005.0x0.0
0x006694…006828 [0x0b]: C0x0005.0x1.0
0x006694…006828 [0x0c]: C0x0005.0x2.0
0x006694…006828 [0x0d]: C0x0005.0x3.0
0x006694…006828 [0x0e]: C0x0006.0x0.0
0x006694…006828 [0x0f]: C0x0006.0x1.0
0x006694…006828 [0x10]: C0x0006.0x2.0
0x006694…006828 [0x11]: C0x0006.0x3.0
0x006694…006828 [0x12]: C0x0007.0x0.0
0x006694…006828 [0x13]: C0x0007.0x1.0
0x006694…006828 [0x14]: C0x0007.0x2.0
0x006694…006828 [0x15]: C0x0007.0x3.0
0x006694…006828 [0x16]: C0x0008.0x0.0
0x006694…006828 [0x17]: C0x0008.0x1.0
0x006694…006828 [0x18]: C0x0008.0x2.0
0x006694…006828 [0x19]: C0x0008.0x3.0
0x006694…006828 [0x1a]: C0x0009.0x0.0
0x006694…006828 [0x1b]: C0x0009.0x1.0
0x006694…006828 [0x1c]: C0x0009.0x2.0
0x006694…006828 [0x1d]: C0x0009.0x3.0
0x006694…006828 [0x1e]: C0x000a.0x0.0
0x006694…006828 [0x1f]: C0x000a.0x1.0
0x006694…006828 [0x20]: C0x000a.0x2.0
0x006694…006828 [0x21]: C0x000a.0x3.0
0x006694…006828 [0x22]: C0x000b.0x0.0
0x006694…006828 [0x23]: C0x000b.0x1.0
0x006694…006828 [0x24]: C0x000b.0x2.0
0x006694…006828 [0x25]: C0x000b.0x3.0
0x006694…006828 [0x26]: C0x000c.0x0.0
0x006694…006828 [0x27]: C0x000c.0x1.0
0x006694…006828 [0x28]: C0x000c.0x2.0
0x006694…006828 [0x29]: C0x000c.0x3.0
0x006694…006828 [0x2a]: C0x000d.0x0.0
0x006694…006828 [0x2b]: C0x000d.0x1.0
0x006694…006828 [0x2c]: C0x000d.0x2.0
0x006694…006828 [0x2d]: C0x000d.0x3.0
0x006694…006828 [0x2e]: C0x000e.0x0.0
0x006694…006828 [0x2f]: C0x000e.0x1.0
0x006694…006828 [0x30]: C0x000e.0x2.0
0x006694…006828 [0x31]: C0x000e.0x3.0
0x006694…006828 [0x32]: C0x000f.0x0.0
0x006694…006828 [0x33]: C0x000f.0x1.0
0x006694…006828 [0x34]: C0x000f.0x2.0
0x006694…006828 [0x35]: C0x000f.0x3.0
0x006694…006828 [0x36]: C0x0010.0x0.0
0x006694…006828 [0x37]: C0x0010.0x1.0
0x006694…006828 [0x38]: C0x0010.0x2.0
0x006694…006828 [0x39]: C0x0010.0x3.0
0x006694…006828 [0x3a]: C0x0011.0x0.0
0x006694…006828 [0x3b]: C0x0062.0x0.0
0x006694…006828 [0x3c]: C0x0062.0x1.0
0x006694…006828 [0x3d]: C0x0062.0x2.0
0x006694…006828 ]
0x006694…006828 }
0x006828…0069bc Dummy {f00=0x0002, f01=0x4126, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVGP01 * & P @ 0 `
0x0069bc…006b50 Dummy {f00=0x0002, 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
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x40f0, f02=» INTRT4 SYSLOD CTAB01L $ ITADN 6 * & F KBAD3 t GPADN DYADN SPDLCI " $ @ PAGQUE INT
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x018e, f02=» > @ IDENT DEBUGM REL 9.2 79-11-16 870105040920 dBUG F |BUG T , ( A U A @ * A d , ( ! A " @ ~ A A ~ @ , ( A A A @ A A @ , ( a A A
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=» f , ( , ( $ ( , 0 4 8 , ( # 8 < h , ( C , ( c , (
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " # A P UW B X , ( C @ = / M Q , ( c R S T Y G P H L , ( V I U _v
0x0071a0…007334 (0, 9) Dummy {f00=0x0002, f01=0x0190, f02=» P A A x , ( . , + - ; : , ( # X " H W X " H H H , ( C A A A _T @ P A 1+ x , ( !T c X A _ @ A @ A _ , ( ! A UP " , (
0x007334…0074c8 Dummy {f00=0x0002, f01=0x0190, f02=» h , ( 0 _, W , ( ! # W P @ & 0 8 , ( C T A P P h , ( c _b _J A , ( $T @ W @ , ( % T @ W
0x0074c8…00765c Dummy {f00=0x0002, f01=0x0190, f02=» _L W @ $ 0 , ( # W $ A W @ A ( , ( C P 3P X , ( c C @ P @ @ P @ Q , ( A $ @ A " T @ W @ , ( ( A A
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x0190, f02=» @ P x , ( # & @ A 9 Y , ( $ C *>a Y j c A A " H , ( P c & A *<a P j A x , ( @ ) " A H , ( U A @ & @ @ , (
0x0077f0…007984 Dummy {f00=0x0002, f01=0x0190, f02=» h , ( # RE RN ME MN W R , ( C ( T ( W P T $ ; V 8 , ( c ; W &~ P &`P 6 P @ h , ( $ P $W $ T P , ( #~ > V . >A P Y X , ( W ^ ?
0x007984…007b18 Dummy {f00=0x0002, f01=0x0190, f02=» ^ P _ " ^ , ( $ C T @ 9J A T _ 1@ _ ( , ( c ^ 9 V >! D A X , ( A > > > > > , ( > > > ^ _ ^ _ ? ? ? ? ? , ( A ^ @ ?
0x007b18…007cac Dummy {f00=0x0002, f01=0x0190, f02=» A > A x , ( C > A A ^ " , , ( c , A A :B A Q (P _ # # H , ( H A " A 0R x , ( 9U AR FQ 0:D A , ( _* A " A A , (
0x007cac…007e40 Dummy {f00=0x0002, f01=0x0190, f02=» h , ( C $ T ! " A @ T , ( c 0W 0W A @ T 1W 1 8 , ( @ " P A UT @ W T h " @ W T @ W @ " , ( @ D H L P T X ` d h l p t x | , (
0x007e40…007fd4 (0, 10) Dummy {f00=0x0003, f01=0x0190, f02=» /W : A W ! A A ~ , ( y P _ @ _ , ( I T " T N , ( A P I T ! A A A A A A ~ , ( A A @ A A @ , ( B A @ > @ _ $
0x007fd4…008168 Dummy {f00=0x0003, f01=0x0190, f02=»V A n @ y H D ! ' 3 7 C G S W c g s w " H D ! P h L R h h : F # + P 1P 5W ; h ? L n H D ! C G Z I P M S W [ _ c g k o s w { H D !
0x008168…0082fc Dummy {f00=0x0003, f01=0x0190, f02=» p R H D !+^ T P T W 6 W Z W P F b W H D !5 #W +PP = b C IT M SP W f ] h a 0 i Z m F s : y h 8 P Z H D ! T W T W P F F 8 F F H D ! p Z W b %
0x0082fc…008490 Dummy {f00=0x0003, f01=0x0190, f02=» ` Z P ) Z 7 8 = X U n c Z m } 8 n Z T P@ H D !x PB p p Z $ T AR, GT KW UT ]V mW~ uP yP }P P F H D ! < W TR PJ V P W P W P W & " W 3P H D ! 9 h IT UT ] kV o w {
0x008490…008624 Dummy {f00=0x0003, f01=0x412c, f02=»U h # 4 + : / 4 9 P = T C X GT [ _ 8 v H D !, aT eW i mW q u 8 wT {W P& T W T 2 H D !)B W T W ?R EW" K h OW U h YW ]W aW eW k oW ~ H D ! u yPL } T T P T$ 'R> /P6 7T. =P EW ]T k
0x008624…0087b8 Dummy {f00=0x0003, f01=0x4128, f02=» J F IDENT TIODMX REL 9.2 79-11-16 870105040920 4 0 TIODM CHKIND REQEND FDBADF TCFILE COFILE R TIODM CHKIND REQEND FDBADF TCFILE COFILE
0x0087b8…00894c Dummy {f00=0x0003, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x00894c…008ae0 Dummy {f00=0x0003, 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
0x008ae0…008c74 (0, 11) Dummy {f00=0x0003, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P IH2501 b IH2502 t CHRT1 , ( CHRT2 CHRT3 CHLT1 , ( !
0x008c74…008e08 Dummy {f00=0x0003, f01=0x018e, f02=» , ( a & , ( q V HALTN SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO
0x008e08…008f9c Dummy {f00=0x0003, f01=0x0190, f02=» SCTNOS SCTNOP SCTPSZ , SCTMMC @ SCTLACL T SCTMMP h SCTLAP | SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~
0x008f9c…009130 Dummy {f00=0x0003, f01=0x4086, f02=»K SCTDCT _ : P p@ | SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~
0x009130…0092c4 Dummy {f00=0x0003, 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 DISIOE TENDIO
0x0092c4…009458 Dummy {f00=0x0003, f01=0x4130, f02=» (X0 @ P T x * & @ = M ]@ , ) A P P Y TTB:SA` F , ( W B U ( ) 5 > X TTB:PWN TTB:MT , ( q$$ > [ [ Z Z Z ? Z > W 9P O
0x009458…0095ec Dummy {f00=0x0003, 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
0x0095ec…009780 Dummy {f00=0x0003, f01=0x0190, f02=» SWL48 , ( 5 $P c P W P A LKMAL @ , ( Q V ( U P @ V P LKMERR x HALTN LKMRQE ~ * & mD L W @ U LKMQDI QTJOB
0x009780…009914 (0, 12) Dummy {f00=0x0003, f01=0x0190, f02=» A Q | , ( _0 A < Q P Q Z MONCLO L MEXIT ` , ( Y _ 8 p FREBLK0 , ( Q Z P 0 9 _ TIMQUE@ , , ( @ _,
0x009914…009aa8 Dummy {f00=0x0003, f01=0x40f4, f02=» OA @ 0 ) A _ 6 6 A PFINIT 0 k$ > A _ B H D ! . %T 5P ;P ?W: EP, SV cP" iV qW * Q * Q b , ( , P ; ^ KQ v @ ( @ _,
0x009aa8…009c3c Dummy {f00=0x0003, 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
0x009c3c…009dd0 Dummy {f00=0x0003, 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
0x009dd0…009f64 Dummy {f00=0x0003, 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
0x009f64…00a0f8 Dummy {f00=0x0003, 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
0x00a0f8…00a28c Dummy {f00=0x0003, f01=0x0190, f02=»P T I v QMJOB J TTMJOB ( ACTOTP T : , ( ; R $ 5 % > ? W ? N ACTOT ~ TTB:SA , ( Y $ W ? T T U U U TTB:ID TTB:SB, , ( s H U
0x00a28c…00a420 Dummy {f00=0x0003, f01=0x0190, f02=» T P 0 U z GETBLK FREQUE . , ( _t ? @ T @ FREBLKL p * & 0 A 1 Q Q > > 0 @ FNDDWT TTB:TD , ( 1 A P P > ?
0x00a420…00a5b4 (0, 13) Dummy {f00=0x0003, f01=0x0190, f02=»W > _& @ 8 | * & K R Y T ? X D T FNDTID | J SCTTCTD ^ * & e W > _& W > 8 X W ? ` p , ( @ @ P $ H W IHRET8 IHRET2 IHRET1
0x00a5b4…00a748 Dummy {f00=0x0003, f01=0x4154, f02=» , ( > _ > ? _ > > ? ^ INTSAV@ 4 ILLINT H HALTY , ( ! Y ^ _ ? n A. H D ! 4 $ 1P ;R SW [W gT$ T P T R" #T < 8 3T> 9
0x00a748…00a8dc Dummy {f00=0x0003, 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 , ( $ ( , 0 4 8 < TTB:LAK TTB
0x00a8dc…00aa70 Dummy {f00=0x0003, f01=0x40ac, f02=» TTB:PW TTB:SA , ( ! #M 1 & TTB:TD ( V A j K L @ A TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x00aa70…00ac04 Dummy {f00=0x0003, 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
0x00ac04…00ad98 Dummy {f00=0x0003, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x00ad98…00af2c Dummy {f00=0x0003, 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
0x00af2c…00b0c0 Dummy {f00=0x0003, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x00b0c0…00b254 (0, 14) Dummy {f00=0x0004, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x00b254…00b3e8 Dummy {f00=0x0004, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x00b3e8…00b57c Dummy {f00=0x0004, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x00b57c…00b710 Dummy {f00=0x0004, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x00b710…00b8a4 Dummy {f00=0x0004, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x00b8a4…00ba38 Dummy {f00=0x0004, 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
0x00ba38…00bbcc Dummy {f00=0x0004, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x00bbcc…00bd60 Dummy {f00=0x0004, 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
0x00bd60…00bef4 (0, 15) Dummy {f00=0x0004, 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
0x00bef4…00c088 Dummy {f00=0x0004, 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 !
0x00c088…00c21c Dummy {f00=0x0004, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x00c21c…00c3b0 Dummy {f00=0x0004, 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 :
0x00c3b0…00c544 Dummy {f00=0x0004, 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 &
0x00c544…00c6d8 Dummy {f00=0x0004, 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
0x00c6d8…00c86c Dummy {f00=0x0004, 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 @
0x00c86c…00ca00 Dummy {f00=0x0004, 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
0x00ca00…00cb94 (0, 16) Dummy {f00=0x0004, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x0190, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND , (
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x0190, f02=» U R $ )_ : , ( ? W W W W W $ , ( _ Q V V v x W T , ( V V v p R W V , ( W ^< _@ V _P V , ( V : V
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x0190, f02=»:K W r t , ( ? Q R t , ( _ V > v : D , ( V W V ) : V t , ( <B W |P v v , ( : $ V |P v w , (
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x0190, f02=» , ( ? <B V x V |P v , ( _ 1 v W V z ` _f V 4 , ( : W R R P W x d , ( @ _ V : " D P , ( W V P $;A^ D E D , ( P V
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=» ;B " , ( _ R P |P v $ CMPADR T , ( v : V W 0 : h , ( V P 9a _ " ( ) 8 ( ) , ( : " $ V P 9A _ 0 : W , ( W W ?A
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x018e, f02=» j SAVE8 , ( = 0 H W : ? ? SCTLAC J , ( ] R 0 ACTOT RETUR8P , ( y R P P B _ : , ( V ) v : 4P
0x00d6a0…00d834 (0, 17) Dummy {f00=0x0004, f01=0x0190, f02=» , ( ` V b pP , ( ` $ $ W H 4 , ( @ - L ) P _ " = d , ( E M D 4 Q _d * L , ( P m > = G V W , ( $ V E
0x00d834…00d9c8 Dummy {f00=0x0004, f01=0x0190, f02=» @ @ x SCTPAG SCTNOPN * * & ! @ < , ( P P P P _ _ j SCTPSZ , ( D @ 9N @ :b @ :b , ( / V W U
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x0190, f02=» l SCTSEG , ( A A 9n A :B A , ( D @ .V N PAGQUE ~ , ( 3 S Y& P , ( S P , ( 3 _
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x0190, f02=» @ W A & TDISP & , ( k : A ( > 6 , ( @ l : R W n f , ( V pT : N V l W H V ]" , ( " . nT W v W , ( D n V ~P
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x0190, f02=» v G G v U , ( i v G v : P V & , ( : V ~P W x V , ( _$ 8 V V x % V v % : V , ( V > 9k! , ( P % _ V V W W
0x00de84…00e018 Dummy {f00=0x0004, f01=0x018e, f02=» f v ) G v , ( g v ` " W p W ~ pP , ( @ R P _ W ~ R F , ( $ X4 _ ` @ ` W v , ( P W ~ pP V W , ( % R , , (
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x0190, f02=» f , ( c P * I W z ` p , ( P H - V I 8 , ( " R E R T h , ( E D E @ v H v , ( E > #_v W | , ( ;b W
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x0190, f02=» , ( A 0 :C # : .=H N , ( D a : .=H N : 4 GETNUM d , ( N : d 8" x SYSLDA , ( BR _ ZY QY : $ @ , ( V H W z W | CR
0x00e340…00e4d4 (0, 18) Dummy {f00=0x0005, f01=0x0190, f02=» !TTP N x , ( 3 :H N TBT W W 2 " T , ( S @ N =H N H , ( s : @ ) T !TTXX !CCT x , ( @ X !UUT d W , ( 2 .:H N P V , (
0x00e4d4…00e668 Dummy {f00=0x0005, f01=0x0190, f02=» h , ( / :b / W , ( O : W @ W D 8 , ( k V W W ` " h , ( W p @ pP " , ( 4X 1 R , ( @Z0
0x00e668…00e7fc Dummy {f00=0x0005, f01=0x0190, f02=» W V V >k 8 W , ( G W t V V : ( g x X H D ! W> 2 0 . 1 2 C S Y j V !W %U 1R g iQ@ R( l H D !e P z V U z V z M OQ QR ] _V V W V H D !
0x00e7fc…00e990 Dummy {f00=0x0005, f01=0x4152, f02=» , P H D ! P P P P| ?V CW GU6 QT WW aP iP( mP qV uW yU H D ! Q P P V P4 P 7 B W x [ R T T" P %V X H D ! 0 3P _U {P V P P P0 P Pn /P 3 B = B AW GT eP Pl H D ! T R P R 'P
0x00e990…00eb24 Dummy {f00=0x0005, 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
0x00eb24…00ecb8 Dummy {f00=0x0005, f01=0x0190, f02=»AGQUEA , ( @ A ( @ PAG:QB > PAG:SB P * & % X H A ) @ H b TTB:MT , ( = D P 1 % E I L TLDS20 SEG:EL * & U U
0x00ecb8…00ee4c Dummy {f00=0x0005, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x00ee4c…00efe0 Dummy {f00=0x0005, f01=0x4152, f02=»TB:SBH * & ) HT :" U U ( F QLTSWB X < , ( A M 0 - A Q '_D P QLTDSK ^ ACTOT LKMERR LT:SWB j & " Y W * , D @ @4 V ?P T
0x00efe0…00f174 (0, 19) Dummy {f00=0x0005, f01=0x4114, f02=» J F IDENT DWII01 REL 9.2 79-11-16 870105040920 DWII01K R DWII01K d ITADN x , ( IT:BUF @ , ,
0x00f174…00f308 Dummy {f00=0x0005, f01=0x4114, f02=» J F IDENT DWIO01 REL 9.2 79-11-16 870105040920 DWIO01K R DWIO01K d ITADN x , ( IT:BUF @ , ,
0x00f308…00f49c Dummy {f00=0x0005, f01=0x4104, f02=» J F IDENT DW1501 REL 9.2 79-11-16 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ . " . @ PDW
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=» J F IDENT DRKB03 REL 9.2 79-11-16 870105040920 KBAD3 R KBAD3 b DWTST t * & @ ? X V Y TDISP LDREGE , ( ! W Y , (
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=» , ( <D X ? ?: T p , ( > > P P C B 4 , ( T B % X . $ d STREG , ( 4 T % X ,T ! W , ( Y . V B P X " _V , (
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x0190, f02=» , ( p W W 0 Z B , ( Z Z" X . 0T N W 4 , ( X ,P Y . 0 %_. % Y . W d DISEND , ( _f P _x C , ( B " Q R X # P X
0x00f958…00faec Dummy {f00=0x0005, f01=0x0190, f02=» h , ( Y " X .T * W Y , - ? X , ( u :a Z T T W P X 8 , ( :d Y > > ? 8 R @R h , ( V @% =cW R P R P R P W , ( 9 W $ P W _ $ P , ( _$
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x0190, f02=»W< 7U ;R ?P G U _P iP oWT wPP R Q z H D !&J W T " P^ P T T T W 2 V " P 6 H D ! +P 7R G " IW QPB WP8 ]P cP g " mR qQ wP {R R Wz Wn H D !A W " T W P W P " QX R PN !R( %
0x00fc80…00fe14 (0, 20) Dummy {f00=0x0005, f01=0x4024, f02=»P ;T f B @ PP R Q z H D !&J W T " P^ P T T T W 2 V " P 6 H D ! +P 7R G " IW QPB WP8 ]P cP g " mR qQ wP {R R Wz Wn H D !A W " T W P W P " QX R PN !R( %
0x00fe14…00ffa8 Dummy {f00=0x0005, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x00ffa8…01013c Dummy {f00=0x0005, f01=0x0190, f02=» ! B B U , ( $ ! T _ U D ! T . GETCHR ^ , ( _ $$ X" X& X* C p , ( X`" E P 8'0P E , ( T ! T 9 _ ! T @_ ! , ( 5
0x01013c…0102d0 Dummy {f00=0x0005, f01=0x018e, f02=» DWTBC , ( X ' X ] ! , ( B ! ! ! @ , ( @ B Y & ! W 8!0T 8 !@ p , ( DP ! $ P ! ! , ( ! T Y & T X & C TENDI
0x0102d0…010464 Dummy {f00=0x0005, f01=0x0190, f02=» LDREG , ( U Z2<BR J ? Y , ( o! ! T X ! Y D * & & Zl T _ ! X t ECHODY , ( $ P ! R V ECHRTN * & P P !
0x010464…0105f8 Dummy {f00=0x0005, f01=0x0190, f02=» X &" Y )U W ! ! , ( 1 ! Y 4 B $ * & @ K U )X R X T , ( i X &" Y * X ) V Y , ( ! X $ X & ! X * , ( H `R Y !
0x0105f8…01078c Dummy {f00=0x0005, f01=0x4184, f02=» 4 * > r H D ! R d )P -P 3 9 CP SP WP. ]T oR| yR H D ! D : U4 T U T P( P TD T )T GP M Y cP ^ H D !> gR P : W T P P * T T KQ [R H D ! p wT T P
0x01078c…010920 Dummy {f00=0x0005, f01=0x0190, f02=» J F IDENT DRRT01 9.2DK 1 79-11-16 870105040920 F B CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 OUTLIN` CHLTON R H D ! OUTPUTN CHTAB LDREG LDREGE LDREGF STREG GETCHRC DWREMU LOCHAN * & RECHAN REMFC ECHRTN` ECHOY E
0x010920…010ab4 (0, 21) Dummy {f00=0x0005, f01=0x0190, f02=» J B t , ( B pU INTRT2 D , ( ; J BAB rU V , ( [ J B B pU , ( y J BQB rU INTRT3V , (
0x010ab4…010c48 Dummy {f00=0x0005, f01=0x0190, f02=» j DWREMU , ( B " P DISIOE N , ( Q :A H P P H !@T ` TDISP DISEND * & 1 I T ! 1 U CHLT1 N INTSAV C
0x010c48…010ddc Dummy {f00=0x0005, f01=0x0190, f02=»HRT3 l CHRT4 v , ( e ? W A ? W U , ( R ; V # T P , ( R p # P P , ( R P 4 ] P $ P , ( ] U P P P P R
0x010ddc…010f70 Dummy {f00=0x0005, f01=0x0190, f02=» U # $P > R > DWTADRN , ( ] @ 8' T Y X ' T P X 2 RECADR b DWTSB2 t , ( y P >W , ( T # Y U DWTTP , ( T ]
0x010f70…011104 Dummy {f00=0x0005, f01=0x0190, f02=» h DWTOCHf , ( Z ;BR 8% =A Y T Z& DWTOR J , ( ! _, X ' X & 4X< XB U Z , ( ? T T U 5 U R " ] , ( _ ;h # <c$ P , ( } X X " Z 6
0x011104…011298 Dummy {f00=0x0005, f01=0x0190, f02=»ADR , ( " X (@ L $ ' T 4X <d$ , ( _D $?:D" Y X P Y < , ( # P ( 4T U l , ( ' # P 4 4 P _r T _$ U , ( G _ ? 4 U 5 R P DWTOTQ
0x011298…01142c Dummy {f00=0x0005, f01=0x0190, f02=» n , ( W u > > E , ( D E E S % ;DV " > * & U D $ P #`P T E n OUTPUTN & STREG < , ( _ " P T 8! P DWTA3 DWT
0x01142c…0115c0 Dummy {f00=0x0005, f01=0x0190, f02=» UA$ X XB Y X , X ( X GETCHRC z , , ( m * X ' " 4 B U B @ OUTLIN` p , ( (" W C (@ > ?" 8' ?A , ( @ R 8;b# 4T R , ( T T ] ] 8 W
0x0115c0…011754 (0, 22) Dummy {f00=0x0006, f01=0x0190, f02=» U R " ] t , ( C Y > > V , ( a P X P &P _ ] W Q & D CHLTON t , ( H }@ Y &_: @ T P X , ( R @ U S U t " D , ( P D T U W _ U
0x011754…0118e8 Dummy {f00=0x0006, f01=0x0190, f02=» #P /T WW aW kW uW R V p H D ! & R h PJ P 0 h RL P P P PD P< P0 P, R , H D !H T J Tp -WH 5 ?R UP4 YR0 aT qT uP P Wh J T x H D !$ W V P W P R R R T ! YR c yP T&
0x0118e8…011a7c Dummy {f00=0x0006, f01=0x40c2, f02=» P T -P 1T H D !@ 7P6 ; U W R T RT T T W< Tr W T P V WT D @ V P #Q2 %P =R YV aP kP uW T R4 S P T W d @ D !$ W V P W P R R R T ! YR c yP T&
0x011a7c…011c10 Dummy {f00=0x0006, f01=0x018e, 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
0x011c10…011da4 Dummy {f00=0x0006, f01=0x0190, f02=» ECBCW ECBEL TENDIO $ , ( W"H X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X DWSI01 , ( @ V 9_: DWSO01A
0x011da4…011f38 Dummy {f00=0x0006, f01=0x403e, f02=» ;W GW W ]R V p (@ : X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X DWSI01 , ( @ V 9_: DWSO01A
0x011f38…0120cc Dummy {f00=0x0006, f01=0x0190, f02=» J F IDENT DRIC01 9.2DK 0 80-01-02 870105040920 ITADY ITABRT IT:BUF R ITADY r IT:BUF ECBCW , ( P P P .T B Y FNDTID`
0x0120cc…012260 Dummy {f00=0x0006, f01=0x0190, f02=»R ( P H z , ( " [ R H P ' P P W T DWTSB1A H TENDIO Z ECBBA l * & y ' P ! B | TDISP , ( $ # P G W G SETIMP , (
0x012260…0123f4 (0, 23) Dummy {f00=0x0006, f01=0x0190, f02=» U ^ 9 1_N X , ( T @ P ( A _ ( Y , ( D _ _x X T @ P ( A P , ( = _ ( Y _ _ i 9 @ ITABRT ^ , ( ] _ H P P $ DWTECB * &
0x0123f4…012588 Dummy {f00=0x0006, f01=0x4148, f02=» ECBEL , ( A F Z P U " C $ G $ 4 H H D ! ^ P & P P !T +Wx 7P =P MR ]RN eP iP oP qW< f H D !Pa wT6 { ` P P W P P R: L Q P T P 0 , 8 +T 1
0x012588…01271c Dummy {f00=0x0006, f01=0x8190, 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
0x01271c…0128b0 Dummy {f00=0x0006, f01=0x8190, f02=» L j ECBBA ECBRL , ( @ 9 B Y B Y P * , ( @ @ ` @ P 0 Z DWTST TENDIO , ( P _ % A A Y DWTECB * & _| B Q
0x0128b0…012a44 Dummy {f00=0x0006, f01=0x8190, f02=» _R X n DISEND , ( ? @ ! X _ B Y _l SETIME P , ( [@ X P A Y b , ( w W Y @_ X X A , ( Y _& Y @ 0 A A , ( _: X P (
0x012a44…012bd8 Dummy {f00=0x0006, f01=0x8190, f02=» _$ (P _ ) 1 4 DWTOR " , ( 5! X R X T X P 2 , ( O , Y L C L C b , ( T k@ > @ @ @ A X , ( _" X P y Y X , ( P T @
0x012bd8…012d6c Dummy {f00=0x0006, f01=0x8190, f02=» , ( @ BHBB < ! 2B ! , ( 1 T P P 4 , ( Q ! T T A P A T ! d , ( q T ! T T ! T ! A I , ( @ A P " ! _ ! , ( T
0x012d6c…012f00 Dummy {f00=0x0006, f01=0x8190, f02=» P @ P @ 8 ! ! , ( ! 1 A _: ! X6_Z A @ @ $ , ( Q T 1 R 0 2P P P A T TEBCDI , ( q @ 8 H @ P E P * & D X R X P X T , ( P C
0x012f00…013094 (0, 24) Dummy {f00=0x0006, f01=0x8190, f02=» T ! 2 ! , ( P @ X ! X ! W A @ X $ , ( )H - A A A @ A ! T , ( $" M @ T @ P ! ! @ T * & @ m @ X W A I , ( @ @ @ @ A
0x013094…013228 Dummy {f00=0x0006, f01=0x8190, f02=» B r , ( P* A @ T _2 _6 @ A A , ( ' @ X ! XD Y _N @ T X B , ( C ! P ! # T @ T ! r , ( @ a _ ! ! _ A A H E A , ( A 4 @ P ! ! ! @ , (
0x013228…0133bc Dummy {f00=0x0006, f01=0x8190, f02=» A A t , ( T A A A ! ! A _^ @ , ( " ! X ! X Zp X D , ( / D Xp Xt_~ @ P X R X t , ( K P T T Y W P , ( P iH C A A 4 @ , ( $
0x0133bc…013550 Dummy {f00=0x0006, f01=0x8190, f02=» , ( @ @ E ! P ! 4 , ( @ _$ ! 2_l / A T W ,W 4 , ( ( % A A W W W A A d , ( E ! @ ! @ ! ! ! , ( e B J 4 ! ! @ @ A , ( @ T @
0x013550…0136e4 Dummy {f00=0x0006, f01=0x8190, f02=» P " ! " :A *@ H , ( T 0 ! W R ! A @ @ $ , ( # U Zx Q P Q T 0 ! T , ( ! C A 0 ! A ! " ! , ( c " ! X A _" A A ! , ( ! % ! R ! ! @
0x0136e4…013878 Dummy {f00=0x0006, f01=0x8190, f02=» , ( ! 4 A " ? J T A IH1502 8 , ( T 2P ! H 4 ! A L , ( " ? _ I " P A < ( | , ( P 7 A 2 4 A _$" P H B , ( U P W ! _ ! ! 1
0x013878…013a0c Dummy {f00=0x0006, f01=0x8190, f02=» _ @ A 2 @ T , ( )@ < @ A 2 A , ( @ a 2 4 X A P , ( I > Z A 4 A < , ( R + ! @ @ P ! 8 ! @ P a , ( @ K A 4 A A A ?a :a# P
0x013a0c…013ba0 Dummy {f00=0x0006, f01=0x8190, f02=» z " ` @ , ( & :f"? H ! d "? H ! d 4 ABC R , ( ' DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , ( '! UVWXYZ@,%_>?0123456789:[ '=" , ( 'A
0x013ba0…013d34 (0, 25) Dummy {f00=0x0006, f01=0x8190, f02=» iP mP T H D ! u 2 P Wj P P8 '< ' '> '> '> P P '< '@ H D !j QZ P + ^ 5P G eP i p o x wWb H D ! P W P P P 'P 5 ;R2 CT* MP& P P H D !_ T T
0x013d34…013ec8 Dummy {f00=0x0006, f01=0x8190, f02=» T8 P v v T : @ P P 8 H D ! x @ P ~ T< 0 P P + l 1 8 ; I QT aP eP H H D !P iP P P^ RX P TJ P T W W( W" R T H D ! > WB I M @ ST YP ] D e @ kT
0x013ec8…01405c Dummy {f00=0x0006, f01=0x8190, f02=» P v T 4 T l x H D ! =P6 CR0 KP OT$ ST [W gP T f T2 P4 PJ PL P 4 H D ! P. W P P @ T W !W /W 3W 7W G O d H D ! W d ] R c R o u F T( d d P d & W PL
0x01405c…0141f0 Dummy {f00=0x0006, f01=0xc0e6, f02=» P T d F T d H D !0 T PX P " )P MP UP WW [ P }'> '> '> P '> '> '> H D !9 P T 3P EP S W [ iP u y } & & l & & '='B'?'@ ' @ T( d d P d & W PL
0x0141f0…014384 Dummy {f00=0x0006, f01=0x0190, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^
0x014384…014518 Dummy {f00=0x0006, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x014518…0146ac Dummy {f00=0x0006, f01=0x4136, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x0146ac…014840 Dummy {f00=0x0006, 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
0x014840…0149d4 (0, 26) Dummy {f00=0x0007, 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
0x0149d4…014b68 Dummy {f00=0x0007, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x014b68…014cfc Dummy {f00=0x0007, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x014cfc…014e90 Dummy {f00=0x0007, f01=0x0190, f02=» n , ( y @ C @ $W 0P P > FDBADF > , ( Z 0P R I P QTJOB * & W _" H P 4 I TIODM , ( > T C T V Y * & @
0x014e90…015024 Dummy {f00=0x0007, f01=0x0190, f02=» A D , ( I W @W T P X T T LKMQDIR P , ( D g W C 8 b TTB:ST , ( W T 8P Y ^ 5 TDISP FNDDWT |TIO , (
0x015024…0151b8 Dummy {f00=0x0007, f01=0x0190, f02=» b P X l T x , ( @_| Xv Y @ P T W X , ( &P T P H T H TTB:PW x , ( 7 _ X I Y T , ( U # C C W O " # X , ( u Y ) C C
0x0151b8…01534c Dummy {f00=0x0007, f01=0x0190, f02=»P (@ (@ " 2 z , ( X $? P $ > > , ( J , ( / F C z , ( O F C > B R Q F ! P C , ( o > C > F :c" H ,
0x01534c…0154e0 Dummy {f00=0x0007, f01=0x0190, f02=» j , ( U H Q X D B , ( $ T C x > C $ ) _ : DISENDS j , ( - X 9BV X & X | , ( K B D C > X H U H B , ( k P P $ #
0x0154e0…015674 (0, 27) Dummy {f00=0x0007, f01=0x0190, f02=» l DC:MOT , ( @ > ? _ X T (@ DC:MIN P , ( ^ > > ? _ X T d , ( ' X X T % T ?C L R , ( G _@(@ L U L Q M , ( g h
0x015674…015808 Dummy {f00=0x0007, f01=0x0190, f02=» H " $ TENDIO & , ( Y _| ?(@ X P T : * & D #DP 0P X T 4 Y j REQEND , ( X X T X & , ( 1 1 X P - M T $ P ,
0x015808…01599c Dummy {f00=0x0007, f01=0x0190, f02=» j * & P 0P 1 _ ACTOTPN 6 & " (W Y > > H H D ! F X x V x V H Z V Z Z V V r H D ! ! V # S eP W P P R W P T T, V. T H
0x01599c…015b30 Dummy {f00=0x0007, f01=0x4124, f02=»T W T V H D ! P W P R P P aQ iP Q~ P0 P* T QL H D ! U( Q2 T 3V = cUJ qP uPL Q P T P U 9T ARl E H ^ H D ! QU WQ0 q P& P P T T !P /PD [R ]P cP yP8 }P0 P P P W
0x015b30…015cc4 Dummy {f00=0x0007, f01=0x0190, f02=» J F IDENT TIMER REL 9.2 79-11-16 870105040920 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x015cc4…015e58 Dummy {f00=0x0007, f01=0x40ee, f02=» _ _< , ( S ? ^ 4 _ & TIMQUE V , ( qH @ 1 A _ P 9 h > > ( $ ~ T N : - 4 1 N 3 > P @ BLK@ LKMQDI
0x015e58…015fec Dummy {f00=0x0007, 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
0x015fec…016180 Dummy {f00=0x0007, 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
0x016180…016314 (0, 28) Dummy {f00=0x0007, 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
0x016314…0164a8 Dummy {f00=0x0007, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x0164a8…01663c Dummy {f00=0x0007, 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
0x01663c…0167d0 Dummy {f00=0x0007, 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
0x0167d0…016964 Dummy {f00=0x0007, f01=0x0190, f02=» J F IDENT MONTIM REL 9.2 79-11-16 870105040920 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ , ( $ P B $ 9H C ">h # TTB:SA L
0x016964…016af8 Dummy {f00=0x0007, f01=0x40b4, f02=» P ?_" = > = > = =_D , ( R _ 00 > & <h$ P * > Z ( $ !P AP gP u yP R P r @ , ( $ P B $ 9H C ">h # TTB:SA L
0x016af8…016c8c Dummy {f00=0x0007, f01=0x0190, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x016c8c…016e20 Dummy {f00=0x0007, f01=0x406e, f02=» , ( B % 4 & H & X@ j b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x016e20…016fb4 (0, 29) Dummy {f00=0x0007, f01=0x4102, f02=» J F IDENT PFTAB REL 9.2 79-11-16 870105040920 PFTAB R PFTAB b DC15ON t DC25ON SOPRN CHLTON U @ ENTRY
0x016fb4…017148 Dummy {f00=0x0007, f01=0x0190, f02=» > F IDENT CTAB01 REL 1.3 820106.GF CTAB01K CTAB02 F CTAB01K ` CTAB02 t , ( 0123 , ( ! 456789 , ( A 0123456789
0x017148…0172dc Dummy {f00=0x0007, f01=0x409e, f02=» * > ?;_: =!"# x , ( $%&/() @ABCDEFGHIJKLMNOPQRS TUVWXYZ []^ H < l l d @ 0123 , ( ! 456789 , ( A 0123456789
0x0172dc…017470 Dummy {f00=0x0007, f01=0x0190, f02=» J F IDENT DRGP01 AUSTRIA DRIVER FOR 8081 800624 GPADY R , ( [000b [000e [00t [00q 8 b GPADY < , ( ! [00w [00v c [5n DWTOR DWTST , ( A B $$ X
0x017470…017604 Dummy {f00=0x0007, f01=0x0190, f02=» ! x GETCHR * & @ P P ( ! * * & X P ! +T X X , ( @ ! T W +T X " T X > ! OUTPUT , ( Y ; Y = ! ; ! W , ( X ? !
0x017604…017798 Dummy {f00=0x0007, f01=0x018e, f02=» ! Y 0 0 ! X 0 Y .W , ( 0P 1T ! W ! ( , ( @@ ! X F) Y F X " T Y > Y X , ( ? W P ! ! W * & ] Z _R /P C _ . ! , ( X " T Y >_4 Y ?_:
0x017798…01792c Dummy {f00=0x0007, f01=0x0190, f02=» , ( @ O Y< P Y ( X SAVE8 8 , ( kH X F$ T , Y FW Y H , ( F Y . ! X DT Y D x , ( ! Y & Y ( 3 ! Y * & * DWTECB , ( ! 0 ! Y , Y .
0x01792c…017ac0 Dummy {f00=0x0007, f01=0x0190, f02=»P ! X P y SETIMP & , ( / B W Y 8 STREG h , ( G ! X P y " ! x , ( a P 0 : P Y 3 _Z X DWTSB1` * & $ P y Y X 3 4
0x017ac0…017c54 (0, 30) Dummy {f00=0x0008, f01=0x0190, f02=» Y 4 X 4 ," :HR x * & 0 P :h ! Y 4_ X 6 , ! , ( Y 6_ 4 :h 0 :C ! F , ( + 4121518242530333536485051606670 v , ( K 72010203040506070809101111131415 ( $ k H D ! =
0x017c54…017de8 Dummy {f00=0x0008, f01=0x4104, f02=»PB N H D ! EP KPV MW U YW a i w W P T W T W P H D ! K W: R P T # +P 7 * E MP Y J yT W T6 V H D ! R P j 'P 1W ? SP cP P R R P R$ P @
0x017de8…017f7c Dummy {f00=0x0008, f01=0x4132, f02=» D F IDENT DVGP01 DVGP01 FOR 8081 PRINTER DVGP01K L DVGP01K ^ GPADN r , ( GP , ( " ?
0x017f7c…018110 Dummy {f00=0x0008, f01=0x4180, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB , ( % , ( E
0x018110…0182a4 Dummy {f00=0x0008, f01=0x4104, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x * & DY % P @ 8 , 8 @
0x0182a4…018438 Dummy {f00=0x0008, f01=0x018e, f02=» J F IDENT SYSLOD REL 9.2 79-12-19 870105040920 & " SYSLODK SYSBAS NUMSEG PRGLG1 R NUMSEG | PRGLG1 SYSBAS SYSLODK SCTADA SCTPLD SCTANO * &
0x018438…0185cc Dummy {f00=0x0008, f01=0x0190, f02=» TABBE , ( 5@ @ ! P >B @ A @ , ( O E D P _ $ % D SCTMSZ t , ( m H $P _ % A @ , ( " Q A : , ( R W A A
0x0185cc…018760 Dummy {f00=0x0008, f01=0x0190, f02=» SAVE04N , ( W F W F CRT F SCTPSZ J , ( $ A @ @ ! P @ ERROR , ( + P ;b=H F CR , ( I F W =J F CRT F SCTNOS(
0x018760…0188f4 (0, 31) Dummy {f00=0x0008, f01=0x0190, f02=» SAVE22A , ( $ P A Y W " @ " SAVE08 @ , ( T W $ @ R SAVE07 SAVE01` , ( V W Q & ( MMEND , ( *
0x0188f4…018a88 Dummy {f00=0x0008, f01=0x0190, f02=»P , ( C :L A , W $ A . SCTNPE : , ( ] A 0W * L , ( y T F W V | , ( = V W Y* SCTMMC , ( P Z( =
0x018a88…018c1c Dummy {f00=0x0008, f01=0x0190, f02=» SCTLAC * & ( @ @ 4 A 4 , ( # 6 $ @ 6 CR > MMDDIV n * & =! T @ P @ ! P W 8 @ SAVE06 , ( U 6 V :P _ @ ! P * & o @ !RRP V :
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x0190, f02=» @ ! T _ ~ , ( P , , ( @ :l 8 89b ) N SAVE03 ~ , ( D V 8_ @ V W < W * & - $ P T V , ( I < 0 !;;P
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=» W W $ , ( W < V < 0 . , ( !;;P P V (Xb _ P ^ SAVE20 , ( !;;T X$ W < > , ( @P $XZ_V S A A , ( /!
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x0190, f02=» M:REL LDALEN , ( } B V ( $ ) H , ( D A I. : C. P , ( X C.9h! # " , ( :A K : , ( A T I T P 1 I P <
0x0190d8…01926c Dummy {f00=0x0008, f01=0x0190, f02=» 9A ! p , ( u 9B r @ r A I ! ( , ( : A A A A A ! T @ , ( A A I ! : 9E p , ( @ r s A I T ) , ( A _ I N T : , (
0x01926c…019400 Dummy {f00=0x0008, f01=0x0190, f02=» P F r , ( qA @ T X W @ : YX , ( d C !CCT B. X B , ( B.9 H Q _ 2_ !SST r SCTSWB , ( 0 U R X A H X SAVE25 , ( @ W J
0x019400…019594 (0, 32) Dummy {f00=0x0008, f01=0x0190, f02=» h , ( G@D V LT V LT W L , ( a P V & W & @ 8 , ( { $ P p W > T : A h , ( _ 0V , - P X 9A " _ : @ ! P (W ( : H D ! ;P$ [P oP Q R
0x019594…019728 Dummy {f00=0x0008, f01=0x0190, f02=»P T #W /P 9T gW {T W V V W P P W V H D !0N W Q ' 7 =T CP MP _P mP q wP P PZ B H D ! T P V 1 5 9P = A ETJ WP ]P cP$ uT T H D ! 9 W N P P T P '
0x019728…0198bc Dummy {f00=0x0008, f01=0x40f0, f02=» . T T T r H D ! / . 9PJ CT@ IT: QTt YP _P$ uT TZ Q T& R W V W$ V . H D !! P #P ) 1W =P EV KT Q YT eP }P W T V P z P W @ P P T P '
0x0198bc…019a50 Dummy {f00=0x0008, f01=0x0190, f02=» J F IDENT SYSBUG REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x019a50…019be4 Dummy {f00=0x0008, 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
0x019be4…019d78 Dummy {f00=0x0008, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P IH2501 b IH2502 t CHRT1 , ( CHRT2 CHRT3 CHLT1 , ( !
0x019d78…019f0c Dummy {f00=0x0008, f01=0x018e, f02=» , ( a & , ( q V HALTN SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO
0x019f0c…01a0a0 Dummy {f00=0x0008, f01=0x018e, f02=» SCTNOS SCTNOP SCTPSZ , SCTMMC @ SCTLACL T SCTMMP h SCTLAP | SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCT
0x01a0a0…01a234 (0, 33) Dummy {f00=0x0008, f01=0x4098, f02=» SCTBLK SCTDCT 0 _ L b @ E SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCT
0x01a234…01a3c8 Dummy {f00=0x0008, f01=0x0190, f02=» J F IDENT DRDC25 9.2DK 2 80-01-03 870105040920 . * DC25ADK IH2501 IH2502 DC25ON DW2500 R DC25ADK * & , ( C P P P 1P P W DISIOEC
0x01a3c8…01a55c Dummy {f00=0x0008, f01=0x0190, f02=» L j ECBBA ECBRL , ( @ 9 B Y B Y P * , ( @ @ ` @ P 0 Z DWTST TENDIO , ( P _ % A A Y DWTECB * & _| B Q
0x01a55c…01a6f0 Dummy {f00=0x0008, f01=0x0190, f02=» _R X n DISEND , ( ? @ ! X _ B Y _l SETIME P , ( [@ X P A Y b , ( w W Y @_ X X A , ( Y _& Y @ 0 A A , ( _: X P (
0x01a6f0…01a884 Dummy {f00=0x0008, f01=0x0190, f02=» _$ (P _ ) 1 4 DWTOR " , ( 5! X R X T X P 2 , ( O , Y L C L C b , ( T k@ > @ @ @ A X , ( _" X P y Y X , ( P T @
0x01a884…01aa18 Dummy {f00=0x0008, f01=0x0190, f02=» , ( @ BHBB < ! 2B ! , ( 1 T P P 4 , ( Q ! T T A P A T ! d , ( q T ! T T ! T ! A I , ( @ A P " ! _ ! , ( T
0x01aa18…01abac Dummy {f00=0x0008, f01=0x0190, f02=» P @ P @ 8 ! ! , ( ! 1 A _: ! X6_Z A @ @ $ , ( Q T 1 R 0 2P P P A T TEBCDI , ( q @ 8 H @ P E P * & D X R X P X T , ( P C
0x01abac…01ad40 Dummy {f00=0x0008, f01=0x0190, f02=» T ! 2 ! , ( P @ X ! X ! W A @ X $ , ( )H - A A A @ A ! T , ( $" M @ T @ P ! ! @ T * & @ m @ X W A I , ( @ @ @ @ A
0x01ad40…01aed4 (0, 34) Dummy {f00=0x0009, f01=0x0190, f02=» B r , ( P* A @ T _2 _6 @ A A , ( ' @ X ! XD Y _N @ T X B , ( C ! P ! # T @ T ! r , ( @ a _ ! ! _ A A H E A , ( A 4 @ P ! ! ! @ , (
0x01aed4…01b068 Dummy {f00=0x0009, f01=0x0190, f02=» A A t , ( T A A A ! ! A _^ @ , ( " ! X ! X Zp X D , ( / D Xp Xt_~ @ P X R X t , ( K P T T Y W P , ( P iH C A A 4 @ , ( $
0x01b068…01b1fc Dummy {f00=0x0009, f01=0x0190, f02=» , ( @ @ E ! P ! 4 , ( @ _$ ! 2_l / A T W ,W 4 , ( ( % A A W W W A A d , ( E ! @ ! @ ! ! ! , ( e B J 4 ! ! @ @ A , ( @ T @
0x01b1fc…01b390 Dummy {f00=0x0009, f01=0x0190, f02=» P " ! " :A *@ H , ( T 0 ! W R ! A @ @ $ , ( # U Zx Q P Q T 0 ! T , ( ! C A 0 ! A ! " ! , ( c " ! X A _" A A ! , ( ! % ! R ! ! @
0x01b390…01b524 Dummy {f00=0x0009, f01=0x0190, f02=» , ( ! 4 A " ? J"T A IH2502 8 , ( T 2P ! H 4 ! A L , ( " ? _ I " P A < ( | , ( P 7 A 2 4 A _$" P H B2 , ( U P W ! _ ! ! 1
0x01b524…01b6b8 Dummy {f00=0x0009, f01=0x0190, f02=» _ @ A 2 @ T , ( )@ < @ A 2 A , ( @ a 2 4 X A P , ( I > Z A 4 A < , ( R + ! @ @ P ! 8 ! @ P a , ( @ K A 4 A A A ?a :a# P
0x01b6b8…01b84c Dummy {f00=0x0009, f01=0x0190, f02=» z " ` @ , ( & :f"? H ! d "? H ! d 4 ABC R , ( ' DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , ( '! UVWXYZ@,%_>?0123456789:[ '=" , ( 'A
0x01b84c…01b9e0 Dummy {f00=0x0009, f01=0x0190, f02=» iP mP T H D ! u 2 P Wj P P8 '< ' '> '> '> P P '< '@ H D !j QZ P + ^ 5P G eP i p o x wWb H D ! P W P P P 'P 5 ;R2 CT* MP& P P H D !_ T T
0x01b9e0…01bb74 (0, 35) Dummy {f00=0x0009, f01=0x0190, f02=» T8 P v v T : @ P P 8 H D ! x @ P ~ T< 0 P P + l 1 8 ; I QT aP eP H H D !P iP P P^ RX P TJ P T W W( W" R T H D ! > WB I M @ ST YP ] D e @ kT
0x01bb74…01bd08 Dummy {f00=0x0009, f01=0x0190, f02=» P v T 4 T l x H D ! =P6 CR0 KP OT$ ST [W gP T f T2 P4 PJ PL P 4 H D ! P. W P P @ T W !W /W 3W 7W G O d H D ! W d ] R c R o u F T( d d P d & W PL
0x01bd08…01be9c Dummy {f00=0x0009, f01=0x40e6, f02=» P T d F T d H D !0 T PX P " )P MP UP WW [ P }'> '> '> P '> '> '> H D !9 P T 3P EP S W [ iP u y } & & l & & '='B'?'@ ' @ T( d d P d & W PL
0x01be9c…01c030 Dummy {f00=0x0009, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWSI01 x DWII01 DWIO01 , ( DW1501 DW2501 DW1
0x01c030…01c1c4 Dummy {f00=0x0009, f01=0x403c, f02=» ( ) ~ 6 &@ 8 870105040920 SCLASSK R SCLASSK d DWSI01 x DWII01 DWIO01 , ( DW1501 DW2501 DW1
0x01c1c4…01c358 Dummy {f00=0x0009, f01=0x4104, f02=» J F IDENT DW2501 REL 9.2 79-11-16 870105040920 DW2501K R DW2501K d DC25AD x , ( DC @ . " . @ PDW
0x01c358…01c4ec Dummy {f00=0x0009, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 6 82-02-21 870105040924 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P P +P P DISIOEC
0x01c4ec…01c680 Dummy {f00=0x0009, f01=0x0190, f02=» , ( " P H :H B # L Y @ SETIME 8 , ( P P $_ _R J , ( _$ X 9 P @ z , ( @ ` @ P 0P _ % A A DWTST TENDIO ECBRL
0x01c680…01c814 (0, 36) Dummy {f00=0x0009, f01=0x0190, f02=» DC:MIN , ( G Y P C _ _ , ( cB B ! P Y _V X ! X @ DISEND p , ( } _ B Y _p X , ( P A Y W Y @_ , ( X X A Y _&
0x01c814…01c9a8 Dummy {f00=0x0009, f01=0x0190, f02=» ( r , ( 5 X( P _ 0 )_6 X " X> XB , ( U _> _0 (P _ ) 1 4 B DWTOR r , ( u! X R X T X P , ( , Y L C L C , ( T @ > @ @ @ A X
0x01c9a8…01cb3c Dummy {f00=0x0009, f01=0x0190, f02=» r % > = 6 , ( @ Q BHBB < ! 2B ! T , ( q T P P , ( ! T T A P A T ! , ( T ! T T ! T ! A
0x01cb3c…01ccd0 Dummy {f00=0x0009, f01=0x0190, f02=» A < A >_ ! t , ( 1 @ >P @ X@ ! T A B ! * & Q ` @ <P @ P @ : 8 ! X D , ( o Y ! A F_B ! X>_b A r , ( B @ @ RT 1 Z 0 2P TEBCDI , ( @ P P A P @ 8 8 H
0x01ccd0…01ce64 Dummy {f00=0x0009, f01=0x0190, f02=»P " P X r , ( * Y X T ! `W , ( 3 W W X R X T @ , ( K ! ` r ! ` X ! X p , ( g ! W A > @ 8 X Y A D A : , ( ) A F @ Z A Z ! @ <T @ , ( H
0x01ce64…01cff8 Dummy {f00=0x0009, f01=0x0190, f02=» XV ! T @ FP ! ! _p / , ( $@ ! T @ FX @ @P @ BT ! ! A 0 , ( A D_ A F B A < @ @T ` , ( a _2 _6 @ : X A B A < X ! XD , ( Y _N @ <T X ! P ! , ( `# T @ T
0x01cff8…01d18c Dummy {f00=0x0009, f01=0x0190, f02=» ` @ T ! _ T ECBBA DC:MOT, 0 , ( J $ *_ J A : C B B , ( U 3 B A L A N A P A @ A B r * & O ! ! A <_^ @ < ! X , ( m @ ! X Zp X Xp Xt_~ , ( H
0x01d18c…01d320 Dummy {f00=0x0009, f01=0x0190, f02=» I @ Y 4 @ @ BT @ R A P , ( T @ P A R A B ! T P P . , ( P P P 1 A P @ P ^ , ( 9 ]6W P _@ @ @ P E ! P , ( Y ! 4 _$ ! 2_l / A , ( P y FT W ,W A
0x01d320…01d4b4 (0, 37) Dummy {f00=0x0009, f01=0x0190, f02=» A R @ PT @ ! ~ , ( 8 ! W - ! x ! W 0 , ( " W R ~T }T T N * & 9 W ! P " ! " :A *@ H ~ , ( W T 0 ! W R ! A , ( u P @ N @ PU Zt Q P Q
0x01d4b4…01d648 Dummy {f00=0x0009, f01=0x018e, f02=» ! l , ( @ @ ! 8 ! X ! 9a D ! , ( X ! P ! T & ! _b B J < IH1501 D l INTSAVL , ( 1 B ! ! 4 A " ? , ( O J T A HT 2P ! H 4 ! IH1502 p , (
0x01d648…01d7dc Dummy {f00=0x0009, f01=0x0190, f02=» f , ( ! 1 4 A @ ` @ P DC15ON 8 , ( 0 M A 4 ? @ ` L , ( @ P $ Y D_ @ A r @ | , ( ( % T ` < @ A r , ( B E A a r 4 0 X
0x01d7dc…01d970 Dummy {f00=0x0009, f01=0x0190, f02=»?a l ( $ :a# P @ @ @ 4 , ( * A H ! ! A H @ :H 8 DW1500 h , ( 4 | $ 0 ! 6 : ; , ( '= :f"? H ! "? H !
0x01d970…01db04 Dummy {f00=0x0009, f01=0x0190, f02=» v , ( ' ! ' ! F H D ! f 4 B 4 GP8 KP OP SP4 WP: ] b c eW kP oP ! X H D !Bo sP { r P W W P T P P P8 ' ' ' ' ! H D ! ' P P ' '
0x01db04…01dc98 Dummy {f00=0x0009, f01=0x0190, f02=» {R2 T* P& P P T : T < : $ ( , ! H D ! 0 W g q sT yP }P Tf Tb P " D H D !R TR TL TD T@ T8 P T " H D ! P P # 1 7P ; 4 A
0x01dc98…01de2c Dummy {f00=0x0009, f01=0x0190, f02=» Y r i kW@ T P T " t H D !| Wx F T P j !T, -P 5T0 9 = M F # 0 H D ! ]T TL P T 4 T r P j F P # | H D ! j T T ' > Q U j g F P< T6 R0 P T$ T W
0x01de2c…01dfc0 Dummy {f00=0x0009, f01=0x0190, f02=» * T$ # ` H D ! W '< W WL !R 'T /T 7T0 ;W, A ]T c gW $ H D !G mR q UH P T * $ h H D ! P !T ' 5 = QT WT ]PX a k | P P P $ H D !{ W
0x01dfc0…01e154 (0, 38) Dummy {f00=0x000a, f01=0x400e, f02=» $ @ % T$ # ` H D ! W '< W WL !R 'T /T 7T0 ;W, A ]T c gW $ H D !G mR q UH P T * $ h H D ! P !T ' 5 = QT WT ]PX a k | P P P $ H D !{ W
0x01e154…01e2e8 Dummy {f00=0x000a, f01=0x2008, f02=» L = FIX0 DATE = 82 02 17 1216PACK NBR = 0000
0x01e2e8…01e47c Dummy {f00=0x000a, f01=0x0190, f02=»3 EQU * _ P IFT RECHAN=3 ` $ P ST P,INTSAV SAVE LAST INTERRUPT ` & P* ` N P IFT CPU852=1 ` X & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` n P XIF ` P* ` P IFT RECHAN=3 ` P IFT CPU852=0 ` " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF `
0x01e47c…01e610 Dummy {f00=0x000a, f01=0x0190, f02=»P,INTSAV SAVE LAST INTERRUPT ` P* a $ P IFT CPU852=1 a . & P CF A15,SAVE8 SAVE A1-A8 ON STACK a D P XIF a n P* a z P IFT RECHAN=4 a P IFT CPU852=0 a " P MSR 8,A15 SAVE A1-A8 ON STACK a P XIF a P* a P IFT RECHAN=4 a P LDK A
0x01e610…01e7a4 Dummy {f00=0x000a, f01=0x0190, f02=» a v P* b PCHRT4 EQU * b P IFT RECHAN=4 b & $ P ST P,INTSAV SAVE LAST INTERRUPT b < P* b d P IFT CPU852=1 b n & P CF A15,SAVE8 SAVE A1-A8 ON STACK b P XIF b P* b P IFT RECHAN=4 b P IFT CPU852=0 b " P MSR 8,A15 SAVE A1-A8 ON
0x01e7a4…01e938 Dummy {f00=0x000a, f01=0x0190, f02=»GET CWT-ADDRESS b z P* c P XIF c " P* c . * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION c 8 P* c f P IFT LOGING=1 c p P* c 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** c P* c P XIF c P EJECT c P* c & P* DETERMINE TYP
0x01e938…01eacc Dummy {f00=0x000a, f01=0x018e, f02=» c P SUK A7,10 d " P RF(N) CLT018 LOCAL INTERRUPT d P LDR A3,A2 d @ . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? d R P RF(NN) CLT015 FIRST d > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHANNEL OF CHRT d 4 PCLT015 CF A15,RESTSY START OR RESTART
0x01eacc…01ec60 Dummy {f00=0x000a, f01=0x0190, f02=» d l P ABL(N) CLT170 YES e & PCLT018 LDK A1,0 RESET RETURN CODE e " ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? e L P RF(N) CLT050 e x $ P ANKL A3,/7000 DEVICE ADDRESS ? e ( P ABL(NE) CLT100 YES, DIN, STD OR DRD e P EJECT e P* e P* e , P*
0x01ec60…01edf4 (0, 39) Dummy {f00=0x000a, f01=0x018e, f02=»EGISTERS FROM TTAB x P* P EJECT TOSSIO $ P* < P* MOVE DWT ECB TO USER ECB F P* h * P LD A8,DWTUEC,A6 GET USER ECB ADDRESS r P ELR A4,A8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB P ESR A4,A8 P LDR A1,A3 P ADK
0x01edf4…01ef88 Dummy {f00=0x000a, f01=0x0190, f02=» 8 P LD A3,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK & P LD A3,DEVIND,A3 GET DEVICE INDEX D . P RF(N) TEN160 NO SPECIAL ACTION REQUIRED? n " P RF(Z) TEN140 DATA MANAGEMENT? P* " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x0190, f02=» A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* < P EJECT TOSSIO F P* ^ P* RESTORE MMU REGISTERS h P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x0190, f02=»IVATION b P* PTEN200 EQU * 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR . * P RF(Z) TEN250 NOT WAIT OR ACTIVATION? b P SUK A4,1 P RF(Z) TEN240 WAIT? P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) TEN230 ACTIVA
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x018e, f02=» RF(Z) TEN210 SYSTEM MODE? . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS " P XIF T P* ` PTEN210 EQU * j 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA ~ P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A3,A
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x0190, f02=» P* P EJECT TOSSIO P* & P* 0 PTEN230 EQU * : 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR N . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS P RF TEN250 P* PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TA
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x40d2, f02=»2=1 P ABL IHRET8 P XIF P* , P IFT CPU852=0 6 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... L P RTN A15 ...AND RETURN z P XIF P* P* P* P END @ PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TA
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x2008, f02=» NT TOSSIO END @ &
0x01f900…01fa94 (0, 40) Dummy {f00=0x000a, f01=0x018e, f02=»AME FOR ALL h P* DWT:S IN SYSTEM P EJECT 0 P* > 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE H 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P* P* -----ECHO-FUNCTION " P* -----POWER ON INDICATION
0x01fa94…01fc28 Dummy {f00=0x000a, f01=0x0190, f02=» P* ENTRIES P* P* & P ENTRY KBAD3 ADDRESS-BLOCK 0 P* R P* P* f & P* EXTERNAL TOSS MODULE ENTRIES p P* P* P* $ P EXTRN DISIOE I/O REQUEST ERROR . P EXTRN DISEND END I/O AND GO TO DISPATCH
0x01fc28…01fdbc Dummy {f00=0x000a, f01=0x0190, f02=» STREG STORE REGISTERS AND GO TO DISPATCER , P EXTRN LDREGE RETURN FROM ECHOE HANDLING 2 P EXTRN LDREGF PANIK EXTERN b P EXTRN SETIME SET TIME P EXTRN SETIMP SET TIME " P EXTRN SAVE8 SAVE 8 REGISTERS " P EXTRN ECHRTN RETURN FROM ECHO
0x01fdbc…01ff50 Dummy {f00=0x000a, f01=0x0190, f02=» P* P* " P EXTRN DWTCHP CHANEL PARAMETER P EXTRN DWTST STATUS > EXTRN DWTBC BYTE COUNTER Z & " EXTRN DWTADR DRIVER ADDRESS BLOCK | P EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5
0x01ff50…0200e4 Dummy {f00=0x000a, f01=0x018e, f02=» INPUT DWT ~ P EJECT P* P* * P* 4 P* CONSTANTS > P* V P* ` P* j * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER t P* . PX:F EQU 20 LENGTH OF CIRCULAR INPUT BUFFER 2 PDWTLNG EQU 20 NUMBER OF BYTES IN DECIMAL F
0x0200e4…020278 Dummy {f00=0x000a, f01=0x018e, f02=» P* P* , P**************************************** , P* CONDITIONAL ASSEMBLY * H , P**************************************** x P* . P* TIME OUT FUNCTION MAY BE EXCLUDED BY P* SETTING X:A = 0. P*
0x020278…02040c Dummy {f00=0x000a, f01=0x0190, f02=» PX:B EQU 1 PCECHO EQU 0 P* * > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION 4 & P* IS INCLUDED IN THE DRIVER. v < P* IF THERE IS A READ REQUEST THIS IS COMPLETED WITH , P* ZERO IN THE CONTROL WORD OF ECB.
0x02040c…0205a0 Dummy {f00=0x000a, f01=0x0190, f02=» T P* OF ECB P* P* ( PX:E EQU 0 2 PPOWOFF EQU 0 D P* X P* b P* l N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72 v PX:H EQU 0 PNSHIFT EQU 1 P* P* B P*
0x0205a0…020734 (0, 41) Dummy {f00=0x000a, f01=0x0190, f02=»* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 8 P* D P IFT MMUPAG=1 N PSTART EQU DWTDRD+4 d P XIF ~ P* 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU
0x020734…0208c8 Dummy {f00=0x000a, f01=0x0004, f02=»
0x0208c8…020a5c Dummy {f00=0x000a, 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*
0x020a5c…020bf0 Dummy {f00=0x000a, 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
0x020bf0…020d84 Dummy {f00=0x000a, 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
0x020d84…020f18 Dummy {f00=0x000a, 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
0x020f18…0210ac Dummy {f00=0x000a, 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,
0x0210ac…021240 Dummy {f00=0x000a, 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
0x021240…0213d4 (0, 42) Dummy {f00=0x000b, f01=0x0190, f02=» A3,A2 % * PGBUF10 ADKL A15,4 ADJUST STACK POINTER & P ABR* A15 RETURN TO CALLER & < P EJECT & ^ P* & l P* & v ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & P* A2,A3,A4 DESTROYED & P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEU
0x0213d4…021568 Dummy {f00=0x000b, f01=0x018e, f02=»Q2 & PINSWQ3 ADR A4,A6 ' P STR A4,A2 INSERT IN QUEUE ' " " P CMR A4 INDICATE END OF QUEUE ' D P RB GBUF10 RETURN ' j P* ' P* ' * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PRE
0x021568…0216fc Dummy {f00=0x000b, f01=0x0190, f02=» PREM10 LDR* A3,A2 ( & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( P CWR A3,A4 ( F P RF(E) REM15 ( X P LDR A2,A3 GET NEXT ( l P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( P RB GBUF10 RETURN ( P EJECT ( P* ( P* ( P
0x0216fc…021890 Dummy {f00=0x000b, f01=0x0190, f02=»STQ GET QUEUE ANCHOR ( P LDK A4,DWTSQ ) P RB INSWQ2 ) 2 P* ) D P* ) N " P* REMOVE DWT FROM STATUS QUEUE ) X P* ) ~ P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) P LDK A4,DWTSQ ) P RB RE
0x021890…021a24 Dummy {f00=0x000b, f01=0x0190, f02=»,A3 DESTROYED ) P* * PQRBUF EQU * * P IFT MESPAS=1 * 4 ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * J P XIF * v P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU *
0x021a24…021bb8 Dummy {f00=0x000b, f01=0x0190, f02=»E * p " P CMR A4 INDICATE END OF QUEUE + P RTN A5 + 0 P EJECT + @ P* + N P* + X 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + b P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1
0x021bb8…021d4c Dummy {f00=0x000b, f01=0x018e, f02=»A8,DWTECB,A6 ECB ADDR TO A8 + * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , $ " P RF(Z) CKM200 NO READ IN QUEUE , R P , x P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , " P ADK A3,6 MOVE POINTER TO TEXT
0x021d4c…021ee0 Dummy {f00=0x000b, f01=0x0190, f02=» , . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS - P - : P LDK A1,0 RESET RETURN CODE - B & P LDR A4,A3 RECEIVE BUFFER ADDRESS - f , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST STACK POINTER - P ABR* A15 RETURN - 8 PCK
0x021ee0…022074 (0, 43) Dummy {f00=0x000b, f01=0x0190, f02=»A5,READP SKIP NEXT TWO CHARACTERS e P CF A5,READP f * P XIF f > PRDM100 EQU * f J $ P CF A5,READP READ ONE CHARACTER f ^ P RF(NZ) RDM120 PARITY ERROR f PRDM110 EQU * f P CWK A2,ETX f P RF(E) RDM130 ETX RECEIVED f P CWK A2,ETB f P
0x022074…022208 Dummy {f00=0x000b, f01=0x0190, f02=»BEDDED IN MESSAGE f t P CWK A2,/FF g $ P RF(E) RDM140 MARK HOLD RECEIVED g . P g V P IFT CODE=0 g ^ P IFT BINTRM=1 g r P g P LDR A1,A2 g P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g P RF(N) RDM115 NOT DC1-DC3 g
0x022208…02239c Dummy {f00=0x000b, f01=0x0190, f02=»ASSEMBLE TO ONE CHARACTER g P ORR A2,A8 h " PRDM115 EQU * h 4 P XIF h H P h T P SCR A2,A4 STORE CHARACTER h P ADK A4,1 INCREMENT POINTER h ~ $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h P CWK A1,RBUFL+RBUFL h P RB(NG) RDM100
0x02239c…022530 Dummy {f00=0x000b, f01=0x0190, f02=» INVALID MESSAGE h ~ P SUK A2,/7F i $ P RF(Z) RDM150 MARK HOLD RECEIVED i , P RB RDM100 i T P* i f P* ETX RECEIVED i p P* i PRDM130 EQU * i $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 2 P ST A2,+2,A1 STORE EFFEC
0x022530…0226c4 Dummy {f00=0x000b, f01=0x0190, f02=»F A5,RDCRC READ CRC AND CHECK IT i P RF(E) RDM150 CRC WAS OK j ( P XIF j H PRDM140 EQU * j T & P LDK A3,1 INDICATE INVALID MESSAGE j h PRDM150 EQU * j $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j P IFT P6805=1 j " P ORR A
0x0226c4…022858 Dummy {f00=0x000b, f01=0x0190, f02=» A3,A3 j " P RB(NZ) RDM130 ALREADY INVALID k " P LDK A3,2 INDICATE CORRECT ETB k 4 P RB RDM130 k Z P* k l P* ITB RECEIVED k v P* k PRDM170 EQU * k P IFF CODE=1 k P CF A5,RDLRC k " P RB(NZ) RDM120 LRC WAS NOT OK k P XIF k P IFT
0x022858…0229ec Dummy {f00=0x000b, f01=0x0190, f02=» P* l P* TRANSMIT ACK 0 OR 1 l P* l , PTRACK LDK A2,1 l 6 P LDK A3,ACK1 PRELOAD ACK1 l L & P XRS A2,CACK INCREMENT ACK COUNTER l n P RF(NZ) TRDLE l P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l P* l P* TRANSMIT WACK l P* l
0x0229ec…022b80 Dummy {f00=0x000b, f01=0x0190, f02=»OAD RVI l ~ P XIF m P* m P* TRANSMIT DLE m & P* m < PTRDLE LDK A2,DLE LOAD DLE m F " P SC A2,RESEND PUT INSAVE AREA m h P SC A3,RESEND+1 m P RF TRREP m P EJECT m P* m P* TRANSMIT NAK m P* m PTRNAK LDK A3,NAK LOAD NA
0x022b80…022d14 (0, 44) Dummy {f00=0x000b, f01=0x0190, f02=» P P h 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 p H D ! T W * ' P )T /P 3P H D
0x022d14…022ea8 Dummy {f00=0x000b, f01=0x0002, f02=»
0x022ea8…02303c Dummy {f00=0x000b, f01=0x018e, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVGP01 P* P* P* P* P
0x02303c…0231d0 Dummy {f00=0x000b, f01=0x4132, f02=» t P DATA /0020 P DATA DVKB00 ( P DATA /0050 H P DATA DVDY00 h PTC00E EQU * PTC01 DATA TC01E-* P DATA /0030 P DATA DVGP01 PTC
0x0231d0…023364 Dummy {f00=0x000b, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x023364…0234f8 Dummy {f00=0x000b, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 MONMMU FREBLK , ( @ ( H 0 ) $P TTB:SAS , ( @
0x0234f8…02368c Dummy {f00=0x000b, f01=0x018e, f02=» _" n QTJOB , ( y H P 4 I > T C TIODM N , ( @ T V Y T N 8 ^ , ( P q 0 ) W X P 8 GETBLKP , ( B T B R P A @ J A J SETIM
0x02368c…023820 Dummy {f00=0x000b, f01=0x0190, f02=» , ( -@ 8W T 8P TDISP 8 * & I@ Y ^ 5 ) P U H FNDDWT v |TIO d , ( c XH ' TTB:ID , ( X X D #DP @ ,
0x023820…0239b4 (0, 45) Dummy {f00=0x000b, f01=0x0190, f02=» A3,A2 % * PGBUF10 ADKL A15,4 ADJUST STACK POINTER & P ABR* A15 RETURN TO CALLER & < P EJECT & ^ P* & l P* & v ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & P* A2,A3,A4 DESTROYED & P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEU
0x0239b4…023b48 Dummy {f00=0x000b, f01=0x018e, f02=»Q2 & PINSWQ3 ADR A4,A6 ' P STR A4,A2 INSERT IN QUEUE ' " " P CMR A4 INDICATE END OF QUEUE ' D P RB GBUF10 RETURN ' j P* ' P* ' * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PRE
0x023b48…023cdc Dummy {f00=0x000b, f01=0x0190, f02=» PREM10 LDR* A3,A2 ( & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( P CWR A3,A4 ( F P RF(E) REM15 ( X P LDR A2,A3 GET NEXT ( l P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( P RB GBUF10 RETURN ( P EJECT ( P* ( P* ( P
0x023cdc…023e70 Dummy {f00=0x000b, f01=0x0190, f02=»STQ GET QUEUE ANCHOR ( P LDK A4,DWTSQ ) P RB INSWQ2 ) 2 P* ) D P* ) N " P* REMOVE DWT FROM STATUS QUEUE ) X P* ) ~ P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) P LDK A4,DWTSQ ) P RB RE
0x023e70…024004 Dummy {f00=0x000b, f01=0x0190, f02=»,A3 DESTROYED ) P* * PQRBUF EQU * * P IFT MESPAS=1 * 4 ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * J P XIF * v P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU *
0x024004…024198 Dummy {f00=0x000b, f01=0x0190, f02=»E * p " P CMR A4 INDICATE END OF QUEUE + P RTN A5 + 0 P EJECT + @ P* + N P* + X 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + b P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1
0x024198…02432c Dummy {f00=0x000b, f01=0x018e, f02=»A8,DWTECB,A6 ECB ADDR TO A8 + * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , $ " P RF(Z) CKM200 NO READ IN QUEUE , R P , x P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , " P ADK A3,6 MOVE POINTER TO TEXT
0x02432c…0244c0 Dummy {f00=0x000b, f01=0x0190, f02=» , . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS - P - : P LDK A1,0 RESET RETURN CODE - B & P LDR A4,A3 RECEIVE BUFFER ADDRESS - f , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST STACK POINTER - P ABR* A15 RETURN - 8 PCK
0x0244c0…024654 (0, 46) Dummy {f00=0x000c, 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
0x024654…0247e8 Dummy {f00=0x000c, 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 ,
0x0247e8…02497c Dummy {f00=0x000c, f01=0x0190, f02=» l , ( g W C U C R , ( _$ C # < QTJOB l MEXIT | * & Y ' ECBRC * & ( B " T :" U TTB:SBH ,
0x02497c…024b10 Dummy {f00=0x000c, 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 ,
0x024b10…024ca4 Dummy {f00=0x000c, 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
0x024ca4…024e38 Dummy {f00=0x000c, 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
0x024e38…024fcc Dummy {f00=0x000c, 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
0x024fcc…025160 Dummy {f00=0x000c, f01=0x0190, f02=» J F IDENT DRKB03 REL 9.2 79-11-16 870105040920 KBAD3 R KBAD3 b DWTST t * & @ ? X V Y TDISP LDREGE , ( ! W Y , (
0x025160…0252f4 (0, 47) Dummy {f00=0x000c, f01=0x0190, f02=» iP mP T H D ! u 2 P Wj P P8 '< ' '> '> '> P P '< '@ H D !j QZ P + ^ 5P G eP i p o x wWb H D ! P W P P P 'P 5 ;R2 CT* MP& P P H D !_ T T
0x0252f4…025488 Dummy {f00=0x000c, f01=0x0004, f02=»
0x025488…02561c Dummy {f00=0x000c, 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
0x02561c…0257b0 Dummy {f00=0x000c, 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
0x0257b0…025944 Dummy {f00=0x000c, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x025944…025ad8 Dummy {f00=0x000c, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x025ad8…025c6c Dummy {f00=0x000c, f01=0x0190, f02=» n , ( y @ C @ $W 0P P > FDBADF > , ( Z 0P R I P QTJOB * & W _" H P 4 I TIODM , ( > T C T V Y * & @
0x025c6c…025e00 Dummy {f00=0x000c, f01=0x0190, f02=» A D , ( I W @W T P X T T LKMQDIR P , ( D g W C 8 b TTB:ST , ( W T 8P Y ^ 5 TDISP FNDDWT |TIO , (
0x025e00…025f94 (0, 48) Dummy {f00=0x000c, f01=0x0190, f02=» b P X l T x , ( @_| Xv Y @ P T W X , ( &P T P H T H TTB:PW x , ( 7 _ X I Y T , ( U # C C W O " # X , ( u Y ) C C
0x025f94…026128 Dummy {f00=0x000c, f01=0x0190, f02=»P (@ (@ " 2 z , ( X $? P $ > > , ( J , ( / F C z , ( O F C > B R Q F ! P C , ( o > C > F :c" H ,
0x026128…0262bc Dummy {f00=0x000c, f01=0x0190, f02=» j , ( U H Q X D B , ( $ T C x > C $ ) _ : DISENDS j , ( - X 9BV X & X | , ( K B D C > X H U H B , ( k P P $ #
0x0262bc…026450 Dummy {f00=0x000c, f01=0x0190, f02=» l DC:MOT , ( @ > ? _ X T (@ DC:MIN P , ( ^ > > ? _ X T d , ( ' X X T % T ?C L R , ( G _@(@ L U L Q M , ( g h
0x026450…0265e4 Dummy {f00=0x000c, f01=0x0190, f02=» H " $ TENDIO & , ( Y _| ?(@ X P T : * & D #DP 0P X T 4 Y j REQEND , ( X X T X & , ( 1 1 X P - M T $ P ,
0x0265e4…026778 Dummy {f00=0x000c, f01=0x0190, f02=» j * & P 0P 1 _ ACTOTPN 6 & " (W Y > > H H D ! F X x V x V H Z V Z Z V V r H D ! ! V # S eP W P P R W P T T, V. T H
0x026778…02690c Dummy {f00=0x000c, f01=0x4124, f02=»T W T V H D ! P W P R P P aQ iP Q~ P0 P* T QL H D ! U( Q2 T 3V = cUJ qP uPL Q P T P U 9T ARl E H ^ H D ! QU WQ0 q P& P P T T !P /PD [R ]P cP yP8 }P0 P P P W
0x02690c…026aa0 Dummy {f00=0x000c, f01=0x2008, f02=»
0x026aa0…026c34 (0, 49) Dummy {f00=0x000c, 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
0x026c34…026dc8 Dummy {f00=0x000c, f01=0x0002, f02=»
0x026dc8…026f5c Dummy {f00=0x000c, 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
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x0270f0…027284 Dummy {f00=0x000c, f01=0x2008, f02=»
[…0x1…]
0x027418…0275ac Dummy {f00=0x000c, 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
0x0275ac…027740 Dummy {f00=0x000c, f01=0x2008, f02=» NT TOSSIO END @ &
0x027740…0278d4 (0, 50) Dummy {f00=0x000d, f01=0x0190, f02=»AKB310 ORDER 2 OR 3 P EJECT P* * P* 4 P* ORDER 1 BASIC READ > P* ^ P* h P* r 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER | P IFT CECHO=1 P CF A5,ECHO P XIF PAKB307 CW A3,4,A8 , P RF(
0x0278d4…027a68 Dummy {f00=0x000d, f01=0x0190, f02=» EJECT P* P* P* " 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ , P* d B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) n P* P* P* P* PAKB310 EQU * " P LD A1,10,A8 KEY-TABLE A
0x027a68…027bfc Dummy {f00=0x000d, f01=0x0190, f02=»EY-TABLE v P ADK A1,1 PAKB355 SUK A4,1 " , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE : P SUK A1,1 NEXT KEY j P CCR A2,A1 EOR? P RB(NE) AKB355 NO! P ADK A4,1 , P ST A4,10,A8 STORE INDEX IN CONTROL WORD " P CF A15,STORE ST
0x027bfc…027d90 Dummy {f00=0x000d, f01=0x0190, f02=»F AKB380 PAKB360 EQU * ! P LDR A4,A2 ! $ P CC A4,KBMZ2,A6 ! 6 P RF(E) KBMZ20 ! N P CC A4,KBMZ3,A6 ! d P RF(E) KBMZ30 ! | P CC A4,KBBSP,A6 ! P RF(E) KBSP10 ! P CC A4,KBCLR,A6 ! P RF(E) KBCL10 ! , P CF A15,STORE STORE CHARAC
0x027d90…027f24 Dummy {f00=0x000d, f01=0x0190, f02=»ACTER > /7F ! P RF(P) AKB364 YES " P CWK A7,2 " . $ P RF(E) AKB366 STANDARD READ OK " @ P ADK A4,/4F " h P RF(N) AKB364 " | P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ OK " PAKB364 LDK A1,4 ERROR CODE " P RF ENDIO " PAKB366 EQU
0x027f24…0280b8 Dummy {f00=0x000d, f01=0x0190, f02=»10 NO RETURN " ~ & PAKB368 LDK A1,8 YES SET ERROR CODE # P RF ENDIO END I/O # > P EJECT # X PKBMZ30 EQU * TRIPPLE ZERO # f P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DOUBLE ZERO # PKBMZ25 LDK A2,/30 # P SUK A4,1 # P RB(L) AKB36
0x0280b8…02824c Dummy {f00=0x000d, f01=0x0190, f02=» P RB(L) KBMZ25 $ PKBMZ27 EQU * $ P SUK A4,1 ANY MORE ZEROES $ . $ P RB(L) AKB368 NO,SET RETURN CODE $ P P INH $ x * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6 $ " P CWK A1,DWTSQ FIRST POSITION ? $ P RF(NE) KBMZ29 NO $ , P LDK
0x02824c…0283e0 Dummy {f00=0x000d, f01=0x0190, f02=»OSITION $ j P SUK A1,1 % , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % " P RF(E) KBMZ90 NO NOT REALY. % R 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % v & P LDK A2,/30 STORE ZERO IN CIRKULAR % P SCR A2,A1 INPUT BUFFER % P RB KBMZ27 % PKB
0x0283e0…028574 (0, 51) Dummy {f00=0x000d, 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
0x028574…028708 Dummy {f00=0x000d, 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*
0x028708…02889c Dummy {f00=0x000d, 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
0x02889c…028a30 Dummy {f00=0x000d, 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
0x028a30…028bc4 Dummy {f00=0x000d, 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
0x028bc4…028d58 Dummy {f00=0x000d, 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*
0x028d58…028eec Dummy {f00=0x000d, 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
0x028eec…029080 Dummy {f00=0x000d, 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
0x029080…029214 (0, 52) Dummy {f00=0x000d, f01=0x0190, f02=» r P* 6 P* DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* L PSEG:ST EQU 0 STATUS V $ PSEG:DS EQU 2 DISC SECTOR ADDRESS r " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POI
0x029214…0293a8 Dummy {f00=0x000d, f01=0x0190, f02=» P* 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY D $ PSWB:EL EQU 4 SWB LENGTH (BYTES) z & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT
0x0293a8…02953c Dummy {f00=0x000d, f01=0x0190, f02=» 2 P DATA ILLINT 3 P DATA ILLINT 4 * P DATA ILLINT 5 F P DATA ILLINT 6 b P DATA IHTW 7 ~ P DATA IHTC 8 P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P D
0x02953c…0296d0 Dummy {f00=0x000d, f01=0x0190, f02=» DATA CHRT2 17 P DATA CHRT3 18 P DATA CHRT4 19 8 P DATA IHCC1 20 T P DATA IHCC2 21 p P DATA ILLINT 22 P DATA IHCC3 23 P DATA CHLT1 24 P DATA CHLT2 25 P DATA CHLT3
0x0296d0…029864 Dummy {f00=0x000d, f01=0x0190, f02=»NT 31 P DATA ILLINT 32 P DATA ILLINT 33 . P DATA IHLP 34 J P DATA IHCR 35 d P DATA ILLINT 36 ~ P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA IHDU1 40
0x029864…0299f8 Dummy {f00=0x000d, f01=0x0190, f02=» P DATA ILLINT 46 P DATA ILLINT 47 P DATA ILLINT 48 < P DATA ILLINT 49 X P DATA ILLINT 50 t P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA IL
0x0299f8…029b8c Dummy {f00=0x000d, 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
0x029b8c…029d20 Dummy {f00=0x000d, 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
0x029d20…029eb4 (0, 53) Dummy {f00=0x000d, f01=0x018e, f02=»0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER ( 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS P PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER O
0x029eb4…02a048 Dummy {f00=0x000d, f01=0x0190, f02=» P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY R P INDEX REL TTAB | * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM S
0x02a048…02a1dc Dummy {f00=0x000d, f01=0x018e, f02=»SCTCDT DATA 0 CDTAB ADDRESS PSCTBUG DATA BUG DEBUGGER $ & PSCTDMT DATA X:B DMTASKS IN SYSTEM D P BIT 13:D2,14:D1,15:D0 n 0 PSCTDMI DATA X:C DM INDEX RECORD BUFFER SIZE ( PSCTDML DATA X:D DM NO OF LOCAL FILES * PSCTDMC DATA X:E DM NO OF C
0x02a1dc…02a370 Dummy {f00=0x000d, f01=0x40fe, f02=» P* P* SYSTEM STACK P* $ P RES 145 . P DATA /FCC0 AND PSW > & PSTB DATA LOOP AND PC FOR IDLE LOOP Z P P P* P* IDLE LOOP P* P PLOOP RB * P P P P END @ DM NO OF C
0x02a370…02a504 Dummy {f00=0x000d, 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
0x02a504…02a698 Dummy {f00=0x000d, f01=0x0190, f02=» EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P*
0x02a698…02a82c Dummy {f00=0x000d, f01=0x018e, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 4 P XIF N P* Z & PDWTTP EQU START+/00 TIMER POINTER d P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P********************
0x02a82c…02a9c0 Dummy {f00=0x000d, f01=0x0190, f02=» " P* * " P* S.O.P. CHANNEL UNIT TABLE * * " P* * P " P****************************** v P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFER SI
0x02a9c0…02ab54 (0, 54) Dummy {f00=0x000e, f01=0x018e, f02=»ANNEL NO. 2 E f " P* CONNECTED TO FOURTH CHRT F P* F : PCWTRT8 EQU * F D P* F X P IFT RECHAN=4 F b P DATA 0 LAST OUTPUT DWT F x P DATA 0 LAST OUTPUT WORD F P DATA INTRT4 INTERRUPT TABLE F P INR A2,0,DWA8 INR F P OTR A2,1,DWA8 OTR
0x02ab54…02ace8 Dummy {f00=0x000e, f01=0x0190, f02=» F v P* G P IFT ACKMUL=1 G P DATA 0 NAK-ACKUMULATOR G ( $ P DATA 0 BLOCK ERROR ACKUMULATOR G H , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR G p ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR G P XIF G P IFT RECHAN=4 G P* G P DATA 0 TIMER PO
0x02ace8…02ae7c Dummy {f00=0x000e, f01=0x0190, f02=»MINAL 2 G l & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 H & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 H : , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) H d $ P DATA 0 BLOCK SENDING INDICATOR H P* H P XIF H P* H P EJECT H 6 P******************************
0x02ae7c…02b010 Dummy {f00=0x000e, f01=0x0190, f02=» H ^ P* I 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK I 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE I L P* TERMINALS. I P* I P* I P* I PCHTAB EQU * I P DATA CHTABE-* TABLE LENGTH I P IFT LOCHAN=1 I
0x02b010…02b1a4 Dummy {f00=0x000e, f01=0x0190, f02=» DATA CWTLT2 I P DATA 0 J P DATA 0 J $ P XIF J 4 P* J @ P IFT LOCHAN=3 J J P DATA CWTLT1 J ` P DATA CWTLT2 J t P DATA CWTLT3 J P DATA 0 J P XIF J P IFT LOCHAN=4 J P DATA CWTLT1 J P DATA CWTLT2 J P DATA CWTLT3 J
0x02b1a4…02b338 Dummy {f00=0x000e, f01=0x0190, f02=» DATA CWTRT4 J P DATA CWTRT5 K P DATA CWTRT6 K ( P* K < P XIF K F P* K R P IFT RECHAN=2 K P DATA CWTRT3 K r P DATA CWTRT4 K P XIF K P* K P IFT RECHAN=4 K P DATA CWTRT3 K P DATA CWTRT4 K P DATA CWTRT5 K P DATA
0x02b338…02b4cc Dummy {f00=0x000e, f01=0x0190, f02=» K P* L ( P************************************ L ( P* D W R E M U * L > ( P************************************ L j P* L . P* DUMMY TABLE USED WHEN LOOP-TESTING OF L $ P* REMOTE CHANNELS ARE NEEDED. L P* L PDWRE
0x02b4cc…02b660 Dummy {f00=0x000e, f01=0x0190, f02=» P EJECT M P* M P* M * P* L O O P - T E S T S E C T I O N M & P* M T P* M ^ 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION M h P* M : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. M 6 P* THE REQUEST IS COMPLETED WITH
0x02b660…02b7f4 (0, 55) Dummy {f00=0x000e, f01=0x018e, f02=»0 PSUPSPA EQU 1 P* ( P* END OF REQUEST IN SITUATIONS WHERE ( , P* THE SELECTOR UNIT OR PRINTER HARDWARE T * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 PX:G EQU 0 PRECEND EQU 1 P* . P* A
0x02b7f4…02b988 Dummy {f00=0x000e, f01=0x0190, f02=» 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. B P* t PCPU852 EQU 0 ~ P* P* MMU BUFFER SIZE P* PX:H EQU 120 PDVBLEN EQU 162 P* =1 , P* SPECIAL CO
0x02b988…02bb1c Dummy {f00=0x000e, f01=0x018e, f02=» DWT-DISPLACEMENT * $ P******************************** $ P* L P* V 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART ` P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD
0x02bb1c…02bcb0 Dummy {f00=0x000e, f01=0x0190, f02=» , P* SPECIAL KEYS FOR ECHO FUNCTION * * P************************************** 4 P* b PGPBSP EQU /2D BACK SPACE l PGPCLR EQU /3F CLEAR P* P******************** P* RETURN CODES * P******************** P*
0x02bcb0…02be44 Dummy {f00=0x000e, f01=0x0190, f02=»OPERR EQU /1 NOT OPERABLE, POWER OFF P* , P EJECT 6 P* D P* N P********** X P* TABLES * j P********** | P* P* P IFT CROOM=1 P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTERS ( P DATA
0x02be44…02bfd8 Dummy {f00=0x000e, f01=0x0190, f02=»DEVICE INDEX PGPAD EQU * ADDRESS BLOCK P DATA ACGP ACTIVATION DRIVER 4 " P DATA 0 ABORT ROUTINE ADDRESS X P DATA IHGP INTERRUPT HANDLER ~ P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P EJECT P*
0x02bfd8…02c16c Dummy {f00=0x000e, f01=0x0190, f02=»IS SENT TO PRINTER AND RETURN CODE n < P* IS SET IF PAPER OUT OR READY SWITCH OFF. * H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM j P* CHANNEL UNIT. P* > P* ORDER 05: BASIC WRITE. CHARACTE
0x02c16c…02c300 Dummy {f00=0x000e, f01=0x0190, f02=»TER FROM V < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* P PACGP EQU * Z P LDK A2,STX START OF MESSAGE l P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1 P SUK A3,1 =
0x02c300…02c494 (0, 56) Dummy {f00=0x000e, f01=0x0190, f02=»17 P EJECT P* P* CODE CHECK ERROR " P* @ PACGP30 EQU * J P LDK A1,CCERR ^ P ORS A1,8,A8 RETURN CODE t P RB ACGP20 P EJECT P* P* TABULATION P* PACGP40 EQU * , P CF A15,GETCHR GET F
0x02c494…02c628 Dummy {f00=0x000e, f01=0x0190, f02=»E) ACGP44 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL P SUK A4,1 F P RB(NE) ACGP43 X 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER n P LC A4,DWTBC,A6 , P SUR A2,A4 AND REQUESTS POSITION COUNTER & P TO GET NUMBER OF SP
0x02c628…02c7bc Dummy {f00=0x000e, f01=0x0190, f02=»UTPUT ( P IM DWTST,A6 INCREMENT BUFFER INDEX P SUK A4,1 : P RB(P) ACGP45 L P LDR A3,A3 RECOVERY? b P RB(NE) ACGP20 ~ * P SC A4,DWTBC,A6 RESET POSITION POINTER P LDK A3,2 START BUFFER INDEX P RB ACGP19 P EJECT P*
0x02c7bc…02c950 Dummy {f00=0x000e, f01=0x0190, f02=»O SEND r P ANK A2,/F ! P LC A2,ROMTAB,A2 TRANSFORM ! P* ! B P XIF ! L P* ! X P* ! b P IFF CROOM=1 ! l P* ! P ANK A2,/7F ! P* ! P XIF ! P* ! P RB ACGP17 ! P EJECT ! P* ! P* ! ( P* SEND LAST DUMMY ,
0x02c950…02cae4 Dummy {f00=0x000e, f01=0x0190, f02=»SEND ! PAGP410 LDK A2,ETX LAST DUMMY " P CF A5,OUTPUT SEND " 0 PAGP415 EQU * =1 " J P IFT ABIS=1 =1 " b P ANK A2,/4 PAPER IN ? =1 " z P RF(NZ) AGP420 YES =1 " " P LDK A1,/20 SET RETURN CODE =1 " P XIF =1 " PAGP420 EQU * " 0 P CF
0x02cae4…02cc78 Dummy {f00=0x000e, f01=0x0190, f02=» " P LD A3,DWTA3,A6 # P ST A3,6,A8 EFF. LENGTH # P RB AGP415 =1 # @ P EJECT # V P* # d P* # n , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # x , P* POSITION POINTER WHEN END # ( P* OF REQUEST IS REACHED # PUPDA
0x02cc78…02ce0c Dummy {f00=0x000e, f01=0x0190, f02=»A3,DWTBC,A6 RESET POSITION COUNTER # P RTN A15 $ , P IFT SUPSPA=1 $ < P EJECT $ R P* $ ` P* $ j * P* SKIPSP = SUBROTINE TO SKIP SPACES $ t ( P* IN END OF ECB-BUFFER. $ 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ & P
0x02ce0c…02cfa0 Dummy {f00=0x000e, f01=0x0190, f02=»ESTED LENGTH(RL) $ | $ P ADR A1,A2 GET ADD END OF BUFFER % PSKIP05 CWK A2,2 % @ P RF(NG) SKIP30 RL < 3 % X P SUK A1,1 DECR. BA % v P LCR A4,A1 GET CHAR % P CCK A4,/2020 SPACE ? % P RF(NE) SKIP20 NO % PSKIP07 SUK A2,1 DECR RL % P RB
0x02cfa0…02d134 (0, 57) Dummy {f00=0x000e, f01=0x0190, f02=»YES - P CWK A7,0 ORDER 0? . P ABL(E) ENDIO =3 . & P ABL EXIT =3 . @ PRCGP05 EQU * . V 0 P LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD . j P ANK A2,/4 LINE FEED DONE ? . P ABL(E) ACGP NO . P LDK A2,SPACE . P CF A5,OUTPUT SEND SPACE
0x02d134…02d2c8 Dummy {f00=0x000e, f01=0x407e, f02=» OF SPACES TO SEND . v P ABL ACGP46 / ( PRCGP10 LDK A1,TPERR SET RETURN CODE / . P ABL AGP430 / Z P END / n@ / zLEFT BYTE OF STATUS WORD . j P ANK A2,/4 LINE FEED DONE ? . P ABL(E) ACGP NO . P LDK A2,SPACE . P CF A5,OUTPUT SEND SPACE
0x02d2c8…02d45c Dummy {f00=0x000e, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x02d45c…02d5f0 Dummy {f00=0x000e, f01=0x0190, f02=» P* 1 PKONVER EQU * 1 P LDR A4,A2 1 " P IFT NSHIFT=0 1 4 P SUK A4,/7C CODE > /7B 1 J P RF(NN) KON500 YES 1 h P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION 1 P LDR* A5,A6 1 P SUK A
0x02d5f0…02d784 Dummy {f00=0x000e, f01=0x0190, f02=»NN) KON110 NO 1 P SUK A2,/40 YES 2 PKON105 EQU * 2 . P ANK A5,/10 2 B P SRL A5,3 2 V P RF KON200 2 h * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 z P RF(N) KON400 KEY-LOCK 2 P RF(Z) KON140 SHIFT ON 2 P SUK A4,2 2 P RF(N) KON160 SHIF
0x02d784…02d918 Dummy {f00=0x000e, f01=0x0190, f02=»MERICAL SHIFT ON 2 " P RF KON160 NUMERICAL SHIFT OFF 3 P XIF 3 > PKON125 EQU * 3 J P LDKL A2,/FFDF UNCTRL 3 ^ PKON120 ANR A5,A2 3 | PKON130 STR A5,A6 DWTCHP 3 P LDK A4,/10 3 P RF KON400 GO HOME! 3 PKON140 EQU * 3 P IFT NSHIFT=1 3
0x02d918…02daac Dummy {f00=0x000e, f01=0x0190, f02=»QU * 3 P LDK A2,/10 SHIFT 4 PKON150 ORR A5,A2 4 & P RB KON130 4 > PKON160 EQU * 4 P P IFT NSHIFT=1 4 d P LDR A4,A5 4 z P ANK A4,/80 4 P RF(Z) KON165 4 P LDKL A2,/FF7F 4 P RB KON120 4 P XIF 4 PKON165 EQU * 4 P LDKL A2,/
0x02daac…02dc40 Dummy {f00=0x000e, f01=0x0190, f02=» A5,/30 4 P SRL A5,3 5 P ADK A5,4 5 " 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 4 P ADR A4,A5 5 p P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5 * P LDR* A2,A15 RESTORE A2 AND A15-STACK 5 ( P LCR A2,A4 GET CHARACTER FRO
0x02dc40…02ddd4 (0, 58) Dummy {f00=0x000f, f01=0x2008, f02=»
0x02ddd4…02df68 Dummy {f00=0x000f, f01=0x0190, f02=» N & P LD A2,CHTAB+8,A2 GET CWT-ADDRESS O P RF(E) DISIIE O 2 P LDR A7,A7 WRONG ORDER ? O H P RF(E) LOPT10 NO O h ( PDISIIE ABL DISIOE I/O REQUEST ERROR O PLOPT10 EQU * O , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS O P ANK A1,/40 O ( P RF(
0x02df68…02e0fc Dummy {f00=0x000f, f01=0x0190, f02=»SP O P EJECT P P* P P* P " P* END OF LOOP-TEST P , P* P J PIHLOP EQU * P T P LDR A5,A1 GET CWT-ADDRESS P h , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS P P ANK A1,3 P P XRK A1,3 P PIHLP10 EQU * P P LDK A2,0 P : P SC
0x02e0fc…02e290 Dummy {f00=0x000f, f01=0x0190, f02=» 2 P x P* Q P* C H R T 1 / C H R T 2 Q P* Q 6 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT Q @ P* Q | 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS Q 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. Q 0 P* THEN DRIVER GETS
0x02e290…02e424 Dummy {f00=0x000f, f01=0x0190, f02=»* INTERRUPT. Q P* R 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT R " P* R X . P* D = DEVICE ADDRESS C = CHARACTER R b P* R 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 R 8 P* NAK OUTPUT ERROR D = 0
0x02e424…02e5b8 Dummy {f00=0x000f, f01=0x0190, f02=» DRI DATA REQUEST IMMEDIATE SIGN BIT SET R 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 S : 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A S v 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C S 8 P* ABC-LV LRC O VRC E
0x02e5b8…02e74c Dummy {f00=0x000f, f01=0x018e, f02=» BE DIFFERENT FROM ZERO S f 8 P* STD STATUS MESSAGE D # 0 C # 0 T 2 P* DIN DATA INPUT D # 0 T P EJECT T P* T P* C H L T 1 T P* T P* INTERRUPT FROM CHLT1 T P* T PCHLT1 EQU * T
0x02e74c…02e8e0 Dummy {f00=0x000f, f01=0x0190, f02=» P* U P IFT CPU852=0 U " P MSR 8,A15 SAVE A1-A8 ON STACK U $ P XIF U J P* U V P LDK A7,2 INDICATE CHLT1 U ` P RF CLT010 U P* U PCHLT2 EQU * U P* U P* U P* U P* U P* C H L T 2 U P* U P* INTERRUPT F
0x02e8e0…02ea74 (0, 59) Dummy {f00=0x000f, f01=0x0190, f02=» ERR.HANDLING ] v P SUK A2,/2 LEGAL NUM ? ^ , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING ^ 4 P ADK A2,/3C PF10-12 POS ^ d P RB ENT100 ^ P ^ PPF0 EQU * ^ P LDKL A1,PF0A ^ PPFNXT EQU * ^ P ST A1,RDMORE,TCABAS ^ P RTN A14 ^ PPF
0x02ea74…02ec08 Dummy {f00=0x000f, f01=0x018e, f02=»AL NUM ? ^ , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING _ P ADK A2,/39 PF1-9 POS _ @ P RB ENT100 _ ^ P XIF _ p PPFERR EQU * _ | * P CF A14,ERROR GO TO ERR-HANDLING RUTIN _ $ P RTN A14 GO TO MAIN READ MODULE _ P _ P _ PPF EQU * _ P S
0x02ec08…02ed9c Dummy {f00=0x000f, f01=0x0190, f02=» PLOGRUT EQU * DK5 ` P RF OFLI05 DK5 ` P* ` 6 P ` @ @ P************************************************************ ` J P* ` P* OFLINE ` < P* THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND ` 8 P* A BRANCH IS MADE BAC
0x02ed9c…02ef30 Dummy {f00=0x000f, f01=0x0190, f02=»CLEAR ` POFLI05 EQU * a P CF A14,RESET a " P IFT DCLIN=2 a 8 P LD A7,MAIN,TCABAS a L P XRK A7,1 a f P ST A7,MAIN,TCABAS a x 0 P CF A14,DCABOR ABORT REQUEST NOT CURRENT MF a P XIF a P IFT OFLIN=1 a 6 P LDK A1,0 DV ADDRESS ::= 0MESSAGES
0x02ef30…02f0c4 Dummy {f00=0x000f, f01=0x0190, f02=» 2 a | & P CF A14,EMULA TRANSFER PARAMETERS b P XIF b 4 P IFT OFLIN=1 b @ P CF A14,LMF1OF b T P CF A14,LMF2OF b j P CF A14,LSAVOF b ( P CF A14,LIOLON TURN ON OFFLINE LAMP b & P IM OFFFLG,TCABAS SET OFFLINE FLAG b $ P ADKL A14,4 SKIP ONE STACK L
0x02f0c4…02f258 Dummy {f00=0x000f, f01=0x0190, f02=»N TO "OFFLINE" PROGRAM b P c P XIF c & P IFT DCLIN=2 c 2 P c F @ P*********************************************************** c P P* c P* MAINFRAME CHANGE c H P* THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP c P*
0x02f258…02f3ec Dummy {f00=0x000f, f01=0x0190, f02=» c P CF A14,CLEAR d PMFCH05 EQU * d P CF A14,RESET d 2 P CF A14,LMF1OF d H P CF A14,LMF2OF d ^ P CF A14,LSAVOF d t P LD A1,MAIN,TCABAS d P XRK A1,1 d P RF(NZ) MFCH10 d P CF A14,LMF1ON d P RF MFCH90 d PMFCH10 EQU * d P
0x02f3ec…02f580 Dummy {f00=0x000f, f01=0x0190, f02=»************************************ d | P* e , P* CLEAR e 6 P* e F : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION e P 8 P* AND GENERATE AN AID CHARACTER. THE ENTIRE DISPLAY e : P* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN e P
0x02f580…02f714 (0, 60) Dummy {f00=0x000f, f01=0x0190, f02=»INE/FORM FEED INDICATOR z P P* * P* 4 0 P******************************************* > P* r P* ECB - DISPLACEMENTS | P* 0 P******************************************* P* & PECBBA EQU 2 BUFFER ADDRESS IN ECB
0x02f714…02f8a8 Dummy {f00=0x000f, f01=0x0190, f02=»EQU 10 CONTROL WORD IN ECB P " P* , 0 P******************************************* 6 P* j P* TABLES t P* 0 P******************************************* P* P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 DEVICE
0x02f8a8…02fa3c Dummy {f00=0x000f, f01=0x0190, f02=»RUPT HANDLER P DATA RCTP RECOVERY ROUTINE PTPTAB EQU * 8 P IFT FFDEV=1 L P DATA /0107,/0C25,/3939 ` P XIF P DATA /0006,/2424 PTPLEN EQU *-TPTAB P P P P* P* P* A C T P P*
0x02fa3c…02fbd0 Dummy {f00=0x000f, f01=0x0190, f02=» P* PACTP EQU * ACTIVATION ENTRY P* 6 P* @ : P* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT J P* " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,1 MASK * P LC A3,DWTST+1,A6 GET OLD DEVICE VALUE P ANK A3,/FE
0x02fbd0…02fd64 Dummy {f00=0x000f, f01=0x0190, f02=»ED ORDER r PACT005 LDK A3,TPLEN-1 . PACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER . P RF(E) ACT020 VALID ORDER ` P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL DISIOE ILLEGAL ORDER P* P* PACT020 EQU * P
0x02fd64…02fef8 Dummy {f00=0x000f, f01=0x0190, f02=»SDOC,DOCPAR,RELDOC,RELDOC z P XIF " & P DATA TSTSTA,WRTCON,CSTPAR,CSTPAR . P X P* b P* l P* ORDER 00 : TEST STATUS v P* P* PTSTSTA EQU * TEST STATUS P CF A5,RESREC * P CF A5,GTSTAT GET STATUS FROM PRINTER
0x02fef8…03008c Dummy {f00=0x000f, f01=0x0190, f02=»* PWRTDOC EQU * P CF A5,GTSTAT " P LD A4,DWTST,A6 DEVICE STATUS 4 * P ANKL A4,/200 HAS POWER OFF OCCURED ? Z P RF(NZ) WRDO05 YES P LDKL A3,/2000 * P TM A1,A3 DOCUMENT OUT ? P RF(Z) WRDO06 NO , P LDKL A3,/8000 YES S
0x03008c…030220 Dummy {f00=0x000f, f01=0x0190, f02=»M A1,A3 NOT OPERABLE? P RF(Z) WRDO10 NO P ABL DISEND END REQUEST 6 * PWRDO10 LD A3,DWTALN,A6 GET ACTUAL LINE V P RF(NZ) WRDO15 ( P LDK A3,1 SET UP ECB BUFFER POINTER * P CF A15,GETCHR GET CONTROL CHARACTER P CWK A2,/31 CTRL CHA
0x030220…0303b4 (0, 61) Dummy {f00=0x000f, f01=0x0190, f02=»CDTAB ADDRESS PSCTBUG DATA 0 DEBUGGER & PSCTDMT DATA X:B DMTASKS IN SYSTEM 4 P BIT 13:D2,14:D1,15:D0 ^ 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE ~ * PSCTDML DATA 00000 DM NO OF LOCAL FILES , PSCTDMC DATA 00000 DM NO OF COMMON FILE
0x0303b4…030548 Dummy {f00=0x000f, f01=0x40f4, f02=» P* SYSTEM STACK P* P RES 145 $ P DATA /FCC0 AND PSW 4 & PSTB DATA LOOP AND PC FOR IDLE LOOP P P z P P* P* IDLE LOOP P* P PLOOP RB * P P P P END @ DM NO OF COMMON FILE
0x030548…0306dc Dummy {f00=0x000f, 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
0x0306dc…030870 Dummy {f00=0x000f, f01=0x0190, f02=»TOR 1 p P XIF 2 P IFT RECHAN=3 2 P DATA 0 LAST OUTPUT DWT 2 . P DATA 0 LAST OUTPUT WORD 2 N P DATA INTRT2 INTERRUPT TABLE 2 n P INR A2,0,DWA6 INR 2 P OTR A2,1,DWA6 OTR 2 P CIO A2,1,DWA6 CIO-START 2 " P DATA 0 RETRANSMISSION COUNTER 2
0x030870…030a04 Dummy {f00=0x000f, f01=0x0190, f02=»A 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 3 $ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 3 T P XIF 3 P IFT RECHAN=4 3 P DATA 0 LAST OUTPUT DWT 3 P DATA 0 LAST OUTPUT WORD 3 P DATA INTRT2 INTERRUPT TABLE 3 P I
0x030a04…030b98 Dummy {f00=0x000f, f01=0x0190, f02=»RMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 4 P* 4 0 P IFT ACKMUL=1 4 : P DATA 0 NAK-ACKUMULATOR 4 P $ P DATA 0 BLOCK ERROR ACKUMULATOR 4 p , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 4 P XIF 4 P IFT REC
0x030b98…030d2c Dummy {f00=0x000f, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 5 b , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 5 $ P DATA 0 BLOCK SENDING INDICATOR 5 P* 5 P XIF 5 P* 5 P IFT
0x030d2c…030ec0 Dummy {f00=0x000f, f01=0x0000, f02=»
0x030ec0…031054 (0, 62) Dummy {f00=0x0010, f01=0x0000, f02=»
[…0x16…]
0x03330c…0334a0 Dummy {f00=0x0010, f01=0x0190, f02=» ! j X ! X Zp X Xp Xt_~ @ xP6 X R0 X P T$ T Y W 6 P C <F t A z A x 4 @ V @ T @ A @ A A ! T2 P4 PJ PL P P. 1 A @ ]6W P _@ @ V @ E ! P ! 4 _$ ! 2_l / A T
0x0334a0…033634 (0, 65) Dummy {f00=0x0010, f01=0x0190, f02=» T( @ ) ! 8 ! @ P - ! x !4^ W 0 " @ PL R ~T }T T0 W, ! P " ! " :A *@ H5 T 0 ! W R ! A @ @ UH Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! N ! % ! R
0x033634…0337c8 Dummy {f00=0x0010, f01=0x0190, f02=»PX ! H5 4 ! A d ? X_ I " P A A 4 A _$" P H6 B P W ! > >@_ ! ! 1 4 A @4 `4 @4 P 0 M A 4 ? @4 `4 @4 P $ Y _ @ A ~ @ T | @ A ~ | >@ A ~ a 4 = T X A
0x0337c8…03395c Dummy {f00=0x0010, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 J X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x03395c…033af0 Dummy {f00=0x0010, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x033af0…033c84 Dummy {f00=0x0010, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x033c84…033e18 Dummy {f00=0x0010, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x033e18…033fac Dummy {f00=0x0010, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x033fac…034140 Dummy {f00=0x0010, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x034140…0342d4 (0, 66) Dummy {f00=0x0011, f01=0x0020, f02=».P.X.`.h.p.x/ / / 0`0h1 1 1 1 1
0x0342d4…034468 Dummy {f00=0x0011, f01=0x0190, f02=» { Z pTbT # $ c @ Tg t z ^ b bLPL H b2 Z ` z
0x034468…0345fc Dummy {f00=0x0011, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A U A @ * A A , @ ~ A A ~ @ A A @ A A @ A A @ A
0x0345fc…034790 Dummy {f00=0x0011, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x034790…034924 Dummy {f00=0x0011, f01=0x0190, f02=» Q ( R " S T Y G P H L V I U . V h_v A B _ NO! A A A A A A A A z *T A _ P A A d . , , < + - ; t : X " H W X " H H A A A _T @ P A 1+X A
0x034924…034ab8 Dummy {f00=0x0011, f01=0x0190, f02=» & .T @ W @ A @W dW 0 Z P & l_, W W PP @ & l 0 & T A P P p r :_b d P D r_J A B Z .T @ W @ T @ W @ @ >a Z P & P @ A B P P
0x034ab8…034c4c Dummy {f00=0x0011, f01=0x0190, f02=» P 3P C @ P @ x @ P @ Q A . @ B A " T @ W @ A 2 A .P @ j_2 .T 4 0 P j pP _ @ j . d 0 @ @ @ P d 0 @ A B b 9 Y 4>a Y t c x
0x034c4c…034de0 Dummy {f00=0x0011, 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
0x034de0…034f74 (0, 67) Dummy {f00=0x0062, 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
0x034f74…035108 Dummy {f00=0x0062, 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
0x035108…03529c Dummy {f00=0x0062, 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
0x03529c…035430 Dummy {f00=0x0062, 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
0x035430…0355c4 Dummy {f00=0x0062, 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
0x0355c4…035758 Dummy {f00=0x0062, 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
0x035758…0358ec Dummy {f00=0x0062, 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
0x0358ec…035a80 Dummy {f00=0x0062, 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* =
0x035a80…035c14 (0, 68) Dummy {f00=0x0062, 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 >
0x035c14…035da8 Dummy {f00=0x0062, 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
0x035da8…035f3c Dummy {f00=0x0062, 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
0x035f3c…0360d0 Dummy {f00=0x0062, 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
0x0360d0…036264 Dummy {f00=0x0062, 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
0x036264…0363f8 Dummy {f00=0x0062, 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 "
0x0363f8…03658c Dummy {f00=0x0062, 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
0x03658c…036720 Dummy {f00=0x0062, 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
0x036720…0368b4 (0, 69) Dummy {f00=0x0062, 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
0x0368b4…036a48 Dummy {f00=0x0062, 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
0x036a48…036bdc Dummy {f00=0x0062, 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
0x036bdc…036d70 Dummy {f00=0x0062, 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
0x036d70…036f04 Dummy {f00=0x0062, 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
0x036f04…037098 Dummy {f00=0x0062, 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
0x037098…03722c Dummy {f00=0x0062, 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
0x03722c…0373c0 Dummy {f00=0x0062, 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,
0x0373c0…037554 (0, 70) Opaque[0x194]
0x037554…0376e8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x037554…0376e8 IdxSect {
0x037554…0376e8 f00 = 0x0011 // 0x37554 @0x0
0x037554…0376e8 f01 = 0x0002 // 0x37556 @0x2
0x037554…0376e8 gno = [ // 0x37558 @0x4
0x037554…0376e8 [0x00]: C0x0011.0x1.0
0x037554…0376e8 ]
0x037554…0376e8 }
0x0376e8…03787c Dummy {f00=0x0011, f01=0x0190, f02=» 2 P IDENT SCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWII01 P EXTRN DWIO01 P EXTRN DW1501 P
0x03787c…037a10 Dummy {f00=0x0011, f01=0x0190, f02=» DATA TCLASE-* P DATA TC00 P DATA TC01 4 P DATA TC02 R P DATA TC03 p P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-* P DATA /0010 P
0x037a10…037ba4 Dummy {f00=0x0011, f01=0x0190, f02=» DWII01 PTC01E EQU * PTC02 DATA TC02E-* , P DATA /00E1 N P DATA DWIO01 n PTC02E EQU * PTC03 DATA TC03E-* P DATA /0061 P DATA DW1501
0x037ba4…037d38 Dummy {f00=0x0011, f01=0x40a0, f02=» P DATA DW1500 P DATA /0063 $ P DATA DW2500 8 P DATA /015 N P DATA DWREMU ` PTC04E EQU * t P END @ * PTC03 DATA TC03E-* P DATA /0061 P DATA DW1501
0x037d38…037ecc Dummy {f00=0x0011, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x037ecc…038060 Dummy {f00=0x0011, f01=0x4072, f02=» _ & < @ nNPE l SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x038060…0381f4 (0, 71) Opaque[0x194]
0x0381f4…038388 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x0381f4…038388 IdxSect {
0x0381f4…038388 f00 = 0x0011 // 0x381f4 @0x0
0x0381f4…038388 f01 = 0x0002 // 0x381f6 @0x2
0x0381f4…038388 gno = [ // 0x381f8 @0x4
0x0381f4…038388 [0x00]: C0x0011.0x2.0
0x0381f4…038388 ]
0x0381f4…038388 }
0x038388…03851c Dummy {f00=0x0011, 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
0x03851c…0386b0 Dummy {f00=0x0011, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN CTAB01 R P EXTRN ITAD h P EXTRN KBAD3 | P EXTRN GPAD P EXTRN DYAD P* P P PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA
0x0386b0…038844 Dummy {f00=0x0011, f01=0x4104, f02=» PINTRT3 DATA 0 PINTRT4 DATA 0 P DATA SYSLOD 4 P**** H P DATA CTAB01 T P DATA ITAD j P DATA KBAD3 ~ P DATA GPAD P DATA DYAD P* 0 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF P END @ ATA
0x038844…0389d8 Dummy {f00=0x0011, 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
0x0389d8…038b6c Dummy {f00=0x0011, 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
0x038b6c…038d00 Dummy {f00=0x0011, 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,
0x038d00…038e94 (0, 72) Opaque[0x194]
0x038e94…039028 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0238, f03=0x0000}
0x038e94…039028 IdxSect {
0x038e94…039028 f00 = 0x0011 // 0x38e94 @0x0
0x038e94…039028 f01 = 0x0006 // 0x38e96 @0x2
0x038e94…039028 gno = [ // 0x38e98 @0x4
0x038e94…039028 [0x00]: C0x0011.0x3.0
0x038e94…039028 [0x01]: C0x0012.0x0.0
0x038e94…039028 [0x02]: C0x0012.0x1.0
0x038e94…039028 ]
0x038e94…039028 }
0x039028…0391bc Dummy {f00=0x0011, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x0391bc…039350 Dummy {f00=0x0011, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P EJECT SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD
0x039350…0394e4 Dummy {f00=0x0011, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x0394e4…039678 Dummy {f00=0x0011, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x P EXTRN IH2501 P EXTRN IH2502 ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P
0x039678…03980c Dummy {f00=0x0011, f01=0x0190, f02=»HLT1 LOCAL CHANNEL UNIT NO. 1 $ P EXTRN ILLINT ILLEGAL INTERRUPT & P EXTRN HALT HALT ROUTINE N P* n PX:A EQU 0 MONITOR OPTION x ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE & PX:D EQU 0 DM NUMBER OF
0x03980c…0399a0 Dummy {f00=0x0011, f01=0x0190, f02=» PAGTAB, SWBTAB AND T:A v P* PSEG:ST EQU 0 STATUS * $ PSEG:DS EQU 2 DISC SECTOR ADDRESS F " PSEG:EL EQU 4 EFFECTIVE LENGTH n $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINT
0x0399a0…039b34 (0, 73) Dummy {f00=0x0012, f01=0x0190, f02=»WITHIN SWB TYPE r 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) N & PSWB:NS EQU 6 SWB LENGTH (SECTORS) v P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT SYSTAB P* P* INTERRUPT VECT
0x039b34…039cc8 Dummy {f00=0x0012, f01=0x018e, f02=»ATA ILLINT 4 P DATA ILLINT 5 P DATA ILLINT 6 6 P DATA ILLINT R P DATA ILLINT r P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH1501 12 P DATA
0x039cc8…039e5c Dummy {f00=0x0012, f01=0x0190, f02=» P DATA CHRT3 18 P DATA ILLINT P DATA ILLINT @ P DATA ILLINT ` P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT P DATA
0x039e5c…039ff0 Dummy {f00=0x0012, f01=0x0190, f02=» DATA ILLINT 31 P DATA ILLINT 32 P DATA ILLINT 33 8 P DATA ILLINT T P DATA ILLINT t P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P
0x039ff0…03a184 Dummy {f00=0x0012, f01=0x0190, f02=»LINT | P DATA ILLINT 45 P DATA ILLINT 46 ( P DATA ILLINT 47 D P DATA ILLINT 48 ` P DATA ILLINT 49 | P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P
0x03a184…03a318 Dummy {f00=0x0012, f01=0x0190, f02=» P DATA ILLINT 59 P DATA ILLINT 60 P DATA ILLINT 61 < P DATA ILLINT 62 X P DATA TRAP TRAP ROUTINE t P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P
0x03a318…03a4ac Dummy {f00=0x0012, f01=0x0190, f02=»* DEBUG RESTART ENTRY P* P XRR A13,A13 ( P XRR A14,A14 < P LD A1,SCTBUG P P ABR(NZ) A1 f P HLT z P P EJECT SYSTAB P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ
0x03a4ac…03a640 Dummy {f00=0x0012, f01=0x0190, f02=»PROGRAM LOAD DEVICE ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER H 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS p PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRE
0x03a640…03a7d4 (0, 74) Dummy {f00=0x0012, f01=0x0190, f02=»U TABLE COMMON PART ENTRY P INDEX REL TTAB " 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART < & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY p P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES
0x03a7d4…03a968 Dummy {f00=0x0012, f01=0x0190, f02=»CT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTBUG DATA 0 DEBUGGER D & PSCTDMT DATA X:B DMTASKS IN SYSTEM b P BIT 13:D2,14:D1,15:D0 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00000 DM NO OF LOCAL FILES
0x03a968…03aafc Dummy {f00=0x0012, f01=0x4122, f02=» l P EJECT SYSTAB P P* ( P* SYSTEM STACK 2 P* H P RES 145 R P DATA /FCC0 AND PSW b & PSTB DATA LOOP AND PC FOR IDLE LOOP ~ P P P* P* IDLE LOOP P* P PLOOP RB * P P
0x03aafc…03ac90 Dummy {f00=0x0012, 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
0x03ac90…03ae24 Dummy {f00=0x0012, f01=0x0190, f02=» X P8 P0 # P T P 0P 1 _ PW " Y > > T I J I r@ x I J I _ X_< ? ^ 4 _ @ 1 A _ P 9 > > &D r r r r I r 2 v $ U
0x03ae24…03afb8 Dummy {f00=0x0012, f01=0x0190, f02=»r8 L r@ X P Wj B " P HA|:H B # LA| 9 B Y B Y V"P8 @q q r8 @q `q @q P 0P _ % Aq Aq Y L H _| B QZ K LX_ X P 0 Y P C H _ K _ B ! P Y _R X ! X L _ B Y _l r< X P AK J K Y Wb
0x03afb8…03b14c Dummy {f00=0x0012, f01=0x0190, f02=»P _ ) 1_ J~ (X( P _ 0 )_6 M _2 M _$ (P _ ) 1 4 V" X R2 X T* X P& , Y L C L C H > @J| @Jx @Jz AJzX H _" X P y Y X P T Ln @Mr T AMt AMr > AMT AMX AM AM` AMd MhW
0x03b14c…03b2e0 Dummy {f00=0x0012, f01=0x0190, f02=»V#P AV"TR !T TL !T TD T@ !T T8 !T A I AM~ P " P !T Q _ !T T V" P " X !T _ !U AM| @MtP @MrP !Q AMt AMv_ !U @MvP @VPX@ !Q T< AMz !R M @MtP @VPP @Mr N6 8 !P !Q AM~_: !T X6_Z AMz @VP @M T 1 R 0 2P P
0x03b2e0…03b474 (0, 75) Opaque[0x194]
0x03b474…03b608 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0250, f03=0x0000}
0x03b474…03b608 IdxSect {
0x03b474…03b608 f00 = 0x0012 // 0x3b474 @0x0
0x03b474…03b608 f01 = 0x0008 // 0x3b476 @0x2
0x03b474…03b608 gno = [ // 0x3b478 @0x4
0x03b474…03b608 [0x00]: C0x0012.0x2.0
0x03b474…03b608 [0x01]: C0x0012.0x3.0
0x03b474…03b608 [0x02]: C0x0013.0x0.0
0x03b474…03b608 [0x03]: C0x0013.0x1.0
0x03b474…03b608 ]
0x03b474…03b608 }
0x03b608…03b79c Dummy {f00=0x0012, 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*
0x03b79c…03b930 Dummy {f00=0x0012, 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
0x03b930…03bac4 Dummy {f00=0x0012, 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.
0x03bac4…03bc58 Dummy {f00=0x0012, 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
0x03bc58…03bdec Dummy {f00=0x0012, 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
0x03bdec…03bf80 Dummy {f00=0x0012, 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
0x03bf80…03c114 (0, 76) Dummy {f00=0x0012, 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 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x03c114…03c2a8 Dummy {f00=0x0012, f01=0x0190, f02=»ISC PAGING p * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * @ PDSKPAG EQU 0 J * ^ P* h @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING r > P* APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE 8 P* SAME SEGMENT I
0x03c2a8…03c43c Dummy {f00=0x0012, 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*
0x03c43c…03c5d0 Dummy {f00=0x0012, 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
0x03c5d0…03c764 Dummy {f00=0x0012, 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
0x03c764…03c8f8 Dummy {f00=0x0012, 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
0x03c8f8…03ca8c Dummy {f00=0x0012, 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
0x03ca8c…03cc20 Dummy {f00=0x0012, 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
0x03cc20…03cdb4 (0, 77) Dummy {f00=0x0013, 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
0x03cdb4…03cf48 Dummy {f00=0x0013, 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
0x03cf48…03d0dc Dummy {f00=0x0013, 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,
0x03d0dc…03d270 Dummy {f00=0x0013, 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
0x03d270…03d404 Dummy {f00=0x0013, 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
0x03d404…03d598 Dummy {f00=0x0013, 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
0x03d598…03d72c Dummy {f00=0x0013, 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
0x03d72c…03d8c0 Dummy {f00=0x0013, 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
0x03d8c0…03da54 (0, 78) Dummy {f00=0x0013, 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
0x03da54…03dbe8 Dummy {f00=0x0013, 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
0x03dbe8…03dd7c Dummy {f00=0x0013, 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
0x03dd7c…03df10 Dummy {f00=0x0013, 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
0x03df10…03e0a4 Dummy {f00=0x0013, f01=0x0190, f02=» IHTWN IHTCN , ( IHSOP N CHLT1 ^ IHFDN n CHRT1 ~ , ( CHRT2 CHRT3 CHRT4 IHCC1 IHCC2
0x03e0a4…03e238 Dummy {f00=0x0013, f01=0x018e, f02=» $ & ~ IHLPN IHCRN . IHDU1 > , ( A ( * N IHDU2 ~ IHMTN , ( Q , . 0 , ( a IHINPTI
0x03e238…03e3cc Dummy {f00=0x0013, f01=0x0190, f02=» SCTEFA SCTPLD SCTANO , SCTADA @ SCTPAGL T , ( @ h SCTSEG SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC
0x03e3cc…03e560 Dummy {f00=0x0013, f01=0x414e, f02=»T SCTCDT bBUG SCTBUG~ . , ( 6 B SCTDMT r SCTDMI SCTDML SCTDMC SCTBLK SCTDCT
0x03e560…03e6f4 (0, 79) Opaque[0x194]
0x03e6f4…03e888 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0270, f03=0x0000}
0x03e6f4…03e888 IdxSect {
0x03e6f4…03e888 f00 = 0x0013 // 0x3e6f4 @0x0
0x03e6f4…03e888 f01 = 0x000a // 0x3e6f6 @0x2
0x03e6f4…03e888 gno = [ // 0x3e6f8 @0x4
0x03e6f4…03e888 [0x00]: C0x0013.0x2.0
0x03e6f4…03e888 [0x01]: C0x0013.0x3.0
0x03e6f4…03e888 [0x02]: C0x0014.0x0.0
0x03e6f4…03e888 [0x03]: C0x0014.0x1.0
0x03e6f4…03e888 [0x04]: C0x0014.0x2.0
0x03e6f4…03e888 ]
0x03e6f4…03e888 }
0x03e888…03ea1c Dummy {f00=0x0013, 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*
0x03ea1c…03ebb0 Dummy {f00=0x0013, 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*
0x03ebb0…03ed44 Dummy {f00=0x0013, 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*
0x03ed44…03eed8 Dummy {f00=0x0013, 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
0x03eed8…03f06c Dummy {f00=0x0013, 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
0x03f06c…03f200 Dummy {f00=0x0013, 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
0x03f200…03f394 (0, 80) Dummy {f00=0x0013, 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****************************
0x03f394…03f528 Dummy {f00=0x0013, f01=0x018e, f02=»PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. . P* PMMUPAG EQU 1 f P* z P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU8
0x03f528…03f6bc Dummy {f00=0x0013, f01=0x018e, f02=» DSKPAG EQU 0 * P* & 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS 0 * P* IS OBTAINED BY SETTING MCLOCK EQU 0. l P* PX:A EQU 1 PMONCLK EQU 1 P* P EJECT LRPINT P* P* P* I H
0x03f6bc…03f850 Dummy {f00=0x0013, 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*
0x03f850…03f9e4 Dummy {f00=0x0013, 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
0x03f9e4…03fb78 Dummy {f00=0x0013, 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
0x03fb78…03fd0c Dummy {f00=0x0013, 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
0x03fd0c…03fea0 Dummy {f00=0x0013, 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
0x03fea0…040034 (0, 81) Dummy {f00=0x0014, 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
0x040034…0401c8 Dummy {f00=0x0014, 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
0x0401c8…04035c Dummy {f00=0x0014, 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
0x04035c…0404f0 Dummy {f00=0x0014, 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
0x0404f0…040684 Dummy {f00=0x0014, 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
0x040684…040818 Dummy {f00=0x0014, 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
0x040818…0409ac Dummy {f00=0x0014, 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
0x0409ac…040b40 Dummy {f00=0x0014, 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
0x040b40…040cd4 (0, 82) Dummy {f00=0x0014, 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 *
0x040cd4…040e68 Dummy {f00=0x0014, 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
0x040e68…040ffc Dummy {f00=0x0014, 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
0x040ffc…041190 Dummy {f00=0x0014, 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,-
0x041190…041324 Dummy {f00=0x0014, 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
0x041324…0414b8 Dummy {f00=0x0014, 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
0x0414b8…04164c Dummy {f00=0x0014, 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
0x04164c…0417e0 Dummy {f00=0x0014, 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*
0x0417e0…041974 (0, 83) Dummy {f00=0x0014, 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*
0x041974…041b08 Dummy {f00=0x0014, 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*
0x041b08…041c9c Dummy {f00=0x0014, 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
0x041c9c…041e30 Dummy {f00=0x0014, 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
0x041e30…041fc4 Dummy {f00=0x0014, 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
0x041fc4…042158 Dummy {f00=0x0014, 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
0x042158…0422ec Dummy {f00=0x0014, f01=0x018e, f02=»A1 + " P XRK A4,/FF ALREADY OVERFLOW? , P RF(E) EXIT YES , 0 P LDR A3,A1 , H 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , Z P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY , 0 P ORK A2,/FF SET OVERFLOWBIT IN INPUT BUF
0x0422ec…042480 Dummy {f00=0x0014, f01=0x0190, f02=» P EJECT - P* - P* - P* - & P* AKBTUT - 0 P* - D & P* THIS IS THE TIME-OUT ROUTINE - N P* - x P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - " P LDR A6,A1 RESTART DWT-ADDRESS - P LDK A1,/40 SET RETURNE CODE -
0x042480…042614 (0, 84) Opaque[0x194]
0x042614…0427a8 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x042614…0427a8 IdxSect {
0x042614…0427a8 f00 = 0x0014 // 0x42614 @0x0
0x042614…0427a8 f01 = 0x0006 // 0x42616 @0x2
0x042614…0427a8 gno = [ // 0x42618 @0x4
0x042614…0427a8 [0x00]: C0x0014.0x3.0
0x042614…0427a8 [0x01]: C0x0015.0x0.0
0x042614…0427a8 [0x02]: C0x0015.0x1.0
0x042614…0427a8 ]
0x042614…0427a8 }
0x0427a8…04293c Dummy {f00=0x0014, 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*
0x04293c…042ad0 Dummy {f00=0x0014, 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
0x042ad0…042c64 Dummy {f00=0x0014, 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*
0x042c64…042df8 Dummy {f00=0x0014, 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
0x042df8…042f8c Dummy {f00=0x0014, 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
0x042f8c…043120 Dummy {f00=0x0014, 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*
0x043120…0432b4 (0, 85) Dummy {f00=0x0015, 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
0x0432b4…043448 Dummy {f00=0x0015, 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
0x043448…0435dc Dummy {f00=0x0015, 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
0x0435dc…043770 Dummy {f00=0x0015, 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
0x043770…043904 Dummy {f00=0x0015, 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
0x043904…043a98 Dummy {f00=0x0015, 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)
0x043a98…043c2c Dummy {f00=0x0015, 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
0x043c2c…043dc0 Dummy {f00=0x0015, 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*
0x043dc0…043f54 (0, 86) Dummy {f00=0x0015, 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*
0x043f54…0440e8 Dummy {f00=0x0015, 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
0x0440e8…04427c Dummy {f00=0x0015, 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
0x04427c…044410 Dummy {f00=0x0015, 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
0x044410…0445a4 Dummy {f00=0x0015, 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?
0x0445a4…044738 Dummy {f00=0x0015, 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?
0x044738…0448cc Dummy {f00=0x0015, 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
0x0448cc…044a60 Dummy {f00=0x0015, f01=0x0000, f02=»
0x044a60…044bf4 (0, 87) Opaque[0x194]
0x044bf4…044d88 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b0, f03=0x0000}
0x044bf4…044d88 IdxSect {
0x044bf4…044d88 f00 = 0x0015 // 0x44bf4 @0x0
0x044bf4…044d88 f01 = 0x000c // 0x44bf6 @0x2
0x044bf4…044d88 gno = [ // 0x44bf8 @0x4
0x044bf4…044d88 [0x00]: C0x0015.0x2.0
0x044bf4…044d88 [0x01]: C0x0015.0x3.0
0x044bf4…044d88 [0x02]: C0x0016.0x0.0
0x044bf4…044d88 [0x03]: C0x0016.0x1.0
0x044bf4…044d88 [0x04]: C0x0016.0x2.0
0x044bf4…044d88 [0x05]: C0x0016.0x3.0
0x044bf4…044d88 ]
0x044bf4…044d88 }
0x044d88…044f1c Dummy {f00=0x0015, 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*
0x044f1c…0450b0 Dummy {f00=0x0015, 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*
0x0450b0…045244 Dummy {f00=0x0015, 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
0x045244…0453d8 Dummy {f00=0x0015, 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
0x0453d8…04556c Dummy {f00=0x0015, 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
0x04556c…045700 Dummy {f00=0x0015, 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
0x045700…045894 (0, 88) Dummy {f00=0x0015, 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
0x045894…045a28 Dummy {f00=0x0015, 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*
0x045a28…045bbc Dummy {f00=0x0015, f01=0x0190, f02=»NG MMUPAG EQU 1. z P* PMMUPAG EQU 1 " 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 0 P* * . ** A PROGRAM VERSION USING TOSS D
0x045bbc…045d50 Dummy {f00=0x0015, 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
0x045d50…045ee4 Dummy {f00=0x0015, 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
0x045ee4…046078 Dummy {f00=0x0015, 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
0x046078…04620c Dummy {f00=0x0015, 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*
0x04620c…0463a0 Dummy {f00=0x0015, 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
0x0463a0…046534 (0, 89) Dummy {f00=0x0016, 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*
0x046534…0466c8 Dummy {f00=0x0016, 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*
0x0466c8…04685c Dummy {f00=0x0016, 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
0x04685c…0469f0 Dummy {f00=0x0016, 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
0x0469f0…046b84 Dummy {f00=0x0016, 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
0x046b84…046d18 Dummy {f00=0x0016, 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*
0x046d18…046eac Dummy {f00=0x0016, 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
0x046eac…047040 Dummy {f00=0x0016, 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
0x047040…0471d4 (0, 90) Dummy {f00=0x0016, 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
0x0471d4…047368 Dummy {f00=0x0016, 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
0x047368…0474fc Dummy {f00=0x0016, 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*
0x0474fc…047690 Dummy {f00=0x0016, 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
0x047690…047824 Dummy {f00=0x0016, 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*
0x047824…0479b8 Dummy {f00=0x0016, 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
0x0479b8…047b4c Dummy {f00=0x0016, 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
0x047b4c…047ce0 Dummy {f00=0x0016, 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
0x047ce0…047e74 (0, 91) Dummy {f00=0x0016, 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
0x047e74…048008 Dummy {f00=0x0016, 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
0x048008…04819c Dummy {f00=0x0016, 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
0x04819c…048330 Dummy {f00=0x0016, 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* !
0x048330…0484c4 Dummy {f00=0x0016, 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
0x0484c4…048658 Dummy {f00=0x0016, 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 #
0x048658…0487ec Dummy {f00=0x0016, 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
0x0487ec…048980 Dummy {f00=0x0016, 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
0x048980…048b14 (0, 92) Dummy {f00=0x0016, 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
0x048b14…048ca8 Dummy {f00=0x0016, 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
0x048ca8…048e3c Dummy {f00=0x0016, 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*
0x048e3c…048fd0 Dummy {f00=0x0016, 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
0x048fd0…049164 Dummy {f00=0x0016, 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* *
0x049164…0492f8 Dummy {f00=0x0016, 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* *
0x0492f8…04948c Dummy {f00=0x0016, 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. "
0x04948c…049620 Dummy {f00=0x0016, 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
0x049620…0497b4 (0, 93) Opaque[0x194]
0x0497b4…049948 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x0497b4…049948 IdxSect {
0x0497b4…049948 f00 = 0x0017 // 0x497b4 @0x0
0x0497b4…049948 f01 = 0x0004 // 0x497b6 @0x2
0x0497b4…049948 gno = [ // 0x497b8 @0x4
0x0497b4…049948 [0x00]: C0x0017.0x0.0
0x0497b4…049948 [0x01]: C0x0017.0x1.0
0x0497b4…049948 ]
0x0497b4…049948 }
0x049948…049adc Dummy {f00=0x0017, 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
0x049adc…049c70 Dummy {f00=0x0017, 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
0x049c70…049e04 Dummy {f00=0x0017, 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 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINE
0x049e04…049f98 Dummy {f00=0x0017, 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 *
0x049f98…04a12c Dummy {f00=0x0017, 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
0x04a12c…04a2c0 Dummy {f00=0x0017, 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
0x04a2c0…04a454 (0, 94) Dummy {f00=0x0017, 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
0x04a454…04a5e8 Dummy {f00=0x0017, 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,
0x04a5e8…04a77c Dummy {f00=0x0017, 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
0x04a77c…04a910 Dummy {f00=0x0017, 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
0x04a910…04aaa4 Dummy {f00=0x0017, 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
0x04aaa4…04ac38 Dummy {f00=0x0017, 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
0x04ac38…04adcc Dummy {f00=0x0017, 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*
0x04adcc…04af60 Dummy {f00=0x0017, 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
0x04af60…04b0f4 (0, 95) Opaque[0x194]
0x04b0f4…04b288 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02f0, f03=0x0000}
0x04b0f4…04b288 IdxSect {
0x04b0f4…04b288 f00 = 0x0017 // 0x4b0f4 @0x0
0x04b0f4…04b288 f01 = 0x0026 // 0x4b0f6 @0x2
0x04b0f4…04b288 gno = [ // 0x4b0f8 @0x4
0x04b0f4…04b288 [0x00]: C0x0017.0x2.0
0x04b0f4…04b288 [0x01]: C0x0017.0x3.0
0x04b0f4…04b288 [0x02]: C0x0018.0x0.0
0x04b0f4…04b288 [0x03]: C0x0018.0x1.0
0x04b0f4…04b288 [0x04]: C0x0018.0x2.0
0x04b0f4…04b288 [0x05]: C0x0018.0x3.0
0x04b0f4…04b288 [0x06]: C0x0019.0x0.0
0x04b0f4…04b288 [0x07]: C0x0019.0x1.0
0x04b0f4…04b288 [0x08]: C0x0019.0x2.0
0x04b0f4…04b288 [0x09]: C0x0019.0x3.0
0x04b0f4…04b288 [0x0a]: C0x001a.0x0.0
0x04b0f4…04b288 [0x0b]: C0x001a.0x1.0
0x04b0f4…04b288 [0x0c]: C0x001a.0x2.0
0x04b0f4…04b288 [0x0d]: C0x001a.0x3.0
0x04b0f4…04b288 [0x0e]: C0x001b.0x0.0
0x04b0f4…04b288 [0x0f]: C0x001b.0x1.0
0x04b0f4…04b288 [0x10]: C0x001b.0x2.0
0x04b0f4…04b288 [0x11]: C0x001b.0x3.0
0x04b0f4…04b288 [0x12]: C0x001c.0x0.0
0x04b0f4…04b288 ]
0x04b0f4…04b288 }
0x04b288…04b41c Dummy {f00=0x0017, 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
0x04b41c…04b5b0 Dummy {f00=0x0017, 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*
0x04b5b0…04b744 Dummy {f00=0x0017, 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*
0x04b744…04b8d8 Dummy {f00=0x0017, 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
0x04b8d8…04ba6c Dummy {f00=0x0017, 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
0x04ba6c…04bc00 Dummy {f00=0x0017, 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
0x04bc00…04bd94 (0, 96) Dummy {f00=0x0017, 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
0x04bd94…04bf28 Dummy {f00=0x0017, 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
0x04bf28…04c0bc Dummy {f00=0x0017, 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
0x04c0bc…04c250 Dummy {f00=0x0017, 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
0x04c250…04c3e4 Dummy {f00=0x0017, 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
0x04c3e4…04c578 Dummy {f00=0x0017, 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 1 P* P* 6
0x04c578…04c70c Dummy {f00=0x0017, f01=0x0190, f02=» P* P* 0 P* A PROGRAM VERSION INCLUDING ATTACH/DETACH * P* IS OBTAINED BY SETTING ATTDET EQU 1. L P* z PX:A EQU 0 PATTDET EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY S
0x04c70c…04c8a0 Dummy {f00=0x0017, f01=0x0190, f02=»*************** P* FORM STATEMENTS * P******************* 4 P* P P* Z PBYTES FORM 8,8 d P* z P EJECT TOSSIO P* P* P********************* P* DWT DISPLACEMENTS * P*********************
0x04c8a0…04ca34 (0, 97) Dummy {f00=0x0018, f01=0x0190, f02=»C EQU /03 BYTE COUNTER PDWTECB EQU /04 ECB ADDRESS " PDWTOR EQU /06 INDEX AND ORDER @ ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER f ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR
0x04ca34…04cbc8 Dummy {f00=0x0018, f01=0x0190, f02=» MMUPAG=0 4 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEFINED PART P XIF J P* V P IFT MMUPAG=1 ` 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART v P XIF P* P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFINE
0x04cbc8…04cd5c Dummy {f00=0x0018, f01=0x0190, f02=»DWTDRD+/02 SAVE AREA A2 & PDWTA3 EQU DWTDRD+/02 SAVE AREA A3 & PDWTA4 EQU DWTDRD+/04 SAVE AREA A4 J & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 t . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT & PDWTTP
0x04cd5c…04cef0 Dummy {f00=0x0018, f01=0x0190, f02=» DWTDRD+/1C DISC VOLUME NAME P* $ P EJECT TOSSIO . P* F P* P * P************************************** Z * P* DRIVER ADDRESS BLOCK DISPLACEMENTS * * P************************************** P* P* & PKEYLEN EQU -6 DW
0x04cef0…04d084 Dummy {f00=0x0018, f01=0x018e, f02=» PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS & $ PPOLADR EQU 4 BUFFER POOL ADDRESS L " PRECADR EQU 6 RECOVERY ADDRESS t PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE INDEX VALUES *
0x04d084…04d218 Dummy {f00=0x0018, f01=0x0190, f02=» F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* N $ PDC:DIX EQU -2 DATA COMMUNICATION X PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6 KEYBOARD/
0x04d218…04d3ac Dummy {f00=0x0018, f01=0x0190, f02=» P* ECB DISPLACEMENTS * P********************* " P* @ P* J PECBFC EQU /01 FILE CODE T PECBBA EQU /02 BUFFER ADDRESS t " PECBRL EQU /04 REQUESTED LENGTH " PECBEL EQU /06 EFFECTIVE LENGTH PECBRC EQU /08 RETURN CODE PEC
0x04d3ac…04d540 Dummy {f00=0x0018, f01=0x0190, f02=»PAG=1 P* P* P********** " P* TIOTAB * 4 P********** F P* X < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TIO b P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPUT/OU
0x04d540…04d6d4 (0, 98) Dummy {f00=0x0018, f01=0x0190, f02=» PTINDEX EQU *-TIOTAB 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT , P DATA TIOPCO PROGRAMMED CHANNEL, OUTPUT T P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT P*
0x04d6d4…04d868 Dummy {f00=0x0018, f01=0x0190, f02=»SES TO ROUTINES ENTERED FROM TENDIO x P* , 2 PTENTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE 6 . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT l * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT $ P DATA TENKBI KEYBOARD/CTW, I
0x04d868…04d9fc Dummy {f00=0x0018, f01=0x0190, f02=» x & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P DATA TENITO INTERTASK COMMUNICATION, OUTPUT 2 P XIF f P* r P EJECT TOSSIO | P* P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE
0x04d9fc…04db90 Dummy {f00=0x0018, f01=0x0190, f02=»400,/1800,/1C00 " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 > P XIF d P* p P EJECT TOSSIO z P* P* P IFT ATTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* P*
0x04db90…04dd24 Dummy {f00=0x0018, f01=0x0190, f02=» = BLOCK ADDRESS P* A5 = TTAB ADDRESS P* A6 = DWT ADDRESS < " P* A1-A3 ARE DESTROYED ^ P* PTIMOUT LDR A6,A1 & P LDR* A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 GET TTAB ADDRESS P* P IFT MMUPA
0x04dd24…04deb8 Dummy {f00=0x0018, f01=0x018e, f02=»,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK 2 P* H P EJECT TOSSIO R P* j & P* REMOVE TTAB FROM DEVICE QUEUE t P* P LDR A1,A6 & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* PTIM:10 LDR A2,A1 SAVE
0x04deb8…04e04c Dummy {f00=0x0018, f01=0x018e, f02=» P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE & P* P P LDR* A1,A1 Z P STR A1,A2 n P* PTIM:20 EQU * P LDK A3,4 . P ADS A3,TTB:SA,A5 UPDATE DISPATCH ADDRESS : P LD A8,TTB:SA+16,A5 GET ECB ADDRESS FR
0x04e04c…04e1e0 Dummy {f00=0x0018, f01=0x0190, f02=» P XIF P* P IFT ATTDET=1 P IFT MMUPAG=1 0 * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB F . P TL MONMMU LOAD MONITOR (SYSTEM) MMU TABLE t P XIF P* P IFT ATTDET=1 & P RF TIORTN QUEUE TASK AND DISPATCH P* P E
0x04e1e0…04e374 (0, 99) Dummy {f00=0x0018, f01=0x0190, f02=»B ADDRESS ~ P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 V P* ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS P* PFND:10 LDR A2,A4 SAVE A4 P LDR* A4,A4 P RF(Z) F
0x04e374…04e508 Dummy {f00=0x0018, f01=0x0190, f02=»BL IHRTN RETURN P XIF P* $ P IFT ATTDET=1 . P IFT CPU852=0 D P RTN A15 RETURN Z P XIF r P* ~ P IFT ATTDET=1 & PATT:CH DATA 0 ATTACH CHAIN ANCHOR P* P EJECT TOSSIO P* P* F D B A T T / F D
0x04e508…04e69c Dummy {f00=0x0018, f01=0x0190, f02=»A5 = TTAB ADDRESS P* A6 = FDB ADDRESS $ P* A10 = /800 (ATTACH BIT) < P* d " P* OUTPUT: A2-A4 AREA DESTROYED n P* PFDBDET EQU * P C1R A10,A10 A10=F7FF P* PFDBATT EQU * P LDR A4,A6 FDB ADDRESS
0x04e69c…04e830 Dummy {f00=0x0018, f01=0x0190, f02=»A2,A4 NEXT FDB P RF(Z) FDB:20 NO FDB? ! P LDR A10,A10 ! 4 " P RF(N) FDB:15 DETACH REQUEST? ! H $ P ORS A10,DWTST,A2 ATTACH REQUEST ! n P ST A5,DWTTAB,A2 ! P RF FDB:20 ! P* ! * PFDB:15 ANS A10,DWTST,A2 DETACH REQUEST ! P CF A15,QREQ UPD
0x04e830…04e9c4 Dummy {f00=0x0018, f01=0x0190, f02=»E Q ! P* " 8 P* SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE (IF ANY) " P* " R P* INPUT: A2 = DWT ADDRESS " P* " ~ " P* OUTPUT: A7, A9 ARE DESTROYED " P* " PQREQ EQU * " & P LDR A9,A5 SAVE A5 (TTAB ADDRESS) " & P LD A5,DWTTQ,A2 ANY
0x04e9c4…04eb58 Dummy {f00=0x0018, f01=0x0190, f02=»TASK " | P* # PQRE:10 EQU * # $ P LDR A5,A9 RESTORE TTAB ADDRESS # * P IFT CPU852=1 # R P RB FND:20 RETURN # h P XIF # P* # P IFT ATTDET=1 # P IFT CPU852=0 # P RTN A15 RETURN # P XIF # P* # P IFT ATTDET=1 # P
0x04eb58…04ecec Dummy {f00=0x0018, f01=0x0190, f02=»MODULE IS CALLED FROM TIO WITH # P* THE FOLLOWING PARAMETERS: $ & P* $ J & P* A3 /8000 (REQUEST ERROR BIT) $ T & P* A4 I/O AND ACTIVATE INDICATOR $ ~ P* A5 TTAB ADDRESS $ P* A6 DWT ADDRESS $ P* A7 ORDER CODE $ P* A8 ECB AD
0x04ecec…04ee80 Dummy {f00=0x0018, f01=0x0190, f02=»CH EQU * ENTRY $ P ADK A4,0 SET CR % * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR? % . P* % P IFT MMUPAG=0 % f " P CM ECBRC,A8 RESET RETURN CODE % | P XIF % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % & P ES A4,ECBRC,A8 RESET RETURN CODE %
0x04ee80…04f014 (0, 100) Dummy {f00=0x0018, f01=0x0190, f02=»ALREADY ATTACHED? % z P LDR A13,A13 & P RF(NN) ATT:50 DEVICE BUSY? & . P* & R P* ATTACH REQUESTING TASK & P* & P ORS A10,DWTST,A6 ATTACH & , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT & P CWK A12,TIODM & " P RF(NE) ATT:15 NO DM REQ
0x04f014…04f1a8 Dummy {f00=0x0018, f01=0x0190, f02=»4,0 SET CR & P RF(Z) ATTRTN NO! ' P* ' , P EJECT TOSSIO ' 6 P* ' N & P* FREE BLOCK AND TIMER IN ATT:CH ' X P* ' P CM* 2,A4 FREE TIMER ' " P LDR* A3,A4 REMOVE FROM ATT:CH ' P STR A3,A2 ' P CF A15,FREBLK RELEASE BLOCK ' P RF
0x04f1a8…04f33c Dummy {f00=0x0018, f01=0x0190, f02=»A15,FNDBLK ' P ADK A4,0 SET CR ( $ P RF(NZ) ATT:70 IS TIMER ACTIVE? ( , P* ( T P* SET TIMER ( ^ P* ( v P IFT MMUPAG=0 ( P LD A1,ECBCW,A8 TIME ( P XIF ( P* ( P EJECT TOSSIO ( P* ( P* ( P IFT ATTDET=1 (
0x04f33c…04f4d0 Dummy {f00=0x0018, f01=0x0190, f02=»Z) ATT:80 END REQUEST? ( P* ) PATT:60 ST A1,ATTIM ) ( P LDR A1,A5 TTAB ADDRESS ) B P LD A3,ATT:CH ANCHOR ) b P CF A15,GETBLK GET BLOCK ) ~ P ST A4,ATT:CH UPDATE ANCHOR ) $ P ADK A4,2 TIMER POINTER ADDRESS ) P LDR A1,A6 DWT ADDRESS ) P
0x04f4d0…04f664 Dummy {f00=0x0018, f01=0x0190, f02=» P RF TIOQ20 * P* * & PATT:80 LDK A3,/40 SET TIME OUT BIT * P RF TIOERR RETURN * J P* * d P EJECT TOSSIO * n P* * P* * P********** * P* DETACH * * P********** * P* * * P* THIS MODULE IS CALLED FROM TIO WITH * $ P
0x04f664…04f7f8 Dummy {f00=0x0018, f01=0x0190, f02=» P TM A10,A13 + P RF(Z) TIOERR NOT ATTACHED? + P CW A5,DWTTAB,A6 + < * P RF(NE) TIOERR ATTACHED TO OTHER TASK? + T P XRS A10,DWTST,A6 DETACH + P CWK A12,TIODM + " P RF(NE) DET:05 NO DM REQUEST? + ( P CF A15,FDBDET DETACH FILE STRUCTURE +
0x04f7f8…04f98c Dummy {f00=0x0018, f01=0x0190, f02=»ATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT + PDETRTN LDK A3,0 RETURN CODE , 6 P XIF , Z P* , f P EJECT TOSSIO , p P* , P* , P********** , P* TIOERR * , P********** , P* , P* ERROR: FILE CODE UNKNOWN , ( P* TIOERR I
0x04f98c…04fb20 Dummy {f00=0x0018, f01=0x0190, f02=»,ECBRC,A8 INDICATE ERROR IN ECB , P XIF - ( P* - 4 P IFT MMUPAG=1 - > * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB - T P XIF - P* - PTIORTN EQU * - ( P ABL LKMQDI QUEUE TASK AND DISPATCH - P* - P EJECT TOSSIO - P* - P* -
0x04fb20…04fcb4 (0, 101) Dummy {f00=0x0019, f01=0x018e, f02=»ICE REQUESTS. - j > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON . @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING . X 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT, AND WHEN . B P* ATTACHED, WHETHER THE DEVICE IS ATTACHED TO TH
0x04fcb4…04fe48 Dummy {f00=0x0019, f01=0x018e, f02=» P* / ( PTIOQ05 ADK A6,DWTTQ GET QUEUE ANCHOR / P LDR A2,A6 / : P LDR* A6,A6 / L $ P RF TIOQ40 INSERT FIRST IN QUEUE / ` P* / & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE / P* / ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR / P LD A1,TTB:ST+1,A5 GET
0x04fe48…04ffdc Dummy {f00=0x0019, f01=0x0190, f02=» $ P LDR* A6,A6 FOLLOW QUEUE TO END 0 P RF(Z) TIOQ40 END FOUND? 0 , & P CC A1,TTB:ST+1,A6 COMPARE LEVELS 0 L P RB(NL) TIOQ30 TRY NEXT? 0 v P* 0 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 0 P* 0 PTIOQ40 LDKL A3,-4 0 P STR A6,A5 INSER
0x04ffdc…050170 Dummy {f00=0x0019, f01=0x018e, f02=»OQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM 0 P* 1 6 PTIOQ60 EQU * 1 @ P ABL TDISP GO TO DISPATCHER 1 T P* 1 x P EJECT TOSSIO 1 P* 1 P* 1 P******* 1 P* TIO * 1 P******* 1 P* 1 P* 1 . P* THIS MODULE IS ENTER
0x050170…050304 Dummy {f00=0x0019, f01=0x0190, f02=» 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 2 P* 2 : 2 P* WHEN RUNNING WITH MMU OPTION SPECIAL DEVICE 2 D * P* DEPENDENT SUBROUTINES ARE PERFORMED. 2 z P* 2 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 2 & P* WITH THE FOLLOWING PARAMET
0x050304…050498 Dummy {f00=0x0019, f01=0x018e, f02=»ZERO, I/O AND ACTIVATION 2 P* 3 P* A5 = TTAB ADDRESS 3 * P* 3 F P* A7 = ORDER CODE 3 P P* 3 j P* A8 = ECB ADDRESS 3 t P* 3 P EJECT TOSSIO 3 P* 3 P* 3 < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 3 * P*
0x050498…05062c Dummy {f00=0x0019, f01=0x0190, f02=» P* A7 = ORDER CODE 4 P* 4 P* A8 = ECB ADDRESS 4 ( P* 4 D , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK 4 N P* 4 ~ 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 4 . P* = 1, " " " " USER MODE 4 P* 4 P* 4 , P* THE
0x05062c…0507c0 Dummy {f00=0x0019, f01=0x0190, f02=» AND ECHO FIELDS 4 P* -DWTTAB TTAB ADDRESS 5 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 5 8 . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 5 b P* 5 P* 5 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 5 P* 5 P* -BIT 0 IN THE FIRST WORD 5 P* -
0x0507c0…050954 (0, 102) Dummy {f00=0x0019, f01=0x0190, f02=» REQUEST IS BUSY 5 r P* 6 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 6 " P LDKL A3,/8000 6 N P ADK A6,0 SET CR 6 d $ P RB(Z) TIOERR FILE CODE UNKNOWN? 6 | : P LD A12,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 6 $ P LD A13,DWTST,A6 GET DWT STATUS 6
0x050954…050ae8 Dummy {f00=0x0019, f01=0x0190, f02=»ATTACH ORDER? 6 P SUK A7,1 7 P RB(Z) DETACH DETACH ORDER? 7 ( " P ADK A7,/BC RESTORE ORDER CODE 7 L P XIF 7 r P* END OF =1 7 ~ " P LD A11,TTB:ID,A5 GET TASK ID 7 P ANKL A11,/FF44 7 P SUKL A11,'#D' CHECK TASK ID 7 " P RF(Z) TIO020 DMTA
0x050ae8…050c7c Dummy {f00=0x0019, f01=0x0190, f02=»SIO 7 P* 8 & P* CHECK IF DEVICE IS ATTACHED/BUSY 8 P* 8 @ P IFT ATTDET=1 8 J P TM A10,A13 8 ` P RF(Z) TIO020 NOT ATTACHED? 8 t P CW A5,DWTTAB,A6 8 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK? 8 P TM A3,A13 8 $ P RF(NZ) TIO030 DEVICE NO
0x050c7c…050e10 Dummy {f00=0x0019, f01=0x0190, f02=»USY? 8 z P* 9 P EJECT TOSSIO 9 P* 9 . H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 9 8 P* 9 * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 9 P LDK A2,/40 CHECK IF ECHO 9 P ANR A2,A7 9 P RF(Z) TIO070 NOT ECHO?
0x050e10…050fa4 Dummy {f00=0x0019, f01=0x0190, f02=» P* : . PTIO040 LD A2,DWTECH,A6 GET ECHO DEVICE DWT : " P RF(Z) TIO070 NO ECHO DEVICE? : @ & P LD A9,DEVIND,A12 GET DEVICE INDEX : f $ P CWK A9,KB:DIX CHECK IF KEYBOARD : 4 P RF(NE) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD : ( P LD A14,DWTST,A2 GET ECH
0x050fa4…051138 Dummy {f00=0x0019, f01=0x0190, f02=» : 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK? ; P TM A3,A14 ; B ( P RF(NZ) TIO060 ECHO DEVICE NOT BUSY? ; T & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE ; P XIF ; P* ; P EJECT TOSSIO ; P* ; P* ; PTIO050 TM A3,A14 ; $ P RB(
0x051138…0512cc Dummy {f00=0x0019, f01=0x0190, f02=»* ; P* UPDATE ECB AND DWT FIELDS < P* < . @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS IN DWT STATUS < 8 P* < | P IFT MMUPAG=1 < P LD A13,TTB:PW,A5 GET PSW < ( P ANKL A13,1 GET SYSTEM/USER MODE BIT < $ P RF(NZ) TIO100 JUMP IF USER MO
0x0512cc…051460 Dummy {f00=0x0019, f01=0x0190, f02=»L,A8 RESET EFFECTIVE LENGTH < $ P CM ECBRC,A8 RESET RETURN CODE = $ P RF TIO110 = L P* = ^ P EJECT TOSSIO = h P* = P* MOVE USER ECB TO DWT ECB = P* = PTIO100 EQU * = P LDKL A2,/4FFF = * P ELR A3,A8 LOAD FIRST WORD OF USER ECB =
0x051460…0515f4 (0, 103) Dummy {f00=0x0019, f01=0x0190, f02=»B,A6 SET ACTUAL ECB ADDRESS = P STR A3,A2 > $ * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS > 6 P LDR A9,A8 > d P LDK A3,0 > v * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE > P* > P LDR A10,A1 SAVE PARAMETER >
0x0515f4…051788 Dummy {f00=0x0019, f01=0x0190, f02=» MOVE PART OF USER ECB TO DWT ECB > " P LDR A1,A10 RESTORE PARAMETER ? * P XIF ? P P* ? P IFT MMUPAG=0 ? f P LDKL A3,/7FFF ? | , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE ? ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH ? $ P CM ECBRC,A8 RESET RETURN
0x051788…05191c Dummy {f00=0x0019, f01=0x0190, f02=»/3F ? ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT @ P CWK A12,TIODM @ 8 * P RF(NE) TIO120 JUMP IF NOT DM REQUEST @ N 0 P ST A5,DWTTDM,A6 SAVE TTAB ADDRESS IN DWTTDM @ | P RF TIO130 @ P* @ PTIO120 EQU * @ 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DW
0x05191c…051ab0 Dummy {f00=0x0019, f01=0x0190, f02=» DWTWAT (WAIT/ACTIVATE INDICATOR) @ P* A * P LDR A2,A4 CHECK PARAMETER A 4 & P RF(NZ) TIO210 I/O AND ACTIVATION? A V 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED A P RF(Z) TIO220 NOT WAIT? A P LDK A4,1 INDICATE WAIT A P RF TIO230 A
0x051ab0…051c44 Dummy {f00=0x0019, f01=0x0190, f02=» P* B 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* B J P EJECT TOSSIO B T P* B l P* B v P IFT MMUPAG=1 B * P LDR A13,A13 CHECK IF SYSTEM/USER MODE B & P RF(Z) TIO250 JUMP IF SYSTEM MODE B & P LD A3,DEVIND,A12 GET DEVI
0x051c44…051dd8 Dummy {f00=0x0019, f01=0x0190, f02=»ER CODE B z P* C P LDR A4,A7 GET ORDER CODE C 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE C < . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER C p P* C PTIO240 EQU * C P ENB C < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE C
0x051dd8…051f6c Dummy {f00=0x0019, f01=0x0190, f02=»A6 C P INH D & P ABR* A12 GO TO DRIVER ACTIVATION D P* D @ P EJECT TOSSIO D J P* D b P* D l P IFT MMUPAG=1 D v P* D P* R D : W R D P* D @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING D @ P* THE APPROPRIAT
0x051f6c…052100 Dummy {f00=0x0019, f01=0x0190, f02=» REQUEST, CONDITION REGISTER ON STACK IS D ~ * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. E 0 P* E ^ P* INPUT: A3 = DEVICE INDEX E h P* A6 = DWT ADDRESS E P* E : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING E . P* CR = 0 I
0x052100…052294 (0, 104) Dummy {f00=0x0019, f01=0x0190, f02=» GET ORDER CODE FROM DWT E | P ANK A4,/3F F P* F 4 * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER F > $ P LC A4,ORDTAB,A4 GET ORDER INDEX F l P ANK A4,/FF F . P ABR(Z)* A15 RETURN IF NO READ/WRITE ORDER F P SUK A4,1 F $ P ADR A3,A4 ADD READ/WRITE IN
0x052294…052428 Dummy {f00=0x0019, f01=0x0190, f02=» * F P********** G P* G 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: G & P* G P* =0: NO READ/WRITE ORDER G f P* =1: READ ORDER G P* =TINDEX+1: WRITE ORDER G P* G PORDTAB EQU * ORDER CONSTANTS G P BYTES 0,1 /00, /01 G
0x052428…0525bc Dummy {f00=0x0019, f01=0x0190, f02=» G v P BYTES 1,TINDEX+1 /0A, /0B H P BYTES 0,0 /0C, /0D H * P BYTES 0,0 /0E, /0F H F P BYTES 0,1 /10, /11 H b P BYTES 0,0 /12, /13 H ~ P BYTES 0,TINDEX+1 /14, /15 H P BYTES 0,0 /16, /17 H P BYTES 0,0 /18, /19 H P BYTES 0,0 /1A, /1B
0x0525bc…052750 Dummy {f00=0x0019, f01=0x0190, f02=»ES 0,0 /24, /25 H P BYTES 0,0 /26, /27 I P BYTES 0,0 /28, /29 I 4 P BYTES 0,0 /2A, /2B I P P BYTES 0,1 /2C, /2D I l P BYTES 1,TINDEX+1 /2E, /2F I P BYTES 0,0 /30, /31 I P BYTES 0,0 /32, /33 I P BYTES 0,0 /34, /35 I P BYTES 0,0
0x052750…0528e4 Dummy {f00=0x0019, f01=0x0190, f02=» P EJECT TOSSIO J P* J P* T I O : D M J & P* J < 4 P* THIS MODULE IS CALLED BY 'TIO' WHEN A REQUEST J F * P* FOR DATA MANAGEMENT HAS BEEN ISSUED. J ~ P* J & P* INPUT: A8 = FDB MMU ECB ADDRESS J $ P* A9 = USER ECB ADDRESS J P
0x0528e4…052a78 Dummy {f00=0x0019, f01=0x0190, f02=»ADDRESS J p P ST A2,ECBBA,A8 K , P EL A2,ECBCW2,A9 GET SECOND CONTROL WORD K ( P ST A2,ECBCW2,A8 K X P* K p PA15RTN EQU * K z P RTN A15 K P* K P EJECT TOSSIO K P* K P* T I O P C I K P* K B P* THIS MODULE IS CALLED BY 'TI
0x052a78…052c0c Dummy {f00=0x0019, f01=0x0190, f02=»UFFER ADDRESSES SO THAT BOTH ARE K r < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. L ( 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT L h , P* COMPLETION OF THE REQUEST IS 'TENPCI'. L 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. L P
0x052c0c…052da0 Dummy {f00=0x0019, f01=0x0190, f02=»* L P* OUTPUT: A1 IS DESTROYED M P* M , * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT M 6 ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH M d 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE M 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE? M P* M .
0x052da0…052f34 (0, 105) Dummy {f00=0x001a, f01=0x0190, f02=» BUFFER ADDRESS EVEN? M ~ P ORS A1,ECBBA,A8 N P RTN A15 N 6 P* N F 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN N P P ANS A1,ECBBA,A8 N P RTN A15 N P* N P EJECT TOSSIO N P* N P* T I O M X I N P* N B P* THIS MODULE IS
0x052f34…0530c8 Dummy {f00=0x001a, f01=0x0190, f02=»ES THE FULL 18 BIT BUFFER ADDRESS WHICH IS N , P* TRANSFERRED TO THE MUX BY THE DRIVER. O 2 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT O b , P* COMPLETION OF THE REQUEST IS 'TENMXI'. O 6 P* NOTICE THAT MODULE 'TIOMXO' IS EQUAL TO TIOMXI. O P* O
0x0530c8…05325c Dummy {f00=0x001a, f01=0x0190, f02=»2 ARE DESTROYED O B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB P P* P ^ PTIOMXI EQU * MUX, INPUT P h , P EL A1,ECBBA,A9 GET USER BUFFER ADDRESS P P ECR A2,A1 P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS P P SRL A2,3 P & P A
0x05325c…0533f0 Dummy {f00=0x001a, f01=0x0190, f02=» P P ANK A2,/3F Q 4 P SCR A2,A8 STORE BITS 16-17 IN DWT ECB 1ST WORD Q P ANK A2,/0F Q T P SRC A2,4 Q h P ORR A1,A2 Q z 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS Q P RTN A15 Q P* Q P EJECT TOSSIO Q P* Q P* T I O K
0x0533f0…053584 Dummy {f00=0x001a, f01=0x0190, f02=»KBI WILL SET BUFFER ADDRESSES Q d 6 P* AND MOVE KEYTABLE (IF ANY) BY USING ENTRY TIPI05 R & 0 P* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. R ` 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT R , P* COMPLETION OF THE REQUEST IS 'TENKBI'. R P* R P*
0x053584…053718 Dummy {f00=0x001a, f01=0x0190, f02=»ADDRESS TO DRIVER ADDRESS BLOCK R P* S ( " P* OUTPUT: A1-A4 ARE DESTROYED S 2 P* S X PTIOKBI EQU * KEYBOARD/CTW S b ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH S 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE S 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS
0x053718…0538ac Dummy {f00=0x001a, f01=0x018e, f02=»TABLE IF BASIC READ S | . P LD A4,ECBCW,A8 GET USER KEYTABLE ADDRESS T P RF(Z) TIKB20 NO KEYTABLE? T N P* T p P EJECT TOSSIO T z P* T P* T P LDR A1,A9 T P ADK A1,8 T P ADKL A8,12 T * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS T
0x0538ac…053a40 Dummy {f00=0x001a, f01=0x0190, f02=» , P ECR A3,A3 NO, PUT LENGTH IN RIGHT BYTE U P* U 4 * PTIKB10 ANK A3,/FF SKIP LEFT CHARACTER U > P ADK A3,1 U l 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE U ~ P RF(G) IO:ERR TOO SMALL? U P CF A15,TIPO05 U & P SUKL A8,8 ADJUST DWT ECB ADDRES
0x053a40…053bd4 (0, 106) Dummy {f00=0x001a, f01=0x018e, f02=»TI EQU A15RTN INTERTASK COMMUNICATION, INPUT U P* V 4 P EJECT TOSSIO V > P* V V P* T I O P C O V ` P* V v B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. V B P
0x053bd4…053d68 Dummy {f00=0x001a, f01=0x0190, f02=» V N P* BUFFER TO THE DWT BUFFER. W 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT W , , P* COMPLETION OF THE REQUEST IS 'TENPCO'. W d 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. W F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'T
0x053d68…053efc Dummy {f00=0x001a, f01=0x0190, f02=» P* X " P* OUTPUT: A1-A4 ARE DESTROYED X P* X 4 , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT X > 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK X n ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH X * P RF(NP) TIPO20 REQUESTED LENGTH <= 0? X 2 P CW
0x053efc…054090 Dummy {f00=0x001a, f01=0x0190, f02=»B ADDRESS X t P* Y P EJECT TOSSIO Y P* Y 4 P* Y > : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' Y H P ADK A3,1 Y . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN Y , P EL A1,ECBBA,A1 GET USER BUFFER ADDRESS Y * P LD A2,ECBBA,A
0x054090…054224 Dummy {f00=0x001a, f01=0x0190, f02=»SER BUFFER ADDRESS UNEVEN? Y P ST A2,ECBBA,A8 Z " P* Z : 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Z D P* Z ~ PTIPO20 RTN A15 Z P* Z 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Z 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNE
0x054224…0543b8 Dummy {f00=0x001a, f01=0x0190, f02=»TE USER BUFFER POINTER Z ( P ADK A2,2 UPDATE DWT BUFFER POINTER [ ( P RB TIPO10 MOVE REMAINING CHARACTERS [ J P* [ v P EJECT TOSSIO [ P* [ P* I O : E R R [ P* [ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. [ B P* SET RETURN CODE /800
0x0543b8…05454c Dummy {f00=0x001a, f01=0x0190, f02=»MMU ROUTINES [ l P INH $ P ADKL A15,4 ADJUST STACKPOINTER " P LD A1,DWTST,A6 GET DWT STATUS H P SLL A1,2 CHECK ECHO BIT n P RF(NN) IO:E10 NOT ECHO? P LDR A1,A6 SAVE DWT ADDRESS * P LD A6,DWTECH,A6 GET ECHO DWT ADDRESS P CF A15,
0x05454c…0546e0 Dummy {f00=0x001a, f01=0x0190, f02=»CH TO DISPATCHER VIA TENDIO P* ] $ P EJECT TOSSIO ] . P* ] F P* T I O M X O ] P P* ] f " PTIOMXO EQU TIOMXI MUX, OUTPUT ] p P* ] P* T I O K B O ] P* ] * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT ] P* ] P* T I O I T O ]
0x0546e0…054874 (0, 107) Dummy {f00=0x001a, f01=0x0190, f02=» P* ^ 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ^ . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ^ H P* ^ z P* INPUT: A6 = FDB ADDRESS ^ $ P* A8 = USER ECB ADDRESS ^ P* ^ " P* OUTPUT: A1-A2 ARE DESTROYED ^ P* ^ . P
0x054874…054a08 Dummy {f00=0x001a, f01=0x0190, f02=»1,A1 ^ P ES A2,ECBCW2,A8 _ P RTN A15 _ $ P* _ 4 P EJECT TOSSIO _ > P* _ V P* T E N P C I _ ` P* _ v D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN _ @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. _
0x054a08…054b9c Dummy {f00=0x001a, f01=0x0190, f02=» _ V & P* ISSUING THE REQUEST IS 'TIOPCI'. ` D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. ` 2 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. ` z P* ` P* INPUT: A6 = DWT ADDRESS ` $ P* A8 = USER ECB ADDRESS `
0x054b9c…054d30 Dummy {f00=0x001a, f01=0x018e, f02=»CB ADDRESS ` v ( P LD A4,ECBEL,A2 GET EFFECTIVE LENGTH a " P RF(NP) TEPI30 NO MOVE IF ZERO a > * P LD A1,ECBBA,A2 GET DWT BUFFER ADDRESS a d P* a . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' a , P EL A2,ECBBA,A8 GET USER BUFFER ADDRESS a $ P LDK A3,1
0x054d30…054ec4 Dummy {f00=0x001a, f01=0x018e, f02=» a f , P RF(Z) TEPI60 USER BUFFER ADDRESS EVEN? b P* b 8 P EJECT TOSSIO b B P* b Z P* b d 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN b n 4 P LDR* A3,A1 GET FIRST CHARACTER FROM DWT BUFFER b P ELR A8,A2 b P* b * PTEPI15 ANK A3,/F
0x054ec4…055058 Dummy {f00=0x001a, f01=0x0190, f02=» b d $ P ADK A1,1 UPDATE BUFFER POINTERS c P ADK A2,1 c 0 P SUK A4,1 c B * P RF(P) TEPI25 MORE CHARACTERS TO MOVE? c T P RTN A15 NO, RETURN c P* c PTEPI20 TM A3,A2 c , P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN? c & P LDR A3,A1 GET DWT BUFFE
0x055058…0551ec Dummy {f00=0x001a, f01=0x0190, f02=»R. ONE BYTE TO THE RIGHT c x & P SUK A3,1 POINT TO NEXT CHARACTER d 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER d J , P RB(NE) TEPI23 MORE CHARACTERS TO MOVE? d 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN d P RB TEPI10 d P* d P EJECT
0x0551ec…055380 Dummy {f00=0x001a, f01=0x0190, f02=»UNEVEN? d p 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER e P* e D PTEPI30 RTN A15 e N P* e d , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN e n ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN e . P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE? e P LDR A8,A4 N
0x055380…055514 (0, 108) Dummy {f00=0x001a, f01=0x0190, f02=» PTEPI50 EQU * f 2 P LDR* A8,A1 GET LAST CHARACTER FROM DWT BUFFER f P ELR A3,A2 f N P RB TEPI15 f ` P* f r . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN f | & P LDR A3,A1 GET DWT BUFFER ADDRESS f $ P ADR A1,A4 ADD EFFECTIVE LENGTH f P* f &
0x055514…0556a8 Dummy {f00=0x001a, f01=0x0190, f02=» f n * P CWR A3,A1 COMPARE WITH ENDING ADDRESS g , P RB(NE) TEPI70 MORE CHARACTERS TO MOVE? g 6 . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS g f * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN g P RB TEPI25 g P* g P EJECT TOSSIO g P* g P* T
0x0556a8…05583c Dummy {f00=0x001a, f01=0x018e, f02=»PUT g r P* h P* T E N I T I h P* h , 4 PTENITI EQU TENPCI INTERTASK COMMUNICATION, INPUT h 6 P* h n P* T E N P C O h x P* h 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT h P* h P* T E N M X O h P* h " PTENMXO EQU A15RTN
0x05583c…0559d0 Dummy {f00=0x001a, f01=0x0190, f02=» h ~ P* i P* T E N I T O i P* i ( F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN i 2 L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO MOVE THE CONTENTS i | J P* OF THE USER BUFFER TO THE DRIVER BUFFER. THE ENTRY TIPO05
0x0559d0…055b64 Dummy {f00=0x001a, f01=0x018e, f02=» A8 ARE DESTROYED i P* j 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT j $ ( P LD A8,DWTECB,A6 GET DWT ECB ADDRESS j X ( P LD A3,ECBEL,A8 GET EFFECTIVE LENGTH j P RF(NP) TEIO10 NO MOVE? j * P LD A1,DWTUEC,A6 GET USER ECB ADDRESS j ( P CF A15,TI
0x055b64…055cf8 Dummy {f00=0x001a, f01=0x0190, f02=» j < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER k < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO k H < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' k " P* IS USED FOR MOVING THE DATA. k P* k P* INPUT: A6 = D
0x055cf8…055e8c Dummy {f00=0x001a, f01=0x0190, f02=»,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER l * P TS 2,A15 SAVE MMU REGISTERS ON STACK l H & P LD A5,DWTTAB,A6 GET TTAB ADDRESS l v $ P TL TTB:MT,A5 LOAD MMU REGISTERS l ( P LD A8,DWTMEC,A6 GET DWT ECB ADDRESS l P ENB l ( P CF A15,
0x055e8c…056020 Dummy {f00=0x001a, f01=0x0190, f02=» ADKL A15,32 ADJUST STACKPOINTER l * P MLR 8,A15 RESTORE A1-A8 FROM STACK... m ( P RTN A15 ...AND RETURN m V P XIF m t P* m P EJECT TOSSIO m P* m P* D C : M I N m P* m < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER m
0x056020…0561b4 (0, 109) Dummy {f00=0x001b, f01=0x0190, f02=» A4 = DRIVER BUFFER ADDRESS m P* A6 = DWT ADDRESS n & P* n H ( P* OUTPUT: NO REGISTERS ARE DESTROYED n R P* n ~ PDC:MIN EQU * n P IFT MMUPAG=0 n P IFT CPU852=1 n & P CF A15,SAVE8 SAVE A1-A8 ON STACK n P XIF n P* n P
0x0561b4…056348 Dummy {f00=0x001b, f01=0x0190, f02=»2,A15 SAVE MMU REGISTERS ON STACK n " P LD A5,DWTTAB,A6 TTAB ADDRESS o * $ P TL TTB:MT,A5 LOAD MMU REGISTERS o P P XIF o x P* o P EJECT TOSSIO o P* o & P* CHECK MESSAGE LENGTH AND DECIDE o $ P* IF TTMJOB IS TO BE ACTIVATED. o P* o
0x056348…0564dc Dummy {f00=0x001b, f01=0x018e, f02=»2=1 o P LDK A7,128 852 CPU p ( P ANK A5,1 CHECK USER BUFFER ADDRESS p ( . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN p T P ADK A7,128 A7 := 256 p P XIF p P* p P IFT MMUPAG=0 p P IFT CPU852=0 p P IFT CPU857=0 p P LDK A7,80 8
0x0564dc…056670 Dummy {f00=0x001b, f01=0x0190, f02=» P XIF q P* q P IFT MMUPAG=0 q P IFT CPU852=0 q 0 P IFT CPU857=1 q F P LDKL A7,256 857 CPU q ( P ANK A5,1 CHECK USER BUFFER ADDRESS q x . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN q P ADR A7,A7 A7 := 512 q P XIF q P* q P
0x056670…056804 Dummy {f00=0x001b, f01=0x0190, f02=»ADDRESS q t P LDKL A7,256 r ( P ANK A5,1 CHECK USER BUFFER ADDRESS r $ . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN r P P SLL A7,3 A7 := 2048 r P XIF r P* r PDCMI00 EQU * r 8 P CW A7,ECBEL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH r 2 P RF(
0x056804…056998 Dummy {f00=0x001b, f01=0x018e, f02=» r p P IFT CPU852=1 s ( P ABL IHRET8 RESTORE A1-A8 AND RETURN s P XIF s J P* s V P IFT MMUPAG=0 s ` P IFT CPU852=0 s v * P MLR 8,A15 RESTORE A1-A8 FROM STACK... s P* s PDC:MOT RTN A15 ...AND RETURN s P XIF s P* s P IFT MMUPA
0x056998…056b2c Dummy {f00=0x001b, f01=0x0190, f02=» P* INPUT: A1 = RETURN CODE t P* A3 = ECB ADDRESS t & ( P* A4 = DRIVER BUFFER ADDRESS t H P* A6 = DWT ADDRESS t t P* t & P* OUTPUT: A1-A5, A7 ARE DESTROYED t P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t * P L
0x056b2c…056cc0 Dummy {f00=0x001b, f01=0x0190, f02=»3 CHECK IF USER BUFFER IS LARGE ENOUGH t $ P RF(G) MIN:70 NO, REQUEST ERROR u . P* u V P IFT MMUPAG=0 u ` ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u v P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVE
0x056cc0…056e54 (0, 110) Dummy {f00=0x001b, f01=0x0190, f02=» P* v PMIN:10 EQU * v P LDR* A3,A7 MOVE ONE WORD v " P STR A3,A5 v D ( P ADK A7,2 INCREMENT BUFFER POINTERS v V P ADK A5,2 v $ P SUK A2,2 DECREMENT LOOP COUNTER v 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v P* v PMIN:20 EQU *
0x056e54…056fe8 Dummy {f00=0x001b, f01=0x0190, f02=» MOVE ONE CHARACTER v P SCR A3,A5 w ( P ADK A7,1 INCREMENT BUFFER POINTERS w . P ADK A5,1 w Z $ P SUK A2,1 DECREMENT LOOP COUNTER w l 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE w P XIF w P* w P IFT MMUPAG=1 w * P ST A1,ECBRC,A
0x056fe8…05717c Dummy {f00=0x001b, f01=0x0190, f02=»DRESS w t ( P CF A15,TEN:DC MOVE BUFFER CONTENTS x & P LDR A4,A7 RESTORE BUFFER ADDRESS x : P LDK A1,0 x d P XIF x v P* x P EJECT TOSSIO x P* x P* x PMIN:40 EQU * x P INH x " P CF A15,TENDIO PERFORM TENDIO x P* x P
0x05717c…057310 Dummy {f00=0x001b, f01=0x0190, f02=»N:50 EQU * x " P LDR A2,A1 SAVE BUFFER ADDRESS y $ P LDR* A1,A2 NEXT BUFFER ADDRESS y 8 , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y ` P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y " P SUK A4,6 REAL BUFFER ADDRESS y " P STR A4,A2 UPDATE QUEU
0x057310…0574a4 Dummy {f00=0x001b, f01=0x0190, f02=»8008 REQUEST ERROR/INCORRECT LENGTH y $ P RB MIN:40 RETURN VIA TENDIO ETC z , P* z T P EJECT TOSSIO z ^ P* z v P* D C M I N T z P* z 2 P* TTMJOB WILL BE DISPATCHED HERE TO CARRY OUT z 2 P* THE MOVE OF THE DC DRIVER BUFFER CONTENTS TO z
0x0574a4…057638 Dummy {f00=0x001b, f01=0x018e, f02=» ( P* A4 = DRIVER BUFFER ADDRESS { P* { 0 * PDCMINT EQU * TTMJOB MOVE BUFFER ENTRY { : P LDR A6,A3 DWT ADDRESS { h P LD A3,DWTECB,A6 ECB ADDRESS { P* { P IFT MMUPAG=1 { P INH { " P LD A5,DWTTAB,A6 TTAB ADDRESS { $ P TL TTB:MT,A
0x057638…0577cc Dummy {f00=0x001b, f01=0x0190, f02=» { ( P CF A15,MINMOV MOVE BUFFER CONTENTS | P ABL MEXIT EXIT TTMJOB | 4 P* | R P EJECT TOSSIO | P* | t P* Q M T A S K | ~ P* | : P* WHEN THE MOVE WILL TAKE TOO LONG TIME TTMJOB WILL BE | 6 P* ACTIVATED AT ENTRY 'DCMINT' TO PERFORM THE
0x0577cc…057960 Dummy {f00=0x001b, f01=0x0190, f02=»R BUFFER ADDRESS | | P* A6 = DWT ADDRESS } P* } : PQMTASK EQU * ACTIVATE TTMJOB } D $ P LDKL A2,DCMINT DISPATCH ADDRESS } h P LDR A3,A6 DWT ADDRESS } " P CF A15,QMJOB ACTIVATE TTMJOB } P LDKL A1,/8000 NOT BUSY BIT } " P ORS A1,DWTST,A6
0x057960…057af4 (0, 111) Dummy {f00=0x001b, f01=0x0190, f02=» IFT CPU852=1 } PDC:MOT INH ~ 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS ~ ( P XIF ~ ^ P* ~ j P EJECT TOSSIO ~ t P* ~ P* ~ P********** ~ P* TENDIO * ~ P********** ~ P* ~ P* ~ . P* THIS MODULE IS CALLED WHEN C
0x057af4…057c88 Dummy {f00=0x001b, f01=0x0190, f02=»THE TASK ~ r P* P* -IF NORMAL I/O WITH WAIT:- P* > * P* QTJOB IS CALLED TO QUEUE THE TASK H 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- v P* P* A5 = TTAB ADDRESS P* $ P* -IF NORMAL I/O WITH NO WAIT:-
0x057c88…057e1c Dummy {f00=0x001b, f01=0x0190, f02=»UT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. P* > P EJECT TOSSIO H P* ` P* j 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- t P* P* A1 = RETURN CODE P* P* A6 = DWT ADDRESS P* P* NO REGIS
0x057e1c…057fb0 Dummy {f00=0x001b, f01=0x0190, f02=»* P EJECT TOSSIO P* " P* END I/O ENTRY , P* D PTENDIO EQU * N P IFT CPU852=1 b & P CF A15,SAVE8 SAVE A1-A8 ON STACK x P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF
0x057fb0…058144 Dummy {f00=0x001b, f01=0x018e, f02=»,DWTTQ,A6 GET TERMINAL QUEUE LINK " P RF(Z) TEN110 NO TASK QUEUED? * P LD A2,TTB:ID,A5 GET TASK ID P P ANKL A2,/FF44 t P CWK A2,'#D' CHECK TASK ID " P RF(E) TEN100 DM REQUEST NEXT? P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 & P R
0x058144…0582d8 Dummy {f00=0x001b, f01=0x0190, f02=» P EJECT TOSSIO P* P* * PTEN100 EQU * 4 , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS H P ST A3,DWTTQ,A6 x . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST P* P* UPDATE ECB AND DWT P* 4 PTEN110 LD A5,DWTTAB,A6
0x0582d8…05846c Dummy {f00=0x001b, f01=0x0190, f02=»ET TTAB ADDRESS ~ 4 P CF A15,REQEND RESET REQUEST BUSY FOR ALL FILES P* P PTEN120 LDKL A2,/8000 Z , P ORRS A2,A4 INDICATE DEVICE READY IN DWT v P LDKL A3,/DBFF ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 $ P LD A3,DWTECB,A6 GET ECB ADDRESS
0x05846c…058600 Dummy {f00=0x001b, f01=0x0190, f02=»SET EVENT COMPLETED IN ECB , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB " P* R P IFT MMUPAG=1 P LD A4,TTB:PW,A5 GET PSW r & P ANK A4,1 GET SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE? P* P* LOAD MMU REGISTERS P*
0x058600…058794 (0, 112) Dummy {f00=0x001b, f01=0x018e, f02=»EGISTERS FROM TTAB x P* P EJECT TOSSIO $ P* < P* MOVE DWT ECB TO USER ECB F P* h * P LD A8,DWTUEC,A6 GET USER ECB ADDRESS r P ELR A4,A8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB P ESR A4,A8 P LDR A1,A3 P ADK
0x058794…058928 Dummy {f00=0x001b, f01=0x0190, f02=» 8 P LD A3,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK & P LD A3,DEVIND,A3 GET DEVICE INDEX D . P RF(N) TEN160 NO SPECIAL ACTION REQUIRED? n " P RF(Z) TEN140 DATA MANAGEMENT? P* " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,
0x058928…058abc Dummy {f00=0x001b, f01=0x0190, f02=» A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* < P EJECT TOSSIO F P* ^ P* RESTORE MMU REGISTERS h P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL
0x058abc…058c50 Dummy {f00=0x001b, f01=0x0190, f02=»IVATION b P* PTEN200 EQU * 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR . * P RF(Z) TEN250 NOT WAIT OR ACTIVATION? b P SUK A4,1 P RF(Z) TEN240 WAIT? P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) TEN230 ACTIVA
0x058c50…058de4 Dummy {f00=0x001b, f01=0x018e, f02=» RF(Z) TEN210 SYSTEM MODE? . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS " P XIF T P* ` PTEN210 EQU * j 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA ~ P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A3,A
0x058de4…058f78 Dummy {f00=0x001b, f01=0x0190, f02=» P* P EJECT TOSSIO P* & P* 0 PTEN230 EQU * : 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR N . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS P RF TEN250 P* PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TA
0x058f78…05910c Dummy {f00=0x001b, f01=0x40d2, f02=»2=1 P ABL IHRET8 P XIF P* , P IFT CPU852=0 6 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... L P RTN A15 ...AND RETURN z P XIF P* P* P* P END @ PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TA
0x05910c…0592a0 Dummy {f00=0x001b, f01=0x2008, f02=» NT TOSSIO END @ &
0x0592a0…059434 (0, 113) Dummy {f00=0x001c, f01=0x0190, f02=» T ! 2 ! , ( P @ X ! X ! W A @ X $ , ( )H - A A A @ A ! T , ( $" M @ T @ P ! ! @ T * & @ m @ X W A I , ( @ @ @ @ A
0x059434…0595c8 Dummy {f00=0x001c, f01=0x0190, f02=» B r , ( P* A @ T _2 _6 @ A A , ( ' @ X ! XD Y _N @ T X B , ( C ! P ! # T @ T ! r , ( @ a _ ! ! _ A A H E A , ( A 4 @ P ! ! ! @ , (
0x0595c8…05975c Dummy {f00=0x001c, f01=0x0190, f02=» A A t , ( T A A A ! ! A _^ @ , ( " ! X ! X Zp X D , ( / D Xp Xt_~ @ P X R X t , ( K P T T Y W P , ( P iH C A A 4 @ , ( $
0x05975c…0598f0 Dummy {f00=0x001c, f01=0x0190, f02=» , ( @ @ E ! P ! 4 , ( @ _$ ! 2_l / A T W ,W 4 , ( ( % A A W W W A A d , ( E ! @ ! @ ! ! ! , ( e B J 4 ! ! @ @ A , ( @ T @
0x0598f0…059a84 Dummy {f00=0x001c, f01=0x0190, f02=» P " ! " :A *@ H , ( T 0 ! W R ! A @ @ $ , ( # U Zx Q P Q T 0 ! T , ( ! C A 0 ! A ! " ! , ( c " ! X A _" A A ! , ( ! % ! R ! ! @
0x059a84…059c18 Dummy {f00=0x001c, f01=0x0190, f02=» , ( ! 4 A " ? J T A IH1502 8 , ( T 2P ! H 4 ! A L , ( " ? _ I " P A < ( | , ( P 7 A 2 4 A _$" P H B , ( U P W ! _ ! ! 1
0x059c18…059dac Dummy {f00=0x001c, f01=0x0190, f02=» _ @ A 2 @ T , ( )@ < @ A 2 A , ( @ a 2 4 X A P , ( I > Z A 4 A < , ( R + ! @ @ P ! 8 ! @ P a , ( @ K A 4 A A A ?a :a# P
0x059dac…059f40 Dummy {f00=0x001c, f01=0x0190, f02=» z " ` @ , ( & :f"? H ! d "? H ! d 4 ABC R , ( ' DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , ( '! UVWXYZ@,%_>?0123456789:[ '=" , ( 'A
0x059f40…05a0d4 (0, 114) Opaque[0x194]
0x05a0d4…05a268 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x05a0d4…05a268 IdxSect {
0x05a0d4…05a268 f00 = 0x001c // 0x5a0d4 @0x0
0x05a0d4…05a268 f01 = 0x0036 // 0x5a0d6 @0x2
0x05a0d4…05a268 gno = [ // 0x5a0d8 @0x4
0x05a0d4…05a268 [0x00]: C0x001c.0x1.0
0x05a0d4…05a268 [0x01]: C0x001c.0x2.0
0x05a0d4…05a268 [0x02]: C0x001c.0x3.0
0x05a0d4…05a268 [0x03]: C0x001d.0x0.0
0x05a0d4…05a268 [0x04]: C0x001d.0x1.0
0x05a0d4…05a268 [0x05]: C0x001d.0x2.0
0x05a0d4…05a268 [0x06]: C0x001d.0x3.0
0x05a0d4…05a268 [0x07]: C0x001e.0x0.0
0x05a0d4…05a268 [0x08]: C0x001e.0x1.0
0x05a0d4…05a268 [0x09]: C0x001e.0x2.0
0x05a0d4…05a268 [0x0a]: C0x001e.0x3.0
0x05a0d4…05a268 [0x0b]: C0x001f.0x0.0
0x05a0d4…05a268 [0x0c]: C0x001f.0x1.0
0x05a0d4…05a268 [0x0d]: C0x001f.0x2.0
0x05a0d4…05a268 [0x0e]: C0x001f.0x3.0
0x05a0d4…05a268 [0x0f]: C0x0020.0x0.0
0x05a0d4…05a268 [0x10]: C0x0020.0x1.0
0x05a0d4…05a268 [0x11]: C0x0020.0x2.0
0x05a0d4…05a268 [0x12]: C0x0020.0x3.0
0x05a0d4…05a268 [0x13]: C0x0021.0x0.0
0x05a0d4…05a268 [0x14]: C0x0021.0x1.0
0x05a0d4…05a268 [0x15]: C0x0021.0x2.0
0x05a0d4…05a268 [0x16]: C0x0021.0x3.0
0x05a0d4…05a268 [0x17]: C0x0022.0x0.0
0x05a0d4…05a268 [0x18]: C0x0022.0x1.0
0x05a0d4…05a268 [0x19]: C0x0022.0x2.0
0x05a0d4…05a268 [0x1a]: C0x0022.0x3.0
0x05a0d4…05a268 ]
0x05a0d4…05a268 }
0x05a268…05a3fc Dummy {f00=0x001c, 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
0x05a3fc…05a590 Dummy {f00=0x001c, 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
0x05a590…05a724 Dummy {f00=0x001c, 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
0x05a724…05a8b8 Dummy {f00=0x001c, 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
0x05a8b8…05aa4c Dummy {f00=0x001c, 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
0x05aa4c…05abe0 Dummy {f00=0x001c, f01=0x0190, f02=» P P , P*************************************** , P* CONDITIONAL ASSEMBLY * D , P*************************************** t P ( PMMUPAG EQU 1 MEMORY MANAGEMENT UNIT & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS $ PCREDIT
0x05abe0…05ad74 (0, 115) Dummy {f00=0x001c, 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**********************
0x05ad74…05af08 Dummy {f00=0x001c, 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
0x05af08…05b09c Dummy {f00=0x001c, 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
0x05b09c…05b230 Dummy {f00=0x001c, 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
0x05b230…05b3c4 Dummy {f00=0x001c, 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*
0x05b3c4…05b558 Dummy {f00=0x001c, f01=0x0190, f02=»*************************************************************** P H P T P ` PCALL FORM 16=/F697,16 l P EJECT F P***************************************************************** F P* CONSTANTS USED IN SYS
0x05b558…05b6ec Dummy {f00=0x001c, 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
0x05b6ec…05b880 Dummy {f00=0x001c, 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
0x05b880…05ba14 (0, 116) Dummy {f00=0x001c, 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*
0x05ba14…05bba8 Dummy {f00=0x001c, 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
0x05bba8…05bd3c Dummy {f00=0x001c, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * P : P* * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * :
0x05bd3c…05bed0 Dummy {f00=0x001c, f01=0x0190, f02=»TERS: * : P* * 4 : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDA * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * : P*
0x05bed0…05c064 Dummy {f00=0x001c, 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
0x05c064…05c1f8 Dummy {f00=0x001c, 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
0x05c1f8…05c38c Dummy {f00=0x001c, 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 /*
0x05c38c…05c520 Dummy {f00=0x001c, 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: *
0x05c520…05c6b4 (0, 117) Dummy {f00=0x001d, 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
0x05c6b4…05c848 Dummy {f00=0x001d, 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
0x05c848…05c9dc Dummy {f00=0x001d, 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
0x05c9dc…05cb70 Dummy {f00=0x001d, 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
0x05cb70…05cd04 Dummy {f00=0x001d, 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
0x05cd04…05ce98 Dummy {f00=0x001d, f01=0x0190, f02=»___________________ z . ** I TTMJOB I . )* _________________________ N . ** I MONITOR TASKS I . )* _________________________ . ** I USER TASKS
0x05ce98…05d02c Dummy {f00=0x001d, 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?
0x05d02c…05d1c0 Dummy {f00=0x001d, 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
0x05d1c0…05d354 (0, 118) Dummy {f00=0x001d, 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
0x05d354…05d4e8 Dummy {f00=0x001d, 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
0x05d4e8…05d67c Dummy {f00=0x001d, 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
0x05d67c…05d810 Dummy {f00=0x001d, 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
0x05d810…05d9a4 Dummy {f00=0x001d, 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 "
0x05d9a4…05db38 Dummy {f00=0x001d, 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
0x05db38…05dccc Dummy {f00=0x001d, 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
0x05dccc…05de60 Dummy {f00=0x001d, f01=0x018e, f02=» RTN A14 % EJECT % 6 2************************************************** % " 6 2* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * % 6 2************************************************** % * % * ENTRY: A1 - TASK ID % , (* A6
0x05de60…05dff4 (0, 119) Dummy {f00=0x001d, 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 * &
0x05dff4…05e188 Dummy {f00=0x001d, 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 *
0x05e188…05e31c Dummy {f00=0x001d, 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
0x05e31c…05e4b0 Dummy {f00=0x001d, 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 )
0x05e4b0…05e644 Dummy {f00=0x001d, 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 * *
0x05e644…05e7d8 Dummy {f00=0x001d, f01=0x0190, f02=»* TASK TABLE LAYOUT * * &* ________________________ + , * &* I MMU I + Z * &* I TABLE I + * &* I 16 I + * &* I WORDS
0x05e7d8…05e96c Dummy {f00=0x001d, f01=0x0190, f02=»---- + n * &* TASK ENTRY I QUEUE I , * &* ------------------------ , : * &* TTB:ID I TASK IDENTIFICATION I , h * &* ------------------------ , * &* TTB:ST I STATUS/LEVEL I , * &* --------
0x05e96c…05eb00 Dummy {f00=0x001d, f01=0x0190, f02=»RAM STATUS WORD I , | * &* ------------------------ - * &* TTB:SA I DISPATCH ADDRESS I - H * &* ------------------------ - v * &* I REGISTER I - * &* I SAVE I - * &*
0x05eb00…05ec94 (0, 120) Dummy {f00=0x001d, f01=0x0190, f02=» ------------------------ - * &* TTB:TD I TASK I . ( * P* I SAVE01URATION I . V * &* I TABLE I . * &* : : . * &* : : .
0x05ec94…05ee28 Dummy {f00=0x001d, f01=0x018e, f02=» ______________________________ . 0 ,* I LENGTH I / * 0 ,* ------------------------------ / ^ 0 ,* I INDEX/FILCODE I / 0 ,* ------------------------------ / 0 ,*
0x05ee28…05efbc Dummy {f00=0x001d, f01=0x0190, f02=» / b 0 ,* : : 0 0 ,* ------------------------------ 0 < 0 ,* I INDEX/FILECODE I 0 p 0 ,* ------------------------------ 0 0 ,* I DWT-ADDRESS I 0
0x05efbc…05f150 Dummy {f00=0x001d, 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,
0x05f150…05f2e4 Dummy {f00=0x001d, 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
0x05f2e4…05f478 Dummy {f00=0x001d, 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
0x05f478…05f60c Dummy {f00=0x001d, 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
0x05f60c…05f7a0 Dummy {f00=0x001d, 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
0x05f7a0…05f934 (0, 121) Dummy {f00=0x001e, 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
0x05f934…05fac8 Dummy {f00=0x001e, 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
0x05fac8…05fc5c Dummy {f00=0x001e, 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
0x05fc5c…05fdf0 Dummy {f00=0x001e, 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
0x05fdf0…05ff84 Dummy {f00=0x001e, 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
0x05ff84…060118 Dummy {f00=0x001e, 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
0x060118…0602ac Dummy {f00=0x001e, 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
0x0602ac…060440 Dummy {f00=0x001e, 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
0x060440…0605d4 (0, 122) Dummy {f00=0x001e, 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 >
0x0605d4…060768 Dummy {f00=0x001e, 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
0x060768…0608fc Dummy {f00=0x001e, 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
0x0608fc…060a90 Dummy {f00=0x001e, 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
0x060a90…060c24 Dummy {f00=0x001e, 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
0x060c24…060db8 Dummy {f00=0x001e, 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
0x060db8…060f4c Dummy {f00=0x001e, 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
0x060f4c…0610e0 Dummy {f00=0x001e, 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
0x0610e0…061274 (0, 123) Dummy {f00=0x001e, 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
0x061274…061408 Dummy {f00=0x001e, 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
0x061408…06159c Dummy {f00=0x001e, 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
0x06159c…061730 Dummy {f00=0x001e, f01=0x0190, f02=» P EJECT I D P*************************************************************** I D P* * I Z D P* * I D P*
0x061730…0618c4 Dummy {f00=0x001e, f01=0x0190, f02=»============================== * I z D P* * J 2 D P* REFERENCED IN: SYSLDM * J z D P* * J D
0x0618c4…061a58 Dummy {f00=0x001e, f01=0x0190, f02=»* J R D P* EXIT: * K D P* * K R D P* WORK REGISTERS: A1-A12 * K D P*
0x061a58…061bec Dummy {f00=0x001e, 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*
0x061bec…061d80 Dummy {f00=0x001e, f01=0x0190, f02=» D P* * M D P* * M L D P*************************************************************** M P EJECT M PB:SWBT EQU * M & P LD A12,SC
0x061d80…061f14 (0, 124) Dummy {f00=0x001e, 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
0x061f14…0620a8 Dummy {f00=0x001e, 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
0x0620a8…06223c Dummy {f00=0x001e, 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
0x06223c…0623d0 Dummy {f00=0x001e, 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
0x0623d0…062564 Dummy {f00=0x001e, 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
0x062564…0626f8 Dummy {f00=0x001e, 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
0x0626f8…06288c Dummy {f00=0x001e, 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
0x06288c…062a20 Dummy {f00=0x001e, 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
0x062a20…062bb4 (0, 125) Dummy {f00=0x001f, 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
0x062bb4…062d48 Dummy {f00=0x001f, 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
0x062d48…062edc Dummy {f00=0x001f, 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
0x062edc…063070 Dummy {f00=0x001f, 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
0x063070…063204 Dummy {f00=0x001f, 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
0x063204…063398 Dummy {f00=0x001f, 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
0x063398…06352c Dummy {f00=0x001f, 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*
0x06352c…0636c0 Dummy {f00=0x001f, 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
0x0636c0…063854 (0, 126) Dummy {f00=0x001f, 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 * ^
0x063854…0639e8 Dummy {f00=0x001f, 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 * _ * %********
0x0639e8…063b7c Dummy {f00=0x001f, 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
0x063b7c…063d10 Dummy {f00=0x001f, f01=0x0190, f02=» -------------------- ` 0 ,* I DATA 0 I a $ 0 ,* -------------------- a X 0 ,* I DATA 0 I a 0 ,* -------------------- a * a EJECT a
0x063d10…063ea4 Dummy {f00=0x001f, 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
0x063ea4…064038 Dummy {f00=0x001f, 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
0x064038…0641cc Dummy {f00=0x001f, 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
0x0641cc…064360 Dummy {f00=0x001f, 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 * &
0x064360…0644f4 (0, 127) Dummy {f00=0x001f, 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
0x0644f4…064688 Dummy {f00=0x001f, 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
0x064688…06481c Dummy {f00=0x001f, 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 * &
0x06481c…0649b0 Dummy {f00=0x001f, 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
0x0649b0…064b44 Dummy {f00=0x001f, 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
0x064b44…064cd8 Dummy {f00=0x001f, 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
0x064cd8…064e6c Dummy {f00=0x001f, 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 /
0x064e6c…065000 Dummy {f00=0x001f, 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
0x065000…065194 (0, 128) Dummy {f00=0x001f, 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******************************************
0x065194…065328 Dummy {f00=0x001f, 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
0x065328…0654bc Dummy {f00=0x001f, 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
0x0654bc…065650 Dummy {f00=0x001f, 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?
0x065650…0657e4 Dummy {f00=0x001f, 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
0x0657e4…065978 Dummy {f00=0x001f, 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
0x065978…065b0c Dummy {f00=0x001f, 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
0x065b0c…065ca0 Dummy {f00=0x001f, 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
0x065ca0…065e34 (0, 129) Dummy {f00=0x0020, 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
0x065e34…065fc8 Dummy {f00=0x0020, 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
0x065fc8…06615c Dummy {f00=0x0020, 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
0x06615c…0662f0 Dummy {f00=0x0020, 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
0x0662f0…066484 Dummy {f00=0x0020, 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
0x066484…066618 Dummy {f00=0x0020, 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
0x066618…0667ac Dummy {f00=0x0020, 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 * | , (**************************************** | * | *
0x0667ac…066940 Dummy {f00=0x0020, 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
0x066940…066ad4 (0, 130) Dummy {f00=0x0020, 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 ~
0x066ad4…066c68 Dummy {f00=0x0020, 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
0x066c68…066dfc Dummy {f00=0x0020, 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
0x066dfc…066f90 Dummy {f00=0x0020, 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
0x066f90…067124 Dummy {f00=0x0020, 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
0x067124…0672b8 Dummy {f00=0x0020, 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
0x0672b8…06744c Dummy {f00=0x0020, 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
0x06744c…0675e0 Dummy {f00=0x0020, 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
0x0675e0…067774 (0, 131) Dummy {f00=0x0020, 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
0x067774…067908 Dummy {f00=0x0020, 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
0x067908…067a9c Dummy {f00=0x0020, 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
0x067a9c…067c30 Dummy {f00=0x0020, 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)
0x067c30…067dc4 Dummy {f00=0x0020, 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
0x067dc4…067f58 Dummy {f00=0x0020, 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
0x067f58…0680ec Dummy {f00=0x0020, 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
0x0680ec…068280 Dummy {f00=0x0020, 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
0x068280…068414 (0, 132) Dummy {f00=0x0020, 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,
0x068414…0685a8 Dummy {f00=0x0020, 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
0x0685a8…06873c Dummy {f00=0x0020, 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**************************
0x06873c…0688d0 Dummy {f00=0x0020, 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,
0x0688d0…068a64 Dummy {f00=0x0020, 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
0x068a64…068bf8 Dummy {f00=0x0020, 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
0x068bf8…068d8c Dummy {f00=0x0020, 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 *
0x068d8c…068f20 Dummy {f00=0x0020, 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
0x068f20…0690b4 (0, 133) Dummy {f00=0x0021, 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
0x0690b4…069248 Dummy {f00=0x0021, 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
0x069248…0693dc Dummy {f00=0x0021, 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
0x0693dc…069570 Dummy {f00=0x0021, 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
0x069570…069704 Dummy {f00=0x0021, 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
0x069704…069898 Dummy {f00=0x0021, 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
0x069898…069a2c Dummy {f00=0x0021, 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
0x069a2c…069bc0 Dummy {f00=0x0021, 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
0x069bc0…069d54 (0, 134) Dummy {f00=0x0021, 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
0x069d54…069ee8 Dummy {f00=0x0021, 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*
0x069ee8…06a07c Dummy {f00=0x0021, 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
0x06a07c…06a210 Dummy {f00=0x0021, 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
0x06a210…06a3a4 Dummy {f00=0x0021, 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
0x06a3a4…06a538 Dummy {f00=0x0021, f01=0x0190, f02=»DWTEX EQU * RTN A14 RETURN EJECT , * %************************************* : * %* I:CHP - INIT CHANNEL PARAMETER * h * %************************************* * * REFERENCED IN: DWTGEN * , (* ENTRY: A1 -
0x06a538…06a6cc Dummy {f00=0x0021, 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
0x06a6cc…06a860 Dummy {f00=0x0021, 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
0x06a860…06a9f4 (0, 135) Dummy {f00=0x0021, 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
0x06a9f4…06ab88 Dummy {f00=0x0021, 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
0x06ab88…06ad1c Dummy {f00=0x0021, 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,
0x06ad1c…06aeb0 Dummy {f00=0x0021, 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
0x06aeb0…06b044 Dummy {f00=0x0021, 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
0x06b044…06b1d8 Dummy {f00=0x0021, 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
0x06b1d8…06b36c Dummy {f00=0x0021, 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
0x06b36c…06b500 Dummy {f00=0x0021, 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
0x06b500…06b694 (0, 136) Dummy {f00=0x0021, 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
0x06b694…06b828 Dummy {f00=0x0021, 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
0x06b828…06b9bc Dummy {f00=0x0021, 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
0x06b9bc…06bb50 Dummy {f00=0x0021, 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.
0x06bb50…06bce4 Dummy {f00=0x0021, 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
0x06bce4…06be78 Dummy {f00=0x0021, 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 *
0x06be78…06c00c Dummy {f00=0x0021, 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
0x06c00c…06c1a0 Dummy {f00=0x0021, 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
0x06c1a0…06c334 (0, 137) Dummy {f00=0x0022, 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
0x06c334…06c4c8 Dummy {f00=0x0022, 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
0x06c4c8…06c65c Dummy {f00=0x0022, 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
0x06c65c…06c7f0 Dummy {f00=0x0022, 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
0x06c7f0…06c984 Dummy {f00=0x0022, 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
0x06c984…06cb18 Dummy {f00=0x0022, 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.
0x06cb18…06ccac Dummy {f00=0x0022, f01=0x0190, f02=»*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL SUBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************************************
0x06ccac…06ce40 Dummy {f00=0x0022, 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
0x06ce40…06cfd4 (0, 138) Dummy {f00=0x0022, 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**
0x06cfd4…06d168 Dummy {f00=0x0022, 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,
0x06d168…06d2fc Dummy {f00=0x0022, 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 -
0x06d2fc…06d490 Dummy {f00=0x0022, 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 .****************
0x06d490…06d624 Dummy {f00=0x0022, 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
0x06d624…06d7b8 Dummy {f00=0x0022, 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) *
0x06d7b8…06d94c Dummy {f00=0x0022, 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
0x06d94c…06dae0 Dummy {f00=0x0022, f01=0x0190, f02=» * f : P* REFERENCED IN: B:TT * : P* * R : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* *
0x06dae0…06dc74 (0, 139) Dummy {f00=0x0022, f01=0x0190, f02=»REGISTERS: A1-A7,A10 * : P* * 6 : P* SUBROUTINES: GETTSK,NXTBLK * t : P* * : P************************
0x06dc74…06de08 Dummy {f00=0x0022, 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
0x06de08…06df9c Dummy {f00=0x0022, 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 >****************************************************
0x06df9c…06e130 Dummy {f00=0x0022, f01=0x018e, f02=»ONVERTED * j * " B >************************************************************** , * r * REFERENCED IN: B:DWTT | * , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED
0x06e130…06e2c4 Dummy {f00=0x0022, 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
0x06e2c4…06e458 Dummy {f00=0x0022, f01=0x018e, f02=»***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** L * ~ * REFERENCED IN: SEGGEN * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X)
0x06e458…06e5ec Dummy {f00=0x0022, 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
0x06e5ec…06e780 Dummy {f00=0x0022, 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
0x06e780…06e914 (0, 140) Dummy {f00=0x0022, 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
0x06e914…06eaa8 Dummy {f00=0x0022, 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
0x06eaa8…06ec3c Dummy {f00=0x0022, 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 *
0x06ec3c…06edd0 Dummy {f00=0x0022, 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 *
0x06edd0…06ef64 Dummy {f00=0x0022, 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 *
0x06ef64…06f0f8 Dummy {f00=0x0022, f01=0x2008, f02=» P X ` h p
0x06f0f8…06f28c Dummy {f00=0x0022, 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
0x06f28c…06f420 Dummy {f00=0x0022, 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
0x06f420…06f5b4 (0, 141) Opaque[0x194]
0x06f5b4…06f748 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0460, f03=0x0000}
0x06f5b4…06f748 IdxSect {
0x06f5b4…06f748 f00 = 0x0023 // 0x6f5b4 @0x0
0x06f5b4…06f748 f01 = 0x0054 // 0x6f5b6 @0x2
0x06f5b4…06f748 gno = [ // 0x6f5b8 @0x4
0x06f5b4…06f748 [0x00]: C0x0023.0x0.0
0x06f5b4…06f748 [0x01]: C0x0023.0x1.0
0x06f5b4…06f748 [0x02]: C0x0023.0x2.0
0x06f5b4…06f748 [0x03]: C0x0023.0x3.0
0x06f5b4…06f748 [0x04]: C0x0024.0x0.0
0x06f5b4…06f748 [0x05]: C0x0024.0x1.0
0x06f5b4…06f748 [0x06]: C0x0024.0x2.0
0x06f5b4…06f748 [0x07]: C0x0024.0x3.0
0x06f5b4…06f748 [0x08]: C0x0025.0x0.0
0x06f5b4…06f748 [0x09]: C0x0025.0x1.0
0x06f5b4…06f748 [0x0a]: C0x0025.0x2.0
0x06f5b4…06f748 [0x0b]: C0x0025.0x3.0
0x06f5b4…06f748 [0x0c]: C0x0026.0x0.0
0x06f5b4…06f748 [0x0d]: C0x0026.0x1.0
0x06f5b4…06f748 [0x0e]: C0x0026.0x2.0
0x06f5b4…06f748 [0x0f]: C0x0026.0x3.0
0x06f5b4…06f748 [0x10]: C0x0027.0x0.0
0x06f5b4…06f748 [0x11]: C0x0027.0x1.0
0x06f5b4…06f748 [0x12]: C0x0027.0x2.0
0x06f5b4…06f748 [0x13]: C0x0027.0x3.0
0x06f5b4…06f748 [0x14]: C0x0028.0x0.0
0x06f5b4…06f748 [0x15]: C0x0028.0x1.0
0x06f5b4…06f748 [0x16]: C0x0028.0x2.0
0x06f5b4…06f748 [0x17]: C0x0028.0x3.0
0x06f5b4…06f748 [0x18]: C0x0029.0x0.0
0x06f5b4…06f748 [0x19]: C0x0029.0x1.0
0x06f5b4…06f748 [0x1a]: C0x0029.0x2.0
0x06f5b4…06f748 [0x1b]: C0x0029.0x3.0
0x06f5b4…06f748 [0x1c]: C0x002a.0x0.0
0x06f5b4…06f748 [0x1d]: C0x002a.0x1.0
0x06f5b4…06f748 [0x1e]: C0x002a.0x2.0
0x06f5b4…06f748 [0x1f]: C0x002a.0x3.0
0x06f5b4…06f748 [0x20]: C0x002b.0x0.0
0x06f5b4…06f748 [0x21]: C0x002b.0x1.0
0x06f5b4…06f748 [0x22]: C0x002b.0x2.0
0x06f5b4…06f748 [0x23]: C0x002b.0x3.0
0x06f5b4…06f748 [0x24]: C0x002c.0x0.0
0x06f5b4…06f748 [0x25]: C0x002c.0x1.0
0x06f5b4…06f748 [0x26]: C0x002c.0x2.0
0x06f5b4…06f748 [0x27]: C0x002c.0x3.0
0x06f5b4…06f748 [0x28]: C0x002d.0x0.0
0x06f5b4…06f748 [0x29]: C0x002d.0x1.0
0x06f5b4…06f748 ]
0x06f5b4…06f748 }
0x06f748…06f8dc Dummy {f00=0x0023, 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
0x06f8dc…06fa70 Dummy {f00=0x0023, 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
0x06fa70…06fc04 Dummy {f00=0x0023, 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
0x06fc04…06fd98 Dummy {f00=0x0023, 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
0x06fd98…06ff2c Dummy {f00=0x0023, 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*
0x06ff2c…0700c0 Dummy {f00=0x0023, 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* *
0x0700c0…070254 (0, 142) Dummy {f00=0x0023, 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
0x070254…0703e8 Dummy {f00=0x0023, 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
0x0703e8…07057c Dummy {f00=0x0023, 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
0x07057c…070710 Dummy {f00=0x0023, 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 =
0x070710…0708a4 Dummy {f00=0x0023, 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
0x0708a4…070a38 Dummy {f00=0x0023, 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
0x070a38…070bcc Dummy {f00=0x0023, 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
0x070bcc…070d60 Dummy {f00=0x0023, 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*
0x070d60…070ef4 (0, 143) Dummy {f00=0x0023, 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
0x070ef4…071088 Dummy {f00=0x0023, 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* !----------------------------------------------
0x071088…07121c Dummy {f00=0x0023, 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*
0x07121c…0713b0 Dummy {f00=0x0023, 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.
0x0713b0…071544 Dummy {f00=0x0023, 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
0x071544…0716d8 Dummy {f00=0x0023, 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
0x0716d8…07186c Dummy {f00=0x0023, 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
0x07186c…071a00 Dummy {f00=0x0023, 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
0x071a00…071b94 (0, 144) Dummy {f00=0x0023, 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
0x071b94…071d28 Dummy {f00=0x0023, 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
0x071d28…071ebc Dummy {f00=0x0023, f01=0x0190, f02=» ! b F P* ! -CONTINUE IN PART 2.A ! F P* !-----------------------------------------------------! f P EJECT P P ***************** P ***************** P **
0x071ebc…072050 Dummy {f00=0x0023, 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
0x072050…0721e4 Dummy {f00=0x0023, 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
0x0721e4…072378 Dummy {f00=0x0023, 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
0x072378…07250c Dummy {f00=0x0023, 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
0x07250c…0726a0 Dummy {f00=0x0023, 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-
0x0726a0…072834 (0, 145) Dummy {f00=0x0024, 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
0x072834…0729c8 Dummy {f00=0x0024, 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
0x0729c8…072b5c Dummy {f00=0x0024, 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 -"-
0x072b5c…072cf0 Dummy {f00=0x0024, 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
0x072cf0…072e84 Dummy {f00=0x0024, 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****
0x072e84…073018 Dummy {f00=0x0024, 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:
0x073018…0731ac Dummy {f00=0x0024, 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**********************************************
0x0731ac…073340 Dummy {f00=0x0024, f01=0x0190, f02=» [REL-ADDRESS] * $ n F P* * % ( F P***************************************************************** % r P % P % P % PCALL FORM 16=/F697,16 % P EJECT %
0x073340…0734d4 (0, 146) Dummy {f00=0x0024, f01=0x0190, f02=» ** % 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & 6 6 P** ** & p 6 P************************************************** & 6 P************************************
0x0734d4…073668 Dummy {f00=0x0024, 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****************
0x073668…0737fc Dummy {f00=0x0024, 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******************************
0x0737fc…073990 Dummy {f00=0x0024, 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
0x073990…073b24 Dummy {f00=0x0024, 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
0x073b24…073cb8 Dummy {f00=0x0024, 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**************
0x073cb8…073e4c Dummy {f00=0x0024, 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 , *
0x073e4c…073fe0 Dummy {f00=0x0024, 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
0x073fe0…074174 (0, 147) Dummy {f00=0x0024, 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 .
0x074174…074308 Dummy {f00=0x0024, 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 /
0x074308…07449c Dummy {f00=0x0024, 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
0x07449c…074630 Dummy {f00=0x0024, 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
0x074630…0747c4 Dummy {f00=0x0024, 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
0x0747c4…074958 Dummy {f00=0x0024, 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
0x074958…074aec Dummy {f00=0x0024, 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
0x074aec…074c80 Dummy {f00=0x0024, 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
0x074c80…074e14 (0, 148) Dummy {f00=0x0024, 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
0x074e14…074fa8 Dummy {f00=0x0024, 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
0x074fa8…07513c Dummy {f00=0x0024, 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
0x07513c…0752d0 Dummy {f00=0x0024, 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
0x0752d0…075464 Dummy {f00=0x0024, 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
0x075464…0755f8 Dummy {f00=0x0024, 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
0x0755f8…07578c Dummy {f00=0x0024, 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************************************
0x07578c…075920 Dummy {f00=0x0024, 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 =
0x075920…075ab4 (0, 149) Dummy {f00=0x0025, 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**
0x075ab4…075c48 Dummy {f00=0x0025, 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**
0x075c48…075ddc Dummy {f00=0x0025, 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
0x075ddc…075f70 Dummy {f00=0x0025, 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
0x075f70…076104 Dummy {f00=0x0025, 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
0x076104…076298 Dummy {f00=0x0025, 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
0x076298…07642c Dummy {f00=0x0025, 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
0x07642c…0765c0 Dummy {f00=0x0025, 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
0x0765c0…076754 (0, 150) Dummy {f00=0x0025, 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
0x076754…0768e8 Dummy {f00=0x0025, 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
0x0768e8…076a7c Dummy {f00=0x0025, 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
0x076a7c…076c10 Dummy {f00=0x0025, 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
0x076c10…076da4 Dummy {f00=0x0025, 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
0x076da4…076f38 Dummy {f00=0x0025, 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
0x076f38…0770cc Dummy {f00=0x0025, 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
0x0770cc…077260 Dummy {f00=0x0025, 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
0x077260…0773f4 (0, 151) Dummy {f00=0x0025, 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
0x0773f4…077588 Dummy {f00=0x0025, 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
0x077588…07771c Dummy {f00=0x0025, 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
0x07771c…0778b0 Dummy {f00=0x0025, 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
0x0778b0…077a44 Dummy {f00=0x0025, 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)
0x077a44…077bd8 Dummy {f00=0x0025, 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**
0x077bd8…077d6c Dummy {f00=0x0025, 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
0x077d6c…077f00 Dummy {f00=0x0025, 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
0x077f00…078094 (0, 152) Dummy {f00=0x0025, 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
0x078094…078228 Dummy {f00=0x0025, 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
0x078228…0783bc Dummy {f00=0x0025, 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
0x0783bc…078550 Dummy {f00=0x0025, 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
0x078550…0786e4 Dummy {f00=0x0025, 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
0x0786e4…078878 Dummy {f00=0x0025, 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
0x078878…078a0c Dummy {f00=0x0025, 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
0x078a0c…078ba0 Dummy {f00=0x0025, 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
0x078ba0…078d34 (0, 153) Dummy {f00=0x0026, 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
0x078d34…078ec8 Dummy {f00=0x0026, 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
0x078ec8…07905c Dummy {f00=0x0026, 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
0x07905c…0791f0 Dummy {f00=0x0026, 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
0x0791f0…079384 Dummy {f00=0x0026, 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
0x079384…079518 Dummy {f00=0x0026, 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
0x079518…0796ac Dummy {f00=0x0026, 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
0x0796ac…079840 Dummy {f00=0x0026, 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
0x079840…0799d4 (0, 154) Dummy {f00=0x0026, 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
0x0799d4…079b68 Dummy {f00=0x0026, 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
0x079b68…079cfc Dummy {f00=0x0026, 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)
0x079cfc…079e90 Dummy {f00=0x0026, 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
0x079e90…07a024 Dummy {f00=0x0026, 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
0x07a024…07a1b8 Dummy {f00=0x0026, 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
0x07a1b8…07a34c Dummy {f00=0x0026, 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
0x07a34c…07a4e0 Dummy {f00=0x0026, 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
0x07a4e0…07a674 (0, 155) Dummy {f00=0x0026, 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
0x07a674…07a808 Dummy {f00=0x0026, 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
0x07a808…07a99c Dummy {f00=0x0026, 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=
0x07a99c…07ab30 Dummy {f00=0x0026, 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=
0x07ab30…07acc4 Dummy {f00=0x0026, 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
0x07acc4…07ae58 Dummy {f00=0x0026, 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,
0x07ae58…07afec Dummy {f00=0x0026, 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
0x07afec…07b180 Dummy {f00=0x0026, 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
0x07b180…07b314 (0, 156) Dummy {f00=0x0026, 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
0x07b314…07b4a8 Dummy {f00=0x0026, 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**
0x07b4a8…07b63c Dummy {f00=0x0026, 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
0x07b63c…07b7d0 Dummy {f00=0x0026, f01=0x018e, f02=»************************************* x v D P* * y . D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * y v D P* ===================================== * y D P*
0x07b7d0…07b964 Dummy {f00=0x0026, 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
0x07b964…07baf8 Dummy {f00=0x0026, 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*
0x07baf8…07bc8c Dummy {f00=0x0026, 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 |
0x07bc8c…07be20 Dummy {f00=0x0026, 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
0x07be20…07bfb4 (0, 157) Dummy {f00=0x0027, 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
0x07bfb4…07c148 Dummy {f00=0x0027, 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**************************************
0x07c148…07c2dc Dummy {f00=0x0027, f01=0x0190, f02=»KMVD - CHECK IF BLOCK ALREADY MOVED * ~ J P* ===================================== * < J P* * J P* REFERENCED IN: MOVCOM,MOVCLA
0x07c2dc…07c470 Dummy {f00=0x0027, 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
0x07c470…07c604 Dummy {f00=0x0027, f01=0x0190, f02=» * j J P* * ( J P* SUBROUTINES: * v J P*
0x07c604…07c798 Dummy {f00=0x0027, 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
0x07c798…07c92c Dummy {f00=0x0027, 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**
0x07c92c…07cac0 Dummy {f00=0x0027, 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
0x07cac0…07cc54 (0, 158) Dummy {f00=0x0027, 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
0x07cc54…07cde8 Dummy {f00=0x0027, f01=0x0190, f02=» ** 4 P** ** ( 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** ` 4 P** ** 4 P** INPUT : A3,A2 ** 4 P
0x07cde8…07cf7c Dummy {f00=0x0027, 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
0x07cf7c…07d110 Dummy {f00=0x0027, 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 **
0x07d110…07d2a4 Dummy {f00=0x0027, 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
0x07d2a4…07d438 Dummy {f00=0x0027, 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**
0x07d438…07d5cc Dummy {f00=0x0027, 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
0x07d5cc…07d760 Dummy {f00=0x0027, 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
0x07d760…07d8f4 (0, 159) Dummy {f00=0x0027, 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**
0x07d8f4…07da88 Dummy {f00=0x0027, 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
0x07da88…07dc1c Dummy {f00=0x0027, 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
0x07dc1c…07ddb0 Dummy {f00=0x0027, 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
0x07ddb0…07df44 Dummy {f00=0x0027, 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
0x07df44…07e0d8 Dummy {f00=0x0027, 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
0x07e0d8…07e26c Dummy {f00=0x0027, f01=0x0190, f02=»T ** v 4 P** ** 4 P** ** V 4 P** MOVE MM-TABLE ** 4 P** ** 4 P** INPUT
0x07e26c…07e400 Dummy {f00=0x0027, 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
0x07e400…07e594 (0, 160) Dummy {f00=0x0027, 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
0x07e594…07e728 Dummy {f00=0x0027, f01=0x0190, f02=»=========== * b @ P* * @ P* * Z @ P* REFERENCED IN: SYSLDA PART 2 B. * @ P*
0x07e728…07e8bc Dummy {f00=0x0027, f01=0x0190, f02=»NTRY IN REAL T:ATAB * j @ P* * @ P* EXIT: * b @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8
0x07e8bc…07ea50 Dummy {f00=0x0027, 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
0x07ea50…07ebe4 Dummy {f00=0x0027, 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
0x07ebe4…07ed78 Dummy {f00=0x0027, 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
0x07ed78…07ef0c Dummy {f00=0x0027, 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 =
0x07ef0c…07f0a0 Dummy {f00=0x0027, 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**
0x07f0a0…07f234 (0, 161) Dummy {f00=0x0028, 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
0x07f234…07f3c8 Dummy {f00=0x0028, 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
0x07f3c8…07f55c Dummy {f00=0x0028, 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
0x07f55c…07f6f0 Dummy {f00=0x0028, 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
0x07f6f0…07f884 Dummy {f00=0x0028, 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
0x07f884…07fa18 Dummy {f00=0x0028, 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
0x07fa18…07fbac Dummy {f00=0x0028, 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
0x07fbac…07fd40 Dummy {f00=0x0028, 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:
0x07fd40…07fed4 (0, 162) Dummy {f00=0x0028, 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
0x07fed4…080068 Dummy {f00=0x0028, 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
0x080068…0801fc Dummy {f00=0x0028, 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
0x0801fc…080390 Dummy {f00=0x0028, 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 ?***************************************************************
0x080390…080524 Dummy {f00=0x0028, f01=0x0190, f02=» * X D ?* ========================= * D ?* * X D ?* REFERENCED IN: SYSLDA * D ?*
0x080524…0806b8 Dummy {f00=0x0028, f01=0x0190, f02=»OF FREE AREA * x D ?* SCTNOS - NUMBER OF SEGMENTS * 0 D ?* SCTNOP - NUMBER OF PAGES * x D ?* SCTPSZ - PAGE SIZE * D ?
0x0806b8…08084c Dummy {f00=0x0028, 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
0x08084c…0809e0 Dummy {f00=0x0028, f01=0x0190, f02=» * p D ?* * ( D ?* * p D ?*************************************************************** PAGGEN E
0x0809e0…080b74 (0, 163) Dummy {f00=0x0028, 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
0x080b74…080d08 Dummy {f00=0x0028, 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
0x080d08…080e9c Dummy {f00=0x0028, 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
0x080e9c…081030 Dummy {f00=0x0028, 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
0x081030…0811c4 Dummy {f00=0x0028, 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,
0x0811c4…081358 Dummy {f00=0x0028, 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,
0x081358…0814ec Dummy {f00=0x0028, 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!
0x0814ec…081680 Dummy {f00=0x0028, 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
0x081680…081814 (0, 164) Dummy {f00=0x0028, 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
0x081814…0819a8 Dummy {f00=0x0028, 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
0x0819a8…081b3c Dummy {f00=0x0028, 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
0x081b3c…081cd0 Dummy {f00=0x0028, 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
0x081cd0…081e64 Dummy {f00=0x0028, 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
0x081e64…081ff8 Dummy {f00=0x0028, 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
0x081ff8…08218c Dummy {f00=0x0028, 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
0x08218c…082320 Dummy {f00=0x0028, 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
0x082320…0824b4 (0, 165) Dummy {f00=0x0029, 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
0x0824b4…082648 Dummy {f00=0x0029, 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
0x082648…0827dc Dummy {f00=0x0029, 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***
0x0827dc…082970 Dummy {f00=0x0029, 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****************
0x082970…082b04 Dummy {f00=0x0029, 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**
0x082b04…082c98 Dummy {f00=0x0029, 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
0x082c98…082e2c Dummy {f00=0x0029, 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
0x082e2c…082fc0 Dummy {f00=0x0029, 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 **
0x082fc0…083154 (0, 166) Dummy {f00=0x0029, 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 (
0x083154…0832e8 Dummy {f00=0x0029, 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
0x0832e8…08347c Dummy {f00=0x0029, 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
0x08347c…083610 Dummy {f00=0x0029, 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(
0x083610…0837a4 Dummy {f00=0x0029, 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
0x0837a4…083938 Dummy {f00=0x0029, 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
0x083938…083acc Dummy {f00=0x0029, 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
0x083acc…083c60 Dummy {f00=0x0029, 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
0x083c60…083df4 (0, 167) Dummy {f00=0x0029, 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
0x083df4…083f88 Dummy {f00=0x0029, 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
0x083f88…08411c Dummy {f00=0x0029, 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
0x08411c…0842b0 Dummy {f00=0x0029, 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 *
0x0842b0…084444 Dummy {f00=0x0029, 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
0x084444…0845d8 Dummy {f00=0x0029, 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*********************************
0x0845d8…08476c Dummy {f00=0x0029, 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
0x08476c…084900 Dummy {f00=0x0029, 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
0x084900…084a94 (0, 168) Dummy {f00=0x0029, 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
0x084a94…084c28 Dummy {f00=0x0029, 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
0x084c28…084dbc Dummy {f00=0x0029, 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
0x084dbc…084f50 Dummy {f00=0x0029, 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
0x084f50…0850e4 Dummy {f00=0x0029, f01=0x0190, f02=»FT CREDIT+SWPBLK=2 P EJECT B P************************************************************** ( B P* * n B P* * B P* B:RSWT - BU
0x0850e4…085278 Dummy {f00=0x0029, f01=0x0190, f02=» * B P* REFERENCED IN: SYSLDA * < B P* * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *
0x085278…08540c Dummy {f00=0x0029, f01=0x0190, f02=» * T B P* EXIT: * B P* * P B P* WORK REGISTERS: A1-A7 * B P*
0x08540c…0855a0 Dummy {f00=0x0029, 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
0x0855a0…085734 (0, 169) Dummy {f00=0x002a, 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
0x085734…0858c8 Dummy {f00=0x002a, 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
0x0858c8…085a5c Dummy {f00=0x002a, 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
0x085a5c…085bf0 Dummy {f00=0x002a, 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
0x085bf0…085d84 Dummy {f00=0x002a, 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
0x085d84…085f18 Dummy {f00=0x002a, 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
0x085f18…0860ac Dummy {f00=0x002a, 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
0x0860ac…086240 Dummy {f00=0x002a, 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
0x086240…0863d4 (0, 170) Dummy {f00=0x002a, 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
0x0863d4…086568 Dummy {f00=0x002a, 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 ,
0x086568…0866fc Dummy {f00=0x002a, 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,
0x0866fc…086890 Dummy {f00=0x002a, 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
0x086890…086a24 Dummy {f00=0x002a, 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
0x086a24…086bb8 Dummy {f00=0x002a, 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
0x086bb8…086d4c Dummy {f00=0x002a, 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
0x086d4c…086ee0 Dummy {f00=0x002a, 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
0x086ee0…087074 (0, 171) Dummy {f00=0x002a, 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:
0x087074…087208 Dummy {f00=0x002a, 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
0x087208…08739c Dummy {f00=0x002a, 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
0x08739c…087530 Dummy {f00=0x002a, 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:
0x087530…0876c4 Dummy {f00=0x002a, 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
0x0876c4…087858 Dummy {f00=0x002a, 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
0x087858…0879ec Dummy {f00=0x002a, 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
0x0879ec…087b80 Dummy {f00=0x002a, 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
0x087b80…087d14 (0, 172) Dummy {f00=0x002a, 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
0x087d14…087ea8 Dummy {f00=0x002a, 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
0x087ea8…08803c Dummy {f00=0x002a, 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
0x08803c…0881d0 Dummy {f00=0x002a, 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
0x0881d0…088364 Dummy {f00=0x002a, 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
0x088364…0884f8 Dummy {f00=0x002a, 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
0x0884f8…08868c Dummy {f00=0x002a, 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
0x08868c…088820 Dummy {f00=0x002a, 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
0x088820…0889b4 (0, 173) Dummy {f00=0x002b, 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
0x0889b4…088b48 Dummy {f00=0x002b, 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
0x088b48…088cdc Dummy {f00=0x002b, 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
0x088cdc…088e70 Dummy {f00=0x002b, 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:
0x088e70…089004 Dummy {f00=0x002b, 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 .
0x089004…089198 Dummy {f00=0x002b, 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
0x089198…08932c Dummy {f00=0x002b, 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
0x08932c…0894c0 Dummy {f00=0x002b, 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
0x0894c0…089654 (0, 174) Dummy {f00=0x002b, 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**
0x089654…0897e8 Dummy {f00=0x002b, f01=0x0190, f02=» ***** 2 P********************************************* * P ` 2 P* READ CONFIGURATION FILE & BUILD * l 2 P* SHADOW-TABLES * 2 P* *
0x0897e8…08997c Dummy {f00=0x002b, 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
0x08997c…089b10 Dummy {f00=0x002b, 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
0x089b10…089ca4 Dummy {f00=0x002b, 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
0x089ca4…089e38 Dummy {f00=0x002b, 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
0x089e38…089fcc Dummy {f00=0x002b, 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
0x089fcc…08a160 Dummy {f00=0x002b, 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
0x08a160…08a2f4 (0, 175) Dummy {f00=0x002b, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x08a2f4…08a488 Dummy {f00=0x002b, 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
0x08a488…08a61c Dummy {f00=0x002b, 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
0x08a61c…08a7b0 Dummy {f00=0x002b, 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
0x08a7b0…08a944 Dummy {f00=0x002b, 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
0x08a944…08aad8 Dummy {f00=0x002b, 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
0x08aad8…08ac6c Dummy {f00=0x002b, 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(
0x08ac6c…08ae00 Dummy {f00=0x002b, 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
0x08ae00…08af94 (0, 176) Dummy {f00=0x002b, 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
0x08af94…08b128 Dummy {f00=0x002b, 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:
0x08b128…08b2bc Dummy {f00=0x002b, 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
0x08b2bc…08b450 Dummy {f00=0x002b, 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
0x08b450…08b5e4 Dummy {f00=0x002b, 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
0x08b5e4…08b778 Dummy {f00=0x002b, 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
0x08b778…08b90c Dummy {f00=0x002b, 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
0x08b90c…08baa0 Dummy {f00=0x002b, 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
0x08baa0…08bc34 (0, 177) Dummy {f00=0x002c, 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 .
0x08bc34…08bdc8 Dummy {f00=0x002c, 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)
0x08bdc8…08bf5c Dummy {f00=0x002c, 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
0x08bf5c…08c0f0 Dummy {f00=0x002c, 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
0x08c0f0…08c284 Dummy {f00=0x002c, 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********
0x08c284…08c418 Dummy {f00=0x002c, 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
0x08c418…08c5ac Dummy {f00=0x002c, 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:
0x08c5ac…08c740 Dummy {f00=0x002c, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x08c740…08c8d4 (0, 178) Dummy {f00=0x002c, 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*
0x08c8d4…08ca68 Dummy {f00=0x002c, 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
0x08ca68…08cbfc Dummy {f00=0x002c, 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
0x08cbfc…08cd90 Dummy {f00=0x002c, 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
0x08cd90…08cf24 Dummy {f00=0x002c, 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
0x08cf24…08d0b8 Dummy {f00=0x002c, 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
0x08d0b8…08d24c Dummy {f00=0x002c, 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 * ,
0x08d24c…08d3e0 Dummy {f00=0x002c, 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
0x08d3e0…08d574 (0, 179) Dummy {f00=0x002c, 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
0x08d574…08d708 Dummy {f00=0x002c, 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 (
0x08d708…08d89c Dummy {f00=0x002c, 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
0x08d89c…08da30 Dummy {f00=0x002c, 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
0x08da30…08dbc4 Dummy {f00=0x002c, 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
0x08dbc4…08dd58 Dummy {f00=0x002c, 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
0x08dd58…08deec Dummy {f00=0x002c, 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
0x08deec…08e080 Dummy {f00=0x002c, 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
0x08e080…08e214 (0, 180) Dummy {f00=0x002c, 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
0x08e214…08e3a8 Dummy {f00=0x002c, 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
0x08e3a8…08e53c Dummy {f00=0x002c, 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
0x08e53c…08e6d0 Dummy {f00=0x002c, 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
0x08e6d0…08e864 Dummy {f00=0x002c, 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 :
0x08e864…08e9f8 Dummy {f00=0x002c, 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
0x08e9f8…08eb8c Dummy {f00=0x002c, 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
0x08eb8c…08ed20 Dummy {f00=0x002c, 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
0x08ed20…08eeb4 (0, 181) Dummy {f00=0x002d, 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
0x08eeb4…08f048 Dummy {f00=0x002d, 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
0x08f048…08f1dc Dummy {f00=0x002d, 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
0x08f1dc…08f370 Dummy {f00=0x002d, 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,
0x08f370…08f504 Dummy {f00=0x002d, 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
0x08f504…08f698 Dummy {f00=0x002d, 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
0x08f698…08f82c Dummy {f00=0x002d, 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
0x08f82c…08f9c0 Dummy {f00=0x002d, 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
0x08f9c0…08fb54 (0, 182) Dummy {f00=0x002d, 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
0x08fb54…08fce8 Dummy {f00=0x002d, 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
0x08fce8…08fe7c Dummy {f00=0x002d, 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
0x08fe7c…090010 Dummy {f00=0x002d, f01=0x0190, f02=» L j ECBBA ECBRL , ( @ 9 B Y B Y P * , ( @ @ ` @ P 0 Z DWTST TENDIO , ( P _ % A A Y DWTECB , ( @ _| _
0x090010…0901a4 Dummy {f00=0x002d, 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
0x0901a4…090338 Dummy {f00=0x002d, 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
0x090338…0904cc Dummy {f00=0x002d, f01=0x0190, f02=» BHBB < ! 2B ! , ( ' T P P ( , ( G ! T T A P A T ! X , ( g T ! T T ! T ! A I , ( @ A P " ! _ ! , ( T " X !
0x0904cc…090660 Dummy {f00=0x002d, f01=0x0190, f02=» 8 ! ! x , ( ! ' A _: ! X6_Z A @ @ , ( G T 1 R 0 2P P P A H TEBCDI x , ( g @ 8 H @ P E P * & D X R X P X T , ( P C C
0x090660…0907f4 (0, 183) Opaque[0x194]
0x0907f4…090988 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b0, f03=0x0000}
0x0907f4…090988 IdxSect {
0x0907f4…090988 f00 = 0x002d // 0x907f4 @0x0
0x0907f4…090988 f01 = 0x000c // 0x907f6 @0x2
0x0907f4…090988 gno = [ // 0x907f8 @0x4
0x0907f4…090988 [0x00]: C0x002d.0x2.0
0x0907f4…090988 [0x01]: C0x002d.0x3.0
0x0907f4…090988 [0x02]: C0x002e.0x0.0
0x0907f4…090988 [0x03]: C0x002e.0x1.0
0x0907f4…090988 [0x04]: C0x002e.0x2.0
0x0907f4…090988 [0x05]: C0x002e.0x3.0
0x0907f4…090988 ]
0x0907f4…090988 }
0x090988…090b1c Dummy {f00=0x002d, 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**************************************************
0x090b1c…090cb0 Dummy {f00=0x002d, 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
0x090cb0…090e44 Dummy {f00=0x002d, 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:
0x090e44…090fd8 Dummy {f00=0x002d, 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
0x090fd8…09116c Dummy {f00=0x002d, 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
0x09116c…091300 Dummy {f00=0x002d, 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
0x091300…091494 (0, 184) Dummy {f00=0x002d, 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*
0x091494…091628 Dummy {f00=0x002d, f01=0x018e, f02=»852 EQU 0. p P* PCPU852 EQU 0 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
0x091628…0917bc Dummy {f00=0x002d, 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
0x0917bc…091950 Dummy {f00=0x002d, 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
0x091950…091ae4 Dummy {f00=0x002d, 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
0x091ae4…091c78 Dummy {f00=0x002d, 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
0x091c78…091e0c Dummy {f00=0x002d, 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
0x091e0c…091fa0 Dummy {f00=0x002d, 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
0x091fa0…092134 (0, 185) Dummy {f00=0x002e, 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)
0x092134…0922c8 Dummy {f00=0x002e, 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
0x0922c8…09245c Dummy {f00=0x002e, 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
0x09245c…0925f0 Dummy {f00=0x002e, 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)
0x0925f0…092784 Dummy {f00=0x002e, 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*
0x092784…092918 Dummy {f00=0x002e, 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
0x092918…092aac Dummy {f00=0x002e, 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
0x092aac…092c40 Dummy {f00=0x002e, 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
0x092c40…092dd4 (0, 186) Dummy {f00=0x002e, 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
0x092dd4…092f68 Dummy {f00=0x002e, 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
0x092f68…0930fc Dummy {f00=0x002e, 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
0x0930fc…093290 Dummy {f00=0x002e, 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,
0x093290…093424 Dummy {f00=0x002e, 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
0x093424…0935b8 Dummy {f00=0x002e, 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*
0x0935b8…09374c Dummy {f00=0x002e, 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
0x09374c…0938e0 Dummy {f00=0x002e, 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
0x0938e0…093a74 (0, 187) Dummy {f00=0x002e, 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
0x093a74…093c08 Dummy {f00=0x002e, 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
0x093c08…093d9c Dummy {f00=0x002e, 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
0x093d9c…093f30 Dummy {f00=0x002e, 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
0x093f30…0940c4 Dummy {f00=0x002e, 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 "
0x0940c4…094258 Dummy {f00=0x002e, 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*
0x094258…0943ec Dummy {f00=0x002e, 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
0x0943ec…094580 Dummy {f00=0x002e, 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
0x094580…094714 (0, 188) Dummy {f00=0x002e, 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 &
0x094714…0948a8 Dummy {f00=0x002e, 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
0x0948a8…094a3c Dummy {f00=0x002e, 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
0x094a3c…094bd0 Dummy {f00=0x002e, 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*
0x094bd0…094d64 Dummy {f00=0x002e, 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
0x094d64…094ef8 Dummy {f00=0x002e, 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**************
0x094ef8…09508c Dummy {f00=0x002e, 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 , *
0x09508c…095220 Dummy {f00=0x002e, 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
0x095220…0953b4 (0, 189) Opaque[0x194]
0x0953b4…095548 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e0, f03=0x0000}
0x0953b4…095548 IdxSect {
0x0953b4…095548 f00 = 0x002f // 0x953b4 @0x0
0x0953b4…095548 f01 = 0x0002 // 0x953b6 @0x2
0x0953b4…095548 gno = [ // 0x953b8 @0x4
0x0953b4…095548 [0x00]: C0x002f.0x0.0
0x0953b4…095548 ]
0x0953b4…095548 }
0x095548…0956dc Dummy {f00=0x002f, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x0956dc…095870 Dummy {f00=0x002f, f01=0x4108, f02=»XTRN CHLTON LOCAL/REMOTE TERMINALS $ PPFTAB DATA PFTABE-* TABLE LENGTH * P DATA DC15ON R P DATA DC25ON r P DATA SOPR P* P DATA CHLTON P* PPFTABE EQU * END OF TABLE P* P* P END @
0x095870…095a04 Dummy {f00=0x002f, 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
0x095a04…095b98 Dummy {f00=0x002f, f01=0x0190, f02=» Q Q > > 0 @= 1 A= P P > ? * X " R" Y T ? X D > T> > W8 > _& @ 8 R" Y T ? X D > T > W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @= V ? = > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x095b98…095d2c Dummy {f00=0x002f, f01=0x0190, f02=»B pU > J BAB rU > J B B pU > J BQB rU > J!B!B pU > J!BaB rU < ^ B " P Q :A H P P
0x095d2c…095ec0 Dummy {f00=0x002f, f01=0x0190, f02=» T R p , # PJ P , RL P 4 ] P $ P ] U PD P< P0 P, R 4T ] U X "0Tp+ Y WH 8Z | 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >Wh T #
0x095ec0…096054 (0, 190) Opaque[0x194]
0x096054…0961e8 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e8, f03=0x0000}
0x096054…0961e8 IdxSect {
0x096054…0961e8 f00 = 0x002f // 0x96054 @0x0
0x096054…0961e8 f01 = 0x0002 // 0x96056 @0x2
0x096054…0961e8 gno = [ // 0x96058 @0x4
0x096054…0961e8 [0x00]: C0x002f.0x1.0
0x096054…0961e8 ]
0x096054…0961e8 }
0x0961e8…09637c Dummy {f00=0x002f, 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
0x09637c…096510 Dummy {f00=0x002f, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION $ P EXTRN
0x096510…0966a4 Dummy {f00=0x002f, f01=0x0190, f02=»CHMMU CHANGE MMU TABLE P EJECT P* , $ PLKMAL DATA LKMALE-* TABLE LENGTH 6 P DATA TIO TERMINAL I/O ^ P DATA TWAIT TERMINAL WAIT | P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMINAL P DATA TPAUSE TERMINAL PAUSE
0x0966a4…096838 Dummy {f00=0x002f, f01=0x4172, f02=» t P DATA TABORT ABORT FUNCTION P DATA 0 , 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK H " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA 0 P DATA 0 P DATA TCHPAG C
0x096838…0969cc Dummy {f00=0x002f, 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
0x0969cc…096b60 Dummy {f00=0x002f, 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*
0x096b60…096cf4 (0, 191) Opaque[0x194]
0x096cf4…096e88 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f0, f03=0x0000}
0x096cf4…096e88 IdxSect {
0x096cf4…096e88 f00 = 0x002f // 0x96cf4 @0x0
0x096cf4…096e88 f01 = 0x0002 // 0x96cf6 @0x2
0x096cf4…096e88 gno = [ // 0x96cf8 @0x4
0x096cf4…096e88 [0x00]: C0x002f.0x2.0
0x096cf4…096e88 ]
0x096cf4…096e88 }
0x096e88…09701c Dummy {f00=0x002f, 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
0x09701c…0971b0 Dummy {f00=0x002f, 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
0x0971b0…097344 Dummy {f00=0x002f, 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 @
0x097344…0974d8 Dummy {f00=0x002f, 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
0x0974d8…09766c Dummy {f00=0x002f, 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
0x09766c…097800 Dummy {f00=0x002f, 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
0x097800…097994 (0, 192) Opaque[0x194]
0x097994…097b28 # DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f8, f03=0x0000}
0x097994…097b28 IdxSect {
0x097994…097b28 f00 = 0x002f // 0x97994 @0x0
0x097994…097b28 f01 = 0x0002 // 0x97996 @0x2
0x097994…097b28 gno = [ // 0x97998 @0x4
0x097994…097b28 [0x00]: C0x002f.0x3.0
0x097994…097b28 ]
0x097994…097b28 }
0x097b28…097cbc Dummy {f00=0x002f, f01=0x0190, f02=» 2 P IDENT TIODMX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* $ P* LEVEL #
0x097cbc…097e50 Dummy {f00=0x002f, f01=0x418a, f02=» P* . P* THIS DUMMY MODULE REPLACE TIODM AND DM P* D P ENTRY TIODM,CHKIND,REQEND N P ENTRY FDBADF p P ENTRY TCFILE,COFILE PTIODM EQU * PCHKIND EQU * PREQEND EQU * PFDBADF EQU * $ P DATA /6300 SOMETHING
0x097e50…097fe4 Dummy {f00=0x002f, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x097fe4…098178 Dummy {f00=0x002f, f01=0x0190, f02=» SET RETURN CODE : P XIF ; P LDK A4,1 IND RECOVERY ; $ * P ABL ACT005 START RECOVERY OF PRINTER ; B & PRCTP10 ABL TDISP GO TO DISPATCHER ; p P EJECT ; P* ; P* B C D T B Y ; P* ; 4 P* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL ;
0x098178…09830c Dummy {f00=0x002f, f01=0x0190, f02=» SUK A1,6 DECREMENT BY 6 ; P RB BCDTB1 < " PBCDTB2 RTN A5 RETURN TO CALLER < 4 P* < Z P* < d P* < n P* < x P* < P* G R A S P < P* < 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK < P* < P* < PGRASPA EQU * <
0x09830c…0984a0 Dummy {f00=0x002f, f01=0x018e, f02=» LDK A3,0 < P LDK A2,GRA GRASP = P CF A5,OUTPUT = , P ANK A2,VOIN VOUCHER IN ? = B P RF(NZ) GRAS10 YES = d P LDK A2,ETB SEND ETB =2 = ~ P CF A5,OUTPUT =2 = " P LDK A2,TETX DUMMY AFTER GRASP = P CF A5,OUTPUT = P LDK A2,STX SEND STX
0x0984a0…098634 (0, 193) Opaque[0x194]
0x098634…0987c8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0600, f03=0x0000}
0x098634…0987c8 IdxSect {
0x098634…0987c8 f00 = 0x0030 // 0x98634 @0x0
0x098634…0987c8 f01 = 0x0002 // 0x98636 @0x2
0x098634…0987c8 gno = [ // 0x98638 @0x4
0x098634…0987c8 [0x00]: C0x0030.0x0.0
0x098634…0987c8 ]
0x098634…0987c8 }
0x0987c8…09895c Dummy {f00=0x0030, 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
0x09895c…098af0 Dummy {f00=0x0030, 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
0x098af0…098c84 Dummy {f00=0x0030, 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
0x098c84…098e18 Dummy {f00=0x0030, f01=0x40ae, f02=»G=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 : P DATA 0,0,0,0,0,0,0 X P XIF t PDWTEND EQU * P* P END @ OUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x098e18…098fac Dummy {f00=0x0030, 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
0x098fac…099140 Dummy {f00=0x0030, f01=0x4024, f02=»P ;T f B @ PP R Q z H D !&J W T " P^ P T T T W 2 V " P 6 H D ! +P 7R G " IW QPB WP8 ]P cP g " mR qQ wP {R R Wz Wn H D !A W " T W P W P " QX R PN !R( %
0x099140…0992d4 (0, 194) Opaque[0x194]
0x0992d4…099468 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0608, f03=0x0000}
0x0992d4…099468 IdxSect {
0x0992d4…099468 f00 = 0x0030 // 0x992d4 @0x0
0x0992d4…099468 f01 = 0x0002 // 0x992d6 @0x2
0x0992d4…099468 gno = [ // 0x992d8 @0x4
0x0992d4…099468 [0x00]: C0x0030.0x1.0
0x0992d4…099468 ]
0x0992d4…099468 }
0x099468…0995fc Dummy {f00=0x0030, f01=0x0190, f02=» 0 P IDENT DVTGP REL 9.2 79-11-16 870105040920 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x0995fc…099790 Dummy {f00=0x0030, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA 'GP' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x099790…099924 Dummy {f00=0x0030, f01=0x40e8, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER * " P DATA 0 HEAD POSITIPN POINTER H P IFT MMUPAG=1 n PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU ECB ADD
0x099924…099ab8 Dummy {f00=0x0030, 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
0x099ab8…099c4c Dummy {f00=0x0030, f01=0x0190, f02=»A5,DSOPCH 3 P CMR A2 INDICATE NOT OPEN 4 P* 4 4 P* UNLOCK 4 > P* 4 R P XIF 4 PUNL:70 EQU * 4 h P LDK A2,/C UNLOCK 4 | P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6 4 P ANK A3,1 4 , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED 4 P
0x099c4c…099de0 Dummy {f00=0x0030, f01=0x0190, f02=»S+IBM=0 4 P* 5 P* UNLOAD RETURN CODE CHECK 5 P* 5 > PUNL:RC ORS A3,DWTRCW,A6 5 H P ANK A3,/7 FATAL ERROR? 5 h P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5 P IFT IBM=1 5 P EJECT DRFD01 5 P* 5 P*******************
0x099de0…099f74 (0, 195) Opaque[0x194]
0x099f74…09a108 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0610, f03=0x0000}
0x099f74…09a108 IdxSect {
0x099f74…09a108 f00 = 0x0030 // 0x99f74 @0x0
0x099f74…09a108 f01 = 0x0002 // 0x99f76 @0x2
0x099f74…09a108 gno = [ // 0x99f78 @0x4
0x099f74…09a108 [0x00]: C0x0030.0x2.0
0x099f74…09a108 ]
0x099f74…09a108 }
0x09a108…09a29c Dummy {f00=0x0030, 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
0x09a29c…09a430 Dummy {f00=0x0030, 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
0x09a430…09a5c4 Dummy {f00=0x0030, 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
0x09a5c4…09a758 Dummy {f00=0x0030, 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
0x09a758…09a8ec Dummy {f00=0x0030, 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* *
0x09a8ec…09aa80 Dummy {f00=0x0030, 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
0x09aa80…09ac14 (0, 196) Opaque[0x194]
0x09ac14…09ada8 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0618, f03=0x0000}
0x09ac14…09ada8 IdxSect {
0x09ac14…09ada8 f00 = 0x0030 // 0x9ac14 @0x0
0x09ac14…09ada8 f01 = 0x0002 // 0x9ac16 @0x2
0x09ac14…09ada8 gno = [ // 0x9ac18 @0x4
0x09ac14…09ada8 [0x00]: C0x0030.0x3.0
0x09ac14…09ada8 ]
0x09ac14…09ada8 }
0x09ada8…09af3c Dummy {f00=0x0030, 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
0x09af3c…09b0d0 Dummy {f00=0x0030, 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
0x09b0d0…09b264 Dummy {f00=0x0030, 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
0x09b264…09b3f8 Dummy {f00=0x0030, 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
0x09b3f8…09b58c Dummy {f00=0x0030, 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
0x09b58c…09b720 Dummy {f00=0x0030, 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
0x09b720…09b8b4 (0, 197) Opaque[0x194]
0x09b8b4…09ba48 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0620, f03=0x0000}
0x09b8b4…09ba48 IdxSect {
0x09b8b4…09ba48 f00 = 0x0031 // 0x9b8b4 @0x0
0x09b8b4…09ba48 f01 = 0x0002 // 0x9b8b6 @0x2
0x09b8b4…09ba48 gno = [ // 0x9b8b8 @0x4
0x09b8b4…09ba48 [0x00]: C0x0031.0x0.0
0x09b8b4…09ba48 ]
0x09b8b4…09ba48 }
0x09ba48…09bbdc Dummy {f00=0x0031, 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
0x09bbdc…09bd70 Dummy {f00=0x0031, 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
0x09bd70…09bf04 Dummy {f00=0x0031, 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
0x09bf04…09c098 Dummy {f00=0x0031, 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
0x09c098…09c22c Dummy {f00=0x0031, 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
0x09c22c…09c3c0 Dummy {f00=0x0031, 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
0x09c3c0…09c554 (0, 198) Opaque[0x194]
0x09c554…09c6e8 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0628, f03=0x0000}
0x09c554…09c6e8 IdxSect {
0x09c554…09c6e8 f00 = 0x0031 // 0x9c554 @0x0
0x09c554…09c6e8 f01 = 0x0002 // 0x9c556 @0x2
0x09c554…09c6e8 gno = [ // 0x9c558 @0x4
0x09c554…09c6e8 [0x00]: C0x0031.0x1.0
0x09c554…09c6e8 ]
0x09c554…09c6e8 }
0x09c6e8…09c87c Dummy {f00=0x0031, 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 1 P*
0x09c87c…09ca10 Dummy {f00=0x0031, 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
0x09ca10…09cba4 Dummy {f00=0x0031, 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
0x09cba4…09cd38 Dummy {f00=0x0031, 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*
0x09cd38…09cecc Dummy {f00=0x0031, 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
0x09cecc…09d060 Dummy {f00=0x0031, 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
0x09d060…09d1f4 (0, 199) Opaque[0x194]
0x09d1f4…09d388 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0630, f03=0x0000}
0x09d1f4…09d388 IdxSect {
0x09d1f4…09d388 f00 = 0x0031 // 0x9d1f4 @0x0
0x09d1f4…09d388 f01 = 0x0010 // 0x9d1f6 @0x2
0x09d1f4…09d388 gno = [ // 0x9d1f8 @0x4
0x09d1f4…09d388 [0x00]: C0x0031.0x2.0
0x09d1f4…09d388 [0x01]: C0x0031.0x3.0
0x09d1f4…09d388 [0x02]: C0x0032.0x0.0
0x09d1f4…09d388 [0x03]: C0x0032.0x1.0
0x09d1f4…09d388 [0x04]: C0x0032.0x2.0
0x09d1f4…09d388 [0x05]: C0x0032.0x3.0
0x09d1f4…09d388 [0x06]: C0x0033.0x0.0
0x09d1f4…09d388 [0x07]: C0x0033.0x1.0
0x09d1f4…09d388 ]
0x09d1f4…09d388 }
0x09d388…09d51c Dummy {f00=0x0031, f01=0x0190, f02=» 2 P IDENT DRKB03 REL 9.2 79-11-16 870105040920 P : P* B 0 P******************************************* L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DRKB01 = DRIVER KEYBOARD P* P* P* P* P
0x09d51c…09d6b0 Dummy {f00=0x0031, f01=0x0190, f02=» d . P* AND ALPHANUMERIC KEYBOARDS PTS 6236, , P* CONNECTED TO CPU VIA CHLT OR CHRT. : P* j : P* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS t $ P* ARE HANDLED BY THE DRIVER. P* 0 P* AN ECHO-DEVICE CAN BE ATTACHED
0x09d6b0…09d844 Dummy {f00=0x0031, f01=0x0190, f02=»PARTS: j P* " P* A C K B : ACTIVATION PART P* > $ P* I H K B : INTERRUPT HANDLER H P* p P* E C H O : ECHO HANDLER z P* $ P* R C K B : RECOVERY ROUTINE P* P EJECT P* P* , P* THE FOL
0x09d844…09d9d8 Dummy {f00=0x0031, f01=0x0190, f02=»IC READ | & P* ORDER 31: RESET INPUT BUFFER P* : P* D P* NORMAL REGISTER USAGE : N P* r " P* REGISTER A1 : RETURN CODE | & P* A2 : INPUT CHARACTER $ P* A3 : BUFFER INDEX $ P* A4 : W
0x09d9d8…09db6c Dummy {f00=0x0031, f01=0x0190, f02=» A8 : ECB-ADDRESS P* P* ( P* 2 P* SYSTEM ADAPTATION < P* Z 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, d 8 P* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED P* IN DWT. P* 2 P* DWT-ADDRE
0x09db6c…09dd00 Dummy {f00=0x0031, f01=0x0190, f02=»T MUST BE SET UNEQUAL TO ZERO. 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS & 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $ P* IN DRIVER MUST BE CHANGED. P* 4 P* THE LENGTH OF T
0x09dd00…09de94 (0, 200) Dummy {f00=0x0031, f01=0x018e, f02=»AME FOR ALL h P* DWT:S IN SYSTEM P EJECT 0 P* > 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE H 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P* P* -----ECHO-FUNCTION " P* -----POWER ON INDICATION
0x09de94…09e028 Dummy {f00=0x0031, f01=0x0190, f02=» P* ENTRIES P* P* & P ENTRY KBAD3 ADDRESS-BLOCK 0 P* R P* P* f & P* EXTERNAL TOSS MODULE ENTRIES p P* P* P* $ P EXTRN DISIOE I/O REQUEST ERROR . P EXTRN DISEND END I/O AND GO TO DISPATCH
0x09e028…09e1bc Dummy {f00=0x0031, f01=0x0190, f02=» STREG STORE REGISTERS AND GO TO DISPATCER , P EXTRN LDREGE RETURN FROM ECHOE HANDLING 2 P EXTRN LDREGF PANIK EXTERN b P EXTRN SETIME SET TIME P EXTRN SETIMP SET TIME " P EXTRN SAVE8 SAVE 8 REGISTERS " P EXTRN ECHRTN RETURN FROM ECHO
0x09e1bc…09e350 Dummy {f00=0x0031, f01=0x0190, f02=» P* P* " P EXTRN DWTCHP CHANEL PARAMETER P EXTRN DWTST STATUS > EXTRN DWTBC BYTE COUNTER Z & " EXTRN DWTADR DRIVER ADDRESS BLOCK | P EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5
0x09e350…09e4e4 Dummy {f00=0x0031, f01=0x018e, f02=» INPUT DWT ~ P EJECT P* P* * P* 4 P* CONSTANTS > P* V P* ` P* j * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER t P* . PX:F EQU 20 LENGTH OF CIRCULAR INPUT BUFFER 2 PDWTLNG EQU 30 NUMBER OF BYTES IN DECIMAL F
0x09e4e4…09e678 Dummy {f00=0x0031, f01=0x018e, f02=» P* P* , P**************************************** , P* CONDITIONAL ASSEMBLY * H , P**************************************** x P* . P* TIME OUT FUNCTION MAY BE EXCLUDED BY P* SETTING X:A = 0. P*
0x09e678…09e80c Dummy {f00=0x0031, f01=0x0190, f02=» PX:B EQU 1 PCECHO EQU 0 P* * > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION 4 & P* IS INCLUDED IN THE DRIVER. v < P* IF THERE IS A READ REQUEST THIS IS COMPLETED WITH , P* ZERO IN THE CONTROL WORD OF ECB.
0x09e80c…09e9a0 Dummy {f00=0x0031, f01=0x0190, f02=» T P* OF ECB P* P* ( PX:E EQU 0 2 PPOWOFF EQU 1 D P* X P* b P* l N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72 v PX:H EQU 0 PNSHIFT EQU 1 P* P* B P*
0x09e9a0…09eb34 (0, 201) Dummy {f00=0x0032, f01=0x0190, f02=»RSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. $ P* R PMMUPAG EQU 1 P* p P* z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0
0x09eb34…09ecc8 Dummy {f00=0x0032, f01=0x0190, f02=» MMU KEY TABLE SIZE P* P* & PX:K EQU 10 0 PDVBKTB EQU 30 B P* X P EJECT b P* p P* z P* DWT-DISPLACEMENT P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0
0x09ecc8…09ee5c Dummy {f00=0x0032, f01=0x0190, f02=»00 CONVERSION TABLE ~ 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE X & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE P* ( P* SPECIAL KEYS
0x09ee5c…09eff0 Dummy {f00=0x0032, f01=0x0190, f02=»R n . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER PKBMZ3 EQU START+/16 < P* X P EJECT b P* TABLES p P* P* $ P DATA DVBKTB MMU KEY TABLE SIZE P DATA DVBLEN MMU BUFFER SIZE P DATA 6 DEVICE INDEX P*
0x09eff0…09f184 Dummy {f00=0x0032, f01=0x0190, f02=» IFT POWOFF=1 P DATA RCKB RECOVERY ROUTINE P XIF : P IFT POWOFF=0 F P DATA 0 NO RECOVERY P XIF x P* P IFT POWOFF=1 P EJECT P* RCKB P* P* RECOVERY PART P* P* PRCKB EQU *
0x09f184…09f318 Dummy {f00=0x0032, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P IFT POWOFF=1 < P LD A3,DWTST,A6 BUSY? R P RF(NN) RCKB10 p P LDKL A1,/200 ( P ORS A1,DWTST,A6 INDICATE POWER OFF P ABL TDISP & PRCKB10 CF A5,LDREGE LOAD REGISTERS P RF
0x09f318…09f4ac Dummy {f00=0x0032, f01=0x0190, f02=»ERS AND b P* @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER P* ^ P* TO THREAT h P* P* P* P* PACKB EQU * P LDKL A1,/FEFF 2 P ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG P L
0x09f4ac…09f640 Dummy {f00=0x0032, f01=0x0190, f02=»0 ORDER 1,2 OR 3 P SUK A4,/2D P RF(Z) AKB110 ORDER 31 , * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR J P ABL ENDI10 x P EJECT P* P* P* & P* ORDER 31 RESET INPUT BUFFER P* P* P* PAKB110 E
0x09f640…09f7d4 (0, 202) Dummy {f00=0x0032, f01=0x0190, f02=» P* P* P* ORDER 1,2,3 P* 2 P* < P* F PAKB200 EQU * P P IFT POWOFF=1 d P LD A2,DWTST,A6 z P ANKL A2,/200 POWER OFF? P RF(E) AKB205 NO! ( P XRS A2,DWTST,A6 RESET POWER OFF BIT PAKB202 EQU *
0x09f7d4…09f968 Dummy {f00=0x0032, f01=0x0190, f02=» P XIF PAKB205 EQU * P IFT CTIMUT=1 $ P LDR* A1,A6 : P ANK A1,/40 TIMING? N , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! j , P LD A4,DWTTP,A6 CHECK IF ALREADY TIMING P RF(E) AKBTIM P LDKL A4,-TIME P ST* A4,DWTTP,A6
0x09f968…09fafc Dummy {f00=0x0032, f01=0x0190, f02=»A15,SETIMP SET TIME 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P P XIF P* P EJECT P* IF ANY KEY-LOCK: P* : P* RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHARACTER
0x09fafc…09fc90 Dummy {f00=0x0032, f01=0x0190, f02=»ND END I/O. ELSE CONTINUE. P* " P* , PAKB210 EQU * 6 " P LD A2,DWTST,A6 ANY KEY-LOCK? J P ANK A2,/F p P RF(Z) AKB219 P SLL A2,1 P SRN A2,A4 P LDR A1,A4 P CWK A4,3 P RF(N) AKB212 P RF(P) AKB211
0x09fc90…09fe24 Dummy {f00=0x0032, f01=0x0190, f02=» A4,4 P AN A4,DWTST,A6 P STR A4,A15 SAVE A4 & P STR A3,A15 B P SRN A2,A3 ORDER 1 V " P ADR A3,A3 MAKE CHARACTER FLAG p P LDR A4,A4 P RF(NE) AKB213 P ADK A3,1 PAKB213 ADK A3,/70 P LDR A2,A3 P LDR* A3,A
0x09fe24…09ffb8 Dummy {f00=0x0032, f01=0x0190, f02=»AD r " PAKB214 NGR A2,A1 MAKE ECB CODE P LDR A4,A4 KEY FLAG 0 P RF(E) AKB215 L P SUK A2,4 b , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB t PAKB218 ABL AKB380 ( PAKB219 LD A2,4,A8 REQUESTED LENGTH=0 PAKB220 ABL(E) AKB380 " PAK
0x09ffb8…0a014c Dummy {f00=0x0032, f01=0x0190, f02=»30 SCR A3,A1 CLEAR ECB BUFFER P SUK A1,1 & P SUK A2,1 8 P RB(NE) AKB230 J PAKB240 EQU * ` P LD A1,DWTUTQ,A6 t P LCR A2,A1 PAKB245 LDR A4,A2 P XRK A4,/FF OVERFLOW? P RF(NE) AKB250 N0! PAKB247 SCR A4,A1 YES!
0x0a014c…0a02e0 Dummy {f00=0x0032, f01=0x0190, f02=» " P CF A5,STREG NOTHING IN QUEUE P IFT CTIMUT=1 * * P LDR A1,A1 CHECK TIME OUT RETURN CODE @ P RF(Z) AKB257 NO TIME OUT n $ P ABL ENDI05 END I/O AT TIME OUT P XIF P IFT CTIMUT=0 P RF AKB257 P XIF * PAKB255 CF A15,EO
0x0a02e0…0a0474 (0, 203) Dummy {f00=0x0032, f01=0x0190, f02=»AKB310 ORDER 2 OR 3 P EJECT P* * P* 4 P* ORDER 1 BASIC READ > P* ^ P* h P* r 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER | P IFT CECHO=1 P CF A5,ECHO P XIF PAKB307 CW A3,4,A8 , P RF(
0x0a0474…0a0608 Dummy {f00=0x0032, f01=0x0190, f02=» EJECT P* P* P* " 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ , P* d B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) n P* P* P* P* PAKB310 EQU * " P LD A1,10,A8 KEY-TABLE A
0x0a0608…0a079c Dummy {f00=0x0032, f01=0x0190, f02=»EY-TABLE v P ADK A1,1 PAKB355 SUK A4,1 " , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE : P SUK A1,1 NEXT KEY j P CCR A2,A1 EOR? P RB(NE) AKB355 NO! P ADK A4,1 , P ST A4,10,A8 STORE INDEX IN CONTROL WORD " P CF A15,STORE ST
0x0a079c…0a0930 Dummy {f00=0x0032, f01=0x0190, f02=»F AKB380 PAKB360 EQU * ! P LDR A4,A2 ! $ P CC A4,KBMZ2,A6 ! 6 P RF(E) KBMZ20 ! N P CC A4,KBMZ3,A6 ! d P RF(E) KBMZ30 ! | P CC A4,KBBSP,A6 ! P RF(E) KBSP10 ! P CC A4,KBCLR,A6 ! P RF(E) KBCL10 ! , P CF A15,STORE STORE CHARAC
0x0a0930…0a0ac4 Dummy {f00=0x0032, f01=0x0190, f02=»ACTER > /7F ! P RF(P) AKB364 YES " P CWK A7,2 " . $ P RF(E) AKB366 STANDARD READ OK " @ P ADK A4,/4F " h P RF(N) AKB364 " | P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ OK " PAKB364 LDK A1,4 ERROR CODE " P RF ENDIO " PAKB366 EQU
0x0a0ac4…0a0c58 Dummy {f00=0x0032, f01=0x0190, f02=»10 NO RETURN " ~ & PAKB368 LDK A1,8 YES SET ERROR CODE # P RF ENDIO END I/O # > P EJECT # X PKBMZ30 EQU * TRIPPLE ZERO # f P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DOUBLE ZERO # PKBMZ25 LDK A2,/30 # P SUK A4,1 # P RB(L) AKB36
0x0a0c58…0a0dec Dummy {f00=0x0032, f01=0x0190, f02=» P RB(L) KBMZ25 $ PKBMZ27 EQU * $ P SUK A4,1 ANY MORE ZEROES $ . $ P RB(L) AKB368 NO,SET RETURN CODE $ P P INH $ x * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6 $ " P CWK A1,DWTSQ FIRST POSITION ? $ P RF(NE) KBMZ29 NO $ , P LDK
0x0a0dec…0a0f80 Dummy {f00=0x0032, f01=0x0190, f02=»OSITION $ j P SUK A1,1 % , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % " P RF(E) KBMZ90 NO NOT REALY. % R 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % v & P LDK A2,/30 STORE ZERO IN CIRKULAR % P SCR A2,A1 INPUT BUFFER % P RB KBMZ27 % PKB
0x0a0f80…0a1114 (0, 204) Dummy {f00=0x0032, f01=0x0190, f02=»ETURN CODE FOR BOTH % . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & P* & N P* & X P* & b PKBCL10 EQU * CLEAR & l P LDK A3,0 & P LDK A2,/18 & P RB AKB366 & P* & P* & P* & PKBSP10 EQU * & P LDR A3,A3 & P RF(Z)
0x0a1114…0a12a8 Dummy {f00=0x0032, f01=0x0190, f02=»/8 & P RB AKB366 ' P* ' P* ' & PAKB380 LDK A1,0 RETURN CODE ' 0 P EJECT ' T P* ' b P* ' l , P* THIS IS A COMMON END OF THE DRIVER ' v P* ' 2 P* SET EFFECTIVE LENGTH AND PERFORM END I/O ' $ P* ON KEYBOARD AND ECHO-DEVICE '
0x0a12a8…0a143c Dummy {f00=0x0032, f01=0x018e, f02=»G ON THIS DEVICE ' z P CM* DWTTP,A6 RESET TIMER ( P CM DWTTP,A6 ( : P XIF ( N P* ( Z , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( d PENDI10 EQU * ( P* ( P IFT CECHO=1 ( P LDR A4,A1 SAVE A1 ( ( P CF A5,ECHEND END I/O ON ECHO DEVICE (
0x0a143c…0a15d0 Dummy {f00=0x0032, f01=0x0190, f02=» P* ) P* ) F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) P* ) b P* ) l P* ) v PIHKB EQU * ) P ANK A2,/FF ) * P CF A15,KONVER CONVERT INPUT CHARACTER ) P LDR A4,A4 TEST TYPE OF CHAR ) P RF(P) EXIT SHIF
0x0a15d0…0a1764 Dummy {f00=0x0032, f01=0x0190, f02=» RF(Z) EXIT ) P LD A3,DWTST,A6 I/O REQUEST? * P XIF * 8 * P RF(N) IHKB15 NO READ REQUEST PENDING * D " P SLL A3,7 INTERRUPT ALLOWED ? * r 4 P RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER * P IFT CTIMUT=1 * P LD A3,DWTTP,A6 * * P RF(E) IHK
0x0a1764…0a18f8 Dummy {f00=0x0032, f01=0x0190, f02=»EAD ROUTINE * t , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + P LDR A3,A3 + D P RF(Z) EXIT NO KEY CHANGE + V P LD A3,DWTST,A6 + x ( P RF(N) EXIT NO READ REQUEST PENDING + P SLL A3,7 + & P RF(NN) EXIT INERRUPT NOT ALLOWED + ( P LD A3,DWTA3,A6
0x0a18f8…0a1a8c Dummy {f00=0x0032, f01=0x018e, f02=»A1 + " P XRK A4,/FF ALREADY OVERFLOW? , P RF(E) EXIT YES , 0 P LDR A3,A1 , H 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , Z P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY , 0 P ORK A2,/FF SET OVERFLOWBIT IN INPUT BUF
0x0a1a8c…0a1c20 Dummy {f00=0x0032, f01=0x0190, f02=» P EJECT - P* - P* - P* - & P* AKBTUT - 0 P* - D & P* THIS IS THE TIME-OUT ROUTINE - N P* - x P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - " P LDR A6,A1 RESTART DWT-ADDRESS - P LDK A1,/40 SET RETURNE CODE -
0x0a1c20…0a1db4 (0, 205) Dummy {f00=0x0033, f01=0x0190, f02=» P XIF . P EJECT . P* . P* . ( P* . 2 P* . < P* KEYSET . F P* . Z P* . d P* . n , P* ON ENTRY: A4= NEG KEY-LOCK VALUE . x P* . @ P* ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS . P* . P* .
0x0a1db4…0a1f48 Dummy {f00=0x0033, f01=0x0190, f02=»0=ON . x P RB(N) SET100 / $ P ANR A3,A2 CHEC OLD KEY POSITION / " " P RF(NZ) SET300 JUMP IF KEY ON / J P LDR A4,A4 / p P RF(NZ) SET500 / P RF SET400 / PSET300 LDR A4,A4 / P RF(Z) SET500 / PSET400 LD A3,DWTST,A6 / P XRR A3,A2 / P
0x0a1f48…0a20dc Dummy {f00=0x0033, f01=0x018e, f02=» A15 / P EJECT 0 P* 0 P* 0 $ P* 0 . P* KONVER 0 8 P* 0 L * P* KONVER CONVERTS INPUT CHARACTER 0 V P* 0 P* 0 ( P* ON ENTRY: A2= INPUT CHARACTER 0 P* 0 P* 0 * P* ON EXIT: A2=COVERTED CHARACTER 0 L P*
0x0a20dc…0a2270 Dummy {f00=0x0033, f01=0x0190, f02=» PKONVER EQU * 1 P LDR A4,A2 1 P IFT NSHIFT=0 1 * P SUK A4,/7C CODE > /7B 1 @ P RF(NN) KON500 YES 1 ^ P LDR A4,A2 RESTORE CHARACTER 1 x P XIF 1 8 P STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION 1 P LDR* A5,A6 1 P SUK A4,/20 1
0x0a2270…0a2404 Dummy {f00=0x0033, f01=0x0190, f02=» NO 1 P SUK A2,/40 YES 2 PKON105 EQU * 2 $ P ANK A5,/10 2 8 P SRL A5,3 2 L P RF KON200 2 ^ * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 p P RF(N) KON400 KEY-LOCK 2 P RF(Z) KON140 SHIFT ON 2 P SUK A4,2 2 P RF(N) KON160 SHIFT OFF 2
0x0a2404…0a2598 Dummy {f00=0x0033, f01=0x018e, f02=»IFT ON 2 v " P RF KON160 NUMERICAL SHIFT OFF 3 P XIF 3 4 PKON125 EQU * 3 @ P LDKL A2,/FFDF UNCTRL 3 T PKON120 ANR A5,A2 3 r PKON130 STR A5,A6 DWTCHP 3 P LDK A4,/10 3 P RF KON400 GO HOME! 3 PKON140 EQU * 3 P IFT NSHIFT=1 3 P LDR
0x0a2598…0a272c Dummy {f00=0x0033, f01=0x0190, f02=» P LDK A2,/10 SHIFT 4 PKON150 ORR A5,A2 4 P RB KON130 4 6 PKON160 EQU * 4 H P IFT NSHIFT=1 4 P LDR A4,A5 4 r P ANK A4,/80 4 P RF(Z) KON165 4 P LDKL A2,/FF7F 4 P RB KON120 4 P XIF 4 PKON165 EQU * 4 P LDKL A2,/FFEF 4
0x0a272c…0a28c0 Dummy {f00=0x0033, f01=0x0190, f02=» 4 P SRL A5,3 5 P ADK A5,4 5 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 , P ADR A4,A5 5 h P LDR* A4,A4 5 z P RF(Z) KON400 5 P ADR A4,A2 5 * P LDR* A2,A15 RESTORE A2 AND A15-STACK 5 ( P LCR A2,A4 GET CHARACTER FROM TABLE
0x0a28c0…0a2a54 (0, 206) Dummy {f00=0x0033, f01=0x0190, f02=»KON300 5 P IFT NSHIFT=0 6 PKON500 EQU * 6 $ P LDR A4,A4 KEY CODE /7C 6 8 P RF(Z) KON600 YES 6 X & P LDK A4,1 INDICATE SKIP CHARACTER 6 r P RTN A15 6 PKON600 EQU * 6 P SUR A2,A2 6 P RB KONVER DO START AGAIN 6 P XIF 6 P EJECT 6
0x0a2a54…0a2be8 Dummy {f00=0x0033, f01=0x0190, f02=» P* ON ENTRY: 7 P* 7 P* A2 = CHARACTER TO STORE 7 $ P* A3 = BUFFER INDEX 7 H P* 7 f P* 7 p PSTORE EQU * 7 z P LD A4,2,A8 BUFFER ADDRESS 7 P ADR A4,A3 ADD BUFFER INDEX 7 ( P SCR A2,A4 STORE CHARACTER IN BUFFER 7 $ P ADK A3,
0x0a2be8…0a2d7c Dummy {f00=0x0033, f01=0x0190, f02=» TO GET NEXT QUEUE POINTER 7 x P* 8 " P* ON ENTRY: 8 , P* 8 B P* A1 = QUEUE POINTER 8 L P* A6 = DWT-ADDRESS 8 l P* 8 P* ON EXIT: 8 P* 8 P* A1 = NEW QUEUE POINTER 8 PEOQUEU EQU * 8 P ADK A1,1 8 P SUR A1,A6
0x0a2d7c…0a2f10 Dummy {f00=0x0033, f01=0x4022, f02=» RB STORTN 8 P END 9 @ 9 * 8 " P* ON ENTRY: 8 , P* 8 B P* A1 = QUEUE POINTER 8 L P* A6 = DWT-ADDRESS 8 l P* 8 P* ON EXIT: 8 P* 8 P* A1 = NEW QUEUE POINTER 8 PEOQUEU EQU * 8 P ADK A1,1 8 P SUR A1,A6
0x0a2f10…0a30a4 Dummy {f00=0x0033, f01=0x2008, f02=» : WTCON,A6 GET CONVERSION TABLE ADDRESS ADR A4,A1 6 ADR A4,A2 H ( # LCR A2,A4 GET CHARACTER FROM TABLE Z RTN A15 END @ A4,2 RF(Z) KON180 CTRL RF(N) KON190 SHIFT LDR A1,8 CTRL AND SHIFT
0x0a30a4…0a3238 Dummy {f00=0x0033, f01=0x0190, f02=» P CWK A2,ACK0+PAR S P XIF =8 S P IFT P6805=1 =8 S . P CWK A2,ACK0 =8 S F P XIF =8 S ^ P RF(NE) BRM620 S p P* S P* ACK , 0 RECEIVED S P* S P LD A1,CACK GET ACKCOUNTER S P RF(Z) BRM630 ACK,0 EXPECTED S PBRM610 EQU * S
0x0a3238…0a33cc Dummy {f00=0x0033, f01=0x0190, f02=» RF(NE) BRM650 S P* T P* ACK , 1 RECEIVED T P* T : P LD A1,CACK GET ACK COUNTER T D $ P RB(Z) BRM610 ACK,1 NOT EXPECTED T h PBRM630 EQU * T P LD A1,XETX T P RF(Z) BRM640 ETX NOT SENT T P EJECT T P* T , P* ACK HAS BEEN RECEIVE
0x0a33cc…0a3560 Dummy {f00=0x0033, f01=0x018e, f02=» STATUS HAS BEEN TRANSMITTED T P XIF U $ ( P CF A5,CWRITE COMPLETE WRITE REQUEST U 0 PBRM636 EQU * U P CF A5,TREOT SEND EOT U p P IFT RCOM=1 U P U P CM XRB RESET READ BUFFER U P XIF U P RB BRM410 U PBRM640 EQU * U P LDK A1,1
0x0a3560…0a36f4 (0, 207) Opaque[0x194]
0x0a36f4…0a3888 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0670, f03=0x0000}
0x0a36f4…0a3888 IdxSect {
0x0a36f4…0a3888 f00 = 0x0033 // 0xa36f4 @0x0
0x0a36f4…0a3888 f01 = 0x0014 // 0xa36f6 @0x2
0x0a36f4…0a3888 gno = [ // 0xa36f8 @0x4
0x0a36f4…0a3888 [0x00]: C0x0033.0x2.0
0x0a36f4…0a3888 [0x01]: C0x0033.0x3.0
0x0a36f4…0a3888 [0x02]: C0x0034.0x0.0
0x0a36f4…0a3888 [0x03]: C0x0034.0x1.0
0x0a36f4…0a3888 [0x04]: C0x0034.0x2.0
0x0a36f4…0a3888 [0x05]: C0x0034.0x3.0
0x0a36f4…0a3888 [0x06]: C0x0035.0x0.0
0x0a36f4…0a3888 [0x07]: C0x0035.0x1.0
0x0a36f4…0a3888 [0x08]: C0x0035.0x2.0
0x0a36f4…0a3888 [0x09]: C0x0035.0x3.0
0x0a36f4…0a3888 ]
0x0a36f4…0a3888 }
0x0a3888…0a3a1c Dummy {f00=0x0033, f01=0x0190, f02=» 0 P IDENT DRGP01 AUSTRIA DRIVER FOR 8081 800624 P 8 * P =1,IMPROVEMENT OF FORM LENGTH CON- @ * P TROL & FORM FEED FUNCTION ON CONT. n & P STATIONARY. PRR 10.0 79-12-07 " P =2,XIF MOVED TO RIGHT PLACE P PRR 10.0 80-01-25 & P
0x0a3a1c…0a3bb0 Dummy {f00=0x0033, f01=0x0190, f02=» * < P* PHILIPS TERMINAL SYSTEM PTS * 8 < P* * x 4 P* DRGP01 = DRIVER GENERAL PRINTER * < P*
0x0a3bb0…0a3d44 Dummy {f00=0x0033, f01=0x0190, f02=» * p < P******************************************************* P* ` 4 P* THIS DRIVER HANDLES GENERAL PRINTER PTS 8081 j P* 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS : P* $ P* A C T P : ACTIVATION
0x0a3d44…0a3ed8 Dummy {f00=0x0033, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* B $ P* ORDER 00 : TEST STATUS L P* ORDER 06 : WRITE t * P* ORDER 0B : POSITION DOCUMENT . P* ORDER 24 : SET PRINTER PARAMETERS ( P* ORDER 38 :
0x0a3ed8…0a406c Dummy {f00=0x0033, f01=0x018e, f02=»* BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT ( P* BIT 13 : CODE CHECK ERROR > $ P* BIT 15 : NOT OPERABLE j P* P* P* NORMAL REGISTER USAGE: P* " P* REGISTER A1: WORK REGISTER " P* A2:
0x0a406c…0a4200 Dummy {f00=0x0033, f01=0x0190, f02=» P* A6: DWT-ADDRESS P* A7: ORDER ( P* A8: ECB-ADDRESS F P* j P* t P ~ P* P* 0 P******************************************* P* P* ENTRIES P* 0 P******************
0x0a4200…0a4394 (0, 208) Dummy {f00=0x0033, f01=0x0190, f02=»************************* ~ P* " P* EXTERNALS , P* @ 0 P******************************************* J P* ~ P* , P EXTRN TDISP DISPATCHING FROM INTERRUPT $ P EXTRN DISIOE DISPATCH I/O ERROR & P EXTRN DISEND END I/O AND DISP
0x0a4394…0a4528 Dummy {f00=0x0033, f01=0x0190, f02=»ETCHR GET CHARACTER FROM ECB BUFFER ( P EXTRN DWTST DWT STATUS DISPLACEMENT , & P EXTRN DWTECB DWT ECB DISPLACEMENT X ( P EXTRN DWTOR DWT ORDER DISPLACEMENT 2 P EXTRN STREG STORE REG = GET STATUS INPUT CHAR ( P EXTRN INIFLG SYSTEM START INDICATOR
0x0a4528…0a46bc Dummy {f00=0x0033, f01=0x018e, f02=»************ r P* P* CONSTANTS P* 2 . P****************************************** < P* n P* x $ PSTB EQU /82 START OF TEXT BLOCK " PETB EQU /97 END OF TEXT BLOCK " PSPEC EQU /2E SPECIAL CHARACTER PSTX EQU /02 START
0x0a46bc…0a4850 Dummy {f00=0x0033, f01=0x0190, f02=» PSO EQU /0E SHIFT OUT PSI EQU /0F SHIFT IN PESC EQU /1B ESCAPE < , PCSI EQU /5B CONTROL SEQUENCE INTRODUCER V PREP EQU /62 REPEAT * PVPR EQU /65 VERTICAL POSITION RELATIVE " PINFF EQU /74 INPUT FRONT FEED . PVPFF EQU /71 VERTICA
0x0a4850…0a49e4 Dummy {f00=0x0033, f01=0x0190, f02=»GTH t & PRIS EQU /63 RESET TO INITIAL STATE $ PDSR EQU /6E DEVICE STATUS REPORT 6 & PDCS EQU /50 DEVICE CONTROL STRING ^ PST EQU /5C STRING TERMINATOR PDEL EQU /7F DELETE PZERO EQU /30 ZERO PNEG EQU /FF P* P* & P
0x0a49e4…0a4b78 Dummy {f00=0x0033, f01=0x0190, f02=»***************** h P* P* CONTROL SEQUENCES $ P* @ > P********************************************************* J P* P* PBYTE FORM 8,8 P* P* PCSREP EQU * REPEAT P BYTE ESC,CSI P BYTE ZERO,ZER
0x0a4b78…0a4d0c Dummy {f00=0x0033, f01=0x0190, f02=»O P BYTE ZERO,VPR P BYTE NEG,NEG " PCSINFF EQU * INPUT FRONT FEED 6 P BYTE ESC,CSI P BYTE ZERO,ZERO r P BYTE INFF,NEG . PCSVPFF EQU * VERTICAL POSITION FRONT FEED P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE VP
0x0a4d0c…0a4ea0 Dummy {f00=0x0033, f01=0x0190, f02=»ONAL VERSION P BYTE ESC,CSI P BYTE ZERO,ZERO * P BYTE SNV,NEG B " PCSSLPL EQU * SELECT PAGELENGTH X P BYTE ESC,CSI ~ P BYTE ZERO,ZERO P BYTE SLPL,NEG * P BYTE NEG,NEG & PCSRIS EQU * RESET TO INITIAL STATE P B
0x0a4ea0…0a5034 (0, 209) Dummy {f00=0x0034, f01=0x0190, f02=»NEG P P* P* < P******************************************************* * P* j P* CONDITIONAL ASSEMBLY t P* < P******************************************************* P* P* P* 4 P* THE STANDARD
0x0a5034…0a51c8 Dummy {f00=0x0034, f01=0x0190, f02=»NY,AUSTRIA,LUXEMBOURG,SWITZERLAND F P =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA * 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG t , P =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA P =5 ITALY,SWITZERLAND P =6 SWEDEN,FI
0x0a51c8…0a535c Dummy {f00=0x0034, f01=0x0190, f02=» =11 SWEDEN (SPECIAL VERSION) P =13 GREEK ( $ P =14 JAPAN (KATAKANA VERSION) > $ P =15 ISRAEL (HEBREW VERSION) f P* P* ( PX:A EQU 02 GREAT BRITAIN AS STANDARD PSTDNCV EQU 07 P P* P* , P* THE
0x0a535c…0a54f0 Dummy {f00=0x0034, f01=0x018e, f02=»E t P* P* P* ( P* THE STANDARD PAGELENGTH IS DEFINED ( & P* BY SETTING X:C = NUMBER OF LINES T P* ~ P* PX:C EQU 48 PPAGLEN EQU 51 P* P* . P* THE STANDARD NUMBER OF LINES IS DEFINED & P* BY SET
0x0a54f0…0a5684 Dummy {f00=0x0034, f01=0x018e, f02=» P* MMU BUFFER SIZE P* P* ( PX:E EQU 132 2 PDVBLEN EQU 162 F P* P* f P* p . P* A PROGRAM VERSION USING TOSS MMU PAGING z * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* P* PMMUPAG EQU 1 P*
0x0a5684…0a5818 Dummy {f00=0x0034, f01=0x0190, f02=» P* PCPU852 EQU 0 P & P* 0 P* : 0 P******************************************* D P* x P* DWT - DISPLACEMENTS P* 0 P******************************************* P* P* P* 0 PDWTDRD EQU /
0x0a5818…0a59ac Dummy {f00=0x0034, f01=0x0190, f02=» PSTART EQU DWTDRD+4 P XIF P* * 0 PDWTDCS EQU START+/12 DOCUMENT CHARACTER SET 4 . PDWTPCS EQU START+/14 PRINTER CHARACTER SET h , PDWTPL EQU START+/16 PRINTER PAPER LENGTH . PDWTDL EQU START+/18 DOCUMENT PAPER LENGTH 0 PDWTALN EQU S
0x0a59ac…0a5b40 Dummy {f00=0x0034, f01=0x0190, f02=»ATED) h 0 PDWTSTR EQU START+/20 CONTROL SEQUENCE ADRESS D PDWTDISP EQU START+/22 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. B 0 PDWTACD EQU START+/24 ACTUAL COLUMN DOCUMENT , PDWTACP EQU START+/27 ACTUAL COLUMN PAPER * PDWTCO1 EQU START+/2A COLUM
0x0a5b40…0a5cd4 (0, 210) Dummy {f00=0x0034, f01=0x0190, f02=»INE/FORM FEED INDICATOR z P P* * P* 4 0 P******************************************* > P* r P* ECB - DISPLACEMENTS | P* 0 P******************************************* P* & PECBBA EQU 2 BUFFER ADDRESS IN ECB
0x0a5cd4…0a5e68 Dummy {f00=0x0034, f01=0x0190, f02=»EQU 10 CONTROL WORD IN ECB P " P* , 0 P******************************************* 6 P* j P* TABLES t P* 0 P******************************************* P* P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 DEVICE
0x0a5e68…0a5ffc Dummy {f00=0x0034, f01=0x0190, f02=»RUPT HANDLER P DATA RCTP RECOVERY ROUTINE PTPTAB EQU * 8 P IFT FFDEV=1 L P DATA /0107,/0C25,/3939 ` P XIF P DATA /0006,/2424 PTPLEN EQU *-TPTAB P P P P* P* P* A C T P P*
0x0a5ffc…0a6190 Dummy {f00=0x0034, f01=0x0190, f02=» P* PACTP EQU * ACTIVATION ENTRY P* 6 P* @ : P* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT J P* " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,1 MASK * P LC A3,DWTST+1,A6 GET OLD DEVICE VALUE P ANK A3,/FE
0x0a6190…0a6324 Dummy {f00=0x0034, f01=0x0190, f02=»ED ORDER r PACT005 LDK A3,TPLEN-1 . PACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER . P RF(E) ACT020 VALID ORDER ` P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL DISIOE ILLEGAL ORDER P* P* PACT020 EQU * P
0x0a6324…0a64b8 Dummy {f00=0x0034, f01=0x0190, f02=»SDOC,DOCPAR,RELDOC,RELDOC z P XIF " & P DATA TSTSTA,WRTCON,CSTPAR,CSTPAR . P X P* b P* l P* ORDER 00 : TEST STATUS v P* P* PTSTSTA EQU * TEST STATUS P CF A5,RESREC * P CF A5,GTSTAT GET STATUS FROM PRINTER
0x0a64b8…0a664c Dummy {f00=0x0034, f01=0x0190, f02=»* PWRTDOC EQU * P CF A5,GTSTAT " P LD A4,DWTST,A6 DEVICE STATUS 4 * P ANKL A4,/200 HAS POWER OFF OCCURED ? Z P RF(NZ) WRDO05 YES P LDKL A3,/2000 * P TM A1,A3 DOCUMENT OUT ? P RF(Z) WRDO06 NO , P LDKL A3,/8000 YES S
0x0a664c…0a67e0 Dummy {f00=0x0034, f01=0x0190, f02=»M A1,A3 NOT OPERABLE? P RF(Z) WRDO10 NO P ABL DISEND END REQUEST 6 * PWRDO10 LD A3,DWTALN,A6 GET ACTUAL LINE V P RF(NZ) WRDO15 ( P LDK A3,1 SET UP ECB BUFFER POINTER * P CF A15,GETCHR GET CONTROL CHARACTER P CWK A2,/31 CTRL CHA
0x0a67e0…0a6974 (0, 211) Dummy {f00=0x0034, f01=0x0190, f02=»12 LDKL A2,CSINFF INPUT FRONT FEED 2 P LDK A3,DWTRLN REQUESTED LINE NO DISPLACEMENT , & P CF A5,SEND SEND INPUT FRONT FEED b P LD A3,DWTRLN,A6 & P ST A3,DWTALN,A6 SET DWTALN=DWTRLN P 0 PWRDO15 LDKL A2,CSSNV SELECT NATIONAL VERSION 6
0x0a6974…0a6b08 Dummy {f00=0x0034, f01=0x0190, f02=» P * =1 ( P RF WRT01 GOTO GET CONTROL CHARACTER P XIF @ P L P* V P* ` , P* ORDER 06: WRITE CONTINOUS STATIONARY j P* P* PWRTCON EQU * P * $ P CF A5,GTSTAT GET DEVICE STATUS P LDKL A3,/2000 *
0x0a6b08…0a6c9c Dummy {f00=0x0034, f01=0x0190, f02=» TM A1,A3 P RF(Z) WRCO10 NO P ABL ENDIO END REQUEST * P H 0 PWRCO10 LDKL A2,CSSNV SELECT NATIONAL VERSION P 2 P LDK A3,DWTPCS PRINTER CHAR. SET DISPLACEMENT , P CF A5,SEND SEND SELECT NATIONAL VERSION P U =1 P U =1
0x0a6c9c…0a6e30 Dummy {f00=0x0034, f01=0x0190, f02=» CONTROL CHARACTER ~ P ! P LDR A4,A1 ! " & P LD A1,DWTST,A6 GET DEVICE STATUS ! 4 * P ANKL A1,/200 HAS POWER OFF OCCURED ? ! ^ P RF(Z) WRT04 NO ! P CF A5,RESREC YES ! " P CWK A2,/2B CTRL. CHAR.=/2B ? ! P RF(NE) WRT08 NO ! $ P LC A1,DWT
0x0a6e30…0a6fc4 Dummy {f00=0x0034, f01=0x0190, f02=»=/2B ! t P RF(NE) WRT02 NO " $ P LC A2,DWTOR+1,A6 GET DWT INDEX " ( P ANK A2,1 DOCUMENT? " P P RF(NZ) WRT03 YES " l & P LD A4,DWTCO1,A6 GET ACTUAL COLUMN " * P CF A5,KONVER CONVERT BINARY TO ASCII " P " > P SC A2,DWTACP,A6 STORE THE VALUE I
0x0a6fc4…0a7158 Dummy {f00=0x0034, f01=0x0190, f02=»E " v P CF A5,OUTPUT # P LDKL A2,CSREP REPEAT # 4 P LDK A3,DWTACP ACTUAL COLUMN PAPER DISPLACEMENT # > P CF A5,SEND SEND REPEAT # v ( P LDK A3,2 SET UP ECB BUFFER POINTER # P RF WRT15 # , PWRT03 LD A4,DWTCO2,A6 GET ACTUAL COLUMN # * P CF
0x0a7158…0a72ec Dummy {f00=0x0034, f01=0x0190, f02=» VALUE IN ACTUAL COLUMN DOC.DISPLACEMENT # t P SRL A4,8 $ 2 0 P SC A4,DWTACD+1,A6 SHIFT FOR CORRECT DIGITS $ D PWRT09 LDK A2,/20 SEND SPACE $ x P CF A5,OUTPUT $ P LDKL A2,CSREP REPEAT $ 6 P LDK A3,DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT $
0x0a72ec…0a7480 Dummy {f00=0x0034, f01=0x0190, f02=» ( P ANK A1,/8 IS LINE/FORM FEED DONE ? % P RF(Z) WRT14 YES % 0 & PWRT02 LC A1,DWTOR+1,A6 DOCUMENT ? % J P ANK A1,1 * % t P RF(Z) WRT13 NO % P* % P CWK A2,/30 TWO LINE FEED ? % P RF(E) WRT11 YES % P* % P CWK A2,/31 FORM FEED
0x0a7480…0a7614 (0, 212) Dummy {f00=0x0034, f01=0x0190, f02=» % n P SUK A3,1 INCR REQ LINE NO & P RF TWO TWO LINE FEED & . * PWRT16 LD A1,DWTRLN,A6 GET REQ LINE NO & L ( P CF A5,BINARY CONV ASCII TO BINARY & z " PTWO SUK A3,1 INCR REQ LINE NO & P LDR A4,A3 * & ( P CF A5,KONVER CONV BINARY TO ASCII &
0x0a7614…0a77a8 Dummy {f00=0x0034, f01=0x0190, f02=»ISPLACEMENT & t P CF A5,SEND * ' P* ' * P LD A4,DWTRLN,A6 * ' 4 , P ST A4,DWTALN,A6 ACTUAL LINE =REQ LINE ' P P RF WRT12 ' P* ' P* ' * PWRT13 CWK A2,/30 CONTINOUS STATIONARY ' $ P RF(E) WRT05 TWO LINE FEED,YES ' P* ' P C
0x0a77a8…0a793c Dummy {f00=0x0034, f01=0x0190, f02=» ' P* ( " PWRT05 LDK A2,LF SEND LINE FEED ( P CF A5,OUTPUT ( 8 " PWRT10 LDK A2,LF SEND LINE FEED ( N P CF A5,OUTPUT ( t ( PWRT12 LC A1,DWTLFD,A6 GET INDICATOR ( , P ORK A1,/4 INDICATE LINE/FORM FEED DONE ( & P SC A1,DWTLFD,A6 STORE INDICATOR
0x0a793c…0a7ad0 Dummy {f00=0x0034, f01=0x0190, f02=»MN COUNTER 1 ( r 6 PWRT45 CM DWTCO2,A6 CLEAR DOCUMENT COLUMN COUNTER 2 ) P* ) N P* ) X P ) b PWRT15 LDK A3,2 * ) j P RF WRT20 * ) . PWRT17 SUK A3,/02 ECB BUFFER POINTER = /02 ) P RF(Z) WRT18 YES. ) ( P LDK A2,CR NO. SEND CARRIAGE RETURN
0x0a7ad0…0a7c64 Dummy {f00=0x0034, f01=0x0190, f02=»ACTER FRON ECB-BUFFER ) t P LDR A4,A1 * $ P RB(NP) WRT17 NO MORE CHARACTERS * 0 P LDR A4,A2 * X P* * j @ P* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER * t P* * P * P SUK A4,/20 CHAR < /20? * ( P RB(N) WRT20 YES GET A NEW CHA
0x0a7c64…0a7df8 Dummy {f00=0x0034, f01=0x0190, f02=»E TO /2E * t 4 P LDK A4,/04 ILLEGAL CHARACTER SET BIT 13 IN R.C. + P ORS A4,ECBRC,A8 + H P RB WRT20 + ` PWRT30 LDK A2,/2E + r PWRT25 LDR A4,A1 + P CF A5,OUTPUT SEND CHARACTER + $ P LC A2,DWTOR+1,A6 GET DWT INDEX + P ANK A2,1 DOCUMENT? +
0x0a7df8…0a7f8c Dummy {f00=0x0034, f01=0x0190, f02=» RB WRT20 + PENDIO EQU * , P LC A2,DWTLFD,A6 * , & P ANK A2,/8 * , B & P SC A2,DWTLFD,A6 RESET LF/FF IND. , X P ABL DISEND END REQUEST , P , P , P IFT FFDEV=1 , P* , P* , $ P* ORDER 0B : POSITION DOCUMENT , 0 P*
0x0a7f8c…0a8120 Dummy {f00=0x0034, f01=0x0190, f02=»TSTAT GET DEVICE STATUS , P LDK A3,1 NOT OPERABLE - P TM A1,A3 * - @ P RF(NZ) POS020 YES - T * P LDKL A2,CSSNV SELECT NATIONAL VERSION - p $ P LDK A3,DWTDCS DOCUMENT VERSION - P CF A5,SEND SEND SNV - P * =1 - P * =1 - P * =
0x0a8120…0a82b4 (0, 213) Dummy {f00=0x0035, f01=0x0190, f02=»INE - z * P CF A5,BINARY CONVERT ASCII TO BINARY . " P CWR A4,A3 REQ. LINE>MAX. LINE . : P RF(G) POSERR YES . ` P ADK A3,1 CORRECT POSITION . z P SUR A4,A3 INVERT LINE NO. . ( P NGR A4,A4 GET PRINTER REQ. LINE NO. . * P CF A5,KONVER CONVERT BINARY T
0x0a82b4…0a8448 Dummy {f00=0x0035, f01=0x0190, f02=»TIONED . l PPOS005 EQU * / $ P LDKL A2,CSINFF INPUT FRONT FEED / " 6 P LDK A3,DWTRLN REQUESTED LINE NUMBER DISPLACEMENT / J & P CF A5,SEND SEND INPUT FRONT FEED / PPOS010 EQU * / P CF A5,GTSTAT GET STATUS / P LDR A2,A1 GET RETURN CODE / ( P ANK
0x0a8448…0a85dc Dummy {f00=0x0035, f01=0x018e, f02=» / l , P ST A4,DWTALN,A6 ACTUAL LINE = REQ LINE 0 P * =2 0 8 PPOS020 ABL DISEND 0 H PPOS030 EQU * 0 b 0 P LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED 0 v 6 P LDK A3,DWTRLN REQUESTED LINE NUMBER DISPLACEMENT 0 2 P CF A5,SEND SEND VERTICAL POSITION F
0x0a85dc…0a8770 Dummy {f00=0x0035, f01=0x0190, f02=» 0 x P 1 P IFT FFDEV=1 1 P* 1 & P* 1 0 ( P* ORDER 24 : SET DOCUMENT PARAMETERS 1 : P* 1 f P* 1 p $ PDOCPAR EQU * DOCUMENT PARAMETERS 1 z P LDK A1,0 CLEAR A1 1 P CF A5,RESREC 1 ( P LD A4,ECBCW,A8 GET NUMBER OF LINES 1 P SRL A4,
0x0a8770…0a8904 Dummy {f00=0x0035, f01=0x0190, f02=»INDEX TO LINE TABLE 1 ~ 0 P LD A4,LINNUM,A4 GET LINE ACCORDING TO INDEX 2 0 P ST A4,DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT 2 P PDOC010 EQU * 2 4 P LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION 2 P ANK A4,/FF 2 6 P RF(Z) DOC020 NO CHANGE OF NATIONAL
0x0a8904…0a8a98 Dummy {f00=0x0035, f01=0x0190, f02=»ET NAT. CHAR. SET ACC. TO INDEX 2 ~ 4 P ST A4,DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT 3 ( PDOC020 EQU * 3 ` P RB ENDIO END REQUEST 3 t P XIF 3 P 3 P* 3 P* 3 6 P* ORDER 24 : SET CONTINUOUS STATIONARY PARAMETERS 3 P* 3 P* 3 6
0x0a8a98…0a8c2c Dummy {f00=0x0035, f01=0x0190, f02=» OF LINES CST. 3 v P SRL A4,8 GET LINES 4 $ P RF(Z) CST010 NO CHANGE OF LINES 4 2 P CWK A4,/10 INDEX TO BIG 4 Z P RB(G) POSERR YES 4 z * P ADR A4,A4 ADJUST INDEX TO LINE TABLE 4 2 P LD A4,LINNUM,A4 GET LINES ACCORDING TO INDEX 4 2 P ST A4,DWTPL,A6
0x0a8c2c…0a8dc0 Dummy {f00=0x0035, f01=0x0190, f02=»F A5,SEND SEND SELECT PAGELENGTH =1 4 PCST010 EQU * 5 , 4 P LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION 5 @ P ANK A4,/FF 5 x . P RF(Z) CST020 NO CHANGE OF NAT. CHAR. SET 5 P CWK A4,/F INDEX TO BIG 5 P RB(G) POSERR YES 5 0 P ADR A4,A4 ADJUS
0x0a8dc0…0a8f54 (0, 214) Dummy {f00=0x0035, f01=0x0190, f02=»NT.STAT. 5 f PCST020 EQU * 6 P ABL ENDIO END REQUEST 6 $ P* 6 B P* 6 L P* 6 V P 6 ` P IFT FFDEV=1 6 j P* 6 ~ P* 6 " P* ORDER 38 : RELEASE DOCUMENT 6 P* 6 P* 6 PRELDOC EQU * 6 P CF A5,RESREC 6 . P LDKL A2,CSEJFF CO
0x0a8f54…0a90e8 Dummy {f00=0x0035, f01=0x0190, f02=»DE 6 x " P ANK A2,/20 DOCUMENT RELEASED 7 " P RB(NZ) RELDOC NO , TRY AGAIN 7 0 P ANKL A1,/8000 REQUEST ERROR 7 V $ P CM DWTALN,A6 RESET ACTUAL LINE 7 z & P CM DWTRLN,A6 RESET REQUESTED LINE 7 P ABL ENDIO END REQUEST 7 P XIF 7 P 7 P* 7
0x0a90e8…0a927c Dummy {f00=0x0035, f01=0x0190, f02=»QU * 7 P LD A4,DWTST,A6 I/O-REQUEST 8 P ABL(N) TDISP NO , DISPATCH 8 0 & P ABL LDREG RETURN TO READ ROUTINE 8 T P 8 ~ P* 8 P* 8 P* R C T P 8 P* 8 : P* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON 8 P* 8 P* 8
0x0a927c…0a9410 Dummy {f00=0x0035, f01=0x0190, f02=»? 8 n P RF(NZ) RCTP05 YES 9 0 P ORK A4,/8 INDICATE:NO LINE/FORM FEED DONE 9 & B P SC A4,DWTLFD,A6 * * 9 Z < P RF RCTP07 * * 9 & PRCTP05 LDK A4,0 RESET INDICATORS 9
0x0a9410…0a95a4 Dummy {f00=0x0035, f01=0x0190, f02=»L STATE 9 r , P CF A5,SEND SEND RESET TO INITIAL STATE : 0 P LD A1,DWTSYST,A6 INTERN. SYSTEM START IND. : @ $ P RF(NZ) RCTP10 NO SYSTEM START : t P * : . P IM DWTSYST,A6 SET SYSTEM START INDICATOR : P * : 0 P LDKL A4,STDNCV GET STANDARD N
0x0a95a4…0a9738 Dummy {f00=0x0035, f01=0x0190, f02=» CHAR. SET CONT.STAT. : | ( P LDKL A4,PAGLEN STANDARD PAGE LENGTH ; * P CF A5,KONVER CONVERT BINARY TO ASCII ; J . P ST A4,DWTPL,A6 SET PAGE LENGTH CONT.STAT. ; x ( P LDKL A2,CSSLPL SELECT PAGELENGTH =1 ; 0 P LDK A3,DWTPL PRINTER PAPER LENGTH DISPL. =1 ; *
0x0a9738…0a98cc Dummy {f00=0x0035, f01=0x0190, f02=»O ASCII ; r , P ST A4,DWTDL,A6 SET PAGE LENGTH DOCUMENT < PRCTP10 EQU * < @ $ P CM DWTALN,A6 RESET ACTUAL LINE < T , P LDKL A1,/200 INDICATE POWER OFF OCCURED < | P ORS A1,DWTST,A6 < $ P LD A1,DWTECB,A6 RUNNING REQUEST < , P ABL(NZ) ACT005 YES , REPE
0x0a98cc…0a9a60 Dummy {f00=0x0035, f01=0x0190, f02=» 'DEVICE STATUS REPORT TO THE PRINTER < | P* = . : P* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER = 8 P* = v P* AT EXIT A1 = RETURN CODE = P* = P* = PGTSTAT EQU * = " P CM DWTRC,A6 RESET RETURN CODE = P LDK A2,ESC ESCAPE =
0x0a9a60…0a9bf4 (0, 215) Dummy {f00=0x0035, f01=0x0190, f02=»A5,OUTPUT SEND /35 = $ P LDK A2,DSR DEVICE STATUS REPORT > P CF A5,OUTPUT SEND DSR > B P LDR* A2,A6 > ` P ANK A2,/F * > t P CWK A2,/C PTS 8000 ? > P RF(L) GTST05 NO > P SUK A2,/F SALCUZ ? > P RF(Z) GTST05 YES > P LDK A2,ETX END OF
0x0a9bf4…0a9d88 Dummy {f00=0x0035, f01=0x0190, f02=»AUCHT > t " P LD A4,DWTTP,A6 UHR LAUEFT ??? ? P RF(E) ZEIT01 NEIN ! ? 4 P LDKL A4,-ZEIT ? P P ST* A4,DWTTP,A6 ? f P RF ZEIT02 ? ~ PZEIT01 EQU * ? P LDKL A4,DWTTP ? P ADR A4,A6 ? P LDR A1,A6 ? P CF A15,SETIMP ? P DATA ZAUS,ZEIT ?
0x0a9d88…0a9f1c Dummy {f00=0x0035, f01=0x0190, f02=»INTER ? p P LD A3,DWTTP,A6 @ * P RF(E) ZEIT03 ES LAUEFT KEINE UHR !!! @ & P LDKL A3,-ZEIT @ T , P ST* A3,DWTTP,A6 ZIEH DIE UHR WIEDER AUF @ j P* @ PZEIT03 EQU * @ P ANK A2,/FF GET CHARACTER @ $ P CCK A2,/5C5C STRING TERMINATOR @ P RF(E)
0x0a9f1c…0aa0b0 Dummy {f00=0x0035, f01=0x0190, f02=»A3 TIMES @ $ P EXR A3 EXECUT SHIFT INSTRUCTION A 2 P ORS A2,DWTRC,A6 SAVE RETURN CODE TEMPORARILY A 8 P ADK A4,2 INCREMENT ADRESS A n ( P RB GTST10 GET NEXT STATUS CHARACTER A PGTSEND EQU * A P LD A1,DWTTP,A6 A & P RF(E) ZEIT04 ES LAUEFT KEINE UH
0x0aa0b0…0aa244 Dummy {f00=0x0035, f01=0x0190, f02=» A5 A P B P* B P* B " P* TIME OUT ROUTINE FUER LP 100 B * P* B P P* B Z PZAUS EQU * B d P* B v " P LDR A6,A1 A6 WIEDERHERSTELLEN B P CM DWTTP,A6 B P LDKL A5,DWTSB1 B P ADR A5,A6 B 2 P RB GTSTAT MIT VIEL BAUCHWEH !!!!!!!
0x0aa244…0aa3d8 Dummy {f00=0x0035, f01=0x0190, f02=» P* REGISTERS : C P* A1= WORK REGISTER C P* A4= BINARY INPUT C 8 P* A2,A4= ASCII OUTPUT C T P* C t P* C ~ PKONVER EQU * C P* BINARY TO DEC. C P LDK A2,0 CLEAR A2 C P CWK A4,100 VALUE > 100 ? C P RF(L) KONV05 NO C P
0x0aa3d8…0aa56c Dummy {f00=0x0035, f01=0x0190, f02=» A4,10 C 2 P ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y D P RB KONV05 NEXT D D " PKONV04 ORKL A2,/3030 XY IN A2 D P ORK A4,/30 Z IN A4 D P SRC A2,8 YX IN A2 D P LDR A1,A2 D P ANKL A1,/FF00 KEEP Y IN A1 D . P ANK A2,/FF KEEP X IN R. B
0x0aa56c…0aa700 Dummy {f00=0x0035, f01=0x0190, f02=» EQU * D " P LD A4,DWTST,A6 DEVICE STATUS E P ANKL A4,/200 RECOVERY? E 4 P RF(E) RESRTN NO. E T , P XRS A4,DWTST,A6 YES. RESET RECOVERY BIT E n PRESRTN RTN A5 RETURN E P E P* E P* E P* S E N D E P* E , P* THIS ROUTINE SENDS
0x0aa700…0aa894 (0, 216) Dummy {f00=0x0035, f01=0x0190, f02=» DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC E P* F 2 P* F < P* AT EXIT : F F P* A1,A2,A3 IS DESTROYED F Z P* F z P* F P* F $ PSEND EQU * SEND CONTROL SEQUENCE F , P ST A3,DWTDISP,A6 SAVE DWT-DISPLACEMENT F , P ST A2,DWTSTR,A6 CONTROL
0x0aa894…0aaa28 Dummy {f00=0x0035, f01=0x0190, f02=»/FF MAKE CHARACTER F & P SLL A2,8 END OF CONTROL SEQUENCE G P RF(N) SENDEND YES,RETURN G D & P CWK A2,/3000 LINE NO,CHAR.SET,ETC G f P RF(E) SEND30 YES G ( P SRL A2,8 PREPARE TO SEND CHARACTER G P CF A5,OUTPUT SEND CHARACTER G PSEND20 EQU * G
0x0aaa28…0aabbc Dummy {f00=0x0035, f01=0x0190, f02=»CEMENT G p P ADR A3,A6 GET PROPER VALUE H P LCR A2,A3 GET CHARACTER H 2 P CF A5,OUTPUT SEND CHARACTER H R , P IM DWTDISP,A6 INC. DISPLACEMENT ADRESS H v P RB SEND20 GET NEXT H PSENDEND EQU * H P RTN A5 H P H P* H P* H P*
0x0aabbc…0aad50 Dummy {f00=0x0035, f01=0x0190, f02=» P* A2= WORK REGISTER I P* A3= BINARY OUTPUT I P* I < P* I F P* I P PBINARY SUR A3,A3 CLEAR A3 I Z P LDR A2,A1 MAX. LINE ASCII I | P SRL A2,8 I P SUK A2,/30 I P ADR A3,A2 I P ADR A3,A2 I P SLL A2,3 I P ADR A3,A2 I
0x0aad50…0aaee4 Dummy {f00=0x0035, f01=0x0190, f02=»135,/3138,/3234 I " P DATA /3235,/3330,/3333,/3335 J " P DATA /3336,/3438,/3530,/3531 J > " P DATA /3630,/3636,/3730,/3732 J d P* J P* J P* J P* J 6 PNCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE J " P DATA /3031,/3032,/3033,/303
0x0aaee4…0ab078 Dummy {f00=0x0035, f01=0x40b2, f02=»LE FOR STATUS REPORT FROM PRINTER J ~ P DATA /C0,/C0,/C0,/2CC * K * P DATA /2CF,/4CB,/C0,/C0 * K L P DATA /C0,/C0,/C0,/C0 K n P DATA /C0,/C0 K P END K @ K NCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE J " P DATA /3031,/3032,/3033,/303
0x0ab078…0ab20c Dummy {f00=0x0035, f01=0x2008, f02=» L 4 J | " P DATA /3035,/3036,/3037,/3038 K " P DATA /3039,/3130,/3131,/3131 K 8 P DATA /3133,/3134,/3135 K ^ 8 PTAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER K ~ P DATA /C0,/C0,/C0,/2CC * K P DATA /2CF,/4CB,/C0,/C0 * K P DATA /C0,
0x0ab20c…0ab3a0 Dummy {f00=0x0035, f01=0x0190, f02=» I:DLT I:EVS1 I:MCH I:INS p I:EVS2 I:CPY I:XCP I:MVC LI:EVS 801013 I:EVA0 I:EVS1K 8 I:EVA2 I:EVS2 J xT:UPDF 801013 T:UPDFK T:GRFCN T:LOFSC I:EVA0 T:LOPS I:MOV T:RCR
0x0ab3a0…0ab534 (0, 217) Opaque[0x194]
0x0ab534…0ab6c8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06c0, f03=0x0000}
0x0ab534…0ab6c8 IdxSect {
0x0ab534…0ab6c8 f00 = 0x0036 // 0xab534 @0x0
0x0ab534…0ab6c8 f01 = 0x0018 // 0xab536 @0x2
0x0ab534…0ab6c8 gno = [ // 0xab538 @0x4
0x0ab534…0ab6c8 [0x00]: C0x0036.0x0.0
0x0ab534…0ab6c8 [0x01]: C0x0036.0x1.0
0x0ab534…0ab6c8 [0x02]: C0x0036.0x2.0
0x0ab534…0ab6c8 [0x03]: C0x0036.0x3.0
0x0ab534…0ab6c8 [0x04]: C0x0037.0x0.0
0x0ab534…0ab6c8 [0x05]: C0x0037.0x1.0
0x0ab534…0ab6c8 [0x06]: C0x0037.0x2.0
0x0ab534…0ab6c8 [0x07]: C0x0037.0x3.0
0x0ab534…0ab6c8 [0x08]: C0x0038.0x0.0
0x0ab534…0ab6c8 [0x09]: C0x0038.0x1.0
0x0ab534…0ab6c8 [0x0a]: C0x0038.0x2.0
0x0ab534…0ab6c8 [0x0b]: C0x0038.0x3.0
0x0ab534…0ab6c8 ]
0x0ab534…0ab6c8 }
0x0ab6c8…0ab85c Dummy {f00=0x0036, f01=0x0190, f02=» 2 P IDENT DRDY01 9.2DK 1 80-02-12 870105040921 P : P *DK,POS 80 ON VDU B P REL 9.2 80-02-12 ^ P =4,ABORT ROUTINE INCLUDED z P REL 9.1 79-05-23 * P =3,STEADY CURSOR PROBLEM CORRECTED P PRR 9.1 79-04-06 , P =
0x0ab85c…0ab9f0 Dummy {f00=0x0036, f01=0x0190, f02=»01-12 P P* 6 P************************************************** P* Z $ P* PHILIPS TERMINAL SYSTEM PTS d P* 2 P* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY P* P* P* P* P* P* 6 P
0x0ab9f0…0abb84 Dummy {f00=0x0036, f01=0x0190, f02=» @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 H 6 P* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM b P* VIA CHLT OR CHRT. P* < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS : P*
0x0abb84…0abd18 Dummy {f00=0x0036, f01=0x018e, f02=»BOARD DRIVER DRKB01. P* P* & 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: 0 P* d & P* A C D Y ACTIVATION PART n P* ( P* I H D Y INTERRUPT HANDLER P* ( P* R C D Y RECOVERY ROUTINE P*
0x0abd18…0abeac Dummy {f00=0x0036, f01=0x0190, f02=» P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE 0 " P* 06: STANDARD WRITE R ( P* 07: WRITE GRAPHIC DISPLAY x & P* 0B: CURSOR POSITIONING P* 31: ERASE P* P* NORMAL REGISTER
0x0abeac…0ac040 Dummy {f00=0x0036, f01=0x0190, f02=»X r $ P* A4 = WORK REGISTER " P* A5 = STACK BASE 2 " P* A6 = DWT-ADDRESS X P* A7 = ORDER ~ " P* A8 = ECB-ADDRESS P* P EJECT P* P* P* SYSTEM ADAPTATION
0x0ac040…0ac1d4 (0, 218) Dummy {f00=0x0036, f01=0x0190, f02=»* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 4 * P* 0 1 PTS 6351 & 6342 Z * P* 1 0 PTS 6386 & 6385 * P* --------------------------------- P* 6 P* BY MEANS OF CONDITION
0x0ac1d4…0ac368 Dummy {f00=0x0036, f01=0x0190, f02=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER > & P* -CAN SUPPRESS TRAILING BLANKS z F P* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) P EJECT P* P*
0x0ac368…0ac4fc Dummy {f00=0x0036, f01=0x0190, f02=»S TO ADDRESSBLOCK ~ 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* N P* X P* b P* l . P***************************************** v . P* EXTERNAL TOSS MODULE ENTRIES * . P*****************************************
0x0ac4fc…0ac690 Dummy {f00=0x0036, f01=0x0190, f02=»R z > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O L . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK j 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJE
0x0ac690…0ac824 Dummy {f00=0x0036, f01=0x0190, f02=»ST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER 4 P* N P EJECT X P************* f P* CONSTANTS * | P************* P* PFASTO EQU /14 FAST OUTPUT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTAR EQU /
0x0ac824…0ac9b8 Dummy {f00=0x0036, f01=0x0190, f02=»TOP r PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED , PHOME EQU /0B CURSOR HOME H ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME h PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT PSPACE EQU /20 SPACE PSTX EQU /82 START
0x0ac9b8…0acb4c Dummy {f00=0x0036, f01=0x018e, f02=»PE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER * 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT P PSTILL EQU /18 CURSOR STEADY $ PCTYCOD EQU /1B SET COUNTRY CODE P* P******************** P* RETURN CODE
0x0acb4c…0acce0 Dummy {f00=0x0036, f01=0x0190, f02=» P EJECT P* P* . P***************************************** * . P* CONDITIONAL ASSEMBLY * . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MO
0x0acce0…0ace74 (0, 219) Dummy {f00=0x0036, f01=0x0190, f02=»44 Z P* PX:B EQU 1 PWHATDY EQU 1 & P* : P* D 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR N & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 0 PLOWCHA EQU 0 P* P* 8 P* BY MEANS OF CONDITION
0x0ace74…0ad008 Dummy {f00=0x0036, f01=0x018e, f02=»ANT X:G=0 f P* PX:D EQU 0 PEORECH EQU 0 . P* B 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS L @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 PTRASPA EQU 1 P EJECT P*
0x0ad008…0ad19c Dummy {f00=0x0036, f01=0x0190, f02=» < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 D P* f PMMUPAG EQU 1 p P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x0ad19c…0ad330 Dummy {f00=0x0036, f01=0x0190, f02=» CHARACTER SETS. h P P P* CODE COUNTRY ( P > P* 0 GB/NL/B F P* 1 D/A/L/CH Z P* 2 F/CH/B/L n P* 3 E P* 4 I/CH P* 5 S/SF P* 6 DK/N P* 7 P P* 8 YU P* 9 US PX:G EQU 0 PCOUNTRY EQU
0x0ad330…0ad4c4 Dummy {f00=0x0036, f01=0x0190, f02=»CT P* P* $ P******************************** $ P* DWT-DISPLACEMENT * F $ P******************************** n P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU
0x0ad4c4…0ad658 Dummy {f00=0x0036, f01=0x0190, f02=»ION POINTER r " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES : & PDWTBIN EQU START+/16 BUFFER INDEX P* P EJECT P* P* P********** P* TABLES * P********** P* P* P DATA DVBLEN
0x0ad658…0ad7ec Dummy {f00=0x0036, f01=0x0190, f02=»OUTINE ADDRESS ~ P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE : . P DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE ^ P* P* , PTABSPE EQU * TABLE OF SPECIAL CHARACTERS P DATA /0712,/131E,/1F14 P EJECT P*
0x0ad7ec…0ad980 Dummy {f00=0x0036, f01=0x0190, f02=»ISPLAY AND RETURN CODE b 2 P* IS SET IF DISPLAY NOT OPERABLE P* T P* ^ > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY h 6 P* FROM ECB-BUFFER WITHOUT ANY CHECK. P* F P* ORDER 06: STANDARD WR
0x0ad980…0adb14 (0, 220) Dummy {f00=0x0036, f01=0x0190, f02=» IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER B F P* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> P* P IFT GRAFIC=1 B P* ORDER 07:
0x0adb14…0adca8 Dummy {f00=0x0036, f01=0x0190, f02=» IS SENT TO THE DISPLAY. P* " P XIF , : P* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. 8 < P* THE CURSOR IS SENT TO THE POSITION GIVEN v > P* IN CONTROL WORD. NO INFORMATION ON DISPLAY @ P* I
0x0adca8…0ade3c Dummy {f00=0x0036, f01=0x0190, f02=»RASED ON THE LINE j < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL Z @ P* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS : P* IN THE CURSOR POSITION.
0x0ade3c…0adfd0 Dummy {f00=0x0036, f01=0x018e, f02=»UNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES * P LDK A2,STX START OF MESSAGE D P CF A5,OUTPUT SEND h P IFT WHATDY=0 " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/10 GRAPHIC DISPLAY P RF(E) ACDY02 NO P IFT GRAFIC=1
0x0adfd0…0ae164 Dummy {f00=0x0036, f01=0x0190, f02=» d P CF A5,OUTPUT P* P XIF ( P* 4 PACDY02 EQU * > P CWK A7,5 ORDER 5 R P RF(E) ACDY90 YES l P SUK A7,6 ORDER 6 ? P RF(E) ACDY20 YES P SUK A7,5 ORDER /B ? P ABL(E) ADY200 YES P SUK A7,/26 ORDER ERAS
0x0ae164…0ae2f8 Dummy {f00=0x0036, f01=0x0190, f02=»N RIGHT BYTE IN BUFFER p P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD < " P* /30 CR, LF, LF p B P* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION P* OTHER VALUE CR, LF P* P
0x0ae2f8…0ae48c Dummy {f00=0x0036, f01=0x0190, f02=»FFER ADDRESS ~ & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF > PACDY25 EQU * R * P SUK A2,/2B POSITIONING BEFORE WRITE ? f P RF(E) ACDY90 P SUK A2,6 /31 ? P RF(E) ACDY65 P LDK A4,1 INDICATE LINE FEED " P ADK A2,1 DO
0x0ae48c…0ae620 Dummy {f00=0x0036, f01=0x0190, f02=»TURN t PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER $ 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS Z P* PACDY50 EQU * P CF A5,OUTPUT SEND CHARACTER PACDY52 SUK A4,1 & P RF(N) ACDY90 START SECT
0x0ae620…0ae7b4 (0, 221) Dummy {f00=0x0037, f01=0x0190, f02=»OUNTER r P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND & P RB ACDY50 P ( PACDY65 LDK A2,CLEHOM CLEAR AND HOME b P LDK A1,1 & P SC A1,DWTAP,A6 RESET LINE COUNTER P RB ACDY35 P EJECT P* & P* GET, CHECK AND
0x0ae7b4…0ae948 Dummy {f00=0x0037, f01=0x0190, f02=»METER t P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 " P XIF J P LD A4,2,A8 V 2 P ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER j $ P CCR A2,A4 CHAR EQU TO CURRENT? P ABL(E) CHECK YES! PACDY75 EQU * P CF A5,OUTPUT
0x0ae948…0aeadc Dummy {f00=0x0037, f01=0x0190, f02=»GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 H P RF(NG) SKIP30 RL < 3 ` P SUK A1,1 DECR. BA ~ P LCR A4,A1 GET CHAR P CCK A4,/2020 SPACE ? P RF(NE) SKIP20 NO PSKIP07 SUK A2,1 DECR RL
0x0aeadc…0aec70 Dummy {f00=0x0037, f01=0x0190, f02=»TION CHAR ? | P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! . P SUK A2,2 DECR RL ! H P RB SKIP07 GET NEXT ! b ( PSKIP25 LCR A4,A1 GET CHARACTER AGAIN ! ~ P ANK A4,/FF ! " P SUK A4,/12 UNDER LINE START? ! P RB(Z) SKIP07 YES! SKIP IT! ! P
0x0aec70…0aee04 Dummy {f00=0x0037, f01=0x018e, f02=»T A2,4,A8 STORE NEW RL ! P XIF " PACDY90 LDK A4,0 " * 6 PADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER " B P LDR A1,A1 LAST CHARACTER? " | P ABL(NP) ADY405 " P SUK A7,5 ORDER 5? " P RB(E) ACDY75 " P ANK A2,/7F " P LDK A1,5 SET
0x0aee04…0aef98 Dummy {f00=0x0037, f01=0x0190, f02=» " p P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # , P LDK A1,0 SET TABLE PONTER # D * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND # f P RF(NE) ADY128 # " P CCK A2,/1E1E LOW INTENSITY ? # P RF(NE) ADY122 NO # P LDK A4,/80 # , PADY120 ORR
0x0aef98…0af12c Dummy {f00=0x0037, f01=0x0190, f02=» LDK A4,/40 SET UNDERLINE MODE # P RB ADY120 $ & & PADY125 CCK A2,/1414 FAST OUTPUT ? $ 8 P LDK A4,0 $ b P RB(NE) ACDY50 NO $ t P LDR A4,A2 $ ( P CF A15,GETCHR GET OUTPUT CHARACTER $ P LDR A1,A2 $ P LDR A2,A4 $ P LD A4,4,A8 REQ LENGTH $
0x0af12c…0af2c0 Dummy {f00=0x0037, f01=0x018e, f02=» P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % N P LDR A3,A1 NO! % Z P CF A5,FASTER % p PADY127 EQU * % P LD A3,4,A8 REQ LENGTH % P ST A3,6,A8 EFF LENGTH % P ABL ADY405 % PADY128 EQU * % P SUK A1,1
0x0af2c0…0af454 (0, 222) Dummy {f00=0x0037, f01=0x0190, f02=» % P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & * P SUK A1,/3F GREATER THAN /5F & P P RB(NP) ACDY70 & t P IFT LOWCHA=0 & 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & & P TO CHARACTER BETWEEN /40 TO /5F & P XIF
0x0af454…0af5e8 Dummy {f00=0x0037, f01=0x018e, f02=» P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' 2 P LC A2,DWTBC,A6 ' R P AD A2,DWTAP,A6 GET POSITION ' j P ANK A2,/FF ' $ P ADR A2,A4 ADD LENGTH OF REQUEST ' $ P LD A3,DWTPOS,A6 GET MAX-POS AND ' P ANK A3,/FF ' P S
0x0af5e8…0af77c Dummy {f00=0x0037, f01=0x0190, f02=» 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( 8 & P LDR A3,A1 SAVE CHARACTER TO SEND ( L POT010 LDR A2,A3 ( v $ P CF A5,OUTPUT SENT CHAR (IN A2) ( P SUK A4,1 DECREMENT COUNTER ( P RB(P) OT010 ( P LD A4,10,A8 GET ACT. LENG
0x0af77c…0af910 Dummy {f00=0x0037, f01=0x0190, f02=»27 ( P XIF ) P EJECT ) P* ) $ P* CODE CHECK ERROR ) . P* ) L PADY130 EQU * ) V P LDK A1,CCERR ) j P ORS A1,8,A8 RETURN CODE ) P RB ADY100 ) P EJECT ) P* ) P* TABULATION ) P* ) PADY140 EQU * ) , P CF A15,
0x0af910…0afaa4 Dummy {f00=0x0037, f01=0x0190, f02=» ) P RF(E) ADY144 * 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL * P SUK A4,1 * R P RB(NE) ADY143 * d PADY144 LC A4,DWTAP+1,A6 * z . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER * P LC A4,DWTBC,A6 * , P SUR A2,A4 AND REQUESTS POSITION COU
0x0afaa4…0afc38 Dummy {f00=0x0037, f01=0x0190, f02=»ADY146 CF A5,OUTPUT * , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + L P RB(NE) ADY145 NO + f P ABL ADY100 + P EJECT + P* + P* ERASE ORDER /31 + P* + 2 PADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE +
0x0afc38…0afdcc Dummy {f00=0x0037, f01=0x0190, f02=» & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , . P CF A5,FASTER FAST OUTPUT , B PADY165 LDK A2,ETB , d P CF A5,OUTPUT , ~ P ABL ADY410 END OF REQUEST , P IFT WHATDY=0 , PADY166 EQU * YES =2 , & P CF A5,ERA GET LENGTH TO ERASE =
0x0afdcc…0aff60 Dummy {f00=0x0037, f01=0x0190, f02=»ND IT , P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - : P LDR A3,A3 OVER EDGE =2 - d P RF(NN) ADY186 NO =2 - P SUK A4,1 ADJUST LENGTH - PADY186 EQU * - P SUK A4,1 DECREMENT =2 - , P RB(N) ADY165 CURSOR I
0x0aff60…0b00f4 (0, 223) Dummy {f00=0x0037, f01=0x0190, f02=» P* . * P* ORDER /B CURSOR POSITIONING PART . P* . < PADY200 EQU * . F P* . Z P IFT WHATDY=0 . d " P LDR* A1,A6 CHANNEL PARAMETER . z P ANK A1,/10 GRAFIC DISPLAY? . P RF(NE) ADY205 YES . 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DI
0x0b00f4…0b0288 Dummy {f00=0x0037, f01=0x0190, f02=»T CURSOR . P RF ADY380 / P IFT WHATDY=0 / " P* GET LINE / 8 * PADY205 LC A4,10,A8 GET REQUESTED LINE / N $ P CC A4,DWTLIN,A6 OUTSIDE SCREEN? / | P RF(NG) ADY207 NO! / 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE / PADY207 EQU * / $
0x0b0288…0b041c Dummy {f00=0x0037, f01=0x018e, f02=»INE / | P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 ( PADY230 CF A5,OUTPUT SEND 0 V P LDR A4,A4 REQUESTED LINE 0 v " P RB(NZ) ADY210 NOT EQUAL ZERO 0 P LDK A4,1 0 P RF ADY300 0 PADY250 LDK A2,HOME HOME 0 & P LDK A
0x0b041c…0b05b0 Dummy {f00=0x0037, f01=0x0190, f02=» 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 : $ P CC A4,DWTPOS,A6 OUTSIDE SCREEN? 1 f P RF(NG) ADY303 NO! 1 " P LC A4,DWTPOS,A6 SET LAST LINE 1 PADY303 EQU * 1 P CWK A4,1 FIRST POSITION ? 1 P RF(
0x0b05b0…0b0744 Dummy {f00=0x0037, f01=0x0190, f02=»Y305 RF(NL) ADY307 REQ. POS NOT ZERO 1 P LDK A4,1 2 , 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2 > P CC A3,DWTPOS,A6 MAX-POS? 2 r P RF(NG) ADY310 NO! 2 P SUK A3,1 2 * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS 2 P RF(E) ADY370 POSITION FOU
0x0b0744…0b08d8 Dummy {f00=0x0037, f01=0x0190, f02=»ND 2 z P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 3 N P RF(L) ADY345 BACKSPACE WAY 3 ~ P LDK A2,CR CARRIAGE RETURN 3 & P LDK A3,1 INDICATE FIRST POSITION 3 P RB ADY330 3 " PADY345 L
0x0b08d8…0b0a6c Dummy {f00=0x0037, f01=0x0190, f02=»UPDATE HEAD POSITION POINTER 3 x P XIF 4 $ & PADY380 LDK A3,2 START BUFFER INDEX 4 0 P ABL ACDY90 4 Z P IFT WHATDY=0 4 n P* 4 & PADY400 LDK A2,/22 START CHARACTER 4 P CF A5,OUTPUT 4 P* 4 P XIF 4 P* 4 P EJECT 4 P* 4 P*
0x0b0a6c…0b0c00 Dummy {f00=0x0037, f01=0x018e, f02=»Y405 EQU * 4 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 < P RF(NE) ADY407 NO 5 V P LDR* A1,A6 5 p P LDR A4,A1 5 P ANK A1,/40 UNDERLINE MODE ? 5 P RF(E) ADY406 NO 5 " P LDK A2,ULSTOP UNDERLINE STOP 5 P CF A5,OUTPUT 5
0x0b0c00…0b0d94 (0, 224) Dummy {f00=0x0037, f01=0x018e, f02=» PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 @ 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 6 d PADY410 LDK A2,ETX LAST DUMMY 6 P CF A5,OUTPUT SEND DUMMY 6 PADY415 EQU * 6 P SUK A7,5 ORDER 5 ? 6
0x0b0d94…0b0f28 Dummy {f00=0x0037, f01=0x0190, f02=» P RF(NE) ENDIO NO *DK 7 , P LD A4,DWTAP,A6 GET CURSOR POSITION. *DK 7 " P ST A4,10,A8 PUT IN ECBCW *DK 7 P PENDIO CF A15,TENDIO END I/O 7 v $ PEXIT ABL TDISP GO TO DISPATCHER 7 P* 7 P IFT GRAFIC=1 7 P* 7 P EJECT 7 P* 7 P*
0x0b0f28…0b10bc Dummy {f00=0x0037, f01=0x018e, f02=» GET CHARACTER 7 | P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 6 P LDR A4,A2 8 L & P CF A15,GETCHR GET NEXT CHARACTER 8 ^ P LDR A1,A4 8 P ANK A4,/80 ADDRESS OR DATA 8 P RF(E) ADY530 DATA MESSAGE 8 P* 8 P* ADDRESS MESSAGE 8 P*
0x0b10bc…0b1250 Dummy {f00=0x0037, f01=0x0190, f02=» P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 ( P ORK A2,/20 9 < , PADY515 CF A5,OUTPUT SEND FIRST CHARACTER 9 P $ P LDR A2,A4 GET SECOND CHARACTER 9 ( P CF A5,OUTPUT SEND SECOND CHARACTER 9 P RB ADY510 9 P EJECT 9 P* 9 P* DATA
0x0b1250…0b13e4 Dummy {f00=0x0037, f01=0x018e, f02=»A2 9 P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : . P LDK A2,0 : @ PADY540 SLL A1,1 : R P RF(NN) ADY550 : j P ORKL A2,/200 : PADY550 SUK A7,1 : P RF(E) ADY560 : P SRL A2,1 : P RB ADY540 : PADY560 LDR A4,A2 : P SRL A4,
0x0b13e4…0b1578 Dummy {f00=0x0037, f01=0x0190, f02=» : , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINTER WHEN END ; 8 ( P* OF REQUEST IS REACHED ; h PUPDAPP EQU * ; ( P LC A3,DWTBC,A6 GET POSITION COUNTER ; 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER ;
0x0b1578…0b170c Dummy {f00=0x0037, f01=0x0190, f02=»POSITION ; f 0 P* POINTER WHEN REQUEST RUNNING. < > P* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE < D P* < PPOSUPD EQU * < ( P LC A2,DWTBC,A6 GET POSITION POINTER < P ANK A2,/FF < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITIO
0x0b170c…0b18a0 Dummy {f00=0x0037, f01=0x0190, f02=»R < j PPOSU10 RTN A15 = P EJECT = P* = . P* I H D Y = 8 P* = L P* INTERRUPT = V P* = l PIHDY EQU * = v P LD A4,DWTST,A6 BUSY? = P RB(N) EXIT NO = P SLL A4,2 ECHO MODE ? = P RF(N) IHDY10 = . P LDR A1,A1 RETURN CODE F
0x0b18a0…0b1a34 (0, 225) Dummy {f00=0x0038, f01=0x0190, f02=» R C D Y = P* > ( P* RCDY = RECOVERY ROUTINE DISPLAY > P* > F P* > P ( P* RECOVERY IS CARRIED OUT ONLY IF > Z P* ORDER 6 IS RUNNING > P* > P* AT ENTRY: > P* > P* A6 = DWT-ADDRESS > P* A7 = ORDER > P*
0x0b1a34…0b1bc8 Dummy {f00=0x0038, f01=0x018e, f02=» CPU852=0 > " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? 8 P* ? D P =3 ? N P LDKL A2,/7FFF ? P ANS A2,DWTST,A6 SET BUSY ? r P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P* ?
0x0b1bc8…0b1d5c Dummy {f00=0x0038, f01=0x0190, f02=» . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ 6 P* @ L P XIF @ V P* @ b P EJECT @ l PRCDY10 EQU * @ z P LDK A2,/00 DUMMY TO SEND @ P CF A5,OUTPUT @ $ P LDR A4,A4 LRC-ERROR IN BLOCK ? @ P RF(NE) RCDY20 @ P IFT
0x0b1d5c…0b1ef0 Dummy {f00=0x0038, f01=0x0190, f02=» P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 A N , P ADK A2,STEADY ADJUST TO STEADY IF SO =3 A $ P CF A5,OUTPUT SEND CURSOR INF =3 A & P SUK A3,1 DEC TRANSFER COUNTER =3 A , P
0x0b1ef0…0b2084 Dummy {f00=0x0038, f01=0x018e, f02=»TRY SEND 'COUNTRY CODE' =1 A P ORK A2,/30 =1 B " P CF A5,OUTPUT =1 B : P =3 B T P =3 B b PRCDY14 EQU * =3 B p P XIF =1 B ( P LD A3,DWTST,A6 SAVE STATUS WORD =3 B " P LDK A2,CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND B P L
0x0b2084…0b2218 Dummy {f00=0x0038, f01=0x018e, f02=» B x " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C . P EJECT C H P* C V ( P* LRC-ERROR IN BLOCK SENT REMOTE C ` P* C PRCDY20 EQU * C P SUK A7,5 ORDER 5 ? C P RF(NE) RCDY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR C
0x0b2218…0b23ac Dummy {f00=0x0038, f01=0x0190, f02=» C ^ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT D 2 P LDK A3,2 START BUFFER INDEX D d PRCDY30 ABL ACDY90 D P EJECT D P* D P* E C H O D Y D P* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE
0x0b23ac…0b2540 Dummy {f00=0x0038, f01=0x018e, f02=» EORECH=0 D P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E 0 P ADK A2,/80 E X P* E l P XIF E v P* E P SUK A3,/8 E P RF(E) ECDY40 BACKSPACE E P SUK A3,/10 E P RF(E) ECDY50 CLEAR E & PECDY10 CF A5,OUTPUT SEND C
0x0b2540…0b26d4 (0, 226) Dummy {f00=0x0038, f01=0x0190, f02=» ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F 0 P* BACKSPACE F : P* F P PECDY40 EQU * F Z ( P LC A4,DWTBC,A6 GET POSITION COUNTER F n P ANK A4,/FF F P RB(E) ECDY20 FIRST POSITION F $ P LDK A4,1 INDICATE ONE BACKSTEP F P CF A5,BACCAN
0x0b26d4…0b2868 Dummy {f00=0x0038, f01=0x0190, f02=»ER F n P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G B & P LDR* A1,A6 GET CHANNEL PARAMETER G X P ANK A1,/10 GRAFIC DISPLAY G P RF(E) ECDY60 N G P CF A5,BACCAN BACK G P RB ECDY20 G P XIF G * PECDY60 LDR A3,A4 SAV
0x0b2868…0b29fc Dummy {f00=0x0038, f01=0x0190, f02=»OUNTER G | P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H 2 P CF A5,FASTER FAST OUTPUT H F P LDK A2,0 H h * P SC A2,DWTBC,A6 RESET POSITION COUNTER H z P RB ECDY20 H P EJECT H P* H P* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR
0x0b29fc…0b2b90 Dummy {f00=0x0038, f01=0x0190, f02=» H x P* I PBACCAN EQU * I P LDR A3,A4 I & ( P LC A2,DWTBC,A6 GET POSITION COUNTER I 8 P ANK A2,/FF I d . P AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER I x P ANK A2,/FF I " P CC A2,DWTPOS,A6 LAST POSITION I P RF(NP) BACA10 NO I $ P LDK A2,SP
0x0b2b90…0b2d24 Dummy {f00=0x0038, f01=0x0190, f02=»E SPACE I x P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J * PBACA20 CF A5,OUTPUT SEND J J P SUK A4,1 J j P RB(NE) BACA10 J | P NGR A3,A3 NEGATE REGISTER J , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER J P RTN A5 J P EJECT J 4 P******
0x0b2d24…0b2eb8 Dummy {f00=0x0038, f01=0x0190, f02=»SON FOR USING * J r 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P* AND 6386 * K R 4 P*********************************************** K PCHECK EQU * K P* K P* K P LD A1,4,A8 K P SUR A1,A3
0x0b2eb8…0b304c Dummy {f00=0x0038, f01=0x0190, f02=» K l P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L ( P SUK A1,1 END OF BUFFER? L P P RF(NP) OUT YES! L p P ADK A2,1 INCREMENT POINTER L $ P CCR A7,A2 CHAR EQU TO PREVIUS? L P RB(E) NEXT YES! L POUT EQU * L 6 P CWK A4,EQ
0x0b304c…0b31e0 Dummy {f00=0x0038, f01=0x0190, f02=»TION POINTER * L | , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M F P ANK A2,/FF M ^ " P ADR A3,A4 UPDATE BUFFER-INDEX M r P ST A3,DWTBIN,A6 SAVE INDEX M 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE M P SUR A3,A2 AND COMPARE M
0x0b31e0…0b3374 (0, 227) Dummy {f00=0x0038, f01=0x0190, f02=»*********** M P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N 4 P CF A5,FASTER N X P************** N n P* SET CURSOR * N " P LD A4,DWTST,A6 GET ACTUAL POS N P ANK A4,/FF N ( P AD A4,DWTAP,A6 INC HEAD POS POINTER N P CF A5,C
0x0b3374…0b3508 Dummy {f00=0x0038, f01=0x018e, f02=» SUK A3,1 N P ABL ACDY90 READ NEXT CHAR O P* O 4 . PNOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER O > P ABL ACDY75 O p P EJECT O P* O P* O < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT O 4 P* AT ENTRY A4 = NUMBER
0x0b3508…0b369c Dummy {f00=0x0038, f01=0x0190, f02=» O PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P < P CF A5,OUTPUT SEND P ^ P LDR A2,A4 NO OF CHAR P x P CF A5,OUTPUT SEND P P LDR A2,A3 P P CF A5,OUTPUT SEND P P RTN A5 P P EJECT P P* P P* P
0x0b369c…0b3830 Dummy {f00=0x0038, f01=0x0190, f02=»QU * P P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q * P CF A5,OUTPUT SEND Q J P ECR A2,A4 POS. X < /80? Q d P LDR A2,A2 Q P RF(NN) CURR05 YES! Q P LCK A4,/7F00 Q PCURR05 EQU * Q P LDR A2,A4 Q & P CF A5,OUTPUT OUTPUT POSIT
0x0b3830…0b39c4 Dummy {f00=0x0038, f01=0x0190, f02=»IFT RIGHT Q PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R & P RTN A5 R J P EJECT R Z P* =2 R h P* =2 R v P* =2 R 8 P* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 R P* =2 R P* =2 R 0 P* AT ENTRY A4 = CHAR TO ERASE
0x0b39c4…0b3b58 Dummy {f00=0x0038, f01=0x0190, f02=»2 R t P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 S . P ANK A3,/FF =2 S b 2 P SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x0b3b58…0b3cec Dummy {f00=0x0038, f01=0x40a2, f02=» RTN A5 RETURN =2 S PABDY EQU * ABORT ROUTINE =4 T , P CF A15,UPDAPP UPDATE CURSOR POSITION =4 T > P RTN A15 RETURN TO CALLER =4 T n P END T @ T EEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x0b3cec…0b3e80 Dummy {f00=0x0038, f01=0x2008, f02=» U PP UPDATE CURSOR POSITION =4 S P RTN A15 RETURN TO CALLER =4 T , P END T P@ T EEN =2 S 8 P ADK A2,1 ADJUST LENGTH =2 S n P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO =2 S . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 S P LDK
0x0b3e80…0b4014 (0, 228) Dummy {f00=0x0038, f01=0x0190, f02=» BUFFER ADDRESS EVEN? M ~ P ORS A1,ECBBA,A8 N P RTN A15 N 6 P* N F 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN N P P ANS A1,ECBBA,A8 N P RTN A15 N P* N P EJECT TOSSIO N P* N P* T I O M X I N P* N B P* THIS MODULE IS
0x0b4014…0b41a8 Dummy {f00=0x0038, f01=0x0190, f02=»ES THE FULL 18 BIT BUFFER ADDRESS WHICH IS N , P* TRANSFERRED TO THE MUX BY THE DRIVER. O 2 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT O b , P* COMPLETION OF THE REQUEST IS 'TENMXI'. O 6 P* NOTICE THAT MODULE 'TIOMXO' IS EQUAL TO TIOMXI. O P* O
0x0b41a8…0b433c Dummy {f00=0x0038, f01=0x0190, f02=»2 ARE DESTROYED O B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB P P* P ^ PTIOMXI EQU * MUX, INPUT P h , P EL A1,ECBBA,A9 GET USER BUFFER ADDRESS P P ECR A2,A1 P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS P P SRL A2,3 P & P A
0x0b433c…0b44d0 Dummy {f00=0x0038, f01=0x0190, f02=» P P ANK A2,/3F Q 4 P SCR A2,A8 STORE BITS 16-17 IN DWT ECB 1ST WORD Q P ANK A2,/0F Q T P SRC A2,4 Q h P ORR A1,A2 Q z 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS Q P RTN A15 Q P* Q P EJECT TOSSIO Q P* Q P* T I O K
0x0b44d0…0b4664 Dummy {f00=0x0038, f01=0x0190, f02=»KBI WILL SET BUFFER ADDRESSES Q d 6 P* AND MOVE KEYTABLE (IF ANY) BY USING ENTRY TIPI05 R & 0 P* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. R ` 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT R , P* COMPLETION OF THE REQUEST IS 'TENKBI'. R P* R P*
0x0b4664…0b47f8 Dummy {f00=0x0038, f01=0x0190, f02=»ADDRESS TO DRIVER ADDRESS BLOCK R P* S ( " P* OUTPUT: A1-A4 ARE DESTROYED S 2 P* S X PTIOKBI EQU * KEYBOARD/CTW S b ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH S 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE S 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS
0x0b47f8…0b498c Dummy {f00=0x0038, f01=0x018e, f02=»TABLE IF BASIC READ S | . P LD A4,ECBCW,A8 GET USER KEYTABLE ADDRESS T P RF(Z) TIKB20 NO KEYTABLE? T N P* T p P EJECT TOSSIO T z P* T P* T P LDR A1,A9 T P ADK A1,8 T P ADKL A8,12 T * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS T
0x0b498c…0b4b20 Dummy {f00=0x0038, f01=0x0190, f02=» , P ECR A3,A3 NO, PUT LENGTH IN RIGHT BYTE U P* U 4 * PTIKB10 ANK A3,/FF SKIP LEFT CHARACTER U > P ADK A3,1 U l 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE U ~ P RF(G) IO:ERR TOO SMALL? U P CF A15,TIPO05 U & P SUKL A8,8 ADJUST DWT ECB ADDRES
0x0b4b20…0b4cb4 (0, 229) Opaque[0x194]
0x0b4cb4…0b4e48 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x0b4cb4…0b4e48 IdxSect {
0x0b4cb4…0b4e48 f00 = 0x0039 // 0xb4cb4 @0x0
0x0b4cb4…0b4e48 f01 = 0x002c // 0xb4cb6 @0x2
0x0b4cb4…0b4e48 gno = [ // 0xb4cb8 @0x4
0x0b4cb4…0b4e48 [0x00]: C0x0039.0x0.0
0x0b4cb4…0b4e48 [0x01]: C0x0039.0x1.0
0x0b4cb4…0b4e48 [0x02]: C0x0039.0x2.0
0x0b4cb4…0b4e48 [0x03]: C0x0039.0x3.0
0x0b4cb4…0b4e48 [0x04]: C0x003a.0x0.0
0x0b4cb4…0b4e48 [0x05]: C0x003a.0x1.0
0x0b4cb4…0b4e48 [0x06]: C0x003a.0x2.0
0x0b4cb4…0b4e48 [0x07]: C0x003a.0x3.0
0x0b4cb4…0b4e48 [0x08]: C0x003b.0x0.0
0x0b4cb4…0b4e48 [0x09]: C0x003b.0x1.0
0x0b4cb4…0b4e48 [0x0a]: C0x003b.0x2.0
0x0b4cb4…0b4e48 [0x0b]: C0x003b.0x3.0
0x0b4cb4…0b4e48 [0x0c]: C0x003c.0x0.0
0x0b4cb4…0b4e48 [0x0d]: C0x003c.0x1.0
0x0b4cb4…0b4e48 [0x0e]: C0x003c.0x2.0
0x0b4cb4…0b4e48 [0x0f]: C0x003c.0x3.0
0x0b4cb4…0b4e48 [0x10]: C0x003d.0x0.0
0x0b4cb4…0b4e48 [0x11]: C0x003d.0x1.0
0x0b4cb4…0b4e48 [0x12]: C0x003d.0x2.0
0x0b4cb4…0b4e48 [0x13]: C0x003d.0x3.0
0x0b4cb4…0b4e48 [0x14]: C0x003e.0x0.0
0x0b4cb4…0b4e48 [0x15]: C0x003e.0x1.0
0x0b4cb4…0b4e48 ]
0x0b4cb4…0b4e48 }
0x0b4e48…0b4fdc Dummy {f00=0x0039, f01=0x0190, f02=» 2 P IDENT DRRT01 9.2DK 1 79-11-16 870105040920 P : P =DK1, BLOCK - LOGGBUFFER B P 80-03-11 f ( P =9,TIMER RESET,TEST ORDER,INH-A15 z P REL 9.1 79-06-26 * P =8, INTERRUPT ADDRESS DISPLACEMENT P REL 9.1 79-05-23
0x0b4fdc…0b5170 Dummy {f00=0x0039, f01=0x0190, f02=»6,C.U. PRESENT CHECK ERROR P REL 8.2 79-03-20 " P =5,HANG UP PREVENT > P REL 8.2 79-03-19 P =4,TIME OUT ROUTINE ERROR x P REL 8.2 79-03-18 P =3,DISPL. RECOVERY P REL 8.2 79-03-17 P =2,LOOP TEST ERROR
0x0b5170…0b5304 Dummy {f00=0x0039, f01=0x0190, f02=»********************** v P* $ P* PHILIPS TERMINAL SYSTEM PTS ( P* P . P* DRRT01 = DRIVER CHANNEL UNIT FOR LOCAL Z & P* AND REMOTE TERMINALS P* P* P* P* P* 4 P********************************
0x0b5304…0b5498 Dummy {f00=0x0039, f01=0x0190, f02=»PUT WORD IS READ TO REGISTER A2. IF DATA z D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER 0 P* FOR ACTUAL DEVICE. x D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* P*
0x0b5498…0b562c Dummy {f00=0x0039, f01=0x0190, f02=» < P* - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM P* D 4 P* - GETCHR GET ONE CHARACTER FROM ECB-BUFFER N P* 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE P* INCLUDED IN THE DRIVER. P EJECT P* P*
0x0b562c…0b57c0 Dummy {f00=0x0039, f01=0x0190, f02=»-A5 AND RETURN TO DISPATCHER f P* $ 6 P* - STREG SAVE A3-A5 AND RETURN TO DISPATCHER . P* h D P* - LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN r " P* TO USER VIA A5 P* : P* - LDREGE RESTORE A3-A5 A
0x0b57c0…0b5954 (0, 230) Dummy {f00=0x0039, f01=0x0190, f02=»N CODE P* A2 = INPUT WORD P* A3 = LINE NUMBER * 2 * P* A4 = DEVICE NUMBER * 2 J P* A5 = CWT-ADDRESS l P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P* P* P* P EJECT P*
0x0b5954…0b5ae8 Dummy {f00=0x0039, f01=0x0190, f02=»L UNIT h : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL 2 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANEL LOCAL L 4 P ENTRY CHLT4 INTERRUPT FROM FOURtH CHANEL LOCAL : P ENTRY CHRT1 INTERRUPT FROM FIRST CHANNEL UNIT REMOTE : P ENTRY CHRT2 INT
0x0b5ae8…0b5c7c Dummy {f00=0x0039, f01=0x0190, f02=»HANEL REMOTE l $ P ENTRY OUTLIN SEND ONE CHARACTER P ENTRY CHLTON START OF CHLT < 0 P ENTRY OUTPUT SAVE REGISTERS, SEND CHARACTER ` P ENTRY CHTAB CHANNEL TABLE P AND GO TO DISPATCHER , P ENTRY LDREG RELOAD REGISTERS AND RETURN , P E
0x0b5c7c…0b5e10 Dummy {f00=0x0039, f01=0x018e, f02=»RY GETCHR GET ONE CHARACTER FROM ECB-BUFFER P 4 @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS < 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS & P ENTRY REMFC REMOTE TEST FILE CO
0x0b5e10…0b5fa4 Dummy {f00=0x0039, f01=0x0190, f02=» P* * P************************************** * P* EXTERNAL TOSS MODULE ENTRIES * < * P************************************** j P* P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER P EXTRN RETUR4 REST
0x0b5fa4…0b6138 Dummy {f00=0x0039, f01=0x0190, f02=»UPT TABLE FOR LOCAL TERMINALS | , P EXTRN INTLT2 INTERRUPT TABLE FOR CHLT2 & & P EXTRN INTLT3 INTERRUPT FROM CHLT3 V & P EXTRN INTLT4 INTERRUPT FROM CHLT4 6 P EXTRN INTRT1 INTERRUPT TABLE FOR REMOTE TERMINALS 2 P EXTRN INTRT2 INTERRUPT TABLE REMOTE
0x0b6138…0b62cc Dummy {f00=0x0039, f01=0x0190, f02=»XTRN DISIOE I/O REQUEST ERROR & P EXTRN DISEND END I/O AND DISPATCH & * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P P EXTRN TENDIO ~ . P EXTRN IHRET8 RESTORE A1-A8 WITHOUT ENABLE P* P* P* P* P***********************
0x0b62cc…0b6460 Dummy {f00=0x0039, f01=0x0190, f02=»ACTER r P EXTRN DWTECB ECB-ADDRESS * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK 0 P EXTRN DWTST STATUS ^ P EXTRN DWTWAT z P EXTRN DWTOTQ OUTPUT QUEUE P EXTRN DWTA3 SAVE AREA A3 P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE
0x0b6460…0b65f4 (0, 231) Dummy {f00=0x0039, f01=0x0190, f02=» INTADR INTERRUPT ADDRESS DISPLACEMENT 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT . , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT b P* P EJECT P* P* P******************** P* CONSTANTS * P******************
0x0b65f4…0b6788 Dummy {f00=0x0039, f01=0x0190, f02=»SPECIAL DUMMY TO GET DATA REQUEST ( P FIRST WHEN PRINTERBUFFER IS EMPTY * 0 PDRQTIM EQU 30 TIME TO NEXT ACK FOR PRINTERS V P EJECT P* , P*************************************** , P* CONDITIONAL ASSEMBLY * , P******
0x0b6788…0b691c Dummy {f00=0x0039, f01=0x0190, f02=» INCLUDED TO THE DRIVER BY SETTING X:A=1 P* 2 PX:A EQU 1 < PLOGING EQU 0 N P* b P* l > P* BY SETTING X:B TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE v & P* OR UP TO FOUR LOCAL CHANNELS. P* PX:B EQU 1 PLOCHAN EQU
0x0b691c…0b6ab0 Dummy {f00=0x0039, f01=0x0190, f02=»IN b 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. F P* n PX:C EQU 1 x PACKMUL EQU 0 P* P* > P* BY SETTING X:D TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE , P* OR UP TO FOUR R
0x0b6ab0…0b6c44 Dummy {f00=0x0039, f01=0x0190, f02=»LE CODE " r P* STANDARD IS /15 P* . PX:E EQU /15 8 PREMFC EQU /15 L P* b * P* ECHO FUNCTION CAN BE EXCLUDED BY l P* SETTING X:F = 0 P* PX:F EQU 1 PCECHO EQU 00 P* P* 6 P* A PROGRAM
0x0b6c44…0b6dd8 Dummy {f00=0x0039, f01=0x018e, f02=» DB P* 8 P* BY SETTING BLOCK=1 BLOCKSENDING IS PERMITTED < P* BY SETTING BLOCK=0 BLOCKSENDING IS NOT PERMITTED T P* PBLOCK EQU 1 DK1 P* P DE P EJECT : P********************************************
0x0b6dd8…0b6f6c Dummy {f00=0x0039, f01=0x0190, f02=» X P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 1 P* J PDWA1 EQU /03 DEVICEADDRESS T P* v PCWTLT1 EQU * TABLE ENTRY PCWTLDW EQU *-CWTLT1 P DATA 0 LAST OUTPUT DWT PCWTLOW EQU *-CWTLT1 P DATA 0 LAST OUT
0x0b6f6c…0b7100 Dummy {f00=0x0039, f01=0x0190, f02=»NR PCWTOTR EQU *-CWTLT1 P OTR A2,0,DWA1 OTR & PCWTCIS EQU *-CWTLT1 @ P CIO A2,1,DWA1 CIO-START PCWTRTC EQU *-CWTLT1 | " P DATA 0 RETRANSMISSION COUNTER PCWTEQ EQU *-CWTLT1 P DATA 0 QUEUE P DATA 0 QUEUE 2 PCW
0x0b7100…0b7294 (0, 232) Dummy {f00=0x0039, f01=0x0190, f02=» , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P P* | P XIF P* P EJECT P* P* : P***************************************************** : P* C W T L
0x0b7294…0b7428 Dummy {f00=0x0039, f01=0x018e, f02=»ORK TABLE FOR LOCAL CHANNEL NO. 2 P* * PCWTLT2 EQU * 4 P* H P IFT LOCHAN=2 R P* h P* r P* | PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRU
0x0b7428…0b75bc Dummy {f00=0x0039, f01=0x0190, f02=» P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* 6 P IFT ACKMUL=1 @ P* V P DATA 0 NAK-ACKUMULATOR ` $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P*
0x0b75bc…0b7750 Dummy {f00=0x0039, f01=0x0190, f02=»ST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 6 P INR A2,0,DWA2 INR Z P OTR A2,0,DWA2 OTR t P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE P*
0x0b7750…0b78e4 Dummy {f00=0x0039, f01=0x0190, f02=»RUPT-ACKUMULATOR x ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* D P XIF N P* Z P IFT LOCHAN=4 d P* z P* P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P D
0x0b78e4…0b7a78 Dummy {f00=0x0039, f01=0x0190, f02=»SION COUNTER ~ P DATA 0 QUEUE P DATA 0 SECOND QUEUE * P* F P IFT ACKMUL=1 P P* f P DATA 0 NAK-ACKUMULATOR p $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULA
0x0b7a78…0b7c0c Dummy {f00=0x0039, f01=0x0190, f02=» : P* C W T L T 3 * : P***************************************************** B P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFT LOCHAN=3 P*
0x0b7c0c…0b7da0 Dummy {f00=0x0039, f01=0x0190, f02=»A INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR : P CIO A2,1,DWA3 CIO-START T " P DATA 0 RETRANSMISSION COUNTER t P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMU
0x0b7da0…0b7f34 (0, 233) Dummy {f00=0x003a, f01=0x0190, f02=»R n P* P XIF P* P IFT LOCHAN=4 * P* @ P* J P* T PDWA3 EQU /23 DEVICE ADDRESS ^ P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR
0x0b7f34…0b80c8 Dummy {f00=0x003a, f01=0x0190, f02=»UEUE P* P IFT ACKMUL=1 P* , P DATA 0 NAK-ACKUMULATOR 6 $ P DATA 0 RETR. FAULT-ACKUMULATOR V , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT P
0x0b80c8…0b825c Dummy {f00=0x003a, f01=0x0190, f02=» Z : P***************************************************** P* F 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P P* PCWTLT4 EQU * P* P IFT LOCHAN=4 P* P* P* PDWA4 EQU /33 P* P DATA
0x0b825c…0b83f0 Dummy {f00=0x003a, f01=0x0190, f02=»TR P CIO A2,1,DWA4 CIO-START ! " P DATA 0 RETRANSMISSION COUNTER ! * P DATA 0 QUEUE ! P P DATA 0 SECOND QUEUE ! f P* ! P IFT ACKMUL=1 ! P* ! P DATA 0 NAK-ACKUMULATOR ! $ P DATA 0 RETR. FAULT-ACKUMULATOR ! , P DATA 0 UNDEFINED- I
0x0b83f0…0b8584 Dummy {f00=0x003a, f01=0x0190, f02=»************* ! ~ $ P* C W T R T 1 * " $ P******************************* " > 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 " f P* CONNECTED TO FIRST CHRT " P* " PDWA5 EQU /1 DEVICE ADDRESS " PCWTRT1 EQU * " P DATA
0x0b8584…0b8718 Dummy {f00=0x003a, f01=0x0190, f02=»TR " P CIO A2,1,DWA5 CIO-START # " P DATA 0 RETRANSMISSION COUNTER # * P DATA 0 QUEUE TERMINAL 1 # P P DATA 0 QUEUE TERMINAL 2 # p P* # P IFT ACKMUL=1 # P* # P DATA 0 NAK-ACKUMULATOR # $ P DATA 0 BLOCK ERROR ACKUMULATOR # , P DATA
0x0b8718…0b88ac Dummy {f00=0x003a, f01=0x0190, f02=» # ~ P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ & P DATA /7055 SYNC CHARACTER $ B PLRCDWT EQU *-CWTRT1 $ d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $ & P DAT
0x0b88ac…0b8a40 Dummy {f00=0x003a, f01=0x0190, f02=»(LOOP-TESTS) $ t 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % H $ P BIT 15: BLOCKSENDING ALLOWED % t P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P**************
0x0b8a40…0b8bd4 (0, 234) Dummy {f00=0x003a, f01=0x0190, f02=»TRT2 EQU * % P DATA 0 LAST OUTPUT DWT & P DATA 0 LAST OUTPUT WORD & 2 P & R P DATA INTRT1 INTERRUPT TABLE & Z P INR A2,0,DWA5 INR & ~ P OTR A2,1,DWA5 OTR & P CIO A2,1,DWA5 CIO-START & " P DATA 0 RETRANSMISSION COUNTER & P DATA 0 QUEUE TE
0x0b8bd4…0b8d68 Dummy {f00=0x003a, f01=0x018e, f02=»ERROR ACKUMULATOR & , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ' ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ' J P* ' v P XIF ' P* ' P DATA 0 TIMER POINTER ' P DATA /7255 SYNC-CHARACTER ' 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ' 0
0x0b8d68…0b8efc Dummy {f00=0x003a, f01=0x0190, f02=» , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ( $ P DATA 0 BLOCK SENDING INDICATOR ( 4 P EJECT ( $ P******************************** ( j $ P* C W T R T 3 * ( $ P******************************** ( P* ( : P* CHANNEL UNIT WORK TABLE
0x0b8efc…0b9090 Dummy {f00=0x003a, f01=0x0190, f02=» ( PDWA6 EQU /11 DEVICE ADDRESS ) P* ) , P DATA 0 LAST OUTPUT DWT ) 6 P DATA 0 LAST OUTPUT WORD ) V P DATA INTRT2 INTERRUPT TABLE ) v P INR A2,0,DWA6 INR ) P OTR A2,0,DWA6 OTR ) P CIO A2,1,DWA6 CIO-START ) " P DATA 0 RETRANSMISSION COU
0x0b9090…0b9224 Dummy {f00=0x003a, f01=0x0190, f02=» $ P DATA 0 BLOCK ERROR ACKUMULATOR * , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR * , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR * P* * P XIF * P IFT RECHAN=3 * PDWA6 EQU /11 DEVICE ADDRESS * P* * P DATA 0 LAST OUTPUT DWT * P DATA
0x0b9224…0b93b8 Dummy {f00=0x003a, f01=0x0190, f02=»RT * z " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + 0 P DATA 0 QUEUE TERMINAL 2 + P P* + p P IFT ACKMUL=1 + z P DATA 0 NAK-ACKUMULATOR + $ P DATA 0 BLOCK ERROR ACKUMULATOR + , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P
0x0b93b8…0b954c Dummy {f00=0x003a, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD , P DATA INTRT2 INTERRUPT TABLE , > P INR A2,0,DWA6 INR , b P OTR A2,0,DWA6 OTR , | P CIO A2,1,DWA6 CIO-START , " P DATA 0 RETRANSMISSION COUNTER , P DATA 0 QUEUE TERMINAL 1 , P DATA 0 QUEU
0x0b954c…0b96e0 Dummy {f00=0x003a, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR - $ P* - P P XIF - Z P IFT RECHAN=2 - f P DATA 0 TIMER POINTER - | P DATA /7055 SYNC-CHARACTER - 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 - 0 P DATA 0 DWT OF GOING LRC
0x0b96e0…0b9874 (0, 235) Dummy {f00=0x003a, f01=0x0190, f02=»ORD (LOOP-TESTS) - x $ P DATA 0 BLOCK SENDING INDICATOR . P XIF . @ P IFT RECHAN=3 . L P DATA 0 TIMER POINTER . b P DATA /7055 SYNC-CHARACTER . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 . &
0x0b9874…0b9a08 Dummy {f00=0x003a, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR . P XIF / & P IFT RECHAN=4 / 2 P DATA 0 TIMER POINTER / H P DATA /7055 SYNC-CHARACTER / f 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 / 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 / & P DATA 0 LRC-ACKUMULATOR
0x0b9a08…0b9b9c Dummy {f00=0x003a, f01=0x0190, f02=»TOR / t P XIF 0 P EJECT 0 $ P******************************** 0 & $ P* C W T R T 4 * 0 N $ P******************************** 0 v P* 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 " P* CONNECTED TO SECOND CHRT 0
0x0b9b9c…0b9d30 Dummy {f00=0x003a, f01=0x0190, f02=»INTRT2 INTERRUPT TABLE 0 P INR A2,0,DWA6 INR 1 P OTR A2,1,DWA6 OTR 1 8 P CIO A2,1,DWA6 CIO-START 1 R " P DATA 0 RETRANSMISSION COUNTER 1 r P DATA 0 QUEUE TERMINAL 1 1 P DATA 0 QUEUE TERMINAL 2 1 P* 1 P IFT ACKMUL=1 1 P DATA 0 NAK-ACKU
0x0b9d30…0b9ec4 Dummy {f00=0x003a, f01=0x0190, f02=»TOR 1 p P XIF 2 P IFT RECHAN=3 2 P DATA 0 LAST OUTPUT DWT 2 . P DATA 0 LAST OUTPUT WORD 2 N P DATA INTRT2 INTERRUPT TABLE 2 n P INR A2,0,DWA6 INR 2 P OTR A2,1,DWA6 OTR 2 P CIO A2,1,DWA6 CIO-START 2 " P DATA 0 RETRANSMISSION COUNTER 2
0x0b9ec4…0ba058 Dummy {f00=0x003a, f01=0x0190, f02=»A 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 3 $ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 3 T P XIF 3 P IFT RECHAN=4 3 P DATA 0 LAST OUTPUT DWT 3 P DATA 0 LAST OUTPUT WORD 3 P DATA INTRT2 INTERRUPT TABLE 3 P I
0x0ba058…0ba1ec Dummy {f00=0x003a, f01=0x0190, f02=»RMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 4 P* 4 0 P IFT ACKMUL=1 4 : P DATA 0 NAK-ACKUMULATOR 4 P $ P DATA 0 BLOCK ERROR ACKUMULATOR 4 p , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 4 P XIF 4 P IFT REC
0x0ba1ec…0ba380 Dummy {f00=0x003a, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 5 b , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 5 $ P DATA 0 BLOCK SENDING INDICATOR 5 P* 5 P XIF 5 P* 5 P IFT
0x0ba380…0ba514 (0, 236) Dummy {f00=0x003a, f01=0x0190, f02=»ATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 2 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 6 $ P DATA 0 BLOCK SENDING INDICATOR 6 P* 6 P XIF 6 P* 6 P IFT RECHA
0x0ba514…0ba6a8 Dummy {f00=0x003a, f01=0x0190, f02=»DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 7 , & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 7 V , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 7 $ P DATA 0 BLOCK SENDING INDICATOR 7 P* 7 P XIF 7 P* 7 P EJECT 7 $ P**
0x0ba6a8…0ba83c Dummy {f00=0x003a, f01=0x0190, f02=»NNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 7 P* CONNECTED TO THIRD CHRT 8 6 P 8 Z P* 8 b PCWTRT5 EQU * 8 l P* 8 P IFT RECHAN=3 8 P* 8 PDWA7 EQU /21 DEVICE ADDRESS 8 P* 8 P DATA 0 LAST OUTPUT DWT 8 P DATA 0 LAST OUT
0x0ba83c…0ba9d0 Dummy {f00=0x003a, f01=0x0190, f02=» DATA 0 RETRANSMISSION COUNTER 8 P DATA 0 QUEUE TERMINAL 1 9 & P DATA 0 QUEUE TERMINAL 2 9 F P* 9 f P IFT ACKMUL=1 9 p P DATA 0 NAK-ACKUMULATOR 9 $ P DATA 0 BLOCK ERROR ACKUMULATOR 9 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 9 ( P DATA 0 PR
0x0ba9d0…0bab64 Dummy {f00=0x003a, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT 9 P DATA 0 LAST OUTPUT WORD : P DATA INTRT3 INTERRUPT TABLE : > P INR A2,0,DWA7 INR : b P OTR A2,0,DWA7 OTR : | P CIO A2,1,DWA7 CIO-START : " P DATA 0 RETRANSMISSION COUNTER : P DATA 0 QUEUE TERMINAL 1 : P DATA 0 QUEU
0x0bab64…0bacf8 Dummy {f00=0x003a, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR : ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ; $ P* ; P P XIF ; Z P IFT RECHAN=3 ; f P DATA 0 TIMER POINTER ; | P DATA /7055 SYNC-CHARACTER ; 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ; 0 P DATA 0 DWT OF GOING LRC
0x0bacf8…0bae8c Dummy {f00=0x003a, f01=0x0190, f02=»ORD (LOOP-TESTS) ; x $ P DATA 0 BLOCK SENDING INDICATOR < P XIF < @ P IFT RECHAN=4 < L P DATA 0 TIMER POINTER < b P DATA /7055 SYNC-CHARACTER < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 < &
0x0bae8c…0bb020 Dummy {f00=0x003a, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR < P XIF = & P EJECT = 2 $ P******************************** = @ $ P* C W T R T 6 * = h $ P******************************** = P* = : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 = P* CON
0x0bb020…0bb1b4 (0, 237) Dummy {f00=0x003b, f01=0x0190, f02=»UTPUT WORD = P DATA INTRT3 INTERRUPT TABLE > P INR A2,0,DWA7 INR > 6 P OTR A2,1,DWA7 OTR > P P CIO A2,1,DWA7 CIO-START > j " P DATA 0 RETRANSMISSION COUNTER > P DATA 0 QUEUE TERMINAL 1 > P DATA 0 QUEUE TERMINAL 2 > P* > P IFT ACKMUL=1
0x0bb1b4…0bb348 Dummy {f00=0x003b, f01=0x0190, f02=»PRINTER TIMEOUT ACKUMULATOR > P XIF ? $ P IFT RECHAN=4 ? 0 P DATA 0 LAST OUTPUT DWT ? F P DATA 0 LAST OUTPUT WORD ? f P DATA INTRT3 INTERRUPT TABLE ? P INR A2,0,DWA7 INR ? P OTR A2,1,DWA7 OTR ? P CIO A2,1,DWA7 CIO-START ? " P DATA 0 RE
0x0bb348…0bb4dc Dummy {f00=0x003b, f01=0x018e, f02=»ACKUMULATOR ? $ P DATA 0 BLOCK ERROR ACKUMULATOR @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR @ < ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR @ l P XIF @ P* @ P IFT RECHAN=3 @ P DATA 0 TIMER POINTER @ P DATA /7255 SYNC-CHARACTER @ 0 P DAT
0x0bb4dc…0bb670 Dummy {f00=0x003b, f01=0x0190, f02=» @ l & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 A , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) A 2 $ P DATA 0 BLOCK SENDING INDICATOR A b P* A P XIF A P* A P IFT RECHAN=4 A P* A P DATA 0 TIMER POINTER A P DATA /7255 SYNC-CHARACTER A 0
0x0bb670…0bb804 Dummy {f00=0x003b, f01=0x0190, f02=»AL 1 A r & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 B , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) B 6 $ P DATA 0 BLOCK SENDING INDICATOR B f P* B P XIF B P* B P EJECT B $ P******************************** B $ P* C W T R T 7 * B
0x0bb804…0bb998 Dummy {f00=0x003b, f01=0x0190, f02=»URTH CHRT B | P* C PCWTRT7 EQU * C P* C 0 P IFT RECHAN=4 C : P* C P PDWA8 EQU /31 DEVICE ADDRESS C Z P* C ~ P DATA 0 LAST OUTPUT DWT C P DATA 0 LAST OUTPUT WORD C P DATA INTRT4 INTERRUPT TABLE C P INR A2,0,DWA8 INR C P O
0x0bb998…0bbb2c Dummy {f00=0x003b, f01=0x0190, f02=»EUE TERMINAL 2 C P* D P IFT ACKMUL=1 D P DATA 0 NAK-ACKUMULATOR D 6 $ P DATA 0 BLOCK ERROR ACKUMULATOR D V , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR D ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR D P* D P XIF D P IFT RECHAN=4 D P D
0x0bbb2c…0bbcc0 Dummy {f00=0x003b, f01=0x0190, f02=»RC-PROCESS TERMINAL 2 D z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 E & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 E H , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) E r $ P DATA 0 BLOCK SENDING INDICATOR E P XIF E P EJECT E $ P******************************** E
0x0bbcc0…0bbe54 (0, 238) Dummy {f00=0x003b, f01=0x018e, f02=»ANNEL NO. 2 E f " P* CONNECTED TO FOURTH CHRT F P* F : PCWTRT8 EQU * F D P* F X P IFT RECHAN=4 F b P DATA 0 LAST OUTPUT DWT F x P DATA 0 LAST OUTPUT WORD F P DATA INTRT4 INTERRUPT TABLE F P INR A2,0,DWA8 INR F P OTR A2,1,DWA8 OTR
0x0bbe54…0bbfe8 Dummy {f00=0x003b, f01=0x0190, f02=» F v P* G P IFT ACKMUL=1 G P DATA 0 NAK-ACKUMULATOR G ( $ P DATA 0 BLOCK ERROR ACKUMULATOR G H , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR G p ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR G P XIF G P IFT RECHAN=4 G P* G P DATA 0 TIMER PO
0x0bbfe8…0bc17c Dummy {f00=0x003b, f01=0x0190, f02=»MINAL 2 G l & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 H & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 H : , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) H d $ P DATA 0 BLOCK SENDING INDICATOR H P* H P XIF H P* H P EJECT H 6 P******************************
0x0bc17c…0bc310 Dummy {f00=0x003b, f01=0x0190, f02=» H ^ P* I 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK I 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE I L P* TERMINALS. I P* I P* I P* I PCHTAB EQU * I P DATA CHTABE-* TABLE LENGTH I P IFT LOCHAN=1 I
0x0bc310…0bc4a4 Dummy {f00=0x003b, f01=0x0190, f02=» DATA CWTLT2 I P DATA 0 J P DATA 0 J $ P XIF J 4 P* J @ P IFT LOCHAN=3 J J P DATA CWTLT1 J ` P DATA CWTLT2 J t P DATA CWTLT3 J P DATA 0 J P XIF J P IFT LOCHAN=4 J P DATA CWTLT1 J P DATA CWTLT2 J P DATA CWTLT3 J
0x0bc4a4…0bc638 Dummy {f00=0x003b, f01=0x0190, f02=» DATA CWTRT4 J P DATA CWTRT5 K P DATA CWTRT6 K ( P* K < P XIF K F P* K R P IFT RECHAN=2 K P DATA CWTRT3 K r P DATA CWTRT4 K P XIF K P* K P IFT RECHAN=4 K P DATA CWTRT3 K P DATA CWTRT4 K P DATA CWTRT5 K P DATA
0x0bc638…0bc7cc Dummy {f00=0x003b, f01=0x0190, f02=» K P* L ( P************************************ L ( P* D W R E M U * L > ( P************************************ L j P* L . P* DUMMY TABLE USED WHEN LOOP-TESTING OF L $ P* REMOTE CHANNELS ARE NEEDED. L P* L PDWRE
0x0bc7cc…0bc960 Dummy {f00=0x003b, f01=0x0190, f02=» P EJECT M P* M P* M * P* L O O P - T E S T S E C T I O N M & P* M T P* M ^ 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION M h P* M : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. M 6 P* THE REQUEST IS COMPLETED WITH
0x0bc960…0bcaf4 (0, 239) Dummy {f00=0x003b, f01=0x0190, f02=» M . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT N P* N : 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT N D PAREM DATA LOPTST N x " P DATA 0 ABORT ROUTINE ADDRESS N " P DATA IHLOP INTERRUPT HANDLER N PLOPTST EQU * N $ P LD A2,10,A8 GET CHANNEL
0x0bcaf4…0bcc88 Dummy {f00=0x003b, f01=0x0190, f02=» N & P LD A2,CHTAB+8,A2 GET CWT-ADDRESS O P RF(E) DISIIE O 2 P LDR A7,A7 WRONG ORDER ? O H P RF(E) LOPT10 NO O h ( PDISIIE ABL DISIOE I/O REQUEST ERROR O PLOPT10 EQU * O , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS O P ANK A1,/40 O ( P RF(
0x0bcc88…0bce1c Dummy {f00=0x003b, f01=0x0190, f02=»SP O P EJECT P P* P P* P " P* END OF LOOP-TEST P , P* P J PIHLOP EQU * P T P LDR A5,A1 GET CWT-ADDRESS P h , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS P P ANK A1,3 P P XRK A1,3 P PIHLP10 EQU * P P LDK A2,0 P : P SC
0x0bce1c…0bcfb0 Dummy {f00=0x003b, f01=0x0190, f02=» 2 P x P* Q P* C H R T 1 / C H R T 2 Q P* Q 6 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT Q @ P* Q | 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS Q 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. Q 0 P* THEN DRIVER GETS
0x0bcfb0…0bd144 Dummy {f00=0x003b, f01=0x0190, f02=»* INTERRUPT. Q P* R 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT R " P* R X . P* D = DEVICE ADDRESS C = CHARACTER R b P* R 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 R 8 P* NAK OUTPUT ERROR D = 0
0x0bd144…0bd2d8 Dummy {f00=0x003b, f01=0x0190, f02=» DRI DATA REQUEST IMMEDIATE SIGN BIT SET R 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 S : 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A S v 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C S 8 P* ABC-LV LRC O VRC E
0x0bd2d8…0bd46c Dummy {f00=0x003b, f01=0x018e, f02=» BE DIFFERENT FROM ZERO S f 8 P* STD STATUS MESSAGE D # 0 C # 0 T 2 P* DIN DATA INPUT D # 0 T P EJECT T P* T P* C H L T 1 T P* T P* INTERRUPT FROM CHLT1 T P* T PCHLT1 EQU * T
0x0bd46c…0bd600 Dummy {f00=0x003b, f01=0x0190, f02=» P* U P IFT CPU852=0 U " P MSR 8,A15 SAVE A1-A8 ON STACK U $ P XIF U J P* U V P LDK A7,2 INDICATE CHLT1 U ` P RF CLT010 U P* U PCHLT2 EQU * U P* U P* U P* U P* U P* C H L T 2 U P* U P* INTERRUPT F
0x0bd600…0bd794 (0, 240) Dummy {f00=0x003b, f01=0x018e, f02=»SAVE A1-A8 ON STACK U P XIF V P* V ( P IFT LOCHAN=2 V 2 P IFT CPU852=0 V H " P MSR 8,A15 SAVE A1-A8 ON STACK V ^ P XIF V P* V P IFT LOCHAN=2 V P LDK A7,4 INDICATE CHLT2 V P RF CLT010 V P* V P XIF V P* V P IFT L
0x0bd794…0bd928 Dummy {f00=0x003b, f01=0x018e, f02=» V P* W P IFT LOCHAN=3 W P IFT CPU852=0 W ( " P MSR 8,A15 SAVE A1-A8 ON STACK W > P XIF W d P* W p P IFT LOCHAN=3 W z P LDK A7,4 INDICATE CHLT2 W P RF CLT010 W P* W P XIF W P* W P IFT LOCHAN=4 W $ P ST P,INTSAV SAV
0x0bd928…0bdabc Dummy {f00=0x003b, f01=0x0190, f02=» W P IFT CPU852=0 X " P MSR 8,A15 SAVE A1-A8 ON STACK X P XIF X D P* X P P IFT LOCHAN=4 X Z P LDK A7,4 INDICATE CHLT2 X p P RF CLT010 X P* X P XIF X P* X PCHLT3 EQU * X P* X P* X P* X P* C H L T 3 X
0x0bdabc…0bdc50 Dummy {f00=0x003b, f01=0x0190, f02=»852=1 X & P CF A15,SAVE8 SAVE A1-A8 ON STACK Y P XIF Y 8 P* Y D P IFT LOCHAN=4 Y N P IFT CPU852=0 Y d " P MSR 8,A15 SAVE A1-A8 ON STACK Y z P XIF Y P* Y P IFT LOCHAN=4 Y P LDK A7,6 INDICATE CHLT3 Y P RF CLT010 Y P XIF Y
0x0bdc50…0bdde4 Dummy {f00=0x003b, f01=0x0190, f02=»1-A8 ON STACK Y | P XIF Z P* Z " P IFT LOCHAN=3 Z , P IFT CPU852=0 Z B " P MSR 8,A15 SAVE A1-A8 ON STACK Z X P XIF Z ~ P* Z P IFT LOCHAN=3 Z P LDK A7,6 INDICATE CHLT3 Z P RF CLT010 Z P* Z P XIF Z P* Z PCHLT4 EQU *
0x0bdde4…0bdf78 Dummy {f00=0x003b, f01=0x0190, f02=» ST P,INTSAV SAVE LAST INTERRUPT Z P* [ ( P IFT CPU852=1 [ 2 & P CF A15,SAVE8 SAVE A1-A8 ON STACK [ H P XIF [ r P* [ ~ P IFT LOCHAN=4 [ P IFT CPU852=0 [ " P MSR 8,A15 SAVE A1-A8 ON STACK [ P XIF [ P* [ P IFT LOCHAN=4 [ P L
0x0bdf78…0be10c Dummy {f00=0x003b, f01=0x0190, f02=»* INTERRUPT FROM CHRT1 [ P* " PCHRT1 EQU * , P ST P,INTSAV @ P* T P IFT CPU852=1 ^ & P CF A15,SAVE8 SAVE A1-A8 ON STACK t P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P L
0x0be10c…0be2a0 Dummy {f00=0x003b, f01=0x0190, f02=»CHRT2 EQU * P IFT RECHAN=2 ] $ P ST P,INTSAV SAVE LAST INTERRUPT ] * P* ] R P IFT CPU852=1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ] r P XIF ] P* ] P IFT RECHAN=2 ] P IFT CPU852=0 ] " P MSR 8,A15 SAVE A1-A8 ON STACK ] P XIF
0x0be2a0…0be434 (0, 241) Dummy {f00=0x003c, f01=0x0190, f02=» ST P,INTSAV STORE LAST INTERRUPT ] P* ^ * P IFT CPU852=1 ^ 4 & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ J P XIF ^ t P* ^ P IFT RECHAN=3 ^ P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK ^ P XIF ^ P* ^ P IFT RECHAN=3 ^ P
0x0be434…0be5c8 Dummy {f00=0x003c, f01=0x018e, f02=»* ^ P IFT CPU852=1 _ & P CF A15,SAVE8 SAVE A1-A8 ON STACK _ P XIF _ J P* _ V P IFT RECHAN=4 _ ` P IFT CPU852=0 _ v " P MSR 8,A15 SAVE A1-A8 ON STACK _ P XIF _ P* _ P IFT RECHAN=4 _ P LDK A7,14 INDICATE CHRT2 _ P RF CLT0
0x0be5c8…0be75c Dummy {f00=0x003c, f01=0x0190, f02=» P IFT RECHAN=3 ` $ P ST P,INTSAV SAVE LAST INTERRUPT ` P* ` B P IFT CPU852=1 ` L & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` b P XIF ` P* ` P IFT RECHAN=3 ` P IFT CPU852=0 ` " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF ` P* `
0x0be75c…0be8f0 Dummy {f00=0x003c, f01=0x018e, f02=»E LAST INTERRUPT ` P* a P IFT CPU852=1 a " & P CF A15,SAVE8 SAVE A1-A8 ON STACK a 8 P XIF a b P* a n P IFT RECHAN=4 a x P IFT CPU852=0 a " P MSR 8,A15 SAVE A1-A8 ON STACK a P XIF a P* a P IFT RECHAN=4 a P LDK A7,18 INDICAT
0x0be8f0…0bea84 Dummy {f00=0x003c, f01=0x0190, f02=» a PCHRT4 EQU * b P IFT RECHAN=4 b $ P ST P,INTSAV SAVE LAST INTERRUPT b 2 P* b Z P IFT CPU852=1 b d & P CF A15,SAVE8 SAVE A1-A8 ON STACK b z P XIF b P* b P IFT RECHAN=4 b P IFT CPU852=0 b " P MSR 8,A15 SAVE A1-A8 ON STACK b
0x0bea84…0bec18 Dummy {f00=0x003c, f01=0x0190, f02=»DRESS b p P* c P XIF c P* c $ * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION c . P* c P IFT LOGING=1 c f P* c | 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** c P* c P XIF c P EJECT c P* c & P* DETERMINE TYPE OF INTER
0x0bec18…0bedac Dummy {f00=0x003c, f01=0x0190, f02=»UK A7,10 c " P RF(N) CLT018 LOCAL INTERRUPT d P LDR A3,A2 d 6 . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? d H P RF(NN) CLT015 FIRST d z > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHANNEL OF CHRT d 4 PCLT015 CF A15,RESTSY START OR RESTART SYNC-TIMER
0x0bedac…0bef40 Dummy {f00=0x003c, f01=0x0190, f02=»(N) CLT170 YES d & PCLT018 LDK A1,0 RESET RETURN CODE e ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? e @ P RF(N) CLT050 e l $ P ANKL A3,/7000 DEVICE ADDRESS ? e ( P ABL(NE) CLT100 YES, DIN, STD OR DRD e P EJECT e P* e P* e , P* DETERMINE T
0x0bef40…0bf0d4 (0, 242) Dummy {f00=0x003c, f01=0x018e, f02=» SUK A3,7 e P RF(E) CLT050 ACK f P ADK A3,2 f , P ABL(E) CLT080 NAK f > P ADK A3,2 f X P ABL(E) CLT100 POWER ON f j P LDR A7,A7 LOCAL ? f P RF(N) CLTQUE YES f P LC A4,LRCACK,A7 f $ P LDK A6,/80 ABC-ANSWER ALLOWED ? f P TM A6,A4
0x0bf0d4…0bf268 Dummy {f00=0x003c, f01=0x0190, f02=» P RF(E) EXIIT g P ANK A4,/7F g P RF(Z) CLT046 YES g , * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER g F ( P LDK A4,1 RESET BLOCKSENDING RUNNING g t P ANS A4,CWTBLK,A5 g P SUK A3,5 g & P RF(E) CLT043 ABC+ , GO TO DRIVER g P IFT ACKMUL=1 g
0x0bf268…0bf3fc Dummy {f00=0x003c, f01=0x0190, f02=» P LDK A4,1 h P SUK A3,2 h P RF(E) CLT033 h ( P ADK A3,4 h > P RF(E) CLT033 h P P EJECT h f P* h t 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. h ~ . P* ONE RECOVERY ATTEMPT IS MADE AND THEN h , P* RETURN CODE NOT OPERABLE IS SEN
0x0bf3fc…0bf590 Dummy {f00=0x003c, f01=0x0190, f02=»C-DEVICE ? h P RF(NE) CLTQUE i * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER i ( P LDK A4,1 i V 2 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNNING i h & PCLTQUE CF A15,QUEUE RESOLVE QUEUE i 6 PCLT031 LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD i P LDR A
0x0bf590…0bf724 Dummy {f00=0x003c, f01=0x0190, f02=»,A6 STORE i PCLT032 LDK A4,0 j 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE j * P LDK A4,1 =3 j ^ P RF CPO025 j t P EJECT j P* j P* ABC- VRC-ERROR j P* j 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER j P* ERR
0x0bf724…0bf8b8 Dummy {f00=0x003c, f01=0x0190, f02=»DR* A4,A6 BLOCK SENDING ? j P RB(N) CLT031 k " PCLT043 ABL CLT107 k 8 P EJECT k R P* k ` P* POWER ON k j P* k 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE k < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT k P*
0x0bf8b8…0bfa4c Dummy {f00=0x003c, f01=0x0190, f02=»T-ADDRESS k P* l PCHPOWO EQU * l , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE l 0 . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER l ` P LDR A7,A7 REMOTE ? l P RF(N) CPO010 NO l * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER l P LDK A7,1 l 0 P A
0x0bfa4c…0bfbe0 Dummy {f00=0x003c, f01=0x018e, f02=»NTER l v PCPO020 ADK A1,2 m P LDR* A6,A1 GET DWT-ADDRESS m $ P RF(E) CPO030 m H P SRC A6,1 m ^ P RF(N) CPO030 m p P SLC A6,1 m ( P LCR A7,A6 GET LEFT OF CHANNEL PAR. m P ANK A7,1 INPUT DEVICE ? m P RF(NE) CPO025 YES m & P LDKL A7,/
0x0bfbe0…0bfd74 (0, 243) Dummy {f00=0x003c, f01=0x0190, f02=» 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER n P RF(E) CPO030 YES n 8 : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 n R 6 P LD A7,RECADR,A7 ADDRESS TO RECOVERY ROUTINE IN A7 n P RF(E) CPO030 n P LDKL A5,DWTSB2 STACK BASE n P ADR A
0x0bfd74…0bff08 Dummy {f00=0x003c, f01=0x0190, f02=»EXT n x PEXIIT RF EXIT o P EJECT o " P* o 0 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER o : P* o t PCLT045 EQU * o ~ ( P LDK A1,NOERR INDICATE NOT OPERABLE o PCLT046 EQU * o P ABL CLT110 o P EJECT o P* o P* A C K
0x0bff08…0c009c Dummy {f00=0x003c, f01=0x0190, f02=»OR AND GO TO DISPATCHER. IF SYNC-ACK o P* DROP IT. p , 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF p B 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA p ~ < P* REQUEST FOR DEVICES WITHOUT DATA REQUEST IS CARRIED p < P* OUT. FOR
0x0c009c…0c0230 Dummy {f00=0x003c, f01=0x018e, f02=»MADE TO THE DATA REQUEST SECTION. p x * P* IF ACK WE HAVE TO WAIT FOR A DRD. q * PCLT050 EQU * q X & P LC A3,CWTLOW,A5 LAST OUTPUT WORD q l " P ANK A3,/F0 KEEP DEVICE NUMBER q P CF A15,QUEUE RESOLVE QUEUE q P LDKL A4,/EFFF q 6 P ANS A4,DWTST,A6 R
0x0c0230…0c03c4 Dummy {f00=0x003c, f01=0x018e, f02=» q z P RF(NE) CLT052 r P LDKL A3,/8000 r * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED r 4 P RF CLT055 r b PCLT052 EQU * r t . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST ? r P RF(NN) CLT055 r P CW A6,LRCDWT,A7 r P ABL(NE) CLT110 r P EJECT r
0x0c03c4…0c0558 Dummy {f00=0x003c, f01=0x0190, f02=» r h P RF(E) CLT060 s P* s P* RESTART TIMER s ( P* s B " P LDKL A3,-DRQTIM RESTART TIMER s L P ST* A3,DWTTP,A6 s r P RF CLT068 s P* s P* START TIMER s P* s PCLT060 EQU * s P LDR A1,A6 PARAMETER s P LDKL A4,DWTTP T
0x0c0558…0c06ec Dummy {f00=0x003c, f01=0x0190, f02=»INE AND DELAY s d PCLT068 EQU * t P LDR A8,A8 OBC-ACK ? t * P RF(E) EXIT YES t F P LDK A1,0 t ^ & P LDR* A4,A6 GET CHANNEL PARAMETER t p . P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST t ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? t P RF(N) CLT125 YE
0x0c06ec…0c0880 Dummy {f00=0x003c, f01=0x0190, f02=» FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES t 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL u : . P* CHARACTERS (ABC) FROM SELECTOR UNIT. u v P* u PDRQTUT EQU * u P LDR A6,A1 GET DWT-ADDRESS u . P CM DWTTP,A6 RESET POINTER TO TI
0x0c0880…0c0a14 (0, 244) Dummy {f00=0x003c, f01=0x018e, f02=»L PARAMETER u ~ P ANK A5,/F v P SLL A5,1 2 * INDEX v & P LDK A2,/83 v B P CC A2,DWTOCH,A6 v V P RF(NE) DRQT10 v n P SUK A5,8 LOCAL DEVICE ? =4 v P RB(N) EXIT v P CF A15,OUTLIN v P RB EXIT v PDRQT10 EQU * v P* v P IFT ACK
0x0c0a14…0c0ba8 Dummy {f00=0x003c, f01=0x0190, f02=» v $ P LD A7,DWTOR,A6 TEST ORDER ? =1 w P ANK A7,/FE U =9(=1) w 0 2 P RB(E) CLT045 YES, GO TO DEV. INT. HANDLER =1 w L , P ABL CLT032 NO, EXECUTE DEV. RECOVERY =1 w P EJECT w P* w P* N A K w P* w 8 P* ERROR ACKUMULATOR AND RETRANS
0x0c0ba8…0c0d3c Dummy {f00=0x003c, f01=0x0190, f02=»UCCESS w ^ < P* RETURN CODE NOT OPERABLE IS SENT TO DEVICE DRIVER. x P* x N PCLT080 EQU * x X $ P LDR* A6,A5 GET LAST OUTPUT DWT x l P RB(E) EXIT x P* x P IFT ACKMUL=1 x P* x * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR x P* x
0x0c0d3c…0c0ed0 Dummy {f00=0x003c, f01=0x0190, f02=» LD A4,CWTRTC,A5 GET COUNTER x P SUK A4,7 SEVEN TIMES ? y $ P ABL(E) CLT030 y D * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD y Z $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. y P IFT LOGING=1 y 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** y P XIF y P
0x0c0ed0…0c1064 Dummy {f00=0x003c, f01=0x018e, f02=» A2,/FF y , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR z . P CF A15,RESTSY START OR RESTART SYNC-TIMER z @ PCLT090 ABL TDISP z r P EJECT z P* z P* z $ P* DATA INPUT AND DATA REQUEST z P* z 6 P* LOCAL DEVICES: GET DWT-ADDRESS, GET O
0x0c1064…0c11f8 Dummy {f00=0x003c, f01=0x0190, f02=» P* { > P* DATA INPUT: SAME PROCEDURE AS FOR LOCAL DEVICES { : P* DATA REQUEST: INPUT WORD IS COMPLEMENTED WITH { P 8 P* STATUS FROM CHANNEL PARAMETER. { : P* STATUS MESSAGE: NEW STATUS IS STORED IN CHANNEL { @ P
0x0c11f8…0c138c Dummy {f00=0x003c, f01=0x0190, f02=» WAITING FOR A STATUS CHANGE. IF SO { > P* GET ORDER AND ECB-ADDRESS AND GO TO | < < P* DEVICE WITH THE NEW STATUS. IF NO | ~ > P* WAITING FOR STATUS, CONTROL IS GIVEN | ( P*
0x0c138c…0c1520 Dummy {f00=0x003c, f01=0x0190, f02=»3,/E 2 * LINE NUMBER | P SRL A4,3 } P ANK A4,/E 2 * DEVICE NUMBER } . P CWK A4,/E SYNC-INPUT ? } R P RF(E) CLT150 YES } r P LOOP SWITCH SET } 0 P LD* A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE } P RB(Z) EXIT =7 } P ADR A8,A3 } , P LDR
0x0c1520…0c16b4 (0, 245) Dummy {f00=0x003d, f01=0x0190, f02=»T UNDEFINED INTERRUPT } " P LDR A4,A4 NO DEVICE NUMBER ? ~ P ABL(E) CHPOWO POWER ON ~ D & P ADR A8,A4 ADDRESS TO DWT-ADDRESS ~ d P LDR* A6,A8 GET DWT-ADDRESS ~ P RB(E) EXIT ~ P ANKL A6,/FFFE ~ 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PARAMET
0x0c16b4…0c1848 Dummy {f00=0x003d, f01=0x0190, f02=»A7 REMOTE ? ~ P RF(NN) CLT120 YES PCLT105 LC A3,DWTOCH,A6 . P ANK A3,/7F L P SUK A3,DUMMSP ` P RF(NE) CLT110 v . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST =9 4 P RF(N) CLT110 YES, DO NOT TOUCH TIMER POINTER =9 P* P********
0x0c1848…0c19dc Dummy {f00=0x003d, f01=0x0190, f02=»Y RESET v P* P************************* P* < P CM* DWTTP,A6 F P CM DWTTP,A6 PCLT110 LD A7,DWTOR,A6 ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK P ENB * P
0x0c19dc…0c1b70 Dummy {f00=0x003d, f01=0x0190, f02=» $ P CWR* A6,A5 DRD BEFORE ANSWER ? P RB(E) EXIT YES 0 PCLT125 SRL A4,4 H P ANK A4,/C ` P ORR A2,A4 STATUS IN A2 r P RB CLT105 PCLT130 EQU * P LDR A3,A4 SAVE OLD STATUS P ANK A4,/3F RESET OLD STATUS P SLL A2,4
0x0c1b70…0c1d04 Dummy {f00=0x003d, f01=0x0190, f02=»A4,/200 STATUS CHANGE ALLOWED ? P RF(E) CLT154 EG. EXIT ( P XRS A4,DWTST,A6 RESET BIT F ( P XRR A3,A2 VOUCHER STATUS CHANGED ? h P ANK A3,/80 P RF(E) CLT154 EG. EXIT P ABL CLT033 P EJECT P* P* P* TFU IN
0x0c1d04…0c1e98 Dummy {f00=0x003d, f01=0x0190, f02=»NDICATE LOOP MODE AND SYNC-ACK RECEIVED PCLT152 EQU * 0 P ORS A4,CWTRST,A5 D PCLT154 ABL EXIT ^ P EJECT v P* P* LOOP MODE P* PCLT170 EQU * P LDR A3,A2 P ANK A3,/FF P SUK A3,3 POWER ON ? P RF(
0x0c1e98…0c202c Dummy {f00=0x003d, f01=0x018e, f02=» A1,NOERR INDICATE NOT OPERABLE PCLT177 RB CLT110 ( PCLT178 EQU * @ P SUK A3,4 ACK ? T P RF(NE) EXITA NO l $ P LDK A4,2 INDICATE ACK RECEIVED P RB CLT152 P EJECT P* P* POWER ON P* PCLT179 EQU *
0x0c202c…0c21c0 Dummy {f00=0x003d, f01=0x018e, f02=» 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. 4 P* IF LOCAL DEVICE CHECK OUTPUT QUEUE AND SEND : P* IF SOMETHING THERE. r 8 P* IF REMOTE DEVICE CHECK QUEUE OF CHANNEL'S OTHER < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I
0x0c21c0…0c2354 (0, 246) Dummy {f00=0x003d, f01=0x0190, f02=» P STR A2,A15 SAVE A2 $ P LDR* A4,A5 GET LAST OUTPUT DWT $ . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER L P CMR A5 SET CHANNEL FREE ~ P LDK A1,0 P LDR A7,A7 LOCAL ? P RF(N) QUEU01 YES " P LDK A1,1 INDICATE FIRST TRIAL "
0x0c2354…0c24e8 Dummy {f00=0x003d, f01=0x0190, f02=»WT-TABLE-ADDRESS z PQUEU04 EQU * P LDR* A6,A8 QUEUE EMPTY ? , P RF(E) QUEU10 YES N P LDR A7,A7 =5 h $ P RF(N) QUEU06 PREVENT HANG UP =5 ~ P LD A2,CWTBLK,A5 P LD A2,CWTBLK,A5 ( P RF(N) QUEU05 BLOCK SENDING RUNNING PQUEU06
0x0c24e8…0c267c Dummy {f00=0x003d, f01=0x0190, f02=»OUTPUT CHARACTER v P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOAD A2 6 0 P CWR A6,A4 DEVICE ALREADY IN OUTPUT QUEUE ? Z P RF(E) QUEU30 " P LDR A6,A4 GET LAST OUTPUT DWT & P RF(E) QUEU30 UNDEFINED INTERRUPT P CWK A6,1 SYNC ANSWE
0x0c267c…0c2810 Dummy {f00=0x003d, f01=0x0190, f02=»1,0 " P CWR A7,A5 TERMINAL 2 REMOTE ? P RB(E) QUEU01 NO 2 & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE J P RB QUEU03 t PQUEU30 ADKL A15,4 P RF EXITA P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P
0x0c2810…0c29a4 Dummy {f00=0x003d, f01=0x0190, f02=» P RF(NE) RESY20 P LDR A1,A5 P LDK A4,CWTTP TIMER POINTER , P ADR A4,A5 ADD CWT-ADDRESS P P CF A15,SETIMP SET TIMER r P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 L
0x0c29a4…0c2b38 Dummy {f00=0x003d, f01=0x0190, f02=»DING n 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. @ P* d PSYNCUT EQU * n $ P CM CWTTP,A1 RESET TIMER POINTER P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHANGE TERMINAL NU
0x0c2b38…0c2ccc Dummy {f00=0x003d, f01=0x0190, f02=» OUTPUT DWT t P* P IFT LOGING=1 P* 4 * P CF A15,LOGG LOGG OF OUTPUT CHARACTER > P XIF l P* x P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 PSYNC05 EQU * P ANK A2,/FF , P XRS A2,LRCACK,A5
0x0c2ccc…0c2e60 Dummy {f00=0x003d, f01=0x0190, f02=»/60 P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 , P RF(NE) SYNC10 FIRST SYNC @ P LDK A3,/20 SECOND SYNC b * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH * PSYNC20 LDKL A6,DWREMU SET DWT-ADDRESS P RB CLT177
0x0c2e60…0c2ff4 (0, 247) Dummy {f00=0x003d, f01=0x018e, f02=»LOWED AND SAVE A3-A5 IN DWT. P* $ POUTPUT EQU * . P ANK A2,/FF B P LDR A1,A2 V P SUK A1,/82 STX ? h P RF(E) OUTP05 P SUK A1,/15 ETB ? P RF(NE) OUTP10 ( POUTP05 LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C REMOTE ?
0x0c2ff4…0c3188 Dummy {f00=0x003d, f01=0x0190, f02=» P* : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT P* P PSTREG EQU * Z P INH n P LDKL A1,/100 z 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWTA3,A6 SAVE REGISTER A3 $ P ST A4,DWTA4,A6
0x0c3188…0c331c Dummy {f00=0x003d, f01=0x018e, f02=»NTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN & P* VIA A5. ELSE GO TO DISPATCHER. : P* d P* n PLDREG EQU * x P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXITA P XRS A3,DWTST,A6 P* P* P* L D R E G
0x0c331c…0c34b0 Dummy {f00=0x003d, f01=0x018e, f02=» l PLDREGE EQU * & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & P LD A4,DWTA4,A6 A4 F $ PLDRE10 LD A7,DWTOR,A6 GET ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 P RTN A5 RETURN VIA A5-STACK P EJECT P* P*
0x0c34b0…0c3644 Dummy {f00=0x003d, f01=0x0190, f02=» P* A3 = BUFFER INDEX P* A8 = ECB-ADDRESS " P* @ P* ON EXIT: J P* ` P* A2 = CHARACTER j * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J P* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH
0x0c3644…0c37d8 Dummy {f00=0x003d, f01=0x0190, f02=» j " P LD A2,2,A8 GET BUFFER ADDRESS P ADR A2,A3 . P LCR A2,A2 CHAR. TO A2 @ P ANK A2,/FF ^ $ P ADK A3,1 INCREMENT BUFFER INDEX r P RF GCH020 , PGCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH PGCH020 EQU * ( PRTNA15 ADKL A15,2 RETURN
0x0c37d8…0c396c Dummy {f00=0x003d, f01=0x0190, f02=» ^ P* CHANNEL UNIT P* * P* 4 B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. > 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE P* QUEUE O
0x0c396c…0c3b00 Dummy {f00=0x003d, f01=0x0190, f02=»PU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF 6 P* B P ANK A2,/FF L " P LDR* A7,A6 CHANNEL PARAMETER ` P ANK A7,/F P SLL A7,1 DOUBLE INDEX & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS P SUK A7,8 REMOTE ? P RF(N) OUL100
0x0c3b00…0c3c94 (0, 248) Dummy {f00=0x003d, f01=0x0190, f02=»ET CWT-ADDRESS , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS P EJECT F POUL100 INH T P* f ( P* IF UNIT NOT FREE QUEUE OUTPUT. p 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY 0 P* RUNNINGON TERMINAL FOR ANOTHER DEVICE, 0 P*
0x0c3c94…0c3e28 Dummy {f00=0x003d, f01=0x0190, f02=»NEL UNIT FREE ? P RF(NE) OUL800 NO P LDR A7,A7 REMOTE ? 2 P RF(N) OUL500 N P LDR A3,A2 d P SUK A3,/82 STX ? v P RF(NE) OUL200 NO P EJECT P* P* S T X P* * P LD A3,LRCDWT,A7 LRC-PROCESS RUNNING ?
0x0c3e28…0c3fbc Dummy {f00=0x003d, f01=0x0190, f02=» INDICATE FIRST OBC , POUL150 LDR* A3,A6 GET CHANNEL PARAMETER , P ANKL A3,/E00 SET DEVICE NUMBER TO ZERO N P RF OUL510 ~ & POUL175 CWR A3,A6 SAME LRC-DEVICE ? P RF(NE) OUL800 QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ?
0x0c3fbc…0c4150 Dummy {f00=0x003d, f01=0x0190, f02=»RCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 & P* 8 P* OTHER OUTPUT B P* 8 POUL300 CW A6,LRCDWT,A7 SAME DEVICE SENDING WITH LRC f P RF(Z) OUL350 YES P LD A3,CWTBLK,A5 , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING * P RF
0x0c4150…0c42e4 Dummy {f00=0x003d, f01=0x0190, f02=» P LD A3,CWTBLK,A5 P RF(Z) OUL500 ( P ORKL A2,/8000 INDICATE BLOCKSENDING 2 P LDK A3,/80 ^ 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING r P EJECT P* P* & P* SEND CHARACTER SECTION. 2 P* CHARACTER
0x0c42e4…0c4478 Dummy {f00=0x003d, f01=0x0190, f02=»ERS FOR f . P* DWT AND ACKUMULATOR IS UPDATED. P B POUL500 EQU * J " P LDR* A3,A6 CHANNEL PARAMETER ^ P ANKL A3,/7E00 & POUL510 ORR A2,A3 OUTPUT WORD IN A2 P* P* P* POUL515 EX CWTOTR,A5 OTR P RF(R)
0x0c4478…0c460c Dummy {f00=0x003d, f01=0x0190, f02=»ESSBLOCK p . P ABI INTADR,A2 GO TO INTERRUPT HANDLER =8 POUL520 EQU * B P* V P IFT LOGING=1 ` P* v 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P* P STR A6,A5 SET CHANNEL BUSY , P ST A2,CWTLOW,A5
0x0c460c…0c47a0 Dummy {f00=0x003d, f01=0x018e, f02=»ULATOR n . P CF A15,RESTSY START OR RESTART SYNC-TIMER 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER @ POUL700 EQU * x P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RES
0x0c47a0…0c4934 (0, 249) Dummy {f00=0x003e, f01=0x0190, f02=» P EJECT P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* Z POUL800 EQU * d P LDR A7,A7 REMOTE ? x P RF(NN) OUL805 YES P LDR A7,A5 CWT-ADDRESS , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER P RF(E) OUL82
0x0c4934…0c4ac8 Dummy {f00=0x003e, f01=0x0190, f02=»LOW THE THREAD P RB OUL810 $ POUL820 ST A6,CWTEQ,A7 QUEUE DWT ( P RF OUL840 P $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT b P LDK A4,0 : POUL840 ST A4,DWTOTQ,A6 SET OR RESET OUTPUT QUEUE LINK P RB OUL600 P EJECT P* P*
0x0c4ac8…0c4c5c Dummy {f00=0x003e, f01=0x0190, f02=»TINE IS ENTERED FROM 'PFINIT' r P* & P* 0 P* : PCHLTON EQU * D P LD A4,CHTAB X " PCON010 SUK A4,2 ALL TREATED ? l P RF(NZ) CON020 NO TAKE NEXT P ABL RTNA15 PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRE
0x0c4c5c…0c4df0 Dummy {f00=0x003e, f01=0x0190, f02=» BUSY p $ P EX CWTCIS,A5 EXECUTE CIO-START P RF(U) CON027 6 $ P LDK A3,0 INDICATE CHANNEL BUSY L . P CF A15,RESTSY START OR RESTART SYNC-TIMER t PCON027 EQU * 4 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT =6 P LD* A1,CWTITA,A5
0x0c4df0…0c4f84 Dummy {f00=0x003e, f01=0x0190, f02=»OWED n . P LD A2,10,A1 ANY DEVICE ON SECOND TERMONAL 0 P RF(NZ) CON029 YES BLOCK SENDING NOT ALLOWED > 8 PCON028 LDK A2,BLOCK INDICATE BLOCKSENDING OR NOT DK1 r PCONRET ST A2,CWTBLK,A5 P RF CON035 PCON029 LDK A2,0 4 P RB CONRET INDICAT
0x0c4f84…0c5118 Dummy {f00=0x003e, f01=0x018e, f02=»ST DWT ~ P RB(Z) CON010 P CWK A6,1 SYNC ? $ P RB(E) CON010 < P CMR A5 RESET LAST OUTPUT R P LDK A2,/00 DUMMY t P CF A15,OUTLIN SEND IT P RB CON010 P EJECT P* P* P* L O G G P* 8 P* IF CON
0x0c5118…0c52ac Dummy {f00=0x003e, f01=0x0190, f02=» P* PLOGG STR A1,A15 P LD A1,POINT * P ADK A1,2 > & P CWK A1,BUFE BUFE IS MAX LOGG AREA P P RF(NE) L1 z ( P LDKL A1,BUF SET FIRST LOGG ADDRESS PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15
0x0c52ac…0c5440 Dummy {f00=0x003e, f01=0x0190, f02=»EA (500) DK1 | PBUFE EQU * P* & P XIF 0 P* < P EJECT F P* T P* ^ P* E C H O , E C H E N D h P* < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P*
0x0c5440…0c55d4 (0, 250) Dummy {f00=0x003e, f01=0x0190, f02=»DEVICE-DEPENDENT ECHO-ROUTINE ~ P* & . P* PART TWO: ECHO ONE OR MORE CHARACTERS 0 2 P* CORRESPONDING TO ONE CHARACTER b 4 P* TO BE STORED IN INPUT ECB-BUFFER P* P* 4 P* PART ONE FOLLOWS AND PART TWO C
0x0c55d4…0c5768 Dummy {f00=0x003e, f01=0x0190, f02=»ICE DEPENDENT ECHO DRIVER x P* " " P* A7 MUST NOT BE DESTROYED , 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A R P* JUMP TO 'ECHRTN'. P* PECHEND EQU * P* P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE
0x0c5768…0c58fc Dummy {f00=0x003e, f01=0x0190, f02=»A5,DWTA5,A6 P LD A1,DWTST,A6 STATUS P SLL A1,2 2 $ P RF(NN) RETUR NO ECHO REQUESTED D 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE l 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE
0x0c58fc…0c5a90 Dummy {f00=0x003e, f01=0x414a, f02=»A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT P XIF . PECHRTN EQU * : P IFT CECHO=1 N P LDR A7,A7 END? b P RF(NN) ERETUR NO z ( P CF A15,TENDIO END I/O OUTPUT DEVICE > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 4 PRETUR
0x0c5a90…0c5c24 Dummy {f00=0x003e, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x0c5c24…0c5db8 Dummy {f00=0x003e, f01=0x0000, f02=»
[…0x2…]
0x0c60e0…0c6274 (0, 251) Opaque[0x194]
0x0c6274…0c6408 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d0, f03=0x0000}
0x0c6274…0c6408 IdxSect {
0x0c6274…0c6408 f00 = 0x003e // 0xc6274 @0x0
0x0c6274…0c6408 f01 = 0x000a // 0xc6276 @0x2
0x0c6274…0c6408 gno = [ // 0xc6278 @0x4
0x0c6274…0c6408 [0x00]: C0x003e.0x2.0
0x0c6274…0c6408 [0x01]: C0x003e.0x3.0
0x0c6274…0c6408 [0x02]: C0x003f.0x0.0
0x0c6274…0c6408 [0x03]: C0x003f.0x1.0
0x0c6274…0c6408 [0x04]: C0x003f.0x2.0
0x0c6274…0c6408 ]
0x0c6274…0c6408 }
0x0c6408…0c659c Dummy {f00=0x003e, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 9.2 79-11-16 870105040920 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x0c659c…0c6730 Dummy {f00=0x003e, f01=0x0190, f02=» P* B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP X P* P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TA
0x0c6730…0c68c4 Dummy {f00=0x003e, f01=0x0190, f02=»ING READ REQUEST,POWER UP r > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH " P* -2 IN CONTROL WORD d P* P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES N
0x0c68c4…0c6a58 Dummy {f00=0x003e, f01=0x0190, f02=» ` P* ( P* S O P A S : READ SWITCHES ENTRY P* > * P* S O P A L : ACTIVATE LIGHTS ENTRY H P* v & P* I H S O P : INTERRUPT HANDLER P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWIN
0x0c6a58…0c6bec Dummy {f00=0x003e, f01=0x018e, f02=»IGHTS OFF z , P* 39 : WRITE FLASHING LIGHTS P* B P* NORMAL REGISTER USAGE: L P* n " P* REGISTER A1: INPUT/OUTPUT x " P* A2: WORK REGISTER " P* A3: WORK REGISTER " P* A4: WORK REGISTER
0x0c6bec…0c6d80 Dummy {f00=0x003e, f01=0x0190, f02=» r P* P* P EJECT P* * P************ 4 P* ENTRIES: * H P************ P* p P* z * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALI
0x0c6d80…0c6f14 (0, 252) Dummy {f00=0x003e, f01=0x0190, f02=»**** P* EXTERNALS: * P************** " P* 8 P* TOSS GLOBALS: B P* Z , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK d 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP
0x0c6f14…0c70a8 Dummy {f00=0x003e, f01=0x018e, f02=»I DATA SOP LIGHTS AND FD POWER P EJECT & P 4 P* < ( P************************************ F P* r P* DWT DISPLACEMENTS | P* ( P************************************ P* $ EXTRN DWTCHP CHANNEL PARAMETER EXTRN
0x0c70a8…0c723c Dummy {f00=0x003e, f01=0x0190, f02=» EXTRN DWTTAB TTAB ADDRESS * % EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & EXTRN DWTTQ TERMINAL QUEUE T . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT x ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB " P EXTRN ECBCW ECB CONTROL WORD PTIME EQU 5 F
0x0c723c…0c73d0 Dummy {f00=0x003e, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU 0 " P** 4 P** > 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS H P* BY SETTING CREDIT = 1 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS P* /37 AND /38 RESPECTIVLY B P* BY
0x0c73d0…0c7564 Dummy {f00=0x003e, f01=0x0190, f02=»N ZERO IS STORED IN THE CONTROL WORD z P* OF THE ECB. , P** D P N PCREDIT EQU 1 V P** j P** t @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY ~ P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU 0
0x0c7564…0c76f8 Dummy {f00=0x003e, f01=0x0190, f02=» EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P*
0x0c76f8…0c788c Dummy {f00=0x003e, f01=0x018e, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 4 P XIF N P* Z & PDWTTP EQU START+/00 TIMER POINTER d P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P********************
0x0c788c…0c7a20 Dummy {f00=0x003e, f01=0x0190, f02=» " P* * " P* S.O.P. CHANNEL UNIT TABLE * * " P* * P " P****************************** v P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFER SI
0x0c7a20…0c7bb4 (0, 253) Dummy {f00=0x003f, f01=0x0190, f02=»TCHES ENTRY x " P DATA 0 ABORT ROUTINE ADDRESS P* : P DATA DVBLEN MMU BUFFER SIZE D P DATA DEVIND DEVICE INDEX h & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRESS
0x0c7bb4…0c7d48 Dummy {f00=0x003f, f01=0x0190, f02=» " P* * " P* S.O.P. ACTIVATION ROUTINE: * * " P* * P " P****************************** v P* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. P*
0x0c7d48…0c7edc Dummy {f00=0x003f, f01=0x0190, f02=» P* * P RF(NZ) SOPER ERROR IF NOT READ ORDER P* < P* INPUT SWITCH VALUE F P* d * PSOPIN LDR* A2,A6 POWER UP INDICATION ? n P IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. P XIF P IFT CREDIT=
0x0c7edc…0c8070 Dummy {f00=0x003f, f01=0x0190, f02=»HANGES OF S.O.P. LIGHTS P* & PSOPAL EQU * ACTIVATE LIGHTS ENTRY * P* T P LD A3,10,A8 CHANGED LIGHTS ^ , P ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS P* P LDR A4,A7 COPY ORDER P IFT WRFLA=1 P CCK A4,/3939 P RF(
0x0c8070…0c8204 Dummy {f00=0x003f, f01=0x0190, f02=»/37 P XIF & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* B & P SUK A4,1 SEE IF LIGHTS OFF ORDER L P RF(Z) SOPOFF v & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT WRFLA=1 P EJECT P* P* P* FLASH LIGHTS P*
0x0c8204…0c8398 Dummy {f00=0x003f, f01=0x018e, f02=»A6 P LDR A1,A6 P CF A15,SETIMP P DATA FLTUT,TIME 2 P ST A4,DWTTP,A6 J P LDKL A1,/FFBF b P ANS A1,DWTST,A6 SET ON FLAG x PFL010 EQU * . P* A3 CONTAINS LIGHTS THAT SHOULD FLASH * P ORS A3,FLASH STORE NEW LAMPS TO FLASH
0x0c8398…0c852c Dummy {f00=0x003f, f01=0x0190, f02=» PFL020 EQU * P C1R A3,A3 P ANS A3,SPDLCI * P RF SOPONOF @ P* T P EJECT ^ P* l PFLTUT EQU * FLASH TIME OUT v P LDKL A6,DWSO01 P LD A3,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR THIS TIME P LDKL A1,-TIME R
0x0c852c…0c86c0 Dummy {f00=0x003f, f01=0x0190, f02=»EXIT END I/O P XIF P EJECT P* . PSOPOFF EQU * 8 , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD L 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF | P IFT WRFLA=1 $ P ANS A3,FLASH STOP SOME FLASHING P XIF , P RF SOPONOF
0x0c86c0…0c8854 (0, 254) Dummy {f00=0x003f, f01=0x0190, f02=» A3 CONTAINS CONTROL WORD . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON $ P IFT WRFLA=1 V P C1R A3,A3 j * P ANS A3,FLASH STOP SOME OTHER FLASHING | P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET LIGHTS
0x0c8854…0c89e8 Dummy {f00=0x003f, f01=0x0190, f02=»********************** P* * P* S.O.P. INTERRUPT HANDLER * B P* * f P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. P*
0x0c89e8…0c8b7c Dummy {f00=0x003f, f01=0x018e, f02=» CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF * P* 6 P IFT CPU852=0 @ " P MSR 8,A15 SAVE A1-A8 ON STACK V P XIF | P* $ P ST P,INTSAV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX P IFT CREDIT=0
0x0c8b7c…0c8d10 Dummy {f00=0x003f, f01=0x0190, f02=» " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD * P RF(N) IHSOP2 NO N $ P LD A8,DWTECB,A6 GET ECB-ADDRESS f P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF A15,TENDIO END I/O
0x0c8d10…0c8ea4 Dummy {f00=0x003f, f01=0x0190, f02=»WTECB,A6 GET ECB-ADDRESS P & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX ( P R , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH Z P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT P* * P******
0x0c8ea4…0c9038 Dummy {f00=0x003f, f01=0x0190, f02=» * * P************************************* * P* X P* b : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE l 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWER FAILUR
0x0c9038…0c91cc Dummy {f00=0x003f, f01=0x018e, f02=»DWTCHP j P* P* PSOPR EQU * ENTRY POINT " P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVATE INPUT
0x0c91cc…0c9360 Dummy {f00=0x003f, f01=0x0190, f02=» " P LDKL A2,-2 POWER UP INDICATOR P XIF . P IFT CREDIT=1 : P LDK A2,0 P P XIF b P n P IFF SOPX=0 v " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND POWER U
0x0c9360…0c94f4 (0, 255) Dummy {f00=0x003f, f01=0x0190, f02=» STR A2,A6 IND POWER UP P PSOPR2 RB IHSOP1 ( P EJECT @ P* N P* D W S I 0 1 : INPUT DWT X P* | PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB AD
0x0c94f4…0c9688 Dummy {f00=0x003f, f01=0x0190, f02=» & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECI MMU ECB ADDRESS . PDEVECI EQU * R P DATA 0,0,0,0,0,0 f P XIF P* P* D W S O 0 1 : OUTPUT DWT P* P* PDWSO01 EQU * " P DATA /0040 CHANNEL PARAMETER , P
0x0c9688…0c981c Dummy {f00=0x003f, f01=0x0190, f02=» j P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L IFT MMUPAG=1 j & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECO MMU ECB ADDRESS XIF P DATA 0 TIMER POINTER . PFLASH DATA 0 SAV
0x0c981c…0c99b0 Dummy {f00=0x003f, f01=0x0190, f02=»* * P* D W S I 0 2 : EXTENDED INPUT DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x0c99b0…0c9b44 Dummy {f00=0x003f, f01=0x402c, f02=» ! P* " P* " P END " @ " (DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x0c9b44…0c9cd8 Dummy {f00=0x003f, f01=0x2008, f02=» # -ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE @ P* ^ P END h@ t P* z P* P* D W S O P U : OUTPUT DWT P* P* PDWSOPU EQU * P DATA 0 CHANNEL PARAMETER , P DATA /8000
0x0c9cd8…0c9e6c Dummy {f00=0x003f, f01=0x0190, f02=»*-CWTRT1 # P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ . P DATA /7055 SYNC CHARACTER $ J PLRCDWT EQU *-CWTRT1 $ l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $
0x0c9e6c…0ca000 Dummy {f00=0x003f, f01=0x018e, f02=»US WORD (LOOP-TESTS) $ | 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % P $ P BIT 15: BLOCKSENDING ALLOWED % | P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P******
0x0ca000…0ca194 (0, 256) Opaque[0x194]
0x0ca194…0ca328 # DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x0ca194…0ca328 IdxSect {
0x0ca194…0ca328 f00 = 0x003f // 0xca194 @0x0
0x0ca194…0ca328 f01 = 0x000a // 0xca196 @0x2
0x0ca194…0ca328 gno = [ // 0xca198 @0x4
0x0ca194…0ca328 [0x00]: C0x003f.0x3.0
0x0ca194…0ca328 [0x01]: C0x0040.0x0.0
0x0ca194…0ca328 [0x02]: C0x0040.0x1.0
0x0ca194…0ca328 [0x03]: C0x0040.0x2.0
0x0ca194…0ca328 [0x04]: C0x0040.0x3.0
0x0ca194…0ca328 ]
0x0ca194…0ca328 }
0x0ca328…0ca4bc Dummy {f00=0x003f, f01=0x0190, f02=» 2 P IDENT DRIC01 9.2DK 0 80-01-02 870105040920 P : P =DK0, MMU BUF SIZE B P 80-03-11 ` P* t P* ~ 2 P********************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DRIC01 = I
0x0ca4bc…0ca650 Dummy {f00=0x003f, f01=0x0190, f02=»******** j P* 8 P* THIS MODULE HANDLES THE INTERTASK COMMUNICATION P* V P EJECT DRIC01 ` P* x P* ORDERS: P* P* /02 READ, NOT ADDRESSED " P* /06 WRITE, NOT ADDRESSED P* /0A READ, ADDRESSED
0x0ca650…0ca7e4 Dummy {f00=0x003f, f01=0x018e, f02=» z P* A6 DWT ADDRESS P* A7 ORDER CODE $ P* A8 ECB ADDRESS @ , P* A12 ADDRESS TO DRIVER ADDRESS BLOCK P* P EJECT DRIC01 P* P* P*********** P* ENTRIES * P*********** P* P
0x0ca7e4…0ca978 Dummy {f00=0x003f, f01=0x0190, f02=» b P EJECT DRIC01 P* P* * P************* 4 P* EXTERNALS * J P************* ` P* v P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR & P EXTRN DISEND TENDIO AND DISPA
0x0ca978…0cab0c Dummy {f00=0x003f, f01=0x0190, f02=»T TTAB ADDRESS & P EXTRN DWTSB1 STACK BASE 1 IN DWT & P EXTRN BUFLEN DRIVER BUFFER LENGTH @ P EXTRN SETIMP TIMER j , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID P EXTRN TTB:ST TASK STATUS " P EXTRN TTB:TD TERMINAL DEVICES 4 P EXTRN IHR
0x0cab0c…0caca0 Dummy {f00=0x003f, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " " P EXTRN ECBCW ECB CONTROL WORD F P EJECT DRIC01 TOSSIO l P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P****
0x0caca0…0cae34 (0, 257) Dummy {f00=0x0040, f01=0x018e, f02=»G EQU 1. r P* PMMUPAG EQU 1 P* . 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 8 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. r P* PCPU852 EQU 0 P* P* MMU BUFFER SIZE P* PX:A EQU 50 PX:Q EQ
0x0cae34…0cafc8 Dummy {f00=0x0040, f01=0x0190, f02=» P* P EJECT DRIC01 P* * P* 4 P********************* > P* DWT DISPLACEMENTS * P********************* z P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQ
0x0cafc8…0cb15c Dummy {f00=0x0040, f01=0x0190, f02=»INTER t PDWTIME EQU START+/02 TIME 6 PDWTANC EQU START+/04 POINTER TO FIRST DWT IN QUEUE 0 . PDWTQUE EQU START+/06 QUEUE ANCHOR ADDRESS j P* P EJECT DRIC01 P* P* P***************** P* ADDRESS BLOCK * P**
0x0cb15c…0cb2f0 Dummy {f00=0x0040, f01=0x018e, f02=» DATA ICAD ACTIVATION ADDRESS P DATA ITABRT ABORT ADDRESS & P* H P* R 6 PRD:QUE DATA 0 QUEUE ANCHOR NOT ADDRESSED READ REQ. 8 PWR:QUE DATA 0 QUEUE ANCHOR NOT ADDRESSED WRITE REQ. P* $ P* INTERTASK DRIVER BUFFER (MMU) P*
0x0cb2f0…0cb484 Dummy {f00=0x0040, f01=0x0190, f02=» P* A C T I V A T I O N P* " PICAD EQU * , P LDR A1,A7 ORDER CODE TO A1 > P SUK A1,2 b & P RF(Z) RD:NAD READ NOT ADDRESSED? t P SUK A1,4 ( P ABL(Z) WR:NAD WRITE NOT ADDRESSED? P SUK A1,4 " P RF(Z) RD:ADR READ ADDRESS
0x0cb484…0cb618 Dummy {f00=0x0040, f01=0x0190, f02=»* S E T T I M E O U T P* " P LD A2,ECBCW,A8 GET TIME , P ST A2,DWTIME,A6 L P RF END:IO d P* v P EJECT DRIC01 P* P* R E A D, A D D R E S S E D P* " P* W R I T E, A D D R E S S E D P* PRD:ADR E
0x0cb618…0cb7ac Dummy {f00=0x0040, f01=0x0190, f02=»CW,A8 TID & P CF A15,FNDTID TTAB ADDRESS TO A2 P ADK A2,0 SET CR < P RF(Z) DIS:OE NOT FOUND? T P CW A2,DWTTAB,A6 t P RF(E) DIS:OE ILLEGAL TID? 4 P ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE P LDR* A1,A2 TABLE LENGTH $ P L
0x0cb7ac…0cb940 Dummy {f00=0x0040, f01=0x0190, f02=» $ P* FIND DWT OF ADDRESSED TASK P* , 0 PADR:20 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS 6 P SUK A1,4 j P RF(N) DIS:OE NOT FOUND? | P* P LDR* A4,A2 DWT ADDRESS " P CW A7,DWTADR,A4 SEARCHED DWT? P RB(NE) ADR:20 NO, TRY NEXT
0x0cb940…0cbad4 (0, 258) Dummy {f00=0x0040, f01=0x0190, f02=»NCHOR ADDRESS t " P CWR A1,A6 CHECK QUEUE ANCHOR 0 P RF(E) ADR:30 REQUEST ISSUED FOR THIS TASK? < P* p P ANK A7,1 z P RF(Z) ADR:25 READ? P CWK A1,RD:QUE ( P RF(E) ADR:30 COMPLEMENTARY REQUEST? P RF ADR:50 NO P*
0x0cbad4…0cbc68 Dummy {f00=0x0040, f01=0x0190, f02=» ABORT TIMER IF ANY P* > PADR:30 CF A15,ITAB05 ABORT TIMER AND REMOVE DWT FROM QUEUE & P ANK A7,1 h P RF(Z) RD:N05 READ? z P* P* MOVE BUFFER P* PADR:35 EQU * " P LDKL A5,DWTSB1 GET STACK BASE P ADR A5,A6
0x0cbc68…0cbdfc Dummy {f00=0x0040, f01=0x0190, f02=»G BUFFER ADDRESS v P ANK A3,1 & P RF(Z) ADR:38 BUFFER ADDRESS EVEN? * : P ORS A3,ECBBA,A9 MAKE RECEIVING BUFFER ADDRESS UNEVEN T P RF END:IO P* PADR:38 EQU * P SUK A3,2 A3 := /FFFE 8 P ANS A3,ECBBA,A9 MAKE RECEIVING BUFFER A
0x0cbdfc…0cbf90 Dummy {f00=0x0040, f01=0x0190, f02=»C01 P* P* OUEUE REQUEST P* . . PADR:40 LDK A7,0 INDICATE ADDRESSED REQUEST 8 P* j PADR:50 EQU * t P LD A3,DWTIME,A6 TIME P RF(Z) TWR:30 P ADK A3,1 $ P RF(Z) ADR:70 NO TIMING WANTED? P SUK A3,1 P
0x0cbf90…0cc124 Dummy {f00=0x0040, f01=0x0190, f02=»NTER | P ST A3,TIME P CF A15,SETIMP SET TIMER P DATA TIMOUT TIMEOUT ADDRESS @ PTIME DATA 0 d P* x P EJECT DRIC01 P* ( P* INSERT IN QUEUE WITHIN PRIORITY P* PADR:70 EQU * . P ST A2,DWTQUE,A6 STORE QUE
0x0cc124…0cc2b8 Dummy {f00=0x0040, f01=0x0190, f02=»SED REQUEST? x : P ADK A2,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE P* R PADR:80 LDR A4,A2 SAVE P LDR* A2,A2 NEXT IN QUEUE z P RF(Z) ADR:90 END FOUND? " P LD A5,DWTTAB,A2 TTAB ADDRESS & P CC A1,TTB:ST+1,A5 COMPARE LEVELS
0x0cc2b8…0cc44c Dummy {f00=0x0040, f01=0x0190, f02=»IOE REQUEST ERROR P* P EJECT DRIC01 $ P* < ( P* R E A D, N O T A D D R E S S E D F P* r $ PRD:NAD EQU * READ, NOT ADDRESSED | < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED WRITE REQUESTS & P RF(NZ) RD:N10 ANYTHING IN QUEUE?
0x0cc44c…0cc5e0 Dummy {f00=0x0040, f01=0x0190, f02=» n & P ST A3,WR:QUE UPDATE QUEUE ANCHOR P* 2 PRD:N00 EQU * < & P CF A15,ABTIM2 ABORT TIMER IF ANY P P* z PRD:N05 EQU * " P LDR A4,A6 EXCHANGE A2 AND A6 P LDR A6,A2 P LDR A2,A4 P RB ADR:35 P* ( PRD:N10 LDR
0x0cc5e0…0cc774 (0, 259) Dummy {f00=0x0040, f01=0x0190, f02=»UE ADDRESS r P RB ADR:50 INSERT IN QUEUE P* 4 P EJECT DRIC01 > P* V * P* W R I T E, N O T A D D R E S S E D ` P* & PWR:NAD EQU * WRITE, NOT ADDRESSED < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED READ REQUESTS & P RF(NZ
0x0cc774…0cc908 Dummy {f00=0x0040, f01=0x0190, f02=»A3,A2 NO, REMOVE FROM QUEUE & P ST A3,RD:QUE UPDATE QUEUE ANCHOR $ P* N , PWR:N05 CF A15,ABTIM2 ABORT TIMER IF ANY X P RB ADR:35 P* ( PWR:N10 LDR* A3,A2 REMOVE FROM QUEUE ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR P RB WR:N05
0x0cc908…0cca9c Dummy {f00=0x0040, f01=0x0190, f02=»O U T P* PTIMOUT LDR A6,A1 DWT ADDRESS " P CM* 0,A2 RESET TIMER POINTER < P LDR A2,A6 b $ P CF A15,ITAB10 REMOVE FROM QUEUE t P* PTWR:30 EQU * P CMR A6 RESET QUEUE LINK P LDK A1,/40 RETURN CODE P RB END:IO
0x0cca9c…0ccc30 Dummy {f00=0x0040, f01=0x0190, f02=»WILL UPDATE QUEUE AND ABORT TIMER (IF ANY). P* 4 P* INPUT: A6 = DWT ADDRESS > P* b " P* OUTPUT: A1-A4 ARE DESTROYED l P* PITABRT EQU * P LDR A2,A6 P* PITAB05 EQU * P CF A15,ABTIM ABORT TIMER P*
0x0ccc30…0ccdc4 Dummy {f00=0x0040, f01=0x0190, f02=» ITAB20 NOT-ADDRESSED READ REQUEST? P CWK A1,WR:QUE , . P RF(E) ITAB20 NOT-ADDRESSED WRITE REQUEST? B : P ADK A1,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE t P* P EJECT DRIC01 P* P* PITAB20 LDR A4,A1 SAVE P L
0x0ccdc4…0ccf58 Dummy {f00=0x0040, f01=0x0190, f02=»A4 UPDATE QUEUE LINKS P CMR A2 RESET QUEUE LINK P* > P IFT CPU852=1 H P RF IH:RTN ^ P XIF p P* | P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DRIC01 P* P* A B T I M P* . P* SUB
0x0ccf58…0cd0ec Dummy {f00=0x0040, f01=0x0190, f02=» P* PABTIM2 EQU * P CMR A2 RESET QUEUE LINK " P* B PABTIM LDK A1,DWTTP L $ P ADR A1,A2 TIMER POINTER ADDRESS f P LDR* A3,A1 " P RF(Z) IH:RTN NO TIMER ACTIVE? P CM* 0,A1 " P CMR A1 INDICATE NO TIMER SET P*
0x0cd0ec…0cd280 Dummy {f00=0x0040, f01=0x018e, f02=» EJECT DRIC01 P* P* M O V B U F " P* 8 4 P* SUBROUTINE TO MOVE BUFFER FROM SENDING TASK B P* TO ADDRESSED TASK. z > P* EFFECTIVE LENGTH IN BOTH INPUT AND OUTPUT ECB ARE SET. B P* A1 WILL CONTAIN RETURN CODE /8 IF SENDING
0x0cd280…0cd414 (0, 260) Dummy {f00=0x0040, f01=0x0190, f02=» X P* P* INPUT PARAMETERS: P* A2 RECEIVING DWT 0 P* A5 STACK POINTER N P* A6 SENDING DWT l P* P* REGISTER USAGE: P* A1 RETURN CODE P* A2 DWT RECEIVING TASK P* A3 WORKING REGISTER
0x0cd414…0cd5a8 Dummy {f00=0x0040, f01=0x0190, f02=» A8 ECB ADDRESS SENDING TASK & P* A9 ECB ADDRESS RECEIVING TASK & P* P PMOVBUF EQU * Z P LD A8,DWTECB,A6 SENDING ECB n $ P ENB GIVE OTHER TASKS A CHANCE P* P EJECT DRIC01 P* P* P LDK A1,0 " P LD A9
0x0cd5a8…0cd73c Dummy {f00=0x0040, f01=0x0190, f02=»V:05 , P LDK A1,8 RETURN CODE (INCORRECT LENGTH) P LD A3,ECBRL,A9 < P RB(N) DIS:OE T P* j PMOV:05 EQU * t P IFT MMUPAG=1 6 P LDKL A4,ITAD GET ADDRESS TO DRIVER ADDRESS BLOCK * P CW A3,BUFLEN,A4 CHECK MMU BUFFER SIZE , P R
0x0cd73c…0cd8d0 Dummy {f00=0x0040, f01=0x018e, f02=» P* ! PMOV:10 EQU * ! P XIF ! " P* ! . P ! 8 $ P ST A3,ECBEL,A8 EFFECTIVE LENGTH ! @ $ P ST A3,ECBEL,A9 EFFECTIVE LENGTH ! h P* ! P EJECT DRIC01 ! P* ! P* ! P IFT MMUPAG=0 ! * P LD A4,ECBBA,A8 SENDING BUFFER ADDRESS ! ,
0x0cd8d0…0cda64 Dummy {f00=0x0040, f01=0x40e0, f02=» ! j P LCR A9,A4 " P SCR A9,A7 " P ADK A4,1 " , P ADK A7,1 " > P RB MOV:15 " P P* " b PMOV:20 EQU * " l P XIF " P* " P INH " P RTN A5 " P* " P* " P* " P END " @ " A4,ECBBA,A8 SENDING BUFFER ADDRESS ! ,
0x0cda64…0cdbf8 Dummy {f00=0x0040, f01=0x2008, f02=» # A5 END @ ODE LD A3,4,A1 0 D MOV:10 EQU * L & " LD A4,2,A8 SENDING BUFFER ADDRESS ` " LD A7,2,A2 REC. BUFFER ADDR. ADR A3,A4 END OF BUFFER CWR A4,A3 " RF(E) MOV:20 ALL CHAR. MOVED
0x0cdbf8…0cdd8c Dummy {f00=0x0040, f01=0x018e, f02=»AL CHAR. MAY BE DIFFERENT FROM ZERO S r 8 P* STD STATUS MESSAGE D # 0 C # 0 T , 2 P* DIN DATA INPUT D # 0 T h P EJECT T P* T P* C H L T 1 T P* T P* INTERRUPT FROM CHLT1 T P* T PCHLT1
0x0cdd8c…0cdf20 Dummy {f00=0x0040, f01=0x0190, f02=» P XIF U P* U P IFT CPU852=0 U " P MSR 8,A15 SAVE A1-A8 ON STACK U 0 P XIF U V P* U b P LDK A7,2 INDICATE CHLT1 U l P RF CLT010 U P* U PCHLT2 EQU * U P* U P* U P* U P* U P* C H L T 2 U P* U P*
0x0cdf20…0ce0b4 (0, 261) Opaque[0x194]
0x0ce0b4…0ce248 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c58, f03=0x0000}
0x0ce0b4…0ce248 IdxSect {
0x0ce0b4…0ce248 f00 = 0x0062 // 0xce0b4 @0x0
0x0ce0b4…0ce248 f01 = 0x002c // 0xce0b6 @0x2
0x0ce0b4…0ce248 gno = [ // 0xce0b8 @0x4
0x0ce0b4…0ce248 [0x00]: C0x0062.0x3.0
0x0ce0b4…0ce248 [0x01]: C0x0063.0x0.0
0x0ce0b4…0ce248 [0x02]: C0x0063.0x1.0
0x0ce0b4…0ce248 [0x03]: C0x0063.0x2.0
0x0ce0b4…0ce248 [0x04]: C0x0063.0x3.0
0x0ce0b4…0ce248 [0x05]: C0x0064.0x0.0
0x0ce0b4…0ce248 [0x06]: C0x0064.0x1.0
0x0ce0b4…0ce248 [0x07]: C0x0064.0x2.0
0x0ce0b4…0ce248 [0x08]: C0x0064.0x3.0
0x0ce0b4…0ce248 [0x09]: C0x0065.0x0.0
0x0ce0b4…0ce248 [0x0a]: C0x0065.0x1.0
0x0ce0b4…0ce248 [0x0b]: C0x0065.0x2.0
0x0ce0b4…0ce248 [0x0c]: C0x0065.0x3.0
0x0ce0b4…0ce248 [0x0d]: C0x0066.0x0.0
0x0ce0b4…0ce248 [0x0e]: C0x0066.0x1.0
0x0ce0b4…0ce248 [0x0f]: C0x0066.0x2.0
0x0ce0b4…0ce248 [0x10]: C0x0066.0x3.0
0x0ce0b4…0ce248 [0x11]: C0x0067.0x0.0
0x0ce0b4…0ce248 [0x12]: C0x0067.0x1.0
0x0ce0b4…0ce248 [0x13]: C0x0067.0x2.0
0x0ce0b4…0ce248 [0x14]: C0x0067.0x3.0
0x0ce0b4…0ce248 [0x15]: C0x0068.0x0.0
0x0ce0b4…0ce248 ]
0x0ce0b4…0ce248 }
0x0ce248…0ce3dc Dummy {f00=0x0062, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DK 6 82-02-21 870105040924 P DK6, READ MODIFIED 8 , P DK5, LP, DWTINF, ST.PR.BIT, 81-11-05 V P P DK3, RBUFNR=1 ALLOWED P DK2, TBUFL P 80-03-11 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF.
0x0ce3dc…0ce570 Dummy {f00=0x0062, f01=0x018e, f02=»SATIONAL MODE | P REL 9.1 79-07-19 * P =6, DCTASK BUFFER ADDRESS DESTROYED 2 P REL 9.1 79-05-23 ` $ P =5, INCOMPLETE POLL SEQUENCE | P REL 9.1 79-05-23 P =3, TRANSFER PARAMETER P PRR 9.1 79-04-06 P =4, ANY
0x0ce570…0ce704 Dummy {f00=0x0062, f01=0x0190, f02=» P PRR 9.1 78-11-14 P REL 8.2 78-11-14 P < P* D P* N 2 P********************************************* X P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC
0x0ce704…0ce898 Dummy {f00=0x0062, f01=0x0190, f02=»************************************ P , P* 6 P* @ P* ENTRY POINTS J P* ` 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS j " P ENTRY IH1501 INPUT INTERRUPT " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTI
0x0ce898…0cea2c Dummy {f00=0x0062, f01=0x0190, f02=»TCHER ENTRY ~ ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK $ P EXTRN TENDIO COMPLETE I/O EVENT @ P EXTRN DISIOE REQUEST ERROR h P EXTRN SETIME SET TIMER P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P
0x0cea2c…0cebc0 Dummy {f00=0x0062, f01=0x0190, f02=»XTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & & P EXTRN ECBEL ECB EFFECTIVE LENGTH P P EXTRN ECBRC ECB RETURN CODE z " P EXTRN ECBCW ECB CONTROL WORD * P EXTRN DC:MIN MOVE DATA TO USER BUFFER , P EXTRN DC:MOT MOVE DAT
0x0cebc0…0ced54 (0, 262) Dummy {f00=0x0063, f01=0x0190, f02=»DARD INTERFACE PART FOR DATA COMMUNICATION P* 2 P* < P* F P* P P* DWT CONTENTS Z P* p J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) z P* P < P********************************************
0x0ced54…0ceee8 Dummy {f00=0x0063, f01=0x0190, f02=»U 0 BASE FOR RBUFL AND TBUFL DK " PX:X EQU 500 VALUE FOR BASE DK ( & PX:A EQU 2000 RECEIVE BUFFER LENGTH N PRBUFL EQU 650+X:X DK x PX:B EQU /60 DCTASK FILE CODE PDC15FC EQU /60 $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0
0x0ceee8…0cf07c Dummy {f00=0x0063, f01=0x0190, f02=»AD COMMAND HANDLING IF=1 PRCOM EQU X:F & PX:G EQU 252 TRANSMIT BLOCK LENGTH 4 PTBLEN EQU X:G ^ ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC t PCODE EQU X:H * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING PSPECP EQU X:I , PX:J EQU 1 IF = 1
0x0cf07c…0cf210 Dummy {f00=0x0063, f01=0x0190, f02=» j PMSV1 EQU X:K . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU X:L N . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ d PP6805 EQU X:M PX:N EQU /02 P IFT P6805=0 , PLCUIN EQU X:N DEVICE ADDRESS OF RECEIVER P XIF
0x0cf210…0cf3a4 Dummy {f00=0x0063, f01=0x018e, f02=»TER HANDLING r . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK PMESPAS EQU X:P F 4 PX:Q EQU 1 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU X:Q PX:R EQU 1000 P DK2 * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION . PTSTREQ EQU X
0x0cf3a4…0cf538 Dummy {f00=0x0063, f01=0x0190, f02=» ^ 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". < , P ONLY WORKING IF STAT IS SET TO "ONE". p P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCU
0x0cf538…0cf6cc Dummy {f00=0x0063, f01=0x0190, f02=»* P* . P***************************************** P* F P* CONDITIONAL ASSEMBLY P P* n . P***************************************** x P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQ
0x0cf6cc…0cf860 Dummy {f00=0x0063, f01=0x0190, f02=» P IFT MMUPAG=1 DK2 * PTBUFL EQU 650+X:X MMU BUFFER LENGTH DK " P XIF DK2 P P DE b P* p 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION z . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P*
0x0cf860…0cf9f4 (0, 263) Dummy {f00=0x0063, f01=0x0190, f02=»* DWT DISPLACEMENTS P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART & P* Z P IFT MMUPAG=0 d PSTART EQU DWTDRD z P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* 4 PDWTTP EQU START+/00 TIMER
0x0cf9f4…0cfb88 Dummy {f00=0x0063, f01=0x0190, f02=»/06 RECEIVE QUEUE . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS ( PDWTCUR EQU START+/0A CURSOR ADDRESS L , PDWTTIM EQU START+/0C REQUEST TIMER VALUE x . PDWTINF EQU START+/0E DEVICE INFO, 1=LP DK5 P* P P* P* REQUEST HANDLI
0x0cfb88…0cfd1c Dummy {f00=0x0063, f01=0x0190, f02=» t P* /37: TRANSFER PARAMETERS P* /38: SET STATUS * $ P* /39: SET REQUEST TIMEOUT VALUE D P* l P* v P* CONSTANTS AND WORK AREAS P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS
0x0cfd1c…0cfeb0 Dummy {f00=0x0063, f01=0x0190, f02=» P* P* DC TASK ADDRESS BLOCK P* . $ P DATA 0 INDICATES NO MMU BUFFER 8 P DATA DEVIND DEVICE INDEX ` * PDC15DC DATA DCACTD ACTIVATION ADDRESS & P DATA ABORT ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR P*
0x0cfeb0…0d0044 Dummy {f00=0x0063, f01=0x0190, f02=»VATION ADDRESS z 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR N P* v , P RES 15 SUBROUTINE STACK FOR INTERRUPTS PSTB RES 1 " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 P P IFT S
0x0d0044…0d01d8 Dummy {f00=0x0063, f01=0x0190, f02=»TIVATION FROM TERMINAL TASKS P* $ PDCACT EQU * . P LDK A1,0 PRESET RETURN CODE B P IFT EM3270=1 =4 f P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC P SUK A
0x0d01d8…0d036c Dummy {f00=0x0063, f01=0x0190, f02=»F(Z) DCTP TRANSFER PARAMETERS P IFF STAT=0 & P SUK A7,/38-/37 : P ABL(Z) DCSS SET STATUS DK4 R P SUK A7,/39-/38 v $ P ABL(Z) REQTIM SET REQUEST TIMER P XIF P P IFT STAT=0 P SUK A7,/39-/37 $ P RF(Z) REQTIM SET
0x0d036c…0d0500 Dummy {f00=0x0063, f01=0x018e, f02=»ACTD EQU * $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 : P LDR A7,A7 =4 T & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 j P XIF P SUK A7,/02 P RF(E) DCRDDC READ P SUK A7,/37-/02 $ P RF(E) DCTP TRANSFER PARAMETERS
0x0d0500…0d0694 (0, 264) Dummy {f00=0x0063, f01=0x0190, f02=» P* P* REQUEST FROM DC-TASK P* COMPLETE WHEN: , & P* STATUS CHANGE ON DC EQUIPMENT D $ P* SPONTANOUS MESSAGE RECEPTION n P* PDCRDDC EQU * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED PDCRTN EQU * P ABL TDISP GO TO
0x0d0694…0d0828 Dummy {f00=0x0063, f01=0x0190, f02=»R | P* " P***************************** P : 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 B P RF(Z) DCRD10 NO!! =4 x ( P RF ENDIO YES!! COMPLETE REQUEST =4 P XIF P P* P* TRANSFER DWTINF DK5 P* DK5
0x0d0828…0d09bc Dummy {f00=0x0063, f01=0x0190, f02=» DK5 v P* DK5 P* P* TRANSFER PARAMETERS & P* D P* N > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS X : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P* P* P IFF CODE=1 & PDCTP LD
0x0d09bc…0d0b50 Dummy {f00=0x0063, f01=0x0190, f02=»CTP10 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P SLL A2,8 : PDCTP10 EQU * L $ P LC A3,ECBCW+1,A8 GET TCP OR DV ` P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P XIF * P ST A2,DWTBUF,A6 SAVE TERM. ADDR. DK4 PDCTP12
0x0d0b50…0d0ce4 Dummy {f00=0x0063, f01=0x018e, f02=» & P LDR A3,A6 ADJUST ADDR. VALUE DK4 P ADKL A3,DWTSQ DK4 . , P CWR A1,A3 SOMETHING QUEUED OUR DWT? DK4 J 4 P RF(E) DCTP16 YES, WAIT BEFORE TRANS. PARAM. DK4 z & P LDR* A1,A1 NOT OURS, GET NEXT DK4 P RB DCTP14 DK4 PDCTP16 EQU * (
0x0d0ce4…0d0e78 Dummy {f00=0x0063, f01=0x0190, f02=» j P RB DCRTN DK4 PTPTOUT EQU * P LDR A6,A1 RESTORE DWT DK4 4 * P RB DCTP12 LOOK IN THE QUEUE AGAIN DK4 V PDCTP18 EQU * , P LD A2,DWTBUF,A6 RESTORE TERM ADDR. DK4 ( P STR A2,A6 SAVE IN FIRST WORD OF DWT P P IFT RCOM=
0x0d0e78…0d100c Dummy {f00=0x0063, f01=0x0190, f02=»SHOULD NOT BE IN DC:TAB z * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? N & P ABL(E) DISIOE YES!! REQUEST ERROR | P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB
0x0d100c…0d11a0 Dummy {f00=0x0063, f01=0x0190, f02=»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 P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER
0x0d11a0…0d1334 (0, 265) Dummy {f00=0x0063, f01=0x0190, f02=»INSSQ INSERT IN STATUS QUEUE P XIF $ PDCTP30 EQU * 0 P SUR A1,A1 RETURN CODE ::= 0 D PENDIO EQU * h $ P CF A15,TENDIO COMPLETE REQUEST | P RB DCRTN P P* P* P* WRITE P* P* P* COMPLETE WHEN:
0x0d1334…0d14c8 Dummy {f00=0x0063, f01=0x0190, f02=»8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! @ P XIF P CF A15,TIMEWR SET TIMER h P CF A15,INSWQ QUEUE REQUEST 2 P ST A8,DWTBUF,A6 SAVE ECB FOR RD. MODIFIED DK6 P RB DCRTN P* P* P
0x0d14c8…0d165c Dummy {f00=0x0063, f01=0x0190, f02=»DCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE 2 " P RF(Z) DCRD10 NOTHING IN QUEUE d P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFF
0x0d165c…0d17f0 Dummy {f00=0x0063, f01=0x0190, f02=» RB DCRTN P ! $ PDCRD10 CF A15,TIMERE START TIMER ! P RB DCRTN ! B P ! T P* ! ^ P* ! h P* SET STATUS ! r P* ! P* ! P IFF STAT=0 ! PDCSS EQU * ! * P LD A1,ECBCW,A8 GET STATUS INFORMATION ! P ANK A1,3 MASK DB,IR !
0x0d17f0…0d1984 Dummy {f00=0x0063, f01=0x0190, f02=»D A1,DWTST,A6 ! P ANK A1,9 " ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT " ( PDCSS30 EQU * " T , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE " h P LDK A1,4 SET DE " P RB DCSS10 " P XIF " P " P " P* " " P* SET REQUEST TIMEOUT VALUE
0x0d1984…0d1b18 Dummy {f00=0x0063, f01=0x0190, f02=»B DCTP30 TENDIO & DISPATCH " P # " P* # * ( P* ILLEGAL APPLICATION BUFFER SIZE # 4 P* # ` P # j 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH # r P ABL DISEND COMPLETE REQUEST # P # P* # P* # P* # P* TIMER HANDLI
0x0d1b18…0d1cac Dummy {f00=0x0063, f01=0x0190, f02=»A6 GET REQUEST TIMEOUT VALUE # P RF(Z) TIME10 NO TIMING $ $ P ST A2,TIMERR $ D P CF A15,SETIME $ Z P DATA TOUTRE $ p PTIMERR DATA 0 $ ( P ST A4,DWTTP,A6 STORE TIMER POINTER $ PTIME10 EQU * $ P RF GBUF10 RETURN $ P* $ P* TIMEOUT
0x0d1cac…0d1e40 Dummy {f00=0x0063, f01=0x0190, f02=» TIME OUT $ | $ PTOUTR2 RB ENDIO COMPLETE REQUEST % P* % : P* WRITE TIMER=TIMWR % D P* % ` PTIMEWR LDR A1,A6 % j . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE % P RB(Z) TIME10 NO TIMING % P ST A2,TIMWR % P CF A15,SETIME % P DATA TOUT
0x0d1e40…0d1fd4 (0, 266) Dummy {f00=0x0064, f01=0x0190, f02=»WR EQU * % P LDR A6,A1 FETCH DWT & P CM DWTTP,A6 & , * P CF A15,REMOVW REMOVE FROM WRITE QUEUE & @ P* & n & P* THIS INSTRUCTION DOES NOT BELONG & x P* TO THE STANDARD INTERFACE & P LD A2,FDWTUT & P CWR A2,A6 & * P RB(NE) TOUTR1 THIS DWT IS
0x0d1fd4…0d2168 Dummy {f00=0x0064, f01=0x0190, f02=» P* ' P* STOP REQUEST TIMING ' P* ' , & P* REMAINING TIME IS RETURNED IN A2 ' 6 P* ' ` P* ' j PCTIME EQU * ' t & P LD A2,DWTTP,A6 GET TIMER POINTER ' P RF(Z) CTIM10 NOT RUNNING ' P LDR* A2,A2 ' " P NGR A2,A2 GET REMAINING TIME '
0x0d2168…0d22fc Dummy {f00=0x0064, f01=0x0190, f02=» ' | P* ( $ P* CALLING SEQUENCE: CF A15,GRBUF ( P* A4=0 IF NO BUFFER IS FREE ( : & P* ELSE A4 CONTAINS BUFFER ADDRESS ( ^ P* A2 AND A3 ARE DESTROYED ( P* ( P* ( ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS ( PGBUF INH ( P LDR* A4,A2 (
0x0d22fc…0d2490 Dummy {f00=0x0064, f01=0x0190, f02=»TACK POINTER ( v P ABR* A15 RETURN TO CALLER ) P ) 6 P* ) @ P* ) J ( P* INSERT DWT IN WRITE REQUEST QUEUE ) T P* ) P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR ) PINSWQ1 LDK A4,DWTWQ ) P
0x0d2490…0d2624 Dummy {f00=0x0064, f01=0x0190, f02=» INSERT IN QUEUE ) " P CMR A4 INDICATE END OF QUEUE * P RB GBUF10 RETURN * > P* * X P* * b * P* REMOVE DWT FROM WRITE REQUEST QUEUE * l P* * P* A2,A3,A4 DESTROYED * P* A6=DWT * P* * * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR * 2 P
0x0d2624…0d27b8 Dummy {f00=0x0064, f01=0x0190, f02=»ON QUEUE: RETURN * ~ P CWR A3,A4 + P RF(E) REM15 + * P LDR A2,A3 GET NEXT + > P RB REM10 + Z PREM15 LDR* A3,A4 REMOVE + l P STR A3,A2 + P RB GBUF10 RETURN + P + P* + P* + P* INSERT DWT IN STATUS QUEUE + P* + P IFF
0x0d27b8…0d294c Dummy {f00=0x0064, f01=0x0190, f02=»NK A2,/FF IF ADDRESS = 00 OR /7F DK4 + ( P RB(Z) GBUF10 DONT PUT IN STATUS DK4 , , , P SUK A2,/7F QUEUE, TERMINAL HAS BEEN DK4 , X $ P RB(Z) GBUF10 MADE INACTIVE DK4 , $ P LDKL A2,DCSTQ GET QUEUE ANCHOR , P LDK A4,DWTSQ , P RB INSWQ2 , P* ,
0x0d294c…0d2ae0 Dummy {f00=0x0064, f01=0x0190, f02=»ET QUEUE ANCHOR , z P LDK A4,DWTSQ - P RB REM06 - . P XIF - @ P - L P* - V P* - ` $ P* QUEUE ALLOCATED RECEIVE BUFFER - j P* - P* A4=BUFFER ADDR - P* A2,A3 DESTROYED - P* - PQRBUF EQU * - P IFT MESPAS=1 - ( P LDKL
0x0d2ae0…0d2c74 (0, 267) Dummy {f00=0x0064, f01=0x0190, f02=»Q BEGINNING OF RECEIVE QUEUE - PQR100 EQU * . $ P LDR* A3,A2 . 8 $ P RF(Z) QR200 END OF QUEUE FOUND . L P LDR A2,A3 . t P RB QR100 . & PQR200 STR A4,A2 INSERT INTO QUEUE . " P CMR A4 INDICATE END OF QUEUE . P RTN A5 . P . P* .
0x0d2c74…0d2e08 Dummy {f00=0x0064, f01=0x0190, f02=» . PCKMESS LDKL A6,DW1500 / P LD A1,DWTST,A6 / & P RF(N) CKM110 NO REQUEST / > P LDK A1,2 READ REQUEST ? / ^ P CW A1,DWTOR,A6 / ~ P RF(NE) CKM110 NO / $ P LD A8,DWTECB,A6 ECB ADDR TO A8 / * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE / " P R
0x0d2e08…0d2f9c Dummy {f00=0x0064, f01=0x0190, f02=» QUEUE / l " P ADK A3,6 MOVE POINTER TO TEXT 0 & P DONT DESTROY BUFFER ADDRESS =6 0 4 P LD A4,-4,A3 0 ^ 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS 0 r P LD A4,-2,A3 0 . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS 0 P 0 P LDK A1,0 RESET RETU
0x0d2f9c…0d3130 Dummy {f00=0x0064, f01=0x0190, f02=» POINTER 0 r P ABR* A15 RETURN 1 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS 1 ( , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT 1 d P CW A1,DCSTOL 1 P ST A1,DCSTOL 1 & P RB(E) CKM110 NO CHANGE OF STATUS 1 * P ORKL A1,/2000 INDICATE STATUS
0x0d3130…0d32c4 Dummy {f00=0x0064, f01=0x0190, f02=»**************************** 1 p P* 2 $ P* ABORT ROUTINE 2 . P* 2 H P************************ 2 R P 2 r & PABORT LD A1,DWTTP,A6 TIMER POINTER 2 z " P RF(Z) AB:10 NO TIMER RUNNING 2 P CM* DWTTP,A6 KILL TIMER 2 P CM DWTTP,A6 2 P 2 $ PAB
0x0d32c4…0d3458 Dummy {f00=0x0064, f01=0x0190, f02=»O ACTION IF NOT READ/WRITE 2 P 3 " . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 3 * & P LD A2,FDWTUT WRITING DWT ADDRESS 3 P CWR A2,A6 3 P RF(NE) AB:RTN NOT THIS DWT 3 P CM XACK RESET ACK EXPECTED 3 P CM FDWTUT RESET WRITING DWT 3 P 3
0x0d3458…0d35ec Dummy {f00=0x0064, f01=0x0190, f02=» P RTN A15 4 P XIF 4 P 4 P 4 * P 4 2 P* 4 < P* 4 F P* STORE REGISTER A3-A8 4 P $ P* CALLING SEQUENSE: CF A15,STREG 4 n P* 4 P* RESTORE 4 $ P* CALLING SEQUENCE: CF A15,LDREG 4 P* 4 P* 4 PSTREG ST A3,LCA3 4 P S
0x0d35ec…0d3780 Dummy {f00=0x0064, f01=0x0190, f02=»REG LDKL A3,0 4 PLCA3 EQU *-2 5 P LDKL A4,0 5 * PLCA4 EQU *-2 5 < P LDKL A5,0 5 P PLCA5 EQU *-2 5 b P LDKL A6,0 5 v PLCA6 EQU *-2 5 P LDKL A7,0 5 PLCA7 EQU *-2 5 P LDKL A8,0 5 PLCA8 EQU *-2 5 PRTNA15 EQU * 5 P ADKL A15,4
0x0d3780…0d3914 (0, 268) Dummy {f00=0x0064, f01=0x0190, f02=» 5 j " PTIMNAK EQU 3 DELAY FOR NAK DK 6 P* 6 . P* 6 8 P* CHARACTER EQUATES 6 B P* 6 ^ & PSF EQU X'1D' START FIELD CHARACTER 6 h PSYN EQU /16 6 PSTX EQU /02 6 PETX EQU /03 6 PETB EQU /17 6 PITB EQU /1F 6 PSOH EQU /01 6
0x0d3914…0d3aa8 Dummy {f00=0x0064, f01=0x0190, f02=» PRDBCOM EQU /32 7 PRDMCOM EQU /36 7 P IFT CODE=0 7 0 PPAR EQU /80 7 D PRVI EQU /3C 7 X PACK0 EQU /30 7 l PACK1 EQU /31 7 PDC1 EQU /11 7 P IFT MSV1=0 7 PWACK EQU /3B 7 P XIF 7 P IFT CODE=0 7 P IFT MSV1=1 7 0 PWACK
0x0d3aa8…0d3c3c Dummy {f00=0x0064, f01=0x0190, f02=» 7 PACK0 EQU /18 8 PACK1 EQU /2F 8 PSYNEBC EQU /32 8 0 P XIF 8 F P 8 R P* 8 P* 8 f P* PROCEDURE WORK AREAS 8 p P* 8 P* 8 * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 8 . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 8 PXACK D
0x0d3c3c…0d3dd0 Dummy {f00=0x0064, f01=0x0190, f02=»XRB DATA 0 READ BUFFER SWITCH 8 PCACK DATA 0 ACK COUNTER 9 & * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 9 F P* 9 t PFECB RES 1 WRITING ECB 9 ~ ( PFECBBA RES 1 WRITING BUFFER ADDRESS 9 & PFECBRL RES 1 WRITING BUFFER LENGTH 9 PFBAX DATA 0 BUFFER IND
0x0d3dd0…0d3f64 Dummy {f00=0x0064, f01=0x0190, f02=» TIMING 9 n , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA : ( PCRDBUF DATA 0 READ BUFFER COUNTER DK : @ P* : l P* : v $ P* 3270 SENSE/STATUS INFORMATION : P* : P* : P IFF STAT=0 : . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE : P* :
0x0d3f64…0d40f8 Dummy {f00=0x0064, f01=0x0190, f02=» INTERVENTION REQUIRED : ~ P XIF ; P ; * P* ; 4 P* ; > P* BASIC RECEIVE MODE ; H P* ; d " P* ENTERED EVERY TIME A MESSAGE ; n & P* IS EXPECTED FROM THE MASTER SIDE ; P* ; P* ; P IFT P6805=1 SALCUZ ; , PBRMHLT CF A5,HALTIN HALT R
0x0d40f8…0d428c Dummy {f00=0x0064, f01=0x0190, f02=»TIN HALT RECEIVER AND UPDATE STATUS ; P XIF SALCUZ < , P IFT P6805=1 SALCUZ < B 0 P CF A15,CKMESS CHECK IF STATUS CHANGE SALCUZ < ^ P XIF SALCUZ < PBRM010 EQU * < P IFT CODE+P6805=0 SALCUZ < 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTE
0x0d428c…0d4420 Dummy {f00=0x0064, f01=0x0190, f02=» XIF SALCUZ < P IFT P6805=0 SALCUZ = " P CIO A2,1,LCUIN START RECEIVER = 2 P XIF SALCUZ = X P IFT P6805=1 SALCUZ = n P IFF CODE=1 SALCUZ = P LDK A2,/0C SALCUZ = * P CIO A2,1,LCUIN START RECEIVER SALCUZ = P LDK A2,SYN SALCUZ =
0x0d4420…0d45b4 (0, 269) Dummy {f00=0x0064, f01=0x0190, f02=» = v P LDK A2,0 SALCUZ > * P CIO A2,1,LCUIN START RECEIVER SALCUZ > " P LDK A2,SYNEBC SALCUZ > P 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ > n P RB(NA) BRMHLT SALCUZ > P XIF SALCUZ > PBRM100 EQU * > $ P CF A5,READP READ ONE CHARAC
0x0d45b4…0d4748 Dummy {f00=0x0064, f01=0x0190, f02=» > P RF(Z) BRM200 EOT RECEIVED ? P SUK A1,ENQ-EOT ? * P ABL(Z) BRM400 ENQ RECEIVED ? B P SUK A1,DLE-ENQ ? f P ABL(Z) BRM600 DLE RECEIVED ? ~ P SUK A1,NAK-DLE ? P ABL(Z) BRM500 NAK RECEIVED ? P IFT MSV1=0 ? P LDR A8,A2 ? $ P CF
0x0d4748…0d48dc Dummy {f00=0x0064, f01=0x0190, f02=» ? P LDK A3,0 @ P CC A2,DW1500+1 @ P RF(E) BRM110 POLLING @ 2 P LDK A3,2 @ P P CC A2,DW1500 @ b P RF(NE) BRM150 NOT THIS TCU @ x PBRM110 EQU * @ P CF A5,READP READ 1:ST STA @ P RF(NZ) BRM150 PARITY ERROR @ P LDR A8,A2 @ P
0x0d48dc…0d4a70 Dummy {f00=0x0064, f01=0x0190, f02=»SS SEQUENCE @ t P XIF A " P CF A5,READ READ ONE CHARACTER A P IFT P6805=0 SALCUZ A F P SUK A2,ENQ+PAR A b P XIF SALCUZ A z P IFT P6805=1 SALCUZ A P SUK A2,ENQ SALCUZ A P XIF SALCUZ A P RF(NZ) BRM150 NOT ENQ A P IFT P6805=0
0x0d4a70…0d4c04 Dummy {f00=0x0064, f01=0x0190, f02=» A v P SST A1,LCUIN B P XIF SALCUZ B P IFT P6805=1 SALCUZ B 4 $ P CF A5,HALTIN HALT INPUT SALCUZ B P . P RB(NZ) BRM010 PARITY ERROR SALCUZ SALCUZ B x P XIF SALCUZ B P LDK A1,1 B P ST A1,CACK LOAD ACK COUNTER B P LDR A2,A8 B P
0x0d4c04…0d4d98 Dummy {f00=0x0064, f01=0x0190, f02=»CHECK IF STA PRESENT (POLL ADDRESS) B P XIF C , P IFT MSV1=0 C 8 & P CF A5,FINTER CHECK IF STA PRESENT C L P XIF C v P LDR A6,A3 LOAD DWT TO A6 C P ABL(NZ) SPOLL SPECIFIC POLL C P RB BRM INVALID POLL C PBRM120 EQU * C & P CF A5,FINTER CH
0x0d4d98…0d4f2c Dummy {f00=0x0064, f01=0x0190, f02=» TO DCTASK C z PBRM130 EQU * D P ABL SELECT D & P XIF D : P IFT MSV1=1 D J P ABL BRM INVALID ADDRESS D ` P XIF D P* D , P* WAIT FOR MARK HOLD TO RESYNCHRONIZE D P* D PBRM150 EQU * D P ANK A2,/7F D P SUK A2,/7F
0x0d4f2c…0d50c0 Dummy {f00=0x0064, f01=0x0190, f02=»HAS BEEN RECEIVED D P* E P* E $ PBRM200 EQU * E . & P CF A5,HPTIM STOP PROCEDURE TIMER E B P IFT RCOM=1 E l P CM XRB RESET READ BUFFER E P XIF E P LD A1,XACK E & P RF(Z) BRM220 ACK IS NOT EXPECTED E " P LD A6,FDWTUT GET WRITING DW
0x0d50c0…0d5254 (0, 270) Dummy {f00=0x0065, f01=0x018e, f02=» CM XACK RESET 'ACK EXPECTED' E PBRM220 EQU * F & P CM XSEL RESET 'SELECTED' F : P RB BRM F P F l P* F v P* F P* STX HAS BEEN RECEIVED F P* F P* F PBRM300 EQU * F P CF A5,HPTIM F P LD A1,XSEL F P RF(Z) BRM315
0x0d5254…0d53e8 Dummy {f00=0x0065, f01=0x0190, f02=» P SUK A7,1 G P RF(NZ) BRM320 MESSAGE OK G PBRM310 EQU * G 8 ( P CM XSTA INDICATE 'INVALID MESSAGE' G L PBRM312 EQU * G x P CF A5,TRNAK SEND NAK G P ABL BRM G PBRM315 EQU * G P IFT RCOM=1 G P LD A1,XACK G & P RF(Z) BRM316 ACK
0x0d53e8…0d557c Dummy {f00=0x0065, f01=0x0190, f02=»M150 NO ONE WRITING. RESYNCHRONIZE G P LDR* A2,A6 GET STA H * P XIF H F P IFT RCOM=1 H R , P CF A5,PRREC PREPARE FOR TEXT RECEPTION H f * P LD A1,DWTECB,A6 SAVE CURRENT ECB DK6 H P ST A1,DWTCUR,A6 DK6 H P LDK A1,0 SET RC=0 H ( P CF A5,CWRIT
0x0d557c…0d5710 Dummy {f00=0x0065, f01=0x018e, f02=»NE CHARACTER H x P IFF P6805=1 =8 I P SUK A2,ENQ+PAR I , P XIF =8 I D P IFT P6805=1 =8 I V P SUK A2,ENQ =8 I n P XIF =8 I ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE I P RB BRM220 I PBRM320 EQU * I P IM XSTA INDICATE MESSAGE OK I
0x0d5710…0d58a4 Dummy {f00=0x0065, f01=0x0190, f02=» I P LDK A1,ESC J P CCR A1,A4 J P RB(NE) BRM310 ESC NOT FOUND J . P ADK A4,1 J R P LCR A1,A4 GET COMMAND CODE J d P SUK A4,1 J P SUK A1,RDBCOM J ( P RF(Z) RDBUF READ MODIFIED RECEIVED J P SUK A1,RDMCOM-RDBCOM J & P RF(Z) RDMOD R
0x0d58a4…0d5a38 Dummy {f00=0x0065, f01=0x0190, f02=» CF A15,GRBUF ALLOCATE RECEIVE BUFFER J P ADK A4,6 K . P LD A6,FDWTIN GET INPUT DWT K @ P* K d " P* PREPARE FOR CHAINED COMMAND K n P* K P IFT RCOM=1 K P LDR* A2,A6 K P LC A2,TEBCDIC,A2 K P LD A1,DCRBUF K P RF(Z) BRM326 K
0x0d5a38…0d5bcc Dummy {f00=0x0065, f01=0x0190, f02=»ST,A6 GET STATUS K P RF(N) BRM330 NO REQUEST L P IFT EM3270=1 =4 L 8 P LD A2,DWTOR,A6 ORDER =4 L R & P RF(Z) BRM327 ANY MESSAGE ORDER =4 L r P XIF =4 L P LDK A2,2 L P CW A2,DWTOR,A6 L " P RF(NE) BRM330 NO READ REQUEST L PBRM327 EQU
0x0d5bcc…0d5d60 Dummy {f00=0x0065, f01=0x0190, f02=»IVE LENGTH L t & P CF A15,CTIME STOP REQUEST TIMING M ( P ST A2,ECBCW,A8 STORE REMAINING TIME M < P M h P* M r P* M | 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC M P* M P* M P IFT STAT=1 M P LC A2,+2,A4 GET WCC/CCC M P ANK A
0x0d5d60…0d5ef4 (0, 271) Dummy {f00=0x0065, f01=0x0190, f02=»NOT LP DK5 M P ANK A2,8 N P RF(Z) BRM328 N $ P LD A2,DWTST,A6 GET STATUS N : " P ORK A2,/A SET WACK INDICATION N P ST A2,DWTST,A6 N PBRM328 EQU * N P XIF N P IFT EM3270=1 =4 N P LD A2,DWTOR,A6 ORDER =4 N , P RF(NZ) BRM329 NOT A
0x0d5ef4…0d6088 Dummy {f00=0x0065, f01=0x0190, f02=» XIF =4 N PBRM329 EQU * =4 O P O ( P LDK A1,0 RESET RETURN CODE O 0 & P CF A15,DC:MIN MOVE TO USER BUFFER O T P RF BRM345 O ~ PBRM32A EQU * =4 O P O $ P CF A15,TENDIO COMPLETE REQUEST O P RF BRM345 O P O PBRM330 EQU * O P
0x0d6088…0d621c Dummy {f00=0x0065, f01=0x0190, f02=»BRM335 NOT ANY MESSAGE ORDER =4 O & P CF A15,TENDIO COMPLETE REQUEST =4 P ( PBRM335 EQU * =4 P R P XIF =4 P j P SUK A4,6 GET BUFFER BASE P | ( P CF A5,QRBUF QUEUE BUFFER FOR DCTASK P . P CF A15,CKMESS COMPLETE DCTASK READ IF ANY P PBRM340 EQU *
0x0d621c…0d63b0 Dummy {f00=0x0065, f01=0x0190, f02=» $ P RB(Z) BRM340 ACK SHOULD BE SENT Q P CF A5,TRWACK SEND WACK Q , P RF BRM410 Q L P XIF Q ^ P IFF STAT=1 Q j P RB BRM340 Q ~ P XIF Q P Q P* Q P* Q , P* READ MODIFIED OR READ BUFFER RECEIVED Q P* Q P* Q P IFF RCOM=
0x0d63b0…0d6544 Dummy {f00=0x0065, f01=0x018e, f02=»R ADDRESSED TERMINAL Q t 0 P LD A4,DWTBUF,A6 RESTORE LAST WRITE ECB DK6 R P ST A4,DWTECB,A6 DK6 R P " P IM XRB SET READ BUFFER SWITCH R n P CM FDWTUT R P LDK A1,1 R & P XRS A1,CACK INCREMENT ACK COUNTER R P DB R * P LD A1,CRDBUF INCREMENT
0x0d6544…0d66d8 Dummy {f00=0x0065, f01=0x0190, f02=» R P* S P* S P* ENQ HAS BEEN RECEIVED S P* S < P* S F PBRM400 EQU * S P & P CF A5,HPTIM STOP PROCEDURE TIMER S d P LD A1,XACK S , P RF(NZ) BRM510 RETRANSMISSION OF MESSAGE S P OR A1,XSEL S " P RF(Z) BRM410 IN CONTROL STATE S
0x0d66d8…0d686c Dummy {f00=0x0065, f01=0x0190, f02=»ECEIVED S P* T P* T PBRM500 EQU * T $ & P CF A5,HPTIM STOP PROCEDURE TIMER T 8 P LD A1,XACK T b P RF(NZ) BRM510 ACK EXPECTED T v P OR A1,XSEL T " P RB(Z) BRM410 IN CONTROL STATE T P RF BRM636 T PBRM510 EQU * T P DB T P
0x0d686c…0d6a00 Dummy {f00=0x0065, f01=0x018e, f02=»,TIMNAK DK T P ABL TDISP DK U PBRM520 EQU * DK U * P CF A15,LDREG DK U B P DE U " P LD A6,FDWTUT GET WRITING DWT U j P IFF STAT=0 U P LD A1,XSTA U 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED U P XIF U 0 P LD A1,FBLST GET
0x0d6a00…0d6b94 (0, 272) Dummy {f00=0x0065, f01=0x0190, f02=» P* DLE HAS BEEN RECEIVED V P* V $ P* V . PBRM600 EQU * V 8 & P CF A5,HPTIM STOP PROCEDURE TIMER V L P LD A1,XACK V v " P RB(Z) BRM410 ACK NOT EXPECTED V & P CF A5,READ READ SECOND CHARACTER V P IFF P6805=1 =8 V P CWK A2,ACK0+PAR V
0x0d6b94…0d6d28 Dummy {f00=0x0065, f01=0x018e, f02=» V ~ P* W P LD A1,CACK GET ACKCOUNTER W P RF(Z) BRM630 ACK,0 EXPECTED W 4 PBRM610 EQU * W X P CF A5,TRENQ SEND ENQ W l & P CF A5,SPTIM START PROCEDURE TIMER W P RB BRM410 W PBRM620 EQU * W P CWK A2,ACK1 W P RF(NE) BRM650 W P* W
0x0d6d28…0d6ebc Dummy {f00=0x0065, f01=0x018e, f02=» P LD A1,XETX X P RF(Z) BRM640 ETX NOT SENT X P X : P* X D , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK X N P* X ~ P LDK A1,0 SET RC=0 X PBRM635 EQU * X P IFF STAT=0 X P LD A2,XSTA X . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED
0x0d6ebc…0d7050 Dummy {f00=0x0065, f01=0x018e, f02=» X P CM XRB RESET READ BUFFER Y P XIF Y * P RB BRM410 Y 6 PBRM640 EQU * Y H P LDK A1,1 Y & P XRS A1,CACK INCREMENT ACK COUNTER Y n P ABL POL130 Y PBRM650 EQU * Y P IFF P6805=1 =8 Y P CWK A2,RVI+PAR Y P XIF =8 Y P IFT P
0x0d7050…0d71e4 Dummy {f00=0x0065, f01=0x0190, f02=» Y p P LD A1,XETX Z $ P RF(NZ) BRM660 ETX HAS BEEN SENT Z P LDK A1,2 SET RC=2 Z D P RB BRM635 Z ^ PBRM660 EQU * Z p P LDK A1,0 SET RC=0 Z P RB BRM635 Z P IFF STAT=0 Z P Z P* Z P* Z " P* STATUS HAS BEEN TRANSMITTED Z P
0x0d71e4…0d7378 Dummy {f00=0x0065, f01=0x0190, f02=»LEAR 'STATUS SENT' Z " P CM XACK CLEAR 'ACK EXPECTED' [ P LD A1,DWTST,A6 GET STATUS [ @ P ANK A1,4 [ b P RB(Z) BRM636 NOT DE [ t P LDKL A1,/8000 [ " P ANS A1,DWTST,A6 CLEAR STATUS [ P RB BRM636 [ P XIF [ P [ P* [ P* [ P
0x0d7378…0d750c Dummy {f00=0x0065, f01=0x0190, f02=» [ j P IFF STAT=0 P LD A1,DWTST,A6 GET STATUS P LDR A3,A1 > P ANK A1,1 P $ P RF(Z) SEL110 NO PENDING STATUS b P CF A5,TRRVI SEND RVI P XIF P IFF STAT=1 P RF SEL110 P XIF PSEL100 EQU * P ABL BRM
0x0d750c…0d76a0 Dummy {f00=0x0065, f01=0x018e, f02=» A3,8 " P RF(Z) SEL111 DEVICE NOT BUSY ] P CF A5,TRWACK TRANSMIT WACK ] 4 P ABL BRM ] X PSEL111 EQU * ] h P XIF ] | P LD A1,DCRBUF ] $ P RF(NZ) SEL120 BUFFER AVAILABLE ] PSEL115 EQU * ] P IFF STAT+NOWACK=2 ] P CF A5,TRWACK SEND W
0x0d76a0…0d7834 (0, 273) Dummy {f00=0x0065, f01=0x018e, f02=» ] v P RB SEL100 ^ P ^ P* ^ $ P* ^ . P* PREPARE FOR TEXT RECEPTION ^ 8 P* ^ P* ^ f PPRREC EQU * ^ p P IM XSEL SET 'SELECTED' ^ P CM FBAX RESET BUFFER INDEX ^ P IFT CODE=1 ^ . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC ^
0x0d7834…0d79c8 Dummy {f00=0x0065, f01=0x0190, f02=» P* _ P* _ $ P* GENERAL POLL HAS BEEN RECEIVED _ P* _ @ P* _ J PGPOLL EQU * _ T P LD A1,XACK =5 _ h & P RF(Z) POL020 ACK NOT EXPECTED =5 _ " PPOL010 CF A5,TRENQ SEND ENQ =5 _ * P CF A5,SPTIM START PROCEDURE TIMER =5 _ " P ABL BRM W
0x0d79c8…0d7b5c Dummy {f00=0x0065, f01=0x018e, f02=»Z) POL110 NO STATUS TO BE SENT _ " P SUK A6,DWTSQ GET DWT ADDRESS ` & PPOL050 EQU * ` L P CF A5,TRSTA SEND STATUS ` ` & P CF A5,SPTIM START PROCEDURE TIMER ` P IM XACK SET 'ACK EXPECTED' ` P XIF ` P IFF STAT=1 ` P RF POL110 ` P XIF `
0x0d7b5c…0d7cf0 Dummy {f00=0x0065, f01=0x0190, f02=» P CF A5,TREOT SEND EOT a P RB POL100 a " PPOL120 EQU * a 4 " P SUK A6,DWTWQ GET DWT ADDRESS a H PPOL125 EQU * a n $ P LD A8,DWTECB,A6 GET ECB ADDRESS a P RF(NZ) POL126 a P CF A15,REMOVW a P RB POL115 a PPOL126 EQU * a P ST A8,FECB
0x0d7cf0…0d7e84 Dummy {f00=0x0065, f01=0x0190, f02=»,A8 a . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER b P XIF b > & P LD A4,ECBBA,A8 GET BUFFER ADDRESS b J P LD A3,ECBRL,A8 GET LENGTH b t PPOL127 EQU * b & P ST A4,FECBBA SAVE BUFFER ADDRESS b ( P SUK A3,2 SKIP FIRST WORD OF BUFFER b P ST A3,F
0x0d7e84…0d8018 Dummy {f00=0x0065, f01=0x0190, f02=»A5,TRTEXT SEND ONE BLOCK b & P CF A5,SPTIM START PROCEDURE TIMER c P IM XACK SET 'ACK EXPECTED' c J P RB POL100 c n P c P* c P* c & P* SPECIFIC POLL HAS BEEN RECEIVED c P* c P* c PSPOLL EQU * c P IFF STAT+SPECP=0 c
0x0d8018…0d81ac Dummy {f00=0x0065, f01=0x0190, f02=» RESTORE A6 c P IFT STAT=1 d P LD A1,DWTST,A6 GET STATUS d ( P ANK A1,7 d J " P RB(NZ) POL050 PENDING STATUS d P XIF d P IFF STAT+SPECP=0 d P LD A1,DWTST,A6 d P RB(N) POL115 NO REQUEST d P LD A1,DWTOR,A6 GET ORDER d P SUK A
0x0d81ac…0d8340 Dummy {f00=0x0065, f01=0x0190, f02=» d | P e P* e P* e 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED e & P* e b P* A1 CONTAINS RETURN CODE e l P* e P* e PCWRITE LD A6,FDWTUT e $ P RF(Z) CWR900 NO WRITE GOING ON e P IFT RCOM=1 e $ P LD A2,XRB IF
0x0d8340…0d84d4 (0, 274) Dummy {f00=0x0066, f01=0x0190, f02=»OR,A6 GET ORDER e P SUK A2,6 f P RF(Z) CWR100 WRITE REQUEST f * P SUK A2,2 f N ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST f ` P LDR A1,A1 f 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO f P LDK A2,2 TRANMISSION OK f ( P ST A2,DWTOR,A6 INDI
0x0d84d4…0d8668 Dummy {f00=0x0066, f01=0x018e, f02=» RF(Z) CWR150 f P ST A2,ECBCW,A8 g $ P CF A15,TENDIO COMPLETE REQUEST g . PCWR150 EQU * g V * P CF A15,REMOVW REMOVE FROM WRITE QUEUE g j PCWR200 EQU * g PCWR900 EQU * g " P CM XACK RESET 'ACK EXPECTED' g P CM FDWTUT g P IFT RCOM=1 g
0x0d8668…0d87fc Dummy {f00=0x0066, f01=0x018e, f02=» PCWR910 EQU * DK6 h P XIF h P RTN A5 h , P h < P* h F P* h P P* READ ONE TEXT BLOCK h Z P* h x P* ON EXIT A3 CONTAINS : h ( P* 0 : IF CORRECT ETX BLOCK RECEIVED h 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW h ( P* 2
0x0d87fc…0d8990 Dummy {f00=0x0066, f01=0x0190, f02=» h v P LDK A3,0 i P LD A1,XSTA i $ P RF(NZ) RDM050 LAST INPUT WAS OK i . " P LD A1,FBLST COMPUTE NEW INDEX i V P SUR A1,A4 i | P ST A1,FBAX i PRDM050 EQU * i P AD A4,FBAX ADD BUFFER INDEX i ( P ST A4,FBLST REMEMBER START OF BLOCK i PRD
0x0d8990…0d8b24 Dummy {f00=0x0066, f01=0x0190, f02=» BLOCK i x P CF A5,READP j P RF(NZ) RDM120 PARITY ERROR j " P CWK A2,ESC j F P RF(NE) RDM110 j Z * P CF A5,READP SKIP NEXT TWO CHARACTERS j p P CF A5,READP j P XIF j PRDM100 EQU * j $ P CF A5,READP READ ONE CHARACTER j P RF(NZ) RDM120
0x0d8b24…0d8cb8 Dummy {f00=0x0066, f01=0x0190, f02=»CEIVED j | P CWK A2,ITB k P RF(E) RDM170 ITB RECEIVED k " P CWK A2,ENQ k D 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE k X P CWK A2,/FF k $ P RF(E) RDM140 MARK HOLD RECEIVED k P k P IFT CODE=0 k P IFT BINTRM=1 k P k P LDR
0x0d8cb8…0d8e4c Dummy {f00=0x0066, f01=0x018e, f02=» P LDR A8,A1 l * P CF A5,READP 8-BIT CHAR GET NEXT PART l P RF(NZ) RDM120 PARITY ERROR l D * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER l h P ORR A2,A8 l PRDM115 EQU * l P XIF l P l P SCR A2,A4 STORE CHARACTER l P ADK A4,1 INCREMENT PO
0x0d8e4c…0d8fe0 Dummy {f00=0x0066, f01=0x0190, f02=» P* m P* BUFFER OVERFLOW m P* m ( P RF RDM140 ABORT INPUT m 2 PRDM120 EQU * m P & P LDK A3,1 INDICATE INVALID MESSAGE m d P SUK A2,/7F m $ P RF(Z) RDM150 MARK HOLD RECEIVED m P RB RDM100 m P* m P* ETX RECEIVED m P* m PRD
0x0d8fe0…0d9174 (0, 275) Dummy {f00=0x0066, f01=0x0190, f02=»DER m f P IFF CODE=1 n P CF A5,RDLRC n P RF(Z) RDM150 LRC WAS OK n 4 P XIF n T P IFT CODE=1 n ` & P CF A5,RDCRC READ CRC AND CHECK IT n t P RF(E) RDM150 CRC WAS OK n P XIF n PRDM140 EQU * n & P LDK A3,1 INDICATE INVALID MESSAGE n P
0x0d9174…0d9308 Dummy {f00=0x0066, f01=0x0190, f02=»SALCUZ n x P XIF SALCUZ o P RTN A5 o $ P* o 4 P* ETB RECEIVED o > P* o T PRDM160 EQU * o ^ P LDR A3,A3 o r " P RB(NZ) RDM130 ALREADY INVALID o " P LDK A3,2 INDICATE CORRECT ETB o P RB RDM130 o P* o P* ITB RECEIVED o P* o
0x0d9308…0d949c Dummy {f00=0x0066, f01=0x0190, f02=»F A5,RDCRC READ CRC AND CHECK IT o " P RB(NE) RDM120 CRC WAS NOT OK p ( P XIF p N P RB RDM100 p Z P p l P* p v P* TRANSMIT ACK 0 OR 1 p P* p PTRACK LDK A2,1 p P LDK A3,ACK1 PRELOAD ACK1 p & P XRS A2,CACK INCREMENT ACK COUNTER p
0x0d949c…0d9630 Dummy {f00=0x0066, f01=0x018e, f02=»OAD WACK p | P RF TRDLE q P* q " P* TRANSMIT RVI q , P* q B P IFF STAT=0 q L PTRRVI LDK A3,RVI LOAD RVI q ` P XIF q P* q P* TRANSMIT DLE q P* q PTRDLE LDK A2,DLE LOAD DLE q " P SC A2,RESEND PUT INSAVE AREA q P SC A3,R
0x0d9630…0d97c4 Dummy {f00=0x0066, f01=0x0190, f02=» P* r P* TRANSMIT EOT r P* r $ PTREOT LDK A3,EOT LOAD EOT r . P RF TREN10 r P P* r b P* TRANSMIT ENQ r l P* r PTRENQ LDK A3,ENQ LOAD ENQ r P* r ( PTREN10 SC A3,RESEND PUT IN SAVE AREA r P LDK A2,/FF r P SC A2,RESEND+1
0x0d97c4…0d9958 Dummy {f00=0x0066, f01=0x0190, f02=»GET NEXT CHARACTER r P CF A5,WRITEP SEND IT s PTRRE10 LDK A2,/FF s 8 P CF A5,WRIT05 SEND PAD s R P LDK A2,/FF s p P CF A5,WRIT05 s P LDK A2,0 SALCUZ s $ P CIO A2,0,LCUUT STOP TRANSMITTER s P IFT P6805=1 SALCUZ s $ P CF A5,READ WAIT
0x0d9958…0d9aec Dummy {f00=0x0066, f01=0x018e, f02=»R STATUS s t P XIF t P RTN A5 t P t , P* t 6 P* t @ P* TRANSMIT ONE TEXT BLOCK t J P* t l P* t v PTRTEXT EQU * t P CF A5,TRSYNC START OUTPUT t P IFT TSTREQ=1 t P* t P* t P* TEST REQUEST HANDLING t P* t
0x0d9aec…0d9c80 Dummy {f00=0x0066, f01=0x0190, f02=» P RF(NZ) TRT050 YES !! u P u " P LD A4,FECBBA u * " P LC A3,+2,A4 GET AID CHARACTER u @ P SUK A3,/30 u f $ P RF(NZ) TRT050 NOT TEST REQUEST u z P LDK A2,SOH u P CF A5,WRITE SEND SOH u P LDK A7,0 RESET BCC u P LDK A2,'%' u P CF
0x0d9c80…0d9e14 (0, 276) Dummy {f00=0x0066, f01=0x0190, f02=»EMEMBER START OF BLOCK u ( P ADK A4,5 SKIP AID + CURSOR ADDRESS v P LDK A3,5 ADJUST LENGTH v J P LDK A2,3 v j P ST A2,FBAX v | P RF TRT100 v PTRT050 EQU * v P* v P* v P* v P XIF v P LDK A2,STX v P CF A5,WRITE SEND ST
0x0d9e14…0d9fa8 Dummy {f00=0x0066, f01=0x0190, f02=»START OF BLOCK v z ( P ADK A4,2 SKIP FIRST WORD OF BUFFER w & P LDK A3,0 RESET CHARACTER COUNTER w B P LD A1,FBAX GET BUFFER INDEX w l " P RF(NZ) TRT100 NOT FIRST BLOCK w P LC A2,DW1500+1 GET TCA w P CF A5,WRITEP SEND TCA w P LDR* A2,A6 GET STA
0x0d9fa8…0da13c Dummy {f00=0x0066, f01=0x0190, f02=» " P LDK A2,/20 AND CURSOR ADDRESS x P CF A5,WRITEP x * P LDK A2,/20 x @ P CF A5,WRITEP x T P XIF x j P IFT RCOM=1 x v P x P RF TRT070 DK6 x P x P ******************** x " P LDK A2,X'2D' AID FOR DISPLAY x PTRT060 CF A5,WRI
0x0da13c…0da2d0 Dummy {f00=0x0066, f01=0x0190, f02=»K COUNT x ~ P RF TRT100 y PTRT070 EQU * y " P XIF y 6 P y B P LDK A3,2 y J PTRT100 EQU * y P LCR A2,A4 GET ONE CHARACTER y p P ADK A4,1 INCREMENT POINTER y P ANK A2,/7F y P IFT RCOM=1 y P RF TRT105 DK6 y P y @ P********
0x0da2d0…0da464 Dummy {f00=0x0066, f01=0x0190, f02=»*************************************** y P z 0 & P CWK A2,X'20' ATTRIBUTE CHARACTER z 8 P RF(L) TRT101 YES!!! z b P XIF z ~ P IFT DMRK=1 z P CWK A2,/7E LINE FEED ? z " P RF(NE) TRT102 NO,GO TO TRT102 z P LDK A2,/0A z PTRT102 EQU * z
0x0da464…0da5f8 Dummy {f00=0x0066, f01=0x0190, f02=» ?? z ~ P RF(NE) TRT105 { P SUK A2,1 { " P XIF { 4 P IFT RCOM=1 { @ P RF TRT105 { T P { f PTRT101 EQU * { n P { P LDK A2,SF { " P CF A5,WRITEP SEND START FIELD { P { ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER { P ANK A2,X'7F' {
0x0da5f8…0da78c Dummy {f00=0x0066, f01=0x0190, f02=»POSED { t " P ORK A2,/40 BIT ALWAYS SET ONE | P LC A2,TASCII,A2 | 4 & P CWK A2,/18 CHECK SPECIAL ATTRIBUT | L P RF(NE) TRT104 | v P LDK A2,/30 | PTRT104 EQU * | P CF A5,WRITEP SEND ATTRIBUTE | P ADK A3,1 | P RF TRT110 | PTRT105 EQU *
0x0da78c…0da920 Dummy {f00=0x0066, f01=0x0190, f02=» EQU * | $ P IM FBAX INCREMENT BUFFER INDEX } & P LD A1,FECBRL GET REQUESTED LENGTH } 6 P CW A1,FBAX } ` " P RF(NG) TRT130 END OF MESSAGE } t * P ADK A3,1 INCREMENT CHARACTER COUNTER } P CWK A3,TBLEN } P RB(L) TRT100 NOT FULL BLOCK } P IFT R
0x0da920…0daab4 (0, 277) Dummy {f00=0x0066, f01=0x0190, f02=»TRT116 NO SEND ETB } ( P LCR A2,A4 GET FIRST BYTE AFTER SBA ~ P ADK A4,1 INREMENT POINTER ~ F P CF A5,WRITEP SEND IT ~ h P IM FBAX INCREMENT INDEX ~ . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA ~ P CF A5,WRITEP SEND IT ~ P IM FBAX INCREMENT
0x0daab4…0dac48 Dummy {f00=0x0066, f01=0x0190, f02=» ~ P LDR A2,A7 GET LRC P CF A5,WRITEP SEND LRC " P XIF @ P IFT CODE=1 L P LDR A8,A7 SAVE CURRENT CRC ` P LDR A2,A7 P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 1 P ECR A2,A8 P ANK A2,/FF " P CF A5,WRIT05 SEND
0x0dac48…0daddc Dummy {f00=0x0066, f01=0x0190, f02=» P LDK A2,ETX LOAD ETX P RB TRT120 SEND ETX AND LRC P D P* N P* X P* TRANSMIT STATUS MESSAGE b P* P* P IFF STAT=0 PTRSTA EQU * $ P IM XSTA INDICATE 'STATUS SENT' P ST A6,FDWTUT SAVE A6 P C
0x0daddc…0daf70 Dummy {f00=0x0066, f01=0x0190, f02=»RITEP SEND '%' P LDK A2,'R' P CF A5,WRITEP SEND 'R' * P LDK A2,STX H P CF A5,WRITE SEND STX P LC A2,DW1500+1 z P CF A5,WRITEP SEND TCA P LDR* A2,A6 P CF A5,WRITEP SEND STA P LD A1,DWTST,A6 GET STATUS P ANK
0x0daf70…0db104 Dummy {f00=0x0066, f01=0x0190, f02=»LOAD S/S 1 P LD A1,DWTST,A6 GET STATUS P ANK A1,5 4 P RF(Z) TRST10 NOT 'IR' F P ANK A1,4 d P RF(NZ) TRST10 NO IR IF DE v P LDK A2,IR PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P RB TRT130 SEND ETX AND LRC P XIF
0x0db104…0db298 Dummy {f00=0x0066, f01=0x0190, f02=»IO A2,0,LCUIN HALT INPUT IF NOT DONE P SST A2,LCUIN PERFORM SST , P IFT P6805=0 SALCUZ N & P CIO A2,1,LCUUT START TRANSMITTER j P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=1 SALCUZ P LDK A2,0 SALCUZ , P CIO A2,1,LC
0x0db298…0db42c Dummy {f00=0x0066, f01=0x0190, f02=»SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * SALCUZ 4 P LDK A2,SYNEBC SALCUZ P 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ n P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0C SALCUZ
0x0db42c…0db5c0 Dummy {f00=0x0066, f01=0x0190, f02=» SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * 6 P LDK A2,SYN SALCUZ J 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ f P XIF SALCUZ * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS PTRS100 LDK A2,SY
0x0db5c0…0db754 (0, 278) Dummy {f00=0x0067, f01=0x0190, f02=»ER INTERRUPT P* P* PIH1501 EQU * ( P ST P,INTSAV < P IFT CPU852=1 P P CF A15,SAVE8 SAVE A1-A8 f P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8
0x0db754…0db8e8 Dummy {f00=0x0067, f01=0x0190, f02=»TER p P XIF P IFF CODE=1 P C2 SYNSW , P RF(NZ) IHLCI2 > P CWK A2,SYN SKIP SYNS T P RF(E) READ r " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FR
0x0db8e8…0dba7c Dummy {f00=0x0067, f01=0x018e, f02=»CII,A2 TRANSLATE TO ASCII P XIF " PIHIN10 RTN A5 . P IFT P6805=0 SALCUZ D PIHIN20 CF A5,SST PERFORM SST ` P ABL BRM P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ P
0x0dba7c…0dbc10 Dummy {f00=0x0067, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1 - A8 P XIF * P 6 P IFF CPU852=1 > P MSR 8,A15 SAVE A1-A8 =1 T P XIF t * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 P P* P* & P* SST INSTRUCTION AND STATUS CHECK P
0x0dbc10…0dbda4 Dummy {f00=0x0067, f01=0x0190, f02=»UT ERROR p , P* BIT 15=MODEM NOT READY P* @ PSST SST A1,LCUIN J P IFT P6805=1 SALCUZ b 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ ~ P XIF SALCUZ P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST IN
0x0dbda4…0dbf38 Dummy {f00=0x0067, f01=0x0190, f02=»LCUZ P ANK A2,6 SALCUZ P RF(Z) SST100 SALCUZ & P ANK A2,2 SALCUZ D & P RF(NZ) SST050 THROUGH PUT SALCUZ ^ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA T
0x0dbf38…0dc0cc Dummy {f00=0x0067, f01=0x0190, f02=»A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 * P XIF SALCUZ : P IFT P6805=1 SALCUZ P P ANK A1,/21 SALCUZ l P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ P DATA 2
0x0dc0cc…0dc260 Dummy {f00=0x0067, f01=0x0190, f02=» CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ 0 P* F P* P P* HALT INPUT Z P* n P* x PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x0dc260…0dc3f4 (0, 279) Dummy {f00=0x0067, f01=0x0190, f02=» P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* B P* L PWRITE EQU * V P IFT CODE=1 j P ANK A2,/FF ~ P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P
0x0dc3f4…0dc588 Dummy {f00=0x0067, f01=0x0190, f02=»1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 2 P IFT CODE=1 > & PWRIT10 CF A5,CRCCAL CALCULATE CRC R P XIF | P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP P
0x0dc588…0dc71c Dummy {f00=0x0067, f01=0x0190, f02=» v PWRITEP ANK A2,/FF P ECR A1,A2 " P ORK A2,/80 4 PWRI100 SLL A1,1 H P RB(P) WRI100 ` P RB(Z) WRITE WRITE v P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P XIF P
0x0dc71c…0dc8b0 Dummy {f00=0x0067, f01=0x018e, f02=» A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 2 PRE100 SLL A1,1 D P RF(Z) RE110 Z P RB(NN) RE100 n P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK
0x0dc8b0…0dca44 Dummy {f00=0x0067, f01=0x0190, f02=» < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* H $ P* CALLING SEQUENCE: CF A5,FINTER R P* A2=SUBTERMINAL ADDRESS z P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELE
0x0dca44…0dcbd8 Dummy {f00=0x0067, f01=0x0190, f02=»YTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE P* 0 P* : PFINTEP EQU * D P IFT MSV1=0 X PFINTER EQU * l P XIF P IM RBYTE P IFT MSV1=1 PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTA
0x0dcbd8…0dcd6c Dummy {f00=0x0067, f01=0x018e, f02=»0 SUBTERMINAL NOT FOUND P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 D $ P AD A3,RBYTE CHOOSE ADDRESS TYPE X * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF
0x0dcd6c…0dcf00 Dummy {f00=0x0067, f01=0x0190, f02=» P* POWER ON FUNCTIONS P* P* * PDC15ON EQU * 4 P IFT CPU852=1 H P CF A15,SAVE8 SAVE A1-A8 ^ P XIF ~ P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF P IFT STAT=1 P LDK A5,4 SET DEVICE END P
0x0dcf00…0dd094 (0, 280) Dummy {f00=0x0067, f01=0x0190, f02=»ABLE z P LDR* A6,A1 GET DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE 0 ( P CF A15,INSSQ INSERT IN STATUS QUEUE d P RB DRDC05 PDRDC06 EQU * P XIF P LDK A2,/40 P ORS A2,DCONOF P CF A15,CKMESS ( P LD A2
0x0dd094…0dd228 Dummy {f00=0x0067, f01=0x0190, f02=» P P* P* POLL TIME OUT P* 4 ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE > P LDK A2,/40 j ( P ST A2,DCONOF INDICATE POLL TIME OUT ~ * P CF A15,CKMESS CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START POLL TIMER P ABL TDI
0x0dd228…0dd3bc Dummy {f00=0x0067, f01=0x0190, f02=»TIMPOL P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF STATUS CHANGE 2 P RTN A5 ` P* p P* START POLL TIMER z P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER
0x0dd3bc…0dd550 Dummy {f00=0x0067, f01=0x0190, f02=»D DWT AS PARAMETER P CF A15,SETIME P DATA PRTOUT,TIMPRO 0 $ P ST A4,DCTPP SAVE TIMER POINTER L P RTN A5 t P* P* PROCEDURE TIMEOUT P* PPRTOUT CM DCTPP P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE
0x0dd550…0dd6e4 Dummy {f00=0x0067, f01=0x0190, f02=» & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM . P D P* N P* STOP PROCEDURE TIMER X P* v ( PHPTIM LD A1,DCTPP GET TIMER POINTER P RF(Z) HPT10 NOT RUNNING P CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5
0x0dd6e4…0dd878 Dummy {f00=0x0067, f01=0x0190, f02=»ED CRC P* P* PCRCCAL EQU * " P ST A1,CRCSAV 6 P ST A2,CRCSAV+2 L P ST A3,CRCSAV+4 d P LDK A1,8 | PCRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRK
0x0dd878…0dda0c Dummy {f00=0x0067, f01=0x0190, f02=»TN A5 PCRCSAV RES 3 P " P* , P* 6 ( P* READ CRC CHARACTERS AND CHECK THEM @ P* CR = (E) IF CRC WAS OK l P* P* $ PRDCRC LDR A6,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1
0x0dda0c…0ddba0 Dummy {f00=0x0067, f01=0x0190, f02=» IT | P SLL A2,8 P XRR A2,A8 P ADK A5,4 0 . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED B P ABR* A5 t P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " P* CR=0 IF LRC OK P* P
0x0ddba0…0ddd34 (0, 281) Dummy {f00=0x0067, f01=0x0190, f02=» P CM SYNSW P ABR* A5 P & P XIF . P : P* D P* N " P* DEVICE WORK TABLE FOR DCTASK X P* ~ P* PDW1500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS P
0x0ddd34…0ddec8 Dummy {f00=0x0067, f01=0x0190, f02=» DATA 0 TASK QUEUE P* P IFT MMUPAG=1 $ P DATA 0 USER ECB ADDRESS : P DATA DC:ECB MMU ECB ADDRESS Z P XIF ~ P* P DATA 0 TIMER POINTER ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK)
0x0ddec8…0de05c Dummy {f00=0x0067, f01=0x0190, f02=»EST TIMEOUT VALUE " P DATA 0 EXTRA DEVICE INFO DK5 P* @ P IFT MMUPAG=1 J PDC:ECB EQU * MMU ECB ` P DATA 0,0,0,0,0,0 | P XIF P* P P* P* P* DC RECEIVE BUFFER POOL P* PRLINK EQU RBUFL+RBUF
0x0de05c…0de1f0 Dummy {f00=0x0067, f01=0x0190, f02=»INK P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK 6 P RES RBUFL+3 L P IFF RBUFNR=4 ` P DATA *+RLINK v P RES RBUFL+3 P XIF P IFF RBUFNR=1 DK3 P DATA *+RLINK P RES RBUFL+3 P XIF DK3 P DATA
0x0de1f0…0de384 Dummy {f00=0x0067, f01=0x0190, f02=»* P* P* INTERRUPT LOGGING ROUTINE P* 8 P* B P IFF LOGG=0 L PLOGSST ST A2,SAVE2 ` P ORKL A2,/F000 z P RF LOG10 PLOGOUT ST A2,SAVE2 P ORKL A2,/0F00 P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE1
0x0de384…0de518 Dummy {f00=0x0067, f01=0x0190, f02=» RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT . P LD A2,SAVE2 J P LD A3,SAVE3 ^ PLOGE10 RTN A5 r P P* P* PLOGPNT DATA LOGSTA PLOGSTA EQU * P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0
0x0de518…0de6ac Dummy {f00=0x0067, f01=0x0190, f02=»***************** j P* P* L I N C O L $ P* > : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER H P* > P********************************************************** P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADD
0x0de6ac…0de840 Dummy {f00=0x0067, f01=0x018e, f02=» P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER , $ P CF A5,WRITEP SEND COLUMN NUMBER X P RTN A5 RETURN P* P* P* P P P* SCANDINAVIAN ALPHABET P DB PLICO:T EQU *
0x0de840…0de9d4 (0, 282) Dummy {f00=0x0068, f01=0x0190, f02=» h * P DATA /5152,/245D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 6 * P DATA /595A,/402C,/255F,/3E3F /28-/2F d ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE P XIF P
0x0de9d4…0deb68 Dummy {f00=0x0068, f01=0x4076, f02=»0,0,0,0 r * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 PDC:END EQU * > P* R P* P END f@ r/255F,/3E3F /28-/2F d ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE P XIF P
0x0deb68…0decfc Dummy {f00=0x0068, f01=0x2008, f02=» H P X ` h p x
0x0decfc…0dee90 Dummy {f00=0x0068, f01=0x0190, f02=» A14 P* EJECT D P**************************************************************** " P* j P* INPUT FROM DC t P* 8 P**************************************************** P* PDCINP EQU * ( P CF A14,ICABOR ABORT INT
0x0dee90…0df024 Dummy {f00=0x0068, f01=0x018e, f02=»RTASK INPUT t . P OR BUFFER WILL BE DESTROYED IN 'UPDATE' PDCIN10 EQU * F & P CF A14,GTRBUF GET RECEIVE BUFFER Z P LD A8,ECBDCC,TCABAS P CF A14,DCGETM READ MESSAGE P IFF DCLIN=2 P CM ECBBLK+DC1,TCABAS P XIF P IFT D
0x0df024…0df1b8 Dummy {f00=0x0068, f01=0x0190, f02=» P CM ECBBLK+DC2,TCABAS P XIF & PDCIN30 EQU * 2 $ P LD A1,ECBEL,A8 EFFECTIVE LENGTH F . P ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA n P 2 P CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER; P IFT COPCMD=1 P LD A1,ICWORK,TCABAS
0x0df1b8…0df34c Dummy {f00=0x0068, f01=0x0190, f02=» P CF A14,COPY COPY ON PRINTER PDCIN90 EQU * ( P CF A14,SNBUSY < P RTN A14 R P* EJECT b P* x P* ABORT INTERTASK READ P* PICABOR EQU * P LDK A7,0 P CM ECBBLK+ICR,TCABAS P LDKL A8,ECBICR P A
0x0df34c…0df4e0 Dummy {f00=0x0068, f01=0x0190, f02=»ICRINP EQU * P CM ECBBLK+ICR,TCABAS P 2 * P LDK A1,X'38' PRINT BIT, 80 CHAR./LINE : 4 P ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER h * P CF A14,COPY PRINT ON HARDCOPY DEVICE P LD A1,ICWORK,TCABAS ( P RB(NZ) DCIN10 TAKE CARE OF DC
0x0df4e0…0df674 (0, 283) Opaque[0x194]
0x0df674…0df808 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c8, f03=0x0000}
0x0df674…0df808 IdxSect {
0x0df674…0df808 f00 = 0x0046 // 0xdf674 @0x0
0x0df674…0df808 f01 = 0x0004 // 0xdf676 @0x2
0x0df674…0df808 gno = [ // 0xdf678 @0x4
0x0df674…0df808 [0x00]: C0x0046.0x1.0
0x0df674…0df808 [0x01]: C0x0046.0x2.0
0x0df674…0df808 ]
0x0df674…0df808 }
0x0df808…0df99c Dummy {f00=0x0046, 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*
0x0df99c…0dfb30 Dummy {f00=0x0046, 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
0x0dfb30…0dfcc4 Dummy {f00=0x0046, 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
0x0dfcc4…0dfe58 Dummy {f00=0x0046, 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
0x0dfe58…0dffec Dummy {f00=0x0046, 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,
0x0dffec…0e0180 Dummy {f00=0x0046, 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
0x0e0180…0e0314 (0, 284) Dummy {f00=0x0046, 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
0x0e0314…0e04a8 Dummy {f00=0x0046, 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
0x0e04a8…0e063c Dummy {f00=0x0046, 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
0x0e063c…0e07d0 Dummy {f00=0x0046, 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,
0x0e07d0…0e0964 Dummy {f00=0x0046, 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
0x0e0964…0e0af8 Dummy {f00=0x0046, 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*
0x0e0af8…0e0c8c Dummy {f00=0x0046, 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*
0x0e0c8c…0e0e20 Dummy {f00=0x0046, 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
0x0e0e20…0e0fb4 (0, 285) Opaque[0x194]
0x0e0fb4…0e1148 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08d8, f03=0x0000}
0x0e0fb4…0e1148 IdxSect {
0x0e0fb4…0e1148 f00 = 0x0046 // 0xe0fb4 @0x0
0x0e0fb4…0e1148 f01 = 0x0006 // 0xe0fb6 @0x2
0x0e0fb4…0e1148 gno = [ // 0xe0fb8 @0x4
0x0e0fb4…0e1148 [0x00]: C0x0046.0x3.0
0x0e0fb4…0e1148 [0x01]: C0x0047.0x0.0
0x0e0fb4…0e1148 [0x02]: C0x0047.0x1.0
0x0e0fb4…0e1148 ]
0x0e0fb4…0e1148 }
0x0e1148…0e12dc Dummy {f00=0x0046, 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*
0x0e12dc…0e1470 Dummy {f00=0x0046, 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
0x0e1470…0e1604 Dummy {f00=0x0046, 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
0x0e1604…0e1798 Dummy {f00=0x0046, 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********
0x0e1798…0e192c Dummy {f00=0x0046, 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 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIMER LK
0x0e192c…0e1ac0 Dummy {f00=0x0046, 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
0x0e1ac0…0e1c54 (0, 286) Dummy {f00=0x0047, 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
0x0e1c54…0e1de8 Dummy {f00=0x0047, 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 .
0x0e1de8…0e1f7c Dummy {f00=0x0047, 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
0x0e1f7c…0e2110 Dummy {f00=0x0047, 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
0x0e2110…0e22a4 Dummy {f00=0x0047, 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
0x0e22a4…0e2438 Dummy {f00=0x0047, 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
0x0e2438…0e25cc Dummy {f00=0x0047, 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
0x0e25cc…0e2760 Dummy {f00=0x0047, 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
0x0e2760…0e28f4 (0, 287) Dummy {f00=0x0047, 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
0x0e28f4…0e2a88 Dummy {f00=0x0047, 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
0x0e2a88…0e2c1c Dummy {f00=0x0047, 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*
0x0e2c1c…0e2db0 Dummy {f00=0x0047, 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
0x0e2db0…0e2f44 Dummy {f00=0x0047, 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
0x0e2f44…0e30d8 Dummy {f00=0x0047, 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
0x0e30d8…0e326c Dummy {f00=0x0047, 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
0x0e326c…0e3400 Dummy {f00=0x0047, 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
0x0e3400…0e3594 (0, 288) Opaque[0x194]
0x0e3594…0e3728 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f0, f03=0x0000}
0x0e3594…0e3728 IdxSect {
0x0e3594…0e3728 f00 = 0x0047 // 0xe3594 @0x0
0x0e3594…0e3728 f01 = 0x0006 // 0xe3596 @0x2
0x0e3594…0e3728 gno = [ // 0xe3598 @0x4
0x0e3594…0e3728 [0x00]: C0x0047.0x2.0
0x0e3594…0e3728 [0x01]: C0x0047.0x3.0
0x0e3594…0e3728 [0x02]: C0x0048.0x0.0
0x0e3594…0e3728 ]
0x0e3594…0e3728 }
0x0e3728…0e38bc Dummy {f00=0x0047, 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*
0x0e38bc…0e3a50 Dummy {f00=0x0047, 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**
0x0e3a50…0e3be4 Dummy {f00=0x0047, 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
0x0e3be4…0e3d78 Dummy {f00=0x0047, 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
0x0e3d78…0e3f0c Dummy {f00=0x0047, 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
0x0e3f0c…0e40a0 Dummy {f00=0x0047, 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
0x0e40a0…0e4234 (0, 289) Dummy {f00=0x0047, 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
0x0e4234…0e43c8 Dummy {f00=0x0047, 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
0x0e43c8…0e455c Dummy {f00=0x0047, 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
0x0e455c…0e46f0 Dummy {f00=0x0047, 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
0x0e46f0…0e4884 Dummy {f00=0x0047, 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
0x0e4884…0e4a18 Dummy {f00=0x0047, 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
0x0e4a18…0e4bac Dummy {f00=0x0047, 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
0x0e4bac…0e4d40 Dummy {f00=0x0047, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x0e4d40…0e4ed4 (0, 290) Dummy {f00=0x0048, 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*
0x0e4ed4…0e5068 Dummy {f00=0x0048, 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
0x0e5068…0e51fc Dummy {f00=0x0048, 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
0x0e51fc…0e5390 Dummy {f00=0x0048, 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
0x0e5390…0e5524 Dummy {f00=0x0048, 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?
0x0e5524…0e56b8 Dummy {f00=0x0048, 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?
0x0e56b8…0e584c Dummy {f00=0x0048, 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
0x0e584c…0e59e0 Dummy {f00=0x0048, f01=0x0000, f02=»
0x0e59e0…0e5b74 (0, 291) Opaque[0x194]
0x0e5b74…0e5d08 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0908, f03=0x0000}
0x0e5b74…0e5d08 IdxSect {
0x0e5b74…0e5d08 f00 = 0x0048 // 0xe5b74 @0x0
0x0e5b74…0e5d08 f01 = 0x0006 // 0xe5b76 @0x2
0x0e5b74…0e5d08 gno = [ // 0xe5b78 @0x4
0x0e5b74…0e5d08 [0x00]: C0x0048.0x1.0
0x0e5b74…0e5d08 [0x01]: C0x0048.0x2.0
0x0e5b74…0e5d08 [0x02]: C0x0048.0x3.0
0x0e5b74…0e5d08 ]
0x0e5b74…0e5d08 }
0x0e5d08…0e5e9c Dummy {f00=0x0048, 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*
0x0e5e9c…0e6030 Dummy {f00=0x0048, 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
0x0e6030…0e61c4 Dummy {f00=0x0048, 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
0x0e61c4…0e6358 Dummy {f00=0x0048, 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
0x0e6358…0e64ec Dummy {f00=0x0048, 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
0x0e64ec…0e6680 Dummy {f00=0x0048, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 0 P* 4 * > . ** A PROGRAM VERSION USING TOSS DISC PAGING H * &* IS OBTAINED BY SETTING DSKPAG EQU 1. z * PDSKPAG EQU 0 * P* 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER OVERL
0x0e6680…0e6814 (0, 292) Dummy {f00=0x0048, 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
0x0e6814…0e69a8 Dummy {f00=0x0048, 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
0x0e69a8…0e6b3c Dummy {f00=0x0048, 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
0x0e6b3c…0e6cd0 Dummy {f00=0x0048, 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
0x0e6cd0…0e6e64 Dummy {f00=0x0048, 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
0x0e6e64…0e6ff8 Dummy {f00=0x0048, 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
0x0e6ff8…0e718c Dummy {f00=0x0048, 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
0x0e718c…0e7320 Dummy {f00=0x0048, 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
0x0e7320…0e74b4 (0, 293) Dummy {f00=0x0048, 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
0x0e74b4…0e7648 Dummy {f00=0x0048, 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
0x0e7648…0e77dc Dummy {f00=0x0048, 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
0x0e77dc…0e7970 Dummy {f00=0x0048, 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
0x0e7970…0e7b04 Dummy {f00=0x0048, 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
0x0e7b04…0e7c98 Dummy {f00=0x0048, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x0e7c98…0e7e2c Dummy {f00=0x0048, 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
0x0e7e2c…0e7fc0 Dummy {f00=0x0048, 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
0x0e7fc0…0e8154 (0, 294) Opaque[0x194]
0x0e8154…0e82e8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0920, f03=0x0000}
0x0e8154…0e82e8 IdxSect {
0x0e8154…0e82e8 f00 = 0x0049 // 0xe8154 @0x0
0x0e8154…0e82e8 f01 = 0x0004 // 0xe8156 @0x2
0x0e8154…0e82e8 gno = [ // 0xe8158 @0x4
0x0e8154…0e82e8 [0x00]: C0x0049.0x0.0
0x0e8154…0e82e8 [0x01]: C0x0049.0x1.0
0x0e8154…0e82e8 ]
0x0e8154…0e82e8 }
0x0e82e8…0e847c Dummy {f00=0x0049, 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*
0x0e847c…0e8610 Dummy {f00=0x0049, 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*
0x0e8610…0e87a4 Dummy {f00=0x0049, 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/
0x0e87a4…0e8938 Dummy {f00=0x0049, 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
0x0e8938…0e8acc Dummy {f00=0x0049, 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
0x0e8acc…0e8c60 Dummy {f00=0x0049, 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
0x0e8c60…0e8df4 (0, 295) Dummy {f00=0x0049, 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?
0x0e8df4…0e8f88 Dummy {f00=0x0049, 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
0x0e8f88…0e911c Dummy {f00=0x0049, 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)
0x0e911c…0e92b0 Dummy {f00=0x0049, 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)
0x0e92b0…0e9444 Dummy {f00=0x0049, f01=0x2008, f02=»
0x0e9444…0e95d8 Dummy {f00=0x0049, 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
0x0e95d8…0e976c Dummy {f00=0x0049, 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
0x0e976c…0e9900 Dummy {f00=0x0049, 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
0x0e9900…0e9a94 (0, 296) Opaque[0x194]
0x0e9a94…0e9c28 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0930, f03=0x0000}
0x0e9a94…0e9c28 IdxSect {
0x0e9a94…0e9c28 f00 = 0x0049 // 0xe9a94 @0x0
0x0e9a94…0e9c28 f01 = 0x0006 // 0xe9a96 @0x2
0x0e9a94…0e9c28 gno = [ // 0xe9a98 @0x4
0x0e9a94…0e9c28 [0x00]: C0x0049.0x2.0
0x0e9a94…0e9c28 [0x01]: C0x0049.0x3.0
0x0e9a94…0e9c28 [0x02]: C0x004a.0x0.0
0x0e9a94…0e9c28 ]
0x0e9a94…0e9c28 }
0x0e9c28…0e9dbc Dummy {f00=0x0049, 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*
0x0e9dbc…0e9f50 Dummy {f00=0x0049, 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
0x0e9f50…0ea0e4 Dummy {f00=0x0049, 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
0x0ea0e4…0ea278 Dummy {f00=0x0049, 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 1 P* P EJECT MONTIM P* P* P* G E T T I
0x0ea278…0ea40c Dummy {f00=0x0049, 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
0x0ea40c…0ea5a0 Dummy {f00=0x0049, 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*
0x0ea5a0…0ea734 (0, 297) Dummy {f00=0x0049, 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
0x0ea734…0ea8c8 Dummy {f00=0x0049, 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
0x0ea8c8…0eaa5c Dummy {f00=0x0049, 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*
0x0eaa5c…0eabf0 Dummy {f00=0x0049, 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
0x0eabf0…0ead84 Dummy {f00=0x0049, 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
0x0ead84…0eaf18 Dummy {f00=0x0049, 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
0x0eaf18…0eb0ac Dummy {f00=0x0049, 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
0x0eb0ac…0eb240 Dummy {f00=0x0049, 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
0x0eb240…0eb3d4 (0, 298) Dummy {f00=0x004a, 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
0x0eb3d4…0eb568 Dummy {f00=0x004a, 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
0x0eb568…0eb6fc Dummy {f00=0x004a, 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)
0x0eb6fc…0eb890 Dummy {f00=0x004a, 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)
0x0eb890…0eba24 Dummy {f00=0x004a, f01=0x2008, f02=»
0x0eba24…0ebbb8 Dummy {f00=0x004a, 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)
0x0ebbb8…0ebd4c Dummy {f00=0x004a, 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
0x0ebd4c…0ebee0 Dummy {f00=0x004a, 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*
0x0ebee0…0ec074 (0, 299) Opaque[0x194]
0x0ec074…0ec208 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0948, f03=0x0000}
0x0ec074…0ec208 IdxSect {
0x0ec074…0ec208 f00 = 0x004a // 0xec074 @0x0
0x0ec074…0ec208 f01 = 0x0002 // 0xec076 @0x2
0x0ec074…0ec208 gno = [ // 0xec078 @0x4
0x0ec074…0ec208 [0x00]: C0x004a.0x1.0
0x0ec074…0ec208 ]
0x0ec074…0ec208 }
0x0ec208…0ec39c Dummy {f00=0x004a, f01=0x0190, f02=» $ P IDENT CTAB01 REL 1.3 820106.GF * , : 5* CODECONVERSION TABLE FOR P&T 'S 6271/6272 KEYBOARDS 6 * t P ENTRY CTAB01 ~ P ENTRY CTAB02 PCTAB01 EQU * PCTAB02 EQU * , P DATA FUNC,FUNCSH,UNSC,SHIFT,UNSC,SHIFT FUNC E
0x0ec39c…0ec530 Dummy {f00=0x004a, f01=0x0190, f02=» DATA /7FB5,/BD80,/B4B0,/B1B8,/7F7F,/7F7F,/7F7F,/7F7F * > FUNCSH EQU * H : P DATA /7F8D,/8E8F,/9091,/9293,/9495,/8C8B,/AAAE,/AFA5 : 5 DATA /3031,/3233,/3435,/3637,/3839,/BABB,/ABB9,/B2B4 : P DATA /B6B5,/BD80,/B4B0,/B1B8,/7F7F,/7F7F,/7F7F,
0x0ec530…0ec6c4 Dummy {f00=0x004a, f01=0x0190, f02=»839,/ACA9,/ADA7,/A8A6 p : 5 DATA /6041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/7E7F * SHIFT EQU * : P DATA /207F,/7F7F,/7F7F,/7F2A,/B73E,/7F3F,/3B5F,/3A7F : 5 DATA /3D21,/2223,
0x0ec6c4…0ec858 Dummy {f00=0x004a, f01=0x4030, f02=»/5859,/5A5C,/5B5D,/5E7F r END @ ,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/7E7F * SHIFT EQU * : P DATA /207F,/7F7F,/7F7F,/7F2A,/B73E,/7F3F,/3B5F,/3A7F : 5 DATA /3D21,/2223,
0x0ec858…0ec9ec Dummy {f00=0x004a, f01=0x2008, f02=» /4445,/4647,/4849,/4A4B,/4C4D,/4E4F : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/7E7F : * x SHIFT EQU * : 5 DATA /207F,/7F7F,/7F7F,/7F2A,/7F7F,/7F3F,/3B5F,/3A7F : 5 DATA /3D21,/2223,/2425,/262F,/2829,/ACA9,/ADA7,/A8A
0x0ec9ec…0ecb80 Dummy {f00=0x004a, f01=0x4024, f02=»P ;T f B @ PP R Q z H D !&J W T " P^ P T T T W 2 V " P 6 H D ! +P 7R G " IW QPB WP8 ]P cP g " mR qQ wP {R R Wz Wn H D !A W " T W P W P " QX R PN !R( %
0x0ecb80…0ecd14 (0, 300) Opaque[0x194]
0x0ecd14…0ecea8 # DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0950, f03=0x0000}
0x0ecd14…0ecea8 IdxSect {
0x0ecd14…0ecea8 f00 = 0x004a // 0xecd14 @0x0
0x0ecd14…0ecea8 f01 = 0x0002 // 0xecd16 @0x2
0x0ecd14…0ecea8 gno = [ // 0xecd18 @0x4
0x0ecd14…0ecea8 [0x00]: C0x004a.0x2.0
0x0ecd14…0ecea8 ]
0x0ecd14…0ecea8 }
0x0ecea8…0ed03c Dummy {f00=0x004a, f01=0x0190, f02=» * P IDENT DVGP01 DVGP01 FOR 8081 PRINTER P 2 P =1, SYST. START IND. : P PRR 10.1 79-09-12 Z , P* DEVICE WORK TABLE FOR GENERAL PRINTER v P* P ENTRY DVGP01 TABLE ENTRY P* P* ( P EXTRN GPAD POINTER TO ADDRESS-BLO
0x0ed03c…0ed1d0 Dummy {f00=0x004a, f01=0x0190, f02=»/8000 STATUS./8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS . P DATA DWTEND-DVGP01 ORDER J ( P DATA GPAD POINTER TO ADDRESS BLOCK l P DATA 'GP' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPA
0x0ed1d0…0ed364 Dummy {f00=0x004a, f01=0x0190, f02=» DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK 0 P DATA 0 TIMER POINTER L " P DATA 0 DOCUMENT CHARACTER SET j " P DATA 0 PRINTER CHARACTER SET P DATA 0 PRINTER PAPER LENGTH " P DATA 0 DOCUMENT PAPER LENGTH P DATA 0
0x0ed364…0ed4f8 Dummy {f00=0x004a, f01=0x4168, f02=» DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER : P DATA 0,0 n P DATA 0 P DATA 0 SYSTEM START IND. =1 ( P DATA 0 LINE/FORM FEED INDICATOR =1 P IFT MMUPAG=1 PDEVECB EQU *
0x0ed4f8…0ed68c Dummy {f00=0x004a, 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
0x0ed68c…0ed820 Dummy {f00=0x004a, f01=0x018e, f02=»NTER l v PCPO020 ADK A1,2 m P LDR* A6,A1 GET DWT-ADDRESS m $ P RF(E) CPO030 m H P SRC A6,1 m ^ P RF(N) CPO030 m p P SLC A6,1 m ( P LCR A7,A6 GET LEFT OF CHANNEL PAR. m P ANK A7,1 INPUT DEVICE ? m P RF(NE) CPO025 YES m & P LDKL A7,/
0x0ed820…0ed9b4 (0, 301) Opaque[0x194]
0x0ed9b4…0edb48 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0958, f03=0x0000}
0x0ed9b4…0edb48 IdxSect {
0x0ed9b4…0edb48 f00 = 0x004a // 0xed9b4 @0x0
0x0ed9b4…0edb48 f01 = 0x0002 // 0xed9b6 @0x2
0x0ed9b4…0edb48 gno = [ // 0xed9b8 @0x4
0x0ed9b4…0edb48 [0x00]: C0x004a.0x3.0
0x0ed9b4…0edb48 ]
0x0ed9b4…0edb48 }
0x0edb48…0edcdc Dummy {f00=0x004a, f01=0x0190, 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 EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK PMMUPAG EQU 1 P* PDVKB00 EQU * TABLE E
0x0edcdc…0ede70 Dummy {f00=0x004a, f01=0x0190, f02=»DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK P DATA 'KB' 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
0x0ede70…0ee004 Dummy {f00=0x004a, f01=0x0190, f02=» DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 8 P DATA 0 V $ P DATA /FFFF BACKSPACE AND CANCEL r $ P DATA /FFFF EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+
0x0ee004…0ee198 Dummy {f00=0x004a, f01=0x40b2, f02=»MUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 $ P DATA 0,0,0,0,0,0,0,0 > P DATA 0,0,0,0,0,0,0 P XIF x PDWTEND EQU * P* P END @ LE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+
0x0ee198…0ee32c Dummy {f00=0x004a, 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
0x0ee32c…0ee4c0 Dummy {f00=0x004a, f01=0x0190, f02=» EQU 0 P* P EJECT P* & P* 0 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE : 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. v 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. P* PX:E EQU 0
0x0ee4c0…0ee654 (0, 302) Opaque[0x194]
0x0ee654…0ee7e8 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0960, f03=0x0000}
0x0ee654…0ee7e8 IdxSect {
0x0ee654…0ee7e8 f00 = 0x004b // 0xee654 @0x0
0x0ee654…0ee7e8 f01 = 0x0002 // 0xee656 @0x2
0x0ee654…0ee7e8 gno = [ // 0xee658 @0x4
0x0ee654…0ee7e8 [0x00]: C0x004b.0x0.0
0x0ee654…0ee7e8 ]
0x0ee654…0ee7e8 }
0x0ee7e8…0ee97c Dummy {f00=0x004b, 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 1 P* PDVDY00 EQU * T
0x0ee97c…0eeb10 Dummy {f00=0x004b, 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
0x0eeb10…0eeca4 Dummy {f00=0x004b, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x0eeca4…0eee38 Dummy {f00=0x004b, 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
0x0eee38…0eefcc Dummy {f00=0x004b, f01=0x0190, f02=» P IFT FJOTON=1 P* P SUK A1,2 /13? $ P RB(E) ACGP17 : P SUK A1,1 /14? P P RB(E) ACGP17 f P SUK A1,/C LESS THAN /20 ? | P* P XIF P* & P RF(N) ACGP30 YES,CODE CHECK ERROR & P SUK A1,/8E ROOMLESS POINT? (AE
0x0eefcc…0ef160 Dummy {f00=0x004b, f01=0x0190, f02=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & P TO CHARACTER BETWEEN /40 TO /5F : P RB ACGP17 d PACGP24 EQU * v P SUK A1,/D P RF(NZ) ACGP26 NOT CR " P CM DWTST,A6 SET POS LTR.TO 0 ( P CM DWTAP,A6 RESET HEAD POS.POIINTER
0x0ef160…0ef2f4 (0, 303) Opaque[0x194]
0x0ef2f4…0ef488 # DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0968, f03=0x0000}
0x0ef2f4…0ef488 IdxSect {
0x0ef2f4…0ef488 f00 = 0x004b // 0xef2f4 @0x0
0x0ef2f4…0ef488 f01 = 0x002a // 0xef2f6 @0x2
0x0ef2f4…0ef488 gno = [ // 0xef2f8 @0x4
0x0ef2f4…0ef488 [0x00]: C0x004b.0x1.0
0x0ef2f4…0ef488 [0x01]: C0x004b.0x2.0
0x0ef2f4…0ef488 [0x02]: C0x004b.0x3.0
0x0ef2f4…0ef488 [0x03]: C0x004c.0x0.0
0x0ef2f4…0ef488 [0x04]: C0x004c.0x1.0
0x0ef2f4…0ef488 [0x05]: C0x004c.0x2.0
0x0ef2f4…0ef488 [0x06]: C0x004c.0x3.0
0x0ef2f4…0ef488 [0x07]: C0x004d.0x0.0
0x0ef2f4…0ef488 [0x08]: C0x004d.0x1.0
0x0ef2f4…0ef488 [0x09]: C0x004d.0x2.0
0x0ef2f4…0ef488 [0x0a]: C0x004d.0x3.0
0x0ef2f4…0ef488 [0x0b]: C0x004e.0x0.0
0x0ef2f4…0ef488 [0x0c]: C0x004e.0x1.0
0x0ef2f4…0ef488 [0x0d]: C0x004e.0x2.0
0x0ef2f4…0ef488 [0x0e]: C0x004e.0x3.0
0x0ef2f4…0ef488 [0x0f]: C0x004f.0x0.0
0x0ef2f4…0ef488 [0x10]: C0x004f.0x1.0
0x0ef2f4…0ef488 [0x11]: C0x004f.0x2.0
0x0ef2f4…0ef488 [0x12]: C0x004f.0x3.0
0x0ef2f4…0ef488 [0x13]: C0x0050.0x0.0
0x0ef2f4…0ef488 [0x14]: C0x0050.0x1.0
0x0ef2f4…0ef488 ]
0x0ef2f4…0ef488 }
0x0ef488…0ef61c Dummy {f00=0x004b, f01=0x0190, f02=» 2 P IDENT DRDC25 9.2DK 2 80-01-03 870105040920 P : P DK2, TBUFL B P 80-03-11 X 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. l P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR SALCUZ P REL 9.1 79-07-19
0x0ef61c…0ef7b0 Dummy {f00=0x004b, f01=0x0190, f02=»9-05-23 $ P =5, INCOMPLETE POLL SEQUENCE P REL 9.1 79-05-23 8 P =3, TRANSFER PARAMETER T P PRR 9.1 79-04-06 v P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING P PRR 9.1 78-11-29 P
0x0ef7b0…0ef944 Dummy {f00=0x004b, f01=0x0190, f02=»*********************** z P* $ P* PHILIPS TERMINAL SYSTEM PTS * P* R * P* DRDC25: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P* P* P* P* P
0x0ef944…0efad8 Dummy {f00=0x004b, f01=0x0190, f02=» ENTRY DC25AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH2501 INPUT INTERRUPT 6 " P ENTRY IH2502 OUTPUT INTERRUPT " P ENTRY DC25ON POWER ON ROUTINE " P ENTRY DW2500 DWT FOR DC TASK P* P* P* EXTERNAL REFERENCES P*
0x0efad8…0efc6c Dummy {f00=0x004b, f01=0x0190, f02=»XTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER " P EXTRN DWTST DWT STATUS B P EXTRN DWTOR DWT ORDER b P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCDIC TABLE ( P EXTRN TASCII EB
0x0efc6c…0efe00 Dummy {f00=0x004b, f01=0x0190, f02=» LENGTH v P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD 4 * P EXTRN DC:MIN MOVE DATA TO USER BUFFER Z , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH P EJECT P* P*
0x0efe00…0eff94 (0, 304) Dummy {f00=0x004b, f01=0x0190, f02=»TS P* J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) P* b P EJECT l < P******************************************************* z P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY P* ( PXRVI EQU /5C
0x0eff94…0f0128 Dummy {f00=0x004b, f01=0x0190, f02=» BUFFER LENGTH | PRBUFL EQU 650+X:X DK PX:B EQU /60 DCTASK FILE CODE 4 PDC25FC EQU /63 X $ PX:C EQU 1 IF 1 INTERRUPT LOGGING n PLOGG EQU 0 P* * PTIMPOL EQU 600 POLL TIMEOUT VALUE DK * PX:E EQU 1 STATUS AND RVI HANDLING IF=1
0x0f0128…0f02bc Dummy {f00=0x004b, f01=0x0190, f02=»U 252 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 1 : * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING L PSPECP EQU 0 z , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSPEED EQU 1 * PX:K EQU 0
0x0f02bc…0f0450 Dummy {f00=0x004b, f01=0x0190, f02=» = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 & PX:N EQU /02 : P IFT P6805=0 N , PLCUIN EQU /22 DEVICE ADDRESS OF RECEIVER b P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF PX:O EQU 0 , PIBMCHR E
0x0f0450…0f05e4 Dummy {f00=0x004b, f01=0x0190, f02=»ON PACKAGE, IF NOT = 0 v PEM3270 EQU 1 PX:R EQU 1000 2 P DK2 F * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION V , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAI
0x0f05e4…0f0778 Dummy {f00=0x004b, f01=0x0190, f02=»ING IF STAT IS SET TO "ONE". P IFT P6805=0 SALCUZ $ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ @ P XIF SALCUZ P IFT P6805=1 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P*
0x0f0778…0f090c Dummy {f00=0x004b, f01=0x018e, f02=»***************************************** P* 2 . P* A PROGRAM VERSION USING TOSS MMU PAGING < * P* IS OBTAINED BY SETTING MMUPAG EQU 1. n P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTBUFL EQU 0 DK2 P XIF
0x0f090c…0f0aa0 Dummy {f00=0x004b, f01=0x0190, f02=» 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. > P* p PCPU852 EQU 0 z P* 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE P* P E
0x0f0aa0…0f0c34 (0, 305) Dummy {f00=0x004b, f01=0x018e, f02=» PSTART EQU DWTDRD P XIF P* , P IFT MMUPAG=1 6 PSTART EQU DWTDRD+4 L P XIF f P* r 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS | . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE
0x0f0c34…0f0dc8 Dummy {f00=0x004b, f01=0x0190, f02=» j , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* 8 P EJECT B P* P P* REQUEST HANDLING Z P* t P* ~ P* P* A7=ORDER P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P* /38: SET STATU
0x0f0dc8…0f0f5c Dummy {f00=0x004b, f01=0x0190, f02=»0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS L $ PDCWRQ DATA 0 WRITE REQUEST QUEUE p , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL P EJECT P* P* DC TASK ADDRESS BLOCK P* $
0x0f0f5c…0f10f0 Dummy {f00=0x004b, f01=0x0190, f02=»ORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR P* D P* DRIVER ADDRESS BLOCK N P* l P DATA BUFLEN MMU BUFFER SIZE v P DATA DEVIND DEVICE INDEX ( PDC25AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT
0x0f10f0…0f1284 Dummy {f00=0x004b, f01=0x018e, f02=» " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 * P < P IFT SPEED=1 D PLSPEED EQU /0200 X P XIF p P IFT SPEED=0 | PLSPEED EQU 0 P XIF P EJECT P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCAC
0x0f1284…0f1418 Dummy {f00=0x004b, f01=0x0190, f02=» l P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC ( P SUK A7,/06-/02 J P RF(Z) DCWR b P SUK A7,/37-/06 v $ P RF(Z) DCTP TRANSFER PARAMETERS P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P SUK A7,
0x0f1418…0f15ac Dummy {f00=0x004b, f01=0x0190, f02=»T REQUEST TIMER P XIF P RF DCA100 $ P EJECT 6 P* D P* N P* ACTIVATION FROM DCTASK X P* x P* PDCACTD EQU * $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG AN
0x0f15ac…0f1740 Dummy {f00=0x004b, f01=0x0190, f02=»ERS t P PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER 6 P* X P* b P* READ FROM DCTASK l P* P* P* REQUEST FROM DC-TASK P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS
0x0f1740…0f18d4 (0, 306) Dummy {f00=0x004c, f01=0x0190, f02=»O TO DISPATCHER P IFT EM3270=1 =4 P EJECT 2 . P***************************************** @ P* r P* ANY MESSAGE ORDER | P* " P***************************** P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P
0x0f18d4…0f1a68 Dummy {f00=0x004c, f01=0x0190, f02=»ETERS P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS " : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES d P* P* P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT COD
0x0f1a68…0f1bfc Dummy {f00=0x004c, f01=0x0190, f02=» P SLL A2,8 PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV * P ANK A3,/FF R ( P LC A2,TASCII,A3 TRANSLATE TO ASCII f P XIF ( P STR A2,A6 SAVE IN FIRST WORD OF DWT P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDR
0x0f1bfc…0f1d90 Dummy {f00=0x004c, f01=0x0190, f02=»K DWT ??? | 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER H * P CWK A1,DC:END TABLE ALREADY FULL ???? v & P ABL(E) DISIOE YES!! REQUEST ERROR P EJECT P P PDCTP20 EQU * " P LD A4,D
0x0f1d90…0f1f24 Dummy {f00=0x004c, f01=0x0190, f02=»RIES CHECKED?? =3 | * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3 H P RF(E) DCTP30 YES!! =3 j " P RB DCTP22 CHECK NEXT ENTRY =3 PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB P LDK A1,2 * P
0x0f1f24…0f20b8 Dummy {f00=0x004c, f01=0x0190, f02=» END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE $ P XIF P PDCTP30 EQU * P SUR A1,A1 RETURN CODE ::= 0 p PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P EJECT P* P* P* WR
0x0f20b8…0f224c Dummy {f00=0x004c, f01=0x0190, f02=»QU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH " " P CWK A1,BUFLEN ILLEGAL LENGTH? J P RF(G) IL:LEN YES!! p P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P*
0x0f224c…0f23e0 Dummy {f00=0x004c, f01=0x0190, f02=»QU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE , " P RF(Z) DCRD10 NOTHING IN QUEUE ^ P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFFECTIVE
0x0f23e0…0f2574 (0, 307) Dummy {f00=0x004c, f01=0x0190, f02=»RTN P $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN < P EJECT N P* P* f P* SET STATUS p P* P* P IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P
0x0f2574…0f2708 Dummy {f00=0x004c, f01=0x0190, f02=»A1,DWTST,A6 P ANK A1,9 ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT & PDCSS30 EQU * R , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE f P LDK A1,4 SET DE P RB DCSS10 P XIF P EJECT P P* " P* SET REQUEST TIMEOUT VALU
0x0f2708…0f289c Dummy {f00=0x004c, f01=0x0190, f02=» RB DCTP30 TENDIO & DISPATCH P $ P* , ( P* ILLEGAL APPLICATION BUFFER SIZE 6 P* b P l 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH t P ABL DISEND COMPLETE REQUEST P EJECT P* P* P* P* TIMER
0x0f289c…0f2a30 Dummy {f00=0x004c, f01=0x0190, f02=»WTTIM,A6 GET REQUEST TIMEOUT VALUE P RF(Z) TIME10 NO TIMING ! * P ST A2,TIMERR ! J P CF A15,SETIME ! ` P DATA TOUTRE ! v PTIMERR DATA 0 ! ( P ST A4,DWTTP,A6 STORE TIMER POINTER ! PTIME10 EQU * ! P RF GBUF10 RETURN ! P* ! P* TI
0x0f2a30…0f2bc4 Dummy {f00=0x004c, f01=0x018e, f02=»DICATE TIME OUT ! $ PTOUTR2 RB ENDIO COMPLETE REQUEST " P* " @ P* WRITE TIMER=TIMWR " J P* " f PTIMEWR LDR A1,A6 " p . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE " P RB(Z) TIME10 NO TIMING " P ST A2,TIMWR " P CF A15,SETIME " P DAT
0x0f2bc4…0f2d58 Dummy {f00=0x004c, f01=0x0190, f02=» " PTOUTWR EQU * # P LDR A6,A1 FETCH DWT # P CM DWTTP,A6 # 8 * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # L P* # z & P* THIS INSTRUCTION DOES NOT BELONG # P* TO THE STANDARD INTERFACE # P LD A2,FDWTUT # P CWR A2,A6 # * P RB(NE) TOUTR1
0x0f2d58…0f2eec Dummy {f00=0x004c, f01=0x0190, f02=»CT # P* $ P* $ P* STOP REQUEST TIMING $ P* $ < & P* REMAINING TIME IS RETURNED IN A2 $ F P* $ p P* $ z PCTIME EQU * $ & P LD A2,DWTTP,A6 GET TIMER POINTER $ P RF(Z) CTIM10 NOT RUNNING $ P LDR* A2,A2 $ " P NGR A2,A2 GET R
0x0f2eec…0f3080 Dummy {f00=0x004c, f01=0x0190, f02=»* GET RECEIVE BUFFER $ P* % $ P* CALLING SEQUENCE: CF A15,GRBUF % & P* A4=0 IF NO BUFFER IS FREE % N & P* ELSE A4 CONTAINS BUFFER ADDRESS % r P* A2 AND A3 ARE DESTROYED % P* % P* % ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS % PGBUF INH %
0x0f3080…0f3214 (0, 308) Dummy {f00=0x004c, f01=0x0190, f02=» ADKL A15,4 ADJUST STACK POINTER % P ABR* A15 RETURN TO CALLER & ( P EJECT & J P* & X P* & b ( P* INSERT DWT IN WRITE REQUEST QUEUE & l P* & P* A2,A3,A4 DESTROYED & P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR & PINSW
0x0f3214…0f33a8 Dummy {f00=0x004c, f01=0x018e, f02=» A4,A6 & P STR A4,A2 INSERT IN QUEUE ' " P CMR A4 INDICATE END OF QUEUE ' 0 P RB GBUF10 RETURN ' V P* ' p P* ' z * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PREMOVW LDKL A2,DCWRQ G
0x0f33a8…0f353c Dummy {f00=0x004c, f01=0x0190, f02=» ' ~ & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( P CWR A3,A4 ( 2 P RF(E) REM15 ( D P LDR A2,A3 GET NEXT ( X P RB REM10 ( t PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( P RB GBUF10 RETURN ( P EJECT ( P* ( P* ( P* INSERT DWT IN STAT
0x0f353c…0f36d0 Dummy {f00=0x004c, f01=0x018e, f02=» ( l P LDK A4,DWTSQ ) P RB INSWQ2 ) P* ) 0 P* ) : " P* REMOVE DWT FROM STATUS QUEUE ) D P* ) j P* A2,A3,A4 DESTROYED ) t P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) P LDK A4,DWTSQ ) P RB REM06 ) P XIF )
0x0f36d0…0f3864 Dummy {f00=0x004c, f01=0x0190, f02=» P* * PQRBUF EQU * * P IFT MESPAS=1 * " ( P LDKL A2,DW2500 QUEUE ON DC-TASK DWT * 8 P XIF * d P IFT MESPAS=0 * p $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU * * P LDR* A3,A
0x0f3864…0f39f8 Dummy {f00=0x004c, f01=0x0190, f02=»INDICATE END OF QUEUE * P RTN A5 + P EJECT + . P* + < P* + F 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + P P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW2500 + P LD A1,DWTST,A6 + P
0x0f39f8…0f3b8c Dummy {f00=0x004c, f01=0x0190, f02=»DDR TO A8 + z * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , " P RF(Z) CKM200 NO READ IN QUEUE , @ P , f P , n , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , v . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , " P ADK A3,6 MOVE POINTER TO TEXT , & P DONT DE
0x0f3b8c…0f3d20 Dummy {f00=0x004c, f01=0x0190, f02=»,A8 STORE LINE DEVICE ADDRESS , P - & P LDK A1,0 RESET RETURN CODE - . & P LDR A4,A3 RECEIVE BUFFER ADDRESS - R , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - | * PCKM110 ADKL A15,4 ADJUST STACK POINTER - P ABR* A15 RETURN - 8 PCKM200 LD A1,DCSTCU NO
0x0f3d20…0f3eb4 (0, 309) Dummy {f00=0x004c, f01=0x0190, f02=» CKM110 NO CHANGE OF STATUS - * P ORKL A1,/2000 INDICATE STATUS CHANGE . $ 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST . R P RB CKM110 . P EJECT . P . @ P************************************************************ . P* . P* ABORT R
0x0f3eb4…0f4048 Dummy {f00=0x004c, f01=0x0190, f02=» . r P CM* DWTTP,A6 KILL TIMER / P CM DWTTP,A6 / ( P / < $ PAB:10 LD A1,DWTOR,A6 ORDER CODE / D P SUK A1,2 / l * P RF(Z) AB:RTN READ REQUEST. NO ACTION / ~ P SUK A1,4 / . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE / P / . P CF A15,REMOVW R
0x0f4048…0f41dc Dummy {f00=0x004c, f01=0x0190, f02=»CK RESET ACK EXPECTED / P CM FDWTUT RESET WRITING DWT 0 P 0 B PAB:RTN EQU * 0 J P IFT CPU852=1 0 ^ P ADKL A15,4 0 t $ P ABR* A15 RETURN IN INHIBIT MODE 0 P XIF 0 P IFF CPU852=1 0 P RTN A15 0 P XIF 0 P EJECT 0 P 0 P EJE
0x0f41dc…0f4370 Dummy {f00=0x004c, f01=0x0190, f02=»G SEQUENCE: CF A15,LDREG 0 P* 1 P* 1 * PSTREG ST A3,LCA3 1 4 P ST A4,LCA4 1 L P ST A5,LCA5 1 ` P ST A6,LCA6 1 t P ST A7,LCA7 1 P ST A8,LCA8 1 P RF RTNA15 RETURN 1 P EJECT 1 PLDREG LDKL A3,0 1 PLCA3 EQU *-2 1 P LDK
0x0f4370…0f4504 Dummy {f00=0x004c, f01=0x0190, f02=» *-2 1 P LDKL A8,0 2 PLCA8 EQU *-2 2 PRTNA15 EQU * 2 2 P ADKL A15,4 2 F P ABR* A15 2 Z P EJECT 2 l P* 2 z P* 2 P* TIMER VALUES 2 P* 2 P* 2 * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 " PTIMNAK EQU 3 DELAY FOR NAK DK 2
0x0f4504…0f4698 Dummy {f00=0x004c, f01=0x0190, f02=» 2 PETX EQU /03 3 PETB EQU /17 3 PITB EQU /1F 3 0 PSOH EQU /01 3 D PENQ EQU /05 3 X PDLE EQU /10 3 l PEOT EQU /04 3 PNAK EQU /15 3 PESC EQU /1B 3 PSBA EQU /11 3 PGP EQU /22 3 PRDBCOM EQU /32 3 PRDMCOM EQU /36 3
0x0f4698…0f482c Dummy {f00=0x004c, f01=0x0190, f02=»0 3 PWACK EQU /3B 4 P XIF 4 P IFT CODE=0 4 * P IFT MSV1=1 4 > 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 4 R P XIF 4 P IFT CODE=1 4 PPAR EQU /00 4 PWACK EQU /2C 4 PRVI EQU XRVI DK 4 PACK0 EQU /18 4 PACK1 EQU /2F 4
0x0f482c…0f49c0 Dummy {f00=0x004c, f01=0x0190, f02=» CURRENT DWT FOR RECEPTION 4 . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 5 " PXACK DATA 0 ACK EXPECTED 5 T PXSEL DATA 0 SELECTED 5 t PXETX DATA 0 ETX SENT 5 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 " PXRB DATA 0 READ BUFFER SWITCH 5 P
0x0f49c0…0f4b54 (0, 310) Dummy {f00=0x004d, f01=0x0190, f02=»NG BUFFER ADDRESS 5 ~ & PFECBRL RES 1 WRITING BUFFER LENGTH 6 PFBAX DATA 0 BUFFER INDEX 6 D 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK 6 d $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 , PRESEND DATA 0 CONTROL
0x0f4b54…0f4ce8 Dummy {f00=0x004d, f01=0x0190, f02=» P* 7 P IFF STAT=0 7 . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE 7 " P* 7 T P* 7 ^ P DATA /4248 7 h P DATA /4242 7 | P* 7 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED 7 , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED 7 P XIF 7
0x0f4ce8…0f4e7c Dummy {f00=0x004d, f01=0x0190, f02=» MASTER SIDE 7 z P* 8 P* 8 P IFT P6805=1 SALCUZ 8 ( , PBRMHLT CF A5,HALTIN HALT RECEIVER SALCUZ 8 D P XIF SALCUZ 8 t PBRM EQU * 8 P LDKL A5,STB LOAD STACKBASE 8 P IFT P6805=0 SALCUZ 8 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATU
0x0f4e7c…0f5010 Dummy {f00=0x004d, f01=0x0190, f02=»M010 EQU * 8 P IFT CODE+P6805=0 SALCUZ 9 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTERN 9 4 P XIF SALCUZ 9 h P IFT P6805=0 SALCUZ 9 ~ P IFT CODE=1 9 4 P LDKL A2,/100+LSPEED+SYNEBC SPECIFY SYN PATTERN 9 P XIF SALCUZ 9 P IFT P6805=0
0x0f5010…0f51a4 Dummy {f00=0x004d, f01=0x0190, f02=» A2,/0C SALCUZ 9 * P CIO A2,1,LCUIN START RECEIVER SALCUZ : P LDK A2,SYN SALCUZ : F 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : b P RB(NA) BRMHLT SALCUZ : P XIF SALCUZ : P IFT CODE+P6805=2 SALCUZ : P LDK A2,0 SALCUZ : * P
0x0f51a4…0f5338 Dummy {f00=0x004d, f01=0x0190, f02=») BRMHLT SALCUZ : P XIF SALCUZ ; PBRM100 EQU * ; . $ P CF A5,READP READ ONE CHARACTER ; B P RF(NZ) BRM150 PARITY ERROR ; j P LDR A1,A2 ; P SUK A1,STX ; P RF(Z) BRM300 STX RECEIVED ; P SUK A1,EOT-STX ; P RF(Z) BRM200 EOT RECEIVED
0x0f5338…0f54cc Dummy {f00=0x004d, f01=0x018e, f02=»NAK-DLE ; P ABL(Z) BRM500 NAK RECEIVED < P IFT MSV1=0 < 4 P LDR A8,A2 < H $ P CF A5,READP READ ONE CHARACTER < Z P RF(NZ) BRM150 PARITY ERROR < P CWR A2,A8 < & P RF(NE) BRM150 INVALID ADDRESSING < P XIF < P LDK A3,0 < P CC A2,D
0x0f54cc…0f5660 Dummy {f00=0x004d, f01=0x0190, f02=» < P CF A5,READP READ 1:ST STA = P RF(NZ) BRM150 PARITY ERROR = * P LDR A8,A2 = N P IFT MSV1=0 = ` P CF A5,READP READ 2:ND STA = t P RF(NZ) BRM150 PARITY ERROR = P CWR A2,A8 = , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE = P XIF = " P
0x0f5660…0f57f4 (0, 311) Dummy {f00=0x004d, f01=0x018e, f02=» P SUK A2,ENQ SALCUZ > P XIF SALCUZ > P RF(NZ) BRM150 NOT ENQ > 6 P IFT P6805=0 SALCUZ > T $ P CF A5,READ READ LAST CHARACTER > p P > " P* TRAILING PAD CAN BE CHECKED > P > P CIO A1,0,LCUIN HALT INPUT > P SST A1,LCUIN > P X
0x0f57f4…0f5988 Dummy {f00=0x004d, f01=0x0190, f02=» P XIF SALCUZ ? P LDK A1,1 ? P ST A1,CACK LOAD ACK COUNTER ? , P LDR A2,A8 ? P P SUK A3,2 ? b P RF(Z) BRM120 SELECTING ? t P CWK A8,GP ? P ABL(E) GPOLL GENERAL POLL ? P IFT MSV1=1 ? 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADD
0x0f5988…0f5b1c Dummy {f00=0x004d, f01=0x0190, f02=»BL(NZ) SPOLL SPECIFIC POLL ? P RB BRM INVALID POLL @ " PBRM120 EQU * @ > & P CF A5,FINTER CHECK IF STA PRESENT @ R P LDR A6,A3 LOAD DWT TO A6 @ | P RF(NZ) BRM130 STA FOUND @ P IFT MSV1=0 @ $ P LDKL A6,DW2500 SELECT TO DCTASK @ PBRM130 EQU *
0x0f5b1c…0f5cb0 Dummy {f00=0x004d, f01=0x0190, f02=» MARK HOLD TO RESYNCHRONIZE @ P* A $ PBRM150 EQU * A . P ANK A2,/7F A B P SUK A2,/7F A V P RB(Z) BRM RESYNCHRONIZE A j & P CF A5,READ READ ANOTHER CHARACTER A P RB BRM150 A P EJECT A P* A P* A P* EOT HAS BEEN RECEIVED A P
0x0f5cb0…0f5e44 Dummy {f00=0x004d, f01=0x0190, f02=» XIF A P LD A1,XACK B & P RF(Z) BRM220 ACK IS NOT EXPECTED B " P LD A6,FDWTUT GET WRITING DWT B J P RF(Z) BRM210 NO ONE WRITING B p P LDK A1,2 SET RC=2 B ( P CF A5,CWRITE COMPLETE WRITE REQUEST B PBRM210 EQU * B " P CM XACK RESET 'ACK EXPECT
0x0f5e44…0f5fd8 Dummy {f00=0x004d, f01=0x0190, f02=»VED B | P* C P* C PBRM300 EQU * C P CF A5,HPTIM C 4 P LD A1,XSEL C H P RF(Z) BRM315 NOT SELECTED C P LD A1,DCRBUF C ~ ( P*********************CHAINED COMMAND C & P RB(Z) BRM150 NO BUFFER AVAILABLE C P********************* C P
0x0f5fd8…0f616c Dummy {f00=0x004d, f01=0x0190, f02=»NDICATE 'INVALID MESSAGE' C PBRM312 EQU * D " P CF A5,TRNAK SEND NAK D 6 P ABL BRM D T PBRM315 EQU * D d P IFT RCOM=1 D x P LD A1,XACK D & P RF(Z) BRM316 ACK IS NOT EXPECTED D P LD A1,DCRBUF D & P RF(Z) BRM316 NO BUFFER AVAILABLE D "
0x0f616c…0f6300 Dummy {f00=0x004d, f01=0x0190, f02=» RCOM=1 D , P CF A5,PRREC PREPARE FOR TEXT RECEPTION E P LDK A1,0 SET RC=0 E @ ( P CF A5,CWRITE COMPLETE WRITE REQUEST E Z P CM CACK PRESET ACK-1 =7 E P RB BRM305 READ THE MESSAGE E P XIF E ( PBRM316 CF A5,READ READ ONE CHARACTER E P IFF P
0x0f6300…0f6494 (0, 312) Dummy {f00=0x004d, f01=0x0190, f02=»312 FORWARD ABORT SEQUENCE E P RB BRM220 F " PBRM320 EQU * F 4 P IM XSTA INDICATE MESSAGE OK F H $ P LD A4,DCRBUF GET BUFFER ADDRESS F l P ADK A4,6 F P CW A4,FBLST F " P RF(NE) BRM325 NOT FIRST BLOCK F P IFF RCOM=0 F P LDK A1,ESC F P
0x0f6494…0f6628 Dummy {f00=0x004d, f01=0x0190, f02=»BCOM F ( P RF(Z) RDBUF READ MODIFIED RECEIVED G P SUK A1,RDMCOM-RDBCOM G 8 & P RF(Z) RDMOD READ BUFFER RECEIVED G V P XIF G PBRM325 EQU * G P SUK A7,1 G & P RF(Z) BRM340 MESSAGE ENDED BY ETB G P CM FBAX G * P CF A15,GRBUF ALLOCATE RECEI
0x0f6628…0f67bc Dummy {f00=0x004d, f01=0x0190, f02=»COM=1 G P LDR* A2,A6 H P LC A2,TEBCDIC,A2 H " P LD A1,DCRBUF H < P RF(Z) BRM326 H R P ST A2,+4,A1 H h P XIF H | PBRM326 EQU * H P CWK A6,DW2500 H , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H P LD A2,DWTST,A6 GET STATUS H P RF(
0x0f67bc…0f6950 Dummy {f00=0x004d, f01=0x0190, f02=»4 H P LDK A2,2 I P CW A2,DWTOR,A6 I " P RF(NE) BRM330 NO READ REQUEST I 4 PBRM327 EQU * I Z P LDK A1,0 SET RC=0 I n $ P LD A8,DWTECB,A6 GET ECB ADDRESS I P LD A3,-4,A4 GET LENGTH I * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I & P CF A15,CT
0x0f6950…0f6ae4 Dummy {f00=0x004d, f01=0x018e, f02=»IT SET IN CCC/WCC I v P* J P* J $ P IFT STAT=1 J . P LC A2,+2,A4 GET WCC/CCC J B P ANK A2,/FF J b P LC A2,TEBCDI,A2 TRANSLATE J v P ANK A2,8 J P RF(Z) BRM328 J P LD A2,DWTST,A6 GET STATUS J P ORK A2,/A J P ST A2,DWTST,A6 J
0x0f6ae4…0f6c78 Dummy {f00=0x004d, f01=0x0190, f02=» J f & P SUK A4,6 ADJUST BUFFER ADDRESS =4 K ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 K 2 P RF BRM32A =4 K ^ P XIF =4 K t PBRM329 EQU * =4 K P K P LDK A1,0 RESET RETURN CODE K & P CF A15,DC:MIN MOVE TO USER BUFFER K P RF BRM345 K PBRM3
0x0f6c78…0f6e0c Dummy {f00=0x004d, f01=0x0190, f02=»4 K P LD A1,DWTST,A6 STATUS =4 L P RF(N) BRM335 NO REQUEST =4 L , P LD A1,DWTOR,A6 ORDER =4 L P , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 L p & P CF A15,TENDIO COMPLETE REQUEST =4 L PBRM335 EQU * =4 L P XIF =4 L P SUK A4,6 GET BUFFER
0x0f6e0c…0f6fa0 Dummy {f00=0x004d, f01=0x0190, f02=»RACK SEND ACK 0/1 L P ABL BRM M PBRM345 EQU * M * P IFT STAT=1 M > P LD A1,DWTST,A6 M R P ANK A1,8 M j $ P RB(Z) BRM340 ACK SHOULD BE SENT M | P CF A5,TRWACK SEND WACK M P RF BRM410 M P XIF M P IFF STAT=1 M P RB BRM340 M P
0x0f6fa0…0f7134 (0, 313) Dummy {f00=0x004d, f01=0x0190, f02=»BUF EQU * READ BUFFER COMMAND M PRDMOD EQU * N & " P CM XSEL RESET SELECT EXPECTED N : 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL N ` $ P LD A4,DWTBUF,A6 BUFFER ADDRESS N $ P SUK A4,2 SDJUST BUFFER ADDRESS N " P LDKL A3,1922 REQUESTED LENGTH N
0x0f7134…0f72c8 Dummy {f00=0x004d, f01=0x018e, f02=» LD A1,CRDBUF INCREMENT READ BUFFER DK N P ADK A1,1 COUNTER DK O . P ST A1,CRDBUF DK O J P DE O d P ABL POL127 O r P XIF O P* O P* O P* ENQ HAS BEEN RECEIVED O P* O P* O PBRM400 EQU * O & P CF A5,HPTIM STOP PROCEDUR
0x0f72c8…0f745c Dummy {f00=0x004d, f01=0x0190, f02=» O p . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE P PBRM410 EQU * P : P ABL BRM P N P EJECT P ^ P* P l P* P v P* NAK HAS BEEN RECEIVED P P* P P* P PBRM500 EQU * P & P CF A5,HPTIM STOP PROCEDURE TIMER P P LD A1,XACK P P R
0x0f745c…0f75f0 Dummy {f00=0x004d, f01=0x0190, f02=» P P LDK A1,0 Q P CIO A1,0,LCUIN DK Q P SST A1,LCUIN DK Q 6 P CF A15,STREG DK Q P P CF A15,SETIME DK Q j P DATA BRM520,TIMNAK DK Q P ABL TDISP DK Q PBRM520 EQU * DK Q P CF A15,LDREG DK Q P DE Q " P LD A6,FDWTUT
0x0f75f0…0f7784 Dummy {f00=0x004d, f01=0x0190, f02=»BLST GET START POINT FOR LAST BLOCK Q & P SU A1,FECBBA COMPUTE BUFFER INDEX R , P ST A1,FBAX R V P ABL POL130 R j P* R ~ P* R P* DLE HAS BEEN RECEIVED R P* R P* R PBRM600 EQU * R & P CF A5,HPTIM STOP PROCEDURE TIMER R P LD
0x0f7784…0f7918 Dummy {f00=0x004d, f01=0x018e, f02=» R P XIF =8 S P IFT P6805=1 =8 S P CWK A2,ACK0 =8 S 2 P XIF =8 S J P RF(NE) BRM620 S P* S r P* ACK , 0 RECEIVED S | P* S P LD A1,CACK GET ACKCOUNTER S P RF(Z) BRM630 ACK,0 EXPECTED S PBRM610 EQU * S P CF A5,TRENQ S
0x0f7918…0f7aac Dummy {f00=0x004d, f01=0x0190, f02=» P* T P* ACK , 1 RECEIVED T P* T ( P LD A1,CACK GET ACK COUNTER T 2 $ P RB(Z) BRM610 ACK,1 NOT EXPECTED T V PBRM630 EQU * T ~ P LD A1,XETX T P RF(Z) BRM640 ETX NOT SENT T P EJECT T P* T , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK
0x0f7aac…0f7c40 Dummy {f00=0x004d, f01=0x018e, f02=»RANSMITTED T p P XIF U ( P CF A5,CWRITE COMPLETE WRITE REQUEST U PBRM636 EQU * U J P CF A5,TREOT SEND EOT U ^ P IFT RCOM=1 U | P U P CM XRB RESET READ BUFFER U P XIF U P RB BRM410 U PBRM640 EQU * U P LDK A1,1 U & P XRS A1,CA
0x0f7c40…0f7dd4 (0, 314) Dummy {f00=0x004e, f01=0x0190, f02=» P IFT P6805=1 =8 V P CWK A2,RVI =8 V P XIF =8 V 4 ( P RB(NE) BRM610 INVALID DLE SEQUENCE V F " P CM XACK RESET 'EXPECTING ACK' V r P LD A1,XETX V $ P RF(NZ) BRM660 ETX HAS BEEN SENT V P LDK A1,2 SET RC=2 V P RB BRM635 V PBRM660 E
0x0f7dd4…0f7f68 Dummy {f00=0x004e, f01=0x018e, f02=»TED V v P* W P* W PBRM670 EQU * W " P LD A6,FDWTUT GET DWT ADDRESS W 4 , P CF A15,REMOVS REMOVE FROM STATUS QUEUE W Z P CM XSTA CLEAR 'STATUS SENT' W " P CM XACK CLEAR 'ACK EXPECTED' W P LD A1,DWTST,A6 GET STATUS W P ANK A1,4 W P
0x0f7f68…0f80fc Dummy {f00=0x004e, f01=0x0190, f02=» W P* X P* SELECT HAS BEEN RECEIVED X P* X 4 P* X > PSELECT EQU * X H P LD A1,XACK =5 X * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 X t P IFF STAT=0 X P LD A1,DWTST,A6 GET STATUS X P LDR A3,A1 X P ANK A1,1 X $ P RF(Z) SEL11
0x0f80fc…0f8290 Dummy {f00=0x004e, f01=0x0190, f02=» P ABL BRM Y PSEL110 EQU * Y P IFT STAT+NOWACK=1 Y ( P ANK A3,8 Y B P RF(NZ) SEL115 BUSY Y T P XIF Y p P IFT STAT+NOWACK=2 Y | P ANK A3,8 Y " P RF(Z) SEL111 DEVICE NOT BUSY Y P CF A5,TRWACK TRANSMIT WACK Y P ABL BRM Y PSEL111
0x0f8290…0f8424 Dummy {f00=0x004e, f01=0x0190, f02=»F A5,TRWACK SEND WACK Y P XIF Z P RB SEL100 Z * PSEL120 EQU * Z < , P CF A5,PRREC PREPARE FOR TEXT RECEPTION Z P P CF A5,TRACK SEND ACK,0 Z P RB SEL100 Z P EJECT Z P* Z P* Z P* PREPARE FOR TEXT RECEPTION Z P* Z P* Z
0x0f8424…0f85b8 Dummy {f00=0x004e, f01=0x0190, f02=»ATE STA TO EBCDIC Z x P XIF [ $ P ST A2,+4,A1 SAVE STA IN BUFFER [ & P IM XSTA [ N " P ST A6,FDWTIN STORE INPUT DWT [ ^ P RTN A5 [ P EJECT [ P* [ P* [ $ P* GENERAL POLL HAS BEEN RECEIVED [ P* [ P* [ PGPOLL EQU * [ P L
0x0f85b8…0f874c Dummy {f00=0x004e, f01=0x0190, f02=» =5 [ n " P ABL BRM WAIT FOR RESPONSE =5 PPOL020 EQU * =5 2 " P CF A5,CPTIM CHECK POLL TIMER J P IFF STAT=0 p P LD A6,DCSTQ & P RF(Z) POL110 NO STATUS TO BE SENT " P SUK A6,DWTSQ GET DWT ADDRESS PPOL050 EQU * P CF A5,TRS
0x0f874c…0f88e0 Dummy {f00=0x004e, f01=0x0190, f02=»POL110 P XIF ] PPOL100 EQU * ] P ABL BRM ] . PPOL110 EQU * ] > P LD A6,DCWRQ ] R " P RF(NZ) POL120 WRITE ON QUEUE ] f PPOL115 EQU * ] P CF A5,TREOT SEND EOT ] P RB POL100 ] PPOL120 EQU * ] " P SUK A6,DWTWQ GET DWT ADDRESS ]
0x0f88e0…0f8a74 (0, 315) Dummy {f00=0x004e, f01=0x0190, f02=» ] P ST A8,FECB SAVE ECB ADDRESS ^ P ST A6,FDWTUT SAVE A6 ^ , P ^ J P IFF MMUPAG=0 ^ R $ P LDKL A4,MMUBUF MMU WORK BUFFER ^ h P ST A4,ECBBA,A8 ^ . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER ^ P XIF ^ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS
0x0f8a74…0f8c08 Dummy {f00=0x004e, f01=0x0190, f02=»FER ^ p P ST A3,FECBRL SAVE LENGTH _ P CM FBAX RESET BUFFER INDEX _ . PPOL130 EQU * _ R P CM XETX RESET 'ETX SENT' _ f P CM XSTA _ P CF A5,TRTEXT SEND ONE BLOCK _ & P CF A5,SPTIM START PROCEDURE TIMER _ P IM XACK SET 'ACK EXPECTED' _
0x0f8c08…0f8d9c Dummy {f00=0x004e, f01=0x0190, f02=» IFF STAT+SPECP=0 _ P LD A1,XACK =5 ` " P RB(NZ) POL010 ACK EXPECTED =5 ` 2 P LDR A7,A6 SAVE A6 ` X P CF A5,CPTIM CHECK POLLTIMER ` r P LDR A6,A7 RESTORE A6 ` P IFT STAT=1 ` P LD A1,DWTST,A6 GET STATUS ` P ANK A1,7 ` " P RB(NZ) POL0
0x0f8d9c…0f8f30 Dummy {f00=0x004e, f01=0x0190, f02=»GET ORDER ` P SUK A1,6 a P RB(Z) POL125 WRITE REQUEST a $ P SUK A1,2 a H " P RB(Z) POL125 EXCHANGE REQUEST a Z P XIF a P RB POL115 SEND EOT a P EJECT a P* a P* a 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED a P*
0x0f8f30…0f90c4 Dummy {f00=0x004e, f01=0x0190, f02=»,DWTST,A6 a P RF(N) CWR900 NO REQUEST b P LD A2,DWTOR,A6 GET ORDER b 2 P SUK A2,6 b T P RF(Z) CWR100 WRITE REQUEST b f P SUK A2,2 b ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST b P LDR A1,A1 b 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO
0x0f90c4…0f9258 Dummy {f00=0x004e, f01=0x0190, f02=» b n P CF A15,CTIME STOP TIMING c P LDR A8,A8 c * P RF(Z) CWR150 c < P ST A2,ECBCW,A8 c R $ P CF A15,TENDIO COMPLETE REQUEST c j PCWR150 EQU * c * P CF A15,REMOVW REMOVE FROM WRITE QUEUE c PCWR200 EQU * c PCWR900 EQU * c " P CM XACK RES
0x0f9258…0f93ec Dummy {f00=0x004e, f01=0x0190, f02=»ON EXIT A3 CONTAINS : c ( P* 0 : IF CORRECT ETX BLOCK RECEIVED d 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW d J ( P* 2 : IF CORRECT ETB BLOCK RECEIVED d P* d PRDMESS EQU * d $ P LD A4,DCRBUF GET BUFFER ADDRESS d P ADK A4,6 RESERVE HEAD
0x0f93ec…0f9580 Dummy {f00=0x004e, f01=0x0190, f02=» d P ST A1,FBAX e PRDM050 EQU * e P AD A4,FBAX ADD BUFFER INDEX e 0 ( P ST A4,FBLST REMEMBER START OF BLOCK e T PRDM075 EQU * e P CM XSTA e P LDK A7,0 RESET LRC e P e P IFT IBMCHR=1 e P LD A1,FBAX e " P RF(NZ) RDM100 NOT FIR
0x0f9580…0f9714 (0, 316) Dummy {f00=0x004e, f01=0x0190, f02=» TWO CHARACTERS e z P CF A5,READP f P XIF f , PRDM100 EQU * f 8 $ P CF A5,READP READ ONE CHARACTER f L P RF(NZ) RDM120 PARITY ERROR f t PRDM110 EQU * f P CWK A2,ETX f P RF(E) RDM130 ETX RECEIVED f P CWK A2,ETB f P RF(E) RDM160 ETB
0x0f9714…0f98a8 Dummy {f00=0x004e, f01=0x0190, f02=» f b P CWK A2,/FF g $ P RF(E) RDM140 MARK HOLD RECEIVED g P g D P IFT CODE=0 g L P IFT BINTRM=1 g ` P g v P LDR A1,A2 g ~ P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g P RF(N) RDM115 NOT DC1-DC3 g P SLL A1,6 g
0x0f98a8…0f9a3c Dummy {f00=0x004e, f01=0x018e, f02=»ARACTER g r P ORR A2,A8 h PRDM115 EQU * h " P XIF h 6 P h B P SCR A2,A4 STORE CHARACTER h J P ADK A4,1 INCREMENT POINTER h l $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h P CWK A1,RBUFL+RBUFL h P RB(NG) RDM100 NOT OVERFLOW h
0x0f9a3c…0f9bd0 Dummy {f00=0x004e, f01=0x0190, f02=» h l P SUK A2,/7F i $ P RF(Z) RDM150 MARK HOLD RECEIVED i P RB RDM100 i D P* i V P* ETX RECEIVED i ` P* i v PRDM130 EQU * i $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN H
0x0f9bd0…0f9d64 Dummy {f00=0x004e, f01=0x0190, f02=»CRC AND CHECK IT i ~ P RF(E) RDM150 CRC WAS OK j P XIF j 8 PRDM140 EQU * j D & P LDK A3,1 INDICATE INVALID MESSAGE j X PRDM150 EQU * j $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j P IFT P6805=1 j " P ORR A7,A1 PARITY ERRO
0x0f9d64…0f9ef8 Dummy {f00=0x004e, f01=0x0190, f02=»B(NZ) RDM130 ALREADY INVALID j " P LDK A3,2 INDICATE CORRECT ETB k $ P RB RDM130 k J P* k P* ITB RECEIVED k f P* k | PRDM170 EQU * k P IFF CODE=1 k P CF A5,RDLRC k " P RB(NZ) RDM120 LRC WAS NOT OK k P XIF k P IFT CODE=1 k & P
0x0f9ef8…0fa08c Dummy {f00=0x004e, f01=0x0190, f02=»TRANSMIT ACK 0 OR 1 k P* l PTRACK LDK A2,1 l & P LDK A3,ACK1 PRELOAD ACK1 l < & P XRS A2,CACK INCREMENT ACK COUNTER l ^ P RF(NZ) TRDLE l P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l P* l P* TRANSMIT WACK l P* l PTRWACK LDK A3,
0x0fa08c…0fa220 Dummy {f00=0x004e, f01=0x018e, f02=» XIF l P* m P* TRANSMIT DLE m P* m , PTRDLE LDK A2,DLE LOAD DLE m 6 " P SC A2,RESEND PUT INSAVE AREA m X P SC A3,RESEND+1 m ~ P RF TRREP m P EJECT m P* m P* TRANSMIT NAK m P* m PTRNAK LDK A3,NAK LOAD NAK m P RF TR
0x0fa220…0fa3b4 (0, 317) Dummy {f00=0x004e, f01=0x018e, f02=» P* n PTRENQ LDK A3,ENQ LOAD ENQ n P* n 0 ( PTREN10 SC A3,RESEND PUT IN SAVE AREA n : P LDK A2,/FF n f P SC A2,RESEND+1 n z $ PTRREP CF A5,TRSYNC START OUTPUT n & P LC A2,RESEND GET FIRST CHARACTER n P CF A5,WRITEP SEND IT n & P LC A2
0x0fa3b4…0fa548 Dummy {f00=0x004e, f01=0x0190, f02=» n P CF A5,WRIT05 o P LDK A2,0 SALCUZ o $ P CIO A2,0,LCUUT STOP TRANSMITTER o 8 P IFT P6805=1 SALCUZ o ` $ P CF A5,READ WAIT FOR END SALCUZ o | P XIF SALCUZ o & P SST A2,LCUUT PERFORM SST AT ONCE o P IFF LOGG=0 o ( P CF A5,LOGSST LO
0x0fa548…0fa6dc Dummy {f00=0x004e, f01=0x0190, f02=» o PTRTEXT EQU * p P CF A5,TRSYNC START OUTPUT p P IFT TSTREQ=1 p > P* p T P* p ^ P* TEST REQUEST HANDLING p h P* p P* p P LD A4,FBAX p ( P RF(NZ) TRT050 NOT START OF MESSAGE p P p 2 P LD A1,XRB READ BUFFER COMMAND IN PR
0x0fa6dc…0fa870 Dummy {f00=0x004e, f01=0x018e, f02=» RF(NZ) TRT050 NOT TEST REQUEST p P LDK A2,SOH q ( P CF A5,WRITE SEND SOH q < P LDK A7,0 RESET BCC q Z P LDK A2,'%' q v P CF A5,WRITE SEND % q P LDK A2,'/' q P CF A5,WRITE SEND / q P LDK A2,STX q P CF A5,WRITE SEND STX q ( P
0x0fa870…0faa04 Dummy {f00=0x004e, f01=0x0190, f02=» P ST A2,FBAX r P RF TRT100 r PTRT050 EQU * r * P* r > P* r H P* r R P XIF r P LDK A2,STX r h P CF A5,WRITE SEND STX r | P LDK A7,0 RESET LRC r $ P LD A4,FECBBA GET BUFFER ADDRESS r P AD A4,FBAX ADD BUFFER INDEX r ( P ST A4
0x0faa04…0fab98 Dummy {f00=0x004e, f01=0x0190, f02=»GET BUFFER INDEX r " P RF(NZ) TRT100 NOT FIRST BLOCK s P LC A2,DW2500+1 GET TCA s > P CF A5,WRITEP SEND TCA s ^ P LDR* A2,A6 GET STA s | P CF A5,WRITEP SEND STA s P IFT IBMCHR=1 s P IFF RCOM=1 s " P LDK A2,/27 SEND ENTER AS AID s P C
0x0fab98…0fad2c Dummy {f00=0x004e, f01=0x0190, f02=»FT RCOM=1 s P t & P LD A1,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT070 NO!! t D P t ^ P ******************** t f " P LDK A2,X'2D' AID FOR DISPLAY t PTRT060 CF A5,WRITEP SEND AID t P t $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS t . P CF A5,L
0x0fad2c…0faec0 Dummy {f00=0x004e, f01=0x0190, f02=»DK A3,2 t PTRT100 EQU * u P LCR A2,A4 GET ONE CHARACTER u $ P ADK A4,1 INCREMENT POINTER u H P ANK A2,/7F u l P IFT RCOM=1 u & P LD A1,XRB READ BUFFER COMMAND ??? u P RF(Z) TRT105 NO!! u P u @ P****************************************
0x0faec0…0fb054 (0, 318) Dummy {f00=0x004f, f01=0x018e, f02=»******* u h P v & P CWK A2,X'20' ATTRIBUTE CHARACTER v P RF(L) TRT101 YES!!! v B P XIF v ^ P IFT DMRK=1 v j P CWK A2,/7E LINE FEED ? v ~ " P RF(NE) TRT102 NO,GO TO TRT102 v P LDK A2,/0A v PTRT102 EQU * v P CWK A2,/7D END OF MESSAGE ?
0x0fb054…0fb1e8 Dummy {f00=0x004f, f01=0x0190, f02=» P SUK A2,1 w P XIF w P IFT RCOM=1 w " P RF TRT105 w 6 P w H PTRT101 EQU * w P P w d P LDK A2,SF w l " P CF A5,WRITEP SEND START FIELD w ~ P w ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER w P ANK A2,X'7F' w ( P LDR A1,A2 CONVERT TO IBM
0x0fb1e8…0fb37c Dummy {f00=0x004f, f01=0x0190, f02=»ALWAYS SET ONE w P LC A2,TASCII,A2 x & P CWK A2,/18 CHECK SPECIAL ATTRIBUT x . P RF(NE) TRT104 x X P LDK A2,/30 x n PTRT104 EQU * x P CF A5,WRITEP SEND ATTRIBUTE x P ADK A3,1 x P RF TRT110 x PTRT105 EQU * x P XIF x P EJECT x
0x0fb37c…0fb510 Dummy {f00=0x004f, f01=0x0190, f02=»REMENT BUFFER INDEX x & P LD A1,FECBRL GET REQUESTED LENGTH y P CW A1,FBAX y F " P RF(NG) TRT130 END OF MESSAGE y Z * P ADK A3,1 INCREMENT CHARACTER COUNTER y P CWK A3,TBLEN y P RB(L) TRT100 NOT FULL BLOCK y P IFT RCOM=1 y , P LDK A1,SBA
0x0fb510…0fb6a4 Dummy {f00=0x004f, f01=0x0190, f02=» LCR A2,A4 GET FIRST BYTE AFTER SBA y P ADK A4,1 INREMENT POINTER z , P CF A5,WRITEP SEND IT z N P IM FBAX INCREMENT INDEX z l . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA z P CF A5,WRITEP SEND IT z P IM FBAX INCREMENT INDEX z P XIF z P
0x0fb6a4…0fb838 Dummy {f00=0x004f, f01=0x018e, f02=» z ~ P CF A5,WRITEP SEND LRC { P XIF { & P IFT CODE=1 { 2 P LDR A8,A7 SAVE CURRENT CRC { F P LDR A2,A7 { j P ANK A2,/FF { | " P CF A5,WRIT05 SEND CRC BYTE 1 { P ECR A2,A8 { P ANK A2,/FF { " P CF A5,WRIT05 SEND CRC BYTE 2 { P XIF {
0x0fb838…0fb9cc Dummy {f00=0x004f, f01=0x018e, f02=» { z P RB TRT120 SEND ETX AND LRC | P EJECT | , P* | : P* | D P* TRANSMIT STATUS MESSAGE | N P* | p P* | z P IFF STAT=0 | PTRSTA EQU * | $ P IM XSTA INDICATE 'STATUS SENT' | P ST A6,FDWTUT SAVE A6 | P CF A5,TRSYNC START OU
0x0fb9cc…0fbb60 Dummy {f00=0x004f, f01=0x0190, f02=» P LDK A2,'R' } P CF A5,WRITEP SEND 'R' } P LDK A2,STX } 6 P CF A5,WRITE SEND STX } J P LC A2,DW2500+1 } h P CF A5,WRITEP SEND TCA } P LDR* A2,A6 } P CF A5,WRITEP SEND STA } P LD A1,DWTST,A6 GET STATUS } P ANK A1,/06 MASK FOR S
0x0fbb60…0fbcf4 (0, 319) Dummy {f00=0x004f, f01=0x0190, f02=» LD A1,DWTST,A6 GET STATUS } P ANK A1,5 ~ " P RF(Z) TRST10 NOT 'IR' ~ 4 P ANK A1,4 ~ R P RF(NZ) TRST10 NO IR IF DE ~ d P LDK A2,IR ~ PTRST10 EQU * ~ P CF A5,WRITEP SEND S/S 1 ~ P RB TRT130 SEND ETX AND LRC ~ P XIF ~ P EJECT ~
0x0fbcf4…0fbe88 Dummy {f00=0x004f, f01=0x0190, f02=»HALT INPUT IF NOT DONE ~ P SST A2,LCUIN PERFORM SST P IFT P6805=0 SALCUZ @ & P CIO A2,1,LCUUT START TRANSMITTER P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=1 SALCUZ P LDK A2,0 SALCUZ , P CIO A2,1,LCUUT START TRAN
0x0fbe88…0fc01c Dummy {f00=0x004f, f01=0x018e, f02=»TRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * SALCUZ & P LDK A2,SYNEBC SALCUZ B 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ ` P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0C SALCUZ P CIO A2,
0x0fc01c…0fc1b0 Dummy {f00=0x004f, f01=0x0190, f02=» " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * * P LDK A2,SYN SALCUZ > 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ Z P XIF SALCUZ * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS PTRS100 LDK A2,SYN P C
0x0fc1b0…0fc344 Dummy {f00=0x004f, f01=0x0190, f02=»RUPT ~ P* P* PIH2501 EQU * P ST P,INTSAV 4 P IFT CPU852=1 H P CF A15,SAVE8 SAVE A1-A8 ^ P XIF ~ P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P INR A
0x0fc344…0fc4d8 Dummy {f00=0x004f, f01=0x0190, f02=» P XIF P IFF CODE=1 P C2 SYNSW $ P RF(NZ) IHLCI2 6 P CWK A2,SYN SKIP SYNS L P RF(E) READ j " PIHLCI2 XRR A7,A2 CALCULATE LRC ~ P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME
0x0fc4d8…0fc66c Dummy {f00=0x004f, f01=0x018e, f02=»RANSLATE TO ASCII ~ P XIF PIHIN10 RTN A5 & P IFT P6805=0 SALCUZ < PIHIN20 CF A5,SST PERFORM SST X P ABL BRM | P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ P EJECT
0x0fc66c…0fc800 Dummy {f00=0x004f, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1 - A8 P XIF & P 2 P IFF CPU852=1 : P MSR 8,A15 SAVE A1-A8 =1 P P XIF p * P CF A15,LDREG RESTORE DC REGS A3 - A8 | P RB IHIN10 P EJECT P* P* & P* SST INSTRUCTION AND STATUS CHECK P
0x0fc800…0fc994 (0, 320) Dummy {f00=0x004f, f01=0x0190, f02=»UT ERROR p , P* BIT 15=MODEM NOT READY P* @ PSST SST A1,LCUIN J P IFT P6805=1 SALCUZ b 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ ~ P XIF SALCUZ P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST IN
0x0fc994…0fcb28 Dummy {f00=0x004f, f01=0x0190, f02=»LCUZ P ANK A2,6 SALCUZ P RF(Z) SST100 SALCUZ & P ANK A2,2 SALCUZ D & P RF(NZ) SST050 THROUGH PUT SALCUZ ^ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA T
0x0fcb28…0fccbc Dummy {f00=0x004f, f01=0x0190, f02=»A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 * P XIF SALCUZ : P IFT P6805=1 SALCUZ P P ANK A1,/21 SALCUZ l P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ P DATA 2
0x0fccbc…0fce50 Dummy {f00=0x004f, f01=0x018e, f02=» CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ 0 P* F P* P P* HALT INPUT Z P* n P* x PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x0fce50…0fcfe4 Dummy {f00=0x004f, f01=0x0190, f02=» P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* H P* R PWRITE EQU * P IFT CODE=1 p P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC
0x0fcfe4…0fd178 Dummy {f00=0x004f, f01=0x0190, f02=» CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 8 P IFT CODE=1 D & PWRIT10 CF A5,CRCCAL CALCULATE CRC X P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP
0x0fd178…0fd30c Dummy {f00=0x004f, f01=0x018e, f02=»0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2 , P ORK A2,/80 > PWRI100 SLL A1,1 R P RB(P) WRI100 j P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P X
0x0fd30c…0fd4a0 Dummy {f00=0x004f, f01=0x0190, f02=» PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 > PRE100 SLL A1,1 P P RF(Z) RE110 f P RB(NN) RE100 z P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ
0x0fd4a0…0fd634 (0, 321) Dummy {f00=0x004f, f01=0x018e, f02=»JECT P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* V $ P* CALLING SEQUENCE: CF A5,FINTER ` P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 -
0x0fd634…0fd7c8 Dummy {f00=0x004f, f01=0x0190, f02=» P* . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE P* @ P* J PFINTEP EQU * T P IFT MSV1=0 h PFINTER EQU * | P XIF P IM RBYTE P IFT MSV1=1 PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB
0x0fd7c8…0fd95c Dummy {f00=0x004f, f01=0x018e, f02=» ( P RF(E) FINT20 SUBTERMINAL NOT FOUND P LDR* A3,A4 LOAD DWT ADDRESS 0 P IFT MSV1=1 T $ P AD A3,RBYTE CHOOSE ADDRESS TYPE h * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS
0x0fd95c…0fdaf0 Dummy {f00=0x004f, f01=0x0190, f02=» P* P* P* POWER ON FUNCTIONS P* 4 P* > PDC25ON EQU * H P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 r P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF P IFT STAT=1 P LDK A5,4 SE
0x0fdaf0…0fdc84 Dummy {f00=0x004f, f01=0x018e, f02=»F(E) DRDC06 END OF TABLE P LDR* A6,A1 GET DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE D ( P CF A15,INSSQ INSERT IN STATUS QUEUE x P RB DRDC05 PDRDC06 EQU * P XIF P LDK A2,/40 P ORS A2,DCONOF P CF A15,
0x0fdc84…0fde18 Dummy {f00=0x004f, f01=0x0190, f02=» h PDRDC20 ABL BRM P EJECT P* , P* POLL TIME OUT 6 P* N ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE X P LDK A2,/40 ( P ST A2,DCONOF INDICATE POLL TIME OUT * P CF A15,CKMESS CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START P
0x0fde18…0fdfac Dummy {f00=0x004f, f01=0x0190, f02=» POLLING x P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER ( * P CF A15,CKMESS CHECK IF STATUS CHANGE L P RTN A5 z P* P* START POLL TIMER P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL & P ST A4,DCTPGP
0x0fdfac…0fe140 Dummy {f00=0x004f, f01=0x0190, f02=»M EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME 8 P DATA PRTOUT,TIMPRO N $ P ST A4,DCTPP SAVE TIMER POINTER j P RTN A5 P* P* PROCEDURE TIMEOUT P* PPRTOUT CM DCTPP P LDR A6,A1 RELOAD A6 P L
0x0fe140…0fe2d4 (0, 322) Dummy {f00=0x0050, f01=0x0190, f02=» P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER " PPRT10 ABL BRM L P EJECT b P* p P* STOP PROCEDURE TIMER z P* ( PHPTIM LD A1,DCTPP GET TIMER POINTER P RF(Z) HPT10 NOT RUNNING P CM* DCTPP STOP TIMER
0x0fe2d4…0fe468 Dummy {f00=0x0050, f01=0x0190, f02=»A2 = CHARACTER P* A7 = ACCUMULATED CRC P* 4 P* > PCRCCAL EQU * H P ST A1,CRCSAV P ST A2,CRCSAV+2 r P ST A3,CRCSAV+4 P LDK A1,8 PCRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 P SRL A2,1 P ANK A
0x0fe468…0fe5fc Dummy {f00=0x0050, f01=0x0190, f02=»V+2 P LD A3,CRCSAV+4 P RTN A5 $ PCRCSAV RES 3 4 P EJECT H P* V P* ` ( P* READ CRC CHARACTERS AND CHECK THEM j P* CR = (E) IF CRC WAS OK P* P* $ PRDCRC LDR A6,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP
0x0fe5fc…0fe790 Dummy {f00=0x0050, f01=0x018e, f02=» SKIPPED AGAIN z P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 6 P XRR A2,A8 H P ADK A5,4 Z . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED l P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " P*
0x0fe790…0fe924 Dummy {f00=0x0050, f01=0x0190, f02=» P ANK A7,/7F PLRCEND EQU * P CM SYNSW 0 P ABR* A5 B P R P XIF Z P EJECT f P* t P* ~ " P* DEVICE WORK TABLE FOR DCTASK P* P* PDW2500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA
0x0fe924…0feab8 Dummy {f00=0x0050, f01=0x018e, f02=» | $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE 0 P* J P IFT MMUPAG=1 T P DATA 0 USER ECB ADDRESS j P DATA DC:ECB MMU ECB ADDRESS P XIF P* P DATA 0 TIMER POINTER ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE
0x0feab8…0fec4c Dummy {f00=0x0050, f01=0x018e, f02=» f P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE & P* L P IFT MMUPAG=1 V PDC:ECB EQU * MMU ECB l P DATA 0,0,0,0,0,0 P XIF P* P EJECT P* P* P* DC RECEIVE BUFFER POOL P* PRLIN
0x0fec4c…0fede0 Dummy {f00=0x0050, f01=0x0190, f02=» P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK . P RES RBUFL+3 D P IFF RBUFNR=4 X P DATA *+RLINK n P RES RBUFL+3 P XIF P DATA *+RLINK P RES RBUFL+3 P DATA 0 END OF CHAIN P RES RBUFL+3 P P I
0x0fede0…0fef74 (0, 323) Dummy {f00=0x0050, f01=0x0190, f02=» t P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 0 P ORKL A2,/F000 J P RF LOG10 ` PLOGOUT ST A2,SAVE2 r P ORKL A2,/0F00 P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3
0x0fef74…0ff108 Dummy {f00=0x0050, f01=0x0190, f02=»GEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3 . PLOGE10 RTN A5 B P EJECT X P* f P* p PLOGPNT DATA LOGSTA z PLOGSTA EQU * P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 P XIF P*
0x0ff108…0ff29c Dummy {f00=0x0050, f01=0x0190, f02=» L I N C O L P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* ^ > P********************************************************** h P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'
0x0ff29c…0ff430 Dummy {f00=0x0050, f01=0x0190, f02=» ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER 0 P RTN A5 RETURN X P* n P* x P* P EJECT P P* SCANDINAVIAN ALPHABET P DB PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /0
0x0ff430…0ff5c4 Dummy {f00=0x0050, f01=0x0190, f02=»/18-/1F r * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F > ( P DATA /3031,/3233,/3435,/3637 /30-37 l ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE P XIF P EJECT P PDC:IN DATA DC:TAB+2
0x0ff5c4…0ff758 Dummy {f00=0x0050, f01=0x4054, f02=»0,0,0,0,0,0,0,0,0,0 ~ PDC:END EQU * P* 0 P* : P END D@ PF,/3E3F /28-/2F > ( P DATA /3031,/3233,/3435,/3637 /30-37 l ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE P XIF P EJECT P PDC:IN DATA DC:TAB+2
0x0ff758…0ff8ec Dummy {f00=0x0050, f01=0x2008, f02=» H P X ` h p x
0x0ff8ec…0ffa80 Dummy {f00=0x0050, f01=0x0190, f02=» @ R t D J z B " P Q :A H &P P r8 H !@T I r@ T ! 1 U r< A ? W A ? W A ? W A ? W U R ; V * # T f R p # PJ P p RL P 4 ] P $ P
0x0ffa80…0ffc14 (0, 324) Opaque[0x194]
0x0ffc14…0ffda8 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a10, f03=0x0000}
0x0ffc14…0ffda8 IdxSect {
0x0ffc14…0ffda8 f00 = 0x0050 // 0xffc14 @0x0
0x0ffc14…0ffda8 f01 = 0x0024 // 0xffc16 @0x2
0x0ffc14…0ffda8 gno = [ // 0xffc18 @0x4
0x0ffc14…0ffda8 [0x00]: C0x0050.0x2.0
0x0ffc14…0ffda8 [0x01]: C0x0050.0x3.0
0x0ffc14…0ffda8 [0x02]: C0x0051.0x0.0
0x0ffc14…0ffda8 [0x03]: C0x0051.0x1.0
0x0ffc14…0ffda8 [0x04]: C0x0051.0x2.0
0x0ffc14…0ffda8 [0x05]: C0x0051.0x3.0
0x0ffc14…0ffda8 [0x06]: C0x0052.0x0.0
0x0ffc14…0ffda8 [0x07]: C0x0052.0x1.0
0x0ffc14…0ffda8 [0x08]: C0x0052.0x2.0
0x0ffc14…0ffda8 [0x09]: C0x0052.0x3.0
0x0ffc14…0ffda8 [0x0a]: C0x0053.0x0.0
0x0ffc14…0ffda8 [0x0b]: C0x0053.0x1.0
0x0ffc14…0ffda8 [0x0c]: C0x0053.0x2.0
0x0ffc14…0ffda8 [0x0d]: C0x0053.0x3.0
0x0ffc14…0ffda8 [0x0e]: C0x0054.0x0.0
0x0ffc14…0ffda8 [0x0f]: C0x0054.0x1.0
0x0ffc14…0ffda8 [0x10]: C0x0054.0x2.0
0x0ffc14…0ffda8 [0x11]: C0x0054.0x3.0
0x0ffc14…0ffda8 ]
0x0ffc14…0ffda8 }
0x0ffda8…0fff3c Dummy {f00=0x0050, f01=0x0190, f02=» 2 P IDENT SYSLOD REL 9.2 79-12-19 870105040920 P : " P =1,LRN ONE SECTOR TOO GREAT B P REL 9.2 79-12-19 ST h P P ENTRY SYSLOD P ENTRY SYSBAS P ENTRY NUMSEG P ENTRY PRGLG1 P***************************
0x0fff3c…1000d0 Dummy {f00=0x0050, f01=0x018e, f02=»* v P EXTRN CONVRT P EXTRN LDALEN P EXTRN FREQUE 6 P EXTRN INTLT1 L P EXTRN PAGQUE b P EXTRN REL x P EXTRN SCLASS P EXTRN SCTADA P EXTRN SCTANO P EXTRN SCTBLK P EXTRN SCTBUG P EXTRN SCTCDT
0x1000d0…100264 Dummy {f00=0x0050, f01=0x0190, f02=» P EXTRN SCTLAC P EXTRN SCTLAP P EXTRN SCTMMC 0 P EXTRN SCTMMP F P EXTRN SCTMSZ P EXTRN SCTNOS r P EXTRN SCTNOP P EXTRN SCTNPE P EXTRN SCTOPT P EXTRN SCTPAG P EXTRN SCTPLD P EXTRN SCTPSZ
0x100264…1003f8 Dummy {f00=0x0050, f01=0x0190, f02=» EJECT $ P EXTRN M:REL RELOCATION CONSTANT P EXTRN SAVE01 6 P EXTRN SAVE02 L P EXTRN SAVE03 b P EXTRN SAVE04 x P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09 P EXTRN SAVE1
0x1003f8…10058c Dummy {f00=0x0050, f01=0x0190, f02=» P EXTRN MMDDIV P EXTRN TABBE P EXTRN MMEND . P EXTRN MOVE B P V P ^ P* f P* CONDITIONAL ASSEMBLY p P* TEST=1 GIVES TEST VERSION P* PTEST EQU 0 P EJECT P P $ P********************
0x10058c…100720 Dummy {f00=0x0050, f01=0x0190, f02=» x PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS * . PTDBID EQU TDBNT+2 6A TASK ID SAVE09 VALUE V , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL
0x100720…1008b4 (0, 325) Dummy {f00=0x0050, f01=0x0190, f02=»ION z ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* 8 * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD B P* p P* COMMON DEVICE DEF. BLOCK: z PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDB
0x1008b4…100a48 Dummy {f00=0x0050, f01=0x0190, f02=»UDBBT+1 3A NUMBER OF UWB TYPES P* & ( PUDBFST EQU UDBNU+3 SAVE05 UDB-RECORD 0 PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS | . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH P**************** P* SOP-HANDLING * P****
0x100a48…100bdc Dummy {f00=0x0050, f01=0x0190, f02=» PLMP4 EQU /80 PLMP5 EQU /40 PLMP6 EQU /20 , PLMP7 EQU /10 @ PLMP8 EQU 8 T PLMP9 EQU 4 f PLMP10 EQU 2 x PLMP11 EQU 1 P EJECT P********************* P* OTHER CONSTANTS * P********************* P
0x100bdc…100d70 Dummy {f00=0x0050, f01=0x0190, f02=»ICAL PAGE SIZE z ( PCBLEN EQU 256 CASSETTE BUFFER LENGTH & PBLKLEN EQU 6 SEGMENT BLOCK LENGTH B & PPAGLG EQU 8 PAGE LENGTH IN S:GTAB l PPRGLG1 EQU 2 , PNCHTID EQU 5 NBR OF CHAR. IN TID RECORD $ PSWPFEL EQU 14 FILE EXTENT LENGTH P EJECT
0x100d70…100f04 Dummy {f00=0x0050, f01=0x0190, f02=»ASSETTE p PLOCK EQU /2 LOCK CASSETTE ( PSBOT EQU 8 SEARCH BEGINNING OF TAPE 2 ( PSTMF EQU /C SEARCH TAPEMARK FORWARD ^ P* " P* DISC/FLEXIBLE DISC HANDLING P* 4 PBUFLEN EQU 402 DISC/FLEXIBLE DISC BUFFER LENGTH 2 PRECLEN EQU 9
0x100f04…101098 Dummy {f00=0x0050, f01=0x0190, f02=»U /80CD 1:ST MUX WORD PQBLFAC EQU 9 BLOCKING FACTOR P* B P* DATA AREA DEFINITION L P* l PSYSBAS EQU * v 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS " PDEVTAB DATA /1909,/1101,/0828 $ PSWPTAB DATA '$S','WA','P ',' '
0x101098…10122c Dummy {f00=0x0050, f01=0x0190, f02=» A14,A13 * r F P* DATA [REL-ADDRESS] * , F P* * v F P*****************************************************************
0x10122c…1013c0 Dummy {f00=0x0050, f01=0x0190, f02=» Z : P* * : P* APPLICATION LOAD PART OF SYSLOD * F : P* =============================== * : P* * : P* ENTRY
0x1013c0…101554 (0, 326) Dummy {f00=0x0051, f01=0x0190, f02=»ICATION NUMBER * | < P* A9 - SAVE09 OF FREE AREA * * < P* A13 - MONITOR SAVE09 ADDRESS * j : P* * : P* EXIT:
0x101554…1016e8 Dummy {f00=0x0051, f01=0x0190, f02=» * d : P* LODSEG,REBUF,MOVBUF,RDBLK, * : P* CONLOD,CONEX,MOVREV * P : P* * : P******************************************************
0x1016e8…10187c Dummy {f00=0x0051, f01=0x0190, f02=»VE PROGRAM LOAD DEVICE $ P ST A3,SCTANO APPLICATION NUMBER * P ST A9,SCTSFA SAVE SAVE09 OF FREE AREA F P IFT TEST=1 t P LDKL A14,SYSBAS P LDR A13,P P ADKL A13,10 P LD A1,SCTBUG P ABR(NZ) A1 P XIF P EJECT
0x10187c…101a10 Dummy {f00=0x0051, f01=0x0190, f02=»E HANDLER (A13), STACK BASE (A14) t $ P* AND ADDRESS TO GETPSW-ROUTINE * P* R P LDR A8,P RETURN ADDRESS & P LDKL A3,REL+2 RELOCATION ROUTINE | P CFR A8,A3 $ P LDKL A5,/5555 LOAD TEST PATTERN P LDK A6,64 INIT PAGE COUNTER " P LD
0x101a10…101ba4 Dummy {f00=0x0051, f01=0x0190, f02=»R SYSTEMS WITH MMU OPTION EXCLUSIVELY | P* . " P SLL A6,2 UPPER SAVE20=256 KB 8 P LDK A1,0 MMU ENTRY POINTER ^ PAP:010 EQU * " P LD A2,TABBE GET PAGE ADDRESS 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS P ST A2,TABBE STORE IT
0x101ba4…101d38 Dummy {f00=0x0051, f01=0x0190, f02=» ( P CWR A2,A5 COMPARE WITH TEST PATTERN P RF(E) AP:200 0 ( P SUK A6,4 DECREMENT NUMBER OF PAGES F P RB AP:010 r P* D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY P* P EJECT PAP:100 EQU * P*
0x101d38…101ecc Dummy {f00=0x0051, f01=0x0190, f02=» & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT 2 " P STR A5,A1 STORE TEST PATTERN ^ P CWR* A5,A1 CHECK IF MEMORY " P RF(E) AP:120 MEMORY END FOUND 0 P SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES P RB AP
0x101ecc…102060 Dummy {f00=0x0051, f01=0x0190, f02=» OPTION EXCLUSIVELY ` P* P EJECT & P* 4 P* COMMON EXECUTION PATH > P* ^ PAP:200 EQU * h 0 P ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES | P* $ P* GET APPLICATION DISC ADDRESS P* P LD A11,SCTADA P*
0x102060…1021f4 (0, 327) Dummy {f00=0x0051, f01=0x0190, f02=»AVE * P LD A2,SCTPLD GET PROGRAM LOAD DEVICE P LDR A1,A2 SAVE : P* R P* CHECK PROGRAM LOAD MEDIUM P* " P ANK A2,/C0 CHECK IF CASSETTE P RF(P) AP:210 YES! , P ADKL A3,BUFLEN+8 NEW START OF FREE AREA P ST A3,SCTSFA
0x1021f4…102388 Dummy {f00=0x0051, f01=0x0190, f02=» P SRC A2,1 CHECK BIT 15 P RF(N) AP:220 FLEXIBLE DISC " P RF AP:230 DISC F PAP:210 EQU * ^ P* r & P* PROGRAM LOAD DEVICE = CASSETTE | P* * P ADKL A3,CBLEN NEW START OF FREE AREA P ST A3,SCTSFA SAVE * P LDKL A1,RDBLK G
0x102388…10251c Dummy {f00=0x0051, f01=0x0190, f02=»OCK n P LDR A1,A1 TAPE MARK? P RF(Z) AP:235 NO! * , P CF A14,CASSIN INIT APPLICATION CASSETTE D P RB AP:215 t P EJECT PAP:220 EQU * P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC P* P* 2 P* MODIFY SCTPLD: /F
0x10251c…1026b0 Dummy {f00=0x0051, f01=0x0190, f02=»NIT FLEXIBLE DISC P* P CF A14,FDINIT $ P* : , P* READ FIRST SECTOR FROM FLEXIBLE DISC D P* t P CF A14,FRDSEC ~ P RF AP:235 P EJECT PAP:230 EQU * P* " P* PROGRAM LOAD DEVICE = DISC P* P*
0x1026b0…102844 Dummy {f00=0x0051, f01=0x0190, f02=» A2,/F0 P ST A2,SCTPLD P* & P* INITIALIZE DISC COMMANDS 0 P* T P CF A14,DUINIT ^ P* t " P* READ FIRST SECTOR FROM DISC ~ P* P CF A14,RDSEC P EJECT PAP:235 EQU * P* P* COMMON EXECUTION PATH
0x102844…1029d8 Dummy {f00=0x0051, f01=0x0190, f02=».) ` P ST A6,SAVE09,A13 SAVE , P LD A6,2,A9 GET TOTAL NUMBER OF SECTORS ( P AD* A6,SCTADA X . P ST A6,SAVE11,A13 SAVE LAST SECTOR NUMBER n . P LD A6,COMLG,A9 GET LENGTH OF COMMON PART P ST A6,SAVE04,A13 SAVE ( P LD A3,PRGLG1+8,A9 GET P
0x1029d8…102b6c Dummy {f00=0x0051, f01=0x018e, f02=»,SCTPSZ SAVE 4 PAP2350 LD A5,SCTMSZ GET NUMBER OF PHYSICAL PAGES " P LD A1,SCTOPT GET OPTION WORD L P ANK A1,1 MMU IN SYSTEM? r P RF(Z) AP:240 NO! P EJECT P* 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION P* P LD
0x102b6c…102d00 Dummy {f00=0x0051, f01=0x0190, f02=» ( P CALL ERROR INDICATE PAGE SIZE ERROR PAP:236 EQU * 4 P SRL A3,2 LOGICAL PAGE SIZE H P SLL A5,8 MAP IT ON MMU l 2 P ANKL A5,/FC00 PAGE ADDRESS IN 6 LEFTMOST BITS P LDR A1,A5 SAVE P* " P* CHECK IF CREDIT APPLICATION
0x102d00…102e94 (0, 328) Dummy {f00=0x0051, f01=0x0190, f02=»ENTS f P ABL(Z) AP:330 NO SEGMENTS! P RF AP:245 0 P* B D P* END OF EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITH MMU OPTION L P* P EJECT PAP:240 EQU * P* @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION
0x102e94…103028 Dummy {f00=0x0051, f01=0x0190, f02=»CATION x P* P LD A2,PRGLG1+8,A9 P CWK A2,'CR' 2 P RF(NE) AP:275 NOT CREDIT F * P LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS h P RF(Z) AP:275 NO SEGMENTS! P EJECT PAP:245 EQU * P* P* COMMON EXECUTION PATH P*
0x103028…1031bc Dummy {f00=0x0051, f01=0x0190, f02=»! * P LD A4,SCTPLD GET PROGRAM LOAD DEVICE " P SUK A4,/F0 CHECK IF CASSETTE 8 0 P RF(N) AP:260 CASSETTE - LOAD ALL SEGMENTS! ^ P* , P* COMPUTE NUMBER OF CORE RESIDENT PAGES P* P CM SAVE05,A13 RESET COUNTER $ P LDR A6,A9 STA
0x1031bc…103350 Dummy {f00=0x0051, f01=0x0190, f02=»GET SEGMENT TYPE ( P CCK A4,'RR' CORE RESIDENT SEGMENT? ! P RF(NE) AP:255 NO! ! D 6 P IM SAVE05,A13 INCREMENT RESIDENT SEGMENT COUNTER ! ^ PAP:255 EQU * ! P SUK A2,1 MOORE SEGMENTS? ! P RB(NZ) AP:250 YES! ! 2 P LD A2,SAVE05,A13 NUMBER OF RE
0x103350…1034e4 Dummy {f00=0x0051, f01=0x0190, f02=» EQU * ! 0 P SUR A5,A3 DECREMENT PHYSICAL MEMORY ADDRESS " ( P SUK A2,1 DECREMENT NUMBER OF PAGES " B P RB(P) AP:265 " n 8 P ST A5,SAVE22,A13 SAVE PHYS.ADDRESS TO FIRST SEGMENT " PAP:270 EQU * " " P LD A2,SCTOPT GET OPTION WORD " P ANK A2,1 MMU
0x1034e4…103678 Dummy {f00=0x0051, f01=0x0190, f02=»CUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION " P* # > P ST A5,SAVE08,A13 # H PAP:275 EQU * # b P LDR A8,A5 # v . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART # & P ADKL A10,3 RESERV ONE EXTRA WORD # P ANKL A10,/FFFE # $ P SUR A8,A10
0x103678…10380c Dummy {f00=0x0051, f01=0x0190, f02=»:285 # PAP:280 CWR A8,A1 $ PAP:285 RF(G) AP:290 $ $ P LDKL A1,LMP3 $ @ P CALL ERROR MEMORY OVERFLOW! $ V PAP:290 EQU * $ z 4 P ST A8,SAVE07,A13 SAVE APPLLICATION LOAD-ADDRESS $ 4 P ST A8,SAVE01,A13 SAVE APPLICATION LOAD-ADDRESS $ P LDR A12,A
0x10380c…1039a0 Dummy {f00=0x0051, f01=0x0190, f02=» 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION % P* % : P LDR A4,A5 SAVE % D & P ANKL A5,/FC00 GET 6 LEFTMOST BITS % P LDR A6,A5 SAVE % , P SUR A4,A5 COMPUTE PHYSICAL DISPLACEMENT % P EJECT % P* % 4 P* STORE ADDRES(ES) TO PHYSICAL PA
0x1039a0…103b34 (0, 329) Dummy {f00=0x0051, f01=0x0190, f02=» POINTER % v PAP:295 EQU * & * P SUK A7,2 DECREMENT MMU ENTRY ADDRESS & $ * P SUKL A8,1 DECREMENT MMU ENTRY POINTER & R 2 P SUKL A3,/400 DECREMENT PHYSICAL PAGE ADDRESS & P RB(P) AP:295 & & P RF(Z) AP:300 EVEN 4K-BYTES PAGES & P* & 0 P* RESER
0x103b34…103cc8 Dummy {f00=0x0051, f01=0x0190, f02=» EQU * & . P LD A3,SCTNOP ANY CORE RESIDENT SEGMENTS? ' P RF(NZ) AP:302 YES! ' @ , P LDR A5,A1 GET ADDRESS TO END OF MEMORY ' P LDK A4,0 RESET PAGE SIZE ' P RF AP:310 ' < PAP:302 LDR A3,A7 SAVE MMU ENTRY ADDRESS TO LOGICAL PAGE ' PAP:305 E
0x103cc8…103e5c Dummy {f00=0x0051, f01=0x018e, f02=»LE? ' t P RF(E) AP:310 YES! ( 2 P ADKL A6,/400 INCREMENT PHYSICAL PAGE ADDRESS ( & P RB AP:305 ( PAP:310 EQU * ( n * P LDR A4,A4 ANY PHYSICAL DISPLACEMENT? ( P RF(NZ) AP:315 YES! ( , P SUKL A5,/400 NEXT PHYSICAL PAGE ADDRESS ( P* ( PAP
0x103e5c…103ff0 Dummy {f00=0x0051, f01=0x018e, f02=» P* ) P LDR A2,A8 GET MMU ENTRY ) & P SLL A2,12 MOVE TO 4 LEFTMOST BITS ) . , P ANKL A2,/F000 MMU ENTRY TO LOGICAL PAGE ) X P ST A2,SCTLAP SAVE ) P ADR A2,A4 ADD DISPLACEMENT ) P ST A2,SAVE08,A13 SAVE ) , P LDR A2,A8 GET MMU ENTRY FOR FIRST P
0x103ff0…104184 Dummy {f00=0x0051, f01=0x0190, f02=» & P* COMPUTE NUMBER OF PAGE ENTRIES * P* * . P LDKL A2,16 * 8 P SUR A2,A8 * L P ST A2,SCTNPE * ^ P RF AP:335 * t PAP:330 EQU * * P* * 8 P* THIS ENTRY IS ENTERED IF MMU OPTION IN SYSTEM BUT * > P* THE APPLICATION LOADED WAS UNSEGMENTE
0x104184…104318 Dummy {f00=0x0051, f01=0x0190, f02=»MEND END OF MMU TABLE * " P LDKL A8,16 MMU ENTRY POINTER + P EJECT + D PAP:335 EQU * + R P LDR A4,A4 ANY DISPLACEMENT? + f P RF(NZ) AP:337 + P LDKL A4,PAGSIZ + PAP:337 EQU * + P* + ( P* COMPUTE APPLICATION SAVE09 ADDRESS + P* +
0x104318…1044ac Dummy {f00=0x0051, f01=0x0190, f02=»Y ADDRESS + P* A8 - CURRENT MMU ENTRY , P* , 4 0 P LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART , > $ P ADK A2,3 RESERV ONE EXTRA WORD , r $ P ANKL A2,/FFFE MAKE EVEN LENGTH , P RF AP:344 , PAP:340 EQU * , L P* RESERV ENTRIES IN MMU TABLE F
0x1044ac…104640 Dummy {f00=0x0051, f01=0x018e, f02=» , n * P SUKL A8,1 DECREMENT MMU ENTRY POINTER - P RF(NN) AP:342 - 6 PAP:341 EQU * - L * P LDKL A1,LMP7 INDICATE TABBE OVERFLOW! - ` P CALL ERROR - PAP:342 EQU * - $ P SUK A1,1 DECREMENT PAGE POINTER - * P SUK A7,2 DECREMENT MMU ENTRY ADDRESS -
0x104640…1047d4 (0, 330) Dummy {f00=0x0052, f01=0x0190, f02=» - l P RF(NN) AP:345 NO! . P CWR A4,A2 . " P RF AP:348 . 4 PAP:345 EQU * . F P CWR A2,A4 . Z PAP:348 EQU * . l P RB(G) AP:340 . PAP:350 EQU * . P LDR A2,A2 . P RF(Z) AP:351 . P SUKL A8,1 . " P RB(N) AP:341 TABBE OVERFLOW! .
0x1047d4…104968 Dummy {f00=0x0052, f01=0x0190, f02=» A2,A8 GET MMU ENTRY . P SUKL A8,17 / P ADR A8,A8 BYTE DISPLACEMENT / 0 P ST A8,SCTMMC SAVE IN SYSTAB / T & P SLL A2,12 MOVE TO 4 LEFTMOST BITS / x P LDR A8,A2 / & P ADR A8,A4 COMPUTE LOGICAL ADDRESS / , P ST A8,SAVE07,A13 SAVE IN TEMPORARY AREA
0x104968…104afc Dummy {f00=0x0052, f01=0x0190, f02=» RF(Z) AP:353 NO! / P LDKL A1,0 UPPER LIMIT 64 KB 0 P RF AP:354 0 > PAP:353 EQU * 0 P $ P LDR* A1,A7 GET PHYSICAL ADDRESS 0 d P SLL A1,2 0 P ADR A1,A4 ADD DISPLACEMENT 0 ( P LD A2,SCTSFA GET START OF FREE AREA 0 ( P TNM A1,A2 ON SAME SIDE OF
0x104afc…104c90 Dummy {f00=0x0052, f01=0x018e, f02=»DKL A1,LMP3 0 P CALL ERROR MEMORY OVERFLOW 1 PAP:354 EQU * 1 8 P ST A1,SAVE01,A13 SAVE 1 L . P LD A10,COMLG,A9 LOAD COMLG OF COMMON PART 1 j P TL TABBE LOAD MMU REGISTERS 1 P* 1 : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION 1 P
0x104c90…104e24 Dummy {f00=0x0052, f01=0x0190, f02=» PAP:355 EQU * 2 & P LD A1,SCTEFA GET END OF FREE AREA 2 P SUK A1,1 MODIFY 2 B P ST A1,SCTEFA STORE 2 Z P ST A8,SCTLAC 2 v * P CF A14,LODCOM LOAD CORE RESIDENT PART 2 8 P LD A8,SAVE08,A13 GET LOGICAL ADDRESS TO FIRST PAGE 2 P* 2 " P* CHECK
0x104e24…104fb8 Dummy {f00=0x0052, f01=0x018e, f02=» CALL GETCON GET CONTENT 2 P CWK A1,'CR' CREDIT? 3 P RF(NE) CONLOD NOT CREDIT! 3 < $ P LD A1,SCTNOS NUMBER OF SEGMENTS 3 ^ P RF(Z) CONLOD NO SEGMENTS! 3 6 P SUR A12,A12 RELOCATION BASE = ZERO FOR SEGMENTS 3 " P LD A1,SCTOPT GET OPTION WORD 3 P
0x104fb8…10514c Dummy {f00=0x0052, f01=0x0190, f02=» & P* READ AND RELOCATE THE SEGMENTS 4 P* 4 . . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT 4 8 P* A10 - SEGMENT LENGTH 4 j P* A12 - RELOCATION BASE 4 P* 4 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO APPLICATION 4 P ADKL A2,BLKLEN+BLKLEN 4 *
0x10514c…1052e0 Dummy {f00=0x0052, f01=0x0190, f02=»CREMENT BLOCK COUNTER 4 P RB AP:365 5 PAP:370 EQU * 5 0 P* 5 D P* CHECK IF DISC PAGING 5 N P* 5 n " P LD A1,SCTOPT GET OPTION WORD 5 x P ANK A1,2 DISC PAGING? 5 P RF(Z) AP:376 NO! 5 P* 5 & P* CHECK IF CORE RESIDENT SEGMENT 5
0x1052e0…105474 (0, 331) Dummy {f00=0x0052, f01=0x0190, f02=» P* 6 * P* BYPASS THIS SEGMENT AND CHECK NEXT 6 P* 6 < * P LD A1,SAVE06,A13 GET SEGMENT COUNTER 6 F . P LD A2,SCTNOS GET TOTAL NUMBER OF SEGMENTS 6 t P ADK A1,1 INCREMENT 6 P CWR A1,A2 LAST SEGMENT? 6 P RF(E) CONLOD YES! 6 2 P ST A1,SAVE0
0x105474…105608 Dummy {f00=0x0052, f01=0x0190, f02=»L GETCON GET DISC SECTOR ADDRESS 6 P LDR A11,A1 SAVE 7 ( . P AD A11,SCTADA ADD START ADDRESS #79-01-03 7 @ PAP:378 EQU * 7 r P ADK A2,2 SEGMENT LENGTH 7 $ P CALL GETCON GET SEGMENT LENGTH 7 P LDR A10,A1 SAVE 7 P ADKL A10,1 7 $ P ANKL A10,/FFF
0x105608…10579c Dummy {f00=0x0052, f01=0x0190, f02=»D A2,SCTNOS GET TOTAL NUMBER OF SEGMENTS 7 ( P ADK A1,1 INCREMENT SEGMENT COUNTER 8 0 $ P CWR A1,A2 ALL SEGMENTS LOADED? 8 P RF(E) CONLOD YES! 8 , P ST A1,SAVE06,A13 STORE SEGMENT COUNTER 8 " P LD A4,SCTPSZ GET PAGE LENGTH 8 " P LD A1,SCTOPT GET OP
0x10579c…105930 Dummy {f00=0x0052, f01=0x0190, f02=» 8 P EJECT 9 PAP:379 EQU * 9 P LDR A1,A4 SAVE 9 * . P ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT 9 B " P RF(Z) AP:380 NO DISCRIMINANT! 9 t 4 P ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE 9 P LDR A4,A1 SAVE 9 . P ANKL A4,/0C00 GET MODULO 4K D
0x105930…105ac4 Dummy {f00=0x0052, f01=0x018e, f02=» COMPUTE PHYSICAL INCREMENT 9 PAP:380 EQU * : $ , P LD A8,SCTLAP GET LOGICAL PAGE ADDRESSE : 8 $ P ANKL A8,/F000 SKIP DISPLACEMENT : h P LDR A2,A8 SAVE : 4 P ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE : ( P SRL A2,12 MOVE TO 4 RIGHTMOST BITS :
0x105ac4…105c58 Dummy {f00=0x0052, f01=0x0190, f02=» : | * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU ; PAP:385 EQU * ; 6 , P ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE ; J P ADK A2,2 NEXT MMU ENTRY ; z P CWR A2,A3 ; P RB(NE) AP:385 ; & P TL MMDDIV,A13 LOAD MMU REGISTERS ; P RB AP:360 ; P EJECT ;
0x105c58…105dec Dummy {f00=0x0052, f01=0x0190, f02=»* LOAD CONFIGURATION PART OF SYSLOD * ; > P* ================================= * < B > P* * < > P* ENTRY: A9 - BUFFER ADDRESS * < > P
0x105dec…105f80 Dummy {f00=0x0052, f01=0x0190, f02=» * < > P* SUBROUTINES: CASSIN,RDBLK,MOVBUF * = > > P* * = > P********************************************************** = PCONL
0x105f80…106114 (0, 332) Dummy {f00=0x0052, f01=0x0190, f02=»* = & P* PROGRAM LOAD DEVICE = CASSETTE > P* > 4 PCON:30 EQU * > > P LDR A1,A9 START OF BUFFER > R P ADKL A1,CBLEN > t 4 P ST A1,SAVE03,A13 SAVE POINTER TO END OF BUFFER > P ST A1,SAVE08,A13 > P CF A14,RDBLK READ ONE BLOCK > " P CF A14,
0x106114…1062a8 Dummy {f00=0x0052, f01=0x0190, f02=»N:40 EQU * > " P CF A14,RDBLK READ NEXT BLOCK ? P LDR A1,A1 TAPEMARK? ? 8 P RF(NZ) CONEX YES! ? T PCON:50 EQU * ? n P* ? 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK ? P* ? 4 P LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER ? P LDR
0x1062a8…10643c Dummy {f00=0x0052, f01=0x0190, f02=» CHARACTER IN BUFFER ? P CCK A5,';;' CHECK IF SPACE @ & P RF(E) CON:70 NO MOORE CHARACTERS @ @ PCON:65 EQU * @ j P CWK A3,CBLEN END OF BUFFER? @ ~ P RF(E) CON:75 YES! @ & P CW A1,SAVE01,A13 MEMORY OVERFLOW? @ P RF(E) MEMOFL YES! @ , P ADK A1,
0x10643c…1065d0 Dummy {f00=0x0052, f01=0x0190, f02=»60 @ PCON:70 EQU * A " P LC A5,1,A4 GET NEXT CHARACTER A " P CCK A5,';;' TWO SEMI-COLONS? A D P RF(NE) CON:75 NO! A j * P CWK A3,NCHTID CHECK IF END OF RECORD A 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD A PCON:75 EQU * A . P ST A1,SAV
0x1065d0…106764 Dummy {f00=0x0052, f01=0x0190, f02=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW A P CALL ERROR B . PCONEX EQU * B B P* B V > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE B ` P* B " P CF A14,RDBLK READ NEXT BLOCK B P LDR A1,A1 APPLICATION DATA? B P RF(NZ) CON:80 NO!
0x106764…1068f8 Dummy {f00=0x0052, f01=0x0190, f02=»QU * B P LDK A1,/F C " P CF A14,CHCRIO UNLOAD CASSETTE C PCON:90 EQU * C D P ABL CONMOV C X P EJECT C l PCONRAD EQU * C z P* C 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC C P* C * P CF A14,GETFIL GET CONFIGURATION FILE C "
0x1068f8…106a8c Dummy {f00=0x0052, f01=0x0190, f02=»ART OF SAVE BUFFER =2 C P ST A1,SAVE03,A13 SAVE =2 D $ P LDKL A10,0 RESET RECORD COUNTER D @ PCOR:10 EQU * D h P* D | 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE D P* D P CF A14,READS READ SECTOR D PREADS EQU *-2 D " P LDR A8,A9 G
0x106a8c…106c20 Dummy {f00=0x0052, f01=0x0190, f02=»3 GET CURRENT POINTER IN BUFFER D P LDR A2,A1 SAVE E ( & P LDK A3,0 RESET CHARACTER COUNTER E @ P LDR A4,A8 START OF RECORD E j PCOR:30 EQU * E P LCR A5,A4 GET CHARACTER E P CCK A5,';;' END OF RECORD? E P RF(E) COR:40 YES! E PCOR:35 EQU
0x106c20…106db4 (0, 333) Dummy {f00=0x0052, f01=0x0190, f02=»L YES! E & P ADK A1,1 INCREMENT BUFFER POINTER F * P ADK A3,1 INCREMENT CHARACTER COUNTER F 8 & P ADK A4,1 INCREMENT RECORD POINTER F f P RB COR:30 LOOP F PCOR:40 EQU * F " P LC A5,1,A4 GET NEXT CHARACTER F P CCK A5,';;' TWO SEMICOLONS? F P R
0x106db4…106f48 Dummy {f00=0x0052, f01=0x0190, f02=» * F . P ST A1,SAVE03,A13 SAVE CURRENT DESTINATION G P LDR A1,A8 START OF RECORD G < P CALL MOVE G ^ ( P ADKL A10,1 INCREMENT RECORD COUNTER G p " P CW A10,SAVE20,A13 LAST RECORD G P RF(E) COR:50 YES! G . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER G
0x106f48…1070dc Dummy {f00=0x0052, f01=0x0190, f02=»3,'S' G & P SC A3,GET:25+1 MODIFY INSTRUCTION H & P SC A3,GET:60+1 MODIFY INSTRUCTION H 8 P CF A14,GETFIL H b P* H x P* UNLOCK FLEXIBLE DISC H P* H " P LD A1,SCTPLD GET LOAD DEVICE H P SUK A1,/F8 CHECK TYPE H $ P RF(N) COR:60 NOT FLEXIB
0x1070dc…107270 Dummy {f00=0x0052, f01=0x0190, f02=»NLOCK ORDER H P EX FRD:10 EXECUTE COMMAND I $ P RB(NA) *-4 LOOP UNTIL ACCEPTED I 6 P EX FRD:40 SENSE STATUS I ^ $ P RB(NA) *-4 LOOP UNTIL ACCEPTED I ~ PCOR:60 EQU * I P EJECT I PCONMOV EQU * I P* I 4 P* MOVE CONFIGURATION DATA TO END
0x107270…107404 Dummy {f00=0x0052, f01=0x0190, f02=» SUK A3,/F0 CASSETTE? I P RF(N) CMOV10 YES! J " P ADK A1,8 START OF SAVE BUFFER J 8 : PCMOV10 LD A3,SAVE03,A13 GET END OF CONFIGURATION DATA J ^ , P LD A2,SAVE01,A13 GET END OF SYSTEM AREA J * P CM -2,A2 MAKE SURE CONFIGURATION FILE J " P SUK A2,1 IS F
0x107404…107598 Dummy {f00=0x0052, f01=0x0190, f02=»AKE EVEN ADDRESS J P CALL MOVE K 6 P ST A2,SAVE01,A13 SAVE START OF CONFIGURATION DATA K * & P LDR A1,A9 GET START OF FREE AREA K d P LDR A12,A2 END OF FREE AREA K $ P SUR A12,A1 SUBTRACT MONITOR END K . P ST A12,M:REL,A13 SAVE RELOCATION CONSTANT K
0x107598…10772c Dummy {f00=0x0052, f01=0x0190, f02=»O SUK A1,2 K P SUK A2,2 L P LDR* A4,A1 L $ P STR A4,A2 L 8 P CWR A1,A13 L J P RB(NE) MOPRO L ^ * P LDR A1,A2 SAVE NEW LOCATION OF SYSLDA L t " P AD A2,LDALEN,A2 BYPASS SYSLDA L ( P ABR A2 CONTINUE EXECUTION IN SYSLDM L P EJECT L L P******
0x10772c…1078c0 Dummy {f00=0x0052, f01=0x0190, f02=»NG PHASE O L R L P************************************************************************ M $ P******************************* M b $ P* SOPIN - READ SOP SWITCHES * M $ P* ========================= * M $ P* * M $ P* ENT
0x1078c0…107a54 (0, 334) Dummy {f00=0x0053, f01=0x0190, f02=»CH 1 * M z $ P* BIT 15 - SWITCH 10 * N $ P* * N : $ P* WORK REGISTERS: A1 * N b $ P* * N $ P* SUBROUTINES: * N $ P* * N $ P******
0x107a54…107be8 Dummy {f00=0x0053, f01=0x0190, f02=»JECT N < P******************************************************* O < P* CASSIN - CASSETTE INITIATING ROUTINE * O L < P* ==================================== * O < P* * O
0x107be8…107d7c Dummy {f00=0x0053, f01=0x0190, f02=»NTRY: * O < P* * P < < P* EXIT: * P | < P* * P < P* WORK REGI
0x107d7c…107f10 Dummy {f00=0x0053, f01=0x0190, f02=»IN,CHCRIO * P | < P* * Q , < P******************************************************* Q l PCASSIN EQU * Q P LDK A1,/F Q " P CF A14,CHCRIO UNLOAD CASSETTE Q 2 P LDKL A3,LMP1+LM
0x107f10…1080a4 Dummy {f00=0x0053, f01=0x018e, f02=»TCHES? Q v P RB(Z) CAS:10 NO! R & P LDKL A3,LMP1 SWITCH ON LOAD LAMP R ( P OTR A3,0,SOP R R P SRL A1,8 RIGHT ALIGN R h P ANK A1,1 SELECT UNIT R P CF A14,CHCRIO SELECT UNIT R P LDK A1,LOCK R P CF A14,CHCRIO LOCK CASSETTE R P ANK A3,1
0x1080a4…108238 Dummy {f00=0x0053, f01=0x0190, f02=» R * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD S P RTN A14 S 6 P EJECT S F 2 P********************************************* S T 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * S 2 P* ======================================= * S 2 P*
0x108238…1083cc Dummy {f00=0x0053, f01=0x0190, f02=» S b 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * T 2 P* * T > 2 P* EXIT: * T t 2 P* * T 2 P* WORK REGISTERS: A1,A3
0x1083cc…108560 Dummy {f00=0x0053, f01=0x0190, f02=» * T 2 P********************************************* U ( PCHCRIO EQU * U ^ P CIO A1,1,CHCR U r P SST A3,CHCR U P RB(NA) CHCRIO U P RTN A14 U P EJECT U 6 P************************************************** U 6
0x108560…1086f4 (0, 335) Dummy {f00=0x0053, f01=0x0190, f02=»====================== * U ~ 6 P* * V ( 6 P* REFERENCED IN: SYSLOD * V b 6 P* * V 6 P* ENTRY: A9 - CASSETTE BUFFER POINTER *
0x1086f4…108888 Dummy {f00=0x0053, f01=0x0190, f02=» * V : P* WORK REGISTERS: A1,A2,A3,A4,A5 * W . 6 P* * W l 6 P* SUBROUTINES: * W 6 P****************************************
0x108888…108a1c Dummy {f00=0x0053, f01=0x0190, f02=»R COUNTER W x $ P LDR A4,A3 SAVE SAVE09 OF BUFFER X P ADKL A3,CBLEN END OF BUFFER X : P LDK A1,/A X ^ P CIO A1,1,CHCR READ BLOCK X p P RF(NA) RDERR3 X PRDB:20 EQU * X P INR A1,0,CHCR X P RF(NA) RDB:30 X P CWR A4,A3 END OF BUFFER? X
0x108a1c…108bb0 Dummy {f00=0x0053, f01=0x0190, f02=»OINTER X t PRDB:30 EQU * Y P SST A1,CHCR Y " P RB(NA) RDB:20 Y 8 P ANKL A1,/FCFF CHECK STATUS Y N P LDR A4,A1 SAVE STATUS Y r P RF(Z) RDBEX OK Y P SLC A4,3 CHECK IF TAPEMARK Y P RF(N) RDBEX OK IF TAPEMARK Y PRDERR EQU * Y P* Y
0x108bb0…108d44 Dummy {f00=0x0053, f01=0x0190, f02=»* Y P ADK A5,1 NEXT ATTEMPT Z P CWK A5,3 THIRD ATTEMPT? Z ( P RF(E) RDERR3 YES - GIVE UP! Z H P LDK A1,/E REVERSE ONE BLOCK Z l P CIO A1,1,CHCR EXECUTE ORDER Z $ P RB(NA) *-2 LOOP UNTIL ACCEPTED Z P RB RDB:10 Z PRDERR3 EQU * Z P LDKL
0x108d44…108ed8 Dummy {f00=0x0053, f01=0x0190, f02=» * Z ( #* DUINIT - INITIALIZE DISC UNIT * [ & ( #* ============================= * [ R ( #* * [ ~ ( #* REFERENCED IN: SYSLOD,GETFIL * [ ( #* * [ ( #* ENT
0x108ed8…10906c Dummy {f00=0x0053, f01=0x0190, f02=» * [ ( #* WORK REGISTERS: A2 * " ( #* * N ( #* SUBROUTINES: * z ( #* * ( #*********************************** DUINIT EQU
0x10906c…109200 Dummy {f00=0x0053, f01=0x0190, f02=» x ( $ ST A2,READS READ CONFIGURATION DATA ] $ ST A2,READVL READ VOLUME LABEL ] 4 * % ST A2,READCF READ CONFIGURATION DATA ] * ] * INIT DISC COMMANDS ] * ] ADS A1,RDS:10 ] ADS A1,RDS:20 ] ADS A1,RDS:60 ] ADS A1,RD
0x109200…109394 (0, 336) Dummy {f00=0x0053, f01=0x0190, f02=» * ] j 4 /* RDSEC - READ ONE SECTOR FROM DISC * ^ 4 /* ================================= * ^ J 4 /* * ^ 4 /* REFERENCED IN: SYSLOD * ^ 4 /*
0x109394…109528 Dummy {f00=0x0053, f01=0x018e, f02=»* ^ b 4 /* A11 - SECTOR NUMBER * _ 4 /* * _ B 4 /* EXIT: * _ z 4 /* * _ 4 /* WORK REGISTERS: A1,A2
0x109528…1096bc Dummy {f00=0x0053, f01=0x0190, f02=» 4 /* * ` 4 /*********************************************** ` < RDSEC EQU * ` t * ` 0 ,* DERIVE CYLINDER NUMBER FROM SECTOR NUMBER ` * ` " LDR A1,A11 GET SECTOR NUMBER ` * & SRL A1,5 CYLINDER
0x1096bc…109850 Dummy {f00=0x0053, f01=0x0190, f02=»SEEK COMMAND ` ~ $ RB(NA) *-2 LOOP UNTIL ACCEPTED a P* a < P* CHECK STATUS a F P* a ^ PRDS:20 SST A1,0 SENSE STATUS a h & P RB(NA) RDS:20 LOOP UNTIL ACCEPTED a * a & !* COMPUTE PHYSICAL SECTOR NUMBER a * a ( #RDS:30 LDR A2,A11 GE
0x109850…1099e4 Dummy {f00=0x0053, f01=0x0190, f02=»1,/F a ADR A1,A2 b SLL A1,2 b * b 0 * INIT MUX WORDS b : * b T & " LDKL A2,MUXCC LOAD FIRST MUX WORD b ^ RDS:40 WER A2,/10 WRITE b & ! LD A2,MXBUF LOAD SECOND MUX WORD b RDS:50 WER A2,/10+1 WRITE b " RDS:60 CIO A1,1,0 RE
0x1099e4…109b78 Dummy {f00=0x0053, f01=0x0190, f02=» ANK A1,/1F GET 5 RIGHTMOST BITS b * & RB(NZ) RDS:30 LOOP UNTIL CORRECT READ c ( ( $ ADKL A11,1 INCREMENT SECTOR COUNTER c V RTN A14 c EJECT c 4 0************************************************ c 4 0* *
0x109b78…109d0c Dummy {f00=0x0053, f01=0x0190, f02=» * c 4 0* REFERENCED IN: SYSLOD,GETFIL * d ( 4 0* * d ` 4 0* ENTRY: A1 - DEVICE ADDRESS * d 4 0* * d 4 0
0x109d0c…109ea0 Dummy {f00=0x0053, f01=0x0190, f02=» * d x 4 0* * e 4 0* SUBROUTINES: * e X 4 0* * e 4 0************************************************ e FDINIT E
0x109ea0…10a034 (0, 337) Dummy {f00=0x0053, f01=0x0190, f02=»DCF e * f " * INIT FLEXIBLE DISC COMMANDS f * f < , ' ORS A1,FRD:10 MODIFY READ SECTOR ORDER f F ANK A1,8 PROGRAMMED CHANNEL f v RF(NZ) FDI:10 YES! f * % LDKL A1,/0511 NOT PROGRAMMED CHANNEL f ( $ ST A1,FRD:20 MODIFY INR INSTRUCTION
0x10a034…10a1c8 Dummy {f00=0x0053, f01=0x0190, f02=»1,FDCU SENSE STATUS f RB(NA) *-2 g & ! ANK A1,1 FLEXIBLE DISC OPERABLE? g 0 RB(NZ) FDI:10 NO! g Z RTN A14 g t EJECT g @ ;*********************************************************** g @ ;*
0x10a1c8…10a35c Dummy {f00=0x0053, f01=0x0190, f02=» * g ^ @ ;* * h @ ;* REFERENCED IN: SYSLOD * h V @ ;* * h @ ;* ENTRY: A9 - BUFFER ADDRESS
0x10a35c…10a4f0 Dummy {f00=0x0053, f01=0x0190, f02=» * h f @ ;* EXIT: * i @ ;* * i ^ @ ;* WORK REGISTERS: A1,A2,A3 * i @ ;*
0x10a4f0…10a684 Dummy {f00=0x0053, f01=0x0190, f02=» * i n @ ;*********************************************************** j " FRDSEC EQU * j f " LDR A1,A11 GET SECTOR NUMBER j z SLL A1,5 j ORKL A1,/C000 j & ! LDKL A2,MUXCC LOAD 1:ST MUX WORD j $ LD A3,MXBUF LOAD 2:ND
0x10a684…10a818 Dummy {f00=0x0053, f01=0x0190, f02=» ADKL A3,BUFLEN BUFFER END j $ FRD:10 CIO A1,1,FDCU START READ k " & " RB(NA) FRD:10 LOOP UNTIL ACCEPTED k J 4 /FRD:20 INR A1,0,FDCU GET CHAR - MODIFIED IF MUX k t & " RF(NA) FRD:40 LOOP UNTIL ACCEPTED k STR A1,A2 STORE CHARACTER k & " ADK A2,2 INCREM
0x10a818…10a9ac Dummy {f00=0x0053, f01=0x0190, f02=»20 k $ FRD:40 SST A1,FDCU SENSE STATUS l & " RB(NA) FRD:20 LOOP UNTIL ACCEPTED l 2 P ANKL A1,/4E15 FATAL ERROR? l RF(NZ) FRD:50 YES! l ( P ADKL A11,1 INCREMENT SECTOR ADDRESS l RTN A14 l FRD:50 LDKL A1,LMP2 l CALL ERROR l
0x10a9ac…10ab40 Dummy {f00=0x0053, f01=0x0190, f02=» GETFIL - GET CONFIGURATION FILE * l 8 3* =============================== * m : 8 3* * m v 8 3* REFERENCED IN: SYSLOD * m 8 3*
0x10ab40…10acd4 (0, 338) Dummy {f00=0x0054, f01=0x0190, f02=» * m f 8 3* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * n 8 3* * n N 8 3* WORK REGISTERS: A1,A4,A5,A6,A7,A8,A10 * n 8 3* * n 8 3* SUB
0x10acd4…10ae68 Dummy {f00=0x0054, f01=0x0190, f02=»***************************** n z GETFIL EQU * o & LDKL A11,0 VOLUME LABEL o : $ CF A14,READVL GET VOLUME LABEL o Z READVL EQU *-2 o LD A10,10,A9 GET VTOC BASE o LDR A11,A10 SAVE o " AD A10,6,A9 LAST VTOC SECTOR o ( # LD A8,12,A9
0x10ae68…10affc Dummy {f00=0x0054, f01=0x0190, f02=»CF EQU *-2 o " LDK A7,QBLFAC BLOCKING FACTOR p " LDR A6,A9 GET START OF BUFFER p 8 GET:20 EQU * p ^ P LDK A5,/20 LOAD SPACE p r P CCR A5,A6 UNUSED FILE? p P RF(E) GET:50 YES! p LDR A4,A6 START OF RECORD p ( P LDK A5,'S' STANDARD FILE CH
0x10affc…10b190 Dummy {f00=0x0054, f01=0x0190, f02=»ONFIGURATION FILE? p RF(NE) GET:50 NO! q 2 PGET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED q 4 ( P CCK A3,'CC' LOOKING FOR CONF. FILE? q j P RF(NE) GET:85 NO! q ADK A4,5 SIXTH CHARACTER q , P LDK A5,':' CHARACTER TO PRECEED NUMBER q ( $GET:30
0x10b190…10b324 Dummy {f00=0x0054, f01=0x0190, f02=»F(E) GET:50 YES! q RB GET:30 r GET:40 EQU * r * * r > * CHECK APPLICATION NUMBER r H * r l LC A5,1,A4 GET LEFT DIGIT r v SLL A5,8 SHIFT TO LEFT BYTE r LC A5,2,A4 GET RIGHT DIGIT r " CALL CONVRT CONVERT TO BINARY r , ( C
0x10b324…10b4b8 Dummy {f00=0x0054, f01=0x0190, f02=» LAST RECORD NUMBER r ST A1,SAVE20,A13 SAVE s LD A11,18,A6 SECTOR ADDRESS s : RTN A14 s ^ GET:50 EQU * s n ADR A6,A8 NEXT VTOC RECORD s & ! ADK A6,1 BYPASS STATUS CHARACTER s , ' SUK A7,1 MOORE RECORDS IN THIS SECTOR? s RB(P) G
0x10b4b8…10b64c Dummy {f00=0x0054, f01=0x0190, f02=» CCK A3,'CC' LOOKING FOR CONF. FILE? s P RF(NE) GET:99 NO! t , * t F : 6* CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT t P * %* LOAD MEDIUM FOR CONFIGURATION FILE t * t LDKL A2,/01F8 t & ! OTR A2,0,SOP SWITCH ON SOP LAMPS t GE
0x10b64c…10b7e0 Dummy {f00=0x0054, f01=0x018e, f02=»SOP SWITCH ON LOAD LAMP t SRN A1,A2 u ( # LD A1,DEVTAB,A2 GET DEVICE ADDRESS u 2 CWK A2,5 DISC? u ^ RF(G) GET:80 YES! u v & ! CF A14,FDINIT INIT FLEXIBLE DISC u RB GETFIL u GET:80 EQU * u CF A14,DUINIT INIT DISC u RB GETF
0x10b7e0…10b974 (0, 339) Dummy {f00=0x0054, f01=0x018e, f02=» * PGET:90 LCR A1,A4 GET CHAR IN FILENAME v . P CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. v 2 P RB(NE) GET:50 NO! v d P ADK A4,1 NEXT CHARACTER v ~ * P ADK A5,1 INCREMENT CHARACTER COUNTER v & P CWK A5,8 ALL CHARACTERS CHECKED? v P RB(NE) GET:90 NO!
0x10b974…10bb08 Dummy {f00=0x0054, f01=0x0190, f02=» v l P ST A1,SCTSWB SAVE IN SYSTAB w * P LD A3,SWPFEL,A6 GET LENGTH IN SECTORS w , ( P ADR A3,A1 LAST SECTOR IN SWAPP-FILE w Z P ST A3,SAVE25,A13 SAVE w PGET:99 RTN A14 w P EJECT w : P***************************************************** w : P*
0x10bb08…10bc9c Dummy {f00=0x0054, f01=0x0190, f02=»==================================== * w : P* * x 0 : P* LODSEG - LOAD ONE SEGMENT * x n : P* ========================= * x : P*
0x10bc9c…10be30 Dummy {f00=0x0054, f01=0x0190, f02=» * x f : P* A12 - RELOCATION BASE * y : P* * y R : P* EXIT: * y : P* * y
0x10be30…10bfc4 Dummy {f00=0x0054, f01=0x0190, f02=»UTINES: MOVE,READ * y : P* * z 6 : P***************************************************** z t PLODCOM EQU * z $ P LDR A3,A9 GET SAVE09 OF BUFFER z P LDR A2,A3 SAVE z * P L
0x10bfc4…10c158 Dummy {f00=0x0054, f01=0x018e, f02=» & P LDKL A7,376 NUMBER OF CODE WORDS { PLOD:10 EQU *-2 { . P RF LOD:30 { D PLOD:20 EQU * { V & P LDKL A7,240 NUMBER OF CODE WORDS { j PLOD:30 EQU * { P LDR A10,A10 APP >32 KB? { P RF(NN) LOD:40 NO! { P SUR A10,A7 DEC. LENGTH { P RF LO
0x10c158…10c2ec Dummy {f00=0x0054, f01=0x0190, f02=» { x P RF(E) LOD:45 YES! | " P CWK A7,400 200 WORDS/SECTOR? | " P RF(E) LOD:42 YES! | H ( P ADR A2,A7 START OF RELOCATION TABLE | b P CF A14,REBUF RELOCATE CODE | PLOD:42 EQU * | , P ADR A7,A10 COMPUTE NUMBER OF CODE WORDS | ( P LDKL A10,0 INDICA
0x10c2ec…10c480 Dummy {f00=0x0054, f01=0x0190, f02=»TE END OF SEGMENT | ~ PLOD:50 EQU * } " P CWK A7,400 200 WORDS/SECTOR? } . P RF(E) LOD:52 YES! } T ( P ADR A2,A7 START OF RELOCATION BITS } n 0 P CWK A7,240 APPLICATION<ONE CASSETTE BLOCK? } P RF(NL) LOD:51 NO } * P LD A4,SAVE12,A13 FIRST CASSETTE
0x10c480…10c614 (0, 340) Dummy {f00=0x0054, f01=0x0190, f02=»52 EQU * } " P LDR A1,A9 START OF CODE PART ~ * P LD A4,SAVE12,A13 FIRST SECTOR/BLOCK? ~ 6 P RF(NZ) LOD:55 NO! ~ d 2 P IM SAVE12,A13 INDICATE NOT FIRST SECTOR/BLOCK ~ ~ 0 P ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK ~ 0 P CWK A10,0 COMMON PART <= ONE SE
0x10c614…10c7a8 Dummy {f00=0x0054, f01=0x0190, f02=»DR A3,A7 NUMBER OF CHARACTERS TO MOVE ~ $ P LD A2,SAVE07,A13 GET TO-ADDRESS . , P ADS A3,SAVE07,A13 UPDATE MEMORY ADDRESS V " P LD A4,SCTOPT GET OPTION WORD P ANK A4,1 MMU IN SYSTEM? P RF(Z) LOD:60 NO! $ P MVSU A3 MOVE TABLE FROM SYSTEM
0x10c7a8…10c93c Dummy {f00=0x0054, f01=0x0190, f02=» P RTN A14 EXIT PLODSEG EQU * ( P LDKL A1,400 NUMBER OF WORDS/SECTOR . $ P ST A1,LOD:10 MODIFY INSTRUCTION Z PLOD:70 EQU * P CF A14,READ PREAD EQU *-2 P RB LODCOM P EJECT 6 P******************************************
0x10c93c…10cad0 Dummy {f00=0x0054, f01=0x018e, f02=» =============================== * 6 P* * 6 6 P* REFERENCED IN: LODCOM/LODSEG * p 6 P* * 6 P* ENTRY: A3 - SAVE09 OF BUFFER
0x10cad0…10cc64 Dummy {f00=0x0054, f01=0x0190, f02=» 6 P* EXIT: * 6 P* * > 6 P* WORK REGISTERS: A1,A4,A5,A6 * x 6 P* * 6 P* SUBROUTINES:
0x10cc64…10cdf8 Dummy {f00=0x0054, f01=0x018e, f02=»* ` PREBUF EQU * . P LDR A4,A2 GET SAVE09 OPF RELOCATION TABLE P SUK A4,2 P PREB:10 EQU * b " P ADK A4,2 NEXT RELOCATION WORD v ( P LDK A6,16 NUMBER OF RELOCATION BITS $ P LDR* A1,A4 GET RELOCATION WORD PREB:20 EQU * , P RF(
0x10cdf8…10cf8c Dummy {f00=0x0054, f01=0x0190, f02=» PREB:30 EQU * P ADK A3,2 NEXT CODE WORD & P CWR A3,A2 END OF CODE WORD PART? 8 P RF(E) EXREL YES! b $ P SUK A6,1 MOORE RELOCATION BITS? | P RB(Z) REB:10 NO! " P SLL A1,1 NEXT RELOCATION BIT P RB REB:20 PEXREL EQU *
0x10cf8c…10d120 Dummy {f00=0x0054, f01=0x0190, f02=»************************************* * . * REFERENCED IN: SEGGEN 8 * Z " * ENTRY: A2 - MEMORY ADDRESS d . )* MMUOPT - MMU OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK
0x10d120…10d2b4 (0, 341) Dummy {f00=0x0054, f01=0x40b8, f02=»TION P RF(Z) GCON10 NO MMU ELR A1,A2 ( P RF GCON20 : PGCON10 EQU * L LDR* A1,A2 ` PGCON20 EQU * t RTN A14 RETURN P END SYSLOD @
0x10d2b4…10d448 Dummy {f00=0x0054, f01=0x4060, f02=» T P S @
0x10d448…10d5dc Dummy {f00=0x0054, f01=0x2008, f02=» P X ` h p
0x10d5dc…10d770 Dummy {f00=0x0054, f01=0x0190, f02=» 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR 9 ( P SLL A2,1 CALC. REAL LENGTH (BYTES) 9 8 P ADK A2,2 9 d 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S 9 v P 9 P EJECT 9 " P****************************** 9 $ P* RELOCATE ADDRESSES IN U:BTAB
0x10d770…10d904 Dummy {f00=0x0054, f01=0x0190, f02=»TOD,A13 U:BTAB ADDRESS 9 P LDR* A3,A5 LENGTH : P ST A3,SAVE06,A13 : 8 P ADK A5,2 SKIP LENGTH WORD : R P SUK A3,2 -"- : t " PSYA180 RF(Z) SYA185 ALL DONE! : P ADRS A6,A5 RELOCATE : P XIF : P IFT CREDIT+MMUPAG=2 : $ P LD A5,U:BTOD,A13
0x10d904…10da98 Dummy {f00=0x0054, f01=0x0190, f02=»NGTH-WORD : PSYA180 RF(Z) SYA185 ; P ELR A10,A5 GET ADDRESS ; . P ADR A10,A6 RELOCATE ; N P ESR A10,A5 ; j P XIF ; ~ P IFF CREDIT=0 ; 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ; P SUK A3,UP:REC ; P RB SYA180 ; P EJE
0x10da98…10dc2c Dummy {f00=0x0054, f01=0x0190, f02=»S:BTAB ADDRESS ; ~ " P ELR A3,A5 LENGTH OF PROTOTYPE < P LDR A2,A3 SAVE < < " P SUK A3,2 EXCLUDE LENGTH WORD < T , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED! < z $ P EL A4,2,A5 GET PROT. W.B.-ADDR. < P ADR A4,A6 RELOCATE < P ES A4,2,A5 STORE IT BACK
0x10dc2c…10ddc0 Dummy {f00=0x0054, f01=0x018e, f02=» P ADK A2,2 INCREMENT LENGTH = ( P SUK A4,1 DECREMENT NUMBER OF COPIES = & P RB SYA192 = R 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE = d $ P SUK A3,UP:REC DECREMENT LENGTH = P RB SYA190 = P XIF = P IFT CREDIT+SWBMMU=2 = $ P LD A5
0x10ddc0…10df54 (0, 342) Opaque[0x194]
0x10df54…10e0e8 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0aa0, f03=0x0000}
0x10df54…10e0e8 IdxSect {
0x10df54…10e0e8 f00 = 0x0055 // 0x10df54 @0x0
0x10df54…10e0e8 f01 = 0x0002 // 0x10df56 @0x2
0x10df54…10e0e8 gno = [ // 0x10df58 @0x4
0x10df54…10e0e8 [0x00]: C0x0055.0x0.0
0x10df54…10e0e8 ]
0x10df54…10e0e8 }
0x10e0e8…10e27c Dummy {f00=0x0055, f01=0x0090, f02=» SKF ASM DRGP01 KPF /O " SCR 0 BYE < A:P&T H ASM VDUPRT V SCR h BYE t ASG /E0,TY10 ING TOSS MMU PAGING z * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* P* PMMUPAG EQU 1 P*
0x10e27c…10e410 Dummy {f00=0x0055, f01=0x2008, f02=» ASM DRGP01 KPF /O " SCR 0 BYE < A:P&T H ASM VDUPRT V SCR h BYE t ASG /E0,TY10 ING TOSS MMU PAGING z * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* P* PMMUPAG EQU 1 P*
0x10e410…10e5a4 Dummy {f00=0x0055, f01=0x0190, f02=» * p < P******************************************************* P* ` 4 P* THIS DRIVER HANDLES GENERAL PRINTER PTS 8081 j P* 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS : P* $ P* A C T P : ACTIVATION
0x10e5a4…10e738 Dummy {f00=0x0055, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* B $ P* ORDER 00 : TEST STATUS L P* ORDER 06 : WRITE t * P* ORDER 0B : POSITION DOCUMENT . P* ORDER 24 : SET PRINTER PARAMETERS ( P* ORDER 38 :
0x10e738…10e8cc Dummy {f00=0x0055, f01=0x018e, f02=»* BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT ( P* BIT 13 : CODE CHECK ERROR > $ P* BIT 15 : NOT OPERABLE j P* P* P* NORMAL REGISTER USAGE: P* " P* REGISTER A1: WORK REGISTER " P* A2:
0x10e8cc…10ea60 Dummy {f00=0x0055, f01=0x0190, f02=» P* A6: DWT-ADDRESS P* A7: ORDER ( P* A8: ECB-ADDRESS F P* j P* t P ~ P* P* 0 P******************************************* P* P* ENTRIES P* 0 P******************
0x10ea60…10ebf4 (0, 343) Opaque[0x194]
0x10ebf4…10ed88 # DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa8, f03=0x0000}
0x10ebf4…10ed88 IdxSect {
0x10ebf4…10ed88 f00 = 0x0055 // 0x10ebf4 @0x0
0x10ebf4…10ed88 f01 = 0x0006 // 0x10ebf6 @0x2
0x10ebf4…10ed88 gno = [ // 0x10ebf8 @0x4
0x10ebf4…10ed88 [0x00]: C0x0055.0x1.0
0x10ebf4…10ed88 [0x01]: C0x0055.0x2.0
0x10ebf4…10ed88 [0x02]: C0x0055.0x3.0
0x10ebf4…10ed88 ]
0x10ebf4…10ed88 }
0x10ed88…10ef1c Dummy {f00=0x0055, f01=0x0190, f02=» 2 P IDENT SYSBUG REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSBUG = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x10ef1c…10f0b0 Dummy {f00=0x0055, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P EJECT SYSBUG P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD
0x10f0b0…10f244 Dummy {f00=0x0055, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x10f244…10f3d8 Dummy {f00=0x0055, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x P EXTRN IH2501 P EXTRN IH2502 ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P
0x10f3d8…10f56c Dummy {f00=0x0055, f01=0x0190, f02=»HLT1 LOCAL CHANNEL UNIT NO. 1 $ P EXTRN ILLINT ILLEGAL INTERRUPT & P EXTRN HALT HALT ROUTINE N P EXTRN BUG DEBUGGER n PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE & PX:D
0x10f56c…10f700 Dummy {f00=0x0055, f01=0x0190, f02=»CEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* 2 PSEG:ST EQU 0 STATUS < $ PSEG:DS EQU 2 DISC SECTOR ADDRESS X " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB
0x10f700…10f894 (0, 344) Dummy {f00=0x0055, f01=0x0190, f02=» NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY * $ PSWB:EL EQU 4 SWB LENGTH (BYTES) ` & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT SYSBUG P*
0x10f894…10fa28 Dummy {f00=0x0055, f01=0x0190, f02=» 3 P DATA ILLINT 4 P DATA ILLINT 5 , P DATA ILLINT 6 H P DATA ILLINT d P DATA ILLINT P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH1501
0x10fa28…10fbbc Dummy {f00=0x0055, f01=0x0190, f02=»RT2 17 P DATA CHRT3 18 P DATA ILLINT 0 P DATA ILLINT P P DATA ILLINT p P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT P
0x10fbbc…10fd50 Dummy {f00=0x0055, f01=0x0190, f02=» ILLINT P DATA ILLINT 31 P DATA ILLINT 32 , P DATA ILLINT 33 H P DATA ILLINT d P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT
0x10fd50…10fee4 Dummy {f00=0x0055, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT 45 P DATA ILLINT 46 8 P DATA ILLINT 47 T P DATA ILLINT 48 p P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT
0x10fee4…110078 Dummy {f00=0x0055, f01=0x018e, f02=»LINT 58 P DATA ILLINT 59 P DATA ILLINT 60 0 P DATA ILLINT 61 L P DATA ILLINT 62 h P DATA TRAP TRAP ROUTINE P EJECT SYSBUG P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT
0x110078…11020c Dummy {f00=0x0055, f01=0x0190, f02=» P* P* DEBUG RESTART ENTRY P* 0 P XRR A13,A13 : P XRR A14,A14 N P LD A1,SCTBUG b P ABR(NZ) A1 x P HLT P P EJECT SYSBUG P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU *
0x11020c…1103a0 Dummy {f00=0x0055, f01=0x018e, f02=» & PSCTPLD DATA 0 PROGRAM LOAD DEVICE ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP . $ PSCTANO DATA 0 APPLICATION NUMBER Z 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB D
0x1103a0…110534 (0, 345) Dummy {f00=0x0055, f01=0x0190, f02=» . PSCTMMC DATA 0 MMU TABLE COMMON PART ENTRY P INDEX REL TTAB 6 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART P & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMB
0x110534…1106c8 Dummy {f00=0x0055, f01=0x0190, f02=»5:MMUPAG t PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS 4 PSCTBUG DATA BUG DEBUGGER X & PSCTDMT DATA X:B DMTASKS IN SYSTEM x P BIT 13:D2,14:D1,15:D0 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 0000
0x1106c8…11085c Dummy {f00=0x0055, f01=0x4138, f02=»001 DC-TASK IN SYSTEM P EJECT SYSBUG P 6 P* > P* SYSTEM STACK H P* ^ P RES 145 h P DATA /FCC0 AND PSW x & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP RB *
0x11085c…1109f0 Dummy {f00=0x0055, 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
0x1109f0…110b84 Dummy {f00=0x0055, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x110b84…110d18 Dummy {f00=0x0055, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x110d18…110eac Dummy {f00=0x0055, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x110eac…111040 Dummy {f00=0x0055, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x111040…1111d4 (0, 346) Opaque[0x194]
0x1111d4…111368 # DirEnt {nam=»M:PTCB«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0ac0, f03=0x0000}
0x1111d4…111368 IdxSect {
0x1111d4…111368 f00 = 0x0056 // 0x1111d4 @0x0
0x1111d4…111368 f01 = 0x001a // 0x1111d6 @0x2
0x1111d4…111368 gno = [ // 0x1111d8 @0x4
0x1111d4…111368 [0x00]: C0x0056.0x0.0
0x1111d4…111368 [0x01]: C0x0056.0x1.0
0x1111d4…111368 [0x02]: C0x0056.0x2.0
0x1111d4…111368 [0x03]: C0x0056.0x3.0
0x1111d4…111368 [0x04]: C0x0057.0x0.0
0x1111d4…111368 [0x05]: C0x0057.0x1.0
0x1111d4…111368 [0x06]: C0x0057.0x2.0
0x1111d4…111368 [0x07]: C0x0057.0x3.0
0x1111d4…111368 [0x08]: C0x0058.0x0.0
0x1111d4…111368 [0x09]: C0x0058.0x1.0
0x1111d4…111368 [0x0a]: C0x0058.0x2.0
0x1111d4…111368 [0x0b]: C0x0058.0x3.0
0x1111d4…111368 [0x0c]: C0x0059.0x0.0
0x1111d4…111368 ]
0x1111d4…111368 }
0x111368…1114fc Dummy {f00=0x0056, f01=0x0190, f02=»eL ` p # $ c @ Tg t z ^ b bLPL H b2 Z ` z
0x1114fc…111690 Dummy {f00=0x0056, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A U A @ * A A , @ ~ A A ~ @ A A @ A A @ A A @ A
0x111690…111824 Dummy {f00=0x0056, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x111824…1119b8 Dummy {f00=0x0056, f01=0x0190, f02=» Q ( R " S T Y G P H L V I U . V h_v A B _ NO! A A A A A A A A z *T A _ P A A d . , , < + - ; t : X " H W X " H H A A A _T @ P A 1+X A
0x1119b8…111b4c Dummy {f00=0x0056, f01=0x0190, f02=» & .T @ W @ A @W dW 0 Z P & l_, W W PP @ & l 0 & T A P P p r :_b d P D r_J A B Z .T @ W @ T @ W @ @ >a Z P & P @ A B P P
0x111b4c…111ce0 Dummy {f00=0x0056, f01=0x0190, f02=» P 3P C @ P @ x @ P @ Q A . @ B A " T @ W @ A 2 A .P @ j_2 .T 4 0 P j pP _ @ j . d 0 @ @ @ P d 0 @ A B b 9 Y 4>a Y t c x
0x111ce0…111e74 (0, 347) Dummy {f00=0x0056, f01=0x0190, f02=» A A P@ @ PB z z d . @ ! T A @ A # A . & RE RN ME MN W R, ( T ( W P T $ ; V ; W~&~ P &`P 6 P @ $ P $W $ TR PJ#~ > V . >A P Y X W ^ ? ?
0x111e74…112008 Dummy {f00=0x0056, f01=0x0190, f02=» " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? > > > > > > > @ > ? ? ? ? ? ? ? A > A >
0x112008…11219c Dummy {f00=0x0056, f01=0x0190, f02=» 0:D A z_* A " A A b P & T A A " @ R _U . r " A >: D A > " A Z A ^ b$ T ! " A @ BT 0W 0W A @ BT 1W 1 @ " P& A UT @ W T @ W T @ W @ " " ? ?
0x11219c…112330 Dummy {f00=0x0056, f01=0x0190, f02=» ! R :W" r W r W W ?W /W : A W ! A A PL _ @ _ I T " T A P I T$! A A A A A A A A J A A @ A @ > @ _ . I d 0R> M A P6 T @
0x112330…1124c4 Dummy {f00=0x0056, f01=0x0190, f02=» H ( ( P c P W: P, AJ V ( U P" @JHV LJHW @JZ U " J A A Q > ? A n F A lQ _0 A l < Q f P f Q f Z Y _ 8 J Q Z P 0 9 _ _, ? P H H
0x1124c4…112658 Dummy {f00=0x0056, f01=0x0190, f02=»J $P T I R $ 5 % > ? W ? W ? T T$ U U U U T U U " > > 4 T - 1_( U T P 0 U _t ? @JvT 0 AJv 1 Q Q > > 0 @Jv 1 AJv P P > ? * X " R" Y T ? X D J T>
0x112658…1127ec Dummy {f00=0x0056, f01=0x0190, f02=» > > @JnV ? Jn > _ > ? _ > > ? ^ ! Y ^ _ ? A. $ ( , 0 4 8 < #M 1 J|J B B J J B B pU J J BAB rU J J B B
0x1127ec…112980 Dummy {f00=0x0056, f01=0x0190, f02=» @ R t D J z B " P Q :A H &P P J H !@T I J T ! 1 U J A ? W A ? W A ? W A ? W U R ; V * # T f R p # PJ P p RL P 4 ] P $ P
0x112980…112b14 (0, 348) Dummy {f00=0x0056, f01=0x0190, f02=» $P4> R0> 8' T Y X ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ J < P 8R R J Y $ X Z ;BR 8% =A Y T Z& _, X ' X f 4X< XB U T < T U 5 U
0x112b14…112ca8 Dummy {f00=0x0056, f01=0x0190, f02=» X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P h 4T U 8 # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X > P P P X XF _H Wj ? T T J W u
0x112ca8…112e3c Dummy {f00=0x0056, f01=0x0190, f02=» Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ]
0x112e3c…112fd0 Dummy {f00=0x0056, f01=0x0190, f02=» D P D T U W _ U 4XR XX 5 _b 8 F T 8TV 9WD B 7P P J AJ W AJ @J A.W ? A I.9 X R C C H J ?A @J A. X V 9_: , @ 4
0x112fd0…113164 Dummy {f00=0x0056, f01=0x0190, f02=» J X P Wj B " P HA|:H B # LA| 9 B Y B Y % P8 @A6 A| J @A8 `A8 @A8P 0P _ % AA6 AA: Y H _| B QZ | _ X P 0 Y P C H _ X_ B ! P Y _R X ! X _ B Y _l J X P A j J r Y Wb Y
0x113164…1132f8 Dummy {f00=0x0056, f01=0x0190, f02=» ) 1_ (X( P _ 0 )_6 _2 _$ (P _ ) 1 4 % X R2 X T* X P& , Y L C L C H > @ @ @ A X H _" X P y Y X P T @ T A A > A A A A A W
0x1132f8…11348c Dummy {f00=0x0056, f01=0x0190, f02=» A% TR !$`TL !$`TD T@ !$V T8 !$VA I A P " !$p ! _ !$p T % 4" X !$V_ !%: A @ P @ P !!2 A A _ !%: @ P @% X@ !!x T< A !"* @ P @% P @ 8 ! f !!2 A _: !$V X6_Z A @% @ T 1 R 0 2P P P A
0x11348c…113620 Dummy {f00=0x0056, f01=0x0190, f02=» H W( H W" X R X T H ! , !" X ! X !" WB A @ X A A A @ A !%: @ T @ P !"> !%: @ T @ X Wx A I J J @ @ @ @ A !%: @ XV !$V T @ P !"2 !% _p /T, @ X @ P @
0x113620…1137b4 (0, 349) Dummy {f00=0x0056, f01=0x0190, f02=» @% T !" _ ! f !" _ A A HB| E A A 4 @ P !"2 !% !$ @ P !#p !% A @ T !"._ T _ A 7 C G B B A A A A A !"f !% A _^ @ !$ X ! X Zp X Xp Xt_~ @ P6 X R0 X P T$ T Y W
0x1137b4…113948 Dummy {f00=0x0056, f01=0x0190, f02=» @ ]6W P _@ @% @ E !% P !$: 4 _$ !% 2_l / A T W ,W A A W W W A A !# @ !$^ @ !$^ !$L !$L B J 4 !# !$@ @ @ A @ T( @% !$^ 8 !$^ @ P - !$^ x !@ W 0 " @ PL R ~T }T
0x113948…113adc Dummy {f00=0x0056, f01=0x0190, f02=» 0 !$^ A !$^ " !$L " !$L "R A _" A A !# !$@ % !$^ R !$^ !$@ @% !$^ 8 !$^ X ! 9a D !$^ X ! P ! T & !$^_b B J B !$V !$@ 4 A ? J T A T 2PX !%J HA| 4 !$ A ? _ I " P A 6 " A , 4 A _$" P
0x113adc…113c70 Dummy {f00=0x0056, f01=0x0190, f02=» @ A , @ T $ 6 @ A , $ J A a , 4 J $ X A > J % Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A%z A%| A%~ ?a :a# P @%z @%| @%~ 4 ! A !$V %| !$V A @%|:H 4 %
0x113c70…113e04 Dummy {f00=0x0056, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x113e04…113f98 Dummy {f00=0x0056, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x113f98…11412c Dummy {f00=0x0056, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11412c…1142c0 Dummy {f00=0x0056, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x1142c0…114454 (0, 350) Dummy {f00=0x0057, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x114454…1145e8 Dummy {f00=0x0057, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x1145e8…11477c Dummy {f00=0x0057, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11477c…114910 Dummy {f00=0x0057, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x114910…114aa4 Dummy {f00=0x0057, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x114aa4…114c38 Dummy {f00=0x0057, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x114c38…114dcc Dummy {f00=0x0057, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x114dcc…114f60 Dummy {f00=0x0057, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x114f60…1150f4 (0, 351) Dummy {f00=0x0057, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x1150f4…115288 Dummy {f00=0x0057, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x115288…11541c Dummy {f00=0x0057, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11541c…1155b0 Dummy {f00=0x0057, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x1155b0…115744 Dummy {f00=0x0057, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x115744…1158d8 Dummy {f00=0x0057, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x1158d8…115a6c Dummy {f00=0x0057, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! :f"? H@ !$^ "? H@ !$^ 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="A<A:
0x115a6c…115c00 Dummy {f00=0x0057, f01=0x0190, f02=»*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSSFFFXFxF FVF FxF FVGHGZFVGZGZFVFV
0x115c00…115d94 (0, 352) Dummy {f00=0x0057, f01=0x0190, f02=» > J Z 0P R I W C _" H P 4 I " > T C T, V. Y J T C C Pn q 0 ) W` X P C T& B RNP" ADD @C AC J CD W> @W& T" P X T J T C W C C 8W T 8P Y
0x115d94…115f28 Dummy {f00=0x0057, f01=0x0190, f02=» J T W0 X &P* T P H T _ X I Y T # C C W4 O " # X Y ) C C x '? Y J T Y W Y T # P W " Y P R R P E P (@ C (@ " 2 X $? PF $ > >
0x115f28…1160bc Dummy {f00=0x0057, f01=0x0190, f02=» :c" H :b"? #" : C > B R Q~ Fb P0 B P* 0$ T # R QL F > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & H J X B D C > X H UJ H B P PL $ #
0x1160bc…116250 Dummy {f00=0x0057, f01=0x0190, f02=» T (@ F ^ > > ? _ X T X X T % T ?C L Rl HH_@(@ L U L Q0 M Gh H X D ( ) 1 > _" X X T U HH J H F Y _| ?(@ X P& T D #DP 0P X T 4 Y " X
0x116250…1163e4 Dummy {f00=0x0057, f01=0x0190, f02=» X P8 P0 # P T P 0P 1 _ PW " Y > > T I J I J x I J I _ X_< ? ^ 4 _ @ 1 A _ P 9 > > &D K.K@KHKDI Kd^ ^D^ _ _b ] ^ $
0x1163e4…116578 Dummy {f00=0x0057, f01=0x0190, f02=» P* P Y U ( ) 5 & > > [ [ J Z Z Z ? Z > P "R Y W J x Pl " T Pb X_ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ K M K ? X V Y J ! W<
0x116578…11670c Dummy {f00=0x0057, f01=0x0190, f02=»: T p > N > P^ P C M B M T B % X . $ 4 T % M X ,T ! |W N Y . V N B P X " _V B P $$ R % C N W Y +PB Y *P8 Y (P Y )P N R _Q P OR R Wz B L4 Wn W 0 Z N
0x11670c…1168a0 Dummy {f00=0x0057, f01=0x0190, f02=» X # PN X R(;GV$ N2 P8 X R2;GV. X " L4 X , $4 P N X .T * W Y , - J ? X :a Z T T W P X :d Y > > ? 8 R @RT V @% =cWP R`P R&P8 R P W 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P > 0
0x1168a0…116a34 (0, 353) Dummy {f00=0x0057, f01=0x0190, f02=» H " +P P. T Y ' ! f R| X ( Y &R Y & _ Y &_. B 1 RJ ! f Q@ B B U4 $ ! T _ U D ! T _ $$ X" X& X* C P X`" EO P( 8'0P EO TD ! T 9 _ ! T @_ ! B P !R B
0x116a34…116bc8 Dummy {f00=0x0057, f01=0x0190, f02=» f Q B Y & !R W O 8!0T 8 !@P ! f$ P ! f ! f Q0 ! f T Y & T X & C H J X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl Q T _ ! f X $ P !R O R V P P" !
0x116bc8…116d5c Dummy {f00=0x0057, f01=0x0190, f02=» Y 4 B O U )X R@ X X &" Y * X ) V Y !R X $ X & !R X * O O `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 Q0 > &]z B P ! B
0x116d5c…116ef0 Dummy {f00=0x0057, f01=0x0190, f02=» f B Y & ! W O 8!0T 8 !@P ! f$ P ! f ! f ! f T Y & T X & C H J X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl Q T _ ! f X $ P ! O R V P P !
0x116ef0…117084 Dummy {f00=0x0057, f01=0x0190, f02=» Y 4 B O U )X R@ X X &" Y * X ) V Y !R X $ X & !R X * O O `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 Q0 > B P ! B
0x117084…117218 Dummy {f00=0x0057, f01=0x0190, f02=» f B Y & ! W O 8!0T 8 !@P ! f$ P ! f ! f ! f T Y & T X & C H J X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl Q T _ ! f X $ P ! O R V P P !
0x117218…1173ac Dummy {f00=0x0057, f01=0x0190, f02=» Y 4 B O U )X R@ X X &" Y * X ) V Y !R X $ X & !R X * O O `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 Q0 > B P ! B
0x1173ac…117540 Dummy {f00=0x0057, f01=0x0190, f02=» f B Y & ! W O 8!0T 8 !@P ! f$ P ! f ! f ! f T Y & T X & C H J X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl Q T _ ! f X $ P ! O R V P P !
0x117540…1176d4 (0, 354) Dummy {f00=0x0058, f01=0x0190, f02=» Y 4 B O U )X R@ X X &" Y * X ) V Y !R X $ X & !R X * O O `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 Q0 > B P ! B
0x1176d4…117868 Dummy {f00=0x0058, f01=0x0190, f02=»S$P W< S&T6 ]|' P !] H B # P G W G H J X P P R: A J ]h Y X T Q (P H U ^ 9 1_N J X T @S&P ( AS& ] _ ( Y _ S$_x X T @S$P ( AS$ ] _ ( Y _ S&_ i ] 9 @_ ] H S$P S&P
0x117868…1179fc Dummy {f00=0x0058, f01=0x0190, f02=» x P H U _ U @ U 9C @ $$ T %_< %_B R @ U 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P H X P Y X H P H
0x1179fc…117b90 Dummy {f00=0x0058, f01=0x0190, f02=»<h _ P ?_" = > = > = =_D R _ 00 > & <h$ P >_ ` `6`v`6`v 0123456789 0123456789 ' < +,-. 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []~ * >
0x117b90…117d24 Dummy {f00=0x0058, f01=0x0190, f02=» ` c c$ $$ X " X # Y Y M` P ^ J La,a4a@b b !d !c J !c P b P b ` ( !d X P !d +Tf X ! TJW +T^ X " T$ X > !dR Y ; Y = ! f ` ; !d W X ? !dR Y 8 Y :<h Y 9 ! f ` 8 !d W X F! Pt X ! PB
0x117d24…117eb8 Dummy {f00=0x0058, f01=0x0190, f02=»T Y > Y ? W P ! f !c W: ] Z _R /P C _ . ! f X " T Y >_4 Y ?_: X F" Y F J _ !d B <hP Y Pd Y * ` * !d B $ P Y< Pe Y ( b X J X F$ T , Y FW Y F Y ` !d X DT6 Y D !dR Y & Y ( 3 !dR
0x117eb8…11804c Dummy {f00=0x0058, f01=0x0190, f02=» y $W $ J dD Y $ ! | X $P y $" ! P 0 : P Y 3 _Z X $P y $ Y $ X 3 4 Y $ _ dR d R _ 00,0: " 4 X P Y 4 Y 6 Y 4 X 4 ," :HR$ 0 P :h ! f Y 4_ X 6 , ! f Y 6_ 4 :h 0 :C ! 4121518
0x11804c…1181e0 Dummy {f00=0x0058, f01=0x0190, f02=» A. n UU @ @ ! P$>B @n An @n E D P _ $ % $P _ % A @ " Q A e< : R W2 A k$ Am k$ P. j _ " :c* A k l W " :d2 * A kn k & W F ` W F W F CRT F A @ @ ! P2
0x1181e0…118374 (0, 355) Dummy {f00=0x0058, f01=0x0190, f02=» V P A Y W @ " T> W @ V W Q o hR o Y P @ T W - o P _ T <B :L A W A A W o T F W V
0x118374…118508 Dummy {f00=0x0058, f01=0x0190, f02=» @n @ A m0 @ m CRT @ P @ ! P W @ V P _ @ ! P m !RRP V @ P W _: m m m V @ PZ W @ @ ! T _ P :l 9b ) V
0x118508…11869c Dummy {f00=0x0058, f01=0x0190, f02=»o _J o k$ T k k$W k j lN W W j V 0 !;;P P V Xb _ P !;;T X$ W o nP XZ_V S Al Al lN @ R @ ! T Al" Al6 V @ R V V I o W V
0x11869c…118830 Dummy {f00=0x0058, f01=0x0190, f02=»T P 1 I P < R P A _> o : k Am Aj AlT Alj Ak Ak Ak Ak : 9e9C) A I " 9A ! 9B r @e<r A I ! ( : l Am Aj AlT Alj Al"! T Al& Al" I ! : 9E @e<r s A I T ) A _ I N T
0x118830…1189c4 Dummy {f00=0x0058, f01=0x0190, f02=»T X W n : YX d C !CCTZ B. j X B.9 He> Q k _ kn_ !SST& 0 UeD R X A X W : @ ' R xW V W$ V P P m W P V V T m V T W P V W @ $
0x1189c4…118b58 Dummy {f00=0x0058, f01=0x0190, f02=»T P 1 I 2 ; Z [ : : [ [ : }r j Aj A A A ! T A W Z A. c @ V W U
0x118b58…118cec Dummy {f00=0x0058, f01=0x0190, f02=» V W ^< _@ V _P V V : V J P p r r V U p _ V p Z K W W :K W r r Q R t r V o oF v : V W V o ) : V
0x118cec…118e80 Dummy {f00=0x0058, f01=0x0190, f02=» V R RR > R W > <B V x V |P v 1 v W V z ` p _f V : W R R r P p p W x q r _ V : " D Pd W V PL $;A^ D E D P. V o P o P T o E _J o E
0x118e80…119014 (0, 356) Dummy {f00=0x0058, f01=0x0190, f02=» v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ o 0 H W : ? ? R 0 R P P B X _
0x119014…1191a8 Dummy {f00=0x0058, f01=0x0190, f02=» pP ` $ $ W s( $ H sT ) P _ " = D 4 Q s _d s2 sT s rF = G $ q V W $ q V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P
0x1191a8…11933c Dummy {f00=0x0058, f01=0x0190, f02=»U " @ Q @ P A. @ P _b A 9n A :B A @ .V 3 S Y& P4 Jx Jx S P 3 _ Jx 3 Jz B A. @ D @ W x A : A
0x11933c…1194d0 Dummy {f00=0x0058, f01=0x0190, f02=» w$ W x q w r q _v V d , V o P _ N L % V d V f v G G v U p v G v : r P p r V r : p p V ~P w$ W x q _$ 8 V V x % V v % : V V oF 9k! P % _ V V
0x1194d0…119664 Dummy {f00=0x0058, f01=0x0190, f02=» ` " W p W ~ pP0 v R r P v r _ W ~ R r X4 v r _ ` @ ` W W ~ pPn s( s V W % v R , r o " E R w~ W ~ R w~ R P yJ R Xv yJ_|W r T : p p W x q r _ V P s2 I
0x119664…1197f8 Dummy {f00=0x0058, f01=0x0190, f02=» E q rF #_v W | ;b W W t V b v ( v W p V ` $ W ` oF ;h 0 :C # : .=H N zB r .=H N zB r N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H
0x1197f8…11998c Dummy {f00=0x0058, f01=0x0190, f02=» N =H N zB @ ) z !TTXX !CCT z` !UUT d { Wh z 2 .:H N P V o _ R :h " z YV : v `?A @ W W :b / W : W @ W
0x11998c…119b20 Dummy {f00=0x0058, f01=0x0190, f02=» _ W l a w ` :A W V d 4 W P _ W ` W d V V W W V V >k 8 W W t V V : x A e< P } W r } W @ @ % V , P@ , - 4 ] 4
0x119b20…119cb4 (0, 357) Dummy {f00=0x0058, f01=0x0190, f02=»TTP o @ T o Y z !TTX" A 9 A : @ @ P. @ " P #D ~ " P #E ~ " P #F ~ : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T o : @ :B W . !TT
0x119cb4…119e48 Dummy {f00=0x0058, f01=0x0190, f02=» P0 r " U o _2 P0 " U o _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P z !TTT b n
0x119e48…119fdc Dummy {f00=0x0058, f01=0x0190, f02=» PP !RRP @ ! T 3 @ & P 3 3 YL @ @ T o : Jv ` @ P _ 3 S S V V W @ @ T o : P S S _ : . !TTP
0x119fdc…11a170 Dummy {f00=0x0058, f01=0x0190, f02=» 4 D P$ o @ # P H I K T + Y@ V p _j V t Y z !TTX @ @ T o : @ R @ T o P / _ T @ A V W W t PT W f
0x11a170…11a304 Dummy {f00=0x0058, f01=0x0190, f02=» T o : z !TTX !CCTr P, V r 4 U o $ $ _. P, V 4 U o $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W
0x11a304…11a498 Dummy {f00=0x0058, f01=0x0190, f02=» I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T o : W b V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W eL V W R 9 W D o ) $ P@ D L
0x11a498…11a62c Dummy {f00=0x0058, f01=0x0190, f02=» U V U W < + + P V : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P
0x11a62c…11a7c0 Dummy {f00=0x0058, f01=0x0190, f02=»P _ V |P V v ]J|W v P _ @ @ T o : N =H N zB : N =H N zB : &=H F zB : F =H F zB : F =H F zB : P N =H N T z _ : 00=H 00 P P _ _ : @ ! P (W ( : ~ ~
0x11a7c0…11a954 (0, 358) Dummy {f00=0x0059, f01=0x0190, f02=» 0 " ( . 4 : D p a `% 4 ,S! d S( ,S S( . DC T` GP
0x11a954…11aae8 Dummy {f00=0x0059, f01=0x0190, f02=» 8O DY @ P : N =H N zB : N =H N zB : &=H F zB : F =H F zB : F =H F zB : P N =H N T z _ : 00=H 00 P P _ _ : @ ! P (W ( : ~ ~
0x11aae8…11ac7c Dummy {f00=0x0059, f01=0x0190, f02=» V 0" ^ " O P W P WH R T4 P " V(" TvW" R R T _ X 0" R 2 P 1 _8 " T ZF P " Q _R R R T _ X 0" ZF _2 M N< Nf : : M N< N N _
0x11ac7c…11ae10 Dummy {f00=0x0059, f01=0x0190, f02=» ~T 5 |T < Tb ] _V" 2 O P " P W ] _v PR T V 0 U " 1 ZJ_, C N C PR C P_ C ( O : B Tb E _D {T * `T ; : B P = ] Y B : % PD 7 P R C ( B
0x11ae10…11afa4 Dummy {f00=0x0059, f01=0x0190, f02=» W " T & T + : * & !@P `1` P W Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `
0x11afa4…11b138 Dummy {f00=0x0059, f01=0x0190, f02=» !`P :J +_ +Q W _0 , V W R V W R XV W 1 ^ _0 R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b X P P PN P 0 - P: V
0x11b138…11b2cc Dummy {f00=0x0059, f01=0x0190, f02=» _n' d V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V
0x11b2cc…11b460 Dummy {f00=0x0059, f01=0x0190, f02=» : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ [ W| [ W| [ U6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P [ U0 V H )_ [ Z _X z R z ! P
0x11b460…11b5f4 (0, 359) Opaque[0x194]
0x11b5f4…11b788 # DirEnt {nam=»DW2501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x11b5f4…11b788 IdxSect {
0x11b5f4…11b788 f00 = 0x0059 // 0x11b5f4 @0x0
0x11b5f4…11b788 f01 = 0x0002 // 0x11b5f6 @0x2
0x11b5f4…11b788 gno = [ // 0x11b5f8 @0x4
0x11b5f4…11b788 [0x00]: C0x0059.0x1.0
0x11b5f4…11b788 ]
0x11b5f4…11b788 }
0x11b788…11b91c Dummy {f00=0x0059, f01=0x0190, f02=» 2 P IDENT DW2501 REL 9.2 79-11-16 870105040920 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW2501 TABLE ENTRY * P EXTRN DC25AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 1 P*
0x11b91c…11bab0 Dummy {f00=0x0059, f01=0x0190, f02=»DRESS P DATA DWTEND-DW2501 P RIGHT BYTE=ORDER * * P DATA DC25AD POINTER TO ADDRESS-BLOCK F P DATA 'DC' TTAB-ADDRESS t $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 P DATA 0 USER E
0x11bab0…11bc44 Dummy {f00=0x0059, 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
0x11bc44…11bdd8 Dummy {f00=0x0059, 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*
0x11bdd8…11bf6c Dummy {f00=0x0059, f01=0x018e, f02=» SCTNOS SCTNOP SCTPSZ , SCTMMC @ SCTLACL T SCTMMP h SCTLAP | SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCT
0x11bf6c…11c100 Dummy {f00=0x0059, f01=0x4098, f02=» SCTBLK SCTDCT 0 _ L b @ E SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCT
0x11c100…11c294 (0, 360) Opaque[0x194]
0x11c294…11c428 # DirEnt {nam=»BUGMON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x11c294…11c428 IdxSect {
0x11c294…11c428 f00 = 0x0059 // 0x11c294 @0x0
0x11c294…11c428 f01 = 0x0020 // 0x11c296 @0x2
0x11c294…11c428 gno = [ // 0x11c298 @0x4
0x11c294…11c428 [0x00]: C0x0059.0x2.0
0x11c294…11c428 [0x01]: C0x0059.0x3.0
0x11c294…11c428 [0x02]: C0x005a.0x0.0
0x11c294…11c428 [0x03]: C0x005a.0x1.0
0x11c294…11c428 [0x04]: C0x005a.0x2.0
0x11c294…11c428 [0x05]: C0x005a.0x3.0
0x11c294…11c428 [0x06]: C0x005b.0x0.0
0x11c294…11c428 [0x07]: C0x005b.0x1.0
0x11c294…11c428 [0x08]: C0x005b.0x2.0
0x11c294…11c428 [0x09]: C0x005b.0x3.0
0x11c294…11c428 [0x0a]: C0x005c.0x0.0
0x11c294…11c428 [0x0b]: C0x005c.0x1.0
0x11c294…11c428 [0x0c]: C0x005c.0x2.0
0x11c294…11c428 [0x0d]: C0x005c.0x3.0
0x11c294…11c428 [0x0e]: C0x005d.0x0.0
0x11c294…11c428 [0x0f]: C0x005d.0x1.0
0x11c294…11c428 ]
0x11c294…11c428 }
0x11c428…11c5bc Dummy {f00=0x0059, f01=0x0190, f02=» { p # $ TbT c @ Tg t z ^ b bLPL H b2 Z ` z
0x11c5bc…11c750 Dummy {f00=0x0059, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A U A @ * A A , @ ~ A A ~ @ A A @ A A @ A A @ A
0x11c750…11c8e4 Dummy {f00=0x0059, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x11c8e4…11ca78 Dummy {f00=0x0059, f01=0x0190, f02=» Q ( R " S T Y G P H L V I U . V h_v A B _ NO! A A A A A A A A z *T A _ P A A d . , , < + - ; t : X " H W X " H H A A A _T @ P A 1+X A
0x11ca78…11cc0c Dummy {f00=0x0059, f01=0x0190, f02=» & .T @ W @ A @W dW 0 Z P & l_, W W PP @ & l 0 & T A P P p r :_b d P D r_J A B Z .T @ W @ T @ W @ @ >a Z P & P @ A B P P
0x11cc0c…11cda0 Dummy {f00=0x0059, f01=0x0190, f02=» P 3P C @ P @ x @ P @ Q A . @ B A " T @ W @ A 2 A .P @ j_2 .T 4 0 P j pP _ @ j . d 0 @ @ @ P d 0 @ A B b 9 Y 4>a Y t c x
0x11cda0…11cf34 (0, 361) Dummy {f00=0x0059, f01=0x0190, f02=» A A P@ @ PB z z d . @ ! T A @ A # A . & RE RN ME MN W R, ( T ( W P T $ ; V ; W~&~ P &`P 6 P @ $ P $W $ TR PJ#~ > V . >A P Y X W ^ ? ?
0x11cf34…11d0c8 Dummy {f00=0x0059, f01=0x0190, f02=» " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? > > > > > > > @ > ? ? ? ? ? ? ? A > A >
0x11d0c8…11d25c Dummy {f00=0x0059, f01=0x0190, f02=» 0:D A z_* A " A A b P & T A A " @ R _U . r " A >: D A > " A Z A ^ b$ T ! " A @ BT 0W 0W A @ BT 1W 1 @ " P& A UT @ W T @ W T @ W @ " " ? ?
0x11d25c…11d3f0 Dummy {f00=0x0059, f01=0x0190, f02=» ! R :W" r W r W W ?W /W : A W ! A A PL _ @ _ I T " T A P I T$! A A A A A A A A J A A @ A @ > @ _ . I d 0R> M A P6 T @
0x11d3f0…11d584 Dummy {f00=0x0059, f01=0x0190, f02=» H ( ( P c P W: P, Ar" V ( U P" @JHV LJHW @JZ U " r@ A A Q > ? A n F A lQ _0 A l < Q f P f Q f Z Y _ 8 r( Q Z P 0 9 _ _, ? P H H
0x11d584…11d718 Dummy {f00=0x0059, f01=0x0190, f02=»r $P T I R $ 5 % > ? W ? W ? T T$ U U U U T U U " > > 4 T - 1_( U T P 0 U _t ? @q T 0 Aq 1 Q Q > > 0 @q 1 Aq P P > ? * X " R" Y T ? X D r T>
0x11d718…11d8ac Dummy {f00=0x0059, f01=0x0190, f02=» > > @JnV ? Jn > _ > ? _ > > ? ^ ! Y ^ _ ? A. $ ( , 0 4 8 < #M 1 r J B B r J B B pU r J BAB rU r J B B
0x11d8ac…11da40 Dummy {f00=0x0059, f01=0x0190, f02=» @ R t D J z B " P Q :A H &P P r8 H !@T I r@ T ! 1 U r< A ? W A ? W A ? W A ? W U R ; V * # T f R p # PJ P p RL P 4 ] P $ P
0x11da40…11dbd4 (0, 362) Dummy {f00=0x005a, f01=0x0190, f02=» $P4> R0> 8' T Y X ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ J < P 8R R r@ Y $ X Z ;BR 8% =A Y T Z& _, X ' X f 4X< XB U T < T U 5 U
0x11dbd4…11dd68 Dummy {f00=0x005a, f01=0x0190, f02=» X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P h 4T U 8 # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X > P P P X XF _H Wj ? T T J W u
0x11dd68…11defc Dummy {f00=0x005a, f01=0x0190, f02=» Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ]
0x11defc…11e090 Dummy {f00=0x005a, f01=0x0190, f02=» D P D T U W _ U 4XR XX 5 _b 8 F T 8TV 9WD B 7P P r8 Ar W Ar @r A.W ? A I.9 X R C C H r@ ?A @r A. X V 9_: , @ 4
0x11e090…11e224 Dummy {f00=0x005a, f01=0x0190, f02=» r@ X P Wj B " P HA|:H B # LA| 9 B Y B Y % P8 @A6 A| r8 @A8 `A8 @A8P 0P _ % AA6 AA: Y H _| B QZ | _ X P 0 Y P C H _ X_ B ! P Y _R X ! X _ B Y _l r< X P A j J r Y Wb Y
0x11e224…11e3b8 Dummy {f00=0x005a, f01=0x0190, f02=» ) 1_ (X( P _ 0 )_6 _2 _$ (P _ ) 1 4 % X R2 X T* X P& , Y L C L C H > @ @ @ A X H _" X P y Y X P T @ T A A > A A A A A W
0x11e3b8…11e54c Dummy {f00=0x005a, f01=0x0190, f02=» A% TR !$`TL !$`TD T@ !$V T8 !$VA I A P " !$p ! _ !$p T % 4" X !$V_ !%: A @ P @ P !!2 A A _ !%: @ P @% X@ !!x T< A !"* @ P @% P @ 8 ! f !!2 A _: !$V X6_Z A @% @ T 1 R 0 2P P P A
0x11e54c…11e6e0 Dummy {f00=0x005a, f01=0x0190, f02=» H W( H W" X R X T H ! , !" X ! X !" WB A @ X A A A @ A !%: @ T @ P !"> !%: @ T @ X Wx A I J r@ @ @ @ @ A !%: @ XV !$V T @ P !"2 !% _p /T, @ X @ P @
0x11e6e0…11e874 (0, 363) Dummy {f00=0x005a, f01=0x0190, f02=» @% T !" _ ! f !" _ A A HB| E A A 4 @ P !"2 !% !$ @ P !#p !% A @ T !"._ T _ A 7 C G B B A A A A A !"f !% A _^ @ !$ X ! X Zp X Xp Xt_~ @ P6 X R0 X P T$ T Y W
0x11e874…11ea08 Dummy {f00=0x005a, f01=0x0190, f02=» @ ]6W P _@ @% @ E !% P !$: 4 _$ !% 2_l / A T W ,W A A W W W A A !# @ !$^ @ !$^ !$L !$L B J 4 !# !$@ @ @ A @ T( @% !$^ 8 !$^ @ P - !$^ x !@ W 0 " @ PL R ~T }T
0x11ea08…11eb9c Dummy {f00=0x005a, f01=0x0190, f02=» 0 !$^ A !$^ " !$L " !$L "R A _" A A !# !$@ % !$^ R !$^ !$@ @% !$^ 8 !$^ X ! 9a D !$^ X ! P ! T & !$^_b B J B !$V !$@ 4 A ? J T A T 2PX !%J HA| 4 !$ A ? _ I " P A 6 " A , 4 A _$" P
0x11eb9c…11ed30 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T $ 6 @ A , $ r@ A a , 4 J $ X A > J % Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A%z A%| A%~ ?a :a# P @%z @%| @%~ 4 ! A !$V %| !$V A @%|:H 4 %
0x11ed30…11eec4 Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11eec4…11f058 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x11f058…11f1ec Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11f1ec…11f380 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x11f380…11f514 (0, 364) Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11f514…11f6a8 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x11f6a8…11f83c Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11f83c…11f9d0 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x11f9d0…11fb64 Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11fb64…11fcf8 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x11fcf8…11fe8c Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x11fe8c…120020 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x120020…1201b4 (0, 365) Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x1201b4…120348 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x120348…1204dc Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x1204dc…120670 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x120670…120804 Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! ! % ! 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 6 " A , 4 A _$" P
0x120804…120998 Dummy {f00=0x005a, f01=0x0190, f02=» @ A , @ T 6 @ A , A a , 4 $ X A > Z A 4 A 6 !$: @ P !"2 !% @ P a A 4 A A A ?a :a# P @ @ @ 4 ! A !$V %| !$V A @%|:H 4
0x120998…120b2c Dummy {f00=0x005a, f01=0x0190, f02=» 0 ! A ! " ! " ! "R A _" A A ! :f"? H@ !$^ "? H@ !$^ 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="A<A:
0x120b2c…120cc0 Dummy {f00=0x005a, f01=0x0190, f02=»*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSSFFFXFxF FVF FxF FVGHGZFVGZGZFVFV
0x120cc0…120e54 (0, 366) Dummy {f00=0x005b, f01=0x0190, f02=» > r Z 0P R I W C _" H P 4 I " > T C T, V. Y r T C C Pn q 0 ) W` X P C T& B RNP" ADD @C AC J CD W> @W& T" P X T r T C W C C 8W T 8P Y
0x120e54…120fe8 Dummy {f00=0x005b, f01=0x0190, f02=» r T W0 X &P* T P H T _ X I Y T # C C W4 O " # X Y ) C C x '? Y r T Y W Y T # P W " Y P R R P E P (@ C (@ " 2 X $? PF $ > >
0x120fe8…12117c Dummy {f00=0x005b, f01=0x0190, f02=» :c" H :b"? #" : C > B R Q~ Fb P0 B P* 0$ T # R QL F > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & H r< X B D C > X H UJ H B P PL $ #
0x12117c…121310 Dummy {f00=0x005b, f01=0x0190, f02=» T (@ F ^ > > ? _ X T X X T % T ?C L Rl HH_@(@ L U L Q0 M Gh H X D ( ) 1 > _" X X T U HH r( H F Y _| ?(@ X P& T D #DP 0P X T 4 Y " X
0x121310…1214a4 Dummy {f00=0x005b, f01=0x0190, f02=» X P8 P0 # P T P 0P 1 _ PW " Y > > T I J I r@ x I J I _ X_< ? ^ 4 _ @ 1 A _ P 9 > > &D r r r r I r 2 v $ U
0x1214a4…121638 Dummy {f00=0x005b, f01=0x0190, f02=»r8 L r@ X P Wj B " P HA|:H B # LA| 9 B Y B Y V"P8 @q q r8 @q `q @q P 0P _ % Aq Aq Y L H _| B QZ K LX_ X P 0 Y P C H _ K _ B ! P Y _R X ! X L _ B Y _l r< X P AK J K Y Wb
0x121638…1217cc Dummy {f00=0x005b, f01=0x0190, f02=»P _ ) 1_ J~ (X( P _ 0 )_6 M _2 M _$ (P _ ) 1 4 V" X R2 X T* X P& , Y L C L C H > @J| @Jx @Jz AJzX H _" X P y Y X P T Ln @Mr T AMt AMr > AMT AMX AM AM` AMd MhW
0x1217cc…121960 Dummy {f00=0x005b, f01=0x0190, f02=»V#P AV"TR !T TL !T TD T@ !T T8 !T A I AM~ P " P !T Q _ !T T V" P " X !T _ !U AM| @MtP @MrP !Q AMt AMv_ !U @MvP @VPX@ !Q T< AMz !R M @MtP @VPP @Mr N6 8 !P !Q AM~_: !T X6_Z AMz @VP @M T 1 R 0 2P P
0x121960…121af4 (0, 367) Dummy {f00=0x005b, f01=0x0190, f02=» !L W H W( H W" X R X T H !L L !R M X ! X !R WB AMv @Mp X AM| AMr AM~ @M AM Qb !U @MtT @MvP !R M !U @MtT @MvX Wx A I M8 J P r@ MR @Mr @Mz Q @M @M AM Qp !U @MtXV !T T @M~P !R !U _p /T, @M~X @MxP
0x121af4…121c88 Dummy {f00=0x005b, f01=0x0190, f02=»M # T @VPT !R _ !P !R _ AMv AM HB| E AMz AMp 4 @MtP !R !U M !Ud @M P !S !U AMt M @J~T !R _ T Ln_ M AMr hZ C G B B AM AM AM AMx AMz !R !U AMt_^ @Mt !Ud X ! X Zp X Xp Xt_~ @MrP6 X R0 X P T$ T Y
0x121c88…121e1c Dummy {f00=0x005b, f01=0x0190, f02=» 1 AM @M ]6W P _@ @VP @M E !U P !T 4 _$ !U 2_l / AM~T W ,W AM AM W W W AM AM !TH @M !T @M !T !T !T B J 4 !TH !T @M @M AM @M T( @V# !T 8 !T @M|P - !T x !qX W 0 " @M|PL R ~T
0x121e1c…121fb0 Dummy {f00=0x005b, f01=0x0190, f02=» !T AM 0 !T AM !T " !T " !T R AMx _" AMz AMr !TH !T % !T R !T !T @V# !T 8 !T X ! 9a DM !T X ! P ! T & !T _b B J B !T !T 4 A ? MRJ"T AM T 2PX !U HA| 4 !T M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x121fb0…122144 Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T Uv M J @ AJx L Uv r@ AJx aJ L 4 J UN X AJ > J U Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 AU AU AU ?a :a# P @U @U @U 4 ! AM !T U !T AM @U :H 4 J VD
0x122144…1222d8 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x1222d8…12246c Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x12246c…122600 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x122600…122794 (0, 368) Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x122794…122928 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x122928…122abc Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x122abc…122c50 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x122c50…122de4 Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x122de4…122f78 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x122f78…12310c Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x12310c…1232a0 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x1232a0…123434 (0, 369) Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x123434…1235c8 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x1235c8…12375c Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x12375c…1238f0 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x1238f0…123a84 Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x123a84…123c18 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! ! % ! R ! ! @ ! 8 ! X ! 9a DM ! X ! P ! T & ! _b B J B ! ! 4 A ? MRJ"T AM T 2P ! HA| 4 ! M A ? MR_ I " P AMz J M AJ| L 4 A _$"
0x123c18…123dac Dummy {f00=0x005b, f01=0x0190, f02=» L _ @ AJx L @J T M J @ AJx L AJx aJ L 4 J UN X AJ > J Z AM 4 AM J !T @MtP !R !U M @M P aM AM 4 A A A ?a :a# P @ @ @ 4 ! AM !T U !T AM @U :H 4 J
0x123dac…123f40 Dummy {f00=0x005b, f01=0x0190, f02=» ! AM 0 ! AM ! " ! " ! R AMx _" AMz AMr ! :f"? Hqt !T "? Hqt !T 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="q q Nz sN vv c
0x123f40…1240d4 (0, 370) Dummy {f00=0x005c, f01=0x0190, f02=» > [ [ r" Z Z Z ? Z > P "R Y W r@ x Pl " T Pb X_ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ sp uPsV ? X V Y r@ ! W< Y U R -P uL X , ) Y
0x1240d4…124268 Dummy {f00=0x005c, f01=0x0190, f02=» C uD B uD T B % X . $ 4 T % u* X ,T ! |W vz Y . V vj B P X " _V B P $$ R % C vjW Y +PB Y *P8 Y (P Y )P vj R _Q P OR R Wz B s Wn W 0 Z vj B Z Z" X . 0T N W
0x124268…1243fc Dummy {f00=0x005c, f01=0x0190, f02=»;GV. X " s X , $4 P vz X .T * W Y , - r@ ? X :a Z T T W P X :d Y > > ? 8 R @RT V @% =cWP R`P R&P8 R P W 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > NT 0
0x1243fc…124590 Dummy {f00=0x005c, f01=0x0190, f02=»R| X ( Y &R Y & _ Y &_. B 1 y ! f x B B U4 $ ! T _ U D ! T _ $$ X" X& X* C xf X`" Ev P( 8'0P Ev TD ! T 9 _ ! T @_ ! B P !z6 B C xf ^N P R ?] _ C
0x124590…124724 Dummy {f00=0x005c, f01=0x0190, f02=»!@P ! f$ P ! f ! f x ! f T Y & T X & C H r@ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl x T _ ! f X $ P !y wv R V P P" ! f x W x ( X $ X !y _ X
0x124724…1248b8 Dummy {f00=0x005c, f01=0x0190, f02=»X R@ X X &" Y * X ) V Y !z6 X $ X & !zT X * wv w& `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 x > B P ! B C ^N P R ?] _ C
0x1248b8…124a4c Dummy {f00=0x005c, f01=0x0190, f02=»!@P ! f$ P ! f ! f ! f T Y & T X & C H r@ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl x T _ ! f X $ P ! wv R V P P ! f x W x ( X $ X ! _ X
0x124a4c…124be0 Dummy {f00=0x005c, f01=0x0190, f02=»X R@ X X &" Y * X ) V Y !z6 X $ X & !zT X * wv w& `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 x > B P ! B C ^N P R ?] _ C
0x124be0…124d74 (0, 371) Dummy {f00=0x005c, f01=0x0190, f02=»!@P ! f$ P ! f ! f ! f T Y & T X & C H r@ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl x T _ ! f X $ P ! wv R V P P ! f x W x ( X $ X ! _ X
0x124d74…124f08 Dummy {f00=0x005c, f01=0x0190, f02=»X R@ X X &" Y * X ) V Y !z6 X $ X & !zT X * wv w& `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 x > B P ! B C ^N P R ?] _ C
0x124f08…12509c Dummy {f00=0x005c, f01=0x0190, f02=»!@P ! f$ P ! f ! f ! f T Y & T X & C H r@ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl x T _ ! f X $ P ! wv R V P P ! f x W x ( X $ X ! _ X
0x12509c…125230 Dummy {f00=0x005c, f01=0x0190, f02=»X R@ X X &" Y * X ) V Y !z6 X $ X & !zT X * wv w& `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 x > B P ! B C ^N P P P .
0x125230…1253c4 Dummy {f00=0x005c, f01=0x0190, f02=» B # P G W G H r@ X P P R: A l J Y X T Q (P H U ^ 9 1_N r8 X T @z P ( Az & _ ( Y _ z _x X T @z P ( Az &_ ( Y _ z _ i 9 @_ ( H z P z P $ $ 1 ) > ) $P e % >
0x1253c4…125558 Dummy {f00=0x005c, f01=0x0190, f02=» 9C @ $$ T %_< %_B R @ U 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P H X P Y X H P H j < ? < ? <(@ & $ P
0x125558…1256ec Dummy {f00=0x005c, f01=0x0190, f02=» =_D R _ 00 > & <h$ P > Z 0123456789 0123456789 ' < +,-. 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []~ * > ?;_: =!"#$%&/() @ABCDEFGHIJKLM
0x1256ec…125880 Dummy {f00=0x005c, f01=0x0190, f02=» M ~P ^ r8 L X X ! ! & r< ! & P D P D Z ( ! X P ! +Tf X ! TJW +T^ X " T$ X > ! Y ; Y = ! f : ; ! W X ? ! Y 8 Y :<h Y 9 ! f : 8 ! W X F! Pt X ! PB 0P 1PVW X 0 ! P W X 0 ! P
0x125880…125a14 (0, 372) Dummy {f00=0x005c, f01=0x0190, f02=»] Z _R /P C _ . ! f X " T Y >_4 Y ?_: X F" Y F r< _ ! B <hP Y P d Y * ` * ! B $ P Y< P Y ( D X r@ X F$ T , Y FW Y F Y h ! X DT6 Y D ! Y & Y ( 3 ! Y * ` * ! 0 ! Y , Y . Y
0x125a14…125ba8 Dummy {f00=0x005c, f01=0x0190, f02=» X $P y $" ! P 0 : P Y 3 _Z X $P y $ Y $ X 3 4 Y $ _ dR d R _ 00,0: " 4 X P Y 4 Y 6 Y 4 X 4 ," :HR$ 0 P :h ! f Y 4_ X 6 , ! f Y 6_ 4 :h 0 :C ! 4121518242530333536485051606670720102030405
0x125ba8…125d3c Dummy {f00=0x005c, f01=0x0190, f02=» @ l A l @ l E D P _ $ % $P _ % A @ " Q A : R W2 A A V P. d_ " :c* A V W " :d2 * A & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR
0x125d3c…125ed0 Dummy {f00=0x005c, f01=0x0190, f02=» @ V W Q Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z(
0x125ed0…126064 Dummy {f00=0x005c, f01=0x0190, f02=» | CRT @ P @ ! P W @ V P _ @ ! P | !RRP V @ P W _: | | L V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W
0x126064…1261f8 Dummy {f00=0x005c, f01=0x0190, f02=» W W V 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A A Q @ R @ ! T A A V @ R V V I W V $ ) H A I. : C.
0x1261f8…12638c Dummy {f00=0x005c, f01=0x0190, f02=» A _> : A V A A A A A $ A D A H : 9e9C) A I " 9A ! 9B r @ r A I ! ( : A V A A A A ! T A A I ! : 9E @ r s A I T ) A _ I N T :
0x12638c…126520 Dummy {f00=0x005c, f01=0x0190, f02=» B. X B.9 H Q V_ _ !SST& 0 U R X A X W : @ ' R xW V W$ V P P Z W P V V T Z V T W P V W @ $ P p W T : A V_
0x126520…1266b4 (0, 373) Dummy {f00=0x005c, f01=0x0190, f02=» [ [ : j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W
0x1266b4…126848 Dummy {f00=0x005c, f01=0x0190, f02=» V : V J P r V U _ V Z K W W :K W r Q R t V v : V W V ) : V <B W |P v v :
0x126848…1269dc Dummy {f00=0x005c, f01=0x0190, f02=» W > <B V x V |P v 1 v W V z ` r_f V : W R R dP ( N W x l_ V : " D Pd W V PL $;A^ D E D P. V P P T E _J X E _T " D T E X E D E %
0x1269dc…126b70 Dummy {f00=0x005c, f01=0x0190, f02=»_ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B X _ r$ : V ) v : 4P:
0x126b70…126d04 Dummy {f00=0x005c, f01=0x0190, f02=» $ H ) P _ " = D 4 Q 6_d = G $ V W $ : V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b
0x126d04…126e98 Dummy {f00=0x005c, f01=0x0190, f02=»_b A 9n A :B A @ .V 3 S Y& P4 q q S P 3 _ q 3 q B A. @ D @ W x A : A r@ > l : LR ( W n
0x126e98…12702c Dummy {f00=0x005c, f01=0x0190, f02=» _v V d , V P _ N L % V d V f v G G v U N v G v : dP ( LV l : r N V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V
0x12702c…1271c0 Dummy {f00=0x005c, f01=0x0190, f02=» dP l_ W ~ R dX4 l_ ` @ ` W W ~ pPn V W % R , | X " E R W ~ R R P R Xv _|W dT : ( r W x l_ V P I W z ` pPl H
0x1271c0…127354 (0, 374) Dummy {f00=0x005d, f01=0x0190, f02=» W t V b v ( v W p V ` $ W ` ;h 0 :C # : .=H N | .=H N | N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ R
0x127354…1274e8 Dummy {f00=0x005d, f01=0x0190, f02=» !TTXX !CCT !UUT d 0Wh 2 .:H N P V _ R :h " YV : v `?A @ W W :b / W : W @ W D | V W W
0x1274e8…12767c Dummy {f00=0x005d, f01=0x0190, f02=» P _ W ` W d V V W W V V >k 8 W W t V V : x A P D W r D W @ @ % V , P@ , - 4 ] 4 Y 5 X *
0x12767c…127810 Dummy {f00=0x005d, f01=0x0190, f02=» !TTX" A 9 A : @ @ P. @ " P #D P " P #E P " P #F P : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP h W t N =H N W l N
0x127810…1279a4 Dummy {f00=0x005d, f01=0x0190, f02=» _2 P0 " U _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P !TTT @ @ T : @
0x1279a4…127b38 Dummy {f00=0x005d, f01=0x0190, f02=» 3 @ & P 3 3 YL @ @ T : q ` @ P _ 3 S S V V W @ @ T : P S S _ : . !TTP V h W t *
0x127b38…127ccc Dummy {f00=0x005d, f01=0x0190, f02=» I K T + Y@ V p _j V t Y !TTX @ @ T : @ R @ T P / _ T @ A V W h W t x PT W f ( W d G =h G
0x127ccc…127e60 Dummy {f00=0x005d, f01=0x0190, f02=» !TTX !CCTr h P, V r 4 U $ $ _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W h P0 W f W d V d V r < V f
0x127e60…127ff4 (0, 375) Dummy {f00=0x005d, f01=0x0190, f02=»R& @ @ @ % P V 4 4 4 _r @ @ T : W V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W V W R 9 W D ) $ P@ D L T@ D &P V U 0 I , I . $#
0x127ff4…128188 Dummy {f00=0x005d, f01=0x0190, f02=» < + + P V : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$
0x128188…12831c Dummy {f00=0x005d, f01=0x0190, f02=» _ @ @ T : N =H N : N =H N : &=H F : F =H F : F =H F : P N =H N T h _ : 00=H 00 P P _ _ : @ ! P (W ( : t < l @
0x12831c…1284b0 Dummy {f00=0x005d, f01=0x0190, f02=» 4 .J DC P T @ T 0 ,z " z ,z N z . DC | T vGP
0x1284b0…128644 Dummy {f00=0x005d, f01=0x0190, f02=» 8v DY : P F : F =H F : P N =H N T h _ : 00=H 00 P P _ _ : @ ! P (W ( : t < l @
0x128644…1287d8 Dummy {f00=0x005d, f01=0x40d0, f02=» L H IDENT T:DKA0 TRA 4.2 - - F1 O1111 REL 10.0 80-03-14 DK-2 DCLINE T:DKA0 T T:DKA0D f KBVGO z , ( KA @ * * @ * & P * &
0x1287d8…12896c Dummy {f00=0x005d, f01=0x018e, f02=» L H IDENT T:AGA0 TRA 4.2 - - F1 O1111 REL 10.0 80-03-14 DK-2 DCLINE T:AGA0 T T:AGA0A r f . * T:DGA0 D:CB10 C:CB10 D:TB10 Z:TB10 z * & 0 * & * &
0x12896c…128b00 Dummy {f00=0x005d, f01=0x400c, f02=» @ :AGA0 TRA 4.2 - - F1 O1111 REL 10.0 80-03-14 DK-2 DCLINE T:AGA0 T T:AGA0A r f . * T:DGA0 D:CB10 C:CB10 D:TB10 Z:TB10 z * & 0 * & * &
0x128b00…128c94 (0, 376) Opaque[0x194]
0x128c94…128e28 # DirEnt {nam=»PROMON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0bb0, f03=0x0000}
0x128c94…128e28 IdxSect {
0x128c94…128e28 f00 = 0x005d // 0x128c94 @0x0
0x128c94…128e28 f01 = 0x001e // 0x128c96 @0x2
0x128c94…128e28 gno = [ // 0x128c98 @0x4
0x128c94…128e28 [0x00]: C0x005d.0x2.0
0x128c94…128e28 [0x01]: C0x005d.0x3.0
0x128c94…128e28 [0x02]: C0x005e.0x0.0
0x128c94…128e28 [0x03]: C0x005e.0x1.0
0x128c94…128e28 [0x04]: C0x005e.0x2.0
0x128c94…128e28 [0x05]: C0x005e.0x3.0
0x128c94…128e28 [0x06]: C0x005f.0x0.0
0x128c94…128e28 [0x07]: C0x005f.0x1.0
0x128c94…128e28 [0x08]: C0x005f.0x2.0
0x128c94…128e28 [0x09]: C0x005f.0x3.0
0x128c94…128e28 [0x0a]: C0x0060.0x0.0
0x128c94…128e28 [0x0b]: C0x0060.0x1.0
0x128c94…128e28 [0x0c]: C0x0060.0x2.0
0x128c94…128e28 [0x0d]: C0x0060.0x3.0
0x128c94…128e28 [0x0e]: C0x0061.0x0.0
0x128c94…128e28 ]
0x128c94…128e28 }
0x128e28…128fbc Dummy {f00=0x005d, f01=0x0190, f02=» T r J h h h h h h h h h G H & 0 h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x128fbc…129150 Dummy {f00=0x005d, 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 d " e _ @e > > U # T @6 H ( ( P c P W: P, Ae @ V ( U P" @= V L= W @=
0x129150…1292e4 Dummy {f00=0x005d, f01=0x0190, f02=» 6 8 e Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @e : ) Ae _ @ @ A H ( Ae _ ? ? ? ? ? ^ A _ _ ^ e $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x1292e4…129478 Dummy {f00=0x005d, f01=0x0190, f02=» Q Q > > 0 @e~ 1 Ae~ P P > ? * X " R" Y T ? X D e T> e W8 > _& @ 8 R" Y T ? X D e T e W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @= V ? = > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x129478…12960c Dummy {f00=0x005d, f01=0x0190, f02=»B pU e J BAB rU e J B B pU e J BQB rU e J!B!B pU e J!BaB rU < ^ B " P Q :A H P P
0x12960c…1297a0 Dummy {f00=0x005d, f01=0x0190, f02=» T R p , # PJ P , RL P 4 ] P $ P ] U PD P< P0 P, R 4T ] U X "0Tp+ Y WH 8Z | 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >Wh T #
0x1297a0…129934 (0, 377) Dummy {f00=0x005d, f01=0x0190, f02=» 8% =A Y T Z& `_, X ' X 4X< XB U T T U 5 U R " ] v e ;h # <c$ P X X " Z "X 8# T& 8Z V2 X # T 8R X $P y $ Y $ X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P
0x129934…129ac8 Dummy {f00=0x005d, f01=0x0190, f02=» ` > P P P X X XF _H Wj ? T T = W u > > E D E E S( % ;DV " U D $ P #`P T E e _ " P T 8! P6 ` Y Y Y Y _8 X XB Y X X X X ' 4 B U B ("
0x129ac8…129c5c Dummy {f00=0x005d, f01=0x0190, f02=» V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] v Y > > V P X P P _ ] W Q Y _: @ T X P X R4 @ U S v U t " D P D T U W _ U 4XR XX 5 `_b T 8TV 9
0x129c5c…129df0 Dummy {f00=0x005d, f01=0x0190, f02=»_: N @ r V V E E S % ;DV " U D $ P2 P P 1P. P W P P 5P e e X P Wj B " P H5 :H B # L5 9 B Y B Y (P8 @4 5 e @4
0x129df0…129f84 Dummy {f00=0x005d, f01=0x0190, f02=»! P Y _R X ! X _ B Y _l e X P A = Y Wb Y @_ X X A = Y _& Y t @ x 0 A z A x_: X P ( y Y W V (P 0 ) > (P _ ) 1_ (X( P _ 0 )_6 _2 _$ (P _ ) 1 4 ( X
0x129f84…12a118 Dummy {f00=0x005d, f01=0x0190, f02=» t @ x T A z A x > A Z A ^ A b A f A j nW > E BHBB ! 2B ! T P P ( ! Tf Tb A )P A (TR ! TL ! TD T@ ! T8 ! A I A P " ! _ !
0x12a118…12a2ac Dummy {f00=0x005d, f01=0x0190, f02=» < 8 ! ! A _: ! X6_Z A @ V @ T 1 R 0 2P P P A J @ v 8 H6 @ VP E (P^ X RX X P X TJ P C 6 C P " H6 " P X * Y X T ! W ; W( <FW" X R X T <F ! ! X ! X ! WB A | @ v X
0x12a2ac…12a440 Dummy {f00=0x005d, f01=0x0190, f02=» @ @ A v ! @ zXV ! T @ P ! ! _p /T, @ X @ ~P @ T0 ! ! A _ A v B A z @ ~T _2 _6 @ x A A z X ! XD Y _N @ zTL X ! P ! # T @ VT ! _ ! ! _ A | A H6 E A A v 4 @ zP ! ! ! j @ P
0x12a440…12a5d4 (0, 378) Dummy {f00=0x005e, f01=0x0190, f02=» ! j X ! X Zp X Xp Xt_~ @ xP6 X R0 X P T$ T Y W 6 P C <F t A z A x 4 @ V @ T @ A @ A A ! T2 P4 PJ PL P P. 1 A @ ]6W P _@ @ V @ E ! P ! 4 _$ ! 2_l / A T
0x12a5d4…12a768 Dummy {f00=0x005e, f01=0x0190, f02=» T( @ ) ! 8 ! @ P - ! x !4^ W 0 " @ PL R ~T }T T0 W, ! P " ! " :A *@ H5 T 0 ! W R ! A @ @ UH Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! N ! % ! R
0x12a768…12a8fc Dummy {f00=0x005e, f01=0x0190, f02=»PX ! H5 4 ! A d ? X_ I " P A A 4 A _$" P H6 B P W ! > e _ ! ! 1 4 A @4 `4 @4 P 0 M A 4 ? @4 `4 @4 P $ Y _ @ A ~ @ T | @ A ~ | e A ~ a 4 = T X A
0x12a8fc…12aa90 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 J X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12aa90…12ac24 Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12ac24…12adb8 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12adb8…12af4c Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12af4c…12b0e0 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12b0e0…12b274 (0, 379) Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12b274…12b408 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12b408…12b59c Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12b59c…12b730 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12b730…12b8c4 Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12b8c4…12ba58 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12ba58…12bbec Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12bbec…12bd80 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12bd80…12bf14 (0, 380) Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12bf14…12c0a8 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12c0a8…12c23c Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12c23c…12c3d0 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! ! % ! R
0x12c3d0…12c564 Dummy {f00=0x005e, f01=0x0190, f02=»P ! H 4 ! A d ? X_ I " P A A 4 A _$" P H B P W ! > _ ! ! 1 4 A @ ` @ P 0 M A 4 ? @ ` @ P $ Y _ @ A ~ @ T @ A ~ A ~ a 4 T X A
0x12c564…12c6f8 Dummy {f00=0x005e, f01=0x0190, f02=» @ 4 ! A ! ! A @ :H 4 X" " ! " :A *@ H T 0 ! W R ! A @ @ U Zx Q P Q T 0 ! A 0 ! A ! " ! " ! A ~ _" A A x ! :f"? H4z ! "?
0x12c6f8…12c88c Dummy {f00=0x005e, f01=0x0190, f02=» ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWX
0x12c88c…12ca20 Dummy {f00=0x005e, f01=0x0190, f02=» {|[_m TOSS9 9 9 :"9 :h9 :h9 : : 9 : : 9 9 9 ; $ ( , 0 4 8 < ( H T 7 0 ) t $P $ ) U @ C @6 W 7 0P P > e Z 0P R I W 7H _" H P 4 I >
0x12ca20…12cbb4 (0, 381) Dummy {f00=0x005e, f01=0x0190, f02=»W& T" P X T e T 7 W 7H C 8W T 8P Y ^ 5 ) P U e XH ' X X D #DP @ b P X l T _| Xv Y @ P< e T W0 X &P* T P H T _ X I Y T
0x12cbb4…12cd48 Dummy {f00=0x005e, f01=0x0190, f02=» Y P R R P 9xP (@ 6 (@ " 2 X $? P9 $ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ 9 P0 B P* 0$
0x12cd48…12cedc Dummy {f00=0x005e, f01=0x0190, f02=»<F e X B D C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H _2 B U X :| > ? _ X T (@ :h ^ > > ? _ X T X X T % T ?C L Rl
0x12cedc…12d070 Dummy {f00=0x005e, f01=0x0190, f02=» Y _| ?(@ X P& T D #DP 0P X T 4 Y X e X T X e 1 1 X P - M T $ PD _ T " # p X L R P 9rP (@ 6 ^ X P8 P0 # P T P 0P 1 _ t W Y > >
0x12d070…12d204 Dummy {f00=0x005e, f01=0x0190, f02=» P @ 6 1 A 6 _ P 9 > > &84f6fHfPfL=>fly yLy z zj x y H F > @ I >>@ I # T p > P p (_H P2 P P 1P. P ?HW P P 5P e @. e X P Wj B " P H5 :H B # L5 9 B Y B Y I P8 @e8 e~
0x12d204…12d398 Dummy {f00=0x005e, f01=0x0190, f02=»_ B ! P Y _R X ! X @ _ B Y _l e X P A?l = ?t Y Wb Y @_ X X A? = ? Y _& Y ? @@ 0 A@ A@ _: X P ( y Y W I (P 0 ) > > (P _ ) 1_ > (X( P _ 0 )_6 A _2 A _$ (P _ ) 1 4
0x12d398…12d52c Dummy {f00=0x005e, f01=0x0190, f02=»P T ? @@ T A@ A@ > A@ A@ A@ A@ A@ @ W > BHBB >8 !H< 2B !HbT P P CF C C^ !HbTf Tb AI P AI TR !HbTL !HbTD T@ !HX T8 !HXA I AA P " D !Hr E
0x12d52c…12d6c0 Dummy {f00=0x005e, f01=0x0190, f02=»P @@ A 8 !Dh !E4 AA _: !HX X6_Z A@ @I @A T 1 R 0 2P P P AA ? @@ 8 H6 @I P E I P^ X RX X P X TJ P C ? C P " H6 " P X * Y X T !@ W ; W( <FW" X R X T <F !@ @. !F A X ! X !F WB A@ @@
0x12d6c0…12d854 (0, 382) Dummy {f00=0x005f, f01=0x0190, f02=»@ D @A @A AA D !I< @@ XV !HX T @A P !F4 !I _p /T, @A X @@ P @@ T0 !E4 !F0 AA _ AA D B A@ @@ T _2 _6 @@ @ A@ A@ X ! XD Y _N @@ TL X ! P !F A # T @I T !F _ !Dh !F _ A@ AA H6 E A@ A@ 4 @@ P !F4 !I A !H
0x12d854…12d9e8 Dummy {f00=0x005f, f01=0x0190, f02=»_^ @@ !H X ! X Zp X Xp Xt_~ @@ P6 X R0 X P T$ T Y W A ? P C <F ? A@ A@ 4 @I @@ T @A AA @A AA A@ !HbT2 P4 PJ PL P P. 1 AA @A ]6W P _@ @I @A E !I P !H< 4 _$ !I 2_l /
0x12d9e8…12db7c Dummy {f00=0x005f, f01=0x0190, f02=» @A T( @I !H` 8 !H` @A P - !H` x !d W 0 " @A PL R ~T }T T0 W, !H` P " ! " :A *@ H5 T 0 !H` W R !H` AA @A @A UH Zx Q P Q T 0 !H` AA 0 !H` AA !H` " !HN " !HN FT A@ _" A@ A@ !G !HB %
0x12db7c…12dd10 Dummy {f00=0x005f, f01=0x0190, f02=»T 2PX !IL H5 4 !H A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W !IL @ e _ !HX ! 1 4 AHp @e: `e: @e:P 0 M AHp 4 ? @e: `e: @e:P $ Y @ _ @ A= @. @> T H A >8 @ A= @. H e A= a> @. 4 = H
0x12dd10…12dea4 Dummy {f00=0x005f, f01=0x0190, f02=»I| @I~ @I 4 ! AA !HX I~ !HX AA @I~:H 4 > I I R " ! " :A *@ H5 T 0 ! W R ! AA @A @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12dea4…12e038 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12e038…12e1cc Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @A @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12e1cc…12e360 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12e360…12e4f4 (0, 383) Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @A @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12e4f4…12e688 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12e688…12e81c Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @ @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12e81c…12e9b0 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12e9b0…12eb44 Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @ @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12eb44…12ecd8 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12ecd8…12ee6c Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @ @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12ee6c…12f000 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12f000…12f194 (0, 384) Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @ @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12f194…12f328 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12f328…12f4bc Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @ @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12f4bc…12f650 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12f650…12f7e4 Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @ @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! ! %
0x12f7e4…12f978 Dummy {f00=0x005f, f01=0x0190, f02=»T 2P ! H5 4 ! A A d ? @ _ I " P A@ >8 A$ A> @. 4 A _$" P H6 B2P W ! @ _ !HX ! 1 4 AHp @ ` @ P 0 M AHp 4 ? @ ` @ P $ Y @ _ @ A= @. @> T A >8 @ A= @. A= a> @. 4 = H
0x12f978…12fb0c Dummy {f00=0x005f, f01=0x0190, f02=» @ @ 4 ! AA !HX I~ !HX AA @I~:H 4 > I R " ! " :A *@ H5 T 0 ! W R ! AA @ @A U Zx Q P Q T 0 ! AA 0 ! AA ! " ! " ! FT A@ _" A@ A@ ! :f"? Hd !
0x12fb0c…12fca0 Dummy {f00=0x005f, f01=0x0190, f02=» Tz n(f { j c > > @e 0 Ae W <F ^ ! Z( e (X0 @e P T M ]@ , ) Ae P* P Y U ( ) 5 & > > [ [ e Z Z Z ? Z > P "R Y W 0 e Pl T
0x12fca0…12fe34 (0, 385) Dummy {f00=0x005f, f01=0x0190, f02=» f h f ? X V Y e ! *W< Y U R -P h X , ) Y . h X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > i > P^ P C h B h T B % X . $ 4 T % h X ,T ! W i Y .
0x12fe34…12ffc8 Dummy {f00=0x005f, f01=0x0190, f02=» R Wz B g< Wn W 0 Z i B Z Z" X . 0T N W X ,P Y . 0 %_. % Y . W _f P i _x C e " il QXR X # PN X R(;GV$ i: P8 X R2;GV. X " g< X , $4 P i X .T * W Y , - e ? X :a Z T
0x12ffc8…13015c Dummy {f00=0x005f, f01=0x0190, f02=»_$ _*_, _ %0=c X 0P > 0 > >_ B 1 > NT 0 _ j"n l`lrl l ! P P k & k e B P B H " +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 mR ! lH B B U4 $ !
0x13015c…1302f0 Dummy {f00=0x005f, f01=0x0190, f02=» @_ ! > B P !m B C k ^N P R ?] _ C _ > >" $ P X ' X ] ! lH j B !n !m ! l B Y & !m W j 8!0T 8 !@P ! $ P ! ! l8 ! T Y & T X & C <F e X Y &
0x1302f0…130484 Dummy {f00=0x005f, f01=0x0190, f02=» X $ P !m j R V P P" ! lHW l8 X $ X !m _ X $ X X & !m !m Y _8 X " X &" Y )U W ! ! ! Y 4 B j U )X R@ X X &" Y * X ) V Y !m X $ X & !m X * j
0x130484…130618 Dummy {f00=0x005f, f01=0x0190, f02=»w.x > B P ! B C ^N P R ?] _ C _ > >" $ P X ' X ] ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C <F e X Y &
0x130618…1307ac Dummy {f00=0x005f, f01=0x0190, f02=» X $ P !m j R V P P" ! lHW l8 X $ X !m _ X $ X X & !m !m Y _8 X " X &" Y )U W ! ! ! Y 4 B j U )X R@ X X &" Y * X ) V Y !m X $ X & !m X * j
0x1307ac…130940 Dummy {f00=0x005f, f01=0x0190, f02=» > B P ! B C ^N P R ?] _ C _ > >" $ P X ' X ] ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C <F e X Y &
0x130940…130ad4 (0, 386) Dummy {f00=0x0060, f01=0x0190, f02=» X $ P !m j R V P P" ! lHW l8 X $ X !m _ X $ X X & !m !m Y _8 X " X &" Y )U W ! ! ! Y 4 B j U )X R@ X X &" Y * X ) V Y !m X $ X & !m X * j
0x130ad4…130c68 Dummy {f00=0x0060, f01=0x0190, f02=» > B P ! B C ^N P R ?] _ C _ > >" $ P X ' X ] ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C <F e X Y &
0x130c68…130dfc Dummy {f00=0x0060, f01=0x0190, f02=» X $ P !m j R V P P" ! lHW l8 X $ X !m _ X $ X X & !m !m Y _8 X " X &" Y )U W ! ! ! Y 4 B j U )X R@ X X &" Y * X ) V Y !m X $ X & !m X * j
0x130dfc…130f90 Dummy {f00=0x0060, f01=0x0190, f02=» > B P ! B C ^N P xJ P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P n,P W< n.T6 x ' P !x <F B # P G W G <F e X P P R: Aw = xp Y X T
0x130f90…131124 Dummy {f00=0x0060, f01=0x0190, f02=» i x 9 @_ x H n,P n.P $ $ 1 ) > ) $P e % > (@ B Z F U F Z n( P U e C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D
0x131124…1312b8 Dummy {f00=0x0060, f01=0x0190, f02=» X P t Y X H P <F < ? < ? <(@ z $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h z P ?_" = > = > = =_D R _ 00 > & <h$ P >z { {>{~{>{~ 01
0x1312b8…13144c Dummy {f00=0x0060, f01=0x0190, f02=»BCDEFGHIJKLMNOPQRSTUVWXYZ []~ * > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []^ [000b [000e [00t [00q 8 [00w [00v c [5n | ~ ~, $$ X " X # Y Y M| P ^ e L|4|<|H} } ! !~ e !~ P } P } { (
0x13144c…1315e0 Dummy {f00=0x0060, f01=0x0190, f02=» 9 ! { 8 ! W X F! Pt X ! PB 0P 1PVW X 0 ! W X 0 ! ! Z Y 0 { 0 ! X 0 Y .W 0P 1T ! W ! ! X F) Y F X " T Y > Y ? W P ! !~ W: > ] Z _R /P C _ . ! X " T Y >_4 Y ?_: X F" Y F e _ !
0x1315e0…131774 (0, 387) Dummy {f00=0x0060, f01=0x0190, f02=»{ ! X DT6 Y D ! Z Y & Y ( 3 ! Z Y * { * ! 0 ! Z Y , Y . Y X | e Y 3 ! [ ! 5 ! n ! 8" R P ! ( X $P y $W $ = L Y $ ! X $P y $" ! P 0 : P Y 3 _Z X $P y $ Y $ X 3 4 Y $
0x131774…131908 Dummy {f00=0x0060, f01=0x0190, f02=» ! Y 6_ 4 :h 0 :C ! 412151824253033353648505160667072010203040506070809101111131415 ($SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A @ "
0x131908…131a9c Dummy {f00=0x0060, f01=0x0190, f02=» F W F CRT F A @ @ ! P2 @ P ;b=H F CR F W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q Z
0x131a9c…131c30 Dummy {f00=0x0060, f01=0x0190, f02=» T F W V = V W Y* P Z( = :L < P W <9B @ V W Q W @ @ A 8 @ CRT @ P @ ! P W @ V P _ @ ! P !RRP V
0x131c30…131dc4 Dummy {f00=0x0060, f01=0x0190, f02=» :l 9b ) V _ @ V W W , , P , TJ V 0 !;;P P V P$ _ P !;;T X$ W "_J , T $ ,W $ V W W V 0 !;;P P V Xb _ P
0x131dc4…131f58 Dummy {f00=0x0060, f01=0x0190, f02=» I " W V $ ) H A I. : $ C. X C.9h! $ $# " $ $ :A K : A T.I T P 1 I P < R P A _> : A A A A r A A A A : 9e9C) A I "
0x131f58…1320ec Dummy {f00=0x0060, f01=0x0190, f02=»r s A I T ) A _ I N T : r 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P J @ T X W n : YX d C !CCTZ B. X B.9 H F Q _ v_ !SST& 0 U L R X
0x1320ec…132280 Dummy {f00=0x0060, f01=0x0190, f02=» V T W P V W @ $ P p W " T : A H _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ : z
0x132280…132414 (0, 388) Dummy {f00=0x0060, f01=0x0190, f02=» W Z A. c @ V W U R $ )_ : W W W W W Q@ V V v x W V V v p R( W V W ^< _@ V _P V V : V J P r V U
0x132414…1325a8 Dummy {f00=0x0060, f01=0x0190, f02=» : V W V ) : V <B W |P v v : $ V |P v w v : V $ V l $ V M : W V R RR > R W > <B V x V |P v 1 v W V z ` _f V :
0x1325a8…13273c Dummy {f00=0x0060, f01=0x0190, f02=»P P T E _J E _T " D T E E D E % : " R ;B " R P( |P v v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ;
0x13273c…1328d0 Dummy {f00=0x0060, f01=0x0190, f02=» 0 R P P B _ e : V ) v : 4P: " D : , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W 0 $ H ) P _ " = D 4 Q _d :
0x1328d0…132a64 Dummy {f00=0x0060, f01=0x0190, f02=»! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q @ P A. @ P _b A 9n A :B A @ .V 3 S
0x132a64…132bf8 Dummy {f00=0x0060, f01=0x0190, f02=» A ( : A e > l : R W n V pT : N V l W H V ]" . nT" W v W n V ~P , W x _v V d , V P _ N L % V d V f v G G v U
0x132bf8…132d8c Dummy {f00=0x0060, f01=0x0190, f02=» N 9k! P % _ V V W W r W V v ) W b G v ) - V W f v ) G v ` " W p W ~ pP0 R P _ W ~ R X4 _ ` @ ` W W ~ pPn 0
0x132d8c…132f20 Dummy {f00=0x0060, f01=0x0190, f02=» : W x _ V P : I W z ` pPl 0 H - V I " R E R T E D E @ v H v E N #_v W | ;b W W t V b v ( v W p V ` $ W ` N ;h 0 :C #
0x132f20…1330b4 (0, 389) Dummy {f00=0x0060, f01=0x0190, f02=» H W z W | CRP W ` ` H W d 2 ;A @ R - @ - N !TTP N :H N TBT W W8 2 " T @ N =H N J @ ) d !TTXX !CCT h !UUT d Wh 2 .:H N P
0x1330b4…133248 Dummy {f00=0x0060, f01=0x0190, f02=» / W : W @ W D V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a w ` :A W V d 4 W P _ W ` W d V V W W V V >k
0x133248…1333dc Dummy {f00=0x0060, f01=0x0190, f02=» V , P@ , - 4 ] 4 Y 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP @ T Y d !TTX" A 9 A : @ @ P. @ " P #D " P #E "
0x1333dc…133570 Dummy {f00=0x0060, f01=0x0190, f02=» : @ :B W . !TTP W t N =H N W l N =H N : W p N =H N J W | ( @ % P W @ % P P0 r " U _2 P0 " U
0x133570…133704 Dummy {f00=0x0060, f01=0x0190, f02=» W @ % P d !TTT j @ @ T : @ ! P @ @ CRT 3 @ S @ PP !RRP @ ! T 3 @ & P 3 3 YL @ @ T
0x133704…133898 Dummy {f00=0x0060, f01=0x0190, f02=» S S _ : . !TTP V W t * P r _ Ph W p W V 8 8 4 D P$ " @ # P H I K T + Y@ V p _j V t Y d !TTX @ @ T
0x133898…133a2c Dummy {f00=0x0060, f01=0x0190, f02=» V W W t PT W f ( W d * f G =h G V d V r < V f P W f _B V W V t Yr d !TTX @ @ T : d !TTX !CCTr P, V r 4 U $ $ _.
0x133a2c…133bc0 Dummy {f00=0x0060, f01=0x0190, f02=» !CCP W P0 W f W d * V d V r < V f _2 U^ V 8 8 8 4 D P$ " @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T : W
0x133bc0…133d54 (0, 390) Dummy {f00=0x0061, f01=0x0190, f02=» 9 W D " ) $ P@ D L T@ D &P V U 0 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 # ;b W ;a
0x133d54…133ee8 Dummy {f00=0x0061, f01=0x0190, f02=» z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]e W v P _ @ @ T : N =H N J : N =H N J : &=H
0x133ee8…13407c Dummy {f00=0x0061, f01=0x0190, f02=»_ _ : @ ! P (W ( : H > > N @ CRT" @ ! P ` @ E "W ` @ E " & 0 : a b > ` ( cI .> DC ` r ` P @ 0
0x13407c…134210 Dummy {f00=0x0061, f01=0x0190, f02=» T{ GP T xf KB z W 8j DY J :
0x134210…1343a4 Dummy {f00=0x0061, f01=0x0190, f02=» & H D % [ ( !! gg++ L XFK L NbXHNPL L XDWR[<WRW:XBX X0X,W V W V W|W W W WrXB U 6 V K K K K V K : L U U U L V V V W$ V Z P
0x1343a4…134538 Dummy {f00=0x0061, f01=0x0190, f02=» [ V 7_ Z W$ Z 7 Z Z P : V R (Q V : : U J P v I < : J Qf : P 4 ! TV_ K W WJ WxW +_ W W K W. _& X F W X & F J K :
0x134538…1346cc Dummy {f00=0x0061, f01=0x0190, f02=» : XH : P & _ &X _ : : : : Y V : { : Y Y PX 9 _ Y [ Y Z : R" P $ 1T Y W 5 _$ : Y $ R W R # P W ) V E Y
0x1346cc…134860 Dummy {f00=0x0061, f01=0x0190, f02=» L L jP kT T : & 9! " : $ : Y K $ : W " T & T + : * & !@P `1` P O Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R
0x134860…1349f4 (0, 391) Opaque[0x194]
0x1349f4…134b88 # DirEnt {nam=»MODMON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0830, f03=0x0000}
0x1349f4…134b88 IdxSect {
0x1349f4…134b88 f00 = 0x0041 // 0x1349f4 @0x0
0x1349f4…134b88 f01 = 0x0020 // 0x1349f6 @0x2
0x1349f4…134b88 gno = [ // 0x1349f8 @0x4
0x1349f4…134b88 [0x00]: C0x0041.0x2.0
0x1349f4…134b88 [0x01]: C0x0041.0x3.0
0x1349f4…134b88 [0x02]: C0x0042.0x0.0
0x1349f4…134b88 [0x03]: C0x0042.0x1.0
0x1349f4…134b88 [0x04]: C0x0042.0x2.0
0x1349f4…134b88 [0x05]: C0x0042.0x3.0
0x1349f4…134b88 [0x06]: C0x0043.0x0.0
0x1349f4…134b88 [0x07]: C0x0043.0x1.0
0x1349f4…134b88 [0x08]: C0x0043.0x2.0
0x1349f4…134b88 [0x09]: C0x0043.0x3.0
0x1349f4…134b88 [0x0a]: C0x0044.0x0.0
0x1349f4…134b88 [0x0b]: C0x0044.0x1.0
0x1349f4…134b88 [0x0c]: C0x0044.0x2.0
0x1349f4…134b88 [0x0d]: C0x0044.0x3.0
0x1349f4…134b88 [0x0e]: C0x0045.0x0.0
0x1349f4…134b88 [0x0f]: C0x0045.0x1.0
0x1349f4…134b88 ]
0x1349f4…134b88 }
0x134b88…134d1c Dummy {f00=0x0041, f01=0x0190, f02=» , { p S8Sd+ + c @ Tg t z ^ b bLPL H b2 Z ` z
0x134d1c…134eb0 Dummy {f00=0x0041, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A U A @ * A A , @ ~ A A ~ @ A A @ A A @ A A @ A
0x134eb0…135044 Dummy {f00=0x0041, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x135044…1351d8 Dummy {f00=0x0041, f01=0x0190, f02=» Q ( R " S T Y G P H L V I U . V h_v A B _ NO! A A A A A A A A z *T A _ P A A d . , , < + - ; t : X " H W X " H H A A A _T @ P A 1+X A
0x1351d8…13536c Dummy {f00=0x0041, f01=0x0190, f02=» & .T @ W @ A @W dW 0 Z P & l_, W W PP @ & l 0 & T A P P p r :_b d P D r_J A B Z .T @ W @ T @ W @ @ >a Z P & P @ A B P P
0x13536c…135500 Dummy {f00=0x0041, f01=0x0190, f02=» P 3P C @ P @ x @ P @ Q A . @ B A " T @ W @ A 2 A .P @ j_2 .T 4 0 P j pP _ @ j . d 0 @ @ @ P d 0 @ A B b 9 Y 4>a Y t c x
0x135500…135694 (0, 392) Dummy {f00=0x0041, f01=0x0190, f02=» A A P@ @ PB z z d . @ ! T A @ A # A . & RE RN ME MN W R, ( T ( W P T $ ; V ; W~&~ P &`P 6 P @ $ P $W $ TR PJ#~ > V . >A P Y X W ^ ? ?
0x135694…135828 Dummy {f00=0x0041, f01=0x0190, f02=» " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? > > > > > > > @ > ? ? ? ? ? ? ? A > A >
0x135828…1359bc Dummy {f00=0x0041, f01=0x0190, f02=» 0:D A z_* A " A A b P & T A A " @ R _U . r " A >: D A > " A Z A ^ b$ T ! " A @ BT 0W 0W A @ BT 1W 1 @ " P& A UT @ W T @ W T @ W @ " " ? ?
0x1359bc…135b50 Dummy {f00=0x0041, f01=0x0190, f02=» ! R :W" r W r W W ?W /W : A W ! A A PL _ @ _ I T " T A P I T$! A A A A A A A A J A A @ A @ > @ _ . I d 0R> M A P6 T @
0x135b50…135ce4 Dummy {f00=0x0041, f01=0x0190, f02=» H ( ( P c P W: P, Ap V ( U P" @!BV L!BW @!T U " q A A Q > ? A n F A lQ _0 A l < Q f P f Q f Z Y _ 8 q Q Z P 0 9 _ _, ? P H H
0x135ce4…135e78 Dummy {f00=0x0041, f01=0x0190, f02=»p $P T I R $ 5 % > ? W ? W ? T T$ U U U U T U U " > > 4 T - 1_( U T P 0 U _t ? @p T 0 Ap 1 Q Q > > 0 @p 1 Ap P P > ? * X " R" Y T ? X D p T>
0x135e78…13600c Dummy {f00=0x0041, f01=0x0190, f02=» > > @!hV ? !h > _ > ? _ > > ? ^ ! Y ^ _ ? A. $ ( , 0 4 8 < #M 1 p J B B p J B B pU p J BAB rU p J B B
0x13600c…1361a0 Dummy {f00=0x0041, f01=0x0190, f02=» @ R t D J z B " P Q :A H &P P q H !@T I q T ! 1 U q A ? W A ? W A ? W A ? W U R ; V * # T f R p # PJ P p RL P 4 ] P $ P
0x1361a0…136334 (0, 393) Dummy {f00=0x0042, f01=0x0190, f02=» $P4> R0> 8' T Y X ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ ! < P 8R R q Y $ X Z ;BR 8% =A Y T Z& _, X ' X f 4X< XB U T < T U 5 U
0x136334…1364c8 Dummy {f00=0x0042, f01=0x0190, f02=» X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P h 4T U 8 # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X > P P P X XF _H Wj ? T T ! W u
0x1364c8…13665c Dummy {f00=0x0042, f01=0x0190, f02=» Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ]
0x13665c…1367f0 Dummy {f00=0x0042, f01=0x0190, f02=» D P D T U W _ U 4XR XX 5 _b 8 F T 8TV 9WD B 7P P q Ap W Ap @p A.W ? A I.9 X R C C q ?A @p A. X V 9_: , @ 4 @ R r
0x1367f0…136984 Dummy {f00=0x0042, f01=0x0190, f02=» @ C @ W 0P P > p Z 0P R I W _" H P 4 I " > T C T, V. Y p T ~ Pn q 0 ) W` X P ~ T& B RNP" A > @ A ! > W> @W& T" P X T p T W C
0x136984…136b18 Dummy {f00=0x0042, f01=0x0190, f02=» X l T _| Xv Y @ P< p T W0 X &P* T P H T _ X I Y T # C C W4 O " # X Y ) C C x '? Y p T Y W Y T # P W " Y P R R P P (@ (@ " 2 X $?
0x136b18…136cac Dummy {f00=0x0042, f01=0x0190, f02=»! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & q X B D C > X H UJ H B
0x136cac…136e40 Dummy {f00=0x0042, f01=0x0190, f02=» U X > ? _ X T (@ ^ > > ? _ X T X X T % T ?C L Rl B_@(@ L U L Q0 M b X D ( ) 1 > _" X X T U B q F Y _| ?(@ X P& T D #DP
0x136e40…136fd4 (0, 394) Dummy {f00=0x0042, f01=0x0190, f02=» L R P P (@ ^ X P8 P0 # P T P 0P 1 _ PW " Y > > T ! q x ! _ X_< ? ^ 4 _ @ 1 A _ P 9 > > & q q q q q $
0x136fd4…137168 Dummy {f00=0x0042, f01=0x0190, f02=»P " W P P 5P q # q X P Wj B " P H N:H B # L N 9 B Y B Y - P8 @H H q @H `H @H P 0P _ % AH AH Y # _| B QZ " #R_ X P 0 Y P C _ " _ B ! P Y _R X ! X # _ B Y _l q
0x137168…1372fc Dummy {f00=0x0042, f01=0x0190, f02=»-J (P 0 ) > !x (P _ ) 1_ !x (X( P _ 0 )_6 $ _2 $ _$ (P _ ) 1 4 - X R2 X T* X P& , Y L C L C > @!v @!r @!t A!tX _" X P y Y X P T #h @$l T A$n A$l > A$N A$R A$V A$Z A$^
0x1372fc…137490 Dummy {f00=0x0042, f01=0x0190, f02=» ' & !+ Tf Tb A- P A- TR !+ TL !+ TD T@ !+ T8 !+ A I A$x P " ' !+ ( _ !+ T - ' " X !+ _ !, A$v @$nP @$lP !( A$n A$p_ !, @$pP @-JX@ !( T< A$t !) $ @$nP @-JP @$l %0 8 !' !( A$x_: !+ X6_Z A$t @-J @
0x137490…137624 Dummy {f00=0x0042, f01=0x0190, f02=» H N" P X * Y X T !# W W( W" X R X T !# # !) $ X ! X !) WB A$p @$j X A$v A$l A$x @$ A$ ( !, @$nT @$pP !) $ !, @$nT @$pX Wx A I $2 ! & q $L @$l @$t ( @$ @$~ A$ (j !, @$nXV !+ T @$xP !
0x137624…1377b8 Dummy {f00=0x0042, f01=0x0190, f02=» _N @$nTL X ! P !) $ # T @-JT !) _ !' !) _ A$p A$ H N E A$t A$j 4 @$nP !) !, $ !,^ @$ P !* !, A$n $ @!xT !) _ T #h_ $| A$l ?T C B B A$~ A$ A$ A$r A$t !) !, A$n_^ @$n !,^ X ! X Zp X Xp Xt_~ @$lP6
0x1377b8…13794c Dummy {f00=0x0042, f01=0x0190, f02=»P4 PJ PL P P. 1 A$ @$ ]6W P _@ @-J @$ E !, P !+ 4 _$ !, 2_l / A$xT W ,W A$ A$ W W W A$ A$ !+B @$ !+ @$ !+ !+ !+ B J 4 !+B !+ @$~ @$ A$ @$ T( @- !+ 8 !+ @$vP - !+ x !HR W
0x13794c…137ae0 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 !+ A$ 0 !+ A$ !+ " !+ " !+ ) A$r _" A$t A$l !+B !+ % !+ R !+ !+ @- !+ 8 !+ X ! 9a D$ !+ X ! P ! T & !+ _b B J B !+ !+ 4 A ? $LJ"T A$zT 2PX !, H N 4 !+ $ A ? $L_ I " P A$t
0x137ae0…137c74 (0, 395) Dummy {f00=0x0042, f01=0x0190, f02=» ? @H `H @H P $ Y # _ @ A!r # @!zT ,p $ ! @ A!r # ,p q A!r a!z # 4 ! ,H X A!z > ! , Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A, A, A, ?a :a# P @, @, @, 4 ! A$z !+ , !+ A$z @, :H
0x137c74…137e08 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x137e08…137f9c Dummy {f00=0x0042, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x137f9c…138130 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x138130…1382c4 Dummy {f00=0x0042, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x1382c4…138458 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x138458…1385ec Dummy {f00=0x0042, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x1385ec…138780 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x138780…138914 (0, 396) Dummy {f00=0x0042, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x138914…138aa8 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x138aa8…138c3c Dummy {f00=0x0042, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x138c3c…138dd0 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x138dd0…138f64 Dummy {f00=0x0042, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x138f64…1390f8 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x1390f8…13928c Dummy {f00=0x0042, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x13928c…139420 Dummy {f00=0x0042, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x139420…1395b4 (0, 397) Dummy {f00=0x0043, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x1395b4…139748 Dummy {f00=0x0043, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! ! % ! R ! ! @ ! 8 ! X ! 9a D$ ! X ! P ! T & ! _b B J B ! ! 4 A ? $LJ"T A$zT 2P ! H 4 ! $ A ? $L_ I " P A$t
0x139748…1398dc Dummy {f00=0x0043, f01=0x0190, f02=» ? @ ` @ P $ Y # _ @ A!r # @!zT $ ! @ A!r # A!r a!z # 4 ! ,H X A!z > ! Z A$ 4 A$ ! !+ @$nP !) !, $ @$ P a$ A$ 4 A A A ?a :a# P @ @ @ 4 ! A$z !+ , !+ A$z @, :H
0x1398dc…139a70 Dummy {f00=0x0043, f01=0x0190, f02=» Zx Q P Q T 0 ! A$ 0 ! A$ ! " ! " ! ) A$r _" A$t A$l ! :f"? HHn !+ "? HHn !+ 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="H H
0x139a70…139c04 Dummy {f00=0x0043, f01=0x0190, f02=» q X P W B Y "W B " P H N:H B # L N Y @LHP P $_ ! I _R _$ X 9 T P8 @p p q @p `p @p P 0P _ % Ap Ap Y K8 _ B Q^ J K _ X P 0 Y P C _ J _ B ! P Y _V X ! X K8 _ B
0x139c04…139d98 Dummy {f00=0x0043, f01=0x0190, f02=» y Y W U( (P 0 ) > H (P _ ) 1_ H (X( P _ 0 )_6 X " X> XB LH _> LH _0 (P _ ) 1 4 T X R2 X T* X P& , Y L C L C > @H @H @H AH X _" X P y Y X P T K @L. T AL0 A
0x139d98…139f2c Dummy {f00=0x0043, f01=0x0190, f02=»B !S T P P N N N !S Tf Tb AT P AT TR !S TL !S TD T@ !S T8 !S A I AL: P " O !S PP_ !S T T O|" X !S _ !T AL8 @L0P @L.P !Pz AL0 AL2_ !T @L2P @U(X@ !P TD AL6 !Q LT @L0P( @U(P" @L. L 8 !O X Y
0x139f2c…13a0c0 Dummy {f00=0x0043, f01=0x0190, f02=» X TR P C J C P " H N X "# P " P X * Y X T !KTW W( W" X R X T !KT Kf !Qf LT X ! X !QtW@ AL2 @L, X Y AL8 AL. AL: @LN ALN P !T @L0T @L2P !Q LT !T @L0T @L2X Wx A I K ! N q L @L. @L6 O @LF
0x13a0c0…13a254 (0, 398) Dummy {f00=0x0043, f01=0x0190, f02=»T _2 _6 @L. KL AL6 AL0 X ! XD Y _N @L0TL X ! P !Qx LT# T @U(T !Qt_ !O !Qf_ AL2 ALD H N E AL6 AL, 4 @L0P !Q !T^ LT !T: @LHP !R !T^ AL0 LT @H T !Q _ T K _ L> AL. g2 C B B AL@ ALB ALD AL4 AL6 !Q !T^ AL0_^ @L0
0x13a254…13a3e8 Dummy {f00=0x0043, f01=0x0190, f02=»P X Y 4 @U( @L6T @LF ALD @LD ALF AL6 !S T2 P4 PJ PL P P. 1 ALD @LD ]6W P _@ @U( @LD E !T P !S 4 _$ !T 2_l / AL:T W ,W ALL ALMW W W ALL ALM !S @LL !S @LM !S !S !S B J 4 !S !S @
0x13a3e8…13a57c Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H N T 0 !S W R !S ALD @LB @LDUH Zt Q P Q T 0 !S ALD 0 !S ALD !S " !S " !S Q AL4 _" AL6 AL. !S !S % !S R !S !S @T !S 8 !S X ! 9a DLP !S X ! P ! T & !S _b B J B !S !S 4 A ? L J T A
0x13a57c…13a710 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @p `p @p P 0 M AS 4 ? @p `p @p P $ Y K8_ @ AH Kf @H T TL LT I0 @ AH Kf TL q AH aH Kf 4 ! T$ X AH > ! Tn Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 AT AT AT ?a :a# P
0x13a710…13a8a4 Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB @LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13a8a4…13aa38 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13aa38…13abcc Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB @LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13abcc…13ad60 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13ad60…13aef4 (0, 399) Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB @LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13aef4…13b088 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13b088…13b21c Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13b21c…13b3b0 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13b3b0…13b544 Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13b544…13b6d8 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13b6d8…13b86c Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13b86c…13ba00 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13ba00…13bb94 (0, 400) Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13bb94…13bd28 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13bd28…13bebc Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13bebc…13c050 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13c050…13c1e4 Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! ! % ! R ! ! @ ! 8 ! X ! 9a DLP ! X ! P ! T & ! _b B J B ! ! 4 A ? L J T A
0x13c1e4…13c378 Dummy {f00=0x0043, f01=0x0190, f02=» ! 1 4 AS @ ` @ P 0 M AS 4 ? @ ` @ P $ Y K8_ @ AH Kf @H T LT I0 @ AH Kf AH aH Kf 4 ! T$ X AH > ! Z ALJ 4 ALJ I0 !S @L0P !Q !T^ LT @LJP aLJ ALJ 4 A A A ?a :a# P
0x13c378…13c50c Dummy {f00=0x0043, f01=0x0190, f02=»" :A *@ H T 0 ! W R ! ALD @LB LDU Zt Q P Q T 0 ! ALD 0 ! ALD ! " ! " ! Q AL4 _" AL6 AL. ! :f"? HpL !S "? HpL !S 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="p p
0x13c50c…13c6a0 Dummy {f00=0x0043, f01=0x0190, f02=» ^ ! Z( p (X0 @p P T M ]@ , ) Ap P* P Y U ( ) 5 & > > [ [ p Z Z Z ? Z > P "R Y W q x Pl " T Pb X_ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _
0x13c6a0…13c834 (0, 401) Dummy {f00=0x0044, f01=0x0190, f02=» X " PP:A: R Q W Y <D X ? ?: T p > uB > P^ P C t B t T B % X . $ 4 T % t X ,T ! |W uR Y . V uB B P X " _V B P $$ R % C uBW Y +PB Y *P8 Y (P Y )P uB R _Q P
0x13c834…13c9c8 Dummy {f00=0x0044, f01=0x0190, f02=»_f P uB _x C q " t QXR X # PN X R(;GV$ t P8 X R2;GV. X " r X , $4 P uR X .T * W Y , - q ? X :a Z T T W P X :d Y > > ? 8 R @RT V @% =cWP R`P R&P8 R P W 9 WD $ P W _ $ P
0x13c9c8…13cb5c Dummy {f00=0x0044, f01=0x0190, f02=» ! f P P w* & w q B P B H " +P P. T Y ' ! f R| X ( Y &R Y & _ Y &_. B 1 x ! f w B B U4 $ ! T _ U D ! T _ $$ X" X& X* C w> X`" EupP( 8'0P EupTD ! T 9 _ !
0x13cb5c…13ccf0 Dummy {f00=0x0044, f01=0x0190, f02=» ] ! f w vP B !yV !y ! f wf B Y & !y,W vN 8!0T 8 !@P ! f$ P ! f ! f w ! f T Y & T X & C q X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl wx T _
0x13ccf0…13ce84 Dummy {f00=0x0044, f01=0x0190, f02=» X " X &" Y )U W ! f ! f ! f Y 4 B u U )X R@ X X &" Y * X ) V Y !y X $ X & !y, X * vN u `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 w >
0x13ce84…13d018 Dummy {f00=0x0044, f01=0x0190, f02=» ] ! f vP B ! ! ! f B Y & ! W vN 8!0T 8 !@P ! f$ P ! f ! f ! f T Y & T X & C q X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl wx T _
0x13d018…13d1ac Dummy {f00=0x0044, f01=0x0190, f02=» X " X &" Y )U W ! f ! f ! f Y 4 B u U )X R@ X X &" Y * X ) V Y !y X $ X & !y, X * vN u `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 w >
0x13d1ac…13d340 Dummy {f00=0x0044, f01=0x0190, f02=» ] ! f vP B ! ! ! f B Y & ! W vN 8!0T 8 !@P ! f$ P ! f ! f ! f T Y & T X & C q X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl wx T _
0x13d340…13d4d4 (0, 402) Dummy {f00=0x0044, f01=0x0190, f02=» X " X &" Y )U W ! f ! f ! f Y 4 B u U )X R@ X X &" Y * X ) V Y !y X $ X & !y, X * vN u `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 w >
0x13d4d4…13d668 Dummy {f00=0x0044, f01=0x0190, f02=» ] ! f vP B ! ! ! f B Y & ! W vN 8!0T 8 !@P ! f$ P ! f ! f ! f T Y & T X & C q X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! f T X ! f Y & Zl wx T _
0x13d668…13d7fc Dummy {f00=0x0044, f01=0x0190, f02=» X " X &" Y )U W ! f ! f ! f Y 4 B u U )X R@ X X &" Y * X ) V Y !y X $ X & !y, X * vN u `R Y ! f ! f ! f 4 ! f V ! f V W :h ! f 4 X )" X '# R 4 w >
0x13d7fc…13d990 Dummy {f00=0x0044, f01=0x0190, f02=» ( ( 7 R ( P H RN H P ' P y P W< y T6 ' P ! B # P G W G q X P P R: A D ! Y X T Q (P H U ^ 9 1_N q X T @y P ( Ay _ ( Y _ y _x X T @y P ( Ay _ ( Y _
0x13d990…13db24 Dummy {f00=0x0044, f01=0x0190, f02=» y| P U q C G 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ
0x13db24…13dcb8 Dummy {f00=0x0044, f01=0x0190, f02=» {|[_m TOSS' "?:B ] x P H U _ U @ U 9C @ $$ T %_< %_B R @ U 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X
0x13dcb8…13de4c Dummy {f00=0x0044, f01=0x0190, f02=» # P >_2 < U = j (@ " $ P B >H<h P ?_" = > = > = =_D R _ 00 > & <h$ P > V V 0123456789 0123456789 ' < +,-. 01
0x13de4c…13dfe0 Dummy {f00=0x0044, f01=0x0190, f02=»000b [000e [00t [00q 8 [00w [00v c [5n $$ X " X # Y Y M P ^ q L ! b ! q ! P P ( ! r X P ! b +Tf X ! TJW +T^ X " T$ X > ! 2 Y ; Y = ! f ; ! r W X ?
0x13dfe0…13e174 (0, 403) Dummy {f00=0x0044, f01=0x0190, f02=» 0 Y .W 0P 1T ! fW ! f ! f X F) Y F X " T Y > Y ? W P ! f ! W: ] Z _R /P C _ . ! f X " T Y >_4 Y ?_: X F" Y F q _ ! b B <hP Y P Y * * ! r B $ P Y< P Y ( X q X F$ T , Y FW
0x13e174…13e308 Dummy {f00=0x0044, f01=0x0190, f02=» ! f [ ! f 5 ! f n ! f 8" R P ! f X $P y $W $ ! $ Y $ ! | X $P y $" ! P 0 : P Y 3 _Z X $P y $ Y $ X 3 4 Y $ _ dR d R _ 00,0: " 4 X P Y 4 Y 6 Y 4 X 4 ," :HR$ 0 P :h !
0x13e308…13e49c Dummy {f00=0x0044, f01=0x0190, f02=» ($SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A @ " Q A : R W2 A A P. _ " :c* A W " :d2 * A N t
0x13e49c…13e630 Dummy {f00=0x0044, f01=0x0190, f02=» CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q 2 Y P @ T W - P _ T <B :L A W A A
0x13e630…13e7c4 Dummy {f00=0x0044, f01=0x0190, f02=» < P W <9B @ V W Q W @ @ A @ CRT @ P @ ! P W @ V P _ @ ! P !RRP V @ P W _: V @ PZ W @ @ ! T _ P
0x13e7c4…13e958 Dummy {f00=0x0044, f01=0x0190, f02=» 0 !;;P P V P$ _ P !;;T X$ W _J T W j . W W V 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A g A . @ R @ ! T A A V @
0x13e958…13eaec Dummy {f00=0x0044, f01=0x0190, f02=» # " :A K : A T.I T P 1 I P < R P A _> : t A A A 4 A J A | A A A : 9e9C) A I " 9A ! 9B r @ r A I ! ( : A A A 4 A J A ! T A A I ! :
0x13eaec…13ec80 Dummy {f00=0x0044, f01=0x0190, f02=» S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P " @ T X W n : YX d C !CCTZ B. X B.9 H Q _ N_ !SST& 0 U $ R X A X W : @ ' R xW V W$ V P P W P
0x13ec80…13ee14 (0, 404) Dummy {f00=0x0044, f01=0x0190, f02=»X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ : R j A A A A ! T A
0x13ee14…13efa8 Dummy {f00=0x0044, f01=0x0190, f02=» vQ@ V V v x W V V v p R( W V W ^< _@ V _P V V : V J P b r vV U b _ V b Z K W W :K W r vQ R t vV
0x13efa8…13f13c Dummy {f00=0x0044, f01=0x0190, f02=» v w v : V $ V l $ V M : W V R RR > R W > <B V x V |P v 1 v W V z ` _f V : W R R P W x _ V : " D Pd W V PL $;A^ D E D
0x13f13c…13f2d0 Dummy {f00=0x0044, f01=0x0190, f02=» " R P( |P v v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ?
0x13f2d0…13f464 Dummy {f00=0x0044, f01=0x0190, f02=» H $ M v b - I Y0 : @ ` V b pP ` $ $ W $ H 4 ) P _ " = D 4 Q _d 4 | & = G $ h V W $ V E J K _N V r V :B A V 9n A @ A A
0x13f464…13f5f8 Dummy {f00=0x0044, f01=0x0190, f02=» W U6 T 9BW P P( P V W U " @ Q @ P A. @ P _b A 9n A :B A @ .V 3 S Y& P4 p p S P 3 _ p 3 p B A. @ D
0x13f5f8…13f78c Dummy {f00=0x0044, f01=0x0190, f02=» l W H V ]" . nT" W v W n V ~P W x _v V d , V P _ N L % V d V f v G G v U v G v : P V : V ~P W x _$ 8 V V x % V v % :
0x13f78c…13f920 Dummy {f00=0x0044, f01=0x0190, f02=» G v ) - V W f v ) G v ` " W p W ~ pP0 n R P z _ W ~ R X4 z _ ` @ ` W W ~ pPn | V W % n R , " E R ^ W ~ R ^ R P * R
0x13f920…13fab4 (0, 405) Dummy {f00=0x0045, f01=0x0190, f02=» " R E R T E D E @ v H v E & #_v W | ;b W W t V b v ( v W p V ` $ W ` & ;h 0 :C # : .=H N " .=H N " N : d 8" R _ ZY QY :
0x13fab4…13fc48 Dummy {f00=0x0045, f01=0x0190, f02=» !TTP N :H N TBT W W8 2 " T @ N =H N " @ ) < !TTXX !CCT @ !UUT d Wh z 2 .:H N P V _ R :h " z YV : v `?A @ W
0x13fc48…13fddc Dummy {f00=0x0045, f01=0x0190, f02=» pP. " 4X 1 R Z0 _ W l a w ` :A W V d 4 W P _ W ` W d V V W W V V >k 8 W W t V V : x A D P W r W @
0x13fddc…13ff70 Dummy {f00=0x0045, f01=0x0190, f02=» ] @ P @ P " P " P " P W W . !TTP @ T Y < !TTX" A 9 A : @ @ P. @ " P #D " P #E " P #F : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B
0x13ff70…140104 Dummy {f00=0x0045, f01=0x0190, f02=» N " W | ( @ % P W @ % P P0 r " U _2 P0 " U _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W
0x140104…140298 Dummy {f00=0x0045, f01=0x0190, f02=» h CRT 3 @ h h S @ h PP h !RRP @ ! T 3 @ & P h 3 h 3 YL @ @ T : p ` @ P _ 3 S S V V W @ @ T
0x140298…14042c Dummy {f00=0x0045, f01=0x0190, f02=» _ Ph W p W V 8 8 4 D P$ @ # P H I K T + Y@ V p _j V t Y < !TTX @ @ T : < @ R @ T P / _ T @
0x14042c…1405c0 Dummy {f00=0x0045, f01=0x0190, f02=» V f P W f _B V W V t Yr < !TTX @ @ T : < !TTX !CCTr P, V r 4 U $ $ _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B
0x1405c0…140754 (0, 406) Dummy {f00=0x0045, f01=0x0190, f02=» V 8 8 8 4 D P$ @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T : W B V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W
0x140754…1408e8 Dummy {f00=0x0045, f01=0x0190, f02=» P U & I @ % PD H I H T P( H U V U W < + + P V : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W :
0x1408e8…140a7c Dummy {f00=0x0045, f01=0x0190, f02=» z U Y$ P W | V z 3 % W P _ V |P V v ]p W v P _ @ @ T : N =H N " : N =H N " : &=H F " : F =H F " : F =H F " : P N =H N T <_ : 00=H 00
0x140a7c…140c10 Dummy {f00=0x0045, f01=0x0190, f02=» @ E "W ` @ E " ^ a b `T c- 4 .! DC 8 J X 8 P @ 0 ,y} ~ y ,y| y .I
0x140c10…140da4 Dummy {f00=0x0045, f01=0x0190, f02=» xr&KB W h h 8ufDY " : P F " : F =H F " : P N =H N T <_ : 00=H 00
0x140da4…140f38 Dummy {f00=0x0045, f01=0x0190, f02=» CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 8 P IFT CODE=1 D & PWRIT10 CF A5,CRCCAL CALCULATE CRC X P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP
0x140f38…1410cc Dummy {f00=0x0045, f01=0x018e, f02=»0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2 , P ORK A2,/80 > PWRI100 SLL A1,1 R P RB(P) WRI100 j P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P X
0x1410cc…141260 Dummy {f00=0x0045, f01=0x0190, f02=» PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 > PRE100 SLL A1,1 P P RF(Z) RE110 f P RB(NN) RE100 z P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ
0x141260…141f00 (1, 0) DirGranule ((1, 0)) {
0x141260…141f00 DirEnt {nam=»MOD327«, typ=»0 «, f00=0x0000, f01=0x0000, f02=0x0280, f03=0x0000}
0x141260…141f00 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x141260…141f00 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x141260…141f00 }
0x141f00…142094 (1, 1) Opaque[0x194]
0x142094…142228 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x142094…142228 IdxSect {
0x142094…142228 f00 = 0x0014 // 0x142094 @0x0
0x142094…142228 f01 = 0x002c // 0x142096 @0x2
0x142094…142228 gno = [ // 0x142098 @0x4
0x142094…142228 [0x00]: C0x0014.0x1.0
0x142094…142228 [0x01]: C0x0014.0x2.0
0x142094…142228 [0x02]: C0x0014.0x3.0
0x142094…142228 [0x03]: C0x0015.0x0.0
0x142094…142228 [0x04]: C0x0015.0x1.0
0x142094…142228 [0x05]: C0x0015.0x2.0
0x142094…142228 [0x06]: C0x0015.0x3.0
0x142094…142228 [0x07]: C0x0016.0x0.0
0x142094…142228 [0x08]: C0x0016.0x1.0
0x142094…142228 [0x09]: C0x0016.0x2.0
0x142094…142228 [0x0a]: C0x0016.0x3.0
0x142094…142228 [0x0b]: C0x0017.0x0.0
0x142094…142228 [0x0c]: C0x0017.0x1.0
0x142094…142228 [0x0d]: C0x0017.0x2.0
0x142094…142228 [0x0e]: C0x0017.0x3.0
0x142094…142228 [0x0f]: C0x0018.0x0.0
0x142094…142228 [0x10]: C0x0018.0x1.0
0x142094…142228 [0x11]: C0x0018.0x2.0
0x142094…142228 [0x12]: C0x0018.0x3.0
0x142094…142228 [0x13]: C0x0019.0x0.0
0x142094…142228 [0x14]: C0x0019.0x1.0
0x142094…142228 [0x15]: C0x0019.0x2.0
0x142094…142228 ]
0x142094…142228 }
0x142228…1423bc Dummy {f00=0x0014, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DK 6 82-02-21 870105040924 P DK6, READ MODIFIED 8 , P DK5, LP, DWTINF, ST.PR.BIT, 81-11-05 V P P DK3, RBUFNR=1 ALLOWED P DK2, TBUFL P 80-03-11 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF.
0x1423bc…142550 Dummy {f00=0x0014, f01=0x018e, f02=»SATIONAL MODE | P REL 9.1 79-07-19 * P =6, DCTASK BUFFER ADDRESS DESTROYED 2 P REL 9.1 79-05-23 ` $ P =5, INCOMPLETE POLL SEQUENCE | P REL 9.1 79-05-23 P =3, TRANSFER PARAMETER P PRR 9.1 79-04-06 P =4, ANY
0x142550…1426e4 Dummy {f00=0x0014, f01=0x0190, f02=» P PRR 9.1 78-11-14 P REL 8.2 78-11-14 P < P* D P* N 2 P********************************************* X P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC
0x1426e4…142878 Dummy {f00=0x0014, f01=0x0190, f02=»************************************ P , P* 6 P* @ P* ENTRY POINTS J P* ` 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS j " P ENTRY IH1501 INPUT INTERRUPT " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTI
0x142878…142a0c Dummy {f00=0x0014, f01=0x0190, f02=»TCHER ENTRY ~ ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK $ P EXTRN TENDIO COMPLETE I/O EVENT @ P EXTRN DISIOE REQUEST ERROR h P EXTRN SETIME SET TIMER P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P
0x142a0c…142ba0 Dummy {f00=0x0014, f01=0x0190, f02=»XTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & & P EXTRN ECBEL ECB EFFECTIVE LENGTH P P EXTRN ECBRC ECB RETURN CODE z " P EXTRN ECBCW ECB CONTROL WORD * P EXTRN DC:MIN MOVE DATA TO USER BUFFER , P EXTRN DC:MOT MOVE DAT
0x142ba0…142d34 (1, 2) Dummy {f00=0x0014, f01=0x0190, f02=»DARD INTERFACE PART FOR DATA COMMUNICATION P* 2 P* < P* F P* P P* DWT CONTENTS Z P* p J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) z P* P < P********************************************
0x142d34…142ec8 Dummy {f00=0x0014, f01=0x0190, f02=»U 0 BASE FOR RBUFL AND TBUFL DK " PX:X EQU 500 VALUE FOR BASE DK ( & PX:A EQU 2000 RECEIVE BUFFER LENGTH N PRBUFL EQU 650+X:X DK x PX:B EQU /60 DCTASK FILE CODE PDC15FC EQU /60 $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0
0x142ec8…14305c Dummy {f00=0x0014, f01=0x0190, f02=»AD COMMAND HANDLING IF=1 PRCOM EQU X:F & PX:G EQU 252 TRANSMIT BLOCK LENGTH 4 PTBLEN EQU X:G ^ ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC t PCODE EQU X:H * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING PSPECP EQU X:I , PX:J EQU 1 IF = 1
0x14305c…1431f0 Dummy {f00=0x0014, f01=0x0190, f02=» j PMSV1 EQU X:K . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU X:L N . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ d PP6805 EQU X:M PX:N EQU /02 P IFT P6805=0 , PLCUIN EQU X:N DEVICE ADDRESS OF RECEIVER P XIF
0x1431f0…143384 Dummy {f00=0x0014, f01=0x018e, f02=»TER HANDLING r . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK PMESPAS EQU X:P F 4 PX:Q EQU 1 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU X:Q PX:R EQU 1000 P DK2 * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION . PTSTREQ EQU X
0x143384…143518 Dummy {f00=0x0014, f01=0x0190, f02=» ^ 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". < , P ONLY WORKING IF STAT IS SET TO "ONE". p P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCU
0x143518…1436ac Dummy {f00=0x0014, f01=0x0190, f02=»* P* . P***************************************** P* F P* CONDITIONAL ASSEMBLY P P* n . P***************************************** x P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQ
0x1436ac…143840 Dummy {f00=0x0014, f01=0x0190, f02=» P IFT MMUPAG=1 DK2 * PTBUFL EQU 650+X:X MMU BUFFER LENGTH DK " P XIF DK2 P P DE b P* p 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION z . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P*
0x143840…1439d4 (1, 3) Dummy {f00=0x0014, f01=0x0190, f02=»* DWT DISPLACEMENTS P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART & P* Z P IFT MMUPAG=0 d PSTART EQU DWTDRD z P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* 4 PDWTTP EQU START+/00 TIMER
0x1439d4…143b68 Dummy {f00=0x0014, f01=0x0190, f02=»/06 RECEIVE QUEUE . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS ( PDWTCUR EQU START+/0A CURSOR ADDRESS L , PDWTTIM EQU START+/0C REQUEST TIMER VALUE x . PDWTINF EQU START+/0E DEVICE INFO, 1=LP DK5 P* P P* P* REQUEST HANDLI
0x143b68…143cfc Dummy {f00=0x0014, f01=0x0190, f02=» t P* /37: TRANSFER PARAMETERS P* /38: SET STATUS * $ P* /39: SET REQUEST TIMEOUT VALUE D P* l P* v P* CONSTANTS AND WORK AREAS P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS
0x143cfc…143e90 Dummy {f00=0x0014, f01=0x0190, f02=» P* P* DC TASK ADDRESS BLOCK P* . $ P DATA 0 INDICATES NO MMU BUFFER 8 P DATA DEVIND DEVICE INDEX ` * PDC15DC DATA DCACTD ACTIVATION ADDRESS & P DATA ABORT ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR P*
0x143e90…144024 Dummy {f00=0x0014, f01=0x0190, f02=»VATION ADDRESS z 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR N P* v , P RES 15 SUBROUTINE STACK FOR INTERRUPTS PSTB RES 1 " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 P P IFT S
0x144024…1441b8 Dummy {f00=0x0014, f01=0x0190, f02=»TIVATION FROM TERMINAL TASKS P* $ PDCACT EQU * . P LDK A1,0 PRESET RETURN CODE B P IFT EM3270=1 =4 f P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC P SUK A
0x1441b8…14434c Dummy {f00=0x0014, f01=0x0190, f02=»F(Z) DCTP TRANSFER PARAMETERS P IFF STAT=0 & P SUK A7,/38-/37 : P ABL(Z) DCSS SET STATUS DK4 R P SUK A7,/39-/38 v $ P ABL(Z) REQTIM SET REQUEST TIMER P XIF P P IFT STAT=0 P SUK A7,/39-/37 $ P RF(Z) REQTIM SET
0x14434c…1444e0 Dummy {f00=0x0014, f01=0x018e, f02=»ACTD EQU * $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 : P LDR A7,A7 =4 T & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 j P XIF P SUK A7,/02 P RF(E) DCRDDC READ P SUK A7,/37-/02 $ P RF(E) DCTP TRANSFER PARAMETERS
0x1444e0…144674 (1, 4) Dummy {f00=0x0015, f01=0x0190, f02=» P* P* REQUEST FROM DC-TASK P* COMPLETE WHEN: , & P* STATUS CHANGE ON DC EQUIPMENT D $ P* SPONTANOUS MESSAGE RECEPTION n P* PDCRDDC EQU * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED PDCRTN EQU * P ABL TDISP GO TO
0x144674…144808 Dummy {f00=0x0015, f01=0x0190, f02=»R | P* " P***************************** P : 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 B P RF(Z) DCRD10 NO!! =4 x ( P RF ENDIO YES!! COMPLETE REQUEST =4 P XIF P P* P* TRANSFER DWTINF DK5 P* DK5
0x144808…14499c Dummy {f00=0x0015, f01=0x0190, f02=» DK5 v P* DK5 P* P* TRANSFER PARAMETERS & P* D P* N > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS X : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P* P* P IFF CODE=1 & PDCTP LD
0x14499c…144b30 Dummy {f00=0x0015, f01=0x0190, f02=»CTP10 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P SLL A2,8 : PDCTP10 EQU * L $ P LC A3,ECBCW+1,A8 GET TCP OR DV ` P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P XIF * P ST A2,DWTBUF,A6 SAVE TERM. ADDR. DK4 PDCTP12
0x144b30…144cc4 Dummy {f00=0x0015, f01=0x018e, f02=» & P LDR A3,A6 ADJUST ADDR. VALUE DK4 P ADKL A3,DWTSQ DK4 . , P CWR A1,A3 SOMETHING QUEUED OUR DWT? DK4 J 4 P RF(E) DCTP16 YES, WAIT BEFORE TRANS. PARAM. DK4 z & P LDR* A1,A1 NOT OURS, GET NEXT DK4 P RB DCTP14 DK4 PDCTP16 EQU * (
0x144cc4…144e58 Dummy {f00=0x0015, f01=0x0190, f02=» j P RB DCRTN DK4 PTPTOUT EQU * P LDR A6,A1 RESTORE DWT DK4 4 * P RB DCTP12 LOOK IN THE QUEUE AGAIN DK4 V PDCTP18 EQU * , P LD A2,DWTBUF,A6 RESTORE TERM ADDR. DK4 ( P STR A2,A6 SAVE IN FIRST WORD OF DWT P P IFT RCOM=
0x144e58…144fec Dummy {f00=0x0015, f01=0x0190, f02=»SHOULD NOT BE IN DC:TAB z * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? N & P ABL(E) DISIOE YES!! REQUEST ERROR | P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB
0x144fec…145180 Dummy {f00=0x0015, f01=0x0190, f02=»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 P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER
0x145180…145314 (1, 5) Dummy {f00=0x0015, f01=0x0190, f02=»INSSQ INSERT IN STATUS QUEUE P XIF $ PDCTP30 EQU * 0 P SUR A1,A1 RETURN CODE ::= 0 D PENDIO EQU * h $ P CF A15,TENDIO COMPLETE REQUEST | P RB DCRTN P P* P* P* WRITE P* P* P* COMPLETE WHEN:
0x145314…1454a8 Dummy {f00=0x0015, f01=0x0190, f02=»8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! @ P XIF P CF A15,TIMEWR SET TIMER h P CF A15,INSWQ QUEUE REQUEST 2 P ST A8,DWTBUF,A6 SAVE ECB FOR RD. MODIFIED DK6 P RB DCRTN P* P* P
0x1454a8…14563c Dummy {f00=0x0015, f01=0x0190, f02=»DCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE 2 " P RF(Z) DCRD10 NOTHING IN QUEUE d P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFF
0x14563c…1457d0 Dummy {f00=0x0015, f01=0x0190, f02=» RB DCRTN P ! $ PDCRD10 CF A15,TIMERE START TIMER ! P RB DCRTN ! B P ! T P* ! ^ P* ! h P* SET STATUS ! r P* ! P* ! P IFF STAT=0 ! PDCSS EQU * ! * P LD A1,ECBCW,A8 GET STATUS INFORMATION ! P ANK A1,3 MASK DB,IR !
0x1457d0…145964 Dummy {f00=0x0015, f01=0x0190, f02=»D A1,DWTST,A6 ! P ANK A1,9 " ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT " ( PDCSS30 EQU * " T , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE " h P LDK A1,4 SET DE " P RB DCSS10 " P XIF " P " P " P* " " P* SET REQUEST TIMEOUT VALUE
0x145964…145af8 Dummy {f00=0x0015, f01=0x0190, f02=»B DCTP30 TENDIO & DISPATCH " P # " P* # * ( P* ILLEGAL APPLICATION BUFFER SIZE # 4 P* # ` P # j 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH # r P ABL DISEND COMPLETE REQUEST # P # P* # P* # P* # P* TIMER HANDLI
0x145af8…145c8c Dummy {f00=0x0015, f01=0x0190, f02=»A6 GET REQUEST TIMEOUT VALUE # P RF(Z) TIME10 NO TIMING $ $ P ST A2,TIMERR $ D P CF A15,SETIME $ Z P DATA TOUTRE $ p PTIMERR DATA 0 $ ( P ST A4,DWTTP,A6 STORE TIMER POINTER $ PTIME10 EQU * $ P RF GBUF10 RETURN $ P* $ P* TIMEOUT
0x145c8c…145e20 Dummy {f00=0x0015, f01=0x0190, f02=» TIME OUT $ | $ PTOUTR2 RB ENDIO COMPLETE REQUEST % P* % : P* WRITE TIMER=TIMWR % D P* % ` PTIMEWR LDR A1,A6 % j . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE % P RB(Z) TIME10 NO TIMING % P ST A2,TIMWR % P CF A15,SETIME % P DATA TOUT
0x145e20…145fb4 (1, 6) Dummy {f00=0x0015, f01=0x0190, f02=»WR EQU * % P LDR A6,A1 FETCH DWT & P CM DWTTP,A6 & , * P CF A15,REMOVW REMOVE FROM WRITE QUEUE & @ P* & n & P* THIS INSTRUCTION DOES NOT BELONG & x P* TO THE STANDARD INTERFACE & P LD A2,FDWTUT & P CWR A2,A6 & * P RB(NE) TOUTR1 THIS DWT IS
0x145fb4…146148 Dummy {f00=0x0015, f01=0x0190, f02=» P* ' P* STOP REQUEST TIMING ' P* ' , & P* REMAINING TIME IS RETURNED IN A2 ' 6 P* ' ` P* ' j PCTIME EQU * ' t & P LD A2,DWTTP,A6 GET TIMER POINTER ' P RF(Z) CTIM10 NOT RUNNING ' P LDR* A2,A2 ' " P NGR A2,A2 GET REMAINING TIME '
0x146148…1462dc Dummy {f00=0x0015, f01=0x0190, f02=» ' | P* ( $ P* CALLING SEQUENCE: CF A15,GRBUF ( P* A4=0 IF NO BUFFER IS FREE ( : & P* ELSE A4 CONTAINS BUFFER ADDRESS ( ^ P* A2 AND A3 ARE DESTROYED ( P* ( P* ( ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS ( PGBUF INH ( P LDR* A4,A2 (
0x1462dc…146470 Dummy {f00=0x0015, f01=0x0190, f02=»TACK POINTER ( v P ABR* A15 RETURN TO CALLER ) P ) 6 P* ) @ P* ) J ( P* INSERT DWT IN WRITE REQUEST QUEUE ) T P* ) P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR ) PINSWQ1 LDK A4,DWTWQ ) P
0x146470…146604 Dummy {f00=0x0015, f01=0x0190, f02=» INSERT IN QUEUE ) " P CMR A4 INDICATE END OF QUEUE * P RB GBUF10 RETURN * > P* * X P* * b * P* REMOVE DWT FROM WRITE REQUEST QUEUE * l P* * P* A2,A3,A4 DESTROYED * P* A6=DWT * P* * * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR * 2 P
0x146604…146798 Dummy {f00=0x0015, f01=0x0190, f02=»ON QUEUE: RETURN * ~ P CWR A3,A4 + P RF(E) REM15 + * P LDR A2,A3 GET NEXT + > P RB REM10 + Z PREM15 LDR* A3,A4 REMOVE + l P STR A3,A2 + P RB GBUF10 RETURN + P + P* + P* + P* INSERT DWT IN STATUS QUEUE + P* + P IFF
0x146798…14692c Dummy {f00=0x0015, f01=0x0190, f02=»NK A2,/FF IF ADDRESS = 00 OR /7F DK4 + ( P RB(Z) GBUF10 DONT PUT IN STATUS DK4 , , , P SUK A2,/7F QUEUE, TERMINAL HAS BEEN DK4 , X $ P RB(Z) GBUF10 MADE INACTIVE DK4 , $ P LDKL A2,DCSTQ GET QUEUE ANCHOR , P LDK A4,DWTSQ , P RB INSWQ2 , P* ,
0x14692c…146ac0 Dummy {f00=0x0015, f01=0x0190, f02=»ET QUEUE ANCHOR , z P LDK A4,DWTSQ - P RB REM06 - . P XIF - @ P - L P* - V P* - ` $ P* QUEUE ALLOCATED RECEIVE BUFFER - j P* - P* A4=BUFFER ADDR - P* A2,A3 DESTROYED - P* - PQRBUF EQU * - P IFT MESPAS=1 - ( P LDKL
0x146ac0…146c54 (1, 7) Dummy {f00=0x0015, f01=0x0190, f02=»Q BEGINNING OF RECEIVE QUEUE - PQR100 EQU * . $ P LDR* A3,A2 . 8 $ P RF(Z) QR200 END OF QUEUE FOUND . L P LDR A2,A3 . t P RB QR100 . & PQR200 STR A4,A2 INSERT INTO QUEUE . " P CMR A4 INDICATE END OF QUEUE . P RTN A5 . P . P* .
0x146c54…146de8 Dummy {f00=0x0015, f01=0x0190, f02=» . PCKMESS LDKL A6,DW1500 / P LD A1,DWTST,A6 / & P RF(N) CKM110 NO REQUEST / > P LDK A1,2 READ REQUEST ? / ^ P CW A1,DWTOR,A6 / ~ P RF(NE) CKM110 NO / $ P LD A8,DWTECB,A6 ECB ADDR TO A8 / * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE / " P R
0x146de8…146f7c Dummy {f00=0x0015, f01=0x0190, f02=» QUEUE / l " P ADK A3,6 MOVE POINTER TO TEXT 0 & P DONT DESTROY BUFFER ADDRESS =6 0 4 P LD A4,-4,A3 0 ^ 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS 0 r P LD A4,-2,A3 0 . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS 0 P 0 P LDK A1,0 RESET RETU
0x146f7c…147110 Dummy {f00=0x0015, f01=0x0190, f02=» POINTER 0 r P ABR* A15 RETURN 1 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS 1 ( , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT 1 d P CW A1,DCSTOL 1 P ST A1,DCSTOL 1 & P RB(E) CKM110 NO CHANGE OF STATUS 1 * P ORKL A1,/2000 INDICATE STATUS
0x147110…1472a4 Dummy {f00=0x0015, f01=0x0190, f02=»**************************** 1 p P* 2 $ P* ABORT ROUTINE 2 . P* 2 H P************************ 2 R P 2 r & PABORT LD A1,DWTTP,A6 TIMER POINTER 2 z " P RF(Z) AB:10 NO TIMER RUNNING 2 P CM* DWTTP,A6 KILL TIMER 2 P CM DWTTP,A6 2 P 2 $ PAB
0x1472a4…147438 Dummy {f00=0x0015, f01=0x0190, f02=»O ACTION IF NOT READ/WRITE 2 P 3 " . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 3 * & P LD A2,FDWTUT WRITING DWT ADDRESS 3 P CWR A2,A6 3 P RF(NE) AB:RTN NOT THIS DWT 3 P CM XACK RESET ACK EXPECTED 3 P CM FDWTUT RESET WRITING DWT 3 P 3
0x147438…1475cc Dummy {f00=0x0015, f01=0x0190, f02=» P RTN A15 4 P XIF 4 P 4 P 4 * P 4 2 P* 4 < P* 4 F P* STORE REGISTER A3-A8 4 P $ P* CALLING SEQUENSE: CF A15,STREG 4 n P* 4 P* RESTORE 4 $ P* CALLING SEQUENCE: CF A15,LDREG 4 P* 4 P* 4 PSTREG ST A3,LCA3 4 P S
0x1475cc…147760 Dummy {f00=0x0015, f01=0x0190, f02=»REG LDKL A3,0 4 PLCA3 EQU *-2 5 P LDKL A4,0 5 * PLCA4 EQU *-2 5 < P LDKL A5,0 5 P PLCA5 EQU *-2 5 b P LDKL A6,0 5 v PLCA6 EQU *-2 5 P LDKL A7,0 5 PLCA7 EQU *-2 5 P LDKL A8,0 5 PLCA8 EQU *-2 5 PRTNA15 EQU * 5 P ADKL A15,4
0x147760…1478f4 (1, 8) Dummy {f00=0x0016, f01=0x0190, f02=» 5 j " PTIMNAK EQU 3 DELAY FOR NAK DK 6 P* 6 . P* 6 8 P* CHARACTER EQUATES 6 B P* 6 ^ & PSF EQU X'1D' START FIELD CHARACTER 6 h PSYN EQU /16 6 PSTX EQU /02 6 PETX EQU /03 6 PETB EQU /17 6 PITB EQU /1F 6 PSOH EQU /01 6
0x1478f4…147a88 Dummy {f00=0x0016, f01=0x0190, f02=» PRDBCOM EQU /32 7 PRDMCOM EQU /36 7 P IFT CODE=0 7 0 PPAR EQU /80 7 D PRVI EQU /3C 7 X PACK0 EQU /30 7 l PACK1 EQU /31 7 PDC1 EQU /11 7 P IFT MSV1=0 7 PWACK EQU /3B 7 P XIF 7 P IFT CODE=0 7 P IFT MSV1=1 7 0 PWACK
0x147a88…147c1c Dummy {f00=0x0016, f01=0x0190, f02=» 7 PACK0 EQU /18 8 PACK1 EQU /2F 8 PSYNEBC EQU /32 8 0 P XIF 8 F P 8 R P* 8 P* 8 f P* PROCEDURE WORK AREAS 8 p P* 8 P* 8 * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 8 . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 8 PXACK D
0x147c1c…147db0 Dummy {f00=0x0016, f01=0x0190, f02=»XRB DATA 0 READ BUFFER SWITCH 8 PCACK DATA 0 ACK COUNTER 9 & * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 9 F P* 9 t PFECB RES 1 WRITING ECB 9 ~ ( PFECBBA RES 1 WRITING BUFFER ADDRESS 9 & PFECBRL RES 1 WRITING BUFFER LENGTH 9 PFBAX DATA 0 BUFFER IND
0x147db0…147f44 Dummy {f00=0x0016, f01=0x0190, f02=» TIMING 9 n , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA : ( PCRDBUF DATA 0 READ BUFFER COUNTER DK : @ P* : l P* : v $ P* 3270 SENSE/STATUS INFORMATION : P* : P* : P IFF STAT=0 : . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE : P* :
0x147f44…1480d8 Dummy {f00=0x0016, f01=0x0190, f02=» INTERVENTION REQUIRED : ~ P XIF ; P ; * P* ; 4 P* ; > P* BASIC RECEIVE MODE ; H P* ; d " P* ENTERED EVERY TIME A MESSAGE ; n & P* IS EXPECTED FROM THE MASTER SIDE ; P* ; P* ; P IFT P6805=1 SALCUZ ; , PBRMHLT CF A5,HALTIN HALT R
0x1480d8…14826c Dummy {f00=0x0016, f01=0x0190, f02=»TIN HALT RECEIVER AND UPDATE STATUS ; P XIF SALCUZ < , P IFT P6805=1 SALCUZ < B 0 P CF A15,CKMESS CHECK IF STATUS CHANGE SALCUZ < ^ P XIF SALCUZ < PBRM010 EQU * < P IFT CODE+P6805=0 SALCUZ < 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTE
0x14826c…148400 Dummy {f00=0x0016, f01=0x0190, f02=» XIF SALCUZ < P IFT P6805=0 SALCUZ = " P CIO A2,1,LCUIN START RECEIVER = 2 P XIF SALCUZ = X P IFT P6805=1 SALCUZ = n P IFF CODE=1 SALCUZ = P LDK A2,/0C SALCUZ = * P CIO A2,1,LCUIN START RECEIVER SALCUZ = P LDK A2,SYN SALCUZ =
0x148400…148594 (1, 9) Dummy {f00=0x0016, f01=0x0190, f02=» = v P LDK A2,0 SALCUZ > * P CIO A2,1,LCUIN START RECEIVER SALCUZ > " P LDK A2,SYNEBC SALCUZ > P 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ > n P RB(NA) BRMHLT SALCUZ > P XIF SALCUZ > PBRM100 EQU * > $ P CF A5,READP READ ONE CHARAC
0x148594…148728 Dummy {f00=0x0016, f01=0x0190, f02=» > P RF(Z) BRM200 EOT RECEIVED ? P SUK A1,ENQ-EOT ? * P ABL(Z) BRM400 ENQ RECEIVED ? B P SUK A1,DLE-ENQ ? f P ABL(Z) BRM600 DLE RECEIVED ? ~ P SUK A1,NAK-DLE ? P ABL(Z) BRM500 NAK RECEIVED ? P IFT MSV1=0 ? P LDR A8,A2 ? $ P CF
0x148728…1488bc Dummy {f00=0x0016, f01=0x0190, f02=» ? P LDK A3,0 @ P CC A2,DW1500+1 @ P RF(E) BRM110 POLLING @ 2 P LDK A3,2 @ P P CC A2,DW1500 @ b P RF(NE) BRM150 NOT THIS TCU @ x PBRM110 EQU * @ P CF A5,READP READ 1:ST STA @ P RF(NZ) BRM150 PARITY ERROR @ P LDR A8,A2 @ P
0x1488bc…148a50 Dummy {f00=0x0016, f01=0x0190, f02=»SS SEQUENCE @ t P XIF A " P CF A5,READ READ ONE CHARACTER A P IFT P6805=0 SALCUZ A F P SUK A2,ENQ+PAR A b P XIF SALCUZ A z P IFT P6805=1 SALCUZ A P SUK A2,ENQ SALCUZ A P XIF SALCUZ A P RF(NZ) BRM150 NOT ENQ A P IFT P6805=0
0x148a50…148be4 Dummy {f00=0x0016, f01=0x0190, f02=» A v P SST A1,LCUIN B P XIF SALCUZ B P IFT P6805=1 SALCUZ B 4 $ P CF A5,HALTIN HALT INPUT SALCUZ B P . P RB(NZ) BRM010 PARITY ERROR SALCUZ SALCUZ B x P XIF SALCUZ B P LDK A1,1 B P ST A1,CACK LOAD ACK COUNTER B P LDR A2,A8 B P
0x148be4…148d78 Dummy {f00=0x0016, f01=0x0190, f02=»CHECK IF STA PRESENT (POLL ADDRESS) B P XIF C , P IFT MSV1=0 C 8 & P CF A5,FINTER CHECK IF STA PRESENT C L P XIF C v P LDR A6,A3 LOAD DWT TO A6 C P ABL(NZ) SPOLL SPECIFIC POLL C P RB BRM INVALID POLL C PBRM120 EQU * C & P CF A5,FINTER CH
0x148d78…148f0c Dummy {f00=0x0016, f01=0x0190, f02=» TO DCTASK C z PBRM130 EQU * D P ABL SELECT D & P XIF D : P IFT MSV1=1 D J P ABL BRM INVALID ADDRESS D ` P XIF D P* D , P* WAIT FOR MARK HOLD TO RESYNCHRONIZE D P* D PBRM150 EQU * D P ANK A2,/7F D P SUK A2,/7F
0x148f0c…1490a0 Dummy {f00=0x0016, f01=0x0190, f02=»HAS BEEN RECEIVED D P* E P* E $ PBRM200 EQU * E . & P CF A5,HPTIM STOP PROCEDURE TIMER E B P IFT RCOM=1 E l P CM XRB RESET READ BUFFER E P XIF E P LD A1,XACK E & P RF(Z) BRM220 ACK IS NOT EXPECTED E " P LD A6,FDWTUT GET WRITING DW
0x1490a0…149234 (1, 10) Dummy {f00=0x0016, f01=0x018e, f02=» CM XACK RESET 'ACK EXPECTED' E PBRM220 EQU * F & P CM XSEL RESET 'SELECTED' F : P RB BRM F P F l P* F v P* F P* STX HAS BEEN RECEIVED F P* F P* F PBRM300 EQU * F P CF A5,HPTIM F P LD A1,XSEL F P RF(Z) BRM315
0x149234…1493c8 Dummy {f00=0x0016, f01=0x0190, f02=» P SUK A7,1 G P RF(NZ) BRM320 MESSAGE OK G PBRM310 EQU * G 8 ( P CM XSTA INDICATE 'INVALID MESSAGE' G L PBRM312 EQU * G x P CF A5,TRNAK SEND NAK G P ABL BRM G PBRM315 EQU * G P IFT RCOM=1 G P LD A1,XACK G & P RF(Z) BRM316 ACK
0x1493c8…14955c Dummy {f00=0x0016, f01=0x0190, f02=»M150 NO ONE WRITING. RESYNCHRONIZE G P LDR* A2,A6 GET STA H * P XIF H F P IFT RCOM=1 H R , P CF A5,PRREC PREPARE FOR TEXT RECEPTION H f * P LD A1,DWTECB,A6 SAVE CURRENT ECB DK6 H P ST A1,DWTCUR,A6 DK6 H P LDK A1,0 SET RC=0 H ( P CF A5,CWRIT
0x14955c…1496f0 Dummy {f00=0x0016, f01=0x018e, f02=»NE CHARACTER H x P IFF P6805=1 =8 I P SUK A2,ENQ+PAR I , P XIF =8 I D P IFT P6805=1 =8 I V P SUK A2,ENQ =8 I n P XIF =8 I ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE I P RB BRM220 I PBRM320 EQU * I P IM XSTA INDICATE MESSAGE OK I
0x1496f0…149884 Dummy {f00=0x0016, f01=0x0190, f02=» I P LDK A1,ESC J P CCR A1,A4 J P RB(NE) BRM310 ESC NOT FOUND J . P ADK A4,1 J R P LCR A1,A4 GET COMMAND CODE J d P SUK A4,1 J P SUK A1,RDBCOM J ( P RF(Z) RDBUF READ MODIFIED RECEIVED J P SUK A1,RDMCOM-RDBCOM J & P RF(Z) RDMOD R
0x149884…149a18 Dummy {f00=0x0016, f01=0x0190, f02=» CF A15,GRBUF ALLOCATE RECEIVE BUFFER J P ADK A4,6 K . P LD A6,FDWTIN GET INPUT DWT K @ P* K d " P* PREPARE FOR CHAINED COMMAND K n P* K P IFT RCOM=1 K P LDR* A2,A6 K P LC A2,TEBCDIC,A2 K P LD A1,DCRBUF K P RF(Z) BRM326 K
0x149a18…149bac Dummy {f00=0x0016, f01=0x0190, f02=»ST,A6 GET STATUS K P RF(N) BRM330 NO REQUEST L P IFT EM3270=1 =4 L 8 P LD A2,DWTOR,A6 ORDER =4 L R & P RF(Z) BRM327 ANY MESSAGE ORDER =4 L r P XIF =4 L P LDK A2,2 L P CW A2,DWTOR,A6 L " P RF(NE) BRM330 NO READ REQUEST L PBRM327 EQU
0x149bac…149d40 Dummy {f00=0x0016, f01=0x0190, f02=»IVE LENGTH L t & P CF A15,CTIME STOP REQUEST TIMING M ( P ST A2,ECBCW,A8 STORE REMAINING TIME M < P M h P* M r P* M | 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC M P* M P* M P IFT STAT=1 M P LC A2,+2,A4 GET WCC/CCC M P ANK A
0x149d40…149ed4 (1, 11) Dummy {f00=0x0016, f01=0x0190, f02=»NOT LP DK5 M P ANK A2,8 N P RF(Z) BRM328 N $ P LD A2,DWTST,A6 GET STATUS N : " P ORK A2,/A SET WACK INDICATION N P ST A2,DWTST,A6 N PBRM328 EQU * N P XIF N P IFT EM3270=1 =4 N P LD A2,DWTOR,A6 ORDER =4 N , P RF(NZ) BRM329 NOT A
0x149ed4…14a068 Dummy {f00=0x0016, f01=0x0190, f02=» XIF =4 N PBRM329 EQU * =4 O P O ( P LDK A1,0 RESET RETURN CODE O 0 & P CF A15,DC:MIN MOVE TO USER BUFFER O T P RF BRM345 O ~ PBRM32A EQU * =4 O P O $ P CF A15,TENDIO COMPLETE REQUEST O P RF BRM345 O P O PBRM330 EQU * O P
0x14a068…14a1fc Dummy {f00=0x0016, f01=0x0190, f02=»BRM335 NOT ANY MESSAGE ORDER =4 O & P CF A15,TENDIO COMPLETE REQUEST =4 P ( PBRM335 EQU * =4 P R P XIF =4 P j P SUK A4,6 GET BUFFER BASE P | ( P CF A5,QRBUF QUEUE BUFFER FOR DCTASK P . P CF A15,CKMESS COMPLETE DCTASK READ IF ANY P PBRM340 EQU *
0x14a1fc…14a390 Dummy {f00=0x0016, f01=0x0190, f02=» $ P RB(Z) BRM340 ACK SHOULD BE SENT Q P CF A5,TRWACK SEND WACK Q , P RF BRM410 Q L P XIF Q ^ P IFF STAT=1 Q j P RB BRM340 Q ~ P XIF Q P Q P* Q P* Q , P* READ MODIFIED OR READ BUFFER RECEIVED Q P* Q P* Q P IFF RCOM=
0x14a390…14a524 Dummy {f00=0x0016, f01=0x018e, f02=»R ADDRESSED TERMINAL Q t 0 P LD A4,DWTBUF,A6 RESTORE LAST WRITE ECB DK6 R P ST A4,DWTECB,A6 DK6 R P " P IM XRB SET READ BUFFER SWITCH R n P CM FDWTUT R P LDK A1,1 R & P XRS A1,CACK INCREMENT ACK COUNTER R P DB R * P LD A1,CRDBUF INCREMENT
0x14a524…14a6b8 Dummy {f00=0x0016, f01=0x0190, f02=» R P* S P* S P* ENQ HAS BEEN RECEIVED S P* S < P* S F PBRM400 EQU * S P & P CF A5,HPTIM STOP PROCEDURE TIMER S d P LD A1,XACK S , P RF(NZ) BRM510 RETRANSMISSION OF MESSAGE S P OR A1,XSEL S " P RF(Z) BRM410 IN CONTROL STATE S
0x14a6b8…14a84c Dummy {f00=0x0016, f01=0x0190, f02=»ECEIVED S P* T P* T PBRM500 EQU * T $ & P CF A5,HPTIM STOP PROCEDURE TIMER T 8 P LD A1,XACK T b P RF(NZ) BRM510 ACK EXPECTED T v P OR A1,XSEL T " P RB(Z) BRM410 IN CONTROL STATE T P RF BRM636 T PBRM510 EQU * T P DB T P
0x14a84c…14a9e0 Dummy {f00=0x0016, f01=0x018e, f02=»,TIMNAK DK T P ABL TDISP DK U PBRM520 EQU * DK U * P CF A15,LDREG DK U B P DE U " P LD A6,FDWTUT GET WRITING DWT U j P IFF STAT=0 U P LD A1,XSTA U 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED U P XIF U 0 P LD A1,FBLST GET
0x14a9e0…14ab74 (1, 12) Dummy {f00=0x0017, f01=0x0190, f02=» P* DLE HAS BEEN RECEIVED V P* V $ P* V . PBRM600 EQU * V 8 & P CF A5,HPTIM STOP PROCEDURE TIMER V L P LD A1,XACK V v " P RB(Z) BRM410 ACK NOT EXPECTED V & P CF A5,READ READ SECOND CHARACTER V P IFF P6805=1 =8 V P CWK A2,ACK0+PAR V
0x14ab74…14ad08 Dummy {f00=0x0017, f01=0x018e, f02=» V ~ P* W P LD A1,CACK GET ACKCOUNTER W P RF(Z) BRM630 ACK,0 EXPECTED W 4 PBRM610 EQU * W X P CF A5,TRENQ SEND ENQ W l & P CF A5,SPTIM START PROCEDURE TIMER W P RB BRM410 W PBRM620 EQU * W P CWK A2,ACK1 W P RF(NE) BRM650 W P* W
0x14ad08…14ae9c Dummy {f00=0x0017, f01=0x018e, f02=» P LD A1,XETX X P RF(Z) BRM640 ETX NOT SENT X P X : P* X D , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK X N P* X ~ P LDK A1,0 SET RC=0 X PBRM635 EQU * X P IFF STAT=0 X P LD A2,XSTA X . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED
0x14ae9c…14b030 Dummy {f00=0x0017, f01=0x018e, f02=» X P CM XRB RESET READ BUFFER Y P XIF Y * P RB BRM410 Y 6 PBRM640 EQU * Y H P LDK A1,1 Y & P XRS A1,CACK INCREMENT ACK COUNTER Y n P ABL POL130 Y PBRM650 EQU * Y P IFF P6805=1 =8 Y P CWK A2,RVI+PAR Y P XIF =8 Y P IFT P
0x14b030…14b1c4 Dummy {f00=0x0017, f01=0x0190, f02=» Y p P LD A1,XETX Z $ P RF(NZ) BRM660 ETX HAS BEEN SENT Z P LDK A1,2 SET RC=2 Z D P RB BRM635 Z ^ PBRM660 EQU * Z p P LDK A1,0 SET RC=0 Z P RB BRM635 Z P IFF STAT=0 Z P Z P* Z P* Z " P* STATUS HAS BEEN TRANSMITTED Z P
0x14b1c4…14b358 Dummy {f00=0x0017, f01=0x0190, f02=»LEAR 'STATUS SENT' Z " P CM XACK CLEAR 'ACK EXPECTED' [ P LD A1,DWTST,A6 GET STATUS [ @ P ANK A1,4 [ b P RB(Z) BRM636 NOT DE [ t P LDKL A1,/8000 [ " P ANS A1,DWTST,A6 CLEAR STATUS [ P RB BRM636 [ P XIF [ P [ P* [ P* [ P
0x14b358…14b4ec Dummy {f00=0x0017, f01=0x0190, f02=» [ j P IFF STAT=0 P LD A1,DWTST,A6 GET STATUS P LDR A3,A1 > P ANK A1,1 P $ P RF(Z) SEL110 NO PENDING STATUS b P CF A5,TRRVI SEND RVI P XIF P IFF STAT=1 P RF SEL110 P XIF PSEL100 EQU * P ABL BRM
0x14b4ec…14b680 Dummy {f00=0x0017, f01=0x018e, f02=» A3,8 " P RF(Z) SEL111 DEVICE NOT BUSY ] P CF A5,TRWACK TRANSMIT WACK ] 4 P ABL BRM ] X PSEL111 EQU * ] h P XIF ] | P LD A1,DCRBUF ] $ P RF(NZ) SEL120 BUFFER AVAILABLE ] PSEL115 EQU * ] P IFF STAT+NOWACK=2 ] P CF A5,TRWACK SEND W
0x14b680…14b814 (1, 13) Dummy {f00=0x0017, f01=0x018e, f02=» ] v P RB SEL100 ^ P ^ P* ^ $ P* ^ . P* PREPARE FOR TEXT RECEPTION ^ 8 P* ^ P* ^ f PPRREC EQU * ^ p P IM XSEL SET 'SELECTED' ^ P CM FBAX RESET BUFFER INDEX ^ P IFT CODE=1 ^ . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC ^
0x14b814…14b9a8 Dummy {f00=0x0017, f01=0x0190, f02=» P* _ P* _ $ P* GENERAL POLL HAS BEEN RECEIVED _ P* _ @ P* _ J PGPOLL EQU * _ T P LD A1,XACK =5 _ h & P RF(Z) POL020 ACK NOT EXPECTED =5 _ " PPOL010 CF A5,TRENQ SEND ENQ =5 _ * P CF A5,SPTIM START PROCEDURE TIMER =5 _ " P ABL BRM W
0x14b9a8…14bb3c Dummy {f00=0x0017, f01=0x018e, f02=»Z) POL110 NO STATUS TO BE SENT _ " P SUK A6,DWTSQ GET DWT ADDRESS ` & PPOL050 EQU * ` L P CF A5,TRSTA SEND STATUS ` ` & P CF A5,SPTIM START PROCEDURE TIMER ` P IM XACK SET 'ACK EXPECTED' ` P XIF ` P IFF STAT=1 ` P RF POL110 ` P XIF `
0x14bb3c…14bcd0 Dummy {f00=0x0017, f01=0x0190, f02=» P CF A5,TREOT SEND EOT a P RB POL100 a " PPOL120 EQU * a 4 " P SUK A6,DWTWQ GET DWT ADDRESS a H PPOL125 EQU * a n $ P LD A8,DWTECB,A6 GET ECB ADDRESS a P RF(NZ) POL126 a P CF A15,REMOVW a P RB POL115 a PPOL126 EQU * a P ST A8,FECB
0x14bcd0…14be64 Dummy {f00=0x0017, f01=0x0190, f02=»,A8 a . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER b P XIF b > & P LD A4,ECBBA,A8 GET BUFFER ADDRESS b J P LD A3,ECBRL,A8 GET LENGTH b t PPOL127 EQU * b & P ST A4,FECBBA SAVE BUFFER ADDRESS b ( P SUK A3,2 SKIP FIRST WORD OF BUFFER b P ST A3,F
0x14be64…14bff8 Dummy {f00=0x0017, f01=0x0190, f02=»A5,TRTEXT SEND ONE BLOCK b & P CF A5,SPTIM START PROCEDURE TIMER c P IM XACK SET 'ACK EXPECTED' c J P RB POL100 c n P c P* c P* c & P* SPECIFIC POLL HAS BEEN RECEIVED c P* c P* c PSPOLL EQU * c P IFF STAT+SPECP=0 c
0x14bff8…14c18c Dummy {f00=0x0017, f01=0x0190, f02=» RESTORE A6 c P IFT STAT=1 d P LD A1,DWTST,A6 GET STATUS d ( P ANK A1,7 d J " P RB(NZ) POL050 PENDING STATUS d P XIF d P IFF STAT+SPECP=0 d P LD A1,DWTST,A6 d P RB(N) POL115 NO REQUEST d P LD A1,DWTOR,A6 GET ORDER d P SUK A
0x14c18c…14c320 Dummy {f00=0x0017, f01=0x0190, f02=» d | P e P* e P* e 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED e & P* e b P* A1 CONTAINS RETURN CODE e l P* e P* e PCWRITE LD A6,FDWTUT e $ P RF(Z) CWR900 NO WRITE GOING ON e P IFT RCOM=1 e $ P LD A2,XRB IF
0x14c320…14c4b4 (1, 14) Dummy {f00=0x0017, f01=0x0190, f02=»OR,A6 GET ORDER e P SUK A2,6 f P RF(Z) CWR100 WRITE REQUEST f * P SUK A2,2 f N ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST f ` P LDR A1,A1 f 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO f P LDK A2,2 TRANMISSION OK f ( P ST A2,DWTOR,A6 INDI
0x14c4b4…14c648 Dummy {f00=0x0017, f01=0x018e, f02=» RF(Z) CWR150 f P ST A2,ECBCW,A8 g $ P CF A15,TENDIO COMPLETE REQUEST g . PCWR150 EQU * g V * P CF A15,REMOVW REMOVE FROM WRITE QUEUE g j PCWR200 EQU * g PCWR900 EQU * g " P CM XACK RESET 'ACK EXPECTED' g P CM FDWTUT g P IFT RCOM=1 g
0x14c648…14c7dc Dummy {f00=0x0017, f01=0x018e, f02=» PCWR910 EQU * DK6 h P XIF h P RTN A5 h , P h < P* h F P* h P P* READ ONE TEXT BLOCK h Z P* h x P* ON EXIT A3 CONTAINS : h ( P* 0 : IF CORRECT ETX BLOCK RECEIVED h 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW h ( P* 2
0x14c7dc…14c970 Dummy {f00=0x0017, f01=0x0190, f02=» h v P LDK A3,0 i P LD A1,XSTA i $ P RF(NZ) RDM050 LAST INPUT WAS OK i . " P LD A1,FBLST COMPUTE NEW INDEX i V P SUR A1,A4 i | P ST A1,FBAX i PRDM050 EQU * i P AD A4,FBAX ADD BUFFER INDEX i ( P ST A4,FBLST REMEMBER START OF BLOCK i PRD
0x14c970…14cb04 Dummy {f00=0x0017, f01=0x0190, f02=» BLOCK i x P CF A5,READP j P RF(NZ) RDM120 PARITY ERROR j " P CWK A2,ESC j F P RF(NE) RDM110 j Z * P CF A5,READP SKIP NEXT TWO CHARACTERS j p P CF A5,READP j P XIF j PRDM100 EQU * j $ P CF A5,READP READ ONE CHARACTER j P RF(NZ) RDM120
0x14cb04…14cc98 Dummy {f00=0x0017, f01=0x0190, f02=»CEIVED j | P CWK A2,ITB k P RF(E) RDM170 ITB RECEIVED k " P CWK A2,ENQ k D 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE k X P CWK A2,/FF k $ P RF(E) RDM140 MARK HOLD RECEIVED k P k P IFT CODE=0 k P IFT BINTRM=1 k P k P LDR
0x14cc98…14ce2c Dummy {f00=0x0017, f01=0x018e, f02=» P LDR A8,A1 l * P CF A5,READP 8-BIT CHAR GET NEXT PART l P RF(NZ) RDM120 PARITY ERROR l D * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER l h P ORR A2,A8 l PRDM115 EQU * l P XIF l P l P SCR A2,A4 STORE CHARACTER l P ADK A4,1 INCREMENT PO
0x14ce2c…14cfc0 Dummy {f00=0x0017, f01=0x0190, f02=» P* m P* BUFFER OVERFLOW m P* m ( P RF RDM140 ABORT INPUT m 2 PRDM120 EQU * m P & P LDK A3,1 INDICATE INVALID MESSAGE m d P SUK A2,/7F m $ P RF(Z) RDM150 MARK HOLD RECEIVED m P RB RDM100 m P* m P* ETX RECEIVED m P* m PRD
0x14cfc0…14d154 (1, 15) Dummy {f00=0x0017, f01=0x0190, f02=»DER m f P IFF CODE=1 n P CF A5,RDLRC n P RF(Z) RDM150 LRC WAS OK n 4 P XIF n T P IFT CODE=1 n ` & P CF A5,RDCRC READ CRC AND CHECK IT n t P RF(E) RDM150 CRC WAS OK n P XIF n PRDM140 EQU * n & P LDK A3,1 INDICATE INVALID MESSAGE n P
0x14d154…14d2e8 Dummy {f00=0x0017, f01=0x0190, f02=»SALCUZ n x P XIF SALCUZ o P RTN A5 o $ P* o 4 P* ETB RECEIVED o > P* o T PRDM160 EQU * o ^ P LDR A3,A3 o r " P RB(NZ) RDM130 ALREADY INVALID o " P LDK A3,2 INDICATE CORRECT ETB o P RB RDM130 o P* o P* ITB RECEIVED o P* o
0x14d2e8…14d47c Dummy {f00=0x0017, f01=0x0190, f02=»F A5,RDCRC READ CRC AND CHECK IT o " P RB(NE) RDM120 CRC WAS NOT OK p ( P XIF p N P RB RDM100 p Z P p l P* p v P* TRANSMIT ACK 0 OR 1 p P* p PTRACK LDK A2,1 p P LDK A3,ACK1 PRELOAD ACK1 p & P XRS A2,CACK INCREMENT ACK COUNTER p
0x14d47c…14d610 Dummy {f00=0x0017, f01=0x018e, f02=»OAD WACK p | P RF TRDLE q P* q " P* TRANSMIT RVI q , P* q B P IFF STAT=0 q L PTRRVI LDK A3,RVI LOAD RVI q ` P XIF q P* q P* TRANSMIT DLE q P* q PTRDLE LDK A2,DLE LOAD DLE q " P SC A2,RESEND PUT INSAVE AREA q P SC A3,R
0x14d610…14d7a4 Dummy {f00=0x0017, f01=0x0190, f02=» P* r P* TRANSMIT EOT r P* r $ PTREOT LDK A3,EOT LOAD EOT r . P RF TREN10 r P P* r b P* TRANSMIT ENQ r l P* r PTRENQ LDK A3,ENQ LOAD ENQ r P* r ( PTREN10 SC A3,RESEND PUT IN SAVE AREA r P LDK A2,/FF r P SC A2,RESEND+1
0x14d7a4…14d938 Dummy {f00=0x0017, f01=0x0190, f02=»GET NEXT CHARACTER r P CF A5,WRITEP SEND IT s PTRRE10 LDK A2,/FF s 8 P CF A5,WRIT05 SEND PAD s R P LDK A2,/FF s p P CF A5,WRIT05 s P LDK A2,0 SALCUZ s $ P CIO A2,0,LCUUT STOP TRANSMITTER s P IFT P6805=1 SALCUZ s $ P CF A5,READ WAIT
0x14d938…14dacc Dummy {f00=0x0017, f01=0x018e, f02=»R STATUS s t P XIF t P RTN A5 t P t , P* t 6 P* t @ P* TRANSMIT ONE TEXT BLOCK t J P* t l P* t v PTRTEXT EQU * t P CF A5,TRSYNC START OUTPUT t P IFT TSTREQ=1 t P* t P* t P* TEST REQUEST HANDLING t P* t
0x14dacc…14dc60 Dummy {f00=0x0017, f01=0x0190, f02=» P RF(NZ) TRT050 YES !! u P u " P LD A4,FECBBA u * " P LC A3,+2,A4 GET AID CHARACTER u @ P SUK A3,/30 u f $ P RF(NZ) TRT050 NOT TEST REQUEST u z P LDK A2,SOH u P CF A5,WRITE SEND SOH u P LDK A7,0 RESET BCC u P LDK A2,'%' u P CF
0x14dc60…14ddf4 (1, 16) Dummy {f00=0x0018, f01=0x0190, f02=»EMEMBER START OF BLOCK u ( P ADK A4,5 SKIP AID + CURSOR ADDRESS v P LDK A3,5 ADJUST LENGTH v J P LDK A2,3 v j P ST A2,FBAX v | P RF TRT100 v PTRT050 EQU * v P* v P* v P* v P XIF v P LDK A2,STX v P CF A5,WRITE SEND ST
0x14ddf4…14df88 Dummy {f00=0x0018, f01=0x0190, f02=»START OF BLOCK v z ( P ADK A4,2 SKIP FIRST WORD OF BUFFER w & P LDK A3,0 RESET CHARACTER COUNTER w B P LD A1,FBAX GET BUFFER INDEX w l " P RF(NZ) TRT100 NOT FIRST BLOCK w P LC A2,DW1500+1 GET TCA w P CF A5,WRITEP SEND TCA w P LDR* A2,A6 GET STA
0x14df88…14e11c Dummy {f00=0x0018, f01=0x0190, f02=» " P LDK A2,/20 AND CURSOR ADDRESS x P CF A5,WRITEP x * P LDK A2,/20 x @ P CF A5,WRITEP x T P XIF x j P IFT RCOM=1 x v P x P RF TRT070 DK6 x P x P ******************** x " P LDK A2,X'2D' AID FOR DISPLAY x PTRT060 CF A5,WRI
0x14e11c…14e2b0 Dummy {f00=0x0018, f01=0x0190, f02=»K COUNT x ~ P RF TRT100 y PTRT070 EQU * y " P XIF y 6 P y B P LDK A3,2 y J PTRT100 EQU * y P LCR A2,A4 GET ONE CHARACTER y p P ADK A4,1 INCREMENT POINTER y P ANK A2,/7F y P IFT RCOM=1 y P RF TRT105 DK6 y P y @ P********
0x14e2b0…14e444 Dummy {f00=0x0018, f01=0x0190, f02=»*************************************** y P z 0 & P CWK A2,X'20' ATTRIBUTE CHARACTER z 8 P RF(L) TRT101 YES!!! z b P XIF z ~ P IFT DMRK=1 z P CWK A2,/7E LINE FEED ? z " P RF(NE) TRT102 NO,GO TO TRT102 z P LDK A2,/0A z PTRT102 EQU * z
0x14e444…14e5d8 Dummy {f00=0x0018, f01=0x0190, f02=» ?? z ~ P RF(NE) TRT105 { P SUK A2,1 { " P XIF { 4 P IFT RCOM=1 { @ P RF TRT105 { T P { f PTRT101 EQU * { n P { P LDK A2,SF { " P CF A5,WRITEP SEND START FIELD { P { ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER { P ANK A2,X'7F' {
0x14e5d8…14e76c Dummy {f00=0x0018, f01=0x0190, f02=»POSED { t " P ORK A2,/40 BIT ALWAYS SET ONE | P LC A2,TASCII,A2 | 4 & P CWK A2,/18 CHECK SPECIAL ATTRIBUT | L P RF(NE) TRT104 | v P LDK A2,/30 | PTRT104 EQU * | P CF A5,WRITEP SEND ATTRIBUTE | P ADK A3,1 | P RF TRT110 | PTRT105 EQU *
0x14e76c…14e900 Dummy {f00=0x0018, f01=0x0190, f02=» EQU * | $ P IM FBAX INCREMENT BUFFER INDEX } & P LD A1,FECBRL GET REQUESTED LENGTH } 6 P CW A1,FBAX } ` " P RF(NG) TRT130 END OF MESSAGE } t * P ADK A3,1 INCREMENT CHARACTER COUNTER } P CWK A3,TBLEN } P RB(L) TRT100 NOT FULL BLOCK } P IFT R
0x14e900…14ea94 (1, 17) Dummy {f00=0x0018, f01=0x0190, f02=»TRT116 NO SEND ETB } ( P LCR A2,A4 GET FIRST BYTE AFTER SBA ~ P ADK A4,1 INREMENT POINTER ~ F P CF A5,WRITEP SEND IT ~ h P IM FBAX INCREMENT INDEX ~ . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA ~ P CF A5,WRITEP SEND IT ~ P IM FBAX INCREMENT
0x14ea94…14ec28 Dummy {f00=0x0018, f01=0x0190, f02=» ~ P LDR A2,A7 GET LRC P CF A5,WRITEP SEND LRC " P XIF @ P IFT CODE=1 L P LDR A8,A7 SAVE CURRENT CRC ` P LDR A2,A7 P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 1 P ECR A2,A8 P ANK A2,/FF " P CF A5,WRIT05 SEND
0x14ec28…14edbc Dummy {f00=0x0018, f01=0x0190, f02=» P LDK A2,ETX LOAD ETX P RB TRT120 SEND ETX AND LRC P D P* N P* X P* TRANSMIT STATUS MESSAGE b P* P* P IFF STAT=0 PTRSTA EQU * $ P IM XSTA INDICATE 'STATUS SENT' P ST A6,FDWTUT SAVE A6 P C
0x14edbc…14ef50 Dummy {f00=0x0018, f01=0x0190, f02=»RITEP SEND '%' P LDK A2,'R' P CF A5,WRITEP SEND 'R' * P LDK A2,STX H P CF A5,WRITE SEND STX P LC A2,DW1500+1 z P CF A5,WRITEP SEND TCA P LDR* A2,A6 P CF A5,WRITEP SEND STA P LD A1,DWTST,A6 GET STATUS P ANK
0x14ef50…14f0e4 Dummy {f00=0x0018, f01=0x0190, f02=»LOAD S/S 1 P LD A1,DWTST,A6 GET STATUS P ANK A1,5 4 P RF(Z) TRST10 NOT 'IR' F P ANK A1,4 d P RF(NZ) TRST10 NO IR IF DE v P LDK A2,IR PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P RB TRT130 SEND ETX AND LRC P XIF
0x14f0e4…14f278 Dummy {f00=0x0018, f01=0x0190, f02=»IO A2,0,LCUIN HALT INPUT IF NOT DONE P SST A2,LCUIN PERFORM SST , P IFT P6805=0 SALCUZ N & P CIO A2,1,LCUUT START TRANSMITTER j P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=1 SALCUZ P LDK A2,0 SALCUZ , P CIO A2,1,LC
0x14f278…14f40c Dummy {f00=0x0018, f01=0x0190, f02=»SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * SALCUZ 4 P LDK A2,SYNEBC SALCUZ P 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ n P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0C SALCUZ
0x14f40c…14f5a0 Dummy {f00=0x0018, f01=0x0190, f02=» SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * 6 P LDK A2,SYN SALCUZ J 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ f P XIF SALCUZ * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS PTRS100 LDK A2,SY
0x14f5a0…14f734 (1, 18) Dummy {f00=0x0018, f01=0x0190, f02=»ER INTERRUPT P* P* PIH1501 EQU * ( P ST P,INTSAV < P IFT CPU852=1 P P CF A15,SAVE8 SAVE A1-A8 f P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8
0x14f734…14f8c8 Dummy {f00=0x0018, f01=0x0190, f02=»TER p P XIF P IFF CODE=1 P C2 SYNSW , P RF(NZ) IHLCI2 > P CWK A2,SYN SKIP SYNS T P RF(E) READ r " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FR
0x14f8c8…14fa5c Dummy {f00=0x0018, f01=0x018e, f02=»CII,A2 TRANSLATE TO ASCII P XIF " PIHIN10 RTN A5 . P IFT P6805=0 SALCUZ D PIHIN20 CF A5,SST PERFORM SST ` P ABL BRM P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ P
0x14fa5c…14fbf0 Dummy {f00=0x0018, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1 - A8 P XIF * P 6 P IFF CPU852=1 > P MSR 8,A15 SAVE A1-A8 =1 T P XIF t * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 P P* P* & P* SST INSTRUCTION AND STATUS CHECK P
0x14fbf0…14fd84 Dummy {f00=0x0018, f01=0x0190, f02=»UT ERROR p , P* BIT 15=MODEM NOT READY P* @ PSST SST A1,LCUIN J P IFT P6805=1 SALCUZ b 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ ~ P XIF SALCUZ P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST IN
0x14fd84…14ff18 Dummy {f00=0x0018, f01=0x0190, f02=»LCUZ P ANK A2,6 SALCUZ P RF(Z) SST100 SALCUZ & P ANK A2,2 SALCUZ D & P RF(NZ) SST050 THROUGH PUT SALCUZ ^ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA T
0x14ff18…1500ac Dummy {f00=0x0018, f01=0x0190, f02=»A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 * P XIF SALCUZ : P IFT P6805=1 SALCUZ P P ANK A1,/21 SALCUZ l P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ P DATA 2
0x1500ac…150240 Dummy {f00=0x0018, f01=0x0190, f02=» CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ 0 P* F P* P P* HALT INPUT Z P* n P* x PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x150240…1503d4 (1, 19) Dummy {f00=0x0018, f01=0x0190, f02=» P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* B P* L PWRITE EQU * V P IFT CODE=1 j P ANK A2,/FF ~ P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P
0x1503d4…150568 Dummy {f00=0x0018, f01=0x0190, f02=»1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 2 P IFT CODE=1 > & PWRIT10 CF A5,CRCCAL CALCULATE CRC R P XIF | P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP P
0x150568…1506fc Dummy {f00=0x0018, f01=0x0190, f02=» v PWRITEP ANK A2,/FF P ECR A1,A2 " P ORK A2,/80 4 PWRI100 SLL A1,1 H P RB(P) WRI100 ` P RB(Z) WRITE WRITE v P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P XIF P
0x1506fc…150890 Dummy {f00=0x0018, f01=0x018e, f02=» A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 2 PRE100 SLL A1,1 D P RF(Z) RE110 Z P RB(NN) RE100 n P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK
0x150890…150a24 Dummy {f00=0x0018, f01=0x0190, f02=» < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* H $ P* CALLING SEQUENCE: CF A5,FINTER R P* A2=SUBTERMINAL ADDRESS z P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELE
0x150a24…150bb8 Dummy {f00=0x0018, f01=0x0190, f02=»YTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE P* 0 P* : PFINTEP EQU * D P IFT MSV1=0 X PFINTER EQU * l P XIF P IM RBYTE P IFT MSV1=1 PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTA
0x150bb8…150d4c Dummy {f00=0x0018, f01=0x018e, f02=»0 SUBTERMINAL NOT FOUND P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 D $ P AD A3,RBYTE CHOOSE ADDRESS TYPE X * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF
0x150d4c…150ee0 Dummy {f00=0x0018, f01=0x0190, f02=» P* POWER ON FUNCTIONS P* P* * PDC15ON EQU * 4 P IFT CPU852=1 H P CF A15,SAVE8 SAVE A1-A8 ^ P XIF ~ P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF P IFT STAT=1 P LDK A5,4 SET DEVICE END P
0x150ee0…151074 (1, 20) Dummy {f00=0x0019, f01=0x0190, f02=»ABLE z P LDR* A6,A1 GET DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE 0 ( P CF A15,INSSQ INSERT IN STATUS QUEUE d P RB DRDC05 PDRDC06 EQU * P XIF P LDK A2,/40 P ORS A2,DCONOF P CF A15,CKMESS ( P LD A2
0x151074…151208 Dummy {f00=0x0019, f01=0x0190, f02=» P P* P* POLL TIME OUT P* 4 ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE > P LDK A2,/40 j ( P ST A2,DCONOF INDICATE POLL TIME OUT ~ * P CF A15,CKMESS CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START POLL TIMER P ABL TDI
0x151208…15139c Dummy {f00=0x0019, f01=0x0190, f02=»TIMPOL P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF STATUS CHANGE 2 P RTN A5 ` P* p P* START POLL TIMER z P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER
0x15139c…151530 Dummy {f00=0x0019, f01=0x0190, f02=»D DWT AS PARAMETER P CF A15,SETIME P DATA PRTOUT,TIMPRO 0 $ P ST A4,DCTPP SAVE TIMER POINTER L P RTN A5 t P* P* PROCEDURE TIMEOUT P* PPRTOUT CM DCTPP P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE
0x151530…1516c4 Dummy {f00=0x0019, f01=0x0190, f02=» & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM . P D P* N P* STOP PROCEDURE TIMER X P* v ( PHPTIM LD A1,DCTPP GET TIMER POINTER P RF(Z) HPT10 NOT RUNNING P CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5
0x1516c4…151858 Dummy {f00=0x0019, f01=0x0190, f02=»ED CRC P* P* PCRCCAL EQU * " P ST A1,CRCSAV 6 P ST A2,CRCSAV+2 L P ST A3,CRCSAV+4 d P LDK A1,8 | PCRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRK
0x151858…1519ec Dummy {f00=0x0019, f01=0x0190, f02=»TN A5 PCRCSAV RES 3 P " P* , P* 6 ( P* READ CRC CHARACTERS AND CHECK THEM @ P* CR = (E) IF CRC WAS OK l P* P* $ PRDCRC LDR A6,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1
0x1519ec…151b80 Dummy {f00=0x0019, f01=0x0190, f02=» IT | P SLL A2,8 P XRR A2,A8 P ADK A5,4 0 . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED B P ABR* A5 t P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " P* CR=0 IF LRC OK P* P
0x151b80…151d14 (1, 21) Dummy {f00=0x0019, f01=0x0190, f02=» P CM SYNSW P ABR* A5 P & P XIF . P : P* D P* N " P* DEVICE WORK TABLE FOR DCTASK X P* ~ P* PDW1500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS P
0x151d14…151ea8 Dummy {f00=0x0019, f01=0x0190, f02=» DATA 0 TASK QUEUE P* P IFT MMUPAG=1 $ P DATA 0 USER ECB ADDRESS : P DATA DC:ECB MMU ECB ADDRESS Z P XIF ~ P* P DATA 0 TIMER POINTER ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK)
0x151ea8…15203c Dummy {f00=0x0019, f01=0x0190, f02=»EST TIMEOUT VALUE " P DATA 0 EXTRA DEVICE INFO DK5 P* @ P IFT MMUPAG=1 J PDC:ECB EQU * MMU ECB ` P DATA 0,0,0,0,0,0 | P XIF P* P P* P* P* DC RECEIVE BUFFER POOL P* PRLINK EQU RBUFL+RBUF
0x15203c…1521d0 Dummy {f00=0x0019, f01=0x0190, f02=»INK P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK 6 P RES RBUFL+3 L P IFF RBUFNR=4 ` P DATA *+RLINK v P RES RBUFL+3 P XIF P IFF RBUFNR=1 DK3 P DATA *+RLINK P RES RBUFL+3 P XIF DK3 P DATA
0x1521d0…152364 Dummy {f00=0x0019, f01=0x0190, f02=»* P* P* INTERRUPT LOGGING ROUTINE P* 8 P* B P IFF LOGG=0 L PLOGSST ST A2,SAVE2 ` P ORKL A2,/F000 z P RF LOG10 PLOGOUT ST A2,SAVE2 P ORKL A2,/0F00 P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE1
0x152364…1524f8 Dummy {f00=0x0019, f01=0x0190, f02=» RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT . P LD A2,SAVE2 J P LD A3,SAVE3 ^ PLOGE10 RTN A5 r P P* P* PLOGPNT DATA LOGSTA PLOGSTA EQU * P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0
0x1524f8…15268c Dummy {f00=0x0019, f01=0x0190, f02=»***************** j P* P* L I N C O L $ P* > : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER H P* > P********************************************************** P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADD
0x15268c…152820 Dummy {f00=0x0019, f01=0x018e, f02=» P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER , $ P CF A5,WRITEP SEND COLUMN NUMBER X P RTN A5 RETURN P* P* P* P P P* SCANDINAVIAN ALPHABET P DB PLICO:T EQU *
0x152820…1529b4 (1, 22) Dummy {f00=0x0019, f01=0x0190, f02=» h * P DATA /5152,/245D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 6 * P DATA /595A,/402C,/255F,/3E3F /28-/2F d ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE P XIF P
0x1529b4…152b48 Dummy {f00=0x0019, f01=0x4076, f02=»0,0,0,0 r * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 PDC:END EQU * > P* R P* P END f@ r/255F,/3E3F /28-/2F d ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE P XIF P
0x152b48…152cdc Dummy {f00=0x0019, f01=0x2008, f02=» H P X ` h p x
0x152cdc…152e70 Dummy {f00=0x0019, f01=0x0190, f02=» A14 P* EJECT D P**************************************************************** " P* j P* INPUT FROM DC t P* 8 P**************************************************** P* PDCINP EQU * ( P CF A14,ICABOR ABORT INT
0x152e70…153004 Dummy {f00=0x0019, f01=0x018e, f02=»RTASK INPUT t . P OR BUFFER WILL BE DESTROYED IN 'UPDATE' PDCIN10 EQU * F & P CF A14,GTRBUF GET RECEIVE BUFFER Z P LD A8,ECBDCC,TCABAS P CF A14,DCGETM READ MESSAGE P IFF DCLIN=2 P CM ECBBLK+DC1,TCABAS P XIF P IFT D
0x153004…153198 Dummy {f00=0x0019, f01=0x0190, f02=» P CM ECBBLK+DC2,TCABAS P XIF & PDCIN30 EQU * 2 $ P LD A1,ECBEL,A8 EFFECTIVE LENGTH F . P ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA n P 2 P CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER; P IFT COPCMD=1 P LD A1,ICWORK,TCABAS
0x153198…15332c Dummy {f00=0x0019, f01=0x0190, f02=» P CF A14,COPY COPY ON PRINTER PDCIN90 EQU * ( P CF A14,SNBUSY < P RTN A14 R P* EJECT b P* x P* ABORT INTERTASK READ P* PICABOR EQU * P LDK A7,0 P CM ECBBLK+ICR,TCABAS P LDKL A8,ECBICR P A
0x15332c…1534c0 Dummy {f00=0x0019, f01=0x0190, f02=»ICRINP EQU * P CM ECBBLK+ICR,TCABAS P 2 * P LDK A1,X'38' PRINT BIT, 80 CHAR./LINE : 4 P ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER h * P CF A14,COPY PRINT ON HARDCOPY DEVICE P LD A1,ICWORK,TCABAS ( P RB(NZ) DCIN10 TAKE CARE OF DC
0x1534c0…153654 (1, 23) Opaque[0x194]
0x153654…1537e8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x153654…1537e8 IdxSect {
0x153654…1537e8 f00 = 0x0019 // 0x153654 @0x0
0x153654…1537e8 f01 = 0x0008 // 0x153656 @0x2
0x153654…1537e8 gno = [ // 0x153658 @0x4
0x153654…1537e8 [0x00]: C0x0019.0x3.0
0x153654…1537e8 [0x01]: C0x001a.0x0.0
0x153654…1537e8 [0x02]: C0x001a.0x1.0
0x153654…1537e8 [0x03]: C0x001a.0x2.0
0x153654…1537e8 ]
0x153654…1537e8 }
0x1537e8…15397c Dummy {f00=0x0019, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 6 82-02-21 870105040924 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P P +P P DISIOEC
0x15397c…153b10 Dummy {f00=0x0019, f01=0x0190, f02=» , ( " P H :H B # L Y @ SETIME 8 , ( P P $_ _R J , ( _$ X 9 P @ z , ( @ ` @ P 0P _ % A A DWTST TENDIO ECBRL
0x153b10…153ca4 Dummy {f00=0x0019, f01=0x0190, f02=» DC:MIN , ( G Y P C _ _ , ( cB B ! P Y _V X ! X @ DISEND p , ( } _ B Y _p X , ( P A Y W Y @_ , ( X X A Y _&
0x153ca4…153e38 Dummy {f00=0x0019, f01=0x0190, f02=» ( r , ( 5 X( P _ 0 )_6 X " X> XB , ( U _> _0 (P _ ) 1 4 B DWTOR r , ( u! X R X T X P , ( , Y L C L C , ( T @ > @ @ @ A X
0x153e38…153fcc Dummy {f00=0x0019, f01=0x0190, f02=» r % > = 6 , ( @ Q BHBB < ! 2B ! T , ( q T P P , ( ! T T A P A T ! , ( T ! T T ! T ! A
0x153fcc…154160 Dummy {f00=0x0019, f01=0x0190, f02=» A < A >_ ! t , ( 1 @ >P @ X@ ! T A B ! * & Q ` @ <P @ P @ : 8 ! X D , ( o Y ! A F_B ! X>_b A r , ( B @ @ RT 1 Z 0 2P TEBCDI , ( @ P P A P @ 8 8 H
0x154160…1542f4 (1, 24) Dummy {f00=0x001a, f01=0x0190, f02=»P " P X r , ( * Y X T ! `W , ( 3 W W X R X T @ , ( K ! ` r ! ` X ! X p , ( g ! W A > @ 8 X Y A D A : , ( ) A F @ Z A Z ! @ <T @ , ( H
0x1542f4…154488 Dummy {f00=0x001a, f01=0x0190, f02=» XV ! T @ FP ! ! _p / , ( $@ ! T @ FX @ @P @ BT ! ! A 0 , ( A D_ A F B A < @ @T ` , ( a _2 _6 @ : X A B A < X ! XD , ( Y _N @ <T X ! P ! , ( `# T @ T
0x154488…15461c Dummy {f00=0x001a, f01=0x0190, f02=» ` @ T ! _ T ECBBA DC:MOT, 0 , ( J $ *_ J A : C B B , ( U 3 B A L A N A P A @ A B r * & O ! ! A <_^ @ < ! X , ( m @ ! X Zp X Xp Xt_~ , ( H
0x15461c…1547b0 Dummy {f00=0x001a, f01=0x0190, f02=» I @ Y 4 @ @ BT @ R A P , ( T @ P A R A B ! T P P . , ( P P P 1 A P @ P ^ , ( 9 ]6W P _@ @ @ P E ! P , ( Y ! 4 _$ ! 2_l / A , ( P y FT W ,W A
0x1547b0…154944 Dummy {f00=0x001a, f01=0x0190, f02=» A R @ PT @ ! ~ , ( 8 ! W - ! x ! W 0 , ( " W R ~T }T T N * & 9 W ! P " ! " :A *@ H ~ , ( W T 0 ! W R ! A , ( u P @ N @ PU Zt Q P Q
0x154944…154ad8 Dummy {f00=0x001a, f01=0x018e, f02=» ! l , ( @ @ ! 8 ! X ! 9a D ! , ( X ! P ! T & ! _b B J < IH1501 D l INTSAVL , ( 1 B ! ! 4 A " ? , ( O J T A HT 2P ! H 4 ! IH1502 p , (
0x154ad8…154c6c Dummy {f00=0x001a, f01=0x0190, f02=» f , ( ! 1 4 A @ ` @ P DC15ON 8 , ( 0 M A 4 ? @ ` L , ( @ P $ Y D_ @ A r @ | , ( ( % T ` < @ A r , ( B E A a r 4 0 X
0x154c6c…154e00 Dummy {f00=0x001a, f01=0x0190, f02=»?a l ( $ :a# P @ @ @ 4 , ( * A H ! ! A H @ :H 8 DW1500 h , ( 4 | $ 0 ! 6 : ; , ( '= :f"? H ! "? H !
0x154e00…154f94 (1, 25) Dummy {f00=0x001a, f01=0x0190, f02=» v , ( ' ! ' ! F H D ! f 4 B 4 GP8 KP OP SP4 WP: ] b c eW kP oP ! X H D !Bo sP { r P W W P T P P P8 ' ' ' ' ! H D ! ' P P ' '
0x154f94…155128 Dummy {f00=0x001a, f01=0x0190, f02=» {R2 T* P& P P T : T < : $ ( , ! H D ! 0 W g q sT yP }P Tf Tb P " D H D !R TR TL TD T@ T8 P T " H D ! P P # 1 7P ; 4 A
0x155128…1552bc Dummy {f00=0x001a, f01=0x0190, f02=» Y r i kW@ T P T " t H D !| Wx F T P j !T, -P 5T0 9 = M F # 0 H D ! ]T TL P T 4 T r P j F P # | H D ! j T T ' > Q U j g F P< T6 R0 P T$ T W
0x1552bc…155450 Dummy {f00=0x001a, f01=0x0190, f02=» * T$ # ` H D ! W '< W WL !R 'T /T 7T0 ;W, A ]T c gW $ H D !G mR q UH P T * $ h H D ! P !T ' 5 = QT WT ]PX a k | P P P $ H D !{ W
0x155450…1555e4 Dummy {f00=0x001a, f01=0x400e, f02=» $ @ % T$ # ` H D ! W '< W WL !R 'T /T 7T0 ;W, A ]T c gW $ H D !G mR q UH P T * $ h H D ! P !T ' 5 = QT WT ]PX a k | P P P $ H D !{ W
0x1555e4…155778 Dummy {f00=0x001a, f01=0x2008, f02=» L = KMD12 DATE = 81 04 28 1216PACK NBR = 0012 B ` x @ @
0x155778…15590c Dummy {f00=0x001a, f01=0x0190, f02=» C P* D P* D P* EOT HAS BEEN RECEIVED D P* D < P* D F PBRM200 EQU * D P & P CF A5,HPTIM STOP PROCEDURE TIMER D d P IFT RCOM=1 D P CM XRB RESET READ BUFFER D P XIF D P LD A1,XACK D & P RF(Z) BRM220 ACK IS NOT EXPECTED D
0x15590c…155aa0 Dummy {f00=0x001a, f01=0x018e, f02=»EQUEST D r PBRM210 EQU * E " P CM XACK RESET 'ACK EXPECTED' E " PBRM220 EQU * E H P CM XSEL RESET 'SELECTED' E P RB BRM E ~ P E P* E P* E P* STX HAS BEEN RECEIVED E P* E P* E PBRM300 EQU * E P CF A5,HPTIM E P
0x155aa0…155c34 (1, 26) Dummy {f00=0x001a, f01=0x0190, f02=» P CF A5,RDMESS READ MESSAGE F P SUK A7,1 F & P RF(NZ) BRM320 MESSAGE OK F 8 PBRM310 EQU * F Z ( P CM XSTA INDICATE 'INVALID MESSAGE' F n PBRM312 EQU * F P CF A5,TRNAK SEND NAK F P ABL BRM F PBRM315 EQU * F P IFT RCOM=1 F P LD
0x155c34…155dc8 Dummy {f00=0x001a, f01=0x018e, f02=»GET WRITING DWT F 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE G P LDR* A2,A6 GET STA G L P XIF G h P IFT RCOM=1 G t , P CF A5,PRREC PREPARE FOR TEXT RECEPTION G P LDK A1,0 SET RC=0 G ( P CF A5,CWRITE COMPLETE WRITE REQUEST G P CM CACK P
0x155dc8…155f5c Dummy {f00=0x001a, f01=0x0190, f02=» P SUK A2,ENQ+PAR H P XIF =8 H P IFT P6805=1 =8 H . P SUK A2,ENQ =8 H F P XIF =8 H ^ ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE H p P RB BRM220 H PBRM320 EQU * H P IM XSTA INDICATE MESSAGE OK H $ P LD A4,DCRBUF GET BUFFER ADDRESS H
0x155f5c…1560f0 Dummy {f00=0x001a, f01=0x0190, f02=» P RB(NE) BRM310 ESC NOT FOUND I P ADK A4,1 I ( P LCR A1,A4 GET COMMAND CODE I : P SUK A4,1 I ^ P SUK A1,RDBCOM I p ( P RF(Z) RDBUF READ MODIFIED RECEIVED I P SUK A1,RDMCOM-RDBCOM I & P RF(Z) RDMOD READ BUFFER RECEIVED I P XIF I PBR
0x1560f0…156284 Dummy {f00=0x001a, f01=0x0190, f02=» P ADK A4,6 J P LD A6,FDWTIN GET INPUT DWT J P* J : " P* PREPARE FOR CHAINED COMMAND J D P* J j P IFT RCOM=1 J t P LDR* A2,A6 J P LC A2,TEBCDIC,A2 J P LD A1,DCRBUF J P RF(Z) BRM326 J P ST A2,+4,A1 J P XIF J PBRM326
0x156284…156418 Dummy {f00=0x001a, f01=0x0190, f02=»EQUEST J ~ P IFT EM3270=1 =4 K P LD A2,DWTOR,A6 ORDER =4 K ( & P RF(Z) BRM327 ANY MESSAGE ORDER =4 K H P XIF =4 K r P LDK A2,2 K P CW A2,DWTOR,A6 K " P RF(NE) BRM330 NO READ REQUEST K PBRM327 EQU * K P LDK A1,0 SET RC=0 K $ P LD A8
0x156418…1565ac Dummy {f00=0x001a, f01=0x0190, f02=»ST TIMING K x ( P ST A2,ECBCW,A8 STORE REMAINING TIME L P L > P* L H P* L R 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC L P* L P* L P IFT STAT=1 L P LC A2,+2,A4 GET WCC/CCC L P ANK A2,/FF L P LC A2,TEBCDI,A2 TRANSLATE L
0x1565ac…156740 Dummy {f00=0x001a, f01=0x018e, f02=»,A6 L PBRM328 EQU * M P XIF M P IFT EM3270=1 =4 M , P LD A2,DWTOR,A6 ORDER =4 M F , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 M f & P SUK A4,6 ADJUST BUFFER ADDRESS =4 M ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 M P RF BRM32A =4 M P XIF