|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / A C D E G L M N P S T X p ½
Length: 4117568 (0x3ed440)
Description: Bits:30009679 Philips computer tape "600220"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| LP100 | «none» |
| LP100//OBJCT.OB | ⟦7a2621b52⟧ pts_type |
| LP100/CTAB01.SC | ⟦5f1d69515⟧ pts_type |
| LP100/DRGP01.SC | ⟦01dc19db6⟧ pts_type |
| LP100/DVGP01.SC | ⟦75232ca84⟧ pts_type |
| LP100/EBCDIC.SC | ⟦4e0c97122⟧ pts_type |
| LP100/TEST.UF | ⟦9ae0d2f73⟧ pts_type |
| M:92LP | «none» |
| M:92LP//OBJCT.OB | ⟦97cb85fd6⟧ pts_type |
| M:92LP/CTAB01.SC | ⟦1c7265b9a⟧ pts_type |
| M:92LP/DCFIL.SC | ⟦1731bbe29⟧ pts_type |
| M:92LP/DMSUBX.SC | ⟦211c916bf⟧ pts_type |
| M:92LP/DRDC15.SC | ⟦46ada87ba⟧ pts_type |
| M:92LP/DRLP01.SC | ⟦dafe04b81⟧ pts_type |
| M:92LP/DRRT01.SC | ⟦386f1d471⟧ pts_type |
| M:92LP/DVDI02.SC | ⟦a0c0bf9a7⟧ pts_type |
| M:92LP/DVDY00.SC | ⟦437887695⟧ pts_type |
| M:92LP/DVDY01.SC | ⟦32078cd6c⟧ pts_type |
| M:92LP/DVDY02.SC | ⟦391a644a7⟧ pts_type |
| M:92LP/DVGP03.SC | ⟦ce805ab9d⟧ pts_type |
| M:92LP/DVKB00.SC | ⟦6b9bcefb1⟧ pts_type |
| M:92LP/DVKB01.SC | ⟦0f124b823⟧ pts_type |
| M:92LP/DVKB02.SC | ⟦b7c7263eb⟧ pts_type |
| M:92LP/DVTDI.SC | ⟦1d2fc504c⟧ pts_type |
| M:92LP/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| M:92LP/DVTGP.SC | ⟦93b53e66f⟧ pts_type |
| M:92LP/DVTKB.SC | ⟦67db6cb42⟧ pts_type |
| M:92LP/DVTP01.SC | ⟦39f0b5b05⟧ pts_type |
| M:92LP/DVTTP.SC | ⟦a7d1d2605⟧ pts_type |
| M:92LP/DW1501.SC | ⟦44aa092f7⟧ pts_type |
| M:92LP/DWII01.SC | ⟦7a8c09fcc⟧ pts_type |
| M:92LP/DWIO01.SC | ⟦386c74ced⟧ pts_type |
| M:92LP/EBCDIC.SC | ⟦ce40fee45⟧ pts_type |
| M:92LP/GLDC15.SC | ⟦a1b1fccf0⟧ pts_type |
| M:92LP/LKMAL.SC | ⟦25f335d67⟧ pts_type |
| M:92LP/LRPINT.SC | ⟦951bb7df7⟧ pts_type |
| M:92LP/M:92LP.LM | ⟦755c0ffca⟧ pts_type |
| M:92LP/M:92LP.UF | ⟦6557d4350⟧ pts_type |
| M:92LP/MOLDLP.LM | ⟦0927ef582⟧ pts_type |
| M:92LP/MONTAB.SC | ⟦88847afeb⟧ pts_type |
| M:92LP/PFTAB.SC | ⟦eccc44510⟧ pts_type |
| M:92LP/SCLASS.SC | ⟦bc92e5cf2⟧ pts_type |
| M:92LP/SYSTAB.SC | ⟦670c261e5⟧ pts_type |
| M:92LP/TABORT.SC | ⟦28ff1271c⟧ pts_type |
| M:92LP/TCLASS.SC | ⟦327a0656b⟧ pts_type |
| M:92LP/TDISP.SC | ⟦78bad221e⟧ pts_type |
| M:92LP/TIMER.SC | ⟦e9c2e3eb8⟧ pts_type |
| M:92LP/TIODM.SC | ⟦2ef603f7b⟧ pts_type |
| M:92LP/TLDSEG.SC | ⟦c98812760⟧ pts_type |
| M:92LP/TMMLKM.SC | ⟦3cbd60306⟧ pts_type |
| M:92NA | «none» |
| M:92NA//OBJCT.OB | ⟦2d8f72ed8⟧ pts_type |
| M:92NA/ADDMOD.SC | ⟦6d6263adb⟧ pts_type |
| M:92NA/CTAB01.SC | ⟦1c7265b9a⟧ pts_type |
| M:92NA/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| M:92NA/DFTAB.SC | ⟦abe5da9c8⟧ pts_type |
| M:92NA/DIVMOD.SC | ⟦7b14bf61f⟧ pts_type |
| M:92NA/DMBUF.SC | ⟦0aa60395e⟧ pts_type |
| M:92NA/DMFDB.SC | ⟦d66029dfa⟧ pts_type |
| M:92NA/DMINIT.SC | ⟦edfbc020d⟧ pts_type |
| M:92NA/DMSUBR.SC | ⟦bb4ee61eb⟧ pts_type |
| M:92NA/DMSUBX.SC | ⟦211c916bf⟧ pts_type |
| M:92NA/DMTASK.SC | ⟦c52fc4326⟧ pts_type |
| M:92NA/DMTASS.SC | ⟦f3aaf19bf⟧ pts_type |
| M:92NA/DRDC15.SC | ⟦1731bbe29⟧ pts_type |
| M:92NA/DRDI01.SC | ⟦a4e53906d⟧ pts_type |
| M:92NA/DRDY01.SC | ⟦0b6bf5928⟧ pts_type |
| M:92NA/DRFD01.SC | ⟦de23df58a⟧ pts_type |
| M:92NA/DRGP01.SC | ⟦2c9d4cb14⟧ pts_type |
| M:92NA/DRIC01.SC | ⟦36dd4bef2⟧ pts_type |
| M:92NA/DRKB03.SC | ⟦75e3c4147⟧ pts_type |
| M:92NA/DRRT01.SC | ⟦b6849bf36⟧ pts_type |
| M:92NA/DRSOP1.SC | ⟦8e2f00fbe⟧ pts_type |
| M:92NA/DRTP02.SC | ⟦af5b6e693⟧ pts_type |
| M:92NA/DSUMOD.SC | ⟦3cbe7dc60⟧ pts_type |
| M:92NA/DVDI02.SC | ⟦a0c0bf9a7⟧ pts_type |
| M:92NA/DVDY00.SC | ⟦437887695⟧ pts_type |
| M:92NA/DVDY01.SC | ⟦32078cd6c⟧ pts_type |
| M:92NA/DVDY02.SC | ⟦391a644a7⟧ pts_type |
| M:92NA/DVGP03.SC | ⟦ce805ab9d⟧ pts_type |
| M:92NA/DVKB00.SC | ⟦6b9bcefb1⟧ pts_type |
| M:92NA/DVKB01.SC | ⟦0f124b823⟧ pts_type |
| M:92NA/DVKB02.SC | ⟦b7c7263eb⟧ pts_type |
| M:92NA/DVTDI.SC | ⟦1d2fc504c⟧ pts_type |
| M:92NA/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| M:92NA/DVTGP.SC | ⟦93b53e66f⟧ pts_type |
| M:92NA/DVTKB.SC | ⟦67db6cb42⟧ pts_type |
| M:92NA/DVTP01.SC | ⟦39f0b5b05⟧ pts_type |
| M:92NA/DVTTP.SC | ⟦a7d1d2605⟧ pts_type |
| M:92NA/DW1501.SC | ⟦44aa092f7⟧ pts_type |
| M:92NA/DWII01.SC | ⟦7a8c09fcc⟧ pts_type |
| M:92NA/DWIO01.SC | ⟦386c74ced⟧ pts_type |
| M:92NA/EBCDIC.SC | ⟦43dac7285⟧ pts_type |
| M:92NA/GLDC15.SC | ⟦c2c1612d2⟧ pts_type |
| M:92NA/LDTASK.SC | ⟦509a88e8f⟧ pts_type |
| M:92NA/LKMAL.SC | ⟦25f335d67⟧ pts_type |
| M:92NA/LRPINT.SC | ⟦951bb7df7⟧ pts_type |
| M:92NA/M:92LP.LM | ⟦c672ba839⟧ pts_type |
| M:92NA/M:92N1.LM | ⟦7c75115fe⟧ pts_type |
| M:92NA/M:92N1.UF | ⟦24cd7efb7⟧ pts_type |
| M:92NA/M:92NA.LM | ⟦7733d0496⟧ pts_type |
| M:92NA/M:92NA.UF | ⟦997281c1d⟧ pts_type |
| M:92NA/M:92NE.LM | ⟦a1bf530c3⟧ pts_type |
| M:92NA/M:92NE.UF | ⟦c57effc26⟧ pts_type |
| M:92NA/MONTAB.SC | ⟦88847afeb⟧ pts_type |
| M:92NA/MONTIM.SC | ⟦e3bdb0a74⟧ pts_type |
| M:92NA/MPYMOD.SC | ⟦b8982b499⟧ pts_type |
| M:92NA/MSUBS.SC | ⟦ae4944be6⟧ pts_type |
| M:92NA/NJDC15.SC | ⟦3240f1c40⟧ pts_type |
| M:92NA/PFTAB.SC | ⟦033121915⟧ pts_type |
| M:92NA/SCLASS.SC | ⟦02082f5a5⟧ pts_type |
| M:92NA/SYSLDA.SC | ⟦9c4a54036⟧ pts_type |
| M:92NA/SYSLDM.SC | ⟦1b67e8497⟧ pts_type |
| M:92NA/SYSTAB.SC | ⟦bcd6cf973⟧ pts_type |
| M:92NA/TABORT.SC | ⟦28ff1271c⟧ pts_type |
| M:92NA/TASS.SC | ⟦d19681016⟧ pts_type |
| M:92NA/TCLASS.SC | ⟦327a0656b⟧ pts_type |
| M:92NA/TDISP.SC | ⟦78bad221e⟧ pts_type |
| M:92NA/TEST.UF | ⟦e7d7c5c93⟧ pts_type |
| M:92NA/TIMER.SC | ⟦22141529d⟧ pts_type |
| M:92NA/TIODM.SC | ⟦98fdfd8e9⟧ pts_type |
| M:92NA/TLDSEG.SC | ⟦c98812760⟧ pts_type |
| M:92NA/TMMLKM.SC | ⟦3cbd60306⟧ pts_type |
| M:92NA/TOSSIO.SC | ⟦221345043⟧ pts_type |
| M:92NA/TPROC.SC | ⟦aaa790319⟧ pts_type |
| M:92NA/TTMJOB.SC | ⟦02300311a⟧ pts_type |
| M:92SP | «none» |
| M:92SP//OBJCT.OB | ⟦e6851f9d2⟧ pts_type |
| M:92SP/ADDMOD.SC | ⟦6d6263adb⟧ pts_type |
| M:92SP/CTAB01.SC | ⟦a08e77d41⟧ pts_type |
| M:92SP/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| M:92SP/DFTAB.SC | ⟦44fafccba⟧ pts_type |
| M:92SP/DIVMOD.SC | ⟦7b14bf61f⟧ pts_type |
| M:92SP/DMBUF.SC | ⟦5a6501986⟧ pts_type |
| M:92SP/DMFDB.SC | ⟦7fc147c16⟧ pts_type |
| M:92SP/DMINIT.SC | ⟦edfbc020d⟧ pts_type |
| M:92SP/DMSUBR.SC | ⟦bb4ee61eb⟧ pts_type |
| M:92SP/DMSUBX.SC | ⟦211c916bf⟧ pts_type |
| M:92SP/DMTASK.SC | ⟦a97adb448⟧ pts_type |
| M:92SP/DMTASS.SC | ⟦f3aaf19bf⟧ pts_type |
| M:92SP/DRDC15.SC | ⟦46ada87ba⟧ pts_type |
| M:92SP/DRDI01.SC | ⟦a4e53906d⟧ pts_type |
| M:92SP/DRDU01.SC | ⟦114f62808⟧ pts_type |
| M:92SP/DRDY01.SC | ⟦a4da13e63⟧ pts_type |
| M:92SP/DRGP01.SC | ⟦2c9d4cb14⟧ pts_type |
| M:92SP/DRIC01.SC | ⟦b28880d32⟧ pts_type |
| M:92SP/DRKB03.SC | ⟦ff1eda293⟧ pts_type |
| M:92SP/DRLP01.SC | ⟦f354bb12b⟧ pts_type |
| M:92SP/DRRT01.SC | ⟦eafddadd2⟧ pts_type |
| M:92SP/DRSOP1.SC | ⟦8e2f00fbe⟧ pts_type |
| M:92SP/DRTP02.SC | ⟦af5b6e693⟧ pts_type |
| M:92SP/DSUMOD.SC | ⟦3cbe7dc60⟧ pts_type |
| M:92SP/DVDI02.SC | ⟦b01eb6160⟧ pts_type |
| M:92SP/DVDY00.SC | ⟦437887695⟧ pts_type |
| M:92SP/DVDY01.SC | ⟦32078cd6c⟧ pts_type |
| M:92SP/DVDY02.SC | ⟦be7291477⟧ pts_type |
| M:92SP/DVGP03.SC | ⟦4eff29f96⟧ pts_type |
| M:92SP/DVKB00.SC | ⟦49c1420f3⟧ pts_type |
| M:92SP/DVKB01.SC | ⟦0f124b823⟧ pts_type |
| M:92SP/DVKB02.SC | ⟦b7c7263eb⟧ pts_type |
| M:92SP/DVTDI.SC | ⟦1d2fc504c⟧ pts_type |
| M:92SP/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| M:92SP/DVTGP.SC | ⟦93b53e66f⟧ pts_type |
| M:92SP/DVTKB.SC | ⟦67db6cb42⟧ pts_type |
| M:92SP/DVTP01.SC | ⟦39f0b5b05⟧ pts_type |
| M:92SP/DVTP04.SC | ⟦0aa3764f9⟧ pts_type |
| M:92SP/DVTTP.SC | ⟦a7d1d2605⟧ pts_type |
| M:92SP/DW1501.SC | ⟦44aa092f7⟧ pts_type |
| M:92SP/DWII01.SC | ⟦7a8c09fcc⟧ pts_type |
| M:92SP/DWIO01.SC | ⟦386c74ced⟧ pts_type |
| M:92SP/EBCDIC.SC | ⟦ce40fee45⟧ pts_type |
| M:92SP/LDTASK.SC | ⟦509a88e8f⟧ pts_type |
| M:92SP/LKMAL.SC | ⟦273508672⟧ pts_type |
| M:92SP/LRPINT.SC | ⟦dc2fb9c43⟧ pts_type |
| M:92SP/M:92SP.LM | ⟦37239d8ca⟧ pts_type |
| M:92SP/M:92SP.UF | ⟦bc0aec4ec⟧ pts_type |
| M:92SP/M:BUG.LM | ⟦7cdeb89c4⟧ pts_type |
| M:92SP/MONGEN.UF | ⟦6999ea42b⟧ pts_type |
| M:92SP/MONTAB.SC | ⟦88847afeb⟧ pts_type |
| M:92SP/MPYMOD.SC | ⟦b8982b499⟧ pts_type |
| M:92SP/MSUBS.SC | ⟦9c7b669d4⟧ pts_type |
| M:92SP/PFTAB.SC | ⟦7804be317⟧ pts_type |
| M:92SP/SCLASS.SC | ⟦6b0b0eb0c⟧ pts_type |
| M:92SP/SYSBUG.SC | ⟦9afe470d0⟧ pts_type |
| M:92SP/SYSLDA.SC | ⟦ba3b80a86⟧ pts_type |
| M:92SP/SYSLDM.SC | ⟦8e02ad96a⟧ pts_type |
| M:92SP/SYSTAB.SC | ⟦e3dc14d12⟧ pts_type |
| M:92SP/TABORT.SC | ⟦28ff1271c⟧ pts_type |
| M:92SP/TASS.SC | ⟦d19681016⟧ pts_type |
| M:92SP/TCLASS.SC | ⟦a7bb9d8cd⟧ pts_type |
| M:92SP/TDISP.SC | ⟦4b112a802⟧ pts_type |
| M:92SP/TIMER.SC | ⟦80c8b5877⟧ pts_type |
| M:92SP/TIODM.SC | ⟦ff53afd55⟧ pts_type |
| M:92SP/TLDSEG.SC | ⟦be9752c26⟧ pts_type |
| M:92SP/TMMLKM.SC | ⟦3cbd60306⟧ pts_type |
| M:92SP/TOSSIO.SC | ⟦18dc157c4⟧ pts_type |
| M:92SP/TPROC.SC | ⟦aaa790319⟧ pts_type |
| M:92SP/TTMJOB.SC | ⟦af49654f8⟧ pts_type |
| M:92SP/X.SC | ⟦3ef9b0ba1⟧ pts_type |
| NJ-AID | «none» |
| NJ-AID/CTAB01.SC | ⟦94359ee4b⟧ pts_type |
| NJ-AID/EBCDIC.SC | ⟦ce40fee45⟧ pts_type |
| SAG | «none» |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»SAG «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x000000…000ca0 }
0x000ca0…001940 (1, 0) DirGranule ((1, 0)) {
0x000ca0…001940 DirEnt {nam=»M:92LP«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»M:92LP«, typ=»UF«, f00=0x2020, f01=0x2020, f02=0x0018, f03=0x4441}
0x000ca0…001940 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x2020, f01=0x3031, f02=0x0060, f03=0x3132}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0510, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x02d0, f03=0x0005}
0x000ca0…001940 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x02e0, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x02e8, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»TDISP «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0300, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0320, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»GLDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0348, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DCFIL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0690, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0698, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06b0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06c0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06d0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0830, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0908, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a78, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ab8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c78, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d30, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d38, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d40, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d48, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d50, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d58, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d60, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d68, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d70, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»M:92LP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e88, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MOLDLP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»M:92LP«, typ=»UF«, f00=0x2020, f01=0x2020, f02=0x0018, f03=0x4441}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0000 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x0012 // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0000.0x3.0
0x001ad4…001c68 [0x01]: C0x0001.0x0.0
0x001ad4…001c68 [0x02]: C0x0001.0x1.0
0x001ad4…001c68 [0x03]: C0x0001.0x2.0
0x001ad4…001c68 [0x04]: C0x0001.0x3.0
0x001ad4…001c68 [0x05]: C0x0002.0x0.0
0x001ad4…001c68 [0x06]: C0x0002.0x1.0
0x001ad4…001c68 [0x07]: C0x0002.0x2.0
0x001ad4…001c68 [0x08]: C0x0002.0x3.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc 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
0x001dfc…001f90 Dummy {f00=0x0000, f01=0x0190, f02=» MOV TDISP,/S,TOSSWORK KPF /S,TDISP " SCR 6 MOV LRPINT,/S,TOSSWORK B KPF /S,LRPINT ` SCR v MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR MOV TTMJOB
0x001f90…002124 Dummy {f00=0x0000, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB SCR MOV LKMAL,/S,TOSSWORK
0x002124…0022b8 Dummy {f00=0x0000, f01=0x0190, f02=»REDIT EQU 1$$ z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ B !!EN n ASM /S z KPF /O KPF /S SCR LED TDISP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPA
0x0022b8…00244c Dummy {f00=0x0000, f01=0x0190, f02=»NT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ b !!EN ASM /S KPF /O KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x00244c…0025e0 Dummy {f00=0x0000, f01=0x018e, f02=»F /S SCR LED MSUBS ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ V ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TTMJOB ( #!!CH $
0x0025e0…002774 (1, 2) Dummy {f00=0x0001, f01=0x0190, f02=» ASM /S KPF /O KPF /S SCR . LED TOSSIO : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SC
0x002774…002908 Dummy {f00=0x0001, f01=0x0190, f02=»$CPU852 EQU 0$$ | !!EN ASM /S $ KPF /O 2 KPF /S @ SCR N LED SYSLDA Z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=»1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 8 ASM /S D KPF /O R KPF /S ` SCR n MOV DVTKB,/S,TOSSWORK z KPF /S,DVTKB SCR MOV DVTTP,/S,TOSSWORK KPF /S,DVTTP SCR MOV DVTGP,/S,TOSS
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»KPF /S,DVTDY SCR MOV DWII01,/S,TOSSWORK KPF /S,DWII01 > SCR T INC DWII01,TOSSWORK ` KPF /O | MOV DWIO01,/S,TOSSWORK KPF /S,DWIO01 SCR INC DWIO01,TOSSWORK KPF /O MOV DW1501,/S,TOSSWO
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x0190, f02=»1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 !!EN d ASM /S p KPF /O ~ KPF /S SCR LED DWIO01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=»!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ X !!EN ASM /S KPF /O KPF /S SCR MOV DRKB03,/S,TOSSWORK KPF /S,DRKB03 SCR MO
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»,/S,TOSSWORK KPF /S,DRDI01 SCR * MOV DRDY01,/S,TOSSWORK 6 KPF /S,DRDY01 T SCR j MOV DRRT01,/S,TOSSWORK v KPF /S,DRRT01 SCR MOV DRSOP1,/S,TOSSWORK KPF /S,DRSOP1 SCR MOV DRLP01,/S,TOSS
0x0030ec…003280 Dummy {f00=0x0001, f01=0x0190, f02=» KPF /S,DRIC01 SCR MOV DRDC15,/S,TOSSWORK & KPF /S,DRDC15 D SCR Z LED DRKB03 f !!CH $$ X:A$$ 1$$ x !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$
0x003280…003414 (1, 3) Dummy {f00=0x0001, f01=0x018e, 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 DRTP02 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=» | !!CH $$ X:H$$ 100$$ J E!!CH $$/2122,/2426,/3B3C,/3E40,/5E5F$$/2122,/2627,/3B3C,/3E40,/5E5F$$ $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ r ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=» ~ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 0$$ " !!CH $$ X:F$$ 1$$ < !!CH $$ X:G$$ 0$$ V !!CH $$ X:H$$ 162$$ p ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x018e, 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 DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=» | !!CH $$ X:H$$ 162$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ P ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ | !!EN ASM /S KPF /O KPF /S SCR LED DRRT01 !!CH $$ X:A$
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=»$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ b !!EN ASM /S KPF /O KPF /S SCR LED DRSOP1 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=»$ n !!EN ASM /S KPF /O $ KPF /S 2 SCR @ LED DRLP01 L !!CH $$ X:A$$ 1$$ ^ !!CH $$ X:B$$ 081$$ x ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=»B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 1$$ * !!CH $$ X:E$$ 256$$ D ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ` ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O
0x003f20…0040b4 (1, 4) Dummy {f00=0x0001, f01=0x0190, f02=»U 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN H ASM /S T KPF /O b KPF /S p SCR ~ LED DRDC15 !!CH $$ X:A$$ 650$$ !!CH $$ X:B$$ /60$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 500$$
0x0040b4…004248 Dummy {f00=0x0001, f01=0x018e, f02=»CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 0$$ !!CH $$ X:L$$ 2$$ 2 !!CH $$ X:M$$ 00$$ L !!CH $$ X:N$$ 02$$ f !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!CH $$ X:Q$$ 1$$ !!CH $$ X:R$$ 650$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQ
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=» KPF /S SCR MOV EBCDIC,/S,TOSSWORK " KPF /S,EBCDIC @ SCR V LED EBCDIC b ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ t ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM
0x0043dc…004570 Dummy {f00=0x0001, f01=0x018e, f02=»$ !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ $ !!CH $$ X:F$$ 40$$ > !!CH $$ X:G$$ 1$$ X !!CH $$ X:H$$ 1$$ r !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 040$$ !!CH $$ X:K$$ 40$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=» SCR LED DVTKB !!DL 35 & DATA 0,0,0,0,0,0,0,0 6 DATA 0,0,0,0,0,0,0,0 T DATA 0,0,0,0, r !!IL 38 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0, !!EN ASM /S KPF
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=»PROC SCR MOV TMMLKM,/S,TOSSWORK KPF /S,TMMLKM 6 SCR L MOV TLDSEG,/S,TOSSWORK X KPF /S,TLDSEG v SCR MOV TABORT,/S,TOSSWORK KPF /S,TABORT SCR MOV MONTIM,/S,TOSSWORK KPF /S,MONTIM
0x004898…004a2c Dummy {f00=0x0001, f01=0x0190, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 0 !!EN ASM /S h KPF /O v KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #
0x004a2c…004bc0 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 TLDSEG ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPA
0x004bc0…004d54 (1, 5) Dummy {f00=0x0001, f01=0x0190, f02=» LED TABORT ( #!!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 LED MONTIM ( #!!CH $$CREDIT EQU 0$$C
0x004d54…004ee8 Dummy {f00=0x0001, f01=0x0190, f02=»KPF /O KPF /S SCR LED TASS ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ : ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ f ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED LKMA
0x004ee8…00507c Dummy {f00=0x0001, f01=0x0190, f02=» DATA 00 !!DL 050 !!DL 051 * !!EN : ASM /S F KPF /O T KPF /S b SCR p LED LRPINT | !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O KPF /S SCR MOV TIODM,/S,TOSSWORK
0x00507c…005210 Dummy {f00=0x0001, f01=0x0190, f02=»NIT SCR ! MOV TASS,/S,TOSSWORK ! KPF /S,TASSI ! 6 SCR ! J MOV DMTASS,/S,TOSSWORK ! V KPF /S,DMTASS ! t SCR ! MOV DMBUF,/S,TOSSWORK ! KPF /S,DMBUF ! SCR ! MOV DMFDB,/S,TOSSWORK ! KPF /S,DMFDB ! SC
0x005210…0053a4 Dummy {f00=0x0001, f01=0x0190, f02=»MOV ADDMOD,/S,TOSSWORK ! KPF /S,ADDMOD " SCR " 4 MOV DSUMOD,/S,TOSSWORK " @ KPF /S,DSUMOD " ^ SCR " t MOV MPYMOD,/S,TOSSWORK " KPF /S,MPYMOD " SCR " MOV DIVMOD,/S,TOSSWORK " KPF /S,DIVMOD " SCR " MOV DMSU
0x0053a4…005538 Dummy {f00=0x0001, f01=0x0190, f02=»1$$ " p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ # ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ # 8 !!EN # d ASM /S # p KPF /O # ~ KPF /S # SCR # LED DMBUF # !!CH $$ X:A$$ 00004$$ # ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ # ( #!!CH $
0x005538…0056cc Dummy {f00=0x0001, f01=0x0190, f02=»SCR # LED DMTASK $ !!CH $$ X:A$$ 00001$$ $ !!CH $$ X:B$$ 00000$$ $ < !!CH $$ X:C$$ 00004$$ $ Z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ x ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!EN $
0x0056cc…005860 Dummy {f00=0x0001, f01=0x018e, f02=» $$CREDIT EQU 0$$CREDIT EQU 1$$ $ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % T !!EN % ASM /S % KPF /O % KPF /S % SCR % LED DFTAB % !!DL 23 % !!EN % ASM /S % KPF /O %
0x005860…0059f4 (1, 6) Dummy {f00=0x0002, f01=0x0190, f02=» !!CH $$ X:D$$ 00114$$ & ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & " ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & N ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & z !!EN & ASM /S & KPF /O & KPF /S & SCR & LED DMINIT & ( #!!CH $$CREDIT
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x0190, f02=» & KPF /O ' KPF /S ' SCR ' $ LED TASS ' 0 ( #!!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 '
0x005b88…005d1c Dummy {f00=0x0002, f01=0x018e, f02=»U 0$$ ' r !!EN ( ASM /S ( KPF /O ( ( KPF /S ( 6 SCR ( D LED ADDMOD ( P ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( b ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!EN ( ASM /S ( KPF /O (
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ) !!EN ) 0 ASM /S ) < KPF /O ) J KPF /S ) X SCR ) f LED MPYMOD ) r ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ) ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ) ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ )
0x005eb0…006044 Dummy {f00=0x0002, f01=0x0190, f02=»MUPAG EQU 0$$MMUPAG EQU 1$$ ) ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ * $ !!EN * P ASM /S * KPF /O * j KPF /S * x SCR * LED DMSUBR * ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ * ( #!!CH $$CPU85
0x006044…0061d8 Dummy {f00=0x0002, f01=0x0190, f02=»$ * | !!CH $$ X:A$$ 00001$$ + !!CH $$ EXTRN BUG$$*$$ + ( !!CH $$ BUG$$ 0$$ + F !!CH $$ X:B$$ 00004$$ + ` !!CH $$ X:C$$ 00004$$ + ~ !!CH $$ X:D$$ 00000$$ + !!CH $$ X:E$$ 00012$$ + !!CH $$ X:F$$ 00001$$ + , '!!CH $$ILLINT
0x0061d8…00636c Dummy {f00=0x0002, f01=0x018e, f02=»XTRN IH1502 + !!DL 056 , !!DL 057 , & !!DL 067 , 6 !!DL 068 , F !!DL 069 , V !!DL 070 , f !!DL 071 , v !!DL 073 , !!DL 074 , !!DL 075 , !!DL 078 , !!DL 079 , !!DL 080 , !!DL 081 , !!DL 85 , !!
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=» , v !!DL 134 - DATA ILLINT - !!DL 135 - 8 DATA ILLINT - H !!DL 136 - h DATA ILLINT - x !!DL 138 - DATA ILLINT - !!DL 140 - DATA ILLINT - !!DL 141 -
0x006500…006694 (1, 7) Dummy {f00=0x0002, f01=0x0190, f02=» - DATA ILLINT . !!DL 156 . ( DATA ILLINT . 8 !!DL 159 . X DATA ILLINT . h !!EN . ASM /S . KPF /O . KPF /S . SCR . LED PFTAB . !!IL 12 . EXTRN DC15ON .
0x006694…006828 Dummy {f00=0x0002, f01=0x0190, f02=» 025 . !!DL 026 / !!DL 027 / !!DL 028 / , !!DL 029 / < !!DL 030 / L !!DL 031 / !!DL 032 / l !!DL 035 / | !!DL 036 / !!DL 037 / !!DL 038 / !!IL 40 / DATA DC15ON / !!DL 041 / !!DL 042 /
0x006828…0069bc Dummy {f00=0x0002, f01=0x018e, f02=» 055 / !!DL 056 0 !!DL 057 0 !!DL 058 0 , !!DL 059 0 < !!DL 060 0 L !!DL 063 0 !!DL 064 0 l !!DL 065 0 | !!DL 066 0 !!EN 0 ASM /S 0 KPF /O 0 KPF /S 0 SCR 0 LED DVTKB 0 ( #!!CH $$CREDIT EQU 0$$CRE
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=» !!CH $$KBAD$$KBAD3$$ 1 !!CH $$/1111$$/1100$$ 1 !!CH $$BCA$$FFFF$$ 1 > !!CH $$ED0$$FFBA$$ 1 X " !!CH $$0 CODE $$CTAB01 CODE $$ 1 r !!CH $$ECH$$DVDY00$$ 1 !!DL 5 1 EXTRN CTAB01 1 !!EN 1 ASM /S 1 KPF /O 1 KPF /S 1
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x0190, f02=»2 EQU 1$$CPU852 EQU 0$$ 1 !!CH $$DVTDY$$DVDY00$$ 2 !!CH $$/ABC$$/1850$$ 2 > !!CH $$/1111$$/C000$$ 2 Z !!EN 2 x ASM /S 2 KPF /O 2 KPF /S 2 SCR 2 LED DVTKB 2 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 2 ( #!!CH $$MMUPAG EQ
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x0190, f02=»$/1111$$/1140$$ 2 !!CH $$BCA$$FFFF$$ 3 !!CH $$ED0$$FFBA$$ 3 2 " !!CH $$0 CODE $$CTAB02 CODE $$ 3 L !!CH $$ECH$$DVDY01$$ 3 r !!DL 5 3 EXTRN CTAB02 3 !!EN 3 ASM /S 3 KPF /O 3 KPF /S 3 SCR 3 LED DVTTP 3 ( #!!
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=»$DVTTP$$DVTP01$$ 3 !!CH $$/1111$$/2000$$ 4 !!EN 4 6 ASM /S 4 B KPF /O 4 P KPF /S 4 ^ SCR 4 l LED DVTTP 4 x ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 4 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=» DVTTP 4 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 5 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 5 : ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 5 f !!CH $$DVTTP$$DVTP01$$ 5 !!CH $$/1111$$/2000$$ 5 !!EN 5 ASM /S 5 KPF /O 5 KPF /S 5 SCR
0x0071a0…007334 (1, 8) Dummy {f00=0x0002, f01=0x0190, f02=»PU852 EQU 0$$ 5 z !!CH $$DVTDY$$DVDY01$$ 6 !!CH $$/ABC$$/1850$$ 6 4 !!CH $$/1111$$/C000$$ 6 P !!EN 6 n ASM /S 6 z KPF /O 6 KPF /S 6 SCR 6 LED DVTKB 6 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 ( #!!CH $$MMUPAG EQU 0$$MMUPA
0x007334…0074c8 Dummy {f00=0x0002, f01=0x0190, f02=»100$$ 6 !!CH $$BCA$$FFFF$$ 7 !!CH $$ED0$$FFBA$$ 7 ( " !!CH $$0 CODE $$CTAB03 CODE $$ 7 B !!CH $$ECH$$DVDY02$$ 7 h !!DL 5 7 EXTRN CTAB03 7 !!EN 7 ASM /S 7 KPF /O 7 KPF /S 7 SCR 7 LED DVTDI 7 ( #!!CH $$CREDI
0x0074c8…00765c Dummy {f00=0x0002, f01=0x018e, f02=»DI02$$ 7 !!CH $$2010$$0000$$ 8 !!CH $$/1111$$/9010$$ 8 * !!EN 8 H ASM /S 8 T KPF /O 8 b KPF /S 8 p SCR 8 ~ LED DVTDY 8 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 8 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 8 ( #!!CH $$CPU852 EQU 1$
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x0190, f02=» KPF /O 9 KPF /S 9 SCR 9 LED DVTGP 9 , ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 9 > ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 9 j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 9 !!CH $$DVTGP$$DVGP03$$ 9 !!CH $$/1111$$/2000$$ 9 !!EN 9
0x0077f0…007984 Dummy {f00=0x0002, f01=0x0190, f02=» DVDY00 9 EXTRN DVKB01 : EXTRN DVTP01 : 0 EXTRN DVDY01 : P EXTRN DVKB02 : p EXTRN DVDI02 : EXTRN DVDY02 : EXTRN DVGP03 : !!IL 11 :
0x007984…007b18 Dummy {f00=0x0002, f01=0x0190, f02=» DATA TC00E-* : DATA /0021 ; DATA DVKB00 ; : DATA /00310 ; Z DATA DVDY00 ; z TC00E EQU * ; TC01 DATA TC01E-* ; DATA /00200 ; DATA
0x007b18…007cac Dummy {f00=0x0002, f01=0x0190, f02=» ; x DATA /01321 < DATA DVTP01 < ( DATA /00501 < H DATA DVDY01 < h TC01E EQU * < TC02 DATA TC02E-* < DATA /00201 < DATA DVKB02 <
0x007cac…007e40 Dummy {f00=0x0002, f01=0x018e, f02=»QU * < TC03 DATA TC03E-* = DATA /00302 = 4 DATA DVGP03 = T TC03E EQU * = t !!EN = ASM /S = KPF /O = KPF /S = SCR = LED SCLASS = !!IL 6 = EXTRN DWSI
0x007e40…007fd4 (1, 9) Dummy {f00=0x0002, f01=0x0190, f02=» EXTRN DWLP01 > EXTRN DW1500 > $ EXTRN DWREMU > D EXTRN DWFD01 > Z !!IL 11 > z DATA TC00 > DATA TC01 > DATA TC02 > DATA TC03 >
0x007fd4…008168 Dummy {f00=0x0002, f01=0x0190, f02=» DATA DWSI01 > DATA /00111 ? DATA DWSO01 ? @ TC00E EQU * ? ` TC01 DATA TC01E-* ? | DATA /00E01 ? DATA DWII01 ? TC01E EQU * ? TC02 DATA
0x008168…0082fc Dummy {f00=0x0002, f01=0x0190, f02=»* ? x DATA /00611 @ DATA DW1501 @ * TC03E EQU * @ J TC04 DATA TC04E-* @ f DATA /00801 @ DATA DWLP01 @ TC04E EQU * @ TC05 DATA TC05E-* @
0x0082fc…008490 Dummy {f00=0x0002, f01=0x018e, f02=»A DWFD01 @ DATA /01F90 A DATA DWFD01 A 2 DATA /02FA0 A H DATA DWFD01 A h DATA /03FB0 A ~ DATA DWFD01 A TC05E EQU * A !!EN A ASM /S A KPF /O A KPF /S A SC
0x008490…008624 Dummy {f00=0x0002, f01=0x0190, f02=» A !!DL 021 B !!DL 024 B !!DL 027 B ( !!DL 029 B 8 !!DL 030 B H !!DL 031 B X !!DL 032 B h !!DL 033 B x !!IL 47 B **** B DATA CTAB01 B DATA CTAB02 B DATA CTAB03 B DATA ITAD B !!DL 049 B
0x008624…0087b8 Dummy {f00=0x0002, f01=0x0092, f02=» KPF /O C KPF /S C SCR C ASG /02,LP0F C , SCR C @ INC SYSTAB C L LKE M C ^ KPF /L,M:92LP C l ASG /E0,TY10 C **** B DATA CTAB01 B DATA CTAB02 B DATA CTAB03 B DATA ITAD B !!DL 049 B
0x0087b8…00894c Dummy {f00=0x0002, f01=0x2008, f02=» D /O C KPF /S C SCR C ASG /02,LP0F C , SCR C @ INC SYSTAB C L LKE M C ^ KPF /L,M:92LP C l ASG /E0,TY10 C **** B DATA CTAB01 B DATA CTAB02 B DATA CTAB03 B DATA ITAD B !!DL 049 B
0x00894c…008ae0 Dummy {f00=0x0002, f01=0x0190, f02=» } p n H~P O " P4 N T. B + I I I C ( N " T : ^ 0"`T 0" 1 _ V 1 _ O O O N T( ; 1 B E C ( : : O O P " R V 0"
0x008ae0…008c74 (1, 10) Opaque[0x194]
0x008c74…008e08 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x2020, f01=0x3031, f02=0x0060, f03=0x3132}
0x008c74…008e08 IdxSect {
0x008c74…008e08 f00 = 0x0003 // 0x8c74 @0x0
0x008c74…008e08 f01 = 0x0002 // 0x8c76 @0x2
0x008c74…008e08 gno = [ // 0x8c78 @0x4
0x008c74…008e08 [0x00]: C0x0003.0x0.0
0x008c74…008e08 ]
0x008c74…008e08 }
0x008e08…008f9c Dummy {f00=0x0003, f01=0x0190, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVKB01 P EXTRN DVTP01 P
0x008f9c…009130 Dummy {f00=0x0003, f01=0x0190, f02=» DVGP03 P* P* P* $ P* . PTCLASS DATA TCLASE-* 8 P DATA TC00 T P DATA TC01 r P DATA TC02 P DATA TC03 PTCLASE EQU * PTC00 DATA TC00E-* P
0x009130…0092c4 Dummy {f00=0x0003, f01=0x0190, f02=» * PTC01 DATA TC01E-* P DATA /0020 0 P DATA DVKB01 P P DATA /0030 p P DATA DVTP01 P DATA /0231 P DATA DVTP01 P DATA /0132
0x0092c4…009458 Dummy {f00=0x0003, f01=0x4188, f02=» DATA TC02E-* P DATA /0020 P DATA DVKB02 > P DATA /0040 ^ P DATA DVDI02 ~ P DATA /0050 P DATA DVDY02 PTC02E EQU * PTC03 DATA
0x009458…0095ec Dummy {f00=0x0003, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0095ec…009780 Dummy {f00=0x0003, f01=0x0000, f02=»
0x009780…009914 (1, 11) Opaque[0x194]
0x009914…009aa8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0510, f03=0x0000}
0x009914…009aa8 IdxSect {
0x009914…009aa8 f00 = 0x0028 // 0x9914 @0x0
0x009914…009aa8 f01 = 0x004a // 0x9916 @0x2
0x009914…009aa8 gno = [ // 0x9918 @0x4
0x009914…009aa8 [0x00]: C0x0028.0x2.0
0x009914…009aa8 [0x01]: C0x0028.0x3.0
0x009914…009aa8 [0x02]: C0x0029.0x0.0
0x009914…009aa8 [0x03]: C0x0029.0x1.0
0x009914…009aa8 [0x04]: C0x0029.0x2.0
0x009914…009aa8 [0x05]: C0x0029.0x3.0
0x009914…009aa8 [0x06]: C0x002a.0x0.0
0x009914…009aa8 [0x07]: C0x002a.0x1.0
0x009914…009aa8 [0x08]: C0x002a.0x2.0
0x009914…009aa8 [0x09]: C0x002a.0x3.0
0x009914…009aa8 [0x0a]: C0x002b.0x0.0
0x009914…009aa8 [0x0b]: C0x002b.0x1.0
0x009914…009aa8 [0x0c]: C0x002b.0x2.0
0x009914…009aa8 [0x0d]: C0x002b.0x3.0
0x009914…009aa8 [0x0e]: C0x002c.0x0.0
0x009914…009aa8 [0x0f]: C0x002c.0x1.0
0x009914…009aa8 [0x10]: C0x002c.0x2.0
0x009914…009aa8 [0x11]: C0x002c.0x3.0
0x009914…009aa8 [0x12]: C0x002d.0x0.0
0x009914…009aa8 [0x13]: C0x002d.0x1.0
0x009914…009aa8 [0x14]: C0x002d.0x2.0
0x009914…009aa8 [0x15]: C0x002d.0x3.0
0x009914…009aa8 [0x16]: C0x002e.0x0.0
0x009914…009aa8 [0x17]: C0x002e.0x1.0
0x009914…009aa8 [0x18]: C0x002e.0x2.0
0x009914…009aa8 [0x19]: C0x002e.0x3.0
0x009914…009aa8 [0x1a]: C0x002f.0x0.0
0x009914…009aa8 [0x1b]: C0x002f.0x1.0
0x009914…009aa8 [0x1c]: C0x002f.0x2.0
0x009914…009aa8 [0x1d]: C0x002f.0x3.0
0x009914…009aa8 [0x1e]: C0x0030.0x0.0
0x009914…009aa8 [0x1f]: C0x0030.0x1.0
0x009914…009aa8 [0x20]: C0x0030.0x2.0
0x009914…009aa8 [0x21]: C0x0030.0x3.0
0x009914…009aa8 [0x22]: C0x0031.0x0.0
0x009914…009aa8 [0x23]: C0x0031.0x1.0
0x009914…009aa8 [0x24]: C0x0031.0x2.0
0x009914…009aa8 ]
0x009914…009aa8 }
0x009aa8…009c3c Dummy {f00=0x0028, 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
0x009c3c…009dd0 Dummy {f00=0x0028, f01=0x4154, f02=» INTRT4 SYSLOD CTAB01L $ CTAB02 6 * & H CTAB03 v ITADN KBAD3 TPADN GPADN DIADN DYADN , (
0x009dd0…009f64 Dummy {f00=0x0028, 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
0x009f64…00a0f8 Dummy {f00=0x0028, 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
0x00a0f8…00a28c Dummy {f00=0x0028, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 , ( ! , ( 1
0x00a28c…00a420 Dummy {f00=0x0028, f01=0x018e, f02=» r , ( a , ( q B HALTN r SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA
0x00a420…00a5b4 (1, 12) Dummy {f00=0x0028, f01=0x0190, f02=» SCTNOP SCTPSZ SCTMMC , SCTLACL @ SCTMMP T SCTLAP h SCTNPE | SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x00a5b4…00a748 Dummy {f00=0x0028, f01=0x4072, f02=»T _ & < @ n h SCTNPE | SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x00a748…00a8dc Dummy {f00=0x0028, 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
0x00a8dc…00aa70 Dummy {f00=0x0028, 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
0x00aa70…00ac04 Dummy {f00=0x0028, 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
0x00ac04…00ad98 Dummy {f00=0x0028, 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
0x00ad98…00af2c Dummy {f00=0x0028, f01=0x0190, f02=» A Q | , ( _0 A < Q P Q Z MONCLO L MEXIT ` , ( Y _ 8 p FREBLK0 , ( Q Z P 0 9 _ TIMQUE@ , , ( @ _,
0x00af2c…00b0c0 Dummy {f00=0x0028, 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 @ ( @ _,
0x00b0c0…00b254 (1, 13) Dummy {f00=0x0029, 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
0x00b254…00b3e8 Dummy {f00=0x0029, 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
0x00b3e8…00b57c Dummy {f00=0x0029, 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
0x00b57c…00b710 Dummy {f00=0x0029, 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
0x00b710…00b8a4 Dummy {f00=0x0029, 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
0x00b8a4…00ba38 Dummy {f00=0x0029, 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 > ?
0x00ba38…00bbcc Dummy {f00=0x0029, 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
0x00bbcc…00bd60 Dummy {f00=0x0029, 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
0x00bd60…00bef4 (1, 14) Dummy {f00=0x0029, 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
0x00bef4…00c088 Dummy {f00=0x0029, 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
0x00c088…00c21c Dummy {f00=0x0029, 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
0x00c21c…00c3b0 Dummy {f00=0x0029, 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
0x00c3b0…00c544 Dummy {f00=0x0029, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x00c544…00c6d8 Dummy {f00=0x0029, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x00c6d8…00c86c Dummy {f00=0x0029, f01=0x018e, f02=»P l TDISP FNDDWT |TIO . , ( yI U XH > TTB:ID n , ( D #DP @ R XV Y TIODM , ( @ P T W X &P TTB:PW , (
0x00c86c…00ca00 Dummy {f00=0x0029, f01=0x0190, f02=» , ( - x '? Y T Y GETBLKP 4 QTJOB F , ( K W Y T # P W V , ( g Y P R R P P (@ (@ , ( " 2 X $? P $ > > , (
0x00ca00…00cb94 (1, 15) Dummy {f00=0x0029, f01=0x0190, f02=» F :c" v TTB:MTE , ( ' H :b"? #" : C > B R ( , ( E Q P B P X , ( e 0$ T # R Q > , ( X B U H Q X D B , ( $ T C x > C
0x00cb94…00cd28 Dummy {f00=0x0029, f01=0x0190, f02=» U H B P P $ # , ( # Q > P * , ( C _0 # T p > P p (_H Z , ( c _2 B U DC:MOT , ( X > ? _ X T DC:MIN
0x00cd28…00cebc Dummy {f00=0x0029, f01=0x0190, f02=» Q M r , ( X D ( * & ) 1 > _" X X T B TTMJOBP p MEXIT QMJOB , ( B = U . TENDIO b , ( U@ Y _| ?(@
0x00cebc…00d050 Dummy {f00=0x0029, f01=0x0190, f02=» 1 1 X P - M T , ( @ $ P _ T " # ( , ( p X L R P P (@ X , ( @ ^ X P P # P , ( ' @ T P 0P 1 FREBLK ACTOTPN
0x00d050…00d1e4 Dummy {f00=0x0029, f01=0x4154, f02=» x UW cP uP P P, T W P T T W4 GT MW UT H D ! YP ]W mP sR uP { }P Q P GQ~ QP0 WP* mT yQL } B H D ! U( Q2 T V b UJ P PL +Q 1P KT SP U T Rl H D ! U Q0 b sP& P P T T P PD
0x00d1e4…00d378 Dummy {f00=0x0029, 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
0x00d378…00d50c Dummy {f00=0x0029, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x00d50c…00d6a0 Dummy {f00=0x0029, 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
0x00d6a0…00d834 (1, 16) Dummy {f00=0x0029, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x00d834…00d9c8 Dummy {f00=0x0029, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x00d9c8…00db5c Dummy {f00=0x0029, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x00db5c…00dcf0 Dummy {f00=0x0029, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x00dcf0…00de84 Dummy {f00=0x0029, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x00de84…00e018 Dummy {f00=0x0029, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x00e018…00e1ac Dummy {f00=0x0029, 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
0x00e1ac…00e340 Dummy {f00=0x0029, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x00e340…00e4d4 (1, 17) Dummy {f00=0x002a, 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
0x00e4d4…00e668 Dummy {f00=0x002a, 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
0x00e668…00e7fc Dummy {f00=0x002a, 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 !
0x00e7fc…00e990 Dummy {f00=0x002a, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x00e990…00eb24 Dummy {f00=0x002a, 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 :
0x00eb24…00ecb8 Dummy {f00=0x002a, 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 &
0x00ecb8…00ee4c Dummy {f00=0x002a, 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
0x00ee4c…00efe0 Dummy {f00=0x002a, 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 @
0x00efe0…00f174 (1, 18) Dummy {f00=0x002a, 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
0x00f174…00f308 Dummy {f00=0x002a, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x00f308…00f49c Dummy {f00=0x002a, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x00f49c…00f630 Dummy {f00=0x002a, f01=0x0190, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND , (
0x00f630…00f7c4 Dummy {f00=0x002a, 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
0x00f7c4…00f958 Dummy {f00=0x002a, 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 , (
0x00f958…00faec Dummy {f00=0x002a, 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
0x00faec…00fc80 Dummy {f00=0x002a, 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
0x00fc80…00fe14 (1, 19) Dummy {f00=0x002a, f01=0x018e, f02=» j SAVE8 , ( = 0 H W : ? ? SCTLAC J , ( ] R 0 ACTOT RETUR8P , ( y R P P B _ : , ( V ) v : 4P
0x00fe14…00ffa8 Dummy {f00=0x002a, 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
0x00ffa8…01013c Dummy {f00=0x002a, f01=0x0190, f02=» @ @ x SCTPAG SCTNOPN * * & ! @ < , ( P P P P _ _ j SCTPSZ , ( D @ 9N @ :b @ :b , ( / V W U
0x01013c…0102d0 Dummy {f00=0x002a, f01=0x0190, f02=» l SCTSEG , ( A A 9n A :B A , ( D @ .V N PAGQUE ~ , ( 3 S Y& P , ( S P , ( 3 _
0x0102d0…010464 Dummy {f00=0x002a, 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
0x010464…0105f8 Dummy {f00=0x002a, 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
0x0105f8…01078c Dummy {f00=0x002a, 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 , , (
0x01078c…010920 Dummy {f00=0x002a, 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
0x010920…010ab4 (1, 20) Dummy {f00=0x002a, 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
0x010ab4…010c48 Dummy {f00=0x002a, 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 , (
0x010c48…010ddc Dummy {f00=0x002a, f01=0x0190, f02=» h , ( / :b / W , ( O : W @ W D 8 , ( k V W W ` " h , ( W p @ pP " , ( 4X 1 R , ( @Z0
0x010ddc…010f70 Dummy {f00=0x002a, 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 !
0x010f70…011104 Dummy {f00=0x002a, 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
0x011104…011298 Dummy {f00=0x002a, 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
0x011298…01142c Dummy {f00=0x002a, 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
0x01142c…0115c0 Dummy {f00=0x002a, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x0115c0…011754 (1, 21) Dummy {f00=0x002b, 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
0x011754…0118e8 Dummy {f00=0x002b, f01=0x4114, f02=» J F IDENT DWII01 REL 9.2 79-11-16 870105040920 DWII01K R DWII01K d ITADN x , ( IT:BUF @ , ,
0x0118e8…011a7c Dummy {f00=0x002b, f01=0x4114, f02=» J F IDENT DWIO01 REL 9.2 79-11-16 870105040920 DWIO01K R DWIO01K d ITADN x , ( IT:BUF @ , ,
0x011a7c…011c10 Dummy {f00=0x002b, f01=0x4106, f02=» J F IDENT DW1501 9.2DK 1 81-11-05 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ 0 $ 0 @
0x011c10…011da4 Dummy {f00=0x002b, 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 , (
0x011da4…011f38 Dummy {f00=0x002b, f01=0x0190, f02=» W t SETIMP , ( ` Y X " P :A & * & : R Q W Y <D X V , ( ? ?: T p > > , ( P P C B T , ( B % X . $ 4 T
0x011f38…0120cc Dummy {f00=0x002b, f01=0x018e, f02=» , ( Y _` B P $$ R % C , ( y * ! W Y +P Y *P Y ( 4 , ( P Y )P R _Q P OR d , ( R W " ! B W W , ( @ 0 Z ! B Z Z& , ( X . 0
0x0120cc…012260 Dummy {f00=0x002b, f01=0x0190, f02=» DISEND , ( OA Y C ! " * & i @ Q R X # P X R ;GV X J LDREG x , ( @ P y P X DWTA3 DWTSB2 , ( @ R ;GV X X , *
0x012260…0123f4 (1, 22) Dummy {f00=0x002b, f01=0x0190, f02=» h , ( :d Y > > ? 8 R @R , ( ) V @% =cW R P R P R P W 8 , ( I 9 W $ P W _ $ P h , ( i _$ _*_, _ %0=c X , ( 0P > 0 > >_ B 1 >
0x0123f4…012588 Dummy {f00=0x002b, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x012588…01271c Dummy {f00=0x002b, f01=0x0190, f02=» J F IDENT DRTP02 REL 9.2 79-11-16 870105040920 TPADY R TPADY b , ( d t DWTOR , ( ! !"&';<>@^_ 9: X ! Y DISIOE DWTBC , (
0x01271c…0128b0 Dummy {f00=0x002b, f01=0x0190, f02=» , ( w ! W B W B L , ( # 9Q T W Q P X & V 8 DWTST h ECBRL x , ( T Y &W X ! T B , ( R Q B D ! V ! ! * & ! W ! !
0x0128b0…012a44 Dummy {f00=0x002b, f01=0x0190, f02=» , ( 5 T " T W Q " T ) ! , ( Q Y _ ! ! Y 8 , ( m @ &P Q W ! Y '" h * & _" _< ! _n ! _t B B , ( , ! T _ D ! , ( P ! P
0x012a44…012bd8 Dummy {f00=0x002b, f01=0x0190, f02=»T ! L ,! :D" ! Y , ( 7 Y U ! _$ W , & ECBRC V , ( Q ! T ,' ! R !__U f , ( qHD C X ' W Y ! LDREG , ( _ X R U T X
0x012bd8…012d6c Dummy {f00=0x002b, f01=0x0190, f02=»SP , ( @ B R _ , ( 4 ! ! ! " T : , ( "" ! ! ! ! j * & % 4 X ' 4 Y ' ! ! ( $ A @ " P ,$ , ! 4 H D ! 4 IP
0x012d6c…012f00 Dummy {f00=0x002b, f01=0x40d6, f02=» 9T =T ?W CQ GT Q , i oP qQ wW , T P P H D ! @ W V P RN Q PH P R: T2 3 =U MW4 UT gR mU {W H ( $ RT U TJ P T R T EP X @ P ,$ , ! 4 H D ! 4 IP
0x012f00…013094 (1, 23) Dummy {f00=0x002b, f01=0x0190, f02=» J F IDENT DRGP01 REL 9.2 80-01-03 870105040920 GPADY ECHOGP R GPADY j , ( !"$&;<>@^_ P | DISIOE OUTPUT , ( ! P B P B L # +P ! , ( ?
0x013094…013228 Dummy {f00=0x002b, f01=0x0190, f02=» Y , ( U P T Y &_. P R P , ( @ O]> V _F T Y Y & V P , ( @D Y _^ C _P " DWTBC * & $ P X & X ]r ! * & Y Y
0x013228…0133bc Dummy {f00=0x002b, f01=0x0190, f02=» X C _ X Y ~ , ( G & Y > B B U $ , ( e ! T _ U D ! T _ N LDREG ~ , ( C > X Z^<BR P j ECHOGP , ( X _x R V ! P P , (
0x0133bc…013550 Dummy {f00=0x002b, f01=0x416a, f02=» ? X Z t , ( @ ! P P . 2 X , ( 1 " ! ! X D $ K & 6 t H D ! PB !P8 -P ;P KT _W mW P U P" T P4 H D ! R( Pj V T P - @ _U$ iT sU }T
0x013550…0136e4 Dummy {f00=0x002b, f01=0x0190, f02=» J F IDENT DRDI01 REL 9.2 79-11-16 870105040920 DIADY R DIADY b , ( B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x0136e4…013878 Dummy {f00=0x002b, f01=0x4088, f02=»END u ? X _F @ < p J z T #P 'P 3W GT IW$ MT( WP aP gV . r@ B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x013878…013a0c Dummy {f00=0x002b, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x013a0c…013ba0 Dummy {f00=0x002b, 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
0x013ba0…013d34 (1, 24) Dummy {f00=0x002b, f01=0x018e, f02=» DWTBC , ( X ' X ] ! , ( B ! ! ! @ , ( @ B Y & ! W 8!0T 8 !@ p , ( DP ! $ P ! ! , ( ! T Y & T X & C TENDI
0x013d34…013ec8 Dummy {f00=0x002b, 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 !
0x013ec8…01405c Dummy {f00=0x002b, 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 !
0x01405c…0141f0 Dummy {f00=0x002b, 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
0x0141f0…014384 Dummy {f00=0x002b, 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
0x014384…014518 Dummy {f00=0x002b, f01=0x0190, f02=» J B t , ( B pU INTRT2 D , ( ; J BAB rU V , ( [ J B B pU , ( y J BQB rU CHTAB DWREMU
0x014518…0146ac Dummy {f00=0x002b, f01=0x0190, f02=» P P H !@T I DISEND . CHLT1 @ INTSAV R , ( H T ! 1 U A ? d CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 $ CHRT4
0x0146ac…014840 Dummy {f00=0x002b, f01=0x0190, f02=» P r , ( k R P 4 ] P , ( $ P ] U P P P P B DWTST r , ( R 4T ] U X , ( "0T + Y W 8Z 4 , ( U R ] U # $P
0x014840…0149d4 (1, 25) Dummy {f00=0x002c, f01=0x0190, f02=» > x , ( = W T # Y U DWTTP H , ( [ T ] W 8V X X SETIMP * & { P y W , ( P 8R R Y DWTOCHf ,
0x0149d4…014b68 Dummy {f00=0x002c, f01=0x0190, f02=» T U 5 U z , ( R " ] ;h # <c$ , ( % P X X " Z " J , ( E X 8# T 8Z V X # T z , ( c 8R X P y Y X DWTECB INTADR , ( {$@'
0x014b68…014cfc Dummy {f00=0x002c, f01=0x0190, f02=»@ # P 4 4 P _r T _$ , ( U _ ? 4 U 5 R P . DWTOTQ ^ , ( "P R T T R X $ # X p , ( / > P P P , ( M X XF _H W ? T T , ( m
0x014cfc…014e90 Dummy {f00=0x002c, f01=0x0190, f02=» OUTPUTN , ( @ _ " P T 8! P STREG D DWTA3 V DWTA4 f DWTA5 v , ( Y Y & Y ( Y * LDREG LDREGF LDREGE , ( _8 X XB Y
0x014e90…015024 Dummy {f00=0x002c, f01=0x0190, f02=» (@ > ?" 8' x , ( S ?A R 8;b# 4T R , ( s T T ] ] 8 W T H , ( W T ] _ P T V W 8 x , ( V T P U 8 ~ U Q , ( P X H " 5 U R " , (
0x015024…0151b8 Dummy {f00=0x002c, f01=0x0190, f02=» T B P X | , ( G R @ U S ` U t " , ( g D P D T U W _ U 4XR L ECHENDT | ECHOY , ( XX 5 J_b Y & Y ( DWTECH DWTWAT , ( H$ Y * X
0x0151b8…01534c Dummy {f00=0x002c, f01=0x0190, f02=» . H D !p P Q P P T W W #W /R 5V = ` K H D !L QR Y _PJ cP i o sRL }P P P PD P< P0 P, R T ` H D ! Tp WH f R P4 R0 T T #P -P =Wh C v M _T iW H D !H( mV u v }P
0x01534c…0154e0 Dummy {f00=0x002c, f01=0x40fa, f02=» ! 9P =P CP I B _Wj gT s wW S( V P P T P T P6 H D ! J /U =W [R kT oRT uT {T W< Tr W T P V WT V L H D ! P Q2 P R V P P #W 7T IR4 QS kP qT yW V$ V @ H( mV u v }P
0x0154e0…015674 (1, 26) Dummy {f00=0x002c, 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
0x015674…015808 Dummy {f00=0x002c, 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
0x015808…01599c Dummy {f00=0x002c, 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
0x01599c…015b30 Dummy {f00=0x002c, f01=0x0190, f02=» J F IDENT DRLP01 REL 9.2 79-11-16 870105040920 & " LPADR ACLPY IHLPY LPONY DWLP01 R LPADR | ACLPY DWTBC , ( T 1 W B DISIOEC , ( B P P
0x015b30…015cc4 Dummy {f00=0x002c, f01=0x0190, f02=» TDISP DWTA5 DWTA3 $ , ( } Q 1 Y 4 DWTA4 d LPONY t DWTST , ( D Y Y B X _ ? X IHLPY INTSAV , ( Z(W A ? ?
0x015cc4…015e58 Dummy {f00=0x002c, f01=0x4122, f02=» X l DWLP01 , ( T B C X 4 $ ! P A x H D ! T WP %PD )P 3V I OT UW _P eP m qT uV W@ ( $ T T T / @ C L
0x015e58…015fec Dummy {f00=0x002c, f01=0x0190, f02=» J F IDENT DRFD01 REL 9.2 79-12-05 870105040920 FDADR IHFDY FDONY DWFD01 R FDADR v DWTOR , ( !P P X ! , ( Y X ! Y T & , ( ?
0x015fec…016180 Dummy {f00=0x002c, f01=0x0190, f02=» } A @ A. TDISP * , ( Y W A : , ( @ @ A. W ! * X X P ! j , ( ! W ! * _ ! * _& ! X ECBRL ECBBA , ( X P ! X X
0x016180…016314 (1, 27) Dummy {f00=0x002c, f01=0x0190, f02=»TOT 0 SST z , ( i X Y W 0 X Y Y , ( ! ! X ' P ! ! J , ( @ D ) P _ X " X ! T X z ECBCW , ( $ !& P B z z :C , ( P ! 9DV !
0x016314…0164a8 Dummy {f00=0x002c, f01=0x0190, f02=» A ! _ Y , ( _ 4 ! P C ! ! ! (@ , , ( ! R _ ! 1 ;h 1 , ( ! 1 ! ! * ! ! ! , ( ) ! Y # T X Y _ Y # , ( 4 ! (
0x0164a8…01663c Dummy {f00=0x002c, f01=0x0190, f02=»* ! ! ! T )W | , ( U W ! Xz ! ( - ! DWTA5 L , ( u ) W Y W Y Y Y Y ECBEL TENDIO * & H B S W W B C FDONY DWTA2 , (
0x01663c…0167d0 Dummy {f00=0x002c, f01=0x0190, f02=» 0B. X n , ( P y _^ _n , ( Y X P Y : ! > , ( ; ! X # P Y :A , X n , ( [B A Y @ B. X Y DWTECB , ( @ u Y Y X Y X '?
0x0167d0…016964 Dummy {f00=0x002c, f01=0x0190, f02=» , ( @ K & E % Y B K , ( $ X ;AR ;a X P Y 4 , ( P 7P < d * & % $ <C ! 9 4 X , ( A _ W B R X X P , ( ] W
0x016964…016af8 Dummy {f00=0x002c, f01=0x018e, f02=»_ 4 X # P _ 4 TASCII " , ( @(@ R D " 1_ W (@ 4 TEBCDI0 d , ( R 0 D $ ] _ ! 4 v , ( ! ;E :B 9A ! , ( 3 U P jW kQ 4 Y , (
0x016af8…016c8c Dummy {f00=0x002c, f01=0x0190, f02=» f , ( @ 4 ! ( 4 X " 4 , ( @ ! ) 4 X P 4 8 DWFD01 f h , ( g | , ( , (
0x016c8c…016e20 Dummy {f00=0x002c, f01=0x0190, f02=»P ]Pv R H D !z& aPz g d m s y Z H H W Wx F , P | W< H D ! p F F J , P , P | !T ) * +W / * Z H D ! 3 9 ? E K O T YT cT o , qW } , * T * H D !q P
0x016e20…016fb4 (1, 28) Dummy {f00=0x002c, f01=0x0190, f02=»PT s w { R 4 | * H D ! T . * V J j W0 W # ) b F H D ! T - 5Q 9 F ? E | I OT SWL YWP ] e R i o j s {W. P H D ! W P L N S W W f $
0x016fb4…017148 Dummy {f00=0x002c, f01=0x410c, f02=» f R@ & P & P P IW QRZ U , [P v H D ! aW kP sQ8 wU T, R( P Q W Q T P 0 P R 2 H D !> W R ) 3U 7 4 9P ?W EQ S * W qP R ~ ( $ k r Z P y @
0x017148…0172dc Dummy {f00=0x002c, 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`
0x0172dc…017470 Dummy {f00=0x002c, 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 , (
0x017470…017604 Dummy {f00=0x002c, 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 * &
0x017604…017798 Dummy {f00=0x002c, 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
0x017798…01792c Dummy {f00=0x002c, f01=0x417e, f02=» J F IDENT EBCDIC 9.2DK 2 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l TEBCDI , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j
0x01792c…017ac0 Dummy {f00=0x002c, f01=0x4140, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ " ?
0x017ac0…017c54 (1, 29) Dummy {f00=0x002d, 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
0x017c54…017de8 Dummy {f00=0x002d, f01=0x40ee, f02=» _ _< , ( S ? ^ 4 _ & TIMQUE V , ( qH @ 1 A _ P 9 h > > ( $ ~ T N : - 4 1 N 3 > P @ BLK@ LKMQDI
0x017de8…017f7c Dummy {f00=0x002d, 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
0x017f7c…018110 Dummy {f00=0x002d, 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
0x018110…0182a4 Dummy {f00=0x002d, 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
0x0182a4…018438 Dummy {f00=0x002d, 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
0x018438…0185cc Dummy {f00=0x002d, 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
0x0185cc…018760 Dummy {f00=0x002d, 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
0x018760…0188f4 (1, 30) Dummy {f00=0x002d, 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
0x0188f4…018a88 Dummy {f00=0x002d, 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
0x018a88…018c1c Dummy {f00=0x002d, f01=0x0190, f02=» J F IDENT TASS REL 9.2 79-11-16 870105040920 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXAP T
0x018c1c…018db0 Dummy {f00=0x002d, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x018db0…018f44 Dummy {f00=0x002d, f01=0x0190, f02=» TASTBE T TASLFD# V , ( A , a TASCAQT n TTB:SA QTJOB , ( D H @ P 4 A U W A VOLCHE , ( ( A @ U : A V A
0x018f44…0190d8 Dummy {f00=0x002d, f01=0x0190, f02=»% T < C z ECBRC , ( ( B P T W ' T I * , ( @ 8 =hP Y X P Z DWTVOL , ( 3 T Y H ! R , ( Q W 9a I T T 9a H E V DFTABE(
0x0190d8…01926c Dummy {f00=0x002d, f01=0x0190, f02=» : "' # TDISP ( , ( I ` @ P $ ) 5 8 MOV:US h , ( T A A R A b " z , ( A "" P U W , ( A P @ E "# P P
0x01926c…019400 Dummy {f00=0x002d, f01=0x0190, f02=» P W @ | , ( } 0 R ' F "R G FNDTID L , ( ) T @ D #D T G ^ DMTASSV ACTOT , ( W A J "R A J A 4 LKMQDI * & H
0x019400…019594 (1, 31) Dummy {f00=0x002d, f01=0x4076, f02=» T P P U W P #P 'P 7W CR OV WT gP wW Rb R T W, R < `@ r
0x019594…019728 Dummy {f00=0x002d, f01=0x018e, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x019728…0198bc Dummy {f00=0x002d, f01=0x4096, f02=» TCHPAG , ( J TCHMMU F # X & p & @ EXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x0198bc…019a50 Dummy {f00=0x002d, f01=0x0190, f02=» J F IDENT TIODM REL 9.2 79-11-16 870105040920 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELE D @ FDBLRN FDBNIF FDBEAL FDBCRL` FDB
0x019a50…019be4 Dummy {f00=0x002d, f01=0x0190, f02=» t , ( ! " , ( A # $ % D FDBLNK t FDBECB FDBSNR $ FDBRRO & FDBRLE ( FDBBLF * FDBTNRC + FDBVT
0x019be4…019d78 Dummy {f00=0x002d, f01=0x0190, f02=»ELE FDBLRN I FDBNIF H " FDBEAL L 6 FDBCRL` N J FDBKA P ^ FDBMIAT R p FDBADFN T FDBAI1 V FDBDBR ^ FDBMRN _ FDBMROV b FDBMEC d FDBKEY r
0x019d78…019f0c Dummy {f00=0x002d, f01=0x0190, f02=» j @ D X TTB:ID , ( } P _ L !##P T 2 DWTST b , ( @ R $P U + U _ (@(@ r DWTOR ECBCW2 , ( ! I 2P ^ H L Y H ECBCW , (
0x019f0c…01a0a0 Dummy {f00=0x002d, f01=0x0190, f02=» Y . B CRNGET ( , ( + Y I B Y J_ W : ECBFC j , ( G C P C W < C z , ( a! C _H H H S * & } W C C B B
0x01a0a0…01a234 (1, 32) Dummy {f00=0x002d, f01=0x0190, f02=» j DSUMOD , ( $ X _ X ` T I T J ECBEL J , ( P C X I X J Z * & S W C C W B ECBRC * & B Y IR Q X JU C bSQR C
0x01a234…01a3c8 Dummy {f00=0x002d, f01=0x418a, f02=»#D ( * | ACTOT TDISP * DISEND : ( $ m , . 0 2 L H D ! | | | | | ! h # 8 % | ' | x H D ! + ) < + - / 1 & P P R P P | U | W N % |
0x01a3c8…01a55c Dummy {f00=0x002d, f01=0x0190, f02=» J F IDENT DMBUF REL 9.2 79-11-16 870105040920 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSN
0x01a55c…01a6f0 Dummy {f00=0x002d, f01=0x018e, f02=» DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x01a6f0…01a884 Dummy {f00=0x002d, f01=0x4008, f02=»@ DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x01a884…01aa18 Dummy {f00=0x002d, f01=0x0190, f02=» J F IDENT DMTASK REL 9.2 79-11-16 870105040920 ( $ DMTASKKdSQRdQSW DMTWM QIRNY QIRR R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x01aa18…01abac Dummy {f00=0x002d, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TDC F , ( w $ -_ D U 0 X SCTCDT@ , ( W T ` U @ , FDBRRO DWTTDM TTB:ID , ( A
0x01abac…01ad40 Dummy {f00=0x002d, f01=0x018e, f02=» PRUNN ECBBA MOV:SU $ , ( $ P @ Q (@ F 6 MONMMU f * & H : @ _ x DMTASKK FDBDBR , ( D > X P D "V , ( )
0x01ad40…01aed4 (1, 33) Dummy {f00=0x002e, f01=0x0190, f02=» , ( @ a ( ( W ( , ( A B W C X '? 4 , ( H X X )T d FDBSNR@ VLVRL , ( * X *T T , A ( FDBVTO DIVMOD
0x01aed4…01b068 Dummy {f00=0x002e, f01=0x0190, f02=»LRBUFV , ( D F 4 6(@ _ FDBLRN > VTLRN P , ( D X X 8 U : X 8 U : ` FDBMIA , ( 5 $ ( ( T X X <P ECBFC , ( O F > T
0x01b068…01b1fc Dummy {f00=0x002e, f01=0x0190, f02=» X W ` U @ H EARELB $ FDBCRL 6 , ( @ X W B H CRNQUE x * & D 4 5W P 0 @ F 1 A FDBEXT: EXTELER , ( F(@_ H J (@
0x01b1fc…01b390 Dummy {f00=0x002e, f01=0x0190, f02=» 4 P 9 6 , ( a J 4' ' 5 * FDBSTA Z , ( 4 P W , P ,' X X l , ( $ H J Z" J ) _ , ( (@ C > ( B ! @ , ( !$ ( F
0x01b390…01b524 Dummy {f00=0x002e, f01=0x0190, f02=» @ F R +P P X T$ T , ( V U W V R P $ , * & ; P W X X F * & U H X P @ Q MOV:USX , ( k @ (@ X + X "V P FDBMROU
0x01b524…01b6b8 Dummy {f00=0x002e, f01=0x0190, f02=» l CRNGETR CRNCIF , ( '? P P $ P 0 CRNCDF ` * & HH I ^ I ^ K ` K ` r , ( ` P P & P BW D EASETB: , ( % " T$ T V T bW E
0x01b6b8…01b84c Dummy {f00=0x002e, f01=0x0190, f02=» B B B B B B v H D ! ! B # % ' 3P 5R ;W IR WP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x01b84c…01b9e0 Dummy {f00=0x002e, f01=0x4058, f02=»P P( P" P P P b !W )T 1T 7W GV MT d B@ TP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x01b9e0…01bb74 (1, 34) Dummy {f00=0x002e, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x01bb74…01bd08 Dummy {f00=0x002e, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x01bd08…01be9c Dummy {f00=0x002e, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x01be9c…01c030 Dummy {f00=0x002e, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x01c030…01c1c4 Dummy {f00=0x002e, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x01c1c4…01c358 Dummy {f00=0x002e, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x01c358…01c4ec Dummy {f00=0x002e, f01=0x0190, f02=»P @ , t EXTDMIH EXTLENT & , ( ! ! T W P . D Y T P 0 8 EXTBAS h , ( 9I Y V P 0 Y X U ! T z TASLFD , ( S ! X6 _R _V D Z" TASTBE , ( q$ P
0x01c4ec…01c680 Dummy {f00=0x002e, f01=0x0190, f02=» @ 2 n , ( $P -W P B TASCAQ > QTJOB P * & @ * ` b(@( @ ` FDBADF& FDBDBR , ( ( _ d ` ` 9A EXTELE , ( D S f
0x01c680…01c814 (1, 35) Dummy {f00=0x002e, f01=0x0190, f02=»MRN , ( =@ R J S W S p S p MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x01c814…01c9a8 Dummy {f00=0x002e, f01=0x4038, f02=»W P W P ES GW p "@ 4 MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x01c9a8…01cb3c Dummy {f00=0x002e, f01=0x40ba, f02=» J F IDENT DFTAB REL 9.2 79-11-16 870105040920 DFTAB DFTABE R DFTAB j DFTABE | @ B PDFTABE EQU * P END @ P* P* P* LEVE
0x01cb3c…01ccd0 Dummy {f00=0x002e, f01=0x4172, f02=» J F IDENT DMFDB REL 9.2 79-11-16 870105040920 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL r FDBSTAK FDBEND X CRNQUE X Y
0x01ccd0…01ce64 Dummy {f00=0x002e, f01=0x0190, f02=» J F IDENT DMINIT REL 9.2 79-11-16 870105040920 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !
0x01ce64…01cff8 Dummy {f00=0x002e, f01=0x40da, f02=» h BUFDMIL BUFSNR BUFOR , , ( Q , - M M M @ < TASBLK l TASQUE ~ g$ A A > Q %PJ r @ FDBEND CRNQUE , ( !
0x01cff8…01d18c Dummy {f00=0x002e, f01=0x0190, f02=» J F IDENT DMSUBX REL 9.2 79-11-16 870105040920 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x01d18c…01d320 Dummy {f00=0x002e, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMROP FDBRLE , ( V ; [ _ D V
0x01d320…01d4b4 (1, 36) Dummy {f00=0x002e, f01=0x0190, f02=» GTLGRN# , ( D U E W ADDMODH B CALSNOT T DMTRBU f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x01d4b4…01d648 Dummy {f00=0x002e, f01=0x0190, f02=» FDBLRN , ( E E Z:Q , ( D D ZB W Z r @ , ( Q R W K ]d J _j @ W W p CRNUPD FDBADF FDBCRL , ( " : : " $
0x01d648…01d7dc Dummy {f00=0x002e, f01=0x412a, f02=» U R ( R ( S ( m@ S (_P (@ : , H D ! UP U 3 r AU EP OP YW }P Q R V W W T. V T L H D ! W V V Wn U W 7P 9W KP T~ W Wh P0 Q W, Q , ( R W W W !W %PL 7R CQ
0x01d7dc…01d970 Dummy {f00=0x002e, f01=0x40ea, f02=» J F IDENT ADDMOD REL 9.2 79-11-16 870105040920 ADDMODK R ADDMODK d , ( P Q R ;A [ [ x ! : P Q R $ @ ,2,A14 B P OR.S
0x01d970…01db04 Dummy {f00=0x002e, f01=0x40ea, f02=» J F IDENT DSUMOD REL 9.2 79-11-16 870105040920 DSUMODK R DSUMODK d , ( P Q R ;A [ [ x ! : P Q R $ @
0x01db04…01dc98 Dummy {f00=0x002e, f01=0x40ec, f02=» J F IDENT MPYMOD REL 9.2 79-11-16 870105040920 MPYMODK R MPYMODK d , ( P Q R ;A [ x ! [ : P Q R & @ . P*
0x01dc98…01de2c Dummy {f00=0x002e, f01=0x40ea, f02=» J F IDENT DIVMOD REL 9.2 79-11-16 870105040920 DIVMODK R DIVMODK d , ( Q R P ;A [ [ x ! : Q R P $ @ P RB(7) END1
0x01de2c…01dfc0 Dummy {f00=0x002e, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x01dfc0…01e154 (1, 37) Dummy {f00=0x002f, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x01e154…01e2e8 Dummy {f00=0x002f, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x01e2e8…01e47c Dummy {f00=0x002f, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x01e47c…01e610 Dummy {f00=0x002f, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x01e610…01e7a4 Dummy {f00=0x002f, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x01e7a4…01e938 Dummy {f00=0x002f, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r , ( : U ; $ T $ T $ T x : : , ( $ T $ ) ] $ ) Y _$ , ( U x 0 )_8 $_ $
0x01e938…01eacc Dummy {f00=0x002f, f01=0x418e, f02=» Y _& (# )_4 $ ($ , ( ) YR_L U p 0_8 $ * _< Z H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R l H D ! W R W P W6 'T ;U eSP mP qW U U. R P W P6 H D !
0x01eacc…01ec60 Dummy {f00=0x002f, f01=0x412a, f02=» J F IDENT PFTAB REL 9.2 79-11-16 870105040920 PFTAB R PFTAB b DC15ON t SOPRN CHLTON FDONN LPONN DMINITL & " UP
0x01ec60…01edf4 (1, 38) Dummy {f00=0x002f, f01=0x0190, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x01edf4…01ef88 Dummy {f00=0x002f, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x01ef88…01f11c Dummy {f00=0x002f, f01=0x4104, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x * & DY % P @ 8 , 8 @
0x01f11c…01f2b0 Dummy {f00=0x002f, f01=0x0190, f02=» J F IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( @ KB DVDY01 , ( %@
0x01f2b0…01f444 Dummy {f00=0x002f, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( @ KB DVDY01 , ( %@
0x01f444…01f5d8 Dummy {f00=0x002f, f01=0x4108, f02=» J F IDENT DVTP01 REL 9.2 79-11-16 870105040920 DVTP01K R DVTP01K d TPADN x , ( TP " @ 4 ( 4 @
0x01f5d8…01f76c Dummy {f00=0x002f, f01=0x4104, f02=» J F IDENT DVDY01 REL 9.2 79-11-16 870105040920 DVDY01K R DVDY01K d DYADN x * & DY % P @ 8 , 8 @
0x01f76c…01f900 Dummy {f00=0x002f, f01=0x0190, f02=» J F IDENT DVKB02 REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( KB DVDY02 , ( %@
0x01f900…01fa94 (1, 39) Dummy {f00=0x002f, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( KB DVDY02 , ( %@
0x01fa94…01fc28 Dummy {f00=0x002f, f01=0x4106, f02=» J F IDENT DVDI02 REL 9.2 79-11-16 870105040920 DVDI02K R DVDI02K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x01fc28…01fdbc Dummy {f00=0x002f, f01=0x4104, f02=» J F IDENT DVDY02 REL 9.2 79-11-16 870105040920 DVDY02K R DVDY02K d DYADN x * & DY % P @ 8 , 8 @
0x01fdbc…01ff50 Dummy {f00=0x002f, f01=0x4100, f02=» J F IDENT DVGP03 REL 9.2 79-11-16 870105040920 DVGP03K R DVGP03K d GPADN x * & GP % @ 4 ( 4 @ ECB ADD
0x01ff50…0200e4 Dummy {f00=0x002f, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x0200e4…020278 Dummy {f00=0x002f, f01=0x4054, f02=» 0 z , ( x * 8 + 9 > >@ P TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x020278…02040c Dummy {f00=0x002f, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 , ( H DWIO01 DW1501 DWL
0x02040c…0205a0 Dummy {f00=0x002f, f01=0x4082, f02=» z I < 8 ~ $ * 0 % + 1 , J l@ ~ x DWSO01 DWII01 , ( H DWIO01 DW1501 DWL
0x0205a0…020734 (1, 40) Dummy {f00=0x002f, f01=0x0190, f02=» H F IDENT CTAB01 80.12.15/EV NORDJYLLANDS AMT & " CTAB01K CTAB02 CTAB03 CTAB04 P CTAB01K z CTAB02 CTAB03 CTAB04 , ( 0123 , ( ! 456789
0x020734…0208c8 Dummy {f00=0x002f, f01=0x4140, f02=» 456789 `ABCDEFGHIJKLMNOPQRS , ( TUVWXYZ []' ^ > ?:_; =!"# * , ( $%&/() @ABCDEFGHIJKLMNOPQRS Z , ( TUVWXYZ []* < +.-, 0 23 , ( 456789 `ABCDEFGHIJKLMNOPQRS ! TUVWXYZ []'
0x0208c8…020a5c Dummy {f00=0x002f, 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 * &
0x020a5c…020bf0 Dummy {f00=0x002f, 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
0x020bf0…020d84 Dummy {f00=0x002f, 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(
0x020d84…020f18 Dummy {f00=0x002f, f01=0x0190, f02=» SAVE22A , ( $ P A Y W " @ " SAVE08 @ , ( T W $ @ R SAVE07 SAVE01` , ( V W Q & ( MMEND , ( *
0x020f18…0210ac Dummy {f00=0x002f, f01=0x0190, f02=»P , ( C :L A , W $ A . SCTNPE : , ( ] A 0W * L , ( y T F W V | , ( = V W Y* SCTMMC , ( P Z( =
0x0210ac…021240 Dummy {f00=0x002f, 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 :
0x021240…0213d4 (1, 41) Dummy {f00=0x0030, f01=0x0190, f02=» @ ! T _ ~ , ( P , , ( @ :l 8 89b ) N SAVE03 ~ , ( D V 8_ @ V W < W * & - $ P T V , ( I < 0 !;;P
0x0213d4…021568 Dummy {f00=0x0030, f01=0x0190, f02=» W W $ , ( W < V < 0 . , ( !;;P P V (Xb _ P ^ SAVE20 , ( !;;T X$ W < > , ( @P $XZ_V S A A , ( /!
0x021568…0216fc Dummy {f00=0x0030, 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 <
0x0216fc…021890 Dummy {f00=0x0030, 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 : , (
0x021890…021a24 Dummy {f00=0x0030, 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
0x021a24…021bb8 Dummy {f00=0x0030, 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
0x021bb8…021d4c Dummy {f00=0x0030, 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 '
0x021d4c…021ee0 Dummy {f00=0x0030, 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 '
0x021ee0…022074 (1, 42) Dummy {f00=0x0030, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 7 82-10-04 870105040924 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P +P P P DISIOEC , (
0x022074…022208 Dummy {f00=0x0030, f01=0x0190, f02=» W B Y @ P SETIME ( , ( P $_ _L _$ X : , ( 9 P @ @ ` j DWTST , ( @ P 0P _ % A A Y TENDIO ECBRL , (
0x022208…02239c Dummy {f00=0x0030, f01=0x0190, f02=» DC:MIN , ( K D P 0 Y P C _ , ( g D _ B ! P Y _` X ! @ DISEND p , ( X _ B Y _z , ( X P A Y W Y , ( @_ X X A Y
0x02239c…022530 Dummy {f00=0x0030, f01=0x0190, f02=» ) 1_ r , ( 9 (X( P _ 0 )_6 X " X> , ( Y XB X " E L _H _: B * & y (P _ ) 1 4 X R X r , ( T X P , Y L C , ( L C > @ , (
0x022530…0226c4 Dummy {f00=0x0030, f01=0x0190, f02=» ' A W G > 0 U J , ( @ i BHBB < ! B ! h , ( T P P , ( ! T T A P A T ! , ( T !
0x0226c4…022858 Dummy {f00=0x0030, f01=0x0190, f02=» @ TP @ RP ! A T A V_ ! , ( I @ VP @ X@ ! T A Z ! ( * & i x @ TP @ P @ R 8 ! X X , ( Y ! A ^_B ! X>_b A , ( Z @ @ jT 1 Z 0 2P TEBCDI , ( @ P P A
0x022858…0229ec Dummy {f00=0x0030, f01=0x0190, f02=» P " H " P X * Y , ( / X T ! tW W $ , ( I W X R X T ! T , ( a t ! x X ! _ X ! W , ( R A V @ P A ^ Y " @ _R ! @ , ( TT @ VP ! x ! @ TT
0x0229ec…022b80 Dummy {f00=0x0030, f01=0x018e, f02=» ^P ! ! t , ( _p 1T @ ^X @ XP @ ZT ! , ( ; ! A _ A ^ B A T @ D * & T [ XT _2 _6 @ R l A Z A T X t , ( y ! XD Y _N @ TT X , ( ! P ! x# T @ T ! _ ! , (
0x022b80…022d14 (1, 43) Dummy {f00=0x0030, f01=0x0190, f02=» ECBBA DC:MOT, , ( % T 4_ b A R C & , ( * -H B B A d A f A h A X A V , ( I Z ! ! A T_^ Y Y " , ( H g <W @ T ! X ! X , ( Z X X X _ @ R
0x022d14…022ea8 Dummy {f00=0x0030, f01=0x018e, f02=» Y 4 @ v , ( U @ ZT @ j A h @ h A j A Z , ( ! T P P P P F , ( 5 P 1 A h @ h ]6W P v , ( U _@ @ @ h E ! P ! 4 , ( u _$ ! 2_l 1 A ^T 0W ;W , (
0x022ea8…02303c Dummy {f00=0x0030, f01=0x0190, f02=» f , ( j @ hT @ ! 8 ! W - ! , ( x ! W 0 " W R 8 , ( 5 ~T }T T W ! P h TASCII , ( U @ " ! " :A *@ H T 0 ! , ( T s W R ! A h @ f @ hU ,
0x02303c…0231d0 Dummy {f00=0x0030, f01=0x0190, f02=» 8 j , ( ! X ! 9a D t ! X ! , ( P ! T & ! _P B J B ! ! : IH1501 6 j INTSAVL ~ SAVE8 , ( / 4 A " $ 2J T A ` IH1502 ^ , ( @ K T P 4 ! x A "
0x0231d0…023364 Dummy {f00=0x0030, f01=0x0190, f02=»P ^ 2 _ " t , ( ! 1 4 A @ ` @ P DC15ON D , ( 0 M A 4 $ @ ` X , ( " @ P $ Y N_ @ A , ( J ! @ T x < @ A , ( P A A a
0x023364…0234f8 Dummy {f00=0x0030, f01=0x0190, f02=» A ` ! T ' x DW1500 , ( A A ` 4 , & " , ( & :f"? H ! "? H ! 4 ABC , ( ' DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , ( '9 UVWXYZ@,
0x0234f8…02368c Dummy {f00=0x0030, f01=0x0190, f02=» H D ! l B GP> M D QP UP8 YP> ]PH c l i kW qP H D !!7 uP yP, P W W W| l P P P8 'T ' 'V V H D ! 'V 'V P P 'T 'X N +Qh / 3 A X MP i sP N P H D ! Wb
0x02368c…023820 Dummy {f00=0x0030, f01=0x0190, f02=» D / H 1W T P P Tf Tb H D !T P TR TL TD T@ T8 P l B H D !y T % /P 5P ; I OP S Y ]TD e oP( s H D !xP uP" T P P P
0x023820…0239b4 (1, 44) Dummy {f00=0x0030, f01=0x0190, f02=»T P j !T, -P 5T0 9 = M B r H D ! ]T TH P T T P j F P . H D ! j T T # M Q j kW w F P< T6 R0 P T$ T W z H D !( P P T T2 !P4 'PJ -PL 3P 9P. MW SP Y e g
0x0239b4…023b48 Dummy {f00=0x0030, f01=0x4124, f02=»T0 KW, Q mT s ^ H D !# wW }R U< P T H D !8 P T ' / ET KT QPF Y l sP P W P 'V 'V 'V f H D !s P 'V 'V 'V P 'T + X A X q z P P T ' ' ' ' 'U'Z 'W'X
0x023b48…023cdc Dummy {f00=0x0030, f01=0x2008, f02=» L = KMD20 DATE = 81 01 12 1216PACK NBR = 0001 0
0x023cdc…023e70 Dummy {f00=0x0030, 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
0x023e70…024004 Dummy {f00=0x0030, 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
0x024004…024198 Dummy {f00=0x0030, 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
0x024198…02432c Dummy {f00=0x0030, 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
0x02432c…0244c0 Dummy {f00=0x0030, 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
0x0244c0…024654 (1, 45) Dummy {f00=0x0031, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x024654…0247e8 Dummy {f00=0x0031, 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
0x0247e8…02497c Dummy {f00=0x0031, 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
0x02497c…024b10 Dummy {f00=0x0031, 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
0x024b10…024ca4 Dummy {f00=0x0031, 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
0x024ca4…024e38 Dummy {f00=0x0031, 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
0x024e38…024fcc Dummy {f00=0x0031, 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(
0x024fcc…025160 Dummy {f00=0x0031, 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
0x025160…0252f4 (1, 46) Dummy {f00=0x0031, 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
0x0252f4…025488 Dummy {f00=0x0031, 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:
0x025488…02561c Dummy {f00=0x0031, 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
0x02561c…0257b0 Dummy {f00=0x0031, 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
0x0257b0…025944 Dummy {f00=0x0031, 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
0x025944…025ad8 Dummy {f00=0x0031, 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
0x025ad8…025c6c Dummy {f00=0x0031, 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
0x025c6c…025e00 Dummy {f00=0x0031, 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
0x025e00…025f94 (1, 47) Dummy {f00=0x0031, 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 .
0x025f94…026128 Dummy {f00=0x0031, 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)
0x026128…0262bc Dummy {f00=0x0031, 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
0x0262bc…026450 Dummy {f00=0x0031, 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
0x026450…0265e4 Dummy {f00=0x0031, 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********
0x0265e4…026778 Dummy {f00=0x0031, 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
0x026778…02690c Dummy {f00=0x0031, 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:
0x02690c…026aa0 Dummy {f00=0x0031, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x026aa0…026c34 (1, 48) Opaque[0x194]
0x026c34…026dc8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x02d0, f03=0x0005}
0x026c34…026dc8 IdxSect {
0x026c34…026dc8 f00 = 0x0016 // 0x26c34 @0x0
0x026c34…026dc8 f01 = 0x0004 // 0x26c36 @0x2
0x026c34…026dc8 gno = [ // 0x26c38 @0x4
0x026c34…026dc8 [0x00]: C0x0016.0x2.0
0x026c34…026dc8 [0x01]: C0x0016.0x3.0
0x026c34…026dc8 ]
0x026c34…026dc8 }
0x026dc8…026f5c Dummy {f00=0x0016, f01=0x018e, 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 DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x026f5c…0270f0 Dummy {f00=0x0016, f01=0x018e, f02=» v P* P* P* P* & PSCLASS DATA TCLASE-* 0 P DATA TC00 L P DATA TC01 j P DATA TC02 P DATA TC03 P DATA TC04 P DATA TC05 PTCLASE E
0x0270f0…027284 Dummy {f00=0x0016, f01=0x0190, f02=» v P DATA DWSO01 PTC00E EQU * ( PTC01 DATA TC01E-* D P DATA /00E0 f P DATA DWII01 PTC01E EQU * PTC02 DATA TC02E-* P DATA /00E1 P
0x027284…027418 Dummy {f00=0x0016, f01=0x0190, f02=» DW1501 PTC03E EQU * PTC04 DATA TC04E-* . P DATA /0080 P P DATA DWLP01 p PTC04E EQU * PTC05 DATA TC05E-* P DATA /0060 P DATA DW1500
0x027418…0275ac Dummy {f00=0x0016, f01=0x40a8, f02=» DWFD01 P DATA /02FA P DATA DWFD01 0 P DATA /03FB F P DATA DWFD01 f PTC05E EQU * | P END @ PTC05 DATA TC05E-* P DATA /0060 P DATA DW1500
0x0275ac…027740 Dummy {f00=0x0016, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x027740…0278d4 (1, 49) Dummy {f00=0x0016, f01=0x0000, f02=»
0x0278d4…027a68 Dummy {f00=0x0016, f01=0x0002, f02=»0
0x027a68…027bfc Dummy {f00=0x0016, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x027bfc…027d90 Dummy {f00=0x0016, f01=0x4054, f02=» 0 z , ( x * 8 + 9 > >@ P TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x027d90…027f24 Dummy {f00=0x0016, f01=0x2008, f02=»
0x027f24…0280b8 Dummy {f00=0x0016, f01=0x0000, f02=»
[…0x2…]
0x0283e0…028574 (1, 50) Opaque[0x194]
0x028574…028708 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x02e0, f03=0xffff}
0x028574…028708 IdxSect {
0x028574…028708 f00 = 0x0017 // 0x28574 @0x0
0x028574…028708 f01 = 0x0002 // 0x28576 @0x2
0x028574…028708 gno = [ // 0x28578 @0x4
0x028574…028708 [0x00]: C0x0017.0x0.0
0x028574…028708 ]
0x028574…028708 }
0x028708…02889c Dummy {f00=0x0017, 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
0x02889c…028a30 Dummy {f00=0x0017, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN CTAB01 R P EXTRN CTAB02 h P EXTRN CTAB03 ~ P EXTRN ITAD P EXTRN KBAD3 P EXTRN TPAD P EXTRN GPAD P EXTRN DIAD P EXTRN DYAD
0x028a30…028bc4 Dummy {f00=0x0017, f01=0x0190, f02=» PINTLT3 DATA 0 PINTLT4 DATA 0 PINTRT1 DATA 0 0 PINTRT2 DATA 0 F PINTRT3 DATA 0 PINTRT4 DATA 0 r P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA ITAD P DATA KBAD
0x028bc4…028d58 Dummy {f00=0x0017, f01=0x4018, f02=» d P END @ PINTLT4 DATA 0 PINTRT1 DATA 0 0 PINTRT2 DATA 0 F PINTRT3 DATA 0 PINTRT4 DATA 0 r P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA ITAD P DATA KBAD
0x028d58…028eec Dummy {f00=0x0017, 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
0x028eec…029080 Dummy {f00=0x0017, 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,
0x029080…029214 (1, 51) Opaque[0x194]
0x029214…0293a8 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x02e8, f03=0xffff}
0x029214…0293a8 IdxSect {
0x029214…0293a8 f00 = 0x0017 // 0x29214 @0x0
0x029214…0293a8 f01 = 0x0006 // 0x29216 @0x2
0x029214…0293a8 gno = [ // 0x29218 @0x4
0x029214…0293a8 [0x00]: C0x0017.0x1.0
0x029214…0293a8 [0x01]: C0x0017.0x2.0
0x029214…0293a8 [0x02]: C0x0017.0x3.0
0x029214…0293a8 ]
0x029214…0293a8 }
0x0293a8…02953c Dummy {f00=0x0017, 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*
0x02953c…0296d0 Dummy {f00=0x0017, 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
0x0296d0…029864 Dummy {f00=0x0017, 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,
0x029864…0299f8 Dummy {f00=0x0017, 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 IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x0299f8…029b8c Dummy {f00=0x0017, f01=0x0190, f02=» DISCEN ~ P EXTRN IHLP LINE PRINTER $ P EXTRN ILLINT ILLEGAL INTERRUPT 0 P EXTRN HALT HALT ROUTINE X P* DEBUGGER x 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
0x029b8c…029d20 Dummy {f00=0x0017, 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
0x029d20…029eb4 (1, 52) Dummy {f00=0x0017, 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 SYSTAB P*
0x029eb4…02a048 Dummy {f00=0x0017, 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
0x02a048…02a1dc Dummy {f00=0x0017, f01=0x0190, f02=» 17 P DATA ILLINT P DATA ILLINT . P DATA ILLINT N P DATA ILLINT n P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT P
0x02a1dc…02a370 Dummy {f00=0x0017, f01=0x0190, f02=» ~ P DATA ILLINT 31 P DATA ILLINT 32 $ P DATA ILLINT 33 @ P DATA IHLP 34 P DATA ILLINT v P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P
0x02a370…02a504 Dummy {f00=0x0017, f01=0x018e, f02=»ILLINT ~ P DATA ILLINT 45 P DATA ILLINT 46 * P DATA ILLINT 47 F P DATA ILLINT 48 b P DATA ILLINT 49 ~ P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53
0x02a504…02a698 Dummy {f00=0x0017, f01=0x0190, f02=» z P DATA ILLINT 59 P DATA ILLINT 60 $ P DATA ILLINT 61 @ P DATA ILLINT 62 P DATA TRAP TRAP ROUTINE x P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P
0x02a698…02a82c Dummy {f00=0x0017, f01=0x0190, f02=» P* DEBUG RESTART ENTRY P* " P XRR A13,A13 , P XRR A14,A14 @ P LD A1,SCTBUG T P ABR(NZ) A1 j P HLT ~ P P EJECT SYSTAB P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSC
0x02a82c…02a9c0 Dummy {f00=0x0017, f01=0x0190, f02=»A 0 PROGRAM LOAD DEVICE ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER L 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS t PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB A
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x0017, f01=0x0190, f02=»0 MMU TABLE COMMON PART ENTRY P INDEX REL TTAB & 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART @ & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY t P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRI
0x02ab54…02ace8 Dummy {f00=0x0017, f01=0x0190, f02=»SCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS $ PSCTBUG DATA 0 DEBUGGER H ( PSCTDMT DATA 00004 DMTASKS IN SYSTEM f P BIT 13:D2,14:D1,15:D0 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00000 DM NO OF LOCAL
0x02ace8…02ae7c Dummy {f00=0x0017, f01=0x4128, f02=»YSTEM r P EJECT SYSTAB P & P* . P* SYSTEM STACK 8 P* N P RES 145 X P DATA /FCC0 AND PSW h & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP RB * P P
0x02ae7c…02b010 Dummy {f00=0x0017, 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
0x02b010…02b1a4 Dummy {f00=0x0017, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x02b1a4…02b338 Dummy {f00=0x0017, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x02b338…02b4cc Dummy {f00=0x0017, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x02b4cc…02b660 Dummy {f00=0x0017, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x02b660…02b7f4 (1, 54) Opaque[0x194]
0x02b7f4…02b988 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0300, f03=0xffff}
0x02b7f4…02b988 IdxSect {
0x02b7f4…02b988 f00 = 0x0018 // 0x2b7f4 @0x0
0x02b7f4…02b988 f01 = 0x0008 // 0x2b7f6 @0x2
0x02b7f4…02b988 gno = [ // 0x2b7f8 @0x4
0x02b7f4…02b988 [0x00]: C0x0018.0x0.0
0x02b7f4…02b988 [0x01]: C0x0018.0x1.0
0x02b7f4…02b988 [0x02]: C0x0018.0x2.0
0x02b7f4…02b988 [0x03]: C0x0018.0x3.0
0x02b7f4…02b988 ]
0x02b7f4…02b988 }
0x02b988…02bb1c Dummy {f00=0x0018, 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*
0x02bb1c…02bcb0 Dummy {f00=0x0018, 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
0x02bcb0…02be44 Dummy {f00=0x0018, 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.
0x02be44…02bfd8 Dummy {f00=0x0018, 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
0x02bfd8…02c16c Dummy {f00=0x0018, 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
0x02c16c…02c300 Dummy {f00=0x0018, 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
0x02c300…02c494 (1, 55) Dummy {f00=0x0018, 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
0x02c494…02c628 Dummy {f00=0x0018, 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
0x02c628…02c7bc Dummy {f00=0x0018, 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*
0x02c7bc…02c950 Dummy {f00=0x0018, 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
0x02c950…02cae4 Dummy {f00=0x0018, 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
0x02cae4…02cc78 Dummy {f00=0x0018, 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
0x02cc78…02ce0c Dummy {f00=0x0018, 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
0x02ce0c…02cfa0 Dummy {f00=0x0018, 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
0x02cfa0…02d134 (1, 56) Dummy {f00=0x0018, 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
0x02d134…02d2c8 Dummy {f00=0x0018, 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
0x02d2c8…02d45c Dummy {f00=0x0018, 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,
0x02d45c…02d5f0 Dummy {f00=0x0018, 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
0x02d5f0…02d784 Dummy {f00=0x0018, 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
0x02d784…02d918 Dummy {f00=0x0018, 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
0x02d918…02daac Dummy {f00=0x0018, 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
0x02daac…02dc40 Dummy {f00=0x0018, 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
0x02dc40…02ddd4 (1, 57) Dummy {f00=0x0018, 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
0x02ddd4…02df68 Dummy {f00=0x0018, 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
0x02df68…02e0fc Dummy {f00=0x0018, 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
0x02e0fc…02e290 Dummy {f00=0x0018, 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
0x02e290…02e424 Dummy {f00=0x0018, f01=0x0190, f02=» IHTWN IHTCN , ( IHSOP N CHLT1 ^ IHFDN n CHRT1 ~ , ( CHRT2 CHRT3 CHRT4 IHCC1 IHCC2
0x02e424…02e5b8 Dummy {f00=0x0018, f01=0x018e, f02=» $ & ~ IHLPN IHCRN . IHDU1 > , ( A ( * N IHDU2 ~ IHMTN , ( Q , . 0 , ( a IHINPTI
0x02e5b8…02e74c Dummy {f00=0x0018, f01=0x0190, f02=» SCTEFA SCTPLD SCTANO , SCTADA @ SCTPAGL T , ( @ h SCTSEG SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC
0x02e74c…02e8e0 Dummy {f00=0x0018, f01=0x414e, f02=»T SCTCDT bBUG SCTBUG~ . , ( 6 B SCTDMT r SCTDMI SCTDML SCTDMC SCTBLK SCTDCT
0x02e8e0…02ea74 (1, 58) Opaque[0x194]
0x02ea74…02ec08 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0320, f03=0xffff}
0x02ea74…02ec08 IdxSect {
0x02ea74…02ec08 f00 = 0x0019 // 0x2ea74 @0x0
0x02ea74…02ec08 f01 = 0x000a // 0x2ea76 @0x2
0x02ea74…02ec08 gno = [ // 0x2ea78 @0x4
0x02ea74…02ec08 [0x00]: C0x0019.0x0.0
0x02ea74…02ec08 [0x01]: C0x0019.0x1.0
0x02ea74…02ec08 [0x02]: C0x0019.0x2.0
0x02ea74…02ec08 [0x03]: C0x0019.0x3.0
0x02ea74…02ec08 [0x04]: C0x001a.0x0.0
0x02ea74…02ec08 ]
0x02ea74…02ec08 }
0x02ec08…02ed9c Dummy {f00=0x0019, 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*
0x02ed9c…02ef30 Dummy {f00=0x0019, 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*
0x02ef30…02f0c4 Dummy {f00=0x0019, 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*
0x02f0c4…02f258 Dummy {f00=0x0019, 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
0x02f258…02f3ec Dummy {f00=0x0019, 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
0x02f3ec…02f580 Dummy {f00=0x0019, 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
0x02f580…02f714 (1, 59) Dummy {f00=0x0019, 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****************************
0x02f714…02f8a8 Dummy {f00=0x0019, 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
0x02f8a8…02fa3c Dummy {f00=0x0019, 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
0x02fa3c…02fbd0 Dummy {f00=0x0019, 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*
0x02fbd0…02fd64 Dummy {f00=0x0019, 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
0x02fd64…02fef8 Dummy {f00=0x0019, 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
0x02fef8…03008c Dummy {f00=0x0019, 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
0x03008c…030220 Dummy {f00=0x0019, 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
0x030220…0303b4 (1, 60) Dummy {f00=0x0019, 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
0x0303b4…030548 Dummy {f00=0x0019, 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
0x030548…0306dc Dummy {f00=0x0019, 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
0x0306dc…030870 Dummy {f00=0x0019, 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
0x030870…030a04 Dummy {f00=0x0019, 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
0x030a04…030b98 Dummy {f00=0x0019, 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
0x030b98…030d2c Dummy {f00=0x0019, 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
0x030d2c…030ec0 Dummy {f00=0x0019, 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
0x030ec0…031054 (1, 61) Dummy {f00=0x0019, 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 *
0x031054…0311e8 Dummy {f00=0x0019, 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
0x0311e8…03137c Dummy {f00=0x0019, 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
0x03137c…031510 Dummy {f00=0x0019, 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,-
0x031510…0316a4 Dummy {f00=0x0019, 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
0x0316a4…031838 Dummy {f00=0x0019, 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
0x031838…0319cc Dummy {f00=0x0019, 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
0x0319cc…031b60 Dummy {f00=0x0019, 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*
0x031b60…031cf4 (1, 62) Dummy {f00=0x001a, 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*
0x031cf4…031e88 Dummy {f00=0x001a, 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*
0x031e88…03201c Dummy {f00=0x001a, 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
0x03201c…0321b0 Dummy {f00=0x001a, 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
0x0321b0…032344 Dummy {f00=0x001a, 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
0x032344…0324d8 Dummy {f00=0x001a, 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
0x0324d8…03266c Dummy {f00=0x001a, f01=0x2008, f02=» ,
0x03266c…032800 Dummy {f00=0x001a, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x032800…032994 (1, 63) Opaque[0x194]
0x032994…032b28 # DirEnt {nam=»GLDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0348, f03=0x0000}
0x032994…032b28 IdxSect {
0x032994…032b28 f00 = 0x001a // 0x32994 @0x0
0x032994…032b28 f01 = 0x002c // 0x32996 @0x2
0x032994…032b28 gno = [ // 0x32998 @0x4
0x032994…032b28 [0x00]: C0x001a.0x1.0
0x032994…032b28 [0x01]: C0x001a.0x2.0
0x032994…032b28 [0x02]: C0x001a.0x3.0
0x032994…032b28 [0x03]: C0x001b.0x0.0
0x032994…032b28 [0x04]: C0x001b.0x1.0
0x032994…032b28 [0x05]: C0x001b.0x2.0
0x032994…032b28 [0x06]: C0x001b.0x3.0
0x032994…032b28 [0x07]: C0x001c.0x0.0
0x032994…032b28 [0x08]: C0x001c.0x1.0
0x032994…032b28 [0x09]: C0x001c.0x2.0
0x032994…032b28 [0x0a]: C0x001c.0x3.0
0x032994…032b28 [0x0b]: C0x001d.0x0.0
0x032994…032b28 [0x0c]: C0x001d.0x1.0
0x032994…032b28 [0x0d]: C0x001d.0x2.0
0x032994…032b28 [0x0e]: C0x001d.0x3.0
0x032994…032b28 [0x0f]: C0x001e.0x0.0
0x032994…032b28 [0x10]: C0x001e.0x1.0
0x032994…032b28 [0x11]: C0x001e.0x2.0
0x032994…032b28 [0x12]: C0x001e.0x3.0
0x032994…032b28 [0x13]: C0x001f.0x0.0
0x032994…032b28 [0x14]: C0x001f.0x1.0
0x032994…032b28 [0x15]: C0x001f.0x2.0
0x032994…032b28 ]
0x032994…032b28 }
0x032b28…032cbc Dummy {f00=0x001a, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DK 5 81-09-15 870105040924 $ P DK5,STATUS HANDLING,NJ-AMT,LP 8 & P DK4, TRANS.PARAM.ADDR.,/00,/7F ` P DK3, RBUFNR=1 ALLOWED P DK2, TBUFL P 80-03-11 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P
0x032cbc…032e50 Dummy {f00=0x001a, f01=0x0190, f02=»ONAL MODE x P REL 9.1 79-07-19 * P =6, DCTASK BUFFER ADDRESS DESTROYED . P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE x P REL 9.1 79-05-23 P =3, TRANSFER PARAMETER P PRR 9.1 79-04-06 P =4, ANY MES
0x032e50…032fe4 Dummy {f00=0x001a, f01=0x0190, f02=» PRR 9.1 78-11-14 P REL 8.2 78-11-14 P 6 P* > P* H 2 P********************************************* R P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIP
0x032fe4…033178 Dummy {f00=0x001a, f01=0x0190, f02=»****************************** z P & P* 0 P* : P* ENTRY POINTS D P* Z 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS d " P ENTRY IH1501 INPUT INTERRUPT " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTINE
0x033178…03330c Dummy {f00=0x001a, f01=0x0190, f02=»ENTRY x ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK $ P EXTRN TENDIO COMPLETE I/O EVENT : P EXTRN DISIOE REQUEST ERROR b P EXTRN SETIME SET TIMER P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN
0x03330c…0334a0 Dummy {f00=0x001a, f01=0x0190, f02=»CBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH J P EXTRN ECBRC ECB RETURN CODE t " P EXTRN ECBCW ECB CONTROL WORD * P EXTRN DC:MIN MOVE DATA TO USER BUFFER , P EXTRN DC:MOT MOVE DATA FROM
0x0334a0…033634 (1, 64) Dummy {f00=0x001a, f01=0x0190, f02=»NTERFACE PART FOR DATA COMMUNICATION P* , P* 6 P* @ P* J P* DWT CONTENTS T P* j J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) t P* P < P**************************************************
0x033634…0337c8 Dummy {f00=0x001a, f01=0x0190, f02=»SE FOR RBUFL AND TBUFL DK " PX:X EQU 500 VALUE FOR BASE DK " & PX:A EQU 2000 RECEIVE BUFFER LENGTH H PRBUFL EQU 650+X:X DK r PX:B EQU /60 DCTASK FILE CODE PDC15FC EQU /60 $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0 P*
0x0337c8…03395c Dummy {f00=0x001a, f01=0x0190, f02=»L STATUS HANDLING DK5 | 2 PLPDEV EQU /45 DEVICE WITH STATUS HANDLING DK5 ( PX:F EQU 1 READ COMMAND HANDLING IF=1 T PRCOM EQU 1 & PX:G EQU 254 TRANSMIT BLOCK LENGTH PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 0
0x03395c…033af0 Dummy {f00=0x001a, f01=0x0190, f02=»E SPEED IS SET TO LOW PSPEED EQU 1 * PX:K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE 2 PMSV1 EQU 0 ` . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) r PRBUFNR EQU 2 . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 PX:N EQU /0
0x033af0…033c84 Dummy {f00=0x001a, f01=0x0190, f02=»SS OF RECEIVER v P XIF PX:O EQU 0 " , PIBMCHR EQU 0 IF 1 IBM CHARACTER HANDLING 4 . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK d PMESPAS EQU 0 4 PX:Q EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 PX:R EQU 1000
0x033c84…033e18 Dummy {f00=0x001a, f01=0x0190, f02=»TION FOR DENMARK x 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT P 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 SALCUZ < PLCUU
0x033e18…033fac Dummy {f00=0x001a, f01=0x018e, f02=» OF TRANSMITTER SALCUZ n P XIF SALCUZ P* 4 P EJECT > P* L P* V . P***************************************** ` P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROG
0x033fac…034140 Dummy {f00=0x001a, f01=0x018e, f02=» P IFT MMUPAG=0 DK2 PTBUFL EQU 0 DK2 " P XIF DK2 : P* L P IFT MMUPAG=1 DK2 V * PTBUFL EQU 650+X:X MMU BUFFER LENGTH DK p P XIF DK2 P DE P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET
0x034140…0342d4 (1, 65) Dummy {f00=0x001a, f01=0x0190, f02=» * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE P* 2 P < P* F P* DWT DISPLACEMENTS P P* l 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART v P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1
0x0342d4…034468 Dummy {f00=0x001a, f01=0x018e, f02=»GET BUFFER QUEUE v $ PDWTSQ EQU START+/04 STATUS QUEUE & PDWTRQ EQU START+/06 RECEIVE QUEUE @ . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS j ( PDWTCUR EQU START+/0A CURSOR ADDRESS , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* P
0x034468…0345fc Dummy {f00=0x001a, f01=0x0190, f02=» P* /37: TRANSFER PARAMETERS P* /38: SET STATUS & $ P* /39: SET REQUEST TIMEOUT VALUE @ P* h P* r P* CONSTANTS AND WORK AREAS | P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS
0x0345fc…034790 Dummy {f00=0x001a, f01=0x0190, f02=»* P* DC TASK ADDRESS BLOCK P* * $ P DATA 0 INDICATES NO MMU BUFFER 4 P DATA DEVIND DEVICE INDEX * PDC15DC DATA DCACTD ACTIVATION ADDRESS ~ & P DATA ABORT ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR P* P
0x034790…034924 Dummy {f00=0x001a, f01=0x0190, f02=»ON ADDRESS v 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR J P* r , P RES 15 SUBROUTINE STACK FOR INTERRUPTS | PSTB RES 1 " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 P P IFT SPEED
0x034924…034ab8 Dummy {f00=0x001a, f01=0x018e, f02=»TION FROM TERMINAL TASKS P* PDCACT EQU * * P LDK A1,0 PRESET RETURN CODE > P IFT EM3270=1 =4 b 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 A7,/0
0x034ab8…034c4c Dummy {f00=0x001a, f01=0x0190, f02=» ~ P ABL(Z) DCSS SET STATUS DK4 P SUK A7,/39-/38 , $ P ABL(Z) REQTIM SET REQUEST TIMER D P XIF l P x P IFT STAT=0 P SUK A7,/39-/37 $ P RF(Z) REQTIM SET REQUEST TIMER P XIF P RF DCA100 P P* P*
0x034c4c…034de0 Dummy {f00=0x001a, f01=0x0190, f02=»4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF J P SUK A7,/02 V P RF(E) DCRDDC READ j P SUK A7,/37-/02 $ P RF(E) DCTP TRANSFER PARAMETERS P PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER
0x034de0…034f74 (1, 66) Dummy {f00=0x001b, f01=0x0190, f02=»US CHANGE ON DC EQUIPMENT $ P* SPONTANOUS MESSAGE RECEPTION " P* J PDCRDDC EQU * T , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED h PDCRTN EQU * P ABL TDISP GO TO DISPATCHER P IFT EM3270=1 =4 P . P********************
0x034f74…035108 Dummy {f00=0x001b, f01=0x0190, f02=»A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P RF(Z) DCRD10 NO!! =4 , ( P RF ENDIO YES!! COMPLETE REQUEST =4 J P XIF v P P* P* P* TRANSFER PARAMETERS P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADD
0x035108…03529c Dummy {f00=0x001b, f01=0x018e, f02=»T PARAMETER z P XIF P IFT CODE=1 & PDCTP LC A2,ECBCW,A8 GET TCS IF ANY 4 P ANK A2,/FF ^ P RF(Z) DCTP10 r ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P SLL A2,8 PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV P ANK A
0x03529c…035430 Dummy {f00=0x001b, f01=0x0190, f02=» 2 P LD A1,DCSTQ CHECK IF THIS DWT IS IN QUEUE DK4 PDCTP14 EQU * : , P RF(Z) DCTP18 NO, END OF/OR NO QUEUE DK4 P & P LDR A3,A6 ADJUST ADDR. VALUE DK4 P ADKL A3,DWTSQ DK4 , P CWR A1,A3 SOMETHING QUEUED OUR DWT? DK4 4 P RF(E) DCTP16 YES,
0x035430…0355c4 Dummy {f00=0x001b, f01=0x0190, f02=» SAVE DWT AS PARAMETER DK4 0 P CF A15,SETIME WAIT UNTIL STATUS IS SENT DK4 " ( P DATA TPTOUT,20 DELAY= 2 SECONDS DK4 V P RB DCRTN DK4 PTPTOUT EQU * P LDR A6,A1 RESTORE DWT DK4 * P RB DCTP12 LOOK IN THE QUEUE AGAIN DK4 PDCTP18 EQU
0x0355c4…035758 Dummy {f00=0x001b, f01=0x0190, f02=»A3,ECBBA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6 * ( P LD A3,ECBRL,A8 CURSOR ADDRESS WORD B P ST A3,DWTCUR,A6 n P XIF " P CWK A6,DW1500 DCTASK DWT ??? 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB IN
0x035758…0358ec Dummy {f00=0x001b, f01=0x0190, f02=»TP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB LAST TABLE POS. =3 8 * PDCTP22 SUK A4,2 ADDR. TO NEXT ENTRY =3 ` * P CW A4,DCTAB ALL ENTRIES CHECKED?? =3 * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3
0x0358ec…035a80 Dummy {f00=0x001b, f01=0x0190, f02=» p P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P H * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH P P IFT STAT=1 ~ P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF PDCTP30 EQU
0x035a80…035c14 (1, 67) Dummy {f00=0x001b, f01=0x018e, f02=» P* P* WRITE P* " P* , P* COMPLETE WHEN: 6 P* SUCCESFUL TRANSMISSION N P* TIME OUT p P* P* PDCWR EQU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH?
0x035c14…035da8 Dummy {f00=0x001b, f01=0x018e, f02=» P* P* P* READ P* * P* 4 P* COMPLETE WHEN: > P* MESSAGE RECEIVED V P* TIME OUT r P* P* PDCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCR
0x035da8…035f3c Dummy {f00=0x001b, f01=0x0190, f02=» " P LD A3,-4,A4 EFFECTIVE LENGTH P ST A3,ECBEL,A8 * P B P LDK A1,0 RESET RETURN CODE J * P CF A15,DC:MIN MOV DATA TO USER BUFFER n P RB DCRTN P $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN P P* P*
0x035f3c…0360d0 Dummy {f00=0x001b, f01=0x0190, f02=»1,3 MASK DB,IR P RF(Z) DCSS20 DEVICE END ! PDCSS10 EQU * ! 6 P ST A1,DWTST,A6 ! J P RB DCTP30 COMPLETE REQUEST ! b PDCSS20 EQU * ! P LD A1,DWTST,A6 ! P ANK A1,9 ! ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT ! PDCSS30 EQU * ! , P CF
0x0360d0…036264 Dummy {f00=0x001b, f01=0x018e, f02=»QUEST TIMEOUT VALUE ! P* " P* " & P " 0 PREQTIM EQU * " 8 " P LD A2,ECBCW,A8 TIMEOUT VALUE " L $ P ST A2,DWTTIM,A6 SAVE IT IN DWT " r P RB DCTP30 TENDIO & DISPATCH " P " P* " ( P* ILLEGAL APPLICATION BUFFER SIZE " P* " P "
0x036264…0363f8 Dummy {f00=0x001b, f01=0x018e, f02=» " P* TIMER HANDLING PART # P* # & P* # 0 P* # : P* READ TIMER=TIMERR # D P* # ` PTIMERE EQU * # j P LDR A1,A6 # ~ . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE # P RF(Z) TIME10 NO TIMING # P ST A2,TIMERR # P CF A15,SETIME #
0x0363f8…03658c Dummy {f00=0x001b, f01=0x0190, f02=» P* $ P* TIMEOUT READ TIMER $ P* $ * PTOUTRE EQU * $ 4 P LDR A6,A1 FETCH DWT $ H P CM DWTTP,A6 $ d PTOUTR1 EQU * $ x " P LDK A1,/40 INDICATE TIME OUT $ $ PTOUTR2 RB ENDIO COMPLETE REQUEST $ P* $ P* WRITE TIMER=TIMWR $ P* $
0x03658c…036720 Dummy {f00=0x001b, f01=0x0190, f02=»SETIME $ P DATA TOUTWR % PTIMWR DATA 0 % " P ST A4,DWTTP,A6 % 6 P RB TIME10 % N P % ` P* % j P* TIMEOUT WRITE TIMER % t P* % PTOUTWR EQU * % P LDR A6,A1 FETCH DWT % P CM DWTTP,A6 % * P CF A15,REMOVW REMOVE FROM WRITE QUEUE %
0x036720…0368b4 (1, 68) Dummy {f00=0x001b, f01=0x0190, f02=»B(NE) TOUTR1 THIS DWT IS NOT WRITING % ( P CM XACK INDICATE 'ACK NOT EXPECTED' & , P CM FDWTUT & X P* & j P* & t P RB TOUTR1 & ~ P & P* & P* & P* STOP REQUEST TIMING & P* & & P* REMAINING TIME IS RETURNED IN A2 & P* &
0x0368b4…036a48 Dummy {f00=0x001b, f01=0x0190, f02=»A2 GET REMAINING TIME & P CM* DWTTP,A6 STOP TIMER ' P CM DWTTP,A6 ' > PCTIM10 EQU * ' R P RF GBUF10 ' f P ' x P* ' P* GET RECEIVE BUFFER ' P* ' $ P* CALLING SEQUENCE: CF A15,GRBUF ' P* A4=0 IF NO BUFFER IS FREE ' & P* ELSE A4
0x036a48…036bdc Dummy {f00=0x001b, f01=0x0190, f02=»NH ' P LDR* A4,A2 ( P RF(Z) GBUF10 NO BUFFER FREE ( . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN ( B P STR A3,A2 ( t * PGBUF10 ADKL A15,4 ADJUST STACK POINTER ( P ABR* A15 RETURN TO CALLER ( P ( P* ( P* ( ( P* INSERT DWT IN WRIT
0x036bdc…036d70 Dummy {f00=0x001b, f01=0x0190, f02=»Q1 LDK A4,DWTWQ ( PINSWQ2 LDR* A3,A2 ) $ P RF(Z) INSWQ3 END OF QUEUE FOUND ) 2 P LDR A2,A3 ) Z P RB INSWQ2 ) l PINSWQ3 ADR A4,A6 ) ~ P STR A4,A2 INSERT IN QUEUE ) " P CMR A4 INDICATE END OF QUEUE ) P RB GBUF10 RETURN ) P* ) P* )
0x036d70…036f04 Dummy {f00=0x001b, f01=0x0190, f02=»ET QUEUE ANCHOR ) z 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED * PREM06 EQU * * N P ADR A4,A6 * b PREM10 LDR* A3,A2 * v & P RB(Z) GBUF10 NOT ON QUEUE: RETURN * P CWR A3,A4 * P RF(E) REM15 * P LDR A2,A3 GET NEXT * P RB REM10 *
0x036f04…037098 Dummy {f00=0x001b, f01=0x0190, f02=»UE * v P* + P IFF STAT=0 + P* A2,A3,A4 DESTROYED + ( P* A6=DWT + D P* + T PINSSQ EQU * + ^ ( P LD A2,0,A6 GET TERMINAL ADDRESS DK4 + r * P ANK A2,/FF IF ADDRESS = 00 OR /7F DK4 + ( P RB(Z) GBUF10 DONT PUT IN STATUS DK4 + , P SUK A2,/7F QUEU
0x037098…03722c Dummy {f00=0x001b, f01=0x0190, f02=»2,/FF DK5 + 0 P SUK A2,LPDEV IF STATUS HANDLING DEVICE DK5 , P RB(NZ) GBUF10 NO DK5 , F P XIF DK5 , d P IFF STAT=0 DK5 , v $ P LDKL A2,DCSTQ GET QUEUE ANCHOR , P LDK A4,DWTSQ , P RB INSWQ2 , P* , P* , " P* REMOVE DWT FROM STAT
0x03722c…0373c0 Dummy {f00=0x001b, f01=0x018e, f02=»TSQ , P RB REM06 - P XIF - P - * P* - 4 P* - > $ P* QUEUE ALLOCATED RECEIVE BUFFER - H P* - p P* A4=BUFFER ADDR - z P* A2,A3 DESTROYED - P* - PQRBUF EQU * - P IFT MESPAS=1 - ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT -
0x0373c0…037554 (1, 69) Dummy {f00=0x001b, f01=0x018e, f02=» PQR100 EQU * . P LDR* A3,A2 . $ P RF(Z) QR200 END OF QUEUE FOUND . , P LDR A2,A3 . T P RB QR100 . f & PQR200 STR A4,A2 INSERT INTO QUEUE . x " P CMR A4 INDICATE END OF QUEUE . P RTN A5 . P . P* . P* . 2 P* CHECK IF UNEXPEC
0x037554…0376e8 Dummy {f00=0x001b, f01=0x0190, f02=» . x 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 / x $ P LD A8,DWTECB,A6 ECB ADDR TO A8 / * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE / " P RF(Z) CKM200 NO READ IN QUEUE /
0x0376e8…03787c Dummy {f00=0x001b, f01=0x0190, f02=»OINTER TO TEXT / & P DONT DESTROY BUFFER ADDRESS =6 0 P LD A4,-4,A3 0 @ 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS 0 T P LD A4,-2,A3 0 . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS 0 P 0 P LDK A1,0 RESET RETURN CODE 0 & P LDR A4,A3 REC
0x03787c…037a10 Dummy {f00=0x001b, f01=0x018e, f02=»RN 0 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS 1 , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT 1 F P CW A1,DCSTOL 1 v P ST A1,DCSTOL 1 & P RB(E) CKM110 NO CHANGE OF STATUS 1 * P ORKL A1,/2000 INDICATE STATUS CHANGE 1 0 P CF A15,TENDIO
0x037a10…037ba4 Dummy {f00=0x001b, f01=0x018e, f02=» 1 R P* 2 P* ABORT ROUTINE 2 P* 2 , P************************ 2 6 P 2 V & PABORT LD A1,DWTTP,A6 TIMER POINTER 2 ^ " P RF(Z) AB:10 NO TIMER RUNNING 2 P CM* DWTTP,A6 KILL TIMER 2 P CM DWTTP,A6 2 P 2 $ PAB:10 LD A1,DWTOR,A6 ORDER COD
0x037ba4…037d38 Dummy {f00=0x001b, f01=0x018e, f02=» 2 d P 3 . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 3 & P LD A2,FDWTUT WRITING DWT ADDRESS 3 B P CWR A2,A6 3 l 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 PAB:RTN EQU * 3 P I
0x037d38…037ecc Dummy {f00=0x001b, f01=0x0190, f02=» 3 P 4 P 4 P 4 P* 4 $ P* 4 . P* STORE REGISTER A3-A8 4 8 $ P* CALLING SEQUENSE: CF A15,STREG 4 V P* 4 ~ P* RESTORE 4 $ P* CALLING SEQUENCE: CF A15,LDREG 4 P* 4 P* 4 PSTREG ST A3,LCA3 4 P ST A4,LCA4 4 P ST A5
0x037ecc…038060 Dummy {f00=0x001b, f01=0x0190, f02=»A3 EQU *-2 4 P LDKL A4,0 5 PLCA4 EQU *-2 5 $ P LDKL A5,0 5 8 PLCA5 EQU *-2 5 J P LDKL A6,0 5 ^ PLCA6 EQU *-2 5 p 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 5 P ABR* A15 5
0x038060…0381f4 (1, 70) Dummy {f00=0x001c, f01=0x018e, f02=»AY FOR NAK DK 5 P* 6 P* 6 P* CHARACTER EQUATES 6 * P* 6 F & PSF EQU X'1D' START FIELD CHARACTER 6 P PSYN EQU /16 6 z PSTX EQU /02 6 PETX EQU /03 6 PETB EQU /17 6 PITB EQU /1F 6 PSOH EQU /01 6 PENQ EQU /05 6 PDL
0x0381f4…038388 Dummy {f00=0x001c, f01=0x018e, f02=» PRDMCOM EQU /36 7 P IFT CODE=0 7 PPAR EQU /80 7 . PRVI EQU /3C 7 B PACK0 EQU /30 7 V PACK1 EQU /31 7 j 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 EQU /BF =WABT - SIEME
0x038388…03851c Dummy {f00=0x001c, f01=0x0190, f02=» 7 PACK1 EQU /2F 8 PSYNEBC EQU /32 8 P XIF 8 2 P 8 > P* 8 H P* 8 R P* PROCEDURE WORK AREAS 8 P* 8 z P* 8 * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 8 . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 8 PXACK DATA 0 ACK EXPECTED 8
0x03851c…0386b0 Dummy {f00=0x001c, f01=0x0190, f02=»ER SWITCH 8 | PCACK DATA 0 ACK COUNTER 9 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 9 2 P* 9 ` PFECB RES 1 WRITING ECB 9 j ( PFECBBA RES 1 WRITING BUFFER ADDRESS 9 & PFECBRL RES 1 WRITING BUFFER LENGTH 9 PFBAX DATA 0 BUFFER INDEX 9 0 PFBLST DATA
0x0386b0…038844 Dummy {f00=0x001c, f01=0x0190, f02=»ND DATA 0 CONTROL SEQUENCE SAVE AREA 9 ( PCRDBUF DATA 0 READ BUFFER COUNTER DK : , P* : X P* : b $ P* 3270 SENSE/STATUS INFORMATION : l P* : P* : P IFF STAT=0 : . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE : P* : P* : P DATA
0x038844…0389d8 Dummy {f00=0x001c, f01=0x0190, f02=»ED : j P XIF ; P ; P* ; P* ; * P* BASIC RECEIVE MODE ; 4 P* ; P " P* ENTERED EVERY TIME A MESSAGE ; Z & P* IS EXPECTED FROM THE MASTER SIDE ; P* ; P* ; P IFT P6805=1 SALCUZ ; , PBRMHLT CF A5,HALTIN HALT RECEIVER SALCUZ ;
0x0389d8…038b6c Dummy {f00=0x001c, f01=0x018e, f02=»D UPDATE STATUS ; r P XIF SALCUZ < P IFT P6805=1 SALCUZ < . 0 P CF A15,CKMESS CHECK IF STATUS CHANGE SALCUZ < J P XIF SALCUZ < ~ PBRM010 EQU * < P IFT CODE+P6805=0 SALCUZ < 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTERN < P XIF SAL
0x038b6c…038d00 Dummy {f00=0x001c, f01=0x0190, f02=» P IFT P6805=0 SALCUZ = " P CIO A2,1,LCUIN START RECEIVER = P XIF SALCUZ = F P IFT P6805=1 SALCUZ = P IFF CODE=1 SALCUZ = x P LDK A2,/0C SALCUZ = * P CIO A2,1,LCUIN START RECEIVER SALCUZ = P LDK A2,SYN SALCUZ = 2 P OTR A2,1,LCUI
0x038d00…038e94 (1, 71) Dummy {f00=0x001c, f01=0x0190, f02=» SALCUZ = * P CIO A2,1,LCUIN START RECEIVER SALCUZ > P LDK A2,SYNEBC SALCUZ > > 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ > P RB(NA) BRMHLT SALCUZ > P XIF SALCUZ > PBRM100 EQU * > $ P CF A5,READP READ ONE CHARACTER > P RF(NZ
0x038e94…039028 Dummy {f00=0x001c, f01=0x0190, f02=»200 EOT RECEIVED > P SUK A1,ENQ-EOT ? P ABL(Z) BRM400 ENQ RECEIVED ? 0 P SUK A1,DLE-ENQ ? T P ABL(Z) BRM600 DLE RECEIVED ? l P SUK A1,NAK-DLE ? P ABL(Z) BRM500 NAK RECEIVED ? P IFT MSV1=0 ? P LDR A8,A2 ? $ P CF A5,READP READ ONE
0x039028…0391bc Dummy {f00=0x001c, f01=0x018e, f02=» ? P CC A2,DW1500+1 @ P RF(E) BRM110 POLLING @ P LDK A3,2 @ > P CC A2,DW1500 @ P P RF(NE) BRM150 NOT THIS TCU @ f PBRM110 EQU * @ P CF A5,READP READ 1:ST STA @ P RF(NZ) BRM150 PARITY ERROR @ P LDR A8,A2 @ P IFT MSV1=0 @
0x0391bc…039350 Dummy {f00=0x001c, f01=0x0190, f02=» P XIF A " P CF A5,READ READ ONE CHARACTER A P IFT P6805=0 SALCUZ A 6 P SUK A2,ENQ+PAR A R P XIF SALCUZ A j 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 SALCUZ A $ P
0x039350…0394e4 Dummy {f00=0x001c, f01=0x0190, f02=»LCUIN A P XIF SALCUZ B P IFT P6805=1 SALCUZ B $ $ P CF A5,HALTIN HALT INPUT SALCUZ B @ . P RB(NZ) BRM010 PARITY ERROR SALCUZ SALCUZ B h P XIF SALCUZ B P LDK A1,1 B P ST A1,CACK LOAD ACK COUNTER B P LDR A2,A8 B P SUK A3,2 B
0x0394e4…039678 Dummy {f00=0x001c, f01=0x018e, f02=»SENT (POLL ADDRESS) B r P XIF C P IFT MSV1=0 C ( & P CF A5,FINTER CHECK IF STA PRESENT C < P XIF C f P LDR A6,A3 LOAD DWT TO A6 C r P ABL(NZ) SPOLL SPECIFIC POLL C P RB BRM INVALID POLL C PBRM120 EQU * C & P CF A5,FINTER CHECK IF STA PRESE
0x039678…03980c Dummy {f00=0x001c, f01=0x0190, f02=» PBRM130 EQU * D P ABL SELECT D P XIF D , P IFT MSV1=1 D < P ABL BRM INVALID ADDRESS D R P XIF D r P* D , P* WAIT FOR MARK HOLD TO RESYNCHRONIZE D P* D PBRM150 EQU * D P ANK A2,/7F D P SUK A2,/7F D P RB(Z)
0x03980c…0399a0 Dummy {f00=0x001c, f01=0x0190, f02=»VED D | P* E P* E PBRM200 EQU * E & P CF A5,HPTIM STOP PROCEDURE TIMER E 4 P IFT RCOM=1 E ^ P CM XRB RESET READ BUFFER E r P XIF E P LD A1,XACK E & P RF(Z) BRM220 ACK IS NOT EXPECTED E " P LD A6,FDWTUT GET WRITING DWT E P RF(
0x0399a0…039b34 (1, 72) Dummy {f00=0x001c, f01=0x018e, f02=» 'ACK EXPECTED' E PBRM220 EQU * F P CM XSEL RESET 'SELECTED' F , P RB BRM F N P F ^ P* F h P* F r 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 NOT SELECTED F
0x039b34…039cc8 Dummy {f00=0x001c, f01=0x0190, f02=» F P RF(NZ) BRM320 MESSAGE OK G PBRM310 EQU * G * ( P CM XSTA INDICATE 'INVALID MESSAGE' G > PBRM312 EQU * G j 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 IS NOT EXPECTE
0x039cc8…039e5c Dummy {f00=0x001c, f01=0x0190, f02=»ITING. RESYNCHRONIZE G x P LDR* A2,A6 GET STA H P XIF H 8 P IFT RCOM=1 H D , P CF A5,PRREC PREPARE FOR TEXT RECEPTION H X P LDK A1,0 SET RC=0 H ( P CF A5,CWRITE COMPLETE WRITE REQUEST H P CM CACK PRESET ACK-1 =7 H P RB BRM305 READ THE MESSAG
0x039e5c…039ff0 Dummy {f00=0x001c, f01=0x0190, f02=» P6805=1 =8 H P SUK A2,ENQ =8 I P XIF =8 I , ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE I > P RB BRM220 I j PBRM320 EQU * I | P IM XSTA INDICATE MESSAGE OK I $ P LD A4,DCRBUF GET BUFFER ADDRESS I P ADK A4,6 I P CW A4,FBLST I " P RF(NE
0x039ff0…03a184 Dummy {f00=0x001c, f01=0x0190, f02=» I P LCR A1,A4 GET COMMAND CODE J P SUK A4,1 J , P SUK A1,RDBCOM J > ( P RF(Z) RDBUF READ MODIFIED RECEIVED J T P SUK A1,RDMCOM-RDBCOM J & P RF(Z) RDMOD READ BUFFER RECEIVED J P XIF J PBRM325 EQU * J P SUK A7,1 J & P RF(Z) BRM340
0x03a184…03a318 Dummy {f00=0x001c, f01=0x0190, f02=» J t P* K " P* PREPARE FOR CHAINED COMMAND K P* K 8 P IFT RCOM=1 K B P LDR* A2,A6 K V P LC A2,TEBCDIC,A2 K j P LD A1,DCRBUF K P RF(Z) BRM326 K P ST A2,+4,A1 K P XIF K PBRM326 EQU * K P CWK A6,DW1500 K , P RF(E) BRM330
0x03a318…03a4ac Dummy {f00=0x001c, f01=0x0190, f02=»OR,A6 ORDER =4 K & P RF(Z) BRM327 ANY MESSAGE ORDER =4 L P XIF =4 L @ P LDK A2,2 L R P CW A2,DWTOR,A6 L d " P RF(NE) BRM330 NO READ REQUEST L | PBRM327 EQU * L P LDK A1,0 SET RC=0 L $ P LD A8,DWTECB,A6 GET ECB ADDRESS L P LD A3,-4,A4 GET
0x03a4ac…03a640 Dummy {f00=0x001c, f01=0x0190, f02=»TIME L p P M P* M P* M 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC M * P* M ^ P* M h P IFT STAT=1 M r P LC A2,+2,A4 GET WCC/CCC M P ANK A2,/FF M P LC A2,TEBCDI,A2 TRANSLATE M P ANK A2,8 M P RF(Z) BRM328 M P LD
0x03a640…03a7d4 (1, 73) Dummy {f00=0x001c, f01=0x0190, f02=»,DWTOR,A6 ORDER =4 M , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 N & P SUK A4,6 ADJUST BUFFER ADDRESS =4 N J ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 N t P RF BRM32A =4 N P XIF =4 N PBRM329 EQU * =4 N P N P LDK A1,0 RESET RETURN CODE N &
0x03a7d4…03a968 Dummy {f00=0x001c, f01=0x0190, f02=»F BRM345 N P O PBRM330 EQU * O P IFT EM3270=1 =4 O . P LD A1,DWTST,A6 STATUS =4 O H P RF(N) BRM335 NO REQUEST =4 O j P LD A1,DWTOR,A6 ORDER =4 O , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 O & P CF A15,TENDIO COMPLETE REQUEST =4 O P
0x03a968…03aafc Dummy {f00=0x001c, f01=0x018e, f02=»OMPLETE DCTASK READ IF ANY O PBRM340 EQU * P " P CF A5,TRACK SEND ACK 0/1 P 6 P ABL BRM P X PBRM345 EQU * P h P IFT STAT=1 P | P LD A1,DWTST,A6 P P ANK A1,8 P ( P RB BRM340 NJ-AMT ALWAYS RESPOND DK5 P P WITH ACK FROM LP DK5 P $ P R
0x03aafc…03ac90 Dummy {f00=0x001c, f01=0x018e, f02=» P XIF Q P Q P* Q P* Q $ , P* READ MODIFIED OR READ BUFFER RECEIVED Q . P* Q ^ P* Q h P IFF RCOM=0 Q r $ PRDBUF EQU * READ BUFFER COMMAND Q PRDMOD EQU * Q " P CM XSEL RESET SELECT EXPECTED Q 4 P LD A6,FDWTIN DWT-ADDRESS FOR AD
0x03ac90…03ae24 Dummy {f00=0x001c, f01=0x0190, f02=» Q p " P IM XRB SET READ BUFFER SWITCH R P CM FDWTUT R . P LDK A1,1 R @ & P XRS A1,CACK INCREMENT ACK COUNTER R R P DB R | * P LD A1,CRDBUF INCREMENT READ BUFFER DK R P ADK A1,1 COUNTER DK R P ST A1,CRDBUF DK R P DE R P ABL POL127
0x03ae24…03afb8 Dummy {f00=0x001c, f01=0x0190, f02=»URE TIMER R x P LD A1,XACK S , P RF(NZ) BRM510 RETRANSMISSION OF MESSAGE S & P OR A1,XSEL S V " P RF(Z) BRM410 IN CONTROL STATE S j . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE S PBRM410 EQU * S P ABL BRM S P S P* S P* S P* NA
0x03afb8…03b14c Dummy {f00=0x001c, f01=0x0190, f02=») BRM510 ACK EXPECTED S P OR A1,XSEL T " P RB(Z) BRM410 IN CONTROL STATE T 2 P RF BRM636 T X PBRM510 EQU * T j P DB T ~ P LDK A1,0 T P CIO A1,0,LCUIN DK T P SST A1,LCUIN DK T P CF A15,STREG DK T P CF A15,SETIME DK T P
0x03b14c…03b2e0 Dummy {f00=0x001c, f01=0x0190, f02=»WRITING DWT T ~ P IFF STAT=0 U P LD A1,XSTA U ( 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED U < P XIF U p 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK U | & P SU A1,FECBBA COMPUTE BUFFER INDEX U P ST A1,FBAX U P ABL POL130 U P* U
0x03b2e0…03b474 (1, 74) Dummy {f00=0x001d, f01=0x0190, f02=»ACK U " P RB(Z) BRM410 ACK NOT EXPECTED V & P CF A5,READ READ SECOND CHARACTER V 2 P IFF P6805=1 =8 V P CWK A2,ACK0+PAR V t P XIF =8 V P IFT P6805=1 =8 V P CWK A2,ACK0 =8 V P XIF =8 V P RF(NE) BRM620 V P* V P* ACK ,
0x03b474…03b608 Dummy {f00=0x001d, f01=0x0190, f02=»ENQ V ~ & P CF A5,SPTIM START PROCEDURE TIMER W P RB BRM410 W 6 PBRM620 EQU * W H P CWK A2,ACK1 W P RF(NE) BRM650 W p P* W P* ACK , 1 RECEIVED W P* W P LD A1,CACK GET ACK COUNTER W $ P RB(Z) BRM610 ACK,1 NOT EXPECTED W PBRM630 E
0x03b608…03b79c Dummy {f00=0x001d, f01=0x0190, f02=» W P LDK A1,0 SET RC=0 X PBRM635 EQU * X " P IFF STAT=0 X 6 P LD A2,XSTA X J . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED X ^ P XIF X ( P CF A5,CWRITE COMPLETE WRITE REQUEST X PBRM636 EQU * X P CF A5,TREOT SEND EOT X P IFT RCOM=1 X
0x03b79c…03b930 Dummy {f00=0x001d, f01=0x0190, f02=»NT ACK COUNTER X | P ABL POL130 Y PBRM650 EQU * Y * P IFF P6805=1 =8 Y > P CWK A2,RVI+PAR Y V P XIF =8 Y n P IFT P6805=1 =8 Y P CWK A2,RVI =8 Y P XIF =8 Y ( P RB(NE) BRM610 INVALID DLE SEQUENCE Y " P CM XACK RESET 'EXPECTING
0x03b930…03bac4 Dummy {f00=0x001d, f01=0x0190, f02=» LDK A1,0 SET RC=0 Y P RB BRM635 Z P IFF STAT=0 Z , P Z @ P* Z J P* Z T " P* STATUS HAS BEEN TRANSMITTED Z ^ P* Z P* Z PBRM670 EQU * Z " P LD A6,FDWTUT GET DWT ADDRESS Z , P CF A15,REMOVS REMOVE FROM STATUS QUEUE Z P CM XS
0x03bac4…03bc58 Dummy {f00=0x001d, f01=0x018e, f02=»T DE Z P LDKL A1,/8000 [ " P ANS A1,DWTST,A6 CLEAR STATUS [ " P RB BRM636 [ H P XIF [ Z P [ f P* [ p P* [ z P* SELECT HAS BEEN RECEIVED [ P* [ P* [ PSELECT EQU * [ P LD A1,XACK =5 [ * P RF(NZ) POL010 ERROR. ACK EXPECTED
0x03bc58…03bdec Dummy {f00=0x001d, f01=0x018e, f02=» [ n P CF A5,TRRVI SEND RVI P XIF & P IFF STAT=1 2 P RF SEL110 F P XIF X PSEL100 EQU * d P ABL BRM x PSEL110 EQU * P IFT STAT+NOWACK=1 P ANK A3,8 P RF(NZ) SEL115 BUSY P XIF P IFT STAT+NOWACK=2
0x03bdec…03bf80 Dummy {f00=0x001d, f01=0x018e, f02=» P LD A1,DCRBUF ] $ P RF(NZ) SEL120 BUFFER AVAILABLE ] PSEL115 EQU * ] F P IFF STAT+NOWACK=2 ] Z P CF A5,TRWACK SEND WACK ] t P XIF ] P RB SEL100 ] PSEL120 EQU * ] , P CF A5,PRREC PREPARE FOR TEXT RECEPTION ] P CF A5,TRACK SEND
0x03bf80…03c114 (1, 75) Dummy {f00=0x001d, f01=0x0190, f02=» P IM XSEL SET 'SELECTED' ^ P CM FBAX RESET BUFFER INDEX ^ $ P IFT CODE=1 ^ H . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC ^ P XIF ^ $ P ST A2,+4,A1 SAVE STA IN BUFFER ^ P IM XSTA ^ " P ST A6,FDWTIN STORE INPUT DWT ^ P RTN A5 ^ P
0x03c114…03c2a8 Dummy {f00=0x001d, f01=0x0190, f02=»F(Z) POL020 ACK NOT EXPECTED =5 ^ " PPOL010 CF A5,TRENQ SEND ENQ =5 _ ( * P CF A5,SPTIM START PROCEDURE TIMER =5 _ N " P ABL BRM WAIT FOR RESPONSE =5 _ | PPOL020 EQU * =5 _ " P CF A5,CPTIM CHECK POLL TIMER _ P IFF STAT=0 _ P LD A6,DCSTQ _ &
0x03c2a8…03c43c Dummy {f00=0x001d, f01=0x0190, f02=»F A5,SPTIM START PROCEDURE TIMER _ P IM XACK SET 'ACK EXPECTED' ` ( P XIF ` L P IFF STAT=1 ` X P RF POL110 ` l P XIF ` ~ PPOL100 EQU * ` P ABL BRM ` PPOL110 EQU * ` P LD A6,DCWRQ ` " P RF(NZ) POL120 WRITE ON QUEUE ` PPOL115 EQU *
0x03c43c…03c5d0 Dummy {f00=0x001d, f01=0x0190, f02=»D A8,DWTECB,A6 GET ECB ADDRESS ` P RF(NZ) POL126 a & P CF A15,REMOVW a < P RB POL115 a R PPOL126 EQU * a d P ST A8,FECB SAVE ECB ADDRESS a x P ST A6,FDWTUT SAVE A6 a P a P IFF MMUPAG=0 a $ P LDKL A4,MMUBUF MMU WORK BUFFER a P ST A4,E
0x03c5d0…03c764 Dummy {f00=0x001d, f01=0x018e, f02=»GET LENGTH a PPOL127 EQU * b & P ST A4,FECBBA SAVE BUFFER ADDRESS b & ( P SUK A3,2 SKIP FIRST WORD OF BUFFER b P P ST A3,FECBRL SAVE LENGTH b | P CM FBAX RESET BUFFER INDEX b PPOL130 EQU * b P CM XETX RESET 'ETX SENT' b P CM XSTA b P
0x03c764…03c8f8 Dummy {f00=0x001d, f01=0x0190, f02=» b P* c P* c & P* SPECIFIC POLL HAS BEEN RECEIVED c P* c F P* c P PSPOLL EQU * c Z P IFF STAT+SPECP=0 c n P LD A1,XACK =5 c " P RB(NZ) POL010 ACK EXPECTED =5 c P LDR A7,A6 SAVE A6 c P CF A5,CPTIM CHECK POLLTIMER c P LDR
0x03c8f8…03ca8c Dummy {f00=0x001d, f01=0x0190, f02=» XIF c 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 A1,6 d P RB(Z) POL125 WRITE REQUEST d P SUK A1,2 d " P RB(Z) POL125 EXCHANGE REQUEST d P XIF d P RB POL115 SEN
0x03ca8c…03cc20 Dummy {f00=0x001d, f01=0x0190, f02=»ODE d z P* e P* e PCWRITE LD A6,FDWTUT e $ P RF(Z) CWR900 NO WRITE GOING ON e < P LD A2,DWTST,A6 e d P RF(N) CWR900 NO REQUEST e | P LD A2,DWTOR,A6 GET ORDER e P SUK A2,6 e P RF(Z) CWR100 WRITE REQUEST e P SUK A2,2 e ( P R
0x03cc20…03cdb4 (1, 76) Dummy {f00=0x001d, f01=0x0190, f02=»OK e z ( P ST A2,DWTOR,A6 INDICATE READ ORDER f P RF CWR150 f 6 & PCWR100 LD A8,FECB GET ECB ADDRESS f H P CF A15,CTIME STOP TIMING f r P LDR A8,A8 f P RF(Z) CWR150 f P ST A2,ECBCW,A8 f $ P CF A15,TENDIO COMPLETE REQUEST f PCWR150 EQU *
0x03cdb4…03cf48 Dummy {f00=0x001d, f01=0x0190, f02=»FDWTUT f P RTN A5 g P g P* g ( P* g 2 P* READ ONE TEXT BLOCK g < P* g Z P* ON EXIT A3 CONTAINS : g d ( P* 0 : IF CORRECT ETX BLOCK RECEIVED g 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW g ( P* 2 : IF CORRECT ETB BLOCK RECEIVE
0x03cf48…03d0dc Dummy {f00=0x001d, f01=0x018e, f02=»,XSTA g $ P RF(NZ) RDM050 LAST INPUT WAS OK h " P LD A1,FBLST COMPUTE NEW INDEX h 6 P SUR A1,A4 h P ST A1,FBAX h n PRDM050 EQU * h P AD A4,FBAX ADD BUFFER INDEX h ( P ST A4,FBLST REMEMBER START OF BLOCK h PRDM075 EQU * h P CM XSTA h
0x03d0dc…03d270 Dummy {f00=0x001d, f01=0x0190, f02=» P RF(NZ) RDM120 PARITY ERROR i P CWK A2,ESC i ( P RF(NE) RDM110 i < * P CF A5,READP SKIP NEXT TWO CHARACTERS i R P CF A5,READP i P XIF i PRDM100 EQU * i $ P CF A5,READP READ ONE CHARACTER i P RF(NZ) RDM120 PARITY ERROR i PRDM110 E
0x03d270…03d404 Dummy {f00=0x001d, f01=0x0190, f02=» P RF(E) RDM170 ITB RECEIVED j P CWK A2,ENQ j & 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE j : P CWK A2,/FF j p $ P RF(E) RDM140 MARK HOLD RECEIVED j P j P IFT CODE=0 j P IFT BINTRM=1 j P j P LDR A1,A2 j P SUK A1,DC1+3 j
0x03d404…03d598 Dummy {f00=0x001d, f01=0x0190, f02=»EADP 8-BIT CHAR GET NEXT PART j P RF(NZ) RDM120 PARITY ERROR k & * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER k J P ORR A2,A8 k x PRDM115 EQU * k P XIF k P k P SCR A2,A4 STORE CHARACTER k P ADK A4,1 INCREMENT POINTER k $ P IM FBAX INCREME
0x03d598…03d72c Dummy {f00=0x001d, f01=0x0190, f02=» k ~ P* l P RF RDM140 ABORT INPUT l PRDM120 EQU * l 0 & P LDK A3,1 INDICATE INVALID MESSAGE l D P SUK A2,/7F l n $ P RF(Z) RDM150 MARK HOLD RECEIVED l P RB RDM100 l P* l P* ETX RECEIVED l P* l PRDM130 EQU * l $ P LD A1,DCRBUF
0x03d72c…03d8c0 Dummy {f00=0x001d, f01=0x0190, f02=» CF A5,RDLRC l P RF(Z) RDM150 LRC WAS OK m P XIF m 4 P IFT CODE=1 m @ & P CF A5,RDCRC READ CRC AND CHECK IT m T P RF(E) RDM150 CRC WAS OK m ~ P XIF m PRDM140 EQU * m & P LDK A3,1 INDICATE INVALID MESSAGE m PRDM150 EQU * m $ P LDR A7,A3 S
0x03d8c0…03da54 (1, 77) Dummy {f00=0x001d, f01=0x0190, f02=» P RTN A5 n P* n P* ETB RECEIVED n P* n 4 PRDM160 EQU * n > P LDR A3,A3 n R " P RB(NZ) RDM130 ALREADY INVALID n d " P LDK A3,2 INDICATE CORRECT ETB n P RB RDM130 n P* n P* ITB RECEIVED n P* n PRDM170 EQU * n P IFF COD
0x03da54…03dbe8 Dummy {f00=0x001d, f01=0x018e, f02=» n n " P RB(NE) RDM120 CRC WAS NOT OK o P XIF o . P RB RDM100 o : P o L P* o V P* TRANSMIT ACK 0 OR 1 o ` P* o ~ PTRACK LDK A2,1 o P LDK A3,ACK1 PRELOAD ACK1 o & P XRS A2,CACK INCREMENT ACK COUNTER o P RF(NZ) TRDLE o P LDK A3,
0x03dbe8…03dd7c Dummy {f00=0x001d, f01=0x0190, f02=» P* p P* TRANSMIT RVI p P* p $ P IFF STAT=0 p . PTRRVI LDK A3,RVI LOAD RVI p B P XIF p d P* p p P* TRANSMIT DLE p z P* p PTRDLE LDK A2,DLE LOAD DLE p " P SC A2,RESEND PUT INSAVE AREA p P SC A3,RESEND+1 p P RF TRREP p
0x03dd7c…03df10 Dummy {f00=0x001d, f01=0x0190, f02=» P* q PTREOT LDK A3,EOT LOAD EOT q P RF TREN10 q 0 P* q B P* TRANSMIT ENQ q L P* q b PTRENQ LDK A3,ENQ LOAD ENQ q l P* q ( PTREN10 SC A3,RESEND PUT IN SAVE AREA q P LDK A2,/FF q P SC A2,RESEND+1 q $ PTRREP CF A5,TRSYNC START
0x03df10…03e0a4 Dummy {f00=0x001d, f01=0x0190, f02=»,WRITEP SEND IT q PTRRE10 LDK A2,/FF r P CF A5,WRIT05 SEND PAD r 2 P LDK A2,/FF r P P CF A5,WRIT05 r d P LDK A2,0 SALCUZ r z $ P CIO A2,0,LCUUT STOP TRANSMITTER r P IFT P6805=1 SALCUZ r $ P CF A5,READ WAIT FOR END SALCUZ r P XIF S
0x03e0a4…03e238 Dummy {f00=0x001d, f01=0x0190, f02=» A5 r P s P* s P* s P* TRANSMIT ONE TEXT BLOCK s * P* s L P* s V PTRTEXT EQU * s ` P CF A5,TRSYNC START OUTPUT s t P IFT TSTREQ=1 s P* s P* s P* TEST REQUEST HANDLING s P* s P* s P LD A4,FBAX s ( P
0x03e238…03e3cc Dummy {f00=0x001d, f01=0x0190, f02=» s P LD A4,FECBBA t " P LC A3,+2,A4 GET AID CHARACTER t P SUK A3,/30 t D $ P RF(NZ) TRT050 NOT TEST REQUEST t X P LDK A2,SOH t P CF A5,WRITE SEND SOH t P LDK A7,0 RESET BCC t P LDK A2,'%' t P CF A5,WRITE SEND % t P LDK A2,'/
0x03e3cc…03e560 Dummy {f00=0x001d, f01=0x0190, f02=» A4,5 SKIP AID + CURSOR ADDRESS t P LDK A3,5 ADJUST LENGTH u ( P LDK A2,3 u H P ST A2,FBAX u Z P RF TRT100 u n PTRT050 EQU * u P* u P* u P* u P XIF u P LDK A2,STX u P CF A5,WRITE SEND STX u P LDK A7,0 RESET LRC u
0x03e560…03e6f4 (1, 78) Dummy {f00=0x001e, f01=0x0190, f02=»IP FIRST WORD OF BUFFER u & P LDK A3,0 RESET CHARACTER COUNTER v P LD A1,FBAX GET BUFFER INDEX v J " P RF(NZ) TRT100 NOT FIRST BLOCK v n P LC A2,DW1500+1 GET TCA v P CF A5,WRITEP SEND TCA v P LDR* A2,A6 GET STA v P CF A5,WRITEP SEND STA v
0x03e6f4…03e888 Dummy {f00=0x001e, f01=0x0190, f02=» v r P CF A5,WRITEP w P LDK A2,/20 w P CF A5,WRITEP w 2 P XIF w H P IFT RCOM=1 w T P w h & P LD A1,XRB READ BUFFER COMMAND ??? w p P RF(Z) TRT070 NO!! w P w P ******************** w " P LDK A2,X'2D' AID FOR DISPLAY w PTRT060
0x03e888…03ea1c Dummy {f00=0x001e, f01=0x0190, f02=»5 SET BLOCK COUNT w P RF TRT100 x PTRT070 EQU * x , P XIF x @ P x L P LDK A3,2 x T PTRT100 EQU * x f P LCR A2,A4 GET ONE CHARACTER x z P ADK A4,1 INCREMENT POINTER x P ANK A2,/7F x P IFT RCOM=1 x & P LD A1,XRB READ BUFFER COMMAND
0x03ea1c…03ebb0 Dummy {f00=0x001e, f01=0x0190, f02=» ATTRIBUTE CHARACTER OR NULL x P* y $ 4 P*********************************************** y . P y f & P CWK A2,X'20' ATTRIBUTE CHARACTER y n P RF(L) TRT101 YES!!! y P XIF y P IFT DMRK=1 y P CWK A2,/7E LINE FEED ? y " P RF(NE) TRT102 NO,GO
0x03ebb0…03ed44 Dummy {f00=0x001e, f01=0x0190, f02=» A2,/19 y PTRT103 EQU * z P CWK A2,X'7F' NULL ?? z $ P RF(NE) TRT105 z B P SUK A2,1 z X P XIF z j P IFT RCOM=1 z v P RF TRT105 z P z PTRT101 EQU * z P z P LDK A2,SF z " P CF A5,WRITEP SEND START FIELD z P z ( P LC A2,-
0x03ed44…03eed8 Dummy {f00=0x001e, f01=0x0190, f02=» z P SLL A2,1 { & P ORR A2,A1 IBM ATTRIBUTE COMPOSED { " P ORK A2,/40 BIT ALWAYS SET ONE { D P LC A2,TASCII,A2 { j & P CWK A2,/18 CHECK SPECIAL ATTRIBUT { P RF(NE) TRT104 { P LDK A2,/30 { PTRT104 EQU * { P CF A5,WRITEP SEND ATTRIBUTE {
0x03eed8…03f06c Dummy {f00=0x001e, f01=0x0190, f02=»P IT { p P CF A5,WRITEP SEND CHARACTER | PTRT110 EQU * | 0 $ P IM FBAX INCREMENT BUFFER INDEX | D & P LD A1,FECBRL GET REQUESTED LENGTH | l P CW A1,FBAX | " P RF(NG) TRT130 END OF MESSAGE | * P ADK A3,1 INCREMENT CHARACTER COUNTER | P CWK A3,TB
0x03f06c…03f200 Dummy {f00=0x001e, f01=0x0190, f02=» RF(E) TRT115 YES | P CC A1,-1,A4 } P RF(NE) TRT116 NO SEND ETB } . ( P LCR A2,A4 GET FIRST BYTE AFTER SBA } P P ADK A4,1 INREMENT POINTER } | P CF A5,WRITEP SEND IT } P IM FBAX INCREMENT INDEX } . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA }
0x03f200…03f394 (1, 79) Dummy {f00=0x001e, f01=0x018e, f02=»QU * } P CF A5,WRITEP SEND IT ~ P IFF CODE=1 ~ * P LDR A2,A7 GET LRC ~ > P CF A5,WRITEP SEND LRC ~ X P XIF ~ v P IFT CODE=1 ~ P LDR A8,A7 SAVE CURRENT CRC ~ P LDR A2,A7 ~ P ANK A2,/FF ~ " P CF A5,WRIT05 SEND CRC BYTE 1 ~ P E
0x03f394…03f528 Dummy {f00=0x001e, f01=0x0190, f02=» P IM XETX INDICATE 'ETX SENT' PTRT140 EQU * ( P LDK A2,ETX LOAD ETX < P RB TRT120 SEND ETX AND LRC X P | P* P* P* TRANSMIT STATUS MESSAGE P* P* P IFF STAT=0 PTRSTA EQU * $ P IM XSTA INDICAT
0x03f528…03f6bc Dummy {f00=0x001e, f01=0x018e, f02=»F A5,WRITE SEND SOH P LDK A7,0 REST LRC P LDK A2,'%' 6 P CF A5,WRITEP SEND '%' J P LDK A2,'R' h P CF A5,WRITEP SEND 'R' | P LDK A2,STX P CF A5,WRITE SEND STX P XIF DK5 P IFF STAT=0 DK5 P IFT SSTAT=1 DK5
0x03f6bc…03f850 Dummy {f00=0x001e, f01=0x0190, f02=» ~ P LC A2,DW1500+1 P CF A5,WRITEP SEND TCA P LDR* A2,A6 > P CF A5,WRITEP SEND STA R P LD A1,DWTST,A6 GET STATUS p P ANK A1,/06 MASK FOR S/S 0 P SRL A1,1 $ P LC A2,SSTAB,A1 GET STATUS BYTE P CF A5,WRITEP SEND S/S 0
0x03f850…03f9e4 Dummy {f00=0x001e, f01=0x0190, f02=» P RF(NZ) TRST10 NO IR IF DE P LDK A2,IR & PTRST10 EQU * 8 P CF A5,WRITEP SEND S/S 1 L P RB TRT130 SEND ETX AND LRC l P XIF P P* P* P* TRANSMIT SYNC SEQUENCE P* P* PTRSYNC EQU * P LDK A
0x03f9e4…03fb78 Dummy {f00=0x001e, f01=0x0190, f02=»1,LCUUT START TRANSMITTER P XIF SALCUZ " P IFT P6805=1 SALCUZ 8 P IFT CODE=1 SALCUZ T P LDK A2,0 SALCUZ p , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ P RF(A) TRS010 SALCUZ P SST A1,LCUUT SALCUZ P RF(A) TRS005 SAL
0x03fb78…03fd0c Dummy {f00=0x001e, f01=0x0190, f02=» A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ P XIF SALCUZ 2 P IFT P6805=1 SALCUZ H P IFT CODE=0 SALCUZ d P LDK A2,/0C SALCUZ P CIO A2,1,LCUUT SALCUZ P RF(A) TRS010 SALCUZ P SST A1,LCUUT SALCUZ P RF(A) TRS005 S
0x03fd0c…03fea0 Dummy {f00=0x001e, f01=0x0190, f02=»UUT SPECIFY SYNC CHARACTER SALCUZ P XIF SALCUZ * * P CF A5,READ WAIT FOR OUTPUT INTERRUPT @ P LDK A3,4 4 SYNS n PTRS100 LDK A2,SYN P CF A5,WRITE SEND SYN P SUK A3,1 P RB(NZ) TRS100 P RTN A5 P P*
0x03fea0…040034 (1, 80) Dummy {f00=0x001e, f01=0x0190, f02=»8 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 j P INR A2,0,LCUIN READ CHAR , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS P IFF LOGG=0 ( P CF A5,LOG
0x040034…0401c8 Dummy {f00=0x001e, f01=0x0190, f02=» RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF : P IFT CODE=1 F P C2 SYNSW Z 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME l P CWK A2,SYNEBC P RF(E) READ SKIP EBCDIC SYN PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE
0x0401c8…04035c Dummy {f00=0x001e, f01=0x0190, f02=»ERFORM SST ~ P ABL BRM P XIF SALCUZ " P IFT P6805=1 SALCUZ 8 $ PIHIN20 RF SST PERFORM SST SALCUZ T P XIF SALCUZ | P P* P* P* TRANSMITTER INTERRUPT P* P* PIH1502 EQU * P ST P,INTSAV
0x04035c…0404f0 Dummy {f00=0x001e, f01=0x0190, f02=» XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 : P L P* V P* ` & P* SST INSTRUCTION AND STATUS CHECK j P* ( P* LCU STATUS : BIT 10=CARRIER OFF . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ , P*
0x0404f0…040684 Dummy {f00=0x001e, f01=0x0190, f02=»UZ ~ 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ P XIF SALCUZ @ P LDR A2,A1 V P IFF LOGG=0 h & P CF A5,LOGSST LOG SST INFORMATION | P XIF P IFT P6805=0 SALCUZ P ANK A2,2 P RF(Z) SST100 P XIF SALCUZ
0x040684…040818 Dummy {f00=0x001e, f01=0x0190, f02=» PUT SALCUZ z & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ > P XIF SALCUZ X PSST050 EQU * SALCUZ n P CM XSTA TROUHHPUT ERROR P LDKL A5,STB P ABL BRM010 PSST100 EQU * P ST A1,DCSTCU P IFT P6805=0
0x040818…0409ac Dummy {f00=0x001e, f01=0x0190, f02=»/21 SALCUZ P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ 2 P DATA BRM RESTART SALCUZ l P DATA 2 WAIT TIME SALCUZ P RF READ SALCUZ P* PSST200 LDK A1,0 SALCUZ PSSTRET ADK A5,4 SALCUZ
0x0409ac…040b40 Dummy {f00=0x001e, f01=0x0190, f02=» P* PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN . P IFT P6805=0 SALCUZ F 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK b P XIF SALCUZ P IFT P6805=1 SALCUZ * P RF READ WAIT FOR SST INTERRUPT SALCUZ P XIF SALCUZ
0x040b40…040cd4 (1, 81) Dummy {f00=0x001e, f01=0x0190, f02=»1 P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD 2 * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC f P XIF PWRIT05 EQU * " P OTR A2,0,LCUUT SEND CHARACTER P RF(A) WRIT10 P RF READ THROUGHPUT ERRO
0x040cd4…040e68 Dummy {f00=0x001e, f01=0x018e, f02=» n P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER ( P XIF R P* ^ PREAD CF A15,STREG h P ABL TDISP P P* P* P*** WRITEP P* P* WRITE A2 WITH PARITY P* P* P IFT C
0x040e68…040ffc Dummy {f00=0x001e, f01=0x0190, f02=» P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 2 P XIF D P IFF CODE+P6805=0 SALCUZ P PWRITEP RB WRITE r P XIF P* P* P* P*** READP P* . P* READ CHARACTER TO A2 AND CHECK PARITY P*
0x040ffc…041190 Dummy {f00=0x001e, f01=0x018e, f02=»NN) RE100 P XRK A2,/80 P RB RE100 & PRE110 LDR A1,A2 8 P ANK A2,/7F P P XIF d P IFF CODE+P6805=0 SALCUZ p P LDK A1,/80 P XIF P ADK A5,4 P ANK A1,/80 P XRK A1,/80 P ABR* A5 P* P*
0x041190…041324 Dummy {f00=0x001e, f01=0x0190, f02=» n P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED ( " P* A3#0: DWT TO FOUND TERMINAL > P* d B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES n * P* ENTRY: FINTER - CHECK SELECT ADDRESS , P* FINTEP - CHECK SPECIFIC POLL ADDRES
0x041324…0414b8 Dummy {f00=0x001e, f01=0x0190, f02=» EQU * P XIF P IM RBYTE P IFT MSV1=1 , PFINTER EQU * @ P XIF T & P LD A4,DCTAB GET ADDRESS TO DC:TAB ` * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB PFINT10 SUK A4,2 P LDK A3,0 DEFAULT VALUE P CW A4,DCTAB END OF TABL
0x0414b8…04164c Dummy {f00=0x001e, f01=0x0190, f02=»S TYPE v * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS P XIF < P IFT MSV1=0 H . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE) FINT10 TAKE NEXT TERMINAL PFINT20 CM RBYTE P ANKL A3,/FFFE P RTN A5 P
0x04164c…0417e0 Dummy {f00=0x001e, f01=0x0190, f02=»A8 z P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 4 P XIF T P IFT STAT=1 ` P LDK A5,4 SET DEVICE END t P LD A1,DCTAB . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 P CW A1,DCTAB P R
0x0417e0…041974 (1, 82) Dummy {f00=0x001f, f01=0x0190, f02=»SERT IN STATUS QUEUE P RB DRDC05 PDRDC06 EQU * . P XIF B P LDK A2,/40 N P ORS A2,DCONOF b P CF A15,CKMESS x ( P LD A2,DCTPGP GET POLL TIMER POINTER " P RF(NZ) DRDC20 ALREADY STARTED * PDRDC10 CF A15,SPOTIM START POLL TIMER
0x041974…041b08 Dummy {f00=0x001f, f01=0x018e, f02=»0 ( P ST A2,DCONOF INDICATE POLL TIME OUT * P CF A15,CKMESS CHECK IF STATUS CHANGE 6 $ P CF A15,SPOTIM START POLL TIMER d P ABL TDISP P* 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED P* $ PCPTIM CM DCONOF INDICATE POLLI
0x041b08…041c9c Dummy {f00=0x001f, f01=0x018e, f02=» P* START POLL TIMER P* " $ PSPOTIM CF A15,SETIME START TIMER , P DATA PTOUT,TIMPOL T & P ST A4,DCTPGP STORE TIMER POINTER n P ADKL A15,4 P ABR* A15 P P* P* START PROCEDURE TIMER P* PSPTIM EQU *
0x041c9c…041e30 Dummy {f00=0x001f, f01=0x018e, f02=» P RTN A5 P* P* PROCEDURE TIMEOUT P* : PPRTOUT CM DCTPP D P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE x , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED P C
0x041e30…041fc4 Dummy {f00=0x001f, f01=0x0190, f02=» x P* ( PHPTIM LD A1,DCTPP GET TIMER POINTER P RF(Z) HPT10 NOT RUNNING > P CM* DCTPP STOP TIMER ^ P CM DCTPP | PHPT10 RTN A5 P P IFT CODE=1 P* P* P* CALCULATION OF CRC P* P* A2 = CHARACT
0x041fc4…042158 Dummy {f00=0x001f, f01=0x0190, f02=»SAV+4 P LDK A1,8 PCRC100 LDR A3,A7 P SRL A7,1 8 P XRR A3,A2 J P SRL A2,1 P ANK A3,1 n P RF(Z) CRC110 P XRKL A7,/A001 PCRC110 SUK A1,1 P RB(NZ) CRC100 P LD A1,CRCSAV P LD A2,CRCSAV+2 P
0x042158…0422ec Dummy {f00=0x001f, f01=0x018e, f02=»CR = (E) IF CRC WAS OK P* P* ( $ PRDCRC LDR A6,A7 SAVE CURRENT CRC 2 $ P IM SYNSW DO NOT SKIP SYNCS NOW Z P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SAVE IT P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN
0x0422ec…042480 Dummy {f00=0x001f, f01=0x0190, f02=» d P ABR* A5 P XIF P IFT CODE=0 $ P* 8 & P* RDLRC READ LRC CHARACTER B " P* CR=0 IF LRC OK l P* PRDLRC IM SYNSW P CF A5,READP P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,
0x042480…042614 (1, 83) Dummy {f00=0x001f, f01=0x0190, f02=»FOR DCTASK | P* P* PDW1500 EQU * TABLE ENTRY & P DATA 0 CU LINE ADDRESS F P DATA /8000 STATUS f P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DATA DC15DC POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT
0x042614…0427a8 Dummy {f00=0x001f, f01=0x0190, f02=»CB ADDRESS ~ P XIF P* P DATA 0 TIMER POINTER ( ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE F . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) r " P DATA 0 RECEIVE MESSAGE QUEUE , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR
0x0427a8…04293c Dummy {f00=0x001f, f01=0x0190, f02=» P XIF P* P P* $ P* . P* DC RECEIVE BUFFER POOL 8 P* X PRLINK EQU RBUFL+RBUFL+8 b P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFNR=1 DK3 P IFF RBUFNR=2 P DATA *+RLINK
0x04293c…042ad0 Dummy {f00=0x001f, f01=0x0190, f02=»BUFL+3 P XIF P IFF RBUFNR=1 DK3 P DATA *+RLINK 4 P RES RBUFL+3 J P XIF DK3 ^ P DATA 0 END OF CHAIN p P RES RBUFL+3 P P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF P P* P
0x042ad0…042c64 Dummy {f00=0x001f, f01=0x0190, f02=»F LOG10 PLOGOUT ST A2,SAVE2 P ORKL A2,/0F00 * P RF LOG10 @ PLOGIN CWK A2,/FF R P RF(E) LOGE10 j P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOG
0x042c64…042df8 Dummy {f00=0x001f, f01=0x0190, f02=»* P* PLOGPNT DATA LOGSTA PLOGSTA EQU * . P RES 300 B PLOGEND EQU *-4 R PSAVE2 DATA 0 h PSAVE3 DATA 0 | P XIF P* P* P* P IFT RCOM=1 P < P************************************************
0x042df8…042f8c Dummy {f00=0x001f, f01=0x0190, f02=»******************************************************** P @ PLINCOL EQU * H " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER P P LDR A
0x042f8c…043120 Dummy {f00=0x001f, f01=0x0190, f02=» P* P* P* P " P , P* SCANDINAVIAN ALPHABET 4 P DB X PLICO:T EQU * f * P DATA /2041,/4243,/4445,/4647 /00-/07 z * P DATA /4849,/232E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DAT
0x043120…0432b4 (1, 84) Dummy {f00=0x001f, f01=0x4172, f02=»ATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F * P DE V P XIF d P p P z PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0x0432b4…043448 Dummy {f00=0x001f, f01=0x2008, f02=» H P X ` h p x
0x043448…0435dc Dummy {f00=0x001f, 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
0x0435dc…043770 Dummy {f00=0x001f, 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
0x043770…043904 Dummy {f00=0x001f, 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
0x043904…043a98 Dummy {f00=0x001f, 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
0x043a98…043c2c Dummy {f00=0x001f, 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
0x043c2c…043dc0 Dummy {f00=0x001f, 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)
0x043dc0…043f54 (1, 85) Opaque[0x194]
0x043f54…0440e8 # DirEnt {nam=»DCFIL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x043f54…0440e8 IdxSect {
0x043f54…0440e8 f00 = 0x0003 // 0x43f54 @0x0
0x043f54…0440e8 f01 = 0x002c // 0x43f56 @0x2
0x043f54…0440e8 gno = [ // 0x43f58 @0x4
0x043f54…0440e8 [0x00]: C0x0003.0x1.0
0x043f54…0440e8 [0x01]: C0x0003.0x2.0
0x043f54…0440e8 [0x02]: C0x0003.0x3.0
0x043f54…0440e8 [0x03]: C0x0004.0x0.0
0x043f54…0440e8 [0x04]: C0x0004.0x1.0
0x043f54…0440e8 [0x05]: C0x0004.0x2.0
0x043f54…0440e8 [0x06]: C0x0004.0x3.0
0x043f54…0440e8 [0x07]: C0x0005.0x0.0
0x043f54…0440e8 [0x08]: C0x0005.0x1.0
0x043f54…0440e8 [0x09]: C0x0005.0x2.0
0x043f54…0440e8 [0x0a]: C0x0005.0x3.0
0x043f54…0440e8 [0x0b]: C0x0006.0x0.0
0x043f54…0440e8 [0x0c]: C0x0006.0x1.0
0x043f54…0440e8 [0x0d]: C0x0006.0x2.0
0x043f54…0440e8 [0x0e]: C0x0006.0x3.0
0x043f54…0440e8 [0x0f]: C0x0007.0x0.0
0x043f54…0440e8 [0x10]: C0x0007.0x1.0
0x043f54…0440e8 [0x11]: C0x0007.0x2.0
0x043f54…0440e8 [0x12]: C0x0007.0x3.0
0x043f54…0440e8 [0x13]: C0x0008.0x0.0
0x043f54…0440e8 [0x14]: C0x0008.0x1.0
0x043f54…0440e8 [0x15]: C0x0008.0x2.0
0x043f54…0440e8 ]
0x043f54…0440e8 }
0x0440e8…04427c Dummy {f00=0x0003, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DK 6 82-10-04 870105040924 " P DK7,READ-MODIFIED, MODIFIED 8 P 82-10-02 ^ P DK6, READ MODIFIED r , P DK5, LP, DWTINF, ST.PR.BIT, 81-11-05 P P DK3, RBUFNR=1 ALLOWED P DK2, TBUFL P 80-03-1
0x04427c…044410 Dummy {f00=0x0003, f01=0x018e, f02=»UZ v P REL 9.1 79-07-19 & P =7, ACK IN CONVERSATIONAL MODE & P REL 9.1 79-07-19 P * P =6, DCTASK BUFFER ADDRESS DESTROYED l P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE P REL 9.1 79-05-23 P =3, TRANSFE
0x044410…0445a4 Dummy {f00=0x0003, f01=0x018e, f02=» P PRR 9.1 78-11-29 P =1, MSR-INSTRUCTION P PRR 9.1 78-11-14 > P REL 8.2 78-11-14 Z P v P* ~ P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P*
0x0445a4…044738 Dummy {f00=0x0003, f01=0x0190, f02=» P* P* P* P* " 8 P**************************************************** , P h P* r P* | P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT " P ENTRY
0x044738…0448cc Dummy {f00=0x0003, f01=0x0190, f02=»AL REFERENCES P* P* " P EXTRN TDISP DISPATCHER ENTRY * ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P $ P EXTRN TENDIO COMPLETE I/O EVENT | P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER P EXTRN DWTST DWT STATUS P
0x0448cc…044a60 Dummy {f00=0x0003, f01=0x018e, f02=» TABLE r ( P EXTRN TASCII EBCDIC TO ASCII TABLE $ P EXTRN ECBBA ECB BUFFER ADDRESS : & P EXTRN ECBRL ECB REQUESTED LENGTH b & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD * P EXTRN D
0x044a60…044bf4 (1, 86) Dummy {f00=0x0003, f01=0x018e, f02=» P P* P* P* " P* , 6 P* STANDARD INTERFACE PART FOR DATA COMMUNICATION 6 P* p P* z P* P* P* DWT CONTENTS P* J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) P*
0x044bf4…044d88 Dummy {f00=0x0003, f01=0x0190, f02=» P* ( PXRVI EQU /5C STANDARD:/40, DK:/5C DK * PX:D EQU 0 BASE FOR RBUFL AND TBUFL DK : " PX:X EQU 500 VALUE FOR BASE DK h & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK PX:B EQU /60 DCTASK FILE CODE PDC15FC EQU /60
0x044d88…044f1c Dummy {f00=0x0003, f01=0x0190, f02=»US AND RVI HANDLING IF=1 PSTAT EQU 0 ( PX:F EQU 1 READ COMMAND HANDLING IF=1 2 PRCOM EQU 1 ^ & PX:G EQU 252 TRANSMIT BLOCK LENGTH p PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 0 * PX:I EQU 0 IF 1 SPECIFIC PO
0x044f1c…0450b0 Dummy {f00=0x0003, f01=0x0190, f02=»D EQU X:J * PX:K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:K @ . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) T PRBUFNR EQU 2 ( PX:M EQU 0 IF = 1 PTS 6805 ADAPTION PP6805 EQU X:M PX:N EQU /02 P IFT P6805=0 , PLCUI
0x0450b0…045244 Dummy {f00=0x0003, f01=0x0190, f02=»X:O EQU 0 . PIBMCHR EQU X:O IF 1 IBM CHARACTER HANDLING . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK D PMESPAS EQU X:P v 4 PX:Q EQU 1 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU X:Q PX:R EQU 1000 P DK2 * PBINTRM EQU
0x045244…0453d8 Dummy {f00=0x0003, f01=0x0190, f02=»CK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 4 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". h , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 6 PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TR
0x0453d8…04556c Dummy {f00=0x0003, f01=0x018e, f02=» P* P* . P***************************************** P* J P* CONDITIONAL ASSEMBLY T P* r . P***************************************** | P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPA
0x04556c…045700 Dummy {f00=0x0003, f01=0x018e, f02=» P* P IFT MMUPAG=1 DK2 * PTBUFL EQU 650+X:X MMU BUFFER LENGTH DK ( P XIF DK2 V P DE h P* v 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0
0x045700…045894 (1, 87) Dummy {f00=0x0003, f01=0x0190, f02=» P* DWT DISPLACEMENTS P* $ 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART . P* b P IFT MMUPAG=0 l PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* 4 PDWTTP EQU START+/0
0x045894…045a28 Dummy {f00=0x0003, f01=0x0190, f02=»U START+/06 RECEIVE QUEUE . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS " ( PDWTCUR EQU START+/0A CURSOR ADDRESS T , PDWTTIM EQU START+/0C REQUEST TIMER VALUE . PDWTINF EQU START+/0E DEVICE INFO, 1=LP DK5 P* P P* P* REQUES
0x045a28…045bbc Dummy {f00=0x0003, f01=0x0190, f02=»NF DK5 | " P* /33: READ MODIFIED RESPONSE P* /37: TRANSFER PARAMETERS 6 P* /38: SET STATUS X $ P* /39: SET REQUEST TIMEOUT VALUE r P* P* P* CONSTANTS AND WORK AREAS P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH
0x045bbc…045d50 Dummy {f00=0x0003, f01=0x0190, f02=»ATA 0 TIMER POINTER GENERAL POLL P ( P* 2 P* DC TASK ADDRESS BLOCK < P* $ P DATA 0 INDICATES NO MMU BUFFER f P DATA DEVIND DEVICE INDEX * PDC15DC DATA DCACTD ACTIVATION ADDRESS & P DATA ABORT ABORT ROUTINE ADDRESS $ P
0x045d50…045ee4 Dummy {f00=0x0003, f01=0x0190, f02=»ND DEVICE INDEX ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS D $ P DATA DCRBUF REC. BUFFER ANCHOR | P* , P RES 15 SUBROUTINE STACK FOR INTERRUPTS PSTB RES 1 " P RES 1 AND FOR TRANSFER
0x045ee4…046078 Dummy {f00=0x0003, f01=0x0190, f02=» XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS * P* R PDCACT EQU * P LDK A1,0 PRESET RETURN CODE p P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF P SUK A7,/02
0x046078…04620c Dummy {f00=0x0003, f01=0x0190, f02=»TINF DK5 x P SUK A7,/33-/31 DK7 , P RF(E) RESTRM RESPONSE TO READ MODIFIED , P SUK A7,/37-/33 DK5 $ P RF(Z) DCTP TRANSFER PARAMETERS x P IFF STAT=0 P SUK A7,/38-/37 P ABL(Z) DCSS SET STATUS DK4 P SUK A7,/39-/38 $ P
0x04620c…0463a0 Dummy {f00=0x0003, f01=0x0190, f02=» p P XIF P RF DCA100 P & P* 0 P* : P* ACTIVATION FROM DCTASK D P* d P* n PDCACTD EQU * x $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4
0x0463a0…046534 (1, 88) Dummy {f00=0x0004, f01=0x0190, f02=»DCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER " P* D P* N P* READ FROM DCTASK X P* r P* | P* REQUEST FROM DC-TASK P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS MESSAGE RECEPTION
0x046534…0466c8 Dummy {f00=0x0004, f01=0x0190, f02=» P IFT EM3270=1 =4 P . P***************************************** ( P* Z P* ANY MESSAGE ORDER d P* " P***************************** P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P RF(Z) DCRD10 NO!! =4
0x0466c8…04685c Dummy {f00=0x0004, f01=0x018e, f02=»U * DK5 P LD A2,ECBCW,A8 GET INFO DK5 & P ORS A2,DWTINF,A6 OR AND STORE DK5 4 " P RF ENDIO COMPLETE REQUEST DK5 ^ P* P* RESPONSE TO READ MODIFIED P* PRESTRM EQU * DK7 4 P LD A1,DWTINF,A6 WAS READ MODIFIED RECEIVED? DK7
0x04685c…0469f0 Dummy {f00=0x0004, f01=0x0190, f02=» P* DK5 P* P* TRANSFER PARAMETERS " P* @ P* J > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS T : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P* P* P IFF CODE=1 & PDCTP LD A2,E
0x0469f0…046b84 Dummy {f00=0x0004, f01=0x0190, f02=»0 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P SLL A2,8 6 PDCTP10 EQU * H $ 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 EQU
0x046b84…046d18 Dummy {f00=0x0004, f01=0x018e, f02=» LDR A3,A6 ADJUST ADDR. VALUE DK4 P ADKL A3,DWTSQ DK4 * , P CWR A1,A3 SOMETHING QUEUED OUR DWT? DK4 F 4 P RF(E) DCTP16 YES, WAIT BEFORE TRANS. PARAM. DK4 v & P LDR* A1,A1 NOT OURS, GET NEXT DK4 P RB DCTP14 DK4 PDCTP16 EQU * ( P L
0x046d18…046eac Dummy {f00=0x0004, f01=0x0190, f02=» P RB DCRTN DK4 PTPTOUT EQU * P LDR A6,A1 RESTORE DWT DK4 0 * P RB DCTP12 LOOK IN THE QUEUE AGAIN DK4 R 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=1
0x046eac…047040 Dummy {f00=0x0004, f01=0x0190, f02=»LD NOT BE IN DC:TAB v * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? J & P ABL(E) DISIOE YES!! REQUEST ERROR x P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB LAST
0x047040…0471d4 (1, 89) Dummy {f00=0x0004, f01=0x0190, f02=»NOT IN TABLE =3 z P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 : " P RB DCTP22 CHECK NEXT ENTRY =3 X 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 P
0x0471d4…047368 Dummy {f00=0x0004, f01=0x0190, f02=»Q INSERT IN STATUS QUEUE P XIF PDCTP30 EQU * , P SUR A1,A1 RETURN CODE ::= 0 @ PENDIO EQU * d $ P CF A15,TENDIO COMPLETE REQUEST x P RB DCRTN P P* P* P* WRITE P* P* P* COMPLETE WHEN:
0x047368…0474fc Dummy {f00=0x0004, f01=0x0190, f02=»QUESTED LENGTH ~ " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! < P XIF X P CF A15,TIMEWR SET TIMER d P CF A15,INSWQ QUEUE REQUEST 2 P LD A1,DWTOR,A6 RESPONSE TO READ MODIFIED? DK7 P ANK A1,/FF MASK ORDER DK7 * P CWK A1,
0x0474fc…047690 Dummy {f00=0x0004, f01=0x0190, f02=» P* READ ! P* ! P* ! P* COMPLETE WHEN: ! & P* MESSAGE RECEIVED ! > P* TIME OUT ! Z P* ! n P* ! x 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 !
0x047690…047824 Dummy {f00=0x0004, f01=0x0190, f02=» LENGTH ! z P ST A3,ECBEL,A8 " P " ( P LDK A1,0 RESET RETURN CODE " 0 * P CF A15,DC:MIN MOV DATA TO USER BUFFER " T P RB DCRTN " P " $ PDCRD10 CF A15,TIMERE START TIMER " P RB DCRTN " P " P* " P* " P* SET STATUS " P
0x047824…0479b8 Dummy {f00=0x0004, f01=0x018e, f02=»Z) DCSS20 DEVICE END " PDCSS10 EQU * # P ST A1,DWTST,A6 # 0 P RB DCTP30 COMPLETE REQUEST # H PDCSS20 EQU * # l P LD A1,DWTST,A6 # P ANK A1,9 # ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT # PDCSS30 EQU * # , P CF A15,INSSQ INSERT DWT IN ST
0x0479b8…047b4c Dummy {f00=0x0004, f01=0x0190, f02=» P* $ P* $ P $ PREQTIM EQU * $ " P LD A2,ECBCW,A8 TIMEOUT VALUE $ 4 $ P ST A2,DWTTIM,A6 SAVE IT IN DWT $ Z P RB DCTP30 TENDIO & DISPATCH $ P $ P* $ ( P* ILLEGAL APPLICATION BUFFER SIZE $ P* $ P $ 8 PIL:LEN LDKL A1,/80
0x047b4c…047ce0 Dummy {f00=0x0004, f01=0x0190, f02=»ART $ ~ P* % P* % P* % P* READ TIMER=TIMERR % * P* % F PTIMERE EQU * % P P LDR A1,A6 % d . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE % v P RF(Z) TIME10 NO TIMING % P ST A2,TIMERR % P CF A15,SETIME % P DATA TOUTRE % P
0x047ce0…047e74 (1, 90) Dummy {f00=0x0004, f01=0x018e, f02=» TIMER % P* & PTOUTRE EQU * & P LDR A6,A1 FETCH DWT & , P CM DWTTP,A6 & H PTOUTR1 EQU * & " P LDK A1,/40 INDICATE TIME OUT & p $ PTOUTR2 RB ENDIO COMPLETE REQUEST & P* & P* WRITE TIMER=TIMWR & P* & PTIMEWR LDR A1,A6 & . P L
0x047e74…048008 Dummy {f00=0x0004, f01=0x0190, f02=» & PTIMWR DATA 0 ' P ST A4,DWTTP,A6 ' P RB TIME10 ' 4 P ' F P* ' P P* TIMEOUT WRITE TIMER ' Z P* ' x PTOUTWR EQU * ' P LDR A6,A1 FETCH DWT ' P CM DWTTP,A6 ' * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ' P* ' & P* THIS INS
0x048008…04819c Dummy {f00=0x0004, f01=0x0190, f02=»OT WRITING ' t ( P CM XACK INDICATE 'ACK NOT EXPECTED' ( P CM FDWTUT ( > P* ( P P* ( Z P RB TOUTR1 ( d P ( v P* ( P* ( P* STOP REQUEST TIMING ( P* ( & P* REMAINING TIME IS RETURNED IN A2 ( P* ( P* ( PCTIME EQU * (
0x04819c…048330 Dummy {f00=0x0004, f01=0x0190, f02=» P CM* DWTTP,A6 STOP TIMER ) P CM DWTTP,A6 ) $ PCTIM10 EQU * ) 8 P RF GBUF10 ) L P ) ^ P* ) h P* GET RECEIVE BUFFER ) r P* ) $ P* CALLING SEQUENCE: CF A15,GRBUF ) P* A4=0 IF NO BUFFER IS FREE ) & P* ELSE A4 CONTAINS BUFFER ADDRESS )
0x048330…0484c4 Dummy {f00=0x0004, f01=0x0190, f02=» P RF(Z) GBUF10 NO BUFFER FREE * . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN * ( P STR A3,A2 * Z * PGBUF10 ADKL A15,4 ADJUST STACK POINTER * l P ABR* A15 RETURN TO CALLER * P * P* * P* * ( P* INSERT DWT IN WRITE REQUEST QUEUE * P*
0x0484c4…048658 Dummy {f00=0x0004, f01=0x0190, f02=»SWQ2 LDR* A3,A2 * $ P RF(Z) INSWQ3 END OF QUEUE FOUND + P LDR A2,A3 + @ P RB INSWQ2 + R PINSWQ3 ADR A4,A6 + d P STR A4,A2 INSERT IN QUEUE + | " P CMR A4 INDICATE END OF QUEUE + P RB GBUF10 RETURN + P* + P* + * P* REMOVE DWT FROM WRIT
0x048658…0487ec Dummy {f00=0x0004, f01=0x0190, f02=»M05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED + PREM06 EQU * , 4 P ADR A4,A6 , H PREM10 LDR* A3,A2 , & P RB(Z) GBUF10 NOT ON QUEUE: RETURN , t P CWR A3,A4 , P RF(E) REM15 , P LDR A2,A3 GET NEXT , P RB REM10 , PREM15 LDR* A3,A4 REMOV
0x0487ec…048980 Dummy {f00=0x0004, f01=0x0190, f02=»TAT=0 , P* A2,A3,A4 DESTROYED - P* A6=DWT - * P* - : PINSSQ EQU * - D ( P LD A2,0,A6 GET TERMINAL ADDRESS DK4 - X * P ANK 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 -
0x048980…048b14 (1, 91) Dummy {f00=0x0004, f01=0x0190, f02=»* - " P* REMOVE DWT FROM STATUS QUEUE . P* . 0 P* A2,A3,A4 DESTROYED . : P* A6=DWT . V P* . f * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR . p P LDK A4,DWTSQ . P RB REM06 . P XIF . P . P* . P* . $ P* QUEUE ALLOCATED RECEIV
0x048b14…048ca8 Dummy {f00=0x0004, f01=0x018e, f02=»,DW1500 QUEUE ON DC-TASK DWT . P XIF / $ P IFT MESPAS=0 / 0 $ P LDR A2,A6 QUEUE ON TERMINAL DWT / F P XIF / n , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE / z PQR100 EQU * / P LDR* A3,A2 / $ P RF(Z) QR200 END OF QUEUE FOUND / P LDR A2,A3 /
0x048ca8…048e3c Dummy {f00=0x0004, f01=0x0190, f02=» P* 0 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE 0 P* 0 D 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED 0 N P* 0 PCKMESS LDKL A6,DW1500 0 P LD A1,DWTST,A6 0 P RF(N) CKM110 NO REQUEST 0 P LDK A1,2 READ REQUEST ? 0 P C
0x048e3c…048fd0 Dummy {f00=0x0004, f01=0x0190, f02=»F(Z) CKM200 NO READ IN QUEUE 0 P 1 $ P 1 , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER 1 4 . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE 1 d " P ADK A3,6 MOVE POINTER TO TEXT 1 & P DONT DESTROY BUFFER ADDRESS =6 1 P LD A4,-4,A3 1 0 P ST A4,ECBEL,A
0x048fd0…049164 Dummy {f00=0x0004, f01=0x0190, f02=»RN CODE 1 | & P LDR A4,A3 RECEIVE BUFFER ADDRESS 2 , P CF A15,DC:MIN MOVE DATA TO USER BUFFER 2 : * PCKM110 ADKL A15,4 ADJUST STACK POINTER 2 j P ABR* A15 RETURN 2 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS 2 , P OR A1,DCONOF TAKE CARE OF P
0x049164…0492f8 Dummy {f00=0x0004, f01=0x0190, f02=» CHANGE 2 r 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST 3 P RB CKM110 3 D P 3 V P 3 ` @ P************************************************************ 3 h P* 3 P* ABORT ROUTINE 3 P* 3 P************************ 3 P 3 & PABORT
0x0492f8…04948c Dummy {f00=0x0004, f01=0x0190, f02=»:10 LD A1,DWTOR,A6 ORDER CODE 3 P SUK A1,2 4 & * P RF(Z) AB:RTN READ REQUEST. NO ACTION 4 8 P SUK A1,4 4 f . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE 4 x P 4 . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 4 & P LD A2,FDWTUT WRITING DWT ADDRESS 4
0x04948c…049620 Dummy {f00=0x0004, f01=0x0190, f02=» PAB:RTN EQU * 5 P IFT CPU852=1 5 P ADKL A15,4 5 . $ P ABR* A15 RETURN IN INHIBIT MODE 5 B P XIF 5 j P IFF CPU852=1 5 v P RTN A15 5 P XIF 5 P 5 P 5 P 5 P* 5 P* 5 P* STORE REGISTER A3-A8 5 $ P* CALLING SEQUENSE
0x049620…0497b4 (1, 92) Dummy {f00=0x0005, f01=0x0190, f02=»T A4,LCA4 5 P ST A5,LCA5 6 P ST A6,LCA6 6 & P ST A7,LCA7 6 : P ST A8,LCA8 6 N P RF RTNA15 RETURN 6 b P 6 | PLDREG LDKL A3,0 6 PLCA3 EQU *-2 6 P LDKL A4,0 6 PLCA4 EQU *-2 6 P LDKL A5,0 6 PLCA5 EQU *-2 6 P LDKL A6,0
0x0497b4…049948 Dummy {f00=0x0005, f01=0x018e, f02=» 6 P ABR* A15 7 P 7 P* 7 $ P* 7 . P* TIMER VALUES 7 8 P* 7 N P* 7 X * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 7 b " PTIMNAK EQU 3 DELAY FOR NAK DK 7 P* 7 P* 7 P* CHARACTER EQUATES 7 P* 7 & PSF EQU X'1D' START FIELD
0x049948…049adc Dummy {f00=0x0005, f01=0x0190, f02=» PENQ EQU /05 8 PDLE EQU /10 8 PEOT EQU /04 8 , PNAK EQU /15 8 @ PESC EQU /1B 8 T PSBA EQU /11 8 h PGP EQU /22 8 | PRDBCOM EQU /32 8 PRDMCOM EQU /36 8 P IFT CODE=0 8 PPAR EQU /80 8 PRVI EQU /3C 8 PACK0 EQU /30 8
0x049adc…049c70 Dummy {f00=0x0005, f01=0x0190, f02=»CK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 8 P XIF 9 2 P IFT CODE=1 9 > PPAR EQU /00 9 R PWACK EQU /2C 9 f PRVI EQU XRVI DK 9 z PACK0 EQU /18 9 PACK1 EQU /2F 9 PSYNEBC EQU /32 9 P XIF 9 P 9 P* 9 P* 9 P* PROCEDURE WO
0x049c70…049e04 Dummy {f00=0x0005, f01=0x0190, f02=» DATA 0 ACK EXPECTED 9 PXSEL DATA 0 SELECTED : PXETX DATA 0 ETX SENT : 8 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT : T " PXRB DATA 0 READ BUFFER SWITCH : PCACK DATA 0 ACK COUNTER : * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP : P* : P
0x049e04…049f98 Dummy {f00=0x0005, f01=0x018e, f02=»NDEX : | 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK ; $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR ; @ . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING ; h , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA ; ( PCRDBUF DATA 0 READ BUFFER COUNTER DK ; P* ; P* ; $
0x049f98…04a12c Dummy {f00=0x0005, f01=0x0190, f02=» ; P* < P DATA /4248 < P DATA /4242 < & P* < : 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED < D , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED < z P XIF < P < P* < P* < P* BASIC RECEIVE MODE < P* < " P* ENTERED EVER
0x04a12c…04a2c0 Dummy {f00=0x0005, f01=0x0190, f02=»VER < r P XIF = PBRM EQU * = P LDKL A5,STB LOAD STACKBASE = * P IFT P6805=0 = N 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATUS = b P XIF = P IFT P6805=1 = * P CF A15,CKMESS CHECK IF STATUS CHANGE = P XIF = PBRM010 EQU * = P I
0x04a2c0…04a454 (1, 93) Dummy {f00=0x0005, f01=0x0190, f02=»,/100+LSPEED+SYNEBC SPECIFY SYN PATTERN = P XIF > 0 P IFT P6805=0 > < " P CIO A2,1,LCUIN START RECEIVER > P P XIF > v P IFT P6805=1 > P IFF CODE=1 > P LDK A2,/0C > " P CIO A2,1,LCUIN START RECEIVER > P LDK A2,SYN > * P OTR A2,1,LCUIN
0x04a454…04a5e8 Dummy {f00=0x0005, f01=0x0190, f02=»ER > t P LDK A2,SYNEBC ? * P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER ? P RB(NA) BRMHLT ? N P XIF ? d PBRM100 EQU * ? p $ P CF A5,READP READ ONE CHARACTER ? P RF(NZ) BRM150 PARITY ERROR ? P LDR A1,A2 ? P SUK A1,STX ? P RF(Z) BRM300 STX
0x04a5e8…04a77c Dummy {f00=0x0005, f01=0x0190, f02=»UK A1,DLE-ENQ ? P ABL(Z) BRM600 DLE RECEIVED @ P SUK A1,NAK-DLE @ : P ABL(Z) BRM500 NAK RECEIVED @ R P IFT MSV1=0 @ v P LDR A8,A2 @ $ P CF A5,READP READ ONE CHARACTER @ P RF(NZ) BRM150 PARITY ERROR @ P CWR A2,A8 @ & P RF(NE) BRM150
0x04a77c…04a910 Dummy {f00=0x0005, f01=0x0190, f02=»,DW1500 @ P RF(NE) BRM150 NOT THIS TCU A PBRM110 EQU * A 4 P CF A5,READP READ 1:ST STA A H P RF(NZ) BRM150 PARITY ERROR A j P LDR A8,A2 A P IFT MSV1=0 A P CF A5,READP READ 2:ND STA A P RF(NZ) BRM150 PARITY ERROR A P CWR A2,A8 A
0x04a910…04aaa4 Dummy {f00=0x0005, f01=0x0190, f02=»R A P XIF B P IFT P6805=1 B P SUK A2,ENQ B * P XIF B > P RF(NZ) BRM150 NOT ENQ B J P IFT P6805=0 B h $ P CF A5,READ READ LAST CHARACTER B | P B " P* TRAILING PAD CAN BE CHECKED B P B P CIO A1,0,LCUIN HALT INPUT B P SST A1,LCUI
0x04aaa4…04ac38 Dummy {f00=0x0005, f01=0x0190, f02=» P ST A1,CACK LOAD ACK COUNTER C P LDR A2,A8 C ( P SUK A3,2 C : P RF(Z) BRM120 SELECTING C L P CWK A8,GP C l P ABL(E) GPOLL GENERAL POLL C ~ P IFT MSV1=1 C 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) C P XIF C P IFT MSV1=0 C
0x04ac38…04adcc Dummy {f00=0x0005, f01=0x018e, f02=»M INVALID POLL C PBRM120 EQU * D & P CF A5,FINTER CHECK IF STA PRESENT D * P LDR A6,A3 LOAD DWT TO A6 D T P RF(NZ) BRM130 STA FOUND D v P IFT MSV1=0 D $ P LDKL A6,DW1500 SELECT TO DCTASK D PBRM130 EQU * D P ABL SELECT D P XIF D
0x04adcc…04af60 Dummy {f00=0x0005, f01=0x0190, f02=» D PBRM150 EQU * E P ANK A2,/7F E P SUK A2,/7F E 0 P RB(Z) BRM RESYNCHRONIZE E D & P CF A5,READ READ ANOTHER CHARACTER E d P RB BRM150 E P E P* E P* E P* EOT HAS BEEN RECEIVED E P* E P* E PBRM200 EQU * E & P C
0x04af60…04b0f4 (1, 94) Dummy {f00=0x0005, f01=0x018e, f02=»220 ACK IS NOT EXPECTED E " P LD A6,FDWTUT GET WRITING DWT F P RF(Z) BRM210 NO ONE WRITING F F P LDK A1,2 SET RC=2 F j ( P CF A5,CWRITE COMPLETE WRITE REQUEST F PBRM210 EQU * F " P CM XACK RESET 'ACK EXPECTED' F PBRM220 EQU * F P CM XSEL R
0x04b0f4…04b288 Dummy {f00=0x0005, f01=0x018e, f02=» F P CF A5,HPTIM G P LD A1,XSEL G P RF(Z) BRM315 NOT SELECTED G 0 P LD A1,DCRBUF G R & P RB(Z) BRM150 NO BUFFER AVAILABLE G h PBRM305 EQU * G P CF A5,RDMESS READ MESSAGE G P SUK A7,1 G P RF(NZ) BRM320 MESSAGE OK G PBRM310 EQU *
0x04b288…04b41c Dummy {f00=0x0005, f01=0x0190, f02=» P IFT RCOM=1 H P LD A1,XACK H & P RF(Z) BRM316 ACK IS NOT EXPECTED H , P LD A1,DCRBUF H V & P RF(Z) BRM316 NO BUFFER AVAILABLE H l " P LD A6,FDWTUT GET WRITING DWT H 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE H P LDR* A2,A6 GET STA H
0x04b41c…04b5b0 Dummy {f00=0x0005, f01=0x0190, f02=»,DWTCUR,A6 DK6 H P LDK A1,0 SET RC=0 I ( P CF A5,CWRITE COMPLETE WRITE REQUEST I 2 P CM CACK PRESET ACK-1 =7 I ^ P RB BRM305 READ THE MESSAGE I ~ P XIF I ( PBRM316 CF A5,READ READ ONE CHARACTER I P IFF P6805=1 =8 I P SUK A2,ENQ+PAR I
0x04b5b0…04b744 Dummy {f00=0x0005, f01=0x0190, f02=»M220 I PBRM320 EQU * J P IM XSTA INDICATE MESSAGE OK J $ P LD A4,DCRBUF GET BUFFER ADDRESS J D P ADK A4,6 J l P CW A4,FBLST J ~ " P RF(NE) BRM325 NOT FIRST BLOCK J P IFF RCOM=0 J P LDK A1,ESC J P CCR A1,A4 J P RB(NE) BRM310 ESC NOT
0x04b744…04b8d8 Dummy {f00=0x0005, f01=0x0190, f02=»ECEIVED J t P SUK A1,RDMCOM-RDBCOM K & P RF(Z) RDMOD READ BUFFER RECEIVED K . P XIF K X PBRM325 EQU * K d P SUK A7,1 K x & P RF(Z) BRM340 MESSAGE ENDED BY ETB K P CM FBAX K * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER K P ADK A4,6 K P LD
0x04b8d8…04ba6c Dummy {f00=0x0005, f01=0x0190, f02=»,TEBCDIC,A2 K P LD A1,DCRBUF L P RF(Z) BRM326 L * P ST A2,+4,A1 L @ P XIF L T PBRM326 EQU * L ` P CWK A6,DW1500 L t , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK L P LD A2,DWTST,A6 GET STATUS L P RF(N) BRM330 NO REQUEST L P IFT EM3270=
0x04ba6c…04bc00 Dummy {f00=0x0005, f01=0x018e, f02=»,A6 L " P RF(NE) BRM330 NO READ REQUEST M PBRM327 EQU * M 2 P LDK A1,0 SET RC=0 M F $ P LD A8,DWTECB,A6 GET ECB ADDRESS M ` P LD A3,-4,A4 GET LENGTH M * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH M & P CF A15,CTIME STOP REQUEST TIMING M ( P ST A2,E
0x04bc00…04bd94 (1, 95) Dummy {f00=0x0005, f01=0x0190, f02=» P IFT STAT=1 N P LC A2,+2,A4 GET WCC/CCC N P ANK A2,/FF N 8 P LC A2,TEBCDI,A2 TRANSLATE N L & P LD A3,DWTINF,A6 GET DWT INFO DK5 N n P ANK A3,1 GET LPBIT DK5 N P RF(Z) BRM328 NOT LP DK5 N P ANK A2,8 N P RF(Z) BRM328 N P LD A2,D
0x04bd94…04bf28 Dummy {f00=0x0005, f01=0x0190, f02=»4 N P LD A2,DWTOR,A6 ORDER =4 O , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 O * & P SUK A4,6 ADJUST BUFFER ADDRESS =4 O Z ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 O P RF BRM32A =4 O P XIF =4 O PBRM329 EQU * =4 O P O P LDK A1,0 RESET RE
0x04bf28…04c0bc Dummy {f00=0x0005, f01=0x0190, f02=»QUEST O v P RF BRM345 P P P PBRM330 EQU * P * P IFT EM3270=1 =4 P > P LD A1,DWTST,A6 STATUS =4 P X P RF(N) BRM335 NO REQUEST =4 P z P LD A1,DWTOR,A6 ORDER =4 P , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 P & P CF A15,TENDIO COMPLETE RE
0x04c0bc…04c250 Dummy {f00=0x0005, f01=0x018e, f02=» CF A15,CKMESS COMPLETE DCTASK READ IF ANY P PBRM340 EQU * Q 2 P CF A5,TRACK SEND ACK 0/1 Q F P ABL BRM Q h PBRM345 EQU * Q x P IFT STAT=1 Q , P LD A1,DWTINF,A6 READ-MOD. RECEIVED? DK7 Q P ANKL A1,/0002 DK7 Q 4 P RF(NZ) BRM410 WAIT FOR RESP
0x04c250…04c3e4 Dummy {f00=0x0005, f01=0x0190, f02=» Q v P RF BRM410 R P XIF R P IFF STAT=1 R & P RB BRM340 R : P XIF R L P R X P* R b P* R l , P* READ MODIFIED OR READ BUFFER RECEIVED R v P* R P* R P IFF RCOM=0 R $ PRDBUF EQU * READ BUFFER COMMAND R PRDMOD EQU * R "
0x04c3e4…04c578 Dummy {f00=0x0005, f01=0x0190, f02=» ACK COUNTER R z P DB S 0 P LDK A1,/02 INDICATE READ-MOD. RECEIVED DK7 S " P ORS A1,DWTINF,A6 DK7 S V 2 P LDKL A1,/4000 SET RETURN CODE =READ-MOD. DK7 S t ( P RB BRM32A COMPLETE THE REQUEST DK7 S P XIF S P* S P* S P* ENQ HAS BEEN REC
0x04c578…04c70c Dummy {f00=0x0005, f01=0x0190, f02=»NSMISSION OF MESSAGE S | P OR A1,XSEL T " P RF(Z) BRM410 IN CONTROL STATE T 0 . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE T V PBRM410 EQU * T P ABL BRM T P T P* T P* T P* NAK HAS BEEN RECEIVED T P* T P* T PBRM500 EQU
0x04c70c…04c8a0 Dummy {f00=0x0005, f01=0x018e, f02=»RM410 IN CONTROL STATE T P RF BRM636 U PBRM510 EQU * U 0 P DB U D P LDK A1,0 U R P CIO A1,0,LCUIN DK U d P SST A1,LCUIN DK U P CF A15,STREG DK U P CF A15,SETIME DK U P DATA BRM520,TIMNAK DK U P ABL TDISP DK U PBRM5
0x04c8a0…04ca34 (1, 96) Dummy {f00=0x0006, f01=0x0190, f02=» 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED V P XIF V 8 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK V D & P SU A1,FECBBA COMPUTE BUFFER INDEX V x P ST A1,FBAX V P ABL POL130 V P* V P* V P* DLE HAS BEEN RECEIVED V P* V P
0x04ca34…04cbc8 Dummy {f00=0x0006, f01=0x0190, f02=»,READ READ SECOND CHARACTER V P IFF P6805=1 =8 W $ P CWK A2,ACK0+PAR W < P XIF =8 W T P IFT P6805=1 =8 W f P CWK A2,ACK0 =8 W ~ P XIF =8 W P RF(NE) BRM620 W P* W P* ACK , 0 RECEIVED W P* W P LD A1,CACK GET ACKCOUNTER W
0x04cbc8…04cd5c Dummy {f00=0x0006, f01=0x0190, f02=»B BRM410 W PBRM620 EQU * X P CWK A2,ACK1 X $ P RF(NE) BRM650 X 8 P* X N P* ACK , 1 RECEIVED X X P* X r P LD A1,CACK GET ACK COUNTER X | $ P RB(Z) BRM610 ACK,1 NOT EXPECTED X PBRM630 EQU * X P LD A1,XETX X P RF(Z) BRM640 ETX NOT SE
0x04cd5c…04cef0 Dummy {f00=0x0006, f01=0x018e, f02=»FF STAT=0 X P LD A2,XSTA Y . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED Y & P XIF Y X ( P CF A5,CWRITE COMPLETE WRITE REQUEST Y d PBRM636 EQU * Y P CF A5,TREOT SEND EOT Y P IFT RCOM=1 Y P Y P CM XRB RESET READ BUFFER Y P XIF Y
0x04cef0…04d084 Dummy {f00=0x0006, f01=0x0190, f02=» Y P IFF P6805=1 =8 Z P CWK A2,RVI+PAR Z P XIF =8 Z 8 P IFT P6805=1 =8 Z J P CWK A2,RVI =8 Z b P XIF =8 Z z ( P RB(NE) BRM610 INVALID DLE SEQUENCE Z " P CM XACK RESET 'EXPECTING ACK' Z P LD A1,XETX Z $ P RF(NZ) BRM660 ETX HAS
0x04d084…04d218 Dummy {f00=0x0006, f01=0x0190, f02=»0 Z P [ P* [ P* [ " P* STATUS HAS BEEN TRANSMITTED [ ( P* [ N P* [ X PBRM670 EQU * [ b " P LD A6,FDWTUT GET DWT ADDRESS [ v , P CF A15,REMOVS REMOVE FROM STATUS QUEUE [ P CM XSTA CLEAR 'STATUS SENT' [ " P CM XACK CLEAR 'ACK EXPE
0x04d218…04d3ac Dummy {f00=0x0006, f01=0x0190, f02=»AR STATUS [ | P RB BRM636 P XIF $ P 0 P* : P* D P* SELECT HAS BEEN RECEIVED N P* p P* z PSELECT EQU * P LD A1,XACK =5 * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 P IFF STAT=0 P LD A1,DWTST,A6 GET ST
0x04d3ac…04d540 Dummy {f00=0x0006, f01=0x0190, f02=»TAT=1 P RF SEL110 ] P XIF ] PSEL100 EQU * ] , P ABL BRM ] @ PSEL110 EQU * ] P P IFT STAT+NOWACK=1 ] d P ANK A3,8 ] ~ P RF(NZ) SEL115 BUSY ] P XIF ] P IFT STAT+NOWACK=2 ] P ANK A3,8 ] " P RF(Z) SEL111 DEVICE NOT BUSY ]
0x04d540…04d6d4 (1, 97) Dummy {f00=0x0006, f01=0x0190, f02=»BLE ] t PSEL115 EQU * ^ P IFF STAT+NOWACK=2 ^ P CF A5,TRWACK SEND WACK ^ : P XIF ^ Z P RB SEL100 ^ f PSEL120 EQU * ^ x , P CF A5,PRREC PREPARE FOR TEXT RECEPTION ^ P CF A5,TRACK SEND ACK,0 ^ P RB SEL100 ^ P ^ P* ^ P* ^
0x04d6d4…04d868 Dummy {f00=0x0006, f01=0x0190, f02=»DEX ^ x P IFT CODE=1 _ . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC _ P XIF _ R $ P ST A2,+4,A1 SAVE STA IN BUFFER _ ^ P IM XSTA _ " P ST A6,FDWTIN STORE INPUT DWT _ P RTN A5 _ P _ P* _ P* _ $ P* GENERAL POLL HAS BEEN RECEIV
0x04d868…04d9fc Dummy {f00=0x0006, f01=0x0190, f02=»END ENQ =5 _ | * P CF A5,SPTIM START PROCEDURE TIMER =5 ` " P ABL BRM WAIT FOR RESPONSE =5 ` @ PPOL020 EQU * =5 ` f " P CF A5,CPTIM CHECK POLL TIMER ` ~ P IFF STAT=0 ` P LD A6,DCSTQ ` & P RF(Z) POL110 NO STATUS TO BE SENT ` " P SUK A6,DWTSQ GE
0x04d9fc…04db90 Dummy {f00=0x0006, f01=0x0190, f02=»PECTED' ` | P XIF a P IFF STAT=1 a P RF POL110 a 0 P XIF a B PPOL100 EQU * a N P ABL BRM a b PPOL110 EQU * a r P LD A6,DCWRQ a " P RF(NZ) POL120 WRITE ON QUEUE a PPOL115 EQU * a P CF A5,TREOT SEND EOT a P RB POL100 a PPOL1
0x04db90…04dd24 Dummy {f00=0x0006, f01=0x0190, f02=» CF A15,REMOVW a P RB POL115 b PPOL126 EQU * b ( P ST A8,FECB SAVE ECB ADDRESS b < P ST A6,FDWTUT SAVE A6 b ` P b ~ P IFF MMUPAG=0 b $ P LDKL A4,MMUBUF MMU WORK BUFFER b P ST A4,ECBBA,A8 b . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER b
0x04dd24…04deb8 Dummy {f00=0x0006, f01=0x018e, f02=»FER ADDRESS b z ( P SUK A3,2 SKIP FIRST WORD OF BUFFER c P ST A3,FECBRL SAVE LENGTH c @ P CM FBAX RESET BUFFER INDEX c b PPOL130 EQU * c P CM XETX RESET 'ETX SENT' c P CM XSTA c P CF A5,TRTEXT SEND ONE BLOCK c & P CF A5,SPTIM START PROCE
0x04deb8…04e04c Dummy {f00=0x0006, f01=0x0190, f02=» c j P* d PSPOLLX EQU * DK7 d & P LDK A1,/06 FAKE A WRITE REQUEST d , P ST A1,DWTOR,A6 DK7 d V 6 P LDKL A1,/FFFF-/0002 CLEAR READ MODIFIED FLAG DK7 d r P ANS A1,DWTINF,A6 d $ P LDKL A5,STB SET STACK BASE DK7 d * P RF SPOLL PROCESS AS SPECI
0x04e04c…04e1e0 Dummy {f00=0x0006, f01=0x0190, f02=» STAT+SPECP=0 d P LD A1,XACK =5 e " P RB(NZ) POL010 ACK EXPECTED =5 e . P LDR A7,A6 SAVE A6 e T P CF A5,CPTIM CHECK POLLTIMER e n P LDR A6,A7 RESTORE A6 e P IFT STAT=1 e P LD A1,DWTST,A6 GET STATUS e P ANK A1,7 e " P RB(NZ) POL050 P
0x04e1e0…04e374 (1, 98) Dummy {f00=0x0006, f01=0x018e, f02=»ORDER e | P SUK A1,6 f P RB(Z) POL125 WRITE REQUEST f P SUK A1,2 f D " P RB(Z) POL125 EXCHANGE REQUEST f V P XIF f | P RB POL115 SEND EOT f P f P* f P* f 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED f P* f P
0x04e374…04e508 Dummy {f00=0x0006, f01=0x018e, f02=» f $ P LD A2,XRB IF RCOM, SKIP IT DK6 g P RF(NZ) CWR900 DK6 g 0 P XIF g L P LD A2,DWTST,A6 g P RF(N) CWR900 NO REQUEST g t P LD A2,DWTOR,A6 GET ORDER g P SUK A2,6 g P RF(Z) CWR100 WRITE REQUEST g P SUK A2,2 g ( P RF(NZ) CW
0x04e508…04e69c Dummy {f00=0x0006, f01=0x0190, f02=» ( P ST A2,DWTOR,A6 INDICATE READ ORDER h P RF CWR150 h 0 & PCWR100 LD A8,FECB GET ECB ADDRESS h B P CF A15,CTIME STOP TIMING h l P LDR A8,A8 h P RF(Z) CWR150 h P ST A2,ECBCW,A8 h $ P CF A15,TENDIO COMPLETE REQUEST h PCWR150 EQU * h *
0x04e69c…04e830 Dummy {f00=0x0006, f01=0x0190, f02=» h P IFT RCOM=1 i " P LD A2,XRB READ MODIFIED ? DK6 i P RF(Z) CWR910 DK6 i B $ P LD A2,DWTCUR,A6 RESTORE ECB DK6 i P ST A2,DWTECB,A6 DK6 i PCWR910 EQU * DK6 i P XIF i P RTN A5 i P i P* i P* i P* READ ONE TEXT
0x04e830…04e9c4 Dummy {f00=0x0006, f01=0x0190, f02=»R OVERFLOW i l ( P* 2 : IF CORRECT ETB BLOCK RECEIVED j P* j > PRDMESS EQU * j H $ P LD A4,DCRBUF GET BUFFER ADDRESS j P ADK A4,6 RESERVE HEADER j P LDK A3,0 j P LD A1,XSTA j $ P RF(NZ) RDM050 LAST INPUT WAS OK j " P LD A1,FBLST COMPUTE N
0x04e9c4…04eb58 Dummy {f00=0x0006, f01=0x018e, f02=»T OF BLOCK j v PRDM075 EQU * k P CM XSTA k & P LDK A7,0 RESET LRC k 6 P k R P IFT IBMCHR=1 k Z P LD A1,FBAX k p " P RF(NZ) RDM100 NOT FIRST BLOCK k P CF A5,READP k P RF(NZ) RDM120 PARITY ERROR k P CWK A2,ESC k P RF(NE) RDM110 k
0x04eb58…04ecec Dummy {f00=0x0006, f01=0x0190, f02=» k n P RF(NZ) RDM120 PARITY ERROR l PRDM110 EQU * l , P CWK A2,ETX l @ P RF(E) RDM130 ETX RECEIVED l T P CWK A2,ETB l v P RF(E) RDM160 ETB RECEIVED l P CWK A2,ITB l P RF(E) RDM170 ITB RECEIVED l P CWK A2,ENQ l 2 P RF(E) RDM120 SKIP
0x04ecec…04ee80 Dummy {f00=0x0006, f01=0x0190, f02=»1 l P m P LDR A1,A2 m P SUK A1,DC1+3 m $ P RF(P) RDM115 NOT DC1-DC3 m : P ADK A1,3 m P RF(N) RDM115 NOT DC1-DC3 m n P SLL A1,6 m P LDR A8,A1 m * P CF A5,READP 8-BIT CHAR GET NEXT PART m P RF(NZ) RDM120 PARITY ERROR m * P S
0x04ee80…04f014 (1, 99) Dummy {f00=0x0006, f01=0x0190, f02=» ADK A4,1 INCREMENT POINTER m $ P IM FBAX INCREMENT BUFFER INDEX n $ P LD A1,FBAX n L P CWK A1,RBUFL+RBUFL n ` P RB(NG) RDM100 NOT OVERFLOW n | P* n P* BUFFER OVERFLOW n P* n P RF RDM140 ABORT INPUT n PRDM120 EQU * n & P LDK A3,
0x04f014…04f1a8 Dummy {f00=0x0006, f01=0x0190, f02=» n P* o PRDM130 EQU * o $ P LD A1,DCRBUF GET BUFFER ADDRESS o & P LD A2,FBAX GET BUFFER INDEX o N 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER o r P IFF CODE=1 o P CF A5,RDLRC o P RF(Z) RDM150 LRC WAS OK o P XIF o P IFT CODE=1
0x04f1a8…04f33c Dummy {f00=0x0006, f01=0x0190, f02=»ALID MESSAGE o z PRDM150 EQU * p $ P LDR A7,A3 SAVE RESULT REGISTER p ( P CF A5,HALTIN HALT INPUT p P P IFT P6805=1 p p P ORR A7,A1 PARITY ERROR p P XIF p P RTN A5 p P* p P* ETB RECEIVED p P* p PRDM160 EQU * p P LDR A3,A3
0x04f33c…04f4d0 Dummy {f00=0x0006, f01=0x018e, f02=» p PRDM170 EQU * q P IFF CODE=1 q P CF A5,RDLRC q 0 " P RB(NZ) RDM120 LRC WAS NOT OK q D P XIF q j P IFT CODE=1 q v & P CF A5,RDCRC READ CRC AND CHECK IT q " P RB(NE) RDM120 CRC WAS NOT OK q P XIF q P RB RDM100 q P q P* q
0x04f4d0…04f664 Dummy {f00=0x0006, f01=0x0190, f02=» q l P RF(NZ) TRDLE r P LDK A3,ACK0 LOAD ACK0 r P RF TRDLE r < P* r N P* TRANSMIT WACK r X P* r p PTRWACK LDK A3,WACK LOAD WACK r z P RF TRDLE r P* r P* TRANSMIT RVI r P* r P IFF STAT=0 r PTRRVI LDK A3,RVI LOAD RVI
0x04f664…04f7f8 Dummy {f00=0x0006, f01=0x0190, f02=»C A3,RESEND+1 r P RF TRREP s P s ( P* s 2 P* TRANSMIT NAK s < P* s R PTRNAK LDK A3,NAK LOAD NAK s P RF TREN10 s ~ P* s P* TRANSMIT EOT s P* s PTREOT LDK A3,EOT LOAD EOT s P RF TREN10 s P* s P* TRANSMIT ENQ s
0x04f7f8…04f98c Dummy {f00=0x0006, f01=0x0190, f02=»D+1 s $ PTRREP CF A5,TRSYNC START OUTPUT t & P LC A2,RESEND GET FIRST CHARACTER t 4 P CF A5,WRITEP SEND IT t ^ & P LC A2,RESEND+1 GET NEXT CHARACTER t | P CF A5,WRITEP SEND IT t PTRRE10 LDK A2,/FF t P CF A5,WRIT05 SEND PAD t P LDK A2,/FF
0x04f98c…04fb20 Dummy {f00=0x0006, f01=0x018e, f02=» P XIF u & P SST A2,LCUUT PERFORM SST AT ONCE u P IFF LOGG=0 u : ( P CF A5,LOGSST LOG TRANSMITTER STATUS u N P XIF u z P RTN A5 u P u P* u P* u P* TRANSMIT ONE TEXT BLOCK u P* u P* u PTRTEXT EQU * u P CF A5,TRS
0x04fb20…04fcb4 (1, 100) Dummy {f00=0x0007, f01=0x0190, f02=» ( P RF(NZ) TRT050 NOT START OF MESSAGE v P v 0 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? v 8 P RF(NZ) TRT050 YES !! v n P v P LD A4,FECBBA v " P LC A3,+2,A4 GET AID CHARACTER v P SUK A3,/30 v $ P RF(NZ) TRT050 NOT TEST REQUEST v
0x04fcb4…04fe48 Dummy {f00=0x0007, f01=0x0190, f02=»2,'/' v P CF A5,WRITE SEND / w P LDK A2,STX w * P CF A5,WRITE SEND STX w > ( P ST A4,FBLST REMEMBER START OF BLOCK w ( P ADK A4,5 SKIP AID + CURSOR ADDRESS w P LDK A3,5 ADJUST LENGTH w P LDK A2,3 w P ST A2,FBAX w P RF TRT100 w
0x04fe48…04ffdc Dummy {f00=0x0007, f01=0x0190, f02=» w | $ P LD A4,FECBBA GET BUFFER ADDRESS x P AD A4,FBAX ADD BUFFER INDEX x 0 ( P ST A4,FBLST REMEMBER START OF BLOCK x T ( P ADK A4,2 SKIP FIRST WORD OF BUFFER x & P LDK A3,0 RESET CHARACTER COUNTER x P LD A1,FBAX GET BUFFER INDEX x " P RF(NZ) TRT100
0x04ffdc…050170 Dummy {f00=0x0007, f01=0x0190, f02=» x z P IFT IBMCHR=1 y P IFF RCOM=1 y " P LDK A2,/27 SEND ENTER AS AID y 2 P CF A5,WRITEP y X " P LDK A2,/20 AND CURSOR ADDRESS y n P CF A5,WRITEP y P LDK A2,/20 y P CF A5,WRITEP y P XIF y P IFT RCOM=1 y P y P RF TRT070
0x050170…050304 Dummy {f00=0x0007, f01=0x0190, f02=»D* A3,DWTCUR,A6 CURSOR ADDRESS y . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER z & P LDK A3,5 SET BLOCK COUNT z X P RF TRT100 z z PTRT070 EQU * z P XIF z P z P LDK A3,2 z PTRT100 EQU * z P LCR A2,A4 GET ONE CHARACTER z P ADK A4,1
0x050304…050498 Dummy {f00=0x0007, f01=0x0190, f02=»********************** z j P* { , P* CHECK IF ATTRIBUTE CHARACTER OR NULL { ( P* { X 4 P*********************************************** { b P { & P CWK A2,X'20' ATTRIBUTE CHARACTER { P RF(L) TRT101 YES!!! { P XIF { P IFT DMRK=1 { P
0x050498…05062c Dummy {f00=0x0007, f01=0x0190, f02=» ? { v " P RF(NE) TRT103 NO,GO TO TRT103 | P LDK A2,/19 | 0 PTRT103 EQU * | D P CWK A2,X'7F' NULL ?? | X P RF(NE) TRT105 | v P SUK A2,1 | P XIF | P IFT RCOM=1 | P RF TRT105 | P | PTRT101 EQU * | P | P LDK A2,SF | " P C
0x05062c…0507c0 Dummy {f00=0x0007, f01=0x0190, f02=»ATTRIBUTE | v P ANK A1,1 } P ANK A2,/1E MASK } $ P SLL A2,1 } < & P ORR A2,A1 IBM ATTRIBUTE COMPOSED } N " P ORK A2,/40 BIT ALWAYS SET ONE } x P LC A2,TASCII,A2 } & P CWK A2,/18 CHECK SPECIAL ATTRIBUT } P RF(NE) TRT104 } P LDK A2,/30 }
0x0507c0…050954 (1, 101) Dummy {f00=0x0007, f01=0x0190, f02=» CWK A2,/07 } ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT ~ P CF A5,WRITEP SEND CHARACTER ~ @ PTRT110 EQU * ~ d $ P IM FBAX INCREMENT BUFFER INDEX ~ x & P LD A1,FECBRL GET REQUESTED LENGTH ~ P CW A1,FBAX ~ " P RF(NG) TRT130 END OF MESSAGE ~ * P ADK
0x050954…050ae8 Dummy {f00=0x0007, f01=0x0190, f02=»K IF SBA AT END OF BLOCK ~ P CC A1,-2,A4 P RF(E) TRT115 YES 4 P CC A1,-1,A4 N P RF(NE) TRT116 NO SEND ETB b ( P LCR A2,A4 GET FIRST BYTE AFTER SBA P ADK A4,1 INREMENT POINTER P CF A5,WRITEP SEND IT P IM FBAX INCREMENT INDEX
0x050ae8…050c7c Dummy {f00=0x0007, f01=0x018e, f02=»16 EQU * P LDK A2,ETB LOAD ETB PTRT120 EQU * , P CF A5,WRITEP SEND IT @ P IFF CODE=1 ^ P LDR A2,A7 GET LRC r P CF A5,WRITEP SEND LRC P XIF P IFT CODE=1 P LDR A8,A7 SAVE CURRENT CRC P LDR A2,A7 P ANK A2,
0x050c7c…050e10 Dummy {f00=0x0007, f01=0x0190, f02=» P ABL TRRE10 HALT OUTPUT PTRT130 EQU * $ P IM XETX INDICATE 'ETX SENT' 8 PTRT140 EQU * P LDK A2,ETX LOAD ETX p P RB TRT120 SEND ETX AND LRC P P* P* P* TRANSMIT STATUS MESSAGE P* P* P IFF
0x050e10…050fa4 Dummy {f00=0x0007, f01=0x018e, f02=» P LDK A2,SOH P CF A5,WRITE SEND SOH P LDK A7,0 REST LRC 6 P LDK A2,'%' P P CF A5,WRITEP SEND '%' d P LDK A2,'R' P CF A5,WRITEP SEND 'R' P LDK A2,STX P CF A5,WRITE SEND STX P LC A2,DW1500+1 P CF A5,WRI
0x050fa4…051138 Dummy {f00=0x0007, f01=0x0190, f02=» P SRL A1,1 $ P LC A2,SSTAB,A1 GET STATUS BYTE P CF A5,WRITEP SEND S/S 0 > P LDK A2,NOIR PRELOAD S/S 1 ^ P LD A1,DWTST,A6 GET STATUS P ANK A1,5 P RF(Z) TRST10 NOT 'IR' P ANK A1,4 P RF(NZ) TRST10 NO IR IF DE P L
0x051138…0512cc Dummy {f00=0x0007, f01=0x0190, f02=»* P* TRANSMIT SYNC SEQUENCE P* * P* 4 PTRSYNC EQU * > P LDK A2,0 R * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE d P SST A2,LCUIN PERFORM SST P IFT P6805=0 & P CIO A2,1,LCUUT START TRANSMITTER P XIF P IFT P6805
0x0512cc…051460 Dummy {f00=0x0007, f01=0x018e, f02=»F(A) TRS005 P ABL BRM PTRS005 CIO A2,1,LCUUT $ PTRS010 EQU * B P LDK A2,SYNEBC V * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER l P XIF P IFT P6805=1 P IFT CODE=0 P LDK A2,/0C P CIO A2,1,LCUUT P RF(A) TRS010
0x051460…0515f4 (1, 102) Dummy {f00=0x0007, f01=0x0190, f02=» * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER P XIF 2 * P CF A5,READ WAIT FOR OUTPUT INTERRUPT > P LDK A3,4 4 SYNS l PTRS100 LDK A2,SYN P CF A5,WRITE SEND SYN P SUK A3,1 P RB(NZ) TRS100 P RTN A5 P P* P
0x0515f4…051788 Dummy {f00=0x0007, f01=0x0190, f02=»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 h P INR A2,0,LCUIN READ CHAR , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS P IFF LOGG=0 ( P CF A5,LOGIN
0x051788…05191c Dummy {f00=0x0007, f01=0x0190, f02=»F(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF 8 P IFT CODE=1 D P C2 SYNSW X 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME j P CWK A2,SYNEBC P RF(E) READ SKIP EBCDIC SYN PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE CR
0x05191c…051ab0 Dummy {f00=0x0007, f01=0x0190, f02=» t P ABL BRM P XIF P IFT P6805=1 $ PIHIN20 RF SST PERFORM SST 8 P XIF Z P f P* p P* z P* TRANSMITTER INTERRUPT P* P* PIH1502 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SA
0x051ab0…051c44 Dummy {f00=0x0007, f01=0x018e, f02=» - A8 p P RB IHIN10 P P* * P* 4 & P* SST INSTRUCTION AND STATUS CHECK > P* h ( P* LCU STATUS : BIT 10=CARRIER OFF r & P* BIT 13=PARITY ERROR (6805 ONLY) , P* BIT 14=THROUGHPUT ERROR , P*
0x051c44…051dd8 Dummy {f00=0x0007, f01=0x0190, f02=» P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION * P XIF T P IFT P6805=0 ` P ANK A2,2 t P RF(Z) SST100 P XIF P IFT P6805=1 P ANK A2,6 P RF(Z) SST100 P ANK A2,2 P RF(NZ) SST050 THR
0x051dd8…051f6c Dummy {f00=0x0007, f01=0x0190, f02=»L A5,STB P ABL BRM010 PSST100 EQU * $ P ST A1,DCSTCU 8 P IFT P6805=0 N * P CF A15,CKMESS CHECK IF STATUS CHANGE b P RTN A5 P XIF P IFT P6805=1 P ANK A1,/21 P RF(Z) SST200 LSALCUZ 0 P CF A15,SETIME LINE ER
0x051f6c…052100 Dummy {f00=0x0007, f01=0x0190, f02=»ET ADK A5,4 P LDR A1,A1 SET CR P ABR* A5 RETURN . P XIF F P* R P* P* HALT INPUT f P* z P* PHALTIN LDK A1,0 P CIO A1,0,LCUIN P IFT P6805=0 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x052100…052294 (1, 103) Dummy {f00=0x0007, f01=0x0190, f02=» ONE CHARACTER TO A2 | P* P* & PWRITE EQU * 0 P IFT CODE=1 D P ANK A2,/FF X P CWK A2,/FF l 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF PWRIT05 EQU * " P OTR A
0x052294…052428 Dummy {f00=0x0007, f01=0x018e, f02=»BCC t P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC , P XIF V P IFF LOGG=0 b & P CF A5,LOGOUT LOG OUTPUT CHARACTER v P XIF P* PREAD CF A15,STREG P ABL TDISP P P* P* P*** WRIT
0x052428…0525bc Dummy {f00=0x0007, f01=0x0190, f02=» P ORK A2,/80 PWRI100 SLL A1,1 P RB(P) WRI100 4 P RB(Z) WRITE WRITE J P XRK A2,/80 d P RB WRI100 x P XIF P IFF CODE+P6805=0 PWRITEP RB WRITE P XIF P* P* P* P*** READP P*
0x0525bc…052750 Dummy {f00=0x0007, f01=0x018e, f02=» PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 2 P XRK A2,/80 H P RB RE100 PRE110 LDR A1,A2 n P ANK A2,/7F P XIF P IFF CODE+P6805=0 P LDK A1,/80 P XIF P ADK A5,4 P ANK A1,/80 P X
0x052750…0528e4 Dummy {f00=0x0007, f01=0x0190, f02=» P* $ P* CALLING SEQUENCE: CF A5,FINTER P* A2=SUBTERMINAL ADDRESS 6 P* A4 DESTROYED V " P* A3#0: DWT TO FOUND TERMINAL l P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES * P* ENTRY: FINTER - CHECK SELECT ADDRESS
0x0528e4…052a78 Dummy {f00=0x0007, f01=0x0190, f02=»FINTEP EQU * P IFT MSV1=0 PFINTER EQU * ( P XIF < P IM RBYTE H P IFT MSV1=1 Z PFINTER EQU * n P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB PFINT10 SUK A4,2 P LDK A3,0
0x052a78…052c0c Dummy {f00=0x0007, f01=0x018e, f02=» IFT MSV1=1 $ P AD A3,RBYTE CHOOSE ADDRESS TYPE * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS < P XIF j P IFT MSV1=0 v . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE) FINT10 TAKE NEXT TERMINAL PFINT20 CM RBYTE
0x052c0c…052da0 Dummy {f00=0x0007, f01=0x0190, f02=» P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF : P F P IFF CPU852=1 N P MSR 8,A15 SAVE A1-A8 =1 d P XIF P IFT STAT=1 P LDK A5,4 SET DEVICE END P LD A1,DCTAB . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE
0x052da0…052f34 (1, 104) Dummy {f00=0x0008, f01=0x0190, f02=»RE DEVICE END FOR DEVICE | ( P CF A15,INSSQ INSERT IN STATUS QUEUE P RB DRDC05 L PDRDC06 EQU * ^ P XIF r P LDK A2,/40 ~ P ORS A2,DCONOF P CF A15,CKMESS ( P LD A2,DCTPGP GET POLL TIMER POINTER " P RF(NZ) DRDC20 ALREADY STARTED
0x052f34…0530c8 Dummy {f00=0x0008, f01=0x0190, f02=»LDKL A5,STB LOAD A5 STACK BASE P LDK A2,/40 & ( P ST A2,DCONOF INDICATE POLL TIME OUT : * P CF A15,CKMESS CHECK IF STATUS CHANGE f $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP P* 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED
0x0530c8…05325c Dummy {f00=0x0008, f01=0x0190, f02=»CK IF STATUS CHANGE ~ P RTN A5 P* , P* START POLL TIMER 6 P* P $ PSPOTIM CF A15,SETIME START TIMER Z P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 P ABR* A15 P P* P* START
0x05325c…0533f0 Dummy {f00=0x0008, f01=0x018e, f02=» | $ P ST A4,DCTPP SAVE TIMER POINTER P RTN A5 0 P* @ P* PROCEDURE TIMEOUT J P* f PPRTOUT CM DCTPP p P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE $ P CF A5,HALTIN HALT INPUT IF OPEN P LD A1,XACK " P RF(
0x0533f0…053584 Dummy {f00=0x0008, f01=0x018e, f02=» P* P* STOP PROCEDURE TIMER P* , ( PHPTIM LD A1,DCTPP GET TIMER POINTER 6 P RF(Z) HPT10 NOT RUNNING b P CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5 P P IFT CODE=1 P* P* P* CALCULATION OF
0x053584…053718 Dummy {f00=0x0008, f01=0x0190, f02=» P ST A2,CRCSAV+2 P ST A3,CRCSAV+4 P LDK A1,8 4 PCRC100 LDR A3,A7 F P SRL A7,1 ^ P XRR A3,A2 p P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 PCRC110 SUK A1,1 P RB(NZ) CRC100 P LD A1,C
0x053718…0538ac Dummy {f00=0x0008, f01=0x0190, f02=»RC CHARACTERS AND CHECK THEM P* CR = (E) IF CRC WAS OK $ P* D P* N $ PRDCRC LDR A6,A7 SAVE CURRENT CRC X $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SAVE IT P CF A5,READ READ BYTE 2 ( P
0x0538ac…053a40 Dummy {f00=0x0008, f01=0x018e, f02=»2,A6 COMPARE RECEIVED WITH COMPUTED P ABR* A5 , P XIF < P IFT CODE=0 H P* & P* RDLRC READ LRC CHARACTER f " P* CR=0 IF LRC OK P* PRDLRC IM SYNSW P CF A5,READP P ADK A5,4 P LDR A1,A1
0x053a40…053bd4 (1, 105) Dummy {f00=0x0008, f01=0x0190, f02=» P* " P* DEVICE WORK TABLE FOR DCTASK P* 8 P* B PDW1500 EQU * TABLE ENTRY L P DATA 0 CU LINE ADDRESS l P DATA /8000 STATUS P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DATA DC15DC POINTER TO ADDRESS BLOCK P D
0x053bd4…053d68 Dummy {f00=0x0008, f01=0x0190, f02=» ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS P XIF 8 P* D P DATA 0 TIMER POINTER N ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE l . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) " P DATA 0 RECEIVE MESSAGE QUEUE , P DATA 0 SIMULATED DEVICE
0x053d68…053efc Dummy {f00=0x0008, f01=0x018e, f02=» P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 6 P XIF P P* P f P* p P* z P* DC RECEIVE BUFFER POOL P* PRLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR
0x053efc…054090 Dummy {f00=0x0008, f01=0x0190, f02=» P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK 2 P RES RBUFL+3 H P XIF P IFF RBUFNR=1 DK3 h P DATA *+RLINK P RES RBUFL+3 P XIF DK3 P DATA 0 END OF CHAIN P RES RBUFL+3 P P IFF MMUPAG=0
0x054090…054224 Dummy {f00=0x0008, f01=0x018e, f02=» P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 6 P RF LOG10 L PLOGOUT ST A2,SAVE2 ^ P ORKL A2,/0F00 x P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3,LOGPN
0x054224…0543b8 Dummy {f00=0x0008, f01=0x018e, f02=» z P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 0 P F P* P P* Z PLOGPNT DATA LOGSTA d PLOGSTA EQU * ~ P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 P XIF P* P* P*
0x0543b8…05454c Dummy {f00=0x0008, f01=0x0190, f02=» : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* F > P********************************************************** P P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:
0x05454c…0546e0 Dummy {f00=0x0008, f01=0x0190, f02=»II COLUMN NUMBER | $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN @ P* V P* ` P* j P t P ~ P* SCANDINAVIAN ALPHABET P DB PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,/2
0x0546e0…054874 (1, 106) Dummy {f00=0x0008, f01=0x0190, f02=»/5354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F " ( P DATA /3031,/3233,/3435,/3637 /30-37 P ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F | P DE P XIF P P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB "
0x054874…054a08 Dummy {f00=0x0008, f01=0x4034, f02=»ND EQU * P* P* P END $@ 0/255F,/3E3F /28-/2F " ( P DATA /3031,/3233,/3435,/3637 /30-37 P ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F | P DE P XIF P P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB "
0x054a08…054b9c Dummy {f00=0x0008, f01=0x2008, f02=» H P X ` h p x
0x054b9c…054d30 Dummy {f00=0x0008, f01=0x0190, f02=»ECB ADDRESS P DATA 0 ORDER * P DATA DC15DC POINTER TO ADDRESS BLOCK * P DATA 0 TTAB ADDRESS X $ P DATA 0 WAIT/ACTIVATE INDICATOR t P DATA 0 TASK QUEUE P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU E
0x054d30…054ec4 Dummy {f00=0x0008, f01=0x0190, f02=»NOT USED BY DC-TASK) z " P DATA 0 RECEIVE MESSAGE QUEUE , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS B P DATA 0 CURSOR ADDRESS r " P DATA 0 REQUEST TIMEOUT VALUE " P DATA 0 EXTRA DEVICE INFO DK5 P* P IFT MMUPAG=1 PDC:ECB EQU *
0x054ec4…055058 Dummy {f00=0x0008, f01=0x0190, f02=»RLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * * P DATA *+2 FREE BUFFER ANCHOR > P IFF RBUFNR=1 DK3 b P IFF RBUFNR=2 | P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=
0x055058…0551ec Dummy {f00=0x0008, f01=0x0190, f02=» DK3 P DATA 0 END OF CHAIN P RES RBUFL+3 * P > P IFF MMUPAG=0 F & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF P P* P* P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2
0x0551ec…055380 Dummy {f00=0x0008, f01=0x018e, f02=» P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3 2 P LD A3,LOGPNT L P STR A2,A3 b P ADK A3,2 t P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3
0x055380…055514 (1, 107) Opaque[0x194]
0x055514…0556a8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0690, f03=0xffff}
0x055514…0556a8 IdxSect {
0x055514…0556a8 f00 = 0x0034 // 0x55514 @0x0
0x055514…0556a8 f01 = 0x0002 // 0x55516 @0x2
0x055514…0556a8 gno = [ // 0x55518 @0x4
0x055514…0556a8 [0x00]: C0x0034.0x2.0
0x055514…0556a8 ]
0x055514…0556a8 }
0x0556a8…05583c Dummy {f00=0x0034, 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
0x05583c…0559d0 Dummy {f00=0x0034, f01=0x0190, f02=» l P* P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-05012 2 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION R $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA SOPR P* P DATA CHLTON P* P
0x0559d0…055b64 Dummy {f00=0x0034, f01=0x4008, f02=»@ * P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-05012 2 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION R $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA SOPR P* P DATA CHLTON P* P
0x055b64…055cf8 Dummy {f00=0x0034, 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
0x055cf8…055e8c Dummy {f00=0x0034, f01=0x0190, f02=»ANGER NO. 1 x ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 @ * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 l * P EXTRN CHLT2 LOCAL CHANNEL UNIT NO. 2 P EXTRN CHLT3 P EXTRN CHLT4 P EXTRN IHFD FLOPPY DISCE
0x055e8c…056020 Dummy {f00=0x0034, f01=0x018e, f02=» 2 v P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT ( P EXTRN HALT HALT ROUTINE P P EXTRN BUG DEBUGGER p P EXTRN IHINPT PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD
0x056020…0561b4 (1, 108) Opaque[0x194]
0x0561b4…056348 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0698, f03=0x0000}
0x0561b4…056348 IdxSect {
0x0561b4…056348 f00 = 0x0034 // 0x561b4 @0x0
0x0561b4…056348 f01 = 0x0004 // 0x561b6 @0x2
0x0561b4…056348 gno = [ // 0x561b8 @0x4
0x0561b4…056348 [0x00]: C0x0034.0x3.0
0x0561b4…056348 [0x01]: C0x0035.0x0.0
0x0561b4…056348 ]
0x0561b4…056348 }
0x056348…0564dc Dummy {f00=0x0034, 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
0x0564dc…056670 Dummy {f00=0x0034, f01=0x018e, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION $ P EXTRN
0x056670…056804 Dummy {f00=0x0034, f01=0x0190, f02=» P EXTRN IXTASS " P EXTRN TCHPAG CHANGE MMU PAGE " P EXTRN TCHMMU CHANGE MMU TABLE @ P EJECT f P* t $ PLKMAL DATA LKMALE-* TABLE LENGTH ~ P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P
0x056804…056998 Dummy {f00=0x0034, f01=0x018e, f02=» $ P DATA TLUSEG LOCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x056998…056b2c Dummy {f00=0x0034, f01=0x4036, f02=» p PLKMALE EQU * P* P END &@ 2EG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x056b2c…056cc0 Dummy {f00=0x0034, 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
0x056cc0…056e54 (1, 109) Dummy {f00=0x0035, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x056e54…056fe8 Dummy {f00=0x0035, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x056fe8…05717c Dummy {f00=0x0035, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x05717c…057310 Dummy {f00=0x0035, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x057310…0574a4 Dummy {f00=0x0035, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x0574a4…057638 Dummy {f00=0x0035, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x057638…0577cc Dummy {f00=0x0035, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x0577cc…057960 Dummy {f00=0x0035, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 0 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x057960…057af4 (1, 110) Opaque[0x194]
0x057af4…057c88 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06b0, f03=0x0000}
0x057af4…057c88 IdxSect {
0x057af4…057c88 f00 = 0x0035 // 0x57af4 @0x0
0x057af4…057c88 f01 = 0x0002 // 0x57af6 @0x2
0x057af4…057c88 gno = [ // 0x57af8 @0x4
0x057af4…057c88 [0x00]: C0x0035.0x2.0
0x057af4…057c88 ]
0x057af4…057c88 }
0x057c88…057e1c Dummy {f00=0x0035, 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
0x057e1c…057fb0 Dummy {f00=0x0035, 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
0x057fb0…058144 Dummy {f00=0x0035, 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
0x058144…0582d8 Dummy {f00=0x0035, f01=0x40de, f02=»0,0,0 P IFT MMUPAG=1 PDEVECB EQU * $ P DATA 0,0,0,0,0,0 8 P DATA 0,0,0,0,0,0,0,0 R P DATA 0,0,0,0,0,0,0,0 p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ IRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x0582d8…05846c Dummy {f00=0x0035, 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
0x05846c…058600 Dummy {f00=0x0035, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x058600…058794 (1, 111) Opaque[0x194]
0x058794…058928 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06b8, f03=0x0000}
0x058794…058928 IdxSect {
0x058794…058928 f00 = 0x0035 // 0x58794 @0x0
0x058794…058928 f01 = 0x0002 // 0x58796 @0x2
0x058794…058928 gno = [ // 0x58798 @0x4
0x058794…058928 [0x00]: C0x0035.0x3.0
0x058794…058928 ]
0x058794…058928 }
0x058928…058abc Dummy {f00=0x0035, f01=0x0190, f02=» 0 P IDENT DVTTP REL 9.2 79-11-16 870105040920 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x058abc…058c50 Dummy {f00=0x0035, f01=0x0190, f02=»ATA 0 ECB ADDRESS P DATA DWTEND-DVTTP ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK : P DATA 'TP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x058c50…058de4 Dummy {f00=0x0035, f01=0x40ec, f02=»ATA 0,0,0,0 STACK P DATA 0 TIMER POINTER ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER 8 P IFT MMUPAG=1 d PDEVECB EQU * z P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ VE AREA USER ECB ADDRESS
0x058de4…058f78 Dummy {f00=0x0035, 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
0x058f78…05910c Dummy {f00=0x0035, f01=0x0190, f02=»EQUEST ERROR + P SUK A2,18 , P ABL(P) FD:DIS REQUEST ERROR , & P ADK A2,25 , J P SLL A2,3 BIO , P LDK A3,80 LENGTH , r P LDKL A4,BUF , P CF A5,FD:REA , P LDR A1,A3 RETURN CODE , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 N
0x05910c…0592a0 Dummy {f00=0x0035, f01=0x0190, f02=»,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS - " P CF A5,STDWT SAVE IN DWT - 8 P ADK A4,BOE BOE ADDRESS - X . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - x P LDK A1,DWTBOE - $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - P LDK A1,DW
0x0592a0…059434 (1, 112) Opaque[0x194]
0x059434…0595c8 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06c0, f03=0x0000}
0x059434…0595c8 IdxSect {
0x059434…0595c8 f00 = 0x0036 // 0x59434 @0x0
0x059434…0595c8 f01 = 0x0002 // 0x59436 @0x2
0x059434…0595c8 gno = [ // 0x59438 @0x4
0x059434…0595c8 [0x00]: C0x0036.0x0.0
0x059434…0595c8 ]
0x059434…0595c8 }
0x0595c8…05975c Dummy {f00=0x0036, 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
0x05975c…0598f0 Dummy {f00=0x0036, 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
0x0598f0…059a84 Dummy {f00=0x0036, 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
0x059a84…059c18 Dummy {f00=0x0036, 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
0x059c18…059dac Dummy {f00=0x0036, 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
0x059dac…059f40 Dummy {f00=0x0036, 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*******************
0x059f40…05a0d4 (1, 113) Opaque[0x194]
0x05a0d4…05a268 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06c8, f03=0x0000}
0x05a0d4…05a268 IdxSect {
0x05a0d4…05a268 f00 = 0x0036 // 0x5a0d4 @0x0
0x05a0d4…05a268 f01 = 0x0002 // 0x5a0d6 @0x2
0x05a0d4…05a268 gno = [ // 0x5a0d8 @0x4
0x05a0d4…05a268 [0x00]: C0x0036.0x1.0
0x05a0d4…05a268 ]
0x05a0d4…05a268 }
0x05a268…05a3fc Dummy {f00=0x0036, f01=0x0190, f02=» 0 P IDENT DVTDI REL 9.2 79-11-16 870105040920 P 8 P =1,HANG UP AT /03 OUTPUT @ P REL 9.1 79-05-23 d P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P*
0x05a3fc…05a590 Dummy {f00=0x0036, f01=0x0190, f02=»METER x 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS B P DATA DWTEND-DVTDI ORDER ^ ( P DATA DIAD POINTER TO ADDRESS-BLOCK ~ 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x05a590…05a724 Dummy {f00=0x0036, f01=0x415e, f02=» | P DATA /2010 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS 6 P DATA 0 TIMER POINTER d P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DATA 0,
0x05a724…05a8b8 Dummy {f00=0x0036, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x05a8b8…05aa4c Dummy {f00=0x0036, f01=0x018e, f02=» P LDKL A1,/C000 WORDS,WRITE < P XIF < & P IFT CHAN=1 < 2 ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < F P XIF < r P RF FD:800 < ~ P* < PFD:REA EQU * < P IFT CHAN=1 < P LDK A1,1 < P ST A1,DWTRW,A6 READ MODE < P XIF < P IFT C
0x05aa4c…05abe0 Dummy {f00=0x0036, f01=0x0190, f02=» P* = P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = $ * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = N P XIF = | P* = P IFT CHAN=0 = P ORR A3,A1 = PWER1 WER A3,MUXADR FIRST WER = $ PWER2 WER A4,MUXADR+1 SECOND WER = P XIF
0x05abe0…05ad74 (1, 114) Opaque[0x194]
0x05ad74…05af08 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06d0, f03=0x0000}
0x05ad74…05af08 IdxSect {
0x05ad74…05af08 f00 = 0x0036 // 0x5ad74 @0x0
0x05ad74…05af08 f01 = 0x0002 // 0x5ad76 @0x2
0x05ad74…05af08 gno = [ // 0x5ad78 @0x4
0x05ad74…05af08 [0x00]: C0x0036.0x2.0
0x05ad74…05af08 ]
0x05ad74…05af08 }
0x05af08…05b09c Dummy {f00=0x0036, 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
0x05b09c…05b230 Dummy {f00=0x0036, 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
0x05b230…05b3c4 Dummy {f00=0x0036, 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
0x05b3c4…05b558 Dummy {f00=0x0036, 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
0x05b558…05b6ec Dummy {f00=0x0036, 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* *
0x05b6ec…05b880 Dummy {f00=0x0036, 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
0x05b880…05ba14 (1, 115) Opaque[0x194]
0x05ba14…05bba8 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06d8, f03=0x0000}
0x05ba14…05bba8 IdxSect {
0x05ba14…05bba8 f00 = 0x0036 // 0x5ba14 @0x0
0x05ba14…05bba8 f01 = 0x0002 // 0x5ba16 @0x2
0x05ba14…05bba8 gno = [ // 0x5ba18 @0x4
0x05ba14…05bba8 [0x00]: C0x0036.0x3.0
0x05ba14…05bba8 ]
0x05ba14…05bba8 }
0x05bba8…05bd3c Dummy {f00=0x0036, 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
0x05bd3c…05bed0 Dummy {f00=0x0036, 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
0x05bed0…05c064 Dummy {f00=0x0036, 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
0x05c064…05c1f8 Dummy {f00=0x0036, 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
0x05c1f8…05c38c Dummy {f00=0x0036, 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 =
0x05c38c…05c520 Dummy {f00=0x0036, 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**
0x05c520…05c6b4 (1, 116) Opaque[0x194]
0x05c6b4…05c848 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06e0, f03=0x0000}
0x05c6b4…05c848 IdxSect {
0x05c6b4…05c848 f00 = 0x0037 // 0x5c6b4 @0x0
0x05c6b4…05c848 f01 = 0x0002 // 0x5c6b6 @0x2
0x05c6b4…05c848 gno = [ // 0x5c6b8 @0x4
0x05c6b4…05c848 [0x00]: C0x0037.0x0.0
0x05c6b4…05c848 ]
0x05c6b4…05c848 }
0x05c848…05c9dc Dummy {f00=0x0037, 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
0x05c9dc…05cb70 Dummy {f00=0x0037, 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
0x05cb70…05cd04 Dummy {f00=0x0037, 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
0x05cd04…05ce98 Dummy {f00=0x0037, 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
0x05ce98…05d02c Dummy {f00=0x0037, 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
0x05d02c…05d1c0 Dummy {f00=0x0037, 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
0x05d1c0…05d354 (1, 117) Opaque[0x194]
0x05d354…05d4e8 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03f8, f03=0x0000}
0x05d354…05d4e8 IdxSect {
0x05d354…05d4e8 f00 = 0x001f // 0x5d354 @0x0
0x05d354…05d4e8 f01 = 0x0002 // 0x5d356 @0x2
0x05d354…05d4e8 gno = [ // 0x5d358 @0x4
0x05d354…05d4e8 [0x00]: C0x001f.0x3.0
0x05d354…05d4e8 ]
0x05d354…05d4e8 }
0x05d4e8…05d67c Dummy {f00=0x001f, f01=0x0190, f02=» 2 P IDENT DW1501 9.2DK 1 81-11-05 870105040920 P DK1 EXTRA DWTINF : P ORG: REL 9.2 79-11-16 V P v P* ~ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER
0x05d67c…05d810 Dummy {f00=0x001f, f01=0x0190, f02=»/8000 STATUS./8000 MEANS DEVICE READY P DATA 0 ECB-ADDRESS . P DATA DWTEND-DW1501 J P RIGHT BYTE=ORDER f * P DATA DC15AD POINTER TO ADDRESS-BLOCK P DATA 'DC' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL
0x05d810…05d9a4 Dummy {f00=0x001f, f01=0x418c, f02=» DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE : P DATA 0 RECEIVE QUEUE V P DATA 0 BUFFER ADDRESS t P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE " P DATA 0 DEVICE INFORMATION DK1 P* P I
0x05d9a4…05db38 Dummy {f00=0x001f, 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*
0x05db38…05dccc Dummy {f00=0x001f, f01=0x40e4, f02=» : H IDENT T:DTC0 TRA 4.2 81-03-20 F1 O1111 04.01.XXX.1 T:DTC0 B T:DTC0D T REENTC REGGO h * & TC * " * @ " $ ,
0x05dccc…05de60 Dummy {f00=0x001f, f01=0x018e, f02=» : H IDENT T:AKA0 TRA 4.2 81-03-20 F1 O1111 04.01.XXX.1 T:AKA0 B T:AKA0A T . * T:DKA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & @ * & P * & =
0x05de60…05dff4 (1, 118) Opaque[0x194]
0x05dff4…05e188 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0830, f03=0x0000}
0x05dff4…05e188 IdxSect {
0x05dff4…05e188 f00 = 0x0041 // 0x5dff4 @0x0
0x05dff4…05e188 f01 = 0x002c // 0x5dff6 @0x2
0x05dff4…05e188 gno = [ // 0x5dff8 @0x4
0x05dff4…05e188 [0x00]: C0x0041.0x2.0
0x05dff4…05e188 [0x01]: C0x0041.0x3.0
0x05dff4…05e188 [0x02]: C0x0042.0x0.0
0x05dff4…05e188 [0x03]: C0x0042.0x1.0
0x05dff4…05e188 [0x04]: C0x0042.0x2.0
0x05dff4…05e188 [0x05]: C0x0042.0x3.0
0x05dff4…05e188 [0x06]: C0x0043.0x0.0
0x05dff4…05e188 [0x07]: C0x0043.0x1.0
0x05dff4…05e188 [0x08]: C0x0043.0x2.0
0x05dff4…05e188 [0x09]: C0x0043.0x3.0
0x05dff4…05e188 [0x0a]: C0x0044.0x0.0
0x05dff4…05e188 [0x0b]: C0x0044.0x1.0
0x05dff4…05e188 [0x0c]: C0x0044.0x2.0
0x05dff4…05e188 [0x0d]: C0x0044.0x3.0
0x05dff4…05e188 [0x0e]: C0x0045.0x0.0
0x05dff4…05e188 [0x0f]: C0x0045.0x1.0
0x05dff4…05e188 [0x10]: C0x0045.0x2.0
0x05dff4…05e188 [0x11]: C0x0045.0x3.0
0x05dff4…05e188 [0x12]: C0x0046.0x0.0
0x05dff4…05e188 [0x13]: C0x0046.0x1.0
0x05dff4…05e188 [0x14]: C0x0046.0x2.0
0x05dff4…05e188 [0x15]: C0x0046.0x3.0
0x05dff4…05e188 ]
0x05dff4…05e188 }
0x05e188…05e31c Dummy {f00=0x0041, 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
0x05e31c…05e4b0 Dummy {f00=0x0041, 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
0x05e4b0…05e644 Dummy {f00=0x0041, 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********************************
0x05e644…05e7d8 Dummy {f00=0x0041, 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*
0x05e7d8…05e96c Dummy {f00=0x0041, 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*
0x05e96c…05eb00 Dummy {f00=0x0041, 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
0x05eb00…05ec94 (1, 119) Dummy {f00=0x0041, 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*
0x05ec94…05ee28 Dummy {f00=0x0041, 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
0x05ee28…05efbc Dummy {f00=0x0041, 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
0x05efbc…05f150 Dummy {f00=0x0041, 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
0x05f150…05f2e4 Dummy {f00=0x0041, 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
0x05f2e4…05f478 Dummy {f00=0x0041, 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
0x05f478…05f60c Dummy {f00=0x0041, 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***********************
0x05f60c…05f7a0 Dummy {f00=0x0041, 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
0x05f7a0…05f934 (1, 120) Dummy {f00=0x0042, 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******************
0x05f934…05fac8 Dummy {f00=0x0042, 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******
0x05fac8…05fc5c Dummy {f00=0x0042, 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
0x05fc5c…05fdf0 Dummy {f00=0x0042, 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
0x05fdf0…05ff84 Dummy {f00=0x0042, 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 01 P* P* 6 P* A PROGRAM
0x05ff84…060118 Dummy {f00=0x0042, 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********************************************
0x060118…0602ac Dummy {f00=0x0042, 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
0x0602ac…060440 Dummy {f00=0x0042, 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
0x060440…0605d4 (1, 121) Dummy {f00=0x0042, 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
0x0605d4…060768 Dummy {f00=0x0042, 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
0x060768…0608fc Dummy {f00=0x0042, 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*
0x0608fc…060a90 Dummy {f00=0x0042, 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*
0x060a90…060c24 Dummy {f00=0x0042, 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
0x060c24…060db8 Dummy {f00=0x0042, 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
0x060db8…060f4c Dummy {f00=0x0042, 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*
0x060f4c…0610e0 Dummy {f00=0x0042, 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
0x0610e0…061274 (1, 122) Dummy {f00=0x0042, 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
0x061274…061408 Dummy {f00=0x0042, 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
0x061408…06159c Dummy {f00=0x0042, 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
0x06159c…061730 Dummy {f00=0x0042, 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
0x061730…0618c4 Dummy {f00=0x0042, 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
0x0618c4…061a58 Dummy {f00=0x0042, 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
0x061a58…061bec Dummy {f00=0x0042, 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
0x061bec…061d80 Dummy {f00=0x0042, 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**************
0x061d80…061f14 (1, 123) Dummy {f00=0x0042, 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
0x061f14…0620a8 Dummy {f00=0x0042, 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
0x0620a8…06223c Dummy {f00=0x0042, 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
0x06223c…0623d0 Dummy {f00=0x0042, 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
0x0623d0…062564 Dummy {f00=0x0042, 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
0x062564…0626f8 Dummy {f00=0x0042, 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
0x0626f8…06288c Dummy {f00=0x0042, 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
0x06288c…062a20 Dummy {f00=0x0042, 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
0x062a20…062bb4 (1, 124) Dummy {f00=0x0043, 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 . &
0x062bb4…062d48 Dummy {f00=0x0043, 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
0x062d48…062edc Dummy {f00=0x0043, 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
0x062edc…063070 Dummy {f00=0x0043, 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
0x063070…063204 Dummy {f00=0x0043, 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
0x063204…063398 Dummy {f00=0x0043, 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
0x063398…06352c Dummy {f00=0x0043, 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
0x06352c…0636c0 Dummy {f00=0x0043, 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
0x0636c0…063854 (1, 125) Dummy {f00=0x0043, 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
0x063854…0639e8 Dummy {f00=0x0043, 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**
0x0639e8…063b7c Dummy {f00=0x0043, 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
0x063b7c…063d10 Dummy {f00=0x0043, 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
0x063d10…063ea4 Dummy {f00=0x0043, 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
0x063ea4…064038 Dummy {f00=0x0043, 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
0x064038…0641cc Dummy {f00=0x0043, 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 < &
0x0641cc…064360 Dummy {f00=0x0043, 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
0x064360…0644f4 (1, 126) Dummy {f00=0x0043, 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
0x0644f4…064688 Dummy {f00=0x0043, 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
0x064688…06481c Dummy {f00=0x0043, 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
0x06481c…0649b0 Dummy {f00=0x0043, 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
0x0649b0…064b44 Dummy {f00=0x0043, 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
0x064b44…064cd8 Dummy {f00=0x0043, 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
0x064cd8…064e6c Dummy {f00=0x0043, 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
0x064e6c…065000 Dummy {f00=0x0043, 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
0x065000…065194 (1, 127) Dummy {f00=0x0043, 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
0x065194…065328 Dummy {f00=0x0043, 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
0x065328…0654bc Dummy {f00=0x0043, 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******************************
0x0654bc…065650 Dummy {f00=0x0043, 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
0x065650…0657e4 Dummy {f00=0x0043, 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
0x0657e4…065978 Dummy {f00=0x0043, 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
0x065978…065b0c Dummy {f00=0x0043, 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
0x065b0c…065ca0 Dummy {f00=0x0043, 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
0x065ca0…065e34 (1, 128) Dummy {f00=0x0044, 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
0x065e34…065fc8 Dummy {f00=0x0044, 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(
0x065fc8…06615c Dummy {f00=0x0044, 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
0x06615c…0662f0 Dummy {f00=0x0044, 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
0x0662f0…066484 Dummy {f00=0x0044, 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
0x066484…066618 Dummy {f00=0x0044, 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
0x066618…0667ac Dummy {f00=0x0044, 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
0x0667ac…066940 Dummy {f00=0x0044, 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
0x066940…066ad4 (1, 129) Dummy {f00=0x0044, 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
0x066ad4…066c68 Dummy {f00=0x0044, 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
0x066c68…066dfc Dummy {f00=0x0044, 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
0x066dfc…066f90 Dummy {f00=0x0044, 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
0x066f90…067124 Dummy {f00=0x0044, 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 *
0x067124…0672b8 Dummy {f00=0x0044, 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
0x0672b8…06744c Dummy {f00=0x0044, 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
0x06744c…0675e0 Dummy {f00=0x0044, 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
0x0675e0…067774 (1, 130) Dummy {f00=0x0044, 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
0x067774…067908 Dummy {f00=0x0044, 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
0x067908…067a9c Dummy {f00=0x0044, 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* `
0x067a9c…067c30 Dummy {f00=0x0044, 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
0x067c30…067dc4 Dummy {f00=0x0044, 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
0x067dc4…067f58 Dummy {f00=0x0044, 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
0x067f58…0680ec Dummy {f00=0x0044, 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
0x0680ec…068280 Dummy {f00=0x0044, 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
0x068280…068414 (1, 131) Dummy {f00=0x0044, 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
0x068414…0685a8 Dummy {f00=0x0044, 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
0x0685a8…06873c Dummy {f00=0x0044, 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
0x06873c…0688d0 Dummy {f00=0x0044, 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
0x0688d0…068a64 Dummy {f00=0x0044, 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
0x068a64…068bf8 Dummy {f00=0x0044, 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*
0x068bf8…068d8c Dummy {f00=0x0044, 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
0x068d8c…068f20 Dummy {f00=0x0044, 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,/
0x068f20…0690b4 (1, 132) Dummy {f00=0x0045, 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
0x0690b4…069248 Dummy {f00=0x0045, 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
0x069248…0693dc Dummy {f00=0x0045, 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
0x0693dc…069570 Dummy {f00=0x0045, 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
0x069570…069704 Dummy {f00=0x0045, 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
0x069704…069898 Dummy {f00=0x0045, 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
0x069898…069a2c Dummy {f00=0x0045, 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
0x069a2c…069bc0 Dummy {f00=0x0045, 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
0x069bc0…069d54 (1, 133) Dummy {f00=0x0045, 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
0x069d54…069ee8 Dummy {f00=0x0045, 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
0x069ee8…06a07c Dummy {f00=0x0045, 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
0x06a07c…06a210 Dummy {f00=0x0045, 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
0x06a210…06a3a4 Dummy {f00=0x0045, 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
0x06a3a4…06a538 Dummy {f00=0x0045, 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
0x06a538…06a6cc Dummy {f00=0x0045, 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*
0x06a6cc…06a860 Dummy {f00=0x0045, 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
0x06a860…06a9f4 (1, 134) Dummy {f00=0x0045, 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
0x06a9f4…06ab88 Dummy {f00=0x0045, 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********
0x06ab88…06ad1c Dummy {f00=0x0045, 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
0x06ad1c…06aeb0 Dummy {f00=0x0045, 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
0x06aeb0…06b044 Dummy {f00=0x0045, 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
0x06b044…06b1d8 Dummy {f00=0x0045, 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(
0x06b1d8…06b36c Dummy {f00=0x0045, 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 *
0x06b36c…06b500 Dummy {f00=0x0045, 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
0x06b500…06b694 (1, 135) Dummy {f00=0x0045, 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 "
0x06b694…06b828 Dummy {f00=0x0045, 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
0x06b828…06b9bc Dummy {f00=0x0045, 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
0x06b9bc…06bb50 Dummy {f00=0x0045, 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
0x06bb50…06bce4 Dummy {f00=0x0045, 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
0x06bce4…06be78 Dummy {f00=0x0045, 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
0x06be78…06c00c Dummy {f00=0x0045, 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
0x06c00c…06c1a0 Dummy {f00=0x0045, 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
0x06c1a0…06c334 (1, 136) Dummy {f00=0x0046, 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 ?
0x06c334…06c4c8 Dummy {f00=0x0046, 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
0x06c4c8…06c65c Dummy {f00=0x0046, 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
0x06c65c…06c7f0 Dummy {f00=0x0046, 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*
0x06c7f0…06c984 Dummy {f00=0x0046, 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
0x06c984…06cb18 Dummy {f00=0x0046, 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
0x06cb18…06ccac Dummy {f00=0x0046, 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
0x06ccac…06ce40 Dummy {f00=0x0046, 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
0x06ce40…06cfd4 (1, 137) Dummy {f00=0x0046, 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*
0x06cfd4…06d168 Dummy {f00=0x0046, 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 ?
0x06d168…06d2fc Dummy {f00=0x0046, 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 ?
0x06d2fc…06d490 Dummy {f00=0x0046, 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
0x06d490…06d624 Dummy {f00=0x0046, 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
0x06d624…06d7b8 Dummy {f00=0x0046, 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)
0x06d7b8…06d94c Dummy {f00=0x0046, 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
0x06d94c…06dae0 Dummy {f00=0x0046, 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
0x06dae0…06dc74 (1, 138) Dummy {f00=0x0046, 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
0x06dc74…06de08 Dummy {f00=0x0046, 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*
0x06de08…06df9c Dummy {f00=0x0046, 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
0x06df9c…06e130 Dummy {f00=0x0046, 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
0x06e130…06e2c4 Dummy {f00=0x0046, 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
0x06e2c4…06e458 Dummy {f00=0x0046, 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
0x06e458…06e5ec Dummy {f00=0x0046, 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
0x06e5ec…06e780 Dummy {f00=0x0046, 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*
0x06e780…06e914 (1, 139) Dummy {f00=0x0046, 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
0x06e914…06eaa8 Dummy {f00=0x0046, 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
0x06eaa8…06ec3c Dummy {f00=0x0046, 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
0x06ec3c…06edd0 Dummy {f00=0x0046, 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
0x06edd0…06ef64 Dummy {f00=0x0046, 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
0x06ef64…06f0f8 Dummy {f00=0x0046, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x06f0f8…06f28c Dummy {f00=0x0046, f01=0x0190, f02=» ! 4 A d ? ZJ T A T P 4 ! A d ? Z_ I " P A A 4 A _$B P W @ " * 9AY X 2 _ ! 9AP ^ 2 _ " ! 1 4 A @ ` @ P 0 M A 4 ? @ T @ A A a 4 !*
0x06f28c…06f420 Dummy {f00=0x0046, f01=0x0190, f02=» ! * W A A W W W A A ! @ ! @ ! ! B J 4 ! ! @ @ A @ T @ ! 8 ! @ P - ! x ! W 0 " @ P R ~T }T T W ! P " ! " :A *@ H T 0
0x06f420…06f5b4 (1, 140) Opaque[0x194]
0x06f5b4…06f748 # DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0908, f03=0x0000}
0x06f5b4…06f748 IdxSect {
0x06f5b4…06f748 f00 = 0x0048 // 0x6f5b4 @0x0
0x06f5b4…06f748 f01 = 0x0008 // 0x6f5b6 @0x2
0x06f5b4…06f748 gno = [ // 0x6f5b8 @0x4
0x06f5b4…06f748 [0x00]: C0x0048.0x1.0
0x06f5b4…06f748 [0x01]: C0x0048.0x2.0
0x06f5b4…06f748 [0x02]: C0x0048.0x3.0
0x06f5b4…06f748 [0x03]: C0x0049.0x0.0
0x06f5b4…06f748 ]
0x06f5b4…06f748 }
0x06f748…06f8dc Dummy {f00=0x0048, f01=0x0190, f02=» 2 P IDENT DRLP01 REL 9.2 79-11-16 870105040920 P : $ P =1, INTERFACE UNKNOWN HANG-UP B P REL 9.1 79-05-23 j P* P* > P********************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x06f8dc…06fa70 Dummy {f00=0x0048, f01=0x0190, f02=»************************************** | P* . P* 8 @ P* THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED B < P* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED P* CHANNEL P* P EJECT DRLP01 P* P*
0x06fa70…06fc04 Dummy {f00=0x0048, f01=0x0190, f02=» ADDRESS BLOCK " P ENTRY ACLP ACTIVATION DRIVER " P ENTRY IHLP INTERRUPT HANDLER < P ENTRY LPON RECOVERY ROUTINE b & P ENTRY DWLP01 DWT FOR LINE PRINTER P P P P* P* , P****************************************
0x06fc04…06fd98 Dummy {f00=0x0048, f01=0x0190, f02=»PATCHER P EXTRN TENDIO END I/O & P EXTRN SAVE8 SAVE 8 REGS ON STACK . P EXTRN DISIOE REQUEST ERROR X EXTRN DWTST STATUS | EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER P EXT
0x06fd98…06ff2c Dummy {f00=0x0048, f01=0x018e, f02=» * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P EJECT DRLP01 2 P* J P* T " P***************************** ^ " P* CONSTANTS * " P***************************** P* P* PDWALP EQU /0F & PMUXLP EQU DWAL
0x06ff2c…0700c0 Dummy {f00=0x0048, f01=0x018e, f02=» P* CONDITIONAL ASSEMBLY P* & . P***************************************** 0 P* b 2 P* PROGRAMMED CHANNEL MAY BE USED INSTEAD OF l , P* MULTIPLEX CHANNEL BY SETTING X:A=1 P* PX:A EQU 0 PCHAN EQU 1 P* .
0x0700c0…070254 (1, 141) Dummy {f00=0x0048, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. H P* z PCPU852 EQU 0 P* P* MMU BUFFER SIZE P* PX:B EQU 67 PDVBLEN EQU 081 P* P* MMU DEVICE
0x070254…0703e8 Dummy {f00=0x0048, f01=0x0190, f02=» P*********************** P* ORDERS * ( P*********************** H P* h P* ORDER /00: TEST STATUS. r 8 P* A TST INSTRUCTION IS EXECUTED TO SEE 0 P* IF LINE PRINTER IS OPERABLE. P*
0x0703e8…07057c Dummy {f00=0x0048, f01=0x0190, f02=» TO THE LINE PRINTER WITHOUT ANY CHECK. | P* 0 $ P* ORDER /06: STANDARD WRITE. : @ P* FIRST WORD IN ECB BUFFER CONTAINS A CONTROL b P* CHARACTER. < P* /2B: PRINT LINE WITHOUT ADVANCING PAPER : P
0x07057c…070710 Dummy {f00=0x0048, f01=0x0190, f02=» OTHER CHARACTERS GIVES A LINE FEED BEFORE P* PRINTING. 8 P* Z P* d > P* CHARACTERS IN BUFFER SHOULD BE WITHIN THE n > P* INTERVAL /20-/5F. NO CHECK IS CARRIED OUT B P* BY DRI
0x070710…0708a4 Dummy {f00=0x0048, f01=0x0190, f02=»CHARACTER. z P* P EJECT DRLP01 P* 4 P* > ( P************************************ H ( P* NORMAL REGISTER USAGE * t ( P************************************ P* P* P* A1 = RETURN CODE P* A2 =
0x0708a4…070a38 Dummy {f00=0x0048, f01=0x0190, f02=» z P* A7 = ORDER P* A8 = ECB ADDRESS P* > P* H $ P******************************** R $ P* TABLES * z $ P******************************** P* P* * P DATA DVBLEN+DVBLEN MMU BUFFER LENGTH
0x070a38…070bcc Dummy {f00=0x0048, f01=0x0190, f02=» DRLP01 P* P* P* A C T I V A T I O N $ P* D P* N PACLP EQU * X P LDK A1,/0D CARRIAGE RETURN j P LDR A7,A7 ORDER 0 ? P RF(NE) ACLP05 NO P LDKL A4,DWTBC BYTE COUNTER P ADR A4,A6 ADD DWT ADDRESS $
0x070bcc…070d60 Dummy {f00=0x0048, f01=0x0190, f02=»,A8 REQ. LENGTH P SUK A7,5 ORDER 5 ? P RF(E) ACLP30 4 P SUK A7,1 ORDER 6 ? J P RF(E) ACLP10 f P* | PACERR ABL DISIOE P* P EJECT DRLP01 P* P* PACLP10 EQU * P CWK A2,2 REQ. LENGTH < 2 ?
0x070d60…070ef4 (1, 142) Dummy {f00=0x0048, f01=0x018e, f02=»ADDRESS ~ & P ADR A3,A2 ADDED WITH REQ. LENGTH $ P SCR A1,A3 STORE PRINT CHARACTER : P ADK A2,1 b P LCR A3,A4 t P ECR A3,A3 & P LC A3,1,A4 GET CONTROL CHARACTER P ST A3,CONCHA P ANK A3,/FF $ P SUK A3,/2B SUPER POSITIONIN
0x070ef4…071088 Dummy {f00=0x0048, f01=0x0190, f02=» P* PACLP15 LDK A1,/0A LINE FEED * P SC A1,1,A4 SECOND CHARACTER IN BUFFER 2 P SUK A3,5 TWO LINE FEEDS ? ` P RF(E) ACLP20 YES P LDK A1,/0C TOP OF FORM P SUK A3,1 WANTED ? P RF(E) ACLP20 YES P LDK A1,/0D CARRIAGE RET
0x071088…07121c Dummy {f00=0x0048, f01=0x0190, f02=»IOSTA SEND BUFFER P SUK A7,6 ORDER 6 ? P RF(NE) ENDIO 6 P LDR A2,A2 L P RF(NN) ACLP35 ^ 4 P IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D) t P* PACLP35 EQU * P LD A4,2,A8 BUFFER ADDRESS P LDKL A3,0 PCONCHA EQU
0x07121c…0713b0 Dummy {f00=0x0048, f01=0x0190, f02=»DIO CF A15,TENDIO END REQUEST PEXIT ABL TDISP & P* < P EJECT DRLP01 F P* ^ P* h P* CIOSTA r " P* SUBROUTINE TO SEND BUFFER P* P* PCIOSTA EQU * P ST A5,DWTA5,A6 SAVE A5 P IFT CHAN=0 6 P
0x0713b0…071544 Dummy {f00=0x0048, f01=0x0190, f02=»FIRST WRITE EXTERNAL REGISTER 2 P WER A4,MUXLP+1 SECOND WRITE EXTERNAL REGISTER & P XIF P* h P IFT CHAN=1 r ( P ST A4,DWTA3,A6 SAVE BUFFER ADDRESS P ADR A4,A2 . P ST A4,DWTA4,A6 SAVE BUFFER END ADDRESS+1 P XIF P*
0x071544…0716d8 Dummy {f00=0x0048, f01=0x0190, f02=»1 P* P* P* RECOVERY ROUTINE P* < P* F PLPON EQU * P P IFT CPU852=1 b & P CF A15,SAVE8 SAVE A1-A8 ON STACK x P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x0716d8…07186c Dummy {f00=0x0048, f01=0x018e, f02=»LP30 P* P EJECT DRLP01 P* . P* 8 P* I N T E R R U P T B P* ` P* j PIHLP EQU * t $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CHAN=0 P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF
0x07186c…071a00 Dummy {f00=0x0048, f01=0x0190, f02=» P STR A1,A15 P STR A2,A15 P LDKL A2,DWLP01 DWT-ADDRESS , 2 P LD A1,DWTA3,A2 POINTER AT NEXT BYTE IN BUFFER P P LCR A2,A1 NEXT BYTE " P OTR A2,0,DWALP WRITE ONE BYTE P RF(NA) IHLP20 NOT ACCEPTED P LDKL A2,DWLP01 DWT-ADDRESS
0x071a00…071b94 (1, 143) Dummy {f00=0x0049, f01=0x018e, f02=»ALP CIO HALT PIHLP10 EQU * P LDR* A2,A15 ( P LDR* A1,A15 < P RTN A15 P P* ` P* j P* t PIHLP20 STR A3,A15 ~ P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P XIF P
0x071b94…071d28 Dummy {f00=0x0049, f01=0x0190, f02=» P ANK A7,/FF P LD A8,DWTECB,A6 ECB ADDRESS P* < P IFT CHAN=0 F 4 P RER A3,MUXLP GET NUMBER OF NOT TRANSFERED CHAR. Z P ANKL A3,/FFF 8 P LD A2,4,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS P SUR A2,A3 P XIF P*
0x071d28…071ebc Dummy {f00=0x0049, f01=0x0190, f02=» RF(NE) IHLP35 P ADK A2,1 YES PIHLP35 EQU * , 8 P SU A2,2,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS @ P XIF | " P ST A2,6,A8 STORE EFF. LENGTH $ P LD A5,DWTA5,A6 GET STACK VALUE P RTN A5 P* P EJECT DRLP01 P
0x071ebc…072050 Dummy {f00=0x0049, f01=0x0190, f02=»L PARAMETER P DATA /8000 STATUS P DATA 0 ECB ADDRESS . P DATA 0 ORDER J ( P DATA LPADR ADDRESS TO ADDRESS BLOCK ` P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DAT
0x072050…0721e4 Dummy {f00=0x0049, f01=0x4118, f02=»A FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 0 P RES 4 DWT STACK P P* h P IFT MMUPAG=1 r PDEVECB EQU * P DATA 0 P DATA LP:BUF P DATA 0,0,0,0 PLP:BUF RES DVBLEN+1 P XIF P* P
0x0721e4…072378 Dummy {f00=0x0049, f01=0x2008, f02=» P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR ( P DATA 0 TERMINAL QUEUE P P DATA 0 OUTPUT QUEUE LINK n P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P
0x072378…07250c Dummy {f00=0x0049, f01=0x0190, f02=» K P* L P* L ( P************************************ L ( P* D W R E M U * L H ( P************************************ L t P* L . P* DUMMY TABLE USED WHEN LOOP-TESTING OF L $ P* REMOTE CHANNELS ARE NEEDED. L P* L
0x07250c…0726a0 Dummy {f00=0x0049, f01=0x0190, f02=»0,0,0 L P EJECT M P* M P* M & * P* L O O P - T E S T S E C T I O N M 0 P* M ^ P* M h 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION M r P* M : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. M 6 P* THE REQUEST IS COMP
0x0726a0…072834 (1, 144) Opaque[0x194]
0x072834…0729c8 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x072834…0729c8 IdxSect {
0x072834…0729c8 f00 = 0x0008 // 0x72834 @0x0
0x072834…0729c8 f01 = 0x002c // 0x72836 @0x2
0x072834…0729c8 gno = [ // 0x72838 @0x4
0x072834…0729c8 [0x00]: C0x0008.0x3.0
0x072834…0729c8 [0x01]: C0x0009.0x0.0
0x072834…0729c8 [0x02]: C0x0009.0x1.0
0x072834…0729c8 [0x03]: C0x0009.0x2.0
0x072834…0729c8 [0x04]: C0x0009.0x3.0
0x072834…0729c8 [0x05]: C0x000a.0x0.0
0x072834…0729c8 [0x06]: C0x000a.0x1.0
0x072834…0729c8 [0x07]: C0x000a.0x2.0
0x072834…0729c8 [0x08]: C0x000a.0x3.0
0x072834…0729c8 [0x09]: C0x000b.0x0.0
0x072834…0729c8 [0x0a]: C0x000b.0x1.0
0x072834…0729c8 [0x0b]: C0x000b.0x2.0
0x072834…0729c8 [0x0c]: C0x000b.0x3.0
0x072834…0729c8 [0x0d]: C0x000c.0x0.0
0x072834…0729c8 [0x0e]: C0x000c.0x1.0
0x072834…0729c8 [0x0f]: C0x000c.0x2.0
0x072834…0729c8 [0x10]: C0x000c.0x3.0
0x072834…0729c8 [0x11]: C0x000d.0x0.0
0x072834…0729c8 [0x12]: C0x000d.0x1.0
0x072834…0729c8 [0x13]: C0x000d.0x2.0
0x072834…0729c8 [0x14]: C0x000d.0x3.0
0x072834…0729c8 [0x15]: C0x000e.0x0.0
0x072834…0729c8 ]
0x072834…0729c8 }
0x0729c8…072b5c Dummy {f00=0x0008, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DK 7 82-10-04 870105040924 " P DK7,READ-MODIFIED, MODIFIED 8 P 82-10-02 ^ P DK6, READ MODIFIED r $ P DK5,STATUS HANDLING,NJ-AMT,LP & P DK4, TRANS.PARAM.ADDR.,/00,/7F P DK3, RBUFNR=1 ALLOWED P DK2
0x072b5c…072cf0 Dummy {f00=0x0008, f01=0x0190, f02=» =8, ASCII-MODE FOR SALCUZ P REL 9.1 79-07-19 $ & P =7, ACK IN CONVERSATIONAL MODE @ P REL 9.1 79-07-19 j * P =6, DCTASK BUFFER ADDRESS DESTROYED P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE P REL 9.1 79-05
0x072cf0…072e84 Dummy {f00=0x0008, f01=0x0190, f02=» =2, ABORT HANDLING P PRR 9.1 78-11-29 P =1, MSR-INSTRUCTION 8 P PRR 9.1 78-11-14 V P REL 8.2 78-11-14 r P P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PT
0x072e84…073018 Dummy {f00=0x0008, f01=0x0190, f02=»NS MSV1 | P* P* P* $ P* . P* 8 8 P**************************************************** B P ~ P* P* P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT IN
0x073018…0731ac Dummy {f00=0x0008, f01=0x0190, f02=» P* P* EXTERNAL REFERENCES P* , P* 6 " P EXTRN TDISP DISPATCHER ENTRY @ ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK f $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER P EXTRN DWT
0x0731ac…073340 Dummy {f00=0x0008, f01=0x0190, f02=»EBCDIC ASCII TO EBCDIC TABLE ( P EXTRN TASCII EBCDIC TO ASCII TABLE $ $ P EXTRN ECBBA ECB BUFFER ADDRESS P & P EXTRN ECBRL ECB REQUESTED LENGTH x & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL
0x073340…0734d4 (1, 145) Dummy {f00=0x0009, f01=0x0190, f02=»ST AND DISPATCH t P P* " P* , P* 6 P* @ 6 P* STANDARD INTERFACE PART FOR DATA COMMUNICATION J P* P* P* P* P* DWT CONTENTS P* J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BI
0x0734d4…073668 Dummy {f00=0x0009, f01=0x0190, f02=»ONAL ASSEMBLY x P* ( PXRVI EQU /5C STANDARD:/40, DK:/5C DK * PX:D EQU 0 BASE FOR RBUFL AND TBUFL DK L " PX:X EQU 500 VALUE FOR BASE DK z & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK PX:B EQU /60 DCTASK FILE CODE
0x073668…0737fc Dummy {f00=0x0009, f01=0x018e, f02=» * PX:E EQU 1 STATUS AND RVI HANDLING IF=1 PSTAT EQU 1 2 . PSSTAT EQU 1 1=SPECIAL STATUS HANDLING DK5 D 2 PLPDEV EQU /45 DEVICE WITH STATUS HANDLING DK5 v ( PX:F EQU 1 READ COMMAND HANDLING IF=1 PRCOM EQU 1 & PX:G EQU 254 TRANSMIT BLOCK LEN
0x0737fc…073990 Dummy {f00=0x0009, f01=0x0190, f02=» h PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW L PSPEED EQU 1 x * PX:K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU 0 . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU
0x073990…073b24 Dummy {f00=0x0009, f01=0x0190, f02=»DRESS OF RECEIVER z P XIF P IFT P6805=1 & , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER : P XIF j PX:O EQU 0 v , PIBMCHR EQU 0 IF 1 IBM CHARACTER HANDLING . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK PMESPAS EQU 0 4 PX:Q EQU 0
0x073b24…073cb8 Dummy {f00=0x0009, f01=0x018e, f02=»ION n , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK < 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT l 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE".
0x073cb8…073e4c Dummy {f00=0x0009, f01=0x0190, f02=» P IFT P6805=1 6 PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER P XIF V P* b P EJECT l P* z P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P**********************
0x073e4c…073fe0 Dummy {f00=0x0009, f01=0x0190, f02=» PMMUPAG EQU 1 P* P DB & P IFT MMUPAG=0 DK2 4 PTBUFL EQU 0 DK2 N P XIF DK2 f P* x P IFT MMUPAG=1 DK2 * PTBUFL EQU 650+X:X MMU BUFFER LENGTH DK P XIF DK2 P DE P* 6 P* A PROGRAM VERSION
0x073fe0…074174 (1, 146) Dummy {f00=0x0009, f01=0x0190, f02=»QU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE . P* P f P* p P* DWT DISPLACEMENTS z P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD
0x074174…074308 Dummy {f00=0x0009, f01=0x018e, f02=»PROCESS h . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE B & PDWTRQ EQU START+/06 RECEIVE QUEUE j . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS ( PDWTCUR EQU START+/0A CURSOR ADDRESS . PDWTINF EQU START+/0E D
0x074308…07449c Dummy {f00=0x0009, f01=0x0190, f02=» P* P* P* A7=ORDER P* . P* /02: READ 8 P* /06: WRITE L P* /31: TRANSFER DWTINF DK5 ` " P* /33: READ MODIFIED RESPONSE P* /37: TRANSFER PARAMETERS P* /38: SET STATUS $ P* /39: SET REQUEST TIMEOUT VALUE
0x07449c…074630 Dummy {f00=0x0009, f01=0x0190, f02=»OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS $ PDCWRQ DATA 0 WRITE REQUEST QUEUE D , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL l P P* P* DC TASK ADDRESS BLOCK P* $ P DATA 0 INDICATES NO MMU BUFFER P DATA
0x074630…0747c4 Dummy {f00=0x0009, f01=0x0190, f02=»FFER ANCHOR | P* P* DRIVER ADDRESS BLOCK P* < P DATA BUFLEN MMU BUFFER SIZE F P DATA DEVIND DEVICE INDEX j ( PDC15AD DATA DCACT ACTIVATION ADDRESS P DATA ABORT ABORT ROUTINE $ P DATA DCRBUF REC. BUFFER ANCHOR P*
0x0747c4…074958 Dummy {f00=0x0009, f01=0x0190, f02=»FT SPEED=1 PLSPEED EQU /0200 P XIF * P IFT SPEED=0 6 PLSPEED EQU 0 J P XIF ^ P j P* t P* ~ $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT EQU * P LDK A1,0 PRESET RETURN CODE P IFT EM3270=1 =4
0x074958…074aec Dummy {f00=0x0009, f01=0x0190, f02=»UK A7,/06-/02 P RF(Z) DCWR P SUK A7,/31-/06 DK5 * $ P RF(Z) TRINF TRANSFER DWTINF DK5 F P SUK A7,/33-/31 DK7 n , P RF(E) RESTRM RESPONSE TO READ MODIFIED P SUK A7,/37-/33 DK5 $ P RF(Z) DCTP TRANSFER PARAMETERS P IFF STAT=
0x074aec…074c80 Dummy {f00=0x0009, f01=0x0190, f02=»IF P P IFT STAT=0 P SUK A7,/39-/37 & $ P ABL(Z) REQTIM SET REQUEST TIMER > P XIF f P RF DCA100 r P P* P* P* ACTIVATION FROM DCTASK P* P* PDCACTD EQU * $ P SUR A1,A1 PRESET RETURN CODE
0x074c80…074e14 (1, 147) Dummy {f00=0x0009, f01=0x0190, f02=»E) DCRDDC READ P SUK A7,/37-/02 $ P RF(E) DCTP TRANSFER PARAMETERS . P V PDCA100 EQU * REQUEST ERROR ^ P ABL DISIOE INVALID ORDER P* P* P* READ FROM DCTASK P* P* P* REQUEST FROM DC-TASK P* COMP
0x074e14…074fa8 Dummy {f00=0x0009, f01=0x0190, f02=»5,CKMESS CHECK IF MESSAGE RECEIVED PDCRTN EQU * * P ABL TDISP GO TO DISPATCHER > P IFT EM3270=1 =4 b P | . P***************************************** P* P* ANY MESSAGE ORDER P* " P*****************************
0x074fa8…07513c Dummy {f00=0x0009, f01=0x0190, f02=» l P XIF P P* P* TRANSFER DWTINF DK5 ( P* DK5 F PTRINF EQU * DK5 V P LD A2,ECBCW,A8 GET INFO DK5 n & P ORS A2,DWTINF,A6 OR AND STORE DK5 " P RF ENDIO COMPLETE REQUEST DK5 P* P* RESPONSE TO READ MODIFIED
0x07513c…0752d0 Dummy {f00=0x0009, f01=0x0190, f02=»DISIOE NO, REQUEST ERROR DK7 * P RF DCWR TREAT ALMOST AS WRITE REQUEST $ P* R P* P* TRANSFER PARAMETERS f P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL AD
0x0752d0…075464 Dummy {f00=0x0009, f01=0x0190, f02=»C A2,ECBCW,A8 GET TCS IF ANY P ANK A2,/FF $ P RF(Z) DCTP10 8 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII N P SLL A2,8 z PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P
0x075464…0755f8 Dummy {f00=0x0009, f01=0x0190, f02=»TP14 EQU * , P RF(Z) DCTP18 NO, END OF/OR NO QUEUE DK4 & P LDR A3,A6 ADJUST ADDR. VALUE DK4 D P ADKL A3,DWTSQ DK4 n , P CWR A1,A3 SOMETHING QUEUED OUR DWT? DK4 4 P RF(E) DCTP16 YES, WAIT BEFORE TRANS. PARAM. DK4 & P LDR* A1,A1 NOT OURS,
0x0755f8…07578c Dummy {f00=0x0009, f01=0x018e, f02=»STATUS IS SENT DK4 v ( P DATA TPTOUT,20 DELAY= 2 SECONDS DK4 P RB DCRTN DK4 F PTPTOUT EQU * P LDR A6,A1 RESTORE DWT DK4 r * P RB DCTP12 LOOK IN THE QUEUE AGAIN DK4 PDCTP18 EQU * , P LD A2,DWTBUF,A6 RESTORE TERM ADDR. DK4 ( P
0x07578c…075920 Dummy {f00=0x0009, f01=0x0190, f02=» " P CWK A6,DW1500 DCTASK DWT ??? 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * * P LD A1,DC:IN GET DC:TAB INPUT POINTER ` * P CWK A1,DC:END TABLE ALREADY FULL ???? & P ABL(E) DISIOE YES!! REQUEST ERROR P P P PDCTP20 E
0x075920…075ab4 (1, 148) Dummy {f00=0x0009, 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
0x075ab4…075c48 Dummy {f00=0x0009, 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 P*
0x075c48…075ddc Dummy {f00=0x0009, f01=0x0190, f02=»* PDCWR EQU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH 2 " P CWK A1,BUFLEN ILLEGAL LENGTH? Z P RF(G) IL:LEN YES!! P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST 2 P LD A1,DWTOR,A6 RESPONSE TO
0x075ddc…075f70 Dummy {f00=0x0009, f01=0x0190, f02=»ECIFIC POLL DK7 r P RB DCRTN ! P* ! * P* ! 4 P* ! > P* READ ! H P* ! V P* ! ` P* COMPLETE WHEN: ! j P* MESSAGE RECEIVED ! P* TIME OUT ! P* ! P* ! PDCRD EQU * ! P LD A8,DWTECB,A6 GET ECB ! . P LD A4,DWTRQ,A6
0x075f70…076104 Dummy {f00=0x0009, f01=0x0190, f02=» P ST A2,DWTRQ,A6 " P ADK A4,6 " " P LD A3,-4,A4 EFFECTIVE LENGTH " . P ST A3,ECBEL,A8 " T P " l P LDK A1,0 RESET RETURN CODE " t * P CF A15,DC:MIN MOV DATA TO USER BUFFER " P RB DCRTN " P " $ PDCRD10 CF A15,TIMERE START TIMER " P
0x076104…076298 Dummy {f00=0x0009, f01=0x0190, f02=»CW,A8 GET STATUS INFORMATION " P ANK A1,3 MASK DB,IR # $ P RF(Z) DCSS20 DEVICE END # @ PDCSS10 EQU * # ` P ST A1,DWTST,A6 # t P RB DCTP30 COMPLETE REQUEST # PDCSS20 EQU * # P LD A1,DWTST,A6 # P ANK A1,9 # ( P RB(Z) DCSS10 WACK HAS NOT
0x076298…07642c Dummy {f00=0x0009, f01=0x0190, f02=» P $ P $ P* $ " P* SET REQUEST TIMEOUT VALUE $ P* $ F P* $ P P $ Z PREQTIM EQU * $ b " P LD A2,ECBCW,A8 TIMEOUT VALUE $ v $ P ST A2,DWTTIM,A6 SAVE IT IN DWT $ P RB DCTP30 TENDIO & DISPATCH $ P $ P* $ ( P* ILLEGAL AP
0x07642c…0765c0 Dummy {f00=0x0009, f01=0x0190, f02=» $ t P % P* % P* % P* % & P* TIMER HANDLING PART % 0 P* % N P* % X P* % b P* READ TIMER=TIMERR % l P* % PTIMERE EQU * % P LDR A1,A6 % . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE % P RF(Z) TIME10 NO TIMING %
0x0765c0…076754 (1, 149) Dummy {f00=0x000a, f01=0x0190, f02=»10 EQU * % P RF GBUF10 RETURN & P* & * P* TIMEOUT READ TIMER & 4 P* & P PTOUTRE EQU * & Z P LDR A6,A1 FETCH DWT & n P CM DWTTP,A6 & PTOUTR1 EQU * & " P LDK A1,/40 INDICATE TIME OUT & $ PTOUTR2 RB ENDIO COMPLETE REQUEST & P* &
0x076754…0768e8 Dummy {f00=0x000a, f01=0x0190, f02=»G & z P ST A2,TIMWR ' P CF A15,SETIME ' P DATA TOUTWR ' 4 PTIMWR DATA 0 ' H P ST A4,DWTTP,A6 ' P RB TIME10 ' t P ' P* ' P* TIMEOUT WRITE TIMER ' P* ' PTOUTWR EQU * ' P LDR A6,A1 FETCH DWT ' P CM DWTTP,A6 ' * P C
0x0768e8…076a7c Dummy {f00=0x000a, f01=0x0190, f02=»A2,FDWTUT ' P CWR A2,A6 ( * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING ( $ ( P CM XACK INDICATE 'ACK NOT EXPECTED' ( R P CM FDWTUT ( ~ P* ( P* ( P RB TOUTR1 ( P ( P* ( P* ( P* STOP REQUEST TIMING ( P* ( & P* REMAINING
0x076a7c…076c10 Dummy {f00=0x000a, f01=0x0190, f02=»G ( x P LDR* A2,A2 ) " P NGR A2,A2 GET REMAINING TIME ) P CM* DWTTP,A6 STOP TIMER ) D P CM DWTTP,A6 ) d PCTIM10 EQU * ) x P RF GBUF10 ) P ) P* ) P* GET RECEIVE BUFFER ) P* ) $ P* CALLING SEQUENCE: CF A15,GRBUF ) P* A4=0 I
0x076c10…076da4 Dummy {f00=0x000a, f01=0x0190, f02=»2,DCRBUF RECEIVE BUFFERS ) PGBUF INH * P LDR* A4,A2 * 0 P RF(Z) GBUF10 NO BUFFER FREE * D . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN * h P STR A3,A2 * * PGBUF10 ADKL A15,4 ADJUST STACK POINTER * P ABR* A15 RETURN TO CALLER * P * P*
0x076da4…076f38 Dummy {f00=0x000a, f01=0x018e, f02=» A2,DCWRQ GET QUEUE ANCHOR * PINSWQ1 LDK A4,DWTWQ + " PINSWQ2 LDR* A3,A2 + > $ P RF(Z) INSWQ3 END OF QUEUE FOUND + X P LDR A2,A3 + P RB INSWQ2 + PINSWQ3 ADR A4,A6 + P STR A4,A2 INSERT IN QUEUE + " P CMR A4 INDICATE END OF QUEUE + P RB
0x076f38…0770cc Dummy {f00=0x000a, f01=0x0190, f02=» + P* , * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR , 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED , @ PREM06 EQU * , v P ADR A4,A6 , PREM10 LDR* A3,A2 , & P RB(Z) GBUF10 NOT ON QUEUE: RETURN , P CWR A3,A4 , P RF(E) REM15 , P L
0x0770cc…077260 Dummy {f00=0x000a, f01=0x018e, f02=» P* - P* INSERT DWT IN STATUS QUEUE - P* - 2 P IFF STAT=0 - < P* A2,A3,A4 DESTROYED - P P* A6=DWT - l P* - | PINSSQ EQU * - ( P LD A2,0,A6 GET TERMINAL ADDRESS DK4 - * P ANK A2,/FF IF ADDRESS = 00 OR /7F DK4 - ( P RB(Z) GBUF10 DONT P
0x077260…0773f4 (1, 150) Dummy {f00=0x000a, f01=0x0190, f02=» P LD A2,0,A6 GET TCA DK5 . P ANK A2,/FF DK5 . $ 0 P SUK A2,LPDEV IF STATUS HANDLING DEVICE DK5 . < P RB(NZ) GBUF10 NO DK5 . p P XIF DK5 . P IFF STAT=0 DK5 . $ P LDKL A2,DCSTQ GET QUEUE ANCHOR . P LDK A4,DWTSQ . P RB INSWQ2 . P
0x0773f4…077588 Dummy {f00=0x000a, f01=0x0190, f02=»,DCSTQ GET QUEUE ANCHOR . P LDK A4,DWTSQ / P RB REM06 / 6 P XIF / H P / T P* / ^ P* / h $ P* QUEUE ALLOCATED RECEIVE BUFFER / r P* / P* A4=BUFFER ADDR / P* A2,A3 DESTROYED / P* / PQRBUF EQU * / P IFT MESPAS=1 / (
0x077588…07771c Dummy {f00=0x000a, f01=0x018e, f02=» A2,DWTRQ BEGINNING OF RECEIVE QUEUE / PQR100 EQU * 0 , P LDR* A3,A2 0 @ $ P RF(Z) QR200 END OF QUEUE FOUND 0 T P LDR A2,A3 0 | P RB QR100 0 & PQR200 STR A4,A2 INSERT INTO QUEUE 0 " P CMR A4 INDICATE END OF QUEUE 0 P RTN A5 0 P 0
0x07771c…0778b0 Dummy {f00=0x000a, f01=0x0190, f02=» 0 ^ P* 1 PCKMESS LDKL A6,DW1500 1 P LD A1,DWTST,A6 1 0 P RF(N) CKM110 NO REQUEST 1 H P LDK A1,2 READ REQUEST ? 1 h P CW A1,DWTOR,A6 1 P RF(NE) CKM110 NO 1 $ P LD A8,DWTECB,A6 ECB ADDR TO A8 1 * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE
0x0778b0…077a44 Dummy {f00=0x000a, f01=0x0190, f02=» ADDR INTO QUEUE 1 v " P ADK A3,6 MOVE POINTER TO TEXT 2 & P DONT DESTROY BUFFER ADDRESS =6 2 > P LD A4,-4,A3 2 h 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS 2 | P LD A4,-2,A3 2 . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS 2 P 2 P LDK A1,0
0x077a44…077bd8 Dummy {f00=0x000a, f01=0x0190, f02=»JUST STACK POINTER 2 | P ABR* A15 RETURN 3 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS 3 2 , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT 3 n P CW A1,DCSTOL 3 P ST A1,DCSTOL 3 & P RB(E) CKM110 NO CHANGE OF STATUS 3 * P ORKL A1,/2000 INDIC
0x077bd8…077d6c Dummy {f00=0x000a, f01=0x0190, f02=»************************************** 3 z P* 4 . P* ABORT ROUTINE 4 8 P* 4 R P************************ 4 P 4 | & PABORT LD A1,DWTTP,A6 TIMER POINTER 4 " P RF(Z) AB:10 NO TIMER RUNNING 4 P CM* DWTTP,A6 KILL TIMER 4 P CM DWTTP,A6 4 P
0x077d6c…077f00 Dummy {f00=0x000a, f01=0x0190, f02=») AB:RTN NO ACTION IF NOT READ/WRITE 4 P 5 , . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 5 4 & P LD A2,FDWTUT WRITING DWT ADDRESS 5 f P CWR A2,A6 5 P RF(NE) AB:RTN NOT THIS DWT 5 P CM XACK RESET ACK EXPECTED 5 P CM FDWTUT RESET WRITING DWT 5
0x077f00…078094 (1, 151) Dummy {f00=0x000a, f01=0x0190, f02=»852=1 5 P RTN A15 6 P XIF 6 P 6 * P 6 4 P 6 < P* 6 F P* 6 P P* STORE REGISTER A3-A8 6 Z $ P* CALLING SEQUENSE: CF A15,STREG 6 x P* 6 P* RESTORE 6 $ P* CALLING SEQUENCE: CF A15,LDREG 6 P* 6 P* 6 PSTREG ST A3,LCA3
0x078094…078228 Dummy {f00=0x000a, f01=0x0190, f02=» 6 PLDREG LDKL A3,0 7 PLCA3 EQU *-2 7 P LDKL A4,0 7 4 PLCA4 EQU *-2 7 F P LDKL A5,0 7 Z PLCA5 EQU *-2 7 l P LDKL A6,0 7 PLCA6 EQU *-2 7 P LDKL A7,0 7 PLCA7 EQU *-2 7 P LDKL A8,0 7 PLCA8 EQU *-2 7 PRTNA15 EQU * 7 P A
0x078228…0783bc Dummy {f00=0x000a, f01=0x0190, f02=»R 9 SEC DK 7 t " PTIMNAK EQU 3 DELAY FOR NAK DK 8 P* 8 8 P* 8 B P* CHARACTER EQUATES 8 L P* 8 h & PSF EQU X'1D' START FIELD CHARACTER 8 r PSYN EQU /16 8 PSTX EQU /02 8 PETX EQU /03 8 PETB EQU /17 8 PITB EQU /1F 8 PSOH EQU
0x0783bc…078550 Dummy {f00=0x000a, f01=0x0190, f02=»QU /22 8 PRDBCOM EQU /32 9 PRDMCOM EQU /36 9 $ P IFT CODE=0 9 : PPAR EQU /80 9 N PRVI EQU /3C 9 b PACK0 EQU /30 9 v PACK1 EQU /31 9 PDC1 EQU /11 9 P IFT MSV1=0 9 PWACK EQU /3B 9 P XIF 9 P IFT CODE=0 9 P IFT MSV1=1 9
0x078550…0786e4 Dummy {f00=0x000a, f01=0x0190, f02=»U XRVI DK 9 PACK0 EQU /18 : PACK1 EQU /2F : & PSYNEBC EQU /32 : : P XIF : P P : P* : f P* : p P* PROCEDURE WORK AREAS : z P* : P* : * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION : . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION :
0x0786e4…078878 Dummy {f00=0x000a, f01=0x0190, f02=»LT : d " PXRB DATA 0 READ BUFFER SWITCH ; PCACK DATA 0 ACK COUNTER ; 0 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP ; P P* ; ~ PFECB RES 1 WRITING ECB ; ( PFECBBA RES 1 WRITING BUFFER ADDRESS ; & PFECBRL RES 1 WRITING BUFFER LENGTH ; PFBAX DATA 0
0x078878…078a0c Dummy {f00=0x000a, f01=0x0190, f02=» PROCEDURE TIMING ; x , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA < ( PCRDBUF DATA 0 READ BUFFER COUNTER DK < J P* < v P* < $ P* 3270 SENSE/STATUS INFORMATION < P* < P* < P IFF STAT=0 < . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE <
0x078a0c…078ba0 Dummy {f00=0x000a, f01=0x0190, f02=»26 S/S 1 : INTERVENTION REQUIRED < P XIF = ( P = 4 P* = > P* = H P* BASIC RECEIVE MODE = R P* = n " P* ENTERED EVERY TIME A MESSAGE = x & P* IS EXPECTED FROM THE MASTER SIDE = P* = P* = P IFT P6805=1 = & PBRMHLT CF A5,HALTIN HALT
0x078ba0…078d34 (1, 152) Dummy {f00=0x000a, f01=0x0190, f02=»UPDATE STATUS = p P XIF > P IFT P6805=1 > " * P CF A15,CKMESS CHECK IF STATUS CHANGE > 6 P XIF > d PBRM010 EQU * > p P IFT CODE+P6805=0 > 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTERN > P XIF > P IFT P6805=0 > P IFT CODE=1 > 4 P L
0x078d34…078ec8 Dummy {f00=0x000a, f01=0x018e, f02=» IFT P6805=1 > P IFF CODE=1 ? P LDK A2,/0C ? ( " P CIO A2,1,LCUIN START RECEIVER ? < P LDK A2,SYN ? b * P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER ? v P RB(NA) BRMHLT ? P XIF ? P IFT CODE+P6805=2 ? P LDK A2,0 ? " P CIO A2,1,LCUIN START
0x078ec8…07905c Dummy {f00=0x000a, f01=0x0190, f02=» $ P CF A5,READP READ ONE CHARACTER @ P RF(NZ) BRM150 PARITY ERROR @ , P LDR A1,A2 @ P P SUK A1,STX @ b P RF(Z) BRM300 STX RECEIVED @ v P SUK A1,EOT-STX @ P RF(Z) BRM200 EOT RECEIVED @ P SUK A1,ENQ-EOT @ P ABL(Z) BRM400 ENQ RECEIVED @
0x07905c…0791f0 Dummy {f00=0x000a, f01=0x0190, f02=»0 @ P LDR A8,A2 A $ P CF A5,READP READ ONE CHARACTER A P RF(NZ) BRM150 PARITY ERROR A D P CWR A2,A8 A h & P RF(NE) BRM150 INVALID ADDRESSING A z P XIF A P LDK A3,0 A P CC A2,DW1500+1 A P RF(E) BRM110 POLLING A P LDK A3,2 A
0x0791f0…079384 Dummy {f00=0x000a, f01=0x0190, f02=»ERROR A z P LDR A8,A2 B P IFT MSV1=0 B P CF A5,READP READ 2:ND STA B 4 P RF(NZ) BRM150 PARITY ERROR B V P CWR A2,A8 B z , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE B P XIF B " P CF A5,READ READ ONE CHARACTER B P IFT P6805=0 B P SUK A
0x079384…079518 Dummy {f00=0x000a, f01=0x0190, f02=»A5,READ READ LAST CHARACTER B P C $ " P* TRAILING PAD CAN BE CHECKED C , P C R P CIO A1,0,LCUIN HALT INPUT C Z P SST A1,LCUIN C | P XIF C P IFT P6805=1 C P CF A5,HALTIN HALT INPUT C P RB(NZ) BRM010 PARITY ERROR C P XIF C P LDK A
0x079518…0796ac Dummy {f00=0x000a, f01=0x0190, f02=»BL(E) GPOLL GENERAL POLL C P IFT MSV1=1 D 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) D 4 P XIF D n P IFT MSV1=0 D z & P CF A5,FINTER CHECK IF STA PRESENT D P XIF D P LDR A6,A3 LOAD DWT TO A6 D P ABL(NZ) SPOLL SPECIFIC POLL D
0x0796ac…079840 Dummy {f00=0x000a, f01=0x0190, f02=»M130 STA FOUND D P IFT MSV1=0 E $ P LDKL A6,DW1500 SELECT TO DCTASK E , PBRM130 EQU * E T P ABL SELECT E h P XIF E | P IFT MSV1=1 E P ABL BRM INVALID ADDRESS E P XIF E P* E , P* WAIT FOR MARK HOLD TO RESYNCHRONIZE E
0x079840…0799d4 (1, 153) Dummy {f00=0x000b, f01=0x018e, f02=»CTER E r P RB BRM150 F P F P* F ( P* F 2 P* EOT HAS BEEN RECEIVED F < P* F P* F f PBRM200 EQU * F p & P CF A5,HPTIM STOP PROCEDURE TIMER F P IFT RCOM=1 F P CM XRB RESET READ BUFFER F P XIF F P LD A1,XACK F & P RF(
0x0799d4…079b68 Dummy {f00=0x000b, f01=0x0190, f02=» ( P CF A5,CWRITE COMPLETE WRITE REQUEST G PBRM210 EQU * G 0 " P CM XACK RESET 'ACK EXPECTED' G D PBRM220 EQU * G j P CM XSEL RESET 'SELECTED' G ~ P RB BRM G P G P* G P* G P* STX HAS BEEN RECEIVED G P* G P* G PBRM300
0x079b68…079cfc Dummy {f00=0x000b, f01=0x0190, f02=»AILABLE G v PBRM305 EQU * H P CF A5,RDMESS READ MESSAGE H $ P SUK A7,1 H F P RF(NZ) BRM320 MESSAGE OK H X PBRM310 EQU * H z ( P CM XSTA INDICATE 'INVALID MESSAGE' H PBRM312 EQU * H P CF A5,TRNAK SEND NAK H P ABL BRM H PBRM315 EQU *
0x079cfc…079e90 Dummy {f00=0x000b, f01=0x0190, f02=»AVAILABLE H x " P LD A6,FDWTUT GET WRITING DWT I 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE I 8 P LDR* A2,A6 GET STA I l P XIF I P IFT RCOM=1 I , P CF A5,PRREC PREPARE FOR TEXT RECEPTION I * P LD A1,DWTECB,A6 SAVE CURRENT ECB DK6 I P S
0x079e90…07a024 Dummy {f00=0x000b, f01=0x0190, f02=»M305 READ THE MESSAGE I P XIF J ( PBRM316 CF A5,READ READ ONE CHARACTER J * P IFF P6805=1 =8 J V P SUK A2,ENQ+PAR J n P XIF =8 J P IFT P6805=1 =8 J P SUK A2,ENQ =8 J P XIF =8 J ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE J P R
0x07a024…07a1b8 Dummy {f00=0x000b, f01=0x018e, f02=»,FBLST J " P RF(NE) BRM325 NOT FIRST BLOCK K P IFF RCOM=0 K 4 P LDK A1,ESC K H P CCR A1,A4 K P RB(NE) BRM310 ESC NOT FOUND K n P ADK A4,1 K P LCR A1,A4 GET COMMAND CODE K P SUK A4,1 K P SUK A1,RDBCOM K ( P RF(Z) RDBUF READ MODIFI
0x07a1b8…07a34c Dummy {f00=0x000b, f01=0x0190, f02=» K & P RF(Z) BRM340 MESSAGE ENDED BY ETB L P CM FBAX L 2 * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER L B P ADK A4,6 L p P LD A6,FDWTIN GET INPUT DWT L P* L " P* PREPARE FOR CHAINED COMMAND L P* L P IFT RCOM=1 L P LDR* A2,A6 L P
0x07a34c…07a4e0 Dummy {f00=0x000b, f01=0x018e, f02=» L , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK M P LD A2,DWTST,A6 GET STATUS M 8 P RF(N) BRM330 NO REQUEST M Z P IFT EM3270=1 =4 M z P LD A2,DWTOR,A6 ORDER =4 M & P RF(Z) BRM327 ANY MESSAGE ORDER =4 M P XIF =4 M P LDK A2,2 M P CW A2
0x07a4e0…07a674 (1, 154) Dummy {f00=0x000b, f01=0x0190, f02=» M n P LD A3,-4,A4 GET LENGTH N * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH N ( & P CF A15,CTIME STOP REQUEST TIMING N V ( P ST A2,ECBCW,A8 STORE REMAINING TIME N P N P* N P* N 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC N P* N P
0x07a674…07a808 Dummy {f00=0x000b, f01=0x0190, f02=»F(Z) BRM328 N P LD A2,DWTST,A6 GET STATUS O P ORK A2,/A O 6 P ST A2,DWTST,A6 O H PBRM328 EQU * O ` P XIF O t P IFT EM3270=1 =4 O P LD A2,DWTOR,A6 ORDER =4 O , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 O & P SUK A4,6 ADJUST BUFFER ADDRES
0x07a808…07a99c Dummy {f00=0x000b, f01=0x0190, f02=»RESET RETURN CODE O & P CF A15,DC:MIN MOVE TO USER BUFFER P P RF BRM345 P D PBRM32A EQU * =4 P V P P n $ P CF A15,TENDIO COMPLETE REQUEST P v P RF BRM345 P P P PBRM330 EQU * P P IFT EM3270=1 =4 P P LD A1,DWTST,A6 STATUS =4 P
0x07a99c…07ab30 Dummy {f00=0x000b, f01=0x0190, f02=»PLETE REQUEST =4 P ~ PBRM335 EQU * =4 Q P XIF =4 Q 0 P SUK A4,6 GET BUFFER BASE Q B ( P CF A5,QRBUF QUEUE BUFFER FOR DCTASK Q d . P CF A15,CKMESS COMPLETE DCTASK READ IF ANY Q PBRM340 EQU * Q P CF A5,TRACK SEND ACK 0/1 Q P ABL BRM Q P
0x07ab30…07acc4 Dummy {f00=0x000b, f01=0x0190, f02=»K FROM LP DK5 Q $ P RB(Z) BRM340 ACK SHOULD BE SENT R P CF A5,TRWACK SEND WACK R > P RF BRM410 R ^ P XIF R p P IFF STAT=1 R | P RB BRM340 R P XIF R P R P* R P* R , P* READ MODIFIED OR READ BUFFER RECEIVED R P* R P*
0x07acc4…07ae58 Dummy {f00=0x000b, f01=0x0190, f02=»TIN DWT-ADDRESS FOR ADDRESSED TERMINAL R P LDK A1,1 S . & P XRS A1,CACK INCREMENT ACK COUNTER S @ P DB S j 0 P LDK A1,/02 INDICATE READ-MOD. RECEIVED DK7 S x P ORS A1,DWTINF,A6 DK7 S 2 P LDKL A1,/4000 SET RETURN CODE =READ-MOD. DK7 S ( P RB BRM3
0x07ae58…07afec Dummy {f00=0x000b, f01=0x0190, f02=» & P CF A5,HPTIM STOP PROCEDURE TIMER T P LD A1,XACK T . , P RF(NZ) BRM510 RETRANSMISSION OF MESSAGE T B P OR A1,XSEL T r " P RF(Z) BRM410 IN CONTROL STATE T . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE T PBRM410 EQU * T P ABL BRM T P XIF T
0x07afec…07b180 Dummy {f00=0x000b, f01=0x0190, f02=»TIMER T t P LD A1,XACK U P RF(NZ) BRM510 ACK EXPECTED U " P OR A1,XSEL U F " P RB(Z) BRM410 IN CONTROL STATE U Z P RF BRM636 U PBRM510 EQU * U P DB U P LDK A1,0 U P CIO A1,0,LCUIN DK U P SST A1,LCUIN DK U P CF A15,STRE
0x07b180…07b314 (1, 155) Dummy {f00=0x000b, f01=0x0190, f02=» U ~ P DE V " P LD A6,FDWTUT GET WRITING DWT V P IFF STAT=0 V < P LD A1,XSTA V P 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED V d P XIF V 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK V & P SU A1,FECBBA COMPUTE BUFFER INDEX V P ST A1
0x07b314…07b4a8 Dummy {f00=0x000b, f01=0x018e, f02=»IM STOP PROCEDURE TIMER V P LD A1,XACK W " P RB(Z) BRM410 ACK NOT EXPECTED W 4 & P CF A5,READ READ SECOND CHARACTER W Z P IFF P6805=1 =8 W P CWK A2,ACK0+PAR W P XIF =8 W P IFT P6805=1 =8 W P CWK A2,ACK0 =8 W P XIF =8 W P
0x07b4a8…07b63c Dummy {f00=0x000b, f01=0x0190, f02=» PBRM610 EQU * X P CF A5,TRENQ SEND ENQ X & P CF A5,SPTIM START PROCEDURE TIMER X 6 P RB BRM410 X ` PBRM620 EQU * X r P CWK A2,ACK1 X P RF(NE) BRM650 X P* X P* ACK , 1 RECEIVED X P* X P LD A1,CACK GET ACK COUNTER X $ P RB(Z)
0x07b63c…07b7d0 Dummy {f00=0x000b, f01=0x0190, f02=»S BEEN RECEIVED TO AN ETX BLOCK X P* Y ( P LDK A1,0 SET RC=0 Y 2 PBRM635 EQU * Y L P IFF STAT=0 Y ` P LD A2,XSTA Y t . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED Y P XIF Y ( P CF A5,CWRITE COMPLETE WRITE REQUEST Y PBRM636 EQU * Y P C
0x07b7d0…07b964 Dummy {f00=0x000b, f01=0x0190, f02=» P LDK A1,1 Z & P XRS A1,CACK INCREMENT ACK COUNTER Z P ABL POL130 Z @ PBRM650 EQU * Z T P IFF P6805=1 =8 Z h P CWK A2,RVI+PAR Z P XIF =8 Z P IFT P6805=1 =8 Z P CWK A2,RVI =8 Z P XIF =8 Z ( P RB(NE) BRM610 INVALID DLE S
0x07b964…07baf8 Dummy {f00=0x000b, f01=0x0190, f02=» P RB BRM635 [ PBRM660 EQU * [ P LDK A1,0 SET RC=0 [ * P RB BRM635 [ D P IFF STAT=0 [ V P [ j P* [ t P* [ ~ " P* STATUS HAS BEEN TRANSMITTED [ P* [ P* [ PBRM670 EQU * [ " P LD A6,FDWTUT GET DWT ADDRESS [ , P CF A15,REMO
0x07baf8…07bc8c Dummy {f00=0x000b, f01=0x0190, f02=» [ v P ANK A1,4 P RB(Z) BRM636 NOT DE P LDKL A1,/8000 6 " P ANS A1,DWTST,A6 CLEAR STATUS L P RB BRM636 r P XIF P P* P* P* SELECT HAS BEEN RECEIVED P* P* PSELECT EQU * P LD A1,XACK =5
0x07bc8c…07be20 Dummy {f00=0x000b, f01=0x0190, f02=» $ P RF(Z) SEL110 NO PENDING STATUS ] P CF A5,TRRVI SEND RVI ] 0 P XIF ] N P IFF STAT=1 ] Z P RF SEL110 ] n P XIF ] PSEL100 EQU * ] P ABL BRM ] PSEL110 EQU * ] P IFT STAT+NOWACK=1 ] P ANK A3,8 ] P RF(NZ) SEL115 BUSY ]
0x07be20…07bfb4 (1, 156) Dummy {f00=0x000b, f01=0x0190, f02=»BL BRM ] PSEL111 EQU * ^ P XIF ^ " P LD A1,DCRBUF ^ . $ P RF(NZ) SEL120 BUFFER AVAILABLE ^ D PSEL115 EQU * ^ l P IFF STAT+NOWACK=2 ^ P CF A5,TRWACK SEND WACK ^ P XIF ^ P RB SEL100 ^ PSEL120 EQU * ^ , P CF A5,PRREC PREPARE FOR TEX
0x07bfb4…07c148 Dummy {f00=0x000b, f01=0x0190, f02=»* ^ P* _ PPRREC EQU * _ P IM XSEL SET 'SELECTED' _ ( P CM FBAX RESET BUFFER INDEX _ H P IFT CODE=1 _ l . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC _ P XIF _ $ P ST A2,+4,A1 SAVE STA IN BUFFER _ P IM XSTA _ " P ST A6,FDWTIN STOR
0x07c148…07c2dc Dummy {f00=0x000b, f01=0x018e, f02=»* _ P LD A1,XACK =5 ` & P RF(Z) POL020 ACK NOT EXPECTED =5 ` " " PPOL010 CF A5,TRENQ SEND ENQ =5 ` L * P CF A5,SPTIM START PROCEDURE TIMER =5 ` r " P ABL BRM WAIT FOR RESPONSE =5 ` PPOL020 EQU * =5 ` " P CF A5,CPTIM CHECK POLL TIMER ` P IFF
0x07c2dc…07c470 Dummy {f00=0x000b, f01=0x0190, f02=» P CF A5,TRSTA SEND STATUS a & P CF A5,SPTIM START PROCEDURE TIMER a $ P IM XACK SET 'ACK EXPECTED' a N P XIF a r P IFF STAT=1 a ~ P RF POL110 a P XIF a PPOL100 EQU * a P ABL BRM a PPOL110 EQU * a P LD A6,DCWRQ a " P RF(NZ) POL1
0x07c470…07c604 Dummy {f00=0x000b, f01=0x0190, f02=»ADDRESS a z PPOL125 EQU * b $ P LD A8,DWTECB,A6 GET ECB ADDRESS b $ P RF(NZ) POL126 b L P CF A15,REMOVW b b P RB POL115 b x PPOL126 EQU * b P ST A8,FECB SAVE ECB ADDRESS b P ST A6,FDWTUT SAVE A6 b P b P IFF MMUPAG=0 b $ P LDKL A4,M
0x07c604…07c798 Dummy {f00=0x000b, f01=0x0190, f02=»BUFFER ADDRESS b | P LD A3,ECBRL,A8 GET LENGTH c PPOL127 EQU * c 8 & P ST A4,FECBBA SAVE BUFFER ADDRESS c L ( P SUK A3,2 SKIP FIRST WORD OF BUFFER c v P ST A3,FECBRL SAVE LENGTH c P CM FBAX RESET BUFFER INDEX c PPOL130 EQU * c P CM XETX RES
0x07c798…07c92c Dummy {f00=0x000b, f01=0x0190, f02=»PECTED' c | P RB POL100 d P EJECT d " P* d 2 ( P* PROCESS RESPONSE TO READ MODIFIED d < P* d h PSPOLLX EQU * DK7 d r & P LDK A1,/06 FAKE A WRITE REQUEST d P ST A1,DWTOR,A6 DK7 d 6 P LDKL A1,/FFFF-/0002 CLEAR READ MODIFIED FLAG DK7 d
0x07c92c…07cac0 Dummy {f00=0x000b, f01=0x0190, f02=»* d & P* SPECIFIC POLL HAS BEEN RECEIVED e P* e 4 P* e > PSPOLL EQU * e H P IFF STAT+SPECP=0 e P LD A1,XACK =5 e v " P RB(NZ) POL010 ACK EXPECTED =5 e P LDR A7,A6 SAVE A6 e P CF A5,CPTIM CHECK POLLTIMER e P LDR A6,A7 RESTORE A6
0x07cac0…07cc54 (1, 157) Dummy {f00=0x000c, f01=0x0190, f02=»TAT+SPECP=0 e P LD A1,DWTST,A6 f P RB(N) POL115 NO REQUEST f , P LD A1,DWTOR,A6 GET ORDER f L P SUK A1,6 f n P RB(Z) POL125 WRITE REQUEST f P SUK A1,2 f " P RB(Z) POL125 EXCHANGE REQUEST f P XIF f P RB POL115 SEND EOT f P f
0x07cc54…07cde8 Dummy {f00=0x000c, f01=0x0190, f02=» P* g PCWRITE LD A6,FDWTUT g $ P RF(Z) CWR900 NO WRITE GOING ON g * P IFT RCOM=1 g R $ P LD A2,XRB IF RCOM, SKIP IT DK6 g f P RF(NZ) CWR900 DK6 g P XIF g P LD A2,DWTST,A6 g P RF(N) CWR900 NO REQUEST g P LD A2,DWTOR,A6 GET OR
0x07cde8…07cf7c Dummy {f00=0x000c, f01=0x0190, f02=»A1 g 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO h P LDK A2,2 TRANMISSION OK h @ ( P ST A2,DWTOR,A6 INDICATE READ ORDER h ` P RF CWR150 h & PCWR100 LD A8,FECB GET ECB ADDRESS h P CF A15,CTIME STOP TIMING h P LDR A8,A8 h P RF(Z) CWR15
0x07cf7c…07d110 Dummy {f00=0x000c, f01=0x0190, f02=» PCWR200 EQU * i PCWR900 EQU * i " P CM XACK RESET 'ACK EXPECTED' i , P CM FDWTUT i R P IFT RCOM=1 i d " P LD A2,XRB READ MODIFIED ? DK6 i x P RF(Z) CWR910 DK6 i $ P LD A2,DWTCUR,A6 RESTORE ECB DK6 i P ST A2,DWTECB,A6 DK6 i PCWR910 EQU
0x07d110…07d2a4 Dummy {f00=0x000c, f01=0x0190, f02=»S : i | ( P* 0 : IF CORRECT ETX BLOCK RECEIVED j 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW j 8 ( P* 2 : IF CORRECT ETB BLOCK RECEIVED j n P* j PRDMESS EQU * j $ P LD A4,DCRBUF GET BUFFER ADDRESS j P ADK A4,6 RESERVE HEADER j P LDK A3,
0x07d2a4…07d438 Dummy {f00=0x000c, f01=0x018e, f02=»X j PRDM050 EQU * k P AD A4,FBAX ADD BUFFER INDEX k ( P ST A4,FBLST REMEMBER START OF BLOCK k B PRDM075 EQU * k n P CM XSTA k P LDK A7,0 RESET LRC k P k P IFT IBMCHR=1 k P LD A1,FBAX k " P RF(NZ) RDM100 NOT FIRST BLOCK k P C
0x07d438…07d5cc Dummy {f00=0x000c, f01=0x0190, f02=» k h P CF A5,READP l P XIF l PRDM100 EQU * l ( $ P CF A5,READP READ ONE CHARACTER l < P RF(NZ) RDM120 PARITY ERROR l d PRDM110 EQU * l P CWK A2,ETX l P RF(E) RDM130 ETX RECEIVED l P CWK A2,ETB l P RF(E) RDM160 ETB RECEIVED l P
0x07d5cc…07d760 Dummy {f00=0x000c, f01=0x0190, f02=»/FF l $ P RF(E) RDM140 MARK HOLD RECEIVED m P m 4 P IFT CODE=0 m < P IFT BINTRM=1 m P P m f P LDR A1,A2 m n P SUK A1,DC1+3 m P RF(P) RDM115 NOT DC1-DC3 m P ADK A1,3 m P RF(N) RDM115 NOT DC1-DC3 m P SLL A1,6 m P LDR A8,A1
0x07d760…07d8f4 (1, 158) Dummy {f00=0x000c, f01=0x0190, f02=» ORR A2,A8 m PRDM115 EQU * n P XIF n & P n 2 P SCR A2,A4 STORE CHARACTER n : P ADK A4,1 INCREMENT POINTER n $ P IM FBAX INCREMENT BUFFER INDEX n P LD A1,FBAX n P CWK A1,RBUFL+RBUFL n P RB(NG) RDM100 NOT OVERFLOW n P* n P*
0x07d8f4…07da88 Dummy {f00=0x000c, f01=0x018e, f02=»F n $ P RF(Z) RDM150 MARK HOLD RECEIVED o P RB RDM100 o 2 P* o D P* ETX RECEIVED o N P* o d PRDM130 EQU * o n $ P LD A1,DCRBUF GET BUFFER ADDRESS o P LD A2,FBAX GET BUFFER INDEX o 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER o P IFF
0x07da88…07dc1c Dummy {f00=0x000c, f01=0x0190, f02=» o l P RF(E) RDM150 CRC WAS OK p P XIF p ( PRDM140 EQU * p 4 & P LDK A3,1 INDICATE INVALID MESSAGE p H PRDM150 EQU * p r $ P LDR A7,A3 SAVE RESULT REGISTER p P CF A5,HALTIN HALT INPUT p P IFT P6805=1 p P ORR A7,A1 PARITY ERROR p P XIF p
0x07dc1c…07ddb0 Dummy {f00=0x000c, f01=0x018e, f02=» " P LDK A3,2 INDICATE CORRECT ETB q P RB RDM130 q * P* q < P* ITB RECEIVED q F P* q PRDM170 EQU * q f P IFF CODE=1 q z P CF A5,RDLRC q " P RB(NZ) RDM120 LRC WAS NOT OK q P XIF q P IFT CODE=1 q & P CF A5,RDCRC READ CRC AND CHECK
0x07ddb0…07df44 Dummy {f00=0x000c, f01=0x0190, f02=» PTRACK LDK A2,1 r P LDK A3,ACK1 PRELOAD ACK1 r & P XRS A2,CACK INCREMENT ACK COUNTER r < P RF(NZ) TRDLE r f P LDK A3,ACK0 LOAD ACK0 r | P RF TRDLE r P* r P* TRANSMIT WACK r P* r PTRWACK LDK A3,WACK LOAD WACK r P RF TRDLE r
0x07df44…07e0d8 Dummy {f00=0x000c, f01=0x0190, f02=»LE r P* s PTRDLE LDK A2,DLE LOAD DLE s " P SC A2,RESEND PUT INSAVE AREA s 6 P SC A3,RESEND+1 s P RF TRREP s t P s P* s P* TRANSMIT NAK s P* s PTRNAK LDK A3,NAK LOAD NAK s P RF TREN10 s P* s P* TRANSMIT EOT s
0x07e0d8…07e26c Dummy {f00=0x000c, f01=0x018e, f02=» s v P* t ( PTREN10 SC A3,RESEND PUT IN SAVE AREA t P LDK A2,/FF t > P SC A2,RESEND+1 t R $ PTRREP CF A5,TRSYNC START OUTPUT t j & P LC A2,RESEND GET FIRST CHARACTER t P CF A5,WRITEP SEND IT t & P LC A2,RESEND+1 GET NEXT CHARACTER t P CF
0x07e26c…07e400 Dummy {f00=0x000c, f01=0x018e, f02=» t $ P CIO A2,0,LCUUT STOP TRANSMITTER u P IFT P6805=1 u 0 P CF A5,READ WAIT FOR END u D P XIF u d & P SST A2,LCUUT PERFORM SST AT ONCE u p P IFF LOGG=0 u ( P CF A5,LOGSST LOG TRANSMITTER STATUS u P XIF u P RTN A5 u P u P* u
0x07e400…07e594 (1, 159) Dummy {f00=0x000c, f01=0x0190, f02=» u P* v P* v P* TEST REQUEST HANDLING v P* v < P* v F P LD A4,FBAX v P ( P RF(NZ) TRT050 NOT START OF MESSAGE v d P v 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? v P RF(NZ) TRT050 YES !! v P v P LD A4,FECBBA v "
0x07e594…07e728 Dummy {f00=0x000c, f01=0x0190, f02=»D SOH v P LDK A7,0 RESET BCC w P LDK A2,'%' w * P CF A5,WRITE SEND % w > P LDK A2,'/' w Z P CF A5,WRITE SEND / w n P LDK A2,STX w P CF A5,WRITE SEND STX w ( P ST A4,FBLST REMEMBER START OF BLOCK w ( P ADK A4,5 SKIP AID + CURSOR ADDR
0x07e728…07e8bc Dummy {f00=0x000c, f01=0x0190, f02=» P* x P XIF x P LDK A2,STX x P CF A5,WRITE SEND STX x . P LDK A7,0 RESET LRC x L $ P LD A4,FECBBA GET BUFFER ADDRESS x h P AD A4,FBAX ADD BUFFER INDEX x ( P ST A4,FBLST REMEMBER START OF BLOCK x ( P ADK A4,2 SKIP FIRST WORD OF BUFFER x
0x07e8bc…07ea50 Dummy {f00=0x000c, f01=0x0190, f02=»GET TCA x P CF A5,WRITEP SEND TCA y P LDR* A2,A6 GET STA y . P CF A5,WRITEP SEND STA y J P IFT IBMCHR=1 y h P IFF RCOM=1 y ~ " P LDK A2,/27 SEND ENTER AS AID y P CF A5,WRITEP y " P LDK A2,/20 AND CURSOR ADDRESS y P CF A5,WRITEP y
0x07ea50…07ebe4 Dummy {f00=0x000c, f01=0x0190, f02=»*********** y " P LDK A2,X'2D' AID FOR DISPLAY z PTRT060 CF A5,WRITEP SEND AID z : P z ^ $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS z f . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER z P LDK A3,5 SET BLOCK COUNT z P RF TRT100 z PTRT070 EQU * z P
0x07ebe4…07ed78 Dummy {f00=0x000c, f01=0x0190, f02=»2,/7F z P IFT RCOM=1 { P RF TRT105 DK6 { " P { : @ P************************************************************ { B P* { , P* CHECK IF ATTRIBUTE CHARACTER OR NULL { P* { 4 P*********************************************** { P { &
0x07ed78…07ef0c Dummy {f00=0x000c, f01=0x0190, f02=» RF(NE) TRT102 NO,GO TO TRT102 { P LDK A2,/0A | & PTRT102 EQU * | : P CWK A2,/7D END OF MESSAGE ? | N " P RF(NE) TRT103 NO,GO TO TRT103 | r P LDK A2,/19 | PTRT103 EQU * | P CWK A2,X'7F' NULL ?? | P RF(NE) TRT105 | P SUK A2,1 | P X
0x07ef0c…07f0a0 Dummy {f00=0x000c, f01=0x0190, f02=» P } ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER } P ANK A2,X'7F' } 8 ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE } N P ANK A1,1 } z P ANK A2,/1E MASK } P SLL A2,1 } & P ORR A2,A1 IBM ATTRIBUTE COMPOSED } " P ORK A2,/40 BIT ALWAYS SET ONE } P L
0x07f0a0…07f234 (1, 160) Dummy {f00=0x000c, f01=0x0190, f02=»TEP SEND ATTRIBUTE } P ADK A3,1 ~ P RF TRT110 ~ , PTRT105 EQU * ~ > P XIF ~ R P ~ ^ P CWK A2,/07 ~ h ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT ~ | P CF A5,WRITEP SEND CHARACTER ~ PTRT110 EQU * ~ $ P IM FBAX INCREMENT BUFFER INDEX ~ & P
0x07f234…07f3c8 Dummy {f00=0x000c, f01=0x0190, f02=»R ~ l P CWK A3,TBLEN P RB(L) TRT100 NOT FULL BLOCK P IFT RCOM=1 D , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK X P CC A1,-2,A4 P RF(E) TRT115 YES P CC A1,-1,A4 P RF(NE) TRT116 NO SEND ETB ( P LCR A2,A4 GET FIRST BYTE AF
0x07f3c8…07f55c Dummy {f00=0x000c, f01=0x0190, f02=»OND BYTE AFTER SBA x P CF A5,WRITEP SEND IT P IM FBAX INCREMENT INDEX 8 P XIF X PTRT116 EQU * d P LDK A2,ETB LOAD ETB x PTRT120 EQU * P CF A5,WRITEP SEND IT P IFF CODE=1 P LDR A2,A7 GET LRC P CF A5,WRITEP SEND L
0x07f55c…07f6f0 Dummy {f00=0x000c, f01=0x018e, f02=»RC BYTE 1 | P ECR A2,A8 P ANK A2,/FF $ " P CF A5,WRIT05 SEND CRC BYTE 2 8 P XIF ^ P ABL TRRE10 HALT OUTPUT j PTRT130 EQU * P IM XETX INDICATE 'ETX SENT' PTRT140 EQU * P LDK A2,ETX LOAD ETX P RB TRT120 SEND ETX AN
0x07f6f0…07f884 Dummy {f00=0x000c, f01=0x018e, f02=» $ P IM XSTA INDICATE 'STATUS SENT' P ST A6,FDWTUT SAVE A6 , P CF A5,TRSYNC START OUTPUT J P IFF SSTAT=1 DK5 l P LDK A2,SOH P CF A5,WRITE SEND SOH P LDK A7,0 REST LRC P LDK A2,'%' P CF A5,WRITEP SEND '%' P LDK
0x07f884…07fa18 Dummy {f00=0x000c, f01=0x0190, f02=» P IFT SSTAT=1 DK5 P LDK A2,STX DK5 P CF A5,WRITE SEND STX DK5 6 P LDK A7,0 RESTORE LRC DK5 X P XIF DK5 z P IFF STAT=0 DK5 P LC A2,DW1500+1 P CF A5,WRITEP SEND TCA P LDR* A2,A6 P CF A5,WRITEP SEND STA
0x07fa18…07fbac Dummy {f00=0x000c, f01=0x0190, f02=»,WRITEP SEND S/S 0 P LDK A2,NOIR PRELOAD S/S 1 P LD A1,DWTST,A6 GET STATUS < P ANK A1,5 ^ P RF(Z) TRST10 NOT 'IR' p P ANK A1,4 P RF(NZ) TRST10 NO IR IF DE P LDK A2,IR PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P
0x07fbac…07fd40 Dummy {f00=0x000c, f01=0x0190, f02=» EQU * P LDK A2,0 * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE P SST A2,LCUIN PERFORM SST N P IFT P6805=0 p & P CIO A2,1,LCUUT START TRANSMITTER P XIF P IFT P6805=1 P IFT CODE=1 P LDK A2,0 & P CIO A2,1,LCUUT STAR
0x07fd40…07fed4 (1, 161) Dummy {f00=0x000d, f01=0x0190, f02=»S010 EQU * P LDK A2,SYNEBC * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER ( P XIF V P IFT P6805=1 b P IFT CODE=0 v P LDK A2,/0C P CIO A2,1,LCUUT P RF(A) TRS010 P SST A1,LCUUT P RF(A) TRS005 P ABL BRM P
0x07fed4…080068 Dummy {f00=0x000d, f01=0x0190, f02=»EAD WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS & PTRS100 LDK A2,SYN > P CF A5,WRITE SEND SYN X P SUK A3,1 v P RB(NZ) TRS100 P RTN A5 P P* P* P* RECEIVER INTERRUPT P* P* PIH1501 EQU
0x080068…0801fc Dummy {f00=0x000d, f01=0x0190, f02=» SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 " P INR A2,0,LCUIN READ CHAR P , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS r P IFF LOGG=0 ( P CF A5,LOGIN LOG RECEIVED CHARACTER P XIF P IFF CODE=1 P C2 SY
0x0801fc…080390 Dummy {f00=0x000d, f01=0x0190, f02=»FT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME $ P CWK A2,SYNEBC Z P RF(E) READ SKIP EBCDIC SYN p PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF PIHIN
0x080390…080524 Dummy {f00=0x000d, f01=0x0190, f02=»PERFORM SST P XIF P P* * P* 4 P* TRANSMITTER INTERRUPT > P* ` P* j PIH1502 EQU * t P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF P P IFF CPU852=1 P MSR 8,A15
0x080524…0806b8 Dummy {f00=0x000d, f01=0x0190, f02=»STRUCTION AND STATUS CHECK P* " ( P* LCU STATUS : BIT 10=CARRIER OFF , & P* BIT 13=PARITY ERROR (6805 ONLY) X , P* BIT 14=THROUGHPUT ERROR , P* BIT 15=MODEM NOT READY P* PSST SST A1,LCUIN P IFT
0x0806b8…08084c Dummy {f00=0x000d, f01=0x018e, f02=»ION r P XIF P IFT P6805=0 P ANK A2,2 , P RF(Z) SST100 > P XIF T P IFT P6805=1 ` P ANK A2,6 t P RF(Z) SST100 P ANK A2,2 P RF(NZ) SST050 THROUGH PUT P LDK A1,1 SET PARITY ERROR P RF SSTRET P XIF
0x08084c…0809e0 Dummy {f00=0x000d, f01=0x0190, f02=» P IFT P6805=0 * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 J P XIF Z P IFT P6805=1 f P ANK A1,/21 z P RF(Z) SST200 LSALCUZ 0 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS P DATA BRM RESTART P DATA 2 WAIT T
0x0809e0…080b74 (1, 162) Dummy {f00=0x000d, f01=0x0190, f02=» XIF P* P* P* HALT INPUT P* 4 P* > PHALTIN LDK A1,0 H P CIO A1,0,LCUIN ` P IFT P6805=0 x 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK P XIF P IFT P6805=1 $ P RF READ WAIT FOR SST INTERRUPT
0x080b74…080d08 Dummy {f00=0x000d, f01=0x0190, f02=»FT CODE=1 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 n P XIF PWRIT05 EQU * " P OTR A2,0,LCUUT SEND CHARACTER P RF(A) WRIT10 P RF READ THROUGH
0x080d08…080e9c Dummy {f00=0x000d, f01=0x018e, f02=»ATE CRC v P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER 0 P XIF Z P* f PREAD CF A15,STREG p P ABL TDISP P P* P* P*** WRITEP P* P* WRITE A2 WITH PARITY P* P*
0x080e9c…081030 Dummy {f00=0x000d, f01=0x018e, f02=» P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 2 P XIF D P IFF CODE+P6805=0 P PWRITEP RB WRITE j P XIF P* P* P* P*** READP P* . P* READ CHARACTER TO A2 AND CHECK PARITY P* P*
0x081030…0811c4 Dummy {f00=0x000d, f01=0x0190, f02=» P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 * P ANK A2,/7F B P XIF V P IFF CODE+P6805=0 b P LDK A1,/80 | P XIF P ADK A5,4 P ANK A1,/80 P XRK A1,/80 P ABR* A5 P* P* P P*
0x0811c4…081358 Dummy {f00=0x000d, f01=0x018e, f02=» ADDRESS P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL & P* L B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES V * P* ENTRY: FINTER - CHECK SELECT ADDRESS , P* FINTEP - CHECK SPECIFIC POLL ADDRESS P* . PRBYT
0x081358…0814ec Dummy {f00=0x000d, f01=0x0190, f02=» P IM RBYTE P IFT MSV1=1 PFINTER EQU * * P XIF > & P LD A4,DCTAB GET ADDRESS TO DC:TAB J * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB t PFINT10 SUK A4,2 P LDK A3,0 DEFAULT VALUE P CW A4,DCTAB END OF TABLE ( P RF(E) FINT2
0x0814ec…081680 Dummy {f00=0x000d, f01=0x0190, f02=»A3 COMPARE SUBTERMINAL ADDRESS P XIF & P IFT MSV1=0 2 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS F P XIF x & P RB(NE) FINT10 TAKE NEXT TERMINAL PFINT20 CM RBYTE P ANKL A3,/FFFE P RTN A5 P P* P*
0x081680…081814 (1, 163) Dummy {f00=0x000d, f01=0x018e, f02=» P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF > P IFT STAT=1 J P LDK A5,4 SET DEVICE END ^ P LD A1,DCTAB ~ . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 END OF TAB
0x081814…0819a8 Dummy {f00=0x000d, f01=0x0190, f02=» j P RB DRDC05 PDRDC06 EQU * P XIF . P LDK A2,/40 : P ORS A2,DCONOF N P CF A15,CKMESS d ( P LD A2,DCTPGP GET POLL TIMER POINTER z " P RF(NZ) DRDC20 ALREADY STARTED * PDRDC10 CF A15,SPOTIM START POLL TIMER PDRDC20 ABL BRM
0x0819a8…081b3c Dummy {f00=0x000d, f01=0x0190, f02=»NOF INDICATE POLL TIME OUT * P CF A15,CKMESS CHECK IF STATUS CHANGE " $ P CF A15,SPOTIM START POLL TIMER P P ABL TDISP x P* 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-
0x081b3c…081cd0 Dummy {f00=0x000d, f01=0x018e, f02=»IMER P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL > & P ST A4,DCTPGP STORE TIMER POINTER X P ADKL A15,4 P ABR* A15 P P* P* START PROCEDURE TIMER P* PSPTIM EQU * $ P LDR A1,A6 LOA
0x081cd0…081e64 Dummy {f00=0x000d, f01=0x0190, f02=» P* PROCEDURE TIMEOUT P* $ PPRTOUT CM DCTPP . P LDR A6,A1 RELOAD A6 F P LDKL A5,STB LOAD STACK BASE b $ P CF A5,HALTIN HALT INPUT IF OPEN P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P C
0x081e64…081ff8 Dummy {f00=0x000d, f01=0x0190, f02=»TPP GET TIMER POINTER P RF(Z) HPT10 NOT RUNNING P CM* DCTPP STOP TIMER > P CM DCTPP PHPT10 RTN A5 n P P IFT CODE=1 P* P* P* CALCULATION OF CRC P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC
0x081ff8…08218c Dummy {f00=0x000d, f01=0x0190, f02=»CRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 * P SRL A2,1 < P ANK A3,1 N P RF(Z) CRC110 ` P XRKL A7,/A001 v PCRC110 SUK A1,1 P RB(NZ) CRC100 P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5
0x08218c…082320 Dummy {f00=0x000d, f01=0x018e, f02=» P* $ PRDCRC LDR A6,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW : P CF A5,READ READ BYTE 1 b P LD A8,CRCSAV+2 SAVE IT P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT
0x082320…0824b4 (1, 164) Dummy {f00=0x000d, f01=0x018e, f02=» P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " " P* CR=0 IF LRC OK L P* r PRDLRC IM SYNSW | P CF A5,READP P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P
0x0824b4…082648 Dummy {f00=0x000d, f01=0x0190, f02=» PDW1500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS ( P DATA /8000 STATUS H P DATA 0 ECB ADDRESS b P DATA 0 ORDER ~ * P DATA DC15DC POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P D
0x082648…0827dc Dummy {f00=0x000d, f01=0x0190, f02=»* P DATA 0 TIMER POINTER ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE ( . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) T " P DATA 0 RECEIVE MESSAGE QUEUE , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR ADDRESS " P DATA 0 REQUES
0x0827dc…082970 Dummy {f00=0x000d, f01=0x018e, f02=»0,0 P XIF P* P " P* , P* 6 P* DC RECEIVE BUFFER POOL @ P* ` PRLINK EQU RBUFL+RBUFL+8 j P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFNR=1 DK3 P IFF RBUFNR=2 P DATA *+RLIN
0x082970…082b04 Dummy {f00=0x000d, f01=0x0190, f02=» P RES RBUFL+3 P XIF P IFF RBUFNR=1 DK3 $ P DATA *+RLINK > P RES RBUFL+3 T P XIF DK3 h P DATA 0 END OF CHAIN z P RES RBUFL+3 P P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF P P
0x082b04…082c98 Dummy {f00=0x000d, f01=0x0190, f02=» P RF LOG10 PLOGOUT ST A2,SAVE2 P ORKL A2,/0F00 4 P RF LOG10 J PLOGIN CWK A2,/FF P RF(E) LOGE10 t P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P
0x082c98…082e2c Dummy {f00=0x000d, f01=0x0190, f02=» P* P* PLOGPNT DATA LOGSTA PLOGSTA EQU * 8 P RES 300 L PLOGEND EQU *-4 PSAVE2 DATA 0 r PSAVE3 DATA 0 P XIF P* P* P* P IFT RCOM=1 P < P**************************************
0x082e2c…082fc0 Dummy {f00=0x000d, f01=0x0190, f02=» > P********************************************************** P J PLINCOL EQU * R " P LDR A2,A3 COPY CURSOR ADDRESS f P SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER P
0x082fc0…083154 (1, 165) Dummy {f00=0x000e, f01=0x0190, f02=»RETURN P* P* P* " P , P 6 P* SCANDINAVIAN ALPHABET > P DB b PLICO:T EQU * p * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,/232E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17
0x083154…0832e8 Dummy {f00=0x000e, f01=0x417c, f02=» j ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F 4 P DE ` P XIF n P z P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,
0x0832e8…08347c Dummy {f00=0x000e, f01=0x2008, f02=» H P X ` h p x
0x08347c…083610 Dummy {f00=0x000e, f01=0x0190, f02=»B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 N * P DATA /595A,/402C,/255F,/3E3F /28-/2F | ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE
0x083610…0837a4 Dummy {f00=0x000e, f01=0x408e, f02=»0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ( PDC:END EQU * V P* j P* t P END ~@ /255F,/3E3F /28-/2F | ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE
0x0837a4…083938 Dummy {f00=0x000e, f01=0x2008, f02=» H P X ` h p x
0x083938…083acc Dummy {f00=0x000e, f01=0x0000, f02=»
[…0x1…]
0x083c60…083df4 (1, 166) Opaque[0x194]
0x083df4…083f88 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a78, f03=0x0000}
0x083df4…083f88 IdxSect {
0x083df4…083f88 f00 = 0x0053 // 0x83df4 @0x0
0x083df4…083f88 f01 = 0x0004 // 0x83df6 @0x2
0x083df4…083f88 gno = [ // 0x83df8 @0x4
0x083df4…083f88 [0x00]: C0x0053.0x3.0
0x083df4…083f88 [0x01]: C0x0054.0x0.0
0x083df4…083f88 ]
0x083df4…083f88 }
0x083f88…08411c Dummy {f00=0x0053, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 2 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*
0x08411c…0842b0 Dummy {f00=0x0053, f01=0x0190, 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 0 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND.
0x0842b0…084444 Dummy {f00=0x0053, f01=0x0190, f02=»* 7C 5C P* 00 7C P* 5A 24 P* 6A 40 0 > P* 2F 19 USM(2F) TIL EM(19 DK2 @ P EJECT P* P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII P* P* PTASCII EQU * P IFT C
0x084444…0845d8 Dummy {f00=0x0053, f01=0x018e, f02=»7 n ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F ( P DATA /0000,/0000,/0000,/171B 20-27 6 ( P DATA /0000,/0000,/0005,/0019 28-2F b ( P DATA /0000,/1600,/0000,/0004 30-37 ( P DATA /0000,/0000,/1415,/001A 38-3F ( P DATA /2041,/4243,/4445,/4647 40-4
0x0845d8…08476c Dummy {f00=0x0053, f01=0x0190, f02=» j ( P DATA /2D2F,/5354,/5556,/5758 60-67 ( P DATA /595A,/402C,/255F,/3E3F 68-6F 4 ( P DATA /1831,/3233,/3435,/3637 70-77 ` ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F ( P DATA /2061,/6263,/6465,/6667 80-87 ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F
0x08476c…084900 Dummy {f00=0x0053, f01=0x0190, f02=» ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF ( P DATA /3031,/3233,/3435,/3637 B0-B7 0 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7
0x084900…084a94 (1, 167) Dummy {f00=0x0054, f01=0x0190, f02=» DATA /3031,/3233,/3435,/3637 F0-F7 ( P DATA /3839,/3A23,/4027,/3DFF F8-FF , P XIF X P EJECT d P* r P* | 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /000
0x084a94…084c28 Dummy {f00=0x0054, f01=0x0190, f02=»F27,/1C1D,/1E1F 18-1F ( P DATA /404F,/7F4A,/5A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F J ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 v ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D
0x084c28…084dbc Dummy {f00=0x0054, f01=0x40f2, f02=»/8485,/8687 60-67 ~ ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 F ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F r 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 P XIF P END @ ( P DATA /C8C9,/D
0x084dbc…084f50 Dummy {f00=0x0054, 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,
0x084f50…0850e4 Dummy {f00=0x0054, f01=0x4164, f02=» : H IDENT T:ALA0 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:ALA0 B T:ALA0A ^ T . * T:DLA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & * & * & = a
0x0850e4…085278 Dummy {f00=0x0054, f01=0x40be, f02=» : H IDENT T:DLA0 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:DLA0 B T:DLA0D T LPGOA h , ( LA @ * * x @ * & * & = a
0x085278…08540c Dummy {f00=0x0054, f01=0x40f0, f02=» : H IDENT T:AD00 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:AD00 B T:AD00A " T T:DD00 D:CB90 C:CB90 h * & ` D0 * @ * & = a
0x08540c…0855a0 Dummy {f00=0x0054, f01=0x40bc, f02=» : H IDENT T:DD00 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:DD00 B T:DD00D T DC1GO h * & D0 * x @ D0 * @ * & = a
0x0855a0…085734 (1, 168) Opaque[0x194]
0x085734…0858c8 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x085734…0858c8 IdxSect {
0x085734…0858c8 f00 = 0x0054 // 0x85734 @0x0
0x085734…0858c8 f01 = 0x0006 // 0x85736 @0x2
0x085734…0858c8 gno = [ // 0x85738 @0x4
0x085734…0858c8 [0x00]: C0x0054.0x1.0
0x085734…0858c8 [0x01]: C0x0054.0x2.0
0x085734…0858c8 [0x02]: C0x0054.0x3.0
0x085734…0858c8 ]
0x085734…0858c8 }
0x0858c8…085a5c Dummy {f00=0x0054, 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*
0x085a5c…085bf0 Dummy {f00=0x0054, 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
0x085bf0…085d84 Dummy {f00=0x0054, 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
0x085d84…085f18 Dummy {f00=0x0054, 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********
0x085f18…0860ac Dummy {f00=0x0054, 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
0x0860ac…086240 Dummy {f00=0x0054, 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
0x086240…0863d4 (1, 169) Dummy {f00=0x0054, 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
0x0863d4…086568 Dummy {f00=0x0054, 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 .
0x086568…0866fc Dummy {f00=0x0054, 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
0x0866fc…086890 Dummy {f00=0x0054, 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
0x086890…086a24 Dummy {f00=0x0054, 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
0x086a24…086bb8 Dummy {f00=0x0054, 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
0x086bb8…086d4c Dummy {f00=0x0054, 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
0x086d4c…086ee0 Dummy {f00=0x0054, 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
0x086ee0…087074 (1, 170) Dummy {f00=0x0054, 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
0x087074…087208 Dummy {f00=0x0054, f01=0x0000, f02=»
[…0x6…]
0x087b80…087d14 (1, 171) Opaque[0x194]
0x087d14…087ea8 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa0, f03=0x0000}
0x087d14…087ea8 IdxSect {
0x087d14…087ea8 f00 = 0x0055 // 0x87d14 @0x0
0x087d14…087ea8 f01 = 0x0006 // 0x87d16 @0x2
0x087d14…087ea8 gno = [ // 0x87d18 @0x4
0x087d14…087ea8 [0x00]: C0x0055.0x0.0
0x087d14…087ea8 [0x01]: C0x0055.0x1.0
0x087d14…087ea8 [0x02]: C0x0055.0x2.0
0x087d14…087ea8 ]
0x087d14…087ea8 }
0x087ea8…08803c Dummy {f00=0x0055, 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*
0x08803c…0881d0 Dummy {f00=0x0055, 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**
0x0881d0…088364 Dummy {f00=0x0055, 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
0x088364…0884f8 Dummy {f00=0x0055, 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
0x0884f8…08868c Dummy {f00=0x0055, 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
0x08868c…088820 Dummy {f00=0x0055, 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
0x088820…0889b4 (1, 172) Dummy {f00=0x0055, 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
0x0889b4…088b48 Dummy {f00=0x0055, 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
0x088b48…088cdc Dummy {f00=0x0055, 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
0x088cdc…088e70 Dummy {f00=0x0055, 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
0x088e70…089004 Dummy {f00=0x0055, 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
0x089004…089198 Dummy {f00=0x0055, 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
0x089198…08932c Dummy {f00=0x0055, 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
0x08932c…0894c0 Dummy {f00=0x0055, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x0894c0…089654 (1, 173) Dummy {f00=0x0055, 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*
0x089654…0897e8 Dummy {f00=0x0055, 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
0x0897e8…08997c Dummy {f00=0x0055, 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
0x08997c…089b10 Dummy {f00=0x0055, 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
0x089b10…089ca4 Dummy {f00=0x0055, 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?
0x089ca4…089e38 Dummy {f00=0x0055, 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?
0x089e38…089fcc Dummy {f00=0x0055, 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
0x089fcc…08a160 Dummy {f00=0x0055, f01=0x0000, f02=»
0x08a160…08a2f4 (1, 174) Opaque[0x194]
0x08a2f4…08a488 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ab8, f03=0x0000}
0x08a2f4…08a488 IdxSect {
0x08a2f4…08a488 f00 = 0x0055 // 0x8a2f4 @0x0
0x08a2f4…08a488 f01 = 0x0006 // 0x8a2f6 @0x2
0x08a2f4…08a488 gno = [ // 0x8a2f8 @0x4
0x08a2f4…08a488 [0x00]: C0x0055.0x3.0
0x08a2f4…08a488 [0x01]: C0x0056.0x0.0
0x08a2f4…08a488 [0x02]: C0x0056.0x1.0
0x08a2f4…08a488 ]
0x08a2f4…08a488 }
0x08a488…08a61c Dummy {f00=0x0055, 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*
0x08a61c…08a7b0 Dummy {f00=0x0055, 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
0x08a7b0…08a944 Dummy {f00=0x0055, 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
0x08a944…08aad8 Dummy {f00=0x0055, 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
0x08aad8…08ac6c Dummy {f00=0x0055, 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
0x08ac6c…08ae00 Dummy {f00=0x0055, 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
0x08ae00…08af94 (1, 175) Dummy {f00=0x0056, 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
0x08af94…08b128 Dummy {f00=0x0056, 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
0x08b128…08b2bc Dummy {f00=0x0056, 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
0x08b2bc…08b450 Dummy {f00=0x0056, 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
0x08b450…08b5e4 Dummy {f00=0x0056, 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
0x08b5e4…08b778 Dummy {f00=0x0056, 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
0x08b778…08b90c Dummy {f00=0x0056, 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
0x08b90c…08baa0 Dummy {f00=0x0056, 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
0x08baa0…08bc34 (1, 176) Dummy {f00=0x0056, 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
0x08bc34…08bdc8 Dummy {f00=0x0056, 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
0x08bdc8…08bf5c Dummy {f00=0x0056, 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
0x08bf5c…08c0f0 Dummy {f00=0x0056, 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
0x08c0f0…08c284 Dummy {f00=0x0056, 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
0x08c284…08c418 Dummy {f00=0x0056, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x08c418…08c5ac Dummy {f00=0x0056, 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
0x08c5ac…08c740 Dummy {f00=0x0056, 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
0x08c740…08c8d4 (1, 177) Opaque[0x194]
0x08c8d4…08ca68 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad0, f03=0x0000}
0x08c8d4…08ca68 IdxSect {
0x08c8d4…08ca68 f00 = 0x0056 // 0x8c8d4 @0x0
0x08c8d4…08ca68 f01 = 0x0004 // 0x8c8d6 @0x2
0x08c8d4…08ca68 gno = [ // 0x8c8d8 @0x4
0x08c8d4…08ca68 [0x00]: C0x0056.0x2.0
0x08c8d4…08ca68 [0x01]: C0x0056.0x3.0
0x08c8d4…08ca68 ]
0x08c8d4…08ca68 }
0x08ca68…08cbfc Dummy {f00=0x0056, 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*
0x08cbfc…08cd90 Dummy {f00=0x0056, 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*
0x08cd90…08cf24 Dummy {f00=0x0056, 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/
0x08cf24…08d0b8 Dummy {f00=0x0056, 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
0x08d0b8…08d24c Dummy {f00=0x0056, 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
0x08d24c…08d3e0 Dummy {f00=0x0056, 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
0x08d3e0…08d574 (1, 178) Dummy {f00=0x0056, 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?
0x08d574…08d708 Dummy {f00=0x0056, 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
0x08d708…08d89c Dummy {f00=0x0056, 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)
0x08d89c…08da30 Dummy {f00=0x0056, 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)
0x08da30…08dbc4 Dummy {f00=0x0056, f01=0x2008, f02=»
0x08dbc4…08dd58 Dummy {f00=0x0056, 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
0x08dd58…08deec Dummy {f00=0x0056, 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
0x08deec…08e080 Dummy {f00=0x0056, 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
0x08e080…08e214 (1, 179) Opaque[0x194]
0x08e214…08e3a8 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x08e214…08e3a8 IdxSect {
0x08e214…08e3a8 f00 = 0x0059 // 0x8e214 @0x0
0x08e214…08e3a8 f01 = 0x000c // 0x8e216 @0x2
0x08e214…08e3a8 gno = [ // 0x8e218 @0x4
0x08e214…08e3a8 [0x00]: C0x0059.0x1.0
0x08e214…08e3a8 [0x01]: C0x0059.0x2.0
0x08e214…08e3a8 [0x02]: C0x0059.0x3.0
0x08e214…08e3a8 [0x03]: C0x005a.0x0.0
0x08e214…08e3a8 [0x04]: C0x005a.0x1.0
0x08e214…08e3a8 [0x05]: C0x005a.0x2.0
0x08e214…08e3a8 ]
0x08e214…08e3a8 }
0x08e3a8…08e53c Dummy {f00=0x0059, f01=0x0190, f02=» 0 P IDENT TIODM REL 9.2 79-11-16 870105040920 P 8 P =1, PR 5649 @ P REL 9.1 79-05-23 V P* r 8 P**************************************************** | P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MA
0x08e53c…08e6d0 Dummy {f00=0x0059, f01=0x018e, f02=»******** d P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE ` P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED
0x08e6d0…08e864 Dummy {f00=0x0059, f01=0x0190, f02=» P* A7 = ORDER P* A8 = ECB ADDRESS " P* F P* USED REGISTERS A1 - A10 P P* t D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 ~ P* AS THE ONLY PARAMETER P* 4 P* THE FOLLOWING WORD
0x08e864…08e9f8 Dummy {f00=0x0059, f01=0x0190, f02=» FOR CALLING TASK x . P* FDBCEX CURRENT EXTENT BLOCK POINTER P* L P* V D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: ` P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P* P EJECT P
0x08e9f8…08eb8c Dummy {f00=0x0059, f01=0x0190, f02=»DBLNK P ENTRY FDBECB P ENTRY FDBSNR $ P ENTRY FDBRRO : P ENTRY FDBRLE P P ENTRY FDBBLF f P ENTRY FDBTNR | P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXTFC P ENTRY EXT
0x08eb8c…08ed20 Dummy {f00=0x0059, f01=0x0190, f02=»NTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO ( & P ENTRY FDBMEC MMU ECB DISPLACEMENT L 6 P ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS v P EJECT P* P***************** P* EXTERNALS * P************
0x08ed20…08eeb4 (1, 180) Dummy {f00=0x0059, f01=0x0190, f02=» P EXTRN DISEND EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER < & P EXTRN DWTTDM DM TASK TTAB ADDRESS d P EXTRN TTB:ID TASK ID 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA " P EXTRN DMTGCA GET CRN ADDRESS , P E
0x08eeb4…08f048 Dummy {f00=0x0059, f01=0x0190, f02=» ECBRL P EXTRN ECBEL P EXTRN ECBRC " P EXTRN ECBCW 6 & P EXTRN ECBCW2 SECOND CONTROL WORD J P EXTRN FDBLEN t " P EXTRN SQR SEQ READ ORDER CODE & P EXTRN EARELB,DWTST,CRNGET,EATEST & P EXTRN TASHLT HALT SYSTEM ROUTINE P EJE
0x08f048…08f1dc Dummy {f00=0x0059, f01=0x0190, f02=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 D * P* INDXAC EQU 0 OTHRERWISE h PX:A EQU 0 PINDXAC EQU 00000 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINE
0x08f1dc…08f370 Dummy {f00=0x0059, f01=0x0190, f02=»TA DEFINITIONS * P************************ P* : P* D P DATA 0,0 4 WORDS N P DATA 0,0 h " PTIOD14 EQU *-2 TIODM A14 STACK z P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA CLOSE CLOSE " P DATA REVTOC REA
0x08f370…08f504 Dummy {f00=0x0059, f01=0x0190, f02=»DELETE | P DATA IXREWR INDEXED REWRITE $ P DATA IXRARE INDEXED RANDOM READ 2 P XIF Z P IFF INDXAC=1 f P DATA TIODME | P DATA TIODME P DATA TIODME P DATA TIODME P DATA TIODME P XIF P DATA RANDEL RANDOM DELETE
0x08f504…08f698 Dummy {f00=0x0059, f01=0x0190, f02=» SEQUENTIAL WRITE " P DATA SEQREAD SEQUENTIAL READ P DATA GETCUR GET CURRENCY @ P IFT INDXAC=1 b $ P DATA INSIXR INSERT INDEX RECORD x $ P DATA DELIXR DELETE INDEX RECORD P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIOD
0x08f698…08f82c Dummy {f00=0x0059, f01=0x0190, f02=»LETE r $ P DATA RANREB RAND READ REL BUFF P DATA SETLRN SET LRN 4 P* P P* Z PTIODMO EQU * DM ORDERS d $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND INSERT,IND DELETE . P DATA /1B1A INDEXED REWRITE,IND RAND READ $ P D
0x08f82c…08f9c0 Dummy {f00=0x0059, f01=0x0190, f02=»SEQ WR. , BASIC WRITE $ P DATA /0302 READ VTOC, SEQ READ ( P DATA /0123 BASIC READ,GET CURRENCY F * P DATA /1F20 INS INDEXREC,DEL INDEXREC r . P DATA /240D GET CURR INDEX,DELAYED RAND WR 0 P DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF P D
0x08f9c0…08fb54 (1, 181) Dummy {f00=0x0059, f01=0x0190, f02=»ATA /0E10 P DATA /1214 P DATA /1616 & P DATA /1616 : P DATA /0218 N P DATA /181A b P DATA /1C1E v P DATA /2022 P DATA /2426 P DATA /281A SET LRN P* $ PNOOFOR EQU 25 NO OF ORDER CODES P*
0x08fb54…08fce8 Dummy {f00=0x0059, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* P* f P* FDB OFFSET DEFINITIONS p P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER
0x08fce8…08fe7c Dummy {f00=0x0059, f01=0x0190, f02=» l 0 PFDBTNR EQU START+23 TASK NUMBER CALLING TASK & PFDBVTO EQU START+24 VTOC RECORD NO < 4 PFDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER f 0 PFDBEXT EQU START+28 FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME F
0x08fe7c…090010 Dummy {f00=0x0059, f01=0x0190, f02=»+53 LAST RECORD NUMBER * PFDBNIF EQU START+52 NO OF INDEX FILES $ PFDBEAL EQU START+56 EA LINK ROOT L & PFDBCRL EQU START+58 CRN LINK ROOT t 0 PFDBKA EQU START+60 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START+62 ADDRESS OF MASTER INDEX 0 PFD
0x090010…0901a4 Dummy {f00=0x0059, f01=0x0190, f02=»AND REL BUFFER FLAGS p , PFDBMRN EQU START+75 LAST REC NR IN FILE " PFDBMRO EQU START+78 MAX FDBRRO L , PFDBMEC EQU START+80 MMU ECB DISPLACEMENT r < PFDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS P* & P* CRN BUFFER OFFSET DEFINI
0x0901a4…090338 Dummy {f00=0x0059, f01=0x0190, f02=» P EJECT P* P************* P* TIODM * 2 P************* H P* ^ P* h ( P DATA 0 DATA MANAGEMENT DEVICE INDEX r & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14
0x090338…0904cc Dummy {f00=0x0059, f01=0x018e, f02=» A1,A2 P LD A3,2,A1 P CW A3,DWTTDM,A6 " P RF(E) TIOD10 THIS TASK : P ADK A2,2 NO Z P RB TIOD05 TRY NEXT n PTIOD10 EQU * P LC A1,TTB:ID,A3 GET TASK ID P CCK A1,'##' ( P RF(E) TIO13 JUMP IF DMTASK CALLING P*
0x0904cc…090660 Dummy {f00=0x0059, f01=0x0190, f02=» P LDKL A4,/4000 REQ BUSY BIT PTIO11 EQU * ( P SUK A3,2 < P RF(N) TIO13 ALL FDB READY N P LDR* A5,A1 FDB ADDR p P RF(E) TIO12 NO FDB P SC A2,FDBTNR,A5 TASK ID " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A
0x090660…0907f4 (1, 182) Dummy {f00=0x005a, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD
0x0907f4…090988 Dummy {f00=0x005a, f01=0x0190, f02=»BI TIODMF,A2 BRANCH TO DM FUNCTION P EJECT * P* 8 $ PIXRARE EQU * INDEXED RANDOM READ B P LD A3,ECBCW2,A8 =1 j P ANK A3,/FF REQ KEY LGTH =1 P LD A4,FDBRLE,A6 =1 P SUK A4,6 MAX LGTH =1 P CWR A3,A4 =1 P RF(NG) IXRAR1
0x090988…090b1c Dummy {f00=0x005a, f01=0x0190, f02=»GET USER KEY ADDRESS 0 P LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT P ADR A2,A6 ADD FDB ADDRESS P P* =1 r 2 P CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA P XIF P* $ PDELIXR EQU * DELETE INDEX RECORD P* $ PINSIXR E
0x090b1c…090cb0 Dummy {f00=0x005a, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x090cb0…090e44 Dummy {f00=0x005a, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x090e44…090fd8 Dummy {f00=0x005a, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x090fd8…09116c Dummy {f00=0x005a, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x09116c…091300 Dummy {f00=0x005a, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x091300…091494 (1, 183) Dummy {f00=0x005a, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB
0x091494…091628 Dummy {f00=0x005a, f01=0x018e, f02=»EQU * INDEXED INSRERT P IFT MMUPAG=1 P* 4 " P* MOVE KEYS TO FDB KEY AREAS > P* d P LDK A5,8 n PIXINS3 EQU * P LDR A2,A6 FDB DATA P ADR A2,A5 P LD A3,FDBADF,A2 FDB INDEX P RF(Z) IXINS4 NO INDEX P LD A1
0x091628…0917bc Dummy {f00=0x005a, f01=0x0190, f02=» P LD A3,FDBRLE,A3 REC LGTH P SUK A3,6 KEY LGTH & " P CF A14,MOV:US KEY TO FDB AREA @ PIXINS4 EQU * f P SUK A5,2 z P RB(NZ) IXINS3 MORE INDEXS P XIF P* $ PSEQWRITE EQU * SEQUENTIAL WRITE P* 2 P* GET LRN+1 INTO
0x0917bc…091950 Dummy {f00=0x005a, f01=0x0190, f02=» x P LDK A1,0 ! P LC A1,FDBMRN,A6 LAST REC NR ! P LD A2,FDBMRN+1,A6 ! > P LDK A6,0 ! X P LC A6,FDBLRN,A5 ! j P LD A7,FDBLRN+1,A5 LRN ! P CF A14,DSUMOD SUBTRACT ! P SUK A2,1 ! P LDR A1,A1 ! P RF(Z) SEQ005 NOT MANY ! P LDKL
0x091950…091ae4 Dummy {f00=0x005a, f01=0x0190, f02=»,FDBLRN+1,A6 LRN ! P IFT INDXAC=1 " P RF IXR020 STORE LOG REC NO " . P EJECT " R $ PIXRDNX EQU * INDEXED EREAD NEXT " ` P* " P* GET CRN " P* " P LD A1,FDBADF,A6 FDB ADDR " " P CF A14,CRNGET GET CRN BUFFER " P LDR A4,A2 BUFFA
0x091ae4…091c78 Dummy {f00=0x005a, f01=0x0190, f02=»C A5,CRNCIF,A4 " . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT # P LC A1,CRNCIF+1,A4 # H " P LD A2,CRNCIF+2,A4 LOG REC NO # b PIXR020 EQU * # P XIF # P ADK A2,1 # P RF(O) IXR030 OVERFLOW # P RF IXR040 # , PIXR030 ANKL A2,/7FFF REMOVE OV
0x091c78…091e0c Dummy {f00=0x005a, f01=0x0190, f02=»NOT CHECK EOF CONDITION # P EJECT $ P* $ . PIXREWR EQU * INDEXED REWRITE $ 8 P* $ PIXDEL EQU * INDEXED DELETE $ f P* $ PRANWRITE EQU * RANDOM WRITE $ P* $ & PRANWRD EQU * DELAYED RANDOM WRITE $ P* $ & PRANDLD EQU * DELAYED
0x091e0c…091fa0 Dummy {f00=0x005a, f01=0x018e, f02=» $ P************************* % P* DMTASK ACTIVATION * % * P************************* % L P* % n PTIODMA EQU * % x P* % P* SET EOF IF CRN > LRN % P* % P LDK A1,0 % P LC A1,ECBCW+3,A8 REC NO % P LD A2,ECBCW,A8 DITTO
0x091fa0…092134 (1, 184) Dummy {f00=0x005a, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x092134…0922c8 Dummy {f00=0x005a, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x0922c8…09245c Dummy {f00=0x005a, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x09245c…0925f0 Dummy {f00=0x005a, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x0925f0…092784 Dummy {f00=0x005a, f01=0x2008, f02=» *
0x092784…092918 Dummy {f00=0x005a, f01=0x0000, f02=»
[…0x2…]
0x092c40…092dd4 (1, 185) Opaque[0x194]
0x092dd4…092f68 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c78, f03=0x0000}
0x092dd4…092f68 IdxSect {
0x092dd4…092f68 f00 = 0x0063 // 0x92dd4 @0x0
0x092dd4…092f68 f01 = 0x000c // 0x92dd6 @0x2
0x092dd4…092f68 gno = [ // 0x92dd8 @0x4
0x092dd4…092f68 [0x00]: C0x0063.0x3.0
0x092dd4…092f68 [0x01]: C0x0064.0x0.0
0x092dd4…092f68 [0x02]: C0x0064.0x1.0
0x092dd4…092f68 [0x03]: C0x0064.0x2.0
0x092dd4…092f68 [0x04]: C0x0064.0x3.0
0x092dd4…092f68 [0x05]: C0x0065.0x0.0
0x092dd4…092f68 ]
0x092dd4…092f68 }
0x092f68…0930fc Dummy {f00=0x0063, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* P*
0x0930fc…093290 Dummy {f00=0x0063, f01=0x0190, f02=»ROM :***************** r P* P* DMTASK ( P* : P*************** D P* ENTRIES * P*************** t P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR P ENTRY FNDKEY P ENTRY CRNUPD P* P**********
0x093290…093424 Dummy {f00=0x0063, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x093424…0935b8 Dummy {f00=0x0063, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x0935b8…09374c Dummy {f00=0x0063, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x09374c…0938e0 Dummy {f00=0x0063, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x0938e0…093a74 (1, 186) Dummy {f00=0x0064, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x093a74…093c08 Dummy {f00=0x0064, f01=0x0190, f02=» v . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL P* : P* SEARCHED KEY GREATER D P* d P LDR A10,A10 M n P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CEIL) PFND030 EQU * P LDR A10,A7 M=M/2 FLOOR P RB FND020
0x093c08…093d9c Dummy {f00=0x0064, f01=0x0190, f02=»D045 EQU * NO MASTER INDEX P LDK A1,0 " P LDK A2,1 REC NR 1 4 P RF FND070 N PFND050 EQU * ` P ADR* A1,A5 ARDR NEXT ENTRY t PFND060 EQU * P LDR A3,A1 ENTRY ADR P SUK A3,3 P ADR* A3,A5 ADR REC NO P* P* MO
0x093d9c…093f30 Dummy {f00=0x0064, f01=0x0190, f02=»2,A2 P LCR A2,A3 PFND070 EQU * P RTN A14 2 P EJECT B 8 P****DESCRIPTION************************************* P P* D P* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE P* TERMINATED WITH A /EE. P* 8
0x093f30…0940c4 Dummy {f00=0x0064, f01=0x0190, f02=» * P* A6 = MAX NO OF CAHARACTERS IN KEY 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY 2 P* h P* CF A14,CHKKEY r P* 8 P****EXIT PARAMETERS********************************* P* : P* A3 = 0 WHEN SEARCED KEY IS CONTAINED I
0x0940c4…094258 Dummy {f00=0x0064, f01=0x0190, f02=»CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY x " P* A6 = MAX NO OF CHAR IN KEY : P* ` 8 P****USED REGISTERS********************************** j P* P* A2-A4,A6-A7 < P******************************************************** P
0x094258…0943ec Dummy {f00=0x0064, f01=0x0190, f02=»CR A4,A3 SEARCED KEY CHAR P CCK A4,/EE00 " " P RF(E) CHK060 END OF KEY CHAR 8 P CCR A4,A2 SC=EC? ^ P RF(G) CHK100 SC GT TH EC x " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL)
0x0943ec…094580 Dummy {f00=0x0064, f01=0x0190, f02=» LDK A3,0 FOUND P RF CHK140 PCHK120 EQU * * $ P LDKL A3,-1 SEARCHED KEY SMALLER > P RF CHK140 f PCHK100 EQU * x $ P LDK A3,1 SEARCHED KEY SGREATER PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*******************
0x094580…094714 (1, 187) Dummy {f00=0x0064, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x094714…0948a8 Dummy {f00=0x0064, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x0948a8…094a3c Dummy {f00=0x0064, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x094a3c…094bd0 Dummy {f00=0x0064, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x094bd0…094d64 Dummy {f00=0x0064, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x094d64…094ef8 Dummy {f00=0x0064, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x094ef8…09508c Dummy {f00=0x0064, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x09508c…095220 Dummy {f00=0x0064, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x095220…0953b4 (1, 188) Dummy {f00=0x0064, f01=0x0190, f02=» NO v P LDR A1,A2 P LDR A2,A3 P LDK A6,0 0 P LDK A7,1 B P CF A14,ADDMOD NEXT REC NO T P LDR A6,A5 RESTORE FDB ADDR v * P CF A14,CALSNO GET NEXT REC ADDR PHYS P LDR A8,A13 $ P LDR A1,A1 CHECK EN D OF MEDIUM P RF(
0x0953b4…095548 Dummy {f00=0x0064, f01=0x0190, f02=» x " P CF A14,DMTRBU RELEASE BUFFER P LDR A1,A6 FDB ADDR . P RB RDN040 NEXT SECTOR J P* h P* EXIT r P* PRDN900 EQU * P LDR A5,A1 RET CODE P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO
0x095548…0956dc Dummy {f00=0x0064, f01=0x0190, f02=»ER ADDR PRDN940 EQU * P LD A6,2,A14 $ P ADKL A14,4 8 P LDR* A7,A14 L PRDN950 EQU * ` P RTN A14 t P EJECT 8 P****DESCRIPTION************************************* P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD
0x0956dc…095870 Dummy {f00=0x0064, f01=0x0190, f02=»ENTRY PARAMETERS******************************** P* 8 P* A1 = FDB ADDRESS B P* A8 = SEARCH KEY ADDR ^ & P* A11 = NO OF CHARACTERS IN KEY ~ " P* A13= PHYSICAL ECB ADDRESS P* 8 P****EXIT PARAMETERS*****************************
0x095870…095a04 Dummy {f00=0x0064, f01=0x0190, f02=» 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND . P* = RETURN CODE WHEN KEY IS NOT FOUND : 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER l P* A3 = BUFFER ADDRESS & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARAC
0x095a04…095b98 Dummy {f00=0x0064, f01=0x0190, f02=»**** ` P* , P* A1 - A11,A13 + 4 WORDS ON A14 STACK P* F : P****************************************************** P P EJECT PFNDKEY EQU * P* & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF M
0x095b98…095d2c Dummy {f00=0x0064, f01=0x0190, f02=» GET KEY ENTRY IN MASTER INDEX P LD A6,8,A14 FDB ADDR & P CF A14,CALSNO GET PHYS ADDR D P LDR A1,A1 h P RF(NZ) FKY900 ERROR z P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9
0x095d2c…095ec0 Dummy {f00=0x0064, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x095ec0…096054 (1, 189) Dummy {f00=0x0064, f01=0x0190, f02=» P RF(E) FKY200 USED RECORD P* & & P* NO MORE RECORDS IN THIS SECTOR 0 P* Z * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET d P LD A4,FDBMRO,A1 & P ST A4,FDBRRO,A1 LAST REC IN SECT P* P* *CHECK IF EOF P* P LDR
0x096054…0961e8 Dummy {f00=0x0064, f01=0x0190, f02=»N,A1 P RB(L) FKY100 NOT EOF P RF(G) FKY180 EOF * P CW A3,FDBLRN+1,A1 D P RB(L) FKY100 NOT EOF ^ PFKY180 EQU * | P* P* EOF IS IN THIS SECTOR P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR
0x0961e8…09637c Dummy {f00=0x0064, f01=0x0190, f02=» P LD A3,6,A14 SEARCH KEY ADDR P CF A14,CHKKEY COMPARE KEYS , P LDR A3,A3 P & P RF(P) FKY840 SEARCHED KEY GREATER b " P RF(N) FKY850 SEARCH KEY LESS P RF FKY870 KEY FOUNFD PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P
0x09637c…096510 Dummy {f00=0x0064, f01=0x0190, f02=» THAT HAS BEEN CHECKED FOR THIS KEY . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! 0 P RB FKY100 NEXT KEY ! b PFKY850 EQU * ! ~ P LDKL A2,/4000 KEY NOT FOUND ! P RF FKY950 ! PFKY870 EQU * ! P LDK A2,0 KEY FOUND ! P RF FKY950 !
0x096510…0966a4 Dummy {f00=0x0064, f01=0x0190, f02=» P ADKL A14,8 RESTORE STACK " P LDR* A1,A14 FDB ADDR " & P LDR A3,A9 BUFFER ADDR " D P RTN A14 " b P EJECT " r P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX " P* RECORDS ARE UPDATED " P* " P* IN
0x0966a4…096838 Dummy {f00=0x0064, f01=0x0190, f02=»2 = ADD PARAMETER +1, -1 " P* # $ P* USED REGISTERS: # . P* A1 -A12 # J P* # ^ P* OUT: # h P* A5 = FDB ADDR INDEX # x P* A10,A11 = UNCHANGED # P* # PCRNUPD EQU * # P STR A12,A14 # P SUKL A14,2 # $ P LD A12,FD
0x096838…0969cc Dummy {f00=0x0064, f01=0x0190, f02=»F(Z) CRU900 END OF LINK # P LC A7,FDBECB+1,A5 FILE CODE $ P CC A7,CRNCIF,A12 $ D P RB(NE) CRU100 WRONG FC $ ^ P CC A10,CRNCIF+1,A12 $ ~ P RB(G) CRU100 $ P RF(L) CRU200 $ P CW A11,CRNCIF+2,A12 $ P RB(G) CRU100 $ PCRU200 EQU * $
0x0969cc…096b60 Dummy {f00=0x0064, f01=0x018e, f02=» * $ P* % P* UPDATE CRN % P* % * P LD A7,2,A14 ADD PARAM % 4 P LDR A6,A7 % R P RF(N) CRU230 -1 % d P LDK A6,0 % | PCRU230 EQU * % P ANKL A7,/7FFF % P LDK A1,0 % P LC A1,CRNCIF+1,A12 % P LD A2,CRNCIF+2,A12 % P CF A1
0x096b60…096cf4 (1, 190) Dummy {f00=0x0065, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x096cf4…096e88 Dummy {f00=0x0065, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x096e88…09701c Dummy {f00=0x0065, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x09701c…0971b0 Dummy {f00=0x0065, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x0971b0…097344 Dummy {f00=0x0065, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x097344…0974d8 Dummy {f00=0x0065, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x0974d8…09766c Dummy {f00=0x0065, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x09766c…097800 Dummy {f00=0x0065, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x097800…097994 (1, 191) Opaque[0x194]
0x097994…097b28 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d30, f03=0x0000}
0x097994…097b28 IdxSect {
0x097994…097b28 f00 = 0x0069 // 0x97994 @0x0
0x097994…097b28 f01 = 0x0002 // 0x97996 @0x2
0x097994…097b28 gno = [ // 0x97998 @0x4
0x097994…097b28 [0x00]: C0x0069.0x2.0
0x097994…097b28 ]
0x097994…097b28 }
0x097b28…097cbc Dummy {f00=0x0069, 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 P EXTRN DVDY00 PMMUPAG EQU 1 P*
0x097cbc…097e50 Dummy {f00=0x0069, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x097e50…097fe4 Dummy {f00=0x0069, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x097fe4…098178 Dummy {f00=0x0069, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x098178…09830c Dummy {f00=0x0069, 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
0x09830c…0984a0 Dummy {f00=0x0069, f01=0x0190, f02=» ORDER v EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA5 SAVE AREA A5 0 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT R ( P EXTRN SCTPLD PROGRAM LOADING DEVICE | ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT
0x0984a0…098634 (1, 192) Opaque[0x194]
0x098634…0987c8 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d38, f03=0x0000}
0x098634…0987c8 IdxSect {
0x098634…0987c8 f00 = 0x0069 // 0x98634 @0x0
0x098634…0987c8 f01 = 0x0002 // 0x98636 @0x2
0x098634…0987c8 gno = [ // 0x98638 @0x4
0x098634…0987c8 [0x00]: C0x0069.0x3.0
0x098634…0987c8 ]
0x098634…0987c8 }
0x0987c8…09895c Dummy {f00=0x0069, 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
0x09895c…098af0 Dummy {f00=0x0069, 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
0x098af0…098c84 Dummy {f00=0x0069, 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,
0x098c84…098e18 Dummy {f00=0x0069, 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
0x098e18…098fac Dummy {f00=0x0069, 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
0x098fac…099140 Dummy {f00=0x0069, 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
0x099140…0992d4 (1, 193) Opaque[0x194]
0x0992d4…099468 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d40, f03=0x0000}
0x0992d4…099468 IdxSect {
0x0992d4…099468 f00 = 0x006a // 0x992d4 @0x0
0x0992d4…099468 f01 = 0x0002 // 0x992d6 @0x2
0x0992d4…099468 gno = [ // 0x992d8 @0x4
0x0992d4…099468 [0x00]: C0x006a.0x0.0
0x0992d4…099468 ]
0x0992d4…099468 }
0x099468…0995fc Dummy {f00=0x006a, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB02 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 1 P*
0x0995fc…099790 Dummy {f00=0x006a, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x099790…099924 Dummy {f00=0x006a, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY01 DVDY01O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLAC
0x099924…099ab8 Dummy {f00=0x006a, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x099ab8…099c4c Dummy {f00=0x006a, 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
0x099c4c…099de0 Dummy {f00=0x006a, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x099de0…099f74 (1, 194) Opaque[0x194]
0x099f74…09a108 # DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d48, f03=0x0000}
0x099f74…09a108 IdxSect {
0x099f74…09a108 f00 = 0x006a // 0x99f74 @0x0
0x099f74…09a108 f01 = 0x0002 // 0x99f76 @0x2
0x099f74…09a108 gno = [ // 0x99f78 @0x4
0x099f74…09a108 [0x00]: C0x006a.0x1.0
0x099f74…09a108 ]
0x099f74…09a108 }
0x09a108…09a29c Dummy {f00=0x006a, f01=0x018e, f02=» 2 P IDENT DVTP01 REL 9.2 79-11-16 870105040920 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x09a29c…09a430 Dummy {f00=0x006a, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTP01 ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADD
0x09a430…09a5c4 Dummy {f00=0x006a, f01=0x40f6, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER B P IFT MMUPAG=1 n PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ AREA USER ECB ADD
0x09a5c4…09a758 Dummy {f00=0x006a, 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
0x09a758…09a8ec Dummy {f00=0x006a, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x09a8ec…09aa80 Dummy {f00=0x006a, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x09aa80…09ac14 (1, 195) Opaque[0x194]
0x09ac14…09ada8 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d50, f03=0x0000}
0x09ac14…09ada8 IdxSect {
0x09ac14…09ada8 f00 = 0x006a // 0x9ac14 @0x0
0x09ac14…09ada8 f01 = 0x0002 // 0x9ac16 @0x2
0x09ac14…09ada8 gno = [ // 0x9ac18 @0x4
0x09ac14…09ada8 [0x00]: C0x006a.0x2.0
0x09ac14…09ada8 ]
0x09ac14…09ada8 }
0x09ada8…09af3c Dummy {f00=0x006a, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * T
0x09af3c…09b0d0 Dummy {f00=0x006a, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x09b0d0…09b264 Dummy {f00=0x006a, 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,
0x09b264…09b3f8 Dummy {f00=0x006a, 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
0x09b3f8…09b58c Dummy {f00=0x006a, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x09b58c…09b720 Dummy {f00=0x006a, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x09b720…09b8b4 (1, 196) Opaque[0x194]
0x09b8b4…09ba48 # DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d58, f03=0x0000}
0x09b8b4…09ba48 IdxSect {
0x09b8b4…09ba48 f00 = 0x006a // 0x9b8b4 @0x0
0x09b8b4…09ba48 f01 = 0x0002 // 0x9b8b6 @0x2
0x09b8b4…09ba48 gno = [ // 0x9b8b8 @0x4
0x09b8b4…09ba48 [0x00]: C0x006a.0x3.0
0x09b8b4…09ba48 ]
0x09b8b4…09ba48 }
0x09ba48…09bbdc Dummy {f00=0x006a, f01=0x0190, f02=» 2 P IDENT DVKB02 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB02 TABLE ENTRY r P EXTRN CTAB03 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY02 PMMUPAG EQU 1 P*
0x09bbdc…09bd70 Dummy {f00=0x006a, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x09bd70…09bf04 Dummy {f00=0x006a, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY02 DVDY02O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLAC
0x09bf04…09c098 Dummy {f00=0x006a, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x09c098…09c22c Dummy {f00=0x006a, 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
0x09c22c…09c3c0 Dummy {f00=0x006a, f01=0x0000, f02=»
0x09c3c0…09c554 (1, 197) Opaque[0x194]
0x09c554…09c6e8 # DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d60, f03=0x0000}
0x09c554…09c6e8 IdxSect {
0x09c554…09c6e8 f00 = 0x006b // 0x9c554 @0x0
0x09c554…09c6e8 f01 = 0x0002 // 0x9c556 @0x2
0x09c554…09c6e8 gno = [ // 0x9c558 @0x4
0x09c554…09c6e8 [0x00]: C0x006b.0x0.0
0x09c554…09c6e8 ]
0x09c554…09c6e8 }
0x09c6e8…09c87c Dummy {f00=0x006b, f01=0x0190, f02=» 2 P IDENT DVDI02 REL 9.2 79-11-16 870105040920 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI02 DISPLAY INDICATOR 03 P* P*
0x09c87c…09ca10 Dummy {f00=0x006b, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI02 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x09ca10…09cba4 Dummy {f00=0x006b, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x09cba4…09cd38 Dummy {f00=0x006b, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x09cd38…09cecc Dummy {f00=0x006b, f01=0x0000, f02=»
[…0x1…]
0x09d060…09d1f4 (1, 198) Opaque[0x194]
0x09d1f4…09d388 # DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d68, f03=0x0000}
0x09d1f4…09d388 IdxSect {
0x09d1f4…09d388 f00 = 0x006b // 0x9d1f4 @0x0
0x09d1f4…09d388 f01 = 0x0002 // 0x9d1f6 @0x2
0x09d1f4…09d388 gno = [ // 0x9d1f8 @0x4
0x09d1f4…09d388 [0x00]: C0x006b.0x1.0
0x09d1f4…09d388 ]
0x09d1f4…09d388 }
0x09d388…09d51c Dummy {f00=0x006b, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY02 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY02 EQU * T
0x09d51c…09d6b0 Dummy {f00=0x006b, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x09d6b0…09d844 Dummy {f00=0x006b, 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,
0x09d844…09d9d8 Dummy {f00=0x006b, 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
0x09d9d8…09db6c Dummy {f00=0x006b, f01=0x0000, f02=»
[…0x1…]
0x09dd00…09de94 (1, 199) Opaque[0x194]
0x09de94…09e028 # DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d70, f03=0x0000}
0x09de94…09e028 IdxSect {
0x09de94…09e028 f00 = 0x006b // 0x9de94 @0x0
0x09de94…09e028 f01 = 0x0002 // 0x9de96 @0x2
0x09de94…09e028 gno = [ // 0x9de98 @0x4
0x09de94…09e028 [0x00]: C0x006b.0x2.0
0x09de94…09e028 ]
0x09de94…09e028 }
0x09e028…09e1bc Dummy {f00=0x006b, f01=0x018e, f02=» 2 P IDENT DVGP03 REL 9.2 79-11-16 870105040920 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP03 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP03 EQU *
0x09e1bc…09e350 Dummy {f00=0x006b, f01=0x0190, f02=» P DATA DWTEND-DVGP03 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA 'GP' TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x09e350…09e4e4 Dummy {f00=0x006b, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x09e4e4…09e678 Dummy {f00=0x006b, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT
0x09e678…09e80c Dummy {f00=0x006b, f01=0x0000, f02=»
[…0x1…]
0x09e9a0…09eb34 (1, 200) Opaque[0x194]
0x09eb34…09ecc8 # DirEnt {nam=»M:92LP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x09eb34…09ecc8 IdxSect {
0x09eb34…09ecc8 f00 = 0x000e // 0x9eb34 @0x0
0x09eb34…09ecc8 f01 = 0x0020 // 0x9eb36 @0x2
0x09eb34…09ecc8 gno = [ // 0x9eb38 @0x4
0x09eb34…09ecc8 [0x00]: C0x000e.0x3.0
0x09eb34…09ecc8 [0x01]: C0x000f.0x0.0
0x09eb34…09ecc8 [0x02]: C0x000f.0x1.0
0x09eb34…09ecc8 [0x03]: C0x000f.0x2.0
0x09eb34…09ecc8 [0x04]: C0x000f.0x3.0
0x09eb34…09ecc8 [0x05]: C0x0010.0x0.0
0x09eb34…09ecc8 [0x06]: C0x0010.0x1.0
0x09eb34…09ecc8 [0x07]: C0x0010.0x2.0
0x09eb34…09ecc8 [0x08]: C0x0010.0x3.0
0x09eb34…09ecc8 [0x09]: C0x0011.0x0.0
0x09eb34…09ecc8 [0x0a]: C0x0011.0x1.0
0x09eb34…09ecc8 [0x0b]: C0x0011.0x2.0
0x09eb34…09ecc8 [0x0c]: C0x0011.0x3.0
0x09eb34…09ecc8 [0x0d]: C0x0012.0x0.0
0x09eb34…09ecc8 [0x0e]: C0x0012.0x1.0
0x09eb34…09ecc8 [0x0f]: C0x0012.0x2.0
0x09eb34…09ecc8 ]
0x09eb34…09ecc8 }
0x09ecc8…09ee5c Dummy {f00=0x000e, f01=0x0190, f02=» y J h h h h h h < h hB B $ L . 8 h h h h h h $ h h h h h L 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
0x09ee5c…09eff0 Dummy {f00=0x000e, 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 " `^ _ @`^ > > U # T @ H ( ( P c P W: P, A`^ @ V ( U P" @ V L W @
0x09eff0…09f184 Dummy {f00=0x000e, f01=0x0190, f02=» 6 8 `d Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @` : ) A` _ @ @ A H ( A`^_ ? ? ? ? ? ^ A _ _ ^ ` $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x09f184…09f318 Dummy {f00=0x000e, f01=0x0190, f02=» Q Q > > 0 @`0 1 A`0 P P > ? * X " R" Y T ? X D DT> 4 W8 > _& @ 8 R" Y T ? X D DT 4 W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @8 V ? 8 > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x09f318…09f4ac Dummy {f00=0x000e, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U `| XH D #DP @ R XV Y @ P, DT W X &P T X I Y T # C C W4 O " # X Y ) C
0x09f4ac…09f640 Dummy {f00=0x000e, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x09f640…09f7d4 (1, 201) Dummy {f00=0x000f, f01=0x0190, f02=» 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 _@(@ L U L Q0 M & X
0x09f7d4…09f968 Dummy {f00=0x000f, f01=0x0190, f02=» 0P X T 4 Y X D X T X 5 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > `6J B B `>J B B pU
0x09f968…09fafc Dummy {f00=0x000f, f01=0x0190, f02=» 0 R t B " P Q :A H P P `t H !@T I `| T ! 1 U `x A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x09fafc…09fc90 Dummy {f00=0x000f, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ x P 8R R `| Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ `| ;h # <c$
0x09fc90…09fe24 Dummy {f00=0x000f, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T x W u > > E D E
0x09fe24…09ffb8 Dummy {f00=0x000f, f01=0x0190, f02=»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 " ] ~ Y > > V P
0x09ffb8…0a014c Dummy {f00=0x000f, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P `t A`ZW A`Z @`ZA.W ? A dI.9 X R C C & `| ?A @`ZA. X V 9_: @
0x0a014c…0a02e0 Dummy {f00=0x000f, f01=0x0190, f02=» W Q P P 1 ! X T V C B Q 1 & `| Y Y Y B X _ ? X Z(W@ A d ? ? H $B T I H T B > > > ? ? ? ? ? I X ' X T B C X 4 ~ Y V P
0x0a02e0…0a0474 (1, 202) Dummy {f00=0x000f, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X !Pp P X ! 6 Y * X . ! j Y T & ` P Pb P Pv Pz 6 + `t A`Z @`ZA. H x T `| Y HW A`Z @`ZA. Wx ! * X , X P ! ! 2W< ! * _ ! *
0x0a0474…0a0608 Dummy {f00=0x000f, f01=0x0190, f02=» 0 TOT 0 SST X Y ,W 0 X Y , Y * ! 8 ! X *' P ! ! x D ) P _ X " X ! Tr X !& Ph B 0 0 :C P ! 8 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * V " ! 8_ Y *
0x0a0608…0a079c Dummy {f00=0x000f, f01=0x0190, f02=»# T X Y ._ Y *# 4 ! n `t ( C V ! ! 8 B B ! j ! xW0 W ! n X@ b ! x C (Q ! ! * ! 2 ! n ! T )WL WP ! n Xz R ! x ( - j ! x ) W. Y PW Y P Y L Y N Y B S W W B C & `| _ ? Y " X $ T X
0x0a079c…0a0930 Dummy {f00=0x000f, f01=0x0190, f02=» X # P Y .:A , X J A`Z Y J @`ZB. X $ Y Y $ Y X h Y & X '? A d ? (@ X L X N K P6 X PT $ D C Y B `|K & E % Y B K X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X d " _ W
0x0a0930…0a0ac4 Dummy {f00=0x000f, f01=0x0190, f02=»;A _ 4 X 0 # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A L;D A L 4 R _ ;H 4 r ! x (:C 4 Z ! x ( 4
0x0a0ac4…0a0c58 Dummy {f00=0x000f, f01=0x0190, f02=» X # P Y :A , X A Y @ B. X Y Y P Y P 7P < $ <C ! 9 4 X d " _ W
0x0a0c58…0a0dec Dummy {f00=0x000f, f01=0x0190, f02=»;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A L;D A L 4 R _ ;H 4 ! (:C 4 ! ( 4
0x0a0dec…0a0f80 Dummy {f00=0x000f, f01=0x0190, f02=» z^L~noj {|[_m TOSS T 8 v b `| P v f _ t _< ? ^ 4 _ P P @ 6 1 A 6 _ P 9 > > & D` a a a (a$z z { {r{ } } zZzn
0x0a0f80…0a1114 (1, 203) Dummy {f00=0x000f, f01=0x0190, f02=» D X P _ L !##P T @ R $P U + U _ (@(@ I P ^ "X H ( Y H B # X ( U "X B r 7 W Y & Y $ 0 Y . "* 5 "X B Y I B Y J_ W 5 C P C W < C C _H 5 H H S
0x0a1114…0a12a8 Dummy {f00=0x000f, f01=0x0190, f02=» P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 6* T.(@(@ P #D } #n `| `x$ $ ' ' ' ' ' &L&L# ' &L# ' ' ' ' &L&L# F X (P R X (W G G : R $ - _ " P $ - : R $ - _ :
0x0a12a8…0a143c Dummy {f00=0x000f, f01=0x0190, f02=» @`^ Q (@ F 8 : @ _ `^ ( H > #` X &Pj D ^V" D "? P P &P E ^ 6 V, P ( # ( ( W #` 6 ' B W C X '? " X & X ( )T ' " # ' X $TT T A" J , 4 P W T
0x0a143c…0a15d0 Dummy {f00=0x000f, f01=0x0190, f02=»" T ' P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF 5 N 4 5W P 0 @1 1 A1 (@_ 1 (@ % / O $P % 4 F " (@ B " P 9 * '
0x0a15d0…0a1764 Dummy {f00=0x000f, f01=0x0190, f02=» F U G F G # ' & ( F " F +P P* X $ T 5L U W 5L R P> $P8W ' X ( X & F X P @`^ Q (@ 7 + X ^V" P "P8 $P4W X & X bT( ;AR ( ' ( #` 6 T Y ^ F " F D '? P
0x0a1764…0a18f8 Dummy {f00=0x000f, f01=0x0190, f02=»T B " &(@( |n B B P ! Tn M +$ : ' A|~ A| " P |8 "" | P +$ |n @|: *(@ D|< C C C W C ( ' ' L " TOP +$ A|l L A|j L C |h @|j A|jQ< @|: * A|: @|| +$ B
0x0a18f8…0a1a8c Dummy {f00=0x000f, f01=0x0190, f02=» A|l 0" *~ *~ U _ L !SSP !LL *~ W L @|D A|DV +$ P E|F @|: E|H P E|V P E|X D|FT |fP +$ ,0 2% P( R 0 X|<T R , @|lT R RT @|| +J +$ 6 ,0 2% P +$ |f r P %_ S D S
0x0a1a8c…0a1c20 Dummy {f00=0x000f, f01=0x0190, f02=»|DT W |fT Wz @||P R ( >a U Wb 0 =b P|FP @|D ! T. W< P|H D|< Y P|V Y P|X Y U ! T ! X6 _R _V D| " P |n A|o ( ^ W @| P6 I @| P @4Z V W H4 I4^(@ @|fP -W P B "
0x0a1c20…0a1db4 (1, 204) Dummy {f00=0x000f, f01=0x0190, f02=» _ S ` R ( R * 4 S b +J U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S D S
0x0a1db4…0a1f48 Dummy {f00=0x000f, f01=0x0190, f02=» T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W P B
0x0a1f48…0a20dc Dummy {f00=0x000f, f01=0x0190, f02=» _ S ` R ( R * S b +J U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S D S
0x0a20dc…0a2270 Dummy {f00=0x000f, f01=0x0190, f02=» T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W P B
0x0a2270…0a2404 Dummy {f00=0x000f, f01=0x0190, f02=» _ S ` R ( R * S b +J U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S D S
0x0a2404…0a2598 Dummy {f00=0x000f, f01=0x0190, f02=» T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W 4d P Q R
0x0a2598…0a272c Dummy {f00=0x000f, f01=0x0190, f02=»P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +P W : X + P X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @`0 1 A`0 Z> : D NW (P D
0x0a272c…0a28c0 Dummy {f00=0x000f, f01=0x0190, f02=» U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C W C C X %? : X &_ 0 D . P ,
0x0a28c0…0a2a54 (1, 205) Dummy {f00=0x0010, f01=0x0190, f02=» ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< C h N l n n 9 ;zD 8 ;zD 0 5 @ 1 A Z> : D NW (P D
0x0a2a54…0a2be8 Dummy {f00=0x0010, f01=0x0190, f02=»P P $_ v9d _L _$ X 9 DVP8 @_ `0 `t @_ `_ @_ P 0P _ % A_ A_ Y : &_ B Qh :V : X ! 3 ? _ X P 0 Y P C x_ :2_ B ! P Y _` X ! X : _ B Y _z `x X P A:D v:L Y Wb Y
0x0a2be8…0a2d7c Dummy {f00=0x0010, f01=0x0190, f02=»_ ) 1_ 8 (X( P _ 0 )_6 X " X> XB X " E L < _H < _: (P _ ) 1 4 DV X R2 X T* X P& , Y L C L C x > @8 @8 @8 A8 X &_" X P y Y X P T : @; T A; A; > A; A; A; A; A; ; W
0x0a2d7c…0a2f10 Dummy {f00=0x0010, f01=0x0190, f02=» >F !CFTf Tb ADWP ADVTR !CFTL !CFTD T@ !C. T8 !C.A I A; P " ?f !Cd @ _ !Cd T DV ? " X !C._ !D0 A; @; P @; P !@, A; A; _ !D0 @; P @D X@ !@ TD A; !A8 < @; P( @D P" @; < 8 !?P X Y !@, A; _B !C. X>_b A; @D
0x0a2f10…0a30a4 Dummy {f00=0x0010, f01=0x0190, f02=» " H " P X * Y X T !; W xW( &W" X R X T & !; ; !A < X ! _ X !A&W. A; @; A; Y " @ _R !D0 @; T @; P !AL < !D0 @; T @; X Wx A I ; v>n `| ; @; @; ? @< @; A; ? !D0 @; XV !C. T @; P !A@ !D _p 1T,
0x0a30a4…0a3238 Dummy {f00=0x0010, f01=0x0190, f02=» ! P !A* < # T @D T !A&_ !?P !A _ A; A; E A; A; 4 @; P !A@ !D < !C @< P !Bj !D A; < @8 T !A<_ T : _ ; A; V C P B B A; A; A; A; A; !At !D A; _^ Y Y " 8 W @; !C X ! X Z X X X _ @;
0x0a3238…0a33cc Dummy {f00=0x0010, f01=0x0190, f02=»; A< A; !CFT2 P4 PJ PL P P. 1 A; @; ]6W P _@ @D @; E !D@P !C 4 _$ !D@ 2_l 1 A; T 0W ;W < A< A< W W W A< A< !B @< !C6 @< !C6 !C& !C& B J 4 !B !C& @; @; A< @; T$ @DW !C6 8 !C6W -
0x0a33cc…0a3560 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U< Zt Q P Q T 0 !C6 A; 0 !C6 A; !C6 !C6 A` A; _ A; A; !B !C& @DW !C6 8 !C6 X ! 9a D< !C6 X ! P ! T & !C6_P B J B !C. !C& 4 A d ; J T A; T PF 4 !C < A d ; _ I " P A; 8 < A8 ; 4
0x0a3560…0a36f4 (1, 206) Dummy {f00=0x0010, f01=0x0190, f02=» @_ `_ @_ P $ Y : _ @ A8 ; @8 T C < 8 @ A8 ; C `| A8 a8 ; 4 vC X A8 > vD Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 Dz D M ! 8 ! W -
0x0a36f4…0a3888 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a3888…0a3a1c Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a3a1c…0a3bb0 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a3bb0…0a3d44 Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a3d44…0a3ed8 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a3ed8…0a406c Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a406c…0a4200 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a4200…0a4394 (1, 207) Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a4394…0a4528 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a4528…0a46bc Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a46bc…0a4850 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a4850…0a49e4 Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a49e4…0a4b78 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a4b78…0a4d0c Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a4d0c…0a4ea0 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a4ea0…0a5034 (1, 208) Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a5034…0a51c8 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt Q P Q T 0 ! A; 0 ! A; ! ! A` A; _ A; A; ! ! @ ! 8 ! X ! 9a D< ! X ! P ! T & ! _P B J B ! ! 4 A d ; J T A; T P 4 ! < A d ; _ I " P A; 8 < A8 ; 4
0x0a51c8…0a535c Dummy {f00=0x0010, f01=0x0190, f02=» @ ` @ P $ Y : _ @ A8 ; @8 T < 8 @ A8 ; A8 a8 ; 4 vC X A8 > v Z A< 4 A< 8 !C @; P !A@ !D < @< P a< A< 4 A; !CF T ' A; 4 8 D M ! 8 ! W -
0x0a535c…0a54f0 Dummy {f00=0x0010, f01=0x0190, f02=» A; @; @; U Zt :f"? H_ !C6 "? H_ !C6 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="_ _ o a eVh j kr > > @`^ 0 A`^W & ^
0x0a54f0…0a5684 Dummy {f00=0x0010, f01=0x0190, f02=» P "R Y W 0 `| Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ( ( a c a ? X V Y `| ! 2W< Y U R -P c X , ) Y . c X P Y P C W~ 8!@
0x0a5684…0a5818 Dummy {f00=0x0010, f01=0x0190, f02=» P C c B c T B % X . $ 4 T % c X ,T ! P c e. Y . V e ! B P X " _` B P$ $$ R % C e * ! W Y +PH Y *P> Y (P Y )P e R _Q P OR R W " ! B b Wr W 0 Z e ! B
0x0a5818…0a59ac Dummy {f00=0x0010, f01=0x0190, f02=» `x" d QfR$ X # P X R6;GV2 X $P y $ dj P8 X R2;GV. X " b X , $4 P e. X .T * W Y , - `| @ Y $ X Z _X ? 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 _
0x0a59ac…0a5b40 Dummy {f00=0x0010, f01=0x0190, f02=» g g !"&';<>@^_ 9: X ! Y MejP ^ `t Y Le e e e f e e f f ! ! ! W B W$ B L # 9Q T W Q P X & V T Y &W e> X ! T6 B R0Q$ B D ! V ! ! ! W !h !f Y ! T ! V eh !
0x0a5b40…0a5cd4 (1, 209) Dummy {f00=0x0011, f01=0x0190, f02=» !h2_n !hj_t B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !h& Y Y U ! _$ W4 , ! T ,' e^ ! R !__U C X ' W Y ! _ X RT U TJ
0x0a5cd4…0a5e68 Dummy {f00=0x0011, f01=0x0190, f02=»T ! ! ! ! 4 X ' 4 Y ' eL ! ! " P ,$ , ! 4!"$&;<>@^_ h j j j< PB P8 `t B P B L # +P ! ! T ! Y & ! W ! ! W ! Y Y i F U P" T Y &_. P4 R( Pj O]> V _F T Y
0x0a5e68…0a5ffc Dummy {f00=0x0011, f01=0x0190, f02=» i & `| X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q i -_ ? _ X # ! ^ Y _( ? X Z ! P4 P i i X
0x0a5ffc…0a6190 Dummy {f00=0x0011, f01=0x0190, f02=»T( X $ P X P B V *@ Y h `| `x ? X _F k o~m m n" mr ! P P m6 & m `t B P B H " +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 n ! m B B U4 $ ! T _ U D ! T
0x0a6190…0a6324 Dummy {f00=0x0011, f01=0x0190, f02=» P !o B C mJ ^N P R ?] _ C _ F F" $ P X ' X ] ! m l B !ob !o ! mr B Y & !o8W lZ 8!0T 8 !@P ! $ P ! ! m ! T Y & T X & C & `| X Y & Y > X " X &" Y )
0x0a6324…0a64b8 Dummy {f00=0x0011, f01=0x0190, f02=» V P P" ! m W m X $ X !n|_ X $ X X & !o8 !o Y _8 X " X &" Y )U W ! ! ! Y 4 B l U )X R@ X X &" Y * X ) V Y !o X $ X & !o8 X * lZ l `R Y ! !
0x0a64b8…0a664c Dummy {f00=0x0011, f01=0x0190, f02=» P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! l B ! ! ! B Y & ! W lZ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & `| X Y & Y > X " X &" Y )
0x0a664c…0a67e0 Dummy {f00=0x0011, f01=0x0190, f02=» V P P" ! m W m X $ X !n|_ X $ X X & !o8 !o Y _8 X " X &" Y )U W ! ! ! Y 4 B l U )X R@ X X &" Y * X ) V Y !o X $ X & !o8 X * lZ l `R Y ! !
0x0a67e0…0a6974 (1, 210) Dummy {f00=0x0011, f01=0x0190, f02=» P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! l B ! ! ! B Y & ! W lZ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & `| X Y & Y > X " X &" Y )
0x0a6974…0a6b08 Dummy {f00=0x0011, f01=0x0190, f02=» V P P" ! m W m X $ X !n|_ X $ X X & !o8 !o Y _8 X " X &" Y )U W ! ! ! Y 4 B l U )X R@ X X &" Y * X ) V Y !o X $ X & !o8 X * lZ l `R Y ! !
0x0a6b08…0a6c9c Dummy {f00=0x0011, f01=0x0190, f02=» P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! l B ! ! ! B Y & ! W lZ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & `| X Y & Y > X " X &" Y )
0x0a6c9c…0a6e30 Dummy {f00=0x0011, f01=0x0190, f02=» V P P" ! m W m X $ X !n|_ X $ X X & !o8 !o Y _8 X " X &" Y )U W ! ! ! Y 4 B l U )X R@ X X &" Y * X ) V Y !o X $ X & !o8 X * lZ l `R Y ! !
0x0a6e30…0a6fc4 Dummy {f00=0x0011, f01=0x0190, f02=» P ! B C ^N P y P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P o P W< o T6 y ' P !z & B # P G W G & `| X P P R: AyP xy Y X T Q (P H U ^ 9 1
0x0a6fc4…0a7158 Dummy {f00=0x0011, f01=0x0190, f02=» H o P o P $ $ 1 ) > ) $P e % > (@ B Z F U F Z o P U `x C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @
0x0a7158…0a72ec Dummy {f00=0x0011, f01=0x0190, f02=» & < ? < ? <(@ | $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h | P ?_" = > = > = =_D R _ 00 > & <h$ P >
0x0a72ec…0a7480 Dummy {f00=0x0011, f01=0x0190, f02=» @|6 U : A| A| :A A|: J , ` R @ U P. ,% T& |n C ( B P T W ' T| I|< @ 8 =hP Y X Pl 0T< Y H|<! R W 9a I|< T T 9a H|= E| ^ W P ,! T T ( N : n "' #
0x0a7480…0a7614 (1, 211) Dummy {f00=0x0011, f01=0x0190, f02=» "# P P @|6 P ( )W @ 0 R % "V E T D A| _" P @|6 P ( )W @ 0 Rb ' F "R G | @|: D|< #D T G W, A|| ' "R A|| A|f `| | *
0x0a7614…0a77a8 Dummy {f00=0x0011, f01=0x0190, f02=» @|6 U : A| A| :A A|: , ` R @ U P ,% T |n C ( B P T W ' T I|< @ 8 =hP Y X P 0T Y H|<! R W 9a I|< T T 9a H|= E| ^ W P ,! T T ( : n "' # n
0x0a77a8…0a793c Dummy {f00=0x0011, f01=0x0190, f02=» "# P P @|6 P ( )W @ 0 R % "V E T D A| _" P @|6 P ( )W @ 0 Rb ' F "R G | @|: D|< #D T G W, A|| ' "R A|| A|f `| |
0x0a793c…0a7ad0 Dummy {f00=0x0011, f01=0x0190, f02=» @|6 U : A| A| :A A|: , ` R @ U P ,% T |n C ( B P T W ' T I|< @ 8 =hP Y X P 0T Y H|<! R W 9a I|< T T 9a H|= E| ^ W P ,! T T ( : n "' #
0x0a7ad0…0a7c64 Dummy {f00=0x0011, f01=0x0190, f02=» "# P P @|6 P ( )W @ 0 R % "V E T D A| _" P @|6 P ( )W @ 0 Rb ' F "R G | @|: D|< #D T G W, A|| ' "R A|| A|f `| |
0x0a7c64…0a7df8 Dummy {f00=0x0011, f01=0x0190, f02=» @|6 U : @ & , L T L PF L T M Q M L V L A ( @ & : T n @ ( [ [ M M M A & -(@ : - : @ & , L T M @ & : =a 9a Q - _ - > @ HPJ r ,0 1 N 1 A1 4Z N @ & , - M M M
0x0a7df8…0a7f8c Dummy {f00=0x0011, f01=0x0190, f02=» < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* < +.-, 0 23456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ($SWAP A A A A. UU @ @ ! P$
0x0a7f8c…0a8120 Dummy {f00=0x0011, f01=0x0190, f02=» A P. _ " :c* A W " :d2 * A D & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR T F TW =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T>
0x0a8120…0a82b4 (1, 212) Dummy {f00=0x0011, f01=0x0190, f02=» - P _ T <B :L A W A A W T F W V = V W Y* P Z( = :L < P W <9B @ V W Q W @ @ A
0x0a82b4…0a8448 Dummy {f00=0x0011, f01=0x0190, f02=» x V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;T X$ W _J T W
0x0a8448…0a85dc Dummy {f00=0x0011, f01=0x0190, f02=»P XZ_V S A 7 A } @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X C.9h! # " :A K : A T.I T P 1 I P < R
0x0a85dc…0a8770 Dummy {f00=0x0011, f01=0x0190, f02=»! ( : A A A A A ! T A A I ! : 9E @ r s A I T ) A _ I N T : 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P @ T X W n : YX d C !
0x0a8770…0a8904 Dummy {f00=0x0011, f01=0x0190, f02=» xW V W$ V P P W P V V T V T W P V W @ $ P p W T : A _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : :
0x0a8904…0a8a98 Dummy {f00=0x0011, f01=0x0190, f02=» j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W FQ@ V V v x W V V v p R( W V W ^< _@ V
0x0a8a98…0a8c2c Dummy {f00=0x0011, f01=0x0190, f02=» W :K W r FQ R t FV v : V W V ) : V <B W |P v v : $ V |P v w v : V $ V l $ V M : W V R RR > R
0x0a8c2c…0a8dc0 Dummy {f00=0x0011, f01=0x0190, f02=» _ V : " D Pd W V PL $;A^ D E D P. V 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
0x0a8dc0…0a8f54 (1, 213) Dummy {f00=0x0012, f01=0x0190, f02=»X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B _ `` : V ) v : 4P: " D , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W
0x0a8f54…0a90e8 Dummy {f00=0x0012, f01=0x0190, f02=» V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q @ P A. @ P
0x0a90e8…0a927c Dummy {f00=0x0012, f01=0x0190, f02=» S P 3 _ `2 3 `4 B A. @ D @ W x A ( : A `| > l : xR T W n V pT : N V l W H V ]" . nT" W v z W n V ~P W x b V
0x0a927c…0a9410 Dummy {f00=0x0012, f01=0x0190, f02=» xV : z V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V v ) W b G v ) - V W f v ) G v ` " W p W ~ pP0 >
0x0a9410…0a95a4 Dummy {f00=0x0012, f01=0x0190, f02=» , " E R . W ~ R . R P R Xv _|W T : T W x _ V P I L W z ` pPl H - V I 8 " R E R T E D E @ v H v E f #_v W |
0x0a95a4…0a9738 Dummy {f00=0x0012, f01=0x0190, f02=» .=H N N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ FR - @ - N !TTP N :H N TBT W W8 2 " T @ N =H N @
0x0a9738…0a98cc Dummy {f00=0x0012, f01=0x0190, f02=» " J YV : v `?A @ W W :b / W : W @ W D V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a w ` :A W V d 4
0x0a98cc…0a9a60 Dummy {f00=0x0012, f01=0x0190, f02=» : x A P p W r p W @ @ % H V , P@ , - 4 ] 4 FY 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP @ T
0x0a9a60…0a9bf4 (1, 214) Dummy {f00=0x0012, f01=0x0190, f02=» _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P P0 r " U
0x0a9bf4…0a9d88 Dummy {f00=0x0012, f01=0x0190, f02=» ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P !TTT @ @ T : @ ! P @ @ 8 CRT 3 @ 8 8 S @ 8 PP 8 !RRP @ ! T
0x0a9d88…0a9f1c Dummy {f00=0x0012, f01=0x0190, f02=» _ 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P r _ Ph W p W V 8 8 4 D P$ @ # P H
0x0a9f1c…0aa0b0 Dummy {f00=0x0012, f01=0x0190, f02=» R @ T P / _ T @ A V W W t PT W f ( W d G =h G V d V r < V f P W f _B V W V t Yr !TTX @ @ T :
0x0aa0b0…0aa244 Dummy {f00=0x0012, f01=0x0190, f02=» $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ @ # P H I K T + Y@
0x0aa244…0aa3d8 Dummy {f00=0x0012, f01=0x0190, f02=»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 . $# P V -W H P U & I @ % PD H I H T P( H U V U W
0x0aa3d8…0aa56c Dummy {f00=0x0012, f01=0x0190, f02=»W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]`6W v
0x0aa56c…0aa700 Dummy {f00=0x0012, f01=0x0190, f02=» F : P N =H N T _ : 00=H 00 P P _ _ : @ ! P (W ( : < h @ 8 CRT" @ ! P ` @ E "W ` @ E " ! 1 L 0 1 2 P D |
0x0aa700…0aa894 (1, 215) Dummy {f00=0x0012, f01=0x0190, f02=» o ,o o 08 DC a KB _ L 8krDY
0x0aa894…0aaa28 Dummy {f00=0x0012, f01=0x0190, f02=» 4eVTP 8 8krDY p 8 P a KB :
0x0aaa28…0aabbc Dummy {f00=0x0012, f01=0x0190, f02=» 8krDY f ,o P 4h GP a KB _ 8krDY
0x0aabbc…0aad50 Dummy {f00=0x0012, f01=0x0190, f02=» p l P RF(E) RDM150 CRC WAS OK q P XIF q ( PRDM140 EQU * q 4 & P LDK A3,1 INDICATE INVALID MESSAGE q H PRDM150 EQU * q r $ P LDR A7,A3 SAVE RESULT REGISTER q P CF A5,HALTIN HALT INPUT q P IFT P6805=1 q " P ORR A7,A1 PARITY ERROR SALCUZ q P
0x0aad50…0aaee4 Dummy {f00=0x0012, f01=0x0190, f02=»EADY INVALID q ~ " P LDK A3,2 INDICATE CORRECT ETB r P RB RDM130 r : P* r L P* ITB RECEIVED r V P* r l PRDM170 EQU * r v P IFF CODE=1 r P CF A5,RDLRC r " P RB(NZ) RDM120 LRC WAS NOT OK r P XIF r P IFT CODE=1 r & P CF A5,RDCRC REA
0x0aaee4…0ab078 Dummy {f00=0x0012, f01=0x018e, f02=» r z P* s PTRACK LDK A2,1 s P LDK A3,ACK1 PRELOAD ACK1 s ( & P XRS A2,CACK INCREMENT ACK COUNTER s J P RF(NZ) TRDLE s t P LDK A3,ACK0 LOAD ACK0 s P RF TRDLE s P* s P* TRANSMIT WACK s P* s PTRWACK LDK A3,WACK LOAD WACK s
0x0ab078…0ab20c Dummy {f00=0x0012, f01=0x0190, f02=» P* TRANSMIT DLE t P* t PTRDLE LDK A2,DLE LOAD DLE t $ " P SC A2,RESEND PUT INSAVE AREA t F P SC A3,RESEND+1 t l P RF TRREP t P t P* t P* TRANSMIT NAK t P* t PTRNAK LDK A3,NAK LOAD NAK t P RF TREN10 t P* t P
0x0ab20c…0ab3a0 Dummy {f00=0x0012, f01=0x0190, f02=»A3,ENQ LOAD ENQ t P* u ( PTREN10 SC A3,RESEND PUT IN SAVE AREA u " P LDK A2,/FF u N P SC A2,RESEND+1 u b $ PTRREP CF A5,TRSYNC START OUTPUT u z & P LC A2,RESEND GET FIRST CHARACTER u P CF A5,WRITEP SEND IT u & P LC A2,RESEND+1 GET NEXT CHARA
0x0ab3a0…0ab534 (1, 216) Opaque[0x194]
0x0ab534…0ab6c8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e88, f03=0x0000}
0x0ab534…0ab6c8 IdxSect {
0x0ab534…0ab6c8 f00 = 0x0074 // 0xab534 @0x0
0x0ab534…0ab6c8 f01 = 0x0004 // 0xab536 @0x2
0x0ab534…0ab6c8 gno = [ // 0xab538 @0x4
0x0ab534…0ab6c8 [0x00]: C0x0074.0x1.0
0x0ab534…0ab6c8 [0x01]: C0x0074.0x2.0
0x0ab534…0ab6c8 ]
0x0ab534…0ab6c8 }
0x0ab6c8…0ab85c Dummy {f00=0x0074, f01=0x0190, f02=» . P IDENT CTAB01 80.12.15/EV NORDJYLLANDS AMT ENTRY CTAB01 6 P ENTRY CTAB02 L P ENTRY CTAB03 b P ENTRY CTAB04 x PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * 0 PCTAB04 DATA FUNC,FUNCSH,UNSC,SHIFT,CTRL,CTRL *
0x0ab85c…0ab9f0 Dummy {f00=0x0074, f01=0x018e, f02=»/9A9B D16,D17 P DATA /BFB5 A16,A17 P DATA /AAA3 A18,C18 2 DATA /8BA5 D18,A23 N DATA /3031 j DATA /3233 ~ DATA /3435 DATA /3637 DATA /3839 DATA /BA26 A20,A21 DATA /ABB3 A22,C22 P D
0x0ab9f0…0abb84 Dummy {f00=0x0074, f01=0x0190, f02=» DATA /7F7F DATA /7F7F DATA /7F7F , DATA /7F7F @ * T PFUNCSH EQU * ^ P DATA /7F9F A15,B15 r P DATA /BDBE B16,B17 P DATA /9C9D C15,C16 P DATA /9E99 C17,D15 P DATA /9A9B D16,D17 P DATA /BFB
0x0abb84…0abd18 Dummy {f00=0x0074, f01=0x018e, f02=»ATA /3637 DATA /3839 DATA /BA26 A20,A21 & P DATA /ABB4 A22,C22 B P DATA /B2A2 D22,D23 ^ DATA /A1A0 E15,E17 z DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,E23 DATA /7F7F DATA /7F7
0x0abd18…0abeac Dummy {f00=0x0074, f01=0x0190, f02=» P DATA /7F7F ,C12 P DATA /B63C E00,A00 P DATA /7F2B ,E11 < P DATA /2E2D B08,B10 T P DATA /2C7F B09 p P DATA /3031 P DATA /3233 P DATA /3435 P DATA /3637 P DATA /3839 P DATA /ACA9 B12,C13 P
0x0abeac…0ac040 Dummy {f00=0x0074, f01=0x0190, f02=» P DATA /4849 P DATA /4A4B P DATA /4C4D , P DATA /4E4F @ P DATA /5051 T P DATA /5253 h P DATA /5455 | P DATA /5657 P DATA /5859 P DATA /5A5C P DATA /5B5D P DATA /277F D12 P* PSHIFT
0x0ac040…0ac1d4 (1, 217) Dummy {f00=0x0074, f01=0x0190, f02=»/7F3F ,E11 P DATA /3A5F B08,B10 P DATA /3B7F B09 . P DATA /3D21 F P DATA /2223 Z P DATA /2425 n P DATA /262F P DATA /2829 P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /404
0x0ac1d4…0ac368 Dummy {f00=0x0074, f01=0x018e, f02=»ATA /4E4F P DATA /5051 P DATA /5253 & P DATA /5455 : P DATA /5657 N P DATA /5859 b P DATA /5A5C v P DATA /5B5D P DATA /2A7F D12 P* PCTRL EQU * P DATA /207F A01 P DATA /7F7F P DATA /7F7
0x0ac368…0ac4fc Dummy {f00=0x0074, f01=0x0190, f02=» P DATA /300D P DATA /3233 P DATA /3435 , P DATA /3637 @ P DATA /3839 T P DATA /ACA9 B12,C13 h P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647
0x0ac4fc…0ac690 Dummy {f00=0x0074, f01=0x408e, f02=»455 P DATA /5657 P DATA /5859 P DATA /5A5C 4 P DATA /5B5D H P DATA /277F D12 P* t END ~@ 7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647
0x0ac690…0ac824 Dummy {f00=0x0074, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x0ac824…0ac9b8 Dummy {f00=0x0074, f01=0x0190, f02=»EGSET v & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN 8 PDSSOPI DSET FC=10 ` PDSSOPO DSET FC=11 z " P FMTCTL INDS=KEYB,OUTDS=SCREEN P* P* P* P* P* P START REGGO P STACK 1
0x0ac9b8…0acb4c Dummy {f00=0x0074, f01=0x0190, f02=»TA DIVISION FOR IBM-3270 EMULATION PACKAGE. z B P* THIS MODULE ALSO CONTAINS THE CREDIT CODED 4 * P* START-UP ROUTINES. z P* H P******************************************************************** P P E
0x0acb4c…0acce0 Dummy {f00=0x0074, f01=0x0190, f02=»E F=NO SALDO AT ALL IN KORT . PCCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK $ 0 PCTESTFLG BOOL FALSE T=CONVERSION, TEST MODE V , PCTRVALG BOOL FALSE T: SKOVBO. F: VIBORG . PCFLT46 BOOL FALSE T=SPECIAL FIELD 46,TR=8 . PCFLT48 BOOL FALSE T=SPECIAL
0x0acce0…0ace74 (1, 218) Opaque[0x194]
0x0ace74…0ad008 # DirEnt {nam=»MOLDLP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x0ace74…0ad008 IdxSect {
0x0ace74…0ad008 f00 = 0x004e // 0xace74 @0x0
0x0ace74…0ad008 f01 = 0x0020 // 0xace76 @0x2
0x0ace74…0ad008 gno = [ // 0xace78 @0x4
0x0ace74…0ad008 [0x00]: C0x004e.0x2.0
0x0ace74…0ad008 [0x01]: C0x004e.0x3.0
0x0ace74…0ad008 [0x02]: C0x004f.0x0.0
0x0ace74…0ad008 [0x03]: C0x004f.0x1.0
0x0ace74…0ad008 [0x04]: C0x004f.0x2.0
0x0ace74…0ad008 [0x05]: C0x004f.0x3.0
0x0ace74…0ad008 [0x06]: C0x0050.0x0.0
0x0ace74…0ad008 [0x07]: C0x0050.0x1.0
0x0ace74…0ad008 [0x08]: C0x0050.0x2.0
0x0ace74…0ad008 [0x09]: C0x0050.0x3.0
0x0ace74…0ad008 [0x0a]: C0x0051.0x0.0
0x0ace74…0ad008 [0x0b]: C0x0051.0x1.0
0x0ace74…0ad008 [0x0c]: C0x0051.0x2.0
0x0ace74…0ad008 [0x0d]: C0x0051.0x3.0
0x0ace74…0ad008 [0x0e]: C0x0052.0x0.0
0x0ace74…0ad008 [0x0f]: C0x0052.0x1.0
0x0ace74…0ad008 ]
0x0ace74…0ad008 }
0x0ad008…0ad19c Dummy {f00=0x004e, f01=0x0190, f02=» ` x J h h h h h h < h h'^' $ L . 8 h h h h h h $ h h h h h L 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
0x0ad19c…0ad330 Dummy {f00=0x004e, 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 " ^ _ @^ > > U # T @ H ( ( P c P W: P, A^ @ V ( U P" @E V LE W @E
0x0ad330…0ad4c4 Dummy {f00=0x004e, f01=0x0190, f02=» 6 8 ^ Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @^ : ) A^ _ @ @ A H ( A^ _ ? ? ? ? ? ^ A _ _ ^ ^ $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x0ad4c4…0ad658 Dummy {f00=0x004e, f01=0x0190, f02=» Q Q > > 0 @^ 1 A^ P P > ? * X " R" Y T ? X D FBT> Z W8 > _& @ 8 R" Y T ? X D FBT Z W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @^ V ? ^ > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x0ad658…0ad7ec Dummy {f00=0x004e, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U ^ XH D #DP @ R XV Y @ P, FBT W X &P T X I Y T # C C W4 O " # X Y ) C
0x0ad7ec…0ad980 Dummy {f00=0x004e, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x0ad980…0adb14 (1, 219) Dummy {f00=0x004e, f01=0x0190, f02=» 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 _@(@ L U L Q0 M & X
0x0adb14…0adca8 Dummy {f00=0x004e, f01=0x0190, f02=» 0P X T 4 Y X FB X T X Z 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > ^ J B B ^ J B B pU
0x0adca8…0ade3c Dummy {f00=0x004e, f01=0x0190, f02=» 0 R t B " P Q :A H P P ^ H !@T I ^ T ! 1 U ^ A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x0ade3c…0adfd0 Dummy {f00=0x004e, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ Ev P 8R R ^ Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ^ ;h # <c$
0x0adfd0…0ae164 Dummy {f00=0x004e, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T Ev W u > > E D E
0x0ae164…0ae2f8 Dummy {f00=0x004e, f01=0x0190, f02=»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 " ] ~ Y > > V P
0x0ae2f8…0ae48c Dummy {f00=0x004e, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P ^ A^ W A^ @^ A.W ? A dI.9 X R C C & ^ ?A @^ A. X V 9_: @
0x0ae48c…0ae620 Dummy {f00=0x004e, f01=0x0190, f02=» W Q P P 1 ! X T V C B Q 1 & ^ Y Y Y B X _ ? X Z(W@ A d ? ? H $B T I H T B > > > ? ? ? ? ? I X ' X T B C X 4 ~ Y V P
0x0ae620…0ae7b4 (1, 220) Dummy {f00=0x004f, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X !Pp P X ! 6 Y * X . ! j Y T & ` P Pb P Pv Pz 6 + ^ A^ @^ A. H Ev T ^ Y HW A^ @^ A. Wx ! * X , X P ! ! 2W< ! * _ ! *
0x0ae7b4…0ae948 Dummy {f00=0x004f, f01=0x0190, f02=» 0 TOT 0 SST X Y ,W 0 X Y , Y * ! 8 ! X *' P ! ! x D ) P _ X " X ! Tr X !& Ph B 0 0 :C P ! 8 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * V " ! 8_ Y *
0x0ae948…0aeadc Dummy {f00=0x004f, f01=0x0190, f02=»# T X Y ._ Y *# 4 ! n ^ ( C V ! ! 8 B B ! j ! xW0 W ! n X@ b ! x C (Q ! ! * ! 2 ! n ! T )WL WP ! n Xz R ! x ( - j ! x ) W. Y PW Y P Y L Y N Y B S W W B C & ^ _ ? Y " X $ T X
0x0aeadc…0aec70 Dummy {f00=0x004f, f01=0x0190, f02=» X # P Y .:A , X J A^ Y J @^ B. X $ Y Y $ Y X h Y & X '? A d ? (@ X L X N K P6 X PT $ D C Y B ^ K & E % Y B K X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X d " _ W
0x0aec70…0aee04 Dummy {f00=0x004f, f01=0x0190, f02=»;A _ 4 X 0 # P _ 4(@ R DD 1_ W (@ R 0 DD ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A L;D A L 4 R _ ;H 4 r ! x (:C 4 Z ! x ( 4
0x0aee04…0aef98 Dummy {f00=0x004f, f01=0x0190, f02=» X # P Y :A , X A Y @ B. X Y Y P Y P 7P < $ <C ! 9 4 X d " _ W
0x0aef98…0af12c Dummy {f00=0x004f, f01=0x0190, f02=»;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A L;D A L 4 R _ ;H 4 ! (:C 4 ! ( 4
0x0af12c…0af2c0 Dummy {f00=0x004f, f01=0x0190, f02=» X # P Y :A P, P P 1P( P W P P 5P ^ ^ X P Wx B Y @! P P $_ Et H _4 _$ X 9 B Y B Y ( P. @D D ^ @D^ `D^ @D^P 0P _ % AD AD` &_ B Q< n_ X P 0 Y P C x_ _ B Y
0x0af2c0…0af454 (1, 221) Dummy {f00=0x004f, f01=0x0190, f02=» y Y W ( (P 0 ) > (P _ ) 1_ (X( P _ 0 )_6 (P _ ) 1 4 ( X R2 X T* X P& , Y L C L C x > @ @ @ A X &_" X P y Y X P T @!| T A!~ A!| > A!^ A!b A!f A!j A!n
0x0af454…0af5e8 Dummy {f00=0x004f, f01=0x0190, f02=» # !' Tf Tb A( P A( TR !' TL !' TD T@ !' T8 !' A I A! P " $ !' % _ !' T ( $d" X !' _ !( A! @!~P @!|P !% A!~ A! _ !( @! P @( X@ !%Z T< A! !& ! @!~P @( P @!| "< 8 !$ !% A! _: !' X6_Z A! @( @! T
0x0af5e8…0af77c Dummy {f00=0x004f, f01=0x0190, f02=» W xW( &W" X R X T & ! !% ! _ A! @!z X A! A!| A! @! A! $ !( @!~T @! P !& ! !( @!~T @! X Wj A I !B Et# ^ ! @!| @! @! A! $ !( @!~XN !' T @! P !& !(t_h 1T& @! X @! P !% !& A! _ A!
0x0af77c…0af910 Dummy {f00=0x004f, f01=0x0190, f02=» @ T !& _ T _ ! A!| ; C P B B A! A! A! A! A! !&F !(t A!~_^_V @!|P6 X R0 X P T$ T Y W ! F P C & A!~ A!| 4 @( @! T @! A! @! A! A! !' T2 P4 PJ PL P P. 1 A! @! ]6W P _@
0x0af910…0afaa4 Dummy {f00=0x004f, f01=0x0190, f02=»' !' !' B J 4 !'D !' @! @! A! @! T( @( !' 8 !' @! P - !' x !D W 0 " @! PL R ~T }T T0 W, !' P " ! " :A *@ HD T 0 !' W R !' A! @! @! U< Zx Q P Q T 0 !' A! 0 !' A! !' !'
0x0afaa4…0afc38 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B ^ " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @D^ `D^ @D^P 0 M A' 4 @ A @ T (b ! @ A (b ^ A a 4 Et(: X A > Et( Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0afc38…0afdcc Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0afdcc…0aff60 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0aff60…0b00f4 (1, 222) Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0b00f4…0b0288 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0b0288…0b041c Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0b041c…0b05b0 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0b05b0…0b0744 Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0b0744…0b08d8 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0b08d8…0b0a6c Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0b0a6c…0b0c00 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0b0c00…0b0d94 (1, 223) Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0b0d94…0b0f28 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0b0f28…0b10bc Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0b10bc…0b1250 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0b1250…0b13e4 Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0b13e4…0b1578 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0b1578…0b170c Dummy {f00=0x004f, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A! @! @! U Zx Q P Q T 0 ! A! 0 ! A! ! !
0x0b170c…0b18a0 Dummy {f00=0x004f, f01=0x0190, f02=» A 4 A _$B P W !B " * 9AY X 2 _ !' 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 @ A @ T ! @ A A a 4 (: X A > Z A! 4 A! !' @!~P !& !(t ! @! P a! A
0x0b18a0…0b1a34 (1, 224) Dummy {f00=0x0050, f01=0x0190, f02=» ! ! B J 4 ! ! @! @! A! @! T @ ! 8 ! @! P - ! x ! W 0 " @! P :f"? HD !' "? HD !' 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="DbD`
0x0b1a34…0b1bc8 Dummy {f00=0x0050, f01=0x0190, f02=» TOSS T E6 EtE` ^ P EZ EtEd _ t _< ? ^ 4 _ P P @ 6 1 A 6 _ P 9 > > & D_R_d_l_hE&_ x y yz y z. |B|6x x F F HVHVHVHVHVG G GfF G GBG HVHVG G G GfG "
0x0b1bc8…0b1d5c Dummy {f00=0x0050, f01=0x0190, f02=» U _ (@(@ IF P ^ HV HF& Y HE B # X ( U HV B r ] W Y & Y $ 0 Y . H( [ HV B Y I B Y J_ W [ C P C W < C C _H [ H H S W C C B B B U [J R Wp
0x0b1d5c…0b1ef0 Dummy {f00=0x0050, f01=0x0190, f02=» B Y IR Q X JU C '? T W6 ( T.(@(@ P #D |0 Il ^ ^ J J M M M M M LJLJI M LJI M M M M LJLJI F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @
0x0b1ef0…0b2084 Dummy {f00=0x0050, f01=0x0190, f02=» X &Pj D ^V" D "? P P &P E ^ V, P ( I ( ( W I^ M B W C X '? HZ X & X ( )T M H I M X $TT T AH J , Z P W T Y $ P T _ Y & F (@ _ L*
0x0b2084…0b2218 Dummy {f00=0x0050, f01=0x0190, f02=»X D ( * ]" 0 X Wf ` U @ H @ X WF [ N 4 5W P 0 @W 1 AW (@_ 1 (@ K / O $P % 4 F H (@ B P 9 M 4' Kb' Kb 5 Kb 4 R. W , P& ,' X
0x0b2218…0b23ac Dummy {f00=0x0050, f01=0x0190, f02=» +P P* X $ T [J U W [J R P> $P8W M X ( X & F X P @^ Q (@ ] + X ^V" P "P8 $P4W X & X bT( ;AR ( M ( I^ T Y ^ F " F D '? P P( $ P" [ I I K K
0x0b23ac…0b2540 Dummy {f00=0x0050, f01=0x0190, f02=» ! Tn M Q" : M Az Az " P z "" {F P Q" z @z (@ Dz C C C W C ( M M L " TOP Q" Az L Az L C z @z Az Q< @z P Az @z Q" B Dz Ez X #D( M ( B B
0x0b2540…0b26d4 (1, 225) Dummy {f00=0x0050, f01=0x0190, f02=» !SSP !LL P| W L @z Az V Q" P Ez @z Ez P Ez P Ez Dz T z P Q" R. 2% P( R 0 Xz T R , @z T R RT @z QH Q" 6 R. 2% P Q" z r P %_ S FB S E 3 P S I P S J P S ( P S
0x0b26d4…0b2868 Dummy {f00=0x0050, f01=0x0190, f02=» =b Pz P @z ! T. W< Pz Dz Y Pz Y Pz Y U ! T ! X6 _R _V Dz " P z Az ( ^ W @z P6 I @z P @ZX V W HZZ IZ (@ @z P -W P B { (@( @z Q _ T `z ` 9A S ^
0x0b2868…0b29fc Dummy {f00=0x0050, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S FB S E 3 P S I P S J P S ( P S
0x0b29fc…0b2b90 Dummy {f00=0x0050, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ Q _ T ` ` 9A S ^
0x0b2b90…0b2d24 Dummy {f00=0x0050, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S FB S E 3 P S I P S J P S ( P S
0x0b2d24…0b2eb8 Dummy {f00=0x0050, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ Q _ T ` ` 9A S ^
0x0b2eb8…0b304c Dummy {f00=0x0050, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S FB S E 3 P S I P S J P S ( P S
0x0b304c…0b31e0 Dummy {f00=0x0050, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W Zb P Q R ;A [ [ : P Q R ;A
0x0b31e0…0b3374 (1, 226) Dummy {f00=0x0050, f01=0x0190, f02=» L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +P W : X + P X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @^ 1 A^ Z> : D NW (P D + I W6 @W T n ( AW U 1_ D +
0x0b3374…0b3508 Dummy {f00=0x0050, f01=0x0190, f02=» W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C W C C X %? : X &_ 0 D . P , _ D . D $ D * Z T ( T & ^
0x0b3508…0b369c Dummy {f00=0x0050, f01=0x0190, f02=» YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< ( h N l n ` $ $ $m _ c g iTi > > @^ 0 A^ W & ^ ! Z( ^ (X0 @^ P T M ]@ , )
0x0b369c…0b3830 Dummy {f00=0x0050, f01=0x0190, f02=» T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ( ( ` bJ_ ? X V Y ^ ! 2W< Y U R -P b> X , ) Y . b* X P Y P C W~ 8!@P$ X $P y $W $ Evb ` Y
0x0b3830…0b39c4 Dummy {f00=0x0050, f01=0x0190, f02=» X . $ 4 T % b X ,T ! P b: c Y . V c ! B P X " _` B P$ $$ R % C c * ! W Y +PH Y *P> Y (P Y )P c R _Q P OR R W " ! B ` Wr W 0 Z c ! B Z Z& X . 0T X W X ,
0x0b39c4…0b3b58 Dummy {f00=0x0050, f01=0x0190, f02=» X $P y $ b P8 X R2;GV. X " ` X , $4 P c X .T * W Y , - ^ @ Y $ X Z _X ? 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
0x0b3b58…0b3cec Dummy {f00=0x0050, f01=0x0190, f02=» Mc P ^ ^ Y Lc d d dZd d(d"e4e: ! ! ! W B W$ B L # 9Q T W Q P X & V T Y &W c X ! T6 B R0Q$ B D ! V ! ! ! W !f !e@ Y ! T ! V c ! B C ! ! T " T W Q "
0x0b3cec…0b3e80 Dummy {f00=0x0050, f01=0x0190, f02=»_ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !f Y Y U ! _$ W4 , ! T ,' c ! R !__U C X ' W Y ! _ X RT U TJ X d ? Y X P "
0x0b3e80…0b4014 (1, 227) Dummy {f00=0x0050, f01=0x0190, f02=» Y ' c ! ! " P ,$ , ! 4!"$&;<>@^_ g h i h PB P8 ^ B P B L # +P ! ! T ! Y & ! W ! ! W ! Y Y hJ F U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P F F
0x0b4014…0b41a8 Dummy {f00=0x0050, f01=0x0190, f02=» > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q h: -_ ? _ X # ! ^ Y _( ? X Z ! P4 P h( h, X " g ! ! X & g h0
0x0b41a8…0b433c Dummy {f00=0x0050, f01=0x0190, f02=» h ^ ^ ? X _F i m l$l6l k ! P P k & k ^ B P B H " +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 m ! l B B U4 $ ! T _ U D ! T _ $$ X" X& X* C F
0x0b433c…0b44d0 Dummy {f00=0x0050, f01=0x0190, f02=»R ?] _ C _ F F" $ P X ' X ] ! l j B !m !m~ ! k B Y & !m W j 8!0T 8 !@P ! $ P ! ! k ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y
0x0b44d0…0b4664 Dummy {f00=0x0050, f01=0x0190, f02=»$ X !l _ X $ X X & !m !m~ Y _8 X " X &" Y )U W ! ! ! Y 4 B jn U )X R@ X X &" Y * X ) V Y !m~ X $ X & !m X * j jn `R Y ! ! ! 4 ! V !
0x0b4664…0b47f8 Dummy {f00=0x0050, f01=0x0190, f02=»R ?] _ C _ F F" $ P X ' X ] ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y
0x0b47f8…0b498c Dummy {f00=0x0050, f01=0x0190, f02=»$ X !l _ X $ X X & !m !m~ Y _8 X " X &" Y )U W ! ! ! Y 4 B jn U )X R@ X X &" Y * X ) V Y !m~ X $ X & !m X * j jn `R Y ! ! ! 4 ! V !
0x0b498c…0b4b20 Dummy {f00=0x0050, f01=0x0190, f02=»R ?] _ C _ F F" $ P X ' X ] ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y
0x0b4b20…0b4cb4 (1, 228) Dummy {f00=0x0051, f01=0x0190, f02=»$ X !l _ X $ X X & !m !m~ Y _8 X " X &" Y )U W ! ! ! Y 4 B jn U )X R@ X X &" Y * X ) V Y !m~ X $ X & !m X * j jn `R Y ! ! ! 4 ! V !
0x0b4cb4…0b4e48 Dummy {f00=0x0051, f01=0x0190, f02=»R ?] _ C _ F F" $ P X ' X ] ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y
0x0b4e48…0b4fdc Dummy {f00=0x0051, f01=0x0190, f02=»$ X !l _ X $ X X & !m !m~ Y _8 X " X &" Y )U W ! ! ! Y 4 B jn U )X R@ X X &" Y * X ) V Y !m~ X $ X & !m X * j jn `R Y ! ! ! 4 ! V !
0x0b4fdc…0b5170 Dummy {f00=0x0051, f01=0x0190, f02=» x P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P m P W< m T6 xH' P !x & B # P G W G & ^ X P P R: Aw Evx4 Y X T Q (P H U ^ 9 1_N ^ X T @m P ( Am xn _
0x0b5170…0b5304 Dummy {f00=0x0051, f01=0x0190, f02=» $P e % > (@ B Z F U F Z m P U ^ C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X
0x0b5304…0b5498 Dummy {f00=0x0051, f01=0x0190, f02=» <(@ zn $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h z P ?_" = > = > = =_D R _ 00 > & <h$ P >
0x0b5498…0b562c Dummy {f00=0x0051, f01=0x0190, f02=» , ` R @ U P. ,% T& z C ( B P T W ' T| Iz @ 8 =hP Y X Pl 0T< Y Hz ! R W 9a Iz T T 9a Hz Ez ^ W P ,! T T ( : n "' # z @z P z $ ) 5 ^ Az Az
0x0b562c…0b57c0 Dummy {f00=0x0051, f01=0x0190, f02=»R % "V E T D Az _" P @z P ( )W @ 0 Rb ' F "R G z @z Dz #D T G W, Az M "R Az Az ^ { } 0
0x0b57c0…0b5954 (1, 229) Dummy {f00=0x0051, f01=0x0190, f02=» , ` R @ U P ,% T z C ( B P T W ' T Iz @ 8 =hP Y X P 0T Y Hz ! R W 9a Iz T T 9a Hz Ez ^ W P ,! T T ( : n "' # @z P z $ ) 5 ^ Az Az
0x0b5954…0b5ae8 Dummy {f00=0x0051, f01=0x0190, f02=»R % "V E T D Az _" P @z P ( )W @ 0 Rb ' F "R G z @z Dz #D T G W, Az M "R Az Az ^ {
0x0b5ae8…0b5c7c Dummy {f00=0x0051, f01=0x0190, f02=» , ` R @ U P ,% T z C ( B P T W ' T Iz @ 8 =hP Y X P 0T Y Hz ! R W 9a Iz T T 9a Hz Ez ^ W P ,! T T ( : n "' # @z P z $ ) 5 ^ Az Az
0x0b5c7c…0b5e10 Dummy {f00=0x0051, f01=0x0190, f02=»R % "V E T D Az _" P @z P ( )W @ 0 Rb ' F "R G z @z Dz #D T G W, Az M "R Az Az ^ {
0x0b5e10…0b5fa4 Dummy {f00=0x0051, f01=0x0190, f02=» L T M Q M L V L A} @} : T n @} [ [ M M M A} -(@ : - : @} , L T M @} : =a 9a Q - _ - > @ HPJ r R. W W AW ZX @} , - M M M @} Az Az > 0 `
0x0b5fa4…0b6138 Dummy {f00=0x0051, f01=0x0190, f02=»89 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* < +.-, 0 23456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ($SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _
0x0b6138…0b62cc Dummy {f00=0x0051, f01=0x0190, f02=» W " :d2 * A & W F ` W 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
0x0b62cc…0b6460 Dummy {f00=0x0051, f01=0x0190, f02=» A W A A W T F W V = V W Y* P Z( = :L < P W <9B @ V W Q W @ @ A D @ CRT @ P @ ! P W
0x0b6460…0b65f4 (1, 230) Dummy {f00=0x0051, f01=0x0190, f02=» @ @ ! T _ P :l 9b ) V _ @ V W W 8 8 P 8 TJ V 0 !;;P P V P$ _ P !;;T X$ W ._J 8 T 0 8W 0 b W W
0x0b65f4…0b6788 Dummy {f00=0x0051, f01=0x0190, f02=» @ ! T A 6 A J V @ R V V I . W V $ ) H A I. : 0 C. X C.9h! 0 0# " 0 0 :A K : A T.I T P 1 I P < R P A _> : A A A
0x0b6788…0b691c Dummy {f00=0x0051, f01=0x0190, f02=»T A : A 6 I ! : 9E @ Pr s A I T ) A _ I N T : h ~ 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P V @ T X W n : YX d C !CCTZ B. X B.9 H R
0x0b691c…0b6ab0 Dummy {f00=0x0051, f01=0x0190, f02=» W P V V T V T W P V W @ $ P p W . T : A T _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ :
0x0b6ab0…0b6c44 Dummy {f00=0x0051, f01=0x0190, f02=»T A 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
0x0b6c44…0b6dd8 Dummy {f00=0x0051, f01=0x0190, f02=» Q R t V Z v : 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
0x0b6dd8…0b6f6c Dummy {f00=0x0051, f01=0x0190, f02=» V PL $;A^ D E D P. V 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
0x0b6f6c…0b7100 Dummy {f00=0x0051, f01=0x0190, f02=» 0 H W : ? ? R 0 R P P B _ ^ : V ) v : 4P: " D F , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W < $ H h ) P
0x0b7100…0b7294 (1, 231) Dummy {f00=0x0051, f01=0x0190, f02=» A V 9n A @ A A , @ @ ! @ 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
0x0b7294…0b7428 Dummy {f00=0x0051, f01=0x0190, f02=» B A. @ D @ W x A ( : A ^ > l : R W n V pT : N V l W H V ]" . nT" W v W n V ~P 8 W x * * _v V d , V P
0x0b7428…0b75bc Dummy {f00=0x0051, f01=0x0190, f02=» *_$ 8 V V x % V v % : V V Z 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
0x0b75bc…0b7750 Dummy {f00=0x0051, f01=0x0190, f02=» W ~ R R P ^ R Xv ^_|W T : W x * _ V P F I W z ` pPl < H - V I " R E R T E D E @ v H v E Z #_v W | ;b W W t V b v ( v W p V
0x0b7750…0b78e4 Dummy {f00=0x0051, f01=0x0190, f02=» 8" R _ ZY QY : @ V 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 V @ ) p !TTXX !CCT t !UUT
0x0b78e4…0b7a78 Dummy {f00=0x0051, f01=0x0190, f02=» v `?A @ W W :b / 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
0x0b7a78…0b7c0c Dummy {f00=0x0051, f01=0x0190, f02=» RP W r R W @ @ % V , P@ , - 4 ] 4 Y 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP @ T Y p !TTX" A 9 A : @
0x0b7c0c…0b7da0 Dummy {f00=0x0051, f01=0x0190, f02=»9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N F W p N =H N V W | ( @ % P W @ % P P0 & r " U _2
0x0b7da0…0b7f34 (1, 232) Dummy {f00=0x0052, f01=0x0190, f02=» W l V p S W p W _L @ % P W @ % P p !TTT v @ @ T : @ ! P @ @ CRT 3 @ S @ PP !RRP @ ! T 3 @ & P 3
0x0b7f34…0b80c8 Dummy {f00=0x0052, f01=0x0190, f02=» @ @ T : P S S _ : . !TTP V W t * P & r _ Ph W p & W V 8 8 4 D P$ . @ # P H I K T + Y@
0x0b80c8…0b825c Dummy {f00=0x0052, f01=0x0190, f02=» P / _ T @ A V W W t PT W f ( & W d 6 r G =h G V d V r < ( V f P W f _B V W V t Yr p !TTX @ @ T : p !TTX !CCTr P, &
0x0b825c…0b83f0 Dummy {f00=0x0052, f01=0x0190, f02=»P V 8 8 8 @ >B 3 . !CCP W P0 W f & W d 6 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
0x0b83f0…0b8584 Dummy {f00=0x0052, f01=0x0190, f02=»>b & 8P D P U & E W ` V W R 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 4 V : V
0x0b8584…0b8718 Dummy {f00=0x0052, f01=0x0190, f02=»R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]^ W v P _ @ @ T
0x0b8718…0b88ac Dummy {f00=0x0052, f01=0x0190, f02=»T p_ : 00=H 00 P P _ _ : @ ! P (W ( : T J J Z @ CRT" @ ! P ` @ E "W ` @ E " ( > L ! " 1 0 r 1 r 2 r P @ j P 0 ` j p v |
0x0b88ac…0b8a40 Dummy {f00=0x0052, f01=0x0190, f02=» m . DC _ KB z $ *_ R R 8i DY @ T P
0x0b8a40…0b8bd4 (1, 233) Dummy {f00=0x0052, f01=0x0190, f02=» 4c TP 8i DY P _ KB 6 $
0x0b8bd4…0b8d68 Dummy {f00=0x0052, f01=0x0190, f02=» 4g GP _ KB z $ *_ R R 8i DY @ T P
0x0b8d68…0b8efc Dummy {f00=0x0052, f01=0x0190, f02=»6805=0 SALCUZ * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 D P XIF SALCUZ T P IFT P6805=1 SALCUZ j P ANK A1,/21 SALCUZ P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM REST
0x0b8efc…0b9090 Dummy {f00=0x0052, f01=0x0190, f02=»CUZ | P LDR A1,A1 SET CR SALCUZ P ABR* A5 RETURN SALCUZ , P XIF SALCUZ J P* ` P* j P* HALT INPUT t P* P* PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INST
0x0b9090…0b9224 Dummy {f00=0x0052, f01=0x0190, f02=»ALCUZ P EJECT P* P* & , P* WRITE FROM OR READ ONE CHARACTER TO A2 0 P* ` P* j PWRITE EQU * t P IFT CODE=1 P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A
0x0b9224…0b93b8 Dummy {f00=0x0052, f01=0x0190, f02=»GHPUT ERROR P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC ( P XIF P P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC p P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,ST
0x0b93b8…0b954c Dummy {f00=0x0052, f01=0x018e, f02=» P IFT CODE+P6805=0 SALCUZ PWRITEP ANK A2,/FF * P ECR A1,A2 D P ORK A2,/80 V PWRI100 SLL A1,1 j P RB(P) WRI100 P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWR
0x0b954c…0b96e0 Dummy {f00=0x0052, f01=0x018e, f02=» d P* P* PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ 4 P ECR A1,A2 V PRE100 SLL A1,1 h P RF(Z) RE110 ~ P RB(NN) RE100 P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P I
0x0b96e0…0ba380 (2, 0) DirGranule ((2, 0)) {
0x0b96e0…0ba380 DirEnt {nam=»M:92SP«, typ=» «, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»M:92SP«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01d0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1498, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1500, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0448, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b20, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04b8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0480, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04a8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b70, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bf8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b60, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0818, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0828, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0938, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08e0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fb0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fc0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0970, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09a8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a60, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b08, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0df8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e70, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0eb0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0410, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f98, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c28, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04d8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0468, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bd0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1378, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b90, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1188, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1198, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0be8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0be0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1230, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1260, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12b0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12c8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12e0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b18, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b78, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1350, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1360, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1370, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fb8, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1458, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1468, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1478, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»DVTP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1488, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»M:92SP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0f18, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ee0, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»M:BUG «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1100, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»X «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f48, f03=0x0000}
0x0b96e0…0ba380 DirEnt {nam=»MONGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x08e8, f03=0x0000}
0x0b96e0…0ba380 }
0x0ba380…0ba514 (2, 1) Opaque[0x194]
0x0ba514…0ba6a8 # DirEnt {nam=»M:92SP«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01d0, f03=0x0000}
0x0ba514…0ba6a8 IdxSect {
0x0ba514…0ba6a8 f00 = 0x000e // 0xba514 @0x0
0x0ba514…0ba6a8 f01 = 0x0016 // 0xba516 @0x2
0x0ba514…0ba6a8 gno = [ // 0xba518 @0x4
0x0ba514…0ba6a8 [0x00]: C0x000e.0x2.0
0x0ba514…0ba6a8 [0x01]: C0x0012.0x3.0
0x0ba514…0ba6a8 [0x02]: C0x0013.0x0.0
0x0ba514…0ba6a8 [0x03]: C0x0013.0x1.0
0x0ba514…0ba6a8 [0x04]: C0x0013.0x2.0
0x0ba514…0ba6a8 [0x05]: C0x0013.0x3.0
0x0ba514…0ba6a8 [0x06]: C0x0014.0x0.0
0x0ba514…0ba6a8 [0x07]: C0x0014.0x1.0
0x0ba514…0ba6a8 [0x08]: C0x0014.0x2.0
0x0ba514…0ba6a8 [0x09]: C0x0014.0x3.0
0x0ba514…0ba6a8 [0x0a]: C0x0015.0x0.0
0x0ba514…0ba6a8 ]
0x0ba514…0ba6a8 }
0x0ba6a8…0ba83c Dummy {f00=0x000e, 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
0x0ba83c…0ba9d0 Dummy {f00=0x000e, 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
0x0ba9d0…0bab64 Dummy {f00=0x000e, 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
0x0bab64…0bacf8 Dummy {f00=0x000e, f01=0x0190, f02=» LED SYSTAB ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR
0x0bacf8…0bae8c Dummy {f00=0x000e, f01=0x018e, f02=»U 0$$ r ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN : ASM /S F KPF /O T KPF /S b SCR p LED LRPINT | ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$
0x0bae8c…0bb020 Dummy {f00=0x000e, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR LED MSUBS ( #
0x0bb020…0bb1b4 (2, 2) Dummy {f00=0x0012, f01=0x0190, f02=» $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ( ASM /S 4 KPF /O B KPF /S P SCR ^ LED TTMJOB j ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$D
0x0bb1b4…0bb348 Dummy {f00=0x0012, f01=0x0190, f02=»U 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ H ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ t !!EN ASM /S KPF /O KPF /S SCR LED SYSLDM ( #!!CH $$CREDIT EQU 0$
0x0bb348…0bb4dc Dummy {f00=0x0012, f01=0x0190, f02=»PAG EQU 1$$ x !!EN ASM /S KPF /O . KPF /S < SCR J LED SYSLDA V ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ h ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG
0x0bb4dc…0bb670 Dummy {f00=0x0012, f01=0x0190, f02=» l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ` !!EN ASM /S KPF /O KPF /S SCR MOV DVTKB,/S,TOSSWORK KPF /S,DVTKB SCR
0x0bb670…0bb804 Dummy {f00=0x0012, f01=0x0190, f02=»DI,/S,TOSSWORK KPF /S,DVTDI SCR * MOV DVTDY,/S,TOSSWORK 6 KPF /S,DVTDY T SCR h MOV DWII01,/S,TOSSWORK t KPF /S,DWII01 SCR INC DWII01,TOSSWORK KPF /O MOV DWIO01,/S,TOSSWORK KPF /S,DWIO0
0x0bb804…0bb998 Dummy {f00=0x0012, f01=0x0190, f02=»01,TOSSWORK KPF /O LED DWII01 " ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 4 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ` ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O
0x0bb998…0bbb2c Dummy {f00=0x0012, f01=0x018e, f02=»!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ , !!EN X ASM /S d KPF /O r KPF /S SCR LED DW1501 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH
0x0bbb2c…0bbcc0 Dummy {f00=0x0012, f01=0x0190, f02=» SCR MOV DRKB03,/S,TOSSWORK KPF /S,DRKB03 . SCR D MOV DRTP02,/S,TOSSWORK P KPF /S,DRTP02 n SCR MOV DRGP01,/S,TOSSWORK KPF /S,DRGP01 SCR MOV DRDI01,/S,TOSSWORK KPF /S,DRDI01 SCR
0x0bbcc0…0bbe54 (2, 3) Dummy {f00=0x0013, f01=0x0190, f02=»MOV DRSOP1,/S,TOSSWORK KPF /S,DRSOP1 SCR 4 MOV DRDU01,/S,TOSSWORK @ KPF /S,DRDU01 ^ SCR t MOV DRLP01,/S,TOSSWORK KPF /S,DRLP01 SCR MOV DRIC01,/S,TOSSWORK KPF /S,DRIC01 SCR MOV DRDC
0x0bbe54…0bbfe8 Dummy {f00=0x0013, f01=0x018e, f02=»C$$ 1$$ !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ * !!CH $$ X:F$$ 40$$ D !!CH $$ X:G$$ 1$$ ^ !!CH $$ X:H$$ 1$$ x !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 040$$ !!CH $$ X:K$$ 40$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x0bbfe8…0bc17c Dummy {f00=0x0013, f01=0x0190, f02=» !!EN ASM /S KPF /O KPF /S , SCR : LED DRTP02 F !!CH $$ X:A$$ 0$$ X !!CH $$ X:B$$ 0$$ r !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 0$$ !!CH $$ X:G$$ 1$$
0x0bc17c…0bc310 Dummy {f00=0x0013, f01=0x0190, f02=»DIT EQU 1$$ x ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ @ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ l !!EN ASM /S KPF /O KPF /S SCR LED DRGP01 !!CH $$ X:A$$ 1$$ !!
0x0bc310…0bc4a4 Dummy {f00=0x0013, f01=0x018e, f02=»X:G$$ 0$$ !!CH $$ X:H$$ 162$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ . ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ Z ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KP
0x0bc4a4…0bc638 Dummy {f00=0x0013, f01=0x018e, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 0 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$
0x0bc638…0bc7cc Dummy {f00=0x0013, f01=0x0190, f02=» !!CH $$ X:H$$ 162$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ L ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ x ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SC
0x0bc7cc…0bc960 Dummy {f00=0x0013, f01=0x018e, f02=» $$ X:E$$ /15$$ !!CH $$ X:F$$ 01$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 2 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ^ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O
0x0bc960…0bcaf4 (2, 4) Dummy {f00=0x0013, f01=0x0190, f02=» j ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ` !!EN ASM /S KPF /O KPF /S SCR LED DRDU01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$
0x0bcaf4…0bcc88 Dummy {f00=0x0013, f01=0x0190, f02=»CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ * ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ V !!EN ASM /S KPF /O KPF /S SCR LED DRLP01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 126$$
0x0bcc88…0bce1c Dummy {f00=0x0013, f01=0x0190, f02=»!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN , ASM /S 8 KPF /O F KPF /S T SCR b LED DRIC01 n !!CH $$ X:A$$ 575$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$
0x0bce1c…0bcfb0 Dummy {f00=0x0013, f01=0x0190, f02=»D DRDC15 !!CH $$ X:A$$ 650$$ !!CH $$ X:B$$ /60$$ , !!CH $$ X:C$$ 0$$ H !!CH $$ X:D$$ 500$$ b !!CH $$ X:E$$ 0$$ ~ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 252$$ !!CH $$ X:H$$ 1$$ !!CH $$ X:I$$ 0$$ !!CH $
0x0bcfb0…0bd144 Dummy {f00=0x0013, f01=0x0190, f02=»$ 0$$ !!CH $$ X:P$$ 0$$ !!CH $$ X:Q$$ 1$$ ( !!CH $$ X:R$$ 650$$ B ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ^ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$
0x0bd144…0bd2d8 Dummy {f00=0x0013, f01=0x0190, f02=»LED EBCDIC !!EN ASM /S KPF /O , KPF /S : SCR H LED DRKB03 T !!CH $$ X:A$$ 1$$ f !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 40$$ !!CH $
0x0bd2d8…0bd46c Dummy {f00=0x0013, f01=0x0190, f02=»DIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ " ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ N ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ z !!EN ASM /S KPF /O KPF /S SCR LED DVTKB !!DL 35
0x0bd46c…0bd600 Dummy {f00=0x0013, f01=0x0190, f02=»0,0,0,0,0,0,0,0 DATA 0,0,0,0, !!EN . ASM /S : KPF /O H KPF /S V SCR d LED TOSSIO p !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O KPF /S SCR MOV TIMER,/S,TOSSWORK KPF /S,TIMER
0x0bd600…0bd794 (2, 5) Dummy {f00=0x0013, f01=0x018e, f02=»R MOV TLDSEG,/S,TOSSWORK KPF /S,TLDSEG ( SCR > MOV TABORT,/S,TOSSWORK J KPF /S,TABORT h SCR ~ MOV TASS,/S,TOSSWORK KPF /S,TASSR SCR LED TIMER ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!
0x0bd794…0bd928 Dummy {f00=0x0013, f01=0x0190, f02=» ASM /S KPF /O KPF /S $ SCR 2 LED TPROC > ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ P ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN
0x0bd928…0bdabc Dummy {f00=0x0013, f01=0x018e, f02=»U 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ H !!EN t ASM /S KPF /O KPF /S SCR LED TLDSEG ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$
0x0bdabc…0bdc50 Dummy {f00=0x0013, f01=0x0190, f02=» KPF /O ! KPF /S ! SCR ! LED TABORT ! , ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ! > ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ! j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ! ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ! !!EN ! ASM /S !
0x0bdc50…0bdde4 Dummy {f00=0x0013, f01=0x0190, f02=»$ ! n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ " ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ " 6 !!EN " b ASM /S " n KPF /O " | KPF /S " SCR " LED LKMAL " !!DL 019 " !!DL 020 " !!DL 021 " !!DL 022 " !!DL 027 " !!
0x0bdde4…0bdf78 Dummy {f00=0x0013, f01=0x0190, f02=»00 " ~ !!DL 045 # DATA 00 # !!DL 050 # 6 !!DL 051 # F !!EN # V ASM /S # b KPF /O # p KPF /S # ~ SCR # LED LRPINT # !!CH $$ X:A$$ 0$$ # !!EN # ASM /S # KPF /O # KPF /S # SCR # MO
0x0bdf78…0be10c Dummy {f00=0x0013, f01=0x0190, f02=»S,TOSSWORK # KPF /S,DMINIT $ SCR $ ( MOV TASS,/S,TOSSWORK $ 4 KPF /S,TASSI $ R SCR $ f MOV DMTASS,/S,TOSSWORK $ r KPF /S,DMTASS $ SCR $ MOV DMBUF,/S,TOSSWORK $ KPF /S,DMBUF $ SCR $ MOV DMFDB,/S,TOSSWORK $
0x0be10c…0be2a0 Dummy {f00=0x0013, f01=0x0190, f02=»,DMSUBX $ SCR % MOV ADDMOD,/S,TOSSWORK % KPF /S,ADDMOD % : SCR % P MOV DSUMOD,/S,TOSSWORK % KPF /S,DSUMOD % z SCR % MOV MPYMOD,/S,TOSSWORK % KPF /S,MPYMOD % SCR % MOV DIVMOD,/S,TOSSWORK % KPF /S,DIVMOD
0x0be2a0…0be434 (2, 6) Dummy {f00=0x0013, f01=0x0190, f02=» $$CREDIT EQU 0$$CREDIT EQU 1$$ % ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & T ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ & !!EN & ASM /S & KPF /O & KPF /S & SCR & LED DMBUF & !!CH $$
0x0be434…0be5c8 Dummy {f00=0x0013, f01=0x0190, f02=»2 EQU 0$$ & v ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ' !!EN ' > ASM /S ' J KPF /O ' X KPF /S ' f SCR ' t LED DMTASK ' !!CH $$ X:A$$ 00001$$ ' !!CH $$ X:B$$ 00000$$ ' !!CH $$ X:C$$ 00004$$ ' ( #!!CH $$CREDIT EQU 0$$CREDIT
0x0be5c8…0be75c Dummy {f00=0x0013, f01=0x0190, f02=»1$$ ' p !!EN ( ASM /S ( KPF /O ( & KPF /S ( 4 SCR ( B LED DMTASS ( N !!CH $$ X:A$$ 00004$$ ( ` !!CH $$ X:B$$ 00000$$ ( ~ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( ( #!!CH $$CPU852 EQU 1$
0x0be75c…0be8f0 Dummy {f00=0x0013, f01=0x018e, f02=»D DFTAB ( !!CH $$F0F1,/F2F3$$F0F1$$ ) !!DL 24 ) 2 !!EN ) B ASM /S ) N KPF /O ) KPF /S ) j SCR ) x LED DMFDB ) !!CH $$ X:A$$ 02280$$ ) !!CH $$ X:B$$ 00240$$ ) !!CH $$ X:C$$ 00000$$ ) !!CH $$ X:D$$ 00114$$ )
0x0be8f0…0bea84 Dummy {f00=0x0013, f01=0x0190, f02=» ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ * !!EN * 0 ASM /S * < KPF /O * J KPF /S * X SCR * f LED DMINIT * r ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ * ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ * ( #
0x0bea84…0bec18 Dummy {f00=0x0013, f01=0x0190, f02=»REDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ + $ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ + P ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ + | !!EN + ASM /S + KPF /O + KPF /S + SCR + LED DMSUBX + ( #!!CH $$CREDI
0x0bec18…0bedac Dummy {f00=0x0013, f01=0x0190, f02=»U 0$$DSKPAG EQU 1$$ + !!EN , ASM /S , ( KPF /O , 6 KPF /S , D SCR , R LED ADDMOD , ^ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ , p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ , ( #!!CH $$DSKPAG EQU 0$
0x0bedac…0bef40 Dummy {f00=0x0013, f01=0x0190, f02=»EQU 1$$ , t ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ - ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ - < ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ - h !!EN - ASM /S - KPF /O - KPF /S - SCR - LED MPYMOD - ( #!!CH $$CREDIT EQU 0$$CREDIT EQU
0x0bef40…0bf0d4 (2, 7) Dummy {f00=0x0014, f01=0x0190, f02=» - l !!EN . ASM /S . KPF /O . " KPF /S . 0 SCR . > LED DIVMOD . J ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ . ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ . ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ . ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ .
0x0bf0d4…0bf268 Dummy {f00=0x0014, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ . ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ / ( ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ / T !!EN / ASM /S / KPF /O / KPF /S / SCR / LED SYSTAB / !!CH $$IHINPT$$TRAP$$ / !!CH $$ X:A$$ 00003$$
0x0bf268…0bf3fc Dummy {f00=0x0014, f01=0x018e, f02=»X:F$$ 00001$$ / , '!!CH $$ILLINT 12$$IH1501 12$$ 0 , '!!CH $$ILLINT 13$$IH1502 13$$ 0 F !!IL 55 0 v EXTRN IH1501 0 EXTRN IH1502 0 !!DL 056 0 !!DL 057 0 !!DL 064 0 !!DL 067 0 !!
0x0bf3fc…0bf590 Dummy {f00=0x0014, f01=0x0190, f02=» 0 !!DL 080 1 !!DL 081 1 !!DL 85 1 ( !!DL 122 1 8 DATA ILLINT 1 H !!DL 123 1 h DATA ILLINT 1 x !!DL 130 1 DATA ILLINT 1 !!DL 133 1 DATA ILLINT 1 !!DL 134 1
0x0bf590…0bf724 Dummy {f00=0x0014, f01=0x018e, f02=» 1 DATA ILLINT 2 !!DL 140 2 ( DATA ILLINT 2 8 !!DL 141 2 X DATA ILLINT 2 h !!DL 142 2 DATA ILLINT 2 !!DL 145 2 DATA ILLINT 2 !!DL 150 2 DATA
0x0bf724…0bf8b8 Dummy {f00=0x0014, f01=0x0190, f02=» KPF /O 3 KPF /S 3 SCR 3 LED PFTAB 3 , !!IL 12 3 > EXTRN DC15ON 3 N !!DL 013 3 n !!DL 014 3 ~ !!DL 018 3 !!DL 019 3 !!DL 020 3 !!DL 021 3 !!DL 022 3 !!DL 023 3 !!DL 024 3 !!DL 025 3
0x0bf8b8…0bfa4c Dummy {f00=0x0014, f01=0x0190, f02=»DL 035 3 !!DL 037 4 !!DL 038 4 !!IL 40 4 . DATA DC15ON 4 > !!DL 041 4 ^ !!DL 042 4 n !!DL 046 4 ~ !!DL 047 4 !!DL 048 4 !!DL 049 4 !!DL 050 4 !!DL 051 4 !!DL 052 4 !!DL 053 4 !!DL 054 4
0x0bfa4c…0bfbe0 Dummy {f00=0x0014, f01=0x0190, f02=»DL 065 4 !!DL 066 5 !!EN 5 ASM /S 5 * KPF /O 5 8 KPF /S 5 F SCR 5 T MOV CTAB01,/S,NJ-AID,/S,/F3 5 ` ASM /S 5 KPF /O 5 KPF /S 5 SCR 5 MOV DRDC15,/S,M:92LP,/S,/F3 5 ASM /S 5 KPF /O 5 KPF /S 5
0x0bfbe0…0bfd74 (2, 8) Dummy {f00=0x0014, f01=0x0190, f02=»1$$CPU852 EQU 0$$ 5 ~ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 6 !!CH $$DVTKB$$DVKB00$$ 6 F !!CH $$KBAD$$KBAD3$$ 6 d !!CH $$/1111$$/1100$$ 6 !!CH $$BCA$$FFFF$$ 6 !!CH $$ED0$$FFFF$$ 6 " !!CH $$0 CODE $$CTAB01 CODE $$ 6 !!CH $$ECH$$DVDY
0x0bfd74…0bff08 Dummy {f00=0x0014, f01=0x0190, f02=» $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 7 ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 7 T ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 7 !!CH $$DVTDY$$DVDY00$$ 7 !!CH $$/ABC$$/1850$$ 7 !!CH $$/1111$$/C000$$ 7 !!EN
0x0bff08…0c009c Dummy {f00=0x0014, f01=0x018e, f02=»G EQU 0$$MMUPAG EQU 1$$ 7 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 8 L !!CH $$DVTKB$$DVKB01$$ 8 x !!CH $$KBAD$$KBAD3$$ 8 !!CH $$/1111$$/1140$$ 8 !!CH $$BCA$$FFFF$$ 8 !!CH $$ED0$$FFBA$$ 8 " !!CH
0x0c009c…0c0230 Dummy {f00=0x0014, f01=0x0190, f02=» KPF /S 9 SCR 9 LED DVTTP 9 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 9 0 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 9 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 9 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 9 !!CH $$DVTTP$$DVTP01$$ 9 !!CH $$/11
0x0c0230…0c03c4 Dummy {f00=0x0014, f01=0x0190, f02=»1$$ 9 p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ : ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ : 8 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ : d !!CH $$DVTTP$$DVTP01$$ : !!CH $$/1111$$/2000$$ : !!EN : ASM /S : KPF /O : KPF /S : SCR :
0x0c03c4…0c0558 Dummy {f00=0x0014, f01=0x0190, f02=»852 EQU 0$$ : x ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ; !!CH $$DVTTP$$DVTP01$$ ; @ !!CH $$/1111$$/2000$$ ; ^ !!EN ; | ASM /S ; KPF /O ; KPF /S ; SCR ; LED DVTDY ; ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ; ( #!!CH $$MMUPA
0x0c0558…0c06ec Dummy {f00=0x0014, f01=0x0190, f02=»DY01$$ ; !!CH $$/ABC$$/1850$$ < !!CH $$/1111$$/C000$$ < * !!EN < H ASM /S < T KPF /O < b KPF /S < p SCR < ~ LED DVTKB < ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ < ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ < ( #!!CH $$CPU852 EQU 1$
0x0c06ec…0c0880 Dummy {f00=0x0014, f01=0x0190, f02=»11$$/1100$$ < !!CH $$BCA$$FFFF$$ = !!CH $$ED0$$BABA$$ = . " !!CH $$0 CODE $$CTAB03 CODE $$ = H !!CH $$ECH$$DVDY02$$ = n !!DL 5 = EXTRN CTAB03 = !!EN = ASM /S = KPF /O = KPF /S = SCR = LED DVTDI = ( #!!CH $
0x0c0880…0c0a14 (2, 9) Dummy {f00=0x0014, f01=0x0190, f02=»PAG EQU 0$$DSKPAG EQU 1$$ = !!CH $$DVTDI$$DVDI02$$ > " !!CH $$2010$$0000$$ > @ !!CH $$/1111$$/9010$$ > !!EN > z ASM /S > KPF /O > KPF /S > SCR > LED DVTDY > ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ > ( #!!CH $$MMUPAG
0x0c0a14…0c0ba8 Dummy {f00=0x0014, f01=0x018e, f02=»02$$ > ~ !!CH $$/ABC$$/1850$$ ? !!CH $$/1111$$/C000$$ ? ( !!EN ? F ASM /S ? R KPF /O ? ` KPF /S ? n SCR ? | LED DVTGP ? ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ? ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ? ( #!!CH $$CPU852 EQU 1$$C
0x0c0ba8…0c0d3c Dummy {f00=0x0014, f01=0x0190, f02=» ASM /S @ KPF /O @ KPF /S @ SCR @ . LED DVTTP @ : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ @ L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ @ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ @ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ @ !!CH $$DVTTP
0x0c0d3c…0c0ed0 Dummy {f00=0x0014, f01=0x0190, f02=» $$CREDIT EQU 0$$CREDIT EQU 1$$ @ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ A ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ A T ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ A !!CH $$DVTTP$$DVTP04$$ A !!CH $$/1111$$/2000$$ A !!EN A ASM /S A KPF /O
0x0c0ed0…0c1064 Dummy {f00=0x0014, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ B ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ B 0 !!CH $$DVTTP$$DVTP04$$ B !!CH $$/1111$$/2000$$ B z !!EN B ASM /S B KPF /O B KPF /S B SCR B LED TCLASS B !!IL 6 B EXTRN
0x0c1064…0c11f8 Dummy {f00=0x0014, f01=0x0190, f02=»01 B z EXTRN DVKB02 C EXTRN DVDI02 C * EXTRN DVDY02 C J EXTRN DVGP03 C j EXTRN DVTP04 C !!IL 11 C DATA TC00 C DATA TC01 C DATA
0x0c11f8…0c138c Dummy {f00=0x0014, f01=0x0190, f02=» /0021 C DATA DVKB00 D DATA /00310 D 2 DATA DVDY00 D R TC00E EQU * D r TC01 DATA TC01E-* D DATA /00200 D DATA DVKB01 D DATA /00301
0x0c138c…0c1520 Dummy {f00=0x0014, f01=0x0190, f02=» DATA DVTP01 D DATA /00501 E DATA DVDY01 E @ TC01E EQU * E ` TC02 DATA TC02E-* E | DATA /00201 E DATA DVKB02 E DATA /00402 E D
0x0c1520…0c16b4 (2, 10) Dummy {f00=0x0014, f01=0x0190, f02=»E-* E z DATA /00302 F DATA DVGP03 F , TC03E EQU * F L TC04 DATA TC04E-* F h DATA /00303 F DATA DVTP04 F DATA /02314 F DATA DVTP04 F
0x0c16b4…0c1848 Dummy {f00=0x0014, f01=0x0190, f02=»F /S F SCR G LED SCLASS G !!IL 6 G * EXTRN DWSI01 G 8 EXTRN DWSO01 G X EXTRN DWII01 G x EXTRN DWIO01 G EXTRN DW1501 G EXTRN DWLP01 G EXTRN
0x0c1848…0c19dc Dummy {f00=0x0014, f01=0x018e, f02=»01 G | DATA TC02 H DATA TC03 H ( DATA TC04 H F DATA TC05 H d !!IL 12 H TC00 DATA TC00E-* H DATA /00101 H DATA DWSI01 H DATA /0
0x0c19dc…0c1b70 Dummy {f00=0x0014, f01=0x0190, f02=» DATA DWII01 I TC01E EQU * I $ TC02 DATA TC02E-* I @ DATA /00E11 I b DATA DWIO01 I TC02E EQU * I TC03 DATA TC03E-* I DATA /00611 I
0x0c1b70…0c1d04 Dummy {f00=0x0014, f01=0x0190, f02=»DWLP01 I ~ TC04E EQU * J TC05 DATA TC05E-* J * DATA /00601 J L DATA DW1500 J l DATA /015 J DATA DWREMU J DATA /00F00 J DATA DWDU01 J DATA /01F10 J
0x0c1d04…0c1e98 Dummy {f00=0x0014, f01=0x018e, f02=»IL 19 J **** K EXTRN CTAB01 K EXTRN CTAB02 K 0 EXTRN CTAB03 K F EXTRN ITAD K !!DL 021 K p !!DL 024 K !!DL 027 K !!DL 029 K !!DL 030 K !!DL 031 K !!DL 032 K !!DL 033 K !!IL 47 K **** K
0x0c1e98…0c202c Dummy {f00=0x0014, f01=0x010e, f02=» !!DL 057 L !!DL 058 L !!DL 059 L $ !!DL 060 L 4 !!DL 061 L D !!EN L T ASM /S L ` KPF /O L n KPF /S L | SCR L ASG /02,LP0F L SCR L INC SYSTAB L INC DEBUGM L LKE M L KPF /L,M:92SP L ASG /E0,TY
0x0c202c…0c21c0 Dummy {f00=0x0014, f01=0x2008, f02=» M 057 L !!DL 058 L !!DL 059 L $ !!DL 060 L 4 !!DL 061 L D !!EN L T ASM /S L ` KPF /O L n KPF /S L | SCR L ASG /02,LP0F L SCR L INC SYSTAB L INC DEBUGM L LKE M L KPF /L,M:92SP L ASG /E0,TY
0x0c21c0…0c2354 (2, 11) Dummy {f00=0x0015, f01=0x0142, f02=» M !!DL 049 N !!DL 052 N !!DL 055 N ( !!DL 057 N 8 !!DL 058 N H !!DL 059 N X !!DL 060 N h !!DL 061 N x !!EN N ASM /S N KPF /O N KPF /S N SCR N ASG /02,LP0F N SCR N INC SYSTAB N INC DEBUGM N
0x0c2354…0c24e8 Dummy {f00=0x0015, f01=0x2008, f02=» O !!DL 049 N !!DL 052 N !!DL 055 N ( !!DL 057 N 8 !!DL 058 N H !!DL 059 N X !!DL 060 N h !!DL 061 N x !!EN N ASM /S N KPF /O N KPF /S N SCR N ASG /02,LP0F N SCR N INC SYSTAB N INC DEBUGM N
0x0c24e8…0c267c Dummy {f00=0x0015, f01=0x018e, 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 DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x0c267c…0c2810 Dummy {f00=0x0015, f01=0x018e, f02=» v P EXTRN DWFD01 P* ( P* 2 P* < P* F PSCLASS DATA TCLASE-* P P DATA TC00 l P DATA TC01 P DATA TC02 P DATA TC03 P DATA TC04 P
0x0c2810…0c29a4 Dummy {f00=0x0015, f01=0x0190, f02=» v P DATA /0011 P DATA DWSO01 ( PTC00E EQU * H PTC01 DATA TC01E-* d P DATA /00E0 P DATA DWII01 PTC01E EQU * PTC02 DATA TC02E-* P
0x0c29a4…0c2b38 Dummy {f00=0x0015, f01=0x0190, f02=» /0061 P DATA DW1501 PTC03E EQU * 2 PTC04 DATA TC04E-* N P DATA /0080 p P DATA DWLP01 PTC04E EQU * PTC05 DATA TC05E-* P DATA /0060
0x0c2b38…0c2ccc Dummy {f00=0x0015, f01=0x4134, f02=» DATA /01F1 P DATA DWDU01 P DATA /00F8 0 P DATA DWFD01 P P DATA /01F9 f P DATA DWFD01 P DATA /02FA P DATA DWFD01 P DATA /03FB P DATA DWFD01 P
0x0c2ccc…0c2e60 Dummy {f00=0x0015, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0c2e60…0c2ff4 (2, 12) Opaque[0x194]
0x0c2ff4…0c3188 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1498, f03=0x0000}
0x0c2ff4…0c3188 IdxSect {
0x0c2ff4…0c3188 f00 = 0x00a4 // 0xc2ff4 @0x0
0x0c2ff4…0c3188 f01 = 0x0004 // 0xc2ff6 @0x2
0x0c2ff4…0c3188 gno = [ // 0xc2ff8 @0x4
0x0c2ff4…0c3188 [0x00]: C0x00a4.0x3.0
0x0c2ff4…0c3188 [0x01]: C0x00a5.0x1.0
0x0c2ff4…0c3188 ]
0x0c2ff4…0c3188 }
0x0c3188…0c331c Dummy {f00=0x00a4, f01=0x0190, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVKB01 P EXTRN DVTP01 P
0x0c331c…0c34b0 Dummy {f00=0x00a4, f01=0x0190, f02=» DVGP03 P EXTRN DVTP04 P* 0 P* : P* D P* N PTCLASS DATA TCLASE-* X P DATA TC00 t P DATA TC01 P DATA TC02 P DATA TC03 P DATA TC04
0x0c34b0…0c3644 Dummy {f00=0x00a4, f01=0x0190, f02=» /0031 P DATA DVDY00 PTC00E EQU * 0 PTC01 DATA TC01E-* L P DATA /0020 n P DATA DVKB01 P DATA /0030 P DATA DVTP01 P DATA /0231
0x0c3644…0c37d8 Dummy {f00=0x00a4, f01=0x0190, f02=» DATA DVDY01 PTC01E EQU * PTC02 DATA TC02E-* : P DATA /0020 P DATA DVKB02 | P DATA /0040 P DATA DVDI02 P DATA /0050 P DAT
0x0c37d8…0c396c Dummy {f00=0x00a4, f01=0x4134, f02=»03 z PTC03E EQU * PTC04 DATA TC04E-* & P DATA /0030 H P DATA DVTP04 h P DATA /0231 P DATA DVTP04 P DATA /0132 P DATA DVTP04 P
0x0c396c…0c3b00 Dummy {f00=0x00a4, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0c3b00…0c3c94 (2, 13) Dummy {f00=0x00a5, f01=0x0190, f02=» u P ST A2,-28,A14 v P ST A3,-26,A14 v P EJECT v 4 P* v B : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING v L $ P* USED RECORDS ROLLED FORWARD v $ P* A6,A11,A13 IS USED AT ENTRY v $ P ADKL A11,7 RECORD LENGTH TOTAL v P* v
0x0c3c94…0c3e28 Dummy {f00=0x00a5, f01=0x0002, f02=»
0x0c3e28…0c3fbc Dummy {f00=0x00a5, f01=0x4108, f02=» J F IDENT DVTP04 REL 9.2 79-11-16 870105040920 DVTP04K R DVTP04K d TPADN x , ( TP " @ 4 ( 4 @
0x0c3fbc…0c4150 Dummy {f00=0x00a5, f01=0x2008, f02=»
0x0c4150…0c42e4 Dummy {f00=0x00a5, f01=0x0190, f02=» P CF A14,DMTBM MOVE z P* WRITE BUFFER z P* z 6 P LDR A8,A14 USE STACK AS ECB z @ P SUKL A8,24 z d $ P LC A2,FDBEXT+1,A6 VOL DEV CODE z x P ANK A2,/FF z P STR A2,A8 z P LDR A2,A13 z P ADK A2,8 BUFSTA z P ST A2,ECBBA,A8 SECT
0x0c42e4…0c4478 Dummy {f00=0x00a5, f01=0x0190, f02=» z v P LDK A7,/95 WRITE , WAIT { P LKM { ( P DATA 1 { 4 P LDR A1,A6 FDB INDEX { D P CF A14,DMTIOZ IO CHECK { ` P LDR A1,A1 { P ABL(NZ) DMTERR { P* { 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY { P* { P LDR A2,A10 RECO
0x0c4478…0c460c Dummy {f00=0x00a5, f01=0x0190, f02=»T IN SECT { v P CCR A1,A2 | P RF(Z) INS400 FREE RECORD | $ P* | F P* GET NEXT SECTOR | P P* | l P LDR A1,A6 FDB ADDR | v P LDR A3,A13 BUFFER ADDR | 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR | P RF INS260 OK | P LDR A1,A5
0x0c460c…0c47a0 Dummy {f00=0x00a5, f01=0x0190, f02=»D BUFFERS | v P SUR A12,A12 } P RB INS200 } & P EJECT } 8 PINS400 EQU * } F P* } Z ( P* UPDATE LRN IF EOF IS ENCOUNTERED } d P* } P LDR A1,A6 FDB INDEX } P CF A14,GTLGRN } P CC A2,FDBLRN,A1 } P RF(L) INS430 NO EOF } P RF(G)
0x0c47a0…0c4934 (2, 14) Opaque[0x194]
0x0c4934…0c4ac8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x0c4934…0c4ac8 IdxSect {
0x0c4934…0c4ac8 f00 = 0x0015 // 0xc4934 @0x0
0x0c4934…0c4ac8 f01 = 0x00a6 // 0xc4936 @0x2
0x0c4934…0c4ac8 gno = [ // 0xc4938 @0x4
0x0c4934…0c4ac8 [0x00]: C0x0015.0x3.0
0x0c4934…0c4ac8 [0x01]: C0x0016.0x0.0
0x0c4934…0c4ac8 [0x02]: C0x0020.0x0.0
0x0c4934…0c4ac8 [0x03]: C0x0020.0x3.0
0x0c4934…0c4ac8 [0x04]: C0x0021.0x2.0
0x0c4934…0c4ac8 [0x05]: C0x0021.0x3.0
0x0c4934…0c4ac8 [0x06]: C0x0022.0x0.0
0x0c4934…0c4ac8 [0x07]: C0x005c.0x3.0
0x0c4934…0c4ac8 [0x08]: C0x005d.0x0.0
0x0c4934…0c4ac8 [0x09]: C0x005d.0x2.0
0x0c4934…0c4ac8 [0x0a]: C0x0024.0x1.0
0x0c4934…0c4ac8 [0x0b]: C0x005e.0x1.0
0x0c4934…0c4ac8 [0x0c]: C0x0026.0x0.0
0x0c4934…0c4ac8 [0x0d]: C0x0062.0x1.0
0x0c4934…0c4ac8 [0x0e]: C0x0062.0x2.0
0x0c4934…0c4ac8 [0x0f]: C0x0066.0x2.0
0x0c4934…0c4ac8 [0x10]: C0x0066.0x3.0
0x0c4934…0c4ac8 [0x11]: C0x0067.0x0.0
0x0c4934…0c4ac8 [0x12]: C0x006d.0x1.0
0x0c4934…0c4ac8 [0x13]: C0x006d.0x2.0
0x0c4934…0c4ac8 [0x14]: C0x006d.0x3.0
0x0c4934…0c4ac8 [0x15]: C0x0040.0x1.0
0x0c4934…0c4ac8 [0x16]: C0x0047.0x2.0
0x0c4934…0c4ac8 [0x17]: C0x0048.0x0.0
0x0c4934…0c4ac8 [0x18]: C0x0049.0x2.0
0x0c4934…0c4ac8 [0x19]: C0x0083.0x2.0
0x0c4934…0c4ac8 [0x1a]: C0x0084.0x0.0
0x0c4934…0c4ac8 [0x1b]: C0x004d.0x2.0
0x0c4934…0c4ac8 [0x1c]: C0x0053.0x1.0
0x0c4934…0c4ac8 [0x1d]: C0x0085.0x2.0
0x0c4934…0c4ac8 [0x1e]: C0x0088.0x1.0
0x0c4934…0c4ac8 [0x1f]: C0x0088.0x2.0
0x0c4934…0c4ac8 [0x20]: C0x0071.0x1.0
0x0c4934…0c4ac8 [0x21]: C0x0074.0x0.0
0x0c4934…0c4ac8 [0x22]: C0x0075.0x3.0
0x0c4934…0c4ac8 [0x23]: C0x0077.0x1.0
0x0c4934…0c4ac8 [0x24]: C0x0089.0x3.0
0x0c4934…0c4ac8 [0x25]: C0x008a.0x0.0
0x0c4934…0c4ac8 [0x26]: C0x008a.0x1.0
0x0c4934…0c4ac8 [0x27]: C0x007d.0x0.0
0x0c4934…0c4ac8 [0x28]: C0x007f.0x0.0
0x0c4934…0c4ac8 [0x29]: C0x008a.0x3.0
0x0c4934…0c4ac8 [0x2a]: C0x008b.0x0.0
0x0c4934…0c4ac8 [0x2b]: C0x008b.0x1.0
0x0c4934…0c4ac8 [0x2c]: C0x008b.0x2.0
0x0c4934…0c4ac8 [0x2d]: C0x008b.0x3.0
0x0c4934…0c4ac8 [0x2e]: C0x008a.0x2.0
0x0c4934…0c4ac8 [0x2f]: C0x008d.0x1.0
0x0c4934…0c4ac8 [0x30]: C0x0060.0x1.0
0x0c4934…0c4ac8 [0x31]: C0x009d.0x3.0
0x0c4934…0c4ac8 [0x32]: C0x0061.0x0.0
0x0c4934…0c4ac8 [0x33]: C0x00a1.0x2.0
0x0c4934…0c4ac8 [0x34]: C0x00a1.0x3.0
0x0c4934…0c4ac8 [0x35]: C0x008f.0x2.0
0x0c4934…0c4ac8 [0x36]: C0x008f.0x3.0
0x0c4934…0c4ac8 [0x37]: C0x005f.0x2.0
0x0c4934…0c4ac8 [0x38]: C0x008c.0x2.0
0x0c4934…0c4ac8 [0x39]: C0x0090.0x0.0
0x0c4934…0c4ac8 [0x3a]: C0x0093.0x1.0
0x0c4934…0c4ac8 [0x3b]: C0x0094.0x0.0
0x0c4934…0c4ac8 [0x3c]: C0x0095.0x3.0
0x0c4934…0c4ac8 [0x3d]: C0x0096.0x2.0
0x0c4934…0c4ac8 [0x3e]: C0x0097.0x1.0
0x0c4934…0c4ac8 [0x3f]: C0x00a2.0x0.0
0x0c4934…0c4ac8 [0x40]: C0x00a2.0x1.0
0x0c4934…0c4ac8 [0x41]: C0x005c.0x0.0
0x0c4934…0c4ac8 [0x42]: C0x009a.0x1.0
0x0c4934…0c4ac8 [0x43]: C0x009a.0x3.0
0x0c4934…0c4ac8 [0x44]: C0x009b.0x1.0
0x0c4934…0c4ac8 [0x45]: C0x00a1.0x0.0
0x0c4934…0c4ac8 [0x46]: C0x00a2.0x2.0
0x0c4934…0c4ac8 [0x47]: C0x00a3.0x0.0
0x0c4934…0c4ac8 [0x48]: C0x00a3.0x2.0
0x0c4934…0c4ac8 [0x49]: C0x00a4.0x0.0
0x0c4934…0c4ac8 [0x4a]: C0x00a4.0x2.0
0x0c4934…0c4ac8 [0x4b]: C0x00a5.0x0.0
0x0c4934…0c4ac8 [0x4c]: C0x00a5.0x3.0
0x0c4934…0c4ac8 [0x4d]: C0x00a6.0x1.0
0x0c4934…0c4ac8 [0x4e]: C0x00a6.0x0.0
0x0c4934…0c4ac8 [0x4f]: C0x00b2.0x1.0
0x0c4934…0c4ac8 [0x50]: C0x00b2.0x2.0
0x0c4934…0c4ac8 [0x51]: C0x00b2.0x3.0
0x0c4934…0c4ac8 [0x52]: C0x00a7.0x3.0
0x0c4934…0c4ac8 ]
0x0c4934…0c4ac8 }
0x0c4ac8…0c4c5c Dummy {f00=0x0015, f01=0xc0b0, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x0c4c5c…0c4df0 Dummy {f00=0x0015, f01=0xc0b0, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x0c4df0…0c4f84 Dummy {f00=0x0015, 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
0x0c4f84…0c5118 Dummy {f00=0x0015, f01=0x4154, f02=» INTRT4 SYSLOD CTAB01L $ CTAB02 6 * & H CTAB03 v ITADN KBAD3 TPADN GPADN DIADN DYADN , (
0x0c5118…0c52ac Dummy {f00=0x0015, 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
0x0c52ac…0c5440 Dummy {f00=0x0015, f01=0x0190, f02=» f , ( , ( $ ( , 0 4 8 , ( # 8 < h , ( C , ( c , (
0x0c5440…0c55d4 (2, 15) Dummy {f00=0x0016, 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
0x0c55d4…0c5768 Dummy {f00=0x0016, 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 " , (
0x0c5768…0c58fc Dummy {f00=0x0016, f01=0x0190, f02=» h , ( 0 _, W , ( ! # W P @ & 0 8 , ( C T A P P h , ( c _b _J A , ( $T @ W @ , ( % T @ W
0x0c58fc…0c5a90 Dummy {f00=0x0016, 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
0x0c5a90…0c5c24 Dummy {f00=0x0016, 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 @ & @ @ , (
0x0c5c24…0c5db8 Dummy {f00=0x0016, 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 ^ ?
0x0c5db8…0c5f4c Dummy {f00=0x0016, f01=0x0190, f02=» ^ P _ " ^ , ( $ C T @ 9J A T _ 1@ _ ( , ( c ^ 9 V >! D A X , ( A > > > > > , ( > > > ^ _ ^ _ ? ? ? ? ? , ( A ^ @ ?
0x0c5f4c…0c60e0 Dummy {f00=0x0016, 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 , (
0x0c60e0…0c6274 (2, 16) Dummy {f00=0x0020, 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 | , (
0x0c6274…0c6408 Dummy {f00=0x0020, 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 @ > @ _ $
0x0c6408…0c659c Dummy {f00=0x0020, 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 !
0x0c659c…0c6730 Dummy {f00=0x0020, 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 %
0x0c6730…0c68c4 Dummy {f00=0x0020, 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 {
0x0c68c4…0c6a58 Dummy {f00=0x0020, 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
0x0c6a58…0c6bec Dummy {f00=0x0020, 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
0x0c6bec…0c6d80 Dummy {f00=0x0020, 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
0x0c6d80…0c6f14 (2, 17) Dummy {f00=0x0020, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b CHRT1 r , ( CHRT2 , ( ! , ( 1
0x0c6f14…0c70a8 Dummy {f00=0x0020, f01=0x018e, f02=» r , ( a , ( q B HALTN r SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA
0x0c70a8…0c723c Dummy {f00=0x0020, f01=0x0190, f02=» SCTNOP SCTPSZ SCTMMC , SCTLACL @ SCTMMP T SCTLAP h SCTNPE | SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x0c723c…0c73d0 Dummy {f00=0x0020, f01=0x4072, f02=»T _ & < @ n h SCTNPE | SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x0c73d0…0c7564 Dummy {f00=0x0020, 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
0x0c7564…0c76f8 Dummy {f00=0x0020, f01=0x018e, f02=» (X0 @ P T x TTB:SBA QLTDSK0 * * & = @ M ]@ , ) L P $R < , ( U _, A P P Y U ( j TTB:SA` TTB:PWN * & q ) 5 > > [ [ SEG:PBA PAG:QB`
0x0c76f8…0c788c Dummy {f00=0x0020, f01=0x4116, f02=» SCTNPE, TTB:MT , ( @ - P _ Z 9B ( SCTLAP X T:ACSB j * & $H @ U W Z Z Z | ? Z > 4 0 W 9P MP QR _P* cP iU PJ P P W
0x0c788c…0c7a20 Dummy {f00=0x0020, 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
0x0c7a20…0c7bb4 (2, 18) Dummy {f00=0x0021, f01=0x0190, f02=» SEG:PB * & 5 P c P W T P , T L PAGQUE# > PAG:QBH P PQEMTYT b , ( Q M 0 - A Q t TTABLD QTJOB , ( gDH @ P A T LKM030
0x0c7bb4…0c7d48 Dummy {f00=0x0021, f01=0x0190, f02=»R HALTN LKMRQE LKMQDI 0 , ( B W @ U D TDISP t IHRTC , ( I A A Q > ? QMJOB SWLXY MONCLO , ( @ A
0x0c7d48…0c7edc Dummy {f00=0x0021, f01=0x418a, f02=» _, ? P H z TIMQUE@ < INIFLG N . IHPFARC P B , ( 7 H #P A V DISQUEA , ( @ U A LQ ? @ * @ ) A *_ PFINIT & " q F F A N , A _ H D !
0x0c7edc…0c8070 Dummy {f00=0x0021, f01=0xc066, f02=» n Q n X 8 4 ` , * Q * $ $ $ 1 p AP U ^ Q P@ b _, ? P H H ^ INIFLG IHPFARC DISQUEA , ( w #P A A Q ? @ PFINIT ,
0x0c8070…0c8204 Dummy {f00=0x0021, 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
0x0c8204…0c8398 Dummy {f00=0x0021, 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
0x0c8398…0c852c Dummy {f00=0x0021, 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
0x0c852c…0c86c0 Dummy {f00=0x0021, 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
0x0c86c0…0c8854 (2, 19) Dummy {f00=0x0021, 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
0x0c8854…0c89e8 Dummy {f00=0x0021, 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 > ?
0x0c89e8…0c8b7c Dummy {f00=0x0021, 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
0x0c8b7c…0c8d10 Dummy {f00=0x0021, 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
0x0c8d10…0c8ea4 Dummy {f00=0x0021, 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
0x0c8ea4…0c9038 Dummy {f00=0x0021, 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
0x0c9038…0c91cc Dummy {f00=0x0021, f01=0x8190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x0c91cc…0c9360 Dummy {f00=0x0021, f01=0x818e, 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
0x0c9360…0c94f4 (2, 20) Dummy {f00=0x0022, f01=0x8190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x0c94f4…0c9688 Dummy {f00=0x0022, f01=0x8190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x0c9688…0c981c Dummy {f00=0x0022, f01=0x818e, f02=»P l TDISP FNDDWT |TIO . , ( yI U XH > TTB:ID n , ( D #DP @ R XV Y TIODM , ( @ P T W X &P TTB:PW , (
0x0c981c…0c99b0 Dummy {f00=0x0022, f01=0x8190, f02=» , ( - x '? Y T Y GETBLKP 4 QTJOB F , ( K W Y T # P W V , ( g Y P R R P P (@ (@ , ( " 2 X $? P $ > > , (
0x0c99b0…0c9b44 Dummy {f00=0x0022, f01=0x8190, f02=» F :c" v TTB:MTE , ( ' H :b"? #" : C > B R ( , ( E Q P B P X , ( e 0$ T # R Q > , ( X B U H Q X D B , ( $ T C x > C
0x0c9b44…0c9cd8 Dummy {f00=0x0022, f01=0x8190, f02=» U H B P P $ # , ( # Q > P * , ( C _0 # T p > P p (_H Z , ( c _2 B U DC:MOT , ( X > ? _ X T DC:MIN
0x0c9cd8…0c9e6c Dummy {f00=0x0022, f01=0x8190, f02=» Q M r , ( X D ( * & ) 1 > _" X X T B TTMJOBP p MEXIT QMJOB , ( B = U . TENDIO b , ( U@ Y _| ?(@
0x0c9e6c…0ca000 Dummy {f00=0x0022, f01=0x8190, f02=» 1 1 X P - M T , ( @ $ P _ T " # ( , ( p X L R P P (@ X , ( @ ^ X P P # P , ( ' @ T P 0P 1 FREBLK ACTOTPN
0x0ca000…0ca194 (2, 21) Dummy {f00=0x005c, f01=0xc154, f02=» x UW cP uP P P, T W P T T W4 GT MW UT H D ! YP ]W mP sR uP { }P Q P GQ~ QP0 WP* mT yQL } B H D ! U( Q2 T V b UJ P PL +Q 1P KT SP U T Rl H D ! U Q0 b sP& P P T T P PD
0x0ca194…0ca328 Dummy {f00=0x005c, 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
0x0ca328…0ca4bc Dummy {f00=0x005c, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x0ca4bc…0ca650 Dummy {f00=0x005c, 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
0x0ca650…0ca7e4 Dummy {f00=0x005c, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x0ca7e4…0ca978 Dummy {f00=0x005c, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x0ca978…0cab0c Dummy {f00=0x005c, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x0cab0c…0caca0 Dummy {f00=0x005c, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x0caca0…0cae34 (2, 22) Dummy {f00=0x005d, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x0cae34…0cafc8 Dummy {f00=0x005d, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x0cafc8…0cb15c Dummy {f00=0x005d, 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
0x0cb15c…0cb2f0 Dummy {f00=0x005d, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x0cb2f0…0cb484 Dummy {f00=0x005d, 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
0x0cb484…0cb618 Dummy {f00=0x005d, 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
0x0cb618…0cb7ac Dummy {f00=0x005d, 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 !
0x0cb7ac…0cb940 Dummy {f00=0x005d, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x0cb940…0cbad4 (2, 23) Dummy {f00=0x005d, 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 :
0x0cbad4…0cbc68 Dummy {f00=0x005d, 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 &
0x0cbc68…0cbdfc Dummy {f00=0x005d, 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
0x0cbdfc…0cbf90 Dummy {f00=0x005d, 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 @
0x0cbf90…0cc124 Dummy {f00=0x005d, 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
0x0cc124…0cc2b8 Dummy {f00=0x005d, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x0cc2b8…0cc44c Dummy {f00=0x005d, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x0cc44c…0cc5e0 Dummy {f00=0x005d, f01=0x0190, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND , (
0x0cc5e0…0cc774 (2, 24) Dummy {f00=0x0024, 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
0x0cc774…0cc908 Dummy {f00=0x0024, 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 , (
0x0cc908…0cca9c Dummy {f00=0x0024, 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
0x0cca9c…0ccc30 Dummy {f00=0x0024, 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
0x0ccc30…0ccdc4 Dummy {f00=0x0024, f01=0x018e, f02=» j SAVE8 , ( = 0 H W : ? ? SCTLAC J , ( ] R 0 ACTOT RETUR8P , ( y R P P B _ : , ( V ) v : 4P
0x0ccdc4…0ccf58 Dummy {f00=0x0024, 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
0x0ccf58…0cd0ec Dummy {f00=0x0024, f01=0x0190, f02=» @ @ x SCTPAG SCTNOPN * * & ! @ < , ( P P P P _ _ j SCTPSZ , ( D @ 9N @ :b @ :b , ( / V W U
0x0cd0ec…0cd280 Dummy {f00=0x0024, f01=0x0190, f02=» l SCTSEG , ( A A 9n A :B A , ( D @ .V N PAGQUE ~ , ( 3 S Y& P , ( S P , ( 3 _
0x0cd280…0cd414 (2, 25) Dummy {f00=0x005e, 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
0x0cd414…0cd5a8 Dummy {f00=0x005e, 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
0x0cd5a8…0cd73c Dummy {f00=0x005e, 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 , , (
0x0cd73c…0cd8d0 Dummy {f00=0x005e, 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
0x0cd8d0…0cda64 Dummy {f00=0x005e, 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
0x0cda64…0cdbf8 Dummy {f00=0x005e, 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 , (
0x0cdbf8…0cdd8c Dummy {f00=0x005e, f01=0x0190, f02=» h , ( / :b / W , ( O : W @ W D 8 , ( k V W W ` " h , ( W p @ pP " , ( 4X 1 R , ( @Z0
0x0cdd8c…0cdf20 Dummy {f00=0x005e, 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 !
0x0cdf20…0ce0b4 (2, 26) Dummy {f00=0x0026, 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
0x0ce0b4…0ce248 Dummy {f00=0x0026, 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
0x0ce248…0ce3dc Dummy {f00=0x0026, 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
0x0ce3dc…0ce570 Dummy {f00=0x0026, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x0ce570…0ce704 Dummy {f00=0x0026, 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
0x0ce704…0ce898 Dummy {f00=0x0026, f01=0x4114, f02=» J F IDENT DWII01 REL 9.2 79-11-16 870105040920 DWII01K R DWII01K d ITADN x , ( IT:BUF @ , ,
0x0ce898…0cea2c Dummy {f00=0x0026, f01=0x4114, f02=» J F IDENT DWIO01 REL 9.2 79-11-16 870105040920 DWIO01K R DWIO01K d ITADN x , ( IT:BUF @ , ,
0x0cea2c…0cebc0 Dummy {f00=0x0026, f01=0x4106, f02=» J F IDENT DW1501 9.2DK 1 81-11-05 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ 0 $ 0 @
0x0cebc0…0ced54 (2, 27) Dummy {f00=0x0062, 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 , (
0x0ced54…0ceee8 Dummy {f00=0x0062, f01=0x0190, f02=» W t SETIMP , ( Y X " P :A & * & : R Q W Y <D X V , ( ? ?: T p > > , ( P P C B T , ( B % X . $ 4 T
0x0ceee8…0cf07c Dummy {f00=0x0062, f01=0x018e, f02=» , ( Y _` B P $$ R % C , ( y * ! W Y +P Y *P Y ( 4 , ( P Y )P R _Q P OR d , ( R W " ! B W W , ( @ 0 Z ! B Z Z& , ( X . 0
0x0cf07c…0cf210 Dummy {f00=0x0062, f01=0x0190, f02=» DISEND , ( OA Y C ! " * & i @ Q R X # P X R ;GV X J LDREG x , ( @ P P y P X DWTA3 DWTSB2 , ( @ R ;GV X X , *
0x0cf210…0cf3a4 Dummy {f00=0x0062, f01=0x0190, f02=» h , ( :d Y > > ? 8 R @R , ( ) V @% =cW R P R P R P W 8 , ( I 9 W $ P W _ $ P h , ( i _$ _*_, _ %0=c X , ( 0P > 0 > >_ B 1 >
0x0cf3a4…0cf538 Dummy {f00=0x0062, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x0cf538…0cf6cc Dummy {f00=0x0062, f01=0x0190, f02=» J F IDENT DRTP02 REL 9.2 79-11-16 870105040920 TPADY R TPADY b , ( d t DWTOR , ( ! !"&';<>@^_ 9: X ! Y DISIOE DWTBC , (
0x0cf6cc…0cf860 Dummy {f00=0x0062, f01=0x0190, f02=» , ( w ! W B W B L , ( # 9Q T W Q P X & V 8 DWTST h ECBRL x , ( T Y &W X ! T B , ( R Q B D ! V ! ! * & ! W ! !
0x0cf860…0cf9f4 (2, 28) Dummy {f00=0x0062, f01=0x0190, f02=» , ( 5 T " T W Q " T ) ! , ( Q Y _ ! ! Y 8 , ( m @ &P Q W ! Y '" h * & _" _< ! _n ! _t B B , ( , ! T _ D ! , ( P ! P
0x0cf9f4…0cfb88 Dummy {f00=0x0062, f01=0x0190, f02=»T ! L ,! :D" ! Y , ( 7 Y U ! _$ W , & ECBRC V , ( Q ! T ,' ! R !__U f , ( qHD C X ' W Y ! LDREG , ( _ X R U T X
0x0cfb88…0cfd1c Dummy {f00=0x0062, f01=0x0190, f02=»SP , ( @ B R _ , ( 4 ! ! ! " T : , ( "" ! ! ! ! j * & % 4 X ' 4 Y ' ! ! ( $ A @ " P ,$ , ! 4 H D ! 4 IP
0x0cfd1c…0cfeb0 Dummy {f00=0x0062, f01=0x40d6, f02=» 9T =T ?W CQ GT Q , i oP qQ wW , T P P H D ! @ W V P RN Q PH P R: T2 3 =U MW4 UT gR mU {W H ( $ RT U TJ P T R T EP X @ P ,$ , ! 4 H D ! 4 IP
0x0cfeb0…0d0044 Dummy {f00=0x0062, f01=0x0190, f02=» J F IDENT DRGP01 REL 9.2 80-01-03 870105040920 GPADY ECHOGP R GPADY j , ( !"$&;<>@^_ P | DISIOE OUTPUT , ( ! P B P B L # +P ! , ( ?
0x0d0044…0d01d8 Dummy {f00=0x0062, f01=0x0190, f02=» Y , ( U P T Y &_. P R P , ( @ O]> V _F T Y Y & V P , ( @D Y _^ C _P " DWTBC * & $ P X & X ]r ! * & Y Y
0x0d01d8…0d036c Dummy {f00=0x0062, f01=0x0190, f02=» X C _ X Y ~ , ( G & Y > B B U $ , ( e ! T _ U D ! T _ N LDREG ~ , ( C > X Z^<BR P j ECHOGP , ( X _x R V ! P P , (
0x0d036c…0d0500 Dummy {f00=0x0062, f01=0x416a, f02=» ? X Z t , ( @ ! P P . 2 X , ( 1 " ! ! X D $ K & 6 t H D ! PB !P8 -P ;P KT _W mW P U P" T P4 H D ! R( Pj V T P - @ _U$ iT sU }T
0x0d0500…0d0694 (2, 29) Dummy {f00=0x0066, f01=0x0190, f02=» J F IDENT DRDI01 REL 9.2 79-11-16 870105040920 DIADY R DIADY b , ( B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x0d0694…0d0828 Dummy {f00=0x0066, f01=0x4088, f02=»END u ? X _F @ < p J z T #P 'P 3W GT IW$ MT( WP aP gV . r@ B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x0d0828…0d09bc Dummy {f00=0x0066, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x0d09bc…0d0b50 Dummy {f00=0x0066, 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
0x0d0b50…0d0ce4 Dummy {f00=0x0066, f01=0x018e, f02=» DWTBC , ( X ' X ] ! , ( B ! ! ! @ , ( @ B Y & ! W 8!0T 8 !@ p , ( DP ! $ P ! ! , ( ! T Y & T X & C TENDI
0x0d0ce4…0d0e78 Dummy {f00=0x0066, 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 !
0x0d0e78…0d100c Dummy {f00=0x0066, 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 !
0x0d100c…0d11a0 Dummy {f00=0x0066, 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
0x0d11a0…0d1334 (2, 30) Dummy {f00=0x0066, 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
0x0d1334…0d14c8 Dummy {f00=0x0066, f01=0x0190, f02=» J B t , ( B pU INTRT2 D , ( ; J BAB rU V , ( [ J B B pU , ( y J BQB rU CHTAB DWREMU
0x0d14c8…0d165c Dummy {f00=0x0066, f01=0x0190, f02=» P P H !@T I DISEND . CHLT1 @ INTSAV R , ( H T ! 1 U A ? d CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 $ CHRT4
0x0d165c…0d17f0 Dummy {f00=0x0066, f01=0x0190, f02=» P r , ( k R P 4 ] P , ( $ P ] U P P P P B DWTST r , ( R 4T ] U X , ( "0T + Y W 8Z 4 , ( U R ] U # $P
0x0d17f0…0d1984 Dummy {f00=0x0066, f01=0x0190, f02=» > x , ( = W T # Y U DWTTP H , ( [ T ] W 8V X X SETIMP * & { P y W , ( P 8R R Y DWTOCHf ,
0x0d1984…0d1b18 Dummy {f00=0x0066, f01=0x0190, f02=» T U 5 U z , ( R " ] ;h # <c$ , ( % P X X " Z " J , ( E X 8# T 8Z V X # T z , ( c 8R X P y Y X DWTECB INTADR , ( {$@'
0x0d1b18…0d1cac Dummy {f00=0x0066, f01=0x0190, f02=»@ # P 4 4 P _r T _$ , ( U _ ? 4 U 5 R P . DWTOTQ ^ , ( "P R T T R X $ # X p , ( / > P P P , ( M X XF _H W ? T T , ( m
0x0d1cac…0d1e40 Dummy {f00=0x0066, f01=0x0190, f02=» OUTPUTN , ( @ _ " P T 8! P STREG D DWTA3 V DWTA4 f DWTA5 v , ( Y Y & Y ( Y * LDREG LDREGF LDREGE , ( _8 X XB Y
0x0d1e40…0d1fd4 (2, 31) Dummy {f00=0x0067, f01=0x0190, f02=» (@ > ?" 8' x , ( S ?A R 8;b# 4T R , ( s T T ] ] 8 W T H , ( W T ] _ P T V W 8 x , ( V T P U 8 ~ U Q , ( P X H " 5 U R " , (
0x0d1fd4…0d2168 Dummy {f00=0x0067, f01=0x0190, f02=» T B P X | , ( G R @ U S ` U t " , ( g D P D T U W _ U 4XR L ECHENDT | ECHOY , ( XX 5 J_b Y & Y ( DWTECH DWTWAT , ( H$ Y * X
0x0d2168…0d22fc Dummy {f00=0x0067, f01=0x0190, f02=» . H D !p P Q P P T W W #W /R 5V = ` K H D !L QR Y _PJ cP i o sRL }P P P PD P< P0 P, R T ` H D ! Tp WH f R P4 R0 T T #P -P =Wh C v M _T iW H D !H( mV u v }P
0x0d22fc…0d2490 Dummy {f00=0x0067, f01=0x40fa, f02=» ! 9P =P CP I B _Wj gT s wW S( V P P T P T P6 H D ! J /U =W [R kT oRT uT {T W< Tr W T P V WT V L H D ! P Q2 P R V P P #W 7T IR4 QS kP qT yW V$ V @ H( mV u v }P
0x0d2490…0d2624 Dummy {f00=0x0067, 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
0x0d2624…0d27b8 Dummy {f00=0x0067, 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
0x0d27b8…0d294c Dummy {f00=0x0067, 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
0x0d294c…0d2ae0 Dummy {f00=0x0067, f01=0x018e, f02=» J F IDENT DRDU01 REL 9.2 79-11-16 870105040920 4 0 DUADR DUONY IHDU1 IHDUY IHDU2 DWDU01 DWDU02 R DUADR , ( , ( P " 0 P B :b
0x0d2ae0…0d2c74 (2, 32) Dummy {f00=0x006d, f01=0x0190, f02=» f , ( W B B # L Y :e , ( ? X Y, X P Y ! 9 R ! 9 R 8 , ( _ Y W P U ! h , ( ! ! P W X @ @ ! ! , ( ! P W P ! ! ! P , ( W !
0x0d2c74…0d2e08 Dummy {f00=0x006d, f01=0x0190, f02=» Y Y 4 X :C* W W X " , ( ? " :BW X " :BW X X P _ X ( , ( _ % ^ W c X :B X ! X DWTA4 DWTA5 TDISP DUONY , ( } $ E Y Y ? INIFLGN
0x0d2e08…0d2f9c Dummy {f00=0x006d, f01=0x0190, f02=» P X Y '? , ( _< @ X2 a W _J Y " , ( ! P X> X4 0P R SETIMP IHDU2 IHDUY IHDU1 INTSAV * & -_z _ A _v A ,
0x0d2f9c…0d3130 Dummy {f00=0x006d, f01=0x0190, f02=» j , ( s B" I Y Y , ( B ! 2 T ! Y ! t! T : , ( @ X P Y , (P ) j , ( P @ T X Q , ( $ X X T Y _l DWDU02
0x0d3130…0d32c4 Dummy {f00=0x006d, f01=0x0190, f02=» H D ! PR P D F > $ n P P P P !W ; A B H D ! G @ IP& M @ Q ( UR Y 2 ]R i @ oWb uP yUH } 6 P WF @ j H D ! h N P W* P& D P W D P T F P D H D !
0x0d32c4…0d3458 Dummy {f00=0x006d, f01=0x409c, f02=»P N H D ! P ' 7 < 9V ?T YT iP { $ < Td @ TR , ( 0 P P P T $ T < N V Z @
0x0d3458…0d35ec Dummy {f00=0x006d, f01=0x0190, f02=» J F IDENT DRLP01 REL 9.2 79-11-16 870105040920 & " LPADR ACLPY IHLPY LPONY DWLP01 R LPADR | ACLPY DWTBC , ( T 1 W B DISIOEC , ( B P P
0x0d35ec…0d3780 Dummy {f00=0x006d, f01=0x0190, f02=» TDISP DWTA5 , ( } Q 1 Y $ LPONY T DWTST f , ( @ r t B X _ ? X Z& v IHLPY INTSAV DWTOR DWTECB , ( DW A ?I X
0x0d3780…0d3914 (2, 33) Dummy {f00=0x006d, f01=0x4088, f02=» H D ! T WP %PD )P 3V I OT UW _P eP m qT uV W Z r@ X _ ? X Z& v IHLPY INTSAV DWTOR DWTECB , ( DW A ?I X
0x0d3914…0d3aa8 Dummy {f00=0x006d, 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`
0x0d3aa8…0d3c3c Dummy {f00=0x006d, 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 , (
0x0d3c3c…0d3dd0 Dummy {f00=0x006d, 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 * &
0x0d3dd0…0d3f64 Dummy {f00=0x006d, 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
0x0d3f64…0d40f8 Dummy {f00=0x006d, 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 P DISIOEC
0x0d40f8…0d428c Dummy {f00=0x006d, f01=0x8190, f02=»:H B # L 9 z ECBRL , ( B B Y B Y P @ * , ( @ ` @ P 0P _ % Z TENDIO , ( A A _r B Q DWTECB , ( _ X P 0 Y P
0x0d428c…0d4420 Dummy {f00=0x006d, f01=0x8190, f02=» X P A , ( A Y W Y @_x X X A $ , ( a@ Y _& Y @ T , ( 0 A A _: X P ( y Y W , ( (P 0 ) > (P , ( _ ) 1_ (X( P
0x0d4420…0d45b4 (2, 34) Dummy {f00=0x006d, f01=0x8190, f02=» , ( L C L C , ( @ 3 > @ @ @ A X 4 , ( Q @_" X P y Y X P T d , ( o @ T A A > A A A , ( A A W >
0x0d45b4…0d4748 Dummy {f00=0x006d, f01=0x8190, f02=» T T A P A T ! T , ( 3 ! T T ! T ! A I A . , ( S P " ! _ ! ^ , ( s T " X ! _ ! A @ , ( P P @ P ! A A _ ! @ , ( " P @ X@ ! T
0x0d4748…0d48dc Dummy {f00=0x006d, f01=0x8190, f02=» 2P P P A ~ TEBCDI * & @ 3 @ 8 H @ P E P X 0 , ( O B R X P X T ^ , ( g P C C X T ! , ( W W W X R X , ( T !
0x0d48dc…0d4a70 Dummy {f00=0x006d, f01=0x8190, f02=» @ T @ X W A I ~ , ( * ! @ @ @ , ( 3 A ! @ XN ! T @ N , ( S P ! ! _h /T @ X @ P ~ , ( s ! ! A _ A < , ( P" A @ T _, _0 @ T W @
0x0d4a70…0d4c04 Dummy {f00=0x006d, f01=0x8190, f02=» l DC:MOT, , ( @ T _ A C , ( J ) B B A A A A L * & C A ! ! A _^_V @ P X | , ( a R X P T T Y , ( ( { W P C A ,
0x0d4c04…0d4d98 Dummy {f00=0x006d, f01=0x8190, f02=» j , ( ]6W P _@ @ @ E ! P , ( ! 4 _$ ! 2_l / A : , ( 7 T W ,W A A W W W j , ( $D W A A ! @ ! @ ! , ( w ! ! B J 4 ! ! , ( T@ @ @
0x0d4d98…0d4f2c Dummy {f00=0x006d, f01=0x8190, f02=» T W ! P " ! " :A , ( *@ H T 0 ! W R ! * , ( * 5 A @ @ U Zx Q P Z , ( U Q T 0 ! A 0 ! A ! , ( u " ! " ! v A _" IH1501 INTSAVL
0x0d4f2c…0d50c0 Dummy {f00=0x006d, f01=0x8190, f02=» A " ? _ I " P , ( U@ A < A 4 A _$" $ , ( P H B P W ! _ T , ( @@ + ! ! 1 4 A 8 @ ` DC15ON b , ( K @ P 0 M A 8 4 ? @ A , ( P k @
0x0d50c0…0d5254 (2, 35) Dummy {f00=0x0040, f01=0x8190, f02=» 4 A < ! @ P ! V ! , ( R @ P a A 4 A A A & , ( ?a :a# P @ @ @ V # 4 , ( * - A ! ( ! A @ (:H DW1500 P , ( M 4
0x0d5254…0d53e8 Dummy {f00=0x0040, f01=0x8190, f02=»OPQR$]*);^-/ST v , ( % UVWXYZ@,%_>?0123456789:[ '=" , ( % F , ( & v &' H D ! Z R ~ B R ~ GP, KP OP SP( WP YW _P cP gP o H D !
0x0d53e8…0d557c Dummy {f00=0x0040, f01=0x8190, f02=» ~ P H D ! P P P P P R2 T* P& WP gP kT s wT { H D ! W * T P P < * Tf X H D !U+ Tb Q !P ' P )TR - * /TL 5 * 7TD ;T@ ? CT8 G WP _ c : H D ! m i V o : sT w P {
0x0d557c…0d5710 Dummy {f00=0x0040, f01=0x8190, f02=» _T2 {T W W( W" R T 0 2 T P b T H D !y Wj $ ; @ ? I OT UP Y V ] eT& qP w X { R @ T T< D H D !] W ~ T > 0 P V W T R T ! K H D ! O ]P6 cR0 kP oT$ sT {W P ~ T
0x0d5710…0d58a4 Dummy {f00=0x0040, f01=0xc142, f02=» Q ( ( P ( % W PL R T t H D ! T T0 W, ( !T ' ( +W 1R 5 ( CUH SP YT a ( k ( u ( 0 H D ! T T PX P P P W A% E% M% | H D !9 OP sT w P P & ( * P & ( # * c r
0x0d58a4…0d5a38 Dummy {f00=0x0040, f01=0x417e, f02=» J F IDENT EBCDIC 9.2DK 2 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l TEBCDI , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j
0x0d5a38…0d5bcc Dummy {f00=0x0040, f01=0xc16e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x0d5bcc…0d5d60 Dummy {f00=0x0040, f01=0x4140, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ " ?
0x0d5d60…0d5ef4 (2, 36) Dummy {f00=0x0047, 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
0x0d5ef4…0d6088 Dummy {f00=0x0047, 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
0x0d6088…0d621c Dummy {f00=0x0047, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x0d621c…0d63b0 Dummy {f00=0x0047, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x0d63b0…0d6544 Dummy {f00=0x0047, 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 * & @
0x0d6544…0d66d8 Dummy {f00=0x0047, 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 , (
0x0d66d8…0d686c Dummy {f00=0x0047, 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
0x0d686c…0d6a00 Dummy {f00=0x0047, 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 ,
0x0d6a00…0d6b94 (2, 37) Dummy {f00=0x0048, 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 $ #
0x0d6b94…0d6d28 Dummy {f00=0x0048, 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
0x0d6d28…0d6ebc Dummy {f00=0x0048, 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 ,
0x0d6ebc…0d7050 Dummy {f00=0x0048, 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
0x0d7050…0d71e4 Dummy {f00=0x0048, 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
0x0d71e4…0d7378 Dummy {f00=0x0048, 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
0x0d7378…0d750c Dummy {f00=0x0048, f01=0x40ee, f02=» _ _< , ( S ? ^ 4 _ & TIMQUE V , ( qH @ 1 A _ P 9 h > > ( $ ~ T N : - 4 1 N 3 > P @ BLK@ LKMQDI
0x0d750c…0d76a0 Dummy {f00=0x0048, 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
0x0d76a0…0d7834 (2, 38) Dummy {f00=0x0049, 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
0x0d7834…0d79c8 Dummy {f00=0x0049, 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
0x0d79c8…0d7b5c Dummy {f00=0x0049, f01=0x0190, f02=» * & 5 H $R M A D TLDS15 T 6 PAG:QB@ J TLDS20 d PAG:PA p , ( K B _ $P D % 1 I SCTMMP SCTNPE , ( eB@ D " @ @ - U
0x0d7b5c…0d7cf0 Dummy {f00=0x0049, f01=0x402e, f02=» /W^ 7R WP yU @ * TLDS15 T 6 PAG:QB@ J TLDS20 d PAG:PA p , ( K B _ $P D % 1 I SCTMMP SCTNPE , ( eB@ D " @ @ - U
0x0d7cf0…0d7e84 Dummy {f00=0x0049, 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
0x0d7e84…0d8018 Dummy {f00=0x0049, 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
0x0d8018…0d81ac Dummy {f00=0x0049, f01=0x0190, f02=» J F IDENT TASS REL 9.2 79-11-16 870105040920 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXAP T
0x0d81ac…0d8340 Dummy {f00=0x0049, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x0d8340…0d84d4 (2, 39) Dummy {f00=0x0083, f01=0x0190, f02=» TASTBE T TASLFD# V , ( A , a TASCAQT n TTB:SA QTJOB , ( D H @ P 4 A U W A VOLCHE , ( ( A @ U : A V A
0x0d84d4…0d8668 Dummy {f00=0x0083, f01=0x0190, f02=»% T < C z ECBRC , ( ( B P T W ' T I * , ( @ 8 =hP Y X P Z DWTVOL , ( 3 T Y H ! R , ( Q W 9a I T T 9a H E V DFTABE(
0x0d8668…0d87fc Dummy {f00=0x0083, f01=0x0190, f02=» : "' # TDISP ( , ( I ` @ P $ ) 5 8 MOV:US h , ( T A A R A b " z , ( A "" P U W , ( A P @ E "# P P
0x0d87fc…0d8990 Dummy {f00=0x0083, f01=0x0190, f02=» P W @ | , ( } 0 R ' F "R G FNDTID L , ( ) T @ D #D T G ^ DMTASSV ACTOT , ( W A J "R A J A 4 LKMQDI * & H
0x0d8990…0d8b24 Dummy {f00=0x0083, f01=0x4076, f02=» T P P U W P #P 'P 7W CR OV WT gP wW Rb R T W, R < `@ r
0x0d8b24…0d8cb8 Dummy {f00=0x0083, f01=0x018e, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x0d8cb8…0d8e4c Dummy {f00=0x0083, f01=0x406e, f02=» , ( * % 4 & H & X@ j b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x0d8e4c…0d8fe0 Dummy {f00=0x0083, f01=0x0190, f02=» J F IDENT TIODM REL 9.2 79-11-16 870105040920 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELE D @ FDBLRN FDBNIF FDBEAL FDBCRL` FDB
0x0d8fe0…0d9174 (2, 40) Dummy {f00=0x0084, f01=0x0190, f02=» t , ( ! " , ( A # $ % D FDBLNK t FDBECB FDBSNR $ FDBRRO & FDBRLE ( FDBBLF * FDBTNRC + FDBVT
0x0d9174…0d9308 Dummy {f00=0x0084, f01=0x0190, f02=»ELE FDBLRN I FDBNIF H " FDBEAL L 6 FDBCRL` N J FDBKA P ^ FDBMIAT R p FDBADFN T FDBAI1 V FDBDBR ^ FDBMRN _ FDBMROV b FDBMEC d FDBKEY r
0x0d9308…0d949c Dummy {f00=0x0084, f01=0x0190, f02=» j @ D X TTB:ID , ( } P _ L !##P T 2 DWTST b , ( @ R $P U + U _ (@(@ r DWTOR ECBCW2 , ( ! I 2P ^ H L Y H ECBCW , (
0x0d949c…0d9630 Dummy {f00=0x0084, f01=0x0190, f02=» Y . B CRNGET ( , ( + Y I B Y J_ W : ECBFC j , ( G C P C W < C z , ( a! C _H H H S * & } W C C B B
0x0d9630…0d97c4 Dummy {f00=0x0084, f01=0x0190, f02=» j DSUMOD , ( $ X _ X ` T I T J ECBEL J , ( P C X I X J Z * & S W C C W B ECBRC * & B Y IR Q X JU C bSQR C
0x0d97c4…0d9958 Dummy {f00=0x0084, f01=0x418a, f02=»#D ( * | ACTOT TDISP * DISEND : ( $ m , . 0 2 L H D ! | | | | | ! h # 8 % | ' | x H D ! + ) < + - / 1 & P P R P P | U | W N % |
0x0d9958…0d9aec Dummy {f00=0x0084, f01=0x0190, f02=» J F IDENT DMBUF REL 9.2 79-11-16 870105040920 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSN
0x0d9aec…0d9c80 Dummy {f00=0x0084, f01=0x0190, f02=» / & > s V DMTGBU n , ( @ , L T L P L , ( 5 T M Q M L V L A @ HALTN , ( U : T
0x0d9c80…0d9e14 (2, 41) Dummy {f00=0x004d, f01=0x4076, f02=» M @ : z H D ! H I . / r s 'T -PF 5T ;Q GV YT T `@ rU n , ( @ , L T L P L , ( 5 T M Q M L V L A @ HALTN , ( U : T
0x0d9e14…0d9fa8 Dummy {f00=0x004d, f01=0x0190, f02=» J F IDENT DMTASK REL 9.2 79-11-16 870105040920 ( $ DMTASKKdSQRdQSW DMTWM QIRNY QIRR R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x0d9fa8…0da13c Dummy {f00=0x004d, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TDC F , ( w $ -_ D U 0 X SCTCDT@ , ( W T ` U @ , FDBRRO DWTTDM TTB:ID , ( A
0x0da13c…0da2d0 Dummy {f00=0x004d, f01=0x018e, f02=» PRUNN ECBBA MOV:SU $ , ( $ P @ Q (@ F 6 MONMMU f * & H : @ _ x DMTASKK FDBDBR , ( D > X P D "V , ( )
0x0da2d0…0da464 Dummy {f00=0x004d, f01=0x0190, f02=» , ( @ a ( ( W ( , ( A B W C X '? 4 , ( H X X )T d FDBSNR@ VLVRL , ( * X *T T , A ( FDBVTO DIVMOD
0x0da464…0da5f8 Dummy {f00=0x004d, f01=0x0190, f02=»LRBUFV , ( D F 4 6(@ _ FDBLRN > VTLRN P , ( D X X 8 U : X 8 U : ` FDBMIA , ( 5 $ ( ( T X X <P ECBFC , ( O F > T
0x0da5f8…0da78c Dummy {f00=0x004d, f01=0x0190, f02=» X W ` U @ H EARELB $ FDBCRL 6 , ( @ X W B H CRNQUE x * & D 4 5W P 0 @ F 1 A FDBEXT: EXTELER , ( F(@_ H J (@
0x0da78c…0da920 Dummy {f00=0x004d, f01=0x0190, f02=» 4 P 9 6 , ( a J 4' ' 5 * FDBSTA Z , ( 4 P W , P ,' X X l , ( $ H J Z" J ) _ SCTPLDX , ( @ " (@ C > A R ( B
0x0da920…0daab4 (2, 42) Dummy {f00=0x0053, f01=0x0190, f02=» F T" F T +P P X EATESTS . , ( ! V$ T X U W X R @ * & ; P $P W X X p , ( W F X P MOV:USX , ( oH @ Q (@ Z + X "V
0x0daab4…0dac48 Dummy {f00=0x0053, f01=0x0190, f02=» Y " F T" F T , ( > D '? P P $ P CRNGETR P CRNCIF b CRNCDF t , ( "B ^ I ` I ` K b , ( H K b b P P & P EASETB: , ( ) B BW D
0x0dac48…0daddc Dummy {f00=0x0053, f01=0x0190, f02=» H D ! L L L L L L L L L H D ! ! L # % ' 3P 5R ;W IR WP aR U W T U W T P H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } L W T L TT H D ! P W P CT$ MP cT
0x0daddc…0daf70 Dummy {f00=0x0053, f01=0x4076, f02=» P8 P4 W T( R T P P( P" P P %P +W 3T ;T AW QV WT < n `@ rP aR U W T U W T P H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } L W T L TT H D ! P W P CT$ MP cT
0x0daf70…0db104 Dummy {f00=0x0053, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x0db104…0db298 Dummy {f00=0x0053, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x0db298…0db42c Dummy {f00=0x0053, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x0db42c…0db5c0 Dummy {f00=0x0053, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x0db5c0…0db754 (2, 43) Dummy {f00=0x0085, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x0db754…0db8e8 Dummy {f00=0x0085, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x0db8e8…0dba7c Dummy {f00=0x0085, f01=0x0190, f02=»P @ , t EXTDMIH EXTLENT & , ( ! ! T W P . D Y T P 0 8 EXTBAS h , ( 9I Y V P 0 Y X U ! T z TASLFD , ( S ! X6 _R _V D Z" TASTBE , ( q$ P
0x0dba7c…0dbc10 Dummy {f00=0x0085, f01=0x0190, f02=» @ 2 n , ( $P -W P B TASCAQ > QTJOB P * & @ * ` b(@( @ ` FDBADF& FDBDBR , ( ( _ d ` ` 9A EXTELE , ( D S f
0x0dbc10…0dbda4 Dummy {f00=0x0085, f01=0x0190, f02=»MRN , ( =@ R J S W S p S p MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x0dbda4…0dbf38 Dummy {f00=0x0085, f01=0x4038, f02=»W P W P ES GW p "@ 4 MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x0dbf38…0dc0cc Dummy {f00=0x0085, f01=0x40b8, f02=» J F IDENT DFTAB REL 9.2 79-11-16 870105040920 DFTAB DFTABE R DFTAB j DFTABE | @ AFB PDFTABE EQU * P END @ P* P* P* LEVE
0x0dc0cc…0dc260 Dummy {f00=0x0085, f01=0x4172, f02=» J F IDENT DMFDB REL 9.2 79-11-16 870105040920 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL r FDBSTAK FDBEND CRNQUE
0x0dc260…0dc3f4 (2, 44) Dummy {f00=0x0088, f01=0x0190, f02=» J F IDENT DMINIT REL 9.2 79-11-16 870105040920 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !
0x0dc3f4…0dc588 Dummy {f00=0x0088, f01=0x40da, f02=» h BUFDMIL BUFSNR BUFOR , , ( Q , - M M M @ < TASBLK l TASQUE ~ g$ A A > Q %PJ r @ FDBEND CRNQUE , ( !
0x0dc588…0dc71c Dummy {f00=0x0088, f01=0x0190, f02=» J F IDENT DMSUBX REL 9.2 79-11-16 870105040920 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x0dc71c…0dc8b0 Dummy {f00=0x0088, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMROP FDBRLE , ( V ; [ _ D V
0x0dc8b0…0dca44 Dummy {f00=0x0088, f01=0x0190, f02=» GTLGRN# , ( D U E W ADDMODH B CALSNOT T DMTRBU f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x0dca44…0dcbd8 Dummy {f00=0x0088, f01=0x0190, f02=» FDBLRN , ( E E Z:Q , ( D D ZB W Z r @ , ( Q R W K ]d J _j @ W W p CRNUPD FDBADF FDBCRL , ( " : : " $
0x0dcbd8…0dcd6c Dummy {f00=0x0088, f01=0x412a, f02=» U R ( R ( S ( m@ S (_P (@ : , H D ! UP U 3 r AU EP OP YW }P Q R V W W T. V T L H D ! W V V Wn U W 7P 9W KP T~ W Wh P0 Q W, Q , ( R W W W !W %PL 7R CQ
0x0dcd6c…0dcf00 Dummy {f00=0x0088, f01=0x40ea, f02=» J F IDENT ADDMOD REL 9.2 79-11-16 870105040920 ADDMODK R ADDMODK d , ( P Q R ;A [ [ x ! : P Q R $ @ ,2,A14 B P OR.S
0x0dcf00…0dd094 (2, 45) Dummy {f00=0x0088, f01=0x40ea, f02=» J F IDENT DSUMOD REL 9.2 79-11-16 870105040920 DSUMODK R DSUMODK d , ( P Q R ;A [ [ x ! : P Q R $ @
0x0dd094…0dd228 Dummy {f00=0x0088, f01=0x40ec, f02=» J F IDENT MPYMOD REL 9.2 79-11-16 870105040920 MPYMODK R MPYMODK d , ( P Q R ;A [ x ! [ : P Q R & @ . P*
0x0dd228…0dd3bc Dummy {f00=0x0088, f01=0x40ea, f02=» J F IDENT DIVMOD REL 9.2 79-11-16 870105040920 DIVMODK R DIVMODK d , ( Q R P ;A [ [ x ! : Q R P $ @ P RB(7) END1
0x0dd3bc…0dd550 Dummy {f00=0x0088, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x0dd550…0dd6e4 Dummy {f00=0x0088, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x0dd6e4…0dd878 Dummy {f00=0x0088, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x0dd878…0dda0c Dummy {f00=0x0088, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x0dda0c…0ddba0 Dummy {f00=0x0088, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x0ddba0…0ddd34 (2, 46) Dummy {f00=0x0071, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x0ddd34…0ddec8 Dummy {f00=0x0071, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r , ( : U ; $ T $ T $ T x : : , ( $ T $ ) ] $ ) Y _$ , ( U x 0 )_8 $_ $
0x0ddec8…0de05c Dummy {f00=0x0071, f01=0x418e, f02=» Y _& (# )_4 $ ($ , ( ) YR_L U p 0_8 $ * _< Z H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R l H D ! W R W P W6 'T ;U eSP mP qW U U. R P W P6 H D !
0x0de05c…0de1f0 Dummy {f00=0x0071, f01=0x412a, f02=» J F IDENT PFTAB REL 9.2 79-11-16 870105040920 PFTAB R PFTAB b DC15ON t SOPRN CHLTON LPONN DUONN DMINITL & " UP
0x0de1f0…0de384 Dummy {f00=0x0071, f01=0x0190, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x0de384…0de518 Dummy {f00=0x0071, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x0de518…0de6ac Dummy {f00=0x0071, f01=0x4104, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x * & DY % P @ 8 , 8 @
0x0de6ac…0de840 Dummy {f00=0x0071, f01=0x0190, f02=» J F IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( @ KB DVDY01 , ( %@
0x0de840…0de9d4 (2, 47) Dummy {f00=0x0074, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( @ KB DVDY01 , ( %@
0x0de9d4…0deb68 Dummy {f00=0x0074, f01=0x4108, f02=» J F IDENT DVTP01 REL 9.2 79-11-16 870105040920 DVTP01K R DVTP01K d TPADN x , ( TP " @ 4 ( 4 @
0x0deb68…0decfc Dummy {f00=0x0074, f01=0x4104, f02=» J F IDENT DVDY01 REL 9.2 79-11-16 870105040920 DVDY01K R DVDY01K d DYADN x * & DY % P @ 8 , 8 @
0x0decfc…0dee90 Dummy {f00=0x0074, f01=0x0190, f02=» J F IDENT DVKB02 REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( KB DVDY02 , ( %@
0x0dee90…0df024 Dummy {f00=0x0074, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( KB DVDY02 , ( %@
0x0df024…0df1b8 Dummy {f00=0x0074, f01=0x4106, f02=» J F IDENT DVDI02 REL 9.2 79-11-16 870105040920 DVDI02K R DVDI02K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x0df1b8…0df34c Dummy {f00=0x0074, f01=0x4104, f02=» J F IDENT DVDY02 REL 9.2 79-11-16 870105040920 DVDY02K R DVDY02K d DYADN x * & DY % P @ 8 , 8 @
0x0df34c…0df4e0 Dummy {f00=0x0074, f01=0x4100, f02=» J F IDENT DVGP03 REL 9.2 79-11-16 870105040920 DVGP03K R DVGP03K d GPADN x * & GP % @ 4 ( 4 @ ECB ADD
0x0df4e0…0df674 (2, 48) Dummy {f00=0x0075, f01=0x4108, f02=» J F IDENT DVTP04 REL 9.2 79-11-16 870105040920 DVTP04K R DVTP04K d TPADN x , ( TP " @ 4 ( 4 @
0x0df674…0df808 Dummy {f00=0x0075, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 * & ! 1 DVTP01 DVDY01 DVKB0
0x0df808…0df99c Dummy {f00=0x0075, f01=0x4094, f02=» " @ P 0 0 GH 1 2 * 4 0 | , : @ - ; A F N ~@ DVKB01 * & ! 1 DVTP01 DVDY01 DVKB0
0x0df99c…0dfb30 Dummy {f00=0x0075, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 , ( H DWIO01 DW1501 DWL
0x0dfb30…0dfcc4 Dummy {f00=0x0075, f01=0x4066, f02=» z < 8 ~ $ * 0 % + 1 B P@ b SCLASSK d DWSI01 x DWSO01 DWII01 , ( H DWIO01 DW1501 DWL
0x0dfcc4…0dfe58 Dummy {f00=0x0075, f01=0x0190, f02=» H F IDENT CTAB01 83.05.19 NJ NORDJYLLANDS AMT & " CTAB01K CTAB02 CTAB03 CTAB04 P CTAB01K z CTAB02 CTAB03 CTAB04 , ( , ( !
0x0dfe58…0dffec Dummy {f00=0x0075, f01=0x0190, f02=» < +,-. 0123456789 `ABCDEFG , ( HIJKLMNOPQRSTUVWXYZ [] * * , ( > ?;_: =!"#$%&/() @ABCDEFG Z , ( HIJKLMNOPQRSTUVWXYZ []* , ( < +,-. 0123456789 `ABCDEFG , ( ! HIJKLMNOPQRSTUVWXYZ []
0x0dffec…0e0180 Dummy {f00=0x0075, f01=0x4034, f02=» H x x r x @ 0JKLMNOPQRSTUVWXYZ [] * * , ( > ?;_: =!"#$%&/() @ABCDEFG Z , ( HIJKLMNOPQRSTUVWXYZ []* , ( < +,-. 0123456789 `ABCDEFG , ( ! HIJKLMNOPQRSTUVWXYZ []
0x0e0180…0e0314 (2, 49) Dummy {f00=0x0077, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 7 82-10-04 870105040924 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P +P P P DISIOEC , (
0x0e0314…0e04a8 Dummy {f00=0x0077, f01=0x0190, f02=» W B Y @ P SETIME ( , ( P $_ _L _$ X : , ( 9 P @ @ ` j DWTST , ( @ P 0P _ % A A Y TENDIO ECBRL , (
0x0e04a8…0e063c Dummy {f00=0x0077, f01=0x0190, f02=» DC:MIN , ( K D P 0 Y P C _ , ( g D _ B ! P Y _` X ! @ DISEND p , ( X _ B Y _z , ( X P A Y W Y , ( @_ X X A Y
0x0e063c…0e07d0 Dummy {f00=0x0077, f01=0x0190, f02=» ) 1_ r , ( 9 (X( P _ 0 )_6 X " X> , ( Y XB X " E L _H _: B * & y (P _ ) 1 4 X R X r , ( T X P , Y L C , ( L C > @ , (
0x0e07d0…0e0964 Dummy {f00=0x0077, f01=0x0190, f02=» ' A W G > 0 U J , ( @ i BHBB < ! B ! h , ( T P P , ( ! T T A P A T ! , ( T !
0x0e0964…0e0af8 Dummy {f00=0x0077, f01=0x0190, f02=» @ TP @ RP ! A T A V_ ! , ( I @ VP @ X@ ! T A Z ! ( * & i x @ TP @ P @ R 8 ! X X , ( Y ! A ^_B ! X>_b A , ( Z @ @ jT 1 Z 0 2P TEBCDI , ( @ P P A
0x0e0af8…0e0c8c Dummy {f00=0x0077, f01=0x0190, f02=» P " H " P X * Y , ( / X T ! tW W $ , ( I W X R X T ! T , ( a t ! x X ! _ X ! W , ( R A V @ P A ^ Y " @ _R ! @ , ( TT @ VP ! x ! @ TT
0x0e0c8c…0e0e20 Dummy {f00=0x0077, f01=0x018e, f02=» ^P ! ! t , ( _p 1T @ ^X @ XP @ ZT ! , ( ; ! A _ A ^ B A T @ D * & T [ XT _2 _6 @ R l A Z A T X t , ( y ! XD Y _N @ TT X , ( ! P ! x# T @ T ! _ ! , (
0x0e0e20…0e0fb4 (2, 50) Dummy {f00=0x0089, f01=0x0190, f02=» ECBBA DC:MOT, , ( % T 4_ b A R C & , ( * -H B B A d A f A h A X A V , ( I Z ! ! A T_^ Y Y " , ( H g <W @ T ! X ! X , ( Z X X X _ @ R
0x0e0fb4…0e1148 Dummy {f00=0x0089, f01=0x018e, f02=» Y 4 @ v , ( U @ ZT @ j A h @ h A j A Z , ( ! T P P P P F , ( 5 P 1 A h @ h ]6W P v , ( U _@ @ @ h E ! P ! 4 , ( u _$ ! 2_l 1 A ^T 0W ;W , (
0x0e1148…0e12dc Dummy {f00=0x0089, f01=0x0190, f02=» f , ( j @ hT @ ! 8 ! W - ! , ( x ! W 0 " W R 8 , ( 5 ~T }T T W ! P h TASCII , ( U @ " ! " :A *@ H T 0 ! , ( T s W R ! A h @ f @ hU ,
0x0e12dc…0e1470 Dummy {f00=0x0089, f01=0x0190, f02=» 8 j , ( ! X ! 9a D t ! X ! , ( P ! T & ! _P B J B ! ! : IH1501 6 j INTSAVL ~ SAVE8 , ( / 4 A " $ 2J T A ` IH1502 ^ , ( @ K T P 4 ! x A "
0x0e1470…0e1604 Dummy {f00=0x0089, f01=0x0190, f02=»P ^ 2 _ " t , ( ! 1 4 A @ ` @ P DC15ON D , ( 0 M A 4 $ @ ` X , ( " @ P $ Y N_ @ A , ( J ! @ T x < @ A , ( P A A a
0x0e1604…0e1798 Dummy {f00=0x0089, f01=0x0190, f02=» A ` ! T ' x DW1500 , ( A A ` 4 , & " , ( & :f"? H ! "? H ! 4 ABC , ( ' DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , ( '9 UVWXYZ@,
0x0e1798…0e192c Dummy {f00=0x0089, f01=0x0190, f02=» H D ! l B GP> M D QP UP8 YP> ]PH c l i kW qP H D !!7 uP yP, P W W W| l P P P8 'T ' 'V V H D ! 'V 'V P P 'T 'X N +Qh / 3 A X MP i sP N P H D ! Wb
0x0e192c…0e1ac0 Dummy {f00=0x0089, f01=0x0190, f02=» D / H 1W T P P Tf Tb H D !T P TR TL TD T@ T8 P l B H D !y T % /P 5P ; I OP S Y ]TD e oP( s H D !xP uP" T P P P
0x0e1ac0…0e1c54 (2, 51) Dummy {f00=0x008a, f01=0x0190, f02=»T P j !T, -P 5T0 9 = M B r H D ! ]T TH P T T P j F P . H D ! j T T # M Q j kW w F P< T6 R0 P T$ T W z H D !( P P T T2 !P4 'PJ -PL 3P 9P. MW SP Y e g
0x0e1c54…0e1de8 Dummy {f00=0x008a, f01=0x4124, f02=»T0 KW, Q mT s ^ H D !# wW }R U< P T H D !8 P T ' / ET KT QPF Y l sP P W P 'V 'V 'V f H D !s P 'V 'V 'V P 'T + X A X q z P P T ' ' ' ' 'U'Z 'W'X
0x0e1de8…0e1f7c Dummy {f00=0x008a, 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
0x0e1f7c…0e2110 Dummy {f00=0x008a, 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
0x0e2110…0e22a4 Dummy {f00=0x008a, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b CHRT1 r , ( CHRT2 , ( ! , ( 1
0x0e22a4…0e2438 Dummy {f00=0x008a, f01=0x018e, f02=» r , ( a , ( q B HALTN r SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA
0x0e2438…0e25cc Dummy {f00=0x008a, f01=0x018e, f02=» SCTNOP SCTPSZ SCTMMC , SCTLACL @ SCTMMP T SCTLAP h SCTNPE | SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x0e25cc…0e2760 Dummy {f00=0x008a, f01=0x4084, f02=» SCTDCT _ 8 N n@ E | SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x0e2760…0e28f4 (2, 52) Dummy {f00=0x008a, f01=0x2008, f02=» . L = KMD20 DATE = 81 01 12 1216PACK NBR = 0001 0 O
0x0e28f4…0e2a88 Dummy {f00=0x008a, 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
0x0e2a88…0e2c1c Dummy {f00=0x008a, 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
0x0e2c1c…0e2db0 Dummy {f00=0x008a, 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*
0x0e2db0…0e2f44 Dummy {f00=0x008a, 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
0x0e2f44…0e30d8 Dummy {f00=0x008a, 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
0x0e30d8…0e326c Dummy {f00=0x008a, 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
0x0e326c…0e3400 Dummy {f00=0x008a, 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
0x0e3400…0e3594 (2, 53) Dummy {f00=0x007d, 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
0x0e3594…0e3728 Dummy {f00=0x007d, 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
0x0e3728…0e38bc Dummy {f00=0x007d, 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
0x0e38bc…0e3a50 Dummy {f00=0x007d, 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
0x0e3a50…0e3be4 Dummy {f00=0x007d, 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 *
0x0e3be4…0e3d78 Dummy {f00=0x007d, 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
0x0e3d78…0e3f0c Dummy {f00=0x007d, 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
0x0e3f0c…0e40a0 Dummy {f00=0x007d, 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
0x0e40a0…0e4234 (2, 54) Dummy {f00=0x007f, 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
0x0e4234…0e43c8 Dummy {f00=0x007f, 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
0x0e43c8…0e455c Dummy {f00=0x007f, 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
0x0e455c…0e46f0 Dummy {f00=0x007f, 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
0x0e46f0…0e4884 Dummy {f00=0x007f, 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
0x0e4884…0e4a18 Dummy {f00=0x007f, 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
0x0e4a18…0e4bac Dummy {f00=0x007f, 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
0x0e4bac…0e4d40 Dummy {f00=0x007f, 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
0x0e4d40…0e4ed4 (2, 55) Dummy {f00=0x008a, 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
0x0e4ed4…0e5068 Dummy {f00=0x008a, 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*
0x0e5068…0e51fc Dummy {f00=0x008a, 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
0x0e51fc…0e5390 Dummy {f00=0x008a, 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
0x0e5390…0e5524 Dummy {f00=0x008a, 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
0x0e5524…0e56b8 Dummy {f00=0x008a, 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
0x0e56b8…0e584c Dummy {f00=0x008a, 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
0x0e584c…0e59e0 Dummy {f00=0x008a, 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*
0x0e59e0…0e5b74 (2, 56) Dummy {f00=0x008b, 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
0x0e5b74…0e5d08 Dummy {f00=0x008b, 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
0x0e5d08…0e5e9c Dummy {f00=0x008b, 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
0x0e5e9c…0e6030 Dummy {f00=0x008b, 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
0x0e6030…0e61c4 Dummy {f00=0x008b, 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
0x0e61c4…0e6358 Dummy {f00=0x008b, f01=0x4100, f02=» J F IDENT DVGP03 REL 9.2 79-11-16 870105040920 DVGP03K R DVGP03K d GPADN x * & GP % @ 4 ( 4 @ ECB ADD
0x0e6358…0e64ec Dummy {f00=0x008b, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x0e64ec…0e6680 Dummy {f00=0x008b, f01=0x4054, f02=» 0 z , ( x * 8 + 9 > >@ P TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x0e6680…0e6814 (2, 57) Dummy {f00=0x008b, f01=0x0190, f02=» 8 j , ( ! X ! 9a D t ! X ! , ( P ! T & ! _P B J B ! ! : IH1501 6 j INTSAVL ~ SAVE8 , ( / 4 A " $ 2J T A ` IH1502 ^ , ( @ K T P 4 ! x A "
0x0e6814…0e69a8 Dummy {f00=0x008b, f01=0x0190, f02=»P ^ 2 _ " t , ( ! 1 4 A @ ` @ P DC15ON D , ( 0 M A 4 $ @ ` X , ( " @ P $ Y N_ @ A , ( J ! @ T x < @ A , ( P A A a
0x0e69a8…0e6b3c Dummy {f00=0x008b, f01=0x0190, f02=» A ` ! T ' x DW1500 , ( A A ` 4 , & " , ( & :f"? H ! "? H ! 4 ABC , ( ' DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , ( '9 UVWXYZ@,
0x0e6b3c…0e6cd0 Dummy {f00=0x008b, f01=0x0190, f02=» H D ! l B GP> M D QP UP8 YP> ]PH c l i kW qP H D !!7 uP yP, P W W W| l P P P8 'T ' 'V V H D ! 'V 'V P P 'T 'X N +Qh / 3 A X MP i sP N P H D ! Wb
0x0e6cd0…0e6e64 Dummy {f00=0x008b, f01=0x0190, f02=» D / H 1W T P P Tf Tb H D !T P TR TL TD T@ T8 P l B H D !y T % /P 5P ; I OP S Y ]TD e oP( s H D !xP uP" T P P P
0x0e6e64…0e6ff8 Dummy {f00=0x008b, f01=0x0190, f02=»T P j !T, -P 5T0 9 = M B r H D ! ]T TH P T T P j F P . H D ! j T T # M Q j kW w F P< T6 R0 P T$ T W z H D !( P P T T2 !P4 'PJ -PL 3P 9P. MW SP Y e g
0x0e6ff8…0e718c Dummy {f00=0x008b, f01=0x4124, f02=»T0 KW, Q mT s ^ H D !# wW }R U< P T H D !8 P T ' / ET KT QPF Y l sP P W P 'V 'V 'V f H D !s P 'V 'V 'V P 'T + X A X q z P P T ' ' ' ' 'U'Z 'W'X
0x0e718c…0e7320 Dummy {f00=0x008b, f01=0x0190, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x0e7320…0e74b4 (2, 58) Dummy {f00=0x008b, f01=0x0190, f02=»MAX 4 WORDS | PDMT150 EQU * P LDR* A10,A4 ( P CWR* A10,A7 < P ABL(NE) DMT250 NO MATCH P P SUK A2,1 p . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P*
0x0e74b4…0e7648 Dummy {f00=0x008b, f01=0x0190, f02=» DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO 8 P LDK A2,0 FILE EXTENT NUMBER R P RF DMT167 v . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN
0x0e7648…0e77dc Dummy {f00=0x008b, f01=0x0190, f02=» P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS P LDK A7,9 B * P ABL DMTASX MORE THAN 4 EXTENTS EXIST T PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x0e77dc…0e7970 Dummy {f00=0x008b, f01=0x0190, f02=» LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 $ P LD A2,TASSEX,A1 > $ P RF(NZ) DMT250 NOT FIRST EXTENT V P EJECT ~ P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB *
0x0e7970…0e7b04 Dummy {f00=0x008b, f01=0x0190, f02=»FDBSTA PDMT200 EQU * P LDR* A5,A12 " P ANK A5,/01 6 P RF(Z) DMT210 FREE J P LD A2,FDBEXT,A12 d P CW A2,TASVOL,A6 ~ " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC
0x0e7b04…0e7c98 Dummy {f00=0x008b, f01=0x0190, f02=»OUND j PDMT205 EQU * P LDK A7,5 FILE CODE USED P ABL DMTASX @ P* T $ PDMT210 LDR* A12,A12 GET NEXT FDB ^ P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P
0x0e7c98…0e7e2c Dummy {f00=0x008b, f01=0x0190, f02=» P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 F P ABL DMTASX NO FDB AVAILABLE X ( P* INITIALIZE FDB ZERO FROM FDB+2 | P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL P
0x0e7e2c…0e7fc0 Dummy {f00=0x008b, f01=0x0190, f02=»DMT233 PDMT237 EQU * P LDKL A2,/8000 " P* DEV NOT BUSY 8 P ST A2,DWTST,A12 P P LDKL A2,TIODM h P ST A2,DWTADR,A12 ~ P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 P
0x0e7fc0…0e8154 (2, 59) Dummy {f00=0x008b, f01=0x0190, f02=» LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,VTBLF,A4 2 P SC A2,FDBBLF,A12 J P LC A2,VTNIF,A4 d P SC A2,FDBNIF,A12 | P LD A2,VTKA,A4 P ST A2,FDBKA,A12 P LD A2,TASVRN P ST A2,FDBVTO,A12 P* P IFT MMUPA
0x0e8154…0e82e8 Dummy {f00=0x008b, f01=0x0004, f02=» x
0x0e82e8…0e847c Dummy {f00=0x008b, f01=0x0190, f02=» 2 P IDENT DMINIT REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P*
0x0e847c…0e8610 Dummy {f00=0x008b, f01=0x018e, f02=»FDB:S IN THE FDB AREA z > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK ` , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS CALLED AS A PFINIT ROUTINE P* " P
0x0e8610…0e87a4 Dummy {f00=0x008b, f01=0x0190, f02=» P EXTRN FDBSTA P EXTRN FDBEND P EXTRN CURBUF 0 P EXTRN BUFDMI F P EXTRN BUFSNR P EXTRN BUFOR r P EXTRN TASBLK P EXTRN TASQUE P EXTRN CRNQUE,CRNEND P EXTRN CRBUFL P EJECT P* P* P*
0x0e87a4…0e8938 Dummy {f00=0x008b, f01=0x0190, f02=» P* DIV W. 2 FOR 16 K LIMIT P* ( P LDR A5,A4 2 P SRL A5,1 D P LDR A1,A6 V P SRL A1,1 h P CWR A5,A1 z " P RF(G) DMIN40 END OF FDB AREA P STR A4,A3 CHAIN P LDR A3,A4 P RB DMIN30 PDMIN40 EQU * P SUR A
0x0e8938…0e8acc Dummy {f00=0x008b, f01=0x0190, f02=»ALIZATIONS IF POWER FAIL RESTART P* ( P LD A1,INIFLG 2 P RF(Z) DMINEX H P LDKL A2,QFDBFL FDB LENGTH ^ P* $ P* CHAIN FDB:S IN THE FDB AREA P* P LDKL A3,FDBSTA P LDKL A6,FDBEND P CF A15,DMIN30 P*
0x0e8acc…0e8c60 Dummy {f00=0x008b, f01=0x0190, f02=» P CF A15,DMIN30 P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS $ P* d P LDKL A2,/FFFE n P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 P CM BU
0x0e8c60…0e8df4 (2, 60) Dummy {f00=0x008a, 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
0x0e8df4…0e8f88 Dummy {f00=0x008a, f01=0x0002, f02=» P
0x0e8f88…0e911c Dummy {f00=0x008a, 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
0x0e911c…0e92b0 Dummy {f00=0x008a, f01=0x0190, f02=» * & 5 H $R M A D TLDS15 T 6 PAG:QB@ J TLDS20 d PAG:PA p , ( K B _ $P D % 1 I SCTMMP SCTNPE , ( eB@ D " @ @ - U
0x0e92b0…0e9444 Dummy {f00=0x008a, f01=0x402e, f02=» /W^ 7R WP yU @ * TLDS15 T 6 PAG:QB@ J TLDS20 d PAG:PA p , ( K B _ $P D % 1 I SCTMMP SCTNPE , ( eB@ D " @ @ - U
0x0e9444…0e95d8 Dummy {f00=0x008a, f01=0x2008, f02=»
0x0e95d8…0e976c Dummy {f00=0x008a, 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
0x0e976c…0e9900 Dummy {f00=0x008a, f01=0x2008, f02=»
0x0e9900…0e9a94 (2, 61) Dummy {f00=0x008d, f01=0x0190, f02=»AME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 , P CWR* A10,A7 @ P ABL(NE) DMT250 NO MATCH T P SUK A2,1 t . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P
0x0e9a94…0e9c28 Dummy {f00=0x008d, f01=0x0190, f02=»F(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO < P LDK A2,0 FILE EXTENT NUMBER V P RF DMT167 z . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAV
0x0e9c28…0e9dbc Dummy {f00=0x008d, f01=0x0190, f02=»1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS " P LDK A7,9 F * P ABL DMTASX MORE THAN 4 EXTENTS EXIST X PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x0e9dbc…0e9f50 Dummy {f00=0x008d, f01=0x0190, f02=» P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 ( P LD A2,TASSEX,A1 B $ P RF(NZ) DMT250 NOT FIRST EXTENT Z P EJECT P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB
0x0e9f50…0ea0e4 Dummy {f00=0x008d, f01=0x0190, f02=»A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 & P ANK A5,/01 : P RF(Z) DMT210 FREE N P LD A2,FDBEXT,A12 h P CW A2,TASVOL,A6 " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME
0x0ea0e4…0ea278 Dummy {f00=0x008d, f01=0x0190, f02=»DB FOUND n PDMT205 EQU * P LDK A7,5 FILE CODE USED $ P ABL DMTASX D P* X $ PDMT210 LDR* A12,A12 GET NEXT FDB b P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB
0x0ea278…0ea40c Dummy {f00=0x008d, f01=0x0190, f02=» v P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 J P ABL DMTASX NO FDB AVAILABLE ( P* INITIALIZE FDB ZERO FROM FDB+2 P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL
0x0ea40c…0ea5a0 Dummy {f00=0x008d, f01=0x0190, f02=» RB DMT233 PDMT237 EQU * P LDKL A2,/8000 & P* DEV NOT BUSY < P ST A2,DWTST,A12 T P LDKL A2,TIODM l P ST A2,DWTADR,A12 P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01
0x0ea5a0…0ea734 (2, 62) Dummy {f00=0x0060, f01=0x018e, f02=» 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (DMI,FC) " P DATA 0,0,0 THREE MORE ENTRIES 8 6 PTASCXO DATA 0 CURRENT OFFSET IN TASSEX AND TASXLB ^ 0 PTASSEX DATA 0 SECTION NUMBER, EXTENT NUMBER * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,
0x0ea734…0ea8c8 Dummy {f00=0x0060, f01=0x0190, f02=» PTASFDB DATA 0 FDB ADDRESS $ PTASVRL DATA 0 VTOC RECORD LENGTH & PTASVLE DATA 0 VTOC LENGTH N PTASVRN DATA 0 VTOC RECORD NO p PTASECB DATA 0,0 ECBFC,ECBBA P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 0 PTA
0x0ea8c8…0eaa5c Dummy {f00=0x0060, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x0eaa5c…0eabf0 Dummy {f00=0x0060, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x0eabf0…0ead84 Dummy {f00=0x0060, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x0ead84…0eaf18 Dummy {f00=0x0060, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x0eaf18…0eb0ac Dummy {f00=0x0060, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x0eb0ac…0eb240 Dummy {f00=0x0060, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x0eb240…0eb3d4 (2, 63) Dummy {f00=0x009d, 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 >
0x0eb3d4…0eb568 Dummy {f00=0x009d, 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
0x0eb568…0eb6fc Dummy {f00=0x009d, 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
0x0eb6fc…0eb890 Dummy {f00=0x009d, 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
0x0eb890…0eba24 Dummy {f00=0x009d, 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
0x0eba24…0ebbb8 Dummy {f00=0x009d, 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 "
0x0ebbb8…0ebd4c Dummy {f00=0x009d, 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
0x0ebd4c…0ebee0 Dummy {f00=0x009d, 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
0x0ebee0…0ec074 (2, 64) Dummy {f00=0x0061, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x0ec074…0ec208 Dummy {f00=0x0061, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x0ec208…0ec39c Dummy {f00=0x0061, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x0ec39c…0ec530 Dummy {f00=0x0061, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x0ec530…0ec6c4 Dummy {f00=0x0061, f01=0x2008, f02=» *
0x0ec6c4…0ec858 Dummy {f00=0x0061, f01=0x0190, f02=» P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 > P LD A1,4,A4 R P* f P IFT CPU852=1 p P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P*
0x0ec858…0ec9ec Dummy {f00=0x0061, f01=0x0190, f02=» A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS X P* t P* EXIT PARAMETERS:- ~ P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* PFNDDWT
0x0ec9ec…0ecb80 Dummy {f00=0x0061, f01=0x0190, f02=»GTH v P* P IFT MMUPAG=1 & P ELR A2,A8 LOAD FILE CODE FROM ECB , P XIF V P* b P IFT MMUPAG=0 l ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P EJECT MSUBS P* P* PFND100 SUK A1,4 ( P R
0x0ecb80…0ecd14 (2, 65) Dummy {f00=0x00a1, f01=0x0190, f02=»ATA /0E10 P DATA /1214 P DATA /1616 & P DATA /1616 : P DATA /0218 N P DATA /181A b P DATA /1C1E v P DATA /2022 P DATA /2426 P DATA /281A SET LRN P* $ PNOOFOR EQU 25 NO OF ORDER CODES P*
0x0ecd14…0ecea8 Dummy {f00=0x00a1, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* P* f P* FDB OFFSET DEFINITIONS p P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER
0x0ecea8…0ed03c Dummy {f00=0x00a1, f01=0x0190, f02=» l 0 PFDBTNR EQU START+23 TASK NUMBER CALLING TASK & PFDBVTO EQU START+24 VTOC RECORD NO < 4 PFDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER f 0 PFDBEXT EQU START+28 FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME F
0x0ed03c…0ed1d0 Dummy {f00=0x00a1, f01=0x0190, f02=»+53 LAST RECORD NUMBER * PFDBNIF EQU START+52 NO OF INDEX FILES $ PFDBEAL EQU START+56 EA LINK ROOT L & PFDBCRL EQU START+58 CRN LINK ROOT t 0 PFDBKA EQU START+60 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START+62 ADDRESS OF MASTER INDEX 0 PFD
0x0ed1d0…0ed364 Dummy {f00=0x00a1, f01=0x0190, f02=»AND REL BUFFER FLAGS p , PFDBMRN EQU START+75 LAST REC NR IN FILE " PFDBMRO EQU START+78 MAX FDBRRO L , PFDBMEC EQU START+80 MMU ECB DISPLACEMENT r < PFDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS P* & P* CRN BUFFER OFFSET DEFINI
0x0ed364…0ed4f8 Dummy {f00=0x00a1, f01=0x0190, f02=» P EJECT P* P************* P* TIODM * 2 P************* H P* ^ P* h ( P DATA 0 DATA MANAGEMENT DEVICE INDEX r & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14
0x0ed4f8…0ed68c Dummy {f00=0x00a1, f01=0x018e, f02=» A1,A2 P LD A3,2,A1 P CW A3,DWTTDM,A6 " P RF(E) TIOD10 THIS TASK : P ADK A2,2 NO Z P RB TIOD05 TRY NEXT n PTIOD10 EQU * P LC A1,TTB:ID,A3 GET TASK ID P CCK A1,'##' ( P RF(E) TIO13 JUMP IF DMTASK CALLING P*
0x0ed68c…0ed820 Dummy {f00=0x00a1, f01=0x0190, f02=» P LDKL A4,/4000 REQ BUSY BIT PTIO11 EQU * ( P SUK A3,2 < P RF(N) TIO13 ALL FDB READY N P LDR* A5,A1 FDB ADDR p P RF(E) TIO12 NO FDB P SC A2,FDBTNR,A5 TASK ID " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A
0x0ed820…0ed9b4 (2, 66) Dummy {f00=0x00a1, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD
0x0ed9b4…0edb48 Dummy {f00=0x00a1, f01=0x0190, f02=»BI TIODMF,A2 BRANCH TO DM FUNCTION P EJECT * P* 8 $ PIXRARE EQU * INDEXED RANDOM READ B P LD A3,ECBCW2,A8 =1 j P ANK A3,/FF REQ KEY LGTH =1 P LD A4,FDBRLE,A6 =1 P SUK A4,6 MAX LGTH =1 P CWR A3,A4 =1 P RF(NG) IXRAR1
0x0edb48…0edcdc Dummy {f00=0x00a1, f01=0x0190, f02=»GET USER KEY ADDRESS 0 P LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT P ADR A2,A6 ADD FDB ADDRESS P P* =1 r 2 P CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA P XIF P* $ PDELIXR EQU * DELETE INDEX RECORD P* $ PINSIXR E
0x0edcdc…0ede70 Dummy {f00=0x00a1, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x0ede70…0ee004 Dummy {f00=0x00a1, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x0ee004…0ee198 Dummy {f00=0x00a1, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x0ee198…0ee32c Dummy {f00=0x00a1, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x0ee32c…0ee4c0 Dummy {f00=0x00a1, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x0ee4c0…0ee654 (2, 67) Dummy {f00=0x008f, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x0ee654…0ee7e8 Dummy {f00=0x008f, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x0ee7e8…0ee97c Dummy {f00=0x008f, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x0ee97c…0eeb10 Dummy {f00=0x008f, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x0eeb10…0eeca4 Dummy {f00=0x008f, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x0eeca4…0eee38 Dummy {f00=0x008f, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x0eee38…0eefcc Dummy {f00=0x008f, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x0eefcc…0ef160 Dummy {f00=0x008f, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x0ef160…0ef2f4 (2, 68) Dummy {f00=0x008f, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x0ef2f4…0ef488 Dummy {f00=0x008f, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x0ef488…0ef61c Dummy {f00=0x008f, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x0ef61c…0ef7b0 Dummy {f00=0x008f, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x0ef7b0…0ef944 Dummy {f00=0x008f, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x0ef944…0efad8 Dummy {f00=0x008f, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x0efad8…0efc6c Dummy {f00=0x008f, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x0efc6c…0efe00 Dummy {f00=0x008f, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x0efe00…0eff94 (2, 69) Dummy {f00=0x005f, f01=0x0190, f02=»1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN $ P SUR A8,A8 NO BUFFER =3 B P ABL DMTASX b PDMT010 EQU * v P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF
0x0eff94…0f0128 Dummy {f00=0x005f, f01=0x0190, f02=»L A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 : 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) L P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P S
0x0f0128…0f02bc Dummy {f00=0x005f, f01=0x0190, f02=»2 ~ P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER * P CF A14,DMTIOC I/O CHECK P LD A2,VLVER,A3 VERSION | & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERROR RE
0x0f02bc…0f0450 Dummy {f00=0x005f, f01=0x018e, f02=»OC BASE ~ . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH B P ST A9,TASVRL l P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6,TAS
0x0f0450…0f05e4 Dummy {f00=0x005f, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED , P ST A1,TASCVO UPDATE TASCVO V $ P LDK A7,7 TOO MANY FILE SECTIONS z P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x0f05e4…0f0778 Dummy {f00=0x005f, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* & P ADKL A7,'#D' 0 P LKM F P DATA -4 R P DATA DMTASS b P LKM v P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A8
0x0f0778…0f090c Dummy {f00=0x005f, f01=0x0190, f02=»A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS 6 P ADKL A3,BUFSTA Z P ST A3,ECBBA,A8 r P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x0f090c…0f0aa0 Dummy {f00=0x005f, f01=0x0190, f02=» RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR ( PDMT135 EQU * N P ADK A3,2 SKIP CYLID b PDMT120 EQU * ~ ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 P
0x0f0aa0…0f0c34 (2, 70) Dummy {f00=0x008c, f01=0x018e, f02=»ERE UNLOCKED BEFORE % f P* & P LDR A5,A7 & & P LDR A6,A8 SAVE & 8 P LDK A1,3 LOOP & P PDMTASY EQU * & f P LC A2,TASLFD,A1 FILE CODES & z P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK A7,
0x0f0c34…0f0dc8 Dummy {f00=0x008c, f01=0x0190, f02=» P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 0 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' : P* ' f PDMT400 EQU * ' p P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORRECT RE
0x0f0dc8…0f0f5c Dummy {f00=0x008c, f01=0x018e, f02=» ' p " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( . ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( @ P SUK A2,2 ( l PDMT405 EQU * ( ~ P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4,MXI
0x0f0f5c…0f10f0 Dummy {f00=0x008c, f01=0x0190, f02=» PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) . P LDKL A2,/FFFE ) P " P ANRS A2,A3 CLEAR FDB USE BIT ) f P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440 NO B
0x0f10f0…0f1284 Dummy {f00=0x008c, f01=0x0190, f02=»ELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ P CF A15,QTJOB QUEUE CALLING TASK * J P ENB * r P LKM * ~ P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 * P
0x0f1284…0f1418 Dummy {f00=0x008c, f01=0x0190, f02=»CT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + : < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + v P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR TO
0x0f1418…0f15ac Dummy {f00=0x008c, f01=0x0190, f02=»C A3,TASECB+1 + " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , < P LD A3,ECBBA,A8 , ` P SUKL A3,BUFSTA , x " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD A6,FDB
0x0f15ac…0f1740 Dummy {f00=0x008c, f01=0x0190, f02=»A1 GET MOST SIGN BIT , P ADK A2,5 - P SRL A2,1 NO OF WORDS NEEDED - . P RF(Z) DMT570 WRONG SIZE - R P INH - r P LD A4,MXIND LENGTH MXIND - ~ P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY - P
0x0f1740…0f18d4 (2, 71) Dummy {f00=0x0090, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x0f18d4…0f1a68 Dummy {f00=0x0090, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x0f1a68…0f1bfc Dummy {f00=0x0090, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x0f1bfc…0f1d90 Dummy {f00=0x0090, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x0f1d90…0f1f24 Dummy {f00=0x0090, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x0f1f24…0f20b8 Dummy {f00=0x0090, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x0f20b8…0f224c Dummy {f00=0x0090, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x0f224c…0f23e0 Dummy {f00=0x0090, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x0f23e0…0f2574 (2, 72) Dummy {f00=0x0093, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x0f2574…0f2708 Dummy {f00=0x0093, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x0f2708…0f289c Dummy {f00=0x0093, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x0f289c…0f2a30 Dummy {f00=0x0093, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x0f2a30…0f2bc4 Dummy {f00=0x0093, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x0f2bc4…0f2d58 Dummy {f00=0x0093, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x0f2d58…0f2eec Dummy {f00=0x0093, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x0f2eec…0f3080 Dummy {f00=0x0093, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x0f3080…0f3214 (2, 73) Dummy {f00=0x0094, f01=0x0190, f02=»ST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 " P LDK A3,8 MAX NO OF INDE*2 6 L PDMT620 EQU * 6 n P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(NZ) DMT620
0x0f3214…0f33a8 Dummy {f00=0x0094, f01=0x0190, f02=» 6 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 ( P SUK A5,2 7 < " P RF(N) DMT635 ALL FDB UPPDATED 7 N P LDR A1,A10 FDB DATA 7 t P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF 7 P A
0x0f33a8…0f353c Dummy {f00=0x0094, f01=0x0190, f02=»DMT635 EQU * 7 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 , P ENB ENB 8 ` P LD A1,TASMXA 8 r ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A7,1 A7=11=
0x0f353c…0f36d0 Dummy {f00=0x0094, f01=0x018e, f02=»ILE 8 v & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 6 P ANKL A1,/6000 9 X P SLL A1,1 9 n $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P LDR A1,A12
0x0f36d0…0f3864 Dummy {f00=0x0094, f01=0x0190, f02=» P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : 2 P SUK A2,1 : L P ST A2,FDBSNR,A12 : ^ P LDR A1,A12 : x " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR A3,A1 :
0x0f3864…0f39f8 Dummy {f00=0x0094, f01=0x414a, f02=»,FDBMRN+1,A12 : P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; P* ; X P LD A6,FDBRLE,A12 REC LENGTH ; b P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ; P ST A2
0x0f39f8…0f3b8c Dummy {f00=0x0094, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x0f3b8c…0f3d20 Dummy {f00=0x0094, 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
0x0f3d20…0f3eb4 (2, 74) Dummy {f00=0x0095, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x0f3eb4…0f4048 Dummy {f00=0x0095, f01=0x0002, f02=»
0x0f4048…0f41dc Dummy {f00=0x0095, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x0f41dc…0f4370 Dummy {f00=0x0095, f01=0x40e8, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P* P* P* LEVE
0x0f4370…0f4504 Dummy {f00=0x0095, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P*
0x0f4504…0f4698 Dummy {f00=0x0095, f01=0x2008, f02=» DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L P DATA 0 OUTPUT QUEUE LINK j P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P*
0x0f4698…0f482c Dummy {f00=0x0095, f01=0x0190, f02=»D A3,4,A8 REQUESTED LENGTH # P CWK A3,130 $ " " P ABL(NE) END:10 ILLEGAL LENGTH $ 6 P LD A4,2,A8 BUFFER ADDRESS $ P RB FD:045 $ ~ P XIF $ P* $ P EJECT DRFD01 $ P* $ P*************** $ P* * $ P* TEST STATUS *
0x0f482c…0f49c0 Dummy {f00=0x0095, f01=0x018e, f02=» P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % ( " P ANKL A3,/200 WRITE PROTECTED? % R P ORS A3,DWTRCW,A6 % x P IFF TOSS+IBM=0 % P RF LOA:05 READ VOLUME NAME % P* % PFD:075 EQU * % P XIF % $ P LD A1,DWTRCW,A6
0x0f49c0…0f4b54 (2, 75) Dummy {f00=0x0096, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x0f4b54…0f4ce8 Dummy {f00=0x0096, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x0f4ce8…0f4e7c Dummy {f00=0x0096, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x0f4e7c…0f5010 Dummy {f00=0x0096, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x0f5010…0f51a4 Dummy {f00=0x0096, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x0f51a4…0f5338 Dummy {f00=0x0096, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x0f5338…0f54cc Dummy {f00=0x0096, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x0f54cc…0f5660 Dummy {f00=0x0096, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x0f5660…0f57f4 (2, 76) Dummy {f00=0x0097, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x0f57f4…0f5988 Dummy {f00=0x0097, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x0f5988…0f5b1c Dummy {f00=0x0097, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x0f5b1c…0f5cb0 Dummy {f00=0x0097, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x0f5cb0…0f5e44 Dummy {f00=0x0097, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x0f5e44…0f5fd8 Dummy {f00=0x0097, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x0f5fd8…0f616c Dummy {f00=0x0097, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x0f616c…0f6300 Dummy {f00=0x0097, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x0f6300…0f6494 (2, 77) Dummy {f00=0x00a2, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB
0x0f6494…0f6628 Dummy {f00=0x00a2, f01=0x018e, f02=»EQU * INDEXED INSRERT P IFT MMUPAG=1 P* 4 " P* MOVE KEYS TO FDB KEY AREAS > P* d P LDK A5,8 n PIXINS3 EQU * P LDR A2,A6 FDB DATA P ADR A2,A5 P LD A3,FDBADF,A2 FDB INDEX P RF(Z) IXINS4 NO INDEX P LD A1
0x0f6628…0f67bc Dummy {f00=0x00a2, f01=0x0190, f02=» P LD A3,FDBRLE,A3 REC LGTH P SUK A3,6 KEY LGTH & " P CF A14,MOV:US KEY TO FDB AREA @ PIXINS4 EQU * f P SUK A5,2 z P RB(NZ) IXINS3 MORE INDEXS P XIF P* $ PSEQWRITE EQU * SEQUENTIAL WRITE P* 2 P* GET LRN+1 INTO
0x0f67bc…0f6950 Dummy {f00=0x00a2, f01=0x0190, f02=» x P LDK A1,0 ! P LC A1,FDBMRN,A6 LAST REC NR ! P LD A2,FDBMRN+1,A6 ! > P LDK A6,0 ! X P LC A6,FDBLRN,A5 ! j P LD A7,FDBLRN+1,A5 LRN ! P CF A14,DSUMOD SUBTRACT ! P SUK A2,1 ! P LDR A1,A1 ! P RF(Z) SEQ005 NOT MANY ! P LDKL
0x0f6950…0f6ae4 Dummy {f00=0x00a2, f01=0x0190, f02=»,FDBLRN+1,A6 LRN ! P IFT INDXAC=1 " P RF IXR020 STORE LOG REC NO " . P EJECT " R $ PIXRDNX EQU * INDEXED EREAD NEXT " ` P* " P* GET CRN " P* " P LD A1,FDBADF,A6 FDB ADDR " " P CF A14,CRNGET GET CRN BUFFER " P LDR A4,A2 BUFFA
0x0f6ae4…0f6c78 Dummy {f00=0x00a2, f01=0x0190, f02=»C A5,CRNCIF,A4 " . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT # P LC A1,CRNCIF+1,A4 # H " P LD A2,CRNCIF+2,A4 LOG REC NO # b PIXR020 EQU * # P XIF # P ADK A2,1 # P RF(O) IXR030 OVERFLOW # P RF IXR040 # , PIXR030 ANKL A2,/7FFF REMOVE OV
0x0f6c78…0f6e0c Dummy {f00=0x00a2, f01=0x0190, f02=»NOT CHECK EOF CONDITION # P EJECT $ P* $ . PIXREWR EQU * INDEXED REWRITE $ 8 P* $ PIXDEL EQU * INDEXED DELETE $ f P* $ PRANWRITE EQU * RANDOM WRITE $ P* $ & PRANWRD EQU * DELAYED RANDOM WRITE $ P* $ & PRANDLD EQU * DELAYED
0x0f6e0c…0f6fa0 Dummy {f00=0x00a2, f01=0x018e, f02=» $ P************************* % P* DMTASK ACTIVATION * % * P************************* % L P* % n PTIODMA EQU * % x P* % P* SET EOF IF CRN > LRN % P* % P LDK A1,0 % P LC A1,ECBCW+3,A8 REC NO % P LD A2,ECBCW,A8 DITTO
0x0f6fa0…0f7134 (2, 78) Dummy {f00=0x00a2, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x0f7134…0f72c8 Dummy {f00=0x00a2, f01=0x0002, f02=» H
0x0f72c8…0f745c Dummy {f00=0x00a2, f01=0x0190, f02=» 2 P IDENT DVDI02 REL 9.2 79-11-16 870105040920 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI02 DISPLAY INDICATOR 03 P* P*
0x0f745c…0f75f0 Dummy {f00=0x00a2, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI02 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x0f75f0…0f7784 Dummy {f00=0x00a2, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x0f7784…0f7918 Dummy {f00=0x00a2, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x0f7918…0f7aac Dummy {f00=0x00a2, 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
0x0f7aac…0f7c40 Dummy {f00=0x00a2, 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
0x0f7c40…0f7dd4 (2, 79) Dummy {f00=0x005c, 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
0x0f7dd4…0f7f68 Dummy {f00=0x005c, 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
0x0f7f68…0f80fc Dummy {f00=0x005c, 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
0x0f80fc…0f8290 Dummy {f00=0x005c, 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
0x0f8290…0f8424 Dummy {f00=0x005c, 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
0x0f8424…0f85b8 Dummy {f00=0x005c, f01=0x0190, f02=»N AND ARE V ( P* FOLLOWED BY AN EXIT LKM REQUEST. : P* INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE > & P* ALL I/O ARE MADE IN WAIT MODE | P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 6 P* FOR INDEXED
0x0f85b8…0f874c Dummy {f00=0x005c, f01=0x018e, f02=»SIVE ACCESS CHECK INCLUDED | 2 P* QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED " P EJECT X P* f P*************** p P* ENTRIES * P*************** P* P* P ENTRY DMTASK & P ENTRY SQR EXTERNAL CODE SEQ READ
0x0f874c…0f88e0 Dummy {f00=0x005c, f01=0x0190, f02=» | P***************** P* " P* , P EXTRN SCTTCT,SCTCDT 6 & P EXTRN TTB:ID TASK IDENTIFICATION R P EXTRN TTB:TD,FDBSTA | P EXTRN FNDTID P EXTRN TENDIO P EXTRN FDBECB P EXTRN FDBSNR P EXTRN FDBRRO P E
0x0f88e0…0f8a74 (2, 80) Dummy {f00=0x009a, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x0f8a74…0f8c08 Dummy {f00=0x009a, f01=0x0004, f02=» H P
0x0f8c08…0f8d9c Dummy {f00=0x009a, 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
0x0f8d9c…0f8f30 Dummy {f00=0x009a, 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
0x0f8f30…0f90c4 Dummy {f00=0x009a, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b CHRT1 r , ( CHRT2 , ( ! , ( 1
0x0f90c4…0f9258 Dummy {f00=0x009a, f01=0x018e, f02=» r , ( a , ( q B HALTN r SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA
0x0f9258…0f93ec Dummy {f00=0x009a, f01=0x018e, f02=» SCTNOP SCTPSZ SCTMMC , SCTLACL @ SCTMMP T SCTLAP h SCTNPE | SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x0f93ec…0f9580 Dummy {f00=0x009a, f01=0x4084, f02=» SCTDCT _ 8 N n@ E | SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x0f9580…0f9714 (2, 81) Dummy {f00=0x009a, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x0f9714…0f98a8 Dummy {f00=0x009a, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P**
0x0f98a8…0f9a3c Dummy {f00=0x009a, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL
0x0f9a3c…0f9bd0 Dummy {f00=0x009a, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR
0x0f9bd0…0f9d64 Dummy {f00=0x009a, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* *
0x0f9d64…0f9ef8 Dummy {f00=0x009a, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x0f9ef8…0fa08c Dummy {f00=0x009a, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL
0x0fa08c…0fa220 Dummy {f00=0x009a, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,F
0x0fa220…0fa3b4 (2, 82) Dummy {f00=0x009b, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x0fa3b4…0fa548 Dummy {f00=0x009b, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x0fa548…0fa6dc Dummy {f00=0x009b, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x0fa6dc…0fa870 Dummy {f00=0x009b, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x0fa870…0faa04 Dummy {f00=0x009b, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x0faa04…0fab98 Dummy {f00=0x009b, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x0fab98…0fad2c Dummy {f00=0x009b, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x0fad2c…0faec0 Dummy {f00=0x009b, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x0faec0…0fb054 (2, 83) Dummy {f00=0x00a1, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD
0x0fb054…0fb1e8 Dummy {f00=0x00a1, f01=0x0004, f02=» (
0x0fb1e8…0fb37c Dummy {f00=0x00a1, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x0fb37c…0fb510 Dummy {f00=0x00a1, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x0fb510…0fb6a4 Dummy {f00=0x00a1, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x0fb6a4…0fb838 Dummy {f00=0x00a1, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x0fb838…0fb9cc Dummy {f00=0x00a1, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x0fb9cc…0fbb60 Dummy {f00=0x00a1, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x0fbb60…0fbcf4 (2, 84) Dummy {f00=0x00a2, f01=0x0190, f02=» TABLE % r P EJECT & $ PDMRRRB EQU * RAND READ REL BUFF & P* & D PDMSQRE EQU * SEQUENTIAL READ & N P* & r PDMRDRE EQU * RANDOM READ & | P* & 4 P* CHECK STATUS IF NOT USED THEN ERROR RETURN & P* & P LD A2,FDBRRO,A6 & P AD A2,F
0x0fbcf4…0fbe88 Dummy {f00=0x00a2, f01=0x018e, f02=»A & | P ABL DMTERR ' & PDMT200 LDK A1,/8 INCORRECT LENGTH ' & P CF A14,DMTFRL A2 := RECORD LENGTH ' H P* ' r P* MOVE THE RECORD ' | P* ' P CF A14,DMTREM ' P* ' 0 P* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT ' P* ' PDMT230 E
0x0fbe88…0fc01c Dummy {f00=0x00a2, f01=0x0190, f02=» ' t P* ( P LD A2,FDBSNR,A6 ( ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER ( * P* ( V P* VOLUME LABEL IN BUFFER ( ` H P* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR ( 8 P* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER (
0x0fc01c…0fc1b0 Dummy {f00=0x00a2, f01=0x0190, f02=»OBLK VTOC BLOCKING FACTIOR ( ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER ) " P LDK A1,0 ) N , P CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER ) ` P LDR A3,A2 QUOTIENT ) P LDR A6,A10 FDB ADDR ) P LDR A2,A1 REST ) P RF(Z) DMT240 REST = 0 ) $ P ADK A3,1
0x0fc1b0…0fc344 Dummy {f00=0x00a2, f01=0x0190, f02=» P ST A3,FDBSNR,A6 * P LDK A3,0 * PDMT255 SUK A2,1 * . P RF(Z) DMT260 * F P AD A3,VLVRL-2,A5 * P ADK A3,1 SKIP STATUS BYTE * v P RB DMT255 * PDMT260 ST A3,FDBRRO,A6 * P* * P* RELEASE BUFFER * P* * P LD A3,ECBBA,A9 *
0x0fc344…0fc4d8 Dummy {f00=0x00a2, f01=0x0190, f02=» ADDR * P RB DMT020 READ VTOC SECTOR + P EJECT + 2 PDMT270 EQU * + @ P SUK A7,QRV + T $ P ABL(Z) DMT500 READ VTOC RECORD + h P* CLOSE FILE + & P* UPDATE VTOC LAST RECORD NUMBER + & P* AND WRITE SECTOR BACK ON DISC + P AD A5,FDBRRO,
0x0fc4d8…0fc66c Dummy {f00=0x00a2, f01=0x0190, f02=»E FILE. WRITE VTOC + P* , P LDK A7,/95 , $ P LKM , 8 P DATA 1 , D P* , T P LDR A1,A6 FDBADDRESS IN A1 , ^ & P CF A14,DMTIOT CHECK RETURN CODES , P LDR A1,A1 , P RF(NZ) DMT724 ERROR , PDMT720 EQU * , P LD A1,DWTTDM,A6 TTAB ADDR
0x0fc66c…0fc800 Dummy {f00=0x00a2, f01=0x0190, f02=» A2,1 0 OR 1 , P ECR A2,A2 =1 END - P LC A2,ECBFC,A9 FILE CODE - . " P LDK A5,0 TRY LOCAL AND GLOBAL - P . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB - v & P LDR A13,A5 LOCAL/GLOBAL INDICATOR - P LDR A2,A2 - P RF(NZ) DMT725 FC FOUND - P LDK
0x0fc800…0fc994 (2, 85) Dummy {f00=0x00a3, 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
0x0fc994…0fcb28 Dummy {f00=0x00a3, 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
0x0fcb28…0fccbc Dummy {f00=0x00a3, 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
0x0fccbc…0fce50 Dummy {f00=0x00a3, 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
0x0fce50…0fcfe4 Dummy {f00=0x00a3, 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
0x0fcfe4…0fd178 Dummy {f00=0x00a3, 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
0x0fd178…0fd30c Dummy {f00=0x00a3, 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
0x0fd30c…0fd4a0 Dummy {f00=0x00a3, 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,
0x0fd4a0…0fd634 (2, 86) Dummy {f00=0x00a3, 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 >
0x0fd634…0fd7c8 Dummy {f00=0x00a3, 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
0x0fd7c8…0fd95c Dummy {f00=0x00a3, 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
0x0fd95c…0fdaf0 Dummy {f00=0x00a3, 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
0x0fdaf0…0fdc84 Dummy {f00=0x00a3, 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
0x0fdc84…0fde18 Dummy {f00=0x00a3, 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 "
0x0fde18…0fdfac Dummy {f00=0x00a3, 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
0x0fdfac…0fe140 Dummy {f00=0x00a3, 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
0x0fe140…0fe2d4 (2, 87) Dummy {f00=0x00a4, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x0fe2d4…0fe468 Dummy {f00=0x00a4, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x0fe468…0fe5fc Dummy {f00=0x00a4, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x0fe5fc…0fe790 Dummy {f00=0x00a4, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x0fe790…0fe924 Dummy {f00=0x00a4, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x0fe924…0feab8 Dummy {f00=0x00a4, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x0feab8…0fec4c Dummy {f00=0x00a4, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x0fec4c…0fede0 Dummy {f00=0x00a4, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x0fede0…0fef74 (2, 88) Dummy {f00=0x00a4, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x0fef74…0ff108 Dummy {f00=0x00a4, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x0ff108…0ff29c Dummy {f00=0x00a4, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x0ff29c…0ff430 Dummy {f00=0x00a4, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x0ff430…0ff5c4 Dummy {f00=0x00a4, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x0ff5c4…0ff758 Dummy {f00=0x00a4, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x0ff758…0ff8ec Dummy {f00=0x00a4, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x0ff8ec…0ffa80 Dummy {f00=0x00a4, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x0ffa80…0ffc14 (2, 89) Dummy {f00=0x00a5, f01=0x0190, f02=»*************** m r " P LD A9,DWTECB,A1 USER ECB ADDR n $ P LD A8,ECBBA,A9 BUFFER ADDR USER n > P LDR A12,A8 n f $ P LD A11,FDBRLE,A1 RECORD LENGTH n z P SUKL A11,6 KEY LENGTH n P LDR A13,A14 n 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS n $ P
0x0ffc14…0ffda8 Dummy {f00=0x00a5, f01=0x0002, f02=»
0x0ffda8…0fff3c Dummy {f00=0x00a5, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 * & ! 1 DVTP01 DVDY01 DVKB0
0x0fff3c…1000d0 Dummy {f00=0x00a5, f01=0x4094, f02=» " @ P 0 0 GH 1 2 * 4 0 | , : @ - ; A F N ~@ DVKB01 * & ! 1 DVTP01 DVDY01 DVKB0
0x1000d0…100264 Dummy {f00=0x00a5, f01=0x2008, f02=»
0x100264…1003f8 Dummy {f00=0x00a5, f01=0x018e, f02=» P ABL(NZ) DMTERR s P* s P* GET NEXT RECORD s & P* s B PINS160 EQU * s L " P LDR A7,A5 NR OF SAME IN NEXT s ` P LDR A1,A6 FDB s P CF A14,RDNXTR GET NEXT RC s P RF INS170 OK s P ABL DEL045 ERROR s PINS170 EQU * s P LDR A
0x1003f8…10058c Dummy {f00=0x00a5, f01=0x0190, f02=» s P* t ( P* CREATE AN INDE XRECORD IN AREA 1 t P* t > P LDR A1,A12 FROM ADDR t H P* t f P LDR A3,A14 t p P ADK A3,2 TO ADDR t P LDR A2,A11 KEY LENGTH t P CF A14,DMTBM MOVE KEY t P LDK A2,0 t P SCR A2,A3 DUMMY t P ADK
0x10058c…100720 Dummy {f00=0x00a5, f01=0x0190, f02=»R t t P LD A2,ECBCW+2,A5 u ( P LD A3,ECBCW,A5 REC NR DATA FILE REC u $ P SCR A2,A7 u P P ADK A7,2 u b P SCR A3,A7 u t P ECR A3,A3 u P SUK A7,1 u P SCR A3,A7 LOG REC NR u P ADK A7,2 u P LDK A1,/FF USED u P SCR A1,A7 STATUS CHAR
0x100720…1008b4 (2, 90) Dummy {f00=0x00a5, f01=0x018e, f02=» " P LDR A11,A3 FIRST REC NR MOVED P LD A12,FDBRRO,A6 OLD OFFSET * P LD A4,FDBMRO,A6 N P ST A4,FDBRRO,A6 MAX OFFSET f $ P CF A14,GTLGRN LAST REC NR MOVED P LDR A8,A2 P LDR A9,A3 REC NR " P ST A12,FDBRRO,A6 RESET OFFSET P LDK
0x1008b4…100a48 Dummy {f00=0x00a5, f01=0x0190, f02=» ~ $ P RF(NZ) DEL290 NOT FIRST RECORD P LDR A1,A5 FDB 0 P CF A14,GTLGRN GET REC NR F P LDR A1,A2 h P LDR A2,A3 z P LDK A6,0 P LDK A7,1 $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 P RF(Z) DEL600 FILE START P LDR A6,A5 FDB A
0x100a48…100bdc Dummy {f00=0x00a5, f01=0x0190, f02=»A14 P ADKL A8,2 ECB ADDR P LDR A12,A12 ( $ P RF(Z) DEL245 BUFFER NOT CHANGED < P* d P* WRITE SECTOR n P* P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB P CF A14,DMTIOZ IO CHECK P LDR A1,
0x100bdc…100d70 Dummy {f00=0x00a5, f01=0x018e, f02=»EASE BUFFER ~ P* P* GET PREVIOUS SECTOR P* > P LDR A1,A5 FDB ADDR H P LDK A3,0 d P CF A14,RDNXTR GET SECTOR v P RF DEL250 OK P LDR A6,A1 FDB ADDR P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P L
0x100d70…100f04 Dummy {f00=0x00a5, f01=0x018e, f02=» PDEL300 EQU * * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET P ADK A4,10 BUFSTA+2 F P ADR A4,A13 RECORD ADDR b & P AD A4,FDBRLE,A5 STATUS CHAR ADDR P LDK A2,/FF P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME I
0x100f04…101098 Dummy {f00=0x00a5, f01=0x0190, f02=» v PDEL600 EQU * P LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x101098…10122c Dummy {f00=0x00a5, f01=0x401c, f02=» XIF P END @ LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x10122c…1013c0 Dummy {f00=0x00a5, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x1013c0…101554 (2, 91) Dummy {f00=0x00a6, f01=0x0190, f02=» S V V W @ @ T < : P S S _ : . !TTP < V W t * & P D r _ 6 Ph W p D W V 8 8 4 D P$ L @ # P H I
0x101554…1016e8 Dummy {f00=0x00a6, f01=0x0190, f02=» T < P / _ T @ A V W W t & PT W f ( D W d T G =h G V d V r < F V f P W f _B V W V t Yr !TTX @ @ T < : !TTX !CC
0x1016e8…10187c Dummy {f00=0x00a6, f01=0x0190, f02=» _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f D W d T V d V r < F V f _2 6 U^ D V 8 8 8 4 D P$ L @ # P H I K T + Y@ _`R& @ @
0x10187c…101a10 Dummy {f00=0x00a6, f01=0x0190, f02=» q > R P >b W >b & 8P D P U & E W ~ V W R 9 W D L ) $ 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 < + +
0x101a10…101ba4 Dummy {f00=0x00a6, f01=0x0190, f02=» W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]stW v P _ @
0x101ba4…101d38 Dummy {f00=0x00a6, f01=0x0190, f02=» P N =H N T _ : 00=H 00 P P _ _ : @ ! P (W ( : > r " h h x @ CRT" @ ! P ` @ E "W ` @ E " > H ^ l r ! H 1 0 1 2 P @ P 0
0x101d38…101ecc Dummy {f00=0x00a6, f01=0x0190, f02=» . , & . .K DC < u(KB *T x x 8 DY
0x101ecc…102060 Dummy {f00=0x00a6, f01=0x0190, f02=» 4x TP 8 DY CRT" P u(KB > H 4 4
0x102060…1021f4 (2, 92) Dummy {f00=0x00a6, 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
0x1021f4…102388 Dummy {f00=0x00a6, f01=0x0190, f02=» f , ( , ( $ ( , 0 4 8 , ( # 8 < h , ( C , ( c , (
0x102388…10251c Dummy {f00=0x00a6, 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
0x10251c…1026b0 Dummy {f00=0x00a6, 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 " , (
0x1026b0…102844 Dummy {f00=0x00a6, f01=0x0190, f02=» h , ( 0 _, W , ( ! # W P @ & 0 8 , ( C T A P P h , ( c _b _J A , ( $T @ W @ , ( % T @ W
0x102844…1029d8 Dummy {f00=0x00a6, 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
0x1029d8…102b6c Dummy {f00=0x00a6, 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 @ & @ @ , (
0x102b6c…102d00 Dummy {f00=0x00a6, 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 ^ ?
0x102d00…102e94 (2, 93) Dummy {f00=0x00b2, f01=0x0190, f02=» ` $ $ W $ H ) P _ " = D 4 Q j_d T = G $ @ V W $ n V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @
0x102e94…103028 Dummy {f00=0x00b2, f01=0x0190, f02=»P A. @ P _b A 9n A :B A @ .V 3 S Y& P4 2 2 S P 3 _ 2 3 4 B A. @ D @ W x A @ : A | > l
0x103028…1031bc Dummy {f00=0x00b2, f01=0x0190, f02=» ^ _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 % : V V 9k! P % _ V V W W r
0x1031bc…103350 Dummy {f00=0x00b2, f01=0x0190, f02=» ~ pP0 F R P R _ W ~ R X4 R _ ` @ ` W W ~ pPn T V W % F R , " E R 6 W ~ R 6 R P R Xv _|W T : W x _ V P I T W z `
0x103350…1034e4 Dummy {f00=0x00b2, f01=0x0190, f02=» 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 : @ V H W z W | CRP W ` ` H W d 2 ;A @
0x1034e4…103678 Dummy {f00=0x00b2, f01=0x0190, f02=» =H N @ ) !TTXX !CCT !UUT d dWh R 2 .:H N P V _ R :h " R YV : v `?A @ W W :b / W : W @ W D
0x103678…10380c Dummy {f00=0x00b2, f01=0x0190, f02=» :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 P x W r x W @ @ % P V , P@ , - 4 ] 4 NY 5
0x10380c…1039a0 Dummy {f00=0x00b2, f01=0x0190, f02=» @ T Y !TTX" A 9 A : @ @ P. @ " P #D " P #E " P #F : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W
0x1039a0…103b34 (2, 94) Dummy {f00=0x00b2, f01=0x0190, f02=» 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 _L @ % P W @ % P !TTT @ @ T
0x103b34…103cc8 Dummy {f00=0x00b2, f01=0x0190, f02=» @ !RRP @ ! T 3 @ & P @ 3 @ 3 YL @ @ T : 0 ` @ P _ 3 S S V V W @ @ T : P S S _ : . !TTP V
0x103cc8…103e5c Dummy {f00=0x00b2, f01=0x0190, f02=» @ # P H I K T + Y@ V p _j V t Y !TTX @ @ T : @ R @ T P / _ T @ A V W W t PT W f ( W d
0x103e5c…103ff0 Dummy {f00=0x00b2, f01=0x0190, f02=» : !TTX !CCTr P, V r 4 U $ $ _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V
0x103ff0…104184 Dummy {f00=0x00b2, f01=0x0190, f02=» + Y@ _`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
0x104184…104318 Dummy {f00=0x00b2, f01=0x0190, f02=» 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 _ / P
0x104318…1044ac Dummy {f00=0x00b2, f01=0x0190, f02=» v ] 6W 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 P P _ _ : @ ! P (W ( : D p
0x1044ac…104640 Dummy {f00=0x00b2, f01=0x0190, f02=» 1 . 2 . P b @ & P X 0 0 1 2 $ * 0 6 V v X a # " `eV " " - - - - , x , .Y DC
0x104640…1047d4 (2, 95) Dummy {f00=0x00b2, f01=0x0190, f02=» 8 DY : N P @ KB =H F b 4 TP V
0x1047d4…104968 Dummy {f00=0x00b2, f01=0x0190, f02=» 2 PDI L ?O_o 8 DY , P 4 GP 4 TP
0x104968…104afc Dummy {f00=0x00b2, f01=0x0190, f02=» P DATA /300D P DATA /3233 P DATA /3435 , P DATA /3637 @ P DATA /3839 T P DATA /ACA9 B12,C13 h P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647
0x104afc…104c90 Dummy {f00=0x00b2, f01=0x408e, f02=»455 P DATA /5657 P DATA /5859 P DATA /5A5C 4 P DATA /5B5D H P DATA /277F D12 P* t END ~@ 7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647
0x104c90…104e24 Dummy {f00=0x00b2, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x104e24…104fb8 Dummy {f00=0x00b2, f01=0x0190, f02=»EGSET v & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN 8 PDSSOPI DSET FC=10 ` PDSSOPO DSET FC=11 z " P FMTCTL INDS=KEYB,OUTDS=SCREEN P* P* P* P* P* P START REGGO P STACK 1
0x104fb8…10514c Dummy {f00=0x00b2, f01=0x0190, f02=»TA DIVISION FOR IBM-3270 EMULATION PACKAGE. z B P* THIS MODULE ALSO CONTAINS THE CREDIT CODED 4 * P* START-UP ROUTINES. z P* H P******************************************************************** P P E
0x10514c…1052e0 Dummy {f00=0x00b2, f01=0x0190, f02=»E F=NO SALDO AT ALL IN KORT . PCCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK $ 0 PCTESTFLG BOOL FALSE T=CONVERSION, TEST MODE V , PCTRVALG BOOL FALSE T: SKOVBO. F: VIBORG . PCFLT46 BOOL FALSE T=SPECIAL FIELD 46,TR=8 . PCFLT48 BOOL FALSE T=SPECIAL
0x1052e0…105474 (2, 96) Dummy {f00=0x00a7, f01=0x0190, f02=»W b X @X$_ nW nP W B " 0 Y , Y . 4 X @:C* WB W> X " " :BW0 X " :BW& X @ X FP _ X D % ^ W c X :B X ! E ( ! Y Y y ? "l @ P: Y " !! P X > Y '? * R>_< @"jX2 a"jW<_J Y " !! P
0x105474…105608 Dummy {f00=0x00a7, f01=0x0190, f02=» X P X " I $ R> y Y < Y ! Td ! ^ Y @ ! ! TR 0 X P p Y , (P ) P @ T X Q $ X X T Y _l Y < 4 "l j " B B r s " T
0x105608…10579c Dummy {f00=0x00a7, f01=0x0190, f02=» Q 1 R> y Y @ r t B X _ ? # X Z&W A ?I # X ' { B C X 4 " # c X # E Y Y ? @ P Y ! P X Y '? * _< @ X2 a W _J Y ! P
0x10579c…105930 Dummy {f00=0x00a7, f01=0x0190, f02=» X P X " I %*'"/N % '"/N ^ Y @ ! ! TR 0 X P p Y P, P P 1P( P W P P 5P y & y X P W` B " P HJ :H B # LJ 9 B Y B Y / P. @J J y @J `J @J P 0P _ % AJ AJ R>_r B Q< &$
0x105930…105ac4 Dummy {f00=0x00a7, f01=0x0190, f02=» S &> Y _& Y & @' 0 A' A' _: X P ( y Y W /N (P 0 ) > $ (P _ ) 1_ $ (X( P _ 0 )_6 (P _ ) 1 4 / X R2 X T* X P& , Y L C L C Q > @$ @$ @$ A$ X R>_" X P y Y X P
0x105ac4…105c58 Dummy {f00=0x00a7, f01=0x0190, f02=» % !- 2B !- T P P ) * ) !- Tf Tb A/!P A/ TR !- TL !- TD T@ !- T8 !- A I A' P " * !. +&_ !. T / *t" X !- _ !. A' @' P @' P !+( A' A' _ !. @' P @/NX@ !+n T< A' !, ' @' P @/NP @'
0x105c58…105dec Dummy {f00=0x00a7, f01=0x0190, f02=»R@ X P X T2 P C &Z C X T !& W Q W( R>W" X R X T R> !& & !, ' _ A' @' X A' A' A' @' A' + !. @' T @' P !,2 ' !. @' T @' X Wj A I 'R S ) y 'l @' @' @' A' + !. @' XN !- T @' P !
0x105dec…105f80 Dummy {f00=0x00a7, f01=0x0190, f02=»' A' HK E A' A' 4 @' P !,& !. ' !.bW ' @$ T !,"_ T & _ ' A' AX C Qh B B A' A' A' A' A' !,Z !. A' _^_V @' P6 X R0 X P T$ T Y W ' &Z P C R> & A' A' 4 @/N @' T @' A' @' A' A' !- T2 P4
0x105f80…106114 (2, 97) Opaque[0x194]
0x106114…1062a8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a8, f03=0x0000}
0x106114…1062a8 IdxSect {
0x106114…1062a8 f00 = 0x0015 // 0x106114 @0x0
0x106114…1062a8 f01 = 0x0004 // 0x106116 @0x2
0x106114…1062a8 gno = [ // 0x106118 @0x4
0x106114…1062a8 [0x00]: C0x0015.0x1.0
0x106114…1062a8 [0x01]: C0x00a5.0x2.0
0x106114…1062a8 ]
0x106114…1062a8 }
0x1062a8…10643c Dummy {f00=0x0015, f01=0x018e, 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 DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x10643c…1065d0 Dummy {f00=0x0015, f01=0x018e, f02=» v P* P* P* P* & PSCLASS DATA TCLASE-* 0 P DATA TC00 L P DATA TC01 j P DATA TC02 P DATA TC03 P DATA TC04 P DATA TC05 PTCLASE E
0x1065d0…106764 Dummy {f00=0x0015, f01=0x0190, f02=» v P DATA DWSO01 PTC00E EQU * ( PTC01 DATA TC01E-* D P DATA /00E0 f P DATA DWII01 PTC01E EQU * PTC02 DATA TC02E-* P DATA /00E1 P
0x106764…1068f8 Dummy {f00=0x0015, f01=0x0190, f02=» DW1501 PTC03E EQU * PTC04 DATA TC04E-* . P DATA /0080 P P DATA DWLP01 p PTC04E EQU * PTC05 DATA TC05E-* P DATA /0060 P DATA DW1500
0x1068f8…106a8c Dummy {f00=0x0015, f01=0x403c, f02=» DWDU01 PTC05E EQU * P END ,@ 8 TC04E-* . P DATA /0080 P P DATA DWLP01 p PTC04E EQU * PTC05 DATA TC05E-* P DATA /0060 P DATA DW1500
0x106a8c…106c20 Dummy {f00=0x0015, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x106c20…106db4 (2, 98) Dummy {f00=0x00a5, 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
0x106db4…106f48 Dummy {f00=0x00a5, f01=0x0002, f02=»
0x106f48…1070dc Dummy {f00=0x00a5, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 * & ! 1 DVTP01 DVDY01 DVKB0
0x1070dc…107270 Dummy {f00=0x00a5, f01=0x4094, f02=» " @ P 0 0 GH 1 2 * 4 0 | , : @ - ; A F N ~@ DVKB01 * & ! 1 DVTP01 DVDY01 DVKB0
0x107270…107404 Dummy {f00=0x00a5, f01=0x2008, f02=»
0x107404…107598 Dummy {f00=0x00a5, 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
0x107598…10772c Dummy {f00=0x00a5, 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 @ & @ @ , (
0x10772c…1078c0 Dummy {f00=0x00a5, 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 ^ ?
0x1078c0…107a54 (2, 99) Opaque[0x194]
0x107a54…107be8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x107a54…107be8 IdxSect {
0x107a54…107be8 f00 = 0x0016 // 0x107a54 @0x0
0x107a54…107be8 f01 = 0x0002 // 0x107a56 @0x2
0x107a54…107be8 gno = [ // 0x107a58 @0x4
0x107a54…107be8 [0x00]: C0x0016.0x1.0
0x107a54…107be8 ]
0x107a54…107be8 }
0x107be8…107d7c Dummy {f00=0x0016, 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
0x107d7c…107f10 Dummy {f00=0x0016, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN CTAB01 R P EXTRN CTAB02 h P EXTRN CTAB03 ~ P EXTRN ITAD P EXTRN KBAD3 P EXTRN TPAD P EXTRN GPAD P EXTRN DIAD P EXTRN DYAD
0x107f10…1080a4 Dummy {f00=0x0016, f01=0x0190, f02=» PINTLT3 DATA 0 PINTLT4 DATA 0 PINTRT1 DATA 0 0 PINTRT2 DATA 0 F PINTRT3 DATA 0 PINTRT4 DATA 0 r P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA ITAD P DATA KBAD
0x1080a4…108238 Dummy {f00=0x0016, f01=0x4018, f02=» d P END @ PINTLT4 DATA 0 PINTRT1 DATA 0 0 PINTRT2 DATA 0 F PINTRT3 DATA 0 PINTRT4 DATA 0 r P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA ITAD P DATA KBAD
0x108238…1083cc Dummy {f00=0x0016, 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
0x1083cc…108560 Dummy {f00=0x0016, 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,
0x108560…1086f4 (2, 100) Opaque[0x194]
0x1086f4…108888 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1500, f03=0x0000}
0x1086f4…108888 IdxSect {
0x1086f4…108888 f00 = 0x00a8 // 0x1086f4 @0x0
0x1086f4…108888 f01 = 0x0006 // 0x1086f6 @0x2
0x1086f4…108888 gno = [ // 0x1086f8 @0x4
0x1086f4…108888 [0x00]: C0x00a8.0x0.0
0x1086f4…108888 [0x01]: C0x00a8.0x1.0
0x1086f4…108888 [0x02]: C0x00a8.0x2.0
0x1086f4…108888 ]
0x1086f4…108888 }
0x108888…108a1c Dummy {f00=0x00a8, 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*
0x108a1c…108bb0 Dummy {f00=0x00a8, 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
0x108bb0…108d44 Dummy {f00=0x00a8, 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,
0x108d44…108ed8 Dummy {f00=0x00a8, f01=0x018e, 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 IHSOP SYSTEM OPERATORS PANEL P P P P P * P EXTRN CHRT1 REMOTE CHANNEL
0x108ed8…10906c Dummy {f00=0x00a8, f01=0x0190, f02=» v P EXTRN IHDU1 DISC UNIT NO. 1 $ P EXTRN ILLINT ILLEGAL INTERRUPT , P EXTRN HALT HALT ROUTINE T P* EXTRN BUG DEBUGGER t PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE &
0x10906c…109200 Dummy {f00=0x00a8, f01=0x0190, f02=»DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* 8 PSEG:ST EQU 0 STATUS B $ PSEG:DS EQU 2 DISC SECTOR ADDRESS ^ " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( P
0x109200…109394 (2, 101) Dummy {f00=0x00a8, f01=0x0190, f02=» EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY 0 $ PSWB:EL EQU 4 SWB LENGTH (BYTES) f & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT SYSTAB P*
0x109394…109528 Dummy {f00=0x00a8, f01=0x0190, f02=»ILLINT 3 P DATA ILLINT 4 P DATA ILLINT 5 2 P DATA ILLINT 6 N P DATA ILLINT j P DATA ILLINT P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH15
0x109528…1096bc Dummy {f00=0x00a8, f01=0x0190, f02=»ATA CHRT2 17 P DATA ILLINT P DATA ILLINT : P DATA ILLINT Z P DATA ILLINT z P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA ILLI
0x1096bc…109850 Dummy {f00=0x00a8, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT 31 P DATA ILLINT 32 6 P DATA ILLINT 33 R P DATA IHLP 34 n P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT
0x109850…1099e4 Dummy {f00=0x00a8, 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
0x1099e4…109b78 Dummy {f00=0x00a8, 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 SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT
0x109b78…109d0c Dummy {f00=0x00a8, 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 SYSTAB P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU *
0x109d0c…109ea0 Dummy {f00=0x00a8, 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
0x109ea0…10a034 (2, 102) Dummy {f00=0x00a8, 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
0x10a034…10a1c8 Dummy {f00=0x00a8, f01=0x0190, f02=»5:MMUPAG t PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS 4 PSCTBUG DATA 0 DEBUGGER X ( PSCTDMT DATA 00001 DMTASKS IN SYSTEM v P BIT 13:D2,14:D1,15:D0 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 0001
0x10a1c8…10a35c Dummy {f00=0x00a8, f01=0x4138, f02=»001 DC-TASK IN SYSTEM P EJECT SYSTAB 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 *
0x10a35c…10a4f0 Dummy {f00=0x00a8, 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
0x10a4f0…10a684 Dummy {f00=0x00a8, f01=0x0190, f02=»' !- . !- A' @. :H 4 $ /P8T @' @' A' @' T @ ! 8 ! @' P - ! x ! W 0 " @' P R ~T }T T W ! P " ! " :A *@ H T 0 ! :f"? HJr !- "? HJr !- 4 ABCDE
0x10a684…10a818 Dummy {f00=0x00a8, f01=0x0190, f02=» ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?01234567
0x10a818…10a9ac Dummy {f00=0x00a8, f01=0x0190, f02=» TOSSO O O P O P`O P`O P P O P P O O O QT $ ( , 0 4 8 < ( H T M 0 ) $P $ ) U @ C @L W M 0P P > T Z 0P R I W M@ _" H P 4 I 2 > T C T, V.
0x10a9ac…10ab40 Dummy {f00=0x00a8, f01=0x0190, f02=» T T M W M@ C P 8W T 8P Y ^ 5 ) P U y XH ' X X D #DP @ b P X l T _| Xv Y @ P< T T W0 X &P* T P H T _ X I Y T # C C
0x10ab40…10acd4 (2, 103) Opaque[0x194]
0x10acd4…10ae68 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0448, f03=0x0000}
0x10acd4…10ae68 IdxSect {
0x10acd4…10ae68 f00 = 0x0022 // 0x10acd4 @0x0
0x10acd4…10ae68 f01 = 0x0008 // 0x10acd6 @0x2
0x10acd4…10ae68 gno = [ // 0x10acd8 @0x4
0x10acd4…10ae68 [0x00]: C0x0022.0x1.0
0x10acd4…10ae68 [0x01]: C0x0022.0x2.0
0x10acd4…10ae68 [0x02]: C0x0022.0x3.0
0x10acd4…10ae68 [0x03]: C0x005c.0x1.0
0x10acd4…10ae68 ]
0x10acd4…10ae68 }
0x10ae68…10affc Dummy {f00=0x0022, 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*
0x10affc…10b190 Dummy {f00=0x0022, 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
0x10b190…10b324 Dummy {f00=0x0022, 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.
0x10b324…10b4b8 Dummy {f00=0x0022, 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
0x10b4b8…10b64c Dummy {f00=0x0022, 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
0x10b64c…10b7e0 Dummy {f00=0x0022, 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
0x10b7e0…10b974 (2, 104) Dummy {f00=0x0022, 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
0x10b974…10bb08 Dummy {f00=0x0022, f01=0x0190, f02=»ISC PAGING p * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * @ PDSKPAG EQU 1 J * ^ P* h @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING r > P* APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE 8 P* SAME SEGMENT I
0x10bb08…10bc9c Dummy {f00=0x0022, 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*
0x10bc9c…10be30 Dummy {f00=0x0022, 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
0x10be30…10bfc4 Dummy {f00=0x0022, 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
0x10bfc4…10c158 Dummy {f00=0x0022, 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
0x10c158…10c2ec Dummy {f00=0x0022, 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
0x10c2ec…10c480 Dummy {f00=0x0022, 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
0x10c480…10c614 (2, 105) Dummy {f00=0x0022, 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
0x10c614…10c7a8 Dummy {f00=0x0022, 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
0x10c7a8…10c93c Dummy {f00=0x0022, 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,
0x10c93c…10cad0 Dummy {f00=0x0022, 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
0x10cad0…10cc64 Dummy {f00=0x0022, 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
0x10cc64…10cdf8 Dummy {f00=0x0022, 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
0x10cdf8…10cf8c Dummy {f00=0x0022, 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
0x10cf8c…10d120 Dummy {f00=0x0022, 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
0x10d120…10d2b4 (2, 106) Dummy {f00=0x005c, 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
0x10d2b4…10d448 Dummy {f00=0x005c, 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
0x10d448…10d5dc Dummy {f00=0x005c, 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
0x10d5dc…10d770 Dummy {f00=0x005c, 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
0x10d770…10d904 Dummy {f00=0x005c, f01=0x0190, f02=» IHTWN IHTCN , ( IHSOP N CHLT1 ^ IHFDN n CHRT1 ~ , ( CHRT2 CHRT3 CHRT4 IHCC1 IHCC2
0x10d904…10da98 Dummy {f00=0x005c, f01=0x018e, f02=» $ & ~ IHLPN IHCRN . IHDU1 > , ( A ( * N IHDU2 ~ IHMTN , ( Q , . 0 , ( a IHINPTI
0x10da98…10dc2c Dummy {f00=0x005c, f01=0x0190, f02=» SCTEFA SCTPLD SCTANO , SCTADA @ SCTPAGL T , ( @ h SCTSEG SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC
0x10dc2c…10ddc0 Dummy {f00=0x005c, f01=0x414e, f02=»T SCTCDT bBUG SCTBUG~ . , ( 6 B SCTDMT r SCTDMI SCTDML SCTDMC SCTBLK SCTDCT
0x10ddc0…10df54 (2, 107) Opaque[0x194]
0x10df54…10e0e8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b20, f03=0x0000}
0x10df54…10e0e8 IdxSect {
0x10df54…10e0e8 f00 = 0x0059 // 0x10df54 @0x0
0x10df54…10e0e8 f01 = 0x000a // 0x10df56 @0x2
0x10df54…10e0e8 gno = [ // 0x10df58 @0x4
0x10df54…10e0e8 [0x00]: C0x0059.0x0.0
0x10df54…10e0e8 [0x01]: C0x005a.0x3.0
0x10df54…10e0e8 [0x02]: C0x0060.0x0.0
0x10df54…10e0e8 [0x03]: C0x0060.0x2.0
0x10df54…10e0e8 [0x04]: C0x0060.0x3.0
0x10df54…10e0e8 ]
0x10df54…10e0e8 }
0x10e0e8…10e27c Dummy {f00=0x0059, 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*
0x10e27c…10e410 Dummy {f00=0x0059, 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*
0x10e410…10e5a4 Dummy {f00=0x0059, 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*
0x10e5a4…10e738 Dummy {f00=0x0059, 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
0x10e738…10e8cc Dummy {f00=0x0059, 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
0x10e8cc…10ea60 Dummy {f00=0x0059, 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
0x10ea60…10ebf4 (2, 108) Dummy {f00=0x005a, 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****************************
0x10ebf4…10ed88 Dummy {f00=0x005a, 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
0x10ed88…10ef1c Dummy {f00=0x005a, f01=0x018e, f02=» PDSKPAG EQU 1 * P* & 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS 0 * P* IS OBTAINED BY SETTING MCLOCK EQU 0. l P* PX:A EQU 1 PMONCLK EQU 0 P* P EJECT LRPINT P* P* P* I H
0x10ef1c…10f0b0 Dummy {f00=0x005a, 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*
0x10f0b0…10f244 Dummy {f00=0x005a, 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
0x10f244…10f3d8 Dummy {f00=0x005a, 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
0x10f3d8…10f56c Dummy {f00=0x005a, 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
0x10f56c…10f700 Dummy {f00=0x005a, 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
0x10f700…10f894 (2, 109) Dummy {f00=0x0060, 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
0x10f894…10fa28 Dummy {f00=0x0060, 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
0x10fa28…10fbbc Dummy {f00=0x0060, 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
0x10fbbc…10fd50 Dummy {f00=0x0060, 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
0x10fd50…10fee4 Dummy {f00=0x0060, 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
0x10fee4…110078 Dummy {f00=0x0060, 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
0x110078…11020c Dummy {f00=0x0060, 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
0x11020c…1103a0 Dummy {f00=0x0060, 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
0x1103a0…110534 (2, 110) Dummy {f00=0x0060, 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 *
0x110534…1106c8 Dummy {f00=0x0060, 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
0x1106c8…11085c Dummy {f00=0x0060, 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
0x11085c…1109f0 Dummy {f00=0x0060, 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,-
0x1109f0…110b84 Dummy {f00=0x0060, 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
0x110b84…110d18 Dummy {f00=0x0060, 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
0x110d18…110eac Dummy {f00=0x0060, 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
0x110eac…111040 Dummy {f00=0x0060, 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*
0x111040…1111d4 (2, 111) Dummy {f00=0x0060, 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*
0x1111d4…111368 Dummy {f00=0x0060, 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*
0x111368…1114fc Dummy {f00=0x0060, 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
0x1114fc…111690 Dummy {f00=0x0060, 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
0x111690…111824 Dummy {f00=0x0060, 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
0x111824…1119b8 Dummy {f00=0x0060, 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
0x1119b8…111b4c Dummy {f00=0x0060, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x111b4c…111ce0 Dummy {f00=0x0060, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x111ce0…111e74 (2, 112) Opaque[0x194]
0x111e74…112008 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04b8, f03=0x0000}
0x111e74…112008 IdxSect {
0x111e74…112008 f00 = 0x0025 // 0x111e74 @0x0
0x111e74…112008 f01 = 0x0006 // 0x111e76 @0x2
0x111e74…112008 gno = [ // 0x111e78 @0x4
0x111e74…112008 [0x00]: C0x0025.0x3.0
0x111e74…112008 [0x01]: C0x0026.0x1.0
0x111e74…112008 [0x02]: C0x0026.0x2.0
0x111e74…112008 ]
0x111e74…112008 }
0x112008…11219c Dummy {f00=0x0025, 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*
0x11219c…112330 Dummy {f00=0x0025, 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
0x112330…1124c4 Dummy {f00=0x0025, 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*
0x1124c4…112658 Dummy {f00=0x0025, 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
0x112658…1127ec Dummy {f00=0x0025, 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
0x1127ec…112980 Dummy {f00=0x0025, 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*
0x112980…112b14 (2, 113) Dummy {f00=0x0026, 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
0x112b14…112ca8 Dummy {f00=0x0026, 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
0x112ca8…112e3c Dummy {f00=0x0026, 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
0x112e3c…112fd0 Dummy {f00=0x0026, 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
0x112fd0…113164 Dummy {f00=0x0026, 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
0x113164…1132f8 Dummy {f00=0x0026, 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)
0x1132f8…11348c Dummy {f00=0x0026, 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
0x11348c…113620 Dummy {f00=0x0026, 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*
0x113620…1137b4 (2, 114) Dummy {f00=0x0026, 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*
0x1137b4…113948 Dummy {f00=0x0026, 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
0x113948…113adc Dummy {f00=0x0026, 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
0x113adc…113c70 Dummy {f00=0x0026, 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
0x113c70…113e04 Dummy {f00=0x0026, 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?
0x113e04…113f98 Dummy {f00=0x0026, 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?
0x113f98…11412c Dummy {f00=0x0026, 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
0x11412c…1142c0 Dummy {f00=0x0026, f01=0x0000, f02=»
0x1142c0…114454 (2, 115) Opaque[0x194]
0x114454…1145e8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0480, f03=0x0000}
0x114454…1145e8 IdxSect {
0x114454…1145e8 f00 = 0x0024 // 0x114454 @0x0
0x114454…1145e8 f01 = 0x000c // 0x114456 @0x2
0x114454…1145e8 gno = [ // 0x114458 @0x4
0x114454…1145e8 [0x00]: C0x0024.0x0.0
0x114454…1145e8 [0x01]: C0x0024.0x2.0
0x114454…1145e8 [0x02]: C0x0024.0x3.0
0x114454…1145e8 [0x03]: C0x0025.0x0.0
0x114454…1145e8 [0x04]: C0x005d.0x1.0
0x114454…1145e8 [0x05]: C0x005d.0x3.0
0x114454…1145e8 ]
0x114454…1145e8 }
0x1145e8…11477c Dummy {f00=0x0024, 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*
0x11477c…114910 Dummy {f00=0x0024, 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*
0x114910…114aa4 Dummy {f00=0x0024, 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
0x114aa4…114c38 Dummy {f00=0x0024, 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
0x114c38…114dcc Dummy {f00=0x0024, 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
0x114dcc…114f60 Dummy {f00=0x0024, 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
0x114f60…1150f4 (2, 116) Dummy {f00=0x0024, 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
0x1150f4…115288 Dummy {f00=0x0024, 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*
0x115288…11541c Dummy {f00=0x0024, 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
0x11541c…1155b0 Dummy {f00=0x0024, 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
0x1155b0…115744 Dummy {f00=0x0024, 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
0x115744…1158d8 Dummy {f00=0x0024, 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
0x1158d8…115a6c Dummy {f00=0x0024, 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*
0x115a6c…115c00 Dummy {f00=0x0024, 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
0x115c00…115d94 (2, 117) Dummy {f00=0x0024, 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*
0x115d94…115f28 Dummy {f00=0x0024, 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*
0x115f28…1160bc Dummy {f00=0x0024, 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
0x1160bc…116250 Dummy {f00=0x0024, 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
0x116250…1163e4 Dummy {f00=0x0024, 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
0x1163e4…116578 Dummy {f00=0x0024, 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*
0x116578…11670c Dummy {f00=0x0024, 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
0x11670c…1168a0 Dummy {f00=0x0024, 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
0x1168a0…116a34 (2, 118) Dummy {f00=0x0025, 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
0x116a34…116bc8 Dummy {f00=0x0025, 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
0x116bc8…116d5c Dummy {f00=0x0025, 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*
0x116d5c…116ef0 Dummy {f00=0x0025, 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
0x116ef0…117084 Dummy {f00=0x0025, 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*
0x117084…117218 Dummy {f00=0x0025, 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
0x117218…1173ac Dummy {f00=0x0025, 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
0x1173ac…117540 Dummy {f00=0x0025, 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
0x117540…1176d4 (2, 119) Dummy {f00=0x005d, 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
0x1176d4…117868 Dummy {f00=0x005d, 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
0x117868…1179fc Dummy {f00=0x005d, 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
0x1179fc…117b90 Dummy {f00=0x005d, 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* !
0x117b90…117d24 Dummy {f00=0x005d, 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
0x117d24…117eb8 Dummy {f00=0x005d, 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 #
0x117eb8…11804c Dummy {f00=0x005d, 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
0x11804c…1181e0 Dummy {f00=0x005d, 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
0x1181e0…118374 (2, 120) Dummy {f00=0x005d, 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
0x118374…118508 Dummy {f00=0x005d, 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
0x118508…11869c Dummy {f00=0x005d, 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*
0x11869c…118830 Dummy {f00=0x005d, 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
0x118830…1189c4 Dummy {f00=0x005d, 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* *
0x1189c4…118b58 Dummy {f00=0x005d, 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* *
0x118b58…118cec Dummy {f00=0x005d, 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. "
0x118cec…118e80 Dummy {f00=0x005d, 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 !
0x118e80…119014 (2, 121) Opaque[0x194]
0x119014…1191a8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04a8, f03=0x0000}
0x119014…1191a8 IdxSect {
0x119014…1191a8 f00 = 0x0025 // 0x119014 @0x0
0x119014…1191a8 f01 = 0x0004 // 0x119016 @0x2
0x119014…1191a8 gno = [ // 0x119018 @0x4
0x119014…1191a8 [0x00]: C0x0025.0x1.0
0x119014…1191a8 [0x01]: C0x0025.0x2.0
0x119014…1191a8 ]
0x119014…1191a8 }
0x1191a8…11933c Dummy {f00=0x0025, 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
0x11933c…1194d0 Dummy {f00=0x0025, 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
0x1194d0…119664 Dummy {f00=0x0025, 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
0x119664…1197f8 Dummy {f00=0x0025, 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 *
0x1197f8…11998c Dummy {f00=0x0025, 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
0x11998c…119b20 Dummy {f00=0x0025, 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
0x119b20…119cb4 (2, 122) Dummy {f00=0x0025, 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
0x119cb4…119e48 Dummy {f00=0x0025, 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,
0x119e48…119fdc Dummy {f00=0x0025, 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
0x119fdc…11a170 Dummy {f00=0x0025, 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
0x11a170…11a304 Dummy {f00=0x0025, 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
0x11a304…11a498 Dummy {f00=0x0025, 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
0x11a498…11a62c Dummy {f00=0x0025, 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*
0x11a62c…11a7c0 Dummy {f00=0x0025, 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
0x11a7c0…11a954 (2, 123) Opaque[0x194]
0x11a954…11aae8 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x11a954…11aae8 IdxSect {
0x11a954…11aae8 f00 = 0x0040 // 0x11a954 @0x0
0x11a954…11aae8 f01 = 0x0026 // 0x11a956 @0x2
0x11a954…11aae8 gno = [ // 0x11a958 @0x4
0x11a954…11aae8 [0x00]: C0x0040.0x0.0
0x11a954…11aae8 [0x01]: C0x007e.0x3.0
0x11a954…11aae8 [0x02]: C0x007f.0x1.0
0x11a954…11aae8 [0x03]: C0x007f.0x2.0
0x11a954…11aae8 [0x04]: C0x007f.0x3.0
0x11a954…11aae8 [0x05]: C0x0080.0x0.0
0x11a954…11aae8 [0x06]: C0x0080.0x1.0
0x11a954…11aae8 [0x07]: C0x0080.0x2.0
0x11a954…11aae8 [0x08]: C0x0080.0x3.0
0x11a954…11aae8 [0x09]: C0x0081.0x0.0
0x11a954…11aae8 [0x0a]: C0x0081.0x1.0
0x11a954…11aae8 [0x0b]: C0x0081.0x2.0
0x11a954…11aae8 [0x0c]: C0x0081.0x3.0
0x11a954…11aae8 [0x0d]: C0x0082.0x0.0
0x11a954…11aae8 [0x0e]: C0x0082.0x1.0
0x11a954…11aae8 [0x0f]: C0x0082.0x2.0
0x11a954…11aae8 [0x10]: C0x0082.0x3.0
0x11a954…11aae8 [0x11]: C0x0089.0x0.0
0x11a954…11aae8 [0x12]: C0x0089.0x1.0
0x11a954…11aae8 ]
0x11a954…11aae8 }
0x11aae8…11ac7c Dummy {f00=0x0040, 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
0x11ac7c…11ae10 Dummy {f00=0x0040, 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*
0x11ae10…11afa4 Dummy {f00=0x0040, 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*
0x11afa4…11b138 Dummy {f00=0x0040, 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
0x11b138…11b2cc Dummy {f00=0x0040, 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
0x11b2cc…11b460 Dummy {f00=0x0040, 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
0x11b460…11b5f4 (2, 124) Dummy {f00=0x007e, 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
0x11b5f4…11b788 Dummy {f00=0x007e, 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
0x11b788…11b91c Dummy {f00=0x007e, 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
0x11b91c…11bab0 Dummy {f00=0x007e, 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
0x11bab0…11bc44 Dummy {f00=0x007e, 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
0x11bc44…11bdd8 Dummy {f00=0x007e, 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
0x11bdd8…11bf6c Dummy {f00=0x007e, 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
0x11bf6c…11c100 Dummy {f00=0x007e, 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*********************
0x11c100…11c294 (2, 125) Dummy {f00=0x007f, 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
0x11c294…11c428 Dummy {f00=0x007f, 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
0x11c428…11c5bc Dummy {f00=0x007f, 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
0x11c5bc…11c750 Dummy {f00=0x007f, 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
0x11c750…11c8e4 Dummy {f00=0x007f, 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 *
0x11c8e4…11ca78 Dummy {f00=0x007f, 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/
0x11ca78…11cc0c Dummy {f00=0x007f, 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
0x11cc0c…11cda0 Dummy {f00=0x007f, 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
0x11cda0…11cf34 (2, 126) Dummy {f00=0x007f, 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*
0x11cf34…11d0c8 Dummy {f00=0x007f, 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
0x11d0c8…11d25c Dummy {f00=0x007f, 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
0x11d25c…11d3f0 Dummy {f00=0x007f, 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*
0x11d3f0…11d584 Dummy {f00=0x007f, 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
0x11d584…11d718 Dummy {f00=0x007f, 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
0x11d718…11d8ac Dummy {f00=0x007f, 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
0x11d8ac…11da40 Dummy {f00=0x007f, 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
0x11da40…11dbd4 (2, 127) Dummy {f00=0x007f, 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
0x11dbd4…11dd68 Dummy {f00=0x007f, 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
0x11dd68…11defc Dummy {f00=0x007f, 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
0x11defc…11e090 Dummy {f00=0x007f, 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
0x11e090…11e224 Dummy {f00=0x007f, 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
0x11e224…11e3b8 Dummy {f00=0x007f, 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
0x11e3b8…11e54c Dummy {f00=0x007f, 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
0x11e54c…11e6e0 Dummy {f00=0x007f, 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 %
0x11e6e0…11e874 (2, 128) Dummy {f00=0x0080, 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
0x11e874…11ea08 Dummy {f00=0x0080, 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
0x11ea08…11eb9c Dummy {f00=0x0080, 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 (
0x11eb9c…11ed30 Dummy {f00=0x0080, 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
0x11ed30…11eec4 Dummy {f00=0x0080, 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
0x11eec4…11f058 Dummy {f00=0x0080, 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 +
0x11f058…11f1ec Dummy {f00=0x0080, 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
0x11f1ec…11f380 Dummy {f00=0x0080, 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* -
0x11f380…11f514 (2, 129) Dummy {f00=0x0080, 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
0x11f514…11f6a8 Dummy {f00=0x0080, 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
0x11f6a8…11f83c Dummy {f00=0x0080, 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
0x11f83c…11f9d0 Dummy {f00=0x0080, 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
0x11f9d0…11fb64 Dummy {f00=0x0080, 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
0x11fb64…11fcf8 Dummy {f00=0x0080, 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*
0x11fcf8…11fe8c Dummy {f00=0x0080, 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
0x11fe8c…120020 Dummy {f00=0x0080, 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* -
0x120020…1201b4 (2, 130) Dummy {f00=0x0080, 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
0x1201b4…120348 Dummy {f00=0x0080, 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
0x120348…1204dc Dummy {f00=0x0080, 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
0x1204dc…120670 Dummy {f00=0x0080, 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?
0x120670…120804 Dummy {f00=0x0080, 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
0x120804…120998 Dummy {f00=0x0080, 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(
0x120998…120b2c Dummy {f00=0x0080, 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
0x120b2c…120cc0 Dummy {f00=0x0080, 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 =
0x120cc0…120e54 (2, 131) Dummy {f00=0x0080, 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 >
0x120e54…120fe8 Dummy {f00=0x0080, 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
0x120fe8…12117c Dummy {f00=0x0080, 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
0x12117c…121310 Dummy {f00=0x0080, 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
0x121310…1214a4 Dummy {f00=0x0080, 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
0x1214a4…121638 Dummy {f00=0x0080, 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
0x121638…1217cc Dummy {f00=0x0080, 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
0x1217cc…121960 Dummy {f00=0x0080, 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
0x121960…121af4 (2, 132) Dummy {f00=0x0081, 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
0x121af4…121c88 Dummy {f00=0x0081, 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
0x121c88…121e1c Dummy {f00=0x0081, 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
0x121e1c…121fb0 Dummy {f00=0x0081, 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
0x121fb0…122144 Dummy {f00=0x0081, 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
0x122144…1222d8 Dummy {f00=0x0081, 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
0x1222d8…12246c Dummy {f00=0x0081, 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
0x12246c…122600 Dummy {f00=0x0081, 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 .
0x122600…122794 (2, 133) Dummy {f00=0x0081, 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
0x122794…122928 Dummy {f00=0x0081, 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
0x122928…122abc Dummy {f00=0x0081, 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
0x122abc…122c50 Dummy {f00=0x0081, 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
0x122c50…122de4 Dummy {f00=0x0081, 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*
0x122de4…122f78 Dummy {f00=0x0081, 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
0x122f78…12310c Dummy {f00=0x0081, 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
0x12310c…1232a0 Dummy {f00=0x0081, 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
0x1232a0…123434 (2, 134) Dummy {f00=0x0081, 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
0x123434…1235c8 Dummy {f00=0x0081, 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
0x1235c8…12375c Dummy {f00=0x0081, 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
0x12375c…1238f0 Dummy {f00=0x0081, 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
0x1238f0…123a84 Dummy {f00=0x0081, 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
0x123a84…123c18 Dummy {f00=0x0081, 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
0x123c18…123dac Dummy {f00=0x0081, 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,
0x123dac…123f40 Dummy {f00=0x0081, 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 ]
0x123f40…1240d4 (2, 135) Dummy {f00=0x0081, 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
0x1240d4…124268 Dummy {f00=0x0081, 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. _
0x124268…1243fc Dummy {f00=0x0081, 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 `
0x1243fc…124590 Dummy {f00=0x0081, 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
0x124590…124724 Dummy {f00=0x0081, 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
0x124724…1248b8 Dummy {f00=0x0081, 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
0x1248b8…124a4c Dummy {f00=0x0081, 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
0x124a4c…124be0 Dummy {f00=0x0081, 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
0x124be0…124d74 (2, 136) Dummy {f00=0x0082, 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 &
0x124d74…124f08 Dummy {f00=0x0082, 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
0x124f08…12509c Dummy {f00=0x0082, 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
0x12509c…125230 Dummy {f00=0x0082, 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
0x125230…1253c4 Dummy {f00=0x0082, 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
0x1253c4…125558 Dummy {f00=0x0082, 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
0x125558…1256ec Dummy {f00=0x0082, 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,
0x1256ec…125880 Dummy {f00=0x0082, 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
0x125880…125a14 (2, 137) Dummy {f00=0x0082, 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
0x125a14…125ba8 Dummy {f00=0x0082, 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
0x125ba8…125d3c Dummy {f00=0x0082, 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
0x125d3c…125ed0 Dummy {f00=0x0082, 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
0x125ed0…126064 Dummy {f00=0x0082, 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(
0x126064…1261f8 Dummy {f00=0x0082, 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
0x1261f8…12638c Dummy {f00=0x0082, 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
0x12638c…126520 Dummy {f00=0x0082, 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
0x126520…1266b4 (2, 138) Dummy {f00=0x0082, 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 *
0x1266b4…126848 Dummy {f00=0x0082, 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
0x126848…1269dc Dummy {f00=0x0082, 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
0x1269dc…126b70 Dummy {f00=0x0082, 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
0x126b70…126d04 Dummy {f00=0x0082, 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
0x126d04…126e98 Dummy {f00=0x0082, 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
0x126e98…12702c Dummy {f00=0x0082, 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
0x12702c…1271c0 Dummy {f00=0x0082, 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
0x1271c0…127354 (2, 139) Dummy {f00=0x0082, 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
0x127354…1274e8 Dummy {f00=0x0082, 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:-
0x1274e8…12767c Dummy {f00=0x0082, 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
0x12767c…127810 Dummy {f00=0x0082, 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
0x127810…1279a4 Dummy {f00=0x0082, 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
0x1279a4…127b38 Dummy {f00=0x0082, 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
0x127b38…127ccc Dummy {f00=0x0082, 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
0x127ccc…127e60 Dummy {f00=0x0082, 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*
0x127e60…127ff4 (2, 140) Dummy {f00=0x0089, 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
0x127ff4…128188 Dummy {f00=0x0089, 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,
0x128188…12831c Dummy {f00=0x0089, 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
0x12831c…1284b0 Dummy {f00=0x0089, 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
0x1284b0…128644 Dummy {f00=0x0089, 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
0x128644…1287d8 Dummy {f00=0x0089, 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
0x1287d8…12896c Dummy {f00=0x0089, 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
0x12896c…128b00 Dummy {f00=0x0089, f01=0x2008, f02=» NT TOSSIO END @ &
0x128b00…128c94 (2, 141) Dummy {f00=0x0089, f01=0x0190, f02=» @ T @ X W A I ~ , ( * ! @ @ @ , ( 3 A ! @ XN ! T @ N , ( S P ! ! _h /T @ X @ P ~ , ( s ! ! A _ A < , ( P" A @ T _, _0 @ T W @
0x128c94…128e28 Dummy {f00=0x0089, f01=0x0190, f02=» l DC:MOT, , ( @ T _ A C , ( J ) B B A A A A L * & C A ! ! A _^_V @ P X | , ( a R X P T T Y , ( ( { W P C A ,
0x128e28…128fbc Dummy {f00=0x0089, f01=0x0190, f02=» j , ( ]6W P _@ @ @ E ! P , ( ! 4 _$ ! 2_l / A : , ( 7 T W ,W A A W W W j , ( $D W A A ! @ ! @ ! , ( w ! ! B J 4 ! ! , ( T@ @ @
0x128fbc…129150 Dummy {f00=0x0089, f01=0x0190, f02=» T W ! P " ! " :A , ( *@ H T 0 ! W R ! * , ( * 5 A @ @ U Zx Q P Z , ( U Q T 0 ! A 0 ! A ! , ( u " ! " ! v A _" IH1501 INTSAVL
0x129150…1292e4 Dummy {f00=0x0089, f01=0x0190, f02=» A " ? _ I " P , ( U@ A < A 4 A _$" $ , ( P H B P W ! _ T , ( @@ + ! ! 1 4 A 8 @ ` DC15ON b , ( K @ P 0 M A 8 4 ? @ A , ( P k @
0x1292e4…129478 Dummy {f00=0x0089, f01=0x0190, f02=» 4 A < ! @ P ! V ! , ( R @ P a A 4 A A A & , ( ?a :a# P @ @ @ V # 4 , ( * - A ! ( ! A @ (:H DW1500 P , ( M 4
0x129478…12960c Dummy {f00=0x0089, f01=0x0190, f02=»OPQR$]*);^-/ST v , ( % UVWXYZ@,%_>?0123456789:[ '=" , ( % F , ( & v &' H D ! Z R ~ B R ~ GP, KP OP SP( WP YW _P cP gP o H D !
0x12960c…1297a0 Dummy {f00=0x0089, f01=0x0190, f02=» ~ P H D ! P P P P P R2 T* P& WP gP kT s wT { H D ! W * T P P < * Tf X H D !U+ Tb Q !P ' P )TR - * /TL 5 * 7TD ;T@ ? CT8 G WP _ c : H D ! m i V o : sT w P {
0x1297a0…129934 (2, 142) Opaque[0x194]
0x129934…129ac8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e8, f03=0x0000}
0x129934…129ac8 IdxSect {
0x129934…129ac8 f00 = 0x0027 // 0x129934 @0x0
0x129934…129ac8 f01 = 0x0036 // 0x129936 @0x2
0x129934…129ac8 gno = [ // 0x129938 @0x4
0x129934…129ac8 [0x00]: C0x0027.0x1.0
0x129934…129ac8 [0x01]: C0x0027.0x2.0
0x129934…129ac8 [0x02]: C0x0027.0x3.0
0x129934…129ac8 [0x03]: C0x0028.0x0.0
0x129934…129ac8 [0x04]: C0x0028.0x1.0
0x129934…129ac8 [0x05]: C0x0031.0x3.0
0x129934…129ac8 [0x06]: C0x0032.0x0.0
0x129934…129ac8 [0x07]: C0x0032.0x1.0
0x129934…129ac8 [0x08]: C0x0032.0x2.0
0x129934…129ac8 [0x09]: C0x0032.0x3.0
0x129934…129ac8 [0x0a]: C0x0033.0x0.0
0x129934…129ac8 [0x0b]: C0x0033.0x1.0
0x129934…129ac8 [0x0c]: C0x0033.0x2.0
0x129934…129ac8 [0x0d]: C0x0033.0x3.0
0x129934…129ac8 [0x0e]: C0x0034.0x0.0
0x129934…129ac8 [0x0f]: C0x0034.0x1.0
0x129934…129ac8 [0x10]: C0x0035.0x1.0
0x129934…129ac8 [0x11]: C0x0037.0x1.0
0x129934…129ac8 [0x12]: C0x0037.0x2.0
0x129934…129ac8 [0x13]: C0x0061.0x3.0
0x129934…129ac8 [0x14]: C0x0062.0x0.0
0x129934…129ac8 [0x15]: C0x0062.0x3.0
0x129934…129ac8 [0x16]: C0x0063.0x0.0
0x129934…129ac8 [0x17]: C0x0063.0x1.0
0x129934…129ac8 [0x18]: C0x0063.0x2.0
0x129934…129ac8 [0x19]: C0x0065.0x1.0
0x129934…129ac8 [0x1a]: C0x0065.0x2.0
0x129934…129ac8 ]
0x129934…129ac8 }
0x129ac8…129c5c Dummy {f00=0x0027, 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
0x129c5c…129df0 Dummy {f00=0x0027, 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
0x129df0…129f84 Dummy {f00=0x0027, 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
0x129f84…12a118 Dummy {f00=0x0027, 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
0x12a118…12a2ac Dummy {f00=0x0027, 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
0x12a2ac…12a440 Dummy {f00=0x0027, 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
0x12a440…12a5d4 (2, 143) Dummy {f00=0x0027, 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**********************
0x12a5d4…12a768 Dummy {f00=0x0027, 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
0x12a768…12a8fc Dummy {f00=0x0027, 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
0x12a8fc…12aa90 Dummy {f00=0x0027, 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
0x12aa90…12ac24 Dummy {f00=0x0027, 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*
0x12ac24…12adb8 Dummy {f00=0x0027, f01=0x0190, f02=»*************************************************************** P H P T P ` PCALL FORM 16=/F697,16 l P EJECT F P***************************************************************** F P* CONSTANTS USED IN SYS
0x12adb8…12af4c Dummy {f00=0x0027, 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
0x12af4c…12b0e0 Dummy {f00=0x0027, 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
0x12b0e0…12b274 (2, 144) Dummy {f00=0x0027, 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*
0x12b274…12b408 Dummy {f00=0x0027, 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
0x12b408…12b59c Dummy {f00=0x0027, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * P : P* * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * :
0x12b59c…12b730 Dummy {f00=0x0027, f01=0x0190, f02=»TERS: * : P* * 4 : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDA * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * : P*
0x12b730…12b8c4 Dummy {f00=0x0027, 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
0x12b8c4…12ba58 Dummy {f00=0x0027, 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
0x12ba58…12bbec Dummy {f00=0x0027, 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 /*
0x12bbec…12bd80 Dummy {f00=0x0027, 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: *
0x12bd80…12bf14 (2, 145) Dummy {f00=0x0028, 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
0x12bf14…12c0a8 Dummy {f00=0x0028, 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
0x12c0a8…12c23c Dummy {f00=0x0028, 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
0x12c23c…12c3d0 Dummy {f00=0x0028, 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
0x12c3d0…12c564 Dummy {f00=0x0028, 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
0x12c564…12c6f8 Dummy {f00=0x0028, f01=0x0190, f02=»___________________ z . ** I TTMJOB I . )* _________________________ N . ** I MONITOR TASKS I . )* _________________________ . ** I USER TASKS
0x12c6f8…12c88c Dummy {f00=0x0028, 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?
0x12c88c…12ca20 Dummy {f00=0x0028, 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
0x12ca20…12cbb4 (2, 146) Dummy {f00=0x0028, 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
0x12cbb4…12cd48 Dummy {f00=0x0028, 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
0x12cd48…12cedc Dummy {f00=0x0028, 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
0x12cedc…12d070 Dummy {f00=0x0028, 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
0x12d070…12d204 Dummy {f00=0x0028, 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 "
0x12d204…12d398 Dummy {f00=0x0028, 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
0x12d398…12d52c Dummy {f00=0x0028, 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
0x12d52c…12d6c0 Dummy {f00=0x0028, f01=0x018e, f02=» RTN A14 % EJECT % 6 2************************************************** % " 6 2* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * % 6 2************************************************** % * % * ENTRY: A1 - TASK ID % , (* A6
0x12d6c0…12d854 (2, 147) Dummy {f00=0x0031, 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 * &
0x12d854…12d9e8 Dummy {f00=0x0031, 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 *
0x12d9e8…12db7c Dummy {f00=0x0031, 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
0x12db7c…12dd10 Dummy {f00=0x0031, 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 )
0x12dd10…12dea4 Dummy {f00=0x0031, 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 * *
0x12dea4…12e038 Dummy {f00=0x0031, f01=0x0190, f02=»* TASK TABLE LAYOUT * * &* ________________________ + , * &* I MMU I + Z * &* I TABLE I + * &* I 16 I + * &* I WORDS
0x12e038…12e1cc Dummy {f00=0x0031, f01=0x0190, f02=»---- + n * &* TASK ENTRY I QUEUE I , * &* ------------------------ , : * &* TTB:ID I TASK IDENTIFICATION I , h * &* ------------------------ , * &* TTB:ST I STATUS/LEVEL I , * &* --------
0x12e1cc…12e360 Dummy {f00=0x0031, f01=0x0190, f02=»RAM STATUS WORD I , | * &* ------------------------ - * &* TTB:SA I DISPATCH ADDRESS I - H * &* ------------------------ - v * &* I REGISTER I - * &* I SAVE I - * &*
0x12e360…12e4f4 (2, 148) Dummy {f00=0x0032, f01=0x0190, f02=» ------------------------ - * &* TTB:TD I TASK I . ( * P* I SAVE01URATION I . V * &* I TABLE I . * &* : : . * &* : : .
0x12e4f4…12e688 Dummy {f00=0x0032, f01=0x018e, f02=» ______________________________ . 0 ,* I LENGTH I / * 0 ,* ------------------------------ / ^ 0 ,* I INDEX/FILCODE I / 0 ,* ------------------------------ / 0 ,*
0x12e688…12e81c Dummy {f00=0x0032, f01=0x0190, f02=» / b 0 ,* : : 0 0 ,* ------------------------------ 0 < 0 ,* I INDEX/FILECODE I 0 p 0 ,* ------------------------------ 0 0 ,* I DWT-ADDRESS I 0
0x12e81c…12e9b0 Dummy {f00=0x0032, 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,
0x12e9b0…12eb44 Dummy {f00=0x0032, 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
0x12eb44…12ecd8 Dummy {f00=0x0032, 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
0x12ecd8…12ee6c Dummy {f00=0x0032, 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
0x12ee6c…12f000 Dummy {f00=0x0032, 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
0x12f000…12f194 (2, 149) Dummy {f00=0x0032, 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
0x12f194…12f328 Dummy {f00=0x0032, 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
0x12f328…12f4bc Dummy {f00=0x0032, 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
0x12f4bc…12f650 Dummy {f00=0x0032, 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
0x12f650…12f7e4 Dummy {f00=0x0032, 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
0x12f7e4…12f978 Dummy {f00=0x0032, 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
0x12f978…12fb0c Dummy {f00=0x0032, 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
0x12fb0c…12fca0 Dummy {f00=0x0032, 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
0x12fca0…12fe34 (2, 150) Dummy {f00=0x0032, 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 >
0x12fe34…12ffc8 Dummy {f00=0x0032, 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
0x12ffc8…13015c Dummy {f00=0x0032, 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
0x13015c…1302f0 Dummy {f00=0x0032, 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
0x1302f0…130484 Dummy {f00=0x0032, 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
0x130484…130618 Dummy {f00=0x0032, 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
0x130618…1307ac Dummy {f00=0x0032, 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
0x1307ac…130940 Dummy {f00=0x0032, 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
0x130940…130ad4 (2, 151) Dummy {f00=0x0032, 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
0x130ad4…130c68 Dummy {f00=0x0032, 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
0x130c68…130dfc Dummy {f00=0x0032, 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
0x130dfc…130f90 Dummy {f00=0x0032, f01=0x0190, f02=» P EJECT I D P*************************************************************** I D P* * I Z D P* * I D P*
0x130f90…131124 Dummy {f00=0x0032, f01=0x0190, f02=»============================== * I z D P* * J 2 D P* REFERENCED IN: SYSLDM * J z D P* * J D
0x131124…1312b8 Dummy {f00=0x0032, f01=0x0190, f02=»* J R D P* EXIT: * K D P* * K R D P* WORK REGISTERS: A1-A12 * K D P*
0x1312b8…13144c Dummy {f00=0x0032, 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*
0x13144c…1315e0 Dummy {f00=0x0032, f01=0x0190, f02=» D P* * M D P* * M L D P*************************************************************** M P EJECT M PB:SWBT EQU * M & P LD A12,SC
0x1315e0…131774 (2, 152) Dummy {f00=0x0033, 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
0x131774…131908 Dummy {f00=0x0033, 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
0x131908…131a9c Dummy {f00=0x0033, 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
0x131a9c…131c30 Dummy {f00=0x0033, 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
0x131c30…131dc4 Dummy {f00=0x0033, 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
0x131dc4…131f58 Dummy {f00=0x0033, 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
0x131f58…1320ec Dummy {f00=0x0033, 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
0x1320ec…132280 Dummy {f00=0x0033, 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
0x132280…132414 (2, 153) Dummy {f00=0x0033, 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
0x132414…1325a8 Dummy {f00=0x0033, 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
0x1325a8…13273c Dummy {f00=0x0033, 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
0x13273c…1328d0 Dummy {f00=0x0033, 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
0x1328d0…132a64 Dummy {f00=0x0033, 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
0x132a64…132bf8 Dummy {f00=0x0033, 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
0x132bf8…132d8c Dummy {f00=0x0033, 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*
0x132d8c…132f20 Dummy {f00=0x0033, 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
0x132f20…1330b4 (2, 154) Dummy {f00=0x0033, 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 * ^
0x1330b4…133248 Dummy {f00=0x0033, 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 * _ * %********
0x133248…1333dc Dummy {f00=0x0033, 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
0x1333dc…133570 Dummy {f00=0x0033, f01=0x0190, f02=» -------------------- ` 0 ,* I DATA 0 I a $ 0 ,* -------------------- a X 0 ,* I DATA 0 I a 0 ,* -------------------- a * a EJECT a
0x133570…133704 Dummy {f00=0x0033, 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
0x133704…133898 Dummy {f00=0x0033, 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
0x133898…133a2c Dummy {f00=0x0033, 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
0x133a2c…133bc0 Dummy {f00=0x0033, 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 * &
0x133bc0…133d54 (2, 155) Dummy {f00=0x0033, 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
0x133d54…133ee8 Dummy {f00=0x0033, 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
0x133ee8…13407c Dummy {f00=0x0033, 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 * &
0x13407c…134210 Dummy {f00=0x0033, 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
0x134210…1343a4 Dummy {f00=0x0033, 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
0x1343a4…134538 Dummy {f00=0x0033, 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
0x134538…1346cc Dummy {f00=0x0033, 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 /
0x1346cc…134860 Dummy {f00=0x0033, 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
0x134860…1349f4 (2, 156) Dummy {f00=0x0034, 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******************************************
0x1349f4…134b88 Dummy {f00=0x0034, 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
0x134b88…134d1c Dummy {f00=0x0034, 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
0x134d1c…134eb0 Dummy {f00=0x0034, 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?
0x134eb0…135044 Dummy {f00=0x0034, 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
0x135044…1351d8 Dummy {f00=0x0034, 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
0x1351d8…13536c Dummy {f00=0x0034, 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
0x13536c…135500 Dummy {f00=0x0034, 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
0x135500…135694 (2, 157) Dummy {f00=0x0034, 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
0x135694…135828 Dummy {f00=0x0034, 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
0x135828…1359bc Dummy {f00=0x0034, 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
0x1359bc…135b50 Dummy {f00=0x0034, 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
0x135b50…135ce4 Dummy {f00=0x0034, 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
0x135ce4…135e78 Dummy {f00=0x0034, 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
0x135e78…13600c Dummy {f00=0x0034, 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 * | , (**************************************** | * | *
0x13600c…1361a0 Dummy {f00=0x0034, 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
0x1361a0…136334 (2, 158) Dummy {f00=0x0035, 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 ~
0x136334…1364c8 Dummy {f00=0x0035, 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
0x1364c8…13665c Dummy {f00=0x0035, 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
0x13665c…1367f0 Dummy {f00=0x0035, 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
0x1367f0…136984 Dummy {f00=0x0035, 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
0x136984…136b18 Dummy {f00=0x0035, 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
0x136b18…136cac Dummy {f00=0x0035, 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
0x136cac…136e40 Dummy {f00=0x0035, 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
0x136e40…136fd4 (2, 159) Dummy {f00=0x0037, 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
0x136fd4…137168 Dummy {f00=0x0037, 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
0x137168…1372fc Dummy {f00=0x0037, 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
0x1372fc…137490 Dummy {f00=0x0037, 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)
0x137490…137624 Dummy {f00=0x0037, 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
0x137624…1377b8 Dummy {f00=0x0037, 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
0x1377b8…13794c Dummy {f00=0x0037, 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
0x13794c…137ae0 Dummy {f00=0x0037, 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
0x137ae0…137c74 (2, 160) Dummy {f00=0x0037, 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,
0x137c74…137e08 Dummy {f00=0x0037, 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
0x137e08…137f9c Dummy {f00=0x0037, 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**************************
0x137f9c…138130 Dummy {f00=0x0037, 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,
0x138130…1382c4 Dummy {f00=0x0037, 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
0x1382c4…138458 Dummy {f00=0x0037, 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
0x138458…1385ec Dummy {f00=0x0037, 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 *
0x1385ec…138780 Dummy {f00=0x0037, 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
0x138780…138914 (2, 161) Dummy {f00=0x0061, 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
0x138914…138aa8 Dummy {f00=0x0061, 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
0x138aa8…138c3c Dummy {f00=0x0061, 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
0x138c3c…138dd0 Dummy {f00=0x0061, 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
0x138dd0…138f64 Dummy {f00=0x0061, 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
0x138f64…1390f8 Dummy {f00=0x0061, 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
0x1390f8…13928c Dummy {f00=0x0061, 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
0x13928c…139420 Dummy {f00=0x0061, 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
0x139420…1395b4 (2, 162) Dummy {f00=0x0062, 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
0x1395b4…139748 Dummy {f00=0x0062, 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*
0x139748…1398dc Dummy {f00=0x0062, 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
0x1398dc…139a70 Dummy {f00=0x0062, 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
0x139a70…139c04 Dummy {f00=0x0062, 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
0x139c04…139d98 Dummy {f00=0x0062, f01=0x0190, f02=»DWTEX EQU * RTN A14 RETURN EJECT , * %************************************* : * %* I:CHP - INIT CHANNEL PARAMETER * h * %************************************* * * REFERENCED IN: DWTGEN * , (* ENTRY: A1 -
0x139d98…139f2c Dummy {f00=0x0062, 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
0x139f2c…13a0c0 Dummy {f00=0x0062, 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
0x13a0c0…13a254 (2, 163) Dummy {f00=0x0062, 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
0x13a254…13a3e8 Dummy {f00=0x0062, 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
0x13a3e8…13a57c Dummy {f00=0x0062, 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,
0x13a57c…13a710 Dummy {f00=0x0062, 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
0x13a710…13a8a4 Dummy {f00=0x0062, 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
0x13a8a4…13aa38 Dummy {f00=0x0062, 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
0x13aa38…13abcc Dummy {f00=0x0062, 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
0x13abcc…13ad60 Dummy {f00=0x0062, 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
0x13ad60…13aef4 (2, 164) Dummy {f00=0x0063, 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
0x13aef4…13b088 Dummy {f00=0x0063, 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
0x13b088…13b21c Dummy {f00=0x0063, 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
0x13b21c…13b3b0 Dummy {f00=0x0063, 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.
0x13b3b0…13b544 Dummy {f00=0x0063, 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
0x13b544…13b6d8 Dummy {f00=0x0063, 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 *
0x13b6d8…13b86c Dummy {f00=0x0063, 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
0x13b86c…13ba00 Dummy {f00=0x0063, 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
0x13ba00…13bb94 (2, 165) Dummy {f00=0x0063, 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
0x13bb94…13bd28 Dummy {f00=0x0063, 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
0x13bd28…13bebc Dummy {f00=0x0063, 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
0x13bebc…13c050 Dummy {f00=0x0063, 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
0x13c050…13c1e4 Dummy {f00=0x0063, 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
0x13c1e4…13c378 Dummy {f00=0x0063, 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.
0x13c378…13c50c Dummy {f00=0x0063, f01=0x0190, f02=»*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL SUBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************************************
0x13c50c…13c6a0 Dummy {f00=0x0063, 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
0x13c6a0…13c834 (2, 166) Dummy {f00=0x0063, 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**
0x13c834…13c9c8 Dummy {f00=0x0063, 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,
0x13c9c8…13cb5c Dummy {f00=0x0063, 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 -
0x13cb5c…13ccf0 Dummy {f00=0x0063, 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 .****************
0x13ccf0…13ce84 Dummy {f00=0x0063, 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
0x13ce84…13d018 Dummy {f00=0x0063, 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) *
0x13d018…13d1ac Dummy {f00=0x0063, 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
0x13d1ac…13d340 Dummy {f00=0x0063, f01=0x0190, f02=» * f : P* REFERENCED IN: B:TT * : P* * R : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* *
0x13d340…13d4d4 (2, 167) Dummy {f00=0x0065, f01=0x0190, f02=»REGISTERS: A1-A7,A10 * : P* * 6 : P* SUBROUTINES: GETTSK,NXTBLK * t : P* * : P************************
0x13d4d4…13d668 Dummy {f00=0x0065, 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
0x13d668…13d7fc Dummy {f00=0x0065, 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 >****************************************************
0x13d7fc…13d990 Dummy {f00=0x0065, f01=0x018e, f02=»ONVERTED * j * " B >************************************************************** , * r * REFERENCED IN: B:DWTT | * , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED
0x13d990…13db24 Dummy {f00=0x0065, 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
0x13db24…13dcb8 Dummy {f00=0x0065, f01=0x018e, f02=»***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** L * ~ * REFERENCED IN: SEGGEN * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X)
0x13dcb8…13de4c Dummy {f00=0x0065, 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
0x13de4c…13dfe0 Dummy {f00=0x0065, 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
0x13dfe0…13e174 (2, 168) Dummy {f00=0x0065, 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
0x13e174…13e308 Dummy {f00=0x0065, 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
0x13e308…13e49c Dummy {f00=0x0065, 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 *
0x13e49c…13e630 Dummy {f00=0x0065, 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 *
0x13e630…13e7c4 Dummy {f00=0x0065, 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 *
0x13e7c4…13e958 Dummy {f00=0x0065, f01=0x2008, f02=» P X ` h p
0x13e958…13eaec Dummy {f00=0x0065, 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
0x13eaec…13ec80 Dummy {f00=0x0065, 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
0x13ec80…13ee14 (2, 169) Opaque[0x194]
0x13ee14…13efa8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f8, f03=0x0000}
0x13ee14…13efa8 IdxSect {
0x13ee14…13efa8 f00 = 0x0037 // 0x13ee14 @0x0
0x13ee14…13efa8 f01 = 0x0054 // 0x13ee16 @0x2
0x13ee14…13efa8 gno = [ // 0x13ee18 @0x4
0x13ee14…13efa8 [0x00]: C0x0037.0x3.0
0x13ee14…13efa8 [0x01]: C0x0038.0x0.0
0x13ee14…13efa8 [0x02]: C0x0038.0x1.0
0x13ee14…13efa8 [0x03]: C0x0038.0x2.0
0x13ee14…13efa8 [0x04]: C0x0038.0x3.0
0x13ee14…13efa8 [0x05]: C0x0039.0x0.0
0x13ee14…13efa8 [0x06]: C0x0039.0x1.0
0x13ee14…13efa8 [0x07]: C0x0039.0x2.0
0x13ee14…13efa8 [0x08]: C0x0039.0x3.0
0x13ee14…13efa8 [0x09]: C0x003a.0x0.0
0x13ee14…13efa8 [0x0a]: C0x003a.0x1.0
0x13ee14…13efa8 [0x0b]: C0x003a.0x2.0
0x13ee14…13efa8 [0x0c]: C0x003a.0x3.0
0x13ee14…13efa8 [0x0d]: C0x003b.0x0.0
0x13ee14…13efa8 [0x0e]: C0x003b.0x1.0
0x13ee14…13efa8 [0x0f]: C0x003b.0x2.0
0x13ee14…13efa8 [0x10]: C0x003b.0x3.0
0x13ee14…13efa8 [0x11]: C0x003c.0x0.0
0x13ee14…13efa8 [0x12]: C0x003c.0x1.0
0x13ee14…13efa8 [0x13]: C0x003c.0x2.0
0x13ee14…13efa8 [0x14]: C0x003c.0x3.0
0x13ee14…13efa8 [0x15]: C0x003d.0x0.0
0x13ee14…13efa8 [0x16]: C0x003d.0x1.0
0x13ee14…13efa8 [0x17]: C0x003d.0x2.0
0x13ee14…13efa8 [0x18]: C0x003d.0x3.0
0x13ee14…13efa8 [0x19]: C0x003e.0x0.0
0x13ee14…13efa8 [0x1a]: C0x003e.0x1.0
0x13ee14…13efa8 [0x1b]: C0x0065.0x3.0
0x13ee14…13efa8 [0x1c]: C0x0066.0x0.0
0x13ee14…13efa8 [0x1d]: C0x0066.0x1.0
0x13ee14…13efa8 [0x1e]: C0x0067.0x1.0
0x13ee14…13efa8 [0x1f]: C0x0067.0x2.0
0x13ee14…13efa8 [0x20]: C0x0067.0x3.0
0x13ee14…13efa8 [0x21]: C0x0068.0x0.0
0x13ee14…13efa8 [0x22]: C0x0068.0x1.0
0x13ee14…13efa8 [0x23]: C0x0068.0x2.0
0x13ee14…13efa8 [0x24]: C0x0068.0x3.0
0x13ee14…13efa8 [0x25]: C0x0069.0x0.0
0x13ee14…13efa8 [0x26]: C0x0069.0x1.0
0x13ee14…13efa8 [0x27]: C0x006b.0x3.0
0x13ee14…13efa8 [0x28]: C0x006c.0x0.0
0x13ee14…13efa8 [0x29]: C0x006c.0x1.0
0x13ee14…13efa8 ]
0x13ee14…13efa8 }
0x13efa8…13f13c Dummy {f00=0x0037, 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
0x13f13c…13f2d0 Dummy {f00=0x0037, 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
0x13f2d0…13f464 Dummy {f00=0x0037, 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
0x13f464…13f5f8 Dummy {f00=0x0037, 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
0x13f5f8…13f78c Dummy {f00=0x0037, 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*
0x13f78c…13f920 Dummy {f00=0x0037, 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* *
0x13f920…13fab4 (2, 170) Dummy {f00=0x0038, 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
0x13fab4…13fc48 Dummy {f00=0x0038, 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
0x13fc48…13fddc Dummy {f00=0x0038, 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
0x13fddc…13ff70 Dummy {f00=0x0038, 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 =
0x13ff70…140104 Dummy {f00=0x0038, 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
0x140104…140298 Dummy {f00=0x0038, 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
0x140298…14042c Dummy {f00=0x0038, 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
0x14042c…1405c0 Dummy {f00=0x0038, 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*
0x1405c0…140754 (2, 171) Dummy {f00=0x0038, 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
0x140754…1408e8 Dummy {f00=0x0038, 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* !----------------------------------------------
0x1408e8…140a7c Dummy {f00=0x0038, 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*
0x140a7c…140c10 Dummy {f00=0x0038, 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.
0x140c10…140da4 Dummy {f00=0x0038, 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
0x140da4…140f38 Dummy {f00=0x0038, 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
0x140f38…1410cc Dummy {f00=0x0038, 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
0x1410cc…141260 Dummy {f00=0x0038, 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
0x141260…1413f4 (2, 172) Dummy {f00=0x0038, 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
0x1413f4…141588 Dummy {f00=0x0038, 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
0x141588…14171c Dummy {f00=0x0038, f01=0x0190, f02=» ! b F P* ! -CONTINUE IN PART 2.A ! F P* !-----------------------------------------------------! f P EJECT P P ***************** P ***************** P **
0x14171c…1418b0 Dummy {f00=0x0038, 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
0x1418b0…141a44 Dummy {f00=0x0038, 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
0x141a44…141bd8 Dummy {f00=0x0038, 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
0x141bd8…141d6c Dummy {f00=0x0038, 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
0x141d6c…141f00 Dummy {f00=0x0038, 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-
0x141f00…142094 (2, 173) Dummy {f00=0x0038, 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
0x142094…142228 Dummy {f00=0x0038, 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
0x142228…1423bc Dummy {f00=0x0038, 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 -"-
0x1423bc…142550 Dummy {f00=0x0038, 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
0x142550…1426e4 Dummy {f00=0x0038, 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****
0x1426e4…142878 Dummy {f00=0x0038, 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:
0x142878…142a0c Dummy {f00=0x0038, 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**********************************************
0x142a0c…142ba0 Dummy {f00=0x0038, f01=0x0190, f02=» [REL-ADDRESS] * $ n F P* * % ( F P***************************************************************** % r P % P % P % PCALL FORM 16=/F697,16 % P EJECT %
0x142ba0…142d34 (2, 174) Dummy {f00=0x0039, f01=0x0190, f02=» ** % 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & 6 6 P** ** & p 6 P************************************************** & 6 P************************************
0x142d34…142ec8 Dummy {f00=0x0039, 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****************
0x142ec8…14305c Dummy {f00=0x0039, 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******************************
0x14305c…1431f0 Dummy {f00=0x0039, 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
0x1431f0…143384 Dummy {f00=0x0039, 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
0x143384…143518 Dummy {f00=0x0039, 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**************
0x143518…1436ac Dummy {f00=0x0039, 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 , *
0x1436ac…143840 Dummy {f00=0x0039, 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
0x143840…1439d4 (2, 175) Dummy {f00=0x0039, 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 .
0x1439d4…143b68 Dummy {f00=0x0039, 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 /
0x143b68…143cfc Dummy {f00=0x0039, 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
0x143cfc…143e90 Dummy {f00=0x0039, 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
0x143e90…144024 Dummy {f00=0x0039, 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
0x144024…1441b8 Dummy {f00=0x0039, 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
0x1441b8…14434c Dummy {f00=0x0039, 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
0x14434c…1444e0 Dummy {f00=0x0039, 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
0x1444e0…144674 (2, 176) Dummy {f00=0x0039, 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
0x144674…144808 Dummy {f00=0x0039, 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
0x144808…14499c Dummy {f00=0x0039, 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
0x14499c…144b30 Dummy {f00=0x0039, 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
0x144b30…144cc4 Dummy {f00=0x0039, 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
0x144cc4…144e58 Dummy {f00=0x0039, 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
0x144e58…144fec Dummy {f00=0x0039, 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************************************
0x144fec…145180 Dummy {f00=0x0039, 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 =
0x145180…145314 (2, 177) Dummy {f00=0x0039, 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**
0x145314…1454a8 Dummy {f00=0x0039, 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**
0x1454a8…14563c Dummy {f00=0x0039, 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
0x14563c…1457d0 Dummy {f00=0x0039, 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
0x1457d0…145964 Dummy {f00=0x0039, 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
0x145964…145af8 Dummy {f00=0x0039, 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
0x145af8…145c8c Dummy {f00=0x0039, 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
0x145c8c…145e20 Dummy {f00=0x0039, 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
0x145e20…145fb4 (2, 178) Dummy {f00=0x003a, 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
0x145fb4…146148 Dummy {f00=0x003a, 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
0x146148…1462dc Dummy {f00=0x003a, 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
0x1462dc…146470 Dummy {f00=0x003a, 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
0x146470…146604 Dummy {f00=0x003a, 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
0x146604…146798 Dummy {f00=0x003a, 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
0x146798…14692c Dummy {f00=0x003a, 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
0x14692c…146ac0 Dummy {f00=0x003a, 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
0x146ac0…146c54 (2, 179) Dummy {f00=0x003a, 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
0x146c54…146de8 Dummy {f00=0x003a, 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
0x146de8…146f7c Dummy {f00=0x003a, 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
0x146f7c…147110 Dummy {f00=0x003a, 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
0x147110…1472a4 Dummy {f00=0x003a, 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)
0x1472a4…147438 Dummy {f00=0x003a, 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**
0x147438…1475cc Dummy {f00=0x003a, 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
0x1475cc…147760 Dummy {f00=0x003a, 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
0x147760…1478f4 (2, 180) Dummy {f00=0x003a, 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
0x1478f4…147a88 Dummy {f00=0x003a, 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
0x147a88…147c1c Dummy {f00=0x003a, 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
0x147c1c…147db0 Dummy {f00=0x003a, 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
0x147db0…147f44 Dummy {f00=0x003a, 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
0x147f44…1480d8 Dummy {f00=0x003a, 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
0x1480d8…14826c Dummy {f00=0x003a, 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
0x14826c…148400 Dummy {f00=0x003a, 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
0x148400…148594 (2, 181) Dummy {f00=0x003a, 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
0x148594…148728 Dummy {f00=0x003a, 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
0x148728…1488bc Dummy {f00=0x003a, 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
0x1488bc…148a50 Dummy {f00=0x003a, 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
0x148a50…148be4 Dummy {f00=0x003a, 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
0x148be4…148d78 Dummy {f00=0x003a, 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
0x148d78…148f0c Dummy {f00=0x003a, 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
0x148f0c…1490a0 Dummy {f00=0x003a, 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
0x1490a0…149234 (2, 182) Dummy {f00=0x003b, 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
0x149234…1493c8 Dummy {f00=0x003b, 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
0x1493c8…14955c Dummy {f00=0x003b, 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)
0x14955c…1496f0 Dummy {f00=0x003b, 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
0x1496f0…149884 Dummy {f00=0x003b, 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
0x149884…149a18 Dummy {f00=0x003b, 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
0x149a18…149bac Dummy {f00=0x003b, 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
0x149bac…149d40 Dummy {f00=0x003b, 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
0x149d40…149ed4 (2, 183) Dummy {f00=0x003b, 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
0x149ed4…14a068 Dummy {f00=0x003b, 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
0x14a068…14a1fc Dummy {f00=0x003b, 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=
0x14a1fc…14a390 Dummy {f00=0x003b, 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=
0x14a390…14a524 Dummy {f00=0x003b, 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
0x14a524…14a6b8 Dummy {f00=0x003b, 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,
0x14a6b8…14a84c Dummy {f00=0x003b, 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
0x14a84c…14a9e0 Dummy {f00=0x003b, 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
0x14a9e0…14ab74 (2, 184) Dummy {f00=0x003b, 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
0x14ab74…14ad08 Dummy {f00=0x003b, 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**
0x14ad08…14ae9c Dummy {f00=0x003b, 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
0x14ae9c…14b030 Dummy {f00=0x003b, f01=0x018e, f02=»************************************* x v D P* * y . D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * y v D P* ===================================== * y D P*
0x14b030…14b1c4 Dummy {f00=0x003b, 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
0x14b1c4…14b358 Dummy {f00=0x003b, 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*
0x14b358…14b4ec Dummy {f00=0x003b, 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 |
0x14b4ec…14b680 Dummy {f00=0x003b, 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
0x14b680…14b814 (2, 185) Dummy {f00=0x003b, 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
0x14b814…14b9a8 Dummy {f00=0x003b, 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**************************************
0x14b9a8…14bb3c Dummy {f00=0x003b, f01=0x0190, f02=»KMVD - CHECK IF BLOCK ALREADY MOVED * ~ J P* ===================================== * < J P* * J P* REFERENCED IN: MOVCOM,MOVCLA
0x14bb3c…14bcd0 Dummy {f00=0x003b, 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
0x14bcd0…14be64 Dummy {f00=0x003b, f01=0x0190, f02=» * j J P* * ( J P* SUBROUTINES: * v J P*
0x14be64…14bff8 Dummy {f00=0x003b, 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
0x14bff8…14c18c Dummy {f00=0x003b, 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**
0x14c18c…14c320 Dummy {f00=0x003b, 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
0x14c320…14c4b4 (2, 186) Dummy {f00=0x003c, 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
0x14c4b4…14c648 Dummy {f00=0x003c, f01=0x0190, f02=» ** 4 P** ** ( 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** ` 4 P** ** 4 P** INPUT : A3,A2 ** 4 P
0x14c648…14c7dc Dummy {f00=0x003c, 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
0x14c7dc…14c970 Dummy {f00=0x003c, 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 **
0x14c970…14cb04 Dummy {f00=0x003c, 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
0x14cb04…14cc98 Dummy {f00=0x003c, 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**
0x14cc98…14ce2c Dummy {f00=0x003c, 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
0x14ce2c…14cfc0 Dummy {f00=0x003c, 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
0x14cfc0…14d154 (2, 187) Dummy {f00=0x003c, 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**
0x14d154…14d2e8 Dummy {f00=0x003c, 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
0x14d2e8…14d47c Dummy {f00=0x003c, 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
0x14d47c…14d610 Dummy {f00=0x003c, 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
0x14d610…14d7a4 Dummy {f00=0x003c, 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
0x14d7a4…14d938 Dummy {f00=0x003c, 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
0x14d938…14dacc Dummy {f00=0x003c, f01=0x0190, f02=»T ** v 4 P** ** 4 P** ** V 4 P** MOVE MM-TABLE ** 4 P** ** 4 P** INPUT
0x14dacc…14dc60 Dummy {f00=0x003c, 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
0x14dc60…14ddf4 (2, 188) Dummy {f00=0x003c, 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
0x14ddf4…14df88 Dummy {f00=0x003c, f01=0x0190, f02=»=========== * b @ P* * @ P* * Z @ P* REFERENCED IN: SYSLDA PART 2 B. * @ P*
0x14df88…14e11c Dummy {f00=0x003c, f01=0x0190, f02=»NTRY IN REAL T:ATAB * j @ P* * @ P* EXIT: * b @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8
0x14e11c…14e2b0 Dummy {f00=0x003c, 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
0x14e2b0…14e444 Dummy {f00=0x003c, 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
0x14e444…14e5d8 Dummy {f00=0x003c, 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
0x14e5d8…14e76c Dummy {f00=0x003c, 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 =
0x14e76c…14e900 Dummy {f00=0x003c, 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**
0x14e900…14ea94 (2, 189) Dummy {f00=0x003c, 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
0x14ea94…14ec28 Dummy {f00=0x003c, 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
0x14ec28…14edbc Dummy {f00=0x003c, 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
0x14edbc…14ef50 Dummy {f00=0x003c, 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
0x14ef50…14f0e4 Dummy {f00=0x003c, 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
0x14f0e4…14f278 Dummy {f00=0x003c, 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
0x14f278…14f40c Dummy {f00=0x003c, 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
0x14f40c…14f5a0 Dummy {f00=0x003c, 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:
0x14f5a0…14f734 (2, 190) Dummy {f00=0x003d, 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
0x14f734…14f8c8 Dummy {f00=0x003d, 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
0x14f8c8…14fa5c Dummy {f00=0x003d, 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
0x14fa5c…14fbf0 Dummy {f00=0x003d, 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 ?***************************************************************
0x14fbf0…14fd84 Dummy {f00=0x003d, f01=0x0190, f02=» * X D ?* ========================= * D ?* * X D ?* REFERENCED IN: SYSLDA * D ?*
0x14fd84…14ff18 Dummy {f00=0x003d, f01=0x0190, f02=»OF FREE AREA * x D ?* SCTNOS - NUMBER OF SEGMENTS * 0 D ?* SCTNOP - NUMBER OF PAGES * x D ?* SCTPSZ - PAGE SIZE * D ?
0x14ff18…1500ac Dummy {f00=0x003d, 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
0x1500ac…150240 Dummy {f00=0x003d, f01=0x0190, f02=» * p D ?* * ( D ?* * p D ?*************************************************************** PAGGEN E
0x150240…1503d4 (2, 191) Dummy {f00=0x003d, 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
0x1503d4…150568 Dummy {f00=0x003d, 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
0x150568…1506fc Dummy {f00=0x003d, 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
0x1506fc…150890 Dummy {f00=0x003d, 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
0x150890…150a24 Dummy {f00=0x003d, 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,
0x150a24…150bb8 Dummy {f00=0x003d, 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,
0x150bb8…150d4c Dummy {f00=0x003d, 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!
0x150d4c…150ee0 Dummy {f00=0x003d, 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
0x150ee0…151074 (2, 192) Dummy {f00=0x003d, 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
0x151074…151208 Dummy {f00=0x003d, 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
0x151208…15139c Dummy {f00=0x003d, 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
0x15139c…151530 Dummy {f00=0x003d, 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
0x151530…1516c4 Dummy {f00=0x003d, 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
0x1516c4…151858 Dummy {f00=0x003d, 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
0x151858…1519ec Dummy {f00=0x003d, 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
0x1519ec…151b80 Dummy {f00=0x003d, 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
0x151b80…151d14 (2, 193) Dummy {f00=0x003d, 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
0x151d14…151ea8 Dummy {f00=0x003d, 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
0x151ea8…15203c Dummy {f00=0x003d, 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***
0x15203c…1521d0 Dummy {f00=0x003d, 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****************
0x1521d0…152364 Dummy {f00=0x003d, 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**
0x152364…1524f8 Dummy {f00=0x003d, 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
0x1524f8…15268c Dummy {f00=0x003d, 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
0x15268c…152820 Dummy {f00=0x003d, 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 **
0x152820…1529b4 (2, 194) Dummy {f00=0x003e, 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 (
0x1529b4…152b48 Dummy {f00=0x003e, 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
0x152b48…152cdc Dummy {f00=0x003e, 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
0x152cdc…152e70 Dummy {f00=0x003e, 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(
0x152e70…153004 Dummy {f00=0x003e, 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
0x153004…153198 Dummy {f00=0x003e, 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
0x153198…15332c Dummy {f00=0x003e, 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
0x15332c…1534c0 Dummy {f00=0x003e, 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
0x1534c0…153654 (2, 195) Dummy {f00=0x003e, 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
0x153654…1537e8 Dummy {f00=0x003e, 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
0x1537e8…15397c Dummy {f00=0x003e, 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
0x15397c…153b10 Dummy {f00=0x003e, 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 *
0x153b10…153ca4 Dummy {f00=0x003e, 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
0x153ca4…153e38 Dummy {f00=0x003e, 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*********************************
0x153e38…153fcc Dummy {f00=0x003e, 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
0x153fcc…154160 Dummy {f00=0x003e, 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
0x154160…1542f4 (2, 196) Dummy {f00=0x0065, 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
0x1542f4…154488 Dummy {f00=0x0065, 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
0x154488…15461c Dummy {f00=0x0065, 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
0x15461c…1547b0 Dummy {f00=0x0065, 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
0x1547b0…154944 Dummy {f00=0x0065, f01=0x0190, f02=»FT CREDIT+SWPBLK=2 P EJECT B P************************************************************** ( B P* * n B P* * B P* B:RSWT - BU
0x154944…154ad8 Dummy {f00=0x0065, f01=0x0190, f02=» * B P* REFERENCED IN: SYSLDA * < B P* * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *
0x154ad8…154c6c Dummy {f00=0x0065, f01=0x0190, f02=» * T B P* EXIT: * B P* * P B P* WORK REGISTERS: A1-A7 * B P*
0x154c6c…154e00 Dummy {f00=0x0065, 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
0x154e00…154f94 (2, 197) Dummy {f00=0x0066, 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
0x154f94…155128 Dummy {f00=0x0066, 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
0x155128…1552bc Dummy {f00=0x0066, 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
0x1552bc…155450 Dummy {f00=0x0066, 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
0x155450…1555e4 Dummy {f00=0x0066, 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
0x1555e4…155778 Dummy {f00=0x0066, 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
0x155778…15590c Dummy {f00=0x0066, 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
0x15590c…155aa0 Dummy {f00=0x0066, 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
0x155aa0…155c34 (2, 198) Dummy {f00=0x0066, 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
0x155c34…155dc8 Dummy {f00=0x0066, 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 ,
0x155dc8…155f5c Dummy {f00=0x0066, 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,
0x155f5c…1560f0 Dummy {f00=0x0066, 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
0x1560f0…156284 Dummy {f00=0x0066, 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
0x156284…156418 Dummy {f00=0x0066, 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
0x156418…1565ac Dummy {f00=0x0066, 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
0x1565ac…156740 Dummy {f00=0x0066, 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
0x156740…1568d4 (2, 199) Dummy {f00=0x0067, 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:
0x1568d4…156a68 Dummy {f00=0x0067, 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
0x156a68…156bfc Dummy {f00=0x0067, 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
0x156bfc…156d90 Dummy {f00=0x0067, 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:
0x156d90…156f24 Dummy {f00=0x0067, 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
0x156f24…1570b8 Dummy {f00=0x0067, 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
0x1570b8…15724c Dummy {f00=0x0067, 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
0x15724c…1573e0 Dummy {f00=0x0067, 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
0x1573e0…157574 (2, 200) Dummy {f00=0x0067, 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
0x157574…157708 Dummy {f00=0x0067, 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
0x157708…15789c Dummy {f00=0x0067, 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
0x15789c…157a30 Dummy {f00=0x0067, 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
0x157a30…157bc4 Dummy {f00=0x0067, 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
0x157bc4…157d58 Dummy {f00=0x0067, 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
0x157d58…157eec Dummy {f00=0x0067, 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
0x157eec…158080 Dummy {f00=0x0067, 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
0x158080…158214 (2, 201) Dummy {f00=0x0067, 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
0x158214…1583a8 Dummy {f00=0x0067, 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
0x1583a8…15853c Dummy {f00=0x0067, 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
0x15853c…1586d0 Dummy {f00=0x0067, 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:
0x1586d0…158864 Dummy {f00=0x0067, 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 .
0x158864…1589f8 Dummy {f00=0x0067, 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
0x1589f8…158b8c Dummy {f00=0x0067, 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
0x158b8c…158d20 Dummy {f00=0x0067, 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
0x158d20…158eb4 (2, 202) Dummy {f00=0x0068, 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**
0x158eb4…159048 Dummy {f00=0x0068, f01=0x0190, f02=» ***** 2 P********************************************* * P ` 2 P* READ CONFIGURATION FILE & BUILD * l 2 P* SHADOW-TABLES * 2 P* *
0x159048…1591dc Dummy {f00=0x0068, 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
0x1591dc…159370 Dummy {f00=0x0068, 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
0x159370…159504 Dummy {f00=0x0068, 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
0x159504…159698 Dummy {f00=0x0068, 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
0x159698…15982c Dummy {f00=0x0068, 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
0x15982c…1599c0 Dummy {f00=0x0068, 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
0x1599c0…159b54 (2, 203) Dummy {f00=0x0068, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x159b54…159ce8 Dummy {f00=0x0068, 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
0x159ce8…159e7c Dummy {f00=0x0068, 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
0x159e7c…15a010 Dummy {f00=0x0068, 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
0x15a010…15a1a4 Dummy {f00=0x0068, 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
0x15a1a4…15a338 Dummy {f00=0x0068, 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
0x15a338…15a4cc Dummy {f00=0x0068, 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(
0x15a4cc…15a660 Dummy {f00=0x0068, 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
0x15a660…15a7f4 (2, 204) Dummy {f00=0x0068, 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
0x15a7f4…15a988 Dummy {f00=0x0068, 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:
0x15a988…15ab1c Dummy {f00=0x0068, 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
0x15ab1c…15acb0 Dummy {f00=0x0068, 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
0x15acb0…15ae44 Dummy {f00=0x0068, 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
0x15ae44…15afd8 Dummy {f00=0x0068, 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
0x15afd8…15b16c Dummy {f00=0x0068, 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
0x15b16c…15b300 Dummy {f00=0x0068, 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
0x15b300…15b494 (2, 205) Dummy {f00=0x0068, 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 .
0x15b494…15b628 Dummy {f00=0x0068, 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)
0x15b628…15b7bc Dummy {f00=0x0068, 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
0x15b7bc…15b950 Dummy {f00=0x0068, 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
0x15b950…15bae4 Dummy {f00=0x0068, 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********
0x15bae4…15bc78 Dummy {f00=0x0068, 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
0x15bc78…15be0c Dummy {f00=0x0068, 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:
0x15be0c…15bfa0 Dummy {f00=0x0068, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x15bfa0…15c134 (2, 206) Dummy {f00=0x0069, 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*
0x15c134…15c2c8 Dummy {f00=0x0069, 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
0x15c2c8…15c45c Dummy {f00=0x0069, 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
0x15c45c…15c5f0 Dummy {f00=0x0069, 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
0x15c5f0…15c784 Dummy {f00=0x0069, 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
0x15c784…15c918 Dummy {f00=0x0069, 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
0x15c918…15caac Dummy {f00=0x0069, 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 * ,
0x15caac…15cc40 Dummy {f00=0x0069, 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
0x15cc40…15cdd4 (2, 207) Dummy {f00=0x0069, 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
0x15cdd4…15cf68 Dummy {f00=0x0069, 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 (
0x15cf68…15d0fc Dummy {f00=0x0069, 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
0x15d0fc…15d290 Dummy {f00=0x0069, 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
0x15d290…15d424 Dummy {f00=0x0069, 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
0x15d424…15d5b8 Dummy {f00=0x0069, 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
0x15d5b8…15d74c Dummy {f00=0x0069, 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
0x15d74c…15d8e0 Dummy {f00=0x0069, 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
0x15d8e0…15da74 (2, 208) Dummy {f00=0x006b, 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
0x15da74…15dc08 Dummy {f00=0x006b, 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
0x15dc08…15dd9c Dummy {f00=0x006b, 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
0x15dd9c…15df30 Dummy {f00=0x006b, 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
0x15df30…15e0c4 Dummy {f00=0x006b, 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 :
0x15e0c4…15e258 Dummy {f00=0x006b, 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
0x15e258…15e3ec Dummy {f00=0x006b, 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
0x15e3ec…15e580 Dummy {f00=0x006b, 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
0x15e580…15e714 (2, 209) Dummy {f00=0x006c, 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
0x15e714…15e8a8 Dummy {f00=0x006c, 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
0x15e8a8…15ea3c Dummy {f00=0x006c, 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
0x15ea3c…15ebd0 Dummy {f00=0x006c, 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,
0x15ebd0…15ed64 Dummy {f00=0x006c, 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
0x15ed64…15eef8 Dummy {f00=0x006c, 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
0x15eef8…15f08c Dummy {f00=0x006c, 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
0x15f08c…15f220 Dummy {f00=0x006c, 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
0x15f220…15f3b4 (2, 210) Dummy {f00=0x006c, 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
0x15f3b4…15f548 Dummy {f00=0x006c, 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
0x15f548…15f6dc Dummy {f00=0x006c, 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*
0x15f6dc…15f870 Dummy {f00=0x006c, 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*
0x15f870…15fa04 Dummy {f00=0x006c, 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
0x15fa04…15fb98 Dummy {f00=0x006c, 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
0x15fb98…15fd2c Dummy {f00=0x006c, 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*
0x15fd2c…15fec0 Dummy {f00=0x006c, 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
0x15fec0…160054 (2, 211) Opaque[0x194]
0x160054…1601e8 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d0, f03=0x0000}
0x160054…1601e8 IdxSect {
0x160054…1601e8 f00 = 0x003e // 0x160054 @0x0
0x160054…1601e8 f01 = 0x000c // 0x160056 @0x2
0x160054…1601e8 gno = [ // 0x160058 @0x4
0x160054…1601e8 [0x00]: C0x003e.0x2.0
0x160054…1601e8 [0x01]: C0x003e.0x3.0
0x160054…1601e8 [0x02]: C0x003f.0x0.0
0x160054…1601e8 [0x03]: C0x003f.0x1.0
0x160054…1601e8 [0x04]: C0x003f.0x2.0
0x160054…1601e8 [0x05]: C0x003f.0x3.0
0x160054…1601e8 ]
0x160054…1601e8 }
0x1601e8…16037c Dummy {f00=0x003e, 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**************************************************
0x16037c…160510 Dummy {f00=0x003e, 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
0x160510…1606a4 Dummy {f00=0x003e, 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:
0x1606a4…160838 Dummy {f00=0x003e, 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
0x160838…1609cc Dummy {f00=0x003e, 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
0x1609cc…160b60 Dummy {f00=0x003e, 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
0x160b60…160cf4 (2, 212) Dummy {f00=0x003e, 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*
0x160cf4…160e88 Dummy {f00=0x003e, 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
0x160e88…16101c Dummy {f00=0x003e, 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
0x16101c…1611b0 Dummy {f00=0x003e, 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
0x1611b0…161344 Dummy {f00=0x003e, 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
0x161344…1614d8 Dummy {f00=0x003e, 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
0x1614d8…16166c Dummy {f00=0x003e, 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
0x16166c…161800 Dummy {f00=0x003e, 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
0x161800…161994 (2, 213) Dummy {f00=0x003f, 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)
0x161994…161b28 Dummy {f00=0x003f, 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
0x161b28…161cbc Dummy {f00=0x003f, 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
0x161cbc…161e50 Dummy {f00=0x003f, 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)
0x161e50…161fe4 Dummy {f00=0x003f, 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*
0x161fe4…162178 Dummy {f00=0x003f, 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
0x162178…16230c Dummy {f00=0x003f, 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
0x16230c…1624a0 Dummy {f00=0x003f, 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
0x1624a0…162634 (2, 214) Dummy {f00=0x003f, 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
0x162634…1627c8 Dummy {f00=0x003f, 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
0x1627c8…16295c Dummy {f00=0x003f, 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
0x16295c…162af0 Dummy {f00=0x003f, 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,
0x162af0…162c84 Dummy {f00=0x003f, 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
0x162c84…162e18 Dummy {f00=0x003f, 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*
0x162e18…162fac Dummy {f00=0x003f, 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
0x162fac…163140 Dummy {f00=0x003f, 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
0x163140…1632d4 (2, 215) Dummy {f00=0x003f, 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
0x1632d4…163468 Dummy {f00=0x003f, 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
0x163468…1635fc Dummy {f00=0x003f, 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
0x1635fc…163790 Dummy {f00=0x003f, 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
0x163790…163924 Dummy {f00=0x003f, 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 "
0x163924…163ab8 Dummy {f00=0x003f, 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*
0x163ab8…163c4c Dummy {f00=0x003f, 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
0x163c4c…163de0 Dummy {f00=0x003f, 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
0x163de0…163f74 (2, 216) Dummy {f00=0x003f, 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 &
0x163f74…164108 Dummy {f00=0x003f, 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
0x164108…16429c Dummy {f00=0x003f, 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
0x16429c…164430 Dummy {f00=0x003f, 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*
0x164430…1645c4 Dummy {f00=0x003f, 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
0x1645c4…164758 Dummy {f00=0x003f, 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**************
0x164758…1648ec Dummy {f00=0x003f, 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 , *
0x1648ec…164a80 Dummy {f00=0x003f, 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
0x164a80…164c14 (2, 217) Opaque[0x194]
0x164c14…164da8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b70, f03=0x0000}
0x164c14…164da8 IdxSect {
0x164c14…164da8 f00 = 0x005b // 0x164c14 @0x0
0x164c14…164da8 f01 = 0x0002 // 0x164c16 @0x2
0x164c14…164da8 gno = [ // 0x164c18 @0x4
0x164c14…164da8 [0x00]: C0x005b.0x2.0
0x164c14…164da8 ]
0x164c14…164da8 }
0x164da8…164f3c Dummy {f00=0x005b, 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
0x164f3c…1650d0 Dummy {f00=0x005b, f01=0x4182, f02=» l P EXTRN LPON JOS 77-05012 P EXTRN DUON DISC UNIT ( 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION F $ PPFTAB DATA PFTABE-* TABLE LENGTH z P DATA DC15ON P DATA SOPR P* P DATA CHLTON P DATA LPON FLOPPY
0x1650d0…165264 Dummy {f00=0x005b, 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
0x165264…1653f8 Dummy {f00=0x005b, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IHTW TYPEWRITER X P EXTRN IHTC CASSETTE TAPE v ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x1653f8…16558c Dummy {f00=0x005b, f01=0x0190, f02=»ANGER NO. 1 x ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 @ * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 l * P EXTRN CHLT2 LOCAL CHANNEL UNIT NO. 2 P EXTRN CHLT3 P EXTRN CHLT4 P EXTRN IHFD FLOPPY DISCE
0x16558c…165720 Dummy {f00=0x005b, f01=0x018e, f02=» 2 v P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT ( P EXTRN HALT HALT ROUTINE P P EXTRN BUG DEBUGGER p P EXTRN IHINPT PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD
0x165720…1658b4 (2, 218) Opaque[0x194]
0x1658b4…165a48 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bf8, f03=0x0000}
0x1658b4…165a48 IdxSect {
0x1658b4…165a48 f00 = 0x005f // 0x1658b4 @0x0
0x1658b4…165a48 f01 = 0x0002 // 0x1658b6 @0x2
0x1658b4…165a48 gno = [ // 0x1658b8 @0x4
0x1658b4…165a48 [0x00]: C0x005f.0x3.0
0x1658b4…165a48 ]
0x1658b4…165a48 }
0x165a48…165bdc Dummy {f00=0x005f, 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
0x165bdc…165d70 Dummy {f00=0x005f, 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
0x165d70…165f04 Dummy {f00=0x005f, f01=0x0190, f02=» P EJECT P* $ PLKMAL DATA LKMALE-* TABLE LENGTH P DATA TIO TERMINAL I/O D P DATA TWAIT TERMINAL WAIT b P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMINAL P DATA TPAUSE TERMINAL PAUSE P DATA TIMER TIMER
0x165f04…166098 Dummy {f00=0x005f, f01=0x413c, f02=» FUNCTION ~ P DATA 0 P DATA 0 . P DATA 0 J P DATA 0 f * P DATA TASS ASSIGN FILE CODE AND INDEX P DATA IXTASS P DATA TCHPAG CHANGE MMU PAGE " P DATA TCHMMU CHANGE MMU TABLE
0x166098…16622c Dummy {f00=0x005f, 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
0x16622c…1663c0 Dummy {f00=0x005f, f01=0x0190, f02=» x " P* 2 = NO FREE ENTRY IN TABLE P* 3 = NO FDB AVAILABLE . ( P* 4 = ONE OR MORE VOLUMES UNKNOWN N " P* 5 = FILE CODE ALREADY USED z P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE P* 8 = FAULTY DIS
0x1663c0…166554 (2, 219) Opaque[0x194]
0x166554…1666e8 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b60, f03=0x0000}
0x166554…1666e8 IdxSect {
0x166554…1666e8 f00 = 0x005b // 0x166554 @0x0
0x166554…1666e8 f01 = 0x0002 // 0x166556 @0x2
0x166554…1666e8 gno = [ // 0x166558 @0x4
0x166554…1666e8 [0x00]: C0x005b.0x0.0
0x166554…1666e8 ]
0x166554…1666e8 }
0x1666e8…16687c Dummy {f00=0x005b, 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
0x16687c…166a10 Dummy {f00=0x005b, 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
0x166a10…166ba4 Dummy {f00=0x005b, 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 @
0x166ba4…166d38 Dummy {f00=0x005b, 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
0x166d38…166ecc Dummy {f00=0x005b, 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
0x166ecc…167060 Dummy {f00=0x005b, 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
0x167060…1671f4 (2, 220) Opaque[0x194]
0x1671f4…167388 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd0, f03=0x0000}
0x1671f4…167388 IdxSect {
0x1671f4…167388 f00 = 0x007e // 0x1671f4 @0x0
0x1671f4…167388 f01 = 0x0002 // 0x1671f6 @0x2
0x1671f4…167388 gno = [ // 0x1671f8 @0x4
0x1671f4…167388 [0x00]: C0x007e.0x2.0
0x1671f4…167388 ]
0x1671f4…167388 }
0x167388…16751c Dummy {f00=0x007e, 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
0x16751c…1676b0 Dummy {f00=0x007e, 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
0x1676b0…167844 Dummy {f00=0x007e, 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
0x167844…1679d8 Dummy {f00=0x007e, f01=0x40de, f02=»0,0,0 P IFT MMUPAG=1 PDEVECB EQU * $ P DATA 0,0,0,0,0,0 8 P DATA 0,0,0,0,0,0,0,0 R P DATA 0,0,0,0,0,0,0,0 p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ IRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x1679d8…167b6c Dummy {f00=0x007e, 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
0x167b6c…167d00 Dummy {f00=0x007e, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x167d00…167e94 (2, 221) Opaque[0x194]
0x167e94…168028 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x167e94…168028 IdxSect {
0x167e94…168028 f00 = 0x0040 // 0x167e94 @0x0
0x167e94…168028 f01 = 0x0002 // 0x167e96 @0x2
0x167e94…168028 gno = [ // 0x167e98 @0x4
0x167e94…168028 [0x00]: C0x0040.0x2.0
0x167e94…168028 ]
0x167e94…168028 }
0x168028…1681bc Dummy {f00=0x0040, f01=0x0190, f02=» 0 P IDENT DVTTP REL 9.2 79-11-16 870105040920 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x1681bc…168350 Dummy {f00=0x0040, f01=0x0190, f02=»ATA 0 ECB ADDRESS P DATA DWTEND-DVTTP ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK : P DATA 'TP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x168350…1684e4 Dummy {f00=0x0040, f01=0x40ec, f02=»ATA 0,0,0,0 STACK P DATA 0 TIMER POINTER ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER 8 P IFT MMUPAG=1 d PDEVECB EQU * z P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ VE AREA USER ECB ADDRESS
0x1684e4…168678 Dummy {f00=0x0040, 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
0x168678…16880c Dummy {f00=0x0040, f01=0x0190, f02=»EQUEST ERROR + P SUK A2,18 , P ABL(P) FD:DIS REQUEST ERROR , & P ADK A2,25 , J P SLL A2,3 BIO , P LDK A3,80 LENGTH , r P LDKL A4,BUF , P CF A5,FD:REA , P LDR A1,A3 RETURN CODE , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 N
0x16880c…1689a0 Dummy {f00=0x0040, f01=0x0190, f02=»,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS - " P CF A5,STDWT SAVE IN DWT - 8 P ADK A4,BOE BOE ADDRESS - X . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - x P LDK A1,DWTBOE - $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - P LDK A1,DW
0x1689a0…168b34 (2, 222) Opaque[0x194]
0x168b34…168cc8 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0818, f03=0x0000}
0x168b34…168cc8 IdxSect {
0x168b34…168cc8 f00 = 0x0040 // 0x168b34 @0x0
0x168b34…168cc8 f01 = 0x0002 // 0x168b36 @0x2
0x168b34…168cc8 gno = [ // 0x168b38 @0x4
0x168b34…168cc8 [0x00]: C0x0040.0x3.0
0x168b34…168cc8 ]
0x168b34…168cc8 }
0x168cc8…168e5c Dummy {f00=0x0040, 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
0x168e5c…168ff0 Dummy {f00=0x0040, 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
0x168ff0…169184 Dummy {f00=0x0040, 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
0x169184…169318 Dummy {f00=0x0040, 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
0x169318…1694ac Dummy {f00=0x0040, 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
0x1694ac…169640 Dummy {f00=0x0040, 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*******************
0x169640…1697d4 (2, 223) Opaque[0x194]
0x1697d4…169968 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x1697d4…169968 IdxSect {
0x1697d4…169968 f00 = 0x0041 // 0x1697d4 @0x0
0x1697d4…169968 f01 = 0x0002 // 0x1697d6 @0x2
0x1697d4…169968 gno = [ // 0x1697d8 @0x4
0x1697d4…169968 [0x00]: C0x0041.0x0.0
0x1697d4…169968 ]
0x1697d4…169968 }
0x169968…169afc Dummy {f00=0x0041, f01=0x0190, f02=» 0 P IDENT DVTDI REL 9.2 79-11-16 870105040920 P 8 P =1,HANG UP AT /03 OUTPUT @ P REL 9.1 79-05-23 d P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P*
0x169afc…169c90 Dummy {f00=0x0041, f01=0x0190, f02=»METER x 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS B P DATA DWTEND-DVTDI ORDER ^ ( P DATA DIAD POINTER TO ADDRESS-BLOCK ~ 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x169c90…169e24 Dummy {f00=0x0041, f01=0x415e, f02=» | P DATA /2010 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS 6 P DATA 0 TIMER POINTER d P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DATA 0,
0x169e24…169fb8 Dummy {f00=0x0041, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x169fb8…16a14c Dummy {f00=0x0041, f01=0x018e, f02=» P LDKL A1,/C000 WORDS,WRITE < P XIF < & P IFT CHAN=1 < 2 ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < F P XIF < r P RF FD:800 < ~ P* < PFD:REA EQU * < P IFT CHAN=1 < P LDK A1,1 < P ST A1,DWTRW,A6 READ MODE < P XIF < P IFT C
0x16a14c…16a2e0 Dummy {f00=0x0041, f01=0x0190, f02=» P* = P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = $ * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = N P XIF = | P* = P IFT CHAN=0 = P ORR A3,A1 = PWER1 WER A3,MUXADR FIRST WER = $ PWER2 WER A4,MUXADR+1 SECOND WER = P XIF
0x16a2e0…16a474 (2, 224) Opaque[0x194]
0x16a474…16a608 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0828, f03=0x0000}
0x16a474…16a608 IdxSect {
0x16a474…16a608 f00 = 0x0041 // 0x16a474 @0x0
0x16a474…16a608 f01 = 0x0002 // 0x16a476 @0x2
0x16a474…16a608 gno = [ // 0x16a478 @0x4
0x16a474…16a608 [0x00]: C0x0041.0x1.0
0x16a474…16a608 ]
0x16a474…16a608 }
0x16a608…16a79c Dummy {f00=0x0041, 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
0x16a79c…16a930 Dummy {f00=0x0041, 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
0x16a930…16aac4 Dummy {f00=0x0041, 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
0x16aac4…16ac58 Dummy {f00=0x0041, 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
0x16ac58…16adec Dummy {f00=0x0041, 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* *
0x16adec…16af80 Dummy {f00=0x0041, 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
0x16af80…16b114 (2, 225) Opaque[0x194]
0x16b114…16b2a8 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0938, f03=0x0000}
0x16b114…16b2a8 IdxSect {
0x16b114…16b2a8 f00 = 0x0049 // 0x16b114 @0x0
0x16b114…16b2a8 f01 = 0x0002 // 0x16b116 @0x2
0x16b114…16b2a8 gno = [ // 0x16b118 @0x4
0x16b114…16b2a8 [0x00]: C0x0049.0x3.0
0x16b114…16b2a8 ]
0x16b114…16b2a8 }
0x16b2a8…16b43c Dummy {f00=0x0049, 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
0x16b43c…16b5d0 Dummy {f00=0x0049, 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
0x16b5d0…16b764 Dummy {f00=0x0049, 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
0x16b764…16b8f8 Dummy {f00=0x0049, 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
0x16b8f8…16ba8c Dummy {f00=0x0049, 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 =
0x16ba8c…16bc20 Dummy {f00=0x0049, 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**
0x16bc20…16bdb4 (2, 226) Opaque[0x194]
0x16bdb4…16bf48 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08e0, f03=0x0000}
0x16bdb4…16bf48 IdxSect {
0x16bdb4…16bf48 f00 = 0x0047 // 0x16bdb4 @0x0
0x16bdb4…16bf48 f01 = 0x0002 // 0x16bdb6 @0x2
0x16bdb4…16bf48 gno = [ // 0x16bdb8 @0x4
0x16bdb4…16bf48 [0x00]: C0x0047.0x0.0
0x16bdb4…16bf48 ]
0x16bdb4…16bf48 }
0x16bf48…16c0dc Dummy {f00=0x0047, 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
0x16c0dc…16c270 Dummy {f00=0x0047, 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
0x16c270…16c404 Dummy {f00=0x0047, 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
0x16c404…16c598 Dummy {f00=0x0047, 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
0x16c598…16c72c Dummy {f00=0x0047, 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
0x16c72c…16c8c0 Dummy {f00=0x0047, 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
0x16c8c0…16ca54 (2, 227) Opaque[0x194]
0x16ca54…16cbe8 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fb0, f03=0x0000}
0x16ca54…16cbe8 IdxSect {
0x16ca54…16cbe8 f00 = 0x007d // 0x16ca54 @0x0
0x16ca54…16cbe8 f01 = 0x0002 // 0x16ca56 @0x2
0x16ca54…16cbe8 gno = [ // 0x16ca58 @0x4
0x16ca54…16cbe8 [0x00]: C0x007d.0x2.0
0x16ca54…16cbe8 ]
0x16ca54…16cbe8 }
0x16cbe8…16cd7c Dummy {f00=0x007d, f01=0x0190, f02=» 2 P IDENT DW1501 9.2DK 1 81-11-05 870105040920 P DK1 EXTRA DWTINF : P ORG: REL 9.2 79-11-16 V P v P* ~ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER
0x16cd7c…16cf10 Dummy {f00=0x007d, f01=0x0190, f02=»/8000 STATUS./8000 MEANS DEVICE READY P DATA 0 ECB-ADDRESS . P DATA DWTEND-DW1501 J P RIGHT BYTE=ORDER f * P DATA DC15AD POINTER TO ADDRESS-BLOCK P DATA 'DC' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL
0x16cf10…16d0a4 Dummy {f00=0x007d, f01=0x418c, f02=» DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE : P DATA 0 RECEIVE QUEUE V P DATA 0 BUFFER ADDRESS t P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE " P DATA 0 DEVICE INFORMATION DK1 P* P I
0x16d0a4…16d238 Dummy {f00=0x007d, 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*
0x16d238…16d3cc Dummy {f00=0x007d, f01=0x40e4, f02=» : H IDENT T:DTC0 TRA 4.2 81-03-20 F1 O1111 04.01.XXX.1 T:DTC0 B T:DTC0D T REENTC REGGO h * & TC * " * @ " $ ,
0x16d3cc…16d560 Dummy {f00=0x007d, f01=0x018e, f02=» : H IDENT T:AKA0 TRA 4.2 81-03-20 F1 O1111 04.01.XXX.1 T:AKA0 B T:AKA0A T . * T:DKA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & @ * & P * & =
0x16d560…16d6f4 (2, 228) Opaque[0x194]
0x16d6f4…16d888 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fc0, f03=0x0000}
0x16d6f4…16d888 IdxSect {
0x16d6f4…16d888 f00 = 0x007e // 0x16d6f4 @0x0
0x16d6f4…16d888 f01 = 0x0010 // 0x16d6f6 @0x2
0x16d6f4…16d888 gno = [ // 0x16d6f8 @0x4
0x16d6f4…16d888 [0x00]: C0x007e.0x0.0
0x16d6f4…16d888 [0x01]: C0x0099.0x2.0
0x16d6f4…16d888 [0x02]: C0x0099.0x3.0
0x16d6f4…16d888 [0x03]: C0x00a1.0x1.0
0x16d6f4…16d888 [0x04]: C0x00b3.0x1.0
0x16d6f4…16d888 [0x05]: C0x00b3.0x2.0
0x16d6f4…16d888 [0x06]: C0x00b3.0x3.0
0x16d6f4…16d888 [0x07]: C0x00b4.0x0.0
0x16d6f4…16d888 ]
0x16d6f4…16d888 }
0x16d888…16da1c Dummy {f00=0x007e, 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
0x16da1c…16dbb0 Dummy {f00=0x007e, 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
0x16dbb0…16dd44 Dummy {f00=0x007e, 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
0x16dd44…16ded8 Dummy {f00=0x007e, 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
0x16ded8…16e06c Dummy {f00=0x007e, 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
0x16e06c…16e200 Dummy {f00=0x007e, 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
0x16e200…16e394 (2, 229) Dummy {f00=0x0099, 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
0x16e394…16e528 Dummy {f00=0x0099, 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
0x16e528…16e6bc Dummy {f00=0x0099, 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
0x16e6bc…16e850 Dummy {f00=0x0099, 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
0x16e850…16e9e4 Dummy {f00=0x0099, f01=0x0190, 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 40 NUMBER OF BYTES IN DECIMAL F
0x16e9e4…16eb78 Dummy {f00=0x0099, 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*
0x16eb78…16ed0c Dummy {f00=0x0099, f01=0x0190, f02=» PX:B EQU 1 PCECHO EQU 1 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.
0x16ed0c…16eea0 Dummy {f00=0x0099, 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*
0x16eea0…16f034 (2, 230) Dummy {f00=0x0099, 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
0x16f034…16f1c8 Dummy {f00=0x0099, f01=0x0190, f02=» MMU KEY TABLE SIZE P* P* & PX:K EQU 10 0 PDVBKTB EQU 40 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
0x16f1c8…16f35c Dummy {f00=0x0099, 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
0x16f35c…16f4f0 Dummy {f00=0x0099, 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*
0x16f4f0…16f684 Dummy {f00=0x0099, 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 *
0x16f684…16f818 Dummy {f00=0x0099, 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
0x16f818…16f9ac Dummy {f00=0x0099, 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
0x16f9ac…16fb40 Dummy {f00=0x0099, 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
0x16fb40…16fcd4 (2, 231) Dummy {f00=0x00a1, 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 *
0x16fcd4…16fe68 Dummy {f00=0x00a1, 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
0x16fe68…16fffc Dummy {f00=0x00a1, 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
0x16fffc…170190 Dummy {f00=0x00a1, 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
0x170190…170324 Dummy {f00=0x00a1, 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
0x170324…1704b8 Dummy {f00=0x00a1, 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
0x1704b8…17064c Dummy {f00=0x00a1, 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!
0x17064c…1707e0 Dummy {f00=0x00a1, 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
0x1707e0…170974 (2, 232) Dummy {f00=0x00b3, 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(
0x170974…170b08 Dummy {f00=0x00b3, 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
0x170b08…170c9c Dummy {f00=0x00b3, 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
0x170c9c…170e30 Dummy {f00=0x00b3, 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
0x170e30…170fc4 Dummy {f00=0x00b3, 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
0x170fc4…171158 Dummy {f00=0x00b3, 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
0x171158…1712ec Dummy {f00=0x00b3, 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
0x1712ec…171480 Dummy {f00=0x00b3, 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
0x171480…171614 (2, 233) Dummy {f00=0x00b3, 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)
0x171614…1717a8 Dummy {f00=0x00b3, 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 '
0x1717a8…17193c Dummy {f00=0x00b3, 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 (
0x17193c…171ad0 Dummy {f00=0x00b3, 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
0x171ad0…171c64 Dummy {f00=0x00b3, 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
0x171c64…171df8 Dummy {f00=0x00b3, 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
0x171df8…171f8c Dummy {f00=0x00b3, 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
0x171f8c…172120 Dummy {f00=0x00b3, 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 -
0x172120…1722b4 (2, 234) Dummy {f00=0x00b3, 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* .
0x1722b4…172448 Dummy {f00=0x00b3, 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
0x172448…1725dc Dummy {f00=0x00b3, 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*
0x1725dc…172770 Dummy {f00=0x00b3, 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
0x172770…172904 Dummy {f00=0x00b3, 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
0x172904…172a98 Dummy {f00=0x00b3, 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
0x172a98…172c2c Dummy {f00=0x00b3, 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
0x172c2c…172dc0 Dummy {f00=0x00b3, 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
0x172dc0…172f54 (2, 235) Dummy {f00=0x00b4, 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
0x172f54…1730e8 Dummy {f00=0x00b4, 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,
0x1730e8…17327c Dummy {f00=0x00b4, 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
0x17327c…173410 Dummy {f00=0x00b4, 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
0x173410…1735a4 Dummy {f00=0x00b4, 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
0x1735a4…173738 Dummy {f00=0x00b4, f01=0x0190, f02=» !SSP !LL W L @ V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S -@ S E 3 P S I P S J P S ( P S
0x173738…1738cc Dummy {f00=0x00b4, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ L P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ?
0x1738cc…173a60 Dummy {f00=0x00b4, f01=0x0190, f02=» D LW 0P Q P P E +P W : X + X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @x 1 Ax Z> : D NW (P D + I W6 @K T ( AK U 1_ D + I D N ) E N : T * M<SP P W X * 0
0x173a60…173bf4 (2, 236) Opaque[0x194]
0x173bf4…173d88 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f8, f03=0x0000}
0x173bf4…173d88 IdxSect {
0x173bf4…173d88 f00 = 0x0047 // 0x173bf4 @0x0
0x173bf4…173d88 f01 = 0x0012 // 0x173bf6 @0x2
0x173bf4…173d88 gno = [ // 0x173bf8 @0x4
0x173bf4…173d88 [0x00]: C0x0047.0x3.0
0x173bf4…173d88 [0x01]: C0x0049.0x1.0
0x173bf4…173d88 [0x02]: C0x004a.0x0.0
0x173bf4…173d88 [0x03]: C0x004a.0x1.0
0x173bf4…173d88 [0x04]: C0x004a.0x2.0
0x173bf4…173d88 [0x05]: C0x004a.0x3.0
0x173bf4…173d88 [0x06]: C0x004b.0x0.0
0x173bf4…173d88 [0x07]: C0x004b.0x1.0
0x173bf4…173d88 [0x08]: C0x0083.0x0.0
0x173bf4…173d88 ]
0x173bf4…173d88 }
0x173d88…173f1c Dummy {f00=0x0047, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 9.2 79-11-16 870105040920 P : P =4,CUT AND PERF CORRECTED B P REL 9.1 79-05-23 f P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06 & P =1-3,GEN UPDATE TO 8.2+ STATUS P
0x173f1c…1740b0 Dummy {f00=0x0047, f01=0x0190, f02=» REL 8.2 79-03-16 P =1,IMPRROV. OF TEST ORDER P REL 8.2 78-09-15 @ < P******************************************************* < P* * < P* PHILIPS TERMINAL SYSTEM PTS
0x1740b0…174244 Dummy {f00=0x0047, f01=0x0190, f02=» * < P* * < P* * L P* P* P* < P* * < P******************************
0x174244…1743d8 Dummy {f00=0x0047, f01=0x0190, f02=» TO CPU VIA CHLT OR CHRT v P* P* * 4 P* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: 4 P* l $ P* A C T P : ACTIVATION PART v P* & P* I H T P : INTERRUPT HANDLER P* $ P* R C T P : RECOVERY ROUTINE P*
0x1743d8…17456c Dummy {f00=0x0047, f01=0x0190, f02=» SEND THEM P* 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL P* V D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST ` $ P* CHARACTER IN OUTPUT BUFFER P* . P* G R A S P : SEND GRASP TO VOUCHER
0x17456c…174700 Dummy {f00=0x0047, f01=0x0190, f02=» P* $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE 6 0 P* ORDER 0B : POSITION LIFT AND WRITE X $ P* ORDER 22 : CUT JOURNAL * P* ORDER 26 : PERFORATE JOURNAL . P* ORDER 37 : GRASP VOUCHER/PASS
0x174700…174894 (2, 237) Dummy {f00=0x0049, f01=0x0190, f02=»BIT 0 : REQUEST ERROR 4 P* BIT 8 : RECOVERY EXECUTED ON REQUEST & 8 P* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT ^ ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE P* P* P*
0x174894…174a28 Dummy {f00=0x0049, f01=0x0190, f02=» A3: BUFFER POINTER $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER D P* A6: DWT-ADDRESS j P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* P* P* SYSTEM ADAPT
0x174a28…174bbc Dummy {f00=0x0049, f01=0x0190, f02=»TURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST 4 P* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) < 0 P* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 t H P* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN P* P* @ P
0x174bbc…174d50 Dummy {f00=0x0049, f01=0x018e, f02=» P* P EJECT P* P*********** * P* ENTRIES * > P*********** R P* f P* p P ENTRY TPAD ADDRESS BLOCK z P* P* P* P************* P* EXTERNALS * P************* P* P*
0x174d50…174ee4 Dummy {f00=0x0049, f01=0x0190, f02=» P EXTRN TENDIO END I/O & P EXTRN OUTPUT OUTPUT ONE CHARACTER " " P EXTRN LDREG RESTORE REGISTERS L 8 P EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT r P EXTRN SAVE8 SAVE REG. A1-A8 P* P EXTRN DWTST STATUS EXTRN DWTBC BYT
0x174ee4…175078 Dummy {f00=0x0049, f01=0x0190, f02=» P* ECB DISPLACEMENTS P* $ P EXTRN ECBBA BUFFER ADDRESS . " P EXTRN ECBRL REQUESTED LENGTH R " P EXTRN ECBEL EFFECTIVE LENGTH x P EXTRN ECBRC RETURN CODE P EXTRN ECBCW CONTROL WORD P EJECT P************************
0x175078…17520c Dummy {f00=0x0049, f01=0x0190, f02=»ODE IS SET b P* BY SETTING X:A = 1 P* 0 P* : PX:A EQU 0 D PRECOV EQU 0 V P* j P* t : P* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY ~ P* SETTING X:B = 1 P* P* PX:B EQU 0 PCUTPER EQU
0x17520c…1753a0 Dummy {f00=0x0049, f01=0x0190, f02=»* P* PX:C EQU 0 PCHR13 EQU 0 & P* : P* D PX:D EQU 0 N PCHR14 EQU 0 ` P* t P* ~ 2 P* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF : P* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 P* P*
0x1753a0…175534 (2, 238) Dummy {f00=0x004a, f01=0x0190, f02=»T X < P* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING > P* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET J P* P* PX:F EQU 0 PRELEND EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING
0x175534…1756c8 Dummy {f00=0x004a, f01=0x0190, f02=»ED INSTRUCTION l . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* H PCPU852 EQU 0 R P* f P* p P* MMU BUFFER SIZE z P* P* PX:H EQU 20 PDVBLEN EQU 100 P* P EJECT P* P* P**********
0x1756c8…17585c Dummy {f00=0x004a, f01=0x0190, f02=»/20 RETURN CODE. END OF JOURNAL TAPE P* , P* 6 0 PVOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST @ 2 PEOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. t @ PVOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /400 BIT #5 DWTTS
0x17585c…1759f0 Dummy {f00=0x004a, f01=0x0190, f02=»UMMY ~ , PREMOT EQU /01 RESET PRINT BUFFER REMOTE * PTAB EQU /11 TABULATION CHAR IN BUFFER < PCR1 EQU /0D CR JOURNAL TAPE j PLF1 EQU /18 LF JOURNAL TAPE . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK PLF2 EQU /19 LF TALLY ROLL $ PLD
0x1759f0…175b84 Dummy {f00=0x004a, f01=0x0190, f02=»OR INSERTION OF VOUCHER/PASSBOOK ~ ( PREL EQU /1B RELEASE VOUCHER/PASSBOOK ( " PAPH EQU /1D ATTACH PRINT HEAD T " PRPH EQU /1E RETURN PRINT HEAD z 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE P* P* P*********************
0x175b84…175d18 Dummy {f00=0x004a, f01=0x0190, f02=» P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 6 P* B P IFT MMUPAG=1 L PSTART EQU DWTDRD+4 b P XIF | P* . PDWTRLN EQU START+/12 REQUESTED LINE NUMBER , PDWTALN EQU START+/13 ACTUAL LINE NUMBER P* P EJECT
0x175d18…175eac Dummy {f00=0x004a, f01=0x018e, f02=» IFT CUTPER=0 PBUF2 DATA /0382 STX P XIF 2 P IFT CUTPER=1 > PBUF2 DATA /0482 STX T P XIF p $ P DATA /091D,/2000 CR2,APH,SPACE | & PBUF3 DATA /0382,/091D STX,CR2,APH 4 PBUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2 P*
0x175eac…176040 Dummy {f00=0x004a, f01=0x0190, f02=» P DATA 2 DEVICE INDEX PTPAD EQU * ADDRESS BLOCK P DATA ACTP ACTIVATIONDRIVER @ " P DATA 0 ABORT ROUTINE ADDRESS d P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLESS POINT P*
0x176040…1761d4 (2, 239) Dummy {f00=0x004a, f01=0x0190, f02=» PLFTAB EQU * , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL P* L P* V P IFT CUTPER=1 ` : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE v P XIF PTPTAB EQU * ORDER TABLE P DATA /0002,/0607,/080D P IFT CUT
0x1761d4…176368 Dummy {f00=0x004a, f01=0x0190, f02=»P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR J P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* < P* GET DWT INDEX: 0=JOURNAL,1=TALLY,2
0x176368…1764fc Dummy {f00=0x004a, f01=0x0190, f02=»WTOR+1,A6 SAVE NEW ORDER IN DWT P LDK A4,0 ACTIVATION ( PACT005 LDK A3,TPLEN-1 D 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER b P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL DISIOE ILLEGA
0x1764fc…176690 Dummy {f00=0x004a, f01=0x0190, f02=»,A3 EXECUTE ORDER : PTPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 P IFT CUTPER=1 X P DATA TP700,TP750 n P XIF P DATA TP800,TP900 P EJECT =1 P* =1 P* =1 P* ORDER 00: TEST =1 J P*
0x176690…176824 Dummy {f00=0x004a, f01=0x0190, f02=»TPTEST LDK A2,STX SEND STX =2 P CF A5,OUTPUT =2 & P LDK A2,/02 SEND CHAR /02 =2 @ P CF A5,OUTPUT =1 d * P LDK A2,0 SEND CHAR /00=END OF TEST =1 ~ P CF A5,OUTPUT =1 P RF TPDUMY =1 P EJECT P* P* , P* ORDER
0x176824…1769b8 Dummy {f00=0x004a, f01=0x0190, f02=»T050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB P RF ACT085 D P* V , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS ` & P LC A3,1,A3 GET CONTROL CHARACTER $ P ANK A3,/FF REQUESTED LINE STEPS P SUK A3,/39 P RF(G) ACT070 > /3
0x1769b8…176b4c Dummy {f00=0x004a, f01=0x0190, f02=»1-9 LF r P ADK A3,/5 P RF(Z) TP605 /2B = NO LF PACT070 LDK A3,1 ONE LF @ 4 PACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT ^ * P SUR A1,A3 GET REQUESTED LINE POSITION 2 PACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ? * P LDK A1,0 YES;
0x176b4c…176ce0 Dummy {f00=0x004a, f01=0x0190, f02=»LINE NUMBER p P RF TP605 P EJECT & P* 4 P* > P* H P* ORDER 06 : PRINT JOURNAL R P* v P* P* * PTP200 LDKL A3,BUF1 SEND CR1 AND ATTACH PTP210 EQU * 0 P LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD $
0x176ce0…176e74 (2, 240) Dummy {f00=0x004a, f01=0x018e, f02=»1,3 REQUESTED LENGTH 0-2 ? & P RF(N) TP230 YES; COMPLETE REQUEST " P RF(P) TP215 L P LD A1,2,A8 BUFFER ADDRESS ` P LC A2,2,A1 THIRD CHARACTER $ P CCK A2,/2020 CONTROL CHARACTER P RF(NL) TP215 P LDR A4,A2 SAVE CHAR =2 P LDK
0x176e74…177008 Dummy {f00=0x004a, f01=0x0190, f02=» v P CF A5,OUTPUT =2 P RF TP220 " PTP215 EQU * 4 P CF A5,BUFCHR SEND BUFFER H " P CF A5,PRBUF PRINT ECB-BUFFER j PTP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED P ANS A2,DWTST,A6 P
0x177008…17719c Dummy {f00=0x004a, f01=0x0190, f02=» PTPLF EQU * P LDK A2,STX SEND STX =2 P CF A5,OUTPUT =2 : P LDR A1,A1 T P RF(NE) TPLF10 f " P LDK A2,RPH DETACH PRINT HEAD | P CF A5,OUTPUT SEND PTPLF10 EQU * P SUK A7,8 ( P RF(NN) TPL010 NOT JOURNAL AND TALLY
0x17719c…177330 Dummy {f00=0x004a, f01=0x0190, f02=»8 GET REQUESTED LENGTH | * P ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH ! P EJECT ! L P* ! Z P* ! d P* COMMON END OF PRINT ! n P* ! P* ! " P* SEND LAST DUMMY CHARACTER ! P* ! PTPDUMY EQU * ! P LDK A2,ETB SEND ETB =2 ! P C
0x177330…1774c4 Dummy {f00=0x004a, f01=0x0190, f02=»ARACTER ! l P* " PTPTST EQU * " . P SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ? " . P RF(NZ) TST010 NO " ` $ PTST005 ANK A2,VOIN VOUCHER OUT ? " z P RF(NZ) ENDIO NO " P RF TST015 YES " P* " PTST010 SUK A7,4 " P IFT CUTPER=0 " * P
0x1774c4…177658 Dummy {f00=0x004a, f01=0x0190, f02=» * " P XIF # & P ANK A2,EOJT END OF JOURNAL TAPE? # $ P RF(NZ) ENDIO NO: PERFORM ENDIO # @ ( PTST015 ORK A1,PROUT SET RETURN CODE: # h ( P END OF JOURNAL TAPE, VOUCHER OUT # P* # P* # , P* PERFORM END I/O AND GO TO DISPATCHER # P* #
0x177658…1777ec Dummy {f00=0x004a, f01=0x0190, f02=» # PTST020 SUK A7,16 $ " P RB(L) ENDIO VOUCHER/PASSBOOK $ P SUK A7,4 $ F P RB(G) ENDIO GRASP,RELEASE $ X P RB TST012 CUT,PERFORATE $ z P XIF $ P EJECT $ P* $ P* $ P* $ $ P* ORDER 06 : PRINT TALLY ROLL $ P* $ P* $
0x1777ec…177980 Dummy {f00=0x004a, f01=0x0190, f02=» LDKL A1,VOCHA $ @ P ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED % P RB TP210 % Z P* % l P EJECT % v P* % P* % P* % * P* ORDER 06 : WRITE VOUCHER/PASSBOOK % * P* OB : POSITION LIFT AND WRITE % P* % P
0x177980…177b14 (2, 241) Dummy {f00=0x004a, f01=0x0190, f02=» % P* & P* & * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL & & P* LINE NUMBER IS EQUAL REQUESTED & J P* & t P* & ~ . PTP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER & P RF(E) TP650 EQUAL & " P RF(G) TP630 SEND ELEVATOR UP & " P LDK A2,LDO SE
0x177b14…177ca8 Dummy {f00=0x004a, f01=0x0190, f02=»3,1 DECREMENT ACTUAL LINE NUMBER & P* ' ( & PTP640 CF A5,OUTPUT SEND LIFT CHAR ' 2 P* ' , P SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER ' f P ANK A2,VOIN VOUCHER IN ? ' P IFT COMPL=0 ' & P ABL(Z) RCTP01 NO: ERROR RECOVERY ' , P RB TP610 YES: CHE
0x177ca8…177e3c Dummy {f00=0x004a, f01=0x0190, f02=»VOUCHER OUT' ' | , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE ( P RB TPDUMY ( D P XIF ( V P EJECT ( b P* ( p P* ( z , P* ORDER 06 AND 0B: LIFT IS POSITIONED ( * P* ATTACH AND PRINT ( P* ( P* ( PTP650 EQU * ( &
0x177e3c…177fd0 Dummy {f00=0x004a, f01=0x0190, f02=» AND 26 CUT AND PERFORATE JOURNAL ( P* ) , PTP700 EQU * ) 6 P LDK A3,1 SET INDEX =4 ) J P RF TP760 ) h PTP750 EQU * ) z P LDK A3,0 SET INDEX =4 ) PTP760 LDK A2,STX SEND STX =4 ) P CF A5,OUTPUT =4 ) P LC A2,CPTAB,A3 GET CHAR =4 )
0x177fd0…178164 Dummy {f00=0x004a, f01=0x0190, f02=»ASE VOUCHER/PASSBOOK ) l P* * PTP800 EQU * * & P CF A5,GRASPA * : P RB TPDUMY * P PTP900 EQU * * b P CF A5,RELEAS * v P RB TPDUMY * P * P EJECT * P* * P* P R B U F * P* * F P* SUBROUTINE TO SEND CHARACTERS FROM ECB
0x178164…1782f8 Dummy {f00=0x004a, f01=0x018e, f02=»ST REQUESTED LENGTH * " P LD A3,ECBBA,A8 BUFFER ADDRESS + ( P* SKIP PRECEDING SPACES IN BUFFER + B P ADK A3,2 + n " PPRB010 LCR A1,A3 GET CHARACTER + P CCK A1,/2020 + P RF(NE) PRB050 NOT BLANK + P ADK A3,1 BLANK + P SUK A4,1 + " P R
0x1782f8…17848c Dummy {f00=0x004a, f01=0x0190, f02=» + n ( P ADR A1,A4 LAST CHARACTER IN BUFFER , P LC A1,-1,A1 GET CHAR , 4 * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? , R P RF(E) PRB060 YES , * P CCK A1,/0D0D CARRIAGE RETURN - CR1 ? , P RF(E) PRB060 YES , P LDK A1,0 DUMMY CHARACTER , P RF
0x17848c…178620 Dummy {f00=0x004a, f01=0x0190, f02=»00 SUK A4,1 DECREMENT REQUESTED LENGTH , P RF(NN) PRB105 PRINT BUFFER - . 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) - R P RF(E) PRB101 - P CF A5,OUTPUT SEND CHAR - PPRB101 EQU * - P LDK A2,ETB - & P CF A5,OUTPUT SEND END OF MESS
0x178620…1787b4 (2, 242) Dummy {f00=0x004b, f01=0x018e, f02=» ORS A1,DWTST,A6 - PPRB102 RTN A5 . P EJECT . . P* . < P* . F P* . P P* PRINT BUFFER . Z P* . r P* . | PPRB105 EQU * . 2 P ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED . P SUK A7,7 CHECK ORDER . P RF(L) PRB200 PRINT JOURNA
0x1787b4…178948 Dummy {f00=0x004b, f01=0x0190, f02=» P* / P ANK A2,VOIN VOUCHER IN ? / " P RF(Z) PRB200 NO. GO AND PRINT / 0 " P ADK A5,4 RESET STACK POINTER / V * P RB TP405 SEND LIFT TO TOP AND RELEAS / | P* / P* / P* / P* PRINT VOUCHER/PASSBOOK / P* / P* / $ PPRB110 ANK
0x178948…178adc Dummy {f00=0x004b, f01=0x018e, f02=»45 / P XIF 0 $ P LDR A1,A4 COPY REQUESTED LENGTH 0 P SUK A1,2 R.L. < 3? 0 > $ P RF(N) PRB200 YES: NO TABULATION 0 Z P LDK A1,TAB 0 P CC A1,-2,A3 TABULATION? 0 P RF(NE) PRB200 NO 0 P EJECT 0 P* 0 P* 0 4 P* IF TABULATION CHAR
0x178adc…178c70 Dummy {f00=0x004b, f01=0x0190, f02=» 0 P* 1 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 1 P CF A5,OUTPUT SEND DETACH 1 > , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 1 ` $ P LCR A1,A3 GET 2ND TAB POS CHAR 1 P ANK A1,/F LINE UNIT 1 P SLL A2,4 1 P ANK A2,/F0 LINE DECADE 1 " P O
0x178c70…178e04 Dummy {f00=0x004b, f01=0x018e, f02=»BC,A6 COMPARE WITH ACTUAL TAB. POS. 1 P RF(NG) PRB125 PRINT 2 , P* 2 H P* 2 R P* 2 P LDK A2,/20 LOAD BLANK 2 f ( P CF A5,OUTPUT SEND BLANKS OR DETACH 2 P RB PRB117 2 P* 2 P* 2 P* 2 . PPRB125 SUK A4,2 DECREMENT REQUESTED LENG
0x178e04…178f98 Dummy {f00=0x004b, f01=0x0190, f02=» 2 P* 3 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 3 P* - ROOMLESS POINT 3 H P* - ILLEGAL CHARACTER 3 d & P* - SPECIAL CHARACTER (/13,/14) 3 P* 3 PPRB200 EQU * 3 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 3 " P CCK A7,/AEAE
0x178f98…17912c Dummy {f00=0x004b, f01=0x0190, f02=»ACTER 3 v P ANK A7,/F MASK 4 & P LC A7,ROMTAB,A7 GET CODE IN TABLE 4 & P* 4 P P* 4 Z P* 4 d , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 4 n P RF(L) PRB225 YES 4 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 4 P RF(NG) PRB230 NO 4 P* 4
0x17912c…1792c0 Dummy {f00=0x004b, f01=0x0190, f02=»FT CHR14=1 4 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 P RF(E) PRB230 YES 5 < P XIF 5 V P* 5 b " P LDK A1,CCERR CODE CHECK ERROR 5 l * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5 P RF PRB245 5 P
0x1792c0…179454 (2, 243) Dummy {f00=0x004b, f01=0x018e, f02=»PUT SEND CHARACTER 5 , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 6 P RB PRB100 6 J P* 6 P* 6 f P* 6 p P EJECT 6 z P* 6 P* I H T P 6 P* 6 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT 6 P* 6 P* 6 P* 6 PIHTP E
0x179454…1795e8 Dummy {f00=0x004b, f01=0x018e, f02=» P RF(NG) IHTP20 YES =1 7 , P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT 7 " P =1 7 R P IFT RELEND=0 7 ` * P RF(NZ) RCTP10 YES GO TO DISPATCHER =1 7 v P XIF 7 P IFT RELEND=1 7 ( P RF(NZ) IHTP30 YES FINISH REQUEST =1 7 P XIF 7 8 PIHTP10 ABL
0x1795e8…17977c Dummy {f00=0x004b, f01=0x0190, f02=» 7 P ABL ENDIO 8 P* 8 P* 8 $ P* 8 . P EJECT 8 8 P* 8 F P* R C T P 8 P P* 8 d > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON 8 n P* 8 PRCTP EQU * 8 P IFT CPU852=1 8 & P CF A15,SAVE8 SAVE A1-A8 ON STACK 8
0x17977c…179910 Dummy {f00=0x004b, f01=0x0190, f02=»SY =3 8 t P ANS A2,DWTST,A6 =3 9 P LD A2,DWTECB,A6 =3 9 * ( P RF(Z) RCTP05 REQUEST NOT RUNNING =3 9 F P* 9 r $ PRCTP01 LDKL A5,DWTSB2 STACK BASE 9 | P ADR A5,A6 9 < P LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY 9 P CF A5,OUTPUT SEND
0x179910…179aa4 Dummy {f00=0x004b, f01=0x018e, f02=» 2 P SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER : P LDK A2,LFF LIFT TO TOP : : P CF A5,OUTPUT : Z P LD A2,DWTECB,A6 =3 : p & P RF(NZ) RCTP07 REQUEST RUNNING =3 : 0 P LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3 : P CF A5,OUTPUT =3 : P ABL
0x179aa4…179c38 Dummy {f00=0x004b, f01=0x0190, f02=» P XIF ; P LDK A4,1 IND RECOVERY ; * P ABL ACT005 START RECOVERY OF PRINTER ; . & PRCTP10 ABL TDISP GO TO DISPATCHER ; P EJECT ; P* ; P* B C D T B Y ; P* ; 4 P* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL ; P* ; P* ;
0x179c38…179dcc Dummy {f00=0x004b, f01=0x0190, f02=»BY 6 ; | P RB BCDTB1 < " PBCDTB2 RTN A5 RETURN TO CALLER < P* < F P* < P P* < Z P* < d P* < n P* G R A S P < x P* < 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK < P* < P* < PGRASPA EQU * < P LDK A2,STX SEND
0x179dcc…179f60 Dummy {f00=0x004b, f01=0x0190, f02=»DK A2,GRA GRASP < P CF A5,OUTPUT = P ANK A2,VOIN VOUCHER IN ? = . P RF(NZ) GRAS10 YES = P P LDK A2,ETB SEND ETB =2 = j P CF A5,OUTPUT =2 = " P LDK A2,TETX DUMMY AFTER GRASP = P CF A5,OUTPUT = P LDK A2,STX SEND STX =2 = P CF A5,O
0x179f60…17a0f4 (2, 244) Dummy {f00=0x0083, f01=0x0190, f02=» = P* > P EJECT > P* > P* > * P* R E L E A S > 4 P* > L 2 P* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE > V P* > P* > P* > PRELEAS EQU * > P LDK A1,0 > 0 P SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 > ( P LDK
0x17a0f4…17a288 Dummy {f00=0x0083, f01=0x0190, f02=»,OUTPUT > P ANK A2,VOIN VOUCHER IN ? ? P RF(Z) BUFRTN ? 2 P* ? H P* B U F C H R ? R P* ? j < P* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN ? t ( P* FIRST CHARACTER IN OUTPUT BUFFER ? P* ? P* ? 4 PBUFCHR LCR A4,A3 GET
0x17a288…17a41c Dummy {f00=0x0083, f01=0x40fe, f02=»TER ? t P CF A5,OUTPUT SEND CHARACTER @ P SUK A4,1 DECREMENT COUNTER @ 0 & P RB(NZ) BUFC10 NOT LAST CHARACTER @ T PBUFRTN EQU * @ ~ P RTN A5 RETURN TO CALLER @ P* @ P* @ P* @ P* @ P* @ P* @ P END @ @ @ A4,A3 GET
0x17a41c…17a5b0 Dummy {f00=0x0083, f01=0x2008, f02=» A * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x17a5b0…17a744 Dummy {f00=0x0083, f01=0x018e, f02=» , ( Y _` B P $$ R % C , ( y * ! W Y +P Y *P Y ( 4 , ( P Y )P R _Q P OR d , ( R W " ! B W W , ( @ 0 Z ! B Z Z& , ( X . 0
0x17a744…17a8d8 Dummy {f00=0x0083, f01=0x0190, f02=» DISEND , ( OA Y C ! " * & i @ Q R X # P X R ;GV X J LDREG x , ( @ P y P X DWTA3 DWTSB2 , ( @ R ;GV X X , *
0x17a8d8…17aa6c Dummy {f00=0x0083, f01=0x0190, f02=» h , ( :d Y > > ? 8 R @R , ( ) V @% =cW R P R P R P W 8 , ( I 9 W $ P W _ $ P h , ( i _$ _*_, _ %0=c X , ( 0P > 0 > >_ B 1 >
0x17aa6c…17ac00 Dummy {f00=0x0083, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x17ac00…17ad94 (2, 245) Opaque[0x194]
0x17ad94…17af28 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0970, f03=0x0000}
0x17ad94…17af28 IdxSect {
0x17ad94…17af28 f00 = 0x004b // 0x17ad94 @0x0
0x17ad94…17af28 f01 = 0x000e // 0x17ad96 @0x2
0x17ad94…17af28 gno = [ // 0x17ad98 @0x4
0x17ad94…17af28 [0x00]: C0x004b.0x2.0
0x17ad94…17af28 [0x01]: C0x004b.0x3.0
0x17ad94…17af28 [0x02]: C0x004c.0x0.0
0x17ad94…17af28 [0x03]: C0x004c.0x1.0
0x17ad94…17af28 [0x04]: C0x004c.0x2.0
0x17ad94…17af28 [0x05]: C0x004c.0x3.0
0x17ad94…17af28 [0x06]: C0x004d.0x0.0
0x17ad94…17af28 ]
0x17ad94…17af28 }
0x17af28…17b0bc Dummy {f00=0x004b, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 9.2 80-01-03 870105040920 P : P =4,MMU BUFFER CONDITION B P REL 9.2 79-11-16 d P =3,RB - ABL P REL 9.1 79-05-23 P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06
0x17b0bc…17b250 Dummy {f00=0x004b, f01=0x0190, f02=» " P =1,ECHO OF LF AND CR, ABIS P REL 8.2 78-09-15 * P* F P* P 6 P************************************************** Z P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRGP01 = DRIVER GENERAL PRINTER P* P*
0x17b250…17b3e4 Dummy {f00=0x004b, f01=0x018e, f02=»DRIVER HANDLES GENERAL TERMINAL PRINTER < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. 0 P* p 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO z 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE 6 P* GENERAL PRINTER AS
0x17b3e4…17b578 Dummy {f00=0x004b, f01=0x0190, f02=» 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* 8 & P* A C G P ACTIVATION PART B P* l ( P* I H G P INTERRUPT HANDLER v P* ( P* R C G P RECOVERY ROUTINE P* & P* E C H O G P ECHO FUNCTIONS
0x17b578…17b70c Dummy {f00=0x004b, f01=0x0190, f02=» 05: BASIC WRITE " P* 06: STANDARD WRITE P* @ P* NORMAL REGISTER USAGE J P* l " P* REGISTER A1 = RETURN CODE v ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX $ P* A4 = WORK
0x17b70c…17b8a0 Dummy {f00=0x004b, f01=0x018e, f02=» A8 = ECB-ADDRESS P* P* $ P* SYSTEM ADAPTATION . P* L : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR V ( P* (GPCLR) KEYS SHOULD BE DEFINED. P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS 0 P*
0x17b8a0…17ba34 (2, 246) Dummy {f00=0x004b, f01=0x0190, f02=» X P* D P* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER Z * P** --SUPPRESION OF TRAILING BLANKS @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE P*
0x17ba34…17bbc8 Dummy {f00=0x004b, f01=0x0190, f02=» P EJECT P* P* P* & P* 0 P*********** : P* ENTRIES * N P*********** b P* v P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P* P* P
0x17bbc8…17bd5c Dummy {f00=0x004b, f01=0x0190, f02=»************************* P* " P* , $ P EXTRN DISIOE I/O REQUEST ERROR 6 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER ^ P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O
0x17bd5c…17bef0 Dummy {f00=0x004b, f01=0x0190, f02=»R FROM ECB-BUFFER v P EJECT P* ( P* 2 P************************ < P* DWT PARAMETERS * P************************ | P* P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER P
0x17bef0…17c084 Dummy {f00=0x004b, f01=0x018e, f02=» P* P* : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY PSTX EQU /82 START OF MESSAGE Z PETB EQU /97 END OF MESSAGE ~ PETX EQU /03 LAST DUMMY PCR EQU /0D CARRIAGE RETURN PLF EQU /0A LINE FEED PFFED EQU /0C
0x17c084…17c218 Dummy {f00=0x004b, f01=0x0190, f02=» * P************************************** * P* CONDITIONAL ASSEMBLY * 6 * P************************************** d P* 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT $ P* FUNCTION BY SETTING X:A = 0 P* PX:A
0x17c218…17c3ac Dummy {f00=0x004b, f01=0x0190, f02=»NG X:B=1 l P* PX:B EQU 0 PTRETON EQU 0 , P* @ 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE J 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* PX:C EQU 0 PFJOTON EQU 0 P* . P* IT IS POSSIBLE TO E
0x17c3ac…17c540 Dummy {f00=0x004b, 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
0x17c540…17c6d4 (2, 247) Dummy {f00=0x004c, 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 0 P* . P* A
0x17c6d4…17c868 Dummy {f00=0x004c, 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
0x17c868…17c9fc Dummy {f00=0x004c, 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
0x17c9fc…17cb90 Dummy {f00=0x004c, 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*
0x17cb90…17cd24 Dummy {f00=0x004c, 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
0x17cd24…17ceb8 Dummy {f00=0x004c, 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*
0x17ceb8…17d04c Dummy {f00=0x004c, 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
0x17d04c…17d1e0 Dummy {f00=0x004c, 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 =
0x17d1e0…17d374 (2, 248) Dummy {f00=0x004c, f01=0x0190, f02=»8 GET BUFFER ADDRESS =1 ( P LC A3,1,A3 GET CONTROL CHARACTER =1 P ANK A3,/FF =1 L PACGP01 SUK A3,/2B =1 d $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 P LDK A2,CR =1 P CF A5,OUTPUT =1 P IFT ABIS=1
0x17d374…17d508 Dummy {f00=0x004c, f01=0x0190, f02=» P SUK A3,/30-/2B =1 * P RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 $ P CF A5,OUTPUT =1 R P LDK A2,LF =1 l , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 * PACGP06 LDK A3,2 START BUFFER INDEX =1 PACGP09 CF A5
0x17d508…17d69c Dummy {f00=0x004c, f01=0x0190, f02=»ST OF BOTH SUM OFF AND PRINTER NOT THERE =2 t P* =2 6 $ PACGP10 LDK A2,2 SEND CHAR /02 =2 F P CF A5,OUTPUT =2 n * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 P RF AGP410 =2 P EJECT P* & P* GET,
0x17d69c…17d830 Dummy {f00=0x004c, f01=0x0190, f02=»TER UPDATING p PACGP19 EQU * * P LDKL A4,/400 INDICATE LINE FEED DONE ( P ORS A4,DWTST,A6 V P IFT SUPSPA=1 n 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF P LDK A4,0 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BU
0x17d830…17d9c4 Dummy {f00=0x004c, f01=0x0190, f02=»WRITE | $ P SUK A1,9 HARDWARE TABULATION ? P RF(NE) ACGP22 6 0 P ST A4,DWTAP,A6 RESET HEAD POSITION POINTER L P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? P RF(E) ACGP40 P IFT ABIS=1 =1 P CWK A2,/07 BELL ? =1
0x17d9c4…17db58 Dummy {f00=0x004c, f01=0x0190, f02=» ? x P* P XIF P* P IFT TRETON=0 * P IFT FJOTON=1 @ P* V P SUK A1,3 /14? ` P RB(E) ACGP17 v P SUK A1,/C LESS THAN /20 ? P* P XIF P* P* P IFT TRETON=1 P IFT FJOTON=0 P*
0x17db58…17dcec Dummy {f00=0x004c, 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
0x17dcec…17de80 Dummy {f00=0x004c, 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
0x17de80…17e014 (2, 249) Dummy {f00=0x004c, 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
0x17e014…17e1a8 Dummy {f00=0x004c, 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
0x17e1a8…17e33c Dummy {f00=0x004c, 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*
0x17e33c…17e4d0 Dummy {f00=0x004c, 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 ,
0x17e4d0…17e664 Dummy {f00=0x004c, 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
0x17e664…17e7f8 Dummy {f00=0x004c, 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
0x17e7f8…17e98c Dummy {f00=0x004c, 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
0x17e98c…17eb20 Dummy {f00=0x004c, 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
0x17eb20…17ecb4 (2, 250) Dummy {f00=0x004c, f01=0x018e, f02=»R ? % t P RF(NE) SKIP30 NO & P SUK A1,2 DECR BA & & P SUK A2,2 DECR RL & @ P RB SKIP07 GET NEXT & Z P* & v " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & P XIF & P EJECT & P* & P* I H G P & P* & P* INTERRUPT &
0x17ecb4…17ee48 Dummy {f00=0x004c, f01=0x0190, f02=» P LDR A7,A7 ORDER 0? ' P RF(Z) IHGP20 =2 ' . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? ' : P IFT RECEND=0 ' l P RB(NZ) EXIT ' P XIF ' P IFT RECEND=1 ' P RB(NZ) AGP430 ' P XIF ' P ' 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETU
0x17ee48…17efdc Dummy {f00=0x004c, f01=0x018e, f02=» P* E C H O G P ( P* ( 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE ( & P* ( Z PECHOGP EQU * ( d P LDK A4,COSPAC ( x P LDR A7,A7 EOR? ( P RF(N) ECGP17 YES ( P* ( P IFT EORECH=0 ( P* ( P SUK A2,/80 EOR-CHARACTER (
0x17efdc…17f170 Dummy {f00=0x004c, f01=0x0190, f02=» P RF(E) ECGP40 BACKSPACE ) P SUK A1,/2 LINE FEED =1 ) $ P RF(E) ECGP10 YES =1 ) D P SUK A1,/3 CR =1 ) ` P RF(E) ECGP10 YES =1 ) x P SUK A1,/B =1 ) P RF(E) ECGP50 CLEAR ) 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N)
0x17f170…17f304 Dummy {f00=0x004c, f01=0x0190, f02=»NTER ) p P SUK A4,1 READY ? * P RF(N) ECGP20 YES * & * P RF(P) ECGP60 NO, GO TO CLEAR SECTION * @ P* * n P IFT COSPAC=1 * x P* * P LDK A2,SPACE NO SEND SPACE * P RB ECGP10 * P* * P XIF * P* * 6 PECGP17 CF A15,UPDAPP UPDAT
0x17f304…17f498 Dummy {f00=0x004c, f01=0x0190, f02=»40 EQU * * & P LDK A2,GPBSP BACKSPACE CHARACTER + P RB ECGP10 + : P* + L P* CANCEL + V P* + j PECGP50 EQU * + t " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + P RB ECGP10 + PECGP60 LDK A2,LF LINE FEED + P LC A3,DWTBC,A6 +
0x17f498…17f62c Dummy {f00=0x004c, f01=0x018e, f02=» A3,0 + * P SC A3,DWTBC,A6 RESET POSITION COUNTER , P RB ECGP20 , < P EJECT , N P* , P* R C G P , f P* , z 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , P* , ( P* RECOVERY IS CARRIED OUT ONLY IF , P* ORDER 6 IS
0x17f62c…17f7c0 Dummy {f00=0x004c, f01=0x0190, f02=» , x PRCGP EQU * - P IFT CPU852=1 - & P CF A15,SAVE8 SAVE A1-A8 ON STACK - 0 P XIF - Z P* - f P IFT CPU852=0 - p " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - P* - P LD A2,DWTST,A6 BUSY ? - P RB(N) EXIT NO - ( P LDK A2,SOH RESET
0x17f7c0…17f954 (2, 251) Dummy {f00=0x004d, 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
0x17f954…17fae8 Dummy {f00=0x004d, 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
0x17fae8…17fc7c Dummy {f00=0x004d, 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 & (
0x17fc7c…17fe10 Dummy {f00=0x004d, f01=0x0190, f02=» PRINT HEAD 0 P* 1 P* 1 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 1 ( P CF A5,OUTPUT SEND DETACH 1 T , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 1 v $ P LCR A1,A3 GET 2ND TAB POS CHAR 1 P ANK A1,/F LINE UNIT 1 P SLL A2,4 1 P ANK A2,/F0
0x17fe10…17ffa4 Dummy {f00=0x004d, f01=0x0190, f02=»TER 1 j 2 P CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. 2 P RF(NG) PRB125 PRINT 2 B P* 2 ^ P* 2 h P* 2 r P LDK A2,/20 LOAD BLANK 2 | ( P CF A5,OUTPUT SEND BLANKS OR DETACH 2 P RB PRB117 2 P* 2 P* 2 P* 2 . PPRB125 SUK A4,2 DE
0x17ffa4…180138 Dummy {f00=0x004d, f01=0x0190, f02=» 2 P* 3 P* 3 P* 3 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 3 & P* - ROOMLESS POINT 3 P* - ILLEGAL CHARACTER 3 x & P* - SPECIAL CHARACTER (/13,/14) 3 P* 3 PPRB200 EQU * 3 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 3
0x180138…1802cc Dummy {f00=0x004d, f01=0x018e, f02=»7,A3 GET OUTPUT CHARACTER 3 P ANK A7,/F MASK 4 " & P LC A7,ROMTAB,A7 GET CODE IN TABLE 4 : P* 4 d P* 4 n P* 4 x , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 4 P RF(L) PRB225 YES 4 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 4 P RF(NG) PRB2
0x1802cc…180460 Dummy {f00=0x004d, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x180460…1805f4 (2, 252) Opaque[0x194]
0x1805f4…180788 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09a8, f03=0x0000}
0x1805f4…180788 IdxSect {
0x1805f4…180788 f00 = 0x004d // 0x1805f4 @0x0
0x1805f4…180788 f01 = 0x0008 // 0x1805f6 @0x2
0x1805f4…180788 gno = [ // 0x1805f8 @0x4
0x1805f4…180788 [0x00]: C0x004d.0x1.0
0x1805f4…180788 [0x01]: C0x004d.0x3.0
0x1805f4…180788 [0x02]: C0x004e.0x0.0
0x1805f4…180788 [0x03]: C0x004e.0x1.0
0x1805f4…180788 ]
0x1805f4…180788 }
0x180788…18091c Dummy {f00=0x004d, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x18091c…180ab0 Dummy {f00=0x004d, f01=0x0190, f02=»* THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 > P* AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232 B " P* 6233, 6236 AND 633, 62361. P* @ P* THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT P* 4 P* TH
0x180ab0…180c44 Dummy {f00=0x004d, f01=0x0190, f02=»LER t P* " P* R C D I : RECOVERY ROUTINE P* < * P* THE FOLLOWING ORDERS ARE TREATED: F P* t " P* ORDER 05: WRITE LIGHTS ON ~ " P* 06: WRITE LIGHTS OFF ( P* 07: WRITE PROGRAM DISPLAY , P* 39:
0x180c44…180dd8 Dummy {f00=0x004d, f01=0x0190, f02=» t P* A2: OUTPUT " P* A3: WORK REGISTER ( " P* A4: WORK REGISTER N " P* A5: WORK REGISTER t P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADDRESS P*
0x180dd8…180f6c Dummy {f00=0x004d, f01=0x0190, f02=» 1 IF PROGRAM DISPLAY (PTS 6241) , P* BIT 11 = 1 FOR PTS 6232,6331,6236 , , P* BIT 11 = 0 FOR PTS 6241,6242,6233 P* : P* ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* P EJECT
0x180f6c…181100 Dummy {f00=0x004d, f01=0x0190, f02=»-BLOCK r P* P******************* P* EXTERNALS * 4 P******************* P P* l P EXTRN SAVE8 SAVE REGS v P EXTRN TENDIO END I/O . P EXTRN DISEND PERFORM END I/O AND DISPATCH * P EXTRN TDISP DISPATCHER ORDINARY INT
0x181100…181294 (2, 253) Dummy {f00=0x004d, f01=0x0190, f02=» STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS 2 P* T P EXTRN SETIMP SET TIMER ^ P* ~ P* P EJECT P* P* P*************** P* TABLES * P*************** P* P*
0x181294…181428 Dummy {f00=0x004d, f01=0x0190, f02=»DRIVER z " P DATA 0 ABORT ROUTINE ADDRESS P DATA IHDI INTERRUPT HANDLER 4 P DATA RCDI RECOVERY ROUTINE X P* | " PCCERR EQU /4 CODE CHECK ERROR P* P EJECT P* P* P************************* P* CONDITIONAL
0x181428…1815bc Dummy {f00=0x004d, f01=0x0190, f02=»* SETTING X:A=0 P* PX:A EQU 0 $ PORD7 EQU 0 6 P* H P* R 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1 0 P* ORDERS 05,06AND 07 ARE THEN REPLACED BY P* ORDERS 37,38 AND 06
0x1815bc…181750 Dummy {f00=0x004d, f01=0x0190, f02=»Y SETTING X:B=1 | P* PX:B EQU 0 " PFLASH EQU 0 4 P* H P* R . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING
0x181750…1818e4 Dummy {f00=0x004d, f01=0x018e, f02=»* P* P* MMU BUFFER SIZE P* 0 PX:C EQU 4 : PDVBLEN EQU X:C L P* b P* l P********************* v P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFIN
0x1818e4…181a78 Dummy {f00=0x004d, f01=0x0190, f02=» | P XIF P* " PDWTDIB EQU START+/02 SAVE AREA 2 PDWTFLA EQU START+/08 SAVE AREA FOR FLASH IMAGE D & PDWTTP EQU START+/0A TIMER POINTER z PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* AC
0x181a78…181c0c Dummy {f00=0x004d, f01=0x0190, f02=»EDIT=1 P CCK A7,/0707 P RF(E) ADI050 ORDER /07 $ P XIF D P IFT ORD7+CREDIT=2 P P CCK A7,/0606 j P RF(E) ADI050 ORDER /06 P XIF $ P LD A4,10,A8 CONTROL WORD TO A4 P LDR* A3,A6 4 P ANK A3,/10 TEST IF ONE OR TWO C
0x181c0c…181da0 Dummy {f00=0x004d, f01=0x0190, f02=» P SLL A3,4 P ORR A4,A3 LAMPCODES IN A4 PADI005 EQU * < P IFT FLASH=1 P P CCK A7,/3939 d P RF(E) FLA05 z P XIF P IFT CREDIT=0 P SUK A7,5 P XIF P IFT CREDIT=1 P SUK A7,/37 P XIF P RF(
0x181da0…181f34 (2, 254) Dummy {f00=0x004e, f01=0x0190, f02=»* P* P IFT FLASH=1 P* ( P* FLASH ORDER /39 2 P* R P* , PFLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE f & P LD A1,DWTTP,A6 GET TIMER POINTER ( P RF(NZ) FLA10 TIMER ALREADY STARTED P LDK A4,DWTTP START TIMER
0x181f34…1820c8 Dummy {f00=0x004e, f01=0x0190, f02=»NRS A4,A6 CHECK ON-OFF INDICATOR PFLA10 EQU * ( P LD A4,DWTFLA,A6 < & P LDR* A2,A6 CHECK ON-OFF INDICATOR T P ANK A2,/40 ~ * P RF(Z) FLA20 WRITE FLASHING LIGHTS OFF P ORS A4,DWTDIB,A6 ON + FLASH P RF ADI030 TURN ON LAMPS PFLA2
0x1820c8…18225c Dummy {f00=0x004e, f01=0x0190, f02=»A1 P LD A4,DWTFLA,A6 < P RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER " P LDKL A1,-TIME RESTART TIMER b P ST* A1,DWTTP,A6 P LDK A4,/40 " P XRRS A4,A6 SWITCH 0N-OFF FLAG P RB FLA10 PFLA30 CM DWTTP,A6 P RF
0x18225c…1823f0 Dummy {f00=0x004e, f01=0x0190, f02=» A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER P IFT FLASH=1 . 0 P ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE B P XIF v P RF ADI030 P* P* P EJECT P* P* P* ORDER 05: TURN ON LAMPS P* P* P*
0x1823f0…182584 Dummy {f00=0x004e, f01=0x0190, f02=»AGE h P XIF . PADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER PADI035 LDK A1,1 J 6 P SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER b P LDR* A3,A6 TWO OUTPUTS ? P ANK A3,/10 P RF(NZ) IHDI10 NO P RF IHDI20 YES P*
0x182584…182718 Dummy {f00=0x004e, f01=0x0190, f02=»0 & PADI060 CF A15,GETCHR GET CHARACTER P LDR A1,A1 LAST CHARACTER ? 4 P RF(Z) ADI070 YES X P LDR A4,A2 r P SRL A4,4 $ P SUK A4,3 UNDEFINED CHARACTER ? P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? P RF(G) ADI100 YES
0x182718…1828ac Dummy {f00=0x004e, f01=0x0190, f02=» < PADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER P RF IHDI10 SEND CHARACTERS D P* f P* p P* CODE CHECK ERROR z P* ( PADI100 LDK A1,CCERR SET RETURN CODE P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER
0x1828ac…182a40 Dummy {f00=0x004e, f01=0x0190, f02=»* PIHDI EQU * P LDR A1,A1 RETURN CODE P RF(NE) ENDIO YES END I/O : P LD A4,DWTST,A6 GET STATUS P ANK A4,/FF ~ P SUK A4,2 TWO CHARS. SENT P IFT ORD7=1 P RF(NZ) IHDI05 NO & P LDR* A3,A6 GET CHANNEL PARAMETER
0x182a40…182bd4 (2, 255) Dummy {f00=0x004e, f01=0x018e, f02=»RFORM ENDIO | PIHDI10 LDKL A2,DWTDIB P ADR A2,A6 2 P LD A4,DWTST,A6 F P ANK A4,/FF ^ P ADR A2,A4 r P LCR A2,A2 GET CHARACTER P XIF P IFT ORD7=0 P RF(Z) ENDIO 2 PIHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER
0x182bd4…182d68 Dummy {f00=0x004e, f01=0x0190, f02=» P ORK A2,/40 INDICATE BELL P* & . POUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER 0 & PIHDI20 CF A15,OUTLIN OUTPUT CHAR. b PEXIT ABL TDISP 2 PENDIO ABL DISEND PERFORM END I/O AND DISPATCH P* P EJECT P* P* R C D I
0x182d68…182efc Dummy {f00=0x004e, f01=0x018e, f02=»RMATION Z , P* OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & 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*
0x182efc…183090 Dummy {f00=0x004e, f01=0x4014, f02=» P @ OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & 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*
0x183090…183224 Dummy {f00=0x004e, f01=0x2008, f02=» POWER FAILURE TIME.THE INFORMATION ~ , P* OM PROGRAM DISPLAY IS ALSO RESTORED 4 P* d P* n PRCDI EQU * x P CF A15,SAVE8 SAVE REGS. ( P LC A2,DWTDIB,A6 GET FIRST CHARACTER P RB ADI035 P* P* P END P
0x183224…1833b8 Dummy {f00=0x004e, f01=0x0190, f02=» p P DATA 2 DEVICE INDEX PGPAD EQU * ADDRESS BLOCK $ P DATA ACGP ACTIVATION DRIVER D " P DATA 0 ABORT ROUTINE ADDRESS h P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P
0x1833b8…18354c Dummy {f00=0x004e, f01=0x0190, f02=»T STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE ~ < P* IS SET IF PAPER OUT OR READY SWITCH OFF. : H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM z P* CHANNEL UNIT. P* > P* ORDER 05: BASIC
0x18354c…1836e0 Dummy {f00=0x004e, f01=0x018e, f02=»ARE SENT TO PRINTER FROM f < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* ` PACGP EQU * j P LDK A2,STX START OF MESSAGE | P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1
0x1836e0…183874 (2, 256) Opaque[0x194]
0x183874…183a08 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a60, f03=0x0000}
0x183874…183a08 IdxSect {
0x183874…183a08 f00 = 0x0053 // 0x183874 @0x0
0x183874…183a08 f01 = 0x0018 // 0x183876 @0x2
0x183874…183a08 gno = [ // 0x183878 @0x4
0x183874…183a08 [0x00]: C0x0053.0x0.0
0x183874…183a08 [0x01]: C0x0053.0x2.0
0x183874…183a08 [0x02]: C0x0057.0x0.0
0x183874…183a08 [0x03]: C0x0057.0x1.0
0x183874…183a08 [0x04]: C0x0057.0x2.0
0x183874…183a08 [0x05]: C0x0057.0x3.0
0x183874…183a08 [0x06]: C0x0058.0x0.0
0x183874…183a08 [0x07]: C0x0083.0x1.0
0x183874…183a08 [0x08]: C0x0083.0x3.0
0x183874…183a08 [0x09]: C0x0084.0x1.0
0x183874…183a08 [0x0a]: C0x0084.0x2.0
0x183874…183a08 [0x0b]: C0x0084.0x3.0
0x183874…183a08 ]
0x183874…183a08 }
0x183a08…183b9c Dummy {f00=0x0053, 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 =
0x183b9c…183d30 Dummy {f00=0x0053, 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
0x183d30…183ec4 Dummy {f00=0x0053, 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*
0x183ec4…184058 Dummy {f00=0x0053, 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*
0x184058…1841ec Dummy {f00=0x0053, 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
0x1841ec…184380 Dummy {f00=0x0053, 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
0x184380…184514 (2, 257) Dummy {f00=0x0053, 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
0x184514…1846a8 Dummy {f00=0x0053, 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*
0x1846a8…18483c Dummy {f00=0x0053, 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*****************************************
0x18483c…1849d0 Dummy {f00=0x0053, 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
0x1849d0…184b64 Dummy {f00=0x0053, 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 /
0x184b64…184cf8 Dummy {f00=0x0053, 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
0x184cf8…184e8c Dummy {f00=0x0053, 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
0x184e8c…185020 Dummy {f00=0x0053, 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
0x185020…1851b4 (2, 258) Dummy {f00=0x0057, 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
0x1851b4…185348 Dummy {f00=0x0057, 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*
0x185348…1854dc Dummy {f00=0x0057, 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*
0x1854dc…185670 Dummy {f00=0x0057, 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
0x185670…185804 Dummy {f00=0x0057, 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
0x185804…185998 Dummy {f00=0x0057, 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
0x185998…185b2c Dummy {f00=0x0057, 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*
0x185b2c…185cc0 Dummy {f00=0x0057, 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
0x185cc0…185e54 (2, 259) Dummy {f00=0x0057, 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:
0x185e54…185fe8 Dummy {f00=0x0057, 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
0x185fe8…18617c Dummy {f00=0x0057, 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.
0x18617c…186310 Dummy {f00=0x0057, 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
0x186310…1864a4 Dummy {f00=0x0057, 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
0x1864a4…186638 Dummy {f00=0x0057, 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
0x186638…1867cc Dummy {f00=0x0057, 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
0x1867cc…186960 Dummy {f00=0x0057, 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
0x186960…186af4 (2, 260) Dummy {f00=0x0057, 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
0x186af4…186c88 Dummy {f00=0x0057, 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
0x186c88…186e1c Dummy {f00=0x0057, 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
0x186e1c…186fb0 Dummy {f00=0x0057, 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
0x186fb0…187144 Dummy {f00=0x0057, 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
0x187144…1872d8 Dummy {f00=0x0057, 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
0x1872d8…18746c Dummy {f00=0x0057, 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 $
0x18746c…187600 Dummy {f00=0x0057, 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
0x187600…187794 (2, 261) Dummy {f00=0x0057, 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
0x187794…187928 Dummy {f00=0x0057, 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
0x187928…187abc Dummy {f00=0x0057, 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
0x187abc…187c50 Dummy {f00=0x0057, 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,
0x187c50…187de4 Dummy {f00=0x0057, 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
0x187de4…187f78 Dummy {f00=0x0057, 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 +
0x187f78…18810c Dummy {f00=0x0057, 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 =
0x18810c…1882a0 Dummy {f00=0x0057, 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
0x1882a0…188434 (2, 262) Dummy {f00=0x0058, 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
0x188434…1885c8 Dummy {f00=0x0058, 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 * / $
0x1885c8…18875c Dummy {f00=0x0058, 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
0x18875c…1888f0 Dummy {f00=0x0058, 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(
0x1888f0…188a84 Dummy {f00=0x0058, 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
0x188a84…188c18 Dummy {f00=0x0058, 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
0x188c18…188dac Dummy {f00=0x0058, 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*
0x188dac…188f40 Dummy {f00=0x0058, 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
0x188f40…1890d4 (2, 263) Dummy {f00=0x0083, 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
0x1890d4…189268 Dummy {f00=0x0083, 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*
0x189268…1893fc Dummy {f00=0x0083, 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*
0x1893fc…189590 Dummy {f00=0x0083, 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
0x189590…189724 Dummy {f00=0x0083, 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,
0x189724…1898b8 Dummy {f00=0x0083, 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 ;
0x1898b8…189a4c Dummy {f00=0x0083, 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
0x189a4c…189be0 Dummy {f00=0x0083, 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
0x189be0…189d74 (2, 264) Dummy {f00=0x0083, 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*
0x189d74…189f08 Dummy {f00=0x0083, 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* ?
0x189f08…18a09c Dummy {f00=0x0083, 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
0x18a09c…18a230 Dummy {f00=0x0083, 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
0x18a230…18a3c4 Dummy {f00=0x0083, 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
0x18a3c4…18a558 Dummy {f00=0x0083, 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
0x18a558…18a6ec Dummy {f00=0x0083, 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
0x18a6ec…18a880 Dummy {f00=0x0083, 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
0x18a880…18aa14 (2, 265) Dummy {f00=0x0084, 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
0x18aa14…18aba8 Dummy {f00=0x0084, 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
0x18aba8…18ad3c Dummy {f00=0x0084, 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
0x18ad3c…18aed0 Dummy {f00=0x0084, 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
0x18aed0…18b064 Dummy {f00=0x0084, 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******
0x18b064…18b1f8 Dummy {f00=0x0084, 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
0x18b1f8…18b38c Dummy {f00=0x0084, 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
0x18b38c…18b520 Dummy {f00=0x0084, 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
0x18b520…18b6b4 (2, 266) Dummy {f00=0x0084, 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
0x18b6b4…18b848 Dummy {f00=0x0084, 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
0x18b848…18b9dc Dummy {f00=0x0084, 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
0x18b9dc…18bb70 Dummy {f00=0x0084, 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
0x18bb70…18bd04 Dummy {f00=0x0084, 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
0x18bd04…18be98 Dummy {f00=0x0084, 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
0x18be98…18c02c Dummy {f00=0x0084, 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
0x18c02c…18c1c0 Dummy {f00=0x0084, 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
0x18c1c0…18c354 (2, 267) Dummy {f00=0x0084, 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
0x18c354…18c4e8 Dummy {f00=0x0084, 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
0x18c4e8…18c67c Dummy {f00=0x0084, 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
0x18c67c…18c810 Dummy {f00=0x0084, 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
0x18c810…18c9a4 Dummy {f00=0x0084, 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*
0x18c9a4…18cb38 Dummy {f00=0x0084, 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
0x18cb38…18cccc Dummy {f00=0x0084, 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
0x18cccc…18ce60 Dummy {f00=0x0084, 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
0x18ce60…18cff4 (2, 268) Opaque[0x194]
0x18cff4…18d188 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b08, f03=0x0000}
0x18cff4…18d188 IdxSect {
0x18cff4…18d188 f00 = 0x0058 // 0x18cff4 @0x0
0x18cff4…18d188 f01 = 0x002c // 0x18cff6 @0x2
0x18cff4…18d188 gno = [ // 0x18cff8 @0x4
0x18cff4…18d188 [0x00]: C0x0058.0x1.0
0x18cff4…18d188 [0x01]: C0x0058.0x2.0
0x18cff4…18d188 [0x02]: C0x006c.0x2.0
0x18cff4…18d188 [0x03]: C0x006c.0x3.0
0x18cff4…18d188 [0x04]: C0x006d.0x0.0
0x18cff4…18d188 [0x05]: C0x006e.0x0.0
0x18cff4…18d188 [0x06]: C0x006e.0x1.0
0x18cff4…18d188 [0x07]: C0x006e.0x2.0
0x18cff4…18d188 [0x08]: C0x006e.0x3.0
0x18cff4…18d188 [0x09]: C0x006f.0x0.0
0x18cff4…18d188 [0x0a]: C0x006f.0x1.0
0x18cff4…18d188 [0x0b]: C0x006f.0x2.0
0x18cff4…18d188 [0x0c]: C0x0085.0x0.0
0x18cff4…18d188 [0x0d]: C0x0085.0x1.0
0x18cff4…18d188 [0x0e]: C0x0085.0x3.0
0x18cff4…18d188 [0x0f]: C0x0086.0x0.0
0x18cff4…18d188 [0x10]: C0x0086.0x1.0
0x18cff4…18d188 [0x11]: C0x0086.0x2.0
0x18cff4…18d188 [0x12]: C0x0086.0x3.0
0x18cff4…18d188 [0x13]: C0x0087.0x0.0
0x18cff4…18d188 [0x14]: C0x0087.0x1.0
0x18cff4…18d188 [0x15]: C0x0087.0x2.0
0x18cff4…18d188 ]
0x18cff4…18d188 }
0x18d188…18d31c Dummy {f00=0x0058, 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
0x18d31c…18d4b0 Dummy {f00=0x0058, 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
0x18d4b0…18d644 Dummy {f00=0x0058, 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********************************
0x18d644…18d7d8 Dummy {f00=0x0058, 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*
0x18d7d8…18d96c Dummy {f00=0x0058, 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*
0x18d96c…18db00 Dummy {f00=0x0058, 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
0x18db00…18dc94 (2, 269) Dummy {f00=0x0058, 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*
0x18dc94…18de28 Dummy {f00=0x0058, 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
0x18de28…18dfbc Dummy {f00=0x0058, 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
0x18dfbc…18e150 Dummy {f00=0x0058, 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
0x18e150…18e2e4 Dummy {f00=0x0058, 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
0x18e2e4…18e478 Dummy {f00=0x0058, 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
0x18e478…18e60c Dummy {f00=0x0058, 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***********************
0x18e60c…18e7a0 Dummy {f00=0x0058, 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
0x18e7a0…18e934 (2, 270) Dummy {f00=0x006c, 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******************
0x18e934…18eac8 Dummy {f00=0x006c, 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******
0x18eac8…18ec5c Dummy {f00=0x006c, 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
0x18ec5c…18edf0 Dummy {f00=0x006c, 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
0x18edf0…18ef84 Dummy {f00=0x006c, 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 01 P* P* 6 P* A PROGRAM
0x18ef84…18f118 Dummy {f00=0x006c, 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 0 DK1 P* P DE P EJECT : P********************************************
0x18f118…18f2ac Dummy {f00=0x006c, 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
0x18f2ac…18f440 Dummy {f00=0x006c, 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
0x18f440…18f5d4 (2, 271) Dummy {f00=0x006c, 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
0x18f5d4…18f768 Dummy {f00=0x006c, 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
0x18f768…18f8fc Dummy {f00=0x006c, 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*
0x18f8fc…18fa90 Dummy {f00=0x006c, 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*
0x18fa90…18fc24 Dummy {f00=0x006c, 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
0x18fc24…18fdb8 Dummy {f00=0x006c, 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
0x18fdb8…18ff4c Dummy {f00=0x006c, 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*
0x18ff4c…1900e0 Dummy {f00=0x006c, 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
0x1900e0…190274 (2, 272) Dummy {f00=0x006d, 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
0x190274…190408 Dummy {f00=0x006d, 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
0x190408…19059c Dummy {f00=0x006d, 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
0x19059c…190730 Dummy {f00=0x006d, 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
0x190730…1908c4 Dummy {f00=0x006d, 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
0x1908c4…190a58 Dummy {f00=0x006d, 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
0x190a58…190bec Dummy {f00=0x006d, 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
0x190bec…190d80 Dummy {f00=0x006d, 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**************
0x190d80…190f14 (2, 273) Dummy {f00=0x006e, 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
0x190f14…1910a8 Dummy {f00=0x006e, 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
0x1910a8…19123c Dummy {f00=0x006e, 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
0x19123c…1913d0 Dummy {f00=0x006e, 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
0x1913d0…191564 Dummy {f00=0x006e, 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
0x191564…1916f8 Dummy {f00=0x006e, 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
0x1916f8…19188c Dummy {f00=0x006e, 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
0x19188c…191a20 Dummy {f00=0x006e, 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
0x191a20…191bb4 (2, 274) Dummy {f00=0x006e, 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 . &
0x191bb4…191d48 Dummy {f00=0x006e, 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
0x191d48…191edc Dummy {f00=0x006e, 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
0x191edc…192070 Dummy {f00=0x006e, 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
0x192070…192204 Dummy {f00=0x006e, 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
0x192204…192398 Dummy {f00=0x006e, 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
0x192398…19252c Dummy {f00=0x006e, 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
0x19252c…1926c0 Dummy {f00=0x006e, 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
0x1926c0…192854 (2, 275) Dummy {f00=0x006e, 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
0x192854…1929e8 Dummy {f00=0x006e, 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**
0x1929e8…192b7c Dummy {f00=0x006e, 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
0x192b7c…192d10 Dummy {f00=0x006e, 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
0x192d10…192ea4 Dummy {f00=0x006e, 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
0x192ea4…193038 Dummy {f00=0x006e, 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
0x193038…1931cc Dummy {f00=0x006e, 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 < &
0x1931cc…193360 Dummy {f00=0x006e, 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
0x193360…1934f4 (2, 276) Dummy {f00=0x006e, 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
0x1934f4…193688 Dummy {f00=0x006e, 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
0x193688…19381c Dummy {f00=0x006e, 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
0x19381c…1939b0 Dummy {f00=0x006e, 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
0x1939b0…193b44 Dummy {f00=0x006e, 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
0x193b44…193cd8 Dummy {f00=0x006e, 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
0x193cd8…193e6c Dummy {f00=0x006e, 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
0x193e6c…194000 Dummy {f00=0x006e, 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
0x194000…194194 (2, 277) Dummy {f00=0x006f, 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
0x194194…194328 Dummy {f00=0x006f, 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
0x194328…1944bc Dummy {f00=0x006f, 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******************************
0x1944bc…194650 Dummy {f00=0x006f, 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
0x194650…1947e4 Dummy {f00=0x006f, 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
0x1947e4…194978 Dummy {f00=0x006f, 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
0x194978…194b0c Dummy {f00=0x006f, 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
0x194b0c…194ca0 Dummy {f00=0x006f, 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
0x194ca0…194e34 (2, 278) Dummy {f00=0x006f, 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
0x194e34…194fc8 Dummy {f00=0x006f, 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(
0x194fc8…19515c Dummy {f00=0x006f, 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
0x19515c…1952f0 Dummy {f00=0x006f, 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
0x1952f0…195484 Dummy {f00=0x006f, 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
0x195484…195618 Dummy {f00=0x006f, 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
0x195618…1957ac Dummy {f00=0x006f, 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
0x1957ac…195940 Dummy {f00=0x006f, 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
0x195940…195ad4 (2, 279) Dummy {f00=0x006f, 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
0x195ad4…195c68 Dummy {f00=0x006f, 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
0x195c68…195dfc Dummy {f00=0x006f, 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
0x195dfc…195f90 Dummy {f00=0x006f, 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
0x195f90…196124 Dummy {f00=0x006f, 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 *
0x196124…1962b8 Dummy {f00=0x006f, 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
0x1962b8…19644c Dummy {f00=0x006f, 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
0x19644c…1965e0 Dummy {f00=0x006f, 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
0x1965e0…196774 (2, 280) Dummy {f00=0x0085, 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
0x196774…196908 Dummy {f00=0x0085, 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
0x196908…196a9c Dummy {f00=0x0085, 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* `
0x196a9c…196c30 Dummy {f00=0x0085, 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
0x196c30…196dc4 Dummy {f00=0x0085, 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
0x196dc4…196f58 Dummy {f00=0x0085, 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
0x196f58…1970ec Dummy {f00=0x0085, 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
0x1970ec…197280 Dummy {f00=0x0085, 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
0x197280…197414 (2, 281) Dummy {f00=0x0085, 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
0x197414…1975a8 Dummy {f00=0x0085, 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
0x1975a8…19773c Dummy {f00=0x0085, 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
0x19773c…1978d0 Dummy {f00=0x0085, 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
0x1978d0…197a64 Dummy {f00=0x0085, 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
0x197a64…197bf8 Dummy {f00=0x0085, 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*
0x197bf8…197d8c Dummy {f00=0x0085, 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
0x197d8c…197f20 Dummy {f00=0x0085, 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,/
0x197f20…1980b4 (2, 282) Dummy {f00=0x0085, 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
0x1980b4…198248 Dummy {f00=0x0085, 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
0x198248…1983dc Dummy {f00=0x0085, 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
0x1983dc…198570 Dummy {f00=0x0085, 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
0x198570…198704 Dummy {f00=0x0085, 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
0x198704…198898 Dummy {f00=0x0085, 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
0x198898…198a2c Dummy {f00=0x0085, 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
0x198a2c…198bc0 Dummy {f00=0x0085, 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
0x198bc0…198d54 (2, 283) Dummy {f00=0x0086, 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
0x198d54…198ee8 Dummy {f00=0x0086, 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
0x198ee8…19907c Dummy {f00=0x0086, 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
0x19907c…199210 Dummy {f00=0x0086, 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
0x199210…1993a4 Dummy {f00=0x0086, 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
0x1993a4…199538 Dummy {f00=0x0086, 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
0x199538…1996cc Dummy {f00=0x0086, 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*
0x1996cc…199860 Dummy {f00=0x0086, 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
0x199860…1999f4 (2, 284) Dummy {f00=0x0086, 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
0x1999f4…199b88 Dummy {f00=0x0086, 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********
0x199b88…199d1c Dummy {f00=0x0086, 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
0x199d1c…199eb0 Dummy {f00=0x0086, 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
0x199eb0…19a044 Dummy {f00=0x0086, 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
0x19a044…19a1d8 Dummy {f00=0x0086, 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(
0x19a1d8…19a36c Dummy {f00=0x0086, 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 *
0x19a36c…19a500 Dummy {f00=0x0086, 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
0x19a500…19a694 (2, 285) Dummy {f00=0x0086, 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 "
0x19a694…19a828 Dummy {f00=0x0086, 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
0x19a828…19a9bc Dummy {f00=0x0086, 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
0x19a9bc…19ab50 Dummy {f00=0x0086, 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
0x19ab50…19ace4 Dummy {f00=0x0086, 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
0x19ace4…19ae78 Dummy {f00=0x0086, 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
0x19ae78…19b00c Dummy {f00=0x0086, 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
0x19b00c…19b1a0 Dummy {f00=0x0086, 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
0x19b1a0…19b334 (2, 286) Dummy {f00=0x0086, 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 ?
0x19b334…19b4c8 Dummy {f00=0x0086, 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
0x19b4c8…19b65c Dummy {f00=0x0086, 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
0x19b65c…19b7f0 Dummy {f00=0x0086, 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*
0x19b7f0…19b984 Dummy {f00=0x0086, 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
0x19b984…19bb18 Dummy {f00=0x0086, 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
0x19bb18…19bcac Dummy {f00=0x0086, 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
0x19bcac…19be40 Dummy {f00=0x0086, 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
0x19be40…19bfd4 (2, 287) Dummy {f00=0x0087, 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*
0x19bfd4…19c168 Dummy {f00=0x0087, 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 ?
0x19c168…19c2fc Dummy {f00=0x0087, 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 ?
0x19c2fc…19c490 Dummy {f00=0x0087, 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
0x19c490…19c624 Dummy {f00=0x0087, 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
0x19c624…19c7b8 Dummy {f00=0x0087, 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)
0x19c7b8…19c94c Dummy {f00=0x0087, 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
0x19c94c…19cae0 Dummy {f00=0x0087, 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
0x19cae0…19cc74 (2, 288) Dummy {f00=0x0087, 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
0x19cc74…19ce08 Dummy {f00=0x0087, 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*
0x19ce08…19cf9c Dummy {f00=0x0087, 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
0x19cf9c…19d130 Dummy {f00=0x0087, 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
0x19d130…19d2c4 Dummy {f00=0x0087, 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
0x19d2c4…19d458 Dummy {f00=0x0087, 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
0x19d458…19d5ec Dummy {f00=0x0087, 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
0x19d5ec…19d780 Dummy {f00=0x0087, 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*
0x19d780…19d914 (2, 289) Dummy {f00=0x0087, 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
0x19d914…19daa8 Dummy {f00=0x0087, 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
0x19daa8…19dc3c Dummy {f00=0x0087, 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
0x19dc3c…19ddd0 Dummy {f00=0x0087, 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
0x19ddd0…19df64 Dummy {f00=0x0087, 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
0x19df64…19e0f8 Dummy {f00=0x0087, f01=0x0190, f02=» J F IDENT TASS REL 9.2 79-11-16 870105040920 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXAP T
0x19e0f8…19e28c Dummy {f00=0x0087, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x19e28c…19e420 Dummy {f00=0x0087, f01=0x0190, f02=» TASTBE T TASLFD# V , ( A , a TASCAQT n TTB:SA QTJOB , ( D H @ P 4 A U W A VOLCHE , ( ( A @ U : A V A
0x19e420…19e5b4 (2, 290) Opaque[0x194]
0x19e5b4…19e748 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0df8, f03=0x0000}
0x19e5b4…19e748 IdxSect {
0x19e5b4…19e748 f00 = 0x006f // 0x19e5b4 @0x0
0x19e5b4…19e748 f01 = 0x000a // 0x19e5b6 @0x2
0x19e5b4…19e748 gno = [ // 0x19e5b8 @0x4
0x19e5b4…19e748 [0x00]: C0x006f.0x3.0
0x19e5b4…19e748 [0x01]: C0x0070.0x0.0
0x19e5b4…19e748 [0x02]: C0x0070.0x1.0
0x19e5b4…19e748 [0x03]: C0x0070.0x2.0
0x19e5b4…19e748 [0x04]: C0x0070.0x3.0
0x19e5b4…19e748 ]
0x19e5b4…19e748 }
0x19e748…19e8dc Dummy {f00=0x006f, 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
0x19e8dc…19ea70 Dummy {f00=0x006f, 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
0x19ea70…19ec04 Dummy {f00=0x006f, 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
0x19ec04…19ed98 Dummy {f00=0x006f, 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
0x19ed98…19ef2c Dummy {f00=0x006f, 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
0x19ef2c…19f0c0 Dummy {f00=0x006f, 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
0x19f0c0…19f254 (2, 291) Dummy {f00=0x0070, 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
0x19f254…19f3e8 Dummy {f00=0x0070, 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
0x19f3e8…19f57c Dummy {f00=0x0070, 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
0x19f57c…19f710 Dummy {f00=0x0070, 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
0x19f710…19f8a4 Dummy {f00=0x0070, 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
0x19f8a4…19fa38 Dummy {f00=0x0070, 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*
0x19fa38…19fbcc Dummy {f00=0x0070, 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********************
0x19fbcc…19fd60 Dummy {f00=0x0070, 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
0x19fd60…19fef4 (2, 292) Dummy {f00=0x0070, 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
0x19fef4…1a0088 Dummy {f00=0x0070, 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*
0x1a0088…1a021c Dummy {f00=0x0070, 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=
0x1a021c…1a03b0 Dummy {f00=0x0070, 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(
0x1a03b0…1a0544 Dummy {f00=0x0070, 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*
0x1a0544…1a06d8 Dummy {f00=0x0070, 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
0x1a06d8…1a086c Dummy {f00=0x0070, 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
0x1a086c…1a0a00 Dummy {f00=0x0070, 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
0x1a0a00…1a0b94 (2, 293) Dummy {f00=0x0070, 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
0x1a0b94…1a0d28 Dummy {f00=0x0070, 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*
0x1a0d28…1a0ebc Dummy {f00=0x0070, 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
0x1a0ebc…1a1050 Dummy {f00=0x0070, 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
0x1a1050…1a11e4 Dummy {f00=0x0070, 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******
0x1a11e4…1a1378 Dummy {f00=0x0070, 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
0x1a1378…1a150c Dummy {f00=0x0070, 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
0x1a150c…1a16a0 Dummy {f00=0x0070, 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
0x1a16a0…1a1834 (2, 294) Dummy {f00=0x0070, 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
0x1a1834…1a19c8 Dummy {f00=0x0070, 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
0x1a19c8…1a1b5c Dummy {f00=0x0070, 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
0x1a1b5c…1a1cf0 Dummy {f00=0x0070, 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
0x1a1cf0…1a1e84 Dummy {f00=0x0070, 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
0x1a1e84…1a2018 Dummy {f00=0x0070, 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
0x1a2018…1a21ac Dummy {f00=0x0070, 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 $
0x1a21ac…1a2340 Dummy {f00=0x0070, 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******
0x1a2340…1a24d4 (2, 295) Opaque[0x194]
0x1a24d4…1a2668 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x1a24d4…1a2668 IdxSect {
0x1a24d4…1a2668 f00 = 0x0071 // 0x1a24d4 @0x0
0x1a24d4…1a2668 f01 = 0x0012 // 0x1a24d6 @0x2
0x1a24d4…1a2668 gno = [ // 0x1a24d8 @0x4
0x1a24d4…1a2668 [0x00]: C0x0071.0x0.0
0x1a24d4…1a2668 [0x01]: C0x0071.0x2.0
0x1a24d4…1a2668 [0x02]: C0x0071.0x3.0
0x1a24d4…1a2668 [0x03]: C0x0072.0x0.0
0x1a24d4…1a2668 [0x04]: C0x0072.0x1.0
0x1a24d4…1a2668 [0x05]: C0x0072.0x2.0
0x1a24d4…1a2668 [0x06]: C0x0072.0x3.0
0x1a24d4…1a2668 [0x07]: C0x0073.0x0.0
0x1a24d4…1a2668 [0x08]: C0x0073.0x1.0
0x1a24d4…1a2668 ]
0x1a24d4…1a2668 }
0x1a2668…1a27fc Dummy {f00=0x0071, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 9.2 79-11-16 870105040920 P : P* B P* L 2 P********************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* D P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS X/1215 AND/OR X/1216
0x1a27fc…1a2990 Dummy {f00=0x0071, f01=0x0190, f02=»* P* 0 P* THIS DISC DRIVER HANDLES UP TO TWO DISC 6 P* DRIVES X/1215,X/1216 CONNECTED TO CPU VIA IOP H P* ON MULTIPLEX CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED : P* P* /00 TEST STATUS
0x1a2990…1a2b24 Dummy {f00=0x0071, f01=0x0190, f02=» P EJECT DRDU01 DRDU01 P* $ P* . P*********** 8 P* ENTRIES * L P*********** ` P* t P* ~ $ P ENTRY DUADR ACTIVATION ADDRESS P ENTRY DUON RECOVERY ROUTINE 2 P ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1 2
0x1a2b24…1a2cb8 Dummy {f00=0x0071, f01=0x0190, f02=»DISC UNIT NO. 1 v . P ENTRY DWDU02 DWT ADDRESS DISC UNIT NO. 2 P EJECT DRDU01 J P* b P* l P************* v P* EXTERNALS * P************* P* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O .
0x1a2cb8…1a2e4c Dummy {f00=0x0071, f01=0x0190, f02=» INTSAV SAVE AREA LAST INTERRUPT P EXTRN SETIMP TIMER ( EXTRN DWTST STATUS D EXTRN DWTECB ECB ADDRESS ` $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5
0x1a2e4c…1a2fe0 Dummy {f00=0x0071, f01=0x0190, f02=»************************** P* * " P* CONDITIONAL ASSEMBLY * D P* * f P************************** P* P* 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P* BY SETTING X
0x1a2fe0…1a3174 (2, 296) Dummy {f00=0x0071, f01=0x0190, f02=» X:B := 2 P* PX:B EQU 1 PNUNITS EQU 1 . P* B P* L 4 P* DRIVE 1 MAY BE A X/1216 INSTEAD OF A X/1215 V P* BY SETTING X:C = 1 P* PX:C EQU 0 PTYPE1 EQU 1 P* P* 4 P* DRIVE 2 MAY BE A X/1
0x1a3174…1a3308 Dummy {f00=0x0071, f01=0x0190, f02=» P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. N P* | PMMUPAG EQU 1 P* P* 6 P* IF DISC ACCESSES ARE MADE EXCLUSIVELY BY DATA 8 P* MANAGEMENT, AND MMUPAG=1, TH
0x1a3308…1a349c Dummy {f00=0x0071, f01=0x0190, f02=»NSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* D PCPU852 EQU 0 N P* b * l . ** A PROGRAM VERSION USING TOSS DISC PAGING v * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 1 * P EJECT D
0x1a349c…1a3630 Dummy {f00=0x0071, f01=0x0190, f02=» /28 DEVICE ADDRESS FIXED DISC NO. 1 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1 , 0 PDAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2 d 4 PDAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2 $ PWER1 EQU /10 MULTIPLEXOR ADDRESS & PCUADR EQU /08 CO
0x1a3630…1a37c4 Dummy {f00=0x0071, f01=0x0190, f02=»QU 410 SECTOR LENGTH, CHARACTERS PQRETRY EQU 4 NO OF RETRIES ( PTIME EQU 1000 1 MIN 40 SEC J P* l P EJECT DRDU01 DRDU01 v P* P* $ P DATA 0 INDICATES NO MMU BUFFER P DATA 4 DISC DEVICE INDEX & PDUADR DATA DUAD ACTI
0x1a37c4…1a3958 Dummy {f00=0x0071, f01=0x0190, f02=» 200 READ AFTER WRITE BUFFER P XIF $ P* 0 P EJECT DRDU01 : P* R ( P* RETRY IS USED TO DETECT RETRIES P* PRETRY DATA 0 MAX NO OF TRIES P* P* 6 P* TABLE FOR CONVERSION FROM LOGICAL TO PHYSICAL P*
0x1a3958…1a3aec Dummy {f00=0x0071, f01=0x0190, f02=»215,/181B,/1E11,/1417,/1A1D v P* $ P EJECT DRDU01 DRDU01 . P* N P* X P***************** b P* * | P* ACTIVATION * P* * P***************** P* P* PDUAD EQU * ACTIV
0x1a3aec…1a3c80 Dummy {f00=0x0071, f01=0x0190, f02=»ISC UNIT BUSY t P XIF P* " PDUA:00 EQU * , 0 P LDK A4,QRETRY GET MAX NO OF RETRIES TO MAKE @ P ADK A7,0 SET CR t " P RF(Z) TEST TEST STATUS ORDER P* P IFT MMUPAG=1 P IFF 1-ONLYDM+DSKPAG=0 & P LDR* A1,A8 GET FIRST WO
0x1a3c80…1a3e14 (2, 297) Dummy {f00=0x0071, f01=0x0190, f02=»RDU01 P* P* " P LD A2,2,A8 GET BUFFER ADDRESS " P LDR A3,A2 H P ANKL A2,/F000 Z P SRL A2,2 p P SLL A1,2 P ORR A1,A2 4 P ST A1,DWT:PA,A6 PAGE NUMBER (PSEUDO MMU TABLE) P ANKL A3,/FFF P LDR A1,A3 ( P O
0x1a3e14…1a3fa8 Dummy {f00=0x0071, f01=0x0190, f02=»JECT DRDU01 P* P* ( P LD A2,DWTOR,A6 GET INDEX AND ORDER * * P ST A2,DWTORD,A6 SAVE IT FOR RECOVERY V " P SRL A2,7 GET INDEX (DOUBLED) P ADR A2,A6 P LD A1,DWTBSY,A2 P ABL(NZ) END:15 P LDR A1,A7 CHECK ORDER
0x1a3fa8…1a413c Dummy {f00=0x0071, f01=0x0190, f02=»0 PHYSICAL READ P SUK A1,4 P RF(Z) DUA:30 PHYSICAL WRITE * P* N " PDUERR ABL DISIOE REQUEST ERROR X P* ~ P EJECT DRDU01 DRDU01 P* P* P********************* P* * P* TEST STATUS
0x1a413c…1a42d0 Dummy {f00=0x0071, f01=0x0190, f02=»E NAME x P RF DENDIO PERFORM ENDIO P* . P EJECT DRDU01 8 P* P P* Z & PDUA:30 LD A1,4,A8 REQUESTED LENGTH d P SUKL A1,LENGTH ( P RB(NZ) DUERR REQUESTED LENGTH # 410 ( P LD A2,10,A8 RELATIVE SECTOR NUMBER P LDR A3,A2
0x1a42d0…1a4464 Dummy {f00=0x0071, f01=0x0190, f02=»2,5 CYLINDER NUMBER P CW A2,DWTCMX,A6 . P RB(G) DUERR CYLINDER NO GREATER THAN MAX. 4 : P CW A2,DWTCYL,A6 COMPARE WITH CURRENT CYLINDER NUMBER f . P RF(E) DU:030 DISC HEAD ALREADY POSITIONED * P ST A2,DWTCYL,A6 SAVE CYLINDER NUMBER P*
0x1a4464…1a45f8 Dummy {f00=0x0071, f01=0x0190, f02=» x P************************ P* ( P* 2 & PDU:010 CF A5,SEEK SEEK CYLINDER N < P SLC A1,5 f $ P RF(N) DU:030 OK. SEEK COMPLETED x P* P EJECT DRDU01 P* P* P************************ P*
0x1a45f8…1a478c Dummy {f00=0x0071, f01=0x0190, f02=» CF A5,SEEKZ SEEK CYLINDER 0 P SLC A1,6 $ $ P RF(N) DU:020 SECTOR 0 NOT FOUND 6 P SUK A4,1 ^ P RB(NZ) DU:010 TRY AGAIN p P* * PDU:020 LDKL A3,/FFFF ALL RETRIES DONE 0 P ST A3,DWTCYL,A6 SET ILLEGAL CYLINDER NUMBER ( P LDKL A1,/20
0x1a478c…1a4920 Dummy {f00=0x0071, f01=0x0190, f02=»**************** P* * P* GO AND EXECUTE ORDER * : P* * P************************** ~ P* P* PDU:030 LDR A1,A7 ORDER P SUK A1,5 P RF(Z) WRIT:N BASIC WRITE P S
0x1a4920…1a4ab4 (2, 298) Dummy {f00=0x0072, f01=0x0190, f02=» SECTOR N-1 * P* * P************************ 8 P* X P* b 0 PP:WRIT CF A5,WER:R5 EXECUTE WER INSTRUCTIONS l P CF A5,READ5 READ FIVE WORDS P ANK A1,2 , P RF(Z) P:WR10 OK. CHECK CYLINDER NUMBER & P S
0x1a4ab4…1a4c48 Dummy {f00=0x0072, f01=0x0190, f02=»D A2,DWTCYL,A6 CYLINDER NUMBER 6 P CW A2,BUF+1 COMPARE WITH CURRENT CYLINDER NUMBER & ( P RB(NE) DU:015 ERROR.SEEK CYLINDER 0 ` P* P EJECT DRDU01 P* P* P********************* P* * P* WRITE
0x1a4c48…1a4ddc Dummy {f00=0x0072, f01=0x0190, f02=»UCTIONS l P CF A5,WRITE WRITE SECTOR N P ANK A1,/1F 4 $ P RF(Z) WRIT20 OK. NO RETURN CODE H & P SUK A4,1 DECREMENT RETRY COUNTER p P RB(NZ) WRIT:N TRY AGAIN? ( P RF DENDIO ALL RETRIES DONE, GIVE UP P* PWRIT20 EQU * P I
0x1a4ddc…1a4f70 Dummy {f00=0x0072, f01=0x0190, f02=»F A5,WER:R EXECUTE WER INSTRUCTIONS P CF A5,READ READ SECTOR N , P ANK A1,/F N P RF(Z) DENDIO JUMP IF OK ` & P SUK A4,1 DECREMENT RETRY COUNTER P RB(NZ) WRIT30 TRY AGAIN? P XIF P* ( P RF DENDIO ALL RETRIES DONE, GIVE UP
0x1a4f70…1a5104 Dummy {f00=0x0072, f01=0x0190, f02=» SECTOR N * P* * P********************** 4 P* R P* 0 PREAD:N CF A5,WER:R EXECUTE WER INSTRUCTIONS f P CF A5,READ READ SECTOR N P ANK A1,/F $ P RF(Z) READ10 OK. NO RETURN CODE & P SUK A4,1 DECREMEN
0x1a5104…1a5298 Dummy {f00=0x0072, f01=0x0190, f02=»E t P* P EJECT DRDU01 P* , P* 6 P*************************** @ P* * d P* CHECK CYLINDER NUMBER * P* * P*************************** P* P* P
0x1a5298…1a542c Dummy {f00=0x0072, f01=0x0190, f02=»FF 1-ONLYDM+DSKPAG=0 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS 0 P RF(Z) READ30 JUMP IF BUFFER IN SYSTEM AREA T , P TS -30,A15 SAVE MMU REGISTERS ON STACK ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE * P ELR A2,A2 GET CURRENT CYLINDER NUMB
0x1a542c…1a55c0 Dummy {f00=0x0072, f01=0x0190, f02=»YLINDER NUMBER v P XIF P* " P EJECT DRDU01 , P* D P* N P IFT MMUPAG=1 X P IFT ONLYDM-DSKPAG=1 n , P LD* A2,2,A8 GET CURRENT CYLINDER NUMBER P XIF P* PREAD40 EQU * < P CW A2,DWTCYL,A6 COMPARE WITH REQUES
0x1a55c0…1a5754 (2, 299) Dummy {f00=0x0072, f01=0x0190, f02=» DRDU01 P* P* " P****************************** $ " P* * J " P* EXECUTE WER INSTRUCTIONS * p " P* * " P****************************** P* P* & PWER:R5 LDKL A2,/80
0x1a5754…1a58e8 Dummy {f00=0x0072, f01=0x018e, f02=» CWK A3,BUF P RF(E) EX:WER P RF WER:WB * P* < & PWER:W LDKL A2,/C0CD WRITE 1 SECTOR F P* p P EJECT DRDU01 z P* P* * PWER:WB LD A3,2,A8 USER BUFFER ADDRESS P* P IFT MMUPAG=1 P IFF 1-ONLYDM+DSKPAG
0x1a58e8…1a5a7c Dummy {f00=0x0072, f01=0x0190, f02=» P* PEX:WER EQU * " P EX DWTWR1,A6 EXECUTE 1:ST WER " " P EX DWTWR2,A6 EXECUTE 2:ND WER H P RTN A5 n P* ~ P EJECT DRDU01 DRDU01 P* P* P******************* P* * P* SEEK CYLINDER *
0x1a5a7c…1a5c10 Dummy {f00=0x0072, f01=0x0190, f02=»3 P ORK A2,2 ! P RF CIO EXECUTE CIO-START ! P* ! > PSEEKZ EQU * ! H P LDK A2,3 ! P RF CIO EXECUTE CIO-START ! n P* ! ( PREAD5 LC A2,DWTSEC,A6 SECTOR NUMBER ! P ANK A2,/1F ! P SUK A2,3 SECTOR N-1 ! P ANK A2,/1F !
0x1a5c10…1a5da4 Dummy {f00=0x0072, f01=0x0190, f02=» SECTOR NUMBER ! | P ANK A2,/1F " P SLL A2,2 " * P RF CIO EXECUTE CIO-START " < P* " ^ * PWRITE LD A2,DWTCYL,A6 CYLINDER NUMBER " h P* " P IFT MMUPAG=0 " , P ST* A2,2,A8 PUT CYL. NR IN USER BUFFER " P XIF " P* " P IFT MMUPAG=
0x1a5da4…1a5f38 Dummy {f00=0x0072, f01=0x0190, f02=»REA " h , P TS -30,A15 SAVE MMU REGISTERS ON STACK # ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE # < * P ESR A2,A1 PUT CYL. NR IN USER BUFFER # h 0 P TL -30,A15 RESTORE MMU REGISTERS FROM STACK # P RF WRITE4 # P* # PWRITE3 EQU * # , P ST* A2,2,A8 P
0x1a5f38…1a60cc Dummy {f00=0x0072, f01=0x0190, f02=»KPAG=1 # , P ST* A2,2,A8 PUT CYLNMB. IN USER BUFFER $ P XIF $ > P* $ J PWRITE4 EQU * $ T " P LC A2,DWTSEC,A6 SECTOR NUMBER $ h P SLL A2,2 $ P ADK A2,1 $ P* $ P EJECT DRDU01 DRDU01 $ P* $ P* $ PCIO EQU * $ P LC A
0x1a60cc…1a6260 Dummy {f00=0x0072, f01=0x018e, f02=»DK A1,1 $ * P ABL(3) END:20 DEVICE ADDRESS UNKNOWN? % " P ST A4,DWTA4,A6 A4 % > " P ST A5,DWTA5,A6 A5 % d P* % & PT:DISP ABL TDISP GO TO DISPATCHER % P* % P EJECT DRDU01 DRDU01 % P* % P* % P************
0x1a6260…1a63f4 (2, 300) Dummy {f00=0x0072, f01=0x018e, f02=» P* & P* & PDUON EQU * & P IFT CPU852=1 & * & P CF A15,SAVE8 SAVE A1-A8 ON STACK & @ P XIF & j P* & v P IFT CPU852=0 & " P MSR 8,A15 SAVE A1-A8 ON STACK & P XIF & P* & P LDKL A6,DWDU01 & & P LD A1,INIFLG INITIALIZATION F
0x1a63f4…1a6588 Dummy {f00=0x0072, f01=0x0190, f02=» P* ' P IFT NUNITS=2 ' & P LDR* A6,A6 GET OTHER DWT ADDRESS ' $ " P ANS A1,DWTST,A6 SET DWT BUSY ' N P XIF ' t P* ' P EJECT DRDU01 ' P* ' P* ' PDUON05 EQU * ' P LDKL A5,DWTSB2 STACK BASE ' P ADR A5,A6 STACK BASE '
0x1a6588…1a671c Dummy {f00=0x0072, f01=0x0190, f02=»2 ' P ADR A5,A6 STACK BASE ( " P CF A5,VO:NAM GET VOLUME NAME ( ( $ P LD A8,DWTECB,A6 GET ECB ADDRESS ( N " P RF(NZ) DUON10 ANY REQUEST ON? ( v $ P LDR* A6,A6 NO, CHECK NEXT DRIVE ( P XIF ( P* ( $ P LD A8,DWTECB,A6 GET ECB ADDRESS ( P RF(Z)
0x1a671c…1a68b0 Dummy {f00=0x0072, f01=0x0190, f02=»/3F ( P ABL DUA:00 REPEAT REQUEST ) P* ) . P EJECT DRDU01 ) 8 P* ) P P* ) Z PDUON15 CF A15,TENDIO ) d P* ) P IFT NUNITS=2 ) & P LDR* A6,A6 GET OTHER DWT ADDRESS ) P CF A15,TENDIO ) P XIF ) P RB T:DISP DISPATCH ) P
0x1a68b0…1a6a44 Dummy {f00=0x0072, f01=0x0190, f02=» ) P CM* TIMER KILL TIMER * P RF DUON40 * & P XIF * 8 P* * D P RB T:DISP TIMER ACTIVE * N P* * n P EJECT DRDU01 * x P* * $ P* SET DISC BUSY AND START TIMER * P* * PDUON20 LDKL A1,/7FFF * P IFT NUNITS=2 * " P ANS A1,DW
0x1a6a44…1a6bd8 Dummy {f00=0x0072, f01=0x0190, f02=»STACK BASE * | P ADR A5,A6 + " P CF A5,VO:NAM READ VOLUME NAME + $ P* + J P IFT NUNITS=2 + T P LDR A4,A1 SAVE RETURN CODE + j & P LDR* A6,A6 GET OTHER DWT ADDRESS + " P LDKL A5,DWTSB2 GET STACK BASE + P ADR A5,A6 + " P CF A5,VO:NAM READ VOLUM
0x1a6bd8…1a6d6c Dummy {f00=0x0072, f01=0x0190, f02=» ADK A1,0 CHECK RETURN CODE + " P RB(Z) DUON10 REPEAT REQUEST? , $ P* , J PDUON23 EQU * , T & P LDR* A6,A6 GET OTHER DWT ADDRESS , h 2 P LDR A1,A4 RESTORE RETURN CODE FROM OTHER DISC , P XIF , P* , $ P LD A8,DWTECB,A6 GET ECB ADDRESS , * P R
0x1a6d6c…1a6f00 Dummy {f00=0x0072, f01=0x018e, f02=» DRDU01 , P* - P* - PDUON26 EQU * - $ P IFT NUNITS=2 - 8 " P ADR A1,A3 CHECK RETURN CODES - N 0 P RB(Z) DUON15 NO REQUESTS AND BOTH OPERABLE? - t P XIF - P* - P IFT NUNITS=1 - P ADK A1,0 SET CR - * P RB(Z) DUON15 NO REQUEST AND
0x1a6f00…1a7094 (2, 301) Dummy {f00=0x0072, f01=0x0190, f02=» - p P LDKL A1,-TIME . P STR A1,A3 RESTART TIMER . P RB T:DISP . > P* . P $ PDUON30 CF A15,SETIMP START TIMER . Z , P DATA DUON40,TIME TIME OUT ADDRESS, TIME . P RB T:DISP . P* . P* TIME OUT . P* . PDUON40 LDKL A6,DWDU01 .
0x1a7094…1a7228 Dummy {f00=0x0072, f01=0x018e, f02=» * . P* INTERRUPT HANDLER * / P* * / < P*********************** / P* / | P* / PIHDU2 EQU * / P IFT NUNITS=2 / $ P ST P,INTSAV SAVE LAST INTERRUPT / P IFT CPU852=1 / & P CF A15,SAVE8 SA
0x1a7228…1a73bc Dummy {f00=0x0072, f01=0x0190, f02=» / P* 0 P IFT NUNITS=2 0 $ P LDKL A6,DWDU02 DISC UNIT NO. 2 0 ( P RF IHDU10 0 P P XIF 0 b P* 0 n P EJECT DRDU01 0 x P* 0 P* 0 PIHDU EQU * 0 PIHDU1 EQU * 0 $ P ST P,INTSAV SAVE LAST INTERRUPT 0 P IFT CPU852=1 0 & P
0x1a73bc…1a7550 Dummy {f00=0x0072, f01=0x0190, f02=»* 0 $ P LDKL A6,DWDU01 DISC UNIT NO. 1 1 P* 1 2 P EJECT DRDU01 1 < P* 1 T P* 1 ^ " PIHDU10 SST A1,CUADR GET STATUS 1 h P IFT NUNITS=2 1 P LDR A2,A1 1 P ANK A2,/40 1 P RF(Z) IHDU20 1 P LDKL A6,DWDU02 1 P XIF 1 P* 1
0x1a7550…1a76e4 Dummy {f00=0x0072, f01=0x0190, f02=»SAV,A6 1 P RF(NN) GET 2 P LDR A3,A1 2 " P ANK A3,1 2 4 * P RF(NZ) END:IO DISC UNIT NOT OPERABLE 2 F P* 2 t * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 2 ~ ( P LD A4,DWTA4,A6 A4 2 P LD A7,DWTOR,A6 2 P ANK A7,/3F ORDER 2
0x1a76e4…1a7878 Dummy {f00=0x0072, f01=0x0190, f02=» 2 | P* * 3 P* PERFORM ENDIO * 3 $ P* * 3 @ P******************* 3 P* 3 x P* 3 PEND:IO EQU * 3 " P ANKL A1,/20F MASK RETURN CODE 3 P RF(NZ) END:10 ERROR 3 " P LD A2,4,A8 REQUESTED LENGTH = 3 P
0x1a7878…1a7a0c Dummy {f00=0x0072, f01=0x0190, f02=»F(E) END:15 NO RETRY 3 " P ORKL A1,/100 BIT 7 = RETRIES 4 P* 4 B PEND:15 EQU * 4 L P LC A2,DWTOR,A6 ORDER 4 ` P ANK A2,1 INDEX 4 ~ P ADR A2,A2 4 P ADR A2,A6 4 " P CM DWTBSY,A2 RESET READY WORD 4 P* 4 P EJECT DRDU01 4 P* 4
0x1a7a0c…1a7ba0 Dummy {f00=0x0072, f01=0x0190, f02=» , P LDR* A6,A6 ACTIVE DISC UNIT DWT ADDRESS 5 P XIF 5 4 P* 5 @ P CF A15,TENDIO PERFORM ENDIO 5 J P ABL TDISP GO TO DISPATCHER 5 n P* 5 P EJECT DRDU01 5 P* 5 P* 5 PVO:NAM EQU * 5 . P CM DWTSAV,A6 INDICATE VOLUME NAME READING 5
0x1a7ba0…1a7d34 (2, 302) Dummy {f00=0x0073, f01=0x0190, f02=» SEEK-,THROUGHPUT ERROR,NOT OPERABLE 5 * P CF A5,WER:R5 EXECUTE WER INSTRUCTIONS 6 , " P LDK A2,0 CYLINDER NUMBER = 0 6 Z P ST A2,DWTCYL,A6 6 P CF A5,CIO READ VOLUME LABEL 6 P ANK A1,3 6 0 P RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE 6 P LDK A
0x1a7d34…1a7ec8 Dummy {f00=0x0073, f01=0x0190, f02=»CT DRDU01 6 P* 7 P* 7 , PDUNA10 LDKL A3,BUF+2 GET BUFFER ADDRESS 7 ( & P ST A4,DWTA4,A6 SAVE RETRY COUNTER 7 X P LDK A4,6 7 P* 7 & PDUNA20 LDR* A7,A3 GET VOLUME NAME 7 . P CWR* A7,A2 COMPARE WITH LAST VOLUME NAME 7 P RF(E) DUNA30
0x1a7ec8…1a805c Dummy {f00=0x0073, f01=0x0190, f02=» P ADK A3,2 8 P SUK A4,2 8 P RB(NZ) DUNA20 GET NEXT WORD 8 ( P ADK A1,0 SET CR 8 L P RF(Z) DUNA40 VOLUME MATCH 8 d , P LD A4,INIFLG CHECK INITIALIZATION FLAG 8 P RF(NZ) DUNA40 NOT POWER UP? 8 P LC A4,DWTOR,A6 INDEX 8 P ADR A4,A4 8
0x1a805c…1a81f0 Dummy {f00=0x0073, f01=0x0190, f02=» LD A4,DWTA4,A6 RESTORE RETRY COUNTER 8 P LD A1,DWTOR,A6 ORDER 9 . P RF(NZ) VO:NA6 9 L P LDK A1,1 9 b P SC A1,DWTOR,A6 INDEX=1 9 t P RB VO:NA5 9 P* 9 & PVO:NA6 LDK A1,0 RESET RETURN CODE 9 P* 9 PVO:NA8 EQU * 9 P LDKL A2,-1 9
0x1a81f0…1a8384 Dummy {f00=0x0073, f01=0x0190, f02=»JECT DRDU01 DRDU01 9 P* : P* : ( * P* DEVICE WORK TABLE DISC UNIT NO. 2 : 2 P* : ` P* : j PDWDU02 EQU * : t P IFT NUNITS=2 : & P DATA DWDU01 POINTER TO OTHER DWT : P DATA /8000 DWT STATUS : P DATA 0 ECB ADDRESS : P DATA
0x1a8384…1a8518 Dummy {f00=0x0073, f01=0x0190, f02=»AL QUEUE : IFT MMUPAG=1 ; & " DATA 0 SAVE AREA USER ECB ADDRESS ; & P DATA ECBDU2 MMU ECB ADDRESS ; P XIF ; t P IFT NUNITS=2 ; ( P DATA /00FF LEFT BYTE=SECTOR NUMBER ; ( P DATA 0,0,0 SAVE AREA FOR REGISTERS ; P DATA 0,0 STACK ; P D
0x1a8518…1a86ac Dummy {f00=0x0073, f01=0x0190, f02=» FIXED DISC ; x , P CIO A2,1,DAC2 CIO-START CARTRIDGE DISC < P* < D P EJECT DRDU01 < N P* < f P* < p P WER A2,WER1 < z P WER A3,WER1+1 < & P DATA 0,0,0 VOLUME NAME FIXED DISC < * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC < P DATA -1 <
0x1a86ac…1a8840 Dummy {f00=0x0073, f01=0x0190, f02=»2=3 < P DATA MAXCY6 MAX CYLINDER NO = P XIF = 0 P* = < P IFT NUNITS=2 = F P IFT MMUPAG=1 = * P DATA 0 PAGE NUMBER (PSEUDO MMU TABLE) = r * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS = PECBDU2 EQU * = P DATA 0,0,0,0,0,0 = P XIF = P
0x1a8840…1a89d4 (2, 303) Dummy {f00=0x0073, f01=0x0190, f02=»QU * = & P DATA DWDU02 POINTER TO OTHER DWT > P DATA /8000 DWT STATUS > 6 P DATA 0 ECB ADDRESS > T P DATA 0 ORDER > p " P DATA DUADR ACTIVATION ADDRESS > P DATA 0 TTAB ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR > P DATA 0 TERMINAL QUEUE >
0x1a89d4…1a8b68 Dummy {f00=0x0073, f01=0x0190, f02=»1 > ~ ( P DATA /00FF LEFT BYTE=SECTOR NUMBER ? ( P DATA 0,0,0 SAVE AREA FOR REGISTERS ? 6 P DATA 0,0 STACK ? b P DATA 0,0 ? z PDWTBSY EQU *-DWDU01 ? P DATA 0 UNIT BUSY INDICATOR ? P DATA 0 UNIT BUSY INDICATOR ? " PDWTCIO EQU *-DWDU01 CIO-
0x1a8b68…1a8cfc Dummy {f00=0x0073, f01=0x018e, f02=» WER INSTRUCTION ? x P WER A2,WER1 @ , PDWTWR2 EQU *-DWDU01 2:ND WER INSTRUCTION @ , P WER A3,WER1+1 @ PDWTNAM EQU *-DWDU01 @ r & P DATA 0,0,0 VOLUME NAME FIXED DISC @ * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC @ PDWTSAV EQU *-DWDU01 @ P DATA
0x1a8cfc…1a8e90 Dummy {f00=0x0073, f01=0x0190, f02=» PDWTCMX EQU *-DWDU01 A $ P DATA MAXCY5 MAX CYLINDER X/1215 A P XIF A H P IFT TYPE1=1 A T PDWTCMX EQU *-DWDU01 A h ( P DATA MAXCY6 MAX CYLINDER NO X/1216 A P XIF A P* A P EJECT DRDU01 A P* A P* A P IFT MMUPAG=1 A P
0x1a8e90…1a9024 Dummy {f00=0x0073, f01=0x4074, f02=»ESS A n PECBDU1 EQU * B P DATA 0,0,0,0,0,0 B P XIF B : P* B F P* B P P* B Z P END B d@ B p-DWDU01 A h ( P DATA MAXCY6 MAX CYLINDER NO X/1216 A P XIF A P* A P EJECT DRDU01 A P* A P* A P IFT MMUPAG=1 A P
0x1a9024…1a91b8 Dummy {f00=0x0073, f01=0x2008, f02=» C -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x1a91b8…1a934c Dummy {f00=0x0073, f01=0x018e, f02=»T ROUTINE AND DELAY s j PCLT068 EQU * t P LDR A8,A8 OBC-ACK ? t 0 P RF(E) EXIT YES t L P LDK A1,0 t d & P LDR* A4,A6 GET CHANNEL PARAMETER t v . P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST t ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? t P RF(N) CLT
0x1a934c…1a94e0 Dummy {f00=0x0073, f01=0x0190, f02=» : P* FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES u 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL u B . P* CHARACTERS (ABC) FROM SELECTOR UNIT. u ~ P* u PDRQTUT EQU * u P LDR A6,A1 GET DWT-ADDRESS u . P CM DWTTP,A6 RESET POINT
0x1a94e0…1a9674 (2, 304) Opaque[0x194]
0x1a9674…1a9808 # DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e70, f03=0x0000}
0x1a9674…1a9808 IdxSect {
0x1a9674…1a9808 f00 = 0x0073 // 0x1a9674 @0x0
0x1a9674…1a9808 f01 = 0x0008 // 0x1a9676 @0x2
0x1a9674…1a9808 gno = [ // 0x1a9678 @0x4
0x1a9674…1a9808 [0x00]: C0x0073.0x2.0
0x1a9674…1a9808 [0x01]: C0x0073.0x3.0
0x1a9674…1a9808 [0x02]: C0x0075.0x0.0
0x1a9674…1a9808 [0x03]: C0x0075.0x1.0
0x1a9674…1a9808 ]
0x1a9674…1a9808 }
0x1a9808…1a999c Dummy {f00=0x0073, f01=0x0190, f02=» 2 P IDENT DRLP01 REL 9.2 79-11-16 870105040920 P : $ P =1, INTERFACE UNKNOWN HANG-UP B P REL 9.1 79-05-23 j P* P* > P********************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x1a999c…1a9b30 Dummy {f00=0x0073, f01=0x0190, f02=»************************************** | P* . P* 8 @ P* THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED B < P* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED P* CHANNEL P* P EJECT DRLP01 P* P*
0x1a9b30…1a9cc4 Dummy {f00=0x0073, f01=0x0190, f02=» ADDRESS BLOCK " P ENTRY ACLP ACTIVATION DRIVER " P ENTRY IHLP INTERRUPT HANDLER < P ENTRY LPON RECOVERY ROUTINE b & P ENTRY DWLP01 DWT FOR LINE PRINTER P P P P* P* , P****************************************
0x1a9cc4…1a9e58 Dummy {f00=0x0073, f01=0x0190, f02=»PATCHER P EXTRN TENDIO END I/O & P EXTRN SAVE8 SAVE 8 REGS ON STACK . P EXTRN DISIOE REQUEST ERROR X EXTRN DWTST STATUS | EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER P EXT
0x1a9e58…1a9fec Dummy {f00=0x0073, f01=0x018e, f02=» * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P EJECT DRLP01 2 P* J P* T " P***************************** ^ " P* CONSTANTS * " P***************************** P* P* PDWALP EQU /0F & PMUXLP EQU DWAL
0x1a9fec…1aa180 Dummy {f00=0x0073, f01=0x018e, f02=» P* CONDITIONAL ASSEMBLY P* & . P***************************************** 0 P* b 2 P* PROGRAMMED CHANNEL MAY BE USED INSTEAD OF l , P* MULTIPLEX CHANNEL BY SETTING X:A=1 P* PX:A EQU 0 PCHAN EQU 0 P* .
0x1aa180…1aa314 (2, 305) Dummy {f00=0x0073, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. H P* z PCPU852 EQU 0 P* P* MMU BUFFER SIZE P* PX:B EQU 67 PDVBLEN EQU 126 P* P* MMU DEVICE
0x1aa314…1aa4a8 Dummy {f00=0x0073, f01=0x0190, f02=» P*********************** P* ORDERS * ( P*********************** H P* h P* ORDER /00: TEST STATUS. r 8 P* A TST INSTRUCTION IS EXECUTED TO SEE 0 P* IF LINE PRINTER IS OPERABLE. P*
0x1aa4a8…1aa63c Dummy {f00=0x0073, f01=0x0190, f02=» TO THE LINE PRINTER WITHOUT ANY CHECK. | P* 0 $ P* ORDER /06: STANDARD WRITE. : @ P* FIRST WORD IN ECB BUFFER CONTAINS A CONTROL b P* CHARACTER. < P* /2B: PRINT LINE WITHOUT ADVANCING PAPER : P
0x1aa63c…1aa7d0 Dummy {f00=0x0073, f01=0x0190, f02=» OTHER CHARACTERS GIVES A LINE FEED BEFORE P* PRINTING. 8 P* Z P* d > P* CHARACTERS IN BUFFER SHOULD BE WITHIN THE n > P* INTERVAL /20-/5F. NO CHECK IS CARRIED OUT B P* BY DRI
0x1aa7d0…1aa964 Dummy {f00=0x0073, f01=0x0190, f02=»CHARACTER. z P* P EJECT DRLP01 P* 4 P* > ( P************************************ H ( P* NORMAL REGISTER USAGE * t ( P************************************ P* P* P* A1 = RETURN CODE P* A2 =
0x1aa964…1aaaf8 Dummy {f00=0x0073, f01=0x0190, f02=» z P* A7 = ORDER P* A8 = ECB ADDRESS P* > P* H $ P******************************** R $ P* TABLES * z $ P******************************** P* P* * P DATA DVBLEN+DVBLEN MMU BUFFER LENGTH
0x1aaaf8…1aac8c Dummy {f00=0x0073, f01=0x0190, f02=» DRLP01 P* P* P* A C T I V A T I O N $ P* D P* N PACLP EQU * X P LDK A1,/0D CARRIAGE RETURN j P LDR A7,A7 ORDER 0 ? P RF(NE) ACLP05 NO P LDKL A4,DWTBC BYTE COUNTER P ADR A4,A6 ADD DWT ADDRESS $
0x1aac8c…1aae20 Dummy {f00=0x0073, f01=0x0190, f02=»,A8 REQ. LENGTH P SUK A7,5 ORDER 5 ? P RF(E) ACLP30 4 P SUK A7,1 ORDER 6 ? J P RF(E) ACLP10 f P* | PACERR ABL DISIOE P* P EJECT DRLP01 P* P* PACLP10 EQU * P CWK A2,2 REQ. LENGTH < 2 ?
0x1aae20…1aafb4 (2, 306) Dummy {f00=0x0075, f01=0x018e, f02=»ADDRESS ~ & P ADR A3,A2 ADDED WITH REQ. LENGTH $ P SCR A1,A3 STORE PRINT CHARACTER : P ADK A2,1 b P LCR A3,A4 t P ECR A3,A3 & P LC A3,1,A4 GET CONTROL CHARACTER P ST A3,CONCHA P ANK A3,/FF $ P SUK A3,/2B SUPER POSITIONIN
0x1aafb4…1ab148 Dummy {f00=0x0075, f01=0x0190, f02=» P* PACLP15 LDK A1,/0A LINE FEED * P SC A1,1,A4 SECOND CHARACTER IN BUFFER 2 P SUK A3,5 TWO LINE FEEDS ? ` P RF(E) ACLP20 YES P LDK A1,/0C TOP OF FORM P SUK A3,1 WANTED ? P RF(E) ACLP20 YES P LDK A1,/0D CARRIAGE RET
0x1ab148…1ab2dc Dummy {f00=0x0075, f01=0x0190, f02=»IOSTA SEND BUFFER P SUK A7,6 ORDER 6 ? P RF(NE) ENDIO 6 P LDR A2,A2 L P RF(NN) ACLP35 ^ 4 P IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D) t P* PACLP35 EQU * P LD A4,2,A8 BUFFER ADDRESS P LDKL A3,0 PCONCHA EQU
0x1ab2dc…1ab470 Dummy {f00=0x0075, f01=0x0190, f02=»DIO CF A15,TENDIO END REQUEST PEXIT ABL TDISP & P* < P EJECT DRLP01 F P* ^ P* h P* CIOSTA r " P* SUBROUTINE TO SEND BUFFER P* P* PCIOSTA EQU * P ST A5,DWTA5,A6 SAVE A5 P IFT CHAN=0 6 P
0x1ab470…1ab604 Dummy {f00=0x0075, f01=0x0190, f02=»FIRST WRITE EXTERNAL REGISTER 2 P WER A4,MUXLP+1 SECOND WRITE EXTERNAL REGISTER & P XIF P* h P IFT CHAN=1 r ( P ST A4,DWTA3,A6 SAVE BUFFER ADDRESS P ADR A4,A2 . P ST A4,DWTA4,A6 SAVE BUFFER END ADDRESS+1 P XIF P*
0x1ab604…1ab798 Dummy {f00=0x0075, f01=0x0190, f02=»1 P* P* P* RECOVERY ROUTINE P* < P* F PLPON EQU * P P IFT CPU852=1 b & P CF A15,SAVE8 SAVE A1-A8 ON STACK x P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x1ab798…1ab92c Dummy {f00=0x0075, f01=0x018e, f02=»LP30 P* P EJECT DRLP01 P* . P* 8 P* I N T E R R U P T B P* ` P* j PIHLP EQU * t $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CHAN=0 P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF
0x1ab92c…1abac0 Dummy {f00=0x0075, f01=0x0190, f02=» P STR A1,A15 P STR A2,A15 P LDKL A2,DWLP01 DWT-ADDRESS , 2 P LD A1,DWTA3,A2 POINTER AT NEXT BYTE IN BUFFER P P LCR A2,A1 NEXT BYTE " P OTR A2,0,DWALP WRITE ONE BYTE P RF(NA) IHLP20 NOT ACCEPTED P LDKL A2,DWLP01 DWT-ADDRESS
0x1abac0…1abc54 (2, 307) Dummy {f00=0x0075, f01=0x018e, f02=»ALP CIO HALT PIHLP10 EQU * P LDR* A2,A15 ( P LDR* A1,A15 < P RTN A15 P P* ` P* j P* t PIHLP20 STR A3,A15 ~ P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P XIF P
0x1abc54…1abde8 Dummy {f00=0x0075, f01=0x0190, f02=» P ANK A7,/FF P LD A8,DWTECB,A6 ECB ADDRESS P* < P IFT CHAN=0 F 4 P RER A3,MUXLP GET NUMBER OF NOT TRANSFERED CHAR. Z P ANKL A3,/FFF 8 P LD A2,4,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS P SUR A2,A3 P XIF P*
0x1abde8…1abf7c Dummy {f00=0x0075, f01=0x0190, f02=» RF(NE) IHLP35 P ADK A2,1 YES PIHLP35 EQU * , 8 P SU A2,2,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS @ P XIF | " P ST A2,6,A8 STORE EFF. LENGTH $ P LD A5,DWTA5,A6 GET STACK VALUE P RTN A5 P* P EJECT DRLP01 P
0x1abf7c…1ac110 Dummy {f00=0x0075, f01=0x0190, f02=»L PARAMETER P DATA /8000 STATUS P DATA 0 ECB ADDRESS . P DATA 0 ORDER J ( P DATA LPADR ADDRESS TO ADDRESS BLOCK ` P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DAT
0x1ac110…1ac2a4 Dummy {f00=0x0075, f01=0x4118, f02=»A FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 0 P RES 4 DWT STACK P P* h P IFT MMUPAG=1 r PDEVECB EQU * P DATA 0 P DATA LP:BUF P DATA 0,0,0,0 PLP:BUF RES DVBLEN+1 P XIF P* P
0x1ac2a4…1ac438 Dummy {f00=0x0075, f01=0x2008, f02=» P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR ( P DATA 0 TERMINAL QUEUE P P DATA 0 OUTPUT QUEUE LINK n P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P
0x1ac438…1ac5cc Dummy {f00=0x0075, f01=0x0190, f02=» ADDRESS TO ADDRESSBLOCK . P ABI INTADR,A2 GO TO INTERRUPT HANDLER =8 POUL520 EQU * R P* f P IFT LOGING=1 p P* 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P* P STR A6,A5 SET CHANNEL BUSY , P
0x1ac5cc…1ac760 Dummy {f00=0x0075, f01=0x0190, f02=»UPDATE LRC-ACKUMULATOR ~ . P CF A15,RESTSY START OR RESTART SYNC-TIMER 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER P POUL700 EQU * P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 *
0x1ac760…1ac8f4 (2, 308) Opaque[0x194]
0x1ac8f4…1aca88 # DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0eb0, f03=0x0000}
0x1ac8f4…1aca88 IdxSect {
0x1ac8f4…1aca88 f00 = 0x0075 // 0x1ac8f4 @0x0
0x1ac8f4…1aca88 f01 = 0x000a // 0x1ac8f6 @0x2
0x1ac8f4…1aca88 gno = [ // 0x1ac8f8 @0x4
0x1ac8f4…1aca88 [0x00]: C0x0075.0x2.0
0x1ac8f4…1aca88 [0x01]: C0x0076.0x0.0
0x1ac8f4…1aca88 [0x02]: C0x0076.0x1.0
0x1ac8f4…1aca88 [0x03]: C0x0076.0x2.0
0x1ac8f4…1aca88 [0x04]: C0x0076.0x3.0
0x1ac8f4…1aca88 ]
0x1ac8f4…1aca88 }
0x1aca88…1acc1c Dummy {f00=0x0075, 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
0x1acc1c…1acdb0 Dummy {f00=0x0075, 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
0x1acdb0…1acf44 Dummy {f00=0x0075, 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
0x1acf44…1ad0d8 Dummy {f00=0x0075, 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
0x1ad0d8…1ad26c Dummy {f00=0x0075, 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
0x1ad26c…1ad400 Dummy {f00=0x0075, 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****
0x1ad400…1ad594 (2, 309) Dummy {f00=0x0076, 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
0x1ad594…1ad728 Dummy {f00=0x0076, 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
0x1ad728…1ad8bc Dummy {f00=0x0076, 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**
0x1ad8bc…1ada50 Dummy {f00=0x0076, 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*
0x1ada50…1adbe4 Dummy {f00=0x0076, 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
0x1adbe4…1add78 Dummy {f00=0x0076, 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
0x1add78…1adf0c Dummy {f00=0x0076, 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
0x1adf0c…1ae0a0 Dummy {f00=0x0076, 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
0x1ae0a0…1ae234 (2, 310) Dummy {f00=0x0076, 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*
0x1ae234…1ae3c8 Dummy {f00=0x0076, 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
0x1ae3c8…1ae55c Dummy {f00=0x0076, 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
0x1ae55c…1ae6f0 Dummy {f00=0x0076, 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
0x1ae6f0…1ae884 Dummy {f00=0x0076, 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
0x1ae884…1aea18 Dummy {f00=0x0076, 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
0x1aea18…1aebac Dummy {f00=0x0076, 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?
0x1aebac…1aed40 Dummy {f00=0x0076, 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
0x1aed40…1aeed4 (2, 311) Dummy {f00=0x0076, 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
0x1aeed4…1af068 Dummy {f00=0x0076, 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
0x1af068…1af1fc Dummy {f00=0x0076, 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
0x1af1fc…1af390 Dummy {f00=0x0076, 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*
0x1af390…1af524 Dummy {f00=0x0076, 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
0x1af524…1af6b8 Dummy {f00=0x0076, 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
0x1af6b8…1af84c Dummy {f00=0x0076, 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*
0x1af84c…1af9e0 Dummy {f00=0x0076, 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
0x1af9e0…1afb74 (2, 312) Dummy {f00=0x0076, 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
0x1afb74…1afd08 Dummy {f00=0x0076, 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
0x1afd08…1afe9c Dummy {f00=0x0076, 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
0x1afe9c…1b0030 Dummy {f00=0x0076, 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 ! ,
0x1b0030…1b01c4 Dummy {f00=0x0076, 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 ! ,
0x1b01c4…1b0358 Dummy {f00=0x0076, 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
0x1b0358…1b04ec Dummy {f00=0x0076, f01=0x0190, f02=»AVED IN DWTCHP r P* P* PSOPR EQU * ENTRY POINT * P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVA
0x1b04ec…1b0680 Dummy {f00=0x0076, f01=0x018e, f02=»DIT=0 " P LDKL A2,-2 POWER UP INDICATOR P XIF 4 P IFT CREDIT=1 @ P LDK A2,0 V P XIF h P t P IFF SOPX=0 | " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND P
0x1b0680…1b0814 (2, 313) Opaque[0x194]
0x1b0814…1b09a8 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0410, f03=0x0000}
0x1b0814…1b09a8 IdxSect {
0x1b0814…1b09a8 f00 = 0x0020 // 0x1b0814 @0x0
0x1b0814…1b09a8 f01 = 0x002c // 0x1b0816 @0x2
0x1b0814…1b09a8 gno = [ // 0x1b0818 @0x4
0x1b0814…1b09a8 [0x00]: C0x0020.0x2.0
0x1b0814…1b09a8 [0x01]: C0x00a6.0x2.0
0x1b0814…1b09a8 [0x02]: C0x00a6.0x3.0
0x1b0814…1b09a8 [0x03]: C0x00ac.0x1.0
0x1b0814…1b09a8 [0x04]: C0x00ac.0x2.0
0x1b0814…1b09a8 [0x05]: C0x00ac.0x3.0
0x1b0814…1b09a8 [0x06]: C0x00ad.0x1.0
0x1b0814…1b09a8 [0x07]: C0x00ad.0x3.0
0x1b0814…1b09a8 [0x08]: C0x00ae.0x0.0
0x1b0814…1b09a8 [0x09]: C0x00ae.0x1.0
0x1b0814…1b09a8 [0x0a]: C0x00ae.0x2.0
0x1b0814…1b09a8 [0x0b]: C0x00ae.0x3.0
0x1b0814…1b09a8 [0x0c]: C0x00af.0x0.0
0x1b0814…1b09a8 [0x0d]: C0x00af.0x1.0
0x1b0814…1b09a8 [0x0e]: C0x00af.0x2.0
0x1b0814…1b09a8 [0x0f]: C0x00af.0x3.0
0x1b0814…1b09a8 [0x10]: C0x00b0.0x0.0
0x1b0814…1b09a8 [0x11]: C0x00b0.0x1.0
0x1b0814…1b09a8 [0x12]: C0x00b0.0x2.0
0x1b0814…1b09a8 [0x13]: C0x00b0.0x3.0
0x1b0814…1b09a8 [0x14]: C0x00b1.0x0.0
0x1b0814…1b09a8 [0x15]: C0x00b1.0x1.0
0x1b0814…1b09a8 ]
0x1b0814…1b09a8 }
0x1b09a8…1b0b3c Dummy {f00=0x0020, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DK 7 82-10-04 870105040924 " P DK7,READ-MODIFIED, MODIFIED 8 P 82-10-02 ^ P DK6, READ MODIFIED r $ P DK5,STATUS HANDLING,NJ-AMT,LP & P DK4, TRANS.PARAM.ADDR.,/00,/7F P DK3, RBUFNR=1 ALLOWED P DK2
0x1b0b3c…1b0cd0 Dummy {f00=0x0020, f01=0x0190, f02=» =8, ASCII-MODE FOR SALCUZ P REL 9.1 79-07-19 $ & P =7, ACK IN CONVERSATIONAL MODE @ P REL 9.1 79-07-19 j * P =6, DCTASK BUFFER ADDRESS DESTROYED P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE P REL 9.1 79-05
0x1b0cd0…1b0e64 Dummy {f00=0x0020, f01=0x0190, f02=» =2, ABORT HANDLING P PRR 9.1 78-11-29 P =1, MSR-INSTRUCTION 8 P PRR 9.1 78-11-14 V P REL 8.2 78-11-14 r P P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PT
0x1b0e64…1b0ff8 Dummy {f00=0x0020, f01=0x0190, f02=»NS MSV1 | P* P* P* $ P* . P* 8 8 P**************************************************** B P ~ P* P* P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT IN
0x1b0ff8…1b118c Dummy {f00=0x0020, f01=0x0190, f02=» P* P* EXTERNAL REFERENCES P* , P* 6 " P EXTRN TDISP DISPATCHER ENTRY @ ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK f $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER P EXTRN DWT
0x1b118c…1b1320 Dummy {f00=0x0020, f01=0x0190, f02=»EBCDIC ASCII TO EBCDIC TABLE ( P EXTRN TASCII EBCDIC TO ASCII TABLE $ $ P EXTRN ECBBA ECB BUFFER ADDRESS P & P EXTRN ECBRL ECB REQUESTED LENGTH x & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL
0x1b1320…1b14b4 (2, 314) Dummy {f00=0x00a6, f01=0x0190, f02=»ST AND DISPATCH t P P* " P* , P* 6 P* @ 6 P* STANDARD INTERFACE PART FOR DATA COMMUNICATION J P* P* P* P* P* DWT CONTENTS P* J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BI
0x1b14b4…1b1648 Dummy {f00=0x00a6, f01=0x0190, f02=»ONAL ASSEMBLY x P* ( PXRVI EQU /5C STANDARD:/40, DK:/5C DK * PX:D EQU 0 BASE FOR RBUFL AND TBUFL DK L " PX:X EQU 500 VALUE FOR BASE DK z & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK PX:B EQU /60 DCTASK FILE CODE
0x1b1648…1b17dc Dummy {f00=0x00a6, f01=0x018e, f02=» * PX:E EQU 1 STATUS AND RVI HANDLING IF=1 PSTAT EQU 1 2 . PSSTAT EQU 1 1=SPECIAL STATUS HANDLING DK5 D 2 PLPDEV EQU /45 DEVICE WITH STATUS HANDLING DK5 v ( PX:F EQU 1 READ COMMAND HANDLING IF=1 PRCOM EQU 1 & PX:G EQU 254 TRANSMIT BLOCK LEN
0x1b17dc…1b1970 Dummy {f00=0x00a6, f01=0x0190, f02=» h PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW L PSPEED EQU 1 x * PX:K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU 0 . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU
0x1b1970…1b1b04 Dummy {f00=0x00a6, f01=0x0190, f02=»DRESS OF RECEIVER z P XIF P IFT P6805=1 & , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER : P XIF j PX:O EQU 0 v , PIBMCHR EQU 0 IF 1 IBM CHARACTER HANDLING . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK PMESPAS EQU 0 4 PX:Q EQU 0
0x1b1b04…1b1c98 Dummy {f00=0x00a6, f01=0x018e, f02=»ION n , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK < 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT l 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE".
0x1b1c98…1b1e2c Dummy {f00=0x00a6, f01=0x0190, f02=» P IFT P6805=1 6 PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER P XIF V P* b P EJECT l P* z P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P**********************
0x1b1e2c…1b1fc0 Dummy {f00=0x00a6, f01=0x0190, f02=» PMMUPAG EQU 1 P* P DB & P IFT MMUPAG=0 DK2 4 PTBUFL EQU 0 DK2 N P XIF DK2 f P* x P IFT MMUPAG=1 DK2 * PTBUFL EQU 650+X:X MMU BUFFER LENGTH DK P XIF DK2 P DE P* 6 P* A PROGRAM VERSION
0x1b1fc0…1b2154 (2, 315) Dummy {f00=0x00a6, f01=0x0190, f02=»QU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE . P* P f P* p P* DWT DISPLACEMENTS z P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD
0x1b2154…1b22e8 Dummy {f00=0x00a6, f01=0x018e, f02=»PROCESS h . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE B & PDWTRQ EQU START+/06 RECEIVE QUEUE j . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS ( PDWTCUR EQU START+/0A CURSOR ADDRESS . PDWTINF EQU START+/0E D
0x1b22e8…1b247c Dummy {f00=0x00a6, f01=0x0190, f02=» P* P* P* A7=ORDER P* . P* /02: READ 8 P* /06: WRITE L P* /31: TRANSFER DWTINF DK5 ` " P* /33: READ MODIFIED RESPONSE P* /37: TRANSFER PARAMETERS P* /38: SET STATUS $ P* /39: SET REQUEST TIMEOUT VALUE
0x1b247c…1b2610 Dummy {f00=0x00a6, f01=0x0190, f02=»OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS $ PDCWRQ DATA 0 WRITE REQUEST QUEUE D , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL l P P* P* DC TASK ADDRESS BLOCK P* $ P DATA 0 INDICATES NO MMU BUFFER P DATA
0x1b2610…1b27a4 Dummy {f00=0x00a6, f01=0x0190, f02=»FFER ANCHOR | P* P* DRIVER ADDRESS BLOCK P* < P DATA BUFLEN MMU BUFFER SIZE F P DATA DEVIND DEVICE INDEX j ( PDC15AD DATA DCACT ACTIVATION ADDRESS P DATA ABORT ABORT ROUTINE $ P DATA DCRBUF REC. BUFFER ANCHOR P*
0x1b27a4…1b2938 Dummy {f00=0x00a6, f01=0x0190, f02=»FT SPEED=1 PLSPEED EQU /0200 P XIF * P IFT SPEED=0 6 PLSPEED EQU 0 J P XIF ^ P j P* t P* ~ $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT EQU * P LDK A1,0 PRESET RETURN CODE P IFT EM3270=1 =4
0x1b2938…1b2acc Dummy {f00=0x00a6, f01=0x0190, f02=»UK A7,/06-/02 P RF(Z) DCWR P SUK A7,/31-/06 DK5 * $ P RF(Z) TRINF TRANSFER DWTINF DK5 F P SUK A7,/33-/31 DK7 n , P RF(E) RESTRM RESPONSE TO READ MODIFIED P SUK A7,/37-/33 DK5 $ P RF(Z) DCTP TRANSFER PARAMETERS P IFF STAT=
0x1b2acc…1b2c60 Dummy {f00=0x00a6, f01=0x0190, f02=»IF P P IFT STAT=0 P SUK A7,/39-/37 & $ P ABL(Z) REQTIM SET REQUEST TIMER > P XIF f P RF DCA100 r P P* P* P* ACTIVATION FROM DCTASK P* P* PDCACTD EQU * $ P SUR A1,A1 PRESET RETURN CODE
0x1b2c60…1b2df4 (2, 316) Dummy {f00=0x00ac, f01=0x0190, f02=»E) DCRDDC READ P SUK A7,/37-/02 $ P RF(E) DCTP TRANSFER PARAMETERS . P V PDCA100 EQU * REQUEST ERROR ^ P ABL DISIOE INVALID ORDER P* P* P* READ FROM DCTASK P* P* P* REQUEST FROM DC-TASK P* COMP
0x1b2df4…1b2f88 Dummy {f00=0x00ac, f01=0x0190, f02=»5,CKMESS CHECK IF MESSAGE RECEIVED PDCRTN EQU * * P ABL TDISP GO TO DISPATCHER > P IFT EM3270=1 =4 b P | . P***************************************** P* P* ANY MESSAGE ORDER P* " P*****************************
0x1b2f88…1b311c Dummy {f00=0x00ac, f01=0x0190, f02=» l P XIF P P* P* TRANSFER DWTINF DK5 ( P* DK5 F PTRINF EQU * DK5 V P LD A2,ECBCW,A8 GET INFO DK5 n & P ORS A2,DWTINF,A6 OR AND STORE DK5 " P RF ENDIO COMPLETE REQUEST DK5 P* P* RESPONSE TO READ MODIFIED
0x1b311c…1b32b0 Dummy {f00=0x00ac, f01=0x0190, f02=»DISIOE NO, REQUEST ERROR DK7 * P RF DCWR TREAT ALMOST AS WRITE REQUEST $ P* R P* P* TRANSFER PARAMETERS f P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL AD
0x1b32b0…1b3444 Dummy {f00=0x00ac, f01=0x0190, f02=»C A2,ECBCW,A8 GET TCS IF ANY P ANK A2,/FF $ P RF(Z) DCTP10 8 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII N P SLL A2,8 z PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P
0x1b3444…1b35d8 Dummy {f00=0x00ac, f01=0x0190, f02=»TP14 EQU * , P RF(Z) DCTP18 NO, END OF/OR NO QUEUE DK4 & P LDR A3,A6 ADJUST ADDR. VALUE DK4 D P ADKL A3,DWTSQ DK4 n , P CWR A1,A3 SOMETHING QUEUED OUR DWT? DK4 4 P RF(E) DCTP16 YES, WAIT BEFORE TRANS. PARAM. DK4 & P LDR* A1,A1 NOT OURS,
0x1b35d8…1b376c Dummy {f00=0x00ac, f01=0x018e, f02=»STATUS IS SENT DK4 v ( P DATA TPTOUT,20 DELAY= 2 SECONDS DK4 P RB DCRTN DK4 F PTPTOUT EQU * P LDR A6,A1 RESTORE DWT DK4 r * P RB DCTP12 LOOK IN THE QUEUE AGAIN DK4 PDCTP18 EQU * , P LD A2,DWTBUF,A6 RESTORE TERM ADDR. DK4 ( P
0x1b376c…1b3900 Dummy {f00=0x00ac, f01=0x0190, f02=» " P CWK A6,DW1500 DCTASK DWT ??? 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * * P LD A1,DC:IN GET DC:TAB INPUT POINTER ` * P CWK A1,DC:END TABLE ALREADY FULL ???? & P ABL(E) DISIOE YES!! REQUEST ERROR P P P PDCTP20 E
0x1b3900…1b3a94 (2, 317) Dummy {f00=0x00ac, 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
0x1b3a94…1b3c28 Dummy {f00=0x00ac, 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 P*
0x1b3c28…1b3dbc Dummy {f00=0x00ac, f01=0x0190, f02=»* PDCWR EQU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH 2 " P CWK A1,BUFLEN ILLEGAL LENGTH? Z P RF(G) IL:LEN YES!! P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST 2 P LD A1,DWTOR,A6 RESPONSE TO
0x1b3dbc…1b3f50 Dummy {f00=0x00ac, f01=0x0190, f02=»ECIFIC POLL DK7 r P RB DCRTN ! P* ! * P* ! 4 P* ! > P* READ ! H P* ! V P* ! ` P* COMPLETE WHEN: ! j P* MESSAGE RECEIVED ! P* TIME OUT ! P* ! P* ! PDCRD EQU * ! P LD A8,DWTECB,A6 GET ECB ! . P LD A4,DWTRQ,A6
0x1b3f50…1b40e4 Dummy {f00=0x00ac, f01=0x0190, f02=» P ST A2,DWTRQ,A6 " P ADK A4,6 " " P LD A3,-4,A4 EFFECTIVE LENGTH " . P ST A3,ECBEL,A8 " T P " l P LDK A1,0 RESET RETURN CODE " t * P CF A15,DC:MIN MOV DATA TO USER BUFFER " P RB DCRTN " P " $ PDCRD10 CF A15,TIMERE START TIMER " P
0x1b40e4…1b4278 Dummy {f00=0x00ac, f01=0x0190, f02=»CW,A8 GET STATUS INFORMATION " P ANK A1,3 MASK DB,IR # $ P RF(Z) DCSS20 DEVICE END # @ PDCSS10 EQU * # ` P ST A1,DWTST,A6 # t P RB DCTP30 COMPLETE REQUEST # PDCSS20 EQU * # P LD A1,DWTST,A6 # P ANK A1,9 # ( P RB(Z) DCSS10 WACK HAS NOT
0x1b4278…1b440c Dummy {f00=0x00ac, f01=0x0190, f02=» P $ P $ P* $ " P* SET REQUEST TIMEOUT VALUE $ P* $ F P* $ P P $ Z PREQTIM EQU * $ b " P LD A2,ECBCW,A8 TIMEOUT VALUE $ v $ P ST A2,DWTTIM,A6 SAVE IT IN DWT $ P RB DCTP30 TENDIO & DISPATCH $ P $ P* $ ( P* ILLEGAL AP
0x1b440c…1b45a0 Dummy {f00=0x00ac, f01=0x0190, f02=» $ t P % P* % P* % P* % & P* TIMER HANDLING PART % 0 P* % N P* % X P* % b P* READ TIMER=TIMERR % l P* % PTIMERE EQU * % P LDR A1,A6 % . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE % P RF(Z) TIME10 NO TIMING %
0x1b45a0…1b4734 (2, 318) Dummy {f00=0x00ac, f01=0x0190, f02=»10 EQU * % P RF GBUF10 RETURN & P* & * P* TIMEOUT READ TIMER & 4 P* & P PTOUTRE EQU * & Z P LDR A6,A1 FETCH DWT & n P CM DWTTP,A6 & PTOUTR1 EQU * & " P LDK A1,/40 INDICATE TIME OUT & $ PTOUTR2 RB ENDIO COMPLETE REQUEST & P* &
0x1b4734…1b48c8 Dummy {f00=0x00ac, f01=0x0190, f02=»G & z P ST A2,TIMWR ' P CF A15,SETIME ' P DATA TOUTWR ' 4 PTIMWR DATA 0 ' H P ST A4,DWTTP,A6 ' P RB TIME10 ' t P ' P* ' P* TIMEOUT WRITE TIMER ' P* ' PTOUTWR EQU * ' P LDR A6,A1 FETCH DWT ' P CM DWTTP,A6 ' * P C
0x1b48c8…1b4a5c Dummy {f00=0x00ac, f01=0x0190, f02=»A2,FDWTUT ' P CWR A2,A6 ( * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING ( $ ( P CM XACK INDICATE 'ACK NOT EXPECTED' ( R P CM FDWTUT ( ~ P* ( P* ( P RB TOUTR1 ( P ( P* ( P* ( P* STOP REQUEST TIMING ( P* ( & P* REMAINING
0x1b4a5c…1b4bf0 Dummy {f00=0x00ac, f01=0x0190, f02=»G ( x P LDR* A2,A2 ) " P NGR A2,A2 GET REMAINING TIME ) P CM* DWTTP,A6 STOP TIMER ) D P CM DWTTP,A6 ) d PCTIM10 EQU * ) x P RF GBUF10 ) P ) P* ) P* GET RECEIVE BUFFER ) P* ) $ P* CALLING SEQUENCE: CF A15,GRBUF ) P* A4=0 I
0x1b4bf0…1b4d84 Dummy {f00=0x00ac, f01=0x0190, f02=»2,DCRBUF RECEIVE BUFFERS ) PGBUF INH * P LDR* A4,A2 * 0 P RF(Z) GBUF10 NO BUFFER FREE * D . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN * h P STR A3,A2 * * PGBUF10 ADKL A15,4 ADJUST STACK POINTER * P ABR* A15 RETURN TO CALLER * P * P*
0x1b4d84…1b4f18 Dummy {f00=0x00ac, f01=0x018e, f02=» A2,DCWRQ GET QUEUE ANCHOR * PINSWQ1 LDK A4,DWTWQ + " PINSWQ2 LDR* A3,A2 + > $ P RF(Z) INSWQ3 END OF QUEUE FOUND + X P LDR A2,A3 + P RB INSWQ2 + PINSWQ3 ADR A4,A6 + P STR A4,A2 INSERT IN QUEUE + " P CMR A4 INDICATE END OF QUEUE + P RB
0x1b4f18…1b50ac Dummy {f00=0x00ac, f01=0x0190, f02=» + P* , * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR , 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED , @ PREM06 EQU * , v P ADR A4,A6 , PREM10 LDR* A3,A2 , & P RB(Z) GBUF10 NOT ON QUEUE: RETURN , P CWR A3,A4 , P RF(E) REM15 , P L
0x1b50ac…1b5240 Dummy {f00=0x00ac, f01=0x018e, f02=» P* - P* INSERT DWT IN STATUS QUEUE - P* - 2 P IFF STAT=0 - < P* A2,A3,A4 DESTROYED - P P* A6=DWT - l P* - | PINSSQ EQU * - ( P LD A2,0,A6 GET TERMINAL ADDRESS DK4 - * P ANK A2,/FF IF ADDRESS = 00 OR /7F DK4 - ( P RB(Z) GBUF10 DONT P
0x1b5240…1b53d4 (2, 319) Dummy {f00=0x00ad, f01=0x0190, f02=» P LD A2,0,A6 GET TCA DK5 . P ANK A2,/FF DK5 . $ 0 P SUK A2,LPDEV IF STATUS HANDLING DEVICE DK5 . < P RB(NZ) GBUF10 NO DK5 . p P XIF DK5 . P IFF STAT=0 DK5 . $ P LDKL A2,DCSTQ GET QUEUE ANCHOR . P LDK A4,DWTSQ . P RB INSWQ2 . P
0x1b53d4…1b5568 Dummy {f00=0x00ad, f01=0x0190, f02=»,DCSTQ GET QUEUE ANCHOR . P LDK A4,DWTSQ / P RB REM06 / 6 P XIF / H P / T P* / ^ P* / h $ P* QUEUE ALLOCATED RECEIVE BUFFER / r P* / P* A4=BUFFER ADDR / P* A2,A3 DESTROYED / P* / PQRBUF EQU * / P IFT MESPAS=1 / (
0x1b5568…1b56fc Dummy {f00=0x00ad, f01=0x018e, f02=» A2,DWTRQ BEGINNING OF RECEIVE QUEUE / PQR100 EQU * 0 , P LDR* A3,A2 0 @ $ P RF(Z) QR200 END OF QUEUE FOUND 0 T P LDR A2,A3 0 | P RB QR100 0 & PQR200 STR A4,A2 INSERT INTO QUEUE 0 " P CMR A4 INDICATE END OF QUEUE 0 P RTN A5 0 P 0
0x1b56fc…1b5890 Dummy {f00=0x00ad, f01=0x0190, f02=» 0 ^ P* 1 PCKMESS LDKL A6,DW1500 1 P LD A1,DWTST,A6 1 0 P RF(N) CKM110 NO REQUEST 1 H P LDK A1,2 READ REQUEST ? 1 h P CW A1,DWTOR,A6 1 P RF(NE) CKM110 NO 1 $ P LD A8,DWTECB,A6 ECB ADDR TO A8 1 * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE
0x1b5890…1b5a24 Dummy {f00=0x00ad, f01=0x0190, f02=» ADDR INTO QUEUE 1 v " P ADK A3,6 MOVE POINTER TO TEXT 2 & P DONT DESTROY BUFFER ADDRESS =6 2 > P LD A4,-4,A3 2 h 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS 2 | P LD A4,-2,A3 2 . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS 2 P 2 P LDK A1,0
0x1b5a24…1b5bb8 Dummy {f00=0x00ad, f01=0x0190, f02=»JUST STACK POINTER 2 | P ABR* A15 RETURN 3 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS 3 2 , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT 3 n P CW A1,DCSTOL 3 P ST A1,DCSTOL 3 & P RB(E) CKM110 NO CHANGE OF STATUS 3 * P ORKL A1,/2000 INDIC
0x1b5bb8…1b5d4c Dummy {f00=0x00ad, f01=0x0190, f02=»************************************** 3 z P* 4 . P* ABORT ROUTINE 4 8 P* 4 R P************************ 4 P 4 | & PABORT LD A1,DWTTP,A6 TIMER POINTER 4 " P RF(Z) AB:10 NO TIMER RUNNING 4 P CM* DWTTP,A6 KILL TIMER 4 P CM DWTTP,A6 4 P
0x1b5d4c…1b5ee0 Dummy {f00=0x00ad, f01=0x0190, f02=») AB:RTN NO ACTION IF NOT READ/WRITE 4 P 5 , . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 5 4 & P LD A2,FDWTUT WRITING DWT ADDRESS 5 f P CWR A2,A6 5 P RF(NE) AB:RTN NOT THIS DWT 5 P CM XACK RESET ACK EXPECTED 5 P CM FDWTUT RESET WRITING DWT 5
0x1b5ee0…1b6074 (2, 320) Dummy {f00=0x00ad, f01=0x0190, f02=»852=1 5 P RTN A15 6 P XIF 6 P 6 * P 6 4 P 6 < P* 6 F P* 6 P P* STORE REGISTER A3-A8 6 Z $ P* CALLING SEQUENSE: CF A15,STREG 6 x P* 6 P* RESTORE 6 $ P* CALLING SEQUENCE: CF A15,LDREG 6 P* 6 P* 6 PSTREG ST A3,LCA3
0x1b6074…1b6208 Dummy {f00=0x00ad, f01=0x0190, f02=» 6 PLDREG LDKL A3,0 7 PLCA3 EQU *-2 7 P LDKL A4,0 7 4 PLCA4 EQU *-2 7 F P LDKL A5,0 7 Z PLCA5 EQU *-2 7 l P LDKL A6,0 7 PLCA6 EQU *-2 7 P LDKL A7,0 7 PLCA7 EQU *-2 7 P LDKL A8,0 7 PLCA8 EQU *-2 7 PRTNA15 EQU * 7 P A
0x1b6208…1b639c Dummy {f00=0x00ad, f01=0x0190, f02=»R 9 SEC DK 7 t " PTIMNAK EQU 3 DELAY FOR NAK DK 8 P* 8 8 P* 8 B P* CHARACTER EQUATES 8 L P* 8 h & PSF EQU X'1D' START FIELD CHARACTER 8 r PSYN EQU /16 8 PSTX EQU /02 8 PETX EQU /03 8 PETB EQU /17 8 PITB EQU /1F 8 PSOH EQU
0x1b639c…1b6530 Dummy {f00=0x00ad, f01=0x0190, f02=»QU /22 8 PRDBCOM EQU /32 9 PRDMCOM EQU /36 9 $ P IFT CODE=0 9 : PPAR EQU /80 9 N PRVI EQU /3C 9 b PACK0 EQU /30 9 v PACK1 EQU /31 9 PDC1 EQU /11 9 P IFT MSV1=0 9 PWACK EQU /3B 9 P XIF 9 P IFT CODE=0 9 P IFT MSV1=1 9
0x1b6530…1b66c4 Dummy {f00=0x00ad, f01=0x0190, f02=»U XRVI DK 9 PACK0 EQU /18 : PACK1 EQU /2F : & PSYNEBC EQU /32 : : P XIF : P P : P* : f P* : p P* PROCEDURE WORK AREAS : z P* : P* : * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION : . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION :
0x1b66c4…1b6858 Dummy {f00=0x00ad, f01=0x0190, f02=»LT : d " PXRB DATA 0 READ BUFFER SWITCH ; PCACK DATA 0 ACK COUNTER ; 0 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP ; P P* ; ~ PFECB RES 1 WRITING ECB ; ( PFECBBA RES 1 WRITING BUFFER ADDRESS ; & PFECBRL RES 1 WRITING BUFFER LENGTH ; PFBAX DATA 0
0x1b6858…1b69ec Dummy {f00=0x00ad, f01=0x0190, f02=» PROCEDURE TIMING ; x , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA < ( PCRDBUF DATA 0 READ BUFFER COUNTER DK < J P* < v P* < $ P* 3270 SENSE/STATUS INFORMATION < P* < P* < P IFF STAT=0 < . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE <
0x1b69ec…1b6b80 Dummy {f00=0x00ad, f01=0x0190, f02=»26 S/S 1 : INTERVENTION REQUIRED < P XIF = ( P = 4 P* = > P* = H P* BASIC RECEIVE MODE = R P* = n " P* ENTERED EVERY TIME A MESSAGE = x & P* IS EXPECTED FROM THE MASTER SIDE = P* = P* = P IFT P6805=1 = & PBRMHLT CF A5,HALTIN HALT
0x1b6b80…1b6d14 (2, 321) Dummy {f00=0x00ae, f01=0x0190, f02=»UPDATE STATUS = p P XIF > P IFT P6805=1 > " * P CF A15,CKMESS CHECK IF STATUS CHANGE > 6 P XIF > d PBRM010 EQU * > p P IFT CODE+P6805=0 > 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTERN > P XIF > P IFT P6805=0 > P IFT CODE=1 > 4 P L
0x1b6d14…1b6ea8 Dummy {f00=0x00ae, f01=0x018e, f02=» IFT P6805=1 > P IFF CODE=1 ? P LDK A2,/0C ? ( " P CIO A2,1,LCUIN START RECEIVER ? < P LDK A2,SYN ? b * P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER ? v P RB(NA) BRMHLT ? P XIF ? P IFT CODE+P6805=2 ? P LDK A2,0 ? " P CIO A2,1,LCUIN START
0x1b6ea8…1b703c Dummy {f00=0x00ae, f01=0x0190, f02=» $ P CF A5,READP READ ONE CHARACTER @ P RF(NZ) BRM150 PARITY ERROR @ , P LDR A1,A2 @ P P SUK A1,STX @ b P RF(Z) BRM300 STX RECEIVED @ v P SUK A1,EOT-STX @ P RF(Z) BRM200 EOT RECEIVED @ P SUK A1,ENQ-EOT @ P ABL(Z) BRM400 ENQ RECEIVED @
0x1b703c…1b71d0 Dummy {f00=0x00ae, f01=0x0190, f02=»0 @ P LDR A8,A2 A $ P CF A5,READP READ ONE CHARACTER A P RF(NZ) BRM150 PARITY ERROR A D P CWR A2,A8 A h & P RF(NE) BRM150 INVALID ADDRESSING A z P XIF A P LDK A3,0 A P CC A2,DW1500+1 A P RF(E) BRM110 POLLING A P LDK A3,2 A
0x1b71d0…1b7364 Dummy {f00=0x00ae, f01=0x0190, f02=»ERROR A z P LDR A8,A2 B P IFT MSV1=0 B P CF A5,READP READ 2:ND STA B 4 P RF(NZ) BRM150 PARITY ERROR B V P CWR A2,A8 B z , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE B P XIF B " P CF A5,READ READ ONE CHARACTER B P IFT P6805=0 B P SUK A
0x1b7364…1b74f8 Dummy {f00=0x00ae, f01=0x0190, f02=»A5,READ READ LAST CHARACTER B P C $ " P* TRAILING PAD CAN BE CHECKED C , P C R P CIO A1,0,LCUIN HALT INPUT C Z P SST A1,LCUIN C | P XIF C P IFT P6805=1 C P CF A5,HALTIN HALT INPUT C P RB(NZ) BRM010 PARITY ERROR C P XIF C P LDK A
0x1b74f8…1b768c Dummy {f00=0x00ae, f01=0x0190, f02=»BL(E) GPOLL GENERAL POLL C P IFT MSV1=1 D 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) D 4 P XIF D n P IFT MSV1=0 D z & P CF A5,FINTER CHECK IF STA PRESENT D P XIF D P LDR A6,A3 LOAD DWT TO A6 D P ABL(NZ) SPOLL SPECIFIC POLL D
0x1b768c…1b7820 Dummy {f00=0x00ae, f01=0x0190, f02=»M130 STA FOUND D P IFT MSV1=0 E $ P LDKL A6,DW1500 SELECT TO DCTASK E , PBRM130 EQU * E T P ABL SELECT E h P XIF E | P IFT MSV1=1 E P ABL BRM INVALID ADDRESS E P XIF E P* E , P* WAIT FOR MARK HOLD TO RESYNCHRONIZE E
0x1b7820…1b79b4 (2, 322) Dummy {f00=0x00ae, f01=0x018e, f02=»CTER E r P RB BRM150 F P F P* F ( P* F 2 P* EOT HAS BEEN RECEIVED F < P* F P* F f PBRM200 EQU * F p & P CF A5,HPTIM STOP PROCEDURE TIMER F P IFT RCOM=1 F P CM XRB RESET READ BUFFER F P XIF F P LD A1,XACK F & P RF(
0x1b79b4…1b7b48 Dummy {f00=0x00ae, f01=0x0190, f02=» ( P CF A5,CWRITE COMPLETE WRITE REQUEST G PBRM210 EQU * G 0 " P CM XACK RESET 'ACK EXPECTED' G D PBRM220 EQU * G j P CM XSEL RESET 'SELECTED' G ~ P RB BRM G P G P* G P* G P* STX HAS BEEN RECEIVED G P* G P* G PBRM300
0x1b7b48…1b7cdc Dummy {f00=0x00ae, f01=0x0190, f02=»AILABLE G v PBRM305 EQU * H P CF A5,RDMESS READ MESSAGE H $ P SUK A7,1 H F P RF(NZ) BRM320 MESSAGE OK H X PBRM310 EQU * H z ( P CM XSTA INDICATE 'INVALID MESSAGE' H PBRM312 EQU * H P CF A5,TRNAK SEND NAK H P ABL BRM H PBRM315 EQU *
0x1b7cdc…1b7e70 Dummy {f00=0x00ae, f01=0x0190, f02=»AVAILABLE H x " P LD A6,FDWTUT GET WRITING DWT I 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE I 8 P LDR* A2,A6 GET STA I l P XIF I P IFT RCOM=1 I , P CF A5,PRREC PREPARE FOR TEXT RECEPTION I * P LD A1,DWTECB,A6 SAVE CURRENT ECB DK6 I P S
0x1b7e70…1b8004 Dummy {f00=0x00ae, f01=0x0190, f02=»M305 READ THE MESSAGE I P XIF J ( PBRM316 CF A5,READ READ ONE CHARACTER J * P IFF P6805=1 =8 J V P SUK A2,ENQ+PAR J n P XIF =8 J P IFT P6805=1 =8 J P SUK A2,ENQ =8 J P XIF =8 J ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE J P R
0x1b8004…1b8198 Dummy {f00=0x00ae, f01=0x018e, f02=»,FBLST J " P RF(NE) BRM325 NOT FIRST BLOCK K P IFF RCOM=0 K 4 P LDK A1,ESC K H P CCR A1,A4 K P RB(NE) BRM310 ESC NOT FOUND K n P ADK A4,1 K P LCR A1,A4 GET COMMAND CODE K P SUK A4,1 K P SUK A1,RDBCOM K ( P RF(Z) RDBUF READ MODIFI
0x1b8198…1b832c Dummy {f00=0x00ae, f01=0x0190, f02=» K & P RF(Z) BRM340 MESSAGE ENDED BY ETB L P CM FBAX L 2 * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER L B P ADK A4,6 L p P LD A6,FDWTIN GET INPUT DWT L P* L " P* PREPARE FOR CHAINED COMMAND L P* L P IFT RCOM=1 L P LDR* A2,A6 L P
0x1b832c…1b84c0 Dummy {f00=0x00ae, f01=0x018e, f02=» L , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK M P LD A2,DWTST,A6 GET STATUS M 8 P RF(N) BRM330 NO REQUEST M Z P IFT EM3270=1 =4 M z P LD A2,DWTOR,A6 ORDER =4 M & P RF(Z) BRM327 ANY MESSAGE ORDER =4 M P XIF =4 M P LDK A2,2 M P CW A2
0x1b84c0…1b8654 (2, 323) Dummy {f00=0x00ae, f01=0x0190, f02=» M n P LD A3,-4,A4 GET LENGTH N * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH N ( & P CF A15,CTIME STOP REQUEST TIMING N V ( P ST A2,ECBCW,A8 STORE REMAINING TIME N P N P* N P* N 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC N P* N P
0x1b8654…1b87e8 Dummy {f00=0x00ae, f01=0x0190, f02=»F(Z) BRM328 N P LD A2,DWTST,A6 GET STATUS O P ORK A2,/A O 6 P ST A2,DWTST,A6 O H PBRM328 EQU * O ` P XIF O t P IFT EM3270=1 =4 O P LD A2,DWTOR,A6 ORDER =4 O , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 O & P SUK A4,6 ADJUST BUFFER ADDRES
0x1b87e8…1b897c Dummy {f00=0x00ae, f01=0x0190, f02=»RESET RETURN CODE O & P CF A15,DC:MIN MOVE TO USER BUFFER P P RF BRM345 P D PBRM32A EQU * =4 P V P P n $ P CF A15,TENDIO COMPLETE REQUEST P v P RF BRM345 P P P PBRM330 EQU * P P IFT EM3270=1 =4 P P LD A1,DWTST,A6 STATUS =4 P
0x1b897c…1b8b10 Dummy {f00=0x00ae, f01=0x0190, f02=»PLETE REQUEST =4 P ~ PBRM335 EQU * =4 Q P XIF =4 Q 0 P SUK A4,6 GET BUFFER BASE Q B ( P CF A5,QRBUF QUEUE BUFFER FOR DCTASK Q d . P CF A15,CKMESS COMPLETE DCTASK READ IF ANY Q PBRM340 EQU * Q P CF A5,TRACK SEND ACK 0/1 Q P ABL BRM Q P
0x1b8b10…1b8ca4 Dummy {f00=0x00ae, f01=0x0190, f02=»K FROM LP DK5 Q $ P RB(Z) BRM340 ACK SHOULD BE SENT R P CF A5,TRWACK SEND WACK R > P RF BRM410 R ^ P XIF R p P IFF STAT=1 R | P RB BRM340 R P XIF R P R P* R P* R , P* READ MODIFIED OR READ BUFFER RECEIVED R P* R P*
0x1b8ca4…1b8e38 Dummy {f00=0x00ae, f01=0x0190, f02=»TIN DWT-ADDRESS FOR ADDRESSED TERMINAL R P LDK A1,1 S . & P XRS A1,CACK INCREMENT ACK COUNTER S @ P DB S j 0 P LDK A1,/02 INDICATE READ-MOD. RECEIVED DK7 S x P ORS A1,DWTINF,A6 DK7 S 2 P LDKL A1,/4000 SET RETURN CODE =READ-MOD. DK7 S ( P RB BRM3
0x1b8e38…1b8fcc Dummy {f00=0x00ae, f01=0x0190, f02=» & P CF A5,HPTIM STOP PROCEDURE TIMER T P LD A1,XACK T . , P RF(NZ) BRM510 RETRANSMISSION OF MESSAGE T B P OR A1,XSEL T r " P RF(Z) BRM410 IN CONTROL STATE T . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE T PBRM410 EQU * T P ABL BRM T P XIF T
0x1b8fcc…1b9160 Dummy {f00=0x00ae, f01=0x0190, f02=»TIMER T t P LD A1,XACK U P RF(NZ) BRM510 ACK EXPECTED U " P OR A1,XSEL U F " P RB(Z) BRM410 IN CONTROL STATE U Z P RF BRM636 U PBRM510 EQU * U P DB U P LDK A1,0 U P CIO A1,0,LCUIN DK U P SST A1,LCUIN DK U P CF A15,STRE
0x1b9160…1b92f4 (2, 324) Dummy {f00=0x00ae, f01=0x0190, f02=» U ~ P DE V " P LD A6,FDWTUT GET WRITING DWT V P IFF STAT=0 V < P LD A1,XSTA V P 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED V d P XIF V 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK V & P SU A1,FECBBA COMPUTE BUFFER INDEX V P ST A1
0x1b92f4…1b9488 Dummy {f00=0x00ae, f01=0x018e, f02=»IM STOP PROCEDURE TIMER V P LD A1,XACK W " P RB(Z) BRM410 ACK NOT EXPECTED W 4 & P CF A5,READ READ SECOND CHARACTER W Z P IFF P6805=1 =8 W P CWK A2,ACK0+PAR W P XIF =8 W P IFT P6805=1 =8 W P CWK A2,ACK0 =8 W P XIF =8 W P
0x1b9488…1b961c Dummy {f00=0x00ae, f01=0x0190, f02=» PBRM610 EQU * X P CF A5,TRENQ SEND ENQ X & P CF A5,SPTIM START PROCEDURE TIMER X 6 P RB BRM410 X ` PBRM620 EQU * X r P CWK A2,ACK1 X P RF(NE) BRM650 X P* X P* ACK , 1 RECEIVED X P* X P LD A1,CACK GET ACK COUNTER X $ P RB(Z)
0x1b961c…1b97b0 Dummy {f00=0x00ae, f01=0x0190, f02=»S BEEN RECEIVED TO AN ETX BLOCK X P* Y ( P LDK A1,0 SET RC=0 Y 2 PBRM635 EQU * Y L P IFF STAT=0 Y ` P LD A2,XSTA Y t . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED Y P XIF Y ( P CF A5,CWRITE COMPLETE WRITE REQUEST Y PBRM636 EQU * Y P C
0x1b97b0…1b9944 Dummy {f00=0x00ae, f01=0x0190, f02=» P LDK A1,1 Z & P XRS A1,CACK INCREMENT ACK COUNTER Z P ABL POL130 Z @ PBRM650 EQU * Z T P IFF P6805=1 =8 Z h P CWK A2,RVI+PAR Z P XIF =8 Z P IFT P6805=1 =8 Z P CWK A2,RVI =8 Z P XIF =8 Z ( P RB(NE) BRM610 INVALID DLE S
0x1b9944…1b9ad8 Dummy {f00=0x00ae, f01=0x0190, f02=» P RB BRM635 [ PBRM660 EQU * [ P LDK A1,0 SET RC=0 [ * P RB BRM635 [ D P IFF STAT=0 [ V P [ j P* [ t P* [ ~ " P* STATUS HAS BEEN TRANSMITTED [ P* [ P* [ PBRM670 EQU * [ " P LD A6,FDWTUT GET DWT ADDRESS [ , P CF A15,REMO
0x1b9ad8…1b9c6c Dummy {f00=0x00ae, f01=0x0190, f02=» [ v P ANK A1,4 P RB(Z) BRM636 NOT DE P LDKL A1,/8000 6 " P ANS A1,DWTST,A6 CLEAR STATUS L P RB BRM636 r P XIF P P* P* P* SELECT HAS BEEN RECEIVED P* P* PSELECT EQU * P LD A1,XACK =5
0x1b9c6c…1b9e00 Dummy {f00=0x00ae, f01=0x0190, f02=» $ P RF(Z) SEL110 NO PENDING STATUS ] P CF A5,TRRVI SEND RVI ] 0 P XIF ] N P IFF STAT=1 ] Z P RF SEL110 ] n P XIF ] PSEL100 EQU * ] P ABL BRM ] PSEL110 EQU * ] P IFT STAT+NOWACK=1 ] P ANK A3,8 ] P RF(NZ) SEL115 BUSY ]
0x1b9e00…1b9f94 (2, 325) Dummy {f00=0x00af, f01=0x0190, f02=»BL BRM ] PSEL111 EQU * ^ P XIF ^ " P LD A1,DCRBUF ^ . $ P RF(NZ) SEL120 BUFFER AVAILABLE ^ D PSEL115 EQU * ^ l P IFF STAT+NOWACK=2 ^ P CF A5,TRWACK SEND WACK ^ P XIF ^ P RB SEL100 ^ PSEL120 EQU * ^ , P CF A5,PRREC PREPARE FOR TEX
0x1b9f94…1ba128 Dummy {f00=0x00af, f01=0x0190, f02=»* ^ P* _ PPRREC EQU * _ P IM XSEL SET 'SELECTED' _ ( P CM FBAX RESET BUFFER INDEX _ H P IFT CODE=1 _ l . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC _ P XIF _ $ P ST A2,+4,A1 SAVE STA IN BUFFER _ P IM XSTA _ " P ST A6,FDWTIN STOR
0x1ba128…1ba2bc Dummy {f00=0x00af, f01=0x018e, f02=»* _ P LD A1,XACK =5 ` & P RF(Z) POL020 ACK NOT EXPECTED =5 ` " " PPOL010 CF A5,TRENQ SEND ENQ =5 ` L * P CF A5,SPTIM START PROCEDURE TIMER =5 ` r " P ABL BRM WAIT FOR RESPONSE =5 ` PPOL020 EQU * =5 ` " P CF A5,CPTIM CHECK POLL TIMER ` P IFF
0x1ba2bc…1ba450 Dummy {f00=0x00af, f01=0x0190, f02=» P CF A5,TRSTA SEND STATUS a & P CF A5,SPTIM START PROCEDURE TIMER a $ P IM XACK SET 'ACK EXPECTED' a N P XIF a r P IFF STAT=1 a ~ P RF POL110 a P XIF a PPOL100 EQU * a P ABL BRM a PPOL110 EQU * a P LD A6,DCWRQ a " P RF(NZ) POL1
0x1ba450…1ba5e4 Dummy {f00=0x00af, f01=0x0190, f02=»ADDRESS a z PPOL125 EQU * b $ P LD A8,DWTECB,A6 GET ECB ADDRESS b $ P RF(NZ) POL126 b L P CF A15,REMOVW b b P RB POL115 b x PPOL126 EQU * b P ST A8,FECB SAVE ECB ADDRESS b P ST A6,FDWTUT SAVE A6 b P b P IFF MMUPAG=0 b $ P LDKL A4,M
0x1ba5e4…1ba778 Dummy {f00=0x00af, f01=0x0190, f02=»BUFFER ADDRESS b | P LD A3,ECBRL,A8 GET LENGTH c PPOL127 EQU * c 8 & P ST A4,FECBBA SAVE BUFFER ADDRESS c L ( P SUK A3,2 SKIP FIRST WORD OF BUFFER c v P ST A3,FECBRL SAVE LENGTH c P CM FBAX RESET BUFFER INDEX c PPOL130 EQU * c P CM XETX RES
0x1ba778…1ba90c Dummy {f00=0x00af, f01=0x0190, f02=»PECTED' c | P RB POL100 d P EJECT d " P* d 2 ( P* PROCESS RESPONSE TO READ MODIFIED d < P* d h PSPOLLX EQU * DK7 d r & P LDK A1,/06 FAKE A WRITE REQUEST d P ST A1,DWTOR,A6 DK7 d 6 P LDKL A1,/FFFF-/0002 CLEAR READ MODIFIED FLAG DK7 d
0x1ba90c…1baaa0 Dummy {f00=0x00af, f01=0x0190, f02=»* d & P* SPECIFIC POLL HAS BEEN RECEIVED e P* e 4 P* e > PSPOLL EQU * e H P IFF STAT+SPECP=0 e P LD A1,XACK =5 e v " P RB(NZ) POL010 ACK EXPECTED =5 e P LDR A7,A6 SAVE A6 e P CF A5,CPTIM CHECK POLLTIMER e P LDR A6,A7 RESTORE A6
0x1baaa0…1bac34 (2, 326) Dummy {f00=0x00af, f01=0x0190, f02=»TAT+SPECP=0 e P LD A1,DWTST,A6 f P RB(N) POL115 NO REQUEST f , P LD A1,DWTOR,A6 GET ORDER f L P SUK A1,6 f n P RB(Z) POL125 WRITE REQUEST f P SUK A1,2 f " P RB(Z) POL125 EXCHANGE REQUEST f P XIF f P RB POL115 SEND EOT f P f
0x1bac34…1badc8 Dummy {f00=0x00af, f01=0x0190, f02=» P* g PCWRITE LD A6,FDWTUT g $ P RF(Z) CWR900 NO WRITE GOING ON g * P IFT RCOM=1 g R $ P LD A2,XRB IF RCOM, SKIP IT DK6 g f P RF(NZ) CWR900 DK6 g P XIF g P LD A2,DWTST,A6 g P RF(N) CWR900 NO REQUEST g P LD A2,DWTOR,A6 GET OR
0x1badc8…1baf5c Dummy {f00=0x00af, f01=0x0190, f02=»A1 g 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO h P LDK A2,2 TRANMISSION OK h @ ( P ST A2,DWTOR,A6 INDICATE READ ORDER h ` P RF CWR150 h & PCWR100 LD A8,FECB GET ECB ADDRESS h P CF A15,CTIME STOP TIMING h P LDR A8,A8 h P RF(Z) CWR15
0x1baf5c…1bb0f0 Dummy {f00=0x00af, f01=0x0190, f02=» PCWR200 EQU * i PCWR900 EQU * i " P CM XACK RESET 'ACK EXPECTED' i , P CM FDWTUT i R P IFT RCOM=1 i d " P LD A2,XRB READ MODIFIED ? DK6 i x P RF(Z) CWR910 DK6 i $ P LD A2,DWTCUR,A6 RESTORE ECB DK6 i P ST A2,DWTECB,A6 DK6 i PCWR910 EQU
0x1bb0f0…1bb284 Dummy {f00=0x00af, f01=0x0190, f02=»S : i | ( P* 0 : IF CORRECT ETX BLOCK RECEIVED j 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW j 8 ( P* 2 : IF CORRECT ETB BLOCK RECEIVED j n P* j PRDMESS EQU * j $ P LD A4,DCRBUF GET BUFFER ADDRESS j P ADK A4,6 RESERVE HEADER j P LDK A3,
0x1bb284…1bb418 Dummy {f00=0x00af, f01=0x018e, f02=»X j PRDM050 EQU * k P AD A4,FBAX ADD BUFFER INDEX k ( P ST A4,FBLST REMEMBER START OF BLOCK k B PRDM075 EQU * k n P CM XSTA k P LDK A7,0 RESET LRC k P k P IFT IBMCHR=1 k P LD A1,FBAX k " P RF(NZ) RDM100 NOT FIRST BLOCK k P C
0x1bb418…1bb5ac Dummy {f00=0x00af, f01=0x0190, f02=» k h P CF A5,READP l P XIF l PRDM100 EQU * l ( $ P CF A5,READP READ ONE CHARACTER l < P RF(NZ) RDM120 PARITY ERROR l d PRDM110 EQU * l P CWK A2,ETX l P RF(E) RDM130 ETX RECEIVED l P CWK A2,ETB l P RF(E) RDM160 ETB RECEIVED l P
0x1bb5ac…1bb740 Dummy {f00=0x00af, f01=0x0190, f02=»/FF l $ P RF(E) RDM140 MARK HOLD RECEIVED m P m 4 P IFT CODE=0 m < P IFT BINTRM=1 m P P m f P LDR A1,A2 m n P SUK A1,DC1+3 m P RF(P) RDM115 NOT DC1-DC3 m P ADK A1,3 m P RF(N) RDM115 NOT DC1-DC3 m P SLL A1,6 m P LDR A8,A1
0x1bb740…1bb8d4 (2, 327) Dummy {f00=0x00af, f01=0x0190, f02=» ORR A2,A8 m PRDM115 EQU * n P XIF n & P n 2 P SCR A2,A4 STORE CHARACTER n : P ADK A4,1 INCREMENT POINTER n $ P IM FBAX INCREMENT BUFFER INDEX n P LD A1,FBAX n P CWK A1,RBUFL+RBUFL n P RB(NG) RDM100 NOT OVERFLOW n P* n P*
0x1bb8d4…1bba68 Dummy {f00=0x00af, f01=0x018e, f02=»F n $ P RF(Z) RDM150 MARK HOLD RECEIVED o P RB RDM100 o 2 P* o D P* ETX RECEIVED o N P* o d PRDM130 EQU * o n $ P LD A1,DCRBUF GET BUFFER ADDRESS o P LD A2,FBAX GET BUFFER INDEX o 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER o P IFF
0x1bba68…1bbbfc Dummy {f00=0x00af, f01=0x0190, f02=» o l P RF(E) RDM150 CRC WAS OK p P XIF p ( PRDM140 EQU * p 4 & P LDK A3,1 INDICATE INVALID MESSAGE p H PRDM150 EQU * p r $ P LDR A7,A3 SAVE RESULT REGISTER p P CF A5,HALTIN HALT INPUT p P IFT P6805=1 p P ORR A7,A1 PARITY ERROR p P XIF p
0x1bbbfc…1bbd90 Dummy {f00=0x00af, f01=0x018e, f02=» " P LDK A3,2 INDICATE CORRECT ETB q P RB RDM130 q * P* q < P* ITB RECEIVED q F P* q PRDM170 EQU * q f P IFF CODE=1 q z P CF A5,RDLRC q " P RB(NZ) RDM120 LRC WAS NOT OK q P XIF q P IFT CODE=1 q & P CF A5,RDCRC READ CRC AND CHECK
0x1bbd90…1bbf24 Dummy {f00=0x00af, f01=0x0190, f02=» PTRACK LDK A2,1 r P LDK A3,ACK1 PRELOAD ACK1 r & P XRS A2,CACK INCREMENT ACK COUNTER r < P RF(NZ) TRDLE r f P LDK A3,ACK0 LOAD ACK0 r | P RF TRDLE r P* r P* TRANSMIT WACK r P* r PTRWACK LDK A3,WACK LOAD WACK r P RF TRDLE r
0x1bbf24…1bc0b8 Dummy {f00=0x00af, f01=0x0190, f02=»LE r P* s PTRDLE LDK A2,DLE LOAD DLE s " P SC A2,RESEND PUT INSAVE AREA s 6 P SC A3,RESEND+1 s P RF TRREP s t P s P* s P* TRANSMIT NAK s P* s PTRNAK LDK A3,NAK LOAD NAK s P RF TREN10 s P* s P* TRANSMIT EOT s
0x1bc0b8…1bc24c Dummy {f00=0x00af, f01=0x018e, f02=» s v P* t ( PTREN10 SC A3,RESEND PUT IN SAVE AREA t P LDK A2,/FF t > P SC A2,RESEND+1 t R $ PTRREP CF A5,TRSYNC START OUTPUT t j & P LC A2,RESEND GET FIRST CHARACTER t P CF A5,WRITEP SEND IT t & P LC A2,RESEND+1 GET NEXT CHARACTER t P CF
0x1bc24c…1bc3e0 Dummy {f00=0x00af, f01=0x018e, f02=» t $ P CIO A2,0,LCUUT STOP TRANSMITTER u P IFT P6805=1 u 0 P CF A5,READ WAIT FOR END u D P XIF u d & P SST A2,LCUUT PERFORM SST AT ONCE u p P IFF LOGG=0 u ( P CF A5,LOGSST LOG TRANSMITTER STATUS u P XIF u P RTN A5 u P u P* u
0x1bc3e0…1bc574 (2, 328) Dummy {f00=0x00af, f01=0x0190, f02=» u P* v P* v P* TEST REQUEST HANDLING v P* v < P* v F P LD A4,FBAX v P ( P RF(NZ) TRT050 NOT START OF MESSAGE v d P v 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? v P RF(NZ) TRT050 YES !! v P v P LD A4,FECBBA v "
0x1bc574…1bc708 Dummy {f00=0x00af, f01=0x0190, f02=»D SOH v P LDK A7,0 RESET BCC w P LDK A2,'%' w * P CF A5,WRITE SEND % w > P LDK A2,'/' w Z P CF A5,WRITE SEND / w n P LDK A2,STX w P CF A5,WRITE SEND STX w ( P ST A4,FBLST REMEMBER START OF BLOCK w ( P ADK A4,5 SKIP AID + CURSOR ADDR
0x1bc708…1bc89c Dummy {f00=0x00af, f01=0x0190, f02=» P* x P XIF x P LDK A2,STX x P CF A5,WRITE SEND STX x . P LDK A7,0 RESET LRC x L $ P LD A4,FECBBA GET BUFFER ADDRESS x h P AD A4,FBAX ADD BUFFER INDEX x ( P ST A4,FBLST REMEMBER START OF BLOCK x ( P ADK A4,2 SKIP FIRST WORD OF BUFFER x
0x1bc89c…1bca30 Dummy {f00=0x00af, f01=0x0190, f02=»GET TCA x P CF A5,WRITEP SEND TCA y P LDR* A2,A6 GET STA y . P CF A5,WRITEP SEND STA y J P IFT IBMCHR=1 y h P IFF RCOM=1 y ~ " P LDK A2,/27 SEND ENTER AS AID y P CF A5,WRITEP y " P LDK A2,/20 AND CURSOR ADDRESS y P CF A5,WRITEP y
0x1bca30…1bcbc4 Dummy {f00=0x00af, f01=0x0190, f02=»*********** y " P LDK A2,X'2D' AID FOR DISPLAY z PTRT060 CF A5,WRITEP SEND AID z : P z ^ $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS z f . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER z P LDK A3,5 SET BLOCK COUNT z P RF TRT100 z PTRT070 EQU * z P
0x1bcbc4…1bcd58 Dummy {f00=0x00af, f01=0x0190, f02=»2,/7F z P IFT RCOM=1 { P RF TRT105 DK6 { " P { : @ P************************************************************ { B P* { , P* CHECK IF ATTRIBUTE CHARACTER OR NULL { P* { 4 P*********************************************** { P { &
0x1bcd58…1bceec Dummy {f00=0x00af, f01=0x0190, f02=» RF(NE) TRT102 NO,GO TO TRT102 { P LDK A2,/0A | & PTRT102 EQU * | : P CWK A2,/7D END OF MESSAGE ? | N " P RF(NE) TRT103 NO,GO TO TRT103 | r P LDK A2,/19 | PTRT103 EQU * | P CWK A2,X'7F' NULL ?? | P RF(NE) TRT105 | P SUK A2,1 | P X
0x1bceec…1bd080 Dummy {f00=0x00af, f01=0x0190, f02=» P } ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER } P ANK A2,X'7F' } 8 ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE } N P ANK A1,1 } z P ANK A2,/1E MASK } P SLL A2,1 } & P ORR A2,A1 IBM ATTRIBUTE COMPOSED } " P ORK A2,/40 BIT ALWAYS SET ONE } P L
0x1bd080…1bd214 (2, 329) Dummy {f00=0x00b0, f01=0x0190, f02=»TEP SEND ATTRIBUTE } P ADK A3,1 ~ P RF TRT110 ~ , PTRT105 EQU * ~ > P XIF ~ R P ~ ^ P CWK A2,/07 ~ h ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT ~ | P CF A5,WRITEP SEND CHARACTER ~ PTRT110 EQU * ~ $ P IM FBAX INCREMENT BUFFER INDEX ~ & P
0x1bd214…1bd3a8 Dummy {f00=0x00b0, f01=0x0190, f02=»R ~ l P CWK A3,TBLEN P RB(L) TRT100 NOT FULL BLOCK P IFT RCOM=1 D , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK X P CC A1,-2,A4 P RF(E) TRT115 YES P CC A1,-1,A4 P RF(NE) TRT116 NO SEND ETB ( P LCR A2,A4 GET FIRST BYTE AF
0x1bd3a8…1bd53c Dummy {f00=0x00b0, f01=0x0190, f02=»OND BYTE AFTER SBA x P CF A5,WRITEP SEND IT P IM FBAX INCREMENT INDEX 8 P XIF X PTRT116 EQU * d P LDK A2,ETB LOAD ETB x PTRT120 EQU * P CF A5,WRITEP SEND IT P IFF CODE=1 P LDR A2,A7 GET LRC P CF A5,WRITEP SEND L
0x1bd53c…1bd6d0 Dummy {f00=0x00b0, f01=0x018e, f02=»RC BYTE 1 | P ECR A2,A8 P ANK A2,/FF $ " P CF A5,WRIT05 SEND CRC BYTE 2 8 P XIF ^ P ABL TRRE10 HALT OUTPUT j PTRT130 EQU * P IM XETX INDICATE 'ETX SENT' PTRT140 EQU * P LDK A2,ETX LOAD ETX P RB TRT120 SEND ETX AN
0x1bd6d0…1bd864 Dummy {f00=0x00b0, f01=0x018e, f02=» $ P IM XSTA INDICATE 'STATUS SENT' P ST A6,FDWTUT SAVE A6 , P CF A5,TRSYNC START OUTPUT J P IFF SSTAT=1 DK5 l P LDK A2,SOH P CF A5,WRITE SEND SOH P LDK A7,0 REST LRC P LDK A2,'%' P CF A5,WRITEP SEND '%' P LDK
0x1bd864…1bd9f8 Dummy {f00=0x00b0, f01=0x0190, f02=» P IFT SSTAT=1 DK5 P LDK A2,STX DK5 P CF A5,WRITE SEND STX DK5 6 P LDK A7,0 RESTORE LRC DK5 X P XIF DK5 z P IFF STAT=0 DK5 P LC A2,DW1500+1 P CF A5,WRITEP SEND TCA P LDR* A2,A6 P CF A5,WRITEP SEND STA
0x1bd9f8…1bdb8c Dummy {f00=0x00b0, f01=0x0190, f02=»,WRITEP SEND S/S 0 P LDK A2,NOIR PRELOAD S/S 1 P LD A1,DWTST,A6 GET STATUS < P ANK A1,5 ^ P RF(Z) TRST10 NOT 'IR' p P ANK A1,4 P RF(NZ) TRST10 NO IR IF DE P LDK A2,IR PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P
0x1bdb8c…1bdd20 Dummy {f00=0x00b0, f01=0x0190, f02=» EQU * P LDK A2,0 * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE P SST A2,LCUIN PERFORM SST N P IFT P6805=0 p & P CIO A2,1,LCUUT START TRANSMITTER P XIF P IFT P6805=1 P IFT CODE=1 P LDK A2,0 & P CIO A2,1,LCUUT STAR
0x1bdd20…1bdeb4 (2, 330) Dummy {f00=0x00b0, f01=0x0190, f02=»S010 EQU * P LDK A2,SYNEBC * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER ( P XIF V P IFT P6805=1 b P IFT CODE=0 v P LDK A2,/0C P CIO A2,1,LCUUT P RF(A) TRS010 P SST A1,LCUUT P RF(A) TRS005 P ABL BRM P
0x1bdeb4…1be048 Dummy {f00=0x00b0, f01=0x0190, f02=»EAD WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS & PTRS100 LDK A2,SYN > P CF A5,WRITE SEND SYN X P SUK A3,1 v P RB(NZ) TRS100 P RTN A5 P P* P* P* RECEIVER INTERRUPT P* P* PIH1501 EQU
0x1be048…1be1dc Dummy {f00=0x00b0, f01=0x0190, f02=» SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 " P INR A2,0,LCUIN READ CHAR P , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS r P IFF LOGG=0 ( P CF A5,LOGIN LOG RECEIVED CHARACTER P XIF P IFF CODE=1 P C2 SY
0x1be1dc…1be370 Dummy {f00=0x00b0, f01=0x0190, f02=»FT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME $ P CWK A2,SYNEBC Z P RF(E) READ SKIP EBCDIC SYN p PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF PIHIN
0x1be370…1be504 Dummy {f00=0x00b0, f01=0x0190, f02=»PERFORM SST P XIF P P* * P* 4 P* TRANSMITTER INTERRUPT > P* ` P* j PIH1502 EQU * t P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF P P IFF CPU852=1 P MSR 8,A15
0x1be504…1be698 Dummy {f00=0x00b0, f01=0x0190, f02=»STRUCTION AND STATUS CHECK P* " ( P* LCU STATUS : BIT 10=CARRIER OFF , & P* BIT 13=PARITY ERROR (6805 ONLY) X , P* BIT 14=THROUGHPUT ERROR , P* BIT 15=MODEM NOT READY P* PSST SST A1,LCUIN P IFT
0x1be698…1be82c Dummy {f00=0x00b0, f01=0x018e, f02=»ION r P XIF P IFT P6805=0 P ANK A2,2 , P RF(Z) SST100 > P XIF T P IFT P6805=1 ` P ANK A2,6 t P RF(Z) SST100 P ANK A2,2 P RF(NZ) SST050 THROUGH PUT P LDK A1,1 SET PARITY ERROR P RF SSTRET P XIF
0x1be82c…1be9c0 Dummy {f00=0x00b0, f01=0x0190, f02=» P IFT P6805=0 * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 J P XIF Z P IFT P6805=1 f P ANK A1,/21 z P RF(Z) SST200 LSALCUZ 0 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS P DATA BRM RESTART P DATA 2 WAIT T
0x1be9c0…1beb54 (2, 331) Dummy {f00=0x00b0, f01=0x0190, f02=» XIF P* P* P* HALT INPUT P* 4 P* > PHALTIN LDK A1,0 H P CIO A1,0,LCUIN ` P IFT P6805=0 x 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK P XIF P IFT P6805=1 $ P RF READ WAIT FOR SST INTERRUPT
0x1beb54…1bece8 Dummy {f00=0x00b0, f01=0x0190, f02=»FT CODE=1 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 n P XIF PWRIT05 EQU * " P OTR A2,0,LCUUT SEND CHARACTER P RF(A) WRIT10 P RF READ THROUGH
0x1bece8…1bee7c Dummy {f00=0x00b0, f01=0x018e, f02=»ATE CRC v P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER 0 P XIF Z P* f PREAD CF A15,STREG p P ABL TDISP P P* P* P*** WRITEP P* P* WRITE A2 WITH PARITY P* P*
0x1bee7c…1bf010 Dummy {f00=0x00b0, f01=0x018e, f02=» P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 2 P XIF D P IFF CODE+P6805=0 P PWRITEP RB WRITE j P XIF P* P* P* P*** READP P* . P* READ CHARACTER TO A2 AND CHECK PARITY P* P*
0x1bf010…1bf1a4 Dummy {f00=0x00b0, f01=0x0190, f02=» P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 * P ANK A2,/7F B P XIF V P IFF CODE+P6805=0 b P LDK A1,/80 | P XIF P ADK A5,4 P ANK A1,/80 P XRK A1,/80 P ABR* A5 P* P* P P*
0x1bf1a4…1bf338 Dummy {f00=0x00b0, f01=0x018e, f02=» ADDRESS P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL & P* L B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES V * P* ENTRY: FINTER - CHECK SELECT ADDRESS , P* FINTEP - CHECK SPECIFIC POLL ADDRESS P* . PRBYT
0x1bf338…1bf4cc Dummy {f00=0x00b0, f01=0x0190, f02=» P IM RBYTE P IFT MSV1=1 PFINTER EQU * * P XIF > & P LD A4,DCTAB GET ADDRESS TO DC:TAB J * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB t PFINT10 SUK A4,2 P LDK A3,0 DEFAULT VALUE P CW A4,DCTAB END OF TABLE ( P RF(E) FINT2
0x1bf4cc…1bf660 Dummy {f00=0x00b0, f01=0x0190, f02=»A3 COMPARE SUBTERMINAL ADDRESS P XIF & P IFT MSV1=0 2 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS F P XIF x & P RB(NE) FINT10 TAKE NEXT TERMINAL PFINT20 CM RBYTE P ANKL A3,/FFFE P RTN A5 P P* P*
0x1bf660…1bf7f4 (2, 332) Dummy {f00=0x00b0, f01=0x018e, f02=» P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF > P IFT STAT=1 J P LDK A5,4 SET DEVICE END ^ P LD A1,DCTAB ~ . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 END OF TAB
0x1bf7f4…1bf988 Dummy {f00=0x00b0, f01=0x0190, f02=» j P RB DRDC05 PDRDC06 EQU * P XIF . P LDK A2,/40 : P ORS A2,DCONOF N P CF A15,CKMESS d ( P LD A2,DCTPGP GET POLL TIMER POINTER z " P RF(NZ) DRDC20 ALREADY STARTED * PDRDC10 CF A15,SPOTIM START POLL TIMER PDRDC20 ABL BRM
0x1bf988…1bfb1c Dummy {f00=0x00b0, f01=0x0190, f02=»NOF INDICATE POLL TIME OUT * P CF A15,CKMESS CHECK IF STATUS CHANGE " $ P CF A15,SPOTIM START POLL TIMER P P ABL TDISP x P* 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-
0x1bfb1c…1bfcb0 Dummy {f00=0x00b0, f01=0x018e, f02=»IMER P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL > & P ST A4,DCTPGP STORE TIMER POINTER X P ADKL A15,4 P ABR* A15 P P* P* START PROCEDURE TIMER P* PSPTIM EQU * $ P LDR A1,A6 LOA
0x1bfcb0…1bfe44 Dummy {f00=0x00b0, f01=0x0190, f02=» P* PROCEDURE TIMEOUT P* $ PPRTOUT CM DCTPP . P LDR A6,A1 RELOAD A6 F P LDKL A5,STB LOAD STACK BASE b $ P CF A5,HALTIN HALT INPUT IF OPEN P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P C
0x1bfe44…1bffd8 Dummy {f00=0x00b0, f01=0x0190, f02=»TPP GET TIMER POINTER P RF(Z) HPT10 NOT RUNNING P CM* DCTPP STOP TIMER > P CM DCTPP PHPT10 RTN A5 n P P IFT CODE=1 P* P* P* CALCULATION OF CRC P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC
0x1bffd8…1c016c Dummy {f00=0x00b0, f01=0x0190, f02=»CRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 * P SRL A2,1 < P ANK A3,1 N P RF(Z) CRC110 ` P XRKL A7,/A001 v PCRC110 SUK A1,1 P RB(NZ) CRC100 P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5
0x1c016c…1c0300 Dummy {f00=0x00b0, f01=0x018e, f02=» P* $ PRDCRC LDR A6,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW : P CF A5,READ READ BYTE 1 b P LD A8,CRCSAV+2 SAVE IT P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT
0x1c0300…1c0494 (2, 333) Dummy {f00=0x00b1, f01=0x018e, f02=» P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " " P* CR=0 IF LRC OK L P* r PRDLRC IM SYNSW | P CF A5,READP P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P
0x1c0494…1c0628 Dummy {f00=0x00b1, f01=0x0190, f02=» PDW1500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS ( P DATA /8000 STATUS H P DATA 0 ECB ADDRESS b P DATA 0 ORDER ~ * P DATA DC15DC POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P D
0x1c0628…1c07bc Dummy {f00=0x00b1, f01=0x0190, f02=»* P DATA 0 TIMER POINTER ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE ( . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) T " P DATA 0 RECEIVE MESSAGE QUEUE , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR ADDRESS " P DATA 0 REQUES
0x1c07bc…1c0950 Dummy {f00=0x00b1, f01=0x018e, f02=»0,0 P XIF P* P " P* , P* 6 P* DC RECEIVE BUFFER POOL @ P* ` PRLINK EQU RBUFL+RBUFL+8 j P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFNR=1 DK3 P IFF RBUFNR=2 P DATA *+RLIN
0x1c0950…1c0ae4 Dummy {f00=0x00b1, f01=0x0190, f02=» P RES RBUFL+3 P XIF P IFF RBUFNR=1 DK3 $ P DATA *+RLINK > P RES RBUFL+3 T P XIF DK3 h P DATA 0 END OF CHAIN z P RES RBUFL+3 P P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF P P
0x1c0ae4…1c0c78 Dummy {f00=0x00b1, f01=0x0190, f02=» P RF LOG10 PLOGOUT ST A2,SAVE2 P ORKL A2,/0F00 4 P RF LOG10 J PLOGIN CWK A2,/FF P RF(E) LOGE10 t P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P
0x1c0c78…1c0e0c Dummy {f00=0x00b1, f01=0x0190, f02=» P* P* PLOGPNT DATA LOGSTA PLOGSTA EQU * 8 P RES 300 L PLOGEND EQU *-4 PSAVE2 DATA 0 r PSAVE3 DATA 0 P XIF P* P* P* P IFT RCOM=1 P < P**************************************
0x1c0e0c…1c0fa0 Dummy {f00=0x00b1, f01=0x0190, f02=» > P********************************************************** P J PLINCOL EQU * R " P LDR A2,A3 COPY CURSOR ADDRESS f P SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER P
0x1c0fa0…1c1134 (2, 334) Dummy {f00=0x00b1, f01=0x0190, f02=»RETURN P* P* P* " P , P 6 P* SCANDINAVIAN ALPHABET > P DB b PLICO:T EQU * p * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,/232E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17
0x1c1134…1c12c8 Dummy {f00=0x00b1, f01=0x417c, f02=» j ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F 4 P DE ` P XIF n P z P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,
0x1c12c8…1c145c Dummy {f00=0x00b1, f01=0x2008, f02=» H P X ` h p x
0x1c145c…1c15f0 Dummy {f00=0x00b1, f01=0x0190, f02=»B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 N * P DATA /595A,/402C,/255F,/3E3F /28-/2F | ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE
0x1c15f0…1c1784 Dummy {f00=0x00b1, f01=0x408e, f02=»0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ( PDC:END EQU * V P* j P* t P END ~@ /255F,/3E3F /28-/2F | ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE
0x1c1784…1c1918 Dummy {f00=0x00b1, f01=0x2008, f02=» H P X ` h p x
0x1c1918…1c1aac Dummy {f00=0x00b1, f01=0x0000, f02=»
[…0x1…]
0x1c1c40…1c1dd4 (2, 335) Opaque[0x194]
0x1c1dd4…1c1f68 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f98, f03=0x0000}
0x1c1dd4…1c1f68 IdxSect {
0x1c1dd4…1c1f68 f00 = 0x007c // 0x1c1dd4 @0x0
0x1c1dd4…1c1f68 f01 = 0x0004 // 0x1c1dd6 @0x2
0x1c1dd4…1c1f68 gno = [ // 0x1c1dd8 @0x4
0x1c1dd4…1c1f68 [0x00]: C0x007c.0x3.0
0x1c1dd4…1c1f68 [0x01]: C0x007d.0x1.0
0x1c1dd4…1c1f68 ]
0x1c1dd4…1c1f68 }
0x1c1f68…1c20fc Dummy {f00=0x007c, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 2 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*
0x1c20fc…1c2290 Dummy {f00=0x007c, f01=0x0190, 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 0 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND.
0x1c2290…1c2424 Dummy {f00=0x007c, f01=0x0190, f02=»* 7C 5C P* 00 7C P* 5A 24 P* 6A 40 0 > P* 2F 19 USM(2F) TIL EM(19 DK2 @ P EJECT P* P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII P* P* PTASCII EQU * P IFT C
0x1c2424…1c25b8 Dummy {f00=0x007c, f01=0x018e, f02=»7 n ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F ( P DATA /0000,/0000,/0000,/171B 20-27 6 ( P DATA /0000,/0000,/0005,/0019 28-2F b ( P DATA /0000,/1600,/0000,/0004 30-37 ( P DATA /0000,/0000,/1415,/001A 38-3F ( P DATA /2041,/4243,/4445,/4647 40-4
0x1c25b8…1c274c Dummy {f00=0x007c, f01=0x0190, f02=» j ( P DATA /2D2F,/5354,/5556,/5758 60-67 ( P DATA /595A,/402C,/255F,/3E3F 68-6F 4 ( P DATA /1831,/3233,/3435,/3637 70-77 ` ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F ( P DATA /2061,/6263,/6465,/6667 80-87 ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F
0x1c274c…1c28e0 Dummy {f00=0x007c, f01=0x0190, f02=» ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF ( P DATA /3031,/3233,/3435,/3637 B0-B7 0 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7
0x1c28e0…1c2a74 (2, 336) Dummy {f00=0x007d, f01=0x0190, f02=» DATA /3031,/3233,/3435,/3637 F0-F7 ( P DATA /3839,/3A23,/4027,/3DFF F8-FF , P XIF X P EJECT d P* r P* | 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /000
0x1c2a74…1c2c08 Dummy {f00=0x007d, f01=0x0190, f02=»F27,/1C1D,/1E1F 18-1F ( P DATA /404F,/7F4A,/5A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F J ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 v ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D
0x1c2c08…1c2d9c Dummy {f00=0x007d, f01=0x40f2, f02=»/8485,/8687 60-67 ~ ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 F ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F r 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 P XIF P END @ ( P DATA /C8C9,/D
0x1c2d9c…1c2f30 Dummy {f00=0x007d, 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,
0x1c2f30…1c30c4 Dummy {f00=0x007d, f01=0x4164, f02=» : H IDENT T:ALA0 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:ALA0 B T:ALA0A ^ T . * T:DLA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & * & * & = a
0x1c30c4…1c3258 Dummy {f00=0x007d, f01=0x40be, f02=» : H IDENT T:DLA0 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:DLA0 B T:DLA0D T LPGOA h , ( LA @ * * x @ * & * & = a
0x1c3258…1c33ec Dummy {f00=0x007d, f01=0x40f0, f02=» : H IDENT T:AD00 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:AD00 B T:AD00A " T T:DD00 D:CB90 C:CB90 h * & ` D0 * @ * & = a
0x1c33ec…1c3580 Dummy {f00=0x007d, f01=0x40bc, f02=» : H IDENT T:DD00 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:DD00 B T:DD00D T DC1GO h * & D0 * x @ D0 * @ * & = a
0x1c3580…1c3714 (2, 337) Opaque[0x194]
0x1c3714…1c38a8 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c28, f03=0x0000}
0x1c3714…1c38a8 IdxSect {
0x1c3714…1c38a8 f00 = 0x0061 // 0x1c3714 @0x0
0x1c3714…1c38a8 f01 = 0x0006 // 0x1c3716 @0x2
0x1c3714…1c38a8 gno = [ // 0x1c3718 @0x4
0x1c3714…1c38a8 [0x00]: C0x0061.0x1.0
0x1c3714…1c38a8 [0x01]: C0x0061.0x2.0
0x1c3714…1c38a8 [0x02]: C0x0089.0x2.0
0x1c3714…1c38a8 ]
0x1c3714…1c38a8 }
0x1c38a8…1c3a3c Dummy {f00=0x0061, 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*
0x1c3a3c…1c3bd0 Dummy {f00=0x0061, 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
0x1c3bd0…1c3d64 Dummy {f00=0x0061, 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
0x1c3d64…1c3ef8 Dummy {f00=0x0061, 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********
0x1c3ef8…1c408c Dummy {f00=0x0061, 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
0x1c408c…1c4220 Dummy {f00=0x0061, 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
0x1c4220…1c43b4 (2, 338) Dummy {f00=0x0061, 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
0x1c43b4…1c4548 Dummy {f00=0x0061, 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 .
0x1c4548…1c46dc Dummy {f00=0x0061, 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
0x1c46dc…1c4870 Dummy {f00=0x0061, 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
0x1c4870…1c4a04 Dummy {f00=0x0061, 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
0x1c4a04…1c4b98 Dummy {f00=0x0061, 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
0x1c4b98…1c4d2c Dummy {f00=0x0061, 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
0x1c4d2c…1c4ec0 Dummy {f00=0x0061, 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
0x1c4ec0…1c5054 (2, 339) Dummy {f00=0x0089, 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
0x1c5054…1c51e8 Dummy {f00=0x0089, f01=0x0004, f02=» 0 P
0x1c51e8…1c537c Dummy {f00=0x0089, 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
0x1c537c…1c5510 Dummy {f00=0x0089, 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
0x1c5510…1c56a4 Dummy {f00=0x0089, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x1c56a4…1c5838 Dummy {f00=0x0089, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x1c5838…1c59cc Dummy {f00=0x0089, 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 * & @
0x1c59cc…1c5b60 Dummy {f00=0x0089, 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 , (
0x1c5b60…1c5cf4 (2, 340) Opaque[0x194]
0x1c5cf4…1c5e88 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04d8, f03=0x0000}
0x1c5cf4…1c5e88 IdxSect {
0x1c5cf4…1c5e88 f00 = 0x0026 // 0x1c5cf4 @0x0
0x1c5cf4…1c5e88 f01 = 0x0006 // 0x1c5cf6 @0x2
0x1c5cf4…1c5e88 gno = [ // 0x1c5cf8 @0x4
0x1c5cf4…1c5e88 [0x00]: C0x0026.0x3.0
0x1c5cf4…1c5e88 [0x01]: C0x0027.0x0.0
0x1c5cf4…1c5e88 [0x02]: C0x005e.0x0.0
0x1c5cf4…1c5e88 ]
0x1c5cf4…1c5e88 }
0x1c5e88…1c601c Dummy {f00=0x0026, 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*
0x1c601c…1c61b0 Dummy {f00=0x0026, 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**
0x1c61b0…1c6344 Dummy {f00=0x0026, 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
0x1c6344…1c64d8 Dummy {f00=0x0026, 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
0x1c64d8…1c666c Dummy {f00=0x0026, 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
0x1c666c…1c6800 Dummy {f00=0x0026, 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
0x1c6800…1c6994 (2, 341) Dummy {f00=0x0027, 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
0x1c6994…1c6b28 Dummy {f00=0x0027, 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
0x1c6b28…1c6cbc Dummy {f00=0x0027, 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
0x1c6cbc…1c6e50 Dummy {f00=0x0027, 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
0x1c6e50…1c6fe4 Dummy {f00=0x0027, 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
0x1c6fe4…1c7178 Dummy {f00=0x0027, 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
0x1c7178…1c730c Dummy {f00=0x0027, 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
0x1c730c…1c74a0 Dummy {f00=0x0027, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x1c74a0…1c7634 (2, 342) Dummy {f00=0x005e, 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*
0x1c7634…1c77c8 Dummy {f00=0x005e, 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
0x1c77c8…1c795c Dummy {f00=0x005e, 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
0x1c795c…1c7af0 Dummy {f00=0x005e, 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
0x1c7af0…1c7c84 Dummy {f00=0x005e, 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?
0x1c7c84…1c7e18 Dummy {f00=0x005e, 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?
0x1c7e18…1c7fac Dummy {f00=0x005e, 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
0x1c7fac…1c8140 Dummy {f00=0x005e, f01=0x0000, f02=»
0x1c8140…1c82d4 (2, 343) Opaque[0x194]
0x1c82d4…1c8468 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0468, f03=0x0000}
0x1c82d4…1c8468 IdxSect {
0x1c82d4…1c8468 f00 = 0x0023 // 0x1c82d4 @0x0
0x1c82d4…1c8468 f01 = 0x0006 // 0x1c82d6 @0x2
0x1c82d4…1c8468 gno = [ // 0x1c82d8 @0x4
0x1c82d4…1c8468 [0x00]: C0x0023.0x1.0
0x1c82d4…1c8468 [0x01]: C0x0023.0x2.0
0x1c82d4…1c8468 [0x02]: C0x0023.0x3.0
0x1c82d4…1c8468 ]
0x1c82d4…1c8468 }
0x1c8468…1c85fc Dummy {f00=0x0023, 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*
0x1c85fc…1c8790 Dummy {f00=0x0023, 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
0x1c8790…1c8924 Dummy {f00=0x0023, 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
0x1c8924…1c8ab8 Dummy {f00=0x0023, 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
0x1c8ab8…1c8c4c Dummy {f00=0x0023, 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
0x1c8c4c…1c8de0 Dummy {f00=0x0023, 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 1 * P* 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER OVERL
0x1c8de0…1c8f74 (2, 344) Dummy {f00=0x0023, 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
0x1c8f74…1c9108 Dummy {f00=0x0023, 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
0x1c9108…1c929c Dummy {f00=0x0023, 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
0x1c929c…1c9430 Dummy {f00=0x0023, 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
0x1c9430…1c95c4 Dummy {f00=0x0023, 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
0x1c95c4…1c9758 Dummy {f00=0x0023, 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
0x1c9758…1c98ec Dummy {f00=0x0023, 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
0x1c98ec…1c9a80 Dummy {f00=0x0023, 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
0x1c9a80…1c9c14 (2, 345) Dummy {f00=0x0023, 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
0x1c9c14…1c9da8 Dummy {f00=0x0023, 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
0x1c9da8…1c9f3c Dummy {f00=0x0023, 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
0x1c9f3c…1ca0d0 Dummy {f00=0x0023, 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
0x1ca0d0…1ca264 Dummy {f00=0x0023, 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
0x1ca264…1ca3f8 Dummy {f00=0x0023, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x1ca3f8…1ca58c Dummy {f00=0x0023, 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
0x1ca58c…1ca720 Dummy {f00=0x0023, 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
0x1ca720…1ca8b4 (2, 346) Opaque[0x194]
0x1ca8b4…1caa48 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bd0, f03=0x0000}
0x1ca8b4…1caa48 IdxSect {
0x1ca8b4…1caa48 f00 = 0x005e // 0x1ca8b4 @0x0
0x1ca8b4…1caa48 f01 = 0x0004 // 0x1ca8b6 @0x2
0x1ca8b4…1caa48 gno = [ // 0x1ca8b8 @0x4
0x1ca8b4…1caa48 [0x00]: C0x005e.0x2.0
0x1ca8b4…1caa48 [0x01]: C0x005e.0x3.0
0x1ca8b4…1caa48 ]
0x1ca8b4…1caa48 }
0x1caa48…1cabdc Dummy {f00=0x005e, 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*
0x1cabdc…1cad70 Dummy {f00=0x005e, 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*
0x1cad70…1caf04 Dummy {f00=0x005e, 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/
0x1caf04…1cb098 Dummy {f00=0x005e, 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
0x1cb098…1cb22c Dummy {f00=0x005e, 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
0x1cb22c…1cb3c0 Dummy {f00=0x005e, 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
0x1cb3c0…1cb554 (2, 347) Dummy {f00=0x005e, 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?
0x1cb554…1cb6e8 Dummy {f00=0x005e, 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
0x1cb6e8…1cb87c Dummy {f00=0x005e, 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)
0x1cb87c…1cba10 Dummy {f00=0x005e, 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)
0x1cba10…1cbba4 Dummy {f00=0x005e, f01=0x2008, f02=»
0x1cbba4…1cbd38 Dummy {f00=0x005e, 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
0x1cbd38…1cbecc Dummy {f00=0x005e, 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
0x1cbecc…1cc060 Dummy {f00=0x005e, 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
0x1cc060…1cc1f4 (2, 348) Opaque[0x194]
0x1cc1f4…1cc388 # DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e8, f03=0x0000}
0x1cc1f4…1cc388 IdxSect {
0x1cc1f4…1cc388 f00 = 0x008f // 0x1cc1f4 @0x0
0x1cc1f4…1cc388 f01 = 0x000c // 0x1cc1f6 @0x2
0x1cc1f4…1cc388 gno = [ // 0x1cc1f8 @0x4
0x1cc1f4…1cc388 [0x00]: C0x008f.0x1.0
0x1cc1f4…1cc388 [0x01]: C0x0090.0x1.0
0x1cc1f4…1cc388 [0x02]: C0x0090.0x2.0
0x1cc1f4…1cc388 [0x03]: C0x0090.0x3.0
0x1cc1f4…1cc388 [0x04]: C0x0091.0x0.0
0x1cc1f4…1cc388 [0x05]: C0x0091.0x1.0
0x1cc1f4…1cc388 ]
0x1cc1f4…1cc388 }
0x1cc388…1cc51c Dummy {f00=0x008f, f01=0x0190, f02=» 0 P IDENT TASS REL 9.2 79-11-16 870105040920 P 8 P =1, PR 4313 @ P* REL 9.1 78-10-25 V P r P* z P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P*
0x1cc51c…1cc6b0 Dummy {f00=0x008f, f01=0x0190, f02=»**************************** x P* $ " P* THIS MODULE IS ENTERED VIA . $ P* ASSIGN REQUEST (DATA 15) OR T ( P* ASSIGN INDEX REQUEST (DATA 16). | P* P* LDK A7,TC P* LDKL A8,ASBLK P* LKM P* DATA 15 P
0x1cc6b0…1cc844 Dummy {f00=0x008f, f01=0x018e, f02=»K IS A PARAMETER BLOCK z D P* AND TC = 1 WHEN TASK LOCAL ASSIGN IN TTAB IS WANTED B P* TC = 0 WHEN GLOBAL ASSIGN IN SCTCDT IS WANETED f P* P EJECT P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I
0x1cc844…1cc9d8 Dummy {f00=0x008f, f01=0x0190, f02=» t . P* I I P* +---------------------+ : P* I I P* I VOL NAME I ~ P* I I P* +---------------------+ P* I I P*
0x1cc9d8…1ccb6c Dummy {f00=0x008f, f01=0x018e, f02=»* CREATED IN TTAB/CD:TAB. P* $ F P* THE FDB IS INITIALIZED WITH INFORMATION FROM THE VTOC:S OF THE . $ P* VOLUMES MENTIONED IN ASBLK. x P* J P* UPON COMPLETION OF THE ASSIGN REQUEST REG A7 WILL HAVE ONE OF THE P* FOLLOWING RE
0x1ccb6c…1ccd00 Dummy {f00=0x008f, f01=0x0190, f02=» x " P* 2 = NO FREE ENTRY IN TABLE P* 3 = NO FDB AVAILABLE . ( P* 4 = ONE OR MORE VOLUMES UNKNOWN N " P* 5 = FILE CODE ALREADY USED z P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE P* 8 = FAULTY DIS
0x1ccd00…1cce94 (2, 349) Dummy {f00=0x0090, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x1cce94…1cd028 Dummy {f00=0x0090, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x1cd028…1cd1bc Dummy {f00=0x0090, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x1cd1bc…1cd350 Dummy {f00=0x0090, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x1cd350…1cd4e4 Dummy {f00=0x0090, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x1cd4e4…1cd678 Dummy {f00=0x0090, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x1cd678…1cd80c Dummy {f00=0x0090, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x1cd80c…1cd9a0 Dummy {f00=0x0090, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 1 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x1cd9a0…1cdb34 (2, 350) Dummy {f00=0x0090, f01=0x018e, f02=» 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (DMI,FC) " P DATA 0,0,0 THREE MORE ENTRIES 8 6 PTASCXO DATA 0 CURRENT OFFSET IN TASSEX AND TASXLB ^ 0 PTASSEX DATA 0 SECTION NUMBER, EXTENT NUMBER * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,
0x1cdb34…1cdcc8 Dummy {f00=0x0090, f01=0x0190, f02=» PTASFDB DATA 0 FDB ADDRESS $ PTASVRL DATA 0 VTOC RECORD LENGTH & PTASVLE DATA 0 VTOC LENGTH N PTASVRN DATA 0 VTOC RECORD NO p PTASECB DATA 0,0 ECBFC,ECBBA P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 0 PTA
0x1cdcc8…1cde5c Dummy {f00=0x0090, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x1cde5c…1cdff0 Dummy {f00=0x0090, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x1cdff0…1ce184 Dummy {f00=0x0090, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x1ce184…1ce318 Dummy {f00=0x0090, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x1ce318…1ce4ac Dummy {f00=0x0090, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x1ce4ac…1ce640 Dummy {f00=0x0090, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x1ce640…1ce7d4 (2, 351) Dummy {f00=0x0090, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x1ce7d4…1ce968 Dummy {f00=0x0090, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 N
0x1ce968…1ceafc Dummy {f00=0x0090, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P
0x1ceafc…1cec90 Dummy {f00=0x0090, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT
0x1cec90…1cee24 Dummy {f00=0x0090, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P L
0x1cee24…1cefb8 Dummy {f00=0x0090, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2
0x1cefb8…1cf14c Dummy {f00=0x0090, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK
0x1cf14c…1cf2e0 Dummy {f00=0x0090, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY
0x1cf2e0…1cf474 (2, 352) Dummy {f00=0x0091, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x1cf474…1cf608 Dummy {f00=0x0091, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x1cf608…1cf79c Dummy {f00=0x0091, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x1cf79c…1cf930 Dummy {f00=0x0091, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x1cf930…1cfac4 Dummy {f00=0x0091, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x1cfac4…1cfc58 Dummy {f00=0x0091, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x1cfc58…1cfdec Dummy {f00=0x0091, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x1cfdec…1cff80 Dummy {f00=0x0091, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x1cff80…1d0114 (2, 353) Dummy {f00=0x0091, f01=0x0190, f02=»S170 NO MATCH % P* & P* FILE CODE USED & . P* OK WHEN REQ = ASS INDEX AND INDEX = 1 & : P* & l P LDR* A2,A8 ASBLK 1ST WORD & v P RF(NN) TASSE5 NORMAL ASSIGN & P LDK A2,1 & P CC A2,-1,A1 INDEX & * P RF(NE) TASSE5 FILE CODE ALREADY
0x1d0114…1d02a8 Dummy {f00=0x0091, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x1d02a8…1d043c Dummy {f00=0x0091, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x1d043c…1d05d0 Dummy {f00=0x0091, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x1d05d0…1d0764 Dummy {f00=0x0091, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x1d0764…1d08f8 Dummy {f00=0x0091, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x1d08f8…1d0a8c Dummy {f00=0x0091, f01=0x2008, f02=» ,
0x1d0a8c…1d0c20 Dummy {f00=0x0091, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x1d0c20…1d0db4 (2, 354) Opaque[0x194]
0x1d0db4…1d0f48 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1378, f03=0x0000}
0x1d0db4…1d0f48 IdxSect {
0x1d0db4…1d0f48 f00 = 0x009b // 0x1d0db4 @0x0
0x1d0db4…1d0f48 f01 = 0x000c // 0x1d0db6 @0x2
0x1d0db4…1d0f48 gno = [ // 0x1d0db8 @0x4
0x1d0db4…1d0f48 [0x00]: C0x009b.0x3.0
0x1d0db4…1d0f48 [0x01]: C0x009c.0x0.0
0x1d0db4…1d0f48 [0x02]: C0x009c.0x1.0
0x1d0db4…1d0f48 [0x03]: C0x009c.0x2.0
0x1d0db4…1d0f48 [0x04]: C0x009c.0x3.0
0x1d0db4…1d0f48 [0x05]: C0x009d.0x0.0
0x1d0db4…1d0f48 ]
0x1d0db4…1d0f48 }
0x1d0f48…1d10dc Dummy {f00=0x009b, f01=0x0190, f02=» 0 P IDENT TIODM REL 9.2 79-11-16 870105040920 P 8 P =1, PR 5649 @ P REL 9.1 79-05-23 V P* r 8 P**************************************************** | P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MA
0x1d10dc…1d1270 Dummy {f00=0x009b, f01=0x018e, f02=»******** d P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE ` P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED
0x1d1270…1d1404 Dummy {f00=0x009b, f01=0x0190, f02=» P* A7 = ORDER P* A8 = ECB ADDRESS " P* F P* USED REGISTERS A1 - A10 P P* t D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 ~ P* AS THE ONLY PARAMETER P* 4 P* THE FOLLOWING WORD
0x1d1404…1d1598 Dummy {f00=0x009b, f01=0x0190, f02=» FOR CALLING TASK x . P* FDBCEX CURRENT EXTENT BLOCK POINTER P* L P* V D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: ` P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P* P EJECT P
0x1d1598…1d172c Dummy {f00=0x009b, f01=0x0190, f02=»DBLNK P ENTRY FDBECB P ENTRY FDBSNR $ P ENTRY FDBRRO : P ENTRY FDBRLE P P ENTRY FDBBLF f P ENTRY FDBTNR | P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXTFC P ENTRY EXT
0x1d172c…1d18c0 Dummy {f00=0x009b, f01=0x0190, f02=»NTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO ( & P ENTRY FDBMEC MMU ECB DISPLACEMENT L 6 P ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS v P EJECT P* P***************** P* EXTERNALS * P************
0x1d18c0…1d1a54 (2, 355) Dummy {f00=0x009c, f01=0x0190, f02=» P EXTRN DISEND EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER < & P EXTRN DWTTDM DM TASK TTAB ADDRESS d P EXTRN TTB:ID TASK ID 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA " P EXTRN DMTGCA GET CRN ADDRESS , P E
0x1d1a54…1d1be8 Dummy {f00=0x009c, f01=0x0190, f02=» ECBRL P EXTRN ECBEL P EXTRN ECBRC " P EXTRN ECBCW 6 & P EXTRN ECBCW2 SECOND CONTROL WORD J P EXTRN FDBLEN t " P EXTRN SQR SEQ READ ORDER CODE & P EXTRN EARELB,DWTST,CRNGET,EATEST & P EXTRN TASHLT HALT SYSTEM ROUTINE P EJE
0x1d1be8…1d1d7c Dummy {f00=0x009c, f01=0x0190, f02=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 D * P* INDXAC EQU 0 OTHRERWISE h PX:A EQU 0 PINDXAC EQU 00000 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINE
0x1d1d7c…1d1f10 Dummy {f00=0x009c, f01=0x0190, f02=»TA DEFINITIONS * P************************ P* : P* D P DATA 0,0 4 WORDS N P DATA 0,0 h " PTIOD14 EQU *-2 TIODM A14 STACK z P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA CLOSE CLOSE " P DATA REVTOC REA
0x1d1f10…1d20a4 Dummy {f00=0x009c, f01=0x0190, f02=»DELETE | P DATA IXREWR INDEXED REWRITE $ P DATA IXRARE INDEXED RANDOM READ 2 P XIF Z P IFF INDXAC=1 f P DATA TIODME | P DATA TIODME P DATA TIODME P DATA TIODME P DATA TIODME P XIF P DATA RANDEL RANDOM DELETE
0x1d20a4…1d2238 Dummy {f00=0x009c, f01=0x0190, f02=» SEQUENTIAL WRITE " P DATA SEQREAD SEQUENTIAL READ P DATA GETCUR GET CURRENCY @ P IFT INDXAC=1 b $ P DATA INSIXR INSERT INDEX RECORD x $ P DATA DELIXR DELETE INDEX RECORD P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIOD
0x1d2238…1d23cc Dummy {f00=0x009c, f01=0x0190, f02=»LETE r $ P DATA RANREB RAND READ REL BUFF P DATA SETLRN SET LRN 4 P* P P* Z PTIODMO EQU * DM ORDERS d $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND INSERT,IND DELETE . P DATA /1B1A INDEXED REWRITE,IND RAND READ $ P D
0x1d23cc…1d2560 Dummy {f00=0x009c, f01=0x0190, f02=»SEQ WR. , BASIC WRITE $ P DATA /0302 READ VTOC, SEQ READ ( P DATA /0123 BASIC READ,GET CURRENCY F * P DATA /1F20 INS INDEXREC,DEL INDEXREC r . P DATA /240D GET CURR INDEX,DELAYED RAND WR 0 P DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF P D
0x1d2560…1d26f4 (2, 356) Dummy {f00=0x009c, f01=0x0190, f02=»ATA /0E10 P DATA /1214 P DATA /1616 & P DATA /1616 : P DATA /0218 N P DATA /181A b P DATA /1C1E v P DATA /2022 P DATA /2426 P DATA /281A SET LRN P* $ PNOOFOR EQU 25 NO OF ORDER CODES P*
0x1d26f4…1d2888 Dummy {f00=0x009c, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* P* f P* FDB OFFSET DEFINITIONS p P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER
0x1d2888…1d2a1c Dummy {f00=0x009c, f01=0x0190, f02=» l 0 PFDBTNR EQU START+23 TASK NUMBER CALLING TASK & PFDBVTO EQU START+24 VTOC RECORD NO < 4 PFDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER f 0 PFDBEXT EQU START+28 FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME F
0x1d2a1c…1d2bb0 Dummy {f00=0x009c, f01=0x0190, f02=»+53 LAST RECORD NUMBER * PFDBNIF EQU START+52 NO OF INDEX FILES $ PFDBEAL EQU START+56 EA LINK ROOT L & PFDBCRL EQU START+58 CRN LINK ROOT t 0 PFDBKA EQU START+60 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START+62 ADDRESS OF MASTER INDEX 0 PFD
0x1d2bb0…1d2d44 Dummy {f00=0x009c, f01=0x0190, f02=»AND REL BUFFER FLAGS p , PFDBMRN EQU START+75 LAST REC NR IN FILE " PFDBMRO EQU START+78 MAX FDBRRO L , PFDBMEC EQU START+80 MMU ECB DISPLACEMENT r < PFDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS P* & P* CRN BUFFER OFFSET DEFINI
0x1d2d44…1d2ed8 Dummy {f00=0x009c, f01=0x0190, f02=» P EJECT P* P************* P* TIODM * 2 P************* H P* ^ P* h ( P DATA 0 DATA MANAGEMENT DEVICE INDEX r & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14
0x1d2ed8…1d306c Dummy {f00=0x009c, f01=0x018e, f02=» A1,A2 P LD A3,2,A1 P CW A3,DWTTDM,A6 " P RF(E) TIOD10 THIS TASK : P ADK A2,2 NO Z P RB TIOD05 TRY NEXT n PTIOD10 EQU * P LC A1,TTB:ID,A3 GET TASK ID P CCK A1,'##' ( P RF(E) TIO13 JUMP IF DMTASK CALLING P*
0x1d306c…1d3200 Dummy {f00=0x009c, f01=0x0190, f02=» P LDKL A4,/4000 REQ BUSY BIT PTIO11 EQU * ( P SUK A3,2 < P RF(N) TIO13 ALL FDB READY N P LDR* A5,A1 FDB ADDR p P RF(E) TIO12 NO FDB P SC A2,FDBTNR,A5 TASK ID " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A
0x1d3200…1d3394 (2, 357) Dummy {f00=0x009c, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD
0x1d3394…1d3528 Dummy {f00=0x009c, f01=0x0190, f02=»BI TIODMF,A2 BRANCH TO DM FUNCTION P EJECT * P* 8 $ PIXRARE EQU * INDEXED RANDOM READ B P LD A3,ECBCW2,A8 =1 j P ANK A3,/FF REQ KEY LGTH =1 P LD A4,FDBRLE,A6 =1 P SUK A4,6 MAX LGTH =1 P CWR A3,A4 =1 P RF(NG) IXRAR1
0x1d3528…1d36bc Dummy {f00=0x009c, f01=0x0190, f02=»GET USER KEY ADDRESS 0 P LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT P ADR A2,A6 ADD FDB ADDRESS P P* =1 r 2 P CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA P XIF P* $ PDELIXR EQU * DELETE INDEX RECORD P* $ PINSIXR E
0x1d36bc…1d3850 Dummy {f00=0x009c, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x1d3850…1d39e4 Dummy {f00=0x009c, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x1d39e4…1d3b78 Dummy {f00=0x009c, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x1d3b78…1d3d0c Dummy {f00=0x009c, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x1d3d0c…1d3ea0 Dummy {f00=0x009c, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x1d3ea0…1d4034 (2, 358) Dummy {f00=0x009c, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB
0x1d4034…1d41c8 Dummy {f00=0x009c, f01=0x018e, f02=»EQU * INDEXED INSRERT P IFT MMUPAG=1 P* 4 " P* MOVE KEYS TO FDB KEY AREAS > P* d P LDK A5,8 n PIXINS3 EQU * P LDR A2,A6 FDB DATA P ADR A2,A5 P LD A3,FDBADF,A2 FDB INDEX P RF(Z) IXINS4 NO INDEX P LD A1
0x1d41c8…1d435c Dummy {f00=0x009c, f01=0x0190, f02=» P LD A3,FDBRLE,A3 REC LGTH P SUK A3,6 KEY LGTH & " P CF A14,MOV:US KEY TO FDB AREA @ PIXINS4 EQU * f P SUK A5,2 z P RB(NZ) IXINS3 MORE INDEXS P XIF P* $ PSEQWRITE EQU * SEQUENTIAL WRITE P* 2 P* GET LRN+1 INTO
0x1d435c…1d44f0 Dummy {f00=0x009c, f01=0x0190, f02=» x P LDK A1,0 ! P LC A1,FDBMRN,A6 LAST REC NR ! P LD A2,FDBMRN+1,A6 ! > P LDK A6,0 ! X P LC A6,FDBLRN,A5 ! j P LD A7,FDBLRN+1,A5 LRN ! P CF A14,DSUMOD SUBTRACT ! P SUK A2,1 ! P LDR A1,A1 ! P RF(Z) SEQ005 NOT MANY ! P LDKL
0x1d44f0…1d4684 Dummy {f00=0x009c, f01=0x0190, f02=»,FDBLRN+1,A6 LRN ! P IFT INDXAC=1 " P RF IXR020 STORE LOG REC NO " . P EJECT " R $ PIXRDNX EQU * INDEXED EREAD NEXT " ` P* " P* GET CRN " P* " P LD A1,FDBADF,A6 FDB ADDR " " P CF A14,CRNGET GET CRN BUFFER " P LDR A4,A2 BUFFA
0x1d4684…1d4818 Dummy {f00=0x009c, f01=0x0190, f02=»C A5,CRNCIF,A4 " . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT # P LC A1,CRNCIF+1,A4 # H " P LD A2,CRNCIF+2,A4 LOG REC NO # b PIXR020 EQU * # P XIF # P ADK A2,1 # P RF(O) IXR030 OVERFLOW # P RF IXR040 # , PIXR030 ANKL A2,/7FFF REMOVE OV
0x1d4818…1d49ac Dummy {f00=0x009c, f01=0x0190, f02=»NOT CHECK EOF CONDITION # P EJECT $ P* $ . PIXREWR EQU * INDEXED REWRITE $ 8 P* $ PIXDEL EQU * INDEXED DELETE $ f P* $ PRANWRITE EQU * RANDOM WRITE $ P* $ & PRANWRD EQU * DELAYED RANDOM WRITE $ P* $ & PRANDLD EQU * DELAYED
0x1d49ac…1d4b40 Dummy {f00=0x009c, f01=0x018e, f02=» $ P************************* % P* DMTASK ACTIVATION * % * P************************* % L P* % n PTIODMA EQU * % x P* % P* SET EOF IF CRN > LRN % P* % P LDK A1,0 % P LC A1,ECBCW+3,A8 REC NO % P LD A2,ECBCW,A8 DITTO
0x1d4b40…1d4cd4 (2, 359) Dummy {f00=0x009d, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x1d4cd4…1d4e68 Dummy {f00=0x009d, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x1d4e68…1d4ffc Dummy {f00=0x009d, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x1d4ffc…1d5190 Dummy {f00=0x009d, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x1d5190…1d5324 Dummy {f00=0x009d, f01=0x2008, f02=» *
0x1d5324…1d54b8 Dummy {f00=0x009d, f01=0x0190, f02=» 2 P* 3 < P* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON 3 > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME 3 R P* 3 P LDK A1,4 EXTENT COUNTER 3 P LDR A5,A6 FDB ADDR 3 . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE 3
0x1d54b8…1d564c Dummy {f00=0x009d, f01=0x0190, f02=»1 LOOP 3 & P ABL(NN) DMT900 CHECK THIS EXTENT 4 P XIF 4 8 P IFT INDXAC=1 4 D P EJECT 4 Z P* 4 h P* ALL EXTENTS CHECKED 4 r P* RELEASE MASRTER INDEX 4 P* 4 P INH 4 & P LD A1,FDBMIA,A6 MASTER INDEX ADDR 4 P RF(Z) DMT894 NO MAT
0x1d564c…1d57e0 Dummy {f00=0x009d, f01=0x018e, f02=» DMT894 NO MATER IX 4 P CW A1,MXIND+2,A5 5 P RB(NE) DMT885 5 6 P LD A4,MXIND,A5 5 L & P RF(N) DMT890 PREVIOUS ENTRY USED 5 d " P LD A4,MXIND+4,A5 NO OF WORDS 5 P ANKL A4,/7FFF REMOV USE BIT 5 P ADS A4,MXIND,A5 NR OF WORDS 5 P* 5 P*
0x1d57e0…1d5974 (2, 360) Opaque[0x194]
0x1d5974…1d5b08 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b90, f03=0x0000}
0x1d5974…1d5b08 IdxSect {
0x1d5974…1d5b08 f00 = 0x005c // 0x1d5974 @0x0
0x1d5974…1d5b08 f01 = 0x0026 // 0x1d5976 @0x2
0x1d5974…1d5b08 gno = [ // 0x1d5978 @0x4
0x1d5974…1d5b08 [0x00]: C0x005c.0x2.0
0x1d5974…1d5b08 [0x01]: C0x0094.0x1.0
0x1d5974…1d5b08 [0x02]: C0x0094.0x2.0
0x1d5974…1d5b08 [0x03]: C0x0094.0x3.0
0x1d5974…1d5b08 [0x04]: C0x0095.0x0.0
0x1d5974…1d5b08 [0x05]: C0x009d.0x1.0
0x1d5974…1d5b08 [0x06]: C0x009d.0x2.0
0x1d5974…1d5b08 [0x07]: C0x009e.0x0.0
0x1d5974…1d5b08 [0x08]: C0x009e.0x1.0
0x1d5974…1d5b08 [0x09]: C0x009e.0x2.0
0x1d5974…1d5b08 [0x0a]: C0x009e.0x3.0
0x1d5974…1d5b08 [0x0b]: C0x009f.0x0.0
0x1d5974…1d5b08 [0x0c]: C0x009f.0x1.0
0x1d5974…1d5b08 [0x0d]: C0x009f.0x2.0
0x1d5974…1d5b08 [0x0e]: C0x009f.0x3.0
0x1d5974…1d5b08 [0x0f]: C0x00a0.0x0.0
0x1d5974…1d5b08 [0x10]: C0x00a0.0x1.0
0x1d5974…1d5b08 [0x11]: C0x00a0.0x2.0
0x1d5974…1d5b08 [0x12]: C0x00a0.0x3.0
0x1d5974…1d5b08 ]
0x1d5974…1d5b08 }
0x1d5b08…1d5c9c Dummy {f00=0x005c, f01=0x0190, f02=» 2 P IDENT DMTASK REL 9.2 79-11-16 870105040920 P : P =5, PR5649 B P REL 9.1 79-11-01 X P =4,CURRENCY INSERT t P REL 9.1 79-07-02 P =3,TEST KEY P REL 9.1 79-07-02 P =2,CH REQ P REL 8.2 P
0x1d5c9c…1d5e30 Dummy {f00=0x005c, f01=0x0190, f02=»M PTS v P* 0 P* DMTASK = HANDLES DATAMANAGEMENT DISC I/O P* L P* V P* ` P* j P* t 8 P**************************************************** ~ P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT
0x1d5e30…1d5fc4 Dummy {f00=0x005c, f01=0x0190, f02=» TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, -FC, -SNR). : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS SECTOR > F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET | D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT
0x1d5fc4…1d6158 Dummy {f00=0x005c, f01=0x0190, f02=»N AND ARE V ( P* FOLLOWED BY AN EXIT LKM REQUEST. : P* INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE > & P* ALL I/O ARE MADE IN WAIT MODE | P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 6 P* FOR INDEXED
0x1d6158…1d62ec Dummy {f00=0x005c, f01=0x018e, f02=»SIVE ACCESS CHECK INCLUDED | 2 P* QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED " P EJECT X P* f P*************** p P* ENTRIES * P*************** P* P* P ENTRY DMTASK & P ENTRY SQR EXTERNAL CODE SEQ READ
0x1d62ec…1d6480 Dummy {f00=0x005c, f01=0x0190, f02=» | P***************** P* " P* , P EXTRN SCTTCT,SCTCDT 6 & P EXTRN TTB:ID TASK IDENTIFICATION R P EXTRN TTB:TD,FDBSTA | P EXTRN FNDTID P EXTRN TENDIO P EXTRN FDBECB P EXTRN FDBSNR P EXTRN FDBRRO P E
0x1d6480…1d6614 (2, 361) Dummy {f00=0x0094, f01=0x0190, f02=» EXTDMI P EXTRN EXTFC P EXTRN EXTLEN $ P EXTRN EXTBAS : P EXTRN EXTELE P P EXTRN FDBLRN f P EXTRN FDBMIA | P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDBAI1 P EXTRN FDBCRL P EXTRN FDBDBR,FDBMRN,FDBMRO
0x1d6614…1d67a8 Dummy {f00=0x0094, f01=0x0190, f02=»BUF P EXTRN BUFLNK P EXTRN BUFDMI " P EXTRN BUFFC 8 P EXTRN BUFSNR L P EXTRN BUFOR b P EXTRN BUFSTA v P EXTRN CURBUF P EXTRN DWTECB P EXTRN DWTUEC P EXTRN DWTOR P EXTRN DWTST,DWTTDM,DWTTQ P EXT
0x1d67a8…1d693c Dummy {f00=0x0094, f01=0x0190, f02=»DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CALSNO * P EXTRN DSUMOD @ . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU V P EXTRN QTJOB,GTLGRN P EXTRN FNDKEY P EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RD
0x1d693c…1d6ad0 Dummy {f00=0x0094, f01=0x0190, f02=»VE FROM USER TO SYSTEM AREA 0 P EXTRN MOV:SU MOVE FROM SYSTEM TO USER AREA $ P EXTRN MONMMU X , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK n P EXTRN TTB:MT MMU TABLE ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EJECT P* P*
0x1d6ad0…1d6c64 Dummy {f00=0x0094, f01=0x0190, f02=»LUSIVE ACCESS BIT CAN BE EXCLUDED AT 8 P* RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0. , P* h P* r PX:A EQU 1 | PX:B EQU 0 PX:C EQU 0 PX:D EQU 1 PX:E EQU 0 P* PQNOEXA EQU 00001 6 P* INDEXED ACCE
0x1d6c64…1d6df8 Dummy {f00=0x0094, f01=0x018e, f02=»TED b PINDXAC EQU 00000 6 PRECBFZ EQU 00004 INDEX RECORD BUFFER SIZE IN WORDS $ 4 PFLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 ^ 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 P* P EJECT DMTASK P* P* . P* A PROG
0x1d6df8…1d6f8c Dummy {f00=0x0094, f01=0x0190, f02=» . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 * d PDSKPAG EQU 1 n * P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P*
0x1d6f8c…1d7120 Dummy {f00=0x0094, f01=0x0190, f02=»************** P* P* , PEABIT EQU /20 EA-BIT IN DWT STATUS BYTE * P* Z & PVTOBLK EQU 9 VTOC BLOCKING FACTOR d P* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF P*
0x1d7120…1d72b4 (2, 362) Dummy {f00=0x0094, f01=0x0190, f02=»XAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6 4 P DATA DMINS INDEXED INSERT F PQDEL EQU 8 h P DATA DMDEL INDEXED DELETE z PQIRW EQU 10 P DATA DMIRW INDEXED REWRITE $ P DATA DMIRR INDEXED RANDOM RESAD P XIF P
0x1d72b4…1d7448 Dummy {f00=0x0094, f01=0x0190, f02=»DOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE $ PQRR EQU 18 F P DATA DMRDRE RANDOM READ X PQREA EQU 20 x * P DATA DMTERR RELEASE EXCLUSIVE ACCESS PQSW EQU 22 " P DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORD
0x1d7448…1d75dc Dummy {f00=0x0094, f01=0x0190, f02=» INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX & PQDELX EQU 30 H P DATA DMDELX DELETE INDEX P XIF ~ P IFF INDXAC=1 P DATA DMTERR,DMTERR P XIF PQGCURX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD
0x1d75dc…1d7770 Dummy {f00=0x0094, f01=0x0190, f02=» $ P DATA DMRRRB RAND READ REL BUFF P* , $ PVTOCRL DATA 0 VTOC RECORD LENGTH 6 P EJECT ^ P* l P************** v P* DMTFRL * P************** P* , P* ENTRY DMTFRL FIND RECORD LENGTH P* 4 P* INPUT
0x1d7770…1d7904 Dummy {f00=0x0094, f01=0x0190, f02=»OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH . & P* A2 IS STORED IN ECBEL n P* PDMTFRL EQU * P LD A2,ECBRL,A9 P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH
0x1d7904…1d7a98 Dummy {f00=0x0094, f01=0x0190, f02=»ETURN CODE t . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH P RTN A14 D P EJECT T P* b P************ l P* DMTWM * P************ P* " P* ENTRY DMTWM WORD MOVE P* " P* INPUT A1 = FROM ADDRESS , P
0x1d7a98…1d7c2c Dummy {f00=0x0094, f01=0x0190, f02=» P* PDMTWM EQU * P SUK A2,2 & " P RF(N) DMTW10 LAST WORD MOVED 8 P LDR* A4,A1 ^ P STR A4,A3 r P ADK A1,2 P ADK A3,2 P RB DMTWM PDMTW10 ANK A2,/01 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR
0x1d7c2c…1d7dc0 Dummy {f00=0x0094, f01=0x0190, f02=» " P* ENTRY DMTBM BYTE MOVE P* . " P* INPUT A1 = FROM ADDRESS 8 , P* A2 = NO OF BYTES TO BE MOVED ^ P* A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR
0x1d7dc0…1d7f54 (2, 363) Dummy {f00=0x0094, f01=0x0190, f02=» P ADK A1,1 P ADK A3,1 P RB DMTBM ( PDMTB10 RTN A14 : P* P 2 P* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT Z P* MOVES FROM THE END P* PDMTBMR ADR A1,A2 P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10
0x1d7f54…1d80e8 Dummy {f00=0x0094, f01=0x0190, f02=»**************************** x P* $ : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE . P* l 8 P****ENTRY PARAMETERS******************************** v P* P* A1 = TTAB ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT
0x1d80e8…1d827c Dummy {f00=0x0094, f01=0x0190, f02=»NCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 P* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND F 2 P* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB P* 8 P****USED REGISTERS********************************** P* P*
0x1d827c…1d8410 Dummy {f00=0x0094, f01=0x0190, f02=»* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR PFND030 EQU * H P SUK A3,4 ( P RF(NP) FND040 FILE CODE NOT IN TTAB n P LDR A4,A1 P ADKL A4,TTB:TD =1 P ADR A4,A3 P CWR* A2,A4 =1 P RB(NE) FND030 P
0x1d8410…1d85a4 Dummy {f00=0x0094, f01=0x0190, f02=» EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED P LD* A4,SCTCDT L PFND050 EQU * b P SUK A4,4 v ( P RF(NP) FND060 CODE NOT FOUND AT ALL P LD A3,SCTCDT P ADR A3,A4 P CWR* A2,A3 =1 P RB(NE) FND050
0x1d85a4…1d8738 Dummy {f00=0x0094, f01=0x0190, f02=» EJECT P* P************** P* DMTREM * . P************** D P* Z D P* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA d P* 0 P* INPUT RELATIVE REC OFFSET IN FDBRRO,A6 $ P* BUFFER ADDRESS IN
0x1d8738…1d88cc Dummy {f00=0x0094, f01=0x0190, f02=»HE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE B P* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE T > P* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE
0x1d88cc…1d8a60 Dummy {f00=0x0094, f01=0x0190, f02=» LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 4 P ANK A4,/01 F ( P RF(Z) DMT210 BOTH ODD OR BOTH EVEN Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P RF DMT225 P* PDMT210 LDR A4,A1 P ANK A4,/01 P RF(E) DMT220 BO
0x1d8a60…1d8bf4 (2, 364) Dummy {f00=0x0095, f01=0x0190, f02=»RD MOVE z PDMT225 EQU * P XIF $ P* 0 P IFT MMUPAG=1 : & P LD A4,DWTTDM,A6 GET TTAB ADDRESS P $ P LC A3,TTB:ID,A4 ID CALLING TASK z P CCK A3,'##' P RF(NE) DMTREN NOT DMTASK P LDK A3,QRR P CC A3,DWTOR+1,A6 " P R
0x1d8bf4…1d8d88 Dummy {f00=0x0095, f01=0x0190, f02=»SER TTAB ~ PDMTREN EQU * P INH $ $ P TL TTB:MT,A4 LOAD MMU REGISTERS 0 PDMTREP EQU * X $ P LD A4,PRUN GET DM TTAB ADDRESS l 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE P ENB P LDR A3,A2 GET LENGTH 0 P LD A2,ECBBA,A9 GET RE
0x1d8d88…1d8f1c Dummy {f00=0x0095, f01=0x018e, f02=»PAG=1 PDMTREQ INH P TL MONMMU SYSTEM MMU P RB DMTREP > P XIF P P EJECT P* j P* SET UP A14 STACK t P* PGETA14 EQU * $ P LD A14,PRUN GET DM TTAB ADDRESS * P AD A14,TTB:TD,A14 LENGTH DEVICE DESCR P ADK
0x1d8f1c…1d90b0 Dummy {f00=0x0095, f01=0x0190, f02=» P************** ! P* ! P* ! ( PDMTASK EQU * ! 2 P* ! F P* SET UP A14 STACK ! P P* ! l P CF A15,GETA14 ! v P LDR A6,A1 FDB ADDR ! P LDKL A5,-1 ! * P CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 ! 2 P RF(E) DMT090 FOR ORDERS XR,DX
0x1d90b0…1d9244 Dummy {f00=0x0095, f01=0x0190, f02=»1 ! P ANK A2,/3F " P CWK A2,QCL " P RF(E) DMT024 CLOSE " 2 P CWK A2,QRV " N P RF(E) DMT024 READ VTOC " b P SUK A2,QRRRB " & P RF(E) DMT024 RAND READ REL BUFFER " P ORKL A4,/100 " PDMT024 EQU * " P ST A4,FDBDBR,A1 " PDMT0
0x1d9244…1d93d8 Dummy {f00=0x0095, f01=0x0190, f02=»80 BUFFER WAS BEFORE " P* # ( P* READ SECTOR INTO BUFFER AND EXIT # & P* # R P SUK A5,QCL # P RF(Z) DMT030 CLOSE # p P LDK A7,/11 PHYSICAL READ # P LKM # P DATA -1 I/O AND ACTIVATION # " P DATA DMTAR1 DMTASK RESTART #1 # P LKM
0x1d93d8…1d956c Dummy {f00=0x0095, f01=0x0190, f02=»T050 CHECK RETURN CODES # P EJECT $ P************** $ . P* DMTAR1 * $ D P************** $ Z P* RESTART POINT AFTER READ $ p P* $ PDMTAR1 EQU * $ P* $ P* SET UP A14 STACK $ P* $ P CF A15,GETA14 $ PDMT050 EQU * $
0x1d956c…1d9700 Dummy {f00=0x0095, f01=0x0190, f02=» $ 0 PDMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER % P LDR A5,A3 % < P ADK A5,8 SKIP BUFFER HEADER % N * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB % r PDMT090 EQU * % P* % 4 P* HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR % P* % P ADK A5,
0x1d9700…1d9894 (2, 365) Dummy {f00=0x009d, f01=0x0190, f02=» TABLE % r P EJECT & $ PDMRRRB EQU * RAND READ REL BUFF & P* & D PDMSQRE EQU * SEQUENTIAL READ & N P* & r PDMRDRE EQU * RANDOM READ & | P* & 4 P* CHECK STATUS IF NOT USED THEN ERROR RETURN & P* & P LD A2,FDBRRO,A6 & P AD A2,F
0x1d9894…1d9a28 Dummy {f00=0x009d, f01=0x018e, f02=»A & | P ABL DMTERR ' & PDMT200 LDK A1,/8 INCORRECT LENGTH ' & P CF A14,DMTFRL A2 := RECORD LENGTH ' H P* ' r P* MOVE THE RECORD ' | P* ' P CF A14,DMTREM ' P* ' 0 P* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT ' P* ' PDMT230 E
0x1d9a28…1d9bbc Dummy {f00=0x009d, f01=0x0190, f02=» ' t P* ( P LD A2,FDBSNR,A6 ( ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER ( * P* ( V P* VOLUME LABEL IN BUFFER ( ` H P* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR ( 8 P* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER (
0x1d9bbc…1d9d50 Dummy {f00=0x009d, f01=0x0190, f02=»OBLK VTOC BLOCKING FACTIOR ( ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER ) " P LDK A1,0 ) N , P CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER ) ` P LDR A3,A2 QUOTIENT ) P LDR A6,A10 FDB ADDR ) P LDR A2,A1 REST ) P RF(Z) DMT240 REST = 0 ) $ P ADK A3,1
0x1d9d50…1d9ee4 Dummy {f00=0x009d, f01=0x0190, f02=» P ST A3,FDBSNR,A6 * P LDK A3,0 * PDMT255 SUK A2,1 * . P RF(Z) DMT260 * F P AD A3,VLVRL-2,A5 * P ADK A3,1 SKIP STATUS BYTE * v P RB DMT255 * PDMT260 ST A3,FDBRRO,A6 * P* * P* RELEASE BUFFER * P* * P LD A3,ECBBA,A9 *
0x1d9ee4…1da078 Dummy {f00=0x009d, f01=0x0190, f02=» ADDR * P RB DMT020 READ VTOC SECTOR + P EJECT + 2 PDMT270 EQU * + @ P SUK A7,QRV + T $ P ABL(Z) DMT500 READ VTOC RECORD + h P* CLOSE FILE + & P* UPDATE VTOC LAST RECORD NUMBER + & P* AND WRITE SECTOR BACK ON DISC + P AD A5,FDBRRO,
0x1da078…1da20c Dummy {f00=0x009d, f01=0x0190, f02=»E FILE. WRITE VTOC + P* , P LDK A7,/95 , $ P LKM , 8 P DATA 1 , D P* , T P LDR A1,A6 FDBADDRESS IN A1 , ^ & P CF A14,DMTIOT CHECK RETURN CODES , P LDR A1,A1 , P RF(NZ) DMT724 ERROR , PDMT720 EQU * , P LD A1,DWTTDM,A6 TTAB ADDR
0x1da20c…1da3a0 Dummy {f00=0x009d, f01=0x0190, f02=» A2,1 0 OR 1 , P ECR A2,A2 =1 END - P LC A2,ECBFC,A9 FILE CODE - . " P LDK A5,0 TRY LOCAL AND GLOBAL - P . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB - v & P LDR A13,A5 LOCAL/GLOBAL INDICATOR - P LDR A2,A2 - P RF(NZ) DMT725 FC FOUND - P LDK
0x1da3a0…1da534 (2, 366) Dummy {f00=0x009d, f01=0x0190, f02=»R - p P LDR A12,A1 SAVE TTEAB ADDR . 4 P SUR A10,A10 MARK THAT FDB NOT SHALL BE RELEASED . . P EJECT . f 0 P* CHECK IF THIS FDB ADDR IS USED ELEWHERE . t P* . P* SEARCH ALL TTABS . P* . P LD* A2,SCTTCT . PDMT730 EQU * . P SUK A
0x1da534…1da6c8 Dummy {f00=0x009d, f01=0x018e, f02=»K ID . | P CCK A3,'##' / & P RB(E) DMT730 JUMP IF MONITOR TASK / P LD A3,TTB:TD,A1 / J ( P ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 / b PDMT770 EQU * / P SUK A3,4 / $ P RB(NP) DMT730 NOT IN THIS TTAB / P LDR A4,A1 / P ADR A4,A3 / P CWR* A5
0x1da6c8…1da85c Dummy {f00=0x009d, f01=0x0190, f02=» / v & P RF DMT895 MORE USERS ON THIS FDB 0 P* 0 2 P* NOW SEARCH SCTCDT 0 < P* 0 Z PDMT780 EQU * 0 d P LD* A4,SCTCDT 0 x PDMT790 EQU * 0 P SUK A4,4 0 . P RF(NP) DMT800 THIS FDB HAS NO OTHER USER 0 P LD A2,SCTCDT 0 P ADR A2,A4 0
0x1da85c…1da9f0 Dummy {f00=0x009d, f01=0x018e, f02=» & P RF DMT895 THIS FDB HAS MORE USERS 1 P EJECT 1 . P* 1 < P* NOW RELEASE THIS FDB 1 F P* 1 f PDMT800 EQU * 1 p P* 1 P* RELEASE EA-BUFFERS 1 P* 1 . P LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED 1 P LDR A1,A6 FDB ADDR 1 P CF
0x1da9f0…1dab84 Dummy {f00=0x009d, f01=0x0190, f02=» 1 P CMR A5 CLEAR FDB 2 P RF DMT830 2 " PDMT820 EQU * 2 4 P LDR A4,A5 BUFFER ADDRESS 2 H PDMT830 EQU * 2 j & P RF(Z) DMT840 ALL BUFFER S REMOVED 2 ~ $ P LDR* A5,A4 NEXT BUFFER ADDRESS 2 P* 2 P* RETIURN BUFFER TO POOL 2 P* 2 P I
0x1dab84…1dad18 Dummy {f00=0x009d, f01=0x0190, f02=» 2 P* 3 < P* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON 3 > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME 3 R P* 3 P LDK A1,4 EXTENT COUNTER 3 P LDR A5,A6 FDB ADDR 3 . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE 3
0x1dad18…1daeac Dummy {f00=0x009d, f01=0x0190, f02=»1 LOOP 3 & P ABL(NN) DMT900 CHECK THIS EXTENT 4 P XIF 4 8 P IFT INDXAC=1 4 D P EJECT 4 Z P* 4 h P* ALL EXTENTS CHECKED 4 r P* RELEASE MASRTER INDEX 4 P* 4 P INH 4 & P LD A1,FDBMIA,A6 MASTER INDEX ADDR 4 P RF(Z) DMT894 NO MAT
0x1daeac…1db040 Dummy {f00=0x009d, f01=0x018e, f02=» DMT894 NO MATER IX 4 P CW A1,MXIND+2,A5 5 P RB(NE) DMT885 5 6 P LD A4,MXIND,A5 5 L & P RF(N) DMT890 PREVIOUS ENTRY USED 5 d " P LD A4,MXIND+4,A5 NO OF WORDS 5 P ANKL A4,/7FFF REMOV USE BIT 5 P ADS A4,MXIND,A5 NR OF WORDS 5 P* 5 P*
0x1db040…1db1d4 (2, 367) Dummy {f00=0x009e, 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
0x1db1d4…1db368 Dummy {f00=0x009e, 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
0x1db368…1db4fc Dummy {f00=0x009e, 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
0x1db4fc…1db690 Dummy {f00=0x009e, 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
0x1db690…1db824 Dummy {f00=0x009e, 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
0x1db824…1db9b8 Dummy {f00=0x009e, 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
0x1db9b8…1dbb4c Dummy {f00=0x009e, 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
0x1dbb4c…1dbce0 Dummy {f00=0x009e, 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* =
0x1dbce0…1dbe74 (2, 368) Dummy {f00=0x009e, 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 >
0x1dbe74…1dc008 Dummy {f00=0x009e, 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
0x1dc008…1dc19c Dummy {f00=0x009e, 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
0x1dc19c…1dc330 Dummy {f00=0x009e, 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
0x1dc330…1dc4c4 Dummy {f00=0x009e, 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
0x1dc4c4…1dc658 Dummy {f00=0x009e, 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 "
0x1dc658…1dc7ec Dummy {f00=0x009e, 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
0x1dc7ec…1dc980 Dummy {f00=0x009e, 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
0x1dc980…1dcb14 (2, 369) Dummy {f00=0x009e, 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
0x1dcb14…1dcca8 Dummy {f00=0x009e, 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
0x1dcca8…1dce3c Dummy {f00=0x009e, 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
0x1dce3c…1dcfd0 Dummy {f00=0x009e, 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
0x1dcfd0…1dd164 Dummy {f00=0x009e, 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
0x1dd164…1dd2f8 Dummy {f00=0x009e, 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
0x1dd2f8…1dd48c Dummy {f00=0x009e, 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
0x1dd48c…1dd620 Dummy {f00=0x009e, 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,
0x1dd620…1dd7b4 (2, 370) Dummy {f00=0x009e, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x1dd7b4…1dd948 Dummy {f00=0x009e, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x1dd948…1ddadc Dummy {f00=0x009e, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x1ddadc…1ddc70 Dummy {f00=0x009e, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x1ddc70…1dde04 Dummy {f00=0x009e, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x1dde04…1ddf98 Dummy {f00=0x009e, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x1ddf98…1de12c Dummy {f00=0x009e, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x1de12c…1de2c0 Dummy {f00=0x009e, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x1de2c0…1de454 (2, 371) Dummy {f00=0x009f, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x1de454…1de5e8 Dummy {f00=0x009f, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x1de5e8…1de77c Dummy {f00=0x009f, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x1de77c…1de910 Dummy {f00=0x009f, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x1de910…1deaa4 Dummy {f00=0x009f, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x1deaa4…1dec38 Dummy {f00=0x009f, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x1dec38…1dedcc Dummy {f00=0x009f, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x1dedcc…1def60 Dummy {f00=0x009f, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x1def60…1df0f4 (2, 372) Dummy {f00=0x009f, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x1df0f4…1df288 Dummy {f00=0x009f, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x1df288…1df41c Dummy {f00=0x009f, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x1df41c…1df5b0 Dummy {f00=0x009f, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x1df5b0…1df744 Dummy {f00=0x009f, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x1df744…1df8d8 Dummy {f00=0x009f, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x1df8d8…1dfa6c Dummy {f00=0x009f, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x1dfa6c…1dfc00 Dummy {f00=0x009f, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x1dfc00…1dfd94 (2, 373) Dummy {f00=0x009f, f01=0x0190, f02=»DMI100 RECORD FOUND e P LDR A6,A1 FDB ADDR f & PDMI030 LDKL A1,/4000 KEY NOT FOUND f 8 PDMI035 EQU * f b P LDR A3,A3 BUFFER ADDR f v P ABL(Z) DMTERX NO BUFFER f P ABL DMTERR ERROR AND BUFFER f P EJECT f P* f & PDMINS2 EQU * INDEXED INS
0x1dfd94…1dff28 Dummy {f00=0x009f, f01=0x0190, f02=»FSTA f " P CF A14,DMTRBU RELEASE BUFFER g PDMXDEL EQU * INDEXED DELETE g 2 6 P************************************************* g V P LDR A11,A7 ORDER CODE g P LDR A12,A8 PHYS ECB ADDR g P LDK A5,0 g . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUN
0x1dff28…1e00bc Dummy {f00=0x009f, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x1e00bc…1e0250 Dummy {f00=0x009f, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x1e0250…1e03e4 Dummy {f00=0x009f, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x1e03e4…1e0578 Dummy {f00=0x009f, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x1e0578…1e070c Dummy {f00=0x009f, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x1e070c…1e08a0 Dummy {f00=0x009f, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x1e08a0…1e0a34 (2, 374) Dummy {f00=0x009f, f01=0x0190, f02=»*************** m r " P LD A9,DWTECB,A1 USER ECB ADDR n $ P LD A8,ECBBA,A9 BUFFER ADDR USER n > P LDR A12,A8 n f $ P LD A11,FDBRLE,A1 RECORD LENGTH n z P SUKL A11,6 KEY LENGTH n P LDR A13,A14 n 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS n $ P
0x1e0a34…1e0bc8 Dummy {f00=0x009f, f01=0x0190, f02=»OR FOUND n z P LDR A13,A3 BUFFER ADDR o " P LD A4,FDBADF,A6 FDB DATA FILE o 0 P LD A5,DWTECB,A4 USER ECB o V P LD A1,DWTOR,A6 o x P ANK A1,/3F o P SUK A1,QDELX o & P ABL(E) DEL000 DELETE INDEX RECORD o P* o ( P* SET RC BIT 6 TO USER I
0x1e0bc8…1e0d5c Dummy {f00=0x009f, f01=0x018e, f02=»EY NOT ALLOWED IN FILE) o P* p P LC A4,ECBFC,A5 FILE CODE p * P CC A4,FDBECB+1,A6 p L * P RF(NE) INS049 NOT REQUESTED FILE CODE p f P LDKL A4,/200 BIT 6 p " P ORS A4,ECBRC,A5 NEXT KEY SAME p PINS049 EQU * p P IFT INSLAS=1 p P* p
0x1e0d5c…1e0ef0 Dummy {f00=0x009f, f01=0x018e, f02=» P CF A14,RDNXTR GET NEXT REC q P RF INS100 OK q ( P ABL DEL045 ERROR q > PINS100 EQU * q X P ADR A2,A3 q l P ADK A2,10 REC ADDR q ~ P AD A2,FDBRLE,A1 ADDR STATUS q P LDK A5,/FF q P CCR A5,A2 q P RF(E) INS150 USED q P LD A5,FDB
0x1e0ef0…1e1084 Dummy {f00=0x009f, f01=0x0190, f02=» P CWR A5,A11 KEY LENGTH r $ P RB(E) INS080 NEXT SAME GET NEXT r " P* r J P* UPDATE LAST SAME RECORD r T P* r x P SC A11,-4,A2 NEXT SAME r P LD A7,FDBRRO,A1 r P CW A7,FDBMRO,A1 r & P RF(NE) INS160 SECT WRITTEN LATER r P* r P*
0x1e1084…1e1218 Dummy {f00=0x009f, f01=0x018e, f02=» P ABL(NZ) DMTERR s P* s P* GET NEXT RECORD s & P* s B PINS160 EQU * s L " P LDR A7,A5 NR OF SAME IN NEXT s ` P LDR A1,A6 FDB s P CF A14,RDNXTR GET NEXT RC s P RF INS170 OK s P ABL DEL045 ERROR s PINS170 EQU * s P LDR A
0x1e1218…1e13ac Dummy {f00=0x009f, f01=0x0190, f02=» s P* t ( P* CREATE AN INDE XRECORD IN AREA 1 t P* t > P LDR A1,A12 FROM ADDR t H P* t f P LDR A3,A14 t p P ADK A3,2 TO ADDR t P LDR A2,A11 KEY LENGTH t P CF A14,DMTBM MOVE KEY t P LDK A2,0 t P SCR A2,A3 DUMMY t P ADK
0x1e13ac…1e1540 Dummy {f00=0x009f, f01=0x0190, f02=»R t t P LD A2,ECBCW+2,A5 u ( P LD A3,ECBCW,A5 REC NR DATA FILE REC u $ P SCR A2,A7 u P P ADK A7,2 u b P SCR A3,A7 u t P ECR A3,A3 u P SUK A7,1 u P SCR A3,A7 LOG REC NR u P ADK A7,2 u P LDK A1,/FF USED u P SCR A1,A7 STATUS CHAR
0x1e1540…1e16d4 (2, 375) Dummy {f00=0x00a0, f01=0x0190, f02=» u P ST A2,-28,A14 v P ST A3,-26,A14 v P EJECT v 4 P* v B : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING v L $ P* USED RECORDS ROLLED FORWARD v $ P* A6,A11,A13 IS USED AT ENTRY v $ P ADKL A11,7 RECORD LENGTH TOTAL v P* v
0x1e16d4…1e1868 Dummy {f00=0x00a0, f01=0x0190, f02=»A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 v $ P* A13 = BUFFER ADDRESS SECTOR w , P* w T PINS190 EQU * w ^ P LDKL A12,1 BUFADR2 w r PINS200 EQU * w P LDK A1,0 w P LDR A12,A12 w P RF(Z) INS210 BUFAR1 w ( P LDKL A1,RECBFZ RECORD BUUFFER SIZE
0x1e1868…1e19fc Dummy {f00=0x00a0, f01=0x0190, f02=» LAST RECORD w P* x P LDR A1,A13 x P ADK A1,10 BUFSTA+2 x 2 . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT x N P LDR A2,A11 x P LDR A3,A10 x " P CF A14,DMTBM SAVE LAST RECORD x P* MOVE REST OF SECTOR x P* x P LDR A1,A13 x
0x1e19fc…1e1b90 Dummy {f00=0x00a0, f01=0x0190, f02=» x t P LDR A3,A1 y P ADR A3,A11 TO ADDR y P CF A14,DMTBMR MOVE y 6 P* INSERT NEW RECORD y R P* y p P LDKL A1,RECBFZ BUFFER SIZE y z P SLL A1,1 BYTE NO y P LDR A12,A12 y P RF(Z) INS250 BUFAR1 y " P LDK A1,0 SELECT OTHER BUFFER y
0x1e1b90…1e1d24 Dummy {f00=0x00a0, f01=0x0190, f02=» P CF A14,DMTBM MOVE z P* WRITE BUFFER z P* z 6 P LDR A8,A14 USE STACK AS ECB z @ P SUKL A8,24 z d $ P LC A2,FDBEXT+1,A6 VOL DEV CODE z x P ANK A2,/FF z P STR A2,A8 z P LDR A2,A13 z P ADK A2,8 BUFSTA z P ST A2,ECBBA,A8 SECT
0x1e1d24…1e1eb8 Dummy {f00=0x00a0, f01=0x0190, f02=» z v P LDK A7,/95 WRITE , WAIT { P LKM { ( P DATA 1 { 4 P LDR A1,A6 FDB INDEX { D P CF A14,DMTIOZ IO CHECK { ` P LDR A1,A1 { P ABL(NZ) DMTERR { P* { 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY { P* { P LDR A2,A10 RECO
0x1e1eb8…1e204c Dummy {f00=0x00a0, f01=0x0190, f02=»T IN SECT { v P CCR A1,A2 | P RF(Z) INS400 FREE RECORD | $ P* | F P* GET NEXT SECTOR | P P* | l P LDR A1,A6 FDB ADDR | v P LDR A3,A13 BUFFER ADDR | 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR | P RF INS260 OK | P LDR A1,A5
0x1e204c…1e21e0 Dummy {f00=0x00a0, f01=0x0190, f02=»D BUFFERS | v P SUR A12,A12 } P RB INS200 } & P EJECT } 8 PINS400 EQU * } F P* } Z ( P* UPDATE LRN IF EOF IS ENCOUNTERED } d P* } P LDR A1,A6 FDB INDEX } P CF A14,GTLGRN } P CC A2,FDBLRN,A1 } P RF(L) INS430 NO EOF } P RF(G)
0x1e21e0…1e2374 (2, 376) Dummy {f00=0x00a0, f01=0x0190, f02=»T A3,FDBLRN+1,A6 } P LDKL A1,/1000 EOF ~ P ORS A1,ECBRC,A9 EOF TO USER ~ 4 PINS430 EQU * ~ X P* ~ l 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS ~ v P* ~ P LDKL A12,1 ADD ON E TO CRN ~ P LDR A8,A2 ~ P LDR A9,A3 LAST REC NR MOVED ~
0x1e2374…1e2508 Dummy {f00=0x00a0, f01=0x0190, f02=»TE CRN IF SAME FILE CODE ~ P* P LD A1,FDBADF,A5 FDB DATA F * " P CF A14,CRNGET GET CRN BUFFER N & P LD A9,DWTECB,A1 USER ECB ADDR =4 t " P LC A4,ECBFC,A9 USER FILE CODE P CC A4,FDBECB+1,A5 P RF(NE) INS440 OTHRER FILE P ST A10,
0x1e2508…1e269c Dummy {f00=0x00a0, f01=0x0190, f02=»DK A1,0 OK RET CODE P LDR A3,A13 BUFFER ADDR P ABL DMTEX2 < P EJECT P * PDEL000 EQU * DELETE INDEX RECORD CONT ^ P LDR A12,A5 USER ECB ADDR P LDR A2,A2 PDEL010 EQU * " P ABL(NZ) DMI030 KEY NOT FOUND P* P*
0x1e269c…1e2830 Dummy {f00=0x00a0, f01=0x0190, f02=»7 BUFSTA+2-3=ADDR REC NR P LCR A2,A1 P CC A2,ECBCW+3,A12 REC NR 2 P RF(NE) DEL030 WRONG RECORD T P LC A2,1,A1 x P ECR A2,A2 P LC A2,2,A1 REC NR P CW A2,ECBCW,A12 P RF(E) DEL200 RECORD FOUND PDEL030 EQU * P*
0x1e2830…1e29c4 Dummy {f00=0x00a0, f01=0x018e, f02=»DB INDEX PDEL040 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD $ P RF DEL050 OK P PDEL045 LDR A1,A5 ERROR CODE f P ABL DMI035 ERROR PDEL050 EQU * P* P* CHECK IF RECORD IS USED P* P LDR A13,A3 NEW BUFFER A
0x1e29c4…1e2b58 Dummy {f00=0x00a0, f01=0x0190, f02=» P RB(E) DEL020 USED P LD A4,FDBMRO,A1 ( P ST A4,FDBRRO,A1 LAST REC IN SECTOR 6 P RB DEL040 NEXT REC b P EJECT ~ PDEL200 EQU * RECORD FOUND P* & P* SET RC BIT 6 IF NEXT KEY SAME P* $ P LC A2,ECBFC,A12 USER FILE C
0x1e2b58…1e2cec Dummy {f00=0x00a0, f01=0x0190, f02=»A6 * P RF(NE) DEL220 NOT REQUESTED FILE CODE P CWR A11,A7 KEY LENGTH : $ P RF(NE) DEL220 NEXT KEY NOT SAME X P LDKL A4,/200 $ P ORS A4,ECBRC,A12 NEXT KEY SAME PDEL220 EQU * P* $ P* MOVE UP RECORDS OVER DELETED P*
0x1e2cec…1e2e80 Dummy {f00=0x00a0, f01=0x0190, f02=» P ADR A1,A11 FROM ADDR P LD A2,FDBMRO,A6 & P SU A2,FDBRRO,A6 NR OF CHAR > P CF A14,DMTBM MOVE b P* | P* SET LAST RECORD FREE P* P ADR A3,A11 P SUK A3,1 P LDK A1,0 P SCR A1,A3 STATUS FREE P*
0x1e2e80…1e3014 (2, 377) Dummy {f00=0x00a0, f01=0x018e, f02=» " P LDR A11,A3 FIRST REC NR MOVED P LD A12,FDBRRO,A6 OLD OFFSET * P LD A4,FDBMRO,A6 N P ST A4,FDBRRO,A6 MAX OFFSET f $ P CF A14,GTLGRN LAST REC NR MOVED P LDR A8,A2 P LDR A9,A3 REC NR " P ST A12,FDBRRO,A6 RESET OFFSET P LDK
0x1e3014…1e31a8 Dummy {f00=0x00a0, f01=0x0190, f02=» ~ $ P RF(NZ) DEL290 NOT FIRST RECORD P LDR A1,A5 FDB 0 P CF A14,GTLGRN GET REC NR F P LDR A1,A2 h P LDR A2,A3 z P LDK A6,0 P LDK A7,1 $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 P RF(Z) DEL600 FILE START P LDR A6,A5 FDB A
0x1e31a8…1e333c Dummy {f00=0x00a0, f01=0x0190, f02=»A14 P ADKL A8,2 ECB ADDR P LDR A12,A12 ( $ P RF(Z) DEL245 BUFFER NOT CHANGED < P* d P* WRITE SECTOR n P* P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB P CF A14,DMTIOZ IO CHECK P LDR A1,
0x1e333c…1e34d0 Dummy {f00=0x00a0, f01=0x018e, f02=»EASE BUFFER ~ P* P* GET PREVIOUS SECTOR P* > P LDR A1,A5 FDB ADDR H P LDK A3,0 d P CF A14,RDNXTR GET SECTOR v P RF DEL250 OK P LDR A6,A1 FDB ADDR P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P L
0x1e34d0…1e3664 Dummy {f00=0x00a0, f01=0x018e, f02=» PDEL300 EQU * * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET P ADK A4,10 BUFSTA+2 F P ADR A4,A13 RECORD ADDR b & P AD A4,FDBRLE,A5 STATUS CHAR ADDR P LDK A2,/FF P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME I
0x1e3664…1e37f8 Dummy {f00=0x00a0, f01=0x0190, f02=» v PDEL600 EQU * P LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x1e37f8…1e398c Dummy {f00=0x00a0, f01=0x401c, f02=» XIF P END @ LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x1e398c…1e3b20 Dummy {f00=0x00a0, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x1e3b20…1e3cb4 (2, 378) Dummy {f00=0x00a0, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r , ( : U ; $ T $ T $ T x : : , ( $ T $ ) ] $ ) Y _$ , ( U x 0 )_8 $_ $
0x1e3cb4…1e3e48 Dummy {f00=0x00a0, f01=0x0002, f02=»
0x1e3e48…1e3fdc Dummy {f00=0x00a0, f01=0x0190, f02=» 2 P IDENT DVKB02 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB02 TABLE ENTRY r P EXTRN CTAB03 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY02 PMMUPAG EQU 1 P*
0x1e3fdc…1e4170 Dummy {f00=0x00a0, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x1e4170…1e4304 Dummy {f00=0x00a0, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY02 DVDY02O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLAC
0x1e4304…1e4498 Dummy {f00=0x00a0, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x1e4498…1e462c Dummy {f00=0x00a0, 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
0x1e462c…1e47c0 Dummy {f00=0x00a0, f01=0x0190, f02=» $ t P % P* % P* % P* % & P* TIMER HANDLING PART % 0 P* % N P* % X P* % b P* READ TIMER=TIMERR % l P* % PTIMERE EQU * % P LDR A1,A6 % . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE % P RF(Z) TIME10 NO TIMING %
0x1e47c0…1e4954 (2, 379) Opaque[0x194]
0x1e4954…1e4ae8 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1188, f03=0x0000}
0x1e4954…1e4ae8 IdxSect {
0x1e4954…1e4ae8 f00 = 0x008c // 0x1e4954 @0x0
0x1e4954…1e4ae8 f01 = 0x0004 // 0x1e4956 @0x2
0x1e4954…1e4ae8 gno = [ // 0x1e4958 @0x4
0x1e4954…1e4ae8 [0x00]: C0x008c.0x1.0
0x1e4954…1e4ae8 [0x01]: C0x008f.0x0.0
0x1e4954…1e4ae8 ]
0x1e4954…1e4ae8 }
0x1e4ae8…1e4c7c Dummy {f00=0x008c, f01=0x0190, f02=» 2 P IDENT DMINIT REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P*
0x1e4c7c…1e4e10 Dummy {f00=0x008c, f01=0x018e, f02=»FDB:S IN THE FDB AREA z > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK ` , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS CALLED AS A PFINIT ROUTINE P* " P
0x1e4e10…1e4fa4 Dummy {f00=0x008c, f01=0x0190, f02=» P EXTRN FDBSTA P EXTRN FDBEND P EXTRN CURBUF 0 P EXTRN BUFDMI F P EXTRN BUFSNR P EXTRN BUFOR r P EXTRN TASBLK P EXTRN TASQUE P EXTRN CRNQUE,CRNEND P EXTRN CRBUFL P EJECT P* P* P*
0x1e4fa4…1e5138 Dummy {f00=0x008c, f01=0x0190, f02=» P* DIV W. 2 FOR 16 K LIMIT P* ( P LDR A5,A4 2 P SRL A5,1 D P LDR A1,A6 V P SRL A1,1 h P CWR A5,A1 z " P RF(G) DMIN40 END OF FDB AREA P STR A4,A3 CHAIN P LDR A3,A4 P RB DMIN30 PDMIN40 EQU * P SUR A
0x1e5138…1e52cc Dummy {f00=0x008c, f01=0x0190, f02=»ALIZATIONS IF POWER FAIL RESTART P* ( P LD A1,INIFLG 2 P RF(Z) DMINEX H P LDKL A2,QFDBFL FDB LENGTH ^ P* $ P* CHAIN FDB:S IN THE FDB AREA P* P LDKL A3,FDBSTA P LDKL A6,FDBEND P CF A15,DMIN30 P*
0x1e52cc…1e5460 Dummy {f00=0x008c, f01=0x0190, f02=» P CF A15,DMIN30 P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS $ P* d P LDKL A2,/FFFE n P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 P CM BU
0x1e5460…1e55f4 (2, 380) Dummy {f00=0x008f, f01=0x405a, f02=»LK P CM TASQUE P* PDMINEX EQU * & P RTN A15 : P END J@ V
0x1e55f4…1e5788 Dummy {f00=0x008f, f01=0x2008, f02=» PDMINEX EQU * P RTN A15 " P END 2@ >TASBLK P CM TASBLK P P CM TASQUE b P* t , P* CLEAR DM FILE CODE ENTRIES IN CDTAB ~ P* P LD A2,CDTAB PDMIN60 SUK A2,4 P LDR A3,A2 P ADKL A3,CDTAB
0x1e5788…1e591c Dummy {f00=0x008f, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x1e591c…1e5ab0 Dummy {f00=0x008f, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x1e5ab0…1e5c44 Dummy {f00=0x008f, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x1e5c44…1e5dd8 Dummy {f00=0x008f, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x1e5dd8…1e5f6c Dummy {f00=0x008f, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x1e5f6c…1e6100 Dummy {f00=0x008f, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x1e6100…1e6294 (2, 381) Opaque[0x194]
0x1e6294…1e6428 # DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1198, f03=0x0000}
0x1e6294…1e6428 IdxSect {
0x1e6294…1e6428 f00 = 0x008c // 0x1e6294 @0x0
0x1e6294…1e6428 f01 = 0x0010 // 0x1e6296 @0x2
0x1e6294…1e6428 gno = [ // 0x1e6298 @0x4
0x1e6294…1e6428 [0x00]: C0x008c.0x3.0
0x1e6294…1e6428 [0x01]: C0x008d.0x0.0
0x1e6294…1e6428 [0x02]: C0x008d.0x2.0
0x1e6294…1e6428 [0x03]: C0x008d.0x3.0
0x1e6294…1e6428 [0x04]: C0x008e.0x0.0
0x1e6294…1e6428 [0x05]: C0x008e.0x1.0
0x1e6294…1e6428 [0x06]: C0x008e.0x2.0
0x1e6294…1e6428 [0x07]: C0x008e.0x3.0
0x1e6294…1e6428 ]
0x1e6294…1e6428 }
0x1e6428…1e65bc Dummy {f00=0x008c, f01=0x0190, f02=» 2 P IDENT DMTASS REL 9.2 79-11-16 870105040920 P : P* =3 PR 5141 B P* = 79-04-06 X P* =2 WAIT AT VTOC READ n P* REL 9.1 79-04-06 P* =1, PR 3413 P* REL 9.1 78-10-25 P P P* P* 8 P******
0x1e65bc…1e6750 Dummy {f00=0x008c, f01=0x0190, f02=»LE CODE DISC I/O HANDLING z P* " P* , P* 6 P* @ P* J P* T 8 P**************************************************** ^ P* * P* THIS MODULE IS ACTIVATED FROM TASS P* B P* INPUT A2 = TID TASK IDENT OF DMTASK AT
0x1e6750…1e68e4 Dummy {f00=0x008c, f01=0x0190, f02=» ASSIGNED CAN X L P* RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND D P* ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS f > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND . P* FILE-EXTENT-BASE ARE
0x1e68e4…1e6a78 Dummy {f00=0x008c, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x1e6a78…1e6c0c Dummy {f00=0x008c, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x1e6c0c…1e6da0 Dummy {f00=0x008c, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x1e6da0…1e6f34 (2, 382) Dummy {f00=0x008d, f01=0x0190, f02=» P EXTRN ECBRL P EXTRN ECBRC P EXTRN ECBCW , P* @ P EXTRN TIODM J P EXTRN DMTGBU ^ P EXTRN DMTRBU t P EXTRN CLRBUF P EXTRN BUFSTA P EXTRN BUFSNR P EXTRN BUFDMI P* P EXTRN QFDBFL P EXTRN
0x1e6f34…1e70c8 Dummy {f00=0x008d, f01=0x0190, f02=»BAS P EXTRN FDBRLE P EXTRN FDBBLF " P EXTRN FDBVTO 8 P EXTRN FDBLRN N P EXTRN FDBNIF,FDBKA d & P EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO . P EXTRN FDBMEC MM
0x1e70c8…1e725c Dummy {f00=0x008d, f01=0x0190, f02=» P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB 0 P EXTRN TASFDB F P EXTRN TASVRL P EXTRN TASVLE r P EXTRN TASVRN P EXTRN TASECB P EXTRN TASFIL,TASTID,TASMXA P EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCA
0x1e725c…1e73f0 Dummy {f00=0x008d, f01=0x018e, f02=» PX:B EQU 0 4 PINDXAC EQU 00000 INDEX ACCESS FUNCTIONS WHEN = 1 P* N . P* A PROGRAM VERSION USING TOSS MMU PAGING X * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P EJECT P* P************
0x1e73f0…1e7584 Dummy {f00=0x008d, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* , PVTFSNO EQU 8 6 PVTFXNO EQU 10 J PVTFXLE EQU 14 ` PVTFXBA EQU 18 v PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38 P*
0x1e7584…1e7718 Dummy {f00=0x008d, f01=0x0190, f02=»RDS P DATA 0,0 STACK PDMTA14 EQU *-2 $ P EJECT : P* H P************** R P* DMTIOC * h P************** ~ P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WITH A
0x1e7718…1e78ac Dummy {f00=0x008d, f01=0x0190, f02=»FF BIT 7 ONLY RETRIES P RF(Z) DMTIOX P ADKL A14,4 4 P ANK A1,/80 H $ P RF(NZ) DMT060 NEW VOLUME LOADED P SUKL A3,BUFSTA , P CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER P LDK A7,1 P ABL DMTASX DISC I/O ERROR PDMTIOX E
0x1e78ac…1e7a40 Dummy {f00=0x008d, f01=0x0190, f02=»QU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT H P CM TASMXA MASTER INDEX ADDR h P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8,TAS
0x1e7a40…1e7bd4 (2, 383) Dummy {f00=0x008d, f01=0x0190, f02=»DR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN ( P SUR A8,A8 NO BUFFER =3 F P ABL DMTASX f PDMT010 EQU * z P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P
0x1e7bd4…1e7d68 Dummy {f00=0x008d, f01=0x0190, f02=» LDKL A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 > 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) P P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA &
0x1e7d68…1e7efc Dummy {f00=0x008d, f01=0x0190, f02=»IT =2 P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER . P CF A14,DMTIOC I/O CHECK ` P LD A2,VLVER,A3 VERSION & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERRO
0x1e7efc…1e8090 Dummy {f00=0x008d, f01=0x018e, f02=»3 VTOC BASE . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH F P ST A9,TASVRL p P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6
0x1e8090…1e8224 Dummy {f00=0x008d, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED 0 P ST A1,TASCVO UPDATE TASCVO Z $ P LDK A7,7 TOO MANY FILE SECTIONS ~ P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFST
0x1e8224…1e83b8 Dummy {f00=0x008d, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* * P ADKL A7,'#D' 4 P LKM J P DATA -4 V P DATA DMTASS f P LKM z P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A
0x1e83b8…1e854c Dummy {f00=0x008d, f01=0x0190, f02=» LD A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS : P ADKL A3,BUFSTA ^ P ST A3,ECBBA,A8 v P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x1e854c…1e86e0 Dummy {f00=0x008d, f01=0x0190, f02=» $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR , PDMT135 EQU * R P ADK A3,2 SKIP CYLID f PDMT120 EQU * ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4
0x1e86e0…1e8874 (2, 384) Dummy {f00=0x008d, f01=0x0190, f02=»AME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 , P CWR* A10,A7 @ P ABL(NE) DMT250 NO MATCH T P SUK A2,1 t . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P
0x1e8874…1e8a08 Dummy {f00=0x008d, f01=0x0190, f02=»F(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO < P LDK A2,0 FILE EXTENT NUMBER V P RF DMT167 z . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAV
0x1e8a08…1e8b9c Dummy {f00=0x008d, f01=0x0190, f02=»1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS " P LDK A7,9 F * P ABL DMTASX MORE THAN 4 EXTENTS EXIST X PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x1e8b9c…1e8d30 Dummy {f00=0x008d, f01=0x0190, f02=» P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 ( P LD A2,TASSEX,A1 B $ P RF(NZ) DMT250 NOT FIRST EXTENT Z P EJECT P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB
0x1e8d30…1e8ec4 Dummy {f00=0x008d, f01=0x0190, f02=»A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 & P ANK A5,/01 : P RF(Z) DMT210 FREE N P LD A2,FDBEXT,A12 h P CW A2,TASVOL,A6 " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME
0x1e8ec4…1e9058 Dummy {f00=0x008d, f01=0x0190, f02=»DB FOUND n PDMT205 EQU * P LDK A7,5 FILE CODE USED $ P ABL DMTASX D P* X $ PDMT210 LDR* A12,A12 GET NEXT FDB b P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB
0x1e9058…1e91ec Dummy {f00=0x008d, f01=0x0190, f02=» v P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 J P ABL DMTASX NO FDB AVAILABLE ( P* INITIALIZE FDB ZERO FROM FDB+2 P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL
0x1e91ec…1e9380 Dummy {f00=0x008d, f01=0x0190, f02=» RB DMT233 PDMT237 EQU * P LDKL A2,/8000 & P* DEV NOT BUSY < P ST A2,DWTST,A12 T P LDKL A2,TIODM l P ST A2,DWTADR,A12 P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01
0x1e9380…1e9514 (2, 385) Dummy {f00=0x008e, f01=0x0190, f02=» P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,VTBLF,A4 6 P SC A2,FDBBLF,A12 N P LC A2,VTNIF,A4 h P SC A2,FDBNIF,A12 P LD A2,VTKA,A4 P ST A2,FDBKA,A12 P LD A2,TASVRN P ST A2,FDBVTO,A12 P* P IFT M
0x1e9514…1e96a8 Dummy {f00=0x008e, f01=0x0190, f02=» ECB IN FDB l P XIF P* P EJECT * P* 8 P* CHECK NEXT VTOC RECORD B P* d PDMT250 EQU * n P* A3 = ADR 1ST REC P* A9 = VTOC REC LGTH P ADR A3,A9 P ADK A3,1 SKIP STATUS BYTE P LDR A2,A3 P SU A2
0x1e96a8…1e983c Dummy {f00=0x008e, f01=0x0190, f02=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* @ PDMT300 EQU * J P LDK A3,16 ^ P SU A3,TASCXO p P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P RF(NZ) DMT3
0x1e983c…1e99d0 Dummy {f00=0x008e, f01=0x0190, f02=»ENDING ORDER f 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO ! P* ! P PDMT320 EQU * ! Z P* ! n @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE ! x P* ! P LD A6,TASFIL ! P RF(Z) DMT330 DATA FILE ASS ! $ P LD A6,F
0x1e99d0…1e9b64 Dummy {f00=0x008e, f01=0x0190, f02=» OK ! P LDK A7,12 " * P RF DMTASX RECORD BUFFER IS TOO SMALL " PDMT330 EQU * " L P LDR A6,A12 " ` P* FDB ADDR " t P ADKL A6,FDBEXT " P LDK A2,0 " P LDR A5,A3 " P SRL A5,2 NUMBER OF EXTENTS " PDMT340 EQU * " P LDK A4,16 "
0x1e9b64…1e9cf8 Dummy {f00=0x008e, f01=0x0190, f02=»E EXTENTS TO CHECK " ~ P* # , P* THE EXTENT SEARCHED FOR IS NOT FOUND # $ 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) # T P* # P LDR A1,A2 # P ANK A1,/FF # $ P RF(NZ) DMT370 TRY NEXT SECTION # P* # PDMT355 EQU * # P LDK A7,
0x1e9cf8…1e9e8c Dummy {f00=0x008e, f01=0x0190, f02=» LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 $ P ST A1,EXTDMI,A6 $ 2 P LD A1,TASXLB,A4 $ J P ST A1,EXTLEN,A6 $ b P LD A1,TASXLB+2,A4 $ z P ST A1,EXTBAS,A6 $ P ADK A6,6 $ P SUK A5,1 $ & P RF(NP) DMT500 ALL EXTENTS HANDLED $ P* $ : P*
0x1e9e8c…1ea020 Dummy {f00=0x008e, f01=0x0190, f02=» A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 % PDMT370 EQU * % 4 P ECR A1,A2 % H P ANK A1,/FF % Z P SUK A1,3 % n P RB(E) DMT355 SECTION-NO = 3 % " P ADK A1,4 INCREMENT SECTION-NO % P ECR A2,A1 EXT-NO = 0 % P RB DMT340 % $ PDMT380 ADK A2,
0x1ea020…1ea1b4 (2, 386) Dummy {f00=0x008e, f01=0x018e, f02=»CH WERE UNLOCKED BEFORE % j P* & P LDR A5,A7 & * P LDR A6,A8 SAVE & < P LDK A1,3 LOOP & T PDMTASY EQU * & j P LC A2,TASLFD,A1 FILE CODES & ~ P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK
0x1ea1b4…1ea348 Dummy {f00=0x008e, f01=0x0190, f02=» & P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 4 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' > P* ' j PDMT400 EQU * ' t P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORREC
0x1ea348…1ea4dc Dummy {f00=0x008e, f01=0x018e, f02=»DDR ' t " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( 2 ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( D P SUK A2,2 ( p PDMT405 EQU * ( P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4
0x1ea4dc…1ea670 Dummy {f00=0x008e, f01=0x0190, f02=» ( ~ PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) 2 P LDKL A2,/FFFE ) T " P ANRS A2,A3 CLEAR FDB USE BIT ) j P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440
0x1ea670…1ea804 Dummy {f00=0x008e, f01=0x0190, f02=»UF RELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ $ P CF A15,QTJOB QUEUE CALLING TASK * N P ENB * v P LKM * P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 *
0x1ea804…1ea998 Dummy {f00=0x008e, f01=0x018e, f02=» EJECT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + > < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + z P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR
0x1ea998…1eab2c Dummy {f00=0x008e, f01=0x0190, f02=» P SC A3,TASECB+1 , " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , B P LD A3,ECBBA,A8 , f P SUKL A3,BUFSTA , ~ " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD
0x1eab2c…1eacc0 Dummy {f00=0x008e, f01=0x018e, f02=»RR A2,A1 GET MOST SIGN BIT , P ADK A2,5 - " P SRL A2,1 NO OF WORDS NEEDED - 4 P RF(Z) DMT570 WRONG SIZE - X P INH - x P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY -
0x1eacc0…1eae54 (2, 387) Dummy {f00=0x008e, f01=0x0190, f02=» - | P RB(N) DMT540 ENTRY USED . P SUR A6,A2 NO OF SPARE WORDS . ( & P RB(N) DMT540 LARGER ENTRY NEEDED . L P* . v P* SUFFICIENT SPACE FOUND . P* . P LDKL A1,/8000 USED BIT . & P ORS A1,MXIND+2,A5 MARK ENTRY USED . $ P ST A3,TASMXA MAST
0x1eae54…1eafe8 Dummy {f00=0x008e, f01=0x0190, f02=»T A1,2,A3 ENTRY LENGTH . P ADK A3,4 SKIP MX HEADRER / P ST A3,ECBBA,A8 BUFFER ADDR / @ P ST A1,ECBRL,A8 REQ LGTH / d . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / P CWR A1,A4 MXIND ENTRY / P RF(NL) DMT590 LAST ENTRY / P LD A3,MXIND+6,A1
0x1eafe8…1eb17c Dummy {f00=0x008e, f01=0x0190, f02=»NKL A2,/7FFF REMOVE USE BIT / P SUR A2,A6 0 $ P ORKL A2,/8000 USE BIT 0 6 P ST A2,MXIND+2,A1 0 T . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 n $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A
0x1eb17c…1eb310 Dummy {f00=0x008e, f01=0x0190, f02=» 0 8 P* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE 1 < P* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON 1 D P* 1 PDMT550 EQU * 1 & P LDK A7,/42 SEQ READ,NOWAIT,NO EA 1 P LKM 1 P DATA -1 1 P DATA DMTAR5 1 P LKM 1 P
0x1eb310…1eb4a4 Dummy {f00=0x008e, f01=0x0190, f02=»NKL A2,/FEFF BIT 7 ONLY RETRIES 1 P RF(Z) DMT560 NO ERROR 2 ( P* 2 F " P* REMOVE THE ONLY CRN BUFFER 2 P P* 2 v P LD A4,TASFDB FDB ADDR 2 P LD A5,FDBCRL,A4 CRN BUF ADR 2 P RF(Z) DMT553 NO CRN 2 P CM FDBCRL,A4 2 P INH 2 P LD A6,C
0x1eb4a4…1eb638 Dummy {f00=0x008e, f01=0x018e, f02=»EADY ,WHOLIE MXINDEX IS READ 2 P LDK A7,7 3 $ PDMT555 SUR A8,A8 NO BUFFER 3 6 P ABL DMTASX DISC IO ERR 3 X PDMT560 EQU * 3 x P* 3 P* RECORD READ,READ NEXRT 3 P* 3 P LD A2,ECBRL,A8 3 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB DMT550
0x1eb638…1eb7cc Dummy {f00=0x008e, f01=0x0190, f02=» 3 P* 4 2 P* MASTER INDE X READUY. RERUN FOR INDEX FILE 4 P* 4 H P LDK A1,1 4 R P ST A1,TASFIL INDEX FILE 4 d " P LD A3,TASSPW TTAB ADR DMTASK 4 P CM TTB:TD+2,A3 DELETE ENTRY 4 P CM TTB:TD+4,A3 4 P LD A3,TASFDB FDB ADDR 4 P LDK
0x1eb7cc…1eb960 Dummy {f00=0x008e, f01=0x0190, f02=» ENTRY POSSIBLE 4 ~ P LDK A1,0 5 2 P* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP 5 * P ABL DMT050 ASSIGN INDEX 5 ` P EJECT 5 PDMT600 EQU * 5 P* 5 P* INDEX FILE ASSIGN 5 P* 5 P LDK A7,10 RET CODE 5 & P LD A10,TASFDD FDB ADDR
0x1eb960…1ebaf4 (2, 388) Dummy {f00=0x008e, f01=0x0190, f02=» LC A3,DWTST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 , P LDK A3,8 MAX NO OF INDE*2 6 V PDMT620 EQU * 6 x P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(
0x1ebaf4…1ebc88 Dummy {f00=0x008e, f01=0x0190, f02=» 6 X P* 7 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 2 P SUK A5,2 7 F " P RF(N) DMT635 ALL FDB UPPDATED 7 X P LDR A1,A10 FDB DATA 7 ~ P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF
0x1ebc88…1ebe1c Dummy {f00=0x008e, f01=0x0190, f02=»25 7 PDMT635 EQU * 8 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 6 P ENB ENB 8 j P LD A1,TASMXA 8 | ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A
0x1ebe1c…1ebfb0 Dummy {f00=0x008e, f01=0x0190, f02=»IGN DATA FILE 8 & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 @ P ANKL A1,/6000 9 b P SLL A1,1 9 x $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P L
0x1ebfb0…1ec144 Dummy {f00=0x008e, f01=0x018e, f02=»750 9 P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : : P SUK A2,1 : T P ST A2,FDBSNR,A12 : f P LDR A1,A12 : " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR
0x1ec144…1ec2d8 Dummy {f00=0x008e, f01=0x4154, f02=» P ST A3,FDBMRN+1,A12 ; P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; * P* ; b P LD A6,FDBRLE,A12 REC LENGTH ; l P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ;
0x1ec2d8…1ec46c Dummy {f00=0x008e, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x1ec46c…1ec600 Dummy {f00=0x008e, 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* =
0x1ec600…1ec794 (2, 389) Opaque[0x194]
0x1ec794…1ec928 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b0, f03=0x0000}
0x1ec794…1ec928 IdxSect {
0x1ec794…1ec928 f00 = 0x0015 // 0x1ec794 @0x0
0x1ec794…1ec928 f01 = 0x0008 // 0x1ec796 @0x2
0x1ec794…1ec928 gno = [ // 0x1ec798 @0x4
0x1ec794…1ec928 [0x00]: C0x0015.0x2.0
0x1ec794…1ec928 [0x01]: C0x0021.0x0.0
0x1ec794…1ec928 [0x02]: C0x0021.0x1.0
0x1ec794…1ec928 [0x03]: C0x0023.0x0.0
0x1ec794…1ec928 ]
0x1ec794…1ec928 }
0x1ec928…1ecabc Dummy {f00=0x0015, f01=0x0190, f02=» 0 P IDENT DMBUF REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P
0x1ecabc…1ecc50 Dummy {f00=0x0015, f01=0x018e, f02=»FOR DMTASK v P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* N L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL X P* P* MAX VALUE OF QNBUF IS 16 P* > P* AT LEAST TWO BUFFERS PER DISC DRIVE
0x1ecc50…1ecde4 Dummy {f00=0x0015, f01=0x018e, f02=» ( P ENTRY CURBUF CURRENT BUFFER POINTER P ENTRY BUFLNK BUFFER LINK 4 P ENTRY BUFDMI DMTASK IDENT V P ENTRY BUFFC FILE CODE x P ENTRY BUFSNR SECTOR NO P ENTRY BUFOR ORDER * P ENTRY BUFSTA DATA AREA START ADDRESS P ENTRY DMT
0x1ecde4…1ecf78 Dummy {f00=0x0015, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00008 : P* R P* PCURBUF DATA BUF1 f PNEWBUF DATA 0 ~ P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x1ecf78…1ed10c Dummy {f00=0x0015, f01=0x0190, f02=» LRU-WORD " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 8 P RES 205 d P* t P* ~ P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x1ed10c…1ed2a0 Dummy {f00=0x0015, f01=0x018e, f02=»NBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 " P DATA 0,0,0 8 P RES 205 L P XIF P* h P* r P IFT QNBUF=3 | PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 D
0x1ed2a0…1ed434 (2, 390) Dummy {f00=0x0021, f01=0x0190, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 , P IFF QNBUF=3 @ P IFF QNBUF=4 T PBUF5 DATA BUF6 h P DATA 0,0,0 ~ P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P*
0x1ed434…1ed5c8 Dummy {f00=0x0021, f01=0x018e, f02=»0 P RES 205 P XIF P* & P* 0 P IFT QNBUF=6 : PBUF7 EQU BUF1 N P XIF d P* p P* z P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 PBUF7 DATA BU
0x1ed5c8…1ed75c Dummy {f00=0x0021, f01=0x018e, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N P IFF QNBUF=5 b P IFF QNBUF=6 v P IFF QNBUF=7 PBUF8 DATA BUF9 P DATA 0,0,0 P RES 205 P XIF P* P* P IFT QNBUF=8
0x1ed75c…1ed8f0 Dummy {f00=0x0021, f01=0x0190, f02=» P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 , P IFF QNBUF=8 @ PBUF9 DATA BUF10 T P DATA 0,0,0 l P RES 205 P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1
0x1ed8f0…1eda84 Dummy {f00=0x0021, f01=0x0190, f02=»=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 6 P RES 205 J P XIF Z P IFT QNBUF=10 f PBUF11 EQU BUF1 | P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF Q
0x1eda84…1edc18 Dummy {f00=0x0021, f01=0x0190, f02=» P DATA 0,0,0 P RES 205 P XIF ( P IFT QNBUF=11 4 PBUF12 EQU BUF1 J P XIF ` P* l P* v P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7
0x1edc18…1eddac Dummy {f00=0x0021, f01=0x018e, f02=» 205 P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 . P XIF D P* P P* Z P IFF QNBUF=1 d P IFF QNBUF=2 x P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF
0x1eddac…1edf40 Dummy {f00=0x0021, f01=0x0190, f02=» P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 * P XIF @ P* L P* V P IFF QNBUF=1 ` P IFF QNBUF=2 t P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNB
0x1edf40…1ee0d4 (2, 391) Dummy {f00=0x0021, f01=0x018e, f02=» P RES 205 P XIF P IFT QNBUF=14 $ PBUF15 EQU BUF1 : P XIF P P* P* f P IFF QNBUF=1 p P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8
0x1ee0d4…1ee268 Dummy {f00=0x0021, f01=0x0190, f02=» PBUF15 DATA BUF16 P DATA 0,0,0 P RES 205 0 P XIF @ P IFT QNBUF=15 L PBUF16 EQU BUF1 b P XIF x P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6
0x1ee268…1ee3fc Dummy {f00=0x0021, f01=0x0190, f02=»FF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15 * PBUF16 DATA BUF1 @ P DATA 0,0,0 X P RES 205 l P XIF | P EJECT P* P************** P* DMTGBU * P************** P* * P* ENTRY DMTGBU GET A D
0x1ee3fc…1ee590 Dummy {f00=0x0021, f01=0x0190, f02=»ER t P* $ P* OUTPUT A3 = BUFFER ADDRESS J P* SKIP RETURN (+2) IF SECTOR MUST BE READ INTO BUFFER AT A3 < , P* A5 AND A7 WILL BE DESTROYED P* 8 P* CURBUF, BUFDMI, -FC AND -SNR WILL BE SET < P*
0x1ee590…1ee724 Dummy {f00=0x0021, f01=0x0190, f02=»* SEARCHED FOR IS ALREADY PRESENT IN ANY FREE BUFFER. F P* IF THIS SECTOR IS NOT FOUND A FREE SECTOR MUS BE FOUND AND IN @ P* P* P* PDMTGBU EQU * P INH INH P* 4 P* CHECK IF THIS SECTOR IS FOUND IN ANY BUFFER
0x1ee724…1ee8b8 Dummy {f00=0x0021, f01=0x0190, f02=») DMT020 WRONG VOLUME P CW A2,BUFSNR,A3 P RF(E) DMT050 SAME SECTOR NO 6 PDMT020 EQU * Z P LDK A7,/01 n & P AN A7,BUFLNK,A3 STATUS IN BIT 15 P RF(NZ) DMT041 USED P IM BUFOR,A3 MAKE OLDER P RF(P) DMT030 P LDK A7,/F
0x1ee8b8…1eea4c Dummy {f00=0x0021, f01=0x0190, f02=»T A3,NEWBUF PDMT041 EQU * P CW A3,CURBUF ( * P RB(NE) DMT010 MORE BUFFERS TO SERARCH > P LDR A5,A5 l P RF(NZ) DMT043 BUFFER FOUND ~ P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PDMT043 LD A3,NEWBUF P*
0x1eea4c…1eebe0 Dummy {f00=0x0021, f01=0x0190, f02=» t " P ST A2,BUFSNR,A3 SECTOR NUMBER PDMT050 EQU * . " P CM BUFOR,A3 RESET OLD-COUNTER B P ST A3,CURBUF h P LDK A7,/01 ~ ( P ORRS A7,A3 SET STATUS USED BIT 15 P ENB ENB P RTN A14 P EJECT P* P**************
0x1eebe0…1eed74 (2, 392) Dummy {f00=0x0023, f01=0x0190, f02=» BUFFER ADDRESS P* A2 IS DESTROYED P* < P* F PDMTRBU EQU * P P LDKL A2,/FFFE d P ANRS A2,A3 SET OFF BIT 15 z P RTN A14 P* P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x1eed74…1eef08 Dummy {f00=0x0023, f01=0x40b4, f02=» P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE 8 PDMT750 CW A3,CURBUF T P RB(NE) DMT700 MORE BUFFERS p P RTN A14 P END @ P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x1eef08…1ef09c Dummy {f00=0x0023, f01=0x2008, f02=» P* DMTRBU * P************** " P* 8 . P* ENTRY DMTRBU RELEASE A DISC BUFFER B P* t $ P* INPUT A3 = BUFFER ADDRESS ~ P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2,/FFFE P
0x1ef09c…1ef230 Dummy {f00=0x0023, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x1ef230…1ef3c4 Dummy {f00=0x0023, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x1ef3c4…1ef558 Dummy {f00=0x0023, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x1ef558…1ef6ec Dummy {f00=0x0023, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x1ef6ec…1ef880 Dummy {f00=0x0023, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x1ef880…1efa14 (2, 393) Opaque[0x194]
0x1efa14…1efba8 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0be8, f03=0x0000}
0x1efa14…1efba8 IdxSect {
0x1efa14…1efba8 f00 = 0x005f // 0x1efa14 @0x0
0x1efa14…1efba8 f01 = 0x0004 // 0x1efa16 @0x2
0x1efa14…1efba8 gno = [ // 0x1efa18 @0x4
0x1efa14…1efba8 [0x00]: C0x005f.0x1.0
0x1efa14…1efba8 [0x01]: C0x008c.0x0.0
0x1efa14…1efba8 ]
0x1efa14…1efba8 }
0x1efba8…1efd3c Dummy {f00=0x005f, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x1efd3c…1efed0 Dummy {f00=0x005f, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x1efed0…1f0064 Dummy {f00=0x005f, f01=0x0190, f02=»REA r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 2 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS < 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER | P* PX:B EQU 50 " PCRNBAR EQU 00240 CURRENCY AREA P* P*
0x1f0064…1f01f8 Dummy {f00=0x005f, f01=0x0190, f02=» P* PQFDBAR EQU 02280 P* & PX:D EQU 96 0 ( PQFDBFL EQU 00114 FDB FIX PART LENGTH B P* n P EJECT x P* PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNE
0x1f01f8…1f038c Dummy {f00=0x005f, f01=0x410a, f02=» IFF MXSIZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 B P XIF p PMXINDE EQU * END INDEX INDEX | 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @
0x1f038c…1f0520 Dummy {f00=0x005f, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x1f0520…1f06b4 (2, 394) Dummy {f00=0x008c, f01=0x0190, f02=»MAX 4 WORDS | PDMT150 EQU * P LDR* A10,A4 ( P CWR* A10,A7 < P ABL(NE) DMT250 NO MATCH P P SUK A2,1 p . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P*
0x1f06b4…1f0848 Dummy {f00=0x008c, f01=0x0190, f02=» DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO 8 P LDK A2,0 FILE EXTENT NUMBER R P RF DMT167 v . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN
0x1f0848…1f09dc Dummy {f00=0x008c, f01=0x0190, f02=» P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS P LDK A7,9 B * P ABL DMTASX MORE THAN 4 EXTENTS EXIST T PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x1f09dc…1f0b70 Dummy {f00=0x008c, f01=0x0190, f02=» LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 $ P LD A2,TASSEX,A1 > $ P RF(NZ) DMT250 NOT FIRST EXTENT V P EJECT ~ P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB *
0x1f0b70…1f0d04 Dummy {f00=0x008c, f01=0x0190, f02=»FDBSTA PDMT200 EQU * P LDR* A5,A12 " P ANK A5,/01 6 P RF(Z) DMT210 FREE J P LD A2,FDBEXT,A12 d P CW A2,TASVOL,A6 ~ " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC
0x1f0d04…1f0e98 Dummy {f00=0x008c, f01=0x0190, f02=»OUND j PDMT205 EQU * P LDK A7,5 FILE CODE USED P ABL DMTASX @ P* T $ PDMT210 LDR* A12,A12 GET NEXT FDB ^ P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P
0x1f0e98…1f102c Dummy {f00=0x008c, f01=0x0190, f02=» P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 F P ABL DMTASX NO FDB AVAILABLE X ( P* INITIALIZE FDB ZERO FROM FDB+2 | P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL P
0x1f102c…1f11c0 Dummy {f00=0x008c, f01=0x0190, f02=»DMT233 PDMT237 EQU * P LDKL A2,/8000 " P* DEV NOT BUSY 8 P ST A2,DWTST,A12 P P LDKL A2,TIODM h P ST A2,DWTADR,A12 ~ P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 P
0x1f11c0…1f1354 (2, 395) Opaque[0x194]
0x1f1354…1f14e8 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0be0, f03=0x0000}
0x1f1354…1f14e8 IdxSect {
0x1f1354…1f14e8 f00 = 0x005f // 0x1f1354 @0x0
0x1f1354…1f14e8 f01 = 0x0002 // 0x1f1356 @0x2
0x1f1354…1f14e8 gno = [ // 0x1f1358 @0x4
0x1f1354…1f14e8 [0x00]: C0x005f.0x0.0
0x1f1354…1f14e8 ]
0x1f1354…1f14e8 }
0x1f14e8…1f167c Dummy {f00=0x005f, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x1f167c…1f1810 Dummy {f00=0x005f, f01=0x40c8, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F0F1 PDFTABE EQU * P END @ TAB = DISC FILE CODE TABLE P* P* P* LEVE
0x1f1810…1f19a4 Dummy {f00=0x005f, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P*
0x1f19a4…1f1b38 Dummy {f00=0x005f, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x1f1b38…1f1ccc Dummy {f00=0x005f, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x1f1ccc…1f1e60 Dummy {f00=0x005f, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x1f1e60…1f1ff4 (2, 396) Opaque[0x194]
0x1f1ff4…1f2188 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1230, f03=0x0000}
0x1f1ff4…1f2188 IdxSect {
0x1f1ff4…1f2188 f00 = 0x0091 // 0x1f1ff4 @0x0
0x1f1ff4…1f2188 f01 = 0x000c // 0x1f1ff6 @0x2
0x1f1ff4…1f2188 gno = [ // 0x1f1ff8 @0x4
0x1f1ff4…1f2188 [0x00]: C0x0091.0x2.0
0x1f1ff4…1f2188 [0x01]: C0x0091.0x3.0
0x1f1ff4…1f2188 [0x02]: C0x0092.0x0.0
0x1f1ff4…1f2188 [0x03]: C0x0092.0x1.0
0x1f1ff4…1f2188 [0x04]: C0x0092.0x2.0
0x1f1ff4…1f2188 [0x05]: C0x0092.0x3.0
0x1f1ff4…1f2188 ]
0x1f1ff4…1f2188 }
0x1f2188…1f231c Dummy {f00=0x0091, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* P*
0x1f231c…1f24b0 Dummy {f00=0x0091, f01=0x0190, f02=»ROM :***************** r P* P* DMTASK ( P* : P*************** D P* ENTRIES * P*************** t P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR P ENTRY FNDKEY P ENTRY CRNUPD P* P**********
0x1f24b0…1f2644 Dummy {f00=0x0091, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x1f2644…1f27d8 Dummy {f00=0x0091, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x1f27d8…1f296c Dummy {f00=0x0091, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x1f296c…1f2b00 Dummy {f00=0x0091, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x1f2b00…1f2c94 (2, 397) Dummy {f00=0x0091, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x1f2c94…1f2e28 Dummy {f00=0x0091, f01=0x0190, f02=» v . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL P* : P* SEARCHED KEY GREATER D P* d P LDR A10,A10 M n P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CEIL) PFND030 EQU * P LDR A10,A7 M=M/2 FLOOR P RB FND020
0x1f2e28…1f2fbc Dummy {f00=0x0091, f01=0x0190, f02=»D045 EQU * NO MASTER INDEX P LDK A1,0 " P LDK A2,1 REC NR 1 4 P RF FND070 N PFND050 EQU * ` P ADR* A1,A5 ARDR NEXT ENTRY t PFND060 EQU * P LDR A3,A1 ENTRY ADR P SUK A3,3 P ADR* A3,A5 ADR REC NO P* P* MO
0x1f2fbc…1f3150 Dummy {f00=0x0091, f01=0x0190, f02=»2,A2 P LCR A2,A3 PFND070 EQU * P RTN A14 2 P EJECT B 8 P****DESCRIPTION************************************* P P* D P* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE P* TERMINATED WITH A /EE. P* 8
0x1f3150…1f32e4 Dummy {f00=0x0091, f01=0x0190, f02=» * P* A6 = MAX NO OF CAHARACTERS IN KEY 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY 2 P* h P* CF A14,CHKKEY r P* 8 P****EXIT PARAMETERS********************************* P* : P* A3 = 0 WHEN SEARCED KEY IS CONTAINED I
0x1f32e4…1f3478 Dummy {f00=0x0091, f01=0x0190, f02=»CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY x " P* A6 = MAX NO OF CHAR IN KEY : P* ` 8 P****USED REGISTERS********************************** j P* P* A2-A4,A6-A7 < P******************************************************** P
0x1f3478…1f360c Dummy {f00=0x0091, f01=0x0190, f02=»CR A4,A3 SEARCED KEY CHAR P CCK A4,/EE00 " " P RF(E) CHK060 END OF KEY CHAR 8 P CCR A4,A2 SC=EC? ^ P RF(G) CHK100 SC GT TH EC x " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL)
0x1f360c…1f37a0 Dummy {f00=0x0091, f01=0x0190, f02=» LDK A3,0 FOUND P RF CHK140 PCHK120 EQU * * $ P LDKL A3,-1 SEARCHED KEY SMALLER > P RF CHK140 f PCHK100 EQU * x $ P LDK A3,1 SEARCHED KEY SGREATER PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*******************
0x1f37a0…1f3934 (2, 398) Dummy {f00=0x0092, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x1f3934…1f3ac8 Dummy {f00=0x0092, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x1f3ac8…1f3c5c Dummy {f00=0x0092, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x1f3c5c…1f3df0 Dummy {f00=0x0092, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x1f3df0…1f3f84 Dummy {f00=0x0092, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x1f3f84…1f4118 Dummy {f00=0x0092, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x1f4118…1f42ac Dummy {f00=0x0092, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x1f42ac…1f4440 Dummy {f00=0x0092, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x1f4440…1f45d4 (2, 399) Dummy {f00=0x0092, f01=0x0190, f02=» NO v P LDR A1,A2 P LDR A2,A3 P LDK A6,0 0 P LDK A7,1 B P CF A14,ADDMOD NEXT REC NO T P LDR A6,A5 RESTORE FDB ADDR v * P CF A14,CALSNO GET NEXT REC ADDR PHYS P LDR A8,A13 $ P LDR A1,A1 CHECK EN D OF MEDIUM P RF(
0x1f45d4…1f4768 Dummy {f00=0x0092, f01=0x0190, f02=» x " P CF A14,DMTRBU RELEASE BUFFER P LDR A1,A6 FDB ADDR . P RB RDN040 NEXT SECTOR J P* h P* EXIT r P* PRDN900 EQU * P LDR A5,A1 RET CODE P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO
0x1f4768…1f48fc Dummy {f00=0x0092, f01=0x0190, f02=»ER ADDR PRDN940 EQU * P LD A6,2,A14 $ P ADKL A14,4 8 P LDR* A7,A14 L PRDN950 EQU * ` P RTN A14 t P EJECT 8 P****DESCRIPTION************************************* P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD
0x1f48fc…1f4a90 Dummy {f00=0x0092, f01=0x0190, f02=»ENTRY PARAMETERS******************************** P* 8 P* A1 = FDB ADDRESS B P* A8 = SEARCH KEY ADDR ^ & P* A11 = NO OF CHARACTERS IN KEY ~ " P* A13= PHYSICAL ECB ADDRESS P* 8 P****EXIT PARAMETERS*****************************
0x1f4a90…1f4c24 Dummy {f00=0x0092, f01=0x0190, f02=» 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND . P* = RETURN CODE WHEN KEY IS NOT FOUND : 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER l P* A3 = BUFFER ADDRESS & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARAC
0x1f4c24…1f4db8 Dummy {f00=0x0092, f01=0x0190, f02=»**** ` P* , P* A1 - A11,A13 + 4 WORDS ON A14 STACK P* F : P****************************************************** P P EJECT PFNDKEY EQU * P* & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF M
0x1f4db8…1f4f4c Dummy {f00=0x0092, f01=0x0190, f02=» GET KEY ENTRY IN MASTER INDEX P LD A6,8,A14 FDB ADDR & P CF A14,CALSNO GET PHYS ADDR D P LDR A1,A1 h P RF(NZ) FKY900 ERROR z P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9
0x1f4f4c…1f50e0 Dummy {f00=0x0092, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x1f50e0…1f5274 (2, 400) Dummy {f00=0x0092, f01=0x0190, f02=» P RF(E) FKY200 USED RECORD P* & & P* NO MORE RECORDS IN THIS SECTOR 0 P* Z * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET d P LD A4,FDBMRO,A1 & P ST A4,FDBRRO,A1 LAST REC IN SECT P* P* *CHECK IF EOF P* P LDR
0x1f5274…1f5408 Dummy {f00=0x0092, f01=0x0190, f02=»N,A1 P RB(L) FKY100 NOT EOF P RF(G) FKY180 EOF * P CW A3,FDBLRN+1,A1 D P RB(L) FKY100 NOT EOF ^ PFKY180 EQU * | P* P* EOF IS IN THIS SECTOR P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR
0x1f5408…1f559c Dummy {f00=0x0092, f01=0x0190, f02=» P LD A3,6,A14 SEARCH KEY ADDR P CF A14,CHKKEY COMPARE KEYS , P LDR A3,A3 P & P RF(P) FKY840 SEARCHED KEY GREATER b " P RF(N) FKY850 SEARCH KEY LESS P RF FKY870 KEY FOUNFD PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P
0x1f559c…1f5730 Dummy {f00=0x0092, f01=0x0190, f02=» THAT HAS BEEN CHECKED FOR THIS KEY . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! 0 P RB FKY100 NEXT KEY ! b PFKY850 EQU * ! ~ P LDKL A2,/4000 KEY NOT FOUND ! P RF FKY950 ! PFKY870 EQU * ! P LDK A2,0 KEY FOUND ! P RF FKY950 !
0x1f5730…1f58c4 Dummy {f00=0x0092, f01=0x0190, f02=» P ADKL A14,8 RESTORE STACK " P LDR* A1,A14 FDB ADDR " & P LDR A3,A9 BUFFER ADDR " D P RTN A14 " b P EJECT " r P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX " P* RECORDS ARE UPDATED " P* " P* IN
0x1f58c4…1f5a58 Dummy {f00=0x0092, f01=0x0190, f02=»2 = ADD PARAMETER +1, -1 " P* # $ P* USED REGISTERS: # . P* A1 -A12 # J P* # ^ P* OUT: # h P* A5 = FDB ADDR INDEX # x P* A10,A11 = UNCHANGED # P* # PCRNUPD EQU * # P STR A12,A14 # P SUKL A14,2 # $ P LD A12,FD
0x1f5a58…1f5bec Dummy {f00=0x0092, f01=0x0190, f02=»F(Z) CRU900 END OF LINK # P LC A7,FDBECB+1,A5 FILE CODE $ P CC A7,CRNCIF,A12 $ D P RB(NE) CRU100 WRONG FC $ ^ P CC A10,CRNCIF+1,A12 $ ~ P RB(G) CRU100 $ P RF(L) CRU200 $ P CW A11,CRNCIF+2,A12 $ P RB(G) CRU100 $ PCRU200 EQU * $
0x1f5bec…1f5d80 Dummy {f00=0x0092, f01=0x018e, f02=» * $ P* % P* UPDATE CRN % P* % * P LD A7,2,A14 ADD PARAM % 4 P LDR A6,A7 % R P RF(N) CRU230 -1 % d P LDK A6,0 % | PCRU230 EQU * % P ANKL A7,/7FFF % P LDK A1,0 % P LC A1,CRNCIF+1,A12 % P LD A2,CRNCIF+2,A12 % P CF A1
0x1f5d80…1f5f14 (2, 401) Dummy {f00=0x0092, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x1f5f14…1f60a8 Dummy {f00=0x0092, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x1f60a8…1f623c Dummy {f00=0x0092, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x1f623c…1f63d0 Dummy {f00=0x0092, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x1f63d0…1f6564 Dummy {f00=0x0092, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x1f6564…1f66f8 Dummy {f00=0x0092, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x1f66f8…1f688c Dummy {f00=0x0092, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x1f688c…1f6a20 Dummy {f00=0x0092, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x1f6a20…1f6bb4 (2, 402) Opaque[0x194]
0x1f6bb4…1f6d48 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1260, f03=0x0000}
0x1f6bb4…1f6d48 IdxSect {
0x1f6bb4…1f6d48 f00 = 0x0093 // 0x1f6bb4 @0x0
0x1f6bb4…1f6d48 f01 = 0x0004 // 0x1f6bb6 @0x2
0x1f6bb4…1f6d48 gno = [ // 0x1f6bb8 @0x4
0x1f6bb4…1f6d48 [0x00]: C0x0093.0x0.0
0x1f6bb4…1f6d48 [0x01]: C0x0093.0x2.0
0x1f6bb4…1f6d48 ]
0x1f6bb4…1f6d48 }
0x1f6d48…1f6edc Dummy {f00=0x0093, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x1f6edc…1f7070 Dummy {f00=0x0093, f01=0x0190, f02=»CTION ON THE ALPHA ^ P* COMPUTER P*CALLING SEQUENCE: , $ P* A1-A2 = ARG1 F $ P* AG-A7 = ARG2 n P* CF A14,ADDMOD & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 A
0x1f7070…1f7204 Dummy {f00=0x0093, f01=0x0190, f02=»NDITIONAL ASSEMBLY P* . P***************************************** $ P* V 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PADDMOD
0x1f7204…1f7398 Dummy {f00=0x0093, f01=0x0190, f02=».L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 8 P RF(3) OVER1 X 0 PNOVER ADR A1,A6 * NO OVERFLOW x P RF(1) END1 P RF(2) END2 P RF(3) END3 PNO
0x1f7398…1f752c Dummy {f00=0x0093, f01=0x018e, f02=» A1,1 P RF(3) OVER3 P RB(7) NOVER 0 POVER3 ADR A1,A6 P P RF(2) END3 p P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 P XIF =1 P IFT CPU852=
0x1f752c…1f76c0 Dummy {f00=0x0093, f01=0x4184, f02=» t PEND2 ADK A3,/80 PEND1 ADK A3,/80 * B PEND0 SLL A3,1 ********************************** L P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S
0x1f76c0…1f7854 (2, 403) Dummy {f00=0x0093, f01=0x2008, f02=» ANK.L A3,/0300 P LDK.L A4,/FCFF * P AN.S A4,2,A14 L B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM n P RTN A14 P END @ D1 P RB(7) NO
0x1f7854…1f79e8 Dummy {f00=0x0093, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x1f79e8…1f7b7c Dummy {f00=0x0093, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x1f7b7c…1f7d10 Dummy {f00=0x0093, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x1f7d10…1f7ea4 Dummy {f00=0x0093, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x1f7ea4…1f8038 Dummy {f00=0x0093, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x1f8038…1f81cc Dummy {f00=0x0093, f01=0x2008, f02=» ,
0x1f81cc…1f8360 Dummy {f00=0x0093, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x1f8360…1f84f4 (2, 404) Opaque[0x194]
0x1f84f4…1f8688 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x1f84f4…1f8688 IdxSect {
0x1f84f4…1f8688 f00 = 0x0093 // 0x1f84f4 @0x0
0x1f84f4…1f8688 f01 = 0x0004 // 0x1f84f6 @0x2
0x1f84f4…1f8688 gno = [ // 0x1f84f8 @0x4
0x1f84f4…1f8688 [0x00]: C0x0093.0x3.0
0x1f84f4…1f8688 [0x01]: C0x0095.0x1.0
0x1f84f4…1f8688 ]
0x1f84f4…1f8688 }
0x1f8688…1f881c Dummy {f00=0x0093, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x1f881c…1f89b0 Dummy {f00=0x0093, f01=0x0190, f02=»STRUCTION ON THE ALPHA ^ P*COMPUTER P*CALLING SEQUENCE 0 $ P* A1-A2 = ARG1 J $ P* A6-A7 = ARG2 r P* CF A14,DSUMOD & P*RETURN: RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A
0x1f89b0…1f8b44 Dummy {f00=0x0093, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PDS
0x1f8b44…1f8cd8 Dummy {f00=0x0093, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' 8 P ANK.L A2,/7FFF P ADK A7,1 ~ P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P RF(7)
0x1f8cd8…1f8e6c Dummy {f00=0x0093, f01=0x0190, f02=» z P RF(2) END2 P RF(3) END3 & P ADK A2,0 D P RF(0) END0 b P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P
0x1f8e6c…1f9000 Dummy {f00=0x0093, f01=0x0190, f02=»VER2 | P XIF =1 P IFT CPU852=0 6813 =1 P RF(0) END0 =1 < P RF(1) END1 =1 T P RF(2) END2 =1 l P XIF =1 PEND3 ADK A3,/80 PEND2 ADK A3,/80 PEND1 ADK A3,/80 F PEND0 SLL
0x1f9000…1f9194 (2, 405) Dummy {f00=0x0095, f01=0x40a8, f02=» AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P* =1 b P RTN A14 r P END @
0x1f9194…1f9328 Dummy {f00=0x0095, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P A
0x1f9328…1f94bc Dummy {f00=0x0095, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x1f94bc…1f9650 Dummy {f00=0x0095, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x1f9650…1f97e4 Dummy {f00=0x0095, f01=0x0190, f02=»A r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 0 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS : 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER z P* PX:B EQU 50 PCRNBAR EQU X:B CURRENCY AREA P* P* PX:
0x1f97e4…1f9978 Dummy {f00=0x0095, f01=0x0190, f02=»* PQFDBAR EQU X:A P* PX:D EQU 96 * & PQFDBFL EQU X:D FDB FIX PART LENGTH < P* f P EJECT p P* ~ PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU *
0x1f9978…1f9b0c Dummy {f00=0x0095, f01=0x4102, f02=»IZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : P XIF h PMXINDE EQU * END INDEX INDEX t 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @ EQU *
0x1f9b0c…1f9ca0 Dummy {f00=0x0095, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x1f9ca0…1f9e34 (2, 406) Opaque[0x194]
0x1f9e34…1f9fc8 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12b0, f03=0x0000}
0x1f9e34…1f9fc8 IdxSect {
0x1f9e34…1f9fc8 f00 = 0x0095 // 0x1f9e34 @0x0
0x1f9e34…1f9fc8 f01 = 0x0004 // 0x1f9e36 @0x2
0x1f9e34…1f9fc8 gno = [ // 0x1f9e38 @0x4
0x1f9e34…1f9fc8 [0x00]: C0x0095.0x2.0
0x1f9e34…1f9fc8 [0x01]: C0x0096.0x0.0
0x1f9e34…1f9fc8 ]
0x1f9e34…1f9fc8 }
0x1f9fc8…1fa15c Dummy {f00=0x0095, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITIONS B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x1fa15c…1fa2f0 Dummy {f00=0x0095, f01=0x0190, f02=»N THE ALPLA COMPUTER ^ P* CALLING SEQUENCE: ( P* LD A6,ARG1 8 ( P* LD A7,ARG1 d P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2 0 P* REGISTERS A3,A4,A6,A7, ARE CRU
0x1fa2f0…1fa484 Dummy {f00=0x0095, f01=0x0190, f02=»L ASSEMBLY P* . P***************************************** P* N 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION X . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PMPYMOD EQU *
0x1fa484…1fa618 Dummy {f00=0x0095, f01=0x0190, f02=»A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT ~ P CWR A3,A6 8 P RF(4) SUITE X P CWR A3,A7 x P RF(0) END3 < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR
0x1fa618…1fa7ac Dummy {f00=0x0095, f01=0x0190, f02=»A3,0 ~ P LDK A4,15 P ADK A6,0 , P RF(0) END0 J P RF(6) ARG1PS h 0 P ADK A3,1 *ARG1 NEGATIVE P C1R A6,A6 P ADK A6,1 PARG1PS ADK
0x1fa7ac…1fa940 Dummy {f00=0x0095, f01=0x0190, f02=» C1R A7,A7 P ADK A7,1 P RF(3) CASSPE 8 PARG2PS SRC A7,1 X P RF(6) NOVER1 v P ADR A1,A6 PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVE
0x1fa940…1faad4 (2, 407) Dummy {f00=0x0096, f01=0x0190, f02=» 4 PNOVER3 ADK A3,0 *END* RESTORE SI=N P RF(0) END1 < P C1R A1,A1 Z P C1R A2,A2 z P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN T
0x1faad4…1fac68 Dummy {f00=0x0096, f01=0x0190, f02=»A1,1 ~ PNOVER4 ANK.L A2,/7FFF P RF(7) END2 . P XIF =1 L P IFT CPU852=0 6813 =1 ^ P RF(0) END0 =1 | P RF(1) END1 =1 P RF(2) END2 =1 P XIF =1 PEND3 ADK A3,/81 PEND2 ADK
0x1fac68…1fadfc Dummy {f00=0x0096, f01=0x4168, f02=» v P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM * P* =1 p P RTN A14 P IFT CPU852=1 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P*
0x1fadfc…1faf90 Dummy {f00=0x0096, f01=0x2008, f02=» 4 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P* *AND A1= A6 P P RB(7) NOVER3 P END @
0x1faf90…1fb124 Dummy {f00=0x0096, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x1fb124…1fb2b8 Dummy {f00=0x0096, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x1fb2b8…1fb44c Dummy {f00=0x0096, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x1fb44c…1fb5e0 Dummy {f00=0x0096, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x1fb5e0…1fb774 (2, 408) Opaque[0x194]
0x1fb774…1fb908 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12c8, f03=0x0000}
0x1fb774…1fb908 IdxSect {
0x1fb774…1fb908 f00 = 0x0096 // 0x1fb774 @0x0
0x1fb774…1fb908 f01 = 0x0004 // 0x1fb776 @0x2
0x1fb774…1fb908 gno = [ // 0x1fb778 @0x4
0x1fb774…1fb908 [0x00]: C0x0096.0x1.0
0x1fb774…1fb908 [0x01]: C0x0096.0x3.0
0x1fb774…1fb908 ]
0x1fb774…1fb908 }
0x1fb908…1fba9c Dummy {f00=0x0096, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 9.2 79-11-16 870105040920 P : P* =1 RET COND B P* Z 8 P**************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x1fba9c…1fbc30 Dummy {f00=0x0096, f01=0x018e, f02=»A COMPUTER V P* CALLING SEQUENCE & P* A1-A2= DIVIDEND , $ P* A6 = DIVISOR V P* CF A14,DIVMOD ~ B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT 6 P* CAUTION : REGISTERS A3,A4,A6,A
0x1fbc30…1fbdc4 Dummy {f00=0x0096, f01=0x0190, f02=» P* CONDITIONAL ASSEMBLY P* " . P***************************************** , P* ^ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT
0x1fbdc4…1fbf58 Dummy {f00=0x0096, f01=0x0190, f02=»,A1 SAVE DIVIDEND SIGN | P* =1 $ P ADK A6,0 4 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW R P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0)
0x1fbf58…1fc0ec Dummy {f00=0x0096, f01=0x018e, f02=» P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND $ P RF(6) DIVENP 8 P ADK A3,1 * DIVIDEND IS NEGATIVE | P C1R A1,A1 P C1R A2,A2 P ANK.L
0x1fc0ec…1fc280 Dummy {f00=0x0096, f01=0x018e, f02=» x 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP > 4 P SUK A3,1 *NEGATIVE DIVISOR ^ P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RESET IF OVER
0x1fc280…1fc414 (2, 409) Dummy {f00=0x0096, f01=0x0190, f02=» 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END : P SLL A1,1 X P SLL A7,1 v P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK A1,0
0x1fc414…1fc5a8 Dummy {f00=0x0096, f01=0x0190, f02=» ADK A7,1 P RB(7) SHIFT 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS : PEND LDR A2,A7 r P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR +
0x1fc5a8…1fc73c Dummy {f00=0x0096, f01=0x018e, f02=» ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) ` P ADK A2,0 P XIF =1 P IFT CPU852=0 6813 =1 P RF(1) END1 =1 P
0x1fc73c…1fc8d0 Dummy {f00=0x0096, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x1fc8d0…1fca64 Dummy {f00=0x0096, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x1fca64…1fcbf8 Dummy {f00=0x0096, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x1fcbf8…1fcd8c Dummy {f00=0x0096, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x1fcd8c…1fcf20 Dummy {f00=0x0096, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x1fcf20…1fd0b4 (2, 410) Opaque[0x194]
0x1fd0b4…1fd248 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12e0, f03=0x0000}
0x1fd0b4…1fd248 IdxSect {
0x1fd0b4…1fd248 f00 = 0x0097 // 0x1fd0b4 @0x0
0x1fd0b4…1fd248 f01 = 0x0012 // 0x1fd0b6 @0x2
0x1fd0b4…1fd248 gno = [ // 0x1fd0b8 @0x4
0x1fd0b4…1fd248 [0x00]: C0x0097.0x0.0
0x1fd0b4…1fd248 [0x01]: C0x0097.0x2.0
0x1fd0b4…1fd248 [0x02]: C0x0097.0x3.0
0x1fd0b4…1fd248 [0x03]: C0x0098.0x0.0
0x1fd0b4…1fd248 [0x04]: C0x0098.0x1.0
0x1fd0b4…1fd248 [0x05]: C0x0098.0x2.0
0x1fd0b4…1fd248 [0x06]: C0x0098.0x3.0
0x1fd0b4…1fd248 [0x07]: C0x0099.0x0.0
0x1fd0b4…1fd248 [0x08]: C0x0099.0x1.0
0x1fd0b4…1fd248 ]
0x1fd0b4…1fd248 }
0x1fd248…1fd3dc Dummy {f00=0x0097, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 9.2 79-11-16 870105040920 P : P =1 CLEAR ECB B P REL 9.1 79-04-06 Z P* v 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DMSUBR = COM
0x1fd3dc…1fd570 Dummy {f00=0x0097, f01=0x0190, f02=» 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* D P* DMTASK,TIODM,DMTASS N P* n P*************** x P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET P ENTRY CAL
0x1fd570…1fd704 Dummy {f00=0x0097, f01=0x0190, f02=»USER TO SYSTEM AREA x 0 P ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA P* P P***************** Z P* EXTERNALS * t P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO P EXTRN FDBCEX,FDBBLF
0x1fd704…1fd898 Dummy {f00=0x0097, f01=0x0190, f02=»D | P EXTRN DWTTDM,DWTTQ P EXTRN QTJOB & P EXTRN ECBRL,SECTLE : P EXTRN DIVMOD,MPYMOD V P EXTRN EXTELE r P EXTRN CRNTID P EXTRN DMTGBU P EXTRN EXTLEN,EXTBAS P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P
0x1fd898…1fda2c Dummy {f00=0x0097, f01=0x0190, f02=»UTINE t P EJECT DMSUBR TOSSIO P* . P* 8 . P***************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x1fda2c…1fdbc0 Dummy {f00=0x0097, f01=0x0190, f02=»CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT 2 P* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR 4 ( P* DX,IX,XR,XN, DATA FILE OTHERWISE j P* PCHKIND EQU * P STR A1,A15 P STR A2,A15 " P LDK A2,1 INDEX FOR DATA FILE P LDR A
0x1fdbc0…1fdd54 (2, 411) Dummy {f00=0x0097, f01=0x0190, f02=»AD x P ANK A1,/3E REMOVE BIT 15 P SUK A1,/1E , 4 P RF(E) FND320 INSERT INDEX OR INDEXED READ NEXT @ P RF FND340 x ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * P CCR A2,A6 INDEX P RF(E) FND390 ENTRY FOUND P LDK
0x1fdd54…1fdee8 Dummy {f00=0x0097, f01=0x0190, f02=»ED IN TENDIO TO RESET REQUEST BUSY BIT P* FOR ALL FILES . " P* AND TO RESOLVE ALL QUEUES H P* n PREQEND EQU * x P LC A2,TTB:ID,A5 GET TASK ID P CCK A2,'##' ( P RF(E) TEN117 JUMP IF DMTASK CALLING P* , P* RESET REQU
0x1fdee8…1fe07c Dummy {f00=0x0097, f01=0x0190, f02=»QU * P SUK A2,2 P RF(N) TEN115 NO MORE FILES P LDR A3,A6 B P ADR A3,A2 T P LD A3,FDBADF,A3 FDB ADDR f P RB(Z) TEN112 P CWR A3,A6 DWT ADDR P RF(E) TEN114 MASTER DWT P LD A5,DWTTQ,A3 P RF(Z) TEN113 NO QUEUE
0x1fe07c…1fe210 Dummy {f00=0x0097, f01=0x0190, f02=»TEN114 EQU * $ P LDKL A4,/BFFF REQUEST BUSY BIT P ANS A4,DWTST,A3 RESET < P LDKL A4,/8000 Z $ P ORS A4,DWTST,A3 DEVICE NOT BUSY r P RB TEN112 PTEN115 EQU * P LDR* A4,A15 RESTORE A4 P* PTEN117 EQU * P ABL IHRTN
0x1fe210…1fe3a4 Dummy {f00=0x0097, f01=0x0190, f02=» FOR A LOG RECORD NO. n P* 8 P****ENTRY PARAMETERS******************************** ( P* d P* A1 = FDB ADRESS n P* A2,A3 = LOG RECORD NO P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS*************************
0x1fe3a4…1fe538 Dummy {f00=0x0097, f01=0x018e, f02=»* = -1 EA FOUND FO R OTHER TASK P* . 8 P****USED REGISTERS********************************** 8 P* t P* A1 - A4 ~ P EJECT DMSUBR PEATEST EQU * " P LD A4,FDBEAL,A1 BUFFER QUEUE P RF EAT030 PEAT020 EQU *
0x1fe538…1fe6cc Dummy {f00=0x0097, f01=0x018e, f02=» P* P CC A2,3,A4 FIRST CHAR P RB(NE) EAT020 , P CW A3,4,A4 2 AND 3 CHAR B P RB(NE) EAT020 b P* x P* RECORD NO FOUND P* P LC A4,2,A4 P CC A4,FDBTNR,A1 TASK ID P RF(E) EAT060 P LDKL A4,-1 EA OTHER T
0x1fe6cc…1fe860 Dummy {f00=0x0097, f01=0x0190, f02=» ~ 8 P****DESCRIPTION************************************* P* D B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK N L P* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS P* 8 P****ENTRY PARAMETERS******
0x1fe860…1fe9f4 (2, 412) Dummy {f00=0x0097, f01=0x018e, f02=»B ~ P* 8 P****EXIT PARAMETERS********************************* P* P P* A6 = FDB ADDR Z P* t 8 P****USED REGISTERS********************************** ~ P* P* A1-A4,A6 P* < P**************************************
0x1fe9f4…1feb88 Dummy {f00=0x0097, f01=0x0190, f02=» P LDR A1,A3 LOG REC NO P INH " , P CF A15,GETBLK GET BUFF AND STORE A1,A2 . P* ^ P* LINK BUFFER TO FDB h P* P LD A2,FDBEAL,A6 LINK ROOT P STR A2,A4 THREAD P ST A4,FDBEAL,A6 NEW ROOT P RTN A14 P EJECT D
0x1feb88…1fed1c Dummy {f00=0x0097, f01=0x0190, f02=» P* TIO THE FREE LINK. P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A1 = FDB-ADDRESS v " P* A2,A3 = LOGICAL RECORD NO B P* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB ( P*
0x1fed1c…1feeb0 Dummy {f00=0x0097, f01=0x0190, f02=»FER WITH TASK ID AND LOG REC NO j 0 P* AS SPEC IS REMOVED. ( P* 8 P****EXIT PARAMETERS********************************* f P* P* A1 = UNCHANGED P* 8 P****USED REGISTERS**********************************
0x1feeb0…1ff044 Dummy {f00=0x0097, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x1ff044…1ff1d8 Dummy {f00=0x0097, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x1ff1d8…1ff36c Dummy {f00=0x0097, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x1ff36c…1ff500 Dummy {f00=0x0097, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x1ff500…1ff694 (2, 413) Dummy {f00=0x0098, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x1ff694…1ff828 Dummy {f00=0x0098, f01=0x0190, f02=» P RF(Z) CRN100 LINK END P* " P* CHECK ATASK IDENT , P* J P LC A3,FDBTNR,A1 TASK ID T P CC A3,CRNTID,A2 t P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P* P* GET NEW BUFFER P* PCRN100 EQU *
0x1ff828…1ff9bc Dummy {f00=0x0098, f01=0x018e, f02=»RS v PCRN120 EQU * P LDR* A3,A2 NEXT FREE P ST A3,CRNQUE UPD ROOT < P* Z P* FILL BUFFER WITH ZEROES d P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES PCRN140 EQU * P SUK A3,2 ZEROE WORDS 2 - N P RF(NP) CRN160 B
0x1ff9bc…1ffb50 Dummy {f00=0x0098, f01=0x0190, f02=» " P* CONNECT NEW BUFFER TO LINK P* . PCRN160 EQU * 8 P LC A3,FDBTNR,A1 L P SC A3,CRNTID,A2 TASK ID d P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD P ST A2,FDBCRL,A1 NEW ROOT PCRN200 EQU * P RTN A14 P E
0x1ffb50…1ffce4 Dummy {f00=0x0098, f01=0x018e, f02=»TO d P* SECTOR AND OFFSET P* ( 8 P****ENTRY PARAMETERS******************************** 2 P* n " P* A1,A2 = LOGICAL RECORD NO x P* A6 = FDB ADDR P* P* CF A14,CALSNO P* 8 P****EXIT PARAMETERS*************
0x1ffce4…1ffe78 Dummy {f00=0x0098, f01=0x0190, f02=» P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v P* 8 P****USED REGISTERS********************************** P* P* A1 - A9 P
0x1ffe78…20000c Dummy {f00=0x0098, f01=0x0190, f02=»DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0 $ P ADK A3,1 RECORD
0x20000c…2001a0 Dummy {f00=0x0098, f01=0x018e, f02=» PTIOD40 EQU * P LDR A4,A6 & P ADKL A4,FDBEXT FIRST FILE EXTENT * , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT T P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SECTOR IN THIS EXTENT P SUK A5,1 NO & P RF(NP)
0x2001a0…200334 (2, 414) Dummy {f00=0x0098, f01=0x0190, f02=» P* * P* SAVE CURRENT EXTENT BLOCK POINTER P* < PTIOD55 ST A4,FDBCEX,A6 F P* d * P* FIND LOGICAL SECTOR NUMBER ON DISC n P* 6 P SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTENTS $ P SUR A3,A9 SECTOR NO WITHIN EXT P
0x200334…2004c8 Dummy {f00=0x0098, f01=0x0190, f02=»GICAL SECTOR NUMBER x 2 P* FIND RELATIVE RECORD OFFSET WITHIN SECTOR P* R P LDK A3,0 & PTIOD60 SUK A2,1 A2=RELATIVE REC NO n ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * P AD A3,FDBRLE,A6 NO ADD RECORD LENGTH P ADK A3,1 SKIP STATUS
0x2004c8…20065c Dummy {f00=0x0098, f01=0x0190, f02=»RELATIVE REC OFFSET IN FBDRRO P* & PTIOD65 EQU * 0 P LDK A1,0 OK D P ST A3,FDBRRO,A6 X PTIODMF EQU * p P RTN A14 P EJECT DMSUBR P* P************** P* DMTIOT P************** P* > P* ENTRY
0x20065c…2007f0 Dummy {f00=0x0098, f01=0x0190, f02=»RESS x P* A1 = 0 WHEN OK ! $ P* = ERROR CODE ELSE ! . $ P* A9 = DM ECB ADDRESS ! V * P* A8 = PHYS I/O ECB ADDRESS ! ~ $ P* A2 WILL BE DESTROYED ! P* ! ( P* USED REGISTERS : A1,A2,A6,A8,A9 !
0x2007f0…200984 Dummy {f00=0x0098, f01=0x0190, f02=»B ADDRESS ! z PDMTIT0 EQU * " P LD A1,ECBRC,A8 " & P RF(Z) DMTIOX DISC I/O OK " > P ANKL A1,/FEFF " ` $ P RF(NZ) DMTIT1 NOT ONLY RETRIES " v P LDKL A2,/100 " P ORS A2,ECBRC,A9 USER RC " P RF DMTIOX " PDMTIT1 EQU * " P LD A2,FDBDBR,
0x200984…200b18 Dummy {f00=0x0098, f01=0x0190, f02=» A2,8 BUFSTA " , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER # P LDK A1,/02 DISC IO ERROR # D " P LDKL A2,/FF7E NOT BIT 8 OR 15 # f P AN A2,ECBRC,A8 # P RF(NZ) DMTIOX # P LD A1,ECBRC,A8 BIT 8 OR 15 # PDMTIOX RTN A14 # P EJECT # P* #
0x200b18…200cac Dummy {f00=0x0098, f01=0x0190, f02=» P* A8 = ECB ADDR $ P* OUT: $ P* A1 = RET CODE $ . P* A2 = DESTROYED $ H P* A6 = FDB ADDR $ b P* A8 = ECB ADDR $ | P* A9 == USER ECB $ P* $ PDMTIOZ LDR A6,A1 $ P LD A2,DWTOR,A6 ORDER $ P ANK A2,/3F $ P CWK
0x200cac…200e40 Dummy {f00=0x0098, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x200e40…200fd4 (2, 415) Dummy {f00=0x0098, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x200fd4…201168 Dummy {f00=0x0098, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P**
0x201168…2012fc Dummy {f00=0x0098, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL
0x2012fc…201490 Dummy {f00=0x0098, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR
0x201490…201624 Dummy {f00=0x0098, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* *
0x201624…2017b8 Dummy {f00=0x0098, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x2017b8…20194c Dummy {f00=0x0098, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL
0x20194c…201ae0 Dummy {f00=0x0098, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,F
0x201ae0…201c74 (2, 416) Dummy {f00=0x0098, f01=0x0190, f02=» PGTL150 EQU * . P ADK A7,1 RECORD COUNTER . P SUR A6,A4 . 8 * P RB(NN) GTL150 COUNT RECORDS IN SECTOR . J P* . x , P* ADD SECT*BLOCFACT AND RECINCURRSECT . P* . P ADR A2,A7 . P RF(O) GTL160 OVERFLOW . P RF GTL170 . PGTL160 EQU
0x201c74…201e08 Dummy {f00=0x0098, f01=0x0190, f02=» LDR A1,A5 FDB ADDR . P LDR A6,A5 / P RTN A14 / . P EJECT DMSUBR / > P* / V P* / ` P IFT MMUPAG=1 / j P* / P* M O V : U S / P* / D P* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO / L P* THE SYSTEM AREA (REC
0x201e08…201f9c Dummy {f00=0x0098, f01=0x0190, f02=»* / 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) 0 < P* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) 0 F . P* A3 = NUMBER OF BYTES TO BE MOVED 0 P* 0 " P* OUTPUT: A1-A4 ARE DESTROYED 0 P* 0 , PMOV:US LDR A3,A3 CHECK
0x201f9c…202130 Dummy {f00=0x0098, f01=0x0190, f02=»ER ADDRESS 0 v P ANK A4,1 1 . P RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN? 1 $ . P LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS 1 V P ANK A4,1 1 0 P RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN? 1 P* 1 , PMVUS10 LDR A4,A3 CHECK REQUESTED LENGTH 1 P
0x202130…2022c4 Dummy {f00=0x0098, f01=0x0190, f02=»5 1 t P* 2 PMVUS35 RTN A14 2 P* 2 * P EJECT DMSUBR 2 4 P* 2 L P* 2 V 0 PMVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN 2 ` * P LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS 2 P ANK A4,1 2 0 P RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? 2 4 P
0x2022c4…202458 Dummy {f00=0x0098, f01=0x0190, f02=» SYSTEM BUFFER ADDRESS 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 3 $ P RB(NP) MVUS30 LAST CHAR. MOVED? 3 J , P ADK A1,2 NO, UPDATE USER BUFFER ADDRESS 3 r P* 3 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 3 P ECR A5,A4 3 0 P SCR A5,A2 STO
0x202458…2025ec Dummy {f00=0x0098, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x2025ec…202780 Dummy {f00=0x0098, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x202780…202914 (2, 417) Dummy {f00=0x0099, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x202914…202aa8 Dummy {f00=0x0099, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x202aa8…202c3c Dummy {f00=0x0099, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x202c3c…202dd0 Dummy {f00=0x0099, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x202dd0…202f64 Dummy {f00=0x0099, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x202f64…2030f8 Dummy {f00=0x0099, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x2030f8…20328c Dummy {f00=0x0099, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x20328c…203420 Dummy {f00=0x0099, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x203420…2035b4 (2, 418) Dummy {f00=0x0099, f01=0x0190, f02=» = & P ADR A4,A5 UPDATE BUFFER ADDRESSES > P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x2035b4…203748 Dummy {f00=0x0099, f01=0x402e, f02=»IF > P* ? P* ? P END ? @ ? * P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x203748…2038dc Dummy {f00=0x0099, f01=0x2008, f02=» @ + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x2038dc…203a70 Dummy {f00=0x0099, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x203a70…203c04 Dummy {f00=0x0099, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x203c04…203d98 Dummy {f00=0x0099, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x203d98…203f2c Dummy {f00=0x0099, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x203f2c…2040c0 Dummy {f00=0x0099, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x2040c0…204254 (2, 419) Opaque[0x194]
0x204254…2043e8 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b18, f03=0x0000}
0x204254…2043e8 IdxSect {
0x204254…2043e8 f00 = 0x0058 // 0x204254 @0x0
0x204254…2043e8 f01 = 0x0002 // 0x204256 @0x2
0x204254…2043e8 gno = [ // 0x204258 @0x4
0x204254…2043e8 [0x00]: C0x0058.0x3.0
0x204254…2043e8 ]
0x204254…2043e8 }
0x2043e8…20457c Dummy {f00=0x0058, 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 P EXTRN DVDY00 PMMUPAG EQU 1 P*
0x20457c…204710 Dummy {f00=0x0058, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x204710…2048a4 Dummy {f00=0x0058, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFFF EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x2048a4…204a38 Dummy {f00=0x0058, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x204a38…204bcc Dummy {f00=0x0058, 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
0x204bcc…204d60 Dummy {f00=0x0058, f01=0x0190, f02=» ORDER v EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA5 SAVE AREA A5 0 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT R ( P EXTRN SCTPLD PROGRAM LOADING DEVICE | ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT
0x204d60…204ef4 (2, 420) Opaque[0x194]
0x204ef4…205088 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b78, f03=0x0000}
0x204ef4…205088 IdxSect {
0x204ef4…205088 f00 = 0x005b // 0x204ef4 @0x0
0x204ef4…205088 f01 = 0x0002 // 0x204ef6 @0x2
0x204ef4…205088 gno = [ // 0x204ef8 @0x4
0x204ef4…205088 [0x00]: C0x005b.0x3.0
0x204ef4…205088 ]
0x204ef4…205088 }
0x205088…20521c Dummy {f00=0x005b, 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
0x20521c…2053b0 Dummy {f00=0x005b, 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
0x2053b0…205544 Dummy {f00=0x005b, 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,
0x205544…2056d8 Dummy {f00=0x005b, 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
0x2056d8…20586c Dummy {f00=0x005b, 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
0x20586c…205a00 Dummy {f00=0x005b, 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
0x205a00…205b94 (2, 421) Opaque[0x194]
0x205b94…205d28 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1350, f03=0x0000}
0x205b94…205d28 IdxSect {
0x205b94…205d28 f00 = 0x009a // 0x205b94 @0x0
0x205b94…205d28 f01 = 0x0002 // 0x205b96 @0x2
0x205b94…205d28 gno = [ // 0x205b98 @0x4
0x205b94…205d28 [0x00]: C0x009a.0x2.0
0x205b94…205d28 ]
0x205b94…205d28 }
0x205d28…205ebc Dummy {f00=0x009a, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB02 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 1 P*
0x205ebc…206050 Dummy {f00=0x009a, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x206050…2061e4 Dummy {f00=0x009a, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY01 DVDY01O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLAC
0x2061e4…206378 Dummy {f00=0x009a, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x206378…20650c Dummy {f00=0x009a, 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
0x20650c…2066a0 Dummy {f00=0x009a, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x2066a0…206834 (2, 422) Opaque[0x194]
0x206834…2069c8 # DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1360, f03=0x0000}
0x206834…2069c8 IdxSect {
0x206834…2069c8 f00 = 0x009b // 0x206834 @0x0
0x206834…2069c8 f01 = 0x0002 // 0x206836 @0x2
0x206834…2069c8 gno = [ // 0x206838 @0x4
0x206834…2069c8 [0x00]: C0x009b.0x0.0
0x206834…2069c8 ]
0x206834…2069c8 }
0x2069c8…206b5c Dummy {f00=0x009b, f01=0x018e, f02=» 2 P IDENT DVTP01 REL 9.2 79-11-16 870105040920 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x206b5c…206cf0 Dummy {f00=0x009b, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTP01 ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADD
0x206cf0…206e84 Dummy {f00=0x009b, f01=0x40f6, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER B P IFT MMUPAG=1 n PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ AREA USER ECB ADD
0x206e84…207018 Dummy {f00=0x009b, 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
0x207018…2071ac Dummy {f00=0x009b, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x2071ac…207340 Dummy {f00=0x009b, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x207340…2074d4 (2, 423) Opaque[0x194]
0x2074d4…207668 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1370, f03=0x0000}
0x2074d4…207668 IdxSect {
0x2074d4…207668 f00 = 0x009b // 0x2074d4 @0x0
0x2074d4…207668 f01 = 0x0002 // 0x2074d6 @0x2
0x2074d4…207668 gno = [ // 0x2074d8 @0x4
0x2074d4…207668 [0x00]: C0x009b.0x2.0
0x2074d4…207668 ]
0x2074d4…207668 }
0x207668…2077fc Dummy {f00=0x009b, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * T
0x2077fc…207990 Dummy {f00=0x009b, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x207990…207b24 Dummy {f00=0x009b, 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,
0x207b24…207cb8 Dummy {f00=0x009b, 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
0x207cb8…207e4c Dummy {f00=0x009b, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x207e4c…207fe0 Dummy {f00=0x009b, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x207fe0…208174 (2, 424) Opaque[0x194]
0x208174…208308 # DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fb8, f03=0x0000}
0x208174…208308 IdxSect {
0x208174…208308 f00 = 0x007d // 0x208174 @0x0
0x208174…208308 f01 = 0x0002 // 0x208176 @0x2
0x208174…208308 gno = [ // 0x208178 @0x4
0x208174…208308 [0x00]: C0x007d.0x3.0
0x208174…208308 ]
0x208174…208308 }
0x208308…20849c Dummy {f00=0x007d, f01=0x0190, f02=» 2 P IDENT DVKB02 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB02 TABLE ENTRY r P EXTRN CTAB03 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY02 PMMUPAG EQU 1 P*
0x20849c…208630 Dummy {f00=0x007d, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x208630…2087c4 Dummy {f00=0x007d, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY02 DVDY02O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLAC
0x2087c4…208958 Dummy {f00=0x007d, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x208958…208aec Dummy {f00=0x007d, 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
0x208aec…208c80 Dummy {f00=0x007d, f01=0x0190, f02=» W t SETIMP , ( Y X " P :A & * & : R Q W Y <D X V , ( ? ?: T p > > , ( P P C B T , ( B % X . $ 4 T
0x208c80…208e14 (2, 425) Opaque[0x194]
0x208e14…208fa8 # DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1458, f03=0x0000}
0x208e14…208fa8 IdxSect {
0x208e14…208fa8 f00 = 0x00a2 // 0x208e14 @0x0
0x208e14…208fa8 f01 = 0x0002 // 0x208e16 @0x2
0x208e14…208fa8 gno = [ // 0x208e18 @0x4
0x208e14…208fa8 [0x00]: C0x00a2.0x3.0
0x208e14…208fa8 ]
0x208e14…208fa8 }
0x208fa8…20913c Dummy {f00=0x00a2, f01=0x0190, f02=» 2 P IDENT DVDI02 REL 9.2 79-11-16 870105040920 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI02 DISPLAY INDICATOR 03 P* P*
0x20913c…2092d0 Dummy {f00=0x00a2, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI02 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x2092d0…209464 Dummy {f00=0x00a2, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x209464…2095f8 Dummy {f00=0x00a2, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x2095f8…20978c Dummy {f00=0x00a2, f01=0x0190, f02=»1 LOOP 3 & P ABL(NN) DMT900 CHECK THIS EXTENT 4 P XIF 4 8 P IFT INDXAC=1 4 D P EJECT 4 Z P* 4 h P* ALL EXTENTS CHECKED 4 r P* RELEASE MASRTER INDEX 4 P* 4 P INH 4 & P LD A1,FDBMIA,A6 MASTER INDEX ADDR 4 P RF(Z) DMT894 NO MAT
0x20978c…209920 Dummy {f00=0x00a2, f01=0x018e, f02=» DMT894 NO MATER IX 4 P CW A1,MXIND+2,A5 5 P RB(NE) DMT885 5 6 P LD A4,MXIND,A5 5 L & P RF(N) DMT890 PREVIOUS ENTRY USED 5 d " P LD A4,MXIND+4,A5 NO OF WORDS 5 P ANKL A4,/7FFF REMOV USE BIT 5 P ADS A4,MXIND,A5 NR OF WORDS 5 P* 5 P*
0x209920…209ab4 (2, 426) Opaque[0x194]
0x209ab4…209c48 # DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1468, f03=0x0000}
0x209ab4…209c48 IdxSect {
0x209ab4…209c48 f00 = 0x00a3 // 0x209ab4 @0x0
0x209ab4…209c48 f01 = 0x0002 // 0x209ab6 @0x2
0x209ab4…209c48 gno = [ // 0x209ab8 @0x4
0x209ab4…209c48 [0x00]: C0x00a3.0x1.0
0x209ab4…209c48 ]
0x209ab4…209c48 }
0x209c48…209ddc Dummy {f00=0x00a3, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY02 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY02 EQU * T
0x209ddc…209f70 Dummy {f00=0x00a3, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x209f70…20a104 Dummy {f00=0x00a3, 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,
0x20a104…20a298 Dummy {f00=0x00a3, 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
0x20a298…20a42c Dummy {f00=0x00a3, 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
0x20a42c…20a5c0 Dummy {f00=0x00a3, 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* =
0x20a5c0…20a754 (2, 427) Opaque[0x194]
0x20a754…20a8e8 # DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1478, f03=0x0000}
0x20a754…20a8e8 IdxSect {
0x20a754…20a8e8 f00 = 0x00a3 // 0x20a754 @0x0
0x20a754…20a8e8 f01 = 0x0002 // 0x20a756 @0x2
0x20a754…20a8e8 gno = [ // 0x20a758 @0x4
0x20a754…20a8e8 [0x00]: C0x00a3.0x3.0
0x20a754…20a8e8 ]
0x20a754…20a8e8 }
0x20a8e8…20aa7c Dummy {f00=0x00a3, f01=0x018e, f02=» 2 P IDENT DVGP03 REL 9.2 79-11-16 870105040920 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP03 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP03 EQU *
0x20aa7c…20ac10 Dummy {f00=0x00a3, f01=0x0190, f02=» P DATA DWTEND-DVGP03 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA 'GP' TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x20ac10…20ada4 Dummy {f00=0x00a3, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x20ada4…20af38 Dummy {f00=0x00a3, 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
0x20af38…20b0cc Dummy {f00=0x00a3, 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
0x20b0cc…20b260 Dummy {f00=0x00a3, 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,
0x20b260…20b3f4 (2, 428) Opaque[0x194]
0x20b3f4…20b588 # DirEnt {nam=»DVTP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1488, f03=0x0000}
0x20b3f4…20b588 IdxSect {
0x20b3f4…20b588 f00 = 0x00a4 // 0x20b3f4 @0x0
0x20b3f4…20b588 f01 = 0x0002 // 0x20b3f6 @0x2
0x20b3f4…20b588 gno = [ // 0x20b3f8 @0x4
0x20b3f4…20b588 [0x00]: C0x00a4.0x1.0
0x20b3f4…20b588 ]
0x20b3f4…20b588 }
0x20b588…20b71c Dummy {f00=0x00a4, f01=0x018e, f02=» 2 P IDENT DVTP04 REL 9.2 79-11-16 870105040920 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTP04 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x20b71c…20b8b0 Dummy {f00=0x00a4, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTP04 ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADD
0x20b8b0…20ba44 Dummy {f00=0x00a4, f01=0x40f6, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER B P IFT MMUPAG=1 n PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ AREA USER ECB ADD
0x20ba44…20bbd8 Dummy {f00=0x00a4, 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
0x20bbd8…20bd6c Dummy {f00=0x00a4, f01=0x4134, f02=»03 z PTC03E EQU * PTC04 DATA TC04E-* & P DATA /0030 H P DATA DVTP04 h P DATA /0231 P DATA DVTP04 P DATA /0132 P DATA DVTP04 P
0x20bd6c…20bf00 Dummy {f00=0x00a4, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x20bf00…20c094 (2, 429) Opaque[0x194]
0x20c094…20c228 # DirEnt {nam=»M:92SP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0f18, f03=0x0000}
0x20c094…20c228 IdxSect {
0x20c094…20c228 f00 = 0x0078 // 0x20c094 @0x0
0x20c094…20c228 f01 = 0x0022 // 0x20c096 @0x2
0x20c094…20c228 gno = [ // 0x20c098 @0x4
0x20c094…20c228 [0x00]: C0x0078.0x3.0
0x20c094…20c228 [0x01]: C0x0079.0x0.0
0x20c094…20c228 [0x02]: C0x0079.0x1.0
0x20c094…20c228 [0x03]: C0x0079.0x2.0
0x20c094…20c228 [0x04]: C0x0079.0x3.0
0x20c094…20c228 [0x05]: C0x007a.0x0.0
0x20c094…20c228 [0x06]: C0x00b4.0x1.0
0x20c094…20c228 [0x07]: C0x00b4.0x2.0
0x20c094…20c228 [0x08]: C0x00b4.0x3.0
0x20c094…20c228 [0x09]: C0x00b5.0x0.0
0x20c094…20c228 [0x0a]: C0x00b5.0x1.0
0x20c094…20c228 [0x0b]: C0x00b5.0x2.0
0x20c094…20c228 [0x0c]: C0x00b5.0x3.0
0x20c094…20c228 [0x0d]: C0x00b6.0x0.0
0x20c094…20c228 [0x0e]: C0x00b6.0x1.0
0x20c094…20c228 [0x0f]: C0x00b6.0x2.0
0x20c094…20c228 [0x10]: C0x00b6.0x3.0
0x20c094…20c228 ]
0x20c094…20c228 }
0x20c228…20c3bc Dummy {f00=0x0078, f01=0x0190, f02=» Z x x x x x x ` x xN O H x R x x x x x x H x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x ~ c @ Tg t z ^ b bLPL H b2 Z ` z
0x20c3bc…20c550 Dummy {f00=0x0078, 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 t " lp _ @lp > > U # T @ x H ( ( P c P W~ T P> , T6 L lD M 0 - AlD Q @ ~P A ~
0x20c550…20c6e4 Dummy {f00=0x0078, f01=0x0190, f02=» A D ^_* F 8 lv Q Z P 0 9 _ 4 P _, ? P H H #P x A t A VQ ? @ln J ) Aln_ P P A X 8 Alp_ ? ? ? ? ? ^ A _ _ ^ ln $P T I R $ 5 % > ? W ? W ? T T$
0x20c6e4…20c878 Dummy {f00=0x0078, f01=0x0190, f02=»T ~ 0 AlB 1 Q Q > > 0 @lB 1 AlB 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 > > > > > > @D V ? D > _ > ? _ > > ? ^ ! Y ^
0x20c878…20ca0c Dummy {f00=0x0078, f01=0x0190, f02=» A D _* F 8 Q Z P 0 9 _ 4 _, ? P H H #P x A A VQ ? @ J ) A _ P P A X A _ ? ? ? ? ? ^ A _ _ ^ $P T I R $ 5 % > ? W ? W ? T T
0x20ca0c…20cba0 Dummy {f00=0x0078, f01=0x0190, f02=»T ~ 0 A 1 Q Q > > 0 @ 1 P P > ? X " R" Y #L 1 $ $V D A ~( @lF lDX H AlF ) @ H P 1 % E I L U M (@ D >a @ <a H D |
0x20cba0…20cd34 (2, 430) Dummy {f00=0x0079, f01=0x0190, f02=» # p ' lv( B T :" U U F lD M 0 - AlD Q '_D >W lHJ B B lPJ B B pU lPJ BAB rU lRJ B B pU lRJ BQB rU
0x20cd34…20cec8 Dummy {f00=0x0079, f01=0x0190, f02=» A t ? W A t ? W A t ? W U R ; V # T R p X # PJ P X 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'
0x20cec8…20d05c Dummy {f00=0x0079, f01=0x0190, f02=» y $W $ ^ P 8R R l Y $ X Z ;BR 8% =A Y T Z& _, X ' X 4X< XB U T T U 5 U R " ] l ;h # <c$ P X X " Z & "X 8# T& 8Z V2 X # T 8R X $P y $ Y $ X ' X (@
0x20d05c…20d1f0 Dummy {f00=0x0079, f01=0x0190, f02=»_ ? 4 U 5 R PF "P2 R T T R X # X > P P P X XF _H Wj ? T T ^ W u > > E D E E S( % ;DV " U D $ P #`P T E l _ " P T 8! P6 Y Y Y Y
0x20d1f0…20d384 Dummy {f00=0x0079, f01=0x0190, f02=»RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] Y > > V P X P P _ ] W Q Y _: @ T P X R4 @ U S U t " D P D T U
0x20d384…20d518 Dummy {f00=0x0079, f01=0x0190, f02=» T 8TV 9WD B 7P P l AllW All @llA.W ? A tI.9 X R C C l ?A @llA. X V 9_: @ $ T E _ " P T 8! P Y Y Y Y
0x20d518…20d6ac Dummy {f00=0x0079, f01=0x0190, f02=»RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] Y > > V P X P P _ ] W Q Y _: @ T P X R4 @ U S U
0x20d6ac…20d840 Dummy {f00=0x0079, f01=0x0190, f02=» # L Y :e X BY, X @P& Y @ ! 9 R ! 9 R Y @ Wb P UH ! ! ! P WF X @ @ @ ! ! 8! P W* P& ! ! .! P W ! ! .! P > X FP _ X D ( ^ W b X @X$_ W P W B " 0 Y , Y . 4 X @:C* WB W>
0x20d840…20d9d4 (2, 431) Dummy {f00=0x0079, f01=0x0190, f02=» " ! n P X > Y '? _< @ X2 a W<_J Y " ! n P X> X4 0P -_z ^ _ A _v A t ? I F 9AZf9a X <V # T X X X '? 4 T B C X P X " I $ l Y < Y ! Td ! Y @ ! ^! TR 0 X
0x20d9d4…20db68 Dummy {f00=0x0079, f01=0x0190, f02=» B B r s L T 1 WP B B PD P l V - 0 P A # +T W Q P P 1 ! T V C B Q 1 l Y @ r t B X _ ? & X Z&W A t ?I & X '
0x20db68…20dcfc Dummy {f00=0x0079, f01=0x0190, f02=» ! P X Y '? _< @ X2 a W _J Y ! P X> X4 0P -_z _ A _v A t ? I F 9AZf9a X V # T X X X '? 4 T B C X P X " I 8 8 ,
0x20dcfc…20de90 Dummy {f00=0x0079, f01=0x0190, f02=»Z 0P R I W _" H P 4 I > T C T, V. Y T Pn q 0 ) W` X P T& B RNP" A @ ` A ^ W> @W& T" P X T T W C 8W T 8P Y ^ 5 ) P U
0x20de90…20e024 Dummy {f00=0x0079, f01=0x0190, f02=» T P H T _ X I Y T # C C W4 O " # X Y ) C C x '? Y T Y W Y T # P W ` Y P R R P HP (@ T(@ " 2 X $? P Z$ > >
0x20e024…20e1b8 Dummy {f00=0x0079, f01=0x0190, f02=»: C > B R Q~ P0 B P* 0$ T # R QL L > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & l X B D C > X H UJ H B P PL $ # Q > P
0x20e1b8…20e34c Dummy {f00=0x0079, f01=0x0190, f02=» > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M X D ( ) 1 > _" X X T U lv Y _| ?(@ X P& T D #DP 0P X T 4 Y X X T X A
0x20e34c…20e4e0 Dummy {f00=0x0079, f01=0x0190, f02=»P T P 0P 1 _ W Y > > T H l ` B L _ _< ? ^ 4 _ ` ` @ F 1 A F _ P 9 > > R @ U 9C @ T M D _ W^ M $R M Alp 2
0x20e4e0…20e674 (2, 432) Dummy {f00=0x0079, f01=0x0190, f02=» P d !Z!Z" " " " " "v"v! !r",! ! " " ! "v"v! ! " # $ % "$&( b @ D X P _ L !##P T @ R $P U + U _ (@(@ I P ^ " H Y H d B # X ( U " B r C
0x20e674…20e808 Dummy {f00=0x0079, f01=0x0190, f02=»A H H S W C C B B B U A^ R Wp H TP L P B r L ( C $ X _ X ` T I T J @v P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 B< T.(@(@ P #D #
0x20e808…20e99c Dummy {f00=0x0079, f01=0x0190, f02=» - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @lp Q (@ F D : @ x_ lp ( H > # X &Pj D ^V" D "? P P &P E ^ C V, P ( $L( (
0x20e99c…20eb30 Dummy {f00=0x0079, f01=0x0190, f02=» P W T Y $ P T _ Y & F v ~(@ _ & X & X I U X J U ( B T$ X X RP F # T (( P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF A N 4 5W
0x20eb30…20ecc4 Dummy {f00=0x0079, f01=0x0190, f02=» 9 ~ (> 4' % ' % 5 % 4 , W , P& ,' X X 1 Z" ) % _ (@ C A % ( B ! (( % @# F U G F G # (& & ( F " F +P P* X $ T A^ U W A^ R P> $P8W (( X ( X &
0x20ecc4…20ee58 Dummy {f00=0x0079, f01=0x0190, f02=» F " F D '? P P( $ P" A I I K K P P & P A W D $ T A^ T A W E I E J X ^V ? T B v (@( : B B P ! Tn M + : (P A J A L" P "" P + : @
0x20ee58…20efec Dummy {f00=0x0079, f01=0x0190, f02=» @ + A @ H + B v D E X #D( (|( B v B @ D W C C ( (P (R 4 @ HT A 8 0" + + U _ L !SSP !LL + W L @ A V + P E @ E P E " P E $
0x20efec…20f180 Dummy {f00=0x0079, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ 8 S , d S B | ) ) @ T W 2T Wz @ HP R ( >a U Wb 0 =b P P @ ! T. W< P D Y P " Y P $ Y U ! T !
0x20f180…20f314 (2, 433) Dummy {f00=0x0079, f01=0x0190, f02=» -W P B v ~ (@( @ H ,H _ T ` ` 9A S ^ H $X D S . S $ CX R * S W S _ S ` R ( R * @ S b + U _ L !SSP !LL W L @ A V P E @ E P E P E
0x20f314…20f4a8 Dummy {f00=0x0079, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | ) ) @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T !
0x20f4a8…20f63c Dummy {f00=0x0079, f01=0x0190, f02=» -W P B (@( @ ,H _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b + U _ L !SSP !LL W L @ A V P E @ E P E P E
0x20f63c…20f7d0 Dummy {f00=0x0079, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | ) ) @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T !
0x20f7d0…20f964 Dummy {f00=0x0079, f01=0x0190, f02=» -W P B (@( @ ,H _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b + U _ L !SSP !LL W L @ A V P E @ E P E P E
0x20f964…20faf8 Dummy {f00=0x0079, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | ) ) @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T !
0x20faf8…20fc8c Dummy {f00=0x0079, f01=0x0190, f02=» -W P B (@( @ ,H _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b + U _ L !SSP !LL W L @ A V P E @ E P E P E
0x20fc8c…20fe20 Dummy {f00=0x0079, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | ) ) @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T !
0x20fe20…20ffb4 (2, 434) Dummy {f00=0x007a, f01=0x0190, f02=» -W P B (@( @ ,H _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b + U _ L !SSP !LL W L @ A V P E @ E P E P E
0x20ffb4…210148 Dummy {f00=0x007a, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | ) ) @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T !
0x210148…2102dc Dummy {f00=0x007a, f01=0x0190, f02=» -W P B (@( @ ,H _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b + U _ L !SSP !LL W L @ A V P E @ E P E P E
0x2102dc…210470 Dummy {f00=0x007a, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | ) ) @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T !
0x210470…210604 Dummy {f00=0x007a, f01=0x0190, f02=» -W P B (@( @ ,H _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b + U _ L !SSP !LL W L @ V P E @ E P E P E
0x210604…210798 Dummy {f00=0x007a, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | ) ) @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T !
0x210798…21092c Dummy {f00=0x007a, f01=0x0190, f02=»P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ 0 T !##P> ? R4 L TX P L P 4 M X M M _8 > 6 D LW 0P Q P P E +P W : X + ` X L 1 Y L :
0x21092c…210ac0 Dummy {f00=0x007a, f01=0x0190, f02=» U 1_ D + I D N ) E N : T * @ SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $
0x210ac0…210c54 (2, 435) Dummy {f00=0x00b4, f01=0x0190, f02=» T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $
0x210c54…210de8 Dummy {f00=0x00b4, f01=0x0190, f02=» F F2W P P 5P, l G. l X P W B Y "W X " l W| B Y @H P P $_ Ev _L _$ X 9 PhP8 @k lB l @k `k @k P 0P _ % Ak Al Y F _ B Qh Fh F X ! 3 L _ X P 0 Y P C h_
0x210de8…210f7c Dummy {f00=0x00b4, f01=0x0190, f02=»_& Y F @G 0 AG AG _: X P ( y Y W P (P 0 ) > D (P _ ) 1_ D (X( P _ 0 )_6 X " X> XB X " E L H _H H _: (P _ ) 1 4 Ph X R2 X T* X P& , Y L C L C h > @D @D @D AD X
0x210f7c…211110 Dummy {f00=0x00b4, f01=0x0190, f02=» P 5 BHBB D !O2 B !OXT P P J@ J JX !OXTf Tb APiP APhTR !OXTL !OXTD T@ !O@ T8 !O@A I AH P " Kx !Ov L _ !Ov T Ph K0" X !O@_ !PB AH @G P @G P !L> AG AG _ !PB @G P @P X@ !
0x211110…2112a4 Dummy {f00=0x00b4, f01=0x0190, f02=»P AH F @G 8 H @P P E PhP^ X RX X P X TJ P C F C P " H " P X * Y X T !G W hW( W" X R X T !G G. !M* H X ! _ X !M8W. AG @G AH Y " @ _R !PB @G T @G P !M^ H !PB @G T @G X Wx A I G
0x2112a4…211438 Dummy {f00=0x00b4, f01=0x0190, f02=»H _ AH K B AG @H T _2 _6 @G G AH AG X ! XD Y _N @G TH X ! P !M< H # T @P T !M8_ !Kb !M*_ AG AH E AH AG 4 @G P !MR !P H !O @H P !N| !P AG H @D T !MN_ T F _ H AG b C @ B B AH AH AH AH A
0x211438…2115cc Dummy {f00=0x00b4, f01=0x0190, f02=» Y W H F P C F AG AG @H P X Y 4 @P @H T @H AH @H AH AH !OXT2 P4 PJ PL P P. 1 AH @H ]6W P _@ @P @H E !PRP !O2 4 _$ !PR 2_l 1 AH T 0W ;W < AH AH W W W AH AH !N @H !
0x2115cc…211760 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~T }T T0 W, !OH P " ! " :A *@ H T 0 !OH W R !OH AH @H @H U< Zt Q P Q T 0 !OH AH 0 !OH AH !OH !OH Mr AH _ AH AG !N !O8 @Pi !OH 8 !OH X ! 9a DH !OH X ! P ! T & !OH_P B J B !O@ !O8 4 A
0x211760…2118f4 (2, 436) Dummy {f00=0x00b4, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @k `k @k P 0 M AOt 4 @k `k @k P $ Y F _ @ AD G. @D T P H D @ AD G. P l AD aD G. 4 O X AD > P" Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x2118f4…211a88 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x211a88…211c1c Dummy {f00=0x00b4, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x211c1c…211db0 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x211db0…211f44 Dummy {f00=0x00b4, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x211f44…2120d8 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x2120d8…21226c Dummy {f00=0x00b4, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x21226c…212400 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~ }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x212400…212594 (2, 437) Dummy {f00=0x00b4, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x212594…212728 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~ }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x212728…2128bc Dummy {f00=0x00b4, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x2128bc…212a50 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~ }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x212a50…212be4 Dummy {f00=0x00b4, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x212be4…212d78 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~ }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x212d78…212f0c Dummy {f00=0x00b4, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x212f0c…2130a0 Dummy {f00=0x00b4, f01=0x0190, f02=»R ~ }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x2130a0…213234 (2, 438) Dummy {f00=0x00b5, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x213234…2133c8 Dummy {f00=0x00b5, f01=0x0190, f02=»R ~ }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt Q P Q T 0 ! AH 0 ! AH ! ! Mr AH _ AH AG ! ! @ ! 8 ! X ! 9a DH ! X ! P ! T & ! _P B J B ! ! 4 A
0x2133c8…21355c Dummy {f00=0x00b5, f01=0x0190, f02=»Y X 2 _ !O@ 9AP ^ 2 _ " ! 1 4 AOt @ ` @ P 0 M AOt 4 @ ` @ P $ Y F _ @ AD G. @D T H D @ AD G. AD aD G. 4 O X AD > Z AH 4 AH D !O2 @G P !MR !P H @H P aH AH 4 AH !
0x21355c…2136f0 Dummy {f00=0x00b5, f01=0x0190, f02=»R ~ }T T W ! P " ! " :A *@ H T 0 ! W R ! AH @H @H U Zt :f"? Hk !OH "? Hk !OH 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="l l
0x2136f0…213884 Dummy {f00=0x00b5, f01=0x0190, f02=»]@ , ) L P $R 2_, Alp P* P Y U ( ) 5 & > > [ [ lp Z PJ D 0P P - I 1 P Z $ " @ @ - P _ Z 9B @ U W Z Z Z ? Z > P "R Y W @ l Pl T Pb _ <UR "R4 PB X R< X T6
0x213884…213a18 Dummy {f00=0x00b5, f01=0x0190, f02=» U R -P pL X , ) Y . p8 X P Y P C W~ 8!@P$ X $P P y $W $ ^p Y $ X " PP:A: R Q W Y <D X ? ?: T p > q > Ph P C p6 B p6 T B % X . $ 4 T % p X ,T ! , P pH q Y
0x213a18…213bac Dummy {f00=0x00b5, f01=0x0190, f02=»Q P OR R W " ! B n Wr W 0 Z q ! B Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P q _ X $P y $ Y $ C ! l " q QfR$ X # P X R6;GV2 X $P P y $ D p P8 X R2;GV. X " n
0x213bac…213d40 Dummy {f00=0x00b5, f01=0x0190, f02=» @RT V @% =cWP R`P R&P8 R P W 9 WD $ P W _ $ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _ d q t:tV!"&';<>@^_ 9: X ! Y Mq P ^ l Y Lr r r rhr r6r0sBsH !
0x213d40…213ed4 (2, 439) Dummy {f00=0x00b5, f01=0x0190, f02=» ! ! ! W !t !sN Y ! T ! V q ! B C ! ! T " T W Q " T ) l !t q Y _ ! !t Y &P Q W ! Y '" tf_" q _< !t _n !t _t B B , ! T _ D ! P ! P W C V B P ! !
0x213ed4…214068 Dummy {f00=0x00b5, f01=0x0190, f02=» ,' q ! R !__U C X ' W Y ! _ X RT U TJ D X r ? Y X P " ! Y ' ! X T ! l q l R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' q ! ! " P ,$ , ! 4!"$&;<>@
0x214068…2141fc Dummy {f00=0x00b5, f01=0x0190, f02=» Y vX j U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P j j" $ P X & X ]r ! Y Y Y _ j" Hu _ ! ! vH l X C _ X Y & Y > B B U$ $ ! T _ U D ! T
0x2141fc…214390 Dummy {f00=0x00b5, f01=0x0190, f02=» X # ! ^ Y _( ? X Z ! P4 P v6 v: X " u ! ! X & v v> wj w w B 8# T $ # ;D 7P P l Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y l l ? X _F w { z2zDz y
0x214390…214524 Dummy {f00=0x00b5, f01=0x0190, f02=» B 1 {$ ! z B B U4 $ ! T _ U D ! T _ $$ X" X& X* C j y X`" Ew P( 8'0P Ew TD ! T 9 _ ! T @_ ! j B P !{ B C y ^N P R ?] _ C _ j j" $ P X ' X
0x214524…2146b8 Dummy {f00=0x00b5, f01=0x0190, f02=» T Y & T X & C l X Y & Y > X " X &" Y )Q Y > X Z2<BR J D ? Y ! T X ! Y & Zl y T _ ! X $ P !z x R V P P" ! z W z X $ X !z _ X $ X X & !{ !{ Y _8
0x2146b8…21484c Dummy {f00=0x00b5, f01=0x0190, f02=» Y !{ X $ X & !{ X * x x| `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 z > T j B P ! B C ^N P R ?] _ C _ j j" $ P X ' X
0x21484c…2149e0 Dummy {f00=0x00b5, f01=0x0190, f02=» T Y & T X & C l X Y & Y > X " X &" Y )Q Y > X Z2<BR J D ? Y ! T X ! Y & Zl y T _ ! X $ P ! x R V P P ! z W z X $ X ! _ X $ X X & ! ! Y _8
0x2149e0…214b74 (2, 440) Dummy {f00=0x00b5, f01=0x0190, f02=» Y !{ X $ X & !{ X * x x| `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 z > j B P ! B C ^N P R ?] _ C _ j j" $ P X ' X
0x214b74…214d08 Dummy {f00=0x00b5, f01=0x0190, f02=» T Y & T X & C l X Y & Y > X " X &" Y )Q Y > X Z2<BR J D ? Y ! T X ! Y & Zl y T _ ! X $ P ! x R V P P ! z W z X $ X ! _ X $ X X & ! ! Y _8
0x214d08…214e9c Dummy {f00=0x00b5, f01=0x0190, f02=» Y !{ X $ X & !{ X * x x| `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 z > j B P ! B C ^N P R ?] _ C _ j j" $ P X ' X
0x214e9c…215030 Dummy {f00=0x00b5, f01=0x0190, f02=» T Y & T X & C l X Y & Y > X " X &" Y )Q Y > X Z2<BR J D ? Y ! T X ! Y & Zl y T _ ! X $ P ! x R V P P ! z W z X $ X ! _ X $ X X & ! ! Y _8
0x215030…2151c4 Dummy {f00=0x00b5, f01=0x0190, f02=» Y !{ X $ X & !{ X * x x| `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 z > j B P ! B C ^N P P P .T B Y Wx B P X P (
0x2151c4…215358 Dummy {f00=0x00b5, f01=0x0190, f02=»P P R: A ^ B Y X T Q (P H U ^ 9 1_N l X T @| P ( A| | _ ( Y _ { _x X T @{ P ( A{ |_ ( Y _ | _ i Z 9 @_ ~ H { P | P $ $ 1 ) > ) $P e % > (@ B Z F U F Z
0x215358…2154ec Dummy {f00=0x00b5, f01=0x0190, f02=» {|[_m TOSS' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B "RT PL X TF X R@? V X & X H P X P Y X H P
0x2154ec…215680 Dummy {f00=0x00b5, f01=0x0190, f02=» W A A @ U : A T A V:A A , ` R @ U P. ,% T& : C ( B P T W ' T| I @ 8 =hP Y X Pl 0T< Y H ! R W 9a I T T 9a H E T ^ W P ,! T T ( : ~ "
0x215680…215814 (2, 441) Dummy {f00=0x00b5, f01=0x0190, f02=»P @ E "# P P @ P ( )W @ 0 R % "V E T D A P_" P @ P ( )W @ 0 Rb ' F "R G R @ D #D T G W, A H (| "R A H A 2 l
0x215814…2159a8 Dummy {f00=0x00b5, f01=0x0190, f02=» W A A @ U : A T A V:A A , ` R @ U P ,% T : C ( B P T W ' T I @ 8 =hP Y X P 0T Y H ! R W 9a I T T 9a H E T ^ W P ,! T T ( : ~ "
0x2159a8…215b3c Dummy {f00=0x00b5, f01=0x0190, f02=»P @ E "# P P @ P ( )W @ 0 R % "V E T D A P_" P @ P ( )W @ 0 Rb ' F "R G R @ D #D T G W, A H (| "R A H A 2 l
0x215b3c…215cd0 Dummy {f00=0x00b5, f01=0x0190, f02=» W A A @ U : A T A V:A A , ` R @ U P ,% T : C ( B P T W ' T I @ 8 =hP Y X P 0T Y H ! R W 9a I T T 9a H E T ^ W P ,! T T ( : ~ "
0x215cd0…215e64 Dummy {f00=0x00b5, f01=0x0190, f02=»P @ E "# P P @ P ( )W @ 0 R % "V E T D A P_" P @ P ( )W @ 0 Rb ' F "R G R @ D #D T G W, A H (| "R A H A 2 l
0x215e64…215ff8 Dummy {f00=0x00b5, f01=0x0190, f02=» W A A @ U : :A A , ` R @ U P ,% T : C ( B P T W ' T I @ 8 =hP Y X P 0T Y H ! R W 9a I T T 9a H E T ^ W P ,! T T ( : ~ "
0x215ff8…21618c Dummy {f00=0x00b5, f01=0x0190, f02=»P @ E "# P P @ P ( )W @ 0 R % "V A P_" P @ P ( )W @ 0 Rb ' F "R G R @ D #D T G W, A H (| "R A H A 2 l
0x21618c…216320 Dummy {f00=0x00b5, f01=0x0190, f02=» W A A @ U : :A A , ` R @ U P ,% T : C ( B P d W ' T I @ 8 =hP Y X P 0T Y H ! R W 9a I T T 9a H E T ^ W P ,! T T ( : ~ "
0x216320…2164b4 (2, 442) Dummy {f00=0x00b6, f01=0x0190, f02=»P @ E "# P P @ P ( )W @ 0 R % "V A P_" P @ P ( )W @ 0 Rb ' F "R G R @ #D T G W, A H (| "R A H A 2 l
0x2164b4…216648 Dummy {f00=0x00b6, f01=0x0190, f02=» W A A @ U : :A A , ` R @ U P ,% T : C ( B P W ' T I @ 8 =hP Y X P 0T Y H ! R W 9a I @ , L T L PF L T M Q M L V L A @ : T
0x216648…2167dc Dummy {f00=0x00b6, f01=0x0190, f02=» @ XPJ r , > > A> @l @ , - M M M @ A A > * Z J J * Z 0123456789 & 0123456789 & ' < +,-. 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []
0x2167dc…216970 Dummy {f00=0x00b6, f01=0x0190, f02=»NOPQRSTUVWXYZ [] > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ [] ($SWAP A A A A. X UU @ @ ! P$>B @ 6 A 6 @ 6 E D P _ $ % $P _ % A @ " Q A : R W2 A r A
0x216970…216b04 Dummy {f00=0x00b6, f01=0x0190, f02=» P X;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 X V Y P @ T W - V
0x216b04…216c98 Dummy {f00=0x00b6, f01=0x0190, f02=» X = V W Y* P Z( = :L < P W <9B @ V W Q X W @ 6 @ A ~ @ F CRT @ P @ ! P W @ V P _ @ ! P F !RRP V @ P W _: F F
0x216c98…216e2c Dummy {f00=0x00b6, f01=0x0190, f02=»_ @ V W W r r P . r TJ V 0 !;;P P V P$ _ P !;;T X$ W h_J X r T j rW j W W R V 0 !;;P P V Xb _ P !;;T X$ W h nP
0x216e2c…216fc0 Dummy {f00=0x00b6, f01=0x0190, f02=» ) H A I. : j C. & X C.9h! j j# " j j :A K : A T.I T P 1 I P < R P A _> X : A A R A A A A A A : 9e9C) A I " 9A ! 9B r @ r A I ! ( :
0x216fc0…217154 (2, 443) Dummy {f00=0x00b6, f01=0x0190, f02=» : X 9PJ 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 _ _ !SST& 0 U R X A X W : @ ' R xW
0x217154…2172e8 Dummy {f00=0x00b6, f01=0x0190, f02=»p W h T : A _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ :
0x2172e8…21747c Dummy {f00=0x00b6, f01=0x0190, f02=» X 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 _ V Z K W W
0x21747c…217610 Dummy {f00=0x00b6, f01=0x0190, f02=» 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 : W R R .P W x d 6_ V
0x217610…2177a4 Dummy {f00=0x00b6, f01=0x0190, f02=» " 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 ; V : : , X G :
0x2177a4…217938 Dummy {f00=0x00b6, f01=0x0190, f02=» : V ) Z v : 4P: " D , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W v $ H ) P _ " = D 4 Q _d = G $ V W $ V E
0x217938…217acc Dummy {f00=0x00b6, f01=0x0190, f02=» 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 Y& P4 lD lD S
0x217acc…217c60 Dummy {f00=0x00b6, f01=0x0190, f02=» > l : R W n V pT : N V l W H V ]" . nT" < W v W n V ~P r W x d d _v V d , V X P _ N L % V d V f v G G v U v G v : .P V 6
0x217c60…217df4 (2, 444) Dummy {f00=0x00b6, f01=0x0190, f02=» W r Z W V " v ) W b G " v ) - V " W f v ) G v ` " W p W ~ pP0 R .P 6_ W ~ R .X4 6_ ` @ ` W W ~ pPn v V W % R ,
0x217df4…217f88 Dummy {f00=0x00b6, f01=0x0190, f02=» W z ` pPl v H - V Z I " R F 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 F .=H N
0x217f88…21811c Dummy {f00=0x00b6, f01=0x0190, f02=» W d 2 ;A @ R X - @ - N !TTP X N :H N TBT W W8 2 " T @ X N =H N @ ) !TTXX !CCT !UUT d Wh 2 .:H N P V X _ R :h "
0x21811c…2182b0 Dummy {f00=0x00b6, f01=0x0190, f02=» D F 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 8 W W t V V : x
0x2182b0…218444 Dummy {f00=0x00b6, f01=0x0190, f02=»Y 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP X 2 @ T X Y !TTX" A 9 A : @ @ P. @ " P #D " P #E " P #F : @ " P @ P 3 _ @
0x218444…2185d8 Dummy {f00=0x00b6, f01=0x0190, f02=» X 2 W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P B P0 ` r " U X _2 R P0 ` " U X _2 V V tPJ S ( V | S
0x2185d8…21876c Dummy {f00=0x00b6, f01=0x0190, f02=» @ T X : @ ! P @ @ CRT 3 @ S @ PP !RRP @ ! T 3 @ & P 3 3 YL @ @ T X : lB ` @ P j_ j
0x21876c…218900 Dummy {f00=0x00b6, f01=0x0190, f02=» X V 2 W t * B P ` r _ R Ph W p ` W V 8 8 4 D P$ h @ # P H I K T + Y@ V p _j V t Y !TTX @ @ T X : @ R @
0x218900…218a94 (2, 445) Dummy {f00=0x00b6, f01=0x0190, f02=» ` W d p G =h G V d V r < b V f P W f _B V W V t Yr !TTX @ @ T X : !TTX !CCTr 2 P, ` V r 4 U X $ $ _. R P, ` V 4 U X $ $
0x218a94…218c28 Dummy {f00=0x00b6, f01=0x0190, f02=» p V d V r < b V f _2 R U^ ` V 8 8 8 4 D P$ h @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T X : W V @ 0 V P _ W
0x218c28…218dbc Dummy {f00=0x00b6, f01=0x0190, f02=»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 n V : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T
0x218dbc…218f50 Dummy {f00=0x00b6, f01=0x0190, f02=» / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]lHW v P _ @ @ T X : N =H N : N =H N : &=H F : F =H F : F =H F :
0x218f50…2190e4 Dummy {f00=0x00b6, f01=0x0190, f02=» > 6 @ CRT" @ ! P ` @ E "W ` @ E " Z d z ! f 1 * 0 1 2 P " @ P 0 0 L 1 L 2 L a 6 & `Ph ,{
0x2190e4…219278 Dummy {f00=0x00b6, f01=0x0190, f02=» m KB *T P 8w DY X P @ m KB F Z Z
0x219278…21940c Dummy {f00=0x00b6, f01=0x0190, f02=» 8w DY CRT" @ P m KB z Z d z R R 2wbDI ?O_o 8
0x21940c…2195a0 Dummy {f00=0x00b6, f01=0x0190, f02=» t 8w DY X P @ m KB F Z Z
0x2195a0…219734 (2, 446) Opaque[0x194]
0x219734…2198c8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef0, f03=0x0000}
0x219734…2198c8 IdxSect {
0x219734…2198c8 f00 = 0x0077 // 0x219734 @0x0
0x219734…2198c8 f01 = 0x0004 // 0x219736 @0x2
0x219734…2198c8 gno = [ // 0x219738 @0x4
0x219734…2198c8 [0x00]: C0x0077.0x2.0
0x219734…2198c8 [0x01]: C0x0077.0x3.0
0x219734…2198c8 ]
0x219734…2198c8 }
0x2198c8…219a5c Dummy {f00=0x0077, f01=0x0190, f02=» . P IDENT CTAB01 83.05.19 NJ NORDJYLLANDS AMT ENTRY CTAB01 6 P ENTRY CTAB02 L P ENTRY CTAB03 b P ENTRY CTAB04 x 8 PCTAB01 DATA FUNC,FUNCSH,DEBUG1,DEBUG2,DEBUG1,DEBUG2 PCTAB02 EQU * PCTAB03 EQU * 2 PCTAB04 DATA FUNC,FUNCS
0x219a5c…219bf0 Dummy {f00=0x0077, f01=0x0190, f02=» | P DATA /9E99 C17,D15 P DATA /9A9B D16,D17 $ P DATA /BFB5 A16,A17 @ P DATA /AAA3 A18,C18 DATA /8BA5 D18,A23 x DATA /3031 DATA /3233 DATA /3435 DATA /3637 DATA /3839 DATA /BA26 A20,
0x219bf0…219d84 Dummy {f00=0x0077, f01=0x0190, f02=»E20,E21 DATA /B0B1 E22,E23 DATA /7F7F , DATA /7F7F @ DATA /7F7F T DATA /7F7F h * | PFUNCSH EQU * P DATA /7F9F A15,B15 P DATA /BDBE B16,B17 P DATA /9C9D C15,C16 P DATA /9E99 C17,D15
0x219d84…219f18 Dummy {f00=0x0077, f01=0x018e, f02=»ATA /3233 DATA /3435 DATA /3637 & DATA /3839 : DATA /BA26 A20,A21 N P DATA /ABB4 A22,C22 j P DATA /B2A2 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,E2
0x219f18…21a0ac Dummy {f00=0x0077, f01=0x0190, f02=» ~ P DATA /7F7F P DATA /7F7F P DATA /7F27 ,C12 0 P DATA /B63C E00,A00 H P DATA /7F2B ,E11 d P DATA /2C2D B08,B10 | P DATA /2E7F B09 P DATA /3031 P DATA /3233 P DATA /3435 P DATA /3637 P DATA /3
0x21a0ac…21a240 Dummy {f00=0x0077, f01=0x018e, f02=» P DATA /4445 P DATA /4647 P DATA /4849 , P DATA /4A4B @ P DATA /4C4D T P DATA /4E4F h P DATA /5051 | P DATA /5253 P DATA /5455 P DATA /5657 P DATA /5859 P DATA /5A5C P DATA /5B5D P
0x21a240…21a3d4 (2, 447) Dummy {f00=0x0077, f01=0x0190, f02=» ~ P DATA /B63E E00,A00 P DATA /7F3F ,E11 $ P DATA /3B5F B08,B10 < P DATA /3A7F B09 X P DATA /3D21 p P DATA /2223 P DATA /2425 P DATA /262F P DATA /2829 P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13
0x21a3d4…21a568 Dummy {f00=0x0077, f01=0x0190, f02=» DATA /4A4B P DATA /4C4D P DATA /4E4F ( P DATA /5051 < P DATA /5253 P P DATA /5455 d P DATA /5657 x P DATA /5859 P DATA /5A5C P DATA /5B5D P DATA /2A7F D12 P* PDEBUG1 EQU * P DATA /207
0x21a568…21a6fc Dummy {f00=0x0077, f01=0x0190, f02=»ATA /2C2D B08,B10 P DATA /2E7F B09 P DATA /3031 2 P DATA /3233 F P DATA /3435 Z P DATA /3637 n P DATA /3839 P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA
0x21a6fc…21a890 Dummy {f00=0x0077, f01=0x0190, f02=»ATA /5051 P DATA /5253 P DATA /5455 & P DATA /5657 : P DATA /5859 N P DATA /5A5C b P DATA /5B5D v P DATA /7F7F D12 P* PDEBUG2 EQU * P DATA /207F A01 P DATA /7F7F P DATA /7F7F P DATA /7
0x21a890…21aa24 Dummy {f00=0x0077, f01=0x0190, f02=» P DATA /2223 P DATA /2425 P DATA /262F 0 P DATA /2829 D P DATA /ACA9 B12,C13 X P DATA /ADA7 E13,D13 t P DATA /A8A6 D14,E14 P DATA /4041 E12 P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4
0x21aa24…21abb8 Dummy {f00=0x0077, f01=0x4092, f02=»A /5657 P DATA /5859 P DATA /5A5C $ P DATA /5B5D 8 P DATA /7F7F D12 L P* d P* n P* x END @ ATA /A8A6 D14,E14 P DATA /4041 E12 P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4
0x21abb8…21ad4c Dummy {f00=0x0077, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x21ad4c…21aee0 Dummy {f00=0x0077, 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
0x21aee0…21b074 (2, 448) Opaque[0x194]
0x21b074…21b208 # DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ee0, f03=0x0000}
0x21b074…21b208 IdxSect {
0x21b074…21b208 f00 = 0x0077 // 0x21b074 @0x0
0x21b074…21b208 f01 = 0x0006 // 0x21b076 @0x2
0x21b074…21b208 gno = [ // 0x21b078 @0x4
0x21b074…21b208 [0x00]: C0x0077.0x0.0
0x21b074…21b208 [0x01]: C0x0078.0x0.0
0x21b074…21b208 [0x02]: C0x00a7.0x0.0
0x21b074…21b208 ]
0x21b074…21b208 }
0x21b208…21b39c Dummy {f00=0x0077, 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* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x21b39c…21b530 Dummy {f00=0x0077, 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
0x21b530…21b6c4 Dummy {f00=0x0077, 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,
0x21b6c4…21b858 Dummy {f00=0x0077, f01=0x018e, 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 IHSOP SYSTEM OPERATORS PANEL P P P P P * P EXTRN CHRT1 REMOTE CHANNEL
0x21b858…21b9ec Dummy {f00=0x0077, f01=0x0190, f02=» v P EXTRN IHDU1 DISC UNIT NO. 1 $ P EXTRN ILLINT ILLEGAL INTERRUPT , P EXTRN HALT HALT ROUTINE T P EXTRN BUG DEBUGGER t PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE &
0x21b9ec…21bb80 Dummy {f00=0x0077, f01=0x0190, f02=»DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* 8 PSEG:ST EQU 0 STATUS B $ PSEG:DS EQU 2 DISC SECTOR ADDRESS ^ " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( P
0x21bb80…21bd14 (2, 449) Dummy {f00=0x0078, f01=0x0190, f02=» EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY 0 $ PSWB:EL EQU 4 SWB LENGTH (BYTES) f & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT SYSTAB P*
0x21bd14…21bea8 Dummy {f00=0x0078, f01=0x0190, f02=»ILLINT 3 P DATA ILLINT 4 P DATA ILLINT 5 2 P DATA ILLINT 6 N P DATA ILLINT j P DATA ILLINT P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH15
0x21bea8…21c03c Dummy {f00=0x0078, f01=0x0190, f02=»ATA CHRT2 17 P DATA ILLINT P DATA ILLINT : P DATA ILLINT Z P DATA ILLINT z P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA ILLI
0x21c03c…21c1d0 Dummy {f00=0x0078, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT 31 P DATA ILLINT 32 6 P DATA ILLINT 33 R P DATA IHLP 34 n P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT
0x21c1d0…21c364 Dummy {f00=0x0078, 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
0x21c364…21c4f8 Dummy {f00=0x0078, 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 SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT
0x21c4f8…21c68c Dummy {f00=0x0078, 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 SYSTAB P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU *
0x21c68c…21c820 Dummy {f00=0x0078, 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
0x21c820…21c9b4 (2, 450) Dummy {f00=0x00a7, 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
0x21c9b4…21cb48 Dummy {f00=0x00a7, f01=0x0190, f02=»5:MMUPAG t PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS 4 PSCTBUG DATA BUG DEBUGGER X ( PSCTDMT DATA 00001 DMTASKS IN SYSTEM x P BIT 13:D2,14:D1,15:D0 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00
0x21cb48…21ccdc Dummy {f00=0x00a7, f01=0x413a, f02=»00001 DC-TASK IN SYSTEM P EJECT SYSTAB P 8 P* @ P* SYSTEM STACK J P* ` P RES 145 j P DATA /FCC0 AND PSW z & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP RB
0x21ccdc…21ce70 Dummy {f00=0x00a7, 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
0x21ce70…21d004 Dummy {f00=0x00a7, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x21d004…21d198 Dummy {f00=0x00a7, 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
0x21d198…21d32c Dummy {f00=0x00a7, 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
0x21d32c…21d4c0 Dummy {f00=0x00a7, 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
0x21d4c0…21d654 (2, 451) Opaque[0x194]
0x21d654…21d7e8 # DirEnt {nam=»M:BUG «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1100, f03=0x0000}
0x21d654…21d7e8 IdxSect {
0x21d654…21d7e8 f00 = 0x0088 // 0x21d654 @0x0
0x21d654…21d7e8 f01 = 0x0024 // 0x21d656 @0x2
0x21d654…21d7e8 gno = [ // 0x21d658 @0x4
0x21d654…21d7e8 [0x00]: C0x0088.0x0.0
0x21d654…21d7e8 [0x01]: C0x0088.0x3.0
0x21d654…21d7e8 [0x02]: C0x00ab.0x3.0
0x21d654…21d7e8 [0x03]: C0x00ac.0x0.0
0x21d654…21d7e8 [0x04]: C0x00b1.0x2.0
0x21d654…21d7e8 [0x05]: C0x00b1.0x3.0
0x21d654…21d7e8 [0x06]: C0x00b2.0x0.0
0x21d654…21d7e8 [0x07]: C0x00b3.0x0.0
0x21d654…21d7e8 [0x08]: C0x00b7.0x0.0
0x21d654…21d7e8 [0x09]: C0x00b7.0x1.0
0x21d654…21d7e8 [0x0a]: C0x00b7.0x2.0
0x21d654…21d7e8 [0x0b]: C0x00b7.0x3.0
0x21d654…21d7e8 [0x0c]: C0x00b8.0x0.0
0x21d654…21d7e8 [0x0d]: C0x00b8.0x1.0
0x21d654…21d7e8 [0x0e]: C0x00b8.0x2.0
0x21d654…21d7e8 [0x0f]: C0x00b8.0x3.0
0x21d654…21d7e8 [0x10]: C0x00b9.0x0.0
0x21d654…21d7e8 [0x11]: C0x00b9.0x1.0
0x21d654…21d7e8 ]
0x21d654…21d7e8 }
0x21d7e8…21d97c Dummy {f00=0x0088, f01=0x0190, f02=» X [Z[ #v ! c @ Tg t z ^ b bLPL H b2 Z ` z
0x21d97c…21db10 Dummy {f00=0x0088, 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
0x21db10…21dca4 Dummy {f00=0x0088, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x21dca4…21de38 Dummy {f00=0x0088, 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
0x21de38…21dfcc Dummy {f00=0x0088, 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
0x21dfcc…21e160 Dummy {f00=0x0088, 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
0x21e160…21e2f4 (2, 452) Dummy {f00=0x0088, 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 ^ ? ?
0x21e2f4…21e488 Dummy {f00=0x0088, f01=0x0190, f02=» " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? > > > > > > > @ > ? ? ? ? ? ? ? A > A >
0x21e488…21e61c Dummy {f00=0x0088, 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 @ " " ? ?
0x21e61c…21e7b0 Dummy {f00=0x0088, 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 @
0x21e7b0…21e944 Dummy {f00=0x0088, f01=0x0190, f02=» H ( ( P c P W~ T P> , T6 L x M 0 - Ax Q @ P A 2 T _ P, Ax V ( U P" @, V L, W @, U 2 y A A Q > ? A ~ V _* 8 x Q Z P 0 9 _ _, ? P
0x21e944…21ead8 Dummy {f00=0x0088, f01=0x0190, f02=» ^ x $P T I R $ 5 % > ? &W ? W ? T T$ U U U U T U U 2 > > 4 T - 1_( U T P 0 U _t ? @x T 0 Ax 1 Q Q > > 0 @x 1 Ax P P > ? * X " R" Y T
0x21ead8…21ec6c Dummy {f00=0x0088, f01=0x0190, f02=» W W > > > > > > @Q V ? Q > _ > ? _ > > ? ^ ! Y ^ _ ? A. $ ( , 0 4 8 < #M 1 A ~ _* 8 Q Z P 0 9 _ _, ? P
0x21ec6c…21ee00 Dummy {f00=0x0088, f01=0x0190, f02=» ^ $P T I R $ 5 % > ? W ? W ? T T U U U U T U U 2 > > 4 T - 1_( U T P 0 U _t ? @ T 0 A 1 Q Q > > 0 @ 1 P P > ? X " R Y
0x21ee00…21ef94 (2, 453) Dummy {f00=0x00ab, f01=0x0190, f02=» 1 % E I L U ,| M (@ D >a @ <a H D P C 9b;BT C 0 @ # W( C UH R C W C R # R l _8 C # l p ' 2 x ( B T :" U U F x M 0
0x21ef94…21f128 Dummy {f00=0x00ab, f01=0x0190, f02=» x J B B pU x J BQB rU 6 z B " P Q :A H `P P y H !@T I y T ! 1 U y A ? W A ? W A ? W X U R ; V d # T R
0x21f128…21f2bc Dummy {f00=0x00ab, f01=0x0190, f02=» X "0Tp+ Y WH 8Z $ 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >Wh 4 T # Y U T ] W 8V 4 X $P y $W $ + h P 8R R y Y $ X Z ;BR 8% =A Y T
0x21f2bc…21f450 Dummy {f00=0x00ab, f01=0x0190, f02=» "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 4T U d # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X > P P
0x21f450…21f5e4 Dummy {f00=0x00ab, f01=0x0190, f02=» D $ P #`P T E y j_ " P T 8! P6 Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A Z R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P
0x21f5e4…21f778 Dummy {f00=0x00ab, f01=0x0190, f02=» Y _: @ X T P XX R4 @ U S U t " D P D T U W _ U 4XR XX 5 _b Y Y Y X 9BV$ X & Y " X D V * X T 8TV 9WD B 7P P y Ax W Ax @x A.W ? A I.9 " X
0x21f778…21f90c Dummy {f00=0x00ab, f01=0x0190, f02=» * T E j_ " P T 8! P Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A Z R 8;b# 4T R T T ] ] 8 W T W T ] _ P T V W 8V T P
0x21f90c…21faa0 Dummy {f00=0x00ab, f01=0x0190, f02=» Y _: @ X T P XX R4 @ U S U PR " 0 P B :b9B Y D ) Y F X Y >:g H $ ! P P P P y !! W B B # L Y :e X BY, X @P& Y @ ! 9 R ! 9 R Y @ Wb P UH
0x21faa0…21fc34 (2, 454) Dummy {f00=0x00ac, f01=0x0190, f02=»W b X @X$_ nW nP W B " 0 Y , Y . 4 X @:C* WB W> X " " :BW0 X " :BW& X @ X FP _ X D % ^ W c X :B X ! E ( ! Y Y y ? "l @ P: Y " !! P X > Y '? * * _< @"jX2 a"jW<_J Y " !! P
0x21fc34…21fdc8 Dummy {f00=0x00ac, f01=0x0190, f02=» X P X " I $ * y Y < Y ! Td ! ^ Y @ ! ! TR 0 X P p Y , (P ) P @ T X Q $ X X T Y _l Y < 4 "l j " B B r s " T
0x21fdc8…21ff5c Dummy {f00=0x00ac, f01=0x0190, f02=» Q 1 * y Y @ r t B X _ ? # X Z&W A ?I # X ' { B C X 4 " # c X # E Y Y ? @ P Y ! P X Y '? * _< @ X2 a W _J Y ! P
0x21ff5c…2200f0 Dummy {f00=0x00ac, f01=0x0190, f02=» X P X " I( (((H(n(&( (H( (&) )*(&)*)*(&(&(&) $ ( , 0 4 8 < ( H T %T 0 ) $P $ ) U @ C @$ W %f 0P P > T Z 0P R I W % _" H P 4 I 2 > T C T, V. Y
0x2200f0…220284 Dummy {f00=0x00ac, f01=0x0190, f02=» -@T %hW % C P 8W T 8P Y ^ 5 ) P U y XH ' X X D #DP @ b P X l T _| Xv Y @ P< -@T W0 X &P* T P H T _ X I Y T # C C W4
0x220284…220418 Dummy {f00=0x00ac, f01=0x0190, f02=» ' P (@ $ (@ " 2 X $? P' $ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ (2 P0 B P* 0$ T # R QL (
0x220418…2205ac Dummy {f00=0x00ac, f01=0x0190, f02=» D C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H _2 B U X ( > ? _ X T (@ ( ^ > > ? _ X T X X T % T ?C L Rl * _@(@ L U L Q0
0x2205ac…220740 Dummy {f00=0x00ac, f01=0x0190, f02=» X P& T D #DP 0P X T 4 Y 2 X -@ X T X M 1 1 X P - M T $ PD _ T " # p X L R P ' P (@ $ ^ X P8 P0 # P T P 0P 1 _ `W 2 Y > > T + + + y
0x220740…2208d4 (2, 455) Dummy {f00=0x00b1, f01=0x0190, f02=»P 9 > > R @ U 9C @ T M D _ W^ M $R M Ax y D _ $P D % 1 I D " @ @ - U _ 9B @ T W X > && y y y y + z , & - - /T/T/T/T/T. . .d- . .@. /T/T. . . .d- "
0x2208d4…220a68 Dummy {f00=0x00b1, f01=0x0190, f02=»(@ I- P ^ /T H-$ Y H, B # X ( U /T B r P6 W Y & Y $ 0 Y . /& N /T B Y I B Y J_ W Nj C P C W < C C _H Nj H H S W C C B B B U M R Wp H TP L
0x220a68…220bfc Dummy {f00=0x00b1, f01=0x0190, f02=»R Q X JU C '? T W6 N T.(@(@ P #D 0j h y y 1 1 4 4 4 4 4 3R3R0 4 3R0 4 4 4 4 3R3R0 F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @
0x220bfc…220d90 Dummy {f00=0x00b1, f01=0x0190, f02=»Pj D ^V" D "? P P &P E ^ O V, P ( 0 ( ( W 0 O$ 4 B W C X '? /X X & X ( )T 4 / 0 4" X $TT T A/ J , M< P W T Y $ P T _ Y & F (@ _ 32 X & X I
0x220d90…220f24 Dummy {f00=0x00b1, f01=0x0190, f02=» ]" 0 X Wf ` U @ H @ X WF N N 4 5W P 0 @K 1 AK (@_ 1 (@ 2 / O $P % 4 2 F / (@ B P 9 4 4' 2`' 2` 5 2` 4 96 W , P& ,' X X
0x220f24…2210b8 Dummy {f00=0x00b1, f01=0x0190, f02=» +P P* X $ T M U W M R P> $P8W 4 X ( X & F X P @x Q (@ P6 + X ^V" P "P8 $P4W X & X bT( ;AR ( 4 ( 0 O$ T Y ^ F " F D '? P P( $ P" Nj I I K K
0x2210b8…22124c Dummy {f00=0x00b1, f01=0x0190, f02=» ! Tn M 8* : 4 A A " P "" * P 8* @ (@ D C C C W C ( 4 4 L " TOP 8* A L A L C @ A Q< @ 7 A @ 8* B D E X #D( 4 ( B B
0x22124c…2213e0 Dummy {f00=0x00b1, f01=0x0190, f02=» !SSP !LL 7 W L @ A V 8* P E @ E P E P E D T P 8* 96 2% P( R 0 X T R , @ T R RT @ 8P 8* 6 96 2% P 8* r P %_ S -@ S E 3 P S I P S J P S ( P S
0x2213e0…221574 (2, 456) Dummy {f00=0x00b1, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @L V W HL IL (@ @ P -W P B 2(@( @ 8 _ T ` ` 9A S ^
0x221574…221708 Dummy {f00=0x00b1, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S -@ S E 3 P S I P S J P S ( P S
0x221708…22189c Dummy {f00=0x00b1, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B 2(@( @ 8 _ T ` ` 9A S ^
0x22189c…221a30 Dummy {f00=0x00b1, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S -@ S E 3 P S I P S J P S ( P S
0x221a30…221bc4 Dummy {f00=0x00b1, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B 2(@( @ 8 _ T ` ` 9A S ^
0x221bc4…221d58 Dummy {f00=0x00b1, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S -@ S E 3 P S I P S J P S ( P S
0x221d58…221eec Dummy {f00=0x00b1, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B 2(@( @ 8 _ T ` ` 9A S ^
0x221eec…222080 Dummy {f00=0x00b1, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S -@ S E 3 P S I P S J P S ( P S
0x222080…222214 (2, 457) Dummy {f00=0x00b2, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B 2(@( @ 8 _ T ` ` 9A S ^
0x222214…2223a8 Dummy {f00=0x00b2, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S -@ S E 3 P S I P S J P S ( P S
0x2223a8…22253c Dummy {f00=0x00b2, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B 2(@( @ 8 _ T ` ` 9A S ^
0x22253c…2226d0 Dummy {f00=0x00b2, f01=0x0190, f02=» !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S -@ S E 3 P S I P S J P S ( P S
0x2226d0…222864 Dummy {f00=0x00b2, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B 2(@( @ 8 _ T ` ` 9A S ^
0x222864…2229f8 Dummy {f00=0x00b2, f01=0x0190, f02=» !SSP !LL W L @ V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S -@ S E 3 P S I P S J P S ( P S
0x2229f8…222b8c Dummy {f00=0x00b2, f01=0x0190, f02=» =b P P @ ! T. W< P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ L P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ?
0x222b8c…222d20 Dummy {f00=0x00b2, f01=0x0190, f02=» D LW 0P Q P P E +P W : X + X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @x 1 Ax Z> : D NW (P D + I W6 @K T ( AK U 1_ D + I D N ) E N : T * M<SP P W X * 0
0x222d20…222eb4 (2, 458) Dummy {f00=0x00b3, f01=0x0190, f02=» ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C W C C X %? : X &_ 0 D . P , _ D . D $ D * M T ( T & ^ S W : U ; $ T $ T $ T&x : : $
0x222eb4…223048 Dummy {f00=0x00b3, f01=0x0190, f02=» U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< #f < Q T ] QfT ] 0 5 @ 1 A Z> : D NW (P D P> Rh P +P8 P> PH R R W P P 5P, y S y X P W B Y "W X " y W| B Y
0x223048…2231dc Dummy {f00=0x00b3, f01=0x0190, f02=» * _ B Qh R SB X ! 3 X|_ X P 0 Y P C ) _ R _ B ! P Y _` X ! X Sr _ B Y _z y X P AR + R Y Wb Y @_ X X AR + R Y _& Y SX @Tv 0 ATx ATv_: X P ( y Y W ] (P 0 ) > Q*
0x2231dc…223370 Dummy {f00=0x00b3, f01=0x0190, f02=» T* X P& , Y L C L C ) > @Q( @Q$ @Q& AQ&X * _" X P y Y X P T SX @Tv T ATx ATv > ATX AT AT` ATd ATh TlW > P 5 BHBB Q` ![ B ![ T P P V
0x223370…223504 Dummy {f00=0x00b3, f01=0x0190, f02=»T W " X ![ _ ! AT @TxP @TvP !X ATx ATz_ ! @TzP @] X@ !Y TD AT~ !Y T @TxP( @] P" @Tv U: 8 !W X Y !X AT _B ![ X>_b AT~ @] @T T 1 Z 0 2P P P AT S. @Tt 8 H H @] P E P^ X RX X P X TJ P C S
0x223504…223698 Dummy {f00=0x00b3, f01=0x0190, f02=»Tt AT Y " @ _R ! @TxT @TzP !Y T ! @TxT @TzX Wx A I T< + V y TV @Tv @T~ X @T @T AT Xf ! @TxXV ![ T @T P !Y ! _p 1T, @T X @T|P @T~T0 !X !Y AT _ AT Xf B ATx @T|T _2 _6 @Tv S AT~ ATx X ! XD Y _N @Tx
0x223698…22382c Dummy {f00=0x00b3, f01=0x0190, f02=»T @Q*T !Y _ T SX_ T ATv o C ) B B AT AT AT AT| AT~ !Z ! ATx_^ Y Y " Q`W @Tx ! j X ! X Z X X X _ @TvP< @T T6 X R0 X P T$ T Y W T S P C * SX ATx ATv @T P X Y 4 @] @T~T @T
0x22382c…2239c0 Dummy {f00=0x00b3, f01=0x0190, f02=» _$ ! 2_l 1 AT T 0W ;W < AT AT W W W AT AT ![@ @T ![ @T ![ ![ ![ B J 4 ![@ ![ @T @T AT @T T$ @ ![ 8 ![ W - ![ x !x W 0 " WL R ~T }T T0 W, ![ P " ! " :A *@ H H T 0 ![ W
0x2239c0…223b54 (2, 459) Dummy {f00=0x00b7, f01=0x0190, f02=» ![ 8 ![ X ! 9a DT ![ X ! P ! T & ![ _P B J B ![ ![ 4 A TVJ T AT T PF 4 ![ T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< y " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @xz `xz @xzP 0 M A[
0x223b54…223ce8 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] ] f ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W
0x223ce8…223e7c Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x223e7c…224010 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W
0x224010…2241a4 Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x2241a4…224338 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W
0x224338…2244cc Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x2244cc…224660 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~ }T T W ! P " ! " :A *@ H T 0 ! W
0x224660…2247f4 (2, 460) Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x2247f4…224988 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~ }T T W ! P " ! " :A *@ H T 0 ! W
0x224988…224b1c Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x224b1c…224cb0 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~ }T T W ! P " ! " :A *@ H T 0 ! W
0x224cb0…224e44 Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x224e44…224fd8 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~ }T T W ! P " ! " :A *@ H T 0 ! W
0x224fd8…22516c Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x22516c…225300 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~ }T T W ! P " ! " :A *@ H T 0 ! W
0x225300…225494 (2, 461) Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x225494…225628 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~ }T T W ! P " ! " :A *@ H T 0 ! W
0x225628…2257bc Dummy {f00=0x00b7, f01=0x0190, f02=» ! 8 ! X ! 9a DT ! X ! P ! T & ! _P B J B ! ! 4 A TVJ T AT T P 4 ! T A TV_ I " P AT~ Q` T AQ( S 4 A _$B P W T< " * 9AY X 2 _ ![ 9AP ^ 2 _ " ! 1 4 A[ @ ` @ P 0 M A[
0x2257bc…225950 Dummy {f00=0x00b7, f01=0x0190, f02=» > + Z AT 4 AT Q` ![ @TxP !Y ! T @T P aT AT 4 AT ![ T ' AT 4 Q2 ] f ! 8 ! W - ! x ! W 0 " W R ~ }T T W ! P " ! " :A *@ H T 0 ! W
0x225950…225ae4 Dummy {f00=0x00b7, f01=0x0190, f02=»89:[ '="x~x| vzx~D ` > > @x Ax W * ^ ! Z( x (X0 @x P T M ]@ , ) L P $R _, Ax P* P Y U ( ) 5 & > > [ [ x
0x225ae4…225c78 Dummy {f00=0x00b7, f01=0x0190, f02=» Y W y Pl 2 T Pb h_ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ H P ( ( z | z ? X V Y y ! W< Y U R -P | X , ) Y . | X P Y P C W~ 8!@P$ X $P
0x225c78…225e0c Dummy {f00=0x00b7, f01=0x0190, f02=» | B | T B % X . $ 4 T % | X ,T ! P | ~ Y . V ~ ! X B P X " _` B P$ $$ R % C ~ * ! XW Y +PH Y *P> Y (P Y )P ~ R _Q P OR R W " ! X B { Wr W 0 Z ~ ! X B Z Z& X
0x225e0c…225fa0 Dummy {f00=0x00b7, f01=0x0190, f02=»} QfR$ X # P X R6;GV2 X $P P y $ }X P8 X R2;GV. X " { X , $4 P ~ X .T * W Y , - y @ Y $ X Z _X ? 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 _$
0x225fa0…226134 (2, 462) Dummy {f00=0x00b7, f01=0x0190, f02=»;<>@^_ 9: X ! Y M~XP ^ y Y L~ ~ ~ ~ z~ ~ ! ! ! W B W$ B L # 9Q T W Q P X & V T Y &W ~, X ! T6 B R0Q$ B D ! V ! ! ! W ! r ! Y ! T ! V ~V ! B C
0x226134…2262c8 Dummy {f00=0x00b7, f01=0x0190, f02=»_t B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" ! Y Y U ! _$ W4 , ! T ,' ~L ! R !__U C X ' W Y ! _ X RT U TJ X
0x2262c8…22645c Dummy {f00=0x00b7, f01=0x0190, f02=» ! ! ! 4 X ' 4 Y ' ~: ! ! " P ,$ , ! 4!"$&;<>@^_ * PB P8 y B P B L # +P ! ! T ! Y & ! W ! ! W ! Y Y U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V
0x22645c…2265f0 Dummy {f00=0x00b7, f01=0x0190, f02=»y X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q -_ ? _ X # ! ^ Y _( ? X Z ! P4 P X " !
0x2265f0…226784 Dummy {f00=0x00b7, f01=0x0190, f02=»P X P B V *@ Y y y ? X _F p l ` ! P P $ & y B P B H " +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 ! B B U4 $ ! T _ U D ! T _ $$
0x226784…226918 Dummy {f00=0x00b7, f01=0x0190, f02=» B C 8 ^N P R ?] _ C _ " $ P X ' X ] ! J B ! P ! ! ` B Y & ! &W H 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C * y X Y & Y > X " X &" Y )Q Y > X
0x226918…226aac Dummy {f00=0x00b7, f01=0x0190, f02=» P" ! W X $ X ! j_ X $ X X & ! & ! Y _8 X " X &" Y )U W ! ! ! Y 4 B U )X R@ X X &" Y * X ) V Y ! X $ X & ! & X * H `R Y ! ! ! 4
0x226aac…226c40 Dummy {f00=0x00b7, f01=0x0190, f02=» B C ^N P R ?] _ C _ " $ P X ' X ] ! J B ! ! ! B Y & ! W H 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C * y X Y & Y > X " X &" Y )Q Y > X
0x226c40…226dd4 (2, 463) Dummy {f00=0x00b8, f01=0x0190, f02=» P" ! W X $ X ! j_ X $ X X & ! & ! Y _8 X " X &" Y )U W ! ! ! Y 4 B U )X R@ X X &" Y * X ) V Y ! X $ X & ! & X * H `R Y ! ! ! 4
0x226dd4…226f68 Dummy {f00=0x00b8, f01=0x0190, f02=» B C ^N P R ?] _ C _ " $ P X ' X ] ! J B ! ! ! B Y & ! W H 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C * y X Y & Y > X " X &" Y )Q Y > X
0x226f68…2270fc Dummy {f00=0x00b8, f01=0x0190, f02=» P" ! W X $ X ! j_ X $ X X & ! & ! Y _8 X " X &" Y )U W ! ! ! Y 4 B U )X R@ X X &" Y * X ) V Y ! X $ X & ! & X * H `R Y ! ! ! 4
0x2270fc…227290 Dummy {f00=0x00b8, f01=0x0190, f02=» B C ^N P R ?] _ C _ " $ P X ' X ] ! J B ! ! ! B Y & ! W H 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C * y X Y & Y > X " X &" Y )Q Y > X
0x227290…227424 Dummy {f00=0x00b8, f01=0x0190, f02=» P" ! W X $ X ! j_ X $ X X & ! & ! Y _8 X " X &" Y )U W ! ! ! Y 4 B U )X R@ X X &" Y * X ) V Y ! X $ X & ! & X * H `R Y ! ! ! 4
0x227424…2275b8 Dummy {f00=0x00b8, f01=0x0190, f02=» B C ^N P P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P zP W< |T6 ' P ! * B # P G W G * y X P P R: A > + Y X T Q (P H U ^ 9 1_N y X
0x2275b8…22774c Dummy {f00=0x00b8, f01=0x0190, f02=» |P $ $ 1 ) > ) $P e % > (@ B Z F U F Z v P U y C G 4 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS' "?:B ] P P
0x22774c…2278e0 Dummy {f00=0x00b8, f01=0x0190, f02=» Y X H P * P H ' P ! * B # P G @ |P 4 A | U 2W A | A z @ ~ U : A A :A A , ` R @ U P. ,
0x2278e0…227a74 (2, 464) Dummy {f00=0x00b8, f01=0x0190, f02=» I T T 9a H E ^ W P ,! T T ( : "' # @ zP | $ ) 5 y A z A A ~ " P6 A "" P U W * P @ E "# P P @ ~ P ( )W @ 0 R % "V E T D A
0x227a74…227c08 Dummy {f00=0x00b8, f01=0x0190, f02=» A A h y P r ' P ! * B # P G @ |P 4 A | U 2W A | A z @ ~ U : A A :A A , ` R @ U P ,
0x227c08…227d9c Dummy {f00=0x00b8, f01=0x0190, f02=» I T T 9a H E ^ W P ,! T T ( : "' # @ zP | $ ) 5 y A z A A ~ " P6 A "" P U W * P @ E "# P P @ ~ P ( )W @ 0 R % "V E T D A
0x227d9c…227f30 Dummy {f00=0x00b8, f01=0x0190, f02=» A A h y P X ' P ! * B # P G @ |P 4 A | U 2W A | A z @ ~ U : A A :A A , ` R @ U P ,
0x227f30…2280c4 Dummy {f00=0x00b8, f01=0x0190, f02=» I T T 9a H E ^ W P ,! T T ( : "' # @ zP | $ ) 5 y A z A A ~ " P6 A "" P * P @ E "# P P @ ~ P ( )W @ 0 R % "V E T D A
0x2280c4…228258 Dummy {f00=0x00b8, f01=0x0190, f02=» A A h y P ' P ! * B # P G @ |P 4 A | U 2W A | A z @ ~ U : :A A , ` R @ U P ,
0x228258…2283ec Dummy {f00=0x00b8, f01=0x0190, f02=» I T T 9a H E ^ W P ,! T T ( : "' # @ zP | $ ) 5 y A z A A ~ " P6 A "" P * P @ E "# P P @ ~ P ( )W @ 0 R % "V > A
0x2283ec…228580 Dummy {f00=0x00b8, f01=0x0190, f02=» A A h y P ' P ! * B # P G @ |P 4 A | U 2W A | A z @ ~ U : :A A , ` R @ U P ,
0x228580…228714 (2, 465) Dummy {f00=0x00b8, f01=0x0190, f02=» I T T 9a H E ^ W P ,! T T ( : "' # @ zP | $ ) 5 y A z A A ~ " P6 A "" P * P @ E "# P P @ ~ P ( )W @ 0 R % "V A
0x228714…2288a8 Dummy {f00=0x00b8, f01=0x0190, f02=» A A h y P ' P ! * B # P G @ |P 4 A | U 2W A | A z @ ~ U : :A A , ` R @ U P ,
0x2288a8…228a3c Dummy {f00=0x00b8, f01=0x0190, f02=» I @ n , L T L PF L T M Q M L V L A p @ n : T @ p [ [ M M M A n -(@ : - : @ n , L T M @ n : =a 9a Q - _ - > @ PJ r 96 K K AK L @ n , - M M M @ n A z
0x228a3c…228bd0 Dummy {f00=0x00b8, f01=0x0190, f02=» ' < +,-. 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ [] * > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* < +,-. 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ [] > ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXY
0x228bd0…228d64 Dummy {f00=0x00b8, f01=0x0190, f02=» % $P _ % A @ " Q A : R W2 A A P. _ " :c* A W " :d2 * A 8 ^ & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR n F nW =J F CRTT F PN A @
0x228d64…228ef8 Dummy {f00=0x00b8, f01=0x0190, f02=» Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z( = :L < P
0x228ef8…22908c Dummy {f00=0x00b8, f01=0x0190, f02=» V P _ @ ! P !RRP V @ P W _: V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P TJ V 0 !;;P P V
0x22908c…229220 Dummy {f00=0x00b8, f01=0x0190, f02=» 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A Q A @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X C.9h! # "
0x229220…2293b4 (2, 466) Dummy {f00=0x00b8, f01=0x0190, f02=» A j A A : 9e9C) A I " 9A ! 9B r @ r A I ! ( : A A A A 4 A ! T A A I ! : 9E @ r s A I T ) A _ I N T : 4 9PJ S Y T@ $ 1T: C !CCTt
0x2293b4…229548 Dummy {f00=0x00b8, f01=0x0190, f02=» 8_ !SST& 0 U R X A X W : @ ' R xW V W$ V P P W P V V T V T W P V W @ $ P p W T : A _ 0V , - P X 9A_ : @ ! P (W (
0x229548…2296dc Dummy {f00=0x00b8, f01=0x0190, f02=» j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W `Q@ V V v
0x2296dc…229870 Dummy {f00=0x00b8, f01=0x0190, f02=» P L r `V U L _ V L Z K W W :K W r `Q R t `V v : V W V ) : V <B W |P v v : $ V |P v w v : V $
0x229870…229a04 Dummy {f00=0x00b8, f01=0x0190, f02=» 1 v W V z ` _f V : W R R P n W x _ V : " D Pd W V PL $;A^ D E D P. V P P T E _J E _T " D T E E D E % : " R ;B " R P(
0x229a04…229b98 Dummy {f00=0x00b8, f01=0x0190, f02=» : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B h _ x : V ) v : 4P: " D , H H $ M v b - I
0x229b98…229d2c Dummy {f00=0x00b8, f01=0x0190, f02=» D 4 Q |_d f = G $ R V W $ V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9B
0x229d2c…229ec0 Dummy {f00=0x00b8, f01=0x0190, f02=» @ .V 3 S Y& P4 x x S P 3 _ x 3 x B A. @ D @ W x A : A y > l : R n W n V pT : N V l W H V ]"
0x229ec0…22a054 (2, 467) Dummy {f00=0x00b9, f01=0x0190, f02=» % V d V f v G G v U v G v : P n V : V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V v ) W b G v
0x22a054…22a1e8 Dummy {f00=0x00b9, f01=0x0190, f02=» ` @ ` W W ~ pPn f V W % X R , " E R H W ~ R H R P R Xv _|W T : n W x _ V P I f W z ` pPl H - V I R " R E R T
0x22a1e8…22a37c Dummy {f00=0x00b9, f01=0x0190, f02=» ;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 - @ - N !TTP N :H N
0x22a37c…22a510 Dummy {f00=0x00b9, f01=0x0190, f02=» d 2 .:H N P V _ R :h " d YV : v `?A @ W W :b / W : W @ W D V W W ` " W p @ pP. " 4X
0x22a510…22a6a4 Dummy {f00=0x00b9, f01=0x0190, f02=» W W V V >k 8 W W t V V : x A P W r W @ @ % b V , P@ , - 4 ] 4 `Y 5 X * _6 : @ & ] @ P @ P
0x22a6a4…22a838 Dummy {f00=0x00b9, f01=0x0190, f02=» @ " P #D " P #E " P #F : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ %
0x22a838…22a9cc Dummy {f00=0x00b9, f01=0x0190, f02=» " 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 : @ ! P @ @ R CRT 3
0x22a9cc…22ab60 Dummy {f00=0x00b9, f01=0x0190, f02=» YL @ @ T : x ` @ P _ 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P r _
0x22ab60…22acf4 (2, 468) Dummy {f00=0x00b9, f01=0x0190, f02=» t Y & !TTX @ @ T : & @ R @ T P / _ T @ A V W W t PT W f ( W d ( G =h G V d V r < V f P W f _B V
0x22acf4…22ae88 Dummy {f00=0x00b9, f01=0x0190, f02=»U $ $ _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4
0x22ae88…22b01c Dummy {f00=0x00b9, f01=0x0190, f02=» @ 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 . $# P V -W H P U & I @ % PD H
0x22b01c…22b1b0 Dummy {f00=0x00b9, f01=0x0190, f02=» F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W
0x22b1b0…22b344 Dummy {f00=0x00b9, f01=0x0190, f02=» =H N : N =H N : &=H F : F =H F : F =H F : P N =H N T &_ : 00=H 00 P P _ _ : @ ! P (W ( : V @ R CRT" @ ! P ` @ E "W ` @ E
0x22b344…22b4d8 Dummy {f00=0x00b9, f01=0x0190, f02=» " B Z a # ` j "l "l , w z ~ , v ~ 0Q<DC zxKB : *T P n
0x22b4d8…22b66c Dummy {f00=0x00b9, f01=0x0190, f02=» @ zxKB F f 4~DTP Z 8 `DY CRT" @ P zx
0x22b66c…22b800 Dummy {f00=0x00b9, f01=0x0190, f02=» 2 DI P ?O_o 8 `DY , v P 4 GP 4~DTP
0x22b800…22b994 (2, 469) Opaque[0x194]
0x22b994…22bb28 # DirEnt {nam=»X «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f48, f03=0x0000}
0x22b994…22bb28 IdxSect {
0x22b994…22bb28 f00 = 0x007a // 0x22b994 @0x0
0x22b994…22bb28 f01 = 0x0010 // 0x22b996 @0x2
0x22b994…22bb28 gno = [ // 0x22b998 @0x4
0x22b994…22bb28 [0x00]: C0x007a.0x1.0
0x22b994…22bb28 [0x01]: C0x007a.0x2.0
0x22b994…22bb28 [0x02]: C0x007a.0x3.0
0x22b994…22bb28 [0x03]: C0x007b.0x0.0
0x22b994…22bb28 [0x04]: C0x007b.0x1.0
0x22b994…22bb28 [0x05]: C0x007b.0x2.0
0x22b994…22bb28 [0x06]: C0x007b.0x3.0
0x22b994…22bb28 [0x07]: C0x007c.0x0.0
0x22b994…22bb28 ]
0x22b994…22bb28 }
0x22bb28…22bcbc Dummy {f00=0x007a, 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
0x22bcbc…22be50 Dummy {f00=0x007a, 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
0x22be50…22bfe4 Dummy {f00=0x007a, 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
0x22bfe4…22c178 Dummy {f00=0x007a, 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
0x22c178…22c30c Dummy {f00=0x007a, 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
0x22c30c…22c4a0 Dummy {f00=0x007a, 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
0x22c4a0…22c634 (2, 470) Dummy {f00=0x007a, 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
0x22c634…22c7c8 Dummy {f00=0x007a, 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
0x22c7c8…22c95c Dummy {f00=0x007a, 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
0x22c95c…22caf0 Dummy {f00=0x007a, 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
0x22caf0…22cc84 Dummy {f00=0x007a, f01=0x0190, 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 120 NUMBER OF BYTES IN DECIMAL
0x22cc84…22ce18 Dummy {f00=0x007a, 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*
0x22ce18…22cfac Dummy {f00=0x007a, f01=0x0190, f02=» PX:B EQU 1 PCECHO EQU 1 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.
0x22cfac…22d140 Dummy {f00=0x007a, 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*
0x22d140…22d2d4 (2, 471) Dummy {f00=0x007a, 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
0x22d2d4…22d468 Dummy {f00=0x007a, f01=0x0190, f02=» MMU KEY TABLE SIZE P* P* & PX:K EQU 10 0 PDVBKTB EQU 40 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
0x22d468…22d5fc Dummy {f00=0x007a, 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
0x22d5fc…22d790 Dummy {f00=0x007a, 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*
0x22d790…22d924 Dummy {f00=0x007a, 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 *
0x22d924…22dab8 Dummy {f00=0x007a, 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
0x22dab8…22dc4c Dummy {f00=0x007a, 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
0x22dc4c…22dde0 Dummy {f00=0x007a, 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
0x22dde0…22df74 (2, 472) Dummy {f00=0x007b, 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 *
0x22df74…22e108 Dummy {f00=0x007b, 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
0x22e108…22e29c Dummy {f00=0x007b, 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
0x22e29c…22e430 Dummy {f00=0x007b, 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
0x22e430…22e5c4 Dummy {f00=0x007b, 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
0x22e5c4…22e758 Dummy {f00=0x007b, 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
0x22e758…22e8ec Dummy {f00=0x007b, 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!
0x22e8ec…22ea80 Dummy {f00=0x007b, 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
0x22ea80…22ec14 (2, 473) Dummy {f00=0x007b, 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(
0x22ec14…22eda8 Dummy {f00=0x007b, 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
0x22eda8…22ef3c Dummy {f00=0x007b, 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
0x22ef3c…22f0d0 Dummy {f00=0x007b, 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
0x22f0d0…22f264 Dummy {f00=0x007b, 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
0x22f264…22f3f8 Dummy {f00=0x007b, 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
0x22f3f8…22f58c Dummy {f00=0x007b, 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
0x22f58c…22f720 Dummy {f00=0x007b, 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
0x22f720…22f8b4 (2, 474) Dummy {f00=0x007b, 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)
0x22f8b4…22fa48 Dummy {f00=0x007b, 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 '
0x22fa48…22fbdc Dummy {f00=0x007b, 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 (
0x22fbdc…22fd70 Dummy {f00=0x007b, 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
0x22fd70…22ff04 Dummy {f00=0x007b, 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
0x22ff04…230098 Dummy {f00=0x007b, 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
0x230098…23022c Dummy {f00=0x007b, 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
0x23022c…2303c0 Dummy {f00=0x007b, 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 -
0x2303c0…230554 (2, 475) Dummy {f00=0x007b, 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* .
0x230554…2306e8 Dummy {f00=0x007b, 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
0x2306e8…23087c Dummy {f00=0x007b, 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*
0x23087c…230a10 Dummy {f00=0x007b, 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
0x230a10…230ba4 Dummy {f00=0x007b, 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
0x230ba4…230d38 Dummy {f00=0x007b, 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
0x230d38…230ecc Dummy {f00=0x007b, 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
0x230ecc…231060 Dummy {f00=0x007b, 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
0x231060…2311f4 (2, 476) Dummy {f00=0x007c, 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
0x2311f4…231388 Dummy {f00=0x007c, 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,
0x231388…23151c Dummy {f00=0x007c, 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
0x23151c…2316b0 Dummy {f00=0x007c, 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
0x2316b0…231844 Dummy {f00=0x007c, 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
0x231844…2319d8 Dummy {f00=0x007c, f01=0x0190, f02=» P %_ S S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | ) ) @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T !
0x2319d8…231b6c Dummy {f00=0x007c, f01=0x0190, f02=»P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ 0 T !##P> ? R4 L TX P L P 4 M X M M _8 > 6 D LW 0P Q P P E +P W : X + ` X L 1 Y L :
0x231b6c…231d00 Dummy {f00=0x007c, f01=0x0190, f02=» U 1_ D + I D N ) E N : T * @ SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $
0x231d00…231e94 (2, 477) Opaque[0x194]
0x231e94…232028 # DirEnt {nam=»MONGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x08e8, f03=0x0000}
0x231e94…232028 IdxSect {
0x231e94…232028 f00 = 0x0047 // 0x231e94 @0x0
0x231e94…232028 f01 = 0x0002 // 0x231e96 @0x2
0x231e94…232028 gno = [ // 0x231e98 @0x4
0x231e94…232028 [0x00]: C0x0047.0x1.0
0x231e94…232028 ]
0x231e94…232028 }
0x232028…2321bc Dummy {f00=0x0047, f01=0x017a, f02=» 8 4MES ************************************************ 8 4MES * MONITOR GENERATION NORDJYLLANDS AMT * @ 8 4MES ************************************************ | SCR ASG 2,LP0F INC SYSTAB LKE M KPF /L,M:92SP
0x2321bc…232350 Dummy {f00=0x0047, f01=0x2008, f02=» ************************************************ 8 4MES * MONITOR GENERATION NORDJYLLANDS AMT * @ 8 4MES ************************************************ | SCR ASG 2,LP0F INC SYSTAB LKE M KPF /L,M:92SP
0x232350…2324e4 Dummy {f00=0x0047, 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
0x2324e4…232678 Dummy {f00=0x0047, 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*
0x232678…23280c Dummy {f00=0x0047, 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
0x23280c…2329a0 Dummy {f00=0x0047, 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
0x2329a0…233640 (3, 0) DirGranule ((3, 0)) {
0x2329a0…233640 DirEnt {nam=»LP100 «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0e98, f03=0x0000}
0x2329a0…233640 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x2020, f01=0x2020, f02=0x1be8, f03=0x4441}
0x2329a0…233640 DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x2020, f01=0x3031, f02=0x1cc0, f03=0x3132}
0x2329a0…233640 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x434b, f01=0x204e, f02=0x1cc8, f03=0x203d}
0x2329a0…233640 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x1cd0, f03=0x0005}
0x2329a0…233640 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1ce0, f03=0x0000}
0x2329a0…233640 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2d00, f03=0x0000}
0x2329a0…233640 }
0x233640…2337d4 (3, 1) Opaque[0x194]
0x2337d4…233968 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x2020, f01=0x2020, f02=0x1be8, f03=0x4441}
0x2337d4…233968 IdxSect {
0x2337d4…233968 f00 = 0x00df // 0x2337d4 @0x0
0x2337d4…233968 f01 = 0x0014 // 0x2337d6 @0x2
0x2337d4…233968 gno = [ // 0x2337d8 @0x4
0x2337d4…233968 [0x00]: C0x00df.0x1.0
0x2337d4…233968 [0x01]: C0x00e3.0x3.0
0x2337d4…233968 [0x02]: C0x00e4.0x0.0
0x2337d4…233968 [0x03]: C0x00e4.0x1.0
0x2337d4…233968 [0x04]: C0x00e4.0x2.0
0x2337d4…233968 [0x05]: C0x00e4.0x3.0
0x2337d4…233968 [0x06]: C0x00e5.0x0.0
0x2337d4…233968 [0x07]: C0x00e5.0x1.0
0x2337d4…233968 [0x08]: C0x00e5.0x2.0
0x2337d4…233968 [0x09]: C0x00e5.0x3.0
0x2337d4…233968 ]
0x2337d4…233968 }
0x233968…233afc Dummy {f00=0x00df, 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
0x233afc…233c90 Dummy {f00=0x00df, f01=0x0190, f02=» * < P* PHILIPS TERMINAL SYSTEM PTS * 8 < P* * x 4 P* DRGP01 = DRIVER GENERAL PRINTER * < P*
0x233c90…233e24 Dummy {f00=0x00df, 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
0x233e24…233fb8 Dummy {f00=0x00df, 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 :
0x233fb8…23414c Dummy {f00=0x00df, 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:
0x23414c…2342e0 Dummy {f00=0x00df, 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******************
0x2342e0…234474 (3, 2) Dummy {f00=0x00e3, 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
0x234474…234608 Dummy {f00=0x00e3, 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
0x234608…23479c Dummy {f00=0x00e3, 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
0x23479c…234930 Dummy {f00=0x00e3, 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
0x234930…234ac4 Dummy {f00=0x00e3, 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
0x234ac4…234c58 Dummy {f00=0x00e3, 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
0x234c58…234dec Dummy {f00=0x00e3, 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
0x234dec…234f80 Dummy {f00=0x00e3, 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
0x234f80…235114 (3, 3) Dummy {f00=0x00e4, f01=0x0190, f02=»NEG P P* P* < P******************************************************* * P* j P* CONDITIONAL ASSEMBLY t P* < P******************************************************* P* P* P* 4 P* THE STANDARD
0x235114…2352a8 Dummy {f00=0x00e4, 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
0x2352a8…23543c Dummy {f00=0x00e4, 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
0x23543c…2355d0 Dummy {f00=0x00e4, 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
0x2355d0…235764 Dummy {f00=0x00e4, f01=0x018e, f02=» P* MMU BUFFER SIZE P* P* ( PX:E EQU 132 2 PDVBLEN EQU 000 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 0 P*
0x235764…2358f8 Dummy {f00=0x00e4, 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 /
0x2358f8…235a8c Dummy {f00=0x00e4, 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
0x235a8c…235c20 Dummy {f00=0x00e4, 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
0x235c20…235db4 (3, 4) Dummy {f00=0x00e4, 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
0x235db4…235f48 Dummy {f00=0x00e4, 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
0x235f48…2360dc Dummy {f00=0x00e4, 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*
0x2360dc…236270 Dummy {f00=0x00e4, 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
0x236270…236404 Dummy {f00=0x00e4, 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
0x236404…236598 Dummy {f00=0x00e4, 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
0x236598…23672c Dummy {f00=0x00e4, 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
0x23672c…2368c0 Dummy {f00=0x00e4, 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
0x2368c0…236a54 (3, 5) Dummy {f00=0x00e4, 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
0x236a54…236be8 Dummy {f00=0x00e4, 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 *
0x236be8…236d7c Dummy {f00=0x00e4, 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
0x236d7c…236f10 Dummy {f00=0x00e4, 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
0x236f10…2370a4 Dummy {f00=0x00e4, 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
0x2370a4…237238 Dummy {f00=0x00e4, 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
0x237238…2373cc Dummy {f00=0x00e4, 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 $
0x2373cc…237560 Dummy {f00=0x00e4, 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
0x237560…2376f4 (3, 6) Dummy {f00=0x00e4, 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 &
0x2376f4…237888 Dummy {f00=0x00e4, 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
0x237888…237a1c Dummy {f00=0x00e4, 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
0x237a1c…237bb0 Dummy {f00=0x00e4, 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
0x237bb0…237d44 Dummy {f00=0x00e4, 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
0x237d44…237ed8 Dummy {f00=0x00e4, 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? +
0x237ed8…23806c Dummy {f00=0x00e4, 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*
0x23806c…238200 Dummy {f00=0x00e4, 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 * =
0x238200…238394 (3, 7) Dummy {f00=0x00e5, 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
0x238394…238528 Dummy {f00=0x00e5, 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
0x238528…2386bc Dummy {f00=0x00e5, 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
0x2386bc…238850 Dummy {f00=0x00e5, 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,
0x238850…2389e4 Dummy {f00=0x00e5, 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
0x2389e4…238b78 Dummy {f00=0x00e5, 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
0x238b78…238d0c Dummy {f00=0x00e5, 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
0x238d0c…238ea0 Dummy {f00=0x00e5, 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
0x238ea0…239034 (3, 8) Dummy {f00=0x00e5, 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
0x239034…2391c8 Dummy {f00=0x00e5, 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
0x2391c8…23935c Dummy {f00=0x00e5, 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
0x23935c…2394f0 Dummy {f00=0x00e5, 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
0x2394f0…239684 Dummy {f00=0x00e5, 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
0x239684…239818 Dummy {f00=0x00e5, 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 ; *
0x239818…2399ac Dummy {f00=0x00e5, 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
0x2399ac…239b40 Dummy {f00=0x00e5, 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 =
0x239b40…239cd4 (3, 9) Dummy {f00=0x00e5, 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
0x239cd4…239e68 Dummy {f00=0x00e5, 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 ?
0x239e68…239ffc Dummy {f00=0x00e5, 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)
0x239ffc…23a190 Dummy {f00=0x00e5, 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
0x23a190…23a324 Dummy {f00=0x00e5, 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 !!!!!!!
0x23a324…23a4b8 Dummy {f00=0x00e5, 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
0x23a4b8…23a64c Dummy {f00=0x00e5, 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
0x23a64c…23a7e0 Dummy {f00=0x00e5, 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
0x23a7e0…23a974 (3, 10) Dummy {f00=0x00e5, 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
0x23a974…23ab08 Dummy {f00=0x00e5, 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
0x23ab08…23ac9c Dummy {f00=0x00e5, 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*
0x23ac9c…23ae30 Dummy {f00=0x00e5, 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
0x23ae30…23afc4 Dummy {f00=0x00e5, 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
0x23afc4…23b158 Dummy {f00=0x00e5, 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
0x23b158…23b2ec Dummy {f00=0x00e5, 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,
0x23b2ec…23b480 Dummy {f00=0x00e5, f01=0x0190, f02=»******************************* D p P* E ( & P* Z E R O : 3 TRIPLE ZERO KEY E 2 ( P* Z E R O : 2 DOUBLE ZERO KEY E P* E 6 P************************************************* E P E PZERO:3 EQU * E P LDK A1,X'30' CHARACTER ZERO E
0x23b480…23b614 (3, 11) Opaque[0x194]
0x23b614…23b7a8 # DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x2020, f01=0x3031, f02=0x1cc0, f03=0x3132}
0x23b614…23b7a8 IdxSect {
0x23b614…23b7a8 f00 = 0x00e6 // 0x23b614 @0x0
0x23b614…23b7a8 f01 = 0x0002 // 0x23b616 @0x2
0x23b614…23b7a8 gno = [ // 0x23b618 @0x4
0x23b614…23b7a8 [0x00]: C0x00e6.0x0.0
0x23b614…23b7a8 ]
0x23b614…23b7a8 }
0x23b7a8…23b93c Dummy {f00=0x00e6, 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
0x23b93c…23bad0 Dummy {f00=0x00e6, 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
0x23bad0…23bc64 Dummy {f00=0x00e6, 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
0x23bc64…23bdf8 Dummy {f00=0x00e6, 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 *
0x23bdf8…23bf8c Dummy {f00=0x00e6, 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
0x23bf8c…23c120 Dummy {f00=0x00e6, f01=0x4072, f02=» _ & < @ nNPE l SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x23c120…23c2b4 (3, 12) Opaque[0x194]
0x23c2b4…23c448 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x434b, f01=0x204e, f02=0x1cc8, f03=0x203d}
0x23c2b4…23c448 IdxSect {
0x23c2b4…23c448 f00 = 0x00e6 // 0x23c2b4 @0x0
0x23c2b4…23c448 f01 = 0x0002 // 0x23c2b6 @0x2
0x23c2b4…23c448 gno = [ // 0x23c2b8 @0x4
0x23c2b4…23c448 [0x00]: C0x00e6.0x1.0
0x23c2b4…23c448 ]
0x23c2b4…23c448 }
0x23c448…23c5dc Dummy {f00=0x00e6, f01=0x0190, f02=» $ IDENT CTAB01 REL 1.3 791024.NJ * , : 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
0x23c5dc…23c770 Dummy {f00=0x00e6, f01=0x0190, f02=» DATA /B6B5,/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,
0x23c770…23c904 Dummy {f00=0x00e6, 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,/7F3E,/7F3F,/3B5F,/3A7F : 5 DATA /3D21,/2223,
0x23c904…23ca98 Dummy {f00=0x00e6, 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,/7F3E,/7F3F,/3B5F,/3A7F : 5 DATA /3D21,/2223,
0x23ca98…23cc2c Dummy {f00=0x00e6, 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
0x23cc2c…23cdc0 Dummy {f00=0x00e6, 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*
0x23cdc0…23cf54 (3, 13) Opaque[0x194]
0x23cf54…23d0e8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x1cd0, f03=0x0005}
0x23cf54…23d0e8 IdxSect {
0x23cf54…23d0e8 f00 = 0x00e6 // 0x23cf54 @0x0
0x23cf54…23d0e8 f01 = 0x0004 // 0x23cf56 @0x2
0x23cf54…23d0e8 gno = [ // 0x23cf58 @0x4
0x23cf54…23d0e8 [0x00]: C0x00e6.0x2.0
0x23cf54…23d0e8 [0x01]: C0x00e6.0x3.0
0x23cf54…23d0e8 ]
0x23cf54…23d0e8 }
0x23d0e8…23d27c Dummy {f00=0x00e6, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 2 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*
0x23d27c…23d410 Dummy {f00=0x00e6, 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
0x23d410…23d5a4 Dummy {f00=0x00e6, f01=0x0190, f02=» P* 7C 5C P* 00 7C P* 5A 24 $ P* 6A 40 4 > P* 2F 19 USM(2F) TIL EM(19 DK2 D P EJECT P* P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII P* P* PTASCII EQU * P I
0x23d5a4…23d738 Dummy {f00=0x00e6, f01=0x0190, f02=»10-17 r ( P DATA /0019,/0000,/7B1D,/601F 18-1F ( P DATA /0000,/0000,/0000,/171B 20-27 : ( P DATA /0000,/0000,/0005,/0000 28-2F f ( P DATA /0000,/1600,/0000,/0004 30-37 ( P DATA /0000,/0000,/1415,/001A 38-3F ( P DATA /2041,/4243,/4445,/4647
0x23d738…23d8cc Dummy {f00=0x00e6, f01=0x018e, f02=»F n ( P DATA /2D2F,/5354,/5556,/5758 60-67 ( P DATA /595A,/402C,/255F,/3E3F 68-6F 6 ( P DATA /1831,/3233,/3435,/3637 70-77 b ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F ( P DATA /2061,/6263,/6465,/6667 80-87 ( P DATA /6869,/5B2E,/3C28,/2B21 88-8
0x23d8cc…23da60 Dummy {f00=0x00e6, f01=0x0190, f02=» j ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF ( P DATA /3031,/3233,/3435,/3637 B0-B7 4 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ` ( P DATA /2041,/4243,/4445,/4647 C0-C7 ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7
0x23da60…23dbf4 (3, 14) Dummy {f00=0x00e6, f01=0x0190, f02=» ( P DATA /3031,/3233,/3435,/3637 F0-F7 ( P DATA /3839,/3A23,/4027,/3DFF F8-FF 0 P XIF P EJECT h P* v P* 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA
0x23dbf4…23dd88 Dummy {f00=0x00e6, f01=0x0190, f02=»9,/3F27,/1C1D,/1E1F 18-1F ( P DATA /404F,/7F4A,/5A6C,/507D 20-27 " ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F N ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 z ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C
0x23dd88…23df1c Dummy {f00=0x00e6, f01=0x40f6, f02=»283,/8485,/8687 60-67 ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 J ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F v 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 P XIF P END @ ( P DATA /C8C
0x23df1c…23e0b0 Dummy {f00=0x00e6, 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,
0x23e0b0…23e244 Dummy {f00=0x00e6, f01=0x018e, f02=» P RTN A5 B P B P* B P* B ( " P* TIME OUT ROUTINE FUER LP 100 B 2 P* B X P* B b PZAUS EQU * B l P* B ~ " 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
0x23e244…23e3d8 Dummy {f00=0x00e6, f01=0x018e, f02=» P* C P* REGISTERS : C P* A1= WORK REGISTER C $ P* A4= BINARY INPUT C B P* A2,A4= ASCII OUTPUT C ^ P* C ~ 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
0x23e3d8…23e56c Dummy {f00=0x00e6, f01=0x018e, f02=» C ~ P SUK A4,10 D 2 P ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y D P RB KONV05 NEXT D P " PKONV04 ORKL A2,/3030 XY IN A2 D h 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 KE
0x23e56c…23e700 Dummy {f00=0x00e6, f01=0x0190, f02=» D PRESREC EQU * E " P LD A4,DWTST,A6 DEVICE STATUS E P ANKL A4,/200 RECOVERY? E B P RF(E) RESRTN NO. E b , P XRS A4,DWTST,A6 YES. RESET RECOVERY BIT E | PRESRTN RTN A5 RETURN E P E P* E P* E P* S E N D E P* E , P* THIS
0x23e700…23e894 (3, 15) Opaque[0x194]
0x23e894…23ea28 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1ce0, f03=0x0000}
0x23e894…23ea28 IdxSect {
0x23e894…23ea28 f00 = 0x00e7 // 0x23e894 @0x0
0x23e894…23ea28 f01 = 0x000e // 0x23e896 @0x2
0x23e894…23ea28 gno = [ // 0x23e898 @0x4
0x23e894…23ea28 [0x00]: C0x00e7.0x0.0
0x23e894…23ea28 [0x01]: C0x00e7.0x1.0
0x23e894…23ea28 [0x02]: C0x00e7.0x2.0
0x23e894…23ea28 [0x03]: C0x00e7.0x3.0
0x23e894…23ea28 [0x04]: C0x00e8.0x0.0
0x23e894…23ea28 [0x05]: C0x00e8.0x1.0
0x23e894…23ea28 [0x06]: C0x00e8.0x2.0
0x23e894…23ea28 ]
0x23e894…23ea28 }
0x23ea28…23ebbc Dummy {f00=0x00e7, 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
0x23ebbc…23ed50 Dummy {f00=0x00e7, f01=0x0190, f02=» ! x GETCHR * & @ P P $ ! * * & X P ! +T X X , ( @ ! T W +T X " T X : ! OUTPUT , ( Y 7 Y 9 ! 7 ! W , ( X ; !
0x23ed50…23eee4 Dummy {f00=0x00e7, f01=0x018e, f02=» ! Y , , ! X , Y *W , ( 0P 1T ! W ! ( , ( @@ ! X B) Y B X " T Y : Y X , ( ; W P ! ! W * & ] Z _R /P C _ . ! , ( X " T Y :_4 Y ;_:
0x23eee4…23f078 Dummy {f00=0x00e7, f01=0x0190, f02=» , ( @ O Y< P Y $ X SAVE8 8 , ( kH X B$ T , Y BW Y H , ( B Y . ! X @T Y @ x , ( ! Y " Y $ 3 ! Y & & & DWTECB , ( ! 0 ! Y ( Y *
0x23f078…23f20c Dummy {f00=0x00e7, f01=0x0190, f02=»P ! X P y SETIMP & , ( / B W Y 8 STREG h , ( G ! X P y " ! x , ( a P 0 : P Y / _Z X DWTSB1` * & $ P y Y X / 4
0x23f20c…23f3a0 Dummy {f00=0x00e7, f01=0x0190, f02=» Y 0 X 0 ," :HR x * & 0 P :h ! Y 0_ X 2 , ! , ( Y 2_ 4 :h 0 :C ! F , ( + 4121518242530333536485051606670 v , ( K 72010203040506070809101111131415 ( $ k H D ! =
0x23f3a0…23f534 (3, 16) Dummy {f00=0x00e7, 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 @
0x23f534…23f6c8 Dummy {f00=0x00e7, f01=0x8190, f02=» < < p H D ! 0 0 T P P T( W$ 0 P P % , H D !A 7P ; ATf ITJ KW QT^ YT$ a y }W W Pt PB P x H D !. PV W Z W Z W P T W +T 7W ;P E 0 GW:
0x23f6c8…23f85c Dummy {f00=0x00e7, f01=0xc092, f02=» 0 T W H D !y T6 UR YP c kP uW P P P R R P 3R$ 9P d |@ T^ YT$ a y }W W Pt PB P x H D !. PV W Z W Z W P T W +T 7W ;P E 0 GW:
0x23f85c…23f9f0 Dummy {f00=0x00e7, f01=0xc120, f02=» J F IDENT DVTG1 REL 10.0 80-03-14 870105041000 DVTG1 R DVTG1 b GPAD8 t , ( GP , ( ? D
0x23f9f0…23fb84 Dummy {f00=0x00e7, f01=0x411e, f02=» D F IDENT DVGP01 DVGP01 FOR 8081 PRINTER DVGP01K L DVGP01K ^ GPADN r , ( GP , ( ? D
0x23fb84…23fd18 Dummy {f00=0x00e7, f01=0x0190, f02=» > F IDENT CTAB01 REL 1.3 791024.NJ CTAB01K CTAB02 F CTAB01K ` CTAB02 t , ( 0123 , ( ! 456789 , ( A 0123456789
0x23fd18…23feac Dummy {f00=0x00e7, f01=0x409e, f02=» * > ?;_: =!"# x , ( $%&/() @ABCDEFGHIJKLMNOPQRS TUVWXYZ []^ H < l l d @ 0123 , ( ! 456789 , ( A 0123456789
0x23feac…240040 Dummy {f00=0x00e7, f01=0x0190, f02=» J F IDENT DRGP02 REL 10.0 80-03-14 870105041000 GPADY R , ( [000b [000e [00t [00q 8 b GPADY < , ( ! [00w [00v c [5n DWTOR DWTST , ( A B $$ X
0x240040…2401d4 (3, 17) Dummy {f00=0x00e7, f01=0x0190, f02=» ! x GETCHR * & @ P P $ ! * * & X P ! +T X X , ( @ ! T W +T X " T X : ! OUTPUT , ( Y 7 Y 9 ! 7 ! W , ( X ; !
0x2401d4…240368 Dummy {f00=0x00e7, f01=0x0190, f02=» ! Y , , ! X , Y *W , ( 0P 1T ! W ! ( , ( @@ ! X B) Y B X " T Y : Y X , ( ; ! W P ! ! W , ( @ ] Z _R /P C _ , ( . ! X " T Y :
0x240368…2404fc Dummy {f00=0x00e7, f01=0x0190, f02=» $ P Y< P Y $ X LDREG ( SAVE8 8 , ( mI X B$ T , Y B H , ( W Y B Y . ! X @T x , ( Y @ ! Y " Y $ 3 ! Y & , ( @ & & ! 0 ! Y ( Y * Y
0x2404fc…240690 Dummy {f00=0x00e7, f01=0x0190, f02=» R P ! ! " ! , ( 3 P 0 : P Y / _$ X / 4 * , ( S dR d R _ 00,0 Z , ( s : " 4 X P Y , ( 4 Y 2 Y 0 X 0 ," :HR 0 P :h ! , ( Y 0_ X 2 , !
0x240690…240824 Dummy {f00=0x00e7, f01=0x0190, f02=»131415 z + H D ! = H A h C t gP u v w ~ y { $ } $ P P : H D ! P Tf TJ W T^ T$ P W P + /W 7Pt ?PB H D ! EP KPV MW U YW a i P w W P T W
0x240824…2409b8 Dummy {f00=0x00e7, f01=0x4028, f02=»P R$ P j : @ $
0x2409b8…240b4c Dummy {f00=0x00e7, f01=0x2008, f02=» L = PT001 DATE = 80 05 06 1216PACK NBR = 0001
0x240b4c…240ce0 Dummy {f00=0x00e7, 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
0x240ce0…240e74 (3, 18) Dummy {f00=0x00e7, f01=0x0190, f02=» d j , ( R _ 00,0: " , ( @ 4 X P Y 4 Y 2 Y 0 : , ( ) X 0 ," :HR 0 P :h ! Y 0_ j , ( G X 2 , ! Y 2_ 4 :h 0 , ( e :C ! 412151824253033353648 , ( 505160
0x240e74…241008 Dummy {f00=0x00e7, f01=0x0190, f02=» < < p H D ! 0 0 T P P T( W$ 0 P P % , H D !A 7P ; ATf ITJ KW QT^ YT$ a y }W W Pt PB P x H D !. PV W Z W Z W P T W +T 7W ;P E 0 GW:
0x241008…24119c Dummy {f00=0x00e7, f01=0x4092, f02=» 0 T W H D !y T6 UR YP c kP uW P P P R R P 3R$ 9P d |@ T^ YT$ a y }W W Pt PB P x H D !. PV W Z W Z W P T W +T 7W ;P E 0 GW:
0x24119c…241330 Dummy {f00=0x00e7, f01=0x2008, f02=»
0x241330…2414c4 Dummy {f00=0x00e7, 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
0x2414c4…241658 Dummy {f00=0x00e7, 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 :
0x241658…2417ec Dummy {f00=0x00e7, 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:
0x2417ec…241980 Dummy {f00=0x00e7, 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******************
0x241980…241b14 (3, 19) Dummy {f00=0x00e8, f01=0x0190, f02=»NEG P P* P* < P******************************************************* * P* j P* CONDITIONAL ASSEMBLY t P* < P******************************************************* P* P* P* 4 P* THE STANDARD
0x241b14…241ca8 Dummy {f00=0x00e8, 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
0x241ca8…241e3c Dummy {f00=0x00e8, 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
0x241e3c…241fd0 Dummy {f00=0x00e8, f01=0x0190, f02=»ICE t P* P* P* ( P* THE STANDARD PAGELENGTH IS DEFINED * & P* BY SETTING X:C = NUMBER OF LINES V P* P* PX:C EQU 48 PPAGLEN EQU X:C P* P* . P* THE STANDARD NUMBER OF LINES IS DEFINED & P* BY S
0x241fd0…242164 Dummy {f00=0x00e8, f01=0x018e, f02=» P* MMU BUFFER SIZE P* P* ( PX:E EQU 132 2 PDVBLEN EQU 150 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 0 P*
0x242164…2422f8 Dummy {f00=0x00e8, 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 /
0x2422f8…24248c Dummy {f00=0x00e8, 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
0x24248c…242620 Dummy {f00=0x00e8, 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
0x242620…2427b4 (3, 20) Dummy {f00=0x00e8, 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
0x2427b4…242948 Dummy {f00=0x00e8, 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
0x242948…242adc Dummy {f00=0x00e8, 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* $
0x242adc…242c70 Dummy {f00=0x00e8, 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 ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT
0x242c70…242e04 Dummy {f00=0x00e8, 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
0x242e04…242f98 Dummy {f00=0x00e8, 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,
0x242f98…24312c Dummy {f00=0x00e8, 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
0x24312c…2432c0 Dummy {f00=0x00e8, 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
0x2432c0…243454 (3, 21) Dummy {f00=0x00e8, f01=0x0190, f02=»***************************************** P* 2 P* < P* F 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN P 8 P* BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW P* P* 4 P* NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND
0x243454…2435e8 Dummy {f00=0x00e8, f01=0x0190, f02=» =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA P =5 ITALY,SWITZERLAND . P =6 SWEDEN,FINLAND N P =7 DENMARK,NORWAY l P =8 PORTUGAL,BRAZIL P =9 YUGOSLAVIA P =10 USA,CANADA,AUSTRALIA $ P =11 SWEDEN (SPECIAL VERSION)
0x2435e8…24377c Dummy {f00=0x00e8, f01=0x0190, f02=»02 GREAT BRITAIN AS STANDARD PSTDNCV EQU 07 $ P EJECT : P* H P* R , P* THE FRONT FEED DEVICE CAN BE EXCLUDED P* BY SETTING X:B = 0 P* P* PX:B EQU 1 " PFFDEV EQU 0 FRONT FEED DEVICE P* P* P
0x24377c…243910 Dummy {f00=0x00e8, f01=0x0190, f02=»GLEN EQU 51 P* P* . P* THE STANDARD NUMBER OF LINES IS DEFINED ( & P* BY SETTING X:D = NUMBER OF LINES Z P* P* PX:D EQU 36 * PDOCLEN EQU 48 P EJECT P* P* P* P* MMU BUFFER SIZE
0x243910…243aa4 Dummy {f00=0x00e8, f01=0x0190, f02=» f * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* 6 P* @ PMMUPAG EQU 0 J P* ^ P* h P* r 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION | . P* SET IS OBTAINED BY SETTING CPU852 EQU 0 P* P* PCPU852 EQU 0
0x243aa4…243c38 Dummy {f00=0x00e8, f01=0x0190, f02=» 0 P******************************************* P* < P* F P* P 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART Z P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4
0x243c38…243dcc Dummy {f00=0x00e8, f01=0x0190, f02=»U START+/16 PRINTER PAPER LENGTH . PDWTDL EQU START+/18 DOCUMENT PAPER LENGTH ( 0 PDWTALN EQU START+/1A ACTUAL LINE ON DOCUMENT Z 4 PDWTRLN EQU START+/1C REQUESTED LINE ON DOCUMENT 2 PDWTRC EQU START+/1F RETURN CODE (ACKUMULATED) 0 PDWTSTR EQU S
0x243dcc…243f60 Dummy {f00=0x00e8, f01=0x018e, f02=»UAL COLUMN DOCUMENT x , PDWTACP EQU START+/27 ACTUAL COLUMN PAPER * PDWTCO1 EQU START+/2A COLUMN COUNTER 1 L * PDWTCO2 EQU START+/2B COLUMN COUNTER 2 z , PDWTSYST EQU START+/30 SYSTEM START IND. 2 PDWTLFD EQU START+/32 LINE/FORM FEED INDICATOR
0x243f60…2440f4 (3, 22) Opaque[0x194]
0x2440f4…244288 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2d00, f03=0x0000}
0x2440f4…244288 IdxSect {
0x2440f4…244288 f00 = 0x0168 // 0x2440f4 @0x0
0x2440f4…244288 f01 = 0x0002 // 0x2440f6 @0x2
0x2440f4…244288 gno = [ // 0x2440f8 @0x4
0x2440f4…244288 [0x00]: C0x0168.0x0.0
0x2440f4…244288 ]
0x2440f4…244288 }
0x244288…24441c Dummy {f00=0x0168, f01=0x00de, f02=» PRD PRD /OB BYE M:92LP , PRD : PRD /OB F BYE V M:92NG b PRD p PRD /OB | BYE M:92NA PRD PRD /OB SCR ASG /E0,TY10
0x24441c…2445b0 Dummy {f00=0x0168, f01=0x2008, f02=» PRD /OB BYE M:92LP , PRD : PRD /OB F BYE V M:92NG b PRD p PRD /OB | BYE M:92NA PRD PRD /OB SCR ASG /E0,TY10
0x2445b0…244744 Dummy {f00=0x0168, f01=0x0000, f02=»
[…0x3…]
0x244c00…2458a0 (4, 0) DirGranule ((4, 0)) {
0x244c00…2458a0 DirEnt {nam=»M:92NA«, typ=» «, f00=0x0000, f01=0x0000, f02=0x1d18, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»M:92NA«, typ=»UF«, f00=0x2020, f01=0x2020, f02=0x1d20, f03=0x4441}
0x244c00…2458a0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x2020, f01=0x3031, f02=0x1d68, f03=0x3132}
0x244c00…2458a0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x434b, f01=0x204e, f02=0x1d70, f03=0x203d}
0x244c00…2458a0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x1fc0, f03=0x0005}
0x244c00…2458a0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fc8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fd0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fe8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2030, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2048, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2078, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2088, f03=0xffff}
0x244c00…2458a0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2120, f03=0xffff}
0x244c00…2458a0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x21f8, f03=0xffff}
0x244c00…2458a0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2348, f03=0xffff}
0x244c00…2458a0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2378, f03=0xffff}
0x244c00…2458a0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2380, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2390, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2398, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23a0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23a8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23b0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23b8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23c0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23c8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3100, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23d8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2418, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2460, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2498, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24b8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d10, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25c8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25f0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2670, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2740, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2750, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2768, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2780, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2798, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27a8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27c0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27f0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2820, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28b8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28c8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2908, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2928, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2938, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2940, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2970, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2980, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2990, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29a0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29b0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29f8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a00, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a08, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a10, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a18, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a20, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a28, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a30, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a38, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»M:92NA«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x3110, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ab8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»M:92NE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2ac8, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»M:92NE«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x26c0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»M:92N1«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2b50, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»M:92N1«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2b58, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»NJDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2bd0, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»M:92LP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2c80, f03=0x0000}
0x244c00…2458a0 DirEnt {nam=»GLDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2fb8, f03=0x0000}
0x244c00…2458a0 }
0x2458a0…245a34 (4, 1) Opaque[0x194]
0x245a34…245bc8 # DirEnt {nam=»M:92NA«, typ=»UF«, f00=0x2020, f01=0x2020, f02=0x1d20, f03=0x4441}
0x245a34…245bc8 IdxSect {
0x245a34…245bc8 f00 = 0x00e9 // 0x245a34 @0x0
0x245a34…245bc8 f01 = 0x0012 // 0x245a36 @0x2
0x245a34…245bc8 gno = [ // 0x245a38 @0x4
0x245a34…245bc8 [0x00]: C0x00e9.0x0.0
0x245a34…245bc8 [0x01]: C0x00e9.0x1.0
0x245a34…245bc8 [0x02]: C0x00e9.0x2.0
0x245a34…245bc8 [0x03]: C0x00e9.0x3.0
0x245a34…245bc8 [0x04]: C0x00ea.0x0.0
0x245a34…245bc8 [0x05]: C0x00ea.0x1.0
0x245a34…245bc8 [0x06]: C0x00ea.0x2.0
0x245a34…245bc8 [0x07]: C0x00ea.0x3.0
0x245a34…245bc8 [0x08]: C0x00eb.0x0.0
0x245a34…245bc8 ]
0x245a34…245bc8 }
0x245bc8…245d5c Dummy {f00=0x00e9, 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
0x245d5c…245ef0 Dummy {f00=0x00e9, f01=0x0190, f02=» MOV TDISP,/S,TOSSWORK KPF /S,TDISP " SCR 6 MOV LRPINT,/S,TOSSWORK B KPF /S,LRPINT ` SCR v MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR MOV TTMJOB
0x245ef0…246084 Dummy {f00=0x00e9, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB SCR MOV LKMAL,/S,TOSSWORK
0x246084…246218 Dummy {f00=0x00e9, f01=0x0190, f02=»REDIT EQU 1$$ z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ B !!EN n ASM /S z KPF /O KPF /S SCR LED TDISP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPA
0x246218…2463ac Dummy {f00=0x00e9, f01=0x0190, f02=»NT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ b !!EN ASM /S KPF /O KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x2463ac…246540 Dummy {f00=0x00e9, f01=0x018e, f02=»F /S SCR LED MSUBS ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ V ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TTMJOB ( #!!CH $
0x246540…2466d4 (4, 2) Dummy {f00=0x00e9, f01=0x0190, f02=» ASM /S KPF /O KPF /S SCR . LED TOSSIO : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SC
0x2466d4…246868 Dummy {f00=0x00e9, f01=0x0190, f02=»$CPU852 EQU 0$$ | !!EN ASM /S $ KPF /O 2 KPF /S @ SCR N LED SYSLDA Z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x246868…2469fc Dummy {f00=0x00e9, f01=0x0190, f02=»1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 8 ASM /S D KPF /O R KPF /S ` SCR n MOV DVTKB,/S,TOSSWORK z KPF /S,DVTKB SCR MOV DVTTP,/S,TOSSWORK KPF /S,DVTTP SCR MOV DVTGP,/S,TOSS
0x2469fc…246b90 Dummy {f00=0x00e9, f01=0x0190, f02=»KPF /S,DVTDY SCR MOV DWII01,/S,TOSSWORK KPF /S,DWII01 > SCR T INC DWII01,TOSSWORK ` KPF /O | MOV DWIO01,/S,TOSSWORK KPF /S,DWIO01 SCR INC DWIO01,TOSSWORK KPF /O MOV DW1501,/S,TOSSWO
0x246b90…246d24 Dummy {f00=0x00e9, f01=0x0190, f02=»1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 !!EN d ASM /S p KPF /O ~ KPF /S SCR LED DWIO01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x246d24…246eb8 Dummy {f00=0x00e9, f01=0x0190, f02=»!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ X !!EN ASM /S KPF /O KPF /S SCR MOV DRKB03,/S,TOSSWORK KPF /S,DRKB03 SCR MO
0x246eb8…24704c Dummy {f00=0x00e9, f01=0x0190, f02=»,/S,TOSSWORK KPF /S,DRDI01 SCR * MOV DRDY01,/S,TOSSWORK 6 KPF /S,DRDY01 T SCR j MOV DRRT01,/S,TOSSWORK v KPF /S,DRRT01 SCR MOV DRSOP1,/S,TOSSWORK KPF /S,DRSOP1 SCR MOV DRFD01,/S,TOSS
0x24704c…2471e0 Dummy {f00=0x00e9, f01=0x0190, f02=» KPF /S,DRDC15 SCR LED DRKB03 & !!CH $$ X:A$$ 1$$ 8 !!CH $$ X:B$$ 1$$ R !!CH $$ X:C$$ 1$$ l !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 40$$ !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 1$$
0x2471e0…247374 (4, 3) Dummy {f00=0x00e9, 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 DRTP02 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$
0x247374…247508 Dummy {f00=0x00e9, f01=0x0190, f02=»,/5E5F$$/2122,/2627,/3B3C,/3E40,/5E5F$$ r ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 0 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED DRGP01
0x247508…24769c Dummy {f00=0x00e9, f01=0x0190, f02=»$ X:F$$ 1$$ !!CH $$ X:G$$ 0$$ !!CH $$ X:H$$ 162$$ . ( #!!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
0x24769c…247830 Dummy {f00=0x00e9, f01=0x0190, f02=»EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN J ASM /S V KPF /O d KPF /S r SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!
0x247830…2479c4 Dummy {f00=0x00e9, f01=0x0190, f02=»1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 !!EN d ASM /S p KPF /O ~ KPF /S SCR LED DRRT01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!
0x2479c4…247b58 Dummy {f00=0x00e9, f01=0x0190, f02=»EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN J ASM /S V KPF /O d KPF /S r SCR LED DRSOP1 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMU
0x247b58…247cec Dummy {f00=0x00e9, f01=0x018e, f02=» LED DRFD01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ 4 !!CH $$ X:C$$ 1$$ N !!CH $$ X:D$$ 1$$ h !!CH $$ X:E$$ 256$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU
0x247cec…247e80 Dummy {f00=0x00e9, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED DRDC15 !!CH $$ X:A$$ 650$$ !!CH $$ X:B$$ /6
0x247e80…248014 (4, 4) Dummy {f00=0x00e9, f01=0x0190, f02=»$ ~ !!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 0$$ $ !!CH $$ X:J$$ 1$$ > !!CH $$ X:K$$ 0$$ X !!CH $$ X:L$$ 2$$ r !!CH $$ X:M$$ 00$$ !!CH $$ X:N$$ 02$$ !!CH $$ X:O$$ 0$$ !!CH $$ X:P$$ 0$$ !!CH $$ X:Q$$ 1$$
0x248014…2481a8 Dummy {f00=0x00e9, f01=0x0190, f02=»EQU 1$$CPU852 EQU 0$$ !!EN ASM /S * KPF /O 8 KPF /S F SCR T MOV EBCDIC,/S,TOSSWORK ` KPF /S,EBCDIC ~ SCR LED EBCDIC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ (
0x2481a8…24833c Dummy {f00=0x00e9, f01=0x0190, f02=»$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ . !!CH $$ X:D$$ 2$$ H !!CH $$ X:E$$ 1$$ b !!CH $$ X:F$$ 40$$ | !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 1$$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 040$$ !!CH $$
0x24833c…2484d0 Dummy {f00=0x00e9, f01=0x0190, f02=»U 0$$ r !!EN ASM /S KPF /O ( KPF /S 6 SCR D LED DVTKB P !!DL 35 b DATA 0,0,0,0,0,0,0,0 r DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0, !!IL 38 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0
0x2484d0…248664 Dummy {f00=0x00e9, f01=0x018e, f02=»ER SCR MOV TPROC,/S,TOSSWORK KPF /S,TPROC 4 SCR H MOV TMMLKM,/S,TOSSWORK T KPF /S,TMMLKM r SCR MOV TLDSEG,/S,TOSSWORK KPF /S,TLDSEG SCR MOV TABORT,/S,TOSSWORK KPF /S,TABORT
0x248664…2487f8 Dummy {f00=0x00e9, f01=0x0190, f02=» LED TIMER ( #!!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 TPROC ( #!!CH $$CREDIT EQU 0$$CREDI
0x2487f8…24898c Dummy {f00=0x00e9, f01=0x018e, f02=»/O KPF /S SCR LED TMMLKM $ ( #!!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 TLDSEG
0x24898c…248b20 Dummy {f00=0x00e9, f01=0x0190, f02=» !!EN ASM /S KPF /O KPF /S , SCR : LED TABORT 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
0x248b20…248cb4 (4, 5) Dummy {f00=0x00ea, f01=0x0190, f02=»PU852 EQU 1$$CPU852 EQU 0$$ !!EN $ ASM /S 0 KPF /O > KPF /S L SCR Z LED TASS f ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ x ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x248cb4…248e48 Dummy {f00=0x00ea, f01=0x0190, f02=»!!DL 042 DATA 00 !!DL 045 , DATA 00 < !!DL 050 X !!DL 051 h !!EN x ASM /S KPF /O KPF /S SCR LED LRPINT !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O
0x248e48…248fdc Dummy {f00=0x00ea, f01=0x0190, f02=»K SCR MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT 4 SCR J MOV TASS,/S,TOSSWORK V KPF /S,TASSI t SCR MOV DMTASS,/S,TOSSWORK KPF /S,DMTASS SCR MOV DMBUF,/S,TOSSWORK KPF /S,DMBUF SC
0x248fdc…249170 Dummy {f00=0x00ea, f01=0x0190, f02=»V DMSUBX,/S,TOSSWORK KPF /S,DMSUBX ! SCR ! 2 MOV ADDMOD,/S,TOSSWORK ! > KPF /S,ADDMOD ! SCR ! r MOV DSUMOD,/S,TOSSWORK ! ~ KPF /S,DSUMOD ! SCR ! MOV MPYMOD,/S,TOSSWORK ! KPF /S,MPYMOD ! SCR ! MOV DIVMOD
0x249170…249304 Dummy {f00=0x00ea, f01=0x0190, f02=»!!CH $$ X:A$$ 00000$$ ! ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ " ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ " J ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ " v !!EN " ASM /S " KPF /O " KPF /S " SCR " LED DMBUF " !!CH $$ X:A$$ 0000
0x249304…249498 Dummy {f00=0x00ea, f01=0x0190, f02=» " l !!EN # ASM /S # KPF /O # " KPF /S # 0 SCR # > LED DMTASK # J !!CH $$ X:A$$ 00001$$ # !!CH $$ X:B$$ 00000$$ # z !!CH $$ X:C$$ 00004$$ # ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ # ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ #
0x249498…24962c Dummy {f00=0x00ea, f01=0x0190, f02=»CH $$ X:A$$ 00004$$ # !!CH $$ X:B$$ 00000$$ $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ : ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ f ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!EN $ ASM /S $ KPF /O $ KPF /S $ SCR $ LED DFTA
0x24962c…2497c0 Dummy {f00=0x00ea, f01=0x0190, f02=» !!CH $$ X:B$$ 00360$$ % !!CH $$ X:C$$ 00000$$ % " !!CH $$ X:D$$ 00114$$ % @ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ % ^ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % !!EN % ASM /S % KPF /O %
0x2497c0…249954 (4, 6) Dummy {f00=0x00ea, f01=0x0190, f02=»CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % !!EN & * ASM /S & 6 KPF /O & D KPF /S & R SCR & ` LED TASS & l ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & ~ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & !!EN &
0x249954…249ae8 Dummy {f00=0x00ea, f01=0x0190, f02=»EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ' !!EN ' J ASM /S ' V KPF /O ' d KPF /S ' r SCR ' LED ADDMOD ' ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ' ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ' ( #!!CH $$CPU852 EQU
0x249ae8…249c7c Dummy {f00=0x00ea, f01=0x018e, f02=»T EQU 1$$ ' v ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( > !!EN ( j ASM /S ( v KPF /O ( KPF /S ( SCR ( LED MPYMOD ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQ
0x249c7c…249e10 Dummy {f00=0x00ea, 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 DMSUBR ) ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ )
0x249e10…249fa4 Dummy {f00=0x00ea, f01=0x018e, f02=»/S ) SCR * LED SYSTAB * !!CH $$IHINPT$$TRAP$$ * ( !!CH $$ X:A$$ 00001$$ * F !!CH $$ EXTRN BUG$$*$$ * d !!CH $$ BUG$$ 0$$ * !!CH $$ X:B$$ 00004$$ * !!CH $$ X:C$$ 00004$$ * !!CH $$ X:D$$ 00000$$ * !!CH $$ X:E$$ 0001
0x249fa4…24a138 Dummy {f00=0x00ea, f01=0x0190, f02=» !!IL 55 + EXTRN IH1501 + EXTRN IH1502 + 4 !!DL 056 + T !!DL 057 + d !!DL 067 + t !!DL 068 + !!DL 069 + !!DL 070 + !!DL 071 + !!DL 073 + !!DL 074 + !!DL 075 + !!DL 077 + !!DL
0x24a138…24a2cc Dummy {f00=0x00ea, f01=0x0190, f02=» DATA ILLINT , !!DL 133 , $ DATA ILLINT , 4 !!DL 134 , T DATA ILLINT , d !!DL 135 , DATA ILLINT , !!DL 136 , DATA ILLINT , !!DL 138 , DATA IL
0x24a2cc…24a460 Dummy {f00=0x00ea, f01=0x0190, f02=»A ILLINT , !!DL 149 - DATA ILLINT - $ !!DL 150 - D DATA ILLINT - T !!DL 155 - t DATA ILLINT - !!DL 156 - DATA ILLINT - !!DL 159 - DATA ILLINT - !!EN
0x24a460…24a5f4 (4, 7) Dummy {f00=0x00ea, f01=0x0190, f02=» - !!DL 014 . !!DL 018 . !!DL 019 . ( !!DL 020 . 8 !!DL 022 . H !!DL 023 . X !!DL 024 . h !!DL 025 . x !!DL 026 . !!DL 027 . !!DL 028 . !!DL 029 . !!DL 030 . !!DL 031 . !!DL 032 . !!DL 034 .
0x24a5f4…24a788 Dummy {f00=0x00ea, f01=0x0190, f02=» . !!DL 046 / !!DL 047 / !!DL 048 / ( !!DL 050 / 8 !!DL 051 / H !!DL 052 / X !!DL 053 / h !!DL 054 / x !!DL 055 / !!DL 056 / !!DL 057 / !!DL 058 / !!DL 059 / !!DL 060 / !!DL 062 / !!DL 063 /
0x24a788…24a91c Dummy {f00=0x00ea, f01=0x0190, f02=» $$CREDIT EQU 0$$CREDIT EQU 1$$ / ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 0 T !!CH $$DVTKB$$DVKB00$$ 0 !!CH $$KBAD$$KBAD3$$ 0 !!CH $$/1111$$/1100$$ 0 !!CH $$BCA$$FFFF$$ 0 !!CH $$ED0$$FFBA$$ 0
0x24a91c…24aab0 Dummy {f00=0x00ea, f01=0x018e, f02=»/O 0 KPF /S 1 SCR 1 LED DVTDY 1 $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 1 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 1 b ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 1 !!CH $$DVTDY$$DVDY00$$ 1 !!CH $$/ABC$$/1850$$ 1 !!CH $$/1111$$/C000$
0x24aab0…24ac44 Dummy {f00=0x00ea, f01=0x0190, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 0 !!CH $$DVTKB$$DVKB01$$ 2 !!CH $$KBAD$$KBAD3$$ 2 z !!CH $$/1111$$/1140$$ 2 !!CH $$BCA$$FFFF$$ 2 !!CH $$ED0$$FFBA$$ 2 " !!CH $$0 CODE $$CTAB02 CODE $$ 2
0x24ac44…24add8 Dummy {f00=0x00ea, f01=0x0190, f02=»LED DVTTP 2 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 3 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 3 > ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 3 j !!CH $$DVTTP$$DVTP01$$ 3 !!CH $$/1111$$/2000$$ 3 !!EN 3 ASM /S 3 KPF /O 3 KPF /S 3
0x24add8…24af6c Dummy {f00=0x00ea, f01=0x018e, f02=»1$$CPU852 EQU 0$$ 3 ~ !!CH $$DVTTP$$DVTP01$$ 4 !!CH $$/1111$$/2000$$ 4 8 !!EN 4 V ASM /S 4 b KPF /O 4 p KPF /S 4 ~ SCR 4 LED DVTTP 4 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 4 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $
0x24af6c…24b100 Dummy {f00=0x00ea, f01=0x0190, f02=» KPF /S 5 SCR 5 LED DVTDY 5 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 5 0 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 5 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 5 !!CH $$DVTDY$$DVDY01$$ 5 !!CH $$/ABC$$/1850$$ 5 !!CH $$/1111$$/C000$$ 5
0x24b100…24b294 (4, 8) Dummy {f00=0x00ea, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 5 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 6 ( !!CH $$DVTKB$$DVKB02$$ 6 T !!CH $$KBAD$$KBAD3$$ 6 r !!CH $$/1111$$/1100$$ 6 !!CH $$BCA$$FFFF$$ 6 !!CH $$ED0$$FFBA$$ 6 " !!CH $$0 CODE $$CTAB03 CODE $$ 6 !!
0x24b294…24b428 Dummy {f00=0x00ea, f01=0x018e, f02=»DI 6 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 7 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 7 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 7 b !!CH $$DVTDI$$DVDI02$$ 7 !!CH $$2010$$0000$$ 7 !!CH $$/1111$$/9010$$ 7 !!EN 7 ASM /S 7 KPF /O 7
0x24b428…24b5bc Dummy {f00=0x00ea, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 8 !!CH $$DVTDY$$DVDY02$$ 8 0 !!CH $$/ABC$$/1850$$ 8 N !!CH $$/1111$$/C000$$ 8 j !!EN 8 ASM /S 8 KPF /O 8 KPF /S 8 SCR 8 LED DVTGP 8 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 8 ( #
0x24b5bc…24b750 Dummy {f00=0x00ea, f01=0x0190, f02=»0$$ 8 ~ !!EN 9 ASM /S 9 KPF /O 9 & KPF /S 9 4 SCR 9 B LED TCLASS 9 N !!IL 6 9 ` EXTRN DVKB00 9 n EXTRN DVDY00 9 EXTRN DVKB01 9 EXTRN DVTP01 9 EXTRN DVDY01 9
0x24b750…24b8e4 Dummy {f00=0x00ea, f01=0x018e, f02=»IL 11 9 DATA TC00 : DATA TC01 : , DATA TC02 : J DATA TC03 : h !!IL 12 : TC00 DATA TC00E-* : DATA /0021 : DATA DVKB00 : DATA
0x24b8e4…24ba78 Dummy {f00=0x00ea, f01=0x0190, f02=» : v DATA DVKB01 ; DATA /00301 ; ( DATA DVTP01 ; H DATA /02311 ; h DATA DVTP01 ; DATA /01321 ; DATA DVTP01 ; DATA /00501 ;
0x24ba78…24bc0c Dummy {f00=0x00ea, f01=0x018e, f02=»ATA DVKB02 ; DATA /00402 < DATA DVDI02 < 6 DATA /00502 < V DATA DVDY02 < v TC02E EQU * < TC03 DATA TC03E-* < DATA /00302 < DATA DV
0x24bc0c…24bda0 Dummy {f00=0x00ea, f01=0x0190, f02=» EXTRN DWSI01 = EXTRN DWSO01 = $ EXTRN DWII01 = D EXTRN DWIO01 = d EXTRN DW1501 = EXTRN DW1500 = EXTRN DWREMU = EXTRN DWFD01 = !!IL 11 =
0x24bda0…24bf34 (4, 9) Dummy {f00=0x00eb, f01=0x0190, f02=» TC04 = !!IL 12 > TC00 DATA TC00E-* > DATA /00101 > B DATA DWSI01 > b DATA /00111 > DATA DWSO01 > TC00E EQU * > TC01 DATA TC01E-* >
0x24bf34…24c0c8 Dummy {f00=0x00eb, f01=0x0190, f02=»/00E11 > ~ DATA DWIO01 ? TC02E EQU * ? . TC03 DATA TC03E-* ? J DATA /00611 ? l DATA DW1501 ? TC03E EQU * ? TC04 DATA TC04E-* ? DATA /00601 ?
0x24c0c8…24c25c Dummy {f00=0x00eb, f01=0x0190, f02=»ATA /01F90 ? DATA DWFD01 @ DATA /02FA0 @ , DATA DWFD01 @ L DATA /03FB0 @ b DATA DWFD01 @ TC04E EQU * @ !!EN @ ASM /S @ KPF /O @ KPF /S @ SCR @ LED MONTAB @
0x24c25c…24c3f0 Dummy {f00=0x00eb, f01=0x018e, f02=»24 @ !!DL 027 A !!DL 029 A !!DL 030 A * !!DL 031 A : !!DL 032 A J !!DL 033 A Z !!IL 47 A j **** A z DATA CTAB01 A DATA CTAB02 A DATA CTAB03 A DATA ITAD A !!DL 049 A !!DL 052 A !!DL 055 A
0x24c3f0…24c584 Dummy {f00=0x00eb, f01=0x0076, f02=» SCR B ASG /02,LP0F B SCR B $ INC SYSTAB B 0 LKE M B B KPF /L,M:92NA B P ASG /E0,TY10 B f **** A z DATA CTAB01 A DATA CTAB02 A DATA CTAB03 A DATA ITAD A !!DL 049 A !!DL 052 A !!DL 055 A
0x24c584…24c718 Dummy {f00=0x00eb, f01=0x2008, f02=» C B ASG /02,LP0F B SCR B $ INC SYSTAB B 0 LKE M B B KPF /L,M:92NA B P ASG /E0,TY10 B f **** A z DATA CTAB01 A DATA CTAB02 A DATA CTAB03 A DATA ITAD A !!DL 049 A !!DL 052 A !!DL 055 A
0x24c718…24c8ac Dummy {f00=0x00eb, f01=0x0190, f02=» O N Z_ (@P B ] ] N " T : N "0 :d HF R _ 0" 1 V " 2 P W X }T 9 ~T 5 aR = _X = R 0" ZZ_" pR GH V 0" 1 V " 2 P W X {T * =
0x24c8ac…24ca40 Dummy {f00=0x00eb, f01=0x0190, f02=» ( Z 0 O ( B : C ( : O N T B O N - O N N " P N " O N " P N " O W B H, : C C C ( :H Q ( P _@
0x24ca40…24cbd4 (4, 10) Opaque[0x194]
0x24cbd4…24cd68 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x2020, f01=0x3031, f02=0x1d68, f03=0x3132}
0x24cbd4…24cd68 IdxSect {
0x24cbd4…24cd68 f00 = 0x00eb // 0x24cbd4 @0x0
0x24cbd4…24cd68 f01 = 0x0002 // 0x24cbd6 @0x2
0x24cbd4…24cd68 gno = [ // 0x24cbd8 @0x4
0x24cbd4…24cd68 [0x00]: C0x00eb.0x1.0
0x24cbd4…24cd68 ]
0x24cbd4…24cd68 }
0x24cd68…24cefc Dummy {f00=0x00eb, f01=0x0190, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVKB01 P EXTRN DVTP01 P
0x24cefc…24d090 Dummy {f00=0x00eb, f01=0x0190, f02=» DVGP03 P* P* P* $ P* . PTCLASS DATA TCLASE-* 8 P DATA TC00 T P DATA TC01 r P DATA TC02 P DATA TC03 PTCLASE EQU * PTC00 DATA TC00E-* P
0x24d090…24d224 Dummy {f00=0x00eb, f01=0x0190, f02=» * PTC01 DATA TC01E-* P DATA /0020 0 P DATA DVKB01 P P DATA /0030 p P DATA DVTP01 P DATA /0231 P DATA DVTP01 P DATA /0132
0x24d224…24d3b8 Dummy {f00=0x00eb, f01=0x4188, f02=» DATA TC02E-* P DATA /0020 P DATA DVKB02 > P DATA /0040 ^ P DATA DVDI02 ~ P DATA /0050 P DATA DVDY02 PTC02E EQU * PTC03 DATA
0x24d3b8…24d54c Dummy {f00=0x00eb, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x24d54c…24d6e0 Dummy {f00=0x00eb, f01=0x0000, f02=»
0x24d6e0…24d874 (4, 11) Opaque[0x194]
0x24d874…24da08 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x434b, f01=0x204e, f02=0x1d70, f03=0x203d}
0x24d874…24da08 IdxSect {
0x24d874…24da08 f00 = 0x00eb // 0x24d874 @0x0
0x24d874…24da08 f01 = 0x0094 // 0x24d876 @0x2
0x24d874…24da08 gno = [ // 0x24d878 @0x4
0x24d874…24da08 [0x00]: C0x00eb.0x2.0
0x24d874…24da08 [0x01]: C0x00eb.0x3.0
0x24d874…24da08 [0x02]: C0x00ec.0x0.0
0x24d874…24da08 [0x03]: C0x00ec.0x1.0
0x24d874…24da08 [0x04]: C0x00ec.0x2.0
0x24d874…24da08 [0x05]: C0x00ec.0x3.0
0x24d874…24da08 [0x06]: C0x00ed.0x0.0
0x24d874…24da08 [0x07]: C0x00ed.0x1.0
0x24d874…24da08 [0x08]: C0x00ed.0x2.0
0x24d874…24da08 [0x09]: C0x00ed.0x3.0
0x24d874…24da08 [0x0a]: C0x00ee.0x0.0
0x24d874…24da08 [0x0b]: C0x00ee.0x1.0
0x24d874…24da08 [0x0c]: C0x00ee.0x2.0
0x24d874…24da08 [0x0d]: C0x00ee.0x3.0
0x24d874…24da08 [0x0e]: C0x00ef.0x0.0
0x24d874…24da08 [0x0f]: C0x00ef.0x1.0
0x24d874…24da08 [0x10]: C0x00ef.0x2.0
0x24d874…24da08 [0x11]: C0x00ef.0x3.0
0x24d874…24da08 [0x12]: C0x00f0.0x0.0
0x24d874…24da08 [0x13]: C0x00f0.0x1.0
0x24d874…24da08 [0x14]: C0x00f0.0x2.0
0x24d874…24da08 [0x15]: C0x00f0.0x3.0
0x24d874…24da08 [0x16]: C0x00f1.0x0.0
0x24d874…24da08 [0x17]: C0x00f1.0x1.0
0x24d874…24da08 [0x18]: C0x00f1.0x2.0
0x24d874…24da08 [0x19]: C0x00f1.0x3.0
0x24d874…24da08 [0x1a]: C0x00f2.0x0.0
0x24d874…24da08 [0x1b]: C0x00f2.0x1.0
0x24d874…24da08 [0x1c]: C0x00f2.0x2.0
0x24d874…24da08 [0x1d]: C0x00f2.0x3.0
0x24d874…24da08 [0x1e]: C0x00f3.0x0.0
0x24d874…24da08 [0x1f]: C0x00f3.0x1.0
0x24d874…24da08 [0x20]: C0x00f3.0x2.0
0x24d874…24da08 [0x21]: C0x00f3.0x3.0
0x24d874…24da08 [0x22]: C0x00f4.0x0.0
0x24d874…24da08 [0x23]: C0x00f4.0x1.0
0x24d874…24da08 [0x24]: C0x00f4.0x2.0
0x24d874…24da08 [0x25]: C0x00f4.0x3.0
0x24d874…24da08 [0x26]: C0x00f5.0x0.0
0x24d874…24da08 [0x27]: C0x00f5.0x1.0
0x24d874…24da08 [0x28]: C0x00f5.0x2.0
0x24d874…24da08 [0x29]: C0x00f5.0x3.0
0x24d874…24da08 [0x2a]: C0x00f6.0x0.0
0x24d874…24da08 [0x2b]: C0x00f6.0x1.0
0x24d874…24da08 [0x2c]: C0x00f6.0x2.0
0x24d874…24da08 [0x2d]: C0x00f6.0x3.0
0x24d874…24da08 [0x2e]: C0x00f7.0x0.0
0x24d874…24da08 [0x2f]: C0x00f7.0x1.0
0x24d874…24da08 [0x30]: C0x00f7.0x2.0
0x24d874…24da08 [0x31]: C0x00f7.0x3.0
0x24d874…24da08 [0x32]: C0x00f8.0x0.0
0x24d874…24da08 [0x33]: C0x00f8.0x1.0
0x24d874…24da08 [0x34]: C0x00f8.0x2.0
0x24d874…24da08 [0x35]: C0x00f8.0x3.0
0x24d874…24da08 [0x36]: C0x00f9.0x0.0
0x24d874…24da08 [0x37]: C0x00f9.0x1.0
0x24d874…24da08 [0x38]: C0x00f9.0x2.0
0x24d874…24da08 [0x39]: C0x00f9.0x3.0
0x24d874…24da08 [0x3a]: C0x00fa.0x0.0
0x24d874…24da08 [0x3b]: C0x00fa.0x1.0
0x24d874…24da08 [0x3c]: C0x00fa.0x2.0
0x24d874…24da08 [0x3d]: C0x00fa.0x3.0
0x24d874…24da08 [0x3e]: C0x00fb.0x0.0
0x24d874…24da08 [0x3f]: C0x00fb.0x1.0
0x24d874…24da08 [0x40]: C0x00fb.0x2.0
0x24d874…24da08 [0x41]: C0x00fb.0x3.0
0x24d874…24da08 [0x42]: C0x00fc.0x0.0
0x24d874…24da08 [0x43]: C0x00fc.0x1.0
0x24d874…24da08 [0x44]: C0x00fc.0x2.0
0x24d874…24da08 [0x45]: C0x00fc.0x3.0
0x24d874…24da08 [0x46]: C0x00fd.0x0.0
0x24d874…24da08 [0x47]: C0x00fd.0x1.0
0x24d874…24da08 [0x48]: C0x00fd.0x2.0
0x24d874…24da08 [0x49]: C0x00fd.0x3.0
0x24d874…24da08 ]
0x24d874…24da08 }
0x24da08…24db9c Dummy {f00=0x00eb, f01=0xc0b0, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x24db9c…24dd30 Dummy {f00=0x00eb, f01=0xc0b0, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x24dd30…24dec4 Dummy {f00=0x00eb, 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
0x24dec4…24e058 Dummy {f00=0x00eb, f01=0x4154, f02=» INTRT4 SYSLOD CTAB01L $ CTAB02 6 * & H CTAB03 v ITADN KBAD3 TPADN GPADN DIADN DYADN , (
0x24e058…24e1ec Dummy {f00=0x00eb, 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
0x24e1ec…24e380 Dummy {f00=0x00eb, 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
0x24e380…24e514 (4, 12) Dummy {f00=0x00eb, f01=0x018e, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 , ( ! , ( 1
0x24e514…24e6a8 Dummy {f00=0x00eb, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x24e6a8…24e83c Dummy {f00=0x00eb, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x24e83c…24e9d0 Dummy {f00=0x00eb, f01=0x4062, f02=» _ , L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x24e9d0…24eb64 Dummy {f00=0x00eb, 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
0x24eb64…24ecf8 Dummy {f00=0x00eb, 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
0x24ecf8…24ee8c Dummy {f00=0x00eb, 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
0x24ee8c…24f020 Dummy {f00=0x00eb, 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
0x24f020…24f1b4 (4, 13) Dummy {f00=0x00ec, f01=0x0190, f02=» A Q | , ( _0 A < Q P Q Z MONCLO L MEXIT ` , ( Y _ 8 p FREBLK0 , ( Q Z P 0 9 _ TIMQUE@ , , ( @ _,
0x24f1b4…24f348 Dummy {f00=0x00ec, 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 @ ( @ _,
0x24f348…24f4dc Dummy {f00=0x00ec, 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
0x24f4dc…24f670 Dummy {f00=0x00ec, 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
0x24f670…24f804 Dummy {f00=0x00ec, 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
0x24f804…24f998 Dummy {f00=0x00ec, 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
0x24f998…24fb2c Dummy {f00=0x00ec, 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
0x24fb2c…24fcc0 Dummy {f00=0x00ec, 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 > ?
0x24fcc0…24fe54 (4, 14) Dummy {f00=0x00ec, 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
0x24fe54…24ffe8 Dummy {f00=0x00ec, 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
0x24ffe8…25017c Dummy {f00=0x00ec, 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
0x25017c…250310 Dummy {f00=0x00ec, 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
0x250310…2504a4 Dummy {f00=0x00ec, 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
0x2504a4…250638 Dummy {f00=0x00ec, 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
0x250638…2507cc Dummy {f00=0x00ec, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x2507cc…250960 Dummy {f00=0x00ec, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x250960…250af4 (4, 15) Dummy {f00=0x00ec, f01=0x018e, f02=»P l TDISP FNDDWT |TIO . , ( yI U XH > TTB:ID n , ( D #DP @ R XV Y TIODM , ( @ P T W X &P TTB:PW , (
0x250af4…250c88 Dummy {f00=0x00ec, f01=0x0190, f02=» , ( - x '? Y T Y GETBLKP 4 QTJOB F , ( K W Y T # P W V , ( g Y P R R P P (@ (@ , ( " 2 X $? P $ > > , (
0x250c88…250e1c Dummy {f00=0x00ec, f01=0x0190, f02=» F :c" v TTB:MTE , ( ' H :b"? #" : C > B R ( , ( E Q P B P X , ( e 0$ T # R Q > , ( X B U H Q X D B , ( $ T C x > C
0x250e1c…250fb0 Dummy {f00=0x00ec, f01=0x0190, f02=» U H B P P $ # , ( # Q > P * , ( C _0 # T p > P p (_H Z , ( c _2 B U DC:MOT , ( X > ? _ X T DC:MIN
0x250fb0…251144 Dummy {f00=0x00ec, f01=0x0190, f02=» Q M r , ( X D ( * & ) 1 > _" X X T B TTMJOBP p MEXIT QMJOB , ( B = U . TENDIO b , ( U@ Y _| ?(@
0x251144…2512d8 Dummy {f00=0x00ec, f01=0x0190, f02=» 1 1 X P - M T , ( @ $ P _ T " # ( , ( p X L R P P (@ X , ( @ ^ X P P # P , ( ' @ T P 0P 1 FREBLK ACTOTPN
0x2512d8…25146c Dummy {f00=0x00ec, f01=0x4154, f02=» x UW cP uP P P, T W P T T W4 GT MW UT H D ! YP ]W mP sR uP { }P Q P GQ~ QP0 WP* mT yQL } B H D ! U( Q2 T V b UJ P PL +Q 1P KT SP U T Rl H D ! U Q0 b sP& P P T T P PD
0x25146c…251600 Dummy {f00=0x00ec, 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
0x251600…251794 (4, 16) Dummy {f00=0x00ec, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x251794…251928 Dummy {f00=0x00ec, 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
0x251928…251abc Dummy {f00=0x00ec, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x251abc…251c50 Dummy {f00=0x00ec, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x251c50…251de4 Dummy {f00=0x00ec, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x251de4…251f78 Dummy {f00=0x00ec, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x251f78…25210c Dummy {f00=0x00ec, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x25210c…2522a0 Dummy {f00=0x00ec, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x2522a0…252434 (4, 17) Dummy {f00=0x00ed, 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
0x252434…2525c8 Dummy {f00=0x00ed, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x2525c8…25275c Dummy {f00=0x00ed, 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
0x25275c…2528f0 Dummy {f00=0x00ed, 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
0x2528f0…252a84 Dummy {f00=0x00ed, 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 !
0x252a84…252c18 Dummy {f00=0x00ed, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x252c18…252dac Dummy {f00=0x00ed, 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 :
0x252dac…252f40 Dummy {f00=0x00ed, 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 &
0x252f40…2530d4 (4, 18) Dummy {f00=0x00ed, 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
0x2530d4…253268 Dummy {f00=0x00ed, 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 @
0x253268…2533fc Dummy {f00=0x00ed, 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
0x2533fc…253590 Dummy {f00=0x00ed, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x253590…253724 Dummy {f00=0x00ed, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x253724…2538b8 Dummy {f00=0x00ed, f01=0x0190, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND , (
0x2538b8…253a4c Dummy {f00=0x00ed, 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
0x253a4c…253be0 Dummy {f00=0x00ed, 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 , (
0x253be0…253d74 (4, 19) Dummy {f00=0x00ed, 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
0x253d74…253f08 Dummy {f00=0x00ed, 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
0x253f08…25409c Dummy {f00=0x00ed, f01=0x018e, f02=» j SAVE8 , ( = 0 H W : ? ? SCTLAC J , ( ] R 0 ACTOT RETUR8P , ( y R P P B _ : , ( V ) v : 4P
0x25409c…254230 Dummy {f00=0x00ed, 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
0x254230…2543c4 Dummy {f00=0x00ed, f01=0x0190, f02=» @ @ x SCTPAG SCTNOPN * * & ! @ < , ( P P P P _ _ j SCTPSZ , ( D @ 9N @ :b @ :b , ( / V W U
0x2543c4…254558 Dummy {f00=0x00ed, f01=0x0190, f02=» l SCTSEG , ( A A 9n A :B A , ( D @ .V N PAGQUE ~ , ( 3 S Y& P , ( S P , ( 3 _
0x254558…2546ec Dummy {f00=0x00ed, 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
0x2546ec…254880 Dummy {f00=0x00ed, 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
0x254880…254a14 (4, 20) Dummy {f00=0x00ed, 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 , , (
0x254a14…254ba8 Dummy {f00=0x00ed, 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
0x254ba8…254d3c Dummy {f00=0x00ed, 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
0x254d3c…254ed0 Dummy {f00=0x00ed, 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 , (
0x254ed0…255064 Dummy {f00=0x00ed, f01=0x0190, f02=» h , ( / :b / W , ( O : W @ W D 8 , ( k V W W ` " h , ( W p @ pP " , ( 4X 1 R , ( @Z0
0x255064…2551f8 Dummy {f00=0x00ed, 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 !
0x2551f8…25538c Dummy {f00=0x00ed, 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
0x25538c…255520 Dummy {f00=0x00ed, 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
0x255520…2556b4 (4, 21) Dummy {f00=0x00ee, 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
0x2556b4…255848 Dummy {f00=0x00ee, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x255848…2559dc Dummy {f00=0x00ee, 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
0x2559dc…255b70 Dummy {f00=0x00ee, f01=0x4114, f02=» J F IDENT DWII01 REL 9.2 79-11-16 870105040920 DWII01K R DWII01K d ITADN x , ( IT:BUF @ , ,
0x255b70…255d04 Dummy {f00=0x00ee, f01=0x4114, f02=» J F IDENT DWIO01 REL 9.2 79-11-16 870105040920 DWIO01K R DWIO01K d ITADN x , ( IT:BUF @ , ,
0x255d04…255e98 Dummy {f00=0x00ee, f01=0x4106, f02=» J F IDENT DW1501 9.2DK 1 81-11-05 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ 0 $ 0 @
0x255e98…25602c Dummy {f00=0x00ee, 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 , (
0x25602c…2561c0 Dummy {f00=0x00ee, f01=0x0190, f02=» W t SETIMP , ( ` Y X " P :A & * & : R Q W Y <D X V , ( ? ?: T p > > , ( P P C B T , ( B % X . $ 4 T
0x2561c0…256354 (4, 22) Dummy {f00=0x00ee, f01=0x018e, f02=» , ( Y _` B P $$ R % C , ( y * ! W Y +P Y *P Y ( 4 , ( P Y )P R _Q P OR d , ( R W " ! B W W , ( @ 0 Z ! B Z Z& , ( X . 0
0x256354…2564e8 Dummy {f00=0x00ee, f01=0x0190, f02=» DISEND , ( OA Y C ! " * & i @ Q R X # P X R ;GV X J LDREG x , ( @ P y P X DWTA3 DWTSB2 , ( @ R ;GV X X , *
0x2564e8…25667c Dummy {f00=0x00ee, f01=0x0190, f02=» h , ( :d Y > > ? 8 R @R , ( ) V @% =cW R P R P R P W 8 , ( I 9 W $ P W _ $ P h , ( i _$ _*_, _ %0=c X , ( 0P > 0 > >_ B 1 >
0x25667c…256810 Dummy {f00=0x00ee, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x256810…2569a4 Dummy {f00=0x00ee, f01=0x0190, f02=» J F IDENT DRTP02 REL 9.2 79-11-16 870105040920 TPADY R TPADY b , ( d t DWTOR , ( ! !"&';<>@^_ 9: X ! Y DISIOE DWTBC , (
0x2569a4…256b38 Dummy {f00=0x00ee, f01=0x0190, f02=» , ( w ! W B W B L , ( # 9Q T W Q P X & V 8 DWTST h ECBRL x , ( T Y &W X ! T B , ( R Q B D ! V ! ! * & ! W ! !
0x256b38…256ccc Dummy {f00=0x00ee, f01=0x0190, f02=» , ( 5 T " T W Q " T ) ! , ( Q Y _ ! ! Y 8 , ( m @ &P Q W ! Y '" h * & _" _< ! _n ! _t B B , ( , ! T _ D ! , ( P ! P
0x256ccc…256e60 Dummy {f00=0x00ee, f01=0x0190, f02=»T ! L ,! :D" ! Y , ( 7 Y U ! _$ W , & ECBRC V , ( Q ! T ,' ! R !__U f , ( qHD C X ' W Y ! LDREG , ( _ X R U T X
0x256e60…256ff4 (4, 23) Dummy {f00=0x00ee, f01=0x0190, f02=»SP , ( @ B R _ , ( 4 ! ! ! " T : , ( "" ! ! ! ! j * & % 4 X ' 4 Y ' ! ! ( $ A @ " P ,$ , ! 4 H D ! 4 IP
0x256ff4…257188 Dummy {f00=0x00ee, f01=0x40d6, f02=» 9T =T ?W CQ GT Q , i oP qQ wW , T P P H D ! @ W V P RN Q PH P R: T2 3 =U MW4 UT gR mU {W H ( $ RT U TJ P T R T EP X @ P ,$ , ! 4 H D ! 4 IP
0x257188…25731c Dummy {f00=0x00ee, f01=0x0190, f02=» J F IDENT DRGP01 REL 9.2 80-01-03 870105040920 GPADY ECHOGP R GPADY j , ( !"$&;<>@^_ P | DISIOE OUTPUT , ( ! P B P B L # +P ! , ( ?
0x25731c…2574b0 Dummy {f00=0x00ee, f01=0x0190, f02=» Y , ( U P T Y &_. P R P , ( @ O]> V _F T Y Y & V P , ( @D Y _^ C _P " DWTBC * & $ P X & X ]r ! * & Y Y
0x2574b0…257644 Dummy {f00=0x00ee, f01=0x0190, f02=» X C _ X Y ~ , ( G & Y > B B U $ , ( e ! T _ U D ! T _ N LDREG ~ , ( C > X Z^<BR P j ECHOGP , ( X _x R V ! P P , (
0x257644…2577d8 Dummy {f00=0x00ee, f01=0x416a, f02=» ? X Z t , ( @ ! P P . 2 X , ( 1 " ! ! X D $ K & 6 t H D ! PB !P8 -P ;P KT _W mW P U P" T P4 H D ! R( Pj V T P - @ _U$ iT sU }T
0x2577d8…25796c Dummy {f00=0x00ee, f01=0x0190, f02=» J F IDENT DRDI01 REL 9.2 79-11-16 870105040920 DIADY R DIADY b , ( B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x25796c…257b00 Dummy {f00=0x00ee, f01=0x4088, f02=»END u ? X _F @ < p J z T #P 'P 3W GT IW$ MT( WP aP gV . r@ B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x257b00…257c94 (4, 24) Dummy {f00=0x00ee, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x257c94…257e28 Dummy {f00=0x00ee, 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
0x257e28…257fbc Dummy {f00=0x00ee, f01=0x018e, f02=» DWTBC , ( X ' X ] ! , ( B ! ! ! @ , ( @ B Y & ! W 8!0T 8 !@ p , ( DP ! $ P ! ! , ( ! T Y & T X & C TENDI
0x257fbc…258150 Dummy {f00=0x00ee, 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 !
0x258150…2582e4 Dummy {f00=0x00ee, 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 !
0x2582e4…258478 Dummy {f00=0x00ee, 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
0x258478…25860c Dummy {f00=0x00ee, 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
0x25860c…2587a0 Dummy {f00=0x00ee, f01=0x0190, f02=» J B t , ( B pU INTRT2 D , ( ; J BAB rU V , ( [ J B B pU , ( y J BQB rU CHTAB DWREMU
0x2587a0…258934 (4, 25) Dummy {f00=0x00ef, f01=0x0190, f02=» P P H !@T I DISEND . CHLT1 @ INTSAV R , ( H T ! 1 U A ? d CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 $ CHRT4
0x258934…258ac8 Dummy {f00=0x00ef, f01=0x0190, f02=» P r , ( k R P 4 ] P , ( $ P ] U P P P P B DWTST r , ( R 4T ] U X , ( "0T + Y W 8Z 4 , ( U R ] U # $P
0x258ac8…258c5c Dummy {f00=0x00ef, f01=0x0190, f02=» > x , ( = W T # Y U DWTTP H , ( [ T ] W 8V X X SETIMP * & { P y W , ( P 8R R Y DWTOCHf ,
0x258c5c…258df0 Dummy {f00=0x00ef, f01=0x0190, f02=» T U 5 U z , ( R " ] ;h # <c$ , ( % P X X " Z " J , ( E X 8# T 8Z V X # T z , ( c 8R X P y Y X DWTECB INTADR , ( {$@'
0x258df0…258f84 Dummy {f00=0x00ef, f01=0x0190, f02=»@ # P 4 4 P _r T _$ , ( U _ ? 4 U 5 R P . DWTOTQ ^ , ( "P R T T R X $ # X p , ( / > P P P , ( M X XF _H W ? T T , ( m
0x258f84…259118 Dummy {f00=0x00ef, f01=0x0190, f02=» OUTPUTN , ( @ _ " P T 8! P STREG D DWTA3 V DWTA4 f DWTA5 v , ( Y Y & Y ( Y * LDREG LDREGF LDREGE , ( _8 X XB Y
0x259118…2592ac Dummy {f00=0x00ef, f01=0x0190, f02=» (@ > ?" 8' x , ( S ?A R 8;b# 4T R , ( s T T ] ] 8 W T H , ( W T ] _ P T V W 8 x , ( V T P U 8 ~ U Q , ( P X H " 5 U R " , (
0x2592ac…259440 Dummy {f00=0x00ef, f01=0x0190, f02=» T B P X | , ( G R @ U S ` U t " , ( g D P D T U W _ U 4XR L ECHENDT | ECHOY , ( XX 5 J_b Y & Y ( DWTECH DWTWAT , ( H$ Y * X
0x259440…2595d4 (4, 26) Dummy {f00=0x00ef, f01=0x0190, f02=» . H D !p P Q P P T W W #W /R 5V = ` K H D !L QR Y _PJ cP i o sRL }P P P PD P< P0 P, R T ` H D ! Tp WH f R P4 R0 T T #P -P =Wh C v M _T iW H D !H( mV u v }P
0x2595d4…259768 Dummy {f00=0x00ef, f01=0x40fa, f02=» ! 9P =P CP I B _Wj gT s wW S( V P P T P T P6 H D ! J /U =W [R kT oRT uT {T W< Tr W T P V WT V L H D ! P Q2 P R V P P #W 7T IR4 QS kP qT yW V$ V @ H( mV u v }P
0x259768…2598fc Dummy {f00=0x00ef, 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
0x2598fc…259a90 Dummy {f00=0x00ef, 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
0x259a90…259c24 Dummy {f00=0x00ef, 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
0x259c24…259db8 Dummy {f00=0x00ef, f01=0x0190, f02=» J F IDENT DRFD01 REL 9.2 79-12-05 870105040920 FDADR IHFDY FDONY DWFD01 R FDADR v DWTOR , ( !P P X ! , ( Y X ! Y T & , ( ?
0x259db8…259f4c Dummy {f00=0x00ef, f01=0x0190, f02=» } A @ A. TDISP * , ( Y W A : , ( @ @ A. W ! * X X P ! j , ( ! W ! * _ ! * _& ! X ECBRL ECBBA , ( X P ! X X
0x259f4c…25a0e0 Dummy {f00=0x00ef, f01=0x0190, f02=»TOT 0 SST z , ( i X Y W 0 X Y Y , ( ! ! X ' P ! ! J , ( @ D ) P _ X " X ! T X z ECBCW , ( $ !& P B z z :C , ( P ! 9DV !
0x25a0e0…25a274 (4, 27) Dummy {f00=0x00ef, f01=0x0190, f02=» A ! _ Y , ( _ 4 ! P C ! ! ! (@ , , ( ! R _ ! 1 ;h 1 , ( ! 1 ! ! * ! ! ! , ( ) ! Y # T X Y _ Y # , ( 4 ! (
0x25a274…25a408 Dummy {f00=0x00ef, f01=0x0190, f02=»* ! ! ! T )W | , ( U W ! Xz ! ( - ! DWTA5 L , ( u ) W Y W Y Y Y Y ECBEL TENDIO * & H B S W W B C FDONY DWTA2 , (
0x25a408…25a59c Dummy {f00=0x00ef, f01=0x0190, f02=» 0B. X n , ( P y _^ _n , ( Y X P Y : ! > , ( ; ! X # P Y :A , X n , ( [B A Y @ B. X Y DWTECB , ( @ u Y Y X Y X '?
0x25a59c…25a730 Dummy {f00=0x00ef, f01=0x0190, f02=» , ( @ K & E % Y B K , ( $ X ;AR ;a X P Y 4 , ( P 7P < d * & % $ <C ! 9 4 X , ( A _ W B R X X P , ( ] W
0x25a730…25a8c4 Dummy {f00=0x00ef, f01=0x018e, f02=»_ 4 X # P _ 4 TASCII " , ( @(@ R D " 1_ W (@ 4 TEBCDI0 d , ( R 0 D $ ] _ ! 4 v , ( ! ;E :B 9A ! , ( 3 U P jW kQ 4 Y , (
0x25a8c4…25aa58 Dummy {f00=0x00ef, f01=0x0190, f02=» f , ( @ 4 ! ( 4 X " 4 , ( @ ! ) 4 X P 4 8 DWFD01 f h , ( g | , ( , (
0x25aa58…25abec Dummy {f00=0x00ef, f01=0x0190, f02=»P ]Pv R H D !z& aPz g d m s y Z H H W Wx F , P | W< H D ! p F F J , P , P | !T ) * +W / * Z H D ! 3 9 ? E K O T YT cT o , qW } , * T * H D !q P
0x25abec…25ad80 Dummy {f00=0x00ef, f01=0x0190, f02=»PT s w { R 4 | * H D ! T . * V J j W0 W # ) b F H D ! T - 5Q 9 F ? E | I OT SWL YWP ] e R i o j s {W. P H D ! W P L N S W W f $
0x25ad80…25af14 (4, 28) Dummy {f00=0x00ef, f01=0x410c, f02=» f R@ & P & P P IW QRZ U , [P v H D ! aW kP sQ8 wU T, R( P Q W Q T P 0 P R 2 H D !> W R ) 3U 7 4 9P ?W EQ S * W qP R ~ ( $ k r Z P y @
0x25af14…25b0a8 Dummy {f00=0x00ef, 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`
0x25b0a8…25b23c Dummy {f00=0x00ef, 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 , (
0x25b23c…25b3d0 Dummy {f00=0x00ef, 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 * &
0x25b3d0…25b564 Dummy {f00=0x00ef, 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
0x25b564…25b6f8 Dummy {f00=0x00ef, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 6 82-10-04 870105040924 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P +P P P DISIOEC
0x25b6f8…25b88c Dummy {f00=0x00ef, f01=0x0190, f02=» W B Y @ P SETIME & , ( P $_ _L _$ X 9 8 , ( @ P @ @ ` h TENDIO , ( @ P 0P _ % A A ECBRL DWTOR , ( _ B
0x25b88c…25ba20 Dummy {f00=0x00ef, f01=0x0190, f02=» KD C _ _ B Y DISEND . , ( e _ X P A @ , ( Y W Y @_ X X A p , ( Y _& Y @ 0 , ( A A _: X P ( y Y W , (
0x25ba20…25bbb4 (4, 29) Dummy {f00=0x00f0, f01=0x0190, f02=» X R p , ( =" X T X P , Y L , ( Y! C L C @ , ( * s > @ @ @ A X _" p , ( X P y Y X P T , ( @ T A A > A A A A , (
0x25bbb4…25bd48 Dummy {f00=0x00f0, f01=0x0190, f02=» h , ( 1 P P ! , ( Q T T A P A T ! T 8 , ( q ! T T ! T ! A I A h , ( P " ! _ ! , ( T " X ! _ ! A @ , ( P P @
0x25bd48…25bedc Dummy {f00=0x00f0, f01=0x0190, f02=» ! A _B ! X>_b A @ , ( O @ T 1 Z 0 2P P P ( TEBCDI X , ( R o @ A @ 8 H @ P E j , ( P X R X P X T * & ! P C C X , ( D T
0x25bedc…25c070 Dummy {f00=0x00f0, f01=0x0190, f02=»@ _D ! @ T @ P ! ! , ( H 3 @ T @ X W A I ( , ( T Q @ @ @ A X , ( o ! @ XN ! T @ P ! ! , ( @ _h 1T @ X @ P ! ! , ( D A _ A < A
0x25c070…25c204 Dummy {f00=0x00f0, f01=0x0190, f02=» ! W @ x , ( % / T ! _ T _ A ECBBA H DC:MOT, X , ( M H C B B A j , ( * e A A A A ! ! A _^ , ( D Y Y " <W _j @ P @ , ( T X
0x25c204…25c398 Dummy {f00=0x00f0, f01=0x0190, f02=» @ T @ A @ A A , ( ! T P P P * , ( @ 7 P P 1 A @ ]6W Z , ( W P _@ @ @ E ! P ! 4 , ( w _$ ! 2_l 1 A T 0W ; , ( W A A W W W
0x25c398…25c52c Dummy {f00=0x00f0, f01=0x0190, f02=» ! 8 ! W - ! z , ( x ! W 0 " W R , ( 7 ~T }T T W ! P J TASCII z , ( W @ " ! " :A *@ H T 0 ! , ( T u W R ! A @ @ U , ( Zt Q P Q T
0x25c52c…25c6c0 Dummy {f00=0x00f0, f01=0x0190, f02=» 4 A r , ( " ? J T A T P 4 ! IH1502 @ , ( A " ? _ I " P A T , ( U / < $ A 2 4 A _$B P W , ( @ O " * 9AY X 2 _ ! N , ( m 9AP ^ 2 _ " ! 1 4 A
0x25c6c0…25c854 (4, 30) Dummy {f00=0x00f0, f01=0x0190, f02=» A 2 A a , ( 2 4 X A > ( , ( T Z A 4 A < ! @ @ P ! X , ( R ' ! @ P a A 4 A ! DW1500 V , ( G f T ' A 4 , ( g
0x25c854…25c9e8 Dummy {f00=0x00f0, f01=0x0190, f02=»#.<(+!&JKLMNOPQR$]*);^-/ST , ( % UVWXYZ@,%_>?0123456789:[ '=" " , ( % R , ( & &/ H D ! f B GP8 M 4 QP UP2 YP8 ]PB c eW kP oP
0x25c9e8…25cb7c Dummy {f00=0x00f0, f01=0x0190, f02=» y Wb H D ! P W P P P 'P 5 V ;R2 CT* MP& H D ! P P T T W # @ - f d H D ! U /T 5P 9P ? E n K . Q f STf WTb ] W _P e V gTR k f mTL s f H D !+ uTD yT@
0x25cb7c…25cd10 Dummy {f00=0x00f0, f01=0x0190, f02=» H D ! eP iP mP P V PF R@ P T2 T W W( W" R T H D ! 0 T %P ) 1 0 7T ?Wj O V m n q 0 { N T P P H D !8 T& P n T T8 W T P H D ! # %W /T 3 =T O y
0x25cd10…25cea4 Dummy {f00=0x00f0, f01=0x4152, f02=» W W W W W V V F F F T$ H D ! W V V W V % #W -WL 3R 9T AT IT0 MW, S V oT u V < H D !# yW R V U< P T V V V V N F T T PD " H D ! q )P IP KW oP % % % P T
0x25cea4…25d038 Dummy {f00=0x00f0, f01=0xc082, f02=» &L &L &L P T # , l @ < ; ?P QP _ c g uP % & & & &K&P&M&N ( & l@ ~ < H D !` P j T W W W W W | | p H D !v T$ ! ' )W / 7% ;W EWL KR QT YT
0x25d038…25d1cc Dummy {f00=0x00f0, f01=0xc00e, f02=» @ W W / 7 , ? , l H D ! ` E K W ] uT( y K } , , P , & W PL R T T ( H D !) T0 W, , T , W R , U< P #T + , 5 , ? , E , ] t H D ! 8 c k , q , w { K , , , P T , $ T T PD
0x25d1cc…25d360 Dummy {f00=0x00f0, f01=0x417e, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l TEBCDI , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j
0x25d360…25d4f4 (4, 31) Dummy {f00=0x00f0, f01=0xc16e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x25d4f4…25d688 Dummy {f00=0x00f0, f01=0x4140, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ " ?
0x25d688…25d81c Dummy {f00=0x00f0, 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
0x25d81c…25d9b0 Dummy {f00=0x00f0, f01=0x40ee, f02=» _ _< , ( S ? ^ 4 _ & TIMQUE V , ( qH @ 1 A _ P 9 h > > ( $ ~ T N : - 4 1 N 3 > P @ BLK@ LKMQDI
0x25d9b0…25db44 Dummy {f00=0x00f0, 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
0x25db44…25dcd8 Dummy {f00=0x00f0, 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
0x25dcd8…25de6c Dummy {f00=0x00f0, 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
0x25de6c…25e000 Dummy {f00=0x00f0, 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
0x25e000…25e194 (4, 32) Dummy {f00=0x00f0, 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
0x25e194…25e328 Dummy {f00=0x00f0, 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
0x25e328…25e4bc Dummy {f00=0x00f0, 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
0x25e4bc…25e650 Dummy {f00=0x00f0, 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
0x25e650…25e7e4 Dummy {f00=0x00f0, f01=0x0190, f02=» J F IDENT TASS REL 9.2 79-11-16 870105040920 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXAP T
0x25e7e4…25e978 Dummy {f00=0x00f0, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x25e978…25eb0c Dummy {f00=0x00f0, f01=0x0190, f02=» TASTBE T TASLFD# V , ( A , a TASCAQT n TTB:SA QTJOB , ( D H @ P 4 A U W A VOLCHE , ( ( A @ U : A V A
0x25eb0c…25eca0 Dummy {f00=0x00f0, f01=0x0190, f02=»% T < C z ECBRC , ( ( B P T W ' T I * , ( @ 8 =hP Y X P Z DWTVOL , ( 3 T Y H ! R , ( Q W 9a I T T 9a H E V DFTABE(
0x25eca0…25ee34 (4, 33) Dummy {f00=0x00f1, f01=0x0190, f02=» : "' # TDISP ( , ( I ` @ P $ ) 5 8 MOV:US h , ( T A A R A b " z , ( A "" P U W , ( A P @ E "# P P
0x25ee34…25efc8 Dummy {f00=0x00f1, f01=0x0190, f02=» P W @ | , ( } 0 R ' F "R G FNDTID L , ( ) T @ D #D T G ^ DMTASSV ACTOT , ( W A J "R A J A 4 LKMQDI * & H
0x25efc8…25f15c Dummy {f00=0x00f1, f01=0x4076, f02=» T P P U W P #P 'P 7W CR OV WT gP wW Rb R T W, R < `@ r
0x25f15c…25f2f0 Dummy {f00=0x00f1, f01=0x018e, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x25f2f0…25f484 Dummy {f00=0x00f1, f01=0x4096, f02=» TCHPAG , ( J TCHMMU F # X & p & @ EXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x25f484…25f618 Dummy {f00=0x00f1, f01=0x0190, f02=» J F IDENT TIODM REL 9.2 79-11-16 870105040920 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELE D @ FDBLRN FDBNIF FDBEAL FDBCRL` FDB
0x25f618…25f7ac Dummy {f00=0x00f1, f01=0x0190, f02=» t , ( ! " , ( A # $ % D FDBLNK t FDBECB FDBSNR $ FDBRRO & FDBRLE ( FDBBLF * FDBTNRC + FDBVT
0x25f7ac…25f940 Dummy {f00=0x00f1, f01=0x0190, f02=»ELE FDBLRN I FDBNIF H " FDBEAL L 6 FDBCRL` N J FDBKA P ^ FDBMIAT R p FDBADFN T FDBAI1 V FDBDBR ^ FDBMRN _ FDBMROV b FDBMEC d FDBKEY r
0x25f940…25fad4 (4, 34) Dummy {f00=0x00f1, f01=0x0190, f02=» j @ D X TTB:ID , ( } P _ L !##P T 2 DWTST b , ( @ R $P U + U _ (@(@ r DWTOR ECBCW2 , ( ! I 2P ^ H L Y H ECBCW , (
0x25fad4…25fc68 Dummy {f00=0x00f1, f01=0x0190, f02=» Y . B CRNGET ( , ( + Y I B Y J_ W : ECBFC j , ( G C P C W < C z , ( a! C _H H H S * & } W C C B B
0x25fc68…25fdfc Dummy {f00=0x00f1, f01=0x0190, f02=» j DSUMOD , ( $ X _ X ` T I T J ECBEL J , ( P C X I X J Z * & S W C C W B ECBRC * & B Y IR Q X JU C bSQR C
0x25fdfc…25ff90 Dummy {f00=0x00f1, f01=0x418a, f02=»#D ( * | ACTOT TDISP * DISEND : ( $ m , . 0 2 L H D ! | | | | | ! h # 8 % | ' | x H D ! + ) < + - / 1 & P P R P P | U | W N % |
0x25ff90…260124 Dummy {f00=0x00f1, f01=0x0190, f02=» J F IDENT DMBUF REL 9.2 79-11-16 870105040920 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSN
0x260124…2602b8 Dummy {f00=0x00f1, f01=0x018e, f02=» DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x2602b8…26044c Dummy {f00=0x00f1, f01=0x4008, f02=»@ DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x26044c…2605e0 Dummy {f00=0x00f1, f01=0x0190, f02=» J F IDENT DMTASK REL 9.2 79-11-16 870105040920 ( $ DMTASKKdSQRdQSW DMTWM QIRNY QIRR R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x2605e0…260774 (4, 35) Dummy {f00=0x00f1, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TDC F , ( w $ -_ D U 0 X SCTCDT@ , ( W T ` U @ , FDBRRO DWTTDM TTB:ID , ( A
0x260774…260908 Dummy {f00=0x00f1, f01=0x018e, f02=» PRUNN ECBBA MOV:SU $ , ( $ P @ Q (@ F 6 MONMMU f * & H : @ _ x DMTASKK FDBDBR , ( D > X P D "V , ( )
0x260908…260a9c Dummy {f00=0x00f1, f01=0x0190, f02=» , ( @ a ( ( W ( , ( A B W C X '? 4 , ( H X X )T d FDBSNR@ VLVRL , ( * X *T T , A ( FDBVTO DIVMOD
0x260a9c…260c30 Dummy {f00=0x00f1, f01=0x0190, f02=»LRBUFV , ( D F 4 6(@ _ FDBLRN > VTLRN P , ( D X X 8 U : X 8 U : ` FDBMIA , ( 5 $ ( ( T X X <P ECBFC , ( O F > T
0x260c30…260dc4 Dummy {f00=0x00f1, f01=0x0190, f02=» X W ` U @ H EARELB $ FDBCRL 6 , ( @ X W B H CRNQUE x * & D 4 5W P 0 @ F 1 A FDBEXT: EXTELER , ( F(@_ H J (@
0x260dc4…260f58 Dummy {f00=0x00f1, f01=0x0190, f02=» 4 P 9 6 , ( a J 4' ' 5 * FDBSTA Z , ( 4 P W , P ,' X X l , ( $ H J Z" J ) _ , ( (@ C > ( B ! @ , ( !$ ( F
0x260f58…2610ec Dummy {f00=0x00f1, f01=0x0190, f02=» @ F R +P P X T$ T , ( V U W V R P $ , * & ; P W X X F * & U H X P @ Q MOV:USX , ( k @ (@ X + X "V P FDBMROU
0x2610ec…261280 Dummy {f00=0x00f1, f01=0x0190, f02=» l CRNGETR CRNCIF , ( '? P P $ P 0 CRNCDF ` * & HH I ^ I ^ K ` K ` r , ( ` P P & P BW D EASETB: , ( % " T$ T V T bW E
0x261280…261414 (4, 36) Dummy {f00=0x00f1, f01=0x0190, f02=» B B B B B B v H D ! ! B # % ' 3P 5R ;W IR WP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x261414…2615a8 Dummy {f00=0x00f1, f01=0x4058, f02=»P P( P" P P P b !W )T 1T 7W GV MT d B@ TP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x2615a8…26173c Dummy {f00=0x00f1, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x26173c…2618d0 Dummy {f00=0x00f1, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x2618d0…261a64 Dummy {f00=0x00f1, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x261a64…261bf8 Dummy {f00=0x00f1, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x261bf8…261d8c Dummy {f00=0x00f1, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x261d8c…261f20 Dummy {f00=0x00f1, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x261f20…2620b4 (4, 37) Dummy {f00=0x00f2, f01=0x0190, f02=»P @ , t EXTDMIH EXTLENT & , ( ! ! T W P . D Y T P 0 8 EXTBAS h , ( 9I Y V P 0 Y X U ! T z TASLFD , ( S ! X6 _R _V D Z" TASTBE , ( q$ P
0x2620b4…262248 Dummy {f00=0x00f2, f01=0x0190, f02=» @ 2 n , ( $P -W P B TASCAQ > QTJOB P * & @ * ` b(@( @ ` FDBADF& FDBDBR , ( ( _ d ` ` 9A EXTELE , ( D S f
0x262248…2623dc Dummy {f00=0x00f2, f01=0x0190, f02=»MRN , ( =@ R J S W S p S p MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x2623dc…262570 Dummy {f00=0x00f2, f01=0x4038, f02=»W P W P ES GW p "@ 4 MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x262570…262704 Dummy {f00=0x00f2, f01=0x40ba, f02=» J F IDENT DFTAB REL 9.2 79-11-16 870105040920 DFTAB DFTABE R DFTAB j DFTABE | @ B PDFTABE EQU * P END @ P* P* P* LEVE
0x262704…262898 Dummy {f00=0x00f2, f01=0x4172, f02=» J F IDENT DMFDB REL 9.2 79-11-16 870105040920 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL r FDBSTAK FDBEND X CRNQUE X Y
0x262898…262a2c Dummy {f00=0x00f2, f01=0x0190, f02=» J F IDENT DMINIT REL 9.2 79-11-16 870105040920 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !
0x262a2c…262bc0 Dummy {f00=0x00f2, f01=0x40da, f02=» h BUFDMIL BUFSNR BUFOR , , ( Q , - M M M @ < TASBLK l TASQUE ~ g$ A A > Q %PJ r @ FDBEND CRNQUE , ( !
0x262bc0…262d54 (4, 38) Dummy {f00=0x00f2, f01=0x0190, f02=» J F IDENT DMSUBX REL 9.2 79-11-16 870105040920 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x262d54…262ee8 Dummy {f00=0x00f2, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMROP FDBRLE , ( V ; [ _ D V
0x262ee8…26307c Dummy {f00=0x00f2, f01=0x0190, f02=» GTLGRN# , ( D U E W ADDMODH B CALSNOT T DMTRBU f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x26307c…263210 Dummy {f00=0x00f2, f01=0x0190, f02=» FDBLRN , ( E E Z:Q , ( D D ZB W Z r @ , ( Q R W K ]d J _j @ W W p CRNUPD FDBADF FDBCRL , ( " : : " $
0x263210…2633a4 Dummy {f00=0x00f2, f01=0x412a, f02=» U R ( R ( S ( m@ S (_P (@ : , H D ! UP U 3 r AU EP OP YW }P Q R V W W T. V T L H D ! W V V Wn U W 7P 9W KP T~ W Wh P0 Q W, Q , ( R W W W !W %PL 7R CQ
0x2633a4…263538 Dummy {f00=0x00f2, f01=0x40ea, f02=» J F IDENT ADDMOD REL 9.2 79-11-16 870105040920 ADDMODK R ADDMODK d , ( P Q R ;A [ [ x ! : P Q R $ @ ,2,A14 B P OR.S
0x263538…2636cc Dummy {f00=0x00f2, f01=0x40ea, f02=» J F IDENT DSUMOD REL 9.2 79-11-16 870105040920 DSUMODK R DSUMODK d , ( P Q R ;A [ [ x ! : P Q R $ @
0x2636cc…263860 Dummy {f00=0x00f2, f01=0x40ec, f02=» J F IDENT MPYMOD REL 9.2 79-11-16 870105040920 MPYMODK R MPYMODK d , ( P Q R ;A [ x ! [ : P Q R & @ . P*
0x263860…2639f4 (4, 39) Dummy {f00=0x00f2, f01=0x40ea, f02=» J F IDENT DIVMOD REL 9.2 79-11-16 870105040920 DIVMODK R DIVMODK d , ( Q R P ;A [ [ x ! : Q R P $ @ P RB(7) END1
0x2639f4…263b88 Dummy {f00=0x00f2, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x263b88…263d1c Dummy {f00=0x00f2, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x263d1c…263eb0 Dummy {f00=0x00f2, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x263eb0…264044 Dummy {f00=0x00f2, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x264044…2641d8 Dummy {f00=0x00f2, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x2641d8…26436c Dummy {f00=0x00f2, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x26436c…264500 Dummy {f00=0x00f2, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r , ( : U ; $ T $ T $ T x : : , ( $ T $ ) ] $ ) Y _$ , ( U x 0 )_8 $_ $
0x264500…264694 (4, 40) Dummy {f00=0x00f2, f01=0x418e, f02=» Y _& (# )_4 $ ($ , ( ) YR_L U p 0_8 $ * _< Z H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R l H D ! W R W P W6 'T ;U eSP mP qW U U. R P W P6 H D !
0x264694…264828 Dummy {f00=0x00f2, f01=0x4116, f02=» J F IDENT PFTAB REL 9.2 79-11-16 870105040920 PFTAB R PFTAB b DC15ON t SOPRN CHLTON FDONN DMINITA " U@
0x264828…2649bc Dummy {f00=0x00f2, f01=0x0190, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x2649bc…264b50 Dummy {f00=0x00f2, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x264b50…264ce4 Dummy {f00=0x00f2, f01=0x4104, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x * & DY % P @ 8 , 8 @
0x264ce4…264e78 Dummy {f00=0x00f2, f01=0x0190, f02=» J F IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( @ KB DVDY01 , ( %@
0x264e78…26500c Dummy {f00=0x00f2, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( @ KB DVDY01 , ( %@
0x26500c…2651a0 Dummy {f00=0x00f2, f01=0x4108, f02=» J F IDENT DVTP01 REL 9.2 79-11-16 870105040920 DVTP01K R DVTP01K d TPADN x , ( TP " @ 4 ( 4 @
0x2651a0…265334 (4, 41) Dummy {f00=0x00f3, f01=0x4104, f02=» J F IDENT DVDY01 REL 9.2 79-11-16 870105040920 DVDY01K R DVDY01K d DYADN x * & DY % P @ 8 , 8 @
0x265334…2654c8 Dummy {f00=0x00f3, f01=0x0190, f02=» J F IDENT DVKB02 REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( KB DVDY02 , ( %@
0x2654c8…26565c Dummy {f00=0x00f3, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( KB DVDY02 , ( %@
0x26565c…2657f0 Dummy {f00=0x00f3, f01=0x4106, f02=» J F IDENT DVDI02 REL 9.2 79-11-16 870105040920 DVDI02K R DVDI02K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x2657f0…265984 Dummy {f00=0x00f3, f01=0x4104, f02=» J F IDENT DVDY02 REL 9.2 79-11-16 870105040920 DVDY02K R DVDY02K d DYADN x * & DY % P @ 8 , 8 @
0x265984…265b18 Dummy {f00=0x00f3, f01=0x4100, f02=» J F IDENT DVGP03 REL 9.2 79-11-16 870105040920 DVGP03K R DVGP03K d GPADN x * & GP % @ 4 ( 4 @ ECB ADD
0x265b18…265cac Dummy {f00=0x00f3, f01=0x0190, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x265cac…265e40 Dummy {f00=0x00f3, f01=0x4054, f02=» 0 z , ( x * 8 + 9 > >@ P TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( " ! 1 DVTP01 DVDY01 DVK
0x265e40…265fd4 (4, 42) Dummy {f00=0x00f3, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x265fd4…266168 Dummy {f00=0x00f3, f01=0x404e, f02=» | " ( # ) B 8@ J SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x266168…2662fc Dummy {f00=0x00f3, f01=0x0190, f02=» H F IDENT CTAB01 80.12.15/EV NORDJYLLANDS AMT & " CTAB01K CTAB02 CTAB03 CTAB04 P CTAB01K z CTAB02 CTAB03 CTAB04 , ( 0123 , ( ! 456789
0x2662fc…266490 Dummy {f00=0x00f3, f01=0x4140, f02=» 456789 `ABCDEFGHIJKLMNOPQRS , ( TUVWXYZ []' ^ > ?:_; =!"# * , ( $%&/() @ABCDEFGHIJKLMNOPQRS Z , ( TUVWXYZ []* < +.-, 0 23 , ( 456789 `ABCDEFGHIJKLMNOPQRS ! TUVWXYZ []'
0x266490…266624 Dummy {f00=0x00f3, f01=0x2008, f02=» L = KMD11 DATE = 80 07 29 1216PACK NBR = 0011
0x266624…2667b8 Dummy {f00=0x00f3, f01=0x0190, f02=» * P* * * P************************************* 2 P* ` P* j : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE t 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWE
0x2667b8…26694c Dummy {f00=0x00f3, f01=0x0190, f02=»AVED IN DWTCHP r P* P* PSOPR EQU * ENTRY POINT * P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVA
0x26694c…266ae0 Dummy {f00=0x00f3, f01=0x018e, f02=»DIT=0 " P LDKL A2,-2 POWER UP INDICATOR P XIF 4 P IFT CREDIT=1 @ P LDK A2,0 V P XIF h P t P IFF SOPX=0 | " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND P
0x266ae0…266c74 (4, 43) Dummy {f00=0x00f3, f01=0x0190, f02=»CH KEY ~ P XIF P PFD:DIS EQU * " P ABL DISIOE REQUEST ERROR 6 P* X P IFT OPCLOS=1 b P EJECT x P* P******** P* * P* OPEN * P* * P******** P* 4 P* OPEN IS PERFORMED BY WRIT
0x266c74…266e08 Dummy {f00=0x00f3, f01=0x0190, f02=»0 t ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA 6 " P OTR A1,0,SOPDA OPEN FD DRIVE j P* * P* WAIT FOR DRIVE TO BECOME OPERABLE ( P LDK A4,DWTTP2 TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER
0x266e08…266f9c Dummy {f00=0x00f3, f01=0x0190, f02=»BL TDISP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED 4 P LDR A6,A1 GET DWT-ADDR R , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING r & P RF OCLEXI COMMON OPEN/CLOSE EXIT P* P EJECT P* P********* P*
0x266f9c…267130 Dummy {f00=0x00f3, f01=0x0190, f02=»ERO OF THE SOP LIGHTS EXTERNAL REGISTER P* 0 PCLOSE EQU * : " P LDKL A1,/8000 MASK FOR BIT 0 N & P ORS A1,SPDLCI SET OPEN/CLOSE BIT t 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA CLOSE FD DRIVE P* POCLEXI
0x267130…2672c4 Dummy {f00=0x00f3, f01=0x0190, f02=» P EJECT DRFD01 P* P*************** & P* * > P* BASIC WRITE * V P* * n P*************** P* PFD:010 CF A5,BIO P ORK A2,1 PFD:015 EQU * P IFT TOSS+IBM=2 P LD A1,DWT
0x2672c4…267458 Dummy {f00=0x00f3, f01=0x0190, f02=»ED j P CF A5,EBCDIC PFD:018 EQU * P XIF 4 P* @ P IFT CHAN+TOSS=2 J P IFT MMUPAG+SWPBLK=2 b 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ~ ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH
0x267458…2675ec Dummy {f00=0x00f3, f01=0x0190, f02=»SEUDO MMU TABLE | 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK N P LDR A2,A8 RESTORE A2 x P* P EJECT DRFD01 P* P* PFD:019 EQU * P XIF P* " P CF A5,FD:WRITE PE
0x2675ec…267780 Dummy {f00=0x00f3, f01=0x0190, f02=»BUFFER WAS IN SYSTEM AREA? . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS " & P ST A1,ECBBA,A8 RESTORE IT IN ECB T P* ~ PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* *
0x267780…267914 (4, 44) Dummy {f00=0x00f3, f01=0x0190, f02=» T C (@ B W ? _ X T (@ B| ^ > > ?(@ X P& T D #DP 0P X T 4 Y X E X T X W 1 1 X P - M T $ PD _ T " # p X L R P A P (@ > ^ X P8 P0 # P
0x267914…267aa8 Dummy {f00=0x00f3, f01=0x0190, f02=» h _< ? ^ 4 _ D D @ 6 1 A 6 _ P 9 > > &@B 2 D L HD hq r*r r sH u uPq q FjFjG G G G G G G F F G<F F G G F G G F F " # $ % "$&( E E @ D X P _ L !##P
0x267aa8…267c3c Dummy {f00=0x00f3, f01=0x0190, f02=»G Xv G B Y I B Y J_ W X C P C W < C C _H X H H S W C C B B B U X0 R Wp H TP L P B r L ( Z $ X _ X ` T I T J W P C X I X J S W C C W,
0x267c3c…267dd0 Dummy {f00=0x00f3, f01=0x0190, f02=»M.K K I M.K I M.M.M.M.K K I F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @[ Q (@ F Z : @ l_ [ ( H >
0x267dd0…267f64 Dummy {f00=0x00f3, f01=0x0190, f02=» C X '? G X & X ( )T M. H H L X $TT T AH J , W P W T Y $ P T _ Y & F } } (@ _ K X & X I U X J U ( Yz T$ X X RP F Hl T M. P ` U0 @ , D !
0x267f64…2680f8 Dummy {f00=0x00f3, f01=0x0190, f02=» 1 (@ KP / O $P % 4 F Hl (@ B } P 9 } MD 4' J ' J 5 J 4 Q W , P& ,' X X 1 Z" ) J _ (@ C ( B ! M. J @H F U G F G H M, & ( F "
0x2680f8…26828c Dummy {f00=0x00f3, f01=0x0190, f02=» + X ^V" P "P8 $P4W X & X bT( ;AR ( L ( H Yz T Y ^ F " F D '? P P( $ P" X I I K K P P & P XvW D $ T X0 T XZW E I E J X ^V ? T B } C (@( s B B
0x26828c…268420 Dummy {f00=0x00f3, f01=0x0190, f02=» C ( MV MX L " TOP P As L As L C s @s As Q< @s P$ As @s P B } Ds Es X #D( M ( B } B @s Ds }0W C C ( MV MX s s @s T As 0" P P U _ L
0x268420…2685b4 (4, 45) Dummy {f00=0x00f4, f01=0x0190, f02=»s T R , @s T R RT @s P P 6 Q 2% P P s r P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @s S , d S B | N N @s T W s T Wz @s P R ( >a U Wb 0
0x2685b4…268748 Dummy {f00=0x00f4, f01=0x0190, f02=»s ( ^ W @t P6 I @s P @W V W HW IW (@ @s P -W P B } } t4 (@( @s QN _ T `s ` 9A S ^ H $X D S . S $ Z* R * S W S _ S ` R ( R * W S b P U _ L
0x268748…2688dc Dummy {f00=0x00f4, f01=0x0190, f02=» T R , @ T R RT @ 6 2% P P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N N @ T W T W @ P R ( >a U W 0
0x2688dc…268a70 Dummy {f00=0x00f4, f01=0x0190, f02=» ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ QN _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b P U _ L
0x268a70…268c04 Dummy {f00=0x00f4, f01=0x0190, f02=» T R , @ T R RT @ 6 2% P P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N N @ T W T W @ P R ( >a U W 0
0x268c04…268d98 Dummy {f00=0x00f4, f01=0x0190, f02=» ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ QN _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b W :
0x268d98…268f2c Dummy {f00=0x00f4, f01=0x0190, f02=» M _8 > D LW 0P Q P P E +P W : X + D X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @[x 1 A[x Z> : D NW (P D + I W6 @V4T b ( AV4 U 1_ D + I D N ) E N : T * W SP P W
0x268f2c…2690c0 Dummy {f00=0x00f4, f01=0x0190, f02=» W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C }0W C C X %? : X &_ 0 D . P , _ D . D $ D * W T ( T & ^ S W : U ; $ T $ T
0x2690c0…269254 (4, 46) Dummy {f00=0x00f4, f01=0x0190, f02=»$ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< } b~Ng ~d `.bvb > > @[ ( A[ W C ^ ! Z( [ (X0 @[ P T M ]@ , ) A[ P* P Y U ( ) 5 & > > [ [
0x269254…2693e8 Dummy {f00=0x00f4, f01=0x0190, f02=»T6 X T0. T G Y6 G _b P ,P - _ d _R_n!"&';<>@^_ 9: X ! Y M P ^ [ Y L]$]4]4] ^ ]N]H^Z^` ! 6 ! 6 ! 6W B W$ B L # 9Q T W Q P X & V T Y &W X ! T6 B
0x2693e8…26957c Dummy {f00=0x00f4, f01=0x0190, f02=»T " T W Q " T ) [ !_ Y _ ! 6 !_ Y &P Q W ! 6 Y '" _~_" _< !_ _n !_ _t B B , ! T _ D ! P ! P W C V B P ! 6 ! 6 ! 6 Y 4 RNQ " PH _ " P R: M T2 ! 6 L ,! :D" !_ Y Y U
0x26957c…269710 Dummy {f00=0x00f4, f01=0x0190, f02=» X P " ! 6 Y ' ! 6 X T ! 6 [ ] [ R _ 4 ! 6 ! 6 ! 6" T ! 6 ! 6 ! 6 ! 6 4 X ' 4 Y ' ! 6 ! 6" P ,$ , ! 6 4!"$&;<>@^_ x `8 a b(a PB P8 [ B P B L # +P ! 6 ! 6 T ! 6 Y & ! 6W
0x269710…2698a4 Dummy {f00=0x00f4, f01=0x0190, f02=» _P " $ P X & X ]r ! 6 Y Y Y _ " H` _ ! 6 ! 6 a` C [ X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j d X _x R0 V0 ! P* P P P" R ?Q ! 6 Y
0x2698a4…269a38 Dummy {f00=0x00f4, f01=0x0190, f02=» a aV b~ b b B 8# T $ # ;D 7P P [ Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y [ [ ? X _F c g eFeXe d ! 6 P P d & d [ B P B H " +P P. T Y ' ! 6 R| X ( Y &R
0x269a38…269bcc Dummy {f00=0x00f4, f01=0x0190, f02=» d X`" Ec P( 8'0P Ec TD ! T 9 _ ! T @_ ! B P !f B C d ^N P R ?] _ C _ " $ P X ' X ] ! 6 e. c B !f !f ! 6 d B Y & !f W c 8!0T 8 !@P ! 6$ P
0x269bcc…269d60 Dummy {f00=0x00f4, f01=0x0190, f02=» ? Y ! 6 T X ! 6 Y & Zl e T _ ! 6 X $ P !f c R V P P" ! 6 e.W e ( X $ X !f _ X $ X X & !f !f Y _8 X " X &" Y )U W ! 6 ! 6 ! 6 Y 4 B c U )X R@ X X
0x269d60…269ef4 (4, 47) Dummy {f00=0x00f4, 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
0x269ef4…26a088 Dummy {f00=0x00f4, 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
0x26a088…26a21c Dummy {f00=0x00f4, 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
0x26a21c…26a3b0 Dummy {f00=0x00f4, 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
0x26a3b0…26a544 Dummy {f00=0x00f4, 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 *
0x26a544…26a6d8 Dummy {f00=0x00f4, 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
0x26a6d8…26a86c Dummy {f00=0x00f4, 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
0x26a86c…26aa00 Dummy {f00=0x00f4, 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
0x26aa00…26ab94 (4, 48) Dummy {f00=0x00f4, 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
0x26ab94…26ad28 Dummy {f00=0x00f4, 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
0x26ad28…26aebc Dummy {f00=0x00f4, 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
0x26aebc…26b050 Dummy {f00=0x00f4, 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
0x26b050…26b1e4 Dummy {f00=0x00f4, 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
0x26b1e4…26b378 Dummy {f00=0x00f4, 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
0x26b378…26b50c Dummy {f00=0x00f4, 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
0x26b50c…26b6a0 Dummy {f00=0x00f4, 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
0x26b6a0…26b834 (4, 49) Dummy {f00=0x00f5, f01=0x0190, f02=» 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 - @ - N !TTP
0x26b834…26b9c8 Dummy {f00=0x00f5, f01=0x0190, f02=»T d TWh B 2 .:H N P V _ R :h " B YV : v `?A @ W W :b / W W @ W D V W W ` " W p @
0x26b9c8…26bb5c Dummy {f00=0x00f5, f01=0x0190, f02=» V V W W V V >k 8 W W t V V v x ( % , 8 @ W A R 6 P E r 6 E @ @ W @ @ %
0x26bb5c…26bcf0 Dummy {f00=0x00f5, 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 @ @
0x26bcf0…26be84 Dummy {f00=0x00f5, f01=0x0190, f02=» ( @ % 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 _L @
0x26be84…26c018 Dummy {f00=0x00f5, f01=0x0190, f02=» A V W W t PT W f ( ( W d 8 t G =h G V d V r < V f P W f _B V W V t Yr !TTX @ @ T : W > V 0 V P _ W $ q > R
0x26c018…26c1ac Dummy {f00=0x00f5, f01=0x0190, f02=» 0 I , I . $# P V -W H P U & I @ % PH H I H T P, H U V U W < + + P : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W
0x26c1ac…26c340 Dummy {f00=0x00f5, f01=0x0190, f02=»_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ][~ P _ @ @ T @ A : . !TTP V W t * P ( r _
0x26c340…26c4d4 (4, 50) Dummy {f00=0x00f5, f01=0x0190, f02=» _j V t Y !TTX @ @ T : !TTX !CCTr P, ( V r 4 U $ $ _. P, ( V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP
0x26c4d4…26c668 Dummy {f00=0x00f5, f01=0x0190, f02=» 8 8 8 4 D P$ @ # P H I K T + Y@ _pR& @ @ @ % P V 4 4 4 _r @ @ T : @ ! P @ @ l CRT 3 @ l l S @ l PP l !RRP @
0x26c668…26c7fc Dummy {f00=0x00f5, f01=0x0190, f02=» [x ` @ P _ 3 S S V V W @ @ T : P S S _ : N =H N : N =H N : &=H F : F =H F : F =H F : P N =H N T _ : 00=H 00 P
0x26c7fc…26c990 Dummy {f00=0x00f5, f01=0x0190, f02=» 0 | 1 | 2 | P ! ! 1 j @ $ P L 0 B L R X ^ t a `!V ,g g ,g g . TDC 2 U
0x26c990…26cb24 Dummy {f00=0x00f5, f01=0x0190, f02=» 4 TP 8b DY : P P ~dKB 6~N : & j 8b DY
0x26cb24…26ccb8 Dummy {f00=0x00f5, f01=0x0190, f02=» (bvDI @ ?O_o 8b DY x ,g P 4`.GP . TDC 2 U
0x26ccb8…26ce4c Dummy {f00=0x00f5, f01=0x0190, f02=» [ Q@ [ R { R [ _ L Z ! Z $ Z %_N [ Q* L R [ Z { L z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !!
0x26ce4c…26cfe0 Dummy {f00=0x00f5, f01=0x0190, f02=» 6WD K K K K V K : V V V Z P 2 " T W "@T '?W "? H X" K :e J J " J _Z Z Z [ Z P [ V 6 [ 7 V R (Q V : (
0x26cfe0…26d174 (4, 51) Dummy {f00=0x00f5, f01=0x0190, f02=» T& P r l Z T T8 W l H D ! F T X J P p W T l )T ; P e i ( H D ! @ wP6 }R0 P T$ T W P F T 2 T2 P4 PJ PL P P. t H D !6 W P ! F - /P 7 E ST WW [W gW kW oW " "
0x26d174…26d308 Dummy {f00=0x00f5, f01=0x001e, f02=» p x
0x26d308…26d49c Dummy {f00=0x00f5, f01=0x0190, f02=» t B J r r b c @ Tg t z ^ ^ bHPH H ^2 Z ` z
0x26d49c…26d630 Dummy {f00=0x00f5, f01=0x0190, f02=» 4c @Sw D d 2Z $"z y B % y D Dbb d & B 6P yB W [~ ? d f% L "~ T &b ECn 1 d _ A X " , _ @ , > > U # T @ l H ( ( P c P W: P, A , 4 V ( U P" @E V LE W @E
0x26d630…26d7c4 Dummy {f00=0x00f5, f01=0x0190, f02=» 6 8 2 Q Z P 0 9 h h_ $ 4 _, ? P H H #P h A X A FQ ? @ * : ) A *_ @ @ A H A ,_ ? ? ? ? ? ^ A _ _ ^ * $P T I R $ 5 % > ? W ? W ? T T U U U T
0x26d7c4…26d958 Dummy {f00=0x00f5, f01=0x0190, f02=» 0 @ 1 A P P > ? * X " R" Y T ? X D FpT> X@W8 > _& @ 8 R" Y T ? X D FpT X@W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @[ V ? [ > _ > ? _ > > ? ^ ! Y ^ _ b ? ZA.
0x26d958…26daec Dummy {f00=0x00f5, f01=0x0190, f02=» pU J BAB rU J B B pU J BQB rU & P B " P Q :A H P P B H &!@T I & J T &! 1 U ' F A
0x26daec…26dc80 Dummy {f00=0x00f5, f01=0x0190, f02=» P 4 ] " P $ P ] U ( PH U P< P0 P, R 4T ] U ( X "0Tp+ Y WH 8Z R 4 U R ] U ( # $P4> R0> 8' T Y X ' T P X P " >Wh b T # Y U & T ] "W 8V b X $
0x26dc80…26de14 (4, 52) Dummy {f00=0x00f5, f01=0x0190, f02=» "K : A T 2 ; Z [ : : [ [ : A I ! ( : A A A W Z A. c R $ )_
0x26de14…26dfa8 Dummy {f00=0x00f5, f01=0x0002, f02=» X
0x26dfa8…26e13c Dummy {f00=0x00f5, 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
0x26e13c…26e2d0 Dummy {f00=0x00f5, 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
0x26e2d0…26e464 Dummy {f00=0x00f5, f01=0x2008, f02=»
[…0x1…]
0x26e5f8…26e78c Dummy {f00=0x00f5, f01=0x0190, f02=» P _ N L % V d V f v G G v U r v G v : NP L V V : r V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V v ) W b G
0x26e78c…26e920 Dummy {f00=0x00f5, f01=0x0190, f02=»X4 B V_ ` @ ` W W ~ pPn D V W % 6 R , " E R & W ~ R & R P R Xv _|W NT : L W x V_ V P I D W z ` pPl H - V I 0 " R
0x26e920…26eab4 (4, 53) Dummy {f00=0x00f6, f01=0x0190, f02=» 4 Z ! ( 4 X " 4 ! ) 4 X P 4 X P y _^ _n Y X P Y : ! ! ^ X # P Y :A , X A Y @ B. X Y
0x26eab4…26ec48 Dummy {f00=0x00f6, f01=0x0190, f02=» _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 V P ;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ
0x26ec48…26eddc Dummy {f00=0x00f6, f01=0x0190, f02=» 4 Z ! ( 4 X " 4 ! ) 4 X P 4 X P y _^ 6 6 X P Y : ! ! ^ X # P P4 P P 1P0 P W P P 5P B B J X P WL B 9 B Y B Y ! P. @=r = B @=t `=t @=tP 0P _ %
0x26eddc…26ef70 Dummy {f00=0x00f6, f01=0x0190, f02=» F X P A E Y Wb Y @_ X X A 0 E 8 Y _& Y @ 0 A A _: X P ( y Y W " (P 0 ) > " (P _ ) 1_ (P _ ) 1_0 (X< P _ 0 )_J (P _ ) 1 4 ! X R< X T4 X P0 , Y L C L
0x26ef70…26f104 Dummy {f00=0x00f6, f01=0x0190, f02=» A A W > 4 y ! B ! T P P " ! Tf Tb A! P A! TR ! TL ! TD T@ ! T8 ! A I A P " !! 8_ !! T ! " X ! _ !! A @
0x26f104…26f298 Dummy {f00=0x00f6, f01=0x0190, f02=» @" @ T 1 R 0 2P P P A h @ 8 H> @" P E ! PH X RB X P X T4 P C T C X T ! W D | D W" X R X T D ! ! _ A @ X A A A @ A !! @ T @ P ! D !! @ T @
0x26f298…26f42c Dummy {f00=0x00f6, f01=0x0190, f02=» 4 A _ A " < A @ T _, _0 @ T8W @" T ! _ ! ! _ A A E A A 4 @ P ! 8 !! !!fW @ T ! 4_ T _ A 4 C D4 B B A A A A A ! l !! A _^_V @ P6 X R0 X P T$ T Y W T
0x26f42c…26f5c0 Dummy {f00=0x00f6, f01=0x0190, f02=» ]6W P _@ @" @ E !! P ! 4 _$ !! 2_l 1 A T 0W ;W A A W W W A A ! j @ ! @ ! ! ! B J 4 ! j ! @ @ A @ T( @! ! 8 ! @ P - ! x != W 0 " @ PL R ~T }T T0
0x26f5c0…26f754 (4, 54) Dummy {f00=0x00f6, f01=0x0190, f02=» P U _ L !SSP !LL P W L @tL AtLV Q> P EtN @tB EtP P Et^ P Et` DtNT tnP Q> RJ 2% P( R 0 XtDT R , @ttT R RT @t Qd Q> 6 RJ 2% P Q> tn r P %_ S Fp S E 3 P
0x26f754…26f8e8 Dummy {f00=0x00f6, f01=0x0190, f02=»P R ( >a U Wb 0 =b PtNP @tL ! T. W< PtP DtD Y Pt^ Y Pt` Y U ! T ! X6 _R _V Dt " P tv Atw ( ^ W @t P6 I @t P @X( V W HX* IX,(@ @tnP -W P B ~* ~2 t (@( @t
0x26f8e8…26fa7c Dummy {f00=0x00f6, f01=0x0190, f02=»X6 S b Qd U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S Fp S E 3 P
0x26fa7c…26fc10 Dummy {f00=0x00f6, f01=0x0190, f02=»P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W P B (@( @
0x26fc10…26fda4 Dummy {f00=0x00f6, f01=0x0190, f02=» S b Qd U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S Fp S E 3 P
0x26fda4…26ff38 Dummy {f00=0x00f6, f01=0x0190, f02=»P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W P B (@( @
0x26ff38…2700cc Dummy {f00=0x00f6, f01=0x0190, f02=» S b X2 : : : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > D LW 0P Q P P E +P W : X + D X L 1 Y L : L 4W 0P8 R Q P W R
0x2700cc…270260 Dummy {f00=0x00f6, f01=0x0190, f02=» T * X<SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C } W C
0x270260…2703f4 (4, 55) Dummy {f00=0x00f6, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x2703f4…270588 Dummy {f00=0x00f6, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 N
0x270588…27071c Dummy {f00=0x00f6, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P
0x27071c…2708b0 Dummy {f00=0x00f6, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT
0x2708b0…270a44 Dummy {f00=0x00f6, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P L
0x270a44…270bd8 Dummy {f00=0x00f6, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2
0x270bd8…270d6c Dummy {f00=0x00f6, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK
0x270d6c…270f00 Dummy {f00=0x00f6, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY
0x270f00…271094 (4, 56) Dummy {f00=0x00f6, f01=0x0190, f02=» LABEL = KMD08 DATE = 790830 PACK NBR = 001 f : ] =IR E
0x271094…271228 Dummy {f00=0x00f6, f01=0x0002, f02=»
0x271228…2713bc Dummy {f00=0x00f6, f01=0x00a4, f02=» ASM START PSCR /O ASM VDUPRT $ PSCR /O 6 ASM PRT D ASM TB3270 T PSCR /O f TRA DATDIV t SCR /O ASG /E0,TY10
0x2713bc…271550 Dummy {f00=0x00f6, f01=0x2008, f02=» START PSCR /O ASM VDUPRT $ PSCR /O 6 ASM PRT D ASM TB3270 T PSCR /O f TRA DATDIV t SCR /O ASG /E0,TY10
0x271550…2716e4 Dummy {f00=0x00f6, f01=0x40a2, f02=» L H IDENT S:BTAB TRA 4.1 79-05-07 F1 O1111 REL 2.1 79-05-07 87015054012 S:BTAB T S:BTABB f z :B @ T :A @ D0 * @
0x2716e4…271878 Dummy {f00=0x00f6, f01=0x0190, f02=» L H IDENT Z:TB10 TRA 4.1 79-05-07 F1 O1111 REL 2.1 79-05-07 87015054012 Z:TB10 T Z:TB10T f * & z * & * & = * &
0x271878…271a0c Dummy {f00=0x00f6, f01=0x0190, f02=» * & , * & Z * & * & - * & K
0x271a0c…271ba0 Dummy {f00=0x00f6, f01=0x0190, f02=» n * & * & : * & h * & * & ; * & Y
0x271ba0…271d34 (4, 57) Dummy {f00=0x00f7, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x271d34…271ec8 Dummy {f00=0x00f7, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x271ec8…27205c Dummy {f00=0x00f7, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x27205c…2721f0 Dummy {f00=0x00f7, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x2721f0…272384 Dummy {f00=0x00f7, f01=0x2008, f02=» *
0x272384…272518 Dummy {f00=0x00f7, f01=0x0190, f02=» P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 > P LD A1,4,A4 R P* f P IFT CPU852=1 p P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P*
0x272518…2726ac Dummy {f00=0x00f7, f01=0x0190, f02=» A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS X P* t P* EXIT PARAMETERS:- ~ P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* PFNDDWT
0x2726ac…272840 Dummy {f00=0x00f7, f01=0x0190, f02=»GTH v P* P IFT MMUPAG=1 & P ELR A2,A8 LOAD FILE CODE FROM ECB , P XIF V P* b P IFT MMUPAG=0 l ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P EJECT MSUBS P* P* PFND100 SUK A1,4 ( P R
0x272840…2729d4 (4, 58) Dummy {f00=0x00f7, f01=0x0000, f02=»
[…0xf…]
0x274180…274314 (4, 60) Dummy {f00=0x00f7, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x274314…2744a8 Dummy {f00=0x00f7, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x2744a8…27463c Dummy {f00=0x00f7, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x27463c…2747d0 Dummy {f00=0x00f7, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x2747d0…274964 Dummy {f00=0x00f7, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x274964…274af8 Dummy {f00=0x00f7, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x274af8…274c8c Dummy {f00=0x00f7, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x274c8c…274e20 Dummy {f00=0x00f7, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x274e20…274fb4 (4, 61) Dummy {f00=0x00f8, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x274fb4…275148 Dummy {f00=0x00f8, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x275148…2752dc Dummy {f00=0x00f8, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x2752dc…275470 Dummy {f00=0x00f8, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x275470…275604 Dummy {f00=0x00f8, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x275604…275798 Dummy {f00=0x00f8, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x275798…27592c Dummy {f00=0x00f8, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x27592c…275ac0 Dummy {f00=0x00f8, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x275ac0…275c54 (4, 62) Dummy {f00=0x00f8, f01=0x0190, f02=»1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN $ P SUR A8,A8 NO BUFFER =3 B P ABL DMTASX b PDMT010 EQU * v P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF
0x275c54…275de8 Dummy {f00=0x00f8, f01=0x0190, f02=»L A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 : 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) L P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P S
0x275de8…275f7c Dummy {f00=0x00f8, f01=0x0190, f02=»2 ~ P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER * P CF A14,DMTIOC I/O CHECK P LD A2,VLVER,A3 VERSION | & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERROR RE
0x275f7c…276110 Dummy {f00=0x00f8, f01=0x018e, f02=»OC BASE ~ . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH B P ST A9,TASVRL l P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6,TAS
0x276110…2762a4 Dummy {f00=0x00f8, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED , P ST A1,TASCVO UPDATE TASCVO V $ P LDK A7,7 TOO MANY FILE SECTIONS z P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x2762a4…276438 Dummy {f00=0x00f8, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* & P ADKL A7,'#D' 0 P LKM F P DATA -4 R P DATA DMTASS b P LKM v P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A8
0x276438…2765cc Dummy {f00=0x00f8, f01=0x0190, f02=»A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS 6 P ADKL A3,BUFSTA Z P ST A3,ECBBA,A8 r P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x2765cc…276760 Dummy {f00=0x00f8, f01=0x0190, f02=» RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR ( PDMT135 EQU * N P ADK A3,2 SKIP CYLID b PDMT120 EQU * ~ ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 P
0x276760…2768f4 (4, 63) Dummy {f00=0x00f8, f01=0x018e, f02=»ERE UNLOCKED BEFORE % f P* & P LDR A5,A7 & & P LDR A6,A8 SAVE & 8 P LDK A1,3 LOOP & P PDMTASY EQU * & f P LC A2,TASLFD,A1 FILE CODES & z P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK A7,
0x2768f4…276a88 Dummy {f00=0x00f8, f01=0x0190, f02=» P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 0 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' : P* ' f PDMT400 EQU * ' p P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORRECT RE
0x276a88…276c1c Dummy {f00=0x00f8, f01=0x018e, f02=» ' p " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( . ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( @ P SUK A2,2 ( l PDMT405 EQU * ( ~ P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4,MXI
0x276c1c…276db0 Dummy {f00=0x00f8, f01=0x0190, f02=» PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) . P LDKL A2,/FFFE ) P " P ANRS A2,A3 CLEAR FDB USE BIT ) f P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440 NO B
0x276db0…276f44 Dummy {f00=0x00f8, f01=0x0190, f02=»ELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ P CF A15,QTJOB QUEUE CALLING TASK * J P ENB * r P LKM * ~ P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 * P
0x276f44…2770d8 Dummy {f00=0x00f8, f01=0x0190, f02=»CT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + : < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + v P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR TO
0x2770d8…27726c Dummy {f00=0x00f8, f01=0x0190, f02=»C A3,TASECB+1 + " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , < P LD A3,ECBBA,A8 , ` P SUKL A3,BUFSTA , x " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD A6,FDB
0x27726c…277400 Dummy {f00=0x00f8, f01=0x0190, f02=»A1 GET MOST SIGN BIT , P ADK A2,5 - P SRL A2,1 NO OF WORDS NEEDED - . P RF(Z) DMT570 WRONG SIZE - R P INH - r P LD A4,MXIND LENGTH MXIND - ~ P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY - P
0x277400…277594 (4, 64) Dummy {f00=0x00f8, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x277594…277728 Dummy {f00=0x00f8, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x277728…2778bc Dummy {f00=0x00f8, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x2778bc…277a50 Dummy {f00=0x00f8, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x277a50…277be4 Dummy {f00=0x00f8, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x277be4…277d78 Dummy {f00=0x00f8, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x277d78…277f0c Dummy {f00=0x00f8, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x277f0c…2780a0 Dummy {f00=0x00f8, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x2780a0…278234 (4, 65) Dummy {f00=0x00f9, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x278234…2783c8 Dummy {f00=0x00f9, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x2783c8…27855c Dummy {f00=0x00f9, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x27855c…2786f0 Dummy {f00=0x00f9, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x2786f0…278884 Dummy {f00=0x00f9, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x278884…278a18 Dummy {f00=0x00f9, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x278a18…278bac Dummy {f00=0x00f9, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x278bac…278d40 Dummy {f00=0x00f9, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x278d40…278ed4 (4, 66) Dummy {f00=0x00f9, f01=0x0190, f02=»ST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 " P LDK A3,8 MAX NO OF INDE*2 6 L PDMT620 EQU * 6 n P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(NZ) DMT620
0x278ed4…279068 Dummy {f00=0x00f9, f01=0x0190, f02=» 6 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 ( P SUK A5,2 7 < " P RF(N) DMT635 ALL FDB UPPDATED 7 N P LDR A1,A10 FDB DATA 7 t P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF 7 P A
0x279068…2791fc Dummy {f00=0x00f9, f01=0x0190, f02=»DMT635 EQU * 7 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 , P ENB ENB 8 ` P LD A1,TASMXA 8 r ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A7,1 A7=11=
0x2791fc…279390 Dummy {f00=0x00f9, f01=0x018e, f02=»ILE 8 v & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 6 P ANKL A1,/6000 9 X P SLL A1,1 9 n $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P LDR A1,A12
0x279390…279524 Dummy {f00=0x00f9, f01=0x0190, f02=» P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : 2 P SUK A2,1 : L P ST A2,FDBSNR,A12 : ^ P LDR A1,A12 : x " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR A3,A1 :
0x279524…2796b8 Dummy {f00=0x00f9, f01=0x414a, f02=»,FDBMRN+1,A12 : P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; P* ; X P LD A6,FDBRLE,A12 REC LENGTH ; b P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ; P ST A2
0x2796b8…27984c Dummy {f00=0x00f9, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x27984c…2799e0 Dummy {f00=0x00f9, 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
0x2799e0…279b74 (4, 67) Dummy {f00=0x00f9, f01=0x0190, f02=»RSOR ADDRESS E z P CF A14,RDMOD READ MODIFIED F " P RB TRANS SEND MODIFIED FIELDS F 8 P EJECT F ^ P* F l P* F v $ P* DISPLAY MODIFIED FIELDS ON VDU F P* F P* F P* A3=VDU POSITION F P* A4=VDU IMAGE POINTER F P* A5=MODIFIED INDICA
0x279b74…279d08 Dummy {f00=0x00f9, f01=0x0002, f02=»
0x279d08…279e9c Dummy {f00=0x00f9, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x279e9c…27a030 Dummy {f00=0x00f9, f01=0x40e8, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P* P* P* LEVE
0x27a030…27a1c4 Dummy {f00=0x00f9, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P*
0x27a1c4…27a358 Dummy {f00=0x00f9, f01=0x2008, f02=» DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L P DATA 0 OUTPUT QUEUE LINK j P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P*
0x27a358…27a4ec Dummy {f00=0x00f9, f01=0x0190, f02=»D A3,4,A8 REQUESTED LENGTH # P CWK A3,130 $ " " P ABL(NE) END:10 ILLEGAL LENGTH $ 6 P LD A4,2,A8 BUFFER ADDRESS $ P RB FD:045 $ ~ P XIF $ P* $ P EJECT DRFD01 $ P* $ P*************** $ P* * $ P* TEST STATUS *
0x27a4ec…27a680 Dummy {f00=0x00f9, f01=0x018e, f02=» P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % ( " P ANKL A3,/200 WRITE PROTECTED? % R P ORS A3,DWTRCW,A6 % x P IFF TOSS+IBM=0 % P RF LOA:05 READ VOLUME NAME % P* % PFD:075 EQU * % P XIF % $ P LD A1,DWTRCW,A6
0x27a680…27a814 (4, 68) Dummy {f00=0x00f9, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x27a814…27a9a8 Dummy {f00=0x00f9, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x27a9a8…27ab3c Dummy {f00=0x00f9, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x27ab3c…27acd0 Dummy {f00=0x00f9, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x27acd0…27ae64 Dummy {f00=0x00f9, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x27ae64…27aff8 Dummy {f00=0x00f9, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x27aff8…27b18c Dummy {f00=0x00f9, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x27b18c…27b320 Dummy {f00=0x00f9, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x27b320…27b4b4 (4, 69) Dummy {f00=0x00fa, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x27b4b4…27b648 Dummy {f00=0x00fa, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x27b648…27b7dc Dummy {f00=0x00fa, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x27b7dc…27b970 Dummy {f00=0x00fa, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x27b970…27bb04 Dummy {f00=0x00fa, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x27bb04…27bc98 Dummy {f00=0x00fa, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x27bc98…27be2c Dummy {f00=0x00fa, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x27be2c…27bfc0 Dummy {f00=0x00fa, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x27bfc0…27c154 (4, 70) Dummy {f00=0x00fa, f01=0x0000, f02=»
[…0xf…]
0x27d900…27da94 (4, 72) Dummy {f00=0x00fa, 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
0x27da94…27dc28 Dummy {f00=0x00fa, 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
0x27dc28…27ddbc Dummy {f00=0x00fa, 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
0x27ddbc…27df50 Dummy {f00=0x00fa, 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
0x27df50…27e0e4 Dummy {f00=0x00fa, 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
0x27e0e4…27e278 Dummy {f00=0x00fa, f01=0x0190, f02=» T:DTC0 T:DTC0D REGGO & * & TC * 6 * d * : H IDENT T:AKA0 TRA 4.2 80-07-30 F1 O1111 02.01.XXX.1 T:AKA0 T:AKA0A . * T:DKA0 D:CB9
0x27e278…27e40c Dummy {f00=0x00fa, f01=0x0190, f02=» * & [ a $ , ( y * KA R y : H IDENT T:DKA0 TRA 4.2 80-07-30 F1 O1111 02.01.XXX.1 T:DKA0 T:DKA0D
0x27e40c…27e5a0 Dummy {f00=0x00fa, f01=0x0190, f02=»XX.1 ^ T:AGA0 T:AGA0A ^ . * T:DGA0 D:CB90 C:CB90 D:TB90 Z:TB90 2 * & 0 d * & * & = a & " Y P GA
0x27e5a0…27e734 (4, 73) Dummy {f00=0x00fb, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x27e734…27e8c8 Dummy {f00=0x00fb, f01=0x0004, f02=» P X
0x27e8c8…27ea5c Dummy {f00=0x00fb, 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
0x27ea5c…27ebf0 Dummy {f00=0x00fb, 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
0x27ebf0…27ed84 Dummy {f00=0x00fb, f01=0x018e, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 , ( ! , ( 1
0x27ed84…27ef18 Dummy {f00=0x00fb, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x27ef18…27f0ac Dummy {f00=0x00fb, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x27f0ac…27f240 Dummy {f00=0x00fb, f01=0x4062, f02=» _ , L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x27f240…27f3d4 (4, 74) Dummy {f00=0x00fb, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x27f3d4…27f568 Dummy {f00=0x00fb, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P**
0x27f568…27f6fc Dummy {f00=0x00fb, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL
0x27f6fc…27f890 Dummy {f00=0x00fb, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR
0x27f890…27fa24 Dummy {f00=0x00fb, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* *
0x27fa24…27fbb8 Dummy {f00=0x00fb, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x27fbb8…27fd4c Dummy {f00=0x00fb, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL
0x27fd4c…27fee0 Dummy {f00=0x00fb, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,F
0x27fee0…280074 (4, 75) Dummy {f00=0x00fb, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x280074…280208 Dummy {f00=0x00fb, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x280208…28039c Dummy {f00=0x00fb, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x28039c…280530 Dummy {f00=0x00fb, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x280530…2806c4 Dummy {f00=0x00fb, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x2806c4…280858 Dummy {f00=0x00fb, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x280858…2809ec Dummy {f00=0x00fb, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x2809ec…280b80 Dummy {f00=0x00fb, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x280b80…280d14 (4, 76) Dummy {f00=0x00fb, f01=0x0000, f02=»
0x280d14…280ea8 Dummy {f00=0x00fb, f01=0x0004, f02=»!(!0
0x280ea8…28103c Dummy {f00=0x00fb, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x28103c…2811d0 Dummy {f00=0x00fb, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x2811d0…281364 Dummy {f00=0x00fb, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x281364…2814f8 Dummy {f00=0x00fb, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x2814f8…28168c Dummy {f00=0x00fb, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x28168c…281820 Dummy {f00=0x00fb, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x281820…2819b4 (4, 77) Dummy {f00=0x00fc, f01=0x0000, f02=»
[…0x1f…]
0x284aa0…284c34 (4, 81) Dummy {f00=0x00fd, f01=0x0000, f02=»
[…0x17…]
0x287080…287214 (4, 84) Dummy {f00=0x00fd, f01=0x2008, f02=»
0x287214…2873a8 Dummy {f00=0x00fd, f01=0x0002, f02=»!
0x2873a8…28753c Dummy {f00=0x00fd, 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
0x28753c…2876d0 Dummy {f00=0x00fd, f01=0x4154, f02=» INTRT4 SYSLOD CTAB01L $ CTAB02 6 * & H CTAB03 v ITADN KBAD3 TPADN GPADN DIADN DYADN , (
0x2876d0…287864 Dummy {f00=0x00fd, f01=0x2008, f02=»
0x287864…2879f8 Dummy {f00=0x00fd, f01=0x0000, f02=»
[…0x2…]
0x287d20…287eb4 (4, 85) Opaque[0x194]
0x287eb4…288048 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x1fc0, f03=0x0005}
0x287eb4…288048 IdxSect {
0x287eb4…288048 f00 = 0x00fe // 0x287eb4 @0x0
0x287eb4…288048 f01 = 0x0002 // 0x287eb6 @0x2
0x287eb4…288048 gno = [ // 0x287eb8 @0x4
0x287eb4…288048 [0x00]: C0x00fe.0x0.0
0x287eb4…288048 ]
0x287eb4…288048 }
0x288048…2881dc Dummy {f00=0x00fe, 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 DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x2881dc…288370 Dummy {f00=0x00fe, f01=0x018e, f02=» P* PSCLASS DATA TCLASE-* P DATA TC00 * P DATA TC01 H P DATA TC02 f P DATA TC03 P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-* P DATA
0x288370…288504 Dummy {f00=0x00fe, f01=0x0190, f02=» PTC01 DATA TC01E-* P DATA /00E0 & P DATA DWII01 F PTC01E EQU * f PTC02 DATA TC02E-* P DATA /00E1 P DATA DWIO01 PTC02E EQU * PTC03
0x288504…288698 Dummy {f00=0x00fe, f01=0x417a, f02=»TC04E-* ~ P DATA /0060 P DATA DW1500 0 P DATA /015 P P DATA DWREMU b P DATA /00F8 v P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DATA /02FA P DATA
0x288698…28882c Dummy {f00=0x00fe, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x28882c…2889c0 Dummy {f00=0x00fe, f01=0x0190, f02=» P ST P,INTSAV * P CF A15,IHSAV8 SAVE A1-A8 ON A15 STACK $ P LDKL A6,DW1701 LOAD DWT ADDRESS F , P INR A2,0,DAMI01 GET CHARACTER FROM LINR n PIHI100 EQU * P ABL(NA) SSTIN P**LOGG P IFF LOGG=0 P LD A5,DWTSAV+4,A6 & P CF
0x2889c0…288b54 (4, 86) Opaque[0x194]
0x288b54…288ce8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fc8, f03=0x0000}
0x288b54…288ce8 IdxSect {
0x288b54…288ce8 f00 = 0x00fe // 0x288b54 @0x0
0x288b54…288ce8 f01 = 0x0002 // 0x288b56 @0x2
0x288b54…288ce8 gno = [ // 0x288b58 @0x4
0x288b54…288ce8 [0x00]: C0x00fe.0x1.0
0x288b54…288ce8 ]
0x288b54…288ce8 }
0x288ce8…288e7c Dummy {f00=0x00fe, 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
0x288e7c…289010 Dummy {f00=0x00fe, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN CTAB01 R P EXTRN CTAB02 h P EXTRN CTAB03 ~ P EXTRN ITAD P EXTRN KBAD3 P EXTRN TPAD P EXTRN GPAD P EXTRN DIAD P EXTRN DYAD
0x289010…2891a4 Dummy {f00=0x00fe, f01=0x0190, f02=» PINTLT3 DATA 0 PINTLT4 DATA 0 PINTRT1 DATA 0 0 PINTRT2 DATA 0 F PINTRT3 DATA 0 PINTRT4 DATA 0 r P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA ITAD P DATA KBAD
0x2891a4…289338 Dummy {f00=0x00fe, f01=0x4018, f02=» d P END @ PINTLT4 DATA 0 PINTRT1 DATA 0 0 PINTRT2 DATA 0 F PINTRT3 DATA 0 PINTRT4 DATA 0 r P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA ITAD P DATA KBAD
0x289338…2894cc Dummy {f00=0x00fe, 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
0x2894cc…289660 Dummy {f00=0x00fe, 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,
0x289660…2897f4 (4, 87) Opaque[0x194]
0x2897f4…289988 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fd0, f03=0x0000}
0x2897f4…289988 IdxSect {
0x2897f4…289988 f00 = 0x00fe // 0x2897f4 @0x0
0x2897f4…289988 f01 = 0x0006 // 0x2897f6 @0x2
0x2897f4…289988 gno = [ // 0x2897f8 @0x4
0x2897f4…289988 [0x00]: C0x00fe.0x2.0
0x2897f4…289988 [0x01]: C0x00fe.0x3.0
0x2897f4…289988 [0x02]: C0x00ff.0x0.0
0x2897f4…289988 ]
0x2897f4…289988 }
0x289988…289b1c Dummy {f00=0x00fe, 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*
0x289b1c…289cb0 Dummy {f00=0x00fe, 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
0x289cb0…289e44 Dummy {f00=0x00fe, 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,
0x289e44…289fd8 Dummy {f00=0x00fe, 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 IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x289fd8…28a16c Dummy {f00=0x00fe, f01=0x0190, f02=» DISCEN ~ $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT ROUTINE 8 P* DEBUGGER X PX:A EQU 0 MONITOR OPTION j ( 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 LOCAL FILES
0x28a16c…28a300 Dummy {f00=0x00fe, f01=0x0190, f02=»B AND T:A h P* PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS 8 " PSEG:EL EQU 4 EFFECTIVE LENGTH ` $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD
0x28a300…28a494 (4, 88) Dummy {f00=0x00fe, f01=0x0190, f02=»E d 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) h P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT SYSTAB P* P* INTERRUPT VECTORS P*
0x28a494…28a628 Dummy {f00=0x00fe, f01=0x0190, f02=» 4 P DATA ILLINT 5 P DATA ILLINT 6 ( P DATA ILLINT D P DATA ILLINT d P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13
0x28a628…28a7bc Dummy {f00=0x00fe, f01=0x0190, f02=»ILLINT ~ P DATA ILLINT P DATA ILLINT . P DATA ILLINT N P DATA ILLINT 22 n P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT P DATA ILLINT P
0x28a7bc…28a950 Dummy {f00=0x00fe, f01=0x0190, f02=» P DATA ILLINT 32 P DATA ILLINT 33 P DATA ILLINT < P DATA ILLINT P DATA ILLINT 36 | P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT
0x28a950…28aae4 Dummy {f00=0x00fe, f01=0x0190, f02=» 45 P DATA ILLINT 46 P DATA ILLINT 47 , P DATA ILLINT 48 H P DATA ILLINT 49 d P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54
0x28aae4…28ac78 Dummy {f00=0x00fe, f01=0x018e, f02=» | P DATA ILLINT 60 P DATA ILLINT 61 $ P DATA ILLINT 62 @ P DATA TRAP TRAP ROUTINE P EJECT SYSTAB | P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYST
0x28ac78…28ae0c Dummy {f00=0x00fe, f01=0x018e, f02=» x P* P XRR A13,A13 P XRR A14,A14 & P LD A1,SCTBUG : P ABR(NZ) A1 P P HLT d P p P EJECT SYSTAB x P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MO
0x28ae0c…28afa0 Dummy {f00=0x00fe, f01=0x0190, f02=» l ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER 4 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DAT
0x28afa0…28b134 (4, 89) Dummy {f00=0x00ff, f01=0x0190, f02=»ENTRY l P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART ( & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA ST
0x28b134…28b2c8 Dummy {f00=0x00ff, f01=0x0190, f02=»ESS x PSCTCDT DATA 0 CDTAB ADDRESS PSCTBUG DATA 0 DEBUGGER 0 ( PSCTDMT DATA 00004 DMTASKS IN SYSTEM N P BIT 13:D2,14:D1,15:D0 z 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00000 DM NO OF LOCAL FILES , PSCTDMC DAT
0x28b2c8…28b45c Dummy {f00=0x00ff, f01=0x4110, f02=»YSTAB P P* P* SYSTEM STACK P* 6 P RES 145 @ P DATA /FCC0 AND PSW P & PSTB DATA LOOP AND PC FOR IDLE LOOP l P P P* P* IDLE LOOP P* P PLOOP RB * P P P P END
0x28b45c…28b5f0 Dummy {f00=0x00ff, 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
0x28b5f0…28b784 Dummy {f00=0x00ff, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x28b784…28b918 Dummy {f00=0x00ff, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x28b918…28baac Dummy {f00=0x00ff, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x28baac…28bc40 Dummy {f00=0x00ff, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x28bc40…28bdd4 (4, 90) Opaque[0x194]
0x28bdd4…28bf68 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fe8, f03=0x0000}
0x28bdd4…28bf68 IdxSect {
0x28bdd4…28bf68 f00 = 0x00ff // 0x28bdd4 @0x0
0x28bdd4…28bf68 f01 = 0x0008 // 0x28bdd6 @0x2
0x28bdd4…28bf68 gno = [ // 0x28bdd8 @0x4
0x28bdd4…28bf68 [0x00]: C0x00ff.0x1.0
0x28bdd4…28bf68 [0x01]: C0x00ff.0x2.0
0x28bdd4…28bf68 [0x02]: C0x00ff.0x3.0
0x28bdd4…28bf68 [0x03]: C0x0100.0x0.0
0x28bdd4…28bf68 ]
0x28bdd4…28bf68 }
0x28bf68…28c0fc Dummy {f00=0x00ff, 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*
0x28c0fc…28c290 Dummy {f00=0x00ff, 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
0x28c290…28c424 Dummy {f00=0x00ff, 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.
0x28c424…28c5b8 Dummy {f00=0x00ff, 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
0x28c5b8…28c74c Dummy {f00=0x00ff, 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
0x28c74c…28c8e0 Dummy {f00=0x00ff, 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
0x28c8e0…28ca74 (4, 91) Dummy {f00=0x00ff, 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
0x28ca74…28cc08 Dummy {f00=0x00ff, 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
0x28cc08…28cd9c Dummy {f00=0x00ff, 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*
0x28cd9c…28cf30 Dummy {f00=0x00ff, 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
0x28cf30…28d0c4 Dummy {f00=0x00ff, 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
0x28d0c4…28d258 Dummy {f00=0x00ff, 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
0x28d258…28d3ec Dummy {f00=0x00ff, 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
0x28d3ec…28d580 Dummy {f00=0x00ff, 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
0x28d580…28d714 (4, 92) Dummy {f00=0x00ff, 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
0x28d714…28d8a8 Dummy {f00=0x00ff, 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
0x28d8a8…28da3c Dummy {f00=0x00ff, 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,
0x28da3c…28dbd0 Dummy {f00=0x00ff, 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
0x28dbd0…28dd64 Dummy {f00=0x00ff, 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
0x28dd64…28def8 Dummy {f00=0x00ff, 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
0x28def8…28e08c Dummy {f00=0x00ff, 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
0x28e08c…28e220 Dummy {f00=0x00ff, 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
0x28e220…28e3b4 (4, 93) Dummy {f00=0x0100, 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
0x28e3b4…28e548 Dummy {f00=0x0100, 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
0x28e548…28e6dc Dummy {f00=0x0100, 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
0x28e6dc…28e870 Dummy {f00=0x0100, 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
0x28e870…28ea04 Dummy {f00=0x0100, f01=0x0190, f02=» IHTWN IHTCN , ( IHSOP N CHLT1 ^ IHFDN n CHRT1 ~ , ( CHRT2 CHRT3 CHRT4 IHCC1 IHCC2
0x28ea04…28eb98 Dummy {f00=0x0100, f01=0x018e, f02=» $ & ~ IHLPN IHCRN . IHDU1 > , ( A ( * N IHDU2 ~ IHMTN , ( Q , . 0 , ( a IHINPTI
0x28eb98…28ed2c Dummy {f00=0x0100, f01=0x0190, f02=» SCTEFA SCTPLD SCTANO , SCTADA @ SCTPAGL T , ( @ h SCTSEG SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC
0x28ed2c…28eec0 Dummy {f00=0x0100, f01=0x414e, f02=»T SCTCDT bBUG SCTBUG~ . , ( 6 B SCTDMT r SCTDMI SCTDML SCTDMC SCTBLK SCTDCT
0x28eec0…28f054 (4, 94) Opaque[0x194]
0x28f054…28f1e8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x28f054…28f1e8 IdxSect {
0x28f054…28f1e8 f00 = 0x0100 // 0x28f054 @0x0
0x28f054…28f1e8 f01 = 0x000a // 0x28f056 @0x2
0x28f054…28f1e8 gno = [ // 0x28f058 @0x4
0x28f054…28f1e8 [0x00]: C0x0100.0x1.0
0x28f054…28f1e8 [0x01]: C0x0100.0x2.0
0x28f054…28f1e8 [0x02]: C0x0100.0x3.0
0x28f054…28f1e8 [0x03]: C0x0101.0x0.0
0x28f054…28f1e8 [0x04]: C0x0101.0x1.0
0x28f054…28f1e8 ]
0x28f054…28f1e8 }
0x28f1e8…28f37c Dummy {f00=0x0100, 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*
0x28f37c…28f510 Dummy {f00=0x0100, 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*
0x28f510…28f6a4 Dummy {f00=0x0100, 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*
0x28f6a4…28f838 Dummy {f00=0x0100, 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
0x28f838…28f9cc Dummy {f00=0x0100, 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
0x28f9cc…28fb60 Dummy {f00=0x0100, 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
0x28fb60…28fcf4 (4, 95) Dummy {f00=0x0100, 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****************************
0x28fcf4…28fe88 Dummy {f00=0x0100, 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
0x28fe88…29001c Dummy {f00=0x0100, 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
0x29001c…2901b0 Dummy {f00=0x0100, 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*
0x2901b0…290344 Dummy {f00=0x0100, 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
0x290344…2904d8 Dummy {f00=0x0100, 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
0x2904d8…29066c Dummy {f00=0x0100, 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
0x29066c…290800 Dummy {f00=0x0100, 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
0x290800…290994 (4, 96) Dummy {f00=0x0100, 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
0x290994…290b28 Dummy {f00=0x0100, 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
0x290b28…290cbc Dummy {f00=0x0100, 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
0x290cbc…290e50 Dummy {f00=0x0100, 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
0x290e50…290fe4 Dummy {f00=0x0100, 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
0x290fe4…291178 Dummy {f00=0x0100, 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
0x291178…29130c Dummy {f00=0x0100, 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
0x29130c…2914a0 Dummy {f00=0x0100, 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
0x2914a0…291634 (4, 97) Dummy {f00=0x0101, 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 *
0x291634…2917c8 Dummy {f00=0x0101, 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
0x2917c8…29195c Dummy {f00=0x0101, 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
0x29195c…291af0 Dummy {f00=0x0101, 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,-
0x291af0…291c84 Dummy {f00=0x0101, 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
0x291c84…291e18 Dummy {f00=0x0101, 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
0x291e18…291fac Dummy {f00=0x0101, 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
0x291fac…292140 Dummy {f00=0x0101, 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*
0x292140…2922d4 (4, 98) Dummy {f00=0x0101, 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*
0x2922d4…292468 Dummy {f00=0x0101, 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*
0x292468…2925fc Dummy {f00=0x0101, 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
0x2925fc…292790 Dummy {f00=0x0101, 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
0x292790…292924 Dummy {f00=0x0101, 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
0x292924…292ab8 Dummy {f00=0x0101, 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
0x292ab8…292c4c Dummy {f00=0x0101, f01=0x2008, f02=» ,
0x292c4c…292de0 Dummy {f00=0x0101, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x292de0…292f74 (4, 99) Opaque[0x194]
0x292f74…293108 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2030, f03=0x0000}
0x292f74…293108 IdxSect {
0x292f74…293108 f00 = 0x0101 // 0x292f74 @0x0
0x292f74…293108 f01 = 0x0006 // 0x292f76 @0x2
0x292f74…293108 gno = [ // 0x292f78 @0x4
0x292f74…293108 [0x00]: C0x0101.0x2.0
0x292f74…293108 [0x01]: C0x0101.0x3.0
0x292f74…293108 [0x02]: C0x0102.0x0.0
0x292f74…293108 ]
0x292f74…293108 }
0x293108…29329c Dummy {f00=0x0101, 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*
0x29329c…293430 Dummy {f00=0x0101, 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
0x293430…2935c4 Dummy {f00=0x0101, 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*
0x2935c4…293758 Dummy {f00=0x0101, 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
0x293758…2938ec Dummy {f00=0x0101, 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
0x2938ec…293a80 Dummy {f00=0x0101, 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*
0x293a80…293c14 (4, 100) Dummy {f00=0x0101, 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
0x293c14…293da8 Dummy {f00=0x0101, 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
0x293da8…293f3c Dummy {f00=0x0101, 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
0x293f3c…2940d0 Dummy {f00=0x0101, 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
0x2940d0…294264 Dummy {f00=0x0101, 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
0x294264…2943f8 Dummy {f00=0x0101, 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)
0x2943f8…29458c Dummy {f00=0x0101, 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
0x29458c…294720 Dummy {f00=0x0101, 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*
0x294720…2948b4 (4, 101) Dummy {f00=0x0102, 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*
0x2948b4…294a48 Dummy {f00=0x0102, 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
0x294a48…294bdc Dummy {f00=0x0102, 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
0x294bdc…294d70 Dummy {f00=0x0102, 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
0x294d70…294f04 Dummy {f00=0x0102, 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?
0x294f04…295098 Dummy {f00=0x0102, 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?
0x295098…29522c Dummy {f00=0x0102, 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
0x29522c…2953c0 Dummy {f00=0x0102, f01=0x0000, f02=»
0x2953c0…295554 (4, 102) Opaque[0x194]
0x295554…2956e8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2048, f03=0x0000}
0x295554…2956e8 IdxSect {
0x295554…2956e8 f00 = 0x0102 // 0x295554 @0x0
0x295554…2956e8 f01 = 0x000c // 0x295556 @0x2
0x295554…2956e8 gno = [ // 0x295558 @0x4
0x295554…2956e8 [0x00]: C0x0102.0x1.0
0x295554…2956e8 [0x01]: C0x0102.0x2.0
0x295554…2956e8 [0x02]: C0x0102.0x3.0
0x295554…2956e8 [0x03]: C0x0103.0x0.0
0x295554…2956e8 [0x04]: C0x0103.0x1.0
0x295554…2956e8 [0x05]: C0x0103.0x2.0
0x295554…2956e8 ]
0x295554…2956e8 }
0x2956e8…29587c Dummy {f00=0x0102, 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*
0x29587c…295a10 Dummy {f00=0x0102, 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*
0x295a10…295ba4 Dummy {f00=0x0102, 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
0x295ba4…295d38 Dummy {f00=0x0102, 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
0x295d38…295ecc Dummy {f00=0x0102, 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
0x295ecc…296060 Dummy {f00=0x0102, 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
0x296060…2961f4 (4, 103) Dummy {f00=0x0102, 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
0x2961f4…296388 Dummy {f00=0x0102, 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*
0x296388…29651c Dummy {f00=0x0102, 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
0x29651c…2966b0 Dummy {f00=0x0102, 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
0x2966b0…296844 Dummy {f00=0x0102, 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
0x296844…2969d8 Dummy {f00=0x0102, 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
0x2969d8…296b6c Dummy {f00=0x0102, 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*
0x296b6c…296d00 Dummy {f00=0x0102, 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
0x296d00…296e94 (4, 104) Dummy {f00=0x0102, 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*
0x296e94…297028 Dummy {f00=0x0102, 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*
0x297028…2971bc Dummy {f00=0x0102, 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
0x2971bc…297350 Dummy {f00=0x0102, 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
0x297350…2974e4 Dummy {f00=0x0102, 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
0x2974e4…297678 Dummy {f00=0x0102, 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*
0x297678…29780c Dummy {f00=0x0102, 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
0x29780c…2979a0 Dummy {f00=0x0102, 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
0x2979a0…297b34 (4, 105) Dummy {f00=0x0103, 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
0x297b34…297cc8 Dummy {f00=0x0103, 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
0x297cc8…297e5c Dummy {f00=0x0103, 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*
0x297e5c…297ff0 Dummy {f00=0x0103, 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
0x297ff0…298184 Dummy {f00=0x0103, 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*
0x298184…298318 Dummy {f00=0x0103, 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
0x298318…2984ac Dummy {f00=0x0103, 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
0x2984ac…298640 Dummy {f00=0x0103, 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
0x298640…2987d4 (4, 106) Dummy {f00=0x0103, 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
0x2987d4…298968 Dummy {f00=0x0103, 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
0x298968…298afc Dummy {f00=0x0103, 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
0x298afc…298c90 Dummy {f00=0x0103, 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* !
0x298c90…298e24 Dummy {f00=0x0103, 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
0x298e24…298fb8 Dummy {f00=0x0103, 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 #
0x298fb8…29914c Dummy {f00=0x0103, 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
0x29914c…2992e0 Dummy {f00=0x0103, 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
0x2992e0…299474 (4, 107) Dummy {f00=0x0103, 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
0x299474…299608 Dummy {f00=0x0103, 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
0x299608…29979c Dummy {f00=0x0103, 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*
0x29979c…299930 Dummy {f00=0x0103, 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
0x299930…299ac4 Dummy {f00=0x0103, 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* *
0x299ac4…299c58 Dummy {f00=0x0103, 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* *
0x299c58…299dec Dummy {f00=0x0103, 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. "
0x299dec…299f80 Dummy {f00=0x0103, f01=0x0190, f02=» B 0 $ * & 0 0 0 0 0 #0 *0 10 % & = 8 ? % T B % j : H IDENT Z:GB20 TRA 4.2 80-07-30 F1 O1111 02.01.XXX.1 % | Z:GB20 % Z:GB20G % * & %
0x299f80…29a114 (4, 108) Opaque[0x194]
0x29a114…29a2a8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2078, f03=0x0000}
0x29a114…29a2a8 IdxSect {
0x29a114…29a2a8 f00 = 0x0103 // 0x29a114 @0x0
0x29a114…29a2a8 f01 = 0x0004 // 0x29a116 @0x2
0x29a114…29a2a8 gno = [ // 0x29a118 @0x4
0x29a114…29a2a8 [0x00]: C0x0103.0x3.0
0x29a114…29a2a8 [0x01]: C0x0104.0x0.0
0x29a114…29a2a8 ]
0x29a114…29a2a8 }
0x29a2a8…29a43c Dummy {f00=0x0103, 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
0x29a43c…29a5d0 Dummy {f00=0x0103, 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
0x29a5d0…29a764 Dummy {f00=0x0103, 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
0x29a764…29a8f8 Dummy {f00=0x0103, 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 *
0x29a8f8…29aa8c Dummy {f00=0x0103, 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
0x29aa8c…29ac20 Dummy {f00=0x0103, 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
0x29ac20…29adb4 (4, 109) Dummy {f00=0x0104, 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
0x29adb4…29af48 Dummy {f00=0x0104, 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,
0x29af48…29b0dc Dummy {f00=0x0104, 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
0x29b0dc…29b270 Dummy {f00=0x0104, 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
0x29b270…29b404 Dummy {f00=0x0104, 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
0x29b404…29b598 Dummy {f00=0x0104, 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
0x29b598…29b72c Dummy {f00=0x0104, 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*
0x29b72c…29b8c0 Dummy {f00=0x0104, 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
0x29b8c0…29ba54 (4, 110) Opaque[0x194]
0x29ba54…29bbe8 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2088, f03=0xffff}
0x29ba54…29bbe8 IdxSect {
0x29ba54…29bbe8 f00 = 0x0104 // 0x29ba54 @0x0
0x29ba54…29bbe8 f01 = 0x0026 // 0x29ba56 @0x2
0x29ba54…29bbe8 gno = [ // 0x29ba58 @0x4
0x29ba54…29bbe8 [0x00]: C0x0104.0x1.0
0x29ba54…29bbe8 [0x01]: C0x0104.0x2.0
0x29ba54…29bbe8 [0x02]: C0x0104.0x3.0
0x29ba54…29bbe8 [0x03]: C0x0105.0x0.0
0x29ba54…29bbe8 [0x04]: C0x0105.0x1.0
0x29ba54…29bbe8 [0x05]: C0x0105.0x2.0
0x29ba54…29bbe8 [0x06]: C0x0105.0x3.0
0x29ba54…29bbe8 [0x07]: C0x0106.0x0.0
0x29ba54…29bbe8 [0x08]: C0x0106.0x1.0
0x29ba54…29bbe8 [0x09]: C0x0106.0x2.0
0x29ba54…29bbe8 [0x0a]: C0x0106.0x3.0
0x29ba54…29bbe8 [0x0b]: C0x0107.0x0.0
0x29ba54…29bbe8 [0x0c]: C0x0107.0x1.0
0x29ba54…29bbe8 [0x0d]: C0x0107.0x2.0
0x29ba54…29bbe8 [0x0e]: C0x0107.0x3.0
0x29ba54…29bbe8 [0x0f]: C0x0108.0x0.0
0x29ba54…29bbe8 [0x10]: C0x0108.0x1.0
0x29ba54…29bbe8 [0x11]: C0x0108.0x2.0
0x29ba54…29bbe8 [0x12]: C0x0108.0x3.0
0x29ba54…29bbe8 ]
0x29ba54…29bbe8 }
0x29bbe8…29bd7c Dummy {f00=0x0104, 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
0x29bd7c…29bf10 Dummy {f00=0x0104, 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*
0x29bf10…29c0a4 Dummy {f00=0x0104, 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*
0x29c0a4…29c238 Dummy {f00=0x0104, 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
0x29c238…29c3cc Dummy {f00=0x0104, 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
0x29c3cc…29c560 Dummy {f00=0x0104, 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
0x29c560…29c6f4 (4, 111) Dummy {f00=0x0104, 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
0x29c6f4…29c888 Dummy {f00=0x0104, 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
0x29c888…29ca1c Dummy {f00=0x0104, 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
0x29ca1c…29cbb0 Dummy {f00=0x0104, 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
0x29cbb0…29cd44 Dummy {f00=0x0104, 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
0x29cd44…29ced8 Dummy {f00=0x0104, 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
0x29ced8…29d06c Dummy {f00=0x0104, f01=0x0190, f02=» P* P* 0 P* A PROGRAM VERSION INCLUDING ATTACH/DETACH * P* IS OBTAINED BY SETTING ATTDET EQU 1. L P* z PX:A EQU 0 PATTDET EQU X:A P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY
0x29d06c…29d200 Dummy {f00=0x0104, f01=0x0190, f02=»***************** P* FORM STATEMENTS * P******************* 6 P* R P* PBYTES FORM 8,8 f P* | P EJECT TOSSIO P* P* P********************* P* DWT DISPLACEMENTS * P*********************
0x29d200…29d394 (4, 112) Dummy {f00=0x0104, f01=0x0190, f02=»TBC EQU /03 BYTE COUNTER PDWTECB EQU /04 ECB ADDRESS " PDWTOR EQU /06 INDEX AND ORDER B ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER h ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICAT
0x29d394…29d528 Dummy {f00=0x0104, f01=0x0190, f02=»FT MMUPAG=0 4 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEFINED PART P XIF L P* X P IFT MMUPAG=1 b 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART x P XIF P* P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFI
0x29d528…29d6bc Dummy {f00=0x0104, f01=0x0190, f02=»U DWTDRD+/02 SAVE AREA A2 & PDWTA3 EQU DWTDRD+/02 SAVE AREA A3 " & PDWTA4 EQU DWTDRD+/04 SAVE AREA A4 L & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 v . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT & PDWTT
0x29d6bc…29d850 Dummy {f00=0x0104, f01=0x018e, f02=»QU DWTDRD+/1C DISC VOLUME NAME P* & P EJECT TOSSIO 0 P* H P* R * P************************************** * P* DRIVER ADDRESS BLOCK DISPLACEMENTS * * P************************************** P* P* & PKEYLEN EQU -6
0x29d850…29d9e4 Dummy {f00=0x0104, f01=0x018e, f02=» n PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS * $ PPOLADR EQU 4 BUFFER POOL ADDRESS P " PRECADR EQU 6 RECOVERY ADDRESS x PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE INDEX VALUE
0x29d9e4…29db78 Dummy {f00=0x0104, f01=0x0190, f02=» H F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* R $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6 KEYBO
0x29db78…29dd0c Dummy {f00=0x0104, f01=0x0190, f02=» z P* ECB DISPLACEMENTS * P********************* & P* D P* N PECBFC EQU /01 FILE CODE X PECBBA EQU /02 BUFFER ADDRESS x " PECBRL EQU /04 REQUESTED LENGTH " PECBEL EQU /06 EFFECTIVE LENGTH PECBRC EQU /08 RETURN CODE
0x29dd0c…29dea0 Dummy {f00=0x0104, f01=0x0190, f02=» MMUPAG=1 P* P* P********** & P* TIOTAB * 8 P********** J P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TIO f P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPU
0x29dea0…29e034 (4, 113) Dummy {f00=0x0105, f01=0x0190, f02=» PTINDEX EQU *-TIOTAB 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT $ , P DATA TIOPCO PROGRAMMED CHANNEL, OUTPUT X P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT P*
0x29e034…29e1c8 Dummy {f00=0x0105, f01=0x0190, f02=»DRESSES TO ROUTINES ENTERED FROM TENDIO | P* 0 2 PTENTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE : . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT p * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT $ P DATA TENKBI KEYBOARD/CT
0x29e1c8…29e35c Dummy {f00=0x0105, f01=0x0190, f02=»TPUT | & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P DATA TENITO INTERTASK COMMUNICATION, OUTPUT 6 P XIF j P* v P EJECT TOSSIO P* P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE
0x29e35c…29e4f0 Dummy {f00=0x0105, f01=0x0190, f02=»0,/1400,/1800,/1C00 " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 B P XIF h P* t P EJECT TOSSIO ~ P* P* P IFT ATTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P*
0x29e4f0…29e684 Dummy {f00=0x0105, f01=0x0190, f02=»: A4 = BLOCK ADDRESS P* A5 = TTAB ADDRESS P* A6 = DWT ADDRESS @ " P* A1-A3 ARE DESTROYED b P* PTIMOUT LDR A6,A1 & P LDR* A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 GET TTAB ADDRESS P* P IFT M
0x29e684…29e818 Dummy {f00=0x0105, f01=0x018e, f02=»* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK 6 P* L P EJECT TOSSIO V P* n & P* REMOVE TTAB FROM DEVICE QUEUE x P* P LDR A1,A6 & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* PTIM:10 LDR A2,A1 SAVE
0x29e818…29e9ac Dummy {f00=0x0105, f01=0x018e, f02=» P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE * P* T P LDR* A1,A1 ^ P STR A1,A2 r P* PTIM:20 EQU * P LDK A3,4 . P ADS A3,TTB:SA,A5 UPDATE DISPATCH ADDRESS : P LD A8,TTB:SA+16,A5 GET ECB ADDRES
0x29e9ac…29eb40 Dummy {f00=0x0105, f01=0x0190, f02=» h P XIF P* P IFT ATTDET=1 P IFT MMUPAG=1 4 * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB J . P TL MONMMU LOAD MONITOR (SYSTEM) MMU TABLE x P XIF P* P IFT ATTDET=1 & P RF TIORTN QUEUE TASK AND DISPATCH P*
0x29eb40…29ecd4 (4, 114) Dummy {f00=0x0105, f01=0x018e, f02=» TTAB ADDRESS P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 Z P* ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS P* PFND:10 LDR A2,A4 SAVE A4 P LDR* A4,A4 P RF(
0x29ecd4…29ee68 Dummy {f00=0x0105, f01=0x0190, f02=» P ABL IHRTN RETURN P XIF P* * P IFT ATTDET=1 4 P IFT CPU852=0 J P RTN A15 RETURN ` P XIF x P* P IFT ATTDET=1 & PATT:CH DATA 0 ATTACH CHAIN ANCHOR P* P EJECT TOSSIO P* P* F D B A T T
0x29ee68…29effc Dummy {f00=0x0105, f01=0x0190, f02=»PUT: A5 = TTAB ADDRESS P* A6 = FDB ADDRESS $ P* A10 = /800 (ATTACH BIT) B P* j " P* OUTPUT: A2-A4 AREA DESTROYED t P* PFDBDET EQU * P C1R A10,A10 A10=F7FF P* PFDBATT EQU * P LDR A4,A6 FDB ADDRE
0x29effc…29f190 Dummy {f00=0x0105, f01=0x0190, f02=» LDR* A2,A4 NEXT FDB P RF(Z) FDB:20 NO FDB? ! P LDR A10,A10 ! : " P RF(N) FDB:15 DETACH REQUEST? ! N $ P ORS A10,DWTST,A2 ATTACH REQUEST ! t P ST A5,DWTTAB,A2 ! P RF FDB:20 ! P* ! * PFDB:15 ANS A10,DWTST,A2 DETACH REQUEST ! P CF A15,QR
0x29f190…29f324 Dummy {f00=0x0105, f01=0x0190, f02=»* Q R E Q ! P* " 8 P* SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE (IF ANY) " P* " X P* INPUT: A2 = DWT ADDRESS " b P* " " P* OUTPUT: A7, A9 ARE DESTROYED " P* " PQREQ EQU * " & P LDR A9,A5 SAVE A5 (TTAB ADDRESS) " & P LD A5,DWTTQ,A
0x29f324…29f4b8 Dummy {f00=0x0105, f01=0x0190, f02=»QUEUE TASK " P* # PQRE:10 EQU * # $ P LDR A5,A9 RESTORE TTAB ADDRESS # 0 P IFT CPU852=1 # X P RB FND:20 RETURN # n P XIF # P* # P IFT ATTDET=1 # P IFT CPU852=0 # P RTN A15 RETURN # P XIF # P* # P IFT ATTDET=1 #
0x29f4b8…29f64c Dummy {f00=0x0105, f01=0x018e, f02=» THIS MODULE IS CALLED FROM TIO WITH # P* THE FOLLOWING PARAMETERS: $ , P* $ P & P* A3 /8000 (REQUEST ERROR BIT) $ Z & P* A4 I/O AND ACTIVATE INDICATOR $ P* A5 TTAB ADDRESS $ P* A6 DWT ADDRESS $ P* A7 ORDER CODE $ P* A8
0x29f64c…29f7e0 Dummy {f00=0x0105, f01=0x0190, f02=» PATTACH EQU * ENTRY % P ADK A4,0 SET CR % * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR? % 6 P* % d P IFT MMUPAG=0 % n " P CM ECBRC,A8 RESET RETURN CODE % P XIF % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % & P ES A4,ECBRC,A8 RESET RETURN
0x29f7e0…29f974 (4, 115) Dummy {f00=0x0105, f01=0x018e, f02=» DEVICE ALREADY ATTACHED? % P LDR A13,A13 & " P RF(NN) ATT:50 DEVICE BUSY? & 6 P* & Z P* ATTACH REQUESTING TASK & d P* & P ORS A10,DWTST,A6 ATTACH & , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT & P CWK A12,TIODM & " P RF(NE) ATT:15 N
0x29f974…29fb08 Dummy {f00=0x0105, f01=0x0190, f02=» P ADK A4,0 SET CR ' P RF(Z) ATTRTN NO! ' P* ' 6 P EJECT TOSSIO ' @ P* ' X & P* FREE BLOCK AND TIMER IN ATT:CH ' b P* ' P CM* 2,A4 FREE TIMER ' " P LDR* A3,A4 REMOVE FROM ATT:CH ' P STR A3,A2 ' P CF A15,FREBLK RELEASE BLOCK '
0x29fb08…29fc9c Dummy {f00=0x0105, f01=0x018e, f02=»ATT:50 CF A15,FNDBLK ' P ADK A4,0 SET CR ( $ P RF(NZ) ATT:70 IS TIMER ACTIVE? ( 6 P* ( ^ P* SET TIMER ( h P* ( P IFT MMUPAG=0 ( P LD A1,ECBCW,A8 TIME ( P XIF ( P* ( P EJECT TOSSIO ( P* ( P* ( P IFT ATTDE
0x29fc9c…29fe30 Dummy {f00=0x0105, f01=0x0190, f02=» ( r P RF(Z) ATT:80 END REQUEST? ) P* ) * PATT:60 ST A1,ATTIM ) 4 P LDR A1,A5 TTAB ADDRESS ) N P LD A3,ATT:CH ANCHOR ) n P CF A15,GETBLK GET BLOCK ) P ST A4,ATT:CH UPDATE ANCHOR ) $ P ADK A4,2 TIMER POINTER ADDRESS ) P LDR A1,A6 DWT ADD
0x29fe30…29ffc4 Dummy {f00=0x0105, f01=0x0190, f02=»ARAMETER ) p P RF TIOQ20 * P* * " & PATT:80 LDK A3,/40 SET TIME OUT BIT * , P RF TIOERR RETURN * V P* * p P EJECT TOSSIO * z P* * P* * P********** * P* DETACH * * P********** * P* * * P* THIS MODULE IS CALLED FROM TIO W
0x29ffc4…2a0158 Dummy {f00=0x0105, f01=0x018e, f02=»E ERROR? * r P TM A10,A13 + P RF(Z) TIOERR NOT ATTACHED? + $ P CW A5,DWTTAB,A6 + H * P RF(NE) TIOERR ATTACHED TO OTHER TASK? + ` P XRS A10,DWTST,A6 DETACH + P CWK A12,TIODM + " P RF(NE) DET:05 NO DM REQUEST? + ( P CF A15,FDBDET DETACH FILE STR
0x2a0158…2a02ec Dummy {f00=0x0105, f01=0x0190, f02=» P* , 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT , PDETRTN LDK A3,0 RETURN CODE , D P XIF , h P* , t P EJECT TOSSIO , ~ P* , P* , P********** , P* TIOERR * , P********** , P* , P* ERROR: FILE CODE UNKNOWN ,
0x2a02ec…2a0480 Dummy {f00=0x0105, f01=0x0190, f02=» , * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB - P XIF - 6 P* - B P IFT MMUPAG=1 - L * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB - b P XIF - P* - PTIORTN EQU * - ( P ABL LKMQDI QUEUE TASK AND DISPATCH - P* - P EJECT TOSSIO - P
0x2a0480…2a0614 (4, 116) Dummy {f00=0x0105, f01=0x0190, f02=»R QUEUEING DEVICE REQUESTS. - x > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON . $ @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING . f 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT, AND WHEN . B P* ATTACHED, WHETHER THE DEVICE IS
0x2a0614…2a07a8 Dummy {f00=0x0105, f01=0x0190, f02=»CE FIRST . P* / ( PTIOQ05 ADK A6,DWTTQ GET QUEUE ANCHOR / P LDR A2,A6 / F P LDR* A6,A6 / X $ P RF TIOQ40 INSERT FIRST IN QUEUE / l P* / & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE / P* / ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR / P LD A1,TTB
0x2a07a8…2a093c Dummy {f00=0x0105, f01=0x0190, f02=» A2,A6 / $ P LDR* A6,A6 FOLLOW QUEUE TO END 0 P RF(Z) TIOQ40 END FOUND? 0 6 & P CC A1,TTB:ST+1,A6 COMPARE LEVELS 0 V P RB(NL) TIOQ30 TRY NEXT? 0 P* 0 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 0 P* 0 PTIOQ40 LDKL A3,-4 0 P STR A
0x2a093c…2a0ad0 Dummy {f00=0x0105, f01=0x0190, f02=» 0 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM 1 P* 1 @ PTIOQ60 EQU * 1 J P ABL TDISP GO TO DISPATCHER 1 ^ P* 1 P EJECT TOSSIO 1 P* 1 P* 1 P******* 1 P* TIO * 1 P******* 1 P* 1 P* 1 . P* THIS MODUL
0x2a0ad0…2a0c64 Dummy {f00=0x0105, f01=0x0190, f02=»EUED 1 d 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 2 P* 2 B 2 P* WHEN RUNNING WITH MMU OPTION SPECIAL DEVICE 2 L * P* DEPENDENT SUBROUTINES ARE PERFORMED. 2 P* 2 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 2 & P* WITH THE FOLLOWING
0x2a0c64…2a0df8 Dummy {f00=0x0105, f01=0x0190, f02=» NOT ZERO, I/O AND ACTIVATION 2 P* 3 ( P* A5 = TTAB ADDRESS 3 2 P* 3 N P* A7 = ORDER CODE 3 X P* 3 r P* A8 = ECB ADDRESS 3 | P* 3 P EJECT TOSSIO 3 P* 3 P* 3 < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 3
0x2a0df8…2a0f8c Dummy {f00=0x0105, f01=0x0190, f02=»* 3 P* A7 = ORDER CODE 4 P* 4 $ P* A8 = ECB ADDRESS 4 . P* 4 J , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK 4 T P* 4 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 4 . P* = 1, " " " " USER MODE 4 P* 4 P* 4 , P
0x2a0f8c…2a1120 Dummy {f00=0x0105, f01=0x0190, f02=» READY AND ECHO FIELDS 4 P* -DWTTAB TTAB ADDRESS 5 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 5 > . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 5 h P* 5 P* 5 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 5 P* 5 P* -BIT 0 IN THE FIRST WORD 5
0x2a1120…2a12b4 (4, 117) Dummy {f00=0x0106, f01=0x0190, f02=»ECK IF REQUEST IS BUSY 5 x P* 6 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 6 ( P LDKL A3,/8000 6 T P ADK A6,0 SET CR 6 j $ P RB(Z) TIOERR FILE CODE UNKNOWN? 6 : P LD A12,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 6 $ P LD A13,DWTST,A6 GET DWT STATUS
0x2a12b4…2a1448 Dummy {f00=0x0106, f01=0x0190, f02=»TTACH ATTACH ORDER? 6 P SUK A7,1 7 P RB(Z) DETACH DETACH ORDER? 7 . " P ADK A7,/BC RESTORE ORDER CODE 7 R P XIF 7 x P* END OF =1 7 " P LD A11,TTB:ID,A5 GET TASK ID 7 P ANKL A11,/FF44 7 P SUKL A11,'#D' CHECK TASK ID 7 " P RF(Z) TIO02
0x2a1448…2a15dc Dummy {f00=0x0106, f01=0x0190, f02=» TOSSIO 7 P* 8 & P* CHECK IF DEVICE IS ATTACHED/BUSY 8 P* 8 F P IFT ATTDET=1 8 P P TM A10,A13 8 f P RF(Z) TIO020 NOT ATTACHED? 8 z P CW A5,DWTTAB,A6 8 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK? 8 P TM A3,A13 8 $ P RF(NZ) TIO030 DEV
0x2a15dc…2a1770 Dummy {f00=0x0106, f01=0x0190, f02=»VICE BUSY? 8 P* 9 P EJECT TOSSIO 9 P* 9 4 H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 9 > P* 9 * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 9 P LDK A2,/40 CHECK IF ECHO 9 P ANR A2,A7 9 P RF(Z) TIO070 NOT
0x2a1770…2a1904 Dummy {f00=0x0106, f01=0x0190, f02=»70 9 P* : . PTIO040 LD A2,DWTECH,A6 GET ECHO DEVICE DWT : " P RF(Z) TIO070 NO ECHO DEVICE? : F & P LD A9,DEVIND,A12 GET DEVICE INDEX : l $ P CWK A9,KB:DIX CHECK IF KEYBOARD : 4 P RF(NE) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD : ( P LD A14,DWTST,A2 G
0x2a1904…2a1a98 Dummy {f00=0x0106, f01=0x018e, f02=»TAB,A2 : 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK? ; P TM A3,A14 ; H ( P RF(NZ) TIO060 ECHO DEVICE NOT BUSY? ; Z & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE ; P XIF ; P* ; P EJECT TOSSIO ; P* ; P* ; PTIO050 TM A3,A14 ; $
0x2a1a98…2a1c2c Dummy {f00=0x0106, f01=0x0190, f02=» ; X P* < P* UPDATE ECB AND DWT FIELDS < P* < 6 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS IN DWT STATUS < @ P* < P IFT MMUPAG=1 < P LD A13,TTB:PW,A5 GET PSW < ( P ANKL A13,1 GET SYSTEM/USER MODE BIT < $ P RF(NZ) TIO100 JUMP IF
0x2a1c2c…2a1dc0 Dummy {f00=0x0106, f01=0x0190, f02=» CM ECBEL,A8 RESET EFFECTIVE LENGTH < $ P CM ECBRC,A8 RESET RETURN CODE = , P RF TIO110 = T P* = f P EJECT TOSSIO = p P* = P* MOVE USER ECB TO DWT ECB = P* = PTIO100 EQU * = P LDKL A2,/4FFF = * P ELR A3,A8 LOAD FIRST WORD OF US
0x2a1dc0…2a1f54 (4, 118) Dummy {f00=0x0106, f01=0x0190, f02=»A2,DWTECB,A6 SET ACTUAL ECB ADDRESS = P STR A3,A2 > , * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS > > P LDR A9,A8 > l P LDK A3,0 > ~ * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE > P* > P LDR A10,A1 SAVE PARAM
0x2a1f54…2a20e8 Dummy {f00=0x0106, f01=0x0190, f02=» MVUS A3 MOVE PART OF USER ECB TO DWT ECB > " P LDR A1,A10 RESTORE PARAMETER ? 2 P XIF ? X P* ? d P IFT MMUPAG=0 ? n P LDKL A3,/7FFF ? , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE ? ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH ? $ P CM ECBRC,A8 RESE
0x2a20e8…2a227c Dummy {f00=0x0106, f01=0x0190, f02=» ANK A7,/3F ? ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT @ P CWK A12,TIODM @ @ * P RF(NE) TIO120 JUMP IF NOT DM REQUEST @ V 0 P ST A5,DWTTDM,A6 SAVE TTAB ADDRESS IN DWTTDM @ P RF TIO130 @ P* @ PTIO120 EQU * @ 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRE
0x2a227c…2a2410 Dummy {f00=0x0106, f01=0x0190, f02=»* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) @ P* A 2 P LDR A2,A4 CHECK PARAMETER A < & P RF(NZ) TIO210 I/O AND ACTIVATION? A ^ 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED A P RF(Z) TIO220 NOT WAIT? A P LDK A4,1 INDICATE WAIT A P RF TIO2
0x2a2410…2a25a4 Dummy {f00=0x0106, f01=0x0190, f02=»HING A f P* B 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* B R P EJECT TOSSIO B P* B t P* B ~ P IFT MMUPAG=1 B * P LDR A13,A13 CHECK IF SYSTEM/USER MODE B & P RF(Z) TIO250 JUMP IF SYSTEM MODE B & P LD A3,DEVIND,A12
0x2a25a4…2a2738 Dummy {f00=0x0106, f01=0x0190, f02=»K ON ORDER CODE B P* C P LDR A4,A7 GET ORDER CODE C " 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE C D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER C x P* C PTIO240 EQU * C P ENB C < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROU
0x2a2738…2a28cc Dummy {f00=0x0106, f01=0x0190, f02=» ADR A5,A6 C P INH D & P ABR* A12 GO TO DRIVER ACTIVATION D P* D H P EJECT TOSSIO D R P* D j P* D t P IFT MMUPAG=1 D ~ P* D P* R D : W R D P* D @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING D @ P* THE AP
0x2a28cc…2a2a60 Dummy {f00=0x0106, f01=0x0190, f02=»AD/WRITE REQUEST, CONDITION REGISTER ON STACK IS D * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. E 8 P* E f P* INPUT: A3 = DEVICE INDEX E p P* A6 = DWT ADDRESS E P* E : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING E . P*
0x2a2a60…2a2bf4 (4, 119) Dummy {f00=0x0106, f01=0x0190, f02=»DWTOR,A6 GET ORDER CODE FROM DWT E P ANK A4,/3F F ( P* F < * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER F F $ P LC A4,ORDTAB,A4 GET ORDER INDEX F t P ANK A4,/FF F . P ABR(Z)* A15 RETURN IF NO READ/WRITE ORDER F P SUK A4,1 F $ P ADR A3,A4 ADD READ/
0x2a2bf4…2a2d88 Dummy {f00=0x0106, f01=0x0190, f02=»* ORDTAB * F P********** G P* G $ 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: G . P* G d P* =0: NO READ/WRITE ORDER G n P* =1: READ ORDER G P* =TINDEX+1: WRITE ORDER G P* G PORDTAB EQU * ORDER CONSTANTS G P BYTES 0,1 /00
0x2a2d88…2a2f1c Dummy {f00=0x0106, f01=0x0190, f02=»/08, /09 G ~ P BYTES 1,TINDEX+1 /0A, /0B H P BYTES 0,0 /0C, /0D H 2 P BYTES 0,0 /0E, /0F H N P BYTES 0,1 /10, /11 H j P BYTES 0,0 /12, /13 H P BYTES 0,TINDEX+1 /14, /15 H P BYTES 0,0 /16, /17 H P BYTES 0,0 /18, /19 H P BYTES 0,0 /
0x2a2f1c…2a30b0 Dummy {f00=0x0106, f01=0x018e, f02=» P BYTES 0,0 /24, /25 I P BYTES 0,0 /26, /27 I P BYTES 0,0 /28, /29 I < P BYTES 0,0 /2A, /2B I X P BYTES 0,1 /2C, /2D I t P BYTES 1,TINDEX+1 /2E, /2F I P BYTES 0,0 /30, /31 I P BYTES 0,0 /32, /33 I P BYTES 0,0 /34, /35 I P B
0x2a30b0…2a3244 Dummy {f00=0x0106, f01=0x0190, f02=» P* J P EJECT TOSSIO J P* J & P* T I O : D M J 0 P* J F 4 P* THIS MODULE IS CALLED BY 'TIO' WHEN A REQUEST J P * P* FOR DATA MANAGEMENT HAS BEEN ISSUED. J P* J & P* INPUT: A8 = FDB MMU ECB ADDRESS J $ P* A9 = USER ECB ADDRES
0x2a3244…2a33d8 Dummy {f00=0x0106, f01=0x0190, f02=»ER BUFFER ADDRESS J z P ST A2,ECBBA,A8 K , P EL A2,ECBCW2,A9 GET SECOND CONTROL WORD K 2 P ST A2,ECBCW2,A8 K b P* K z PA15RTN EQU * K P RTN A15 K P* K P EJECT TOSSIO K P* K P* T I O P C I K P* K B P* THIS MODULE IS CAL
0x2a33d8…2a356c Dummy {f00=0x0106, f01=0x0190, f02=» AND DWT BUFFER ADDRESSES SO THAT BOTH ARE K | < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. L 2 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT L r , P* COMPLETION OF THE REQUEST IS 'TENPCI'. L 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'
0x2a356c…2a3700 Dummy {f00=0x0106, f01=0x0190, f02=»K L j P* M P* OUTPUT: A1 IS DESTROYED M P* M 6 * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT M @ ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH M n 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE M 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE? M
0x2a3700…2a3894 (4, 120) Dummy {f00=0x0106, f01=0x0190, f02=»IPI10 USER BUFFER ADDRESS EVEN? M P ORS A1,ECBBA,A8 N ( P RTN A15 N @ P* N P 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN N Z P ANS A1,ECBBA,A8 N P RTN A15 N P* N P EJECT TOSSIO N P* N P* T I O M X I N P* N B P* THIS
0x2a3894…2a3a28 Dummy {f00=0x0106, f01=0x0190, f02=»XI ASSEMBLES THE FULL 18 BIT BUFFER ADDRESS WHICH IS N , P* TRANSFERRED TO THE MUX BY THE DRIVER. O < 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT O l , P* COMPLETION OF THE REQUEST IS 'TENMXI'. O 6 P* NOTICE THAT MODULE 'TIOMXO' IS EQUAL TO TIOMXI. O
0x2a3a28…2a3bbc Dummy {f00=0x0106, f01=0x0190, f02=»TPUT: A1-A2 ARE DESTROYED O B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB P " P* P h PTIOMXI EQU * MUX, INPUT P r , P EL A1,ECBBA,A9 GET USER BUFFER ADDRESS P P ECR A2,A1 P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS P P SRL A2,3
0x2a3bbc…2a3d50 Dummy {f00=0x0106, f01=0x0190, f02=» SRL A2,2 P P ANK A2,/3F Q 4 P SCR A2,A8 STORE BITS 16-17 IN DWT ECB 1ST WORD Q & P ANK A2,/0F Q ^ P SRC A2,4 Q r P ORR A1,A2 Q 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS Q P RTN A15 Q P* Q P EJECT TOSSIO Q P* Q P
0x2a3d50…2a3ee4 Dummy {f00=0x0106, f01=0x018e, f02=»D/CTW. TIOKBI WILL SET BUFFER ADDRESSES Q n 6 P* AND MOVE KEYTABLE (IF ANY) BY USING ENTRY TIPI05 R 0 0 P* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. R j 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT R , P* COMPLETION OF THE REQUEST IS 'TENKBI'. R P*
0x2a3ee4…2a4078 Dummy {f00=0x0106, f01=0x0190, f02=» , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK S P* S 4 " P* OUTPUT: A1-A4 ARE DESTROYED S > P* S d PTIOKBI EQU * KEYBOARD/CTW S n ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH S 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE S 6 P RF(G) IO:ERR REQ. LEN
0x2a4078…2a420c Dummy {f00=0x0106, f01=0x0190, f02=»IKB20 NO KEYTABLE IF BASIC READ S . P LD A4,ECBCW,A8 GET USER KEYTABLE ADDRESS T ( P RF(Z) TIKB20 NO KEYTABLE? T Z P* T | P EJECT TOSSIO T P* T P* T P LDR A1,A9 T P ADK A1,8 T P ADKL A8,12 T * P ST A8,-2,A8 SET DWT KEYTABLE
0x2a420c…2a43a0 Dummy {f00=0x0106, f01=0x018e, f02=»EVEN? T n , P ECR A3,A3 NO, PUT LENGTH IN RIGHT BYTE U P* U > * PTIKB10 ANK A3,/FF SKIP LEFT CHARACTER U H P ADK A3,1 U v 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE U P RF(G) IO:ERR TOO SMALL? U P CF A15,TIPO05 U & P SUKL A8,8 ADJUST DWT
0x2a43a0…2a4534 (4, 121) Dummy {f00=0x0107, f01=0x0190, f02=» U 4 PTIOITI EQU A15RTN INTERTASK COMMUNICATION, INPUT V P* V @ P EJECT TOSSIO V J P* V b P* T I O P C O V l P* V B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANN
0x2a4534…2a46c8 Dummy {f00=0x0107, f01=0x0190, f02=»F THE USER V Z P* BUFFER TO THE DWT BUFFER. W 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT W 6 , P* COMPLETION OF THE REQUEST IS 'TENPCO'. W n 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. W F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOK
0x2a46c8…2a485c Dummy {f00=0x0107, f01=0x0190, f02=»DDRESS W x P* X " P* OUTPUT: A1-A4 ARE DESTROYED X P* X > , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT X H 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK X x ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH X * P RF(NP) TIPO20 REQUESTED LENGTH <= 0? X
0x2a485c…2a49f0 Dummy {f00=0x0107, f01=0x0190, f02=»ET USER ECB ADDRESS X ~ P* Y P EJECT TOSSIO Y & P* Y > P* Y H : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' Y R P ADK A3,1 Y . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN Y , P EL A1,ECBBA,A1 GET USER BUFFER ADDRESS Y * P LD
0x2a49f0…2a4b84 Dummy {f00=0x0107, f01=0x0190, f02=») TIPO30 USER BUFFER ADDRESS UNEVEN? Y P ST A2,ECBBA,A8 Z , P* Z D 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Z N P* Z PTIPO20 RTN A15 Z P* Z 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Z 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER A
0x2a4b84…2a4d18 Dummy {f00=0x0107, f01=0x0190, f02=» A1,1 UPDATE USER BUFFER POINTER Z ( P ADK A2,2 UPDATE DWT BUFFER POINTER [ ( ( P RB TIPO10 MOVE REMAINING CHARACTERS [ T P* [ P EJECT TOSSIO [ P* [ P* I O : E R R [ P* [ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. [ B P* SET RETURN
0x2a4d18…2a4eac Dummy {f00=0x0107, f01=0x0190, f02=» EXIT FOR MMU ROUTINES [ v P INH $ P ADKL A15,4 ADJUST STACKPOINTER * " P LD A1,DWTST,A6 GET DWT STATUS R P SLL A1,2 CHECK ECHO BIT x P RF(NN) IO:E10 NOT ECHO? P LDR A1,A6 SAVE DWT ADDRESS * P LD A6,DWTECH,A6 GET ECHO DWT ADDRESS
0x2a4eac…2a5040 Dummy {f00=0x0107, f01=0x0190, f02=»ISEND BRANCH TO DISPATCHER VIA TENDIO P* ] . P EJECT TOSSIO ] 8 P* ] P P* T I O M X O ] Z P* ] p " PTIOMXO EQU TIOMXI MUX, OUTPUT ] z P* ] P* T I O K B O ] P* ] * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT ] P* ] P* T I
0x2a5040…2a51d4 (4, 122) Dummy {f00=0x0107, f01=0x0190, f02=»: D M ] P* ^ 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ^ . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ^ R P* ^ P* INPUT: A6 = FDB ADDRESS ^ $ P* A8 = USER ECB ADDRESS ^ P* ^ " P* OUTPUT: A1-A2 ARE DESTROYED ^ P
0x2a51d4…2a5368 Dummy {f00=0x0107, f01=0x0190, f02=»A2,ECBCW2+1,A1 ^ P ES A2,ECBCW2,A8 _ P RTN A15 _ . P* _ > P EJECT TOSSIO _ H P* _ ` P* T E N P C I _ j P* _ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN _ @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED CH
0x2a5368…2a54fc Dummy {f00=0x0107, f01=0x0190, f02=»Y 'TIO' AT _ ` & P* ISSUING THE REQUEST IS 'TIOPCI'. ` D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. ` < 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. ` P* ` P* INPUT: A6 = DWT ADDRESS ` $ P* A8 = USER ECB ADDR
0x2a54fc…2a5690 Dummy {f00=0x0107, f01=0x0190, f02=» GET DWT ECB ADDRESS ` ( P LD A4,ECBEL,A2 GET EFFECTIVE LENGTH a " P RF(NP) TEPI30 NO MOVE IF ZERO a H * P LD A1,ECBBA,A2 GET DWT BUFFER ADDRESS a n P* a . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' a , P EL A2,ECBBA,A8 GET USER BUFFER ADDRESS a $ P
0x2a5690…2a5824 Dummy {f00=0x0107, f01=0x0190, f02=»ADDRESS a p , P RF(Z) TEPI60 USER BUFFER ADDRESS EVEN? b P* b @ P EJECT TOSSIO b J P* b b P* b l 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN b v 4 P LDR* A3,A1 GET FIRST CHARACTER FROM DWT BUFFER b P ELR A8,A2 b P* b * PTEPI15 A
0x2a5824…2a59b8 Dummy {f00=0x0107, f01=0x0190, f02=»UFFER b l $ P ADK A1,1 UPDATE BUFFER POINTERS c P ADK A2,1 c 6 P SUK A4,1 c H * P RF(P) TEPI25 MORE CHARACTERS TO MOVE? c Z P RTN A15 NO, RETURN c P* c PTEPI20 TM A3,A2 c , P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN? c & P LDR A3,A1 GET DWT
0x2a59b8…2a5b4c Dummy {f00=0x0107, f01=0x0190, f02=»IS CHAR. ONE BYTE TO THE RIGHT c ~ & P SUK A3,1 POINT TO NEXT CHARACTER d & 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER d P , P RB(NE) TEPI23 MORE CHARACTERS TO MOVE? d 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN d P RB TEPI10 d P* d P
0x2a5b4c…2a5ce0 Dummy {f00=0x0107, f01=0x0190, f02=»ENGTH UNEVEN? d v 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER e P* e J PTEPI30 RTN A15 e T P* e j , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN e t ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN e . P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE? e P LDR A
0x2a5ce0…2a5e74 (4, 123) Dummy {f00=0x0107, f01=0x0190, f02=»* e PTEPI50 EQU * f 2 P LDR* A8,A1 GET LAST CHARACTER FROM DWT BUFFER f P ELR A3,A2 f T P RB TEPI15 f f P* f x . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN f & P LDR A3,A1 GET DWT BUFFER ADDRESS f $ P ADR A1,A4 ADD EFFECTIVE LENGTH f P*
0x2a5e74…2a6008 Dummy {f00=0x0107, f01=0x0190, f02=»ACTER f t * P CWR A3,A1 COMPARE WITH ENDING ADDRESS g , P RB(NE) TEPI70 MORE CHARACTERS TO MOVE? g < . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS g l * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN g P RB TEPI25 g P* g P EJECT TOSSIO g P* g
0x2a6008…2a619c Dummy {f00=0x0107, f01=0x0190, f02=»RD, INPUT g x P* h P* T E N I T I h P* h 2 4 PTENITI EQU TENPCI INTERTASK COMMUNICATION, INPUT h < P* h t P* T E N P C O h ~ P* h 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT h P* h P* T E N M X O h P* h " PTENMXO EQU A
0x2a619c…2a6330 Dummy {f00=0x0107, f01=0x0190, f02=»SIO h P* i P* T E N I T O i P* i , F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN i 6 L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO MOVE THE CONTENTS i J P* OF THE USER BUFFER TO THE DRIVER BUFFER. THE ENTRY TIP
0x2a6330…2a64c4 Dummy {f00=0x0107, f01=0x0190, f02=»-A4, A8 ARE DESTROYED i P* j 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT j ( ( P LD A8,DWTECB,A6 GET DWT ECB ADDRESS j ( P LD A3,ECBEL,A8 GET EFFECTIVE LENGTH j P RF(NP) TEIO10 NO MOVE? j * P LD A1,DWTUEC,A6 GET USER ECB ADDRESS j ( P CF A1
0x2a64c4…2a6658 Dummy {f00=0x0107, f01=0x0190, f02=»* j < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER k < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO k J < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' k " P* IS USED FOR MOVING THE DATA. k P* k P* INPUT: A6 =
0x2a6658…2a67ec Dummy {f00=0x0107, f01=0x018e, f02=» 8,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER l " * P TS 2,A15 SAVE MMU REGISTERS ON STACK l J & P LD A5,DWTTAB,A6 GET TTAB ADDRESS l x $ P TL TTB:MT,A5 LOAD MMU REGISTERS l ( P LD A8,DWTMEC,A6 GET DWT ECB ADDRESS l P ENB l ( P CF A1
0x2a67ec…2a6980 Dummy {f00=0x0107, f01=0x0190, f02=» $ P ADKL A15,32 ADJUST STACKPOINTER m * P MLR 8,A15 RESTORE A1-A8 FROM STACK... m , P RTN A15 ...AND RETURN m Z P XIF m x P* m P EJECT TOSSIO m P* m P* D C : M I N m P* m < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER
0x2a6980…2a6b14 (4, 124) Dummy {f00=0x0107, f01=0x0190, f02=» A4 = DRIVER BUFFER ADDRESS m P* A6 = DWT ADDRESS n * P* n L ( P* OUTPUT: NO REGISTERS ARE DESTROYED n V P* n PDC:MIN EQU * n P IFT MMUPAG=0 n P IFT CPU852=1 n & P CF A15,SAVE8 SAVE A1-A8 ON STACK n P XIF n P* n
0x2a6b14…2a6ca8 Dummy {f00=0x0107, f01=0x0190, f02=» TS 2,A15 SAVE MMU REGISTERS ON STACK n " P LD A5,DWTTAB,A6 TTAB ADDRESS o . $ P TL TTB:MT,A5 LOAD MMU REGISTERS o T P XIF o | P* o P EJECT TOSSIO o P* o & P* CHECK MESSAGE LENGTH AND DECIDE o $ P* IF TTMJOB IS TO BE ACTIVATED. o P*
0x2a6ca8…2a6e3c Dummy {f00=0x0107, f01=0x018e, f02=»PU852=1 o P LDK A7,128 852 CPU p ( P ANK A5,1 CHECK USER BUFFER ADDRESS p , . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN p X P ADK A7,128 A7 := 256 p P XIF p P* p P IFT MMUPAG=0 p P IFT CPU852=0 p P IFT CPU857=0 p P LDK A7,
0x2a6e3c…2a6fd0 Dummy {f00=0x0107, f01=0x0190, f02=» p x P XIF q P* q P IFT MMUPAG=0 q P IFT CPU852=0 q 4 P IFT CPU857=1 q J P LDKL A7,256 857 CPU q ` ( P ANK A5,1 CHECK USER BUFFER ADDRESS q | . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN q P ADR A7,A7 A7 := 512 q P XIF q P* q
0x2a6fd0…2a7164 Dummy {f00=0x0107, f01=0x0190, f02=»FER ADDRESS q x P LDKL A7,256 r ( P ANK A5,1 CHECK USER BUFFER ADDRESS r ( . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN r T P SLL A7,3 A7 := 2048 r P XIF r P* r PDCMI00 EQU * r 8 P CW A7,ECBEL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH r 2 P
0x2a7164…2a72f8 Dummy {f00=0x0107, f01=0x018e, f02=»IVER r t P IFT CPU852=1 s ( P ABL IHRET8 RESTORE A1-A8 AND RETURN s " P XIF s N P* s Z P IFT MMUPAG=0 s d P IFT CPU852=0 s z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... s P* s PDC:MOT RTN A15 ...AND RETURN s P XIF s P* s P IFT M
0x2a72f8…2a748c Dummy {f00=0x0107, f01=0x0190, f02=» s P* INPUT: A1 = RETURN CODE t P* A3 = ECB ADDRESS t * ( P* A4 = DRIVER BUFFER ADDRESS t L P* A6 = DWT ADDRESS t x P* t & P* OUTPUT: A1-A5, A7 ARE DESTROYED t P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t *
0x2a748c…2a7620 Dummy {f00=0x0107, f01=0x0190, f02=»RL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH t $ P RF(G) MIN:70 NO, REQUEST ERROR u 2 P* u Z P IFT MMUPAG=0 u d ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u z P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS U
0x2a7620…2a77b4 (4, 125) Dummy {f00=0x0108, f01=0x0190, f02=» u P* v PMIN:10 EQU * v P LDR* A3,A7 MOVE ONE WORD v & P STR A3,A5 v H ( P ADK A7,2 INCREMENT BUFFER POINTERS v Z P ADK A5,2 v $ P SUK A2,2 DECREMENT LOOP COUNTER v 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v P* v PMIN:20 E
0x2a77b4…2a7948 Dummy {f00=0x0108, f01=0x0190, f02=»3,A7 MOVE ONE CHARACTER v P SCR A3,A5 w ( P ADK A7,1 INCREMENT BUFFER POINTERS w 2 P ADK A5,1 w ^ $ P SUK A2,1 DECREMENT LOOP COUNTER w p 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE w P XIF w P* w P IFT MMUPAG=1 w * P ST A1,ECB
0x2a7948…2a7adc Dummy {f00=0x0108, f01=0x018e, f02=»B ADDRESS w x ( P CF A15,TEN:DC MOVE BUFFER CONTENTS x & P LDR A4,A7 RESTORE BUFFER ADDRESS x > P LDK A1,0 x h P XIF x z P* x P EJECT TOSSIO x P* x P* x PMIN:40 EQU * x P INH x " P CF A15,TENDIO PERFORM TENDIO x P* x
0x2a7adc…2a7c70 Dummy {f00=0x0108, f01=0x0190, f02=» PMIN:50 EQU * y " P LDR A2,A1 SAVE BUFFER ADDRESS y $ P LDR* A1,A2 NEXT BUFFER ADDRESS y > , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y f P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y " P SUK A4,6 REAL BUFFER ADDRESS y " P STR A4,A2 UPDAT
0x2a7c70…2a7e04 Dummy {f00=0x0108, f01=0x0190, f02=»L A1,/8008 REQUEST ERROR/INCORRECT LENGTH y $ P RB MIN:40 RETURN VIA TENDIO ETC z 2 P* z Z P EJECT TOSSIO z d P* z | P* D C M I N T z P* z 2 P* TTMJOB WILL BE DISPATCHED HERE TO CARRY OUT z 2 P* THE MOVE OF THE DC DRIVER BUFFER CONTENTS
0x2a7e04…2a7f98 Dummy {f00=0x0108, f01=0x018e, f02=»SS z x ( P* A4 = DRIVER BUFFER ADDRESS { P* { 6 * PDCMINT EQU * TTMJOB MOVE BUFFER ENTRY { @ P LDR A6,A3 DWT ADDRESS { n P LD A3,DWTECB,A6 ECB ADDRESS { P* { P IFT MMUPAG=1 { P INH { " P LD A5,DWTTAB,A6 TTAB ADDRESS { $ P TL TT
0x2a7f98…2a812c Dummy {f00=0x0108, 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
0x2a812c…2a82c0 Dummy {f00=0x0108, 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
0x2a82c0…2a8454 (4, 126) Dummy {f00=0x0108, f01=0x0190, f02=» } P IFT CPU852=1 ~ PDC:MOT INH ~ 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS ~ 0 P XIF ~ f P* ~ r P EJECT TOSSIO ~ | P* ~ P* ~ P********** ~ P* TENDIO * ~ P********** ~ P* ~ P* ~ . P* THIS MODULE IS CALLE
0x2a8454…2a85e8 Dummy {f00=0x0108, 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
0x2a85e8…2a877c Dummy {f00=0x0108, 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*
0x2a877c…2a8910 Dummy {f00=0x0108, 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
0x2a8910…2a8aa4 Dummy {f00=0x0108, 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
0x2a8aa4…2a8c38 Dummy {f00=0x0108, 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
0x2a8c38…2a8dcc Dummy {f00=0x0108, 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
0x2a8dcc…2a8f60 Dummy {f00=0x0108, 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
0x2a8f60…2a90f4 (4, 127) Dummy {f00=0x0108, 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
0x2a90f4…2a9288 Dummy {f00=0x0108, f01=0x018e, f02=» ^ P* 8 P LD A3,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK & P LD A3,DEVIND,A3 GET DEVICE INDEX N . P RF(N) TEN160 NO SPECIAL ACTION REQUIRED? x " P RF(Z) TEN140 DATA MANAGEMENT? P* " P* PERFORM CHECK ON ORDER CODE P* ,
0x2a9288…2a941c Dummy {f00=0x0108, f01=0x0190, f02=» < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* H P EJECT TOSSIO R P* j P* RESTORE MMU REGISTERS t P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK
0x2a941c…2a95b0 Dummy {f00=0x0108, f01=0x0190, f02=» WAIT OR ACTIVATION n P* PTEN200 EQU * & 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR : * P RF(Z) TEN250 NOT WAIT OR ACTIVATION? n P SUK A4,1 P RF(Z) TEN240 WAIT? P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) T
0x2a95b0…2a9744 Dummy {f00=0x0108, f01=0x0190, f02=»BIT j P RF(Z) TEN210 SYSTEM MODE? . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS . P XIF ` P* l PTEN210 EQU * v 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $
0x2a9744…2a98d8 Dummy {f00=0x0108, f01=0x0190, f02=»TEN220 P* P EJECT TOSSIO P* 0 P* : PTEN230 EQU * D 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR X . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS P RF TEN250 P* PTEN240 EQU * 2 P CF A15,QTJOB WAIT
0x2a98d8…2a9a6c Dummy {f00=0x0108, 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
0x2a9a6c…2a9c00 Dummy {f00=0x0108, f01=0x2008, f02=» NT TOSSIO END @ &
0x2a9c00…2a9d94 (4, 128) Dummy {f00=0x0108, f01=0x0190, f02=» M h * & g 2 KOR g g + C N * & 6y8 - W 2 * * 4 N 6 * & U T NETTO H R E N d * & r = U L e N * & L d N * & 1 V ` * Y
0x2a9d94…2a9f28 Dummy {f00=0x0108, f01=0x0190, f02=» DK Az A N x * & - t ] ] X * O * & K JD6SO.-,.O.++.*)(EE()(''( O D * & $A>&% A AA>=C84< 367M# ## O r * & ;:/"! 65 9)(IG()(''($ O * & ! O * & ?
0x2a9f28…2aa0bc Dummy {f00=0x0108, f01=0x0190, f02=» 8 : < > @ B D O * & F G H I J K L P $ * & M N P R T W Z ^ P R * & b f j n s x } P * & P * & / P *
0x2aa0bc…2aa250 Dummy {f00=0x0108, f01=0x0190, f02=» * & * 0 G0 Q * & H0 I0 J0 K0 L0 M0 N0 O Q 2 * & 0 P0 R0 T0 V0 X Q ` * & Q * & " % Q * & = ( + / 3 7 ;
0x2aa250…2aa3e4 Dummy {f00=0x0108, f01=0x0190, f02=» Q t * & R * & * 6 B N Z f R @ * & r R n * & ! 0 A R * & !- R c t R * & !K
0x2aa3e4…2aa578 Dummy {f00=0x0108, f01=0x0190, f02=» " $ & R * & ! ( * , . 0 2 4 S * & ! 6 8 : < > A D G S N * & ! K O S W [ _ c S | * & " g k o s w { S * & "; S * &
0x2aa578…2aa70c Dummy {f00=0x0108, f01=0x0190, f02=» " r } S * & " $ T . * & " 3 B R b r T * & # * T * & #+ > R h ~ T * & #I % A ] z
0x2aa70c…2aa8a0 Dummy {f00=0x0108, f01=0x40e4, f02=»@ @ T p # @ U T:LIT# U $ # * U 6 T:PIC# U J # ^ U T:KEY# U p # !V { U T:FMT# U # !n U P:END# U # U @ U & #I % A ] z
0x2aa8a0…2aaa34 (4, 129) Opaque[0x194]
0x2aaa34…2aabc8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2120, f03=0xffff}
0x2aaa34…2aabc8 IdxSect {
0x2aaa34…2aabc8 f00 = 0x0109 // 0x2aaa34 @0x0
0x2aaa34…2aabc8 f01 = 0x0036 // 0x2aaa36 @0x2
0x2aaa34…2aabc8 gno = [ // 0x2aaa38 @0x4
0x2aaa34…2aabc8 [0x00]: C0x0109.0x0.0
0x2aaa34…2aabc8 [0x01]: C0x0109.0x1.0
0x2aaa34…2aabc8 [0x02]: C0x0109.0x2.0
0x2aaa34…2aabc8 [0x03]: C0x0109.0x3.0
0x2aaa34…2aabc8 [0x04]: C0x010a.0x0.0
0x2aaa34…2aabc8 [0x05]: C0x010a.0x1.0
0x2aaa34…2aabc8 [0x06]: C0x010a.0x2.0
0x2aaa34…2aabc8 [0x07]: C0x010a.0x3.0
0x2aaa34…2aabc8 [0x08]: C0x010b.0x0.0
0x2aaa34…2aabc8 [0x09]: C0x010b.0x1.0
0x2aaa34…2aabc8 [0x0a]: C0x010b.0x2.0
0x2aaa34…2aabc8 [0x0b]: C0x010b.0x3.0
0x2aaa34…2aabc8 [0x0c]: C0x010c.0x0.0
0x2aaa34…2aabc8 [0x0d]: C0x010c.0x1.0
0x2aaa34…2aabc8 [0x0e]: C0x010c.0x2.0
0x2aaa34…2aabc8 [0x0f]: C0x010c.0x3.0
0x2aaa34…2aabc8 [0x10]: C0x010d.0x0.0
0x2aaa34…2aabc8 [0x11]: C0x010d.0x1.0
0x2aaa34…2aabc8 [0x12]: C0x010d.0x2.0
0x2aaa34…2aabc8 [0x13]: C0x010d.0x3.0
0x2aaa34…2aabc8 [0x14]: C0x010e.0x0.0
0x2aaa34…2aabc8 [0x15]: C0x010e.0x1.0
0x2aaa34…2aabc8 [0x16]: C0x010e.0x2.0
0x2aaa34…2aabc8 [0x17]: C0x010e.0x3.0
0x2aaa34…2aabc8 [0x18]: C0x010f.0x0.0
0x2aaa34…2aabc8 [0x19]: C0x010f.0x1.0
0x2aaa34…2aabc8 [0x1a]: C0x010f.0x2.0
0x2aaa34…2aabc8 ]
0x2aaa34…2aabc8 }
0x2aabc8…2aad5c Dummy {f00=0x0109, 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
0x2aad5c…2aaef0 Dummy {f00=0x0109, 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
0x2aaef0…2ab084 Dummy {f00=0x0109, 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
0x2ab084…2ab218 Dummy {f00=0x0109, 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
0x2ab218…2ab3ac Dummy {f00=0x0109, 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
0x2ab3ac…2ab540 Dummy {f00=0x0109, 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
0x2ab540…2ab6d4 (4, 130) Dummy {f00=0x0109, 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**********************
0x2ab6d4…2ab868 Dummy {f00=0x0109, 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
0x2ab868…2ab9fc Dummy {f00=0x0109, 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
0x2ab9fc…2abb90 Dummy {f00=0x0109, 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
0x2abb90…2abd24 Dummy {f00=0x0109, 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*
0x2abd24…2abeb8 Dummy {f00=0x0109, f01=0x0190, f02=»*************************************************************** P H P T P ` PCALL FORM 16=/F697,16 l P EJECT F P***************************************************************** F P* CONSTANTS USED IN SYS
0x2abeb8…2ac04c Dummy {f00=0x0109, 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
0x2ac04c…2ac1e0 Dummy {f00=0x0109, 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
0x2ac1e0…2ac374 (4, 131) Dummy {f00=0x0109, 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*
0x2ac374…2ac508 Dummy {f00=0x0109, 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
0x2ac508…2ac69c Dummy {f00=0x0109, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * P : P* * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * :
0x2ac69c…2ac830 Dummy {f00=0x0109, f01=0x0190, f02=»TERS: * : P* * 4 : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDA * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * : P*
0x2ac830…2ac9c4 Dummy {f00=0x0109, 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
0x2ac9c4…2acb58 Dummy {f00=0x0109, 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
0x2acb58…2accec Dummy {f00=0x0109, 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 /*
0x2accec…2ace80 Dummy {f00=0x0109, 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: *
0x2ace80…2ad014 (4, 132) Dummy {f00=0x0109, 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
0x2ad014…2ad1a8 Dummy {f00=0x0109, 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
0x2ad1a8…2ad33c Dummy {f00=0x0109, 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
0x2ad33c…2ad4d0 Dummy {f00=0x0109, 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
0x2ad4d0…2ad664 Dummy {f00=0x0109, 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
0x2ad664…2ad7f8 Dummy {f00=0x0109, f01=0x0190, f02=»___________________ z . ** I TTMJOB I . )* _________________________ N . ** I MONITOR TASKS I . )* _________________________ . ** I USER TASKS
0x2ad7f8…2ad98c Dummy {f00=0x0109, 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?
0x2ad98c…2adb20 Dummy {f00=0x0109, 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
0x2adb20…2adcb4 (4, 133) Dummy {f00=0x010a, 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
0x2adcb4…2ade48 Dummy {f00=0x010a, 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
0x2ade48…2adfdc Dummy {f00=0x010a, 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
0x2adfdc…2ae170 Dummy {f00=0x010a, 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
0x2ae170…2ae304 Dummy {f00=0x010a, 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 "
0x2ae304…2ae498 Dummy {f00=0x010a, 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
0x2ae498…2ae62c Dummy {f00=0x010a, 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
0x2ae62c…2ae7c0 Dummy {f00=0x010a, f01=0x018e, f02=» RTN A14 % EJECT % 6 2************************************************** % " 6 2* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * % 6 2************************************************** % * % * ENTRY: A1 - TASK ID % , (* A6
0x2ae7c0…2ae954 (4, 134) Dummy {f00=0x010a, 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 * &
0x2ae954…2aeae8 Dummy {f00=0x010a, 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 *
0x2aeae8…2aec7c Dummy {f00=0x010a, 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
0x2aec7c…2aee10 Dummy {f00=0x010a, 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 )
0x2aee10…2aefa4 Dummy {f00=0x010a, 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 * *
0x2aefa4…2af138 Dummy {f00=0x010a, f01=0x0190, f02=»* TASK TABLE LAYOUT * * &* ________________________ + , * &* I MMU I + Z * &* I TABLE I + * &* I 16 I + * &* I WORDS
0x2af138…2af2cc Dummy {f00=0x010a, f01=0x0190, f02=»---- + n * &* TASK ENTRY I QUEUE I , * &* ------------------------ , : * &* TTB:ID I TASK IDENTIFICATION I , h * &* ------------------------ , * &* TTB:ST I STATUS/LEVEL I , * &* --------
0x2af2cc…2af460 Dummy {f00=0x010a, f01=0x0190, f02=»RAM STATUS WORD I , | * &* ------------------------ - * &* TTB:SA I DISPATCH ADDRESS I - H * &* ------------------------ - v * &* I REGISTER I - * &* I SAVE I - * &*
0x2af460…2af5f4 (4, 135) Dummy {f00=0x010a, f01=0x0190, f02=» ------------------------ - * &* TTB:TD I TASK I . ( * P* I SAVE01URATION I . V * &* I TABLE I . * &* : : . * &* : : .
0x2af5f4…2af788 Dummy {f00=0x010a, f01=0x018e, f02=» ______________________________ . 0 ,* I LENGTH I / * 0 ,* ------------------------------ / ^ 0 ,* I INDEX/FILCODE I / 0 ,* ------------------------------ / 0 ,*
0x2af788…2af91c Dummy {f00=0x010a, f01=0x0190, f02=» / b 0 ,* : : 0 0 ,* ------------------------------ 0 < 0 ,* I INDEX/FILECODE I 0 p 0 ,* ------------------------------ 0 0 ,* I DWT-ADDRESS I 0
0x2af91c…2afab0 Dummy {f00=0x010a, 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,
0x2afab0…2afc44 Dummy {f00=0x010a, 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
0x2afc44…2afdd8 Dummy {f00=0x010a, 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
0x2afdd8…2aff6c Dummy {f00=0x010a, 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
0x2aff6c…2b0100 Dummy {f00=0x010a, 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
0x2b0100…2b0294 (4, 136) Dummy {f00=0x010a, 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
0x2b0294…2b0428 Dummy {f00=0x010a, 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
0x2b0428…2b05bc Dummy {f00=0x010a, 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
0x2b05bc…2b0750 Dummy {f00=0x010a, 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
0x2b0750…2b08e4 Dummy {f00=0x010a, 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
0x2b08e4…2b0a78 Dummy {f00=0x010a, 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
0x2b0a78…2b0c0c Dummy {f00=0x010a, 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
0x2b0c0c…2b0da0 Dummy {f00=0x010a, 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
0x2b0da0…2b0f34 (4, 137) Dummy {f00=0x010b, 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 >
0x2b0f34…2b10c8 Dummy {f00=0x010b, 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
0x2b10c8…2b125c Dummy {f00=0x010b, 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
0x2b125c…2b13f0 Dummy {f00=0x010b, 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
0x2b13f0…2b1584 Dummy {f00=0x010b, 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
0x2b1584…2b1718 Dummy {f00=0x010b, 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
0x2b1718…2b18ac Dummy {f00=0x010b, 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
0x2b18ac…2b1a40 Dummy {f00=0x010b, 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
0x2b1a40…2b1bd4 (4, 138) Dummy {f00=0x010b, 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
0x2b1bd4…2b1d68 Dummy {f00=0x010b, 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
0x2b1d68…2b1efc Dummy {f00=0x010b, 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
0x2b1efc…2b2090 Dummy {f00=0x010b, f01=0x0190, f02=» P EJECT I D P*************************************************************** I D P* * I Z D P* * I D P*
0x2b2090…2b2224 Dummy {f00=0x010b, f01=0x0190, f02=»============================== * I z D P* * J 2 D P* REFERENCED IN: SYSLDM * J z D P* * J D
0x2b2224…2b23b8 Dummy {f00=0x010b, f01=0x0190, f02=»* J R D P* EXIT: * K D P* * K R D P* WORK REGISTERS: A1-A12 * K D P*
0x2b23b8…2b254c Dummy {f00=0x010b, 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*
0x2b254c…2b26e0 Dummy {f00=0x010b, f01=0x0190, f02=» D P* * M D P* * M L D P*************************************************************** M P EJECT M PB:SWBT EQU * M & P LD A12,SC
0x2b26e0…2b2874 (4, 139) Dummy {f00=0x010b, 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
0x2b2874…2b2a08 Dummy {f00=0x010b, 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
0x2b2a08…2b2b9c Dummy {f00=0x010b, 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
0x2b2b9c…2b2d30 Dummy {f00=0x010b, 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
0x2b2d30…2b2ec4 Dummy {f00=0x010b, 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
0x2b2ec4…2b3058 Dummy {f00=0x010b, 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
0x2b3058…2b31ec Dummy {f00=0x010b, 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
0x2b31ec…2b3380 Dummy {f00=0x010b, 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
0x2b3380…2b3514 (4, 140) Dummy {f00=0x010b, 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
0x2b3514…2b36a8 Dummy {f00=0x010b, 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
0x2b36a8…2b383c Dummy {f00=0x010b, 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
0x2b383c…2b39d0 Dummy {f00=0x010b, 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
0x2b39d0…2b3b64 Dummy {f00=0x010b, 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
0x2b3b64…2b3cf8 Dummy {f00=0x010b, 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
0x2b3cf8…2b3e8c Dummy {f00=0x010b, 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*
0x2b3e8c…2b4020 Dummy {f00=0x010b, 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
0x2b4020…2b41b4 (4, 141) Dummy {f00=0x010c, 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 * ^
0x2b41b4…2b4348 Dummy {f00=0x010c, 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 * _ * %********
0x2b4348…2b44dc Dummy {f00=0x010c, 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
0x2b44dc…2b4670 Dummy {f00=0x010c, f01=0x0190, f02=» -------------------- ` 0 ,* I DATA 0 I a $ 0 ,* -------------------- a X 0 ,* I DATA 0 I a 0 ,* -------------------- a * a EJECT a
0x2b4670…2b4804 Dummy {f00=0x010c, 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
0x2b4804…2b4998 Dummy {f00=0x010c, 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
0x2b4998…2b4b2c Dummy {f00=0x010c, 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
0x2b4b2c…2b4cc0 Dummy {f00=0x010c, 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 * &
0x2b4cc0…2b4e54 (4, 142) Dummy {f00=0x010c, 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
0x2b4e54…2b4fe8 Dummy {f00=0x010c, 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
0x2b4fe8…2b517c Dummy {f00=0x010c, 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 * &
0x2b517c…2b5310 Dummy {f00=0x010c, 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
0x2b5310…2b54a4 Dummy {f00=0x010c, 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
0x2b54a4…2b5638 Dummy {f00=0x010c, 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
0x2b5638…2b57cc Dummy {f00=0x010c, 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 /
0x2b57cc…2b5960 Dummy {f00=0x010c, 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
0x2b5960…2b5af4 (4, 143) Dummy {f00=0x010c, 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******************************************
0x2b5af4…2b5c88 Dummy {f00=0x010c, 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
0x2b5c88…2b5e1c Dummy {f00=0x010c, 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
0x2b5e1c…2b5fb0 Dummy {f00=0x010c, 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?
0x2b5fb0…2b6144 Dummy {f00=0x010c, 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
0x2b6144…2b62d8 Dummy {f00=0x010c, 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
0x2b62d8…2b646c Dummy {f00=0x010c, 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
0x2b646c…2b6600 Dummy {f00=0x010c, 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
0x2b6600…2b6794 (4, 144) Dummy {f00=0x010c, 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
0x2b6794…2b6928 Dummy {f00=0x010c, 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
0x2b6928…2b6abc Dummy {f00=0x010c, 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
0x2b6abc…2b6c50 Dummy {f00=0x010c, 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
0x2b6c50…2b6de4 Dummy {f00=0x010c, 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
0x2b6de4…2b6f78 Dummy {f00=0x010c, 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
0x2b6f78…2b710c Dummy {f00=0x010c, 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 * | , (**************************************** | * | *
0x2b710c…2b72a0 Dummy {f00=0x010c, 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
0x2b72a0…2b7434 (4, 145) Dummy {f00=0x010d, 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 ~
0x2b7434…2b75c8 Dummy {f00=0x010d, 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
0x2b75c8…2b775c Dummy {f00=0x010d, 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
0x2b775c…2b78f0 Dummy {f00=0x010d, 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
0x2b78f0…2b7a84 Dummy {f00=0x010d, 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
0x2b7a84…2b7c18 Dummy {f00=0x010d, 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
0x2b7c18…2b7dac Dummy {f00=0x010d, 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
0x2b7dac…2b7f40 Dummy {f00=0x010d, 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
0x2b7f40…2b80d4 (4, 146) Dummy {f00=0x010d, 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
0x2b80d4…2b8268 Dummy {f00=0x010d, 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
0x2b8268…2b83fc Dummy {f00=0x010d, 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
0x2b83fc…2b8590 Dummy {f00=0x010d, 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)
0x2b8590…2b8724 Dummy {f00=0x010d, 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
0x2b8724…2b88b8 Dummy {f00=0x010d, 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
0x2b88b8…2b8a4c Dummy {f00=0x010d, 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
0x2b8a4c…2b8be0 Dummy {f00=0x010d, 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
0x2b8be0…2b8d74 (4, 147) Dummy {f00=0x010d, 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,
0x2b8d74…2b8f08 Dummy {f00=0x010d, 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
0x2b8f08…2b909c Dummy {f00=0x010d, 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**************************
0x2b909c…2b9230 Dummy {f00=0x010d, 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,
0x2b9230…2b93c4 Dummy {f00=0x010d, 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
0x2b93c4…2b9558 Dummy {f00=0x010d, 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
0x2b9558…2b96ec Dummy {f00=0x010d, 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 *
0x2b96ec…2b9880 Dummy {f00=0x010d, 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
0x2b9880…2b9a14 (4, 148) Dummy {f00=0x010d, 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
0x2b9a14…2b9ba8 Dummy {f00=0x010d, 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
0x2b9ba8…2b9d3c Dummy {f00=0x010d, 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
0x2b9d3c…2b9ed0 Dummy {f00=0x010d, 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
0x2b9ed0…2ba064 Dummy {f00=0x010d, 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
0x2ba064…2ba1f8 Dummy {f00=0x010d, 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
0x2ba1f8…2ba38c Dummy {f00=0x010d, 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
0x2ba38c…2ba520 Dummy {f00=0x010d, 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
0x2ba520…2ba6b4 (4, 149) Dummy {f00=0x010e, 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
0x2ba6b4…2ba848 Dummy {f00=0x010e, 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*
0x2ba848…2ba9dc Dummy {f00=0x010e, 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
0x2ba9dc…2bab70 Dummy {f00=0x010e, 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
0x2bab70…2bad04 Dummy {f00=0x010e, 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
0x2bad04…2bae98 Dummy {f00=0x010e, f01=0x0190, f02=»DWTEX EQU * RTN A14 RETURN EJECT , * %************************************* : * %* I:CHP - INIT CHANNEL PARAMETER * h * %************************************* * * REFERENCED IN: DWTGEN * , (* ENTRY: A1 -
0x2bae98…2bb02c Dummy {f00=0x010e, 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
0x2bb02c…2bb1c0 Dummy {f00=0x010e, 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
0x2bb1c0…2bb354 (4, 150) Dummy {f00=0x010e, 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
0x2bb354…2bb4e8 Dummy {f00=0x010e, 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
0x2bb4e8…2bb67c Dummy {f00=0x010e, 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,
0x2bb67c…2bb810 Dummy {f00=0x010e, 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
0x2bb810…2bb9a4 Dummy {f00=0x010e, 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
0x2bb9a4…2bbb38 Dummy {f00=0x010e, 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
0x2bbb38…2bbccc Dummy {f00=0x010e, 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
0x2bbccc…2bbe60 Dummy {f00=0x010e, 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
0x2bbe60…2bbff4 (4, 151) Dummy {f00=0x010e, 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
0x2bbff4…2bc188 Dummy {f00=0x010e, 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
0x2bc188…2bc31c Dummy {f00=0x010e, 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
0x2bc31c…2bc4b0 Dummy {f00=0x010e, 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.
0x2bc4b0…2bc644 Dummy {f00=0x010e, 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
0x2bc644…2bc7d8 Dummy {f00=0x010e, 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 *
0x2bc7d8…2bc96c Dummy {f00=0x010e, 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
0x2bc96c…2bcb00 Dummy {f00=0x010e, 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
0x2bcb00…2bcc94 (4, 152) Dummy {f00=0x010e, 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
0x2bcc94…2bce28 Dummy {f00=0x010e, 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
0x2bce28…2bcfbc Dummy {f00=0x010e, 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
0x2bcfbc…2bd150 Dummy {f00=0x010e, 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
0x2bd150…2bd2e4 Dummy {f00=0x010e, 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
0x2bd2e4…2bd478 Dummy {f00=0x010e, 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.
0x2bd478…2bd60c Dummy {f00=0x010e, f01=0x0190, f02=»*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL SUBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************************************
0x2bd60c…2bd7a0 Dummy {f00=0x010e, 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
0x2bd7a0…2bd934 (4, 153) Dummy {f00=0x010f, 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**
0x2bd934…2bdac8 Dummy {f00=0x010f, 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,
0x2bdac8…2bdc5c Dummy {f00=0x010f, 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 -
0x2bdc5c…2bddf0 Dummy {f00=0x010f, 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 .****************
0x2bddf0…2bdf84 Dummy {f00=0x010f, 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
0x2bdf84…2be118 Dummy {f00=0x010f, 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) *
0x2be118…2be2ac Dummy {f00=0x010f, 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
0x2be2ac…2be440 Dummy {f00=0x010f, f01=0x0190, f02=» * f : P* REFERENCED IN: B:TT * : P* * R : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* *
0x2be440…2be5d4 (4, 154) Dummy {f00=0x010f, f01=0x0190, f02=»REGISTERS: A1-A7,A10 * : P* * 6 : P* SUBROUTINES: GETTSK,NXTBLK * t : P* * : P************************
0x2be5d4…2be768 Dummy {f00=0x010f, 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
0x2be768…2be8fc Dummy {f00=0x010f, 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 >****************************************************
0x2be8fc…2bea90 Dummy {f00=0x010f, f01=0x018e, f02=»ONVERTED * j * " B >************************************************************** , * r * REFERENCED IN: B:DWTT | * , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED
0x2bea90…2bec24 Dummy {f00=0x010f, 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
0x2bec24…2bedb8 Dummy {f00=0x010f, f01=0x018e, f02=»***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** L * ~ * REFERENCED IN: SEGGEN * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X)
0x2bedb8…2bef4c Dummy {f00=0x010f, 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
0x2bef4c…2bf0e0 Dummy {f00=0x010f, 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
0x2bf0e0…2bf274 (4, 155) Dummy {f00=0x010f, 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
0x2bf274…2bf408 Dummy {f00=0x010f, 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
0x2bf408…2bf59c Dummy {f00=0x010f, 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 *
0x2bf59c…2bf730 Dummy {f00=0x010f, 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 *
0x2bf730…2bf8c4 Dummy {f00=0x010f, 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 *
0x2bf8c4…2bfa58 Dummy {f00=0x010f, f01=0x2008, f02=» P X ` h p
0x2bfa58…2bfbec Dummy {f00=0x010f, f01=0x0190, f02=» 0 7 > E L { ~ * & ) T d m v | * & G | J * & e $ | x * & ! * | * & 5 @ K V a l w | * &
0x2bfbec…2bfd80 Dummy {f00=0x010f, f01=0x4088, f02=» C ^ E J J 0 O z [ a $ | 7 @ @ @ } * G Z } J K v 0 } ^ N } r@ } $ | x * & ! * | * & 5 @ K V a l w | * &
0x2bfd80…2bff14 (4, 156) Opaque[0x194]
0x2bff14…2c00a8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x21f8, f03=0xffff}
0x2bff14…2c00a8 IdxSect {
0x2bff14…2c00a8 f00 = 0x010f // 0x2bff14 @0x0
0x2bff14…2c00a8 f01 = 0x0054 // 0x2bff16 @0x2
0x2bff14…2c00a8 gno = [ // 0x2bff18 @0x4
0x2bff14…2c00a8 [0x00]: C0x010f.0x3.0
0x2bff14…2c00a8 [0x01]: C0x0110.0x0.0
0x2bff14…2c00a8 [0x02]: C0x0110.0x1.0
0x2bff14…2c00a8 [0x03]: C0x0110.0x2.0
0x2bff14…2c00a8 [0x04]: C0x0110.0x3.0
0x2bff14…2c00a8 [0x05]: C0x0111.0x0.0
0x2bff14…2c00a8 [0x06]: C0x0111.0x1.0
0x2bff14…2c00a8 [0x07]: C0x0111.0x2.0
0x2bff14…2c00a8 [0x08]: C0x0111.0x3.0
0x2bff14…2c00a8 [0x09]: C0x0112.0x0.0
0x2bff14…2c00a8 [0x0a]: C0x0112.0x1.0
0x2bff14…2c00a8 [0x0b]: C0x0112.0x2.0
0x2bff14…2c00a8 [0x0c]: C0x0112.0x3.0
0x2bff14…2c00a8 [0x0d]: C0x0113.0x0.0
0x2bff14…2c00a8 [0x0e]: C0x0113.0x1.0
0x2bff14…2c00a8 [0x0f]: C0x0113.0x2.0
0x2bff14…2c00a8 [0x10]: C0x0113.0x3.0
0x2bff14…2c00a8 [0x11]: C0x0114.0x0.0
0x2bff14…2c00a8 [0x12]: C0x0114.0x1.0
0x2bff14…2c00a8 [0x13]: C0x0114.0x2.0
0x2bff14…2c00a8 [0x14]: C0x0114.0x3.0
0x2bff14…2c00a8 [0x15]: C0x0115.0x0.0
0x2bff14…2c00a8 [0x16]: C0x0115.0x1.0
0x2bff14…2c00a8 [0x17]: C0x0115.0x2.0
0x2bff14…2c00a8 [0x18]: C0x0115.0x3.0
0x2bff14…2c00a8 [0x19]: C0x0116.0x0.0
0x2bff14…2c00a8 [0x1a]: C0x0116.0x1.0
0x2bff14…2c00a8 [0x1b]: C0x0116.0x2.0
0x2bff14…2c00a8 [0x1c]: C0x0116.0x3.0
0x2bff14…2c00a8 [0x1d]: C0x0117.0x0.0
0x2bff14…2c00a8 [0x1e]: C0x0117.0x1.0
0x2bff14…2c00a8 [0x1f]: C0x0117.0x2.0
0x2bff14…2c00a8 [0x20]: C0x0117.0x3.0
0x2bff14…2c00a8 [0x21]: C0x0118.0x0.0
0x2bff14…2c00a8 [0x22]: C0x0118.0x1.0
0x2bff14…2c00a8 [0x23]: C0x0118.0x2.0
0x2bff14…2c00a8 [0x24]: C0x0118.0x3.0
0x2bff14…2c00a8 [0x25]: C0x0119.0x0.0
0x2bff14…2c00a8 [0x26]: C0x0119.0x1.0
0x2bff14…2c00a8 [0x27]: C0x0119.0x2.0
0x2bff14…2c00a8 [0x28]: C0x0119.0x3.0
0x2bff14…2c00a8 [0x29]: C0x011a.0x0.0
0x2bff14…2c00a8 ]
0x2bff14…2c00a8 }
0x2c00a8…2c023c Dummy {f00=0x010f, 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
0x2c023c…2c03d0 Dummy {f00=0x010f, 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
0x2c03d0…2c0564 Dummy {f00=0x010f, 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
0x2c0564…2c06f8 Dummy {f00=0x010f, 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
0x2c06f8…2c088c Dummy {f00=0x010f, 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*
0x2c088c…2c0a20 Dummy {f00=0x010f, 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* *
0x2c0a20…2c0bb4 (4, 157) Dummy {f00=0x0110, 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
0x2c0bb4…2c0d48 Dummy {f00=0x0110, 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
0x2c0d48…2c0edc Dummy {f00=0x0110, 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
0x2c0edc…2c1070 Dummy {f00=0x0110, 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 =
0x2c1070…2c1204 Dummy {f00=0x0110, 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
0x2c1204…2c1398 Dummy {f00=0x0110, 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
0x2c1398…2c152c Dummy {f00=0x0110, 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
0x2c152c…2c16c0 Dummy {f00=0x0110, 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*
0x2c16c0…2c1854 (4, 158) Dummy {f00=0x0110, 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
0x2c1854…2c19e8 Dummy {f00=0x0110, 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* !----------------------------------------------
0x2c19e8…2c1b7c Dummy {f00=0x0110, 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*
0x2c1b7c…2c1d10 Dummy {f00=0x0110, 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.
0x2c1d10…2c1ea4 Dummy {f00=0x0110, 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
0x2c1ea4…2c2038 Dummy {f00=0x0110, 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
0x2c2038…2c21cc Dummy {f00=0x0110, 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
0x2c21cc…2c2360 Dummy {f00=0x0110, 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
0x2c2360…2c24f4 (4, 159) Dummy {f00=0x0110, 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
0x2c24f4…2c2688 Dummy {f00=0x0110, 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
0x2c2688…2c281c Dummy {f00=0x0110, f01=0x0190, f02=» ! b F P* ! -CONTINUE IN PART 2.A ! F P* !-----------------------------------------------------! f P EJECT P P ***************** P ***************** P **
0x2c281c…2c29b0 Dummy {f00=0x0110, 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
0x2c29b0…2c2b44 Dummy {f00=0x0110, 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
0x2c2b44…2c2cd8 Dummy {f00=0x0110, 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
0x2c2cd8…2c2e6c Dummy {f00=0x0110, 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
0x2c2e6c…2c3000 Dummy {f00=0x0110, 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-
0x2c3000…2c3194 (4, 160) Dummy {f00=0x0110, 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
0x2c3194…2c3328 Dummy {f00=0x0110, 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
0x2c3328…2c34bc Dummy {f00=0x0110, 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 -"-
0x2c34bc…2c3650 Dummy {f00=0x0110, 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
0x2c3650…2c37e4 Dummy {f00=0x0110, 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****
0x2c37e4…2c3978 Dummy {f00=0x0110, 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:
0x2c3978…2c3b0c Dummy {f00=0x0110, 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**********************************************
0x2c3b0c…2c3ca0 Dummy {f00=0x0110, f01=0x0190, f02=» [REL-ADDRESS] * $ n F P* * % ( F P***************************************************************** % r P % P % P % PCALL FORM 16=/F697,16 % P EJECT %
0x2c3ca0…2c3e34 (4, 161) Dummy {f00=0x0111, f01=0x0190, f02=» ** % 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & 6 6 P** ** & p 6 P************************************************** & 6 P************************************
0x2c3e34…2c3fc8 Dummy {f00=0x0111, 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****************
0x2c3fc8…2c415c Dummy {f00=0x0111, 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******************************
0x2c415c…2c42f0 Dummy {f00=0x0111, 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
0x2c42f0…2c4484 Dummy {f00=0x0111, 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
0x2c4484…2c4618 Dummy {f00=0x0111, 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**************
0x2c4618…2c47ac Dummy {f00=0x0111, 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 , *
0x2c47ac…2c4940 Dummy {f00=0x0111, 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
0x2c4940…2c4ad4 (4, 162) Dummy {f00=0x0111, 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 .
0x2c4ad4…2c4c68 Dummy {f00=0x0111, 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 /
0x2c4c68…2c4dfc Dummy {f00=0x0111, 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
0x2c4dfc…2c4f90 Dummy {f00=0x0111, 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
0x2c4f90…2c5124 Dummy {f00=0x0111, 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
0x2c5124…2c52b8 Dummy {f00=0x0111, 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
0x2c52b8…2c544c Dummy {f00=0x0111, 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
0x2c544c…2c55e0 Dummy {f00=0x0111, 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
0x2c55e0…2c5774 (4, 163) Dummy {f00=0x0111, 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
0x2c5774…2c5908 Dummy {f00=0x0111, 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
0x2c5908…2c5a9c Dummy {f00=0x0111, 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
0x2c5a9c…2c5c30 Dummy {f00=0x0111, 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
0x2c5c30…2c5dc4 Dummy {f00=0x0111, 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
0x2c5dc4…2c5f58 Dummy {f00=0x0111, 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
0x2c5f58…2c60ec Dummy {f00=0x0111, 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************************************
0x2c60ec…2c6280 Dummy {f00=0x0111, 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 =
0x2c6280…2c6414 (4, 164) Dummy {f00=0x0111, 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**
0x2c6414…2c65a8 Dummy {f00=0x0111, 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**
0x2c65a8…2c673c Dummy {f00=0x0111, 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
0x2c673c…2c68d0 Dummy {f00=0x0111, 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
0x2c68d0…2c6a64 Dummy {f00=0x0111, 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
0x2c6a64…2c6bf8 Dummy {f00=0x0111, 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
0x2c6bf8…2c6d8c Dummy {f00=0x0111, 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
0x2c6d8c…2c6f20 Dummy {f00=0x0111, 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
0x2c6f20…2c70b4 (4, 165) Dummy {f00=0x0112, 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
0x2c70b4…2c7248 Dummy {f00=0x0112, 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
0x2c7248…2c73dc Dummy {f00=0x0112, 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
0x2c73dc…2c7570 Dummy {f00=0x0112, 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
0x2c7570…2c7704 Dummy {f00=0x0112, 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
0x2c7704…2c7898 Dummy {f00=0x0112, 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
0x2c7898…2c7a2c Dummy {f00=0x0112, 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
0x2c7a2c…2c7bc0 Dummy {f00=0x0112, 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
0x2c7bc0…2c7d54 (4, 166) Dummy {f00=0x0112, 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
0x2c7d54…2c7ee8 Dummy {f00=0x0112, 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
0x2c7ee8…2c807c Dummy {f00=0x0112, 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
0x2c807c…2c8210 Dummy {f00=0x0112, 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
0x2c8210…2c83a4 Dummy {f00=0x0112, 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)
0x2c83a4…2c8538 Dummy {f00=0x0112, 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**
0x2c8538…2c86cc Dummy {f00=0x0112, 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
0x2c86cc…2c8860 Dummy {f00=0x0112, 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
0x2c8860…2c89f4 (4, 167) Dummy {f00=0x0112, 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
0x2c89f4…2c8b88 Dummy {f00=0x0112, 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
0x2c8b88…2c8d1c Dummy {f00=0x0112, 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
0x2c8d1c…2c8eb0 Dummy {f00=0x0112, 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
0x2c8eb0…2c9044 Dummy {f00=0x0112, 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
0x2c9044…2c91d8 Dummy {f00=0x0112, 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
0x2c91d8…2c936c Dummy {f00=0x0112, 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
0x2c936c…2c9500 Dummy {f00=0x0112, 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
0x2c9500…2c9694 (4, 168) Dummy {f00=0x0112, 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
0x2c9694…2c9828 Dummy {f00=0x0112, 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
0x2c9828…2c99bc Dummy {f00=0x0112, 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
0x2c99bc…2c9b50 Dummy {f00=0x0112, 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
0x2c9b50…2c9ce4 Dummy {f00=0x0112, 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
0x2c9ce4…2c9e78 Dummy {f00=0x0112, 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
0x2c9e78…2ca00c Dummy {f00=0x0112, 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
0x2ca00c…2ca1a0 Dummy {f00=0x0112, 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
0x2ca1a0…2ca334 (4, 169) Dummy {f00=0x0113, 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
0x2ca334…2ca4c8 Dummy {f00=0x0113, 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
0x2ca4c8…2ca65c Dummy {f00=0x0113, 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)
0x2ca65c…2ca7f0 Dummy {f00=0x0113, 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
0x2ca7f0…2ca984 Dummy {f00=0x0113, 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
0x2ca984…2cab18 Dummy {f00=0x0113, 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
0x2cab18…2cacac Dummy {f00=0x0113, 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
0x2cacac…2cae40 Dummy {f00=0x0113, 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
0x2cae40…2cafd4 (4, 170) Dummy {f00=0x0113, 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
0x2cafd4…2cb168 Dummy {f00=0x0113, 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
0x2cb168…2cb2fc Dummy {f00=0x0113, 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=
0x2cb2fc…2cb490 Dummy {f00=0x0113, 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=
0x2cb490…2cb624 Dummy {f00=0x0113, 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
0x2cb624…2cb7b8 Dummy {f00=0x0113, 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,
0x2cb7b8…2cb94c Dummy {f00=0x0113, 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
0x2cb94c…2cbae0 Dummy {f00=0x0113, 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
0x2cbae0…2cbc74 (4, 171) Dummy {f00=0x0113, 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
0x2cbc74…2cbe08 Dummy {f00=0x0113, 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**
0x2cbe08…2cbf9c Dummy {f00=0x0113, 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
0x2cbf9c…2cc130 Dummy {f00=0x0113, f01=0x018e, f02=»************************************* x v D P* * y . D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * y v D P* ===================================== * y D P*
0x2cc130…2cc2c4 Dummy {f00=0x0113, 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
0x2cc2c4…2cc458 Dummy {f00=0x0113, 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*
0x2cc458…2cc5ec Dummy {f00=0x0113, 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 |
0x2cc5ec…2cc780 Dummy {f00=0x0113, 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
0x2cc780…2cc914 (4, 172) Dummy {f00=0x0113, 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
0x2cc914…2ccaa8 Dummy {f00=0x0113, 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**************************************
0x2ccaa8…2ccc3c Dummy {f00=0x0113, f01=0x0190, f02=»KMVD - CHECK IF BLOCK ALREADY MOVED * ~ J P* ===================================== * < J P* * J P* REFERENCED IN: MOVCOM,MOVCLA
0x2ccc3c…2ccdd0 Dummy {f00=0x0113, 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
0x2ccdd0…2ccf64 Dummy {f00=0x0113, f01=0x0190, f02=» * j J P* * ( J P* SUBROUTINES: * v J P*
0x2ccf64…2cd0f8 Dummy {f00=0x0113, 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
0x2cd0f8…2cd28c Dummy {f00=0x0113, 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**
0x2cd28c…2cd420 Dummy {f00=0x0113, 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
0x2cd420…2cd5b4 (4, 173) Dummy {f00=0x0114, 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
0x2cd5b4…2cd748 Dummy {f00=0x0114, f01=0x0190, f02=» ** 4 P** ** ( 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** ` 4 P** ** 4 P** INPUT : A3,A2 ** 4 P
0x2cd748…2cd8dc Dummy {f00=0x0114, 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
0x2cd8dc…2cda70 Dummy {f00=0x0114, 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 **
0x2cda70…2cdc04 Dummy {f00=0x0114, 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
0x2cdc04…2cdd98 Dummy {f00=0x0114, 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**
0x2cdd98…2cdf2c Dummy {f00=0x0114, 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
0x2cdf2c…2ce0c0 Dummy {f00=0x0114, 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
0x2ce0c0…2ce254 (4, 174) Dummy {f00=0x0114, 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**
0x2ce254…2ce3e8 Dummy {f00=0x0114, 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
0x2ce3e8…2ce57c Dummy {f00=0x0114, 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
0x2ce57c…2ce710 Dummy {f00=0x0114, 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
0x2ce710…2ce8a4 Dummy {f00=0x0114, 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
0x2ce8a4…2cea38 Dummy {f00=0x0114, 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
0x2cea38…2cebcc Dummy {f00=0x0114, f01=0x0190, f02=»T ** v 4 P** ** 4 P** ** V 4 P** MOVE MM-TABLE ** 4 P** ** 4 P** INPUT
0x2cebcc…2ced60 Dummy {f00=0x0114, 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
0x2ced60…2ceef4 (4, 175) Dummy {f00=0x0114, 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
0x2ceef4…2cf088 Dummy {f00=0x0114, f01=0x0190, f02=»=========== * b @ P* * @ P* * Z @ P* REFERENCED IN: SYSLDA PART 2 B. * @ P*
0x2cf088…2cf21c Dummy {f00=0x0114, f01=0x0190, f02=»NTRY IN REAL T:ATAB * j @ P* * @ P* EXIT: * b @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8
0x2cf21c…2cf3b0 Dummy {f00=0x0114, 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
0x2cf3b0…2cf544 Dummy {f00=0x0114, 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
0x2cf544…2cf6d8 Dummy {f00=0x0114, 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
0x2cf6d8…2cf86c Dummy {f00=0x0114, 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 =
0x2cf86c…2cfa00 Dummy {f00=0x0114, 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**
0x2cfa00…2cfb94 (4, 176) Dummy {f00=0x0114, 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
0x2cfb94…2cfd28 Dummy {f00=0x0114, 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
0x2cfd28…2cfebc Dummy {f00=0x0114, 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
0x2cfebc…2d0050 Dummy {f00=0x0114, 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
0x2d0050…2d01e4 Dummy {f00=0x0114, 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
0x2d01e4…2d0378 Dummy {f00=0x0114, 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
0x2d0378…2d050c Dummy {f00=0x0114, 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
0x2d050c…2d06a0 Dummy {f00=0x0114, 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:
0x2d06a0…2d0834 (4, 177) Dummy {f00=0x0115, 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
0x2d0834…2d09c8 Dummy {f00=0x0115, 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
0x2d09c8…2d0b5c Dummy {f00=0x0115, 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
0x2d0b5c…2d0cf0 Dummy {f00=0x0115, 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 ?***************************************************************
0x2d0cf0…2d0e84 Dummy {f00=0x0115, f01=0x0190, f02=» * X D ?* ========================= * D ?* * X D ?* REFERENCED IN: SYSLDA * D ?*
0x2d0e84…2d1018 Dummy {f00=0x0115, f01=0x0190, f02=»OF FREE AREA * x D ?* SCTNOS - NUMBER OF SEGMENTS * 0 D ?* SCTNOP - NUMBER OF PAGES * x D ?* SCTPSZ - PAGE SIZE * D ?
0x2d1018…2d11ac Dummy {f00=0x0115, 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
0x2d11ac…2d1340 Dummy {f00=0x0115, f01=0x0190, f02=» * p D ?* * ( D ?* * p D ?*************************************************************** PAGGEN E
0x2d1340…2d14d4 (4, 178) Dummy {f00=0x0115, 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
0x2d14d4…2d1668 Dummy {f00=0x0115, 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
0x2d1668…2d17fc Dummy {f00=0x0115, 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
0x2d17fc…2d1990 Dummy {f00=0x0115, 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
0x2d1990…2d1b24 Dummy {f00=0x0115, 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,
0x2d1b24…2d1cb8 Dummy {f00=0x0115, 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,
0x2d1cb8…2d1e4c Dummy {f00=0x0115, 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!
0x2d1e4c…2d1fe0 Dummy {f00=0x0115, 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
0x2d1fe0…2d2174 (4, 179) Dummy {f00=0x0115, 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
0x2d2174…2d2308 Dummy {f00=0x0115, 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
0x2d2308…2d249c Dummy {f00=0x0115, 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
0x2d249c…2d2630 Dummy {f00=0x0115, 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
0x2d2630…2d27c4 Dummy {f00=0x0115, 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
0x2d27c4…2d2958 Dummy {f00=0x0115, 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
0x2d2958…2d2aec Dummy {f00=0x0115, 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
0x2d2aec…2d2c80 Dummy {f00=0x0115, 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
0x2d2c80…2d2e14 (4, 180) Dummy {f00=0x0115, 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
0x2d2e14…2d2fa8 Dummy {f00=0x0115, 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
0x2d2fa8…2d313c Dummy {f00=0x0115, 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***
0x2d313c…2d32d0 Dummy {f00=0x0115, 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****************
0x2d32d0…2d3464 Dummy {f00=0x0115, 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**
0x2d3464…2d35f8 Dummy {f00=0x0115, 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
0x2d35f8…2d378c Dummy {f00=0x0115, 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
0x2d378c…2d3920 Dummy {f00=0x0115, 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 **
0x2d3920…2d3ab4 (4, 181) Dummy {f00=0x0116, 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 (
0x2d3ab4…2d3c48 Dummy {f00=0x0116, 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
0x2d3c48…2d3ddc Dummy {f00=0x0116, 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
0x2d3ddc…2d3f70 Dummy {f00=0x0116, 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(
0x2d3f70…2d4104 Dummy {f00=0x0116, 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
0x2d4104…2d4298 Dummy {f00=0x0116, 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
0x2d4298…2d442c Dummy {f00=0x0116, 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
0x2d442c…2d45c0 Dummy {f00=0x0116, 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
0x2d45c0…2d4754 (4, 182) Dummy {f00=0x0116, 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
0x2d4754…2d48e8 Dummy {f00=0x0116, 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
0x2d48e8…2d4a7c Dummy {f00=0x0116, 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
0x2d4a7c…2d4c10 Dummy {f00=0x0116, 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 *
0x2d4c10…2d4da4 Dummy {f00=0x0116, 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
0x2d4da4…2d4f38 Dummy {f00=0x0116, 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*********************************
0x2d4f38…2d50cc Dummy {f00=0x0116, 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
0x2d50cc…2d5260 Dummy {f00=0x0116, 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
0x2d5260…2d53f4 (4, 183) Dummy {f00=0x0116, 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
0x2d53f4…2d5588 Dummy {f00=0x0116, 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
0x2d5588…2d571c Dummy {f00=0x0116, 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
0x2d571c…2d58b0 Dummy {f00=0x0116, 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
0x2d58b0…2d5a44 Dummy {f00=0x0116, f01=0x0190, f02=»FT CREDIT+SWPBLK=2 P EJECT B P************************************************************** ( B P* * n B P* * B P* B:RSWT - BU
0x2d5a44…2d5bd8 Dummy {f00=0x0116, f01=0x0190, f02=» * B P* REFERENCED IN: SYSLDA * < B P* * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *
0x2d5bd8…2d5d6c Dummy {f00=0x0116, f01=0x0190, f02=» * T B P* EXIT: * B P* * P B P* WORK REGISTERS: A1-A7 * B P*
0x2d5d6c…2d5f00 Dummy {f00=0x0116, 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
0x2d5f00…2d6094 (4, 184) Dummy {f00=0x0116, 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
0x2d6094…2d6228 Dummy {f00=0x0116, 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
0x2d6228…2d63bc Dummy {f00=0x0116, 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
0x2d63bc…2d6550 Dummy {f00=0x0116, 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
0x2d6550…2d66e4 Dummy {f00=0x0116, 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
0x2d66e4…2d6878 Dummy {f00=0x0116, 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
0x2d6878…2d6a0c Dummy {f00=0x0116, 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
0x2d6a0c…2d6ba0 Dummy {f00=0x0116, 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
0x2d6ba0…2d6d34 (4, 185) Dummy {f00=0x0117, 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
0x2d6d34…2d6ec8 Dummy {f00=0x0117, 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 ,
0x2d6ec8…2d705c Dummy {f00=0x0117, 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,
0x2d705c…2d71f0 Dummy {f00=0x0117, 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
0x2d71f0…2d7384 Dummy {f00=0x0117, 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
0x2d7384…2d7518 Dummy {f00=0x0117, 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
0x2d7518…2d76ac Dummy {f00=0x0117, 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
0x2d76ac…2d7840 Dummy {f00=0x0117, 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
0x2d7840…2d79d4 (4, 186) Dummy {f00=0x0117, 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:
0x2d79d4…2d7b68 Dummy {f00=0x0117, 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
0x2d7b68…2d7cfc Dummy {f00=0x0117, 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
0x2d7cfc…2d7e90 Dummy {f00=0x0117, 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:
0x2d7e90…2d8024 Dummy {f00=0x0117, 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
0x2d8024…2d81b8 Dummy {f00=0x0117, 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
0x2d81b8…2d834c Dummy {f00=0x0117, 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
0x2d834c…2d84e0 Dummy {f00=0x0117, 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
0x2d84e0…2d8674 (4, 187) Dummy {f00=0x0117, 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
0x2d8674…2d8808 Dummy {f00=0x0117, 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
0x2d8808…2d899c Dummy {f00=0x0117, 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
0x2d899c…2d8b30 Dummy {f00=0x0117, 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
0x2d8b30…2d8cc4 Dummy {f00=0x0117, 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
0x2d8cc4…2d8e58 Dummy {f00=0x0117, 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
0x2d8e58…2d8fec Dummy {f00=0x0117, 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
0x2d8fec…2d9180 Dummy {f00=0x0117, 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
0x2d9180…2d9314 (4, 188) Dummy {f00=0x0117, 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
0x2d9314…2d94a8 Dummy {f00=0x0117, 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
0x2d94a8…2d963c Dummy {f00=0x0117, 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
0x2d963c…2d97d0 Dummy {f00=0x0117, 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:
0x2d97d0…2d9964 Dummy {f00=0x0117, 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 .
0x2d9964…2d9af8 Dummy {f00=0x0117, 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
0x2d9af8…2d9c8c Dummy {f00=0x0117, 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
0x2d9c8c…2d9e20 Dummy {f00=0x0117, 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
0x2d9e20…2d9fb4 (4, 189) Dummy {f00=0x0118, 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**
0x2d9fb4…2da148 Dummy {f00=0x0118, f01=0x0190, f02=» ***** 2 P********************************************* * P ` 2 P* READ CONFIGURATION FILE & BUILD * l 2 P* SHADOW-TABLES * 2 P* *
0x2da148…2da2dc Dummy {f00=0x0118, 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
0x2da2dc…2da470 Dummy {f00=0x0118, 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
0x2da470…2da604 Dummy {f00=0x0118, 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
0x2da604…2da798 Dummy {f00=0x0118, 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
0x2da798…2da92c Dummy {f00=0x0118, 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
0x2da92c…2daac0 Dummy {f00=0x0118, 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
0x2daac0…2dac54 (4, 190) Dummy {f00=0x0118, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x2dac54…2dade8 Dummy {f00=0x0118, 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
0x2dade8…2daf7c Dummy {f00=0x0118, 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
0x2daf7c…2db110 Dummy {f00=0x0118, 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
0x2db110…2db2a4 Dummy {f00=0x0118, 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
0x2db2a4…2db438 Dummy {f00=0x0118, 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
0x2db438…2db5cc Dummy {f00=0x0118, 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(
0x2db5cc…2db760 Dummy {f00=0x0118, 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
0x2db760…2db8f4 (4, 191) Dummy {f00=0x0118, 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
0x2db8f4…2dba88 Dummy {f00=0x0118, 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:
0x2dba88…2dbc1c Dummy {f00=0x0118, 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
0x2dbc1c…2dbdb0 Dummy {f00=0x0118, 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
0x2dbdb0…2dbf44 Dummy {f00=0x0118, 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
0x2dbf44…2dc0d8 Dummy {f00=0x0118, 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
0x2dc0d8…2dc26c Dummy {f00=0x0118, 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
0x2dc26c…2dc400 Dummy {f00=0x0118, 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
0x2dc400…2dc594 (4, 192) Dummy {f00=0x0118, 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 .
0x2dc594…2dc728 Dummy {f00=0x0118, 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)
0x2dc728…2dc8bc Dummy {f00=0x0118, 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
0x2dc8bc…2dca50 Dummy {f00=0x0118, 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
0x2dca50…2dcbe4 Dummy {f00=0x0118, 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********
0x2dcbe4…2dcd78 Dummy {f00=0x0118, 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
0x2dcd78…2dcf0c Dummy {f00=0x0118, 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:
0x2dcf0c…2dd0a0 Dummy {f00=0x0118, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x2dd0a0…2dd234 (4, 193) Dummy {f00=0x0119, 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*
0x2dd234…2dd3c8 Dummy {f00=0x0119, 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
0x2dd3c8…2dd55c Dummy {f00=0x0119, 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
0x2dd55c…2dd6f0 Dummy {f00=0x0119, 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
0x2dd6f0…2dd884 Dummy {f00=0x0119, 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
0x2dd884…2dda18 Dummy {f00=0x0119, 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
0x2dda18…2ddbac Dummy {f00=0x0119, 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 * ,
0x2ddbac…2ddd40 Dummy {f00=0x0119, 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
0x2ddd40…2dded4 (4, 194) Dummy {f00=0x0119, 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
0x2dded4…2de068 Dummy {f00=0x0119, 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 (
0x2de068…2de1fc Dummy {f00=0x0119, 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
0x2de1fc…2de390 Dummy {f00=0x0119, 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
0x2de390…2de524 Dummy {f00=0x0119, 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
0x2de524…2de6b8 Dummy {f00=0x0119, 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
0x2de6b8…2de84c Dummy {f00=0x0119, 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
0x2de84c…2de9e0 Dummy {f00=0x0119, 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
0x2de9e0…2deb74 (4, 195) Dummy {f00=0x0119, 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
0x2deb74…2ded08 Dummy {f00=0x0119, 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
0x2ded08…2dee9c Dummy {f00=0x0119, 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
0x2dee9c…2df030 Dummy {f00=0x0119, 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
0x2df030…2df1c4 Dummy {f00=0x0119, 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 :
0x2df1c4…2df358 Dummy {f00=0x0119, 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
0x2df358…2df4ec Dummy {f00=0x0119, 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
0x2df4ec…2df680 Dummy {f00=0x0119, 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
0x2df680…2df814 (4, 196) Dummy {f00=0x0119, 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
0x2df814…2df9a8 Dummy {f00=0x0119, 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
0x2df9a8…2dfb3c Dummy {f00=0x0119, 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
0x2dfb3c…2dfcd0 Dummy {f00=0x0119, 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,
0x2dfcd0…2dfe64 Dummy {f00=0x0119, 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
0x2dfe64…2dfff8 Dummy {f00=0x0119, 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
0x2dfff8…2e018c Dummy {f00=0x0119, 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
0x2e018c…2e0320 Dummy {f00=0x0119, 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
0x2e0320…2e04b4 (4, 197) Dummy {f00=0x011a, 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
0x2e04b4…2e0648 Dummy {f00=0x011a, 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
0x2e0648…2e07dc Dummy {f00=0x011a, f01=0x4014, f02=» HNOD x @ x "y b * & 3 >. c " * & c P * & % c ~ * & + 1 8 @ I0 Z0 [0 c * & ]0 _0 a0 c0 e0 g0 i0 k c * &
0x2e07dc…2e0970 Dummy {f00=0x011a, f01=0x0190, f02=» IDENT P:S002 y D 8 8 < @ y " * & 4 4 y @ * & - 4 4 4 y n * & K 4 @ 8 I 6 L0 0 W y * & i C0 W<6 0 W 0 6 y * & 0
0x2e0970…2e0b04 Dummy {f00=0x011a, f01=0x0190, f02=» W 0 : @ + 2 y * & ! I0 ! 3 z * & 2 I W 0 ) _ z N * & ; | 0 ! ? 2 W50 ! z | * & Y A H ( 2 z * & w 4 90 _;0 W 0 z * &
0x2e0b04…2e0c98 Dummy {f00=0x011a, f01=0x0190, f02=» WK0 ) ? 0% ? I z * & H 0 S 0 P 0 Q { . * & + 4 0 C! m! i '0& ( { * & I 1 W{! w 0 1 { * & g H 0 6 0' W 0' { * & W 0' $ 8 2 _
0x2e0c98…2e0e2c Dummy {f00=0x011a, f01=0x0190, f02=» 1 { p * & ! 4! R 6 0' W | * & 0' W 0' $2 _, 4 | < * & 9 6 0'V W 0'V W 0'V | j * & W 4 0 1 4 4 | * & u % L% B! ) : u | * & I ! u* vb
0x2e0e2c…2e0fc0 Dummy {f00=0x011a, f01=0x0190, f02=» W }4 # | ~ * & % v W 4 ) } * & ) | 4 # &! " w 2 } J * & G % u " 3 $ 4 4 4 } x * & e 4 ! u 4 4 0 } * & ! = 6 6 4 K } * &
0x2e0fc0…2e1154 (4, 198) Opaque[0x194]
0x2e1154…2e12e8 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2348, f03=0xffff}
0x2e1154…2e12e8 IdxSect {
0x2e1154…2e12e8 f00 = 0x011a // 0x2e1154 @0x0
0x2e1154…2e12e8 f01 = 0x000c // 0x2e1156 @0x2
0x2e1154…2e12e8 gno = [ // 0x2e1158 @0x4
0x2e1154…2e12e8 [0x00]: C0x011a.0x1.0
0x2e1154…2e12e8 [0x01]: C0x011a.0x2.0
0x2e1154…2e12e8 [0x02]: C0x011a.0x3.0
0x2e1154…2e12e8 [0x03]: C0x011b.0x0.0
0x2e1154…2e12e8 [0x04]: C0x011b.0x1.0
0x2e1154…2e12e8 [0x05]: C0x011b.0x2.0
0x2e1154…2e12e8 ]
0x2e1154…2e12e8 }
0x2e12e8…2e147c Dummy {f00=0x011a, 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**************************************************
0x2e147c…2e1610 Dummy {f00=0x011a, 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
0x2e1610…2e17a4 Dummy {f00=0x011a, 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:
0x2e17a4…2e1938 Dummy {f00=0x011a, 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
0x2e1938…2e1acc Dummy {f00=0x011a, 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
0x2e1acc…2e1c60 Dummy {f00=0x011a, 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
0x2e1c60…2e1df4 (4, 199) Dummy {f00=0x011a, 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*
0x2e1df4…2e1f88 Dummy {f00=0x011a, 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
0x2e1f88…2e211c Dummy {f00=0x011a, 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
0x2e211c…2e22b0 Dummy {f00=0x011a, 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
0x2e22b0…2e2444 Dummy {f00=0x011a, 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
0x2e2444…2e25d8 Dummy {f00=0x011a, 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
0x2e25d8…2e276c Dummy {f00=0x011a, 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
0x2e276c…2e2900 Dummy {f00=0x011a, 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
0x2e2900…2e2a94 (4, 200) Dummy {f00=0x011a, 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)
0x2e2a94…2e2c28 Dummy {f00=0x011a, 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
0x2e2c28…2e2dbc Dummy {f00=0x011a, 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
0x2e2dbc…2e2f50 Dummy {f00=0x011a, 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)
0x2e2f50…2e30e4 Dummy {f00=0x011a, 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*
0x2e30e4…2e3278 Dummy {f00=0x011a, 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
0x2e3278…2e340c Dummy {f00=0x011a, 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
0x2e340c…2e35a0 Dummy {f00=0x011a, 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
0x2e35a0…2e3734 (4, 201) Dummy {f00=0x011b, 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
0x2e3734…2e38c8 Dummy {f00=0x011b, 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
0x2e38c8…2e3a5c Dummy {f00=0x011b, 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
0x2e3a5c…2e3bf0 Dummy {f00=0x011b, 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,
0x2e3bf0…2e3d84 Dummy {f00=0x011b, 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
0x2e3d84…2e3f18 Dummy {f00=0x011b, 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*
0x2e3f18…2e40ac Dummy {f00=0x011b, 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
0x2e40ac…2e4240 Dummy {f00=0x011b, 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
0x2e4240…2e43d4 (4, 202) Dummy {f00=0x011b, 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
0x2e43d4…2e4568 Dummy {f00=0x011b, 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
0x2e4568…2e46fc Dummy {f00=0x011b, 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
0x2e46fc…2e4890 Dummy {f00=0x011b, 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
0x2e4890…2e4a24 Dummy {f00=0x011b, 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 "
0x2e4a24…2e4bb8 Dummy {f00=0x011b, 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*
0x2e4bb8…2e4d4c Dummy {f00=0x011b, 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
0x2e4d4c…2e4ee0 Dummy {f00=0x011b, 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
0x2e4ee0…2e5074 (4, 203) Dummy {f00=0x011b, 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 &
0x2e5074…2e5208 Dummy {f00=0x011b, 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
0x2e5208…2e539c Dummy {f00=0x011b, 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
0x2e539c…2e5530 Dummy {f00=0x011b, 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*
0x2e5530…2e56c4 Dummy {f00=0x011b, 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
0x2e56c4…2e5858 Dummy {f00=0x011b, 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**************
0x2e5858…2e59ec Dummy {f00=0x011b, 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 , *
0x2e59ec…2e5b80 Dummy {f00=0x011b, 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
0x2e5b80…2e5d14 (4, 204) Opaque[0x194]
0x2e5d14…2e5ea8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2378, f03=0xffff}
0x2e5d14…2e5ea8 IdxSect {
0x2e5d14…2e5ea8 f00 = 0x011b // 0x2e5d14 @0x0
0x2e5d14…2e5ea8 f01 = 0x0002 // 0x2e5d16 @0x2
0x2e5d14…2e5ea8 gno = [ // 0x2e5d18 @0x4
0x2e5d14…2e5ea8 [0x00]: C0x011b.0x3.0
0x2e5d14…2e5ea8 ]
0x2e5d14…2e5ea8 }
0x2e5ea8…2e603c Dummy {f00=0x011b, 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
0x2e603c…2e61d0 Dummy {f00=0x011b, f01=0x415e, f02=» l P* P EXTRN FDON LINE PRINTER 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION 2 $ PPFTAB DATA PFTABE-* TABLE LENGTH f P DATA DC15ON P DATA SOPR P* P DATA CHLTON P* P DATA FDON P DATA DMINIT
0x2e61d0…2e6364 Dummy {f00=0x011b, 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
0x2e6364…2e64f8 Dummy {f00=0x011b, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IHTW TYPEWRITER X P EXTRN IHTC CASSETTE TAPE v ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x2e64f8…2e668c Dummy {f00=0x011b, f01=0x0190, f02=»ANGER NO. 1 x ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 @ * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 l * P EXTRN CHLT2 LOCAL CHANNEL UNIT NO. 2 P EXTRN CHLT3 P EXTRN CHLT4 P EXTRN IHFD FLOPPY DISCE
0x2e668c…2e6820 Dummy {f00=0x011b, f01=0x018e, f02=» 2 v P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT ( P EXTRN HALT HALT ROUTINE P P EXTRN BUG DEBUGGER p P EXTRN IHINPT PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD
0x2e6820…2e69b4 (4, 205) Opaque[0x194]
0x2e69b4…2e6b48 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x2380, f03=0x0000}
0x2e69b4…2e6b48 IdxSect {
0x2e69b4…2e6b48 f00 = 0x011c // 0x2e69b4 @0x0
0x2e69b4…2e6b48 f01 = 0x0004 // 0x2e69b6 @0x2
0x2e69b4…2e6b48 gno = [ // 0x2e69b8 @0x4
0x2e69b4…2e6b48 [0x00]: C0x011c.0x0.0
0x2e69b4…2e6b48 [0x01]: C0x011c.0x1.0
0x2e69b4…2e6b48 ]
0x2e69b4…2e6b48 }
0x2e6b48…2e6cdc Dummy {f00=0x011c, 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
0x2e6cdc…2e6e70 Dummy {f00=0x011c, f01=0x018e, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION $ P EXTRN
0x2e6e70…2e7004 Dummy {f00=0x011c, f01=0x0190, f02=» P EXTRN IXTASS " P EXTRN TCHPAG CHANGE MMU PAGE " P EXTRN TCHMMU CHANGE MMU TABLE @ P EJECT f P* t $ PLKMAL DATA LKMALE-* TABLE LENGTH ~ P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P
0x2e7004…2e7198 Dummy {f00=0x011c, f01=0x018e, f02=» $ P DATA TLUSEG LOCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x2e7198…2e732c Dummy {f00=0x011c, f01=0x4036, f02=» p PLKMALE EQU * P* P END &@ 2EG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x2e732c…2e74c0 Dummy {f00=0x011c, 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
0x2e74c0…2e7654 (4, 206) Dummy {f00=0x011c, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x2e7654…2e77e8 Dummy {f00=0x011c, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x2e77e8…2e797c Dummy {f00=0x011c, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x2e797c…2e7b10 Dummy {f00=0x011c, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x2e7b10…2e7ca4 Dummy {f00=0x011c, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x2e7ca4…2e7e38 Dummy {f00=0x011c, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x2e7e38…2e7fcc Dummy {f00=0x011c, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x2e7fcc…2e8160 Dummy {f00=0x011c, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 0 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x2e8160…2e82f4 (4, 207) Opaque[0x194]
0x2e82f4…2e8488 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2390, f03=0x0000}
0x2e82f4…2e8488 IdxSect {
0x2e82f4…2e8488 f00 = 0x011c // 0x2e82f4 @0x0
0x2e82f4…2e8488 f01 = 0x0002 // 0x2e82f6 @0x2
0x2e82f4…2e8488 gno = [ // 0x2e82f8 @0x4
0x2e82f4…2e8488 [0x00]: C0x011c.0x2.0
0x2e82f4…2e8488 ]
0x2e82f4…2e8488 }
0x2e8488…2e861c Dummy {f00=0x011c, 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
0x2e861c…2e87b0 Dummy {f00=0x011c, 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
0x2e87b0…2e8944 Dummy {f00=0x011c, 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 @
0x2e8944…2e8ad8 Dummy {f00=0x011c, 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
0x2e8ad8…2e8c6c Dummy {f00=0x011c, 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
0x2e8c6c…2e8e00 Dummy {f00=0x011c, 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
0x2e8e00…2e8f94 (4, 208) Opaque[0x194]
0x2e8f94…2e9128 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2398, f03=0x0000}
0x2e8f94…2e9128 IdxSect {
0x2e8f94…2e9128 f00 = 0x011c // 0x2e8f94 @0x0
0x2e8f94…2e9128 f01 = 0x0002 // 0x2e8f96 @0x2
0x2e8f94…2e9128 gno = [ // 0x2e8f98 @0x4
0x2e8f94…2e9128 [0x00]: C0x011c.0x3.0
0x2e8f94…2e9128 ]
0x2e8f94…2e9128 }
0x2e9128…2e92bc Dummy {f00=0x011c, 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
0x2e92bc…2e9450 Dummy {f00=0x011c, 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
0x2e9450…2e95e4 Dummy {f00=0x011c, 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
0x2e95e4…2e9778 Dummy {f00=0x011c, f01=0x40de, f02=»0,0,0 P IFT MMUPAG=1 PDEVECB EQU * $ P DATA 0,0,0,0,0,0 8 P DATA 0,0,0,0,0,0,0,0 R P DATA 0,0,0,0,0,0,0,0 p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ IRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x2e9778…2e990c Dummy {f00=0x011c, 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
0x2e990c…2e9aa0 Dummy {f00=0x011c, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x2e9aa0…2e9c34 (4, 209) Opaque[0x194]
0x2e9c34…2e9dc8 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23a0, f03=0x0000}
0x2e9c34…2e9dc8 IdxSect {
0x2e9c34…2e9dc8 f00 = 0x011d // 0x2e9c34 @0x0
0x2e9c34…2e9dc8 f01 = 0x0002 // 0x2e9c36 @0x2
0x2e9c34…2e9dc8 gno = [ // 0x2e9c38 @0x4
0x2e9c34…2e9dc8 [0x00]: C0x011d.0x0.0
0x2e9c34…2e9dc8 ]
0x2e9c34…2e9dc8 }
0x2e9dc8…2e9f5c Dummy {f00=0x011d, f01=0x0190, f02=» 0 P IDENT DVTTP REL 9.2 79-11-16 870105040920 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x2e9f5c…2ea0f0 Dummy {f00=0x011d, f01=0x0190, f02=»ATA 0 ECB ADDRESS P DATA DWTEND-DVTTP ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK : P DATA 'TP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x2ea0f0…2ea284 Dummy {f00=0x011d, f01=0x40ec, f02=»ATA 0,0,0,0 STACK P DATA 0 TIMER POINTER ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER 8 P IFT MMUPAG=1 d PDEVECB EQU * z P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ VE AREA USER ECB ADDRESS
0x2ea284…2ea418 Dummy {f00=0x011d, 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
0x2ea418…2ea5ac Dummy {f00=0x011d, f01=0x0190, f02=»EQUEST ERROR + P SUK A2,18 , P ABL(P) FD:DIS REQUEST ERROR , & P ADK A2,25 , J P SLL A2,3 BIO , P LDK A3,80 LENGTH , r P LDKL A4,BUF , P CF A5,FD:REA , P LDR A1,A3 RETURN CODE , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 N
0x2ea5ac…2ea740 Dummy {f00=0x011d, f01=0x0190, f02=»,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS - " P CF A5,STDWT SAVE IN DWT - 8 P ADK A4,BOE BOE ADDRESS - X . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - x P LDK A1,DWTBOE - $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - P LDK A1,DW
0x2ea740…2ea8d4 (4, 210) Opaque[0x194]
0x2ea8d4…2eaa68 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23a8, f03=0x0000}
0x2ea8d4…2eaa68 IdxSect {
0x2ea8d4…2eaa68 f00 = 0x011d // 0x2ea8d4 @0x0
0x2ea8d4…2eaa68 f01 = 0x0002 // 0x2ea8d6 @0x2
0x2ea8d4…2eaa68 gno = [ // 0x2ea8d8 @0x4
0x2ea8d4…2eaa68 [0x00]: C0x011d.0x1.0
0x2ea8d4…2eaa68 ]
0x2ea8d4…2eaa68 }
0x2eaa68…2eabfc Dummy {f00=0x011d, 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
0x2eabfc…2ead90 Dummy {f00=0x011d, 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
0x2ead90…2eaf24 Dummy {f00=0x011d, 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
0x2eaf24…2eb0b8 Dummy {f00=0x011d, 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
0x2eb0b8…2eb24c Dummy {f00=0x011d, 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
0x2eb24c…2eb3e0 Dummy {f00=0x011d, 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*******************
0x2eb3e0…2eb574 (4, 211) Opaque[0x194]
0x2eb574…2eb708 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23b0, f03=0x0000}
0x2eb574…2eb708 IdxSect {
0x2eb574…2eb708 f00 = 0x011d // 0x2eb574 @0x0
0x2eb574…2eb708 f01 = 0x0002 // 0x2eb576 @0x2
0x2eb574…2eb708 gno = [ // 0x2eb578 @0x4
0x2eb574…2eb708 [0x00]: C0x011d.0x2.0
0x2eb574…2eb708 ]
0x2eb574…2eb708 }
0x2eb708…2eb89c Dummy {f00=0x011d, f01=0x0190, f02=» 0 P IDENT DVTDI REL 9.2 79-11-16 870105040920 P 8 P =1,HANG UP AT /03 OUTPUT @ P REL 9.1 79-05-23 d P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P*
0x2eb89c…2eba30 Dummy {f00=0x011d, f01=0x0190, f02=»METER x 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS B P DATA DWTEND-DVTDI ORDER ^ ( P DATA DIAD POINTER TO ADDRESS-BLOCK ~ 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x2eba30…2ebbc4 Dummy {f00=0x011d, f01=0x415e, f02=» | P DATA /2010 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS 6 P DATA 0 TIMER POINTER d P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DATA 0,
0x2ebbc4…2ebd58 Dummy {f00=0x011d, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x2ebd58…2ebeec Dummy {f00=0x011d, f01=0x018e, f02=» P LDKL A1,/C000 WORDS,WRITE < P XIF < & P IFT CHAN=1 < 2 ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < F P XIF < r P RF FD:800 < ~ P* < PFD:REA EQU * < P IFT CHAN=1 < P LDK A1,1 < P ST A1,DWTRW,A6 READ MODE < P XIF < P IFT C
0x2ebeec…2ec080 Dummy {f00=0x011d, f01=0x0190, f02=» P* = P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = $ * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = N P XIF = | P* = P IFT CHAN=0 = P ORR A3,A1 = PWER1 WER A3,MUXADR FIRST WER = $ PWER2 WER A4,MUXADR+1 SECOND WER = P XIF
0x2ec080…2ec214 (4, 212) Opaque[0x194]
0x2ec214…2ec3a8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23b8, f03=0x0000}
0x2ec214…2ec3a8 IdxSect {
0x2ec214…2ec3a8 f00 = 0x011d // 0x2ec214 @0x0
0x2ec214…2ec3a8 f01 = 0x0002 // 0x2ec216 @0x2
0x2ec214…2ec3a8 gno = [ // 0x2ec218 @0x4
0x2ec214…2ec3a8 [0x00]: C0x011d.0x3.0
0x2ec214…2ec3a8 ]
0x2ec214…2ec3a8 }
0x2ec3a8…2ec53c Dummy {f00=0x011d, 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
0x2ec53c…2ec6d0 Dummy {f00=0x011d, 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
0x2ec6d0…2ec864 Dummy {f00=0x011d, 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
0x2ec864…2ec9f8 Dummy {f00=0x011d, 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
0x2ec9f8…2ecb8c Dummy {f00=0x011d, 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* *
0x2ecb8c…2ecd20 Dummy {f00=0x011d, 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
0x2ecd20…2eceb4 (4, 213) Opaque[0x194]
0x2eceb4…2ed048 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23c0, f03=0x0000}
0x2eceb4…2ed048 IdxSect {
0x2eceb4…2ed048 f00 = 0x011e // 0x2eceb4 @0x0
0x2eceb4…2ed048 f01 = 0x0002 // 0x2eceb6 @0x2
0x2eceb4…2ed048 gno = [ // 0x2eceb8 @0x4
0x2eceb4…2ed048 [0x00]: C0x011e.0x0.0
0x2eceb4…2ed048 ]
0x2eceb4…2ed048 }
0x2ed048…2ed1dc Dummy {f00=0x011e, 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
0x2ed1dc…2ed370 Dummy {f00=0x011e, 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
0x2ed370…2ed504 Dummy {f00=0x011e, 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
0x2ed504…2ed698 Dummy {f00=0x011e, 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
0x2ed698…2ed82c Dummy {f00=0x011e, 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 =
0x2ed82c…2ed9c0 Dummy {f00=0x011e, 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**
0x2ed9c0…2edb54 (4, 214) Opaque[0x194]
0x2edb54…2edce8 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23c8, f03=0x0000}
0x2edb54…2edce8 IdxSect {
0x2edb54…2edce8 f00 = 0x011e // 0x2edb54 @0x0
0x2edb54…2edce8 f01 = 0x0002 // 0x2edb56 @0x2
0x2edb54…2edce8 gno = [ // 0x2edb58 @0x4
0x2edb54…2edce8 [0x00]: C0x011e.0x1.0
0x2edb54…2edce8 ]
0x2edb54…2edce8 }
0x2edce8…2ede7c Dummy {f00=0x011e, 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
0x2ede7c…2ee010 Dummy {f00=0x011e, 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
0x2ee010…2ee1a4 Dummy {f00=0x011e, 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
0x2ee1a4…2ee338 Dummy {f00=0x011e, 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
0x2ee338…2ee4cc Dummy {f00=0x011e, 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
0x2ee4cc…2ee660 Dummy {f00=0x011e, 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
0x2ee660…2ee7f4 (4, 215) Opaque[0x194]
0x2ee7f4…2ee988 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3100, f03=0x0000}
0x2ee7f4…2ee988 IdxSect {
0x2ee7f4…2ee988 f00 = 0x0188 // 0x2ee7f4 @0x0
0x2ee7f4…2ee988 f01 = 0x0002 // 0x2ee7f6 @0x2
0x2ee7f4…2ee988 gno = [ // 0x2ee7f8 @0x4
0x2ee7f4…2ee988 [0x00]: C0x0188.0x0.0
0x2ee7f4…2ee988 ]
0x2ee7f4…2ee988 }
0x2ee988…2eeb1c Dummy {f00=0x0188, f01=0x0190, f02=» 2 P IDENT DW1501 9.2DK 1 81-11-05 870105040920 P DK1 EXTRA DWTINF : P ORG: REL 9.2 79-11-16 V P v P* ~ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER
0x2eeb1c…2eecb0 Dummy {f00=0x0188, f01=0x0190, f02=»/8000 STATUS./8000 MEANS DEVICE READY P DATA 0 ECB-ADDRESS . P DATA DWTEND-DW1501 J P RIGHT BYTE=ORDER f * P DATA DC15AD POINTER TO ADDRESS-BLOCK P DATA 'DC' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL
0x2eecb0…2eee44 Dummy {f00=0x0188, f01=0x418c, f02=» DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE : P DATA 0 RECEIVE QUEUE V P DATA 0 BUFFER ADDRESS t P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE " P DATA 0 DEVICE INFORMATION DK1 P* P I
0x2eee44…2eefd8 Dummy {f00=0x0188, 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*
0x2eefd8…2ef16c Dummy {f00=0x0188, f01=0x40e4, f02=» : H IDENT T:DTC0 TRA 4.2 81-03-20 F1 O1111 04.01.XXX.1 T:DTC0 B T:DTC0D T REENTC REGGO h * & TC * " * @ " $ ,
0x2ef16c…2ef300 Dummy {f00=0x0188, f01=0x018e, f02=» : H IDENT T:AKA0 TRA 4.2 81-03-20 F1 O1111 04.01.XXX.1 T:AKA0 B T:AKA0A T . * T:DKA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & @ * & P * & =
0x2ef300…2ef494 (4, 216) Opaque[0x194]
0x2ef494…2ef628 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23d8, f03=0x0000}
0x2ef494…2ef628 IdxSect {
0x2ef494…2ef628 f00 = 0x011e // 0x2ef494 @0x0
0x2ef494…2ef628 f01 = 0x0010 // 0x2ef496 @0x2
0x2ef494…2ef628 gno = [ // 0x2ef498 @0x4
0x2ef494…2ef628 [0x00]: C0x011e.0x3.0
0x2ef494…2ef628 [0x01]: C0x011f.0x0.0
0x2ef494…2ef628 [0x02]: C0x011f.0x1.0
0x2ef494…2ef628 [0x03]: C0x011f.0x2.0
0x2ef494…2ef628 [0x04]: C0x011f.0x3.0
0x2ef494…2ef628 [0x05]: C0x0120.0x0.0
0x2ef494…2ef628 [0x06]: C0x0120.0x1.0
0x2ef494…2ef628 [0x07]: C0x0120.0x2.0
0x2ef494…2ef628 ]
0x2ef494…2ef628 }
0x2ef628…2ef7bc Dummy {f00=0x011e, 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
0x2ef7bc…2ef950 Dummy {f00=0x011e, 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
0x2ef950…2efae4 Dummy {f00=0x011e, 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
0x2efae4…2efc78 Dummy {f00=0x011e, 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
0x2efc78…2efe0c Dummy {f00=0x011e, 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
0x2efe0c…2effa0 Dummy {f00=0x011e, 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
0x2effa0…2f0134 (4, 217) Dummy {f00=0x011f, 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
0x2f0134…2f02c8 Dummy {f00=0x011f, 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
0x2f02c8…2f045c Dummy {f00=0x011f, 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
0x2f045c…2f05f0 Dummy {f00=0x011f, 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
0x2f05f0…2f0784 Dummy {f00=0x011f, 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 40 NUMBER OF BYTES IN DECIMAL F
0x2f0784…2f0918 Dummy {f00=0x011f, f01=0x018e, f02=» P* P* , P**************************************** , P* CONDITIONAL ASSEMBLY * L , P**************************************** | P* . P* TIME OUT FUNCTION MAY BE EXCLUDED BY P* SETTING X:A = 0. P*
0x2f0918…2f0aac Dummy {f00=0x011f, f01=0x0190, f02=» PX:B EQU 1 PCECHO EQU 1 P* . > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION 8 & P* IS INCLUDED IN THE DRIVER. z < P* IF THERE IS A READ REQUEST THIS IS COMPLETED WITH , P* ZERO IN THE CONTROL WORD OF E
0x2f0aac…2f0c40 Dummy {f00=0x011f, f01=0x0190, f02=»WORD X P* OF ECB P* " P* , PX:E EQU 0 6 PPOWOFF EQU 1 H P* P* f P* p N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72 z PX:H EQU 0 PNSHIFT EQU 1 P* P* B P*
0x2f0c40…2f0dd4 (4, 218) Dummy {f00=0x011f, f01=0x018e, f02=»M VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. ( P* V PMMUPAG EQU 1 ` P* t P* ~ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU
0x2f0dd4…2f0f68 Dummy {f00=0x011f, f01=0x0190, f02=» P* MMU KEY TABLE SIZE P* " P* , PX:K EQU 10 6 PDVBKTB EQU 40 H P* ^ P EJECT h P* v P* P* DWT-DISPLACEMENT P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0
0x2f0f68…2f10fc Dummy {f00=0x011f, f01=0x0190, f02=»TART+/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 ^ & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE P* ( P* SPECIA
0x2f10fc…2f1290 Dummy {f00=0x011f, f01=0x018e, f02=»ARACTER t . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER PKBMZ3 EQU START+/16 B P* ^ P EJECT h P* TABLES v P* P* $ P DATA DVBKTB MMU KEY TABLE SIZE P DATA DVBLEN MMU BUFFER SIZE P DATA 6 DEVICE INDEX P
0x2f1290…2f1424 Dummy {f00=0x011f, f01=0x0190, f02=» r P IFT POWOFF=1 P DATA RCKB RECOVERY ROUTINE P XIF B P IFT POWOFF=0 N P DATA 0 NO RECOVERY d P XIF P* P IFT POWOFF=1 P EJECT P* RCKB P* P* RECOVERY PART P* P* PRCKB
0x2f1424…2f15b8 Dummy {f00=0x011f, f01=0x0190, f02=» " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF . P* : P IFT POWOFF=1 D P LD A3,DWTST,A6 BUSY? Z P RF(NN) RCKB10 x P LDKL A1,/200 ( P ORS A1,DWTST,A6 INDICATE POWER OFF P ABL TDISP & PRCKB10 CF A5,LDREGE LOAD REGISTERS
0x2f15b8…2f174c Dummy {f00=0x011f, f01=0x0190, f02=»Y OF ORDERS AND j P* @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER " P* f P* TO THREAT p P* P* P* P* PACKB EQU * P LDKL A1,/FEFF 2 P ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG
0x2f174c…2f18e0 Dummy {f00=0x011f, f01=0x0190, f02=»N) AKB200 ORDER 1,2 OR 3 P SUK A4,/2D P RF(Z) AKB110 ORDER 31 4 * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR R P ABL ENDI10 P EJECT P* P* P* & P* ORDER 31 RESET INPUT BUFFER P* P* P* P
0x2f18e0…2f1a74 (4, 219) Dummy {f00=0x011f, f01=0x0190, f02=»JECT P* P* P* ORDER 1,2,3 P* : P* D P* N PAKB200 EQU * X P IFT POWOFF=1 l P LD A2,DWTST,A6 P ANKL A2,/200 POWER OFF? P RF(E) AKB205 NO! ( P XRS A2,DWTST,A6 RESET POWER OFF BIT PAKB202 E
0x2f1a74…2f1c08 Dummy {f00=0x011f, f01=0x0190, f02=»B218 P XIF PAKB205 EQU * P IFT CTIMUT=1 , P LDR* A1,A6 B P ANK A1,/40 TIMING? V , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! r , P LD A4,DWTTP,A6 CHECK IF ALREADY TIMING P RF(E) AKBTIM P LDKL A4,-TIME P ST* A4,DW
0x2f1c08…2f1d9c Dummy {f00=0x011f, f01=0x0190, f02=» P CF A15,SETIMP SET TIME 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME $ . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT X P XIF P* P EJECT P* IF ANY KEY-LOCK: P* : P* RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHA
0x2f1d9c…2f1f30 Dummy {f00=0x011f, f01=0x0190, f02=»* AND END I/O. ELSE CONTINUE. P* * P* 4 PAKB210 EQU * > " P LD A2,DWTST,A6 ANY KEY-LOCK? R P ANK A2,/F x 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) AKB
0x2f1f30…2f20c4 Dummy {f00=0x011f, f01=0x0190, f02=» P SLL A4,4 P AN A4,DWTST,A6 P STR A4,A15 SAVE A4 . P STR A3,A15 J P SRN A2,A3 ORDER 1 ^ " P ADR A3,A3 MAKE CHARACTER FLAG x P LDR A4,A4 P RF(NE) AKB213 P ADK A3,1 PAKB213 ADK A3,/70 P LDR A2,A3 P L
0x2f20c4…2f2258 Dummy {f00=0x011f, f01=0x0190, f02=»BASIC READ z " PAKB214 NGR A2,A1 MAKE ECB CODE P LDR A4,A4 KEY FLAG 8 P RF(E) AKB215 T P SUK A2,4 j , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB | PAKB218 ABL AKB380 ( PAKB219 LD A2,4,A8 REQUESTED LENGTH=0 PAKB220 ABL(E) AKB380
0x2f2258…2f23ec Dummy {f00=0x011f, f01=0x0190, f02=» & PAKB230 SCR A3,A1 CLEAR ECB BUFFER P SUK A1,1 . P SUK A2,1 @ P RB(NE) AKB230 R PAKB240 EQU * h P LD A1,DWTUTQ,A6 | P LCR A2,A1 PAKB245 LDR A4,A2 P XRK A4,/FF OVERFLOW? P RF(NE) AKB250 N0! PAKB247 SCR A4,A1 Y
0x2f23ec…2f2580 Dummy {f00=0x011f, f01=0x0190, f02=»55 " P CF A5,STREG NOTHING IN QUEUE P IFT CTIMUT=1 2 * P LDR A1,A1 CHECK TIME OUT RETURN CODE H P RF(Z) AKB257 NO TIME OUT v $ P ABL ENDI05 END I/O AT TIME OUT P XIF P IFT CTIMUT=0 P RF AKB257 P XIF * PAKB255 C
0x2f2580…2f2714 (4, 220) Dummy {f00=0x011f, f01=0x0190, f02=» RF(NN) AKB310 ORDER 2 OR 3 P EJECT $ P* 2 P* < P* ORDER 1 BASIC READ F P* f P* p P* z 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
0x2f2714…2f28a8 Dummy {f00=0x011f, f01=0x0190, f02=» P EJECT P* P* P* * 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ 4 P* l B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) v P* P* P* P* PAKB310 EQU * " P LD A1,10,A8 KEY
0x2f28a8…2f2a3c Dummy {f00=0x011f, f01=0x018e, f02=»ACE IN KEY-TABLE ~ P ADK A1,1 PAKB355 SUK A4,1 * , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE B P SUK A1,1 NEXT KEY r 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,
0x2f2a3c…2f2bd0 Dummy {f00=0x011f, f01=0x0190, f02=» P RF AKB380 ! PAKB360 EQU * ! P LDR A4,A2 ! . P CC A4,KBMZ2,A6 ! @ P RF(E) KBMZ20 ! X P CC A4,KBMZ3,A6 ! n 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 ST
0x2f2bd0…2f2d64 Dummy {f00=0x011f, f01=0x0190, f02=»4,/5F CHARACTER > /7F ! P RF(P) AKB364 YES " P CWK A7,2 " 8 $ P RF(E) AKB366 STANDARD READ OK " J P ADK A4,/4F " r P RF(N) AKB364 " P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ OK " PAKB364 LDK A1,4 ERROR CODE " P RF ENDIO " P
0x2f2d64…2f2ef8 Dummy {f00=0x011f, f01=0x0190, f02=»BL(L) AKB210 NO RETURN " & PAKB368 LDK A1,8 YES SET ERROR CODE # P RF ENDIO END I/O # H P EJECT # b PKBMZ30 EQU * TRIPPLE ZERO # p P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DOUBLE ZERO # PKBMZ25 LDK A2,/30 # P SUK A4,1 # P R
0x2f2ef8…2f308c Dummy {f00=0x011f, f01=0x0190, f02=»,4,A8 # P RB(L) KBMZ25 $ PKBMZ27 EQU * $ $ P SUK A4,1 ANY MORE ZEROES $ 8 $ P RB(L) AKB368 NO,SET RETURN CODE $ Z P INH $ * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6 $ " P CWK A1,DWTSQ FIRST POSITION ? $ P RF(NE) KBMZ29 NO $
0x2f308c…2f3220 Dummy {f00=0x011f, f01=0x0190, f02=» POINTER POSITION $ t P SUK A1,1 % , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % , P RF(E) KBMZ90 NO NOT REALY. % 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % & P LDK A2,/30 STORE ZERO IN CIRKULAR % P SCR A2,A1 INPUT BUFFER % P RB KBMZ27
0x2f3220…2f33b4 (4, 221) Dummy {f00=0x0120, f01=0x0190, f02=»1,/A SET RETURN CODE FOR BOTH % . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & & P* & X P* & b P* & l PKBCL10 EQU * CLEAR & v P LDK A3,0 & P LDK A2,/18 & P RB AKB366 & P* & P* & P* & PKBSP10 EQU * & P LDR A3,A3 &
0x2f33b4…2f3548 Dummy {f00=0x0120, f01=0x0190, f02=»15 LDK A2,/8 & P RB AKB366 ' P* ' & P* ' 0 PAKB380 LDK A1,0 RETURN CODE ' : P EJECT ' ^ P* ' l P* ' v , P* THIS IS A COMMON END OF THE DRIVER ' P* ' 2 P* SET EFFECTIVE LENGTH AND PERFORM END I/O ' $ P* ON KEYBOARD AND ECH
0x2f3548…2f36dc Dummy {f00=0x0120, f01=0x0190, f02=»5 NO TIMING ON THIS DEVICE ' P CM* DWTTP,A6 RESET TIMER ( " P CM DWTTP,A6 ( D P XIF ( X P* ( d , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( n PENDI10 EQU * ( P* ( P IFT CECHO=1 ( P LDR A4,A1 SAVE A1 ( ( P CF A5,ECHEND END I/O ON ECHO
0x2f36dc…2f3870 Dummy {f00=0x0120, f01=0x0190, f02=»IHKB ( P* ) P* ) F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) P* ) j P* ) t P* ) ~ PIHKB EQU * ) P ANK A2,/FF ) * P CF A15,KONVER CONVERT INPUT CHARACTER ) P LDR A4,A4 TEST TYPE OF CHAR ) P RF(P) E
0x2f3870…2f3a04 Dummy {f00=0x0120, f01=0x0190, f02=» ) P RF(Z) EXIT * P LD A3,DWTST,A6 I/O REQUEST? * P XIF * @ * P RF(N) IHKB15 NO READ REQUEST PENDING * L " P SLL A3,7 INTERRUPT ALLOWED ? * z 4 P RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER * P IFT CTIMUT=1 * P LD A3,DWTTP,A6 * * P R
0x2f3a04…2f3b98 Dummy {f00=0x0120, f01=0x0190, f02=»URN TO READ ROUTINE * | , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + P LDR A3,A3 + L P RF(Z) EXIT NO KEY CHANGE + ^ P LD A3,DWTST,A6 + ( P RF(N) EXIT NO READ REQUEST PENDING + P SLL A3,7 + & P RF(NN) EXIT INERRUPT NOT ALLOWED + ( P LD A3,D
0x2f3b98…2f3d2c Dummy {f00=0x0120, f01=0x0190, f02=» LCR A4,A1 + " P XRK A4,/FF ALREADY OVERFLOW? , P RF(E) EXIT YES , 8 P LDR A3,A1 , P 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , b P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY , 0 P ORK A2,/FF SET OVERFLOWBIT IN I
0x2f3d2c…2f3ec0 Dummy {f00=0x0120, f01=0x0190, f02=»* , P EJECT - P* - P* - " P* - , P* AKBTUT - 6 P* - J & P* THIS IS THE TIME-OUT ROUTINE - T P* - ~ P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - " P LDR A6,A1 RESTART DWT-ADDRESS - P LDK A1,/40 SET RETURNE CODE
0x2f3ec0…2f4054 (4, 222) Dummy {f00=0x0120, f01=0x0190, f02=»O - j P XIF . P EJECT . P* . $ P* . . P* . 8 P* . B P* KEYSET . L P* . ` P* . j P* . t , P* ON ENTRY: A4= NEG KEY-LOCK VALUE . ~ P* . @ P* ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS . P* . P*
0x2f4054…2f41e8 Dummy {f00=0x0120, f01=0x018e, f02=»=OFF 0=ON . ~ P RB(N) SET100 / $ P ANR A3,A2 CHEC OLD KEY POSITION / ( " P RF(NZ) SET300 JUMP IF KEY ON / P P LDR A4,A4 / v P RF(NZ) SET500 / P RF SET400 / PSET300 LDR A4,A4 / P RF(Z) SET500 / PSET400 LD A3,DWTST,A6 / P XRR A3,A2 /
0x2f41e8…2f437c Dummy {f00=0x0120, f01=0x0190, f02=» P RTN A15 0 P EJECT 0 P* 0 " P* 0 , P* 0 6 P* KONVER 0 @ P* 0 T * P* KONVER CONVERTS INPUT CHARACTER 0 ^ P* 0 P* 0 ( P* ON ENTRY: A2= INPUT CHARACTER 0 P* 0 P* 0 * P* ON EXIT: A2=COVERTED CHARACTER 0
0x2f437c…2f4510 Dummy {f00=0x0120, f01=0x0190, f02=»* 0 PKONVER EQU * 1 P LDR A4,A2 1 P IFT NSHIFT=0 1 0 P SUK A4,/7C CODE > /7B 1 F P RF(NN) KON500 YES 1 d 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 A4,/2
0x2f4510…2f46a4 Dummy {f00=0x0120, f01=0x0190, f02=»KON110 NO 1 P SUK A2,/40 YES 2 PKON105 EQU * 2 * P ANK A5,/10 2 > P SRL A5,3 2 R P RF KON200 2 d * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 v P RF(N) KON400 KEY-LOCK 2 P RF(Z) KON140 SHIFT ON 2 P SUK A4,2 2 P RF(N) KON160 SHIFT OF
0x2f46a4…2f4838 Dummy {f00=0x0120, f01=0x0190, f02=»CAL SHIFT ON 2 | " P RF KON160 NUMERICAL SHIFT OFF 3 P XIF 3 : PKON125 EQU * 3 F P LDKL A2,/FFDF UNCTRL 3 Z PKON120 ANR A5,A2 3 x 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
0x2f4838…2f49cc Dummy {f00=0x0120, f01=0x0190, f02=» 3 P LDK A2,/10 SHIFT 4 PKON150 ORR A5,A2 4 " P RB KON130 4 : PKON160 EQU * 4 L P IFT NSHIFT=1 4 ` P LDR A4,A5 4 v 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
0x2f49cc…2f4b60 Dummy {f00=0x0120, f01=0x0190, f02=»/30 4 P SRL A5,3 5 P ADK A5,4 5 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 0 P ADR A4,A5 5 l 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 FROM TA
0x2f4b60…2f4cf4 (4, 223) Dummy {f00=0x0120, f01=0x0190, f02=» RB KON300 5 P IFT NSHIFT=0 6 PKON500 EQU * 6 ( P LDR A4,A4 KEY CODE /7C 6 < P RF(Z) KON600 YES 6 & P LDK A4,1 INDICATE SKIP CHARACTER 6 v P RTN A15 6 PKON600 EQU * 6 P SUR A2,A2 6 P RB KONVER DO START AGAIN 6 P XIF 6 P EJE
0x2f4cf4…2f4e88 Dummy {f00=0x0120, f01=0x0190, f02=» 6 P* ON ENTRY: 7 P* 7 P* A2 = CHARACTER TO STORE 7 ( P* A3 = BUFFER INDEX 7 L P* 7 j P* 7 t PSTORE EQU * 7 ~ 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
0x2f4e88…2f501c Dummy {f00=0x0120, f01=0x0190, f02=»TINE TO GET NEXT QUEUE POINTER 7 | P* 8 & P* ON ENTRY: 8 0 P* 8 F P* A1 = QUEUE POINTER 8 P P* A6 = DWT-ADDRESS 8 p P* 8 P* ON EXIT: 8 P* 8 P* A1 = NEW QUEUE POINTER 8 PEOQUEU EQU * 8 P ADK A1,1 8 P SUR A
0x2f501c…2f51b0 Dummy {f00=0x0120, f01=0x4026, f02=» P RB STORTN 9 P END 9 @ 9 "* 8 & P* ON ENTRY: 8 0 P* 8 F P* A1 = QUEUE POINTER 8 P P* A6 = DWT-ADDRESS 8 p P* 8 P* ON EXIT: 8 P* 8 P* A1 = NEW QUEUE POINTER 8 PEOQUEU EQU * 8 P ADK A1,1 8 P SUR A
0x2f51b0…2f5344 Dummy {f00=0x0120, 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
0x2f5344…2f54d8 Dummy {f00=0x0120, 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
0x2f54d8…2f566c Dummy {f00=0x0120, 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
0x2f566c…2f5800 Dummy {f00=0x0120, 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
0x2f5800…2f5994 (4, 224) Opaque[0x194]
0x2f5994…2f5b28 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2418, f03=0x0000}
0x2f5994…2f5b28 IdxSect {
0x2f5994…2f5b28 f00 = 0x0120 // 0x2f5994 @0x0
0x2f5994…2f5b28 f01 = 0x0012 // 0x2f5996 @0x2
0x2f5994…2f5b28 gno = [ // 0x2f5998 @0x4
0x2f5994…2f5b28 [0x00]: C0x0120.0x3.0
0x2f5994…2f5b28 [0x01]: C0x0121.0x0.0
0x2f5994…2f5b28 [0x02]: C0x0121.0x1.0
0x2f5994…2f5b28 [0x03]: C0x0121.0x2.0
0x2f5994…2f5b28 [0x04]: C0x0121.0x3.0
0x2f5994…2f5b28 [0x05]: C0x0122.0x0.0
0x2f5994…2f5b28 [0x06]: C0x0122.0x1.0
0x2f5994…2f5b28 [0x07]: C0x0122.0x2.0
0x2f5994…2f5b28 [0x08]: C0x0122.0x3.0
0x2f5994…2f5b28 ]
0x2f5994…2f5b28 }
0x2f5b28…2f5cbc Dummy {f00=0x0120, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 9.2 79-11-16 870105040920 P : P =4,CUT AND PERF CORRECTED B P REL 9.1 79-05-23 f P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06 & P =1-3,GEN UPDATE TO 8.2+ STATUS P
0x2f5cbc…2f5e50 Dummy {f00=0x0120, f01=0x0190, f02=» REL 8.2 79-03-16 P =1,IMPRROV. OF TEST ORDER P REL 8.2 78-09-15 @ < P******************************************************* < P* * < P* PHILIPS TERMINAL SYSTEM PTS
0x2f5e50…2f5fe4 Dummy {f00=0x0120, f01=0x0190, f02=» * < P* * < P* * L P* P* P* < P* * < P******************************
0x2f5fe4…2f6178 Dummy {f00=0x0120, f01=0x0190, f02=» TO CPU VIA CHLT OR CHRT v P* P* * 4 P* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: 4 P* l $ P* A C T P : ACTIVATION PART v P* & P* I H T P : INTERRUPT HANDLER P* $ P* R C T P : RECOVERY ROUTINE P*
0x2f6178…2f630c Dummy {f00=0x0120, f01=0x0190, f02=» SEND THEM P* 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL P* V D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST ` $ P* CHARACTER IN OUTPUT BUFFER P* . P* G R A S P : SEND GRASP TO VOUCHER
0x2f630c…2f64a0 Dummy {f00=0x0120, f01=0x0190, f02=» P* $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE 6 0 P* ORDER 0B : POSITION LIFT AND WRITE X $ P* ORDER 22 : CUT JOURNAL * P* ORDER 26 : PERFORATE JOURNAL . P* ORDER 37 : GRASP VOUCHER/PASS
0x2f64a0…2f6634 (4, 225) Dummy {f00=0x0121, f01=0x0190, f02=»BIT 0 : REQUEST ERROR 4 P* BIT 8 : RECOVERY EXECUTED ON REQUEST & 8 P* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT ^ ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE P* P* P*
0x2f6634…2f67c8 Dummy {f00=0x0121, f01=0x0190, f02=» A3: BUFFER POINTER $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER D P* A6: DWT-ADDRESS j P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* P* P* SYSTEM ADAPT
0x2f67c8…2f695c Dummy {f00=0x0121, f01=0x0190, f02=»TURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST 4 P* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) < 0 P* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 t H P* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN P* P* @ P
0x2f695c…2f6af0 Dummy {f00=0x0121, f01=0x018e, f02=» P* P EJECT P* P*********** * P* ENTRIES * > P*********** R P* f P* p P ENTRY TPAD ADDRESS BLOCK z P* P* P* P************* P* EXTERNALS * P************* P* P*
0x2f6af0…2f6c84 Dummy {f00=0x0121, f01=0x0190, f02=» P EXTRN TENDIO END I/O & P EXTRN OUTPUT OUTPUT ONE CHARACTER " " P EXTRN LDREG RESTORE REGISTERS L 8 P EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT r P EXTRN SAVE8 SAVE REG. A1-A8 P* P EXTRN DWTST STATUS EXTRN DWTBC BYT
0x2f6c84…2f6e18 Dummy {f00=0x0121, f01=0x0190, f02=» P* ECB DISPLACEMENTS P* $ P EXTRN ECBBA BUFFER ADDRESS . " P EXTRN ECBRL REQUESTED LENGTH R " P EXTRN ECBEL EFFECTIVE LENGTH x P EXTRN ECBRC RETURN CODE P EXTRN ECBCW CONTROL WORD P EJECT P************************
0x2f6e18…2f6fac Dummy {f00=0x0121, f01=0x0190, f02=»ODE IS SET b P* BY SETTING X:A = 1 P* 0 P* : PX:A EQU 0 D PRECOV EQU 0 V P* j P* t : P* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY ~ P* SETTING X:B = 1 P* P* PX:B EQU 0 PCUTPER EQU
0x2f6fac…2f7140 Dummy {f00=0x0121, f01=0x0190, f02=»* P* PX:C EQU 0 PCHR13 EQU 0 & P* : P* D PX:D EQU 0 N PCHR14 EQU 0 ` P* t P* ~ 2 P* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF : P* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 P* P*
0x2f7140…2f72d4 (4, 226) Dummy {f00=0x0121, f01=0x0190, f02=»T X < P* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING > P* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET J P* P* PX:F EQU 0 PRELEND EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING
0x2f72d4…2f7468 Dummy {f00=0x0121, f01=0x0190, f02=»ED INSTRUCTION l . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* H PCPU852 EQU 0 R P* f P* p P* MMU BUFFER SIZE z P* P* PX:H EQU 20 PDVBLEN EQU 100 P* P EJECT P* P* P**********
0x2f7468…2f75fc Dummy {f00=0x0121, f01=0x0190, f02=»/20 RETURN CODE. END OF JOURNAL TAPE P* , P* 6 0 PVOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST @ 2 PEOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. t @ PVOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /400 BIT #5 DWTTS
0x2f75fc…2f7790 Dummy {f00=0x0121, f01=0x0190, f02=»UMMY ~ , PREMOT EQU /01 RESET PRINT BUFFER REMOTE * PTAB EQU /11 TABULATION CHAR IN BUFFER < PCR1 EQU /0D CR JOURNAL TAPE j PLF1 EQU /18 LF JOURNAL TAPE . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK PLF2 EQU /19 LF TALLY ROLL $ PLD
0x2f7790…2f7924 Dummy {f00=0x0121, f01=0x0190, f02=»OR INSERTION OF VOUCHER/PASSBOOK ~ ( PREL EQU /1B RELEASE VOUCHER/PASSBOOK ( " PAPH EQU /1D ATTACH PRINT HEAD T " PRPH EQU /1E RETURN PRINT HEAD z 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE P* P* P*********************
0x2f7924…2f7ab8 Dummy {f00=0x0121, f01=0x0190, f02=» P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 6 P* B P IFT MMUPAG=1 L PSTART EQU DWTDRD+4 b P XIF | P* . PDWTRLN EQU START+/12 REQUESTED LINE NUMBER , PDWTALN EQU START+/13 ACTUAL LINE NUMBER P* P EJECT
0x2f7ab8…2f7c4c Dummy {f00=0x0121, f01=0x018e, f02=» IFT CUTPER=0 PBUF2 DATA /0382 STX P XIF 2 P IFT CUTPER=1 > PBUF2 DATA /0482 STX T P XIF p $ P DATA /091D,/2000 CR2,APH,SPACE | & PBUF3 DATA /0382,/091D STX,CR2,APH 4 PBUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2 P*
0x2f7c4c…2f7de0 Dummy {f00=0x0121, f01=0x0190, f02=» P DATA 2 DEVICE INDEX PTPAD EQU * ADDRESS BLOCK P DATA ACTP ACTIVATIONDRIVER @ " P DATA 0 ABORT ROUTINE ADDRESS d P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLESS POINT P*
0x2f7de0…2f7f74 (4, 227) Dummy {f00=0x0121, f01=0x0190, f02=» PLFTAB EQU * , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL P* L P* V P IFT CUTPER=1 ` : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE v P XIF PTPTAB EQU * ORDER TABLE P DATA /0002,/0607,/080D P IFT CUT
0x2f7f74…2f8108 Dummy {f00=0x0121, f01=0x0190, f02=»P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR J P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* < P* GET DWT INDEX: 0=JOURNAL,1=TALLY,2
0x2f8108…2f829c Dummy {f00=0x0121, f01=0x0190, f02=»WTOR+1,A6 SAVE NEW ORDER IN DWT P LDK A4,0 ACTIVATION ( PACT005 LDK A3,TPLEN-1 D 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER b P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL DISIOE ILLEGA
0x2f829c…2f8430 Dummy {f00=0x0121, f01=0x0190, f02=»,A3 EXECUTE ORDER : PTPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 P IFT CUTPER=1 X P DATA TP700,TP750 n P XIF P DATA TP800,TP900 P EJECT =1 P* =1 P* =1 P* ORDER 00: TEST =1 J P*
0x2f8430…2f85c4 Dummy {f00=0x0121, f01=0x0190, f02=»TPTEST LDK A2,STX SEND STX =2 P CF A5,OUTPUT =2 & P LDK A2,/02 SEND CHAR /02 =2 @ P CF A5,OUTPUT =1 d * P LDK A2,0 SEND CHAR /00=END OF TEST =1 ~ P CF A5,OUTPUT =1 P RF TPDUMY =1 P EJECT P* P* , P* ORDER
0x2f85c4…2f8758 Dummy {f00=0x0121, f01=0x0190, f02=»T050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB P RF ACT085 D P* V , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS ` & P LC A3,1,A3 GET CONTROL CHARACTER $ P ANK A3,/FF REQUESTED LINE STEPS P SUK A3,/39 P RF(G) ACT070 > /3
0x2f8758…2f88ec Dummy {f00=0x0121, f01=0x0190, f02=»1-9 LF r P ADK A3,/5 P RF(Z) TP605 /2B = NO LF PACT070 LDK A3,1 ONE LF @ 4 PACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT ^ * P SUR A1,A3 GET REQUESTED LINE POSITION 2 PACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ? * P LDK A1,0 YES;
0x2f88ec…2f8a80 Dummy {f00=0x0121, f01=0x0190, f02=»LINE NUMBER p P RF TP605 P EJECT & P* 4 P* > P* H P* ORDER 06 : PRINT JOURNAL R P* v P* P* * PTP200 LDKL A3,BUF1 SEND CR1 AND ATTACH PTP210 EQU * 0 P LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD $
0x2f8a80…2f8c14 (4, 228) Dummy {f00=0x0121, f01=0x018e, f02=»1,3 REQUESTED LENGTH 0-2 ? & P RF(N) TP230 YES; COMPLETE REQUEST " P RF(P) TP215 L P LD A1,2,A8 BUFFER ADDRESS ` P LC A2,2,A1 THIRD CHARACTER $ P CCK A2,/2020 CONTROL CHARACTER P RF(NL) TP215 P LDR A4,A2 SAVE CHAR =2 P LDK
0x2f8c14…2f8da8 Dummy {f00=0x0121, f01=0x0190, f02=» v P CF A5,OUTPUT =2 P RF TP220 " PTP215 EQU * 4 P CF A5,BUFCHR SEND BUFFER H " P CF A5,PRBUF PRINT ECB-BUFFER j PTP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED P ANS A2,DWTST,A6 P
0x2f8da8…2f8f3c Dummy {f00=0x0121, f01=0x0190, f02=» PTPLF EQU * P LDK A2,STX SEND STX =2 P CF A5,OUTPUT =2 : P LDR A1,A1 T P RF(NE) TPLF10 f " P LDK A2,RPH DETACH PRINT HEAD | P CF A5,OUTPUT SEND PTPLF10 EQU * P SUK A7,8 ( P RF(NN) TPL010 NOT JOURNAL AND TALLY
0x2f8f3c…2f90d0 Dummy {f00=0x0121, f01=0x0190, f02=»8 GET REQUESTED LENGTH | * P ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH ! P EJECT ! L P* ! Z P* ! d P* COMMON END OF PRINT ! n P* ! P* ! " P* SEND LAST DUMMY CHARACTER ! P* ! PTPDUMY EQU * ! P LDK A2,ETB SEND ETB =2 ! P C
0x2f90d0…2f9264 Dummy {f00=0x0121, f01=0x0190, f02=»ARACTER ! l P* " PTPTST EQU * " . P SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ? " . P RF(NZ) TST010 NO " ` $ PTST005 ANK A2,VOIN VOUCHER OUT ? " z P RF(NZ) ENDIO NO " P RF TST015 YES " P* " PTST010 SUK A7,4 " P IFT CUTPER=0 " * P
0x2f9264…2f93f8 Dummy {f00=0x0121, f01=0x0190, f02=» * " P XIF # & P ANK A2,EOJT END OF JOURNAL TAPE? # $ P RF(NZ) ENDIO NO: PERFORM ENDIO # @ ( PTST015 ORK A1,PROUT SET RETURN CODE: # h ( P END OF JOURNAL TAPE, VOUCHER OUT # P* # P* # , P* PERFORM END I/O AND GO TO DISPATCHER # P* #
0x2f93f8…2f958c Dummy {f00=0x0121, f01=0x0190, f02=» # PTST020 SUK A7,16 $ " P RB(L) ENDIO VOUCHER/PASSBOOK $ P SUK A7,4 $ F P RB(G) ENDIO GRASP,RELEASE $ X P RB TST012 CUT,PERFORATE $ z P XIF $ P EJECT $ P* $ P* $ P* $ $ P* ORDER 06 : PRINT TALLY ROLL $ P* $ P* $
0x2f958c…2f9720 Dummy {f00=0x0121, f01=0x0190, f02=» LDKL A1,VOCHA $ @ P ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED % P RB TP210 % Z P* % l P EJECT % v P* % P* % P* % * P* ORDER 06 : WRITE VOUCHER/PASSBOOK % * P* OB : POSITION LIFT AND WRITE % P* % P
0x2f9720…2f98b4 (4, 229) Dummy {f00=0x0122, f01=0x0190, f02=» % P* & P* & * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL & & P* LINE NUMBER IS EQUAL REQUESTED & J P* & t P* & ~ . PTP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER & P RF(E) TP650 EQUAL & " P RF(G) TP630 SEND ELEVATOR UP & " P LDK A2,LDO SE
0x2f98b4…2f9a48 Dummy {f00=0x0122, f01=0x0190, f02=»3,1 DECREMENT ACTUAL LINE NUMBER & P* ' ( & PTP640 CF A5,OUTPUT SEND LIFT CHAR ' 2 P* ' , P SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER ' f P ANK A2,VOIN VOUCHER IN ? ' P IFT COMPL=0 ' & P ABL(Z) RCTP01 NO: ERROR RECOVERY ' , P RB TP610 YES: CHE
0x2f9a48…2f9bdc Dummy {f00=0x0122, f01=0x0190, f02=»VOUCHER OUT' ' | , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE ( P RB TPDUMY ( D P XIF ( V P EJECT ( b P* ( p P* ( z , P* ORDER 06 AND 0B: LIFT IS POSITIONED ( * P* ATTACH AND PRINT ( P* ( P* ( PTP650 EQU * ( &
0x2f9bdc…2f9d70 Dummy {f00=0x0122, f01=0x0190, f02=» AND 26 CUT AND PERFORATE JOURNAL ( P* ) , PTP700 EQU * ) 6 P LDK A3,1 SET INDEX =4 ) J P RF TP760 ) h PTP750 EQU * ) z P LDK A3,0 SET INDEX =4 ) PTP760 LDK A2,STX SEND STX =4 ) P CF A5,OUTPUT =4 ) P LC A2,CPTAB,A3 GET CHAR =4 )
0x2f9d70…2f9f04 Dummy {f00=0x0122, f01=0x0190, f02=»ASE VOUCHER/PASSBOOK ) l P* * PTP800 EQU * * & P CF A5,GRASPA * : P RB TPDUMY * P PTP900 EQU * * b P CF A5,RELEAS * v P RB TPDUMY * P * P EJECT * P* * P* P R B U F * P* * F P* SUBROUTINE TO SEND CHARACTERS FROM ECB
0x2f9f04…2fa098 Dummy {f00=0x0122, f01=0x018e, f02=»ST REQUESTED LENGTH * " P LD A3,ECBBA,A8 BUFFER ADDRESS + ( P* SKIP PRECEDING SPACES IN BUFFER + B P ADK A3,2 + n " PPRB010 LCR A1,A3 GET CHARACTER + P CCK A1,/2020 + P RF(NE) PRB050 NOT BLANK + P ADK A3,1 BLANK + P SUK A4,1 + " P R
0x2fa098…2fa22c Dummy {f00=0x0122, f01=0x0190, f02=» + n ( P ADR A1,A4 LAST CHARACTER IN BUFFER , P LC A1,-1,A1 GET CHAR , 4 * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? , R P RF(E) PRB060 YES , * P CCK A1,/0D0D CARRIAGE RETURN - CR1 ? , P RF(E) PRB060 YES , P LDK A1,0 DUMMY CHARACTER , P RF
0x2fa22c…2fa3c0 Dummy {f00=0x0122, f01=0x0190, f02=»00 SUK A4,1 DECREMENT REQUESTED LENGTH , P RF(NN) PRB105 PRINT BUFFER - . 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) - R P RF(E) PRB101 - P CF A5,OUTPUT SEND CHAR - PPRB101 EQU * - P LDK A2,ETB - & P CF A5,OUTPUT SEND END OF MESS
0x2fa3c0…2fa554 (4, 230) Dummy {f00=0x0122, f01=0x018e, f02=» ORS A1,DWTST,A6 - PPRB102 RTN A5 . P EJECT . . P* . < P* . F P* . P P* PRINT BUFFER . Z P* . r P* . | PPRB105 EQU * . 2 P ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED . P SUK A7,7 CHECK ORDER . P RF(L) PRB200 PRINT JOURNA
0x2fa554…2fa6e8 Dummy {f00=0x0122, f01=0x0190, f02=» P* / P ANK A2,VOIN VOUCHER IN ? / " P RF(Z) PRB200 NO. GO AND PRINT / 0 " P ADK A5,4 RESET STACK POINTER / V * P RB TP405 SEND LIFT TO TOP AND RELEAS / | P* / P* / P* / P* PRINT VOUCHER/PASSBOOK / P* / P* / $ PPRB110 ANK
0x2fa6e8…2fa87c Dummy {f00=0x0122, f01=0x018e, f02=»45 / P XIF 0 $ P LDR A1,A4 COPY REQUESTED LENGTH 0 P SUK A1,2 R.L. < 3? 0 > $ P RF(N) PRB200 YES: NO TABULATION 0 Z P LDK A1,TAB 0 P CC A1,-2,A3 TABULATION? 0 P RF(NE) PRB200 NO 0 P EJECT 0 P* 0 P* 0 4 P* IF TABULATION CHAR
0x2fa87c…2faa10 Dummy {f00=0x0122, f01=0x0190, f02=» 0 P* 1 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 1 P CF A5,OUTPUT SEND DETACH 1 > , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 1 ` $ P LCR A1,A3 GET 2ND TAB POS CHAR 1 P ANK A1,/F LINE UNIT 1 P SLL A2,4 1 P ANK A2,/F0 LINE DECADE 1 " P O
0x2faa10…2faba4 Dummy {f00=0x0122, f01=0x018e, f02=»BC,A6 COMPARE WITH ACTUAL TAB. POS. 1 P RF(NG) PRB125 PRINT 2 , P* 2 H P* 2 R P* 2 P LDK A2,/20 LOAD BLANK 2 f ( P CF A5,OUTPUT SEND BLANKS OR DETACH 2 P RB PRB117 2 P* 2 P* 2 P* 2 . PPRB125 SUK A4,2 DECREMENT REQUESTED LENG
0x2faba4…2fad38 Dummy {f00=0x0122, f01=0x0190, f02=» 2 P* 3 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 3 P* - ROOMLESS POINT 3 H P* - ILLEGAL CHARACTER 3 d & P* - SPECIAL CHARACTER (/13,/14) 3 P* 3 PPRB200 EQU * 3 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 3 " P CCK A7,/AEAE
0x2fad38…2faecc Dummy {f00=0x0122, f01=0x0190, f02=»ACTER 3 v P ANK A7,/F MASK 4 & P LC A7,ROMTAB,A7 GET CODE IN TABLE 4 & P* 4 P P* 4 Z P* 4 d , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 4 n P RF(L) PRB225 YES 4 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 4 P RF(NG) PRB230 NO 4 P* 4
0x2faecc…2fb060 Dummy {f00=0x0122, f01=0x0190, f02=»FT CHR14=1 4 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 P RF(E) PRB230 YES 5 < P XIF 5 V P* 5 b " P LDK A1,CCERR CODE CHECK ERROR 5 l * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5 P RF PRB245 5 P
0x2fb060…2fb1f4 (4, 231) Dummy {f00=0x0122, f01=0x018e, f02=»PUT SEND CHARACTER 5 , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 6 P RB PRB100 6 J P* 6 P* 6 f P* 6 p P EJECT 6 z P* 6 P* I H T P 6 P* 6 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT 6 P* 6 P* 6 P* 6 PIHTP E
0x2fb1f4…2fb388 Dummy {f00=0x0122, f01=0x018e, f02=» P RF(NG) IHTP20 YES =1 7 , P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT 7 " P =1 7 R P IFT RELEND=0 7 ` * P RF(NZ) RCTP10 YES GO TO DISPATCHER =1 7 v P XIF 7 P IFT RELEND=1 7 ( P RF(NZ) IHTP30 YES FINISH REQUEST =1 7 P XIF 7 8 PIHTP10 ABL
0x2fb388…2fb51c Dummy {f00=0x0122, f01=0x0190, f02=» 7 P ABL ENDIO 8 P* 8 P* 8 $ P* 8 . P EJECT 8 8 P* 8 F P* R C T P 8 P P* 8 d > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON 8 n P* 8 PRCTP EQU * 8 P IFT CPU852=1 8 & P CF A15,SAVE8 SAVE A1-A8 ON STACK 8
0x2fb51c…2fb6b0 Dummy {f00=0x0122, f01=0x0190, f02=»SY =3 8 t P ANS A2,DWTST,A6 =3 9 P LD A2,DWTECB,A6 =3 9 * ( P RF(Z) RCTP05 REQUEST NOT RUNNING =3 9 F P* 9 r $ PRCTP01 LDKL A5,DWTSB2 STACK BASE 9 | P ADR A5,A6 9 < P LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY 9 P CF A5,OUTPUT SEND
0x2fb6b0…2fb844 Dummy {f00=0x0122, f01=0x018e, f02=» 2 P SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER : P LDK A2,LFF LIFT TO TOP : : P CF A5,OUTPUT : Z P LD A2,DWTECB,A6 =3 : p & P RF(NZ) RCTP07 REQUEST RUNNING =3 : 0 P LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3 : P CF A5,OUTPUT =3 : P ABL
0x2fb844…2fb9d8 Dummy {f00=0x0122, f01=0x0190, f02=» P XIF ; P LDK A4,1 IND RECOVERY ; * P ABL ACT005 START RECOVERY OF PRINTER ; . & PRCTP10 ABL TDISP GO TO DISPATCHER ; P EJECT ; P* ; P* B C D T B Y ; P* ; 4 P* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL ; P* ; P* ;
0x2fb9d8…2fbb6c Dummy {f00=0x0122, f01=0x0190, f02=»BY 6 ; | P RB BCDTB1 < " PBCDTB2 RTN A5 RETURN TO CALLER < P* < F P* < P P* < Z P* < d P* < n P* G R A S P < x P* < 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK < P* < P* < PGRASPA EQU * < P LDK A2,STX SEND
0x2fbb6c…2fbd00 Dummy {f00=0x0122, f01=0x0190, f02=»DK A2,GRA GRASP < P CF A5,OUTPUT = P ANK A2,VOIN VOUCHER IN ? = . P RF(NZ) GRAS10 YES = P P LDK A2,ETB SEND ETB =2 = j P CF A5,OUTPUT =2 = " P LDK A2,TETX DUMMY AFTER GRASP = P CF A5,OUTPUT = P LDK A2,STX SEND STX =2 = P CF A5,O
0x2fbd00…2fbe94 (4, 232) Dummy {f00=0x0122, f01=0x0190, f02=» = P* > P EJECT > P* > P* > * P* R E L E A S > 4 P* > L 2 P* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE > V P* > P* > P* > PRELEAS EQU * > P LDK A1,0 > 0 P SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 > ( P LDK
0x2fbe94…2fc028 Dummy {f00=0x0122, f01=0x0190, f02=»,OUTPUT > P ANK A2,VOIN VOUCHER IN ? ? P RF(Z) BUFRTN ? 2 P* ? H P* B U F C H R ? R P* ? j < P* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN ? t ( P* FIRST CHARACTER IN OUTPUT BUFFER ? P* ? P* ? 4 PBUFCHR LCR A4,A3 GET
0x2fc028…2fc1bc Dummy {f00=0x0122, f01=0x40fe, f02=»TER ? t P CF A5,OUTPUT SEND CHARACTER @ P SUK A4,1 DECREMENT COUNTER @ 0 & P RB(NZ) BUFC10 NOT LAST CHARACTER @ T PBUFRTN EQU * @ ~ P RTN A5 RETURN TO CALLER @ P* @ P* @ P* @ P* @ P* @ P* @ P END @ @ @ A4,A3 GET
0x2fc1bc…2fc350 Dummy {f00=0x0122, f01=0x2008, f02=» A * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x2fc350…2fc4e4 Dummy {f00=0x0122, f01=0x018e, f02=» , ( Y _` B P $$ R % C , ( y * ! W Y +P Y *P Y ( 4 , ( P Y )P R _Q P OR d , ( R W " ! B W W , ( @ 0 Z ! B Z Z& , ( X . 0
0x2fc4e4…2fc678 Dummy {f00=0x0122, f01=0x0190, f02=» DISEND , ( OA Y C ! " * & i @ Q R X # P X R ;GV X J LDREG x , ( @ P y P X DWTA3 DWTSB2 , ( @ R ;GV X X , *
0x2fc678…2fc80c Dummy {f00=0x0122, f01=0x0190, f02=» h , ( :d Y > > ? 8 R @R , ( ) V @% =cW R P R P R P W 8 , ( I 9 W $ P W _ $ P h , ( i _$ _*_, _ %0=c X , ( 0P > 0 > >_ B 1 >
0x2fc80c…2fc9a0 Dummy {f00=0x0122, f01=0x417c, f02=» @ @ T T ! & 'T /P f H D ! 3 R 7 AV E OP _P$ kR { W PH P> P P R Q " H D ! P R R W Wr W T W P 'W 1P 9 IP g kQf n H D ! mR$ uP {R6 V2 P P8 R2 V. P T W T T W H D !
0x2fc9a0…2fcb34 (4, 233) Opaque[0x194]
0x2fcb34…2fccc8 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2460, f03=0x0000}
0x2fcb34…2fccc8 IdxSect {
0x2fcb34…2fccc8 f00 = 0x0123 // 0x2fcb34 @0x0
0x2fcb34…2fccc8 f01 = 0x000e // 0x2fcb36 @0x2
0x2fcb34…2fccc8 gno = [ // 0x2fcb38 @0x4
0x2fcb34…2fccc8 [0x00]: C0x0123.0x0.0
0x2fcb34…2fccc8 [0x01]: C0x0123.0x1.0
0x2fcb34…2fccc8 [0x02]: C0x0123.0x2.0
0x2fcb34…2fccc8 [0x03]: C0x0123.0x3.0
0x2fcb34…2fccc8 [0x04]: C0x0124.0x0.0
0x2fcb34…2fccc8 [0x05]: C0x0124.0x1.0
0x2fcb34…2fccc8 [0x06]: C0x0124.0x2.0
0x2fcb34…2fccc8 ]
0x2fcb34…2fccc8 }
0x2fccc8…2fce5c Dummy {f00=0x0123, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 9.2 80-01-03 870105040920 P : P =4,MMU BUFFER CONDITION B P REL 9.2 79-11-16 d P =3,RB - ABL P REL 9.1 79-05-23 P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06
0x2fce5c…2fcff0 Dummy {f00=0x0123, f01=0x0190, f02=» " P =1,ECHO OF LF AND CR, ABIS P REL 8.2 78-09-15 * P* F P* P 6 P************************************************** Z P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRGP01 = DRIVER GENERAL PRINTER P* P*
0x2fcff0…2fd184 Dummy {f00=0x0123, f01=0x018e, f02=»DRIVER HANDLES GENERAL TERMINAL PRINTER < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. 0 P* p 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO z 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE 6 P* GENERAL PRINTER AS
0x2fd184…2fd318 Dummy {f00=0x0123, f01=0x0190, f02=» 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* 8 & P* A C G P ACTIVATION PART B P* l ( P* I H G P INTERRUPT HANDLER v P* ( P* R C G P RECOVERY ROUTINE P* & P* E C H O G P ECHO FUNCTIONS
0x2fd318…2fd4ac Dummy {f00=0x0123, f01=0x0190, f02=» 05: BASIC WRITE " P* 06: STANDARD WRITE P* @ P* NORMAL REGISTER USAGE J P* l " P* REGISTER A1 = RETURN CODE v ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX $ P* A4 = WORK
0x2fd4ac…2fd640 Dummy {f00=0x0123, f01=0x018e, f02=» A8 = ECB-ADDRESS P* P* $ P* SYSTEM ADAPTATION . P* L : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR V ( P* (GPCLR) KEYS SHOULD BE DEFINED. P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS 0 P*
0x2fd640…2fd7d4 (4, 234) Dummy {f00=0x0123, f01=0x0190, f02=» X P* D P* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER Z * P** --SUPPRESION OF TRAILING BLANKS @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE P*
0x2fd7d4…2fd968 Dummy {f00=0x0123, f01=0x0190, f02=» P EJECT P* P* P* & P* 0 P*********** : P* ENTRIES * N P*********** b P* v P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P* P* P
0x2fd968…2fdafc Dummy {f00=0x0123, f01=0x0190, f02=»************************* P* " P* , $ P EXTRN DISIOE I/O REQUEST ERROR 6 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER ^ P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O
0x2fdafc…2fdc90 Dummy {f00=0x0123, f01=0x0190, f02=»R FROM ECB-BUFFER v P EJECT P* ( P* 2 P************************ < P* DWT PARAMETERS * P************************ | P* P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER P
0x2fdc90…2fde24 Dummy {f00=0x0123, f01=0x018e, f02=» P* P* : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY PSTX EQU /82 START OF MESSAGE Z PETB EQU /97 END OF MESSAGE ~ PETX EQU /03 LAST DUMMY PCR EQU /0D CARRIAGE RETURN PLF EQU /0A LINE FEED PFFED EQU /0C
0x2fde24…2fdfb8 Dummy {f00=0x0123, f01=0x0190, f02=» * P************************************** * P* CONDITIONAL ASSEMBLY * 6 * P************************************** d P* 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT $ P* FUNCTION BY SETTING X:A = 0 P* PX:A
0x2fdfb8…2fe14c Dummy {f00=0x0123, f01=0x0190, f02=»NG X:B=1 l P* PX:B EQU 0 PTRETON EQU 0 , P* @ 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE J 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* PX:C EQU 0 PFJOTON EQU 0 P* . P* IT IS POSSIBLE TO E
0x2fe14c…2fe2e0 Dummy {f00=0x0123, 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
0x2fe2e0…2fe474 (4, 235) Dummy {f00=0x0123, 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 0 P* . P* A
0x2fe474…2fe608 Dummy {f00=0x0123, 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
0x2fe608…2fe79c Dummy {f00=0x0123, 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
0x2fe79c…2fe930 Dummy {f00=0x0123, 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*
0x2fe930…2feac4 Dummy {f00=0x0123, 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
0x2feac4…2fec58 Dummy {f00=0x0123, 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*
0x2fec58…2fedec Dummy {f00=0x0123, 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
0x2fedec…2fef80 Dummy {f00=0x0123, 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 =
0x2fef80…2ff114 (4, 236) Dummy {f00=0x0123, f01=0x0190, f02=»8 GET BUFFER ADDRESS =1 ( P LC A3,1,A3 GET CONTROL CHARACTER =1 P ANK A3,/FF =1 L PACGP01 SUK A3,/2B =1 d $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 P LDK A2,CR =1 P CF A5,OUTPUT =1 P IFT ABIS=1
0x2ff114…2ff2a8 Dummy {f00=0x0123, f01=0x0190, f02=» P SUK A3,/30-/2B =1 * P RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 $ P CF A5,OUTPUT =1 R P LDK A2,LF =1 l , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 * PACGP06 LDK A3,2 START BUFFER INDEX =1 PACGP09 CF A5
0x2ff2a8…2ff43c Dummy {f00=0x0123, f01=0x0190, f02=»ST OF BOTH SUM OFF AND PRINTER NOT THERE =2 t P* =2 6 $ PACGP10 LDK A2,2 SEND CHAR /02 =2 F P CF A5,OUTPUT =2 n * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 P RF AGP410 =2 P EJECT P* & P* GET,
0x2ff43c…2ff5d0 Dummy {f00=0x0123, f01=0x0190, f02=»TER UPDATING p PACGP19 EQU * * P LDKL A4,/400 INDICATE LINE FEED DONE ( P ORS A4,DWTST,A6 V P IFT SUPSPA=1 n 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF P LDK A4,0 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BU
0x2ff5d0…2ff764 Dummy {f00=0x0123, f01=0x0190, f02=»WRITE | $ P SUK A1,9 HARDWARE TABULATION ? P RF(NE) ACGP22 6 0 P ST A4,DWTAP,A6 RESET HEAD POSITION POINTER L P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? P RF(E) ACGP40 P IFT ABIS=1 =1 P CWK A2,/07 BELL ? =1
0x2ff764…2ff8f8 Dummy {f00=0x0123, f01=0x0190, f02=» ? x P* P XIF P* P IFT TRETON=0 * P IFT FJOTON=1 @ P* V P SUK A1,3 /14? ` P RB(E) ACGP17 v P SUK A1,/C LESS THAN /20 ? P* P XIF P* P* P IFT TRETON=1 P IFT FJOTON=0 P*
0x2ff8f8…2ffa8c Dummy {f00=0x0123, 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
0x2ffa8c…2ffc20 Dummy {f00=0x0123, 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
0x2ffc20…2ffdb4 (4, 237) Dummy {f00=0x0124, 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
0x2ffdb4…2fff48 Dummy {f00=0x0124, 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
0x2fff48…3000dc Dummy {f00=0x0124, 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*
0x3000dc…300270 Dummy {f00=0x0124, 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 ,
0x300270…300404 Dummy {f00=0x0124, 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
0x300404…300598 Dummy {f00=0x0124, 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
0x300598…30072c Dummy {f00=0x0124, 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
0x30072c…3008c0 Dummy {f00=0x0124, 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
0x3008c0…300a54 (4, 238) Dummy {f00=0x0124, f01=0x018e, f02=»R ? % t P RF(NE) SKIP30 NO & P SUK A1,2 DECR BA & & P SUK A2,2 DECR RL & @ P RB SKIP07 GET NEXT & Z P* & v " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & P XIF & P EJECT & P* & P* I H G P & P* & P* INTERRUPT &
0x300a54…300be8 Dummy {f00=0x0124, f01=0x0190, f02=» P LDR A7,A7 ORDER 0? ' P RF(Z) IHGP20 =2 ' . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? ' : P IFT RECEND=0 ' l P RB(NZ) EXIT ' P XIF ' P IFT RECEND=1 ' P RB(NZ) AGP430 ' P XIF ' P ' 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETU
0x300be8…300d7c Dummy {f00=0x0124, f01=0x018e, f02=» P* E C H O G P ( P* ( 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE ( & P* ( Z PECHOGP EQU * ( d P LDK A4,COSPAC ( x P LDR A7,A7 EOR? ( P RF(N) ECGP17 YES ( P* ( P IFT EORECH=0 ( P* ( P SUK A2,/80 EOR-CHARACTER (
0x300d7c…300f10 Dummy {f00=0x0124, f01=0x0190, f02=» P RF(E) ECGP40 BACKSPACE ) P SUK A1,/2 LINE FEED =1 ) $ P RF(E) ECGP10 YES =1 ) D P SUK A1,/3 CR =1 ) ` P RF(E) ECGP10 YES =1 ) x P SUK A1,/B =1 ) P RF(E) ECGP50 CLEAR ) 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N)
0x300f10…3010a4 Dummy {f00=0x0124, f01=0x0190, f02=»NTER ) p P SUK A4,1 READY ? * P RF(N) ECGP20 YES * & * P RF(P) ECGP60 NO, GO TO CLEAR SECTION * @ P* * n P IFT COSPAC=1 * x P* * P LDK A2,SPACE NO SEND SPACE * P RB ECGP10 * P* * P XIF * P* * 6 PECGP17 CF A15,UPDAPP UPDAT
0x3010a4…301238 Dummy {f00=0x0124, f01=0x0190, f02=»40 EQU * * & P LDK A2,GPBSP BACKSPACE CHARACTER + P RB ECGP10 + : P* + L P* CANCEL + V P* + j PECGP50 EQU * + t " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + P RB ECGP10 + PECGP60 LDK A2,LF LINE FEED + P LC A3,DWTBC,A6 +
0x301238…3013cc Dummy {f00=0x0124, f01=0x018e, f02=» A3,0 + * P SC A3,DWTBC,A6 RESET POSITION COUNTER , P RB ECGP20 , < P EJECT , N P* , P* R C G P , f P* , z 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , P* , ( P* RECOVERY IS CARRIED OUT ONLY IF , P* ORDER 6 IS
0x3013cc…301560 Dummy {f00=0x0124, f01=0x0190, f02=» , x PRCGP EQU * - P IFT CPU852=1 - & P CF A15,SAVE8 SAVE A1-A8 ON STACK - 0 P XIF - Z P* - f P IFT CPU852=0 - p " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - P* - P LD A2,DWTST,A6 BUSY ? - P RB(N) EXIT NO - ( P LDK A2,SOH RESET
0x301560…3016f4 (4, 239) Dummy {f00=0x0124, 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
0x3016f4…301888 Dummy {f00=0x0124, 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
0x301888…301a1c Dummy {f00=0x0124, 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 & (
0x301a1c…301bb0 Dummy {f00=0x0124, f01=0x0190, f02=» PRINT HEAD 0 P* 1 P* 1 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 1 ( P CF A5,OUTPUT SEND DETACH 1 T , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 1 v $ P LCR A1,A3 GET 2ND TAB POS CHAR 1 P ANK A1,/F LINE UNIT 1 P SLL A2,4 1 P ANK A2,/F0
0x301bb0…301d44 Dummy {f00=0x0124, f01=0x0190, f02=»TER 1 j 2 P CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. 2 P RF(NG) PRB125 PRINT 2 B P* 2 ^ P* 2 h P* 2 r P LDK A2,/20 LOAD BLANK 2 | ( P CF A5,OUTPUT SEND BLANKS OR DETACH 2 P RB PRB117 2 P* 2 P* 2 P* 2 . PPRB125 SUK A4,2 DE
0x301d44…301ed8 Dummy {f00=0x0124, f01=0x0190, f02=» 2 P* 3 P* 3 P* 3 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 3 & P* - ROOMLESS POINT 3 P* - ILLEGAL CHARACTER 3 x & P* - SPECIAL CHARACTER (/13,/14) 3 P* 3 PPRB200 EQU * 3 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 3
0x301ed8…30206c Dummy {f00=0x0124, f01=0x018e, f02=»7,A3 GET OUTPUT CHARACTER 3 P ANK A7,/F MASK 4 " & P LC A7,ROMTAB,A7 GET CODE IN TABLE 4 : P* 4 d P* 4 n P* 4 x , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 4 P RF(L) PRB225 YES 4 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 4 P RF(NG) PRB2
0x30206c…302200 Dummy {f00=0x0124, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x302200…302394 (4, 240) Opaque[0x194]
0x302394…302528 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2498, f03=0x0000}
0x302394…302528 IdxSect {
0x302394…302528 f00 = 0x0124 // 0x302394 @0x0
0x302394…302528 f01 = 0x0008 // 0x302396 @0x2
0x302394…302528 gno = [ // 0x302398 @0x4
0x302394…302528 [0x00]: C0x0124.0x3.0
0x302394…302528 [0x01]: C0x0125.0x0.0
0x302394…302528 [0x02]: C0x0125.0x1.0
0x302394…302528 [0x03]: C0x0125.0x2.0
0x302394…302528 ]
0x302394…302528 }
0x302528…3026bc Dummy {f00=0x0124, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x3026bc…302850 Dummy {f00=0x0124, f01=0x0190, f02=»* THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 > P* AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232 B " P* 6233, 6236 AND 633, 62361. P* @ P* THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT P* 4 P* TH
0x302850…3029e4 Dummy {f00=0x0124, f01=0x0190, f02=»LER t P* " P* R C D I : RECOVERY ROUTINE P* < * P* THE FOLLOWING ORDERS ARE TREATED: F P* t " P* ORDER 05: WRITE LIGHTS ON ~ " P* 06: WRITE LIGHTS OFF ( P* 07: WRITE PROGRAM DISPLAY , P* 39:
0x3029e4…302b78 Dummy {f00=0x0124, f01=0x0190, f02=» t P* A2: OUTPUT " P* A3: WORK REGISTER ( " P* A4: WORK REGISTER N " P* A5: WORK REGISTER t P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADDRESS P*
0x302b78…302d0c Dummy {f00=0x0124, f01=0x0190, f02=» 1 IF PROGRAM DISPLAY (PTS 6241) , P* BIT 11 = 1 FOR PTS 6232,6331,6236 , , P* BIT 11 = 0 FOR PTS 6241,6242,6233 P* : P* ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* P EJECT
0x302d0c…302ea0 Dummy {f00=0x0124, f01=0x0190, f02=»-BLOCK r P* P******************* P* EXTERNALS * 4 P******************* P P* l P EXTRN SAVE8 SAVE REGS v P EXTRN TENDIO END I/O . P EXTRN DISEND PERFORM END I/O AND DISPATCH * P EXTRN TDISP DISPATCHER ORDINARY INT
0x302ea0…303034 (4, 241) Dummy {f00=0x0125, f01=0x0190, f02=» STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS 2 P* T P EXTRN SETIMP SET TIMER ^ P* ~ P* P EJECT P* P* P*************** P* TABLES * P*************** P* P*
0x303034…3031c8 Dummy {f00=0x0125, f01=0x0190, f02=»DRIVER z " P DATA 0 ABORT ROUTINE ADDRESS P DATA IHDI INTERRUPT HANDLER 4 P DATA RCDI RECOVERY ROUTINE X P* | " PCCERR EQU /4 CODE CHECK ERROR P* P EJECT P* P* P************************* P* CONDITIONAL
0x3031c8…30335c Dummy {f00=0x0125, f01=0x0190, f02=»* SETTING X:A=0 P* PX:A EQU 0 $ PORD7 EQU 0 6 P* H P* R 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1 0 P* ORDERS 05,06AND 07 ARE THEN REPLACED BY P* ORDERS 37,38 AND 06
0x30335c…3034f0 Dummy {f00=0x0125, f01=0x0190, f02=»Y SETTING X:B=1 | P* PX:B EQU 0 " PFLASH EQU 0 4 P* H P* R . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING
0x3034f0…303684 Dummy {f00=0x0125, f01=0x018e, f02=»* P* P* MMU BUFFER SIZE P* 0 PX:C EQU 4 : PDVBLEN EQU X:C L P* b P* l P********************* v P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFIN
0x303684…303818 Dummy {f00=0x0125, f01=0x0190, f02=» | P XIF P* " PDWTDIB EQU START+/02 SAVE AREA 2 PDWTFLA EQU START+/08 SAVE AREA FOR FLASH IMAGE D & PDWTTP EQU START+/0A TIMER POINTER z PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* AC
0x303818…3039ac Dummy {f00=0x0125, f01=0x0190, f02=»EDIT=1 P CCK A7,/0707 P RF(E) ADI050 ORDER /07 $ P XIF D P IFT ORD7+CREDIT=2 P P CCK A7,/0606 j P RF(E) ADI050 ORDER /06 P XIF $ P LD A4,10,A8 CONTROL WORD TO A4 P LDR* A3,A6 4 P ANK A3,/10 TEST IF ONE OR TWO C
0x3039ac…303b40 Dummy {f00=0x0125, f01=0x0190, f02=» P SLL A3,4 P ORR A4,A3 LAMPCODES IN A4 PADI005 EQU * < P IFT FLASH=1 P P CCK A7,/3939 d P RF(E) FLA05 z P XIF P IFT CREDIT=0 P SUK A7,5 P XIF P IFT CREDIT=1 P SUK A7,/37 P XIF P RF(
0x303b40…303cd4 (4, 242) Dummy {f00=0x0125, f01=0x0190, f02=»* P* P IFT FLASH=1 P* ( P* FLASH ORDER /39 2 P* R P* , PFLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE f & P LD A1,DWTTP,A6 GET TIMER POINTER ( P RF(NZ) FLA10 TIMER ALREADY STARTED P LDK A4,DWTTP START TIMER
0x303cd4…303e68 Dummy {f00=0x0125, f01=0x0190, f02=»NRS A4,A6 CHECK ON-OFF INDICATOR PFLA10 EQU * ( P LD A4,DWTFLA,A6 < & P LDR* A2,A6 CHECK ON-OFF INDICATOR T P ANK A2,/40 ~ * P RF(Z) FLA20 WRITE FLASHING LIGHTS OFF P ORS A4,DWTDIB,A6 ON + FLASH P RF ADI030 TURN ON LAMPS PFLA2
0x303e68…303ffc Dummy {f00=0x0125, f01=0x0190, f02=»A1 P LD A4,DWTFLA,A6 < P RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER " P LDKL A1,-TIME RESTART TIMER b P ST* A1,DWTTP,A6 P LDK A4,/40 " P XRRS A4,A6 SWITCH 0N-OFF FLAG P RB FLA10 PFLA30 CM DWTTP,A6 P RF
0x303ffc…304190 Dummy {f00=0x0125, f01=0x0190, f02=» A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER P IFT FLASH=1 . 0 P ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE B P XIF v P RF ADI030 P* P* P EJECT P* P* P* ORDER 05: TURN ON LAMPS P* P* P*
0x304190…304324 Dummy {f00=0x0125, f01=0x0190, f02=»AGE h P XIF . PADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER PADI035 LDK A1,1 J 6 P SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER b P LDR* A3,A6 TWO OUTPUTS ? P ANK A3,/10 P RF(NZ) IHDI10 NO P RF IHDI20 YES P*
0x304324…3044b8 Dummy {f00=0x0125, f01=0x0190, f02=»0 & PADI060 CF A15,GETCHR GET CHARACTER P LDR A1,A1 LAST CHARACTER ? 4 P RF(Z) ADI070 YES X P LDR A4,A2 r P SRL A4,4 $ P SUK A4,3 UNDEFINED CHARACTER ? P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? P RF(G) ADI100 YES
0x3044b8…30464c Dummy {f00=0x0125, f01=0x0190, f02=» < PADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER P RF IHDI10 SEND CHARACTERS D P* f P* p P* CODE CHECK ERROR z P* ( PADI100 LDK A1,CCERR SET RETURN CODE P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER
0x30464c…3047e0 Dummy {f00=0x0125, f01=0x0190, f02=»* PIHDI EQU * P LDR A1,A1 RETURN CODE P RF(NE) ENDIO YES END I/O : P LD A4,DWTST,A6 GET STATUS P ANK A4,/FF ~ P SUK A4,2 TWO CHARS. SENT P IFT ORD7=1 P RF(NZ) IHDI05 NO & P LDR* A3,A6 GET CHANNEL PARAMETER
0x3047e0…304974 (4, 243) Dummy {f00=0x0125, f01=0x018e, f02=»RFORM ENDIO | PIHDI10 LDKL A2,DWTDIB P ADR A2,A6 2 P LD A4,DWTST,A6 F P ANK A4,/FF ^ P ADR A2,A4 r P LCR A2,A2 GET CHARACTER P XIF P IFT ORD7=0 P RF(Z) ENDIO 2 PIHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER
0x304974…304b08 Dummy {f00=0x0125, f01=0x0190, f02=» P ORK A2,/40 INDICATE BELL P* & . POUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER 0 & PIHDI20 CF A15,OUTLIN OUTPUT CHAR. b PEXIT ABL TDISP 2 PENDIO ABL DISEND PERFORM END I/O AND DISPATCH P* P EJECT P* P* R C D I
0x304b08…304c9c Dummy {f00=0x0125, f01=0x018e, f02=»RMATION Z , P* OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & 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*
0x304c9c…304e30 Dummy {f00=0x0125, f01=0x4014, f02=» P @ OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & 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*
0x304e30…304fc4 Dummy {f00=0x0125, f01=0x2008, f02=» POWER FAILURE TIME.THE INFORMATION ~ , P* OM PROGRAM DISPLAY IS ALSO RESTORED 4 P* d P* n PRCDI EQU * x P CF A15,SAVE8 SAVE REGS. ( P LC A2,DWTDIB,A6 GET FIRST CHARACTER P RB ADI035 P* P* P END P
0x304fc4…305158 Dummy {f00=0x0125, f01=0x0190, f02=» p P DATA 2 DEVICE INDEX PGPAD EQU * ADDRESS BLOCK $ P DATA ACGP ACTIVATION DRIVER D " P DATA 0 ABORT ROUTINE ADDRESS h P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P
0x305158…3052ec Dummy {f00=0x0125, f01=0x0190, f02=»T STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE ~ < P* IS SET IF PAPER OUT OR READY SWITCH OFF. : H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM z P* CHANNEL UNIT. P* > P* ORDER 05: BASIC
0x3052ec…305480 Dummy {f00=0x0125, f01=0x018e, f02=»ARE SENT TO PRINTER FROM f < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* ` PACGP EQU * j P LDK A2,STX START OF MESSAGE | P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1
0x305480…305614 (4, 244) Opaque[0x194]
0x305614…3057a8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24b8, f03=0x0000}
0x305614…3057a8 IdxSect {
0x305614…3057a8 f00 = 0x0125 // 0x305614 @0x0
0x305614…3057a8 f01 = 0x0018 // 0x305616 @0x2
0x305614…3057a8 gno = [ // 0x305618 @0x4
0x305614…3057a8 [0x00]: C0x0125.0x3.0
0x305614…3057a8 [0x01]: C0x0126.0x0.0
0x305614…3057a8 [0x02]: C0x0126.0x1.0
0x305614…3057a8 [0x03]: C0x0126.0x2.0
0x305614…3057a8 [0x04]: C0x0126.0x3.0
0x305614…3057a8 [0x05]: C0x0127.0x0.0
0x305614…3057a8 [0x06]: C0x0127.0x1.0
0x305614…3057a8 [0x07]: C0x0127.0x2.0
0x305614…3057a8 [0x08]: C0x0127.0x3.0
0x305614…3057a8 [0x09]: C0x0128.0x0.0
0x305614…3057a8 [0x0a]: C0x0128.0x1.0
0x305614…3057a8 [0x0b]: C0x0128.0x2.0
0x305614…3057a8 ]
0x305614…3057a8 }
0x3057a8…30593c Dummy {f00=0x0125, 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 =
0x30593c…305ad0 Dummy {f00=0x0125, 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
0x305ad0…305c64 Dummy {f00=0x0125, 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*
0x305c64…305df8 Dummy {f00=0x0125, 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*
0x305df8…305f8c Dummy {f00=0x0125, 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
0x305f8c…306120 Dummy {f00=0x0125, 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
0x306120…3062b4 (4, 245) Dummy {f00=0x0126, 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
0x3062b4…306448 Dummy {f00=0x0126, 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*
0x306448…3065dc Dummy {f00=0x0126, 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*****************************************
0x3065dc…306770 Dummy {f00=0x0126, 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
0x306770…306904 Dummy {f00=0x0126, 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 /
0x306904…306a98 Dummy {f00=0x0126, 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
0x306a98…306c2c Dummy {f00=0x0126, 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
0x306c2c…306dc0 Dummy {f00=0x0126, 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
0x306dc0…306f54 (4, 246) Dummy {f00=0x0126, 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
0x306f54…3070e8 Dummy {f00=0x0126, 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*
0x3070e8…30727c Dummy {f00=0x0126, 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*
0x30727c…307410 Dummy {f00=0x0126, 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
0x307410…3075a4 Dummy {f00=0x0126, 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
0x3075a4…307738 Dummy {f00=0x0126, 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
0x307738…3078cc Dummy {f00=0x0126, 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*
0x3078cc…307a60 Dummy {f00=0x0126, 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
0x307a60…307bf4 (4, 247) Dummy {f00=0x0126, 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:
0x307bf4…307d88 Dummy {f00=0x0126, 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
0x307d88…307f1c Dummy {f00=0x0126, 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.
0x307f1c…3080b0 Dummy {f00=0x0126, 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
0x3080b0…308244 Dummy {f00=0x0126, 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
0x308244…3083d8 Dummy {f00=0x0126, 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
0x3083d8…30856c Dummy {f00=0x0126, 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
0x30856c…308700 Dummy {f00=0x0126, 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
0x308700…308894 (4, 248) Dummy {f00=0x0126, 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
0x308894…308a28 Dummy {f00=0x0126, 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
0x308a28…308bbc Dummy {f00=0x0126, 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
0x308bbc…308d50 Dummy {f00=0x0126, 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
0x308d50…308ee4 Dummy {f00=0x0126, 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
0x308ee4…309078 Dummy {f00=0x0126, 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
0x309078…30920c Dummy {f00=0x0126, 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 $
0x30920c…3093a0 Dummy {f00=0x0126, 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
0x3093a0…309534 (4, 249) Dummy {f00=0x0127, 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
0x309534…3096c8 Dummy {f00=0x0127, 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
0x3096c8…30985c Dummy {f00=0x0127, 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
0x30985c…3099f0 Dummy {f00=0x0127, 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,
0x3099f0…309b84 Dummy {f00=0x0127, 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
0x309b84…309d18 Dummy {f00=0x0127, 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 +
0x309d18…309eac Dummy {f00=0x0127, 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 =
0x309eac…30a040 Dummy {f00=0x0127, 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
0x30a040…30a1d4 (4, 250) Dummy {f00=0x0127, 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
0x30a1d4…30a368 Dummy {f00=0x0127, 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 * / $
0x30a368…30a4fc Dummy {f00=0x0127, 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
0x30a4fc…30a690 Dummy {f00=0x0127, 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(
0x30a690…30a824 Dummy {f00=0x0127, 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
0x30a824…30a9b8 Dummy {f00=0x0127, 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
0x30a9b8…30ab4c Dummy {f00=0x0127, 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*
0x30ab4c…30ace0 Dummy {f00=0x0127, 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
0x30ace0…30ae74 (4, 251) Dummy {f00=0x0127, 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
0x30ae74…30b008 Dummy {f00=0x0127, 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*
0x30b008…30b19c Dummy {f00=0x0127, 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*
0x30b19c…30b330 Dummy {f00=0x0127, 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
0x30b330…30b4c4 Dummy {f00=0x0127, 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,
0x30b4c4…30b658 Dummy {f00=0x0127, 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 ;
0x30b658…30b7ec Dummy {f00=0x0127, 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
0x30b7ec…30b980 Dummy {f00=0x0127, 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
0x30b980…30bb14 (4, 252) Dummy {f00=0x0127, 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*
0x30bb14…30bca8 Dummy {f00=0x0127, 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* ?
0x30bca8…30be3c Dummy {f00=0x0127, 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
0x30be3c…30bfd0 Dummy {f00=0x0127, 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
0x30bfd0…30c164 Dummy {f00=0x0127, 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
0x30c164…30c2f8 Dummy {f00=0x0127, 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
0x30c2f8…30c48c Dummy {f00=0x0127, 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
0x30c48c…30c620 Dummy {f00=0x0127, 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
0x30c620…30c7b4 (4, 253) Dummy {f00=0x0128, 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
0x30c7b4…30c948 Dummy {f00=0x0128, 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
0x30c948…30cadc Dummy {f00=0x0128, 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
0x30cadc…30cc70 Dummy {f00=0x0128, 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
0x30cc70…30ce04 Dummy {f00=0x0128, 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******
0x30ce04…30cf98 Dummy {f00=0x0128, 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
0x30cf98…30d12c Dummy {f00=0x0128, 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
0x30d12c…30d2c0 Dummy {f00=0x0128, 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
0x30d2c0…30d454 (4, 254) Dummy {f00=0x0128, 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
0x30d454…30d5e8 Dummy {f00=0x0128, 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
0x30d5e8…30d77c Dummy {f00=0x0128, 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
0x30d77c…30d910 Dummy {f00=0x0128, 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
0x30d910…30daa4 Dummy {f00=0x0128, 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
0x30daa4…30dc38 Dummy {f00=0x0128, 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
0x30dc38…30ddcc Dummy {f00=0x0128, 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
0x30ddcc…30df60 Dummy {f00=0x0128, 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
0x30df60…30e0f4 (4, 255) Dummy {f00=0x0128, f01=0x0190, f02=» P RF(NZ) BRM150 PARITY ERROR > P LDR A8,A2 > ( P IFT MSV1=0 > : P CF A5,READP READ 2:ND STA > N P RF(NZ) BRM150 PARITY ERROR > p P CWR A2,A8 > , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE > P XIF > " P CF A5,READ READ ONE CHARACTER > P
0x30e0f4…30e288 Dummy {f00=0x0128, f01=0x0190, f02=» SALCUZ > P RF(NZ) BRM150 NOT ENQ ? P IFT P6805=0 SALCUZ ? . $ P CF A5,READ READ LAST CHARACTER ? J P ? r " P* TRAILING PAD CAN BE CHECKED ? z P ? P CIO A1,0,LCUIN HALT INPUT ? P SST A1,LCUIN ? P XIF SALCUZ ? P IFT P6805=1 SALC
0x30e288…30e41c Dummy {f00=0x0128, f01=0x0190, f02=» P ST A1,CACK LOAD ACK COUNTER @ P LDR A2,A8 @ ( P SUK A3,2 @ : P RF(Z) BRM120 SELECTING @ L P CWK A8,GP @ l P ABL(E) GPOLL GENERAL POLL @ ~ P IFT MSV1=1 @ 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) @ P XIF @ P IFT MSV1=0 @
0x30e41c…30e5b0 Dummy {f00=0x0128, f01=0x018e, f02=»M INVALID POLL @ PBRM120 EQU * A & P CF A5,FINTER CHECK IF STA PRESENT A * P LDR A6,A3 LOAD DWT TO A6 A T P RF(NZ) BRM130 STA FOUND A v P IFT MSV1=0 A $ P LDKL A6,DW1500 SELECT TO DCTASK A PBRM130 EQU * A P ABL SELECT A P XIF A
0x30e5b0…30e744 Dummy {f00=0x0128, f01=0x0190, f02=» A PBRM150 EQU * B P ANK A2,/7F B P SUK A2,/7F B 0 P RB(Z) BRM RESYNCHRONIZE B D & P CF A5,READ READ ANOTHER CHARACTER B d P RB BRM150 B P EJECT B P* B P* B P* EOT HAS BEEN RECEIVED B P* B P* B PBRM200 EQU * B &
0x30e744…30e8d8 Dummy {f00=0x0128, f01=0x0190, f02=» BRM220 ACK IS NOT EXPECTED B " P LD A6,FDWTUT GET WRITING DWT C $ P RF(Z) BRM210 NO ONE WRITING C J P LDK A1,2 SET RC=2 C n ( P CF A5,CWRITE COMPLETE WRITE REQUEST C PBRM210 EQU * C " P CM XACK RESET 'ACK EXPECTED' C PBRM220 EQU * C P CM XS
0x30e8d8…30ea6c Dummy {f00=0x0128, f01=0x0190, f02=» EQU * C P CF A5,HPTIM D P LD A1,XSEL D " P RF(Z) BRM315 NOT SELECTED D 6 P LD A1,DCRBUF D X ( P*********************CHAINED COMMAND D n & P RB(Z) BRM150 NO BUFFER AVAILABLE D P********************* D PBRM305 EQU * D P CF A5,RDMESS READ
0x30ea6c…30ec00 Dummy {f00=0x0128, f01=0x0190, f02=»12 EQU * D P CF A5,TRNAK SEND NAK E P ABL BRM E . PBRM315 EQU * E > P IFT RCOM=1 E R P LD A1,XACK E f & P RF(Z) BRM316 ACK IS NOT EXPECTED E z P LD A1,DCRBUF E & P RF(Z) BRM316 NO BUFFER AVAILABLE E " P LD A6,FDWTUT GET WRITING DWT E 0
0x30ec00…30ed94 (4, 256) Opaque[0x194]
0x30ed94…30ef28 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d10, f03=0x0000}
0x30ed94…30ef28 IdxSect {
0x30ed94…30ef28 f00 = 0x0168 // 0x30ed94 @0x0
0x30ed94…30ef28 f01 = 0x002c // 0x30ed96 @0x2
0x30ed94…30ef28 gno = [ // 0x30ed98 @0x4
0x30ed94…30ef28 [0x00]: C0x0168.0x2.0
0x30ed94…30ef28 [0x01]: C0x0168.0x3.0
0x30ed94…30ef28 [0x02]: C0x0178.0x2.0
0x30ed94…30ef28 [0x03]: C0x0178.0x3.0
0x30ed94…30ef28 [0x04]: C0x0179.0x0.0
0x30ed94…30ef28 [0x05]: C0x0179.0x1.0
0x30ed94…30ef28 [0x06]: C0x0179.0x2.0
0x30ed94…30ef28 [0x07]: C0x0179.0x3.0
0x30ed94…30ef28 [0x08]: C0x017a.0x0.0
0x30ed94…30ef28 [0x09]: C0x017a.0x1.0
0x30ed94…30ef28 [0x0a]: C0x017a.0x2.0
0x30ed94…30ef28 [0x0b]: C0x017a.0x3.0
0x30ed94…30ef28 [0x0c]: C0x017b.0x0.0
0x30ed94…30ef28 [0x0d]: C0x017b.0x1.0
0x30ed94…30ef28 [0x0e]: C0x017b.0x2.0
0x30ed94…30ef28 [0x0f]: C0x017b.0x3.0
0x30ed94…30ef28 [0x10]: C0x017c.0x0.0
0x30ed94…30ef28 [0x11]: C0x017c.0x1.0
0x30ed94…30ef28 [0x12]: C0x017c.0x2.0
0x30ed94…30ef28 [0x13]: C0x017c.0x3.0
0x30ed94…30ef28 [0x14]: C0x017d.0x0.0
0x30ed94…30ef28 [0x15]: C0x017d.0x1.0
0x30ed94…30ef28 ]
0x30ed94…30ef28 }
0x30ef28…30f0bc Dummy {f00=0x0168, 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
0x30f0bc…30f250 Dummy {f00=0x0168, 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
0x30f250…30f3e4 Dummy {f00=0x0168, 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********************************
0x30f3e4…30f578 Dummy {f00=0x0168, 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*
0x30f578…30f70c Dummy {f00=0x0168, 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*
0x30f70c…30f8a0 Dummy {f00=0x0168, 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
0x30f8a0…30fa34 (4, 257) Dummy {f00=0x0168, 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*
0x30fa34…30fbc8 Dummy {f00=0x0168, 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
0x30fbc8…30fd5c Dummy {f00=0x0168, 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
0x30fd5c…30fef0 Dummy {f00=0x0168, 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
0x30fef0…310084 Dummy {f00=0x0168, 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
0x310084…310218 Dummy {f00=0x0168, 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
0x310218…3103ac Dummy {f00=0x0168, 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***********************
0x3103ac…310540 Dummy {f00=0x0168, 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
0x310540…3106d4 (4, 258) Dummy {f00=0x0178, 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******************
0x3106d4…310868 Dummy {f00=0x0178, 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******
0x310868…3109fc Dummy {f00=0x0178, 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
0x3109fc…310b90 Dummy {f00=0x0178, 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
0x310b90…310d24 Dummy {f00=0x0178, 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 01 P* P* 6 P* A PROGRAM
0x310d24…310eb8 Dummy {f00=0x0178, 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********************************************
0x310eb8…31104c Dummy {f00=0x0178, 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
0x31104c…3111e0 Dummy {f00=0x0178, 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
0x3111e0…311374 (4, 259) Dummy {f00=0x0178, 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
0x311374…311508 Dummy {f00=0x0178, 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
0x311508…31169c Dummy {f00=0x0178, 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*
0x31169c…311830 Dummy {f00=0x0178, 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*
0x311830…3119c4 Dummy {f00=0x0178, 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
0x3119c4…311b58 Dummy {f00=0x0178, 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
0x311b58…311cec Dummy {f00=0x0178, 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*
0x311cec…311e80 Dummy {f00=0x0178, 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
0x311e80…312014 (4, 260) Dummy {f00=0x0179, 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
0x312014…3121a8 Dummy {f00=0x0179, 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
0x3121a8…31233c Dummy {f00=0x0179, 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
0x31233c…3124d0 Dummy {f00=0x0179, 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
0x3124d0…312664 Dummy {f00=0x0179, 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
0x312664…3127f8 Dummy {f00=0x0179, 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
0x3127f8…31298c Dummy {f00=0x0179, 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
0x31298c…312b20 Dummy {f00=0x0179, 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**************
0x312b20…312cb4 (4, 261) Dummy {f00=0x0179, 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
0x312cb4…312e48 Dummy {f00=0x0179, 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
0x312e48…312fdc Dummy {f00=0x0179, 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
0x312fdc…313170 Dummy {f00=0x0179, 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
0x313170…313304 Dummy {f00=0x0179, 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
0x313304…313498 Dummy {f00=0x0179, 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
0x313498…31362c Dummy {f00=0x0179, 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
0x31362c…3137c0 Dummy {f00=0x0179, 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
0x3137c0…313954 (4, 262) Dummy {f00=0x0179, 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 . &
0x313954…313ae8 Dummy {f00=0x0179, 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
0x313ae8…313c7c Dummy {f00=0x0179, 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
0x313c7c…313e10 Dummy {f00=0x0179, 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
0x313e10…313fa4 Dummy {f00=0x0179, 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
0x313fa4…314138 Dummy {f00=0x0179, 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
0x314138…3142cc Dummy {f00=0x0179, 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
0x3142cc…314460 Dummy {f00=0x0179, 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
0x314460…3145f4 (4, 263) Dummy {f00=0x0179, 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
0x3145f4…314788 Dummy {f00=0x0179, 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**
0x314788…31491c Dummy {f00=0x0179, 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
0x31491c…314ab0 Dummy {f00=0x0179, 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
0x314ab0…314c44 Dummy {f00=0x0179, 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
0x314c44…314dd8 Dummy {f00=0x0179, 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
0x314dd8…314f6c Dummy {f00=0x0179, 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 < &
0x314f6c…315100 Dummy {f00=0x0179, 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
0x315100…315294 (4, 264) Dummy {f00=0x017a, 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
0x315294…315428 Dummy {f00=0x017a, 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
0x315428…3155bc Dummy {f00=0x017a, 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
0x3155bc…315750 Dummy {f00=0x017a, 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
0x315750…3158e4 Dummy {f00=0x017a, 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
0x3158e4…315a78 Dummy {f00=0x017a, 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
0x315a78…315c0c Dummy {f00=0x017a, 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
0x315c0c…315da0 Dummy {f00=0x017a, 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
0x315da0…315f34 (4, 265) Dummy {f00=0x017a, 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
0x315f34…3160c8 Dummy {f00=0x017a, 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
0x3160c8…31625c Dummy {f00=0x017a, 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******************************
0x31625c…3163f0 Dummy {f00=0x017a, 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
0x3163f0…316584 Dummy {f00=0x017a, 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
0x316584…316718 Dummy {f00=0x017a, 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
0x316718…3168ac Dummy {f00=0x017a, 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
0x3168ac…316a40 Dummy {f00=0x017a, 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
0x316a40…316bd4 (4, 266) Dummy {f00=0x017a, 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
0x316bd4…316d68 Dummy {f00=0x017a, 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(
0x316d68…316efc Dummy {f00=0x017a, 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
0x316efc…317090 Dummy {f00=0x017a, 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
0x317090…317224 Dummy {f00=0x017a, 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
0x317224…3173b8 Dummy {f00=0x017a, 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
0x3173b8…31754c Dummy {f00=0x017a, 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
0x31754c…3176e0 Dummy {f00=0x017a, 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
0x3176e0…317874 (4, 267) Dummy {f00=0x017a, 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
0x317874…317a08 Dummy {f00=0x017a, 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
0x317a08…317b9c Dummy {f00=0x017a, 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
0x317b9c…317d30 Dummy {f00=0x017a, 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
0x317d30…317ec4 Dummy {f00=0x017a, 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 *
0x317ec4…318058 Dummy {f00=0x017a, 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
0x318058…3181ec Dummy {f00=0x017a, 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
0x3181ec…318380 Dummy {f00=0x017a, 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
0x318380…318514 (4, 268) Dummy {f00=0x017b, 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
0x318514…3186a8 Dummy {f00=0x017b, 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
0x3186a8…31883c Dummy {f00=0x017b, 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* `
0x31883c…3189d0 Dummy {f00=0x017b, 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
0x3189d0…318b64 Dummy {f00=0x017b, 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
0x318b64…318cf8 Dummy {f00=0x017b, 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
0x318cf8…318e8c Dummy {f00=0x017b, 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
0x318e8c…319020 Dummy {f00=0x017b, 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
0x319020…3191b4 (4, 269) Dummy {f00=0x017b, 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
0x3191b4…319348 Dummy {f00=0x017b, 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
0x319348…3194dc Dummy {f00=0x017b, 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
0x3194dc…319670 Dummy {f00=0x017b, 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
0x319670…319804 Dummy {f00=0x017b, 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
0x319804…319998 Dummy {f00=0x017b, 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*
0x319998…319b2c Dummy {f00=0x017b, 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
0x319b2c…319cc0 Dummy {f00=0x017b, 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,/
0x319cc0…319e54 (4, 270) Dummy {f00=0x017b, 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
0x319e54…319fe8 Dummy {f00=0x017b, 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
0x319fe8…31a17c Dummy {f00=0x017b, 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
0x31a17c…31a310 Dummy {f00=0x017b, 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
0x31a310…31a4a4 Dummy {f00=0x017b, 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
0x31a4a4…31a638 Dummy {f00=0x017b, 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
0x31a638…31a7cc Dummy {f00=0x017b, 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
0x31a7cc…31a960 Dummy {f00=0x017b, 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
0x31a960…31aaf4 (4, 271) Dummy {f00=0x017b, 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
0x31aaf4…31ac88 Dummy {f00=0x017b, 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
0x31ac88…31ae1c Dummy {f00=0x017b, 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
0x31ae1c…31afb0 Dummy {f00=0x017b, 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
0x31afb0…31b144 Dummy {f00=0x017b, 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
0x31b144…31b2d8 Dummy {f00=0x017b, 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
0x31b2d8…31b46c Dummy {f00=0x017b, 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*
0x31b46c…31b600 Dummy {f00=0x017b, 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
0x31b600…31b794 (4, 272) Dummy {f00=0x017c, 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
0x31b794…31b928 Dummy {f00=0x017c, 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********
0x31b928…31babc Dummy {f00=0x017c, 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
0x31babc…31bc50 Dummy {f00=0x017c, 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
0x31bc50…31bde4 Dummy {f00=0x017c, 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
0x31bde4…31bf78 Dummy {f00=0x017c, 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(
0x31bf78…31c10c Dummy {f00=0x017c, 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 *
0x31c10c…31c2a0 Dummy {f00=0x017c, 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
0x31c2a0…31c434 (4, 273) Dummy {f00=0x017c, 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 "
0x31c434…31c5c8 Dummy {f00=0x017c, 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
0x31c5c8…31c75c Dummy {f00=0x017c, 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
0x31c75c…31c8f0 Dummy {f00=0x017c, 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
0x31c8f0…31ca84 Dummy {f00=0x017c, 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
0x31ca84…31cc18 Dummy {f00=0x017c, 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
0x31cc18…31cdac Dummy {f00=0x017c, 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
0x31cdac…31cf40 Dummy {f00=0x017c, 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
0x31cf40…31d0d4 (4, 274) Dummy {f00=0x017c, 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 ?
0x31d0d4…31d268 Dummy {f00=0x017c, 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
0x31d268…31d3fc Dummy {f00=0x017c, 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
0x31d3fc…31d590 Dummy {f00=0x017c, 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*
0x31d590…31d724 Dummy {f00=0x017c, 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
0x31d724…31d8b8 Dummy {f00=0x017c, 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
0x31d8b8…31da4c Dummy {f00=0x017c, 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
0x31da4c…31dbe0 Dummy {f00=0x017c, 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
0x31dbe0…31dd74 (4, 275) Dummy {f00=0x017c, 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*
0x31dd74…31df08 Dummy {f00=0x017c, 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 ?
0x31df08…31e09c Dummy {f00=0x017c, 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 ?
0x31e09c…31e230 Dummy {f00=0x017c, 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
0x31e230…31e3c4 Dummy {f00=0x017c, 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
0x31e3c4…31e558 Dummy {f00=0x017c, 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)
0x31e558…31e6ec Dummy {f00=0x017c, 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
0x31e6ec…31e880 Dummy {f00=0x017c, 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
0x31e880…31ea14 (4, 276) Dummy {f00=0x017d, 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
0x31ea14…31eba8 Dummy {f00=0x017d, 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*
0x31eba8…31ed3c Dummy {f00=0x017d, 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
0x31ed3c…31eed0 Dummy {f00=0x017d, 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
0x31eed0…31f064 Dummy {f00=0x017d, 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,BLOCK INDICATE BLOCK PERMIT.
0x31f064…31f1f8 Dummy {f00=0x017d, f01=0x018e, f02=»CON035 EQU * P LDR* A6,A5 GET LAST DWT P RB(Z) CON010 4 P CWK A6,1 SYNC ? J P RB(E) CON010 b P CMR A5 RESET LAST OUTPUT x P LDK A2,/00 DUMMY P CF A15,OUTLIN SEND IT P RB CON010 P EJECT P* P* P*
0x31f1f8…31f38c Dummy {f00=0x017d, f01=0x0190, f02=» P* P* P IFT LOGING=1 P* . PLOGG STR A1,A15 8 P LD A1,POINT P P ADK A1,2 d & P CWK A1,BUFE BUFE IS MAX LOGG AREA v P RF(NE) L1 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS PL1 ST A1,POINT & P STR A2,A1 LOGG OF I
0x31f38c…31f520 Dummy {f00=0x017d, f01=0x0190, f02=» t P* $ PBUF RES 2000 LOGG AREA (500) DK1 PBUFE EQU * : P* L P XIF V P* b P EJECT l P* z P* P* E C H O , E C H E N D P* < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, . P* ONE GENER
0x31f520…31f6b4 (4, 277) Dummy {f00=0x017d, f01=0x0190, f02=»FIND ADDRESS n 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE P* L . P* PART TWO: ECHO ONE OR MORE CHARACTERS V 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER P* P* 4
0x31f6b4…31f848 Dummy {f00=0x017d, f01=0x0190, f02=» P* 6 P* RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER P* H " P* A7 MUST NOT BE DESTROYED R 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A x P* JUMP TO 'ECHRTN'. P* PECHEND EQU * P* P IFT CECHO=1
0x31f848…31f9dc Dummy {f00=0x017d, f01=0x0190, f02=»T p P ST A4,DWTA4,A6 P ST A5,DWTA5,A6 " P LD A1,DWTST,A6 STATUS : P SLL A1,2 X $ P RF(NN) RETUR NO ECHO REQUESTED j 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE 6 P ST A4,DWTWA
0x31f9dc…31fb70 Dummy {f00=0x017d, f01=0x4170, f02=» TO ADDRESS-BLOCK x 6 P ABI ECHADR,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT P XIF T PECHRTN EQU * ` P IFT CECHO=1 t P LDR A7,A7 END? P RF(NN) ERETUR NO ( P CF A15,TENDIO END I/O OUTPUT DEVICE > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-
0x31fb70…31fd04 Dummy {f00=0x017d, 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
0x31fd04…31fe98 Dummy {f00=0x017d, f01=0x0000, f02=»
[…0x2…]
0x3201c0…320354 (4, 278) Opaque[0x194]
0x320354…3204e8 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25c8, f03=0x0000}
0x320354…3204e8 IdxSect {
0x320354…3204e8 f00 = 0x012e // 0x320354 @0x0
0x320354…3204e8 f01 = 0x000a // 0x320356 @0x2
0x320354…3204e8 gno = [ // 0x320358 @0x4
0x320354…3204e8 [0x00]: C0x012e.0x1.0
0x320354…3204e8 [0x01]: C0x012e.0x2.0
0x320354…3204e8 [0x02]: C0x012e.0x3.0
0x320354…3204e8 [0x03]: C0x012f.0x0.0
0x320354…3204e8 [0x04]: C0x012f.0x1.0
0x320354…3204e8 ]
0x320354…3204e8 }
0x3204e8…32067c Dummy {f00=0x012e, 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
0x32067c…320810 Dummy {f00=0x012e, 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
0x320810…3209a4 Dummy {f00=0x012e, 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
0x3209a4…320b38 Dummy {f00=0x012e, 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
0x320b38…320ccc Dummy {f00=0x012e, 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
0x320ccc…320e60 Dummy {f00=0x012e, 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
0x320e60…320ff4 (4, 279) Dummy {f00=0x012e, 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
0x320ff4…321188 Dummy {f00=0x012e, 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
0x321188…32131c Dummy {f00=0x012e, 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
0x32131c…3214b0 Dummy {f00=0x012e, 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
0x3214b0…321644 Dummy {f00=0x012e, 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
0x321644…3217d8 Dummy {f00=0x012e, 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*
0x3217d8…32196c Dummy {f00=0x012e, 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********************
0x32196c…321b00 Dummy {f00=0x012e, 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
0x321b00…321c94 (4, 280) Dummy {f00=0x012e, 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
0x321c94…321e28 Dummy {f00=0x012e, 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*
0x321e28…321fbc Dummy {f00=0x012e, 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=
0x321fbc…322150 Dummy {f00=0x012e, 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(
0x322150…3222e4 Dummy {f00=0x012e, 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*
0x3222e4…322478 Dummy {f00=0x012e, 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
0x322478…32260c Dummy {f00=0x012e, 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
0x32260c…3227a0 Dummy {f00=0x012e, 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
0x3227a0…322934 (4, 281) Dummy {f00=0x012f, 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
0x322934…322ac8 Dummy {f00=0x012f, 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*
0x322ac8…322c5c Dummy {f00=0x012f, 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
0x322c5c…322df0 Dummy {f00=0x012f, 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
0x322df0…322f84 Dummy {f00=0x012f, 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******
0x322f84…323118 Dummy {f00=0x012f, 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
0x323118…3232ac Dummy {f00=0x012f, 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
0x3232ac…323440 Dummy {f00=0x012f, 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
0x323440…3235d4 (4, 282) Dummy {f00=0x012f, 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
0x3235d4…323768 Dummy {f00=0x012f, 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
0x323768…3238fc Dummy {f00=0x012f, 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
0x3238fc…323a90 Dummy {f00=0x012f, 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
0x323a90…323c24 Dummy {f00=0x012f, 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
0x323c24…323db8 Dummy {f00=0x012f, 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
0x323db8…323f4c Dummy {f00=0x012f, 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 $
0x323f4c…3240e0 Dummy {f00=0x012f, 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******
0x3240e0…324274 (4, 283) Opaque[0x194]
0x324274…324408 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25f0, f03=0x0000}
0x324274…324408 IdxSect {
0x324274…324408 f00 = 0x012f // 0x324274 @0x0
0x324274…324408 f01 = 0x0020 // 0x324276 @0x2
0x324274…324408 gno = [ // 0x324278 @0x4
0x324274…324408 [0x00]: C0x012f.0x2.0
0x324274…324408 [0x01]: C0x012f.0x3.0
0x324274…324408 [0x02]: C0x0130.0x0.0
0x324274…324408 [0x03]: C0x0130.0x1.0
0x324274…324408 [0x04]: C0x0130.0x2.0
0x324274…324408 [0x05]: C0x0130.0x3.0
0x324274…324408 [0x06]: C0x0131.0x0.0
0x324274…324408 [0x07]: C0x0131.0x1.0
0x324274…324408 [0x08]: C0x0131.0x2.0
0x324274…324408 [0x09]: C0x0131.0x3.0
0x324274…324408 [0x0a]: C0x0132.0x0.0
0x324274…324408 [0x0b]: C0x0132.0x1.0
0x324274…324408 [0x0c]: C0x0132.0x2.0
0x324274…324408 [0x0d]: C0x0132.0x3.0
0x324274…324408 [0x0e]: C0x0133.0x0.0
0x324274…324408 [0x0f]: C0x0133.0x1.0
0x324274…324408 ]
0x324274…324408 }
0x324408…32459c Dummy {f00=0x012f, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 9.2 79-12-05 870105040920 P : * P =2,TIMING PROBLEMS IN INT. HANDLER B P REL 9.2 79-11-16 p $ P =1,CHANGED INTERRUPT HANDLER P REL 9.1 79-05-23 P* 2 P**********************************************
0x32459c…324730 Dummy {f00=0x012f, f01=0x0190, f02=» P* P* P* 2 P********************************************* " 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY X . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON & P* MULTIPLEX OR PROGRA
0x324730…3248c4 Dummy {f00=0x012f, f01=0x0190, f02=»L READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRITE T D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- p P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /1A SEARCH KE
0x3248c4…324a58 Dummy {f00=0x012f, f01=0x0190, f02=» -IBM DISC ONLY- t P* /37 LOAD , P* /38 UNLOAD B P* Z P* ENTRY PARAMETERS: d P* P* A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER P* A8 ECB-ADDRESS P EJECT DRFD01
0x324a58…324bec Dummy {f00=0x012f, f01=0x0190, f02=»R ACTIVATION ADDRESS " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE B P ENTRY DWFD01 DWT-ADDRESS f P EJECT DRFD01 P* P************* P* * P* EXTERNALS * P* * P******
0x324bec…324d80 Dummy {f00=0x012f, f01=0x0190, f02=»TATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER 0 EXTRN DWTA2 SAVE AREA A2 X EXTRN DWTA5 SAVE AREA A5 z & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE ( P EXTRN SAVE8 SAVE A1-A
0x324d80…324f14 (4, 284) Dummy {f00=0x012f, f01=0x0190, f02=»XTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB ( 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE R $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN
0x324f14…3250a8 Dummy {f00=0x012f, f01=0x0190, f02=» * P* CONDITIONAL ASSEMBLY * P* * > P************************ ^ P* ~ . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P* PX:A EQU 1 PCHAN EQU 1
0x3250a8…32523c Dummy {f00=0x012f, f01=0x0190, f02=» PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAINED BY SETTING IBM EQU 1. V P* PX:C EQU 0 PIBM EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMU
0x32523c…3253d0 Dummy {f00=0x012f, f01=0x0190, f02=»BTAINED BY SETTING CPU852 EQU 0. P* ( PCPU852 EQU 0 2 P* F P EJECT DRFD01 P P* h * r . ** A PROGRAM VERSION USING TOSS DISC PAGING | * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 0 * P*
0x3253d0…325564 Dummy {f00=0x012f, f01=0x0190, f02=»QU 0 P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 d P* PX:D EQU 0 POPCLOS EQU 1 P* P EJECT DRFD01 P* P
0x325564…3256f8 Dummy {f00=0x012f, f01=0x018e, f02=»CE INDEX P* P* P IFT CHAN=1 $ PDEVIND EQU 2 8 P XIF L P* X P IFT CHAN=0 b PDEVIND EQU 4-IBM-IBM v P XIF P* P EJECT DRFD01 P* P************* P* * P* CONSTANTS *
0x3256f8…32588c Dummy {f00=0x012f, f01=0x0190, f02=» l ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. 4 ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH b " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITION $
0x32588c…325a20 Dummy {f00=0x012f, f01=0x018e, f02=»************** P* * P* DWT-DISPLACEMENTS* 2 P* * N P******************** j P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P
0x325a20…325bb4 (4, 285) Dummy {f00=0x0130, f01=0x018e, f02=» ~ P* P********** P* * $ P* TABLES * 6 P* * H P********** Z P* l P IFT DEVIND=2 v ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P XIF P* P IFT DEVIND=4 " P DATA 0 INDICATE NO MMU BUFFER
0x325bb4…325d48 Dummy {f00=0x0130, f01=0x0190, f02=» P* P EJECT DRFD01 P* & P************** 0 P* * F P* ACTIVATION * P* * r P************** P* PFDAD EQU * ACTIVATION ENTRY P* P IFT OPCLOS=1 & P* CHECK IF OPEN OR CLOSE
0x325d48…325edc Dummy {f00=0x0130, f01=0x0190, f02=»* P EJECT P XIF P* $ P LDK A3,0 . P LC A3,DWTOR,A6 INDEX @ P LDR A2,A3 SAVE FOR FDIX ^ P* ~ & P* PUT DRIVE NO IN CIO-INSTRUCTION P* P CF A5,SETCIO A3,A4 AFFECTED ( P CM DWTRCW,A6 SAVE RETURN CODE WORD
0x325edc…326070 Dummy {f00=0x0130, f01=0x0190, f02=»WTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3 & P RF(NZ) FD:ORD LOCKED 8 P LDR A1,A7 V P SUK A1,/26 h P ABL(Z) LOAD LOCK ORDER | P SUK A1,/11 P ABL(Z) LOAD LOAD ORDER P LDKL A1,/8001 RETURN CODE P ABL END:IO ENDIO
0x326070…326204 Dummy {f00=0x0130, f01=0x0190, f02=» DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GET FIRST WORD OF ECB B 4 P ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS l . P RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? P LDR A3,A2 P RF(NN) FD:005 6 P ADKL A3,T
0x326204…326398 Dummy {f00=0x0130, f01=0x018e, f02=» LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 ( P SLL A1,2 : P ORR A1,A2 L P ANKL A3,/FFF ^ 2 P ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS t , P ADKL A1,/400 CREATE ONE MORE MMU ENTRY P ST A1,DWT:PA+2,A6 P LDR A1,A3 ( P O
0x326398…32652c Dummy {f00=0x0130, f01=0x0190, f02=» ` P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P* N P EJECT DRFD01 X P XIF p P* | P LDR A1,A7 P ABL(Z) FD:070 TEST STATUS P SUK A1,1 P RF(Z) FD:040 PHYSICAL READ P SUK A1,4 P RF(Z)
0x32652c…3266c0 Dummy {f00=0x0130, f01=0x018e, f02=» SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 : P ABL(Z) UNLOAD UNLOAD ORDER N P IFT IBM=1 r P ADK A1,/36 " P ABL(Z) SQREAD SEQUENTIAL READ P SUK A1,4 $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A1,/2B
0x3266c0…326854 (4, 286) Dummy {f00=0x0130, f01=0x0190, f02=» v P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR 0 P* R P IFT OPCLOS=1 P EJECT r P* P******** P* * P* OPEN * P* * P******** P* 4 P* OPEN IS PERFORMED BY WRITING A
0x326854…3269e8 Dummy {f00=0x0130, f01=0x0190, f02=» ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA 0 " P OTR A1,0,SOPDA OPEN FD DRIVE d P* * P* WAIT FOR DRIVE TO BECOME OPERABLE ( P LDK A4,DWTTP2 TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINT
0x3269e8…326b7c Dummy {f00=0x0130, f01=0x0190, f02=»SP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED . P LDR A6,A1 GET DWT-ADDR L , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING l & P RF OCLEXI COMMON OPEN/CLOSE EXIT P* P EJECT P* P********* P* *
0x326b7c…326d10 Dummy {f00=0x0130, f01=0x0190, f02=» THE SOP LIGHTS EXTERNAL REGISTER P* * PCLOSE EQU * 4 " P LDKL A1,/8000 MASK FOR BIT 0 H & P ORS A1,SPDLCI SET OPEN/CLOSE BIT n 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA CLOSE FD DRIVE P* POCLEXI EQU *
0x326d10…326ea4 Dummy {f00=0x0130, f01=0x0190, f02=»JECT DRFD01 P* P*************** P* * 8 P* BASIC WRITE * P P* * h P*************** P* PFD:010 CF A5,BIO P ORK A2,1 PFD:015 EQU * P IFT TOSS+IBM=2 P LD A1,DWTLAB,A6
0x326ea4…327038 Dummy {f00=0x0130, f01=0x0190, f02=» P CF A5,EBCDIC PFD:018 EQU * P XIF . P* : P IFT CHAN+TOSS=2 D P IFT MMUPAG+SWPBLK=2 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS x ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH P
0x327038…3271cc Dummy {f00=0x0130, f01=0x0190, f02=»MMU TABLE v 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK H P LDR A2,A8 RESTORE A2 r P* P EJECT DRFD01 P* P* PFD:019 EQU * P XIF P* " P CF A5,FD:WRITE PERFORME
0x3271cc…327360 Dummy {f00=0x0130, f01=0x0190, f02=» WAS IN SYSTEM AREA? | . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A1,ECBBA,A8 RESTORE IT IN ECB N P* x PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* * P
0x327360…3274f4 (4, 287) Dummy {f00=0x0130, f01=0x018e, f02=»S 13-15 x P RB FD:015 P EJECT DRFD01 " P* : P********************** D P* * b P* WRITE DELETED DATA * P* * P********************** P* PFD:030 CF A5,BIO P ORK A2,6
0x3274f4…327688 Dummy {f00=0x0130, f01=0x0190, f02=» P***************** P* PFD:040 CF A5,BIO:RE ( P IFT TOSS+IBM=2 D P LD A1,DWTLAB,A6 P AN A1,DWTA3,A6 t P RF(Z) FD:042 TOSS DISC P XIF P IFT IBM=1 P LDKL A4,BUF PFD:042 EQU * P XIF $ PFD:045 CF
0x327688…32781c Dummy {f00=0x0130, f01=0x0190, f02=»SKPAG+SWPBLK=0 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( P RF(Z) FD:046 BUFFER IN SYSTEM AREA? N ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH z * P LDKL A1,FD:BUF GET DWT BUFFER ADDRESS & P TS -30,A15 SAVE RUNNING TASK MMU ( P TL DWT:PA
0x32781c…3279b0 Dummy {f00=0x0130, f01=0x0190, f02=»,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A2,ECBBA,A8 RESTORE IT IN ECB ! , P RF FD:048 ! V P* ! h PFD:046 EQU * ! r P XIF ! P* ! P IFT TOSS+IBM=2 ! P LD A1,DWTLAB,A6 ! P AN A1,DWTA3,A6 ! P RF(Z) FD:047 NOT IBM ! P XIF !
0x3279b0…327b44 Dummy {f00=0x0130, f01=0x0190, f02=» P XIF " PFD:048 EQU * " P ABL FD:RC " $ P* " 6 P EJECT DRFD01 " @ P* " X P IFT TOSS+IBM=0 " b P IFT MMUPAG=0 " z P* " P************** " P* * " P* SEARCH KEY * " P* * " P************** " P
0x327b44…327cd8 Dummy {f00=0x0130, f01=0x018e, f02=»0 ILLEGAL LENGTH " P SUK A1,128 # " P ABL(P) END:10 ILLEGAL LENGTH # , P LDR A3,A2 # R P* # d * P* IF ODD CHANGE TO EVEN NO OF BYTES # n P* # P ADK A3,1 # P SRL A3,1 # P SLL A3,1 # P* # P SLL A2,3 # P ORK A2,7 BIO #
0x327cd8…327e6c Dummy {f00=0x0130, f01=0x0190, f02=» P* $ P EJECT DRFD01 $ P* $ & $ P* READ RECORD WITH KEY COMMAND $ 0 P* $ X PFD:060 EQU * $ b P LDK A2,4 BIO $ v P LD A3,4,A8 REQUESTED LENGTH $ P CWK A3,130 $ " P ABL(NE) END:10 ILLEGAL LENGTH $ P LD A4,2,A8 BUFFER ADDRESS $
0x327e6c…328000 Dummy {f00=0x0130, f01=0x0190, f02=»TUS * $ P* * % P*************** % & P* % > PFD:070 EQU * % H P LDKL A2,/FFF9 BIO DUMMY % P CF A5,FD:WRI % | P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % " P ANKL A3,/200 WRITE PROTECTED? % P O
0x328000…328194 (4, 288) Dummy {f00=0x0130, f01=0x018e, f02=»RCW,A6 GET RETURN CODE % PFD:090 ABL END:IO & P* & 8 P EJECT DRFD01 & B P* & Z P******** & d P* * & t P* LOAD * & P* * & P******** & P* & PLOAD EQU * & P LDK A2,/14 LOCK & P CF A5,FD:REA & P ANK A3,1
0x328194…328328 Dummy {f00=0x0130, f01=0x0190, f02=» & P LDK A2,0 BIO ' P LDKL A4,BUF ' P LDK A3,38 NO OF BYTES ' 2 P CF A5,FD:REA ' P P CF A5,LD:RC ' f P ADK A4,34 ' z P LDR* A2,A4 ' P CWK A2,'TO' ' ( P RF(NE) LOA:10 IBM LABEL PREASSUMED ' P ADK A4,2 ' P LDR* A2,A4 ' P C
0x328328…3284bc Dummy {f00=0x0130, f01=0x0190, f02=»* ' P* READ VOLUME NAME ( P* ( & P LDK A3,8 LENGTH ( 0 P LDK A2,0 BIO ( H * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ( ^ * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL ( P RF LOA:15 ( P XIF ( P IFT IBM=1 ( PLOA:10 LDK A3,10 LENGTH (
0x3284bc…328650 Dummy {f00=0x0130, f01=0x018e, f02=»BIT 10 ( x P ORS A1,DWTRCW,A6 ) P XIF ) ( P IFF TOSS+IBM=0 ) 4 PLOA:15 EQU * ) L P LDKL A4,BUF BUFFER ADDRESS ) ` P CF A5,FD:REA ) P CF A5,LD:RC ) P LDK A1,2 ) P XIF ) P IFT IBM=1 ) P LD A7,DWTRCW,A6 ) $ P ANK A7,/20 CHECK
0x328650…3287e4 Dummy {f00=0x0130, f01=0x0190, f02=» ) P XIF * P* * P EJECT DRFD01 * P* * 6 P* * @ P IFF TOSS+IBM=0 * J P* * b P* GET DWT VOL NAME ADDRESS * l P* * P CF A5,VOLADR ADDRESS TO A2 * P* * P* STORE NAME IN DWT * P* * P LDK A3,3 * PLOA:40 L
0x3287e4…328978 Dummy {f00=0x0130, f01=0x018e, f02=»50 EQU * * P LC A2,DWTOR+1,A6 GET ORDER + P ANK A2,/FF + 4 & P RB(Z) FD:075 JUMP IF TEST STATUS + H P XIF + r P IFT IBM=1 + ~ P* + P* DATA SET OPENING WANTED? + P* + " P ANK A1,/2 A1: TOSS=6, IBM=8 + P RF(NZ) LOA:70 TOSS LABEL +
0x328978…328b0c Dummy {f00=0x0130, f01=0x0190, f02=» + P LD A2,ECBCW,A8 SECTOR NO , P SUK A2,7 , * P ABL(N) FD:DIS REQUEST ERROR , < P SUK A2,18 , ` P ABL(P) FD:DIS REQUEST ERROR , r P ADK A2,25 , P SLL A2,3 BIO , P LDK A3,80 LENGTH , P LDKL A4,BUF , P CF A5,FD:REA , P LDR A
0x328b0c…328ca0 Dummy {f00=0x0130, f01=0x0190, f02=»ABEL , f PLOA:60 EQU * - P CF A5,LD:RC - P ENB - 4 * P LD A3,ECBCW,A8 DATA SET LABEL SECTOR - @ P LDK A1,DWTDSS - n P CF A5,STDWT SAVE IN DWT - P ADK A4,BOE BOE ADDRESS - . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - P LDK A1,DWTBOE -
0x328ca0…328e34 (4, 289) Dummy {f00=0x0131, f01=0x0190, f02=» - t P CF A5,LOGSEC . P LDK A1,DWTEOE . $ P CF A5,STDWT STORE EOE NO IN DWT . 4 P ADK A4,EOD-EOE EOD ADDRESS . P CF A5,LOGSEC . P CF A5,SETINH INHIBIT . P LDK A1,DWTEOD . $ P CF A5,STDWT STORE EOD NO IN DWT . P* . PLOA:70 EQU *
0x328e34…328fc8 Dummy {f00=0x0131, f01=0x0190, f02=»D:RC . P* / P EJECT DRFD01 / P* / . P* / 8 P IFF TOSS+IBM=0 / B P* / Z P* ERROR , UNLOCK / d P* / ~ PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:
0x328fc8…32915c Dummy {f00=0x0131, f01=0x0190, f02=»WTRCW,A6 / P ANKL A3,/2007 FATAL ERROR 0 P RB(NZ) LOA:90 0 2 & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 H P RTN A5 0 r P XIF 0 P EJECT DRFD01 0 P* 0 P********** 0 P* * 0 P* UNLOAD * 0 P* * 0 P********** 0
0x32915c…3292f0 Dummy {f00=0x0131, f01=0x0190, f02=» A7,A7 EOD 0 P RF(Z) UNL:70 NOT OPEN 1 4 P ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 0 P* 1 h , P* READ DATA SET LABEL TO DRIVER BUFFER 1 r P* 1 P CF A5,DSLIO PREPARE FOR I/O 1 & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC
0x3292f0…329484 Dummy {f00=0x0131, f01=0x0190, f02=»C-CODED) 1 ` P* 2 P CF A5,DSOPCH EOD-NO TO A7 2 P* 2 < P* DIVIDE EOD BY 26 2 F P* 2 b P LDK A1,0 2 l PUNL:10 SUK A7,26 2 ~ P RF(N) UNL:20 2 P ADK A1,1 2 P RB UNL:10 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK
0x329484…329618 Dummy {f00=0x0131, f01=0x0190, f02=» TO POS 79 2 v P SCR A3,A4 3 P SUK A4,1 3 $ P SRL A3,8 LEFT BYTE 3 6 P SCR A3,A4 STORE IN BUFFER 3 R P LDR A7,A1 TRACK 3 t ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 P CF A5,SETINH INHIBIT 3
0x329618…3297ac Dummy {f00=0x0131, f01=0x0190, f02=»E WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 P CF A5,DSOPCH 4 F P CMR A2 INDICATE NOT OPEN 4 P* 4 ~ P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6
0x3297ac…329940 Dummy {f00=0x0131, f01=0x018e, f02=»LOCK IN DWT 4 t PUNL:80 EQU * 5 P RB LOA:75 END:IO 5 ( P IFF TOSS+IBM=0 5 B P* 5 Z P* UNLOAD RETURN CODE CHECK 5 d P* 5 PUNL:RC ORS A3,DWTRCW,A6 5 P ANK A3,/7 FATAL ERROR? 5 P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5
0x329940…329ad4 (4, 290) Dummy {f00=0x0131, f01=0x0190, f02=» P* 6 PSQREAD EQU * 6 * P CF A5,DSOPCH GET EOD AND EOD ADDRESS 6 " P LDR A7,A7 EOD 6 P " PSQR:05 ABL(Z) DISIOE NOT OPEN 6 f . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 6 P LDR* A3,A2 CRN 6 P ADK A3,1 CRN+1 6 & P ST A3,ECBCW,A8 STORE CRN+
0x329ad4…329c68 Dummy {f00=0x0131, f01=0x0190, f02=»REA READ SECTOR POINTED AT BY CRN+1 6 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 7 , $ P LD A7,ECBRL,A8 REQUESTED LENGTH 7 X $ P CF A5,ASCII TRANSFORM TO ASCII 7 P LDK A1,DWTCRN 7 P CF A5,DSPAD 7 P RF SQW:10 UPDATE CRN 7 P* 7 P* END OF DA
0x329c68…329dfc Dummy {f00=0x0131, f01=0x0190, f02=» P* SEQUENTIAL WRITE * 8 P******************* 8 P* 8 < PSQWRIT EQU * 8 F P CF A5,DSOPCH GET EOD 8 Z P ADK A7,0 EOD-NO (SET CR) 8 x P RB(Z) SQR:05 NOT OPEN 8 P* 8 P* CHECK IF END OF EXTENT 8 P* 8 P LDK A1,DWTEOE 8 & P CF
0x329dfc…329f90 Dummy {f00=0x0131, f01=0x018e, f02=»F A5,BIO 8 P LDK A7,128 9 , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF 9 $ P ORK A2,5 PHYS. WRITE 9 T P CF A5,FD:WRI 9 r P CF A5,DSOPCH 9 PSQW:10 LDR A1,A3 RETURN CODE 9 P ANK A1,/1 9 P RF(NZ) SQW:15 NOT OPERABLE 9 * P IMR A2 EOD=EOD+
0x329f90…32a124 Dummy {f00=0x0131, f01=0x0190, f02=» P RF END:IO : P EJECT DRFD01 : P* : . P********** : 8 P* REWIND * : J P********** : P* : n PREWIND EQU * : x P CF A5,DSOPCH : P ADK A7,0 EOD (SET CR) : $ P RB(Z) SQR:05 DATA SET NOT OPEN : P LDR A3,A2 SAVE EOD ADDRESS :
0x32a124…32a2b8 Dummy {f00=0x0131, f01=0x0190, f02=» P SUK A4,1 BOE - 1 ; P STR A4,A2 CRN = BOE -1 ; P LDK A1,0 RETURN CODE ; > P RF END:IO ; P XIF ; n P EJECT DRFD01 ; z P* ; P***************** ; P* * ; P* PERFORM ORDER * ; P* * ; P****
0x32a2b8…32a44c Dummy {f00=0x0131, f01=0x018e, f02=» A4 BUFFER ADDRESS ; P* < PFD:WRI EQU * < * P IFT CHAN=0 < > P LDKL A1,/C000 WORDS,WRITE < R P XIF < t P IFT CHAN=1 < ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < P XIF < P RF FD:800 < P* < PFD:REA EQU * < P IFT CHAN=1
0x32a44c…32a5e0 Dummy {f00=0x0131, f01=0x0190, f02=» PFD:800 EQU * = P IFT CHAN=0 = " P SRL A3,1 FROM BYTES TO WORDS = , P* = R P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = r * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = P XIF = P* = P IFT CHAN=0 = P ORR A3,A1 = PWE
0x32a5e0…32a774 (4, 291) Dummy {f00=0x0131, f01=0x0190, f02=» P* > . P* PUT BUFFER START AND END ADDRESS IN DWT > P* > @ P ST A4,DWTUB,A6 > J P ADR A3,A4 > b " P ST A3,DWTUBE,A6 END ADDRESS+2 > t P XIF > PFD:820 EQU * > & P ST A5,DWTA5,A6 SAVE STACK POINTER > $ PFD:CIO CIO A2,1,CUADR CIO-START >
0x32a774…32a908 Dummy {f00=0x0131, f01=0x0190, f02=» > P* ? * P************************************* ? * P* * ? @ * P* FD:RC - STORE EFF LEN, END:IO * ? n * P* * ? * P************************************* ? P* ? P* INP
0x32a908…32aa9c Dummy {f00=0x0131, f01=0x0190, f02=»D A2,ECBRL,A8 REQ LENGTH ? P ST A2,ECBEL,A8 EFF LENGTH @ P EJECT DRFD01 @ B P* @ Z P********** @ d P* * @ v P* END:IO * @ P* * @ P********** @ P* @ PEND:IO EQU * @ P CF A15,TENDIO @ PT:DISP ABL TDISP @
0x32aa9c…32ac30 Dummy {f00=0x0131, f01=0x018e, f02=»END:10 LDK A1,8 RETURN CODE @ P RB END:IO A $ P EJECT DRFD01 A 6 P* A N P******************** A X P* * A t P* RECOVERY ROUTINE * A P* * A P******************** A P* A PFDON EQU * A P IFT CPU
0x32ac30…32adc4 Dummy {f00=0x0131, f01=0x0190, f02=» P XIF B P* B P LDKL A6,DWFD01 DWT ADDRESS B P* B > PFDON05 EQU * B H P IM DWTA2,A6 SET FDON FLAG B P LDKL A5,DWTSB2 B ~ P ADR A5,A6 GET STACK BASE B P* B P IFF DSKPAG+SWPBLK=0 B , P LD A2,INIFLG CHECK INITIALIZATION FLAG B
0x32adc4…32af58 Dummy {f00=0x0131, f01=0x0190, f02=»T FLEXIBLE DISC? B P LDR A3,A2 C . P CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION C * ( P CF A5,FDIX GET DRIVE BIT INDICATOR C * P ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED C P* C P EJECT DRFD01 C P* C P* C P C1R A3,A3 C * P ANS A3,DW
0x32af58…32b0ec Dummy {f00=0x0131, f01=0x0190, f02=» P CF A5,FD:REA D P LD A3,SCTPLD D 0 P CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT D 0 P LDK A1,2 D d P LDK A3,3 D v P* D P* MOVE VOLUME NAME TO DWT D P* D PFDON06 LD A4,BUF,A1 D P STR A4,A2 D P ADK A1,2 D P ADK A2,2
0x32b0ec…32b280 Dummy {f00=0x0131, f01=0x0190, f02=» SAVE DWTST TO DWTST2 IF NOT ALREADY DONE. D P* DWTST IS SET BUSY E 2 P* E P P LD A2,DWTST2,A6 E Z P CWK A2,-1 E r P RF(NE) FDON08 ALREADY SAVED E P LD A2,DWTST,A6 E P ST A2,DWTST2,A6 E PFDON08 CM DWTST,A6 SET BUSY E P* E P I
0x32b280…32b414 (4, 292) Dummy {f00=0x0131, f01=0x0190, f02=»ER POINTER E | P RF(Z) FDON09 NOT RUNNING F P CMR A4 STOP TIMER F 4 $ P CM DWTTP2,A6 INDICATE NO TIMER F N PFDON09 EQU * F v P* F 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE F 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS F P* F
0x32b414…32b5a8 Dummy {f00=0x0131, f01=0x0190, f02=»ATUS WORD TO OPEN F ~ P* G P LDR* A2,A4 G $ & P OTR A2,0,SOPDA SET DRIVE TO OPEN G 8 P* G b P XIF G l P* G x P EJECT G P* G P* DELAY 2 SEC G P* G P LD A4,DWTTP,A6 G P RF(Z) FDON10 NO TIMER SET G P LDKL A4,-TIME G "
0x32b5a8…32b73c Dummy {f00=0x0131, f01=0x018e, f02=»5,SETIMP G P DATA FDON20,TIME H P RB T:DISP H * P* H < P* TIME OUT ROUTINE H F P* H b PFDON20 LDR A6,A1 H l P CM DWTTP,A6 H P LDKL A5,DWTSB2 H P ADR A5,A6 STACK BASE H P* H P* LOCK DOORS H P* H P LDK A2,1 H
0x32b73c…32b8d0 Dummy {f00=0x0131, f01=0x0190, f02=» P* I P EJECT I P* I P* PUT DRIVE NO IN CIO INSTR I & P* I J P SRN A2,A3 DRIVE NO IN A3 I T * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR I v P LDK A2,/14 LOCK I P CF A5,FD:REA I P LD A2,DWTA3,A6 DRIVE IND. I P ANK A3,1 I P R
0x32b8d0…32ba64 Dummy {f00=0x0131, f01=0x018e, f02=» I P* J P IFT OPCLOS=1 J P* J ( D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF J 2 $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG J z " P ORS A2,SPDLCI TO STATUS WORD J P CM DWTOCF,A6 CLEAR FLAG J P* J $ P LD A2,SPDLCI OPEN/CLO
0x32ba64…32bbf8 Dummy {f00=0x0131, f01=0x018e, f02=» P* K P* ANY REQUEST? K P* K & . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. K 0 P* SET DWTST2 TO -1 K b " P LD A2,DWTST2,A6 SAVED STATUS K ~ * P ST A2,DWTST,A6 PUT IN CUURENT STATUS K P LDKL A2,-1 K ( P ST A2,DWTST2,A6 INDICATE NOT SAVE
0x32bbf8…32bd8c Dummy {f00=0x0131, f01=0x0190, f02=» K b P* L P* RETRY REQUEST L P* L * P IM DWTRTY,A6 INDICATE RETRY L 4 P LD A7,DWTOR,A6 L X P ANK A7,/3F ORDER L p P LD A8,DWTECB,A6 ECB ADDRESS L P ABL FDAD REACTIVATE L P EJECT DRFD01 L P* L P********************* L
0x32bd8c…32bf20 Dummy {f00=0x0131, f01=0x0190, f02=» EQU * L $ P ST P,INTSAV SAVE LAST INTERRUPT M " P******************** =1 START M 6 P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M r P XIF M P* M P IFT CPU852=0 M " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M P* M P
0x32bf20…32c0b4 (4, 293) Dummy {f00=0x0132, f01=0x0190, f02=»FFER M v P SUR A2,A1 LENGTH N PIH005 EQU * N & P SST A3,CUADR GET STATUS N : " P RF(A) IH:000 READY INTERRUPT N Z ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR N P RF(NZ) IH050 READ N P* N P EJECT DRFD01 N P* N P* N PIH010 EQU * N
0x32c0b4…32c248 Dummy {f00=0x0132, f01=0x0190, f02=»WRITE N P RB(NA) IH005 O $ P ADK A1,2 UPDATE BUFFER POINTER O $ P SUK A2,2 O L P RB(P) IH010 O ^ P CIO A2,0,CUADR CIO HALT O r P ABL TDISP GOTO DISPATCHER O P* O PIH050 EQU * O P INR A3,0,CUADR READ O P RB(NA) IH005 O $ P SC
0x32c248…32c3dc Dummy {f00=0x0132, f01=0x0190, f02=» A2,2 O P RB(P) IH050 P P CIO A2,0,CUADR CIO HALT P " P SST A3,CUADR STATUS =2 P B P RB(NA) *-2 =2 P b PIH:000 EQU * =1 P z P XIF P P* P P EJECT DRFD01 P P* P P* P P******************** =1 END P P IFT CHAN=0 =2 P
0x32c3dc…32c570 Dummy {f00=0x0132, f01=0x0190, f02=»,A6 STACK POINTER P P SLL A3,1 Q P RF(N) FDRE READY INTERRUPT Q , P SRL A3,1 Q P P LD A2,DWTRTY,A6 RETRY? Q b P RF(Z) IH:10 NO Q " P CM DWTRTY,A6 RESET RETRY FLAG Q P LDR A1,A3 Q P ANKL A1,/0405 Q P RF(Z) IH:10 RETURN CODE OK Q
0x32c570…32c704 Dummy {f00=0x0132, f01=0x0190, f02=» CU - ECB Q x P* R P ANKL A3,/FF37 R P RF(Z) IH:80 R 2 P LDR A1,A3 R F " P ANKL A3,/0A05 UNCHANGED BITS R X P LDR A4,A1 R ~ P ANKL A4,/0400 BIT 5 R P SLC A4,7 TO BIT 14 R P ORR A3,A4 R P IFT TOSS+IBM=0 R P LDR A4,A1 R P ANK
0x32c704…32c898 Dummy {f00=0x0132, f01=0x0190, f02=» BIT 7 R P ORR A3,A4 S P ANK A1,/10 BIT 11 S P SRC A1,5 TO BIT 0 S : P ORR A3,A1 S T PIH:80 EQU * S f P IFT CHAN=1 =1 S z P INH =1 S P XIF =1 S P RTN A5 S P EJECT DRFD01 S P* S P******************** S P*
0x32c898…32ca2c Dummy {f00=0x0132, f01=0x0190, f02=»,DWTA2,A6 S , P ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE T P LDKL A5,DWTSB2 T B P ADR A5,A6 STACK BASE T Z P RB FDON60 T x P EJECT DRFD01 T P* T 0 P******************************************* T 0 P*
0x32ca2c…32cbc0 Dummy {f00=0x0132, f01=0x0190, f02=»*********************** T | P* U P******* U * P* * U : P* BIO * U J P* * U Z P******* U j P* U z P* U P* INPUT: A8 ECB ADDRESS U P* U > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START U 0 P* A
0x32cbc0…32cd54 (4, 294) Dummy {f00=0x0132, f01=0x0190, f02=»10 U PBIO:RE LDK A4,1 V PBIO010 EQU * V " P LD A3,ECBRL,A8 REQ LEN V 6 P RF(N) BIOERR ILLEGAL LENGTH V V P IFT TOSS+IBM=2 V z P LD A2,DWTLAB,A6 V P AN A2,DWTA3,A6 V P RF(Z) BIO020 TOSS DISC V P XIF V P IFT IBM=1 V P LDK A7,
0x32cd54…32cee8 Dummy {f00=0x0132, f01=0x0190, f02=»LEN V ~ P LDK A2,3 W PBIO030 EQU * W P XIF W 2 P IFF TOSS+IBM=0 W > P ADK A4,0 SET CR W V P RF(Z) BIO060 WRITE W n P LDK A2,0 W P LDR A1,A3 REQ LEN W & P CWR A3,A7 REQ LENGTH WITHIN RANGE W P RF(G) BIOERR NO W PBIO040 SUK A1,12
0x32cee8…32d07c Dummy {f00=0x0132, f01=0x018e, f02=»* W PBIO060 CWR A3,A7 X " P RF(NE) BIOERR ILLEGAL REQ LEN X " P XIF X H P IFT TOSS+IBM=0 X T P* X l > P* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH X v P* X P LDR A1,A3 REQ LENGTH X P LDK A2,0 NO OF SECTORS-1 X $ PBIO015
0x32d07c…32d210 Dummy {f00=0x0132, f01=0x0190, f02=» P* Y PBIO035 SUK A1,128 Y & P RF(NP) BIO100 REQ LENGTH ACCEPTED Y ( PBIO045 ADK A2,1 Y R P CWK A2,3 Y j P RB(NG) BIO015 Y | $ P RF BIOERR REQ LEN OUTSIDE RANGE Y P XIF Y P* Y 6 PBIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1 Y
0x32d210…32d3a4 Dummy {f00=0x0132, f01=0x0190, f02=»SECTOR NO Y P RF(N) BIOER2 OUTSIDE RANGE Z P IFT TOSS+IBM=2 Z 6 P ANK A7,/A Z N P RF(Z) BIO110 IBM DISC Z ` P XIF Z ~ P IFT TOSS=1 Z P CWK A1,499 Z P RF(G) BIOER2 OUT OF RANGE Z , P SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR Z P XIF
0x32d3a4…32d538 Dummy {f00=0x0132, f01=0x0190, f02=» P XIF [ P IFT TOSS+IBM=0 [ ( P CWK A1,2001 SECTOR NO OUT OF RANGE [ ( P RF(G) BIOER2 YES! [ T P XIF [ n PBIO120 EQU * [ z P SLL A1,3 [ P ORR A2,A1 [ " P LD A4,ECBBA,A8 BUFFER ADDRESS [ P LDR A1,A3 REQ LENGTH [ P ANK A1,1 [ $ P
0x32d538…32d6cc Dummy {f00=0x0132, f01=0x0190, f02=» PBIOERR ABL END:10 P* ILLEGAL SECTOR NO PBIOER2 ABL FD:DIS < P* V P EJECT DRFD01 ` P* x P********* P* * P* FDIX * P* * P********* P* P* INPUT: A2 X P*
0x32d6cc…32d860 Dummy {f00=0x0132, f01=0x018e, f02=»LL A3,1 P SUK A2,1 ] P RB FDIX10 ] " PFDIX20 RTN A5 ] 4 P EJECT DRFD01 ] J P IFF TOSS+IBM=0 ] b P****************** ] z P* * ] P* VOLADR * ] P* * ] P****************** ] P* ] P*
0x32d860…32d9f4 (4, 295) Dummy {f00=0x0132, f01=0x0190, f02=» ] P LC A3,DWTOR,A6 DRIVE NO ^ PVOLA05 EQU * ^ ( P LDK A2,DWTVO0 ^ < P ADR A2,A6 ^ R P ANK A3,/3 ^ d PVOLA10 EQU * ^ v P RF(Z) VOLA20 ^ P ADK A2,6 UPDATE ADDRESS ^ P SUK A3,1 ^ P RB VOLA10 ^ PVOLA20 RTN A5 ^ P XIF ^ P ^
0x32d9f4…32db88 Dummy {f00=0x0132, f01=0x0190, f02=»ASCII TRANSFORMS A STRING FROM EBCDIC TO ^ P* ASCII CODE _ 0 . P* INPUT STRING ADDRESS IS BUF _ P & P* INPUT: A7 NO OF CHARACTERS _ , P* A4 OUTPUT STRING ADDRESS _ P* OUTPUT: A1 CHANGED _ P*
0x32db88…32dd1c Dummy {f00=0x0132, f01=0x0190, f02=»C:10 SUK A7,1 _ P RF(N) ASC:20 ` P SUK A4,1 ` , " P LC A1,BUF,A7 GET EBCDIC CHAR ` > ( P LC A1,TASCII,A1 TRANSFORM TO ASCII ` d 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER ` P RB ASC:10 ` PASC:20 EQU * ` " P RF EBC:90 SET INH AND RETURN
0x32dd1c…32deb0 Dummy {f00=0x0132, f01=0x018e, f02=»ES A STRING FROM ASCII TO ` r P* EBCDIC CODE a " 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER a D P* a & P* INPUT: A7 NO OF CHARACTERS a * P* A4 INPUT STRING ADDRESS a P* a P* OUTPUT: A1 CHANGED a
0x32deb0…32e044 Dummy {f00=0x0132, f01=0x0190, f02=» P LDK A1,0 b PEBC:10 SUK A7,1 b P RF(N) EBC:80 b . P SUK A4,1 b D P LCR A1,A4 GET ASCII CHAR. b V P LC A1,TEBCDIC,A1 b x P SC A1,BUF,A7 b P RB EBC:10 b PEBC:80 EQU * b P LDKL A4,BUF b PEBC:90 EQU * b P CF A5,SETINH b
0x32e044…32e1d8 Dummy {f00=0x0132, f01=0x0190, f02=»EC TRANSFORMS PHYSICAL SECTOR TO STANDARD b ~ , P* LOGICAL SECTOR (BINARY). c 2 < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) c b * P* TT = TRACK, SS=SECTOR c P* c , P* INPUT: A4 ADDRESS TO PHYS. SECTOR c
0x32e1d8…32e36c Dummy {f00=0x0132, f01=0x0190, f02=»F A5,DECBIN c P LDR A3,A1 SAVE d P ADK A4,2 d , P* d > P* MULTIPLY BY 26 d H P* d b P SLL A3,5 *32 d l P LDR A2,A1 d P SLL A2,2 d P SUR A3,A2 *28 d P SLL A1,1 d P SUR A3,A1 *26 d P CF A5,DECBIN d P SUK A1,1 d
0x32e36c…32e500 Dummy {f00=0x0132, f01=0x0190, f02=»F+EOD+4 EOD? d P RF(E) LOG:02 YES! e P SUKL A1,1898 e . P RF LOG:04 e D P* e V " P* CHECK EOD LESS/EQUAL 74001 e ` P* e PLOG:02 SUKL A1,1899 e PLOG:04 EQU * e " P RF(P) LOG:10 NOT ACC SEC. NO e " P SUK A4,4 RESET BUFFER POINTER e
0x32e500…32e694 (4, 296) Dummy {f00=0x0132, f01=0x0190, f02=»DE e r P ORS A1,DWTRCW,A6 f P CF A5,SETINH f $ P ABL LOA:90 ERROR ROUTINE f : P* f P EJECT DRFD01 f f P* f ~ P********** f P* DECBIN* f P********** f P* f > P* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO f D
0x32e694…32e828 Dummy {f00=0x0132, f01=0x0190, f02=» BINARY f P* WORKING REG: A2,A7 g P* g 0 PDECBIN LDK A1,0 g : P LDK A7,2 g R PDEC:10 LCR A2,A4 DIGIT g d P ANK A2,/FF g P SUK A2,/F0 g P RB(N) LOG:05 g P SUK A2,9 g P RB(P) LOG:05 NOT DIGIT g P ADK A2,9 g P SUK
0x32e828…32e9bc Dummy {f00=0x0132, f01=0x0190, f02=»DK A1,/A MULTIPLY BY 10 g P RB DEC:20 h PDEC:30 ADR A1,A2 h 2 P RTN A5 h J P XIF h Z P EJECT DRFD01 h f P* h ~ P********** h P* SETCIO * h P********** h P* h 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION h P* h 8 P
0x32e9bc…32eb50 Dummy {f00=0x0132, f01=0x0190, f02=» PSETCIO LDKL A4,/FFCF i P ANS A4,FD:CIO i P SLL A3,4 i 6 P ORS A3,FD:CIO i H P RTN A5 i ^ P IFT IBM=1 i n P EJECT DRFD01 i P* i P********** i P* BINDEC * i P********** i P* i : P* FUNCTION: BINDEC TRANSFORMS A BINA
0x32eb50…32ece4 Dummy {f00=0x0132, f01=0x0190, f02=»UTPUT: A3 EBCDIC CODED DECIMAL DIGITS i P* A7 CHANGED j . P* j L PBINDEC LDK A3,0 j V PBIN:10 SUK A7,10 j n P RF(N) BIN:20 j P ADK A3,1 j P RB BIN:10 j PBIN:20 ADK A7,10 j P SLL A3,8 j * P ORR A3,A7 DECIMAL CONVERTED N
0x32ece4…32ee78 Dummy {f00=0x0132, f01=0x0190, f02=»* j P* k 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL k P* k L P* INPUT: A6 DWT ADDRESS k V P* k x : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES k P* A3 128 k ( P* A4 DRIVER BUFFER ADDRESS k P
0x32ee78…32f00c Dummy {f00=0x0132, f01=0x018e, f02=»2 k P SLL A2,3 l P LDK A3,128 l P LDKL A4,BUF l 0 P RTN A5 l D P EJECT DRFD01 l T P* l l P********** l v P* DSOPCH * l P********** l P* l 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT l P* l P* INPUT: A6
0x32f00c…32f1a0 Dummy {f00=0x0132, f01=0x0190, f02=» l x PDSOPCH LDK A1,DWTEOD m P CF A5,DSPAD m $ P LDR* A7,A2 EOD-NO m 8 P RTN A5 m R P EJECT DRFD01 m b P* m z P********* m P* DSPAD * m P********* m P* m 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED m 6 P* T
0x32f1a0…32f334 (4, 297) Dummy {f00=0x0133, f01=0x0190, f02=»UTPUT: A2 ADDRESS TO DATA m P* A6 DWT ADDRESS n " P* n D " PDSPAD LC A2,DWTOR,A6 DRIVE NO n N P ANK A2,/3 n t P ADR A2,A2 n P ADR A2,A6 n P ADR A2,A1 n P RTN A5 n P EJECT DRFD01 n P* n P********* n P* STDWT
0x32f334…32f4c8 Dummy {f00=0x0133, f01=0x018e, f02=» ( P* INPUT: A1 OFFSET TO DWT AREA o . P* A3 WORD TO BE STORED IN DWT o 0 P* A6 DWT ADDRESS o b P* o P* OUTPUT: A1 UNCHANGED o 0 P* A2 ADDRESS TO WORD IN DWT AREA o P* A3 UNCHANGED o P
0x32f4c8…32f65c Dummy {f00=0x0133, f01=0x018e, f02=» o ~ P* p P********** p P* SETINH * p $ P********** p 6 P* p H @ P* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE p R > P* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND p P* RETURN p P* p " P* INPUT:
0x32f65c…32f7f0 Dummy {f00=0x0133, f01=0x0190, f02=» p | PSET:10 RTN A5 q P XIF q P* q * " P* D R I V E R B U F F E R q 4 PBUF DATA 0,0,0,0 q Z P* q r P IFT IBM=1 q | P RES 60 q P XIF q P* q P EJECT DRFD01 q P* q P********************* q P*
0x32f7f0…32f984 Dummy {f00=0x0133, f01=0x0190, f02=»0 q P DATA /8000 DWT STATUS r P DATA 0 ECB ADDRESS r ( P DATA 0 ORDER r D " P DATA FDADR ACTIVATION ADDRESS r Z P DATA 0 TTAB-ADDRESS r $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE r P* r IFT MMUPAG=1 r & " DATA
0x32f984…32fb18 Dummy {f00=0x0133, f01=0x0190, f02=» DATA 0 r P DATA 0 s P DATA 0,0,0,0 STACK s ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD s < P DATA -1 s h * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG s x P DATA 0 s $ PDWTTP EQU *-DWFD01 TIMER POINTER s P DATA 0 s ( PDWTRCW EQU *-DWFD01 TEMP R
0x32fb18…32fcac Dummy {f00=0x0133, f01=0x0190, f02=»R s j P DATA 0 t ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 t P DATA 0,0,0 t F ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 t Z P DATA 0,0,0 t ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 t P DATA 0,0,0 t ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 t P D
0x32fcac…32fe40 Dummy {f00=0x0133, f01=0x0190, f02=» FLAG AT POWER ON t r P DATA 0 u P XIF u * P* u 6 P IFT CHAN=1 u @ 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER u T P DATA 0 u , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 u P DATA 0 u , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR u
0x32fe40…32ffd4 (4, 298) Dummy {f00=0x0133, f01=0x0190, f02=»OD EQU *-DWFD01 END OF DATA u P DATA 0,0,0,0 v $ & PDWTEOE EQU *-DWFD01 END OF EXTENT v : P DATA 0,0,0,0 v d * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO v z P DATA 0,0,0,0 v . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR v P DATA 0,0,0,0 v P X
0x32ffd4…330168 Dummy {f00=0x0133, f01=0x0190, f02=»PHYSICAL BUFFER ADDRESS v P DATA 0 SECOND MMU ENTRY w P* w @ PDWT:LA EQU *-DWFD01 w J * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS w f P* w PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x330168…3302fc Dummy {f00=0x0133, f01=0x4098, f02=» w | P XIF x P* x P IFT MMUPAG=1 x P IFT DEVIND=4 x 4 PFD:BUF EQU 0 x J P XIF x ^ P* x j P* x t P* x ~ P END x @ x PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x3302fc…330490 Dummy {f00=0x0133, f01=0x2008, f02=» y END @
0x330490…330624 Dummy {f00=0x0133, 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
0x330624…3307b8 Dummy {f00=0x0133, f01=0x0190, f02=» ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E R 8 P* DRD DATA REQUEST DELAYED D # 0 C = 0 S 8 F P* LOCAL CHAR. MAY BE DIFFERENT FROM ZERO S t 8 P* STD STATUS MESSAGE D # 0 C # 0 S 2 P* DIN
0x3307b8…33094c Dummy {f00=0x0133, f01=0x0190, f02=» PCHLT1 EQU * T P* T $ P ST P,INTSAV SAVE LAST INTERRUPT T " P* T J P IFT CPU852=1 T T & P CF A15,SAVE8 SAVE A1-A8 ON STACK T j P XIF T P* T P IFT CPU852=0 T " P MSR 8,A15 SAVE A1-A8 ON STACK T P XIF T P* T P LDK A7,2 IN
0x33094c…330ae0 Dummy {f00=0x0133, f01=0x0190, f02=» P* INTERRUPT FROM CHLT2 U P* U & P IFT LOCHAN=2 U 0 $ P ST P,INTSAV SAVE LAST INTERRUPT U F P* U n P IFT CPU852=1 U x & P CF A15,SAVE8 SAVE A1-A8 ON STACK U P XIF U P* U P IFT LOCHAN=2 U P IFT CPU852=0 U " P MSR 8,A15 SAV
0x330ae0…330c74 (4, 299) Opaque[0x194]
0x330c74…330e08 # DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2670, f03=0x0000}
0x330c74…330e08 IdxSect {
0x330c74…330e08 f00 = 0x0133 // 0x330c74 @0x0
0x330c74…330e08 f01 = 0x000a // 0x330c76 @0x2
0x330c74…330e08 gno = [ // 0x330c78 @0x4
0x330c74…330e08 [0x00]: C0x0133.0x2.0
0x330c74…330e08 [0x01]: C0x0133.0x3.0
0x330c74…330e08 [0x02]: C0x0134.0x0.0
0x330c74…330e08 [0x03]: C0x0134.0x1.0
0x330c74…330e08 [0x04]: C0x0134.0x2.0
0x330c74…330e08 ]
0x330c74…330e08 }
0x330e08…330f9c Dummy {f00=0x0133, 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
0x330f9c…331130 Dummy {f00=0x0133, 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
0x331130…3312c4 Dummy {f00=0x0133, 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
0x3312c4…331458 Dummy {f00=0x0133, 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
0x331458…3315ec Dummy {f00=0x0133, 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
0x3315ec…331780 Dummy {f00=0x0133, 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****
0x331780…331914 (4, 300) Dummy {f00=0x0133, 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
0x331914…331aa8 Dummy {f00=0x0133, 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
0x331aa8…331c3c Dummy {f00=0x0133, 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**
0x331c3c…331dd0 Dummy {f00=0x0133, 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*
0x331dd0…331f64 Dummy {f00=0x0133, 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
0x331f64…3320f8 Dummy {f00=0x0133, 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
0x3320f8…33228c Dummy {f00=0x0133, 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
0x33228c…332420 Dummy {f00=0x0133, 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
0x332420…3325b4 (4, 301) Dummy {f00=0x0134, 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*
0x3325b4…332748 Dummy {f00=0x0134, 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
0x332748…3328dc Dummy {f00=0x0134, 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
0x3328dc…332a70 Dummy {f00=0x0134, 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
0x332a70…332c04 Dummy {f00=0x0134, 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
0x332c04…332d98 Dummy {f00=0x0134, 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
0x332d98…332f2c Dummy {f00=0x0134, 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?
0x332f2c…3330c0 Dummy {f00=0x0134, 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
0x3330c0…333254 (4, 302) Dummy {f00=0x0134, 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
0x333254…3333e8 Dummy {f00=0x0134, 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
0x3333e8…33357c Dummy {f00=0x0134, 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
0x33357c…333710 Dummy {f00=0x0134, 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*
0x333710…3338a4 Dummy {f00=0x0134, 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
0x3338a4…333a38 Dummy {f00=0x0134, 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
0x333a38…333bcc Dummy {f00=0x0134, 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*
0x333bcc…333d60 Dummy {f00=0x0134, 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
0x333d60…333ef4 (4, 303) Dummy {f00=0x0134, 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
0x333ef4…334088 Dummy {f00=0x0134, 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
0x334088…33421c Dummy {f00=0x0134, 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
0x33421c…3343b0 Dummy {f00=0x0134, 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 ! ,
0x3343b0…334544 Dummy {f00=0x0134, 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 ! ,
0x334544…3346d8 Dummy {f00=0x0134, 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
0x3346d8…33486c Dummy {f00=0x0134, f01=0x018e, f02=»-ADDRESS v ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. < ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH j " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITIO
0x33486c…334a00 Dummy {f00=0x0134, f01=0x0190, f02=» P******************** P* * P* DWT-DISPLACEMENTS* < P* * X P******************** t P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P X
0x334a00…334b94 (4, 304) Opaque[0x194]
0x334b94…334d28 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x334b94…334d28 IdxSect {
0x334b94…334d28 f00 = 0x0052 // 0x334b94 @0x0
0x334b94…334d28 f01 = 0x002c // 0x334b96 @0x2
0x334b94…334d28 gno = [ // 0x334b98 @0x4
0x334b94…334d28 [0x00]: C0x0052.0x2.0
0x334b94…334d28 [0x01]: C0x0052.0x3.0
0x334b94…334d28 [0x02]: C0x011e.0x2.0
0x334b94…334d28 [0x03]: C0x0139.0x2.0
0x334b94…334d28 [0x04]: C0x0157.0x0.0
0x334b94…334d28 [0x05]: C0x0157.0x1.0
0x334b94…334d28 [0x06]: C0x0157.0x2.0
0x334b94…334d28 [0x07]: C0x0157.0x3.0
0x334b94…334d28 [0x08]: C0x0158.0x0.0
0x334b94…334d28 [0x09]: C0x0158.0x1.0
0x334b94…334d28 [0x0a]: C0x0158.0x2.0
0x334b94…334d28 [0x0b]: C0x0158.0x3.0
0x334b94…334d28 [0x0c]: C0x0159.0x0.0
0x334b94…334d28 [0x0d]: C0x0159.0x1.0
0x334b94…334d28 [0x0e]: C0x0159.0x2.0
0x334b94…334d28 [0x0f]: C0x0159.0x3.0
0x334b94…334d28 [0x10]: C0x015a.0x0.0
0x334b94…334d28 [0x11]: C0x015a.0x1.0
0x334b94…334d28 [0x12]: C0x0163.0x3.0
0x334b94…334d28 [0x13]: C0x0186.0x1.0
0x334b94…334d28 [0x14]: C0x0186.0x2.0
0x334b94…334d28 [0x15]: C0x0186.0x3.0
0x334b94…334d28 ]
0x334b94…334d28 }
0x334d28…334ebc Dummy {f00=0x0052, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DK 6 82-10-04 870105040924 " P DK7,READ-MODIFIED, MODIFIED 8 P 82-10-02 ^ P DK6, READ MODIFIED r , P DK5, LP, DWTINF, ST.PR.BIT, 81-11-05 P P DK3, RBUFNR=1 ALLOWED P DK2, TBUFL P 80-03-1
0x334ebc…335050 Dummy {f00=0x0052, f01=0x018e, f02=»UZ v P REL 9.1 79-07-19 & P =7, ACK IN CONVERSATIONAL MODE & P REL 9.1 79-07-19 P * P =6, DCTASK BUFFER ADDRESS DESTROYED l P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE P REL 9.1 79-05-23 P =3, TRANSFE
0x335050…3351e4 Dummy {f00=0x0052, f01=0x018e, f02=» P PRR 9.1 78-11-29 P =1, MSR-INSTRUCTION P PRR 9.1 78-11-14 > P REL 8.2 78-11-14 Z P v P* ~ P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P*
0x3351e4…335378 Dummy {f00=0x0052, f01=0x0190, f02=» P* P* P* P* " 8 P**************************************************** , P h P* r P* | P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT " P ENTRY
0x335378…33550c Dummy {f00=0x0052, f01=0x0190, f02=»AL REFERENCES P* P* " P EXTRN TDISP DISPATCHER ENTRY * ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P $ P EXTRN TENDIO COMPLETE I/O EVENT | P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER P EXTRN DWTST DWT STATUS P
0x33550c…3356a0 Dummy {f00=0x0052, f01=0x018e, f02=» TABLE r ( P EXTRN TASCII EBCDIC TO ASCII TABLE $ P EXTRN ECBBA ECB BUFFER ADDRESS : & P EXTRN ECBRL ECB REQUESTED LENGTH b & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD * P EXTRN D
0x3356a0…335834 (4, 305) Dummy {f00=0x0052, f01=0x018e, f02=» P P* P* P* " P* , 6 P* STANDARD INTERFACE PART FOR DATA COMMUNICATION 6 P* p P* z P* P* P* DWT CONTENTS P* J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) P*
0x335834…3359c8 Dummy {f00=0x0052, f01=0x0190, f02=» P* ( PXRVI EQU /5C STANDARD:/40, DK:/5C DK * PX:D EQU 0 BASE FOR RBUFL AND TBUFL DK : " PX:X EQU 500 VALUE FOR BASE DK h & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK PX:B EQU /60 DCTASK FILE CODE PDC15FC EQU /60
0x3359c8…335b5c Dummy {f00=0x0052, f01=0x0190, f02=»US AND RVI HANDLING IF=1 PSTAT EQU 0 ( PX:F EQU 1 READ COMMAND HANDLING IF=1 2 PRCOM EQU 1 ^ & PX:G EQU 252 TRANSMIT BLOCK LENGTH p PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 0 * PX:I EQU 0 IF 1 SPECIFIC PO
0x335b5c…335cf0 Dummy {f00=0x0052, f01=0x0190, f02=»D EQU X:J * PX:K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:K @ . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) T PRBUFNR EQU 2 ( PX:M EQU 0 IF = 1 PTS 6805 ADAPTION PP6805 EQU X:M PX:N EQU /02 P IFT P6805=0 , PLCUI
0x335cf0…335e84 Dummy {f00=0x0052, f01=0x0190, f02=»X:O EQU 0 . PIBMCHR EQU X:O IF 1 IBM CHARACTER HANDLING . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK D PMESPAS EQU X:P v 4 PX:Q EQU 1 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU X:Q PX:R EQU 1000 P DK2 * PBINTRM EQU
0x335e84…336018 Dummy {f00=0x0052, f01=0x0190, f02=»CK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 4 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". h , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 6 PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TR
0x336018…3361ac Dummy {f00=0x0052, f01=0x018e, f02=» P* P* . P***************************************** P* J P* CONDITIONAL ASSEMBLY T P* r . P***************************************** | P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPA
0x3361ac…336340 Dummy {f00=0x0052, f01=0x018e, f02=» P* P IFT MMUPAG=1 DK2 * PTBUFL EQU 650+X:X MMU BUFFER LENGTH DK ( P XIF DK2 V P DE h P* v 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0
0x336340…3364d4 (4, 306) Dummy {f00=0x011e, f01=0x0190, f02=» P* DWT DISPLACEMENTS P* $ 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART . P* b P IFT MMUPAG=0 l PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* 4 PDWTTP EQU START+/0
0x3364d4…336668 Dummy {f00=0x011e, f01=0x0190, f02=»U START+/06 RECEIVE QUEUE . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS " ( PDWTCUR EQU START+/0A CURSOR ADDRESS T , PDWTTIM EQU START+/0C REQUEST TIMER VALUE . PDWTINF EQU START+/0E DEVICE INFO, 1=LP DK5 P* P P* P* REQUES
0x336668…3367fc Dummy {f00=0x011e, f01=0x0190, f02=»NF DK5 | " P* /33: READ MODIFIED RESPONSE P* /37: TRANSFER PARAMETERS 6 P* /38: SET STATUS X $ P* /39: SET REQUEST TIMEOUT VALUE r P* P* P* CONSTANTS AND WORK AREAS P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH
0x3367fc…336990 Dummy {f00=0x011e, f01=0x0190, f02=»ATA 0 TIMER POINTER GENERAL POLL P ( P* 2 P* DC TASK ADDRESS BLOCK < P* $ P DATA 0 INDICATES NO MMU BUFFER f P DATA DEVIND DEVICE INDEX * PDC15DC DATA DCACTD ACTIVATION ADDRESS & P DATA ABORT ABORT ROUTINE ADDRESS $ P
0x336990…336b24 Dummy {f00=0x011e, f01=0x0190, f02=»ND DEVICE INDEX ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS D $ P DATA DCRBUF REC. BUFFER ANCHOR | P* , P RES 15 SUBROUTINE STACK FOR INTERRUPTS PSTB RES 1 " P RES 1 AND FOR TRANSFER
0x336b24…336cb8 Dummy {f00=0x011e, f01=0x0190, f02=» XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS * P* R PDCACT EQU * P LDK A1,0 PRESET RETURN CODE p P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF P SUK A7,/02
0x336cb8…336e4c Dummy {f00=0x011e, f01=0x0190, f02=»TINF DK5 x P SUK A7,/33-/31 DK7 , P RF(E) RESTRM RESPONSE TO READ MODIFIED , P SUK A7,/37-/33 DK5 $ P RF(Z) DCTP TRANSFER PARAMETERS x P IFF STAT=0 P SUK A7,/38-/37 P ABL(Z) DCSS SET STATUS DK4 P SUK A7,/39-/38 $ P
0x336e4c…336fe0 Dummy {f00=0x011e, f01=0x0190, f02=» p P XIF P RF DCA100 P & P* 0 P* : P* ACTIVATION FROM DCTASK D P* d P* n PDCACTD EQU * x $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4
0x336fe0…337174 (4, 307) Dummy {f00=0x0139, f01=0x0190, f02=»DCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER " P* D P* N P* READ FROM DCTASK X P* r P* | P* REQUEST FROM DC-TASK P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS MESSAGE RECEPTION
0x337174…337308 Dummy {f00=0x0139, f01=0x0190, f02=» P IFT EM3270=1 =4 P . P***************************************** ( P* Z P* ANY MESSAGE ORDER d P* " P***************************** P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P RF(Z) DCRD10 NO!! =4
0x337308…33749c Dummy {f00=0x0139, f01=0x018e, f02=»U * DK5 P LD A2,ECBCW,A8 GET INFO DK5 & P ORS A2,DWTINF,A6 OR AND STORE DK5 4 " P RF ENDIO COMPLETE REQUEST DK5 ^ P* P* RESPONSE TO READ MODIFIED P* PRESTRM EQU * DK7 4 P LD A1,DWTINF,A6 WAS READ MODIFIED RECEIVED? DK7
0x33749c…337630 Dummy {f00=0x0139, f01=0x0190, f02=» P* DK5 P* P* TRANSFER PARAMETERS " P* @ P* J > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS T : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P* P* P IFF CODE=1 & PDCTP LD A2,E
0x337630…3377c4 Dummy {f00=0x0139, f01=0x0190, f02=»0 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P SLL A2,8 6 PDCTP10 EQU * H $ 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 EQU
0x3377c4…337958 Dummy {f00=0x0139, f01=0x018e, f02=» LDR A3,A6 ADJUST ADDR. VALUE DK4 P ADKL A3,DWTSQ DK4 * , P CWR A1,A3 SOMETHING QUEUED OUR DWT? DK4 F 4 P RF(E) DCTP16 YES, WAIT BEFORE TRANS. PARAM. DK4 v & P LDR* A1,A1 NOT OURS, GET NEXT DK4 P RB DCTP14 DK4 PDCTP16 EQU * ( P L
0x337958…337aec Dummy {f00=0x0139, f01=0x0190, f02=» P RB DCRTN DK4 PTPTOUT EQU * P LDR A6,A1 RESTORE DWT DK4 0 * P RB DCTP12 LOOK IN THE QUEUE AGAIN DK4 R 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=1
0x337aec…337c80 Dummy {f00=0x0139, f01=0x0190, f02=»LD NOT BE IN DC:TAB v * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? J & P ABL(E) DISIOE YES!! REQUEST ERROR x P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB LAST
0x337c80…337e14 (4, 308) Dummy {f00=0x0157, f01=0x0190, f02=»NOT IN TABLE =3 z P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 : " P RB DCTP22 CHECK NEXT ENTRY =3 X 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 P
0x337e14…337fa8 Dummy {f00=0x0157, f01=0x0190, f02=»Q INSERT IN STATUS QUEUE P XIF PDCTP30 EQU * , P SUR A1,A1 RETURN CODE ::= 0 @ PENDIO EQU * d $ P CF A15,TENDIO COMPLETE REQUEST x P RB DCRTN P P* P* P* WRITE P* P* P* COMPLETE WHEN:
0x337fa8…33813c Dummy {f00=0x0157, f01=0x0190, f02=»QUESTED LENGTH ~ " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! < P XIF X P CF A15,TIMEWR SET TIMER d P CF A15,INSWQ QUEUE REQUEST 2 P LD A1,DWTOR,A6 RESPONSE TO READ MODIFIED? DK7 P ANK A1,/FF MASK ORDER DK7 * P CWK A1,
0x33813c…3382d0 Dummy {f00=0x0157, f01=0x0190, f02=» P* READ ! P* ! P* ! P* COMPLETE WHEN: ! & P* MESSAGE RECEIVED ! > P* TIME OUT ! Z P* ! n P* ! x 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 !
0x3382d0…338464 Dummy {f00=0x0157, f01=0x0190, f02=» LENGTH ! z P ST A3,ECBEL,A8 " P " ( P LDK A1,0 RESET RETURN CODE " 0 * P CF A15,DC:MIN MOV DATA TO USER BUFFER " T P RB DCRTN " P " $ PDCRD10 CF A15,TIMERE START TIMER " P RB DCRTN " P " P* " P* " P* SET STATUS " P
0x338464…3385f8 Dummy {f00=0x0157, f01=0x018e, f02=»Z) DCSS20 DEVICE END " PDCSS10 EQU * # P ST A1,DWTST,A6 # 0 P RB DCTP30 COMPLETE REQUEST # H PDCSS20 EQU * # l P LD A1,DWTST,A6 # P ANK A1,9 # ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT # PDCSS30 EQU * # , P CF A15,INSSQ INSERT DWT IN ST
0x3385f8…33878c Dummy {f00=0x0157, f01=0x0190, f02=» P* $ P* $ P $ PREQTIM EQU * $ " P LD A2,ECBCW,A8 TIMEOUT VALUE $ 4 $ P ST A2,DWTTIM,A6 SAVE IT IN DWT $ Z P RB DCTP30 TENDIO & DISPATCH $ P $ P* $ ( P* ILLEGAL APPLICATION BUFFER SIZE $ P* $ P $ 8 PIL:LEN LDKL A1,/80
0x33878c…338920 Dummy {f00=0x0157, f01=0x0190, f02=»ART $ ~ P* % P* % P* % P* READ TIMER=TIMERR % * P* % F PTIMERE EQU * % P P LDR A1,A6 % d . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE % v P RF(Z) TIME10 NO TIMING % P ST A2,TIMERR % P CF A15,SETIME % P DATA TOUTRE % P
0x338920…338ab4 (4, 309) Dummy {f00=0x0157, f01=0x018e, f02=» TIMER % P* & PTOUTRE EQU * & P LDR A6,A1 FETCH DWT & , P CM DWTTP,A6 & H PTOUTR1 EQU * & " P LDK A1,/40 INDICATE TIME OUT & p $ PTOUTR2 RB ENDIO COMPLETE REQUEST & P* & P* WRITE TIMER=TIMWR & P* & PTIMEWR LDR A1,A6 & . P L
0x338ab4…338c48 Dummy {f00=0x0157, f01=0x0190, f02=» & PTIMWR DATA 0 ' P ST A4,DWTTP,A6 ' P RB TIME10 ' 4 P ' F P* ' P P* TIMEOUT WRITE TIMER ' Z P* ' x PTOUTWR EQU * ' P LDR A6,A1 FETCH DWT ' P CM DWTTP,A6 ' * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ' P* ' & P* THIS INS
0x338c48…338ddc Dummy {f00=0x0157, f01=0x0190, f02=»OT WRITING ' t ( P CM XACK INDICATE 'ACK NOT EXPECTED' ( P CM FDWTUT ( > P* ( P P* ( Z P RB TOUTR1 ( d P ( v P* ( P* ( P* STOP REQUEST TIMING ( P* ( & P* REMAINING TIME IS RETURNED IN A2 ( P* ( P* ( PCTIME EQU * (
0x338ddc…338f70 Dummy {f00=0x0157, f01=0x0190, f02=» P CM* DWTTP,A6 STOP TIMER ) P CM DWTTP,A6 ) $ PCTIM10 EQU * ) 8 P RF GBUF10 ) L P ) ^ P* ) h P* GET RECEIVE BUFFER ) r P* ) $ P* CALLING SEQUENCE: CF A15,GRBUF ) P* A4=0 IF NO BUFFER IS FREE ) & P* ELSE A4 CONTAINS BUFFER ADDRESS )
0x338f70…339104 Dummy {f00=0x0157, f01=0x0190, f02=» P RF(Z) GBUF10 NO BUFFER FREE * . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN * ( P STR A3,A2 * Z * PGBUF10 ADKL A15,4 ADJUST STACK POINTER * l P ABR* A15 RETURN TO CALLER * P * P* * P* * ( P* INSERT DWT IN WRITE REQUEST QUEUE * P*
0x339104…339298 Dummy {f00=0x0157, f01=0x0190, f02=»SWQ2 LDR* A3,A2 * $ P RF(Z) INSWQ3 END OF QUEUE FOUND + P LDR A2,A3 + @ P RB INSWQ2 + R PINSWQ3 ADR A4,A6 + d P STR A4,A2 INSERT IN QUEUE + | " P CMR A4 INDICATE END OF QUEUE + P RB GBUF10 RETURN + P* + P* + * P* REMOVE DWT FROM WRIT
0x339298…33942c Dummy {f00=0x0157, f01=0x0190, f02=»M05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED + PREM06 EQU * , 4 P ADR A4,A6 , H PREM10 LDR* A3,A2 , & P RB(Z) GBUF10 NOT ON QUEUE: RETURN , t P CWR A3,A4 , P RF(E) REM15 , P LDR A2,A3 GET NEXT , P RB REM10 , PREM15 LDR* A3,A4 REMOV
0x33942c…3395c0 Dummy {f00=0x0157, f01=0x0190, f02=»TAT=0 , P* A2,A3,A4 DESTROYED - P* A6=DWT - * P* - : PINSSQ EQU * - D ( P LD A2,0,A6 GET TERMINAL ADDRESS DK4 - X * P ANK 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 -
0x3395c0…339754 (4, 310) Dummy {f00=0x0157, f01=0x0190, f02=»* - " P* REMOVE DWT FROM STATUS QUEUE . P* . 0 P* A2,A3,A4 DESTROYED . : P* A6=DWT . V P* . f * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR . p P LDK A4,DWTSQ . P RB REM06 . P XIF . P . P* . P* . $ P* QUEUE ALLOCATED RECEIV
0x339754…3398e8 Dummy {f00=0x0157, f01=0x018e, f02=»,DW1500 QUEUE ON DC-TASK DWT . P XIF / $ P IFT MESPAS=0 / 0 $ P LDR A2,A6 QUEUE ON TERMINAL DWT / F P XIF / n , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE / z PQR100 EQU * / P LDR* A3,A2 / $ P RF(Z) QR200 END OF QUEUE FOUND / P LDR A2,A3 /
0x3398e8…339a7c Dummy {f00=0x0157, f01=0x0190, f02=» P* 0 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE 0 P* 0 D 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED 0 N P* 0 PCKMESS LDKL A6,DW1500 0 P LD A1,DWTST,A6 0 P RF(N) CKM110 NO REQUEST 0 P LDK A1,2 READ REQUEST ? 0 P C
0x339a7c…339c10 Dummy {f00=0x0157, f01=0x0190, f02=»F(Z) CKM200 NO READ IN QUEUE 0 P 1 $ P 1 , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER 1 4 . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE 1 d " P ADK A3,6 MOVE POINTER TO TEXT 1 & P DONT DESTROY BUFFER ADDRESS =6 1 P LD A4,-4,A3 1 0 P ST A4,ECBEL,A
0x339c10…339da4 Dummy {f00=0x0157, f01=0x0190, f02=»RN CODE 1 | & P LDR A4,A3 RECEIVE BUFFER ADDRESS 2 , P CF A15,DC:MIN MOVE DATA TO USER BUFFER 2 : * PCKM110 ADKL A15,4 ADJUST STACK POINTER 2 j P ABR* A15 RETURN 2 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS 2 , P OR A1,DCONOF TAKE CARE OF P
0x339da4…339f38 Dummy {f00=0x0157, f01=0x0190, f02=» CHANGE 2 r 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST 3 P RB CKM110 3 D P 3 V P 3 ` @ P************************************************************ 3 h P* 3 P* ABORT ROUTINE 3 P* 3 P************************ 3 P 3 & PABORT
0x339f38…33a0cc Dummy {f00=0x0157, f01=0x0190, f02=»:10 LD A1,DWTOR,A6 ORDER CODE 3 P SUK A1,2 4 & * P RF(Z) AB:RTN READ REQUEST. NO ACTION 4 8 P SUK A1,4 4 f . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE 4 x P 4 . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 4 & P LD A2,FDWTUT WRITING DWT ADDRESS 4
0x33a0cc…33a260 Dummy {f00=0x0157, f01=0x0190, f02=» PAB:RTN EQU * 5 P IFT CPU852=1 5 P ADKL A15,4 5 . $ P ABR* A15 RETURN IN INHIBIT MODE 5 B P XIF 5 j P IFF CPU852=1 5 v P RTN A15 5 P XIF 5 P 5 P 5 P 5 P* 5 P* 5 P* STORE REGISTER A3-A8 5 $ P* CALLING SEQUENSE
0x33a260…33a3f4 (4, 311) Dummy {f00=0x0157, f01=0x0190, f02=»T A4,LCA4 5 P ST A5,LCA5 6 P ST A6,LCA6 6 & P ST A7,LCA7 6 : P ST A8,LCA8 6 N P RF RTNA15 RETURN 6 b P 6 | PLDREG LDKL A3,0 6 PLCA3 EQU *-2 6 P LDKL A4,0 6 PLCA4 EQU *-2 6 P LDKL A5,0 6 PLCA5 EQU *-2 6 P LDKL A6,0
0x33a3f4…33a588 Dummy {f00=0x0157, f01=0x018e, f02=» 6 P ABR* A15 7 P 7 P* 7 $ P* 7 . P* TIMER VALUES 7 8 P* 7 N P* 7 X * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 7 b " PTIMNAK EQU 3 DELAY FOR NAK DK 7 P* 7 P* 7 P* CHARACTER EQUATES 7 P* 7 & PSF EQU X'1D' START FIELD
0x33a588…33a71c Dummy {f00=0x0157, f01=0x0190, f02=» PENQ EQU /05 8 PDLE EQU /10 8 PEOT EQU /04 8 , PNAK EQU /15 8 @ PESC EQU /1B 8 T PSBA EQU /11 8 h PGP EQU /22 8 | PRDBCOM EQU /32 8 PRDMCOM EQU /36 8 P IFT CODE=0 8 PPAR EQU /80 8 PRVI EQU /3C 8 PACK0 EQU /30 8
0x33a71c…33a8b0 Dummy {f00=0x0157, f01=0x0190, f02=»CK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 8 P XIF 9 2 P IFT CODE=1 9 > PPAR EQU /00 9 R PWACK EQU /2C 9 f PRVI EQU XRVI DK 9 z PACK0 EQU /18 9 PACK1 EQU /2F 9 PSYNEBC EQU /32 9 P XIF 9 P 9 P* 9 P* 9 P* PROCEDURE WO
0x33a8b0…33aa44 Dummy {f00=0x0157, f01=0x0190, f02=» DATA 0 ACK EXPECTED 9 PXSEL DATA 0 SELECTED : PXETX DATA 0 ETX SENT : 8 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT : T " PXRB DATA 0 READ BUFFER SWITCH : PCACK DATA 0 ACK COUNTER : * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP : P* : P
0x33aa44…33abd8 Dummy {f00=0x0157, f01=0x018e, f02=»NDEX : | 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK ; $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR ; @ . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING ; h , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA ; ( PCRDBUF DATA 0 READ BUFFER COUNTER DK ; P* ; P* ; $
0x33abd8…33ad6c Dummy {f00=0x0157, f01=0x0190, f02=» ; P* < P DATA /4248 < P DATA /4242 < & P* < : 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED < D , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED < z P XIF < P < P* < P* < P* BASIC RECEIVE MODE < P* < " P* ENTERED EVER
0x33ad6c…33af00 Dummy {f00=0x0157, f01=0x0190, f02=»VER < r P XIF = PBRM EQU * = P LDKL A5,STB LOAD STACKBASE = * P IFT P6805=0 = N 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATUS = b P XIF = P IFT P6805=1 = * P CF A15,CKMESS CHECK IF STATUS CHANGE = P XIF = PBRM010 EQU * = P I
0x33af00…33b094 (4, 312) Dummy {f00=0x0158, f01=0x0190, f02=»,/100+LSPEED+SYNEBC SPECIFY SYN PATTERN = P XIF > 0 P IFT P6805=0 > < " P CIO A2,1,LCUIN START RECEIVER > P P XIF > v P IFT P6805=1 > P IFF CODE=1 > P LDK A2,/0C > " P CIO A2,1,LCUIN START RECEIVER > P LDK A2,SYN > * P OTR A2,1,LCUIN
0x33b094…33b228 Dummy {f00=0x0158, f01=0x0190, f02=»ER > t P LDK A2,SYNEBC ? * P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER ? P RB(NA) BRMHLT ? N P XIF ? d PBRM100 EQU * ? p $ P CF A5,READP READ ONE CHARACTER ? P RF(NZ) BRM150 PARITY ERROR ? P LDR A1,A2 ? P SUK A1,STX ? P RF(Z) BRM300 STX
0x33b228…33b3bc Dummy {f00=0x0158, f01=0x0190, f02=»UK A1,DLE-ENQ ? P ABL(Z) BRM600 DLE RECEIVED @ P SUK A1,NAK-DLE @ : P ABL(Z) BRM500 NAK RECEIVED @ R P IFT MSV1=0 @ v P LDR A8,A2 @ $ P CF A5,READP READ ONE CHARACTER @ P RF(NZ) BRM150 PARITY ERROR @ P CWR A2,A8 @ & P RF(NE) BRM150
0x33b3bc…33b550 Dummy {f00=0x0158, f01=0x0190, f02=»,DW1500 @ P RF(NE) BRM150 NOT THIS TCU A PBRM110 EQU * A 4 P CF A5,READP READ 1:ST STA A H P RF(NZ) BRM150 PARITY ERROR A j P LDR A8,A2 A P IFT MSV1=0 A P CF A5,READP READ 2:ND STA A P RF(NZ) BRM150 PARITY ERROR A P CWR A2,A8 A
0x33b550…33b6e4 Dummy {f00=0x0158, f01=0x0190, f02=»R A P XIF B P IFT P6805=1 B P SUK A2,ENQ B * P XIF B > P RF(NZ) BRM150 NOT ENQ B J P IFT P6805=0 B h $ P CF A5,READ READ LAST CHARACTER B | P B " P* TRAILING PAD CAN BE CHECKED B P B P CIO A1,0,LCUIN HALT INPUT B P SST A1,LCUI
0x33b6e4…33b878 Dummy {f00=0x0158, f01=0x0190, f02=» P ST A1,CACK LOAD ACK COUNTER C P LDR A2,A8 C ( P SUK A3,2 C : P RF(Z) BRM120 SELECTING C L P CWK A8,GP C l P ABL(E) GPOLL GENERAL POLL C ~ P IFT MSV1=1 C 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) C P XIF C P IFT MSV1=0 C
0x33b878…33ba0c Dummy {f00=0x0158, f01=0x018e, f02=»M INVALID POLL C PBRM120 EQU * D & P CF A5,FINTER CHECK IF STA PRESENT D * P LDR A6,A3 LOAD DWT TO A6 D T P RF(NZ) BRM130 STA FOUND D v P IFT MSV1=0 D $ P LDKL A6,DW1500 SELECT TO DCTASK D PBRM130 EQU * D P ABL SELECT D P XIF D
0x33ba0c…33bba0 Dummy {f00=0x0158, f01=0x0190, f02=» D PBRM150 EQU * E P ANK A2,/7F E P SUK A2,/7F E 0 P RB(Z) BRM RESYNCHRONIZE E D & P CF A5,READ READ ANOTHER CHARACTER E d P RB BRM150 E P E P* E P* E P* EOT HAS BEEN RECEIVED E P* E P* E PBRM200 EQU * E & P C
0x33bba0…33bd34 (4, 313) Dummy {f00=0x0158, f01=0x018e, f02=»220 ACK IS NOT EXPECTED E " P LD A6,FDWTUT GET WRITING DWT F P RF(Z) BRM210 NO ONE WRITING F F P LDK A1,2 SET RC=2 F j ( P CF A5,CWRITE COMPLETE WRITE REQUEST F PBRM210 EQU * F " P CM XACK RESET 'ACK EXPECTED' F PBRM220 EQU * F P CM XSEL R
0x33bd34…33bec8 Dummy {f00=0x0158, f01=0x018e, f02=» F P CF A5,HPTIM G P LD A1,XSEL G P RF(Z) BRM315 NOT SELECTED G 0 P LD A1,DCRBUF G R & P RB(Z) BRM150 NO BUFFER AVAILABLE G h PBRM305 EQU * G P CF A5,RDMESS READ MESSAGE G P SUK A7,1 G P RF(NZ) BRM320 MESSAGE OK G PBRM310 EQU *
0x33bec8…33c05c Dummy {f00=0x0158, f01=0x0190, f02=» P IFT RCOM=1 H P LD A1,XACK H & P RF(Z) BRM316 ACK IS NOT EXPECTED H , P LD A1,DCRBUF H V & P RF(Z) BRM316 NO BUFFER AVAILABLE H l " P LD A6,FDWTUT GET WRITING DWT H 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE H P LDR* A2,A6 GET STA H
0x33c05c…33c1f0 Dummy {f00=0x0158, f01=0x0190, f02=»,DWTCUR,A6 DK6 H P LDK A1,0 SET RC=0 I ( P CF A5,CWRITE COMPLETE WRITE REQUEST I 2 P CM CACK PRESET ACK-1 =7 I ^ P RB BRM305 READ THE MESSAGE I ~ P XIF I ( PBRM316 CF A5,READ READ ONE CHARACTER I P IFF P6805=1 =8 I P SUK A2,ENQ+PAR I
0x33c1f0…33c384 Dummy {f00=0x0158, f01=0x0190, f02=»M220 I PBRM320 EQU * J P IM XSTA INDICATE MESSAGE OK J $ P LD A4,DCRBUF GET BUFFER ADDRESS J D P ADK A4,6 J l P CW A4,FBLST J ~ " P RF(NE) BRM325 NOT FIRST BLOCK J P IFF RCOM=0 J P LDK A1,ESC J P CCR A1,A4 J P RB(NE) BRM310 ESC NOT
0x33c384…33c518 Dummy {f00=0x0158, f01=0x0190, f02=»ECEIVED J t P SUK A1,RDMCOM-RDBCOM K & P RF(Z) RDMOD READ BUFFER RECEIVED K . P XIF K X PBRM325 EQU * K d P SUK A7,1 K x & P RF(Z) BRM340 MESSAGE ENDED BY ETB K P CM FBAX K * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER K P ADK A4,6 K P LD
0x33c518…33c6ac Dummy {f00=0x0158, f01=0x0190, f02=»,TEBCDIC,A2 K P LD A1,DCRBUF L P RF(Z) BRM326 L * P ST A2,+4,A1 L @ P XIF L T PBRM326 EQU * L ` P CWK A6,DW1500 L t , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK L P LD A2,DWTST,A6 GET STATUS L P RF(N) BRM330 NO REQUEST L P IFT EM3270=
0x33c6ac…33c840 Dummy {f00=0x0158, f01=0x018e, f02=»,A6 L " P RF(NE) BRM330 NO READ REQUEST M PBRM327 EQU * M 2 P LDK A1,0 SET RC=0 M F $ P LD A8,DWTECB,A6 GET ECB ADDRESS M ` P LD A3,-4,A4 GET LENGTH M * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH M & P CF A15,CTIME STOP REQUEST TIMING M ( P ST A2,E
0x33c840…33c9d4 (4, 314) Dummy {f00=0x0158, f01=0x0190, f02=» P IFT STAT=1 N P LC A2,+2,A4 GET WCC/CCC N P ANK A2,/FF N 8 P LC A2,TEBCDI,A2 TRANSLATE N L & P LD A3,DWTINF,A6 GET DWT INFO DK5 N n P ANK A3,1 GET LPBIT DK5 N P RF(Z) BRM328 NOT LP DK5 N P ANK A2,8 N P RF(Z) BRM328 N P LD A2,D
0x33c9d4…33cb68 Dummy {f00=0x0158, f01=0x0190, f02=»4 N P LD A2,DWTOR,A6 ORDER =4 O , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 O * & P SUK A4,6 ADJUST BUFFER ADDRESS =4 O Z ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 O P RF BRM32A =4 O P XIF =4 O PBRM329 EQU * =4 O P O P LDK A1,0 RESET RE
0x33cb68…33ccfc Dummy {f00=0x0158, f01=0x0190, f02=»QUEST O v P RF BRM345 P P P PBRM330 EQU * P * P IFT EM3270=1 =4 P > P LD A1,DWTST,A6 STATUS =4 P X P RF(N) BRM335 NO REQUEST =4 P z P LD A1,DWTOR,A6 ORDER =4 P , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 P & P CF A15,TENDIO COMPLETE RE
0x33ccfc…33ce90 Dummy {f00=0x0158, f01=0x018e, f02=» CF A15,CKMESS COMPLETE DCTASK READ IF ANY P PBRM340 EQU * Q 2 P CF A5,TRACK SEND ACK 0/1 Q F P ABL BRM Q h PBRM345 EQU * Q x P IFT STAT=1 Q , P LD A1,DWTINF,A6 READ-MOD. RECEIVED? DK7 Q P ANKL A1,/0002 DK7 Q 4 P RF(NZ) BRM410 WAIT FOR RESP
0x33ce90…33d024 Dummy {f00=0x0158, f01=0x0190, f02=» Q v P RF BRM410 R P XIF R P IFF STAT=1 R & P RB BRM340 R : P XIF R L P R X P* R b P* R l , P* READ MODIFIED OR READ BUFFER RECEIVED R v P* R P* R P IFF RCOM=0 R $ PRDBUF EQU * READ BUFFER COMMAND R PRDMOD EQU * R "
0x33d024…33d1b8 Dummy {f00=0x0158, f01=0x0190, f02=» ACK COUNTER R z P DB S 0 P LDK A1,/02 INDICATE READ-MOD. RECEIVED DK7 S " P ORS A1,DWTINF,A6 DK7 S V 2 P LDKL A1,/4000 SET RETURN CODE =READ-MOD. DK7 S t ( P RB BRM32A COMPLETE THE REQUEST DK7 S P XIF S P* S P* S P* ENQ HAS BEEN REC
0x33d1b8…33d34c Dummy {f00=0x0158, f01=0x0190, f02=»NSMISSION OF MESSAGE S | P OR A1,XSEL T " P RF(Z) BRM410 IN CONTROL STATE T 0 . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE T V PBRM410 EQU * T P ABL BRM T P T P* T P* T P* NAK HAS BEEN RECEIVED T P* T P* T PBRM500 EQU
0x33d34c…33d4e0 Dummy {f00=0x0158, f01=0x018e, f02=»RM410 IN CONTROL STATE T P RF BRM636 U PBRM510 EQU * U 0 P DB U D P LDK A1,0 U R P CIO A1,0,LCUIN DK U d P SST A1,LCUIN DK U P CF A15,STREG DK U P CF A15,SETIME DK U P DATA BRM520,TIMNAK DK U P ABL TDISP DK U PBRM5
0x33d4e0…33d674 (4, 315) Dummy {f00=0x0158, f01=0x0190, f02=» 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED V P XIF V 8 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK V D & P SU A1,FECBBA COMPUTE BUFFER INDEX V x P ST A1,FBAX V P ABL POL130 V P* V P* V P* DLE HAS BEEN RECEIVED V P* V P
0x33d674…33d808 Dummy {f00=0x0158, f01=0x0190, f02=»,READ READ SECOND CHARACTER V P IFF P6805=1 =8 W $ P CWK A2,ACK0+PAR W < P XIF =8 W T P IFT P6805=1 =8 W f P CWK A2,ACK0 =8 W ~ P XIF =8 W P RF(NE) BRM620 W P* W P* ACK , 0 RECEIVED W P* W P LD A1,CACK GET ACKCOUNTER W
0x33d808…33d99c Dummy {f00=0x0158, f01=0x0190, f02=»B BRM410 W PBRM620 EQU * X P CWK A2,ACK1 X $ P RF(NE) BRM650 X 8 P* X N P* ACK , 1 RECEIVED X X P* X r P LD A1,CACK GET ACK COUNTER X | $ P RB(Z) BRM610 ACK,1 NOT EXPECTED X PBRM630 EQU * X P LD A1,XETX X P RF(Z) BRM640 ETX NOT SE
0x33d99c…33db30 Dummy {f00=0x0158, f01=0x018e, f02=»FF STAT=0 X P LD A2,XSTA Y . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED Y & P XIF Y X ( P CF A5,CWRITE COMPLETE WRITE REQUEST Y d PBRM636 EQU * Y P CF A5,TREOT SEND EOT Y P IFT RCOM=1 Y P Y P CM XRB RESET READ BUFFER Y P XIF Y
0x33db30…33dcc4 Dummy {f00=0x0158, f01=0x0190, f02=» Y P IFF P6805=1 =8 Z P CWK A2,RVI+PAR Z P XIF =8 Z 8 P IFT P6805=1 =8 Z J P CWK A2,RVI =8 Z b P XIF =8 Z z ( P RB(NE) BRM610 INVALID DLE SEQUENCE Z " P CM XACK RESET 'EXPECTING ACK' Z P LD A1,XETX Z $ P RF(NZ) BRM660 ETX HAS
0x33dcc4…33de58 Dummy {f00=0x0158, f01=0x0190, f02=»0 Z P [ P* [ P* [ " P* STATUS HAS BEEN TRANSMITTED [ ( P* [ N P* [ X PBRM670 EQU * [ b " P LD A6,FDWTUT GET DWT ADDRESS [ v , P CF A15,REMOVS REMOVE FROM STATUS QUEUE [ P CM XSTA CLEAR 'STATUS SENT' [ " P CM XACK CLEAR 'ACK EXPE
0x33de58…33dfec Dummy {f00=0x0158, f01=0x0190, f02=»AR STATUS [ | P RB BRM636 P XIF $ P 0 P* : P* D P* SELECT HAS BEEN RECEIVED N P* p P* z PSELECT EQU * P LD A1,XACK =5 * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 P IFF STAT=0 P LD A1,DWTST,A6 GET ST
0x33dfec…33e180 Dummy {f00=0x0158, f01=0x0190, f02=»TAT=1 P RF SEL110 ] P XIF ] PSEL100 EQU * ] , P ABL BRM ] @ PSEL110 EQU * ] P P IFT STAT+NOWACK=1 ] d P ANK A3,8 ] ~ P RF(NZ) SEL115 BUSY ] P XIF ] P IFT STAT+NOWACK=2 ] P ANK A3,8 ] " P RF(Z) SEL111 DEVICE NOT BUSY ]
0x33e180…33e314 (4, 316) Dummy {f00=0x0159, f01=0x0190, f02=»BLE ] t PSEL115 EQU * ^ P IFF STAT+NOWACK=2 ^ P CF A5,TRWACK SEND WACK ^ : P XIF ^ Z P RB SEL100 ^ f PSEL120 EQU * ^ x , P CF A5,PRREC PREPARE FOR TEXT RECEPTION ^ P CF A5,TRACK SEND ACK,0 ^ P RB SEL100 ^ P ^ P* ^ P* ^
0x33e314…33e4a8 Dummy {f00=0x0159, f01=0x0190, f02=»DEX ^ x P IFT CODE=1 _ . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC _ P XIF _ R $ P ST A2,+4,A1 SAVE STA IN BUFFER _ ^ P IM XSTA _ " P ST A6,FDWTIN STORE INPUT DWT _ P RTN A5 _ P _ P* _ P* _ $ P* GENERAL POLL HAS BEEN RECEIV
0x33e4a8…33e63c Dummy {f00=0x0159, f01=0x0190, f02=»END ENQ =5 _ | * P CF A5,SPTIM START PROCEDURE TIMER =5 ` " P ABL BRM WAIT FOR RESPONSE =5 ` @ PPOL020 EQU * =5 ` f " P CF A5,CPTIM CHECK POLL TIMER ` ~ P IFF STAT=0 ` P LD A6,DCSTQ ` & P RF(Z) POL110 NO STATUS TO BE SENT ` " P SUK A6,DWTSQ GE
0x33e63c…33e7d0 Dummy {f00=0x0159, f01=0x0190, f02=»PECTED' ` | P XIF a P IFF STAT=1 a P RF POL110 a 0 P XIF a B PPOL100 EQU * a N P ABL BRM a b PPOL110 EQU * a r P LD A6,DCWRQ a " P RF(NZ) POL120 WRITE ON QUEUE a PPOL115 EQU * a P CF A5,TREOT SEND EOT a P RB POL100 a PPOL1
0x33e7d0…33e964 Dummy {f00=0x0159, f01=0x0190, f02=» CF A15,REMOVW a P RB POL115 b PPOL126 EQU * b ( P ST A8,FECB SAVE ECB ADDRESS b < P ST A6,FDWTUT SAVE A6 b ` P b ~ P IFF MMUPAG=0 b $ P LDKL A4,MMUBUF MMU WORK BUFFER b P ST A4,ECBBA,A8 b . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER b
0x33e964…33eaf8 Dummy {f00=0x0159, f01=0x018e, f02=»FER ADDRESS b z ( P SUK A3,2 SKIP FIRST WORD OF BUFFER c P ST A3,FECBRL SAVE LENGTH c @ P CM FBAX RESET BUFFER INDEX c b PPOL130 EQU * c P CM XETX RESET 'ETX SENT' c P CM XSTA c P CF A5,TRTEXT SEND ONE BLOCK c & P CF A5,SPTIM START PROCE
0x33eaf8…33ec8c Dummy {f00=0x0159, f01=0x0190, f02=» c j P* d PSPOLLX EQU * DK7 d & P LDK A1,/06 FAKE A WRITE REQUEST d , P ST A1,DWTOR,A6 DK7 d V 6 P LDKL A1,/FFFF-/0002 CLEAR READ MODIFIED FLAG DK7 d r P ANS A1,DWTINF,A6 d $ P LDKL A5,STB SET STACK BASE DK7 d * P RF SPOLL PROCESS AS SPECI
0x33ec8c…33ee20 Dummy {f00=0x0159, f01=0x0190, f02=» STAT+SPECP=0 d P LD A1,XACK =5 e " P RB(NZ) POL010 ACK EXPECTED =5 e . P LDR A7,A6 SAVE A6 e T P CF A5,CPTIM CHECK POLLTIMER e n P LDR A6,A7 RESTORE A6 e P IFT STAT=1 e P LD A1,DWTST,A6 GET STATUS e P ANK A1,7 e " P RB(NZ) POL050 P
0x33ee20…33efb4 (4, 317) Dummy {f00=0x0159, f01=0x018e, f02=»ORDER e | P SUK A1,6 f P RB(Z) POL125 WRITE REQUEST f P SUK A1,2 f D " P RB(Z) POL125 EXCHANGE REQUEST f V P XIF f | P RB POL115 SEND EOT f P f P* f P* f 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED f P* f P
0x33efb4…33f148 Dummy {f00=0x0159, f01=0x018e, f02=» f $ P LD A2,XRB IF RCOM, SKIP IT DK6 g P RF(NZ) CWR900 DK6 g 0 P XIF g L P LD A2,DWTST,A6 g P RF(N) CWR900 NO REQUEST g t P LD A2,DWTOR,A6 GET ORDER g P SUK A2,6 g P RF(Z) CWR100 WRITE REQUEST g P SUK A2,2 g ( P RF(NZ) CW
0x33f148…33f2dc Dummy {f00=0x0159, f01=0x0190, f02=» ( P ST A2,DWTOR,A6 INDICATE READ ORDER h P RF CWR150 h 0 & PCWR100 LD A8,FECB GET ECB ADDRESS h B P CF A15,CTIME STOP TIMING h l P LDR A8,A8 h P RF(Z) CWR150 h P ST A2,ECBCW,A8 h $ P CF A15,TENDIO COMPLETE REQUEST h PCWR150 EQU * h *
0x33f2dc…33f470 Dummy {f00=0x0159, f01=0x0190, f02=» h P IFT RCOM=1 i " P LD A2,XRB READ MODIFIED ? DK6 i P RF(Z) CWR910 DK6 i B $ P LD A2,DWTCUR,A6 RESTORE ECB DK6 i P ST A2,DWTECB,A6 DK6 i PCWR910 EQU * DK6 i P XIF i P RTN A5 i P i P* i P* i P* READ ONE TEXT
0x33f470…33f604 Dummy {f00=0x0159, f01=0x0190, f02=»R OVERFLOW i l ( P* 2 : IF CORRECT ETB BLOCK RECEIVED j P* j > PRDMESS EQU * j H $ P LD A4,DCRBUF GET BUFFER ADDRESS j P ADK A4,6 RESERVE HEADER j P LDK A3,0 j P LD A1,XSTA j $ P RF(NZ) RDM050 LAST INPUT WAS OK j " P LD A1,FBLST COMPUTE N
0x33f604…33f798 Dummy {f00=0x0159, f01=0x018e, f02=»T OF BLOCK j v PRDM075 EQU * k P CM XSTA k & P LDK A7,0 RESET LRC k 6 P k R P IFT IBMCHR=1 k Z P LD A1,FBAX k p " P RF(NZ) RDM100 NOT FIRST BLOCK k P CF A5,READP k P RF(NZ) RDM120 PARITY ERROR k P CWK A2,ESC k P RF(NE) RDM110 k
0x33f798…33f92c Dummy {f00=0x0159, f01=0x0190, f02=» k n P RF(NZ) RDM120 PARITY ERROR l PRDM110 EQU * l , P CWK A2,ETX l @ P RF(E) RDM130 ETX RECEIVED l T P CWK A2,ETB l v P RF(E) RDM160 ETB RECEIVED l P CWK A2,ITB l P RF(E) RDM170 ITB RECEIVED l P CWK A2,ENQ l 2 P RF(E) RDM120 SKIP
0x33f92c…33fac0 Dummy {f00=0x0159, f01=0x0190, f02=»1 l P m P LDR A1,A2 m P SUK A1,DC1+3 m $ P RF(P) RDM115 NOT DC1-DC3 m : P ADK A1,3 m P RF(N) RDM115 NOT DC1-DC3 m n P SLL A1,6 m P LDR A8,A1 m * P CF A5,READP 8-BIT CHAR GET NEXT PART m P RF(NZ) RDM120 PARITY ERROR m * P S
0x33fac0…33fc54 (4, 318) Dummy {f00=0x0159, f01=0x0190, f02=» ADK A4,1 INCREMENT POINTER m $ P IM FBAX INCREMENT BUFFER INDEX n $ P LD A1,FBAX n L P CWK A1,RBUFL+RBUFL n ` P RB(NG) RDM100 NOT OVERFLOW n | P* n P* BUFFER OVERFLOW n P* n P RF RDM140 ABORT INPUT n PRDM120 EQU * n & P LDK A3,
0x33fc54…33fde8 Dummy {f00=0x0159, f01=0x0190, f02=» n P* o PRDM130 EQU * o $ P LD A1,DCRBUF GET BUFFER ADDRESS o & P LD A2,FBAX GET BUFFER INDEX o N 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER o r P IFF CODE=1 o P CF A5,RDLRC o P RF(Z) RDM150 LRC WAS OK o P XIF o P IFT CODE=1
0x33fde8…33ff7c Dummy {f00=0x0159, f01=0x0190, f02=»ALID MESSAGE o z PRDM150 EQU * p $ P LDR A7,A3 SAVE RESULT REGISTER p ( P CF A5,HALTIN HALT INPUT p P P IFT P6805=1 p p P ORR A7,A1 PARITY ERROR p P XIF p P RTN A5 p P* p P* ETB RECEIVED p P* p PRDM160 EQU * p P LDR A3,A3
0x33ff7c…340110 Dummy {f00=0x0159, f01=0x018e, f02=» p PRDM170 EQU * q P IFF CODE=1 q P CF A5,RDLRC q 0 " P RB(NZ) RDM120 LRC WAS NOT OK q D P XIF q j P IFT CODE=1 q v & P CF A5,RDCRC READ CRC AND CHECK IT q " P RB(NE) RDM120 CRC WAS NOT OK q P XIF q P RB RDM100 q P q P* q
0x340110…3402a4 Dummy {f00=0x0159, f01=0x0190, f02=» q l P RF(NZ) TRDLE r P LDK A3,ACK0 LOAD ACK0 r P RF TRDLE r < P* r N P* TRANSMIT WACK r X P* r p PTRWACK LDK A3,WACK LOAD WACK r z P RF TRDLE r P* r P* TRANSMIT RVI r P* r P IFF STAT=0 r PTRRVI LDK A3,RVI LOAD RVI
0x3402a4…340438 Dummy {f00=0x0159, f01=0x0190, f02=»C A3,RESEND+1 r P RF TRREP s P s ( P* s 2 P* TRANSMIT NAK s < P* s R PTRNAK LDK A3,NAK LOAD NAK s P RF TREN10 s ~ P* s P* TRANSMIT EOT s P* s PTREOT LDK A3,EOT LOAD EOT s P RF TREN10 s P* s P* TRANSMIT ENQ s
0x340438…3405cc Dummy {f00=0x0159, f01=0x0190, f02=»D+1 s $ PTRREP CF A5,TRSYNC START OUTPUT t & P LC A2,RESEND GET FIRST CHARACTER t 4 P CF A5,WRITEP SEND IT t ^ & P LC A2,RESEND+1 GET NEXT CHARACTER t | P CF A5,WRITEP SEND IT t PTRRE10 LDK A2,/FF t P CF A5,WRIT05 SEND PAD t P LDK A2,/FF
0x3405cc…340760 Dummy {f00=0x0159, f01=0x018e, f02=» P XIF u & P SST A2,LCUUT PERFORM SST AT ONCE u P IFF LOGG=0 u : ( P CF A5,LOGSST LOG TRANSMITTER STATUS u N P XIF u z P RTN A5 u P u P* u P* u P* TRANSMIT ONE TEXT BLOCK u P* u P* u PTRTEXT EQU * u P CF A5,TRS
0x340760…3408f4 (4, 319) Dummy {f00=0x0159, f01=0x0190, f02=» ( P RF(NZ) TRT050 NOT START OF MESSAGE v P v 0 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? v 8 P RF(NZ) TRT050 YES !! v n P v P LD A4,FECBBA v " P LC A3,+2,A4 GET AID CHARACTER v P SUK A3,/30 v $ P RF(NZ) TRT050 NOT TEST REQUEST v
0x3408f4…340a88 Dummy {f00=0x0159, f01=0x0190, f02=»2,'/' v P CF A5,WRITE SEND / w P LDK A2,STX w * P CF A5,WRITE SEND STX w > ( P ST A4,FBLST REMEMBER START OF BLOCK w ( P ADK A4,5 SKIP AID + CURSOR ADDRESS w P LDK A3,5 ADJUST LENGTH w P LDK A2,3 w P ST A2,FBAX w P RF TRT100 w
0x340a88…340c1c Dummy {f00=0x0159, f01=0x0190, f02=» w | $ P LD A4,FECBBA GET BUFFER ADDRESS x P AD A4,FBAX ADD BUFFER INDEX x 0 ( P ST A4,FBLST REMEMBER START OF BLOCK x T ( P ADK A4,2 SKIP FIRST WORD OF BUFFER x & P LDK A3,0 RESET CHARACTER COUNTER x P LD A1,FBAX GET BUFFER INDEX x " P RF(NZ) TRT100
0x340c1c…340db0 Dummy {f00=0x0159, f01=0x0190, f02=» x z P IFT IBMCHR=1 y P IFF RCOM=1 y " P LDK A2,/27 SEND ENTER AS AID y 2 P CF A5,WRITEP y X " P LDK A2,/20 AND CURSOR ADDRESS y n P CF A5,WRITEP y P LDK A2,/20 y P CF A5,WRITEP y P XIF y P IFT RCOM=1 y P y P RF TRT070
0x340db0…340f44 Dummy {f00=0x0159, f01=0x0190, f02=»D* A3,DWTCUR,A6 CURSOR ADDRESS y . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER z & P LDK A3,5 SET BLOCK COUNT z X P RF TRT100 z z PTRT070 EQU * z P XIF z P z P LDK A3,2 z PTRT100 EQU * z P LCR A2,A4 GET ONE CHARACTER z P ADK A4,1
0x340f44…3410d8 Dummy {f00=0x0159, f01=0x0190, f02=»********************** z j P* { , P* CHECK IF ATTRIBUTE CHARACTER OR NULL { ( P* { X 4 P*********************************************** { b P { & P CWK A2,X'20' ATTRIBUTE CHARACTER { P RF(L) TRT101 YES!!! { P XIF { P IFT DMRK=1 { P
0x3410d8…34126c Dummy {f00=0x0159, f01=0x0190, f02=» ? { v " P RF(NE) TRT103 NO,GO TO TRT103 | P LDK A2,/19 | 0 PTRT103 EQU * | D P CWK A2,X'7F' NULL ?? | X P RF(NE) TRT105 | v P SUK A2,1 | P XIF | P IFT RCOM=1 | P RF TRT105 | P | PTRT101 EQU * | P | P LDK A2,SF | " P C
0x34126c…341400 Dummy {f00=0x0159, f01=0x0190, f02=»ATTRIBUTE | v P ANK A1,1 } P ANK A2,/1E MASK } $ P SLL A2,1 } < & P ORR A2,A1 IBM ATTRIBUTE COMPOSED } N " P ORK A2,/40 BIT ALWAYS SET ONE } x P LC A2,TASCII,A2 } & P CWK A2,/18 CHECK SPECIAL ATTRIBUT } P RF(NE) TRT104 } P LDK A2,/30 }
0x341400…341594 (4, 320) Dummy {f00=0x015a, f01=0x0190, f02=» CWK A2,/07 } ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT ~ P CF A5,WRITEP SEND CHARACTER ~ @ PTRT110 EQU * ~ d $ P IM FBAX INCREMENT BUFFER INDEX ~ x & P LD A1,FECBRL GET REQUESTED LENGTH ~ P CW A1,FBAX ~ " P RF(NG) TRT130 END OF MESSAGE ~ * P ADK
0x341594…341728 Dummy {f00=0x015a, f01=0x0190, f02=»K IF SBA AT END OF BLOCK ~ P CC A1,-2,A4 P RF(E) TRT115 YES 4 P CC A1,-1,A4 N P RF(NE) TRT116 NO SEND ETB b ( P LCR A2,A4 GET FIRST BYTE AFTER SBA P ADK A4,1 INREMENT POINTER P CF A5,WRITEP SEND IT P IM FBAX INCREMENT INDEX
0x341728…3418bc Dummy {f00=0x015a, f01=0x018e, f02=»16 EQU * P LDK A2,ETB LOAD ETB PTRT120 EQU * , P CF A5,WRITEP SEND IT @ P IFF CODE=1 ^ P LDR A2,A7 GET LRC r P CF A5,WRITEP SEND LRC P XIF P IFT CODE=1 P LDR A8,A7 SAVE CURRENT CRC P LDR A2,A7 P ANK A2,
0x3418bc…341a50 Dummy {f00=0x015a, f01=0x0190, f02=» P ABL TRRE10 HALT OUTPUT PTRT130 EQU * $ P IM XETX INDICATE 'ETX SENT' 8 PTRT140 EQU * P LDK A2,ETX LOAD ETX p P RB TRT120 SEND ETX AND LRC P P* P* P* TRANSMIT STATUS MESSAGE P* P* P IFF
0x341a50…341be4 Dummy {f00=0x015a, f01=0x018e, f02=» P LDK A2,SOH P CF A5,WRITE SEND SOH P LDK A7,0 REST LRC 6 P LDK A2,'%' P P CF A5,WRITEP SEND '%' d P LDK A2,'R' P CF A5,WRITEP SEND 'R' P LDK A2,STX P CF A5,WRITE SEND STX P LC A2,DW1500+1 P CF A5,WRI
0x341be4…341d78 Dummy {f00=0x015a, f01=0x0190, f02=» P SRL A1,1 $ P LC A2,SSTAB,A1 GET STATUS BYTE P CF A5,WRITEP SEND S/S 0 > P LDK A2,NOIR PRELOAD S/S 1 ^ P LD A1,DWTST,A6 GET STATUS P ANK A1,5 P RF(Z) TRST10 NOT 'IR' P ANK A1,4 P RF(NZ) TRST10 NO IR IF DE P L
0x341d78…341f0c Dummy {f00=0x015a, f01=0x0190, f02=»* P* TRANSMIT SYNC SEQUENCE P* * P* 4 PTRSYNC EQU * > P LDK A2,0 R * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE d P SST A2,LCUIN PERFORM SST P IFT P6805=0 & P CIO A2,1,LCUUT START TRANSMITTER P XIF P IFT P6805
0x341f0c…3420a0 Dummy {f00=0x015a, f01=0x018e, f02=»F(A) TRS005 P ABL BRM PTRS005 CIO A2,1,LCUUT $ PTRS010 EQU * B P LDK A2,SYNEBC V * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER l P XIF P IFT P6805=1 P IFT CODE=0 P LDK A2,/0C P CIO A2,1,LCUUT P RF(A) TRS010
0x3420a0…342234 (4, 321) Dummy {f00=0x015a, f01=0x0190, f02=» * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER P XIF 2 * P CF A5,READ WAIT FOR OUTPUT INTERRUPT > P LDK A3,4 4 SYNS l PTRS100 LDK A2,SYN P CF A5,WRITE SEND SYN P SUK A3,1 P RB(NZ) TRS100 P RTN A5 P P* P
0x342234…3423c8 Dummy {f00=0x015a, f01=0x0190, f02=»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 h P INR A2,0,LCUIN READ CHAR , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS P IFF LOGG=0 ( P CF A5,LOGIN
0x3423c8…34255c Dummy {f00=0x015a, f01=0x0190, f02=»F(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF 8 P IFT CODE=1 D P C2 SYNSW X 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME j P CWK A2,SYNEBC P RF(E) READ SKIP EBCDIC SYN PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE CR
0x34255c…3426f0 Dummy {f00=0x015a, f01=0x0190, f02=» t P ABL BRM P XIF P IFT P6805=1 $ PIHIN20 RF SST PERFORM SST 8 P XIF Z P f P* p P* z P* TRANSMITTER INTERRUPT P* P* PIH1502 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SA
0x3426f0…342884 Dummy {f00=0x015a, f01=0x018e, f02=» - A8 p P RB IHIN10 P P* * P* 4 & P* SST INSTRUCTION AND STATUS CHECK > P* h ( P* LCU STATUS : BIT 10=CARRIER OFF r & P* BIT 13=PARITY ERROR (6805 ONLY) , P* BIT 14=THROUGHPUT ERROR , P*
0x342884…342a18 Dummy {f00=0x015a, f01=0x0190, f02=» P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION * P XIF T P IFT P6805=0 ` P ANK A2,2 t P RF(Z) SST100 P XIF P IFT P6805=1 P ANK A2,6 P RF(Z) SST100 P ANK A2,2 P RF(NZ) SST050 THR
0x342a18…342bac Dummy {f00=0x015a, f01=0x0190, f02=»L A5,STB P ABL BRM010 PSST100 EQU * $ P ST A1,DCSTCU 8 P IFT P6805=0 N * P CF A15,CKMESS CHECK IF STATUS CHANGE b P RTN A5 P XIF P IFT P6805=1 P ANK A1,/21 P RF(Z) SST200 LSALCUZ 0 P CF A15,SETIME LINE ER
0x342bac…342d40 Dummy {f00=0x015a, f01=0x0190, f02=»ET ADK A5,4 P LDR A1,A1 SET CR P ABR* A5 RETURN . P XIF F P* R P* P* HALT INPUT f P* z P* PHALTIN LDK A1,0 P CIO A1,0,LCUIN P IFT P6805=0 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x342d40…342ed4 (4, 322) Dummy {f00=0x0163, f01=0x0190, f02=» ONE CHARACTER TO A2 | P* P* & PWRITE EQU * 0 P IFT CODE=1 D P ANK A2,/FF X P CWK A2,/FF l 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF PWRIT05 EQU * " P OTR A
0x342ed4…343068 Dummy {f00=0x0163, f01=0x018e, f02=»BCC t P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC , P XIF V P IFF LOGG=0 b & P CF A5,LOGOUT LOG OUTPUT CHARACTER v P XIF P* PREAD CF A15,STREG P ABL TDISP P P* P* P*** WRIT
0x343068…3431fc Dummy {f00=0x0163, f01=0x0190, f02=» P ORK A2,/80 PWRI100 SLL A1,1 P RB(P) WRI100 4 P RB(Z) WRITE WRITE J P XRK A2,/80 d P RB WRI100 x P XIF P IFF CODE+P6805=0 PWRITEP RB WRITE P XIF P* P* P* P*** READP P*
0x3431fc…343390 Dummy {f00=0x0163, f01=0x018e, f02=» PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 2 P XRK A2,/80 H P RB RE100 PRE110 LDR A1,A2 n P ANK A2,/7F P XIF P IFF CODE+P6805=0 P LDK A1,/80 P XIF P ADK A5,4 P ANK A1,/80 P X
0x343390…343524 Dummy {f00=0x0163, f01=0x0190, f02=» P* $ P* CALLING SEQUENCE: CF A5,FINTER P* A2=SUBTERMINAL ADDRESS 6 P* A4 DESTROYED V " P* A3#0: DWT TO FOUND TERMINAL l P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES * P* ENTRY: FINTER - CHECK SELECT ADDRESS
0x343524…3436b8 Dummy {f00=0x0163, f01=0x0190, f02=»FINTEP EQU * P IFT MSV1=0 PFINTER EQU * ( P XIF < P IM RBYTE H P IFT MSV1=1 Z PFINTER EQU * n P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB PFINT10 SUK A4,2 P LDK A3,0
0x3436b8…34384c Dummy {f00=0x0163, f01=0x018e, f02=» IFT MSV1=1 $ P AD A3,RBYTE CHOOSE ADDRESS TYPE * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS < P XIF j P IFT MSV1=0 v . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE) FINT10 TAKE NEXT TERMINAL PFINT20 CM RBYTE
0x34384c…3439e0 Dummy {f00=0x0163, f01=0x0190, f02=» P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF : P F P IFF CPU852=1 N P MSR 8,A15 SAVE A1-A8 =1 d P XIF P IFT STAT=1 P LDK A5,4 SET DEVICE END P LD A1,DCTAB . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE
0x3439e0…343b74 (4, 323) Dummy {f00=0x0186, f01=0x0190, f02=»RE DEVICE END FOR DEVICE | ( P CF A15,INSSQ INSERT IN STATUS QUEUE P RB DRDC05 L PDRDC06 EQU * ^ P XIF r P LDK A2,/40 ~ P ORS A2,DCONOF P CF A15,CKMESS ( P LD A2,DCTPGP GET POLL TIMER POINTER " P RF(NZ) DRDC20 ALREADY STARTED
0x343b74…343d08 Dummy {f00=0x0186, f01=0x0190, f02=»LDKL A5,STB LOAD A5 STACK BASE P LDK A2,/40 & ( P ST A2,DCONOF INDICATE POLL TIME OUT : * P CF A15,CKMESS CHECK IF STATUS CHANGE f $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP P* 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED
0x343d08…343e9c Dummy {f00=0x0186, f01=0x0190, f02=»CK IF STATUS CHANGE ~ P RTN A5 P* , P* START POLL TIMER 6 P* P $ PSPOTIM CF A15,SETIME START TIMER Z P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 P ABR* A15 P P* P* START
0x343e9c…344030 Dummy {f00=0x0186, f01=0x018e, f02=» | $ P ST A4,DCTPP SAVE TIMER POINTER P RTN A5 0 P* @ P* PROCEDURE TIMEOUT J P* f PPRTOUT CM DCTPP p P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE $ P CF A5,HALTIN HALT INPUT IF OPEN P LD A1,XACK " P RF(
0x344030…3441c4 Dummy {f00=0x0186, f01=0x018e, f02=» P* P* STOP PROCEDURE TIMER P* , ( PHPTIM LD A1,DCTPP GET TIMER POINTER 6 P RF(Z) HPT10 NOT RUNNING b P CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5 P P IFT CODE=1 P* P* P* CALCULATION OF
0x3441c4…344358 Dummy {f00=0x0186, f01=0x0190, f02=» P ST A2,CRCSAV+2 P ST A3,CRCSAV+4 P LDK A1,8 4 PCRC100 LDR A3,A7 F P SRL A7,1 ^ P XRR A3,A2 p P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 PCRC110 SUK A1,1 P RB(NZ) CRC100 P LD A1,C
0x344358…3444ec Dummy {f00=0x0186, f01=0x0190, f02=»RC CHARACTERS AND CHECK THEM P* CR = (E) IF CRC WAS OK $ P* D P* N $ PRDCRC LDR A6,A7 SAVE CURRENT CRC X $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SAVE IT P CF A5,READ READ BYTE 2 ( P
0x3444ec…344680 Dummy {f00=0x0186, f01=0x018e, f02=»2,A6 COMPARE RECEIVED WITH COMPUTED P ABR* A5 , P XIF < P IFT CODE=0 H P* & P* RDLRC READ LRC CHARACTER f " P* CR=0 IF LRC OK P* PRDLRC IM SYNSW P CF A5,READP P ADK A5,4 P LDR A1,A1
0x344680…344814 (4, 324) Dummy {f00=0x0186, f01=0x0190, f02=» P* " P* DEVICE WORK TABLE FOR DCTASK P* 8 P* B PDW1500 EQU * TABLE ENTRY L P DATA 0 CU LINE ADDRESS l P DATA /8000 STATUS P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DATA DC15DC POINTER TO ADDRESS BLOCK P D
0x344814…3449a8 Dummy {f00=0x0186, f01=0x0190, f02=» ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS P XIF 8 P* D P DATA 0 TIMER POINTER N ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE l . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) " P DATA 0 RECEIVE MESSAGE QUEUE , P DATA 0 SIMULATED DEVICE
0x3449a8…344b3c Dummy {f00=0x0186, f01=0x018e, f02=» P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 6 P XIF P P* P f P* p P* z P* DC RECEIVE BUFFER POOL P* PRLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR
0x344b3c…344cd0 Dummy {f00=0x0186, f01=0x0190, f02=» P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK 2 P RES RBUFL+3 H P XIF P IFF RBUFNR=1 DK3 h P DATA *+RLINK P RES RBUFL+3 P XIF DK3 P DATA 0 END OF CHAIN P RES RBUFL+3 P P IFF MMUPAG=0
0x344cd0…344e64 Dummy {f00=0x0186, f01=0x018e, f02=» P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 6 P RF LOG10 L PLOGOUT ST A2,SAVE2 ^ P ORKL A2,/0F00 x P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3,LOGPN
0x344e64…344ff8 Dummy {f00=0x0186, f01=0x018e, f02=» z P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 0 P F P* P P* Z PLOGPNT DATA LOGSTA d PLOGSTA EQU * ~ P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 P XIF P* P* P*
0x344ff8…34518c Dummy {f00=0x0186, f01=0x0190, f02=» : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* F > P********************************************************** P P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:
0x34518c…345320 Dummy {f00=0x0186, f01=0x0190, f02=»II COLUMN NUMBER | $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN @ P* V P* ` P* j P t P ~ P* SCANDINAVIAN ALPHABET P DB PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,/2
0x345320…3454b4 (4, 325) Dummy {f00=0x0186, f01=0x0190, f02=»/5354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F " ( P DATA /3031,/3233,/3435,/3637 /30-37 P ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F | P DE P XIF P P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB "
0x3454b4…345648 Dummy {f00=0x0186, f01=0x4034, f02=»ND EQU * P* P* P END $@ 0/255F,/3E3F /28-/2F " ( P DATA /3031,/3233,/3435,/3637 /30-37 P ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F | P DE P XIF P P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB "
0x345648…3457dc Dummy {f00=0x0186, f01=0x2008, f02=» H P X ` h p x
0x3457dc…345970 Dummy {f00=0x0186, f01=0x0190, f02=»ECB ADDRESS P DATA 0 ORDER * P DATA DC15DC POINTER TO ADDRESS BLOCK * P DATA 0 TTAB ADDRESS X $ P DATA 0 WAIT/ACTIVATE INDICATOR t P DATA 0 TASK QUEUE P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU E
0x345970…345b04 Dummy {f00=0x0186, f01=0x0190, f02=»NOT USED BY DC-TASK) z " P DATA 0 RECEIVE MESSAGE QUEUE , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS B P DATA 0 CURSOR ADDRESS r " P DATA 0 REQUEST TIMEOUT VALUE " P DATA 0 EXTRA DEVICE INFO DK5 P* P IFT MMUPAG=1 PDC:ECB EQU *
0x345b04…345c98 Dummy {f00=0x0186, f01=0x0190, f02=»RLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * * P DATA *+2 FREE BUFFER ANCHOR > P IFF RBUFNR=1 DK3 b P IFF RBUFNR=2 | P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=
0x345c98…345e2c Dummy {f00=0x0186, f01=0x0190, f02=» DK3 P DATA 0 END OF CHAIN P RES RBUFL+3 * P > P IFF MMUPAG=0 F & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF P P* P* P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2
0x345e2c…345fc0 Dummy {f00=0x0186, f01=0x018e, f02=» P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3 2 P LD A3,LOGPNT L P STR A2,A3 b P ADK A3,2 t P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3
0x345fc0…346154 (4, 326) Opaque[0x194]
0x346154…3462e8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2740, f03=0x0000}
0x346154…3462e8 IdxSect {
0x346154…3462e8 f00 = 0x013a // 0x346154 @0x0
0x346154…3462e8 f01 = 0x0004 // 0x346156 @0x2
0x346154…3462e8 gno = [ // 0x346158 @0x4
0x346154…3462e8 [0x00]: C0x013a.0x0.0
0x346154…3462e8 [0x01]: C0x013a.0x1.0
0x346154…3462e8 ]
0x346154…3462e8 }
0x3462e8…34647c Dummy {f00=0x013a, 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*
0x34647c…346610 Dummy {f00=0x013a, f01=0x0190, 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 0 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND.
0x346610…3467a4 Dummy {f00=0x013a, f01=0x0190, f02=»* 7C 5C P* 00 7C P* 5A 24 P* 6A 40 0 P EJECT @ P* N P* X 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII b P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /7F01,/0203,/0009,/0000 00-07 ( P DATA /0
0x3467a4…346938 Dummy {f00=0x013a, f01=0x0190, f02=»/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,/0000,/0004 30-37 L ( P DATA /0000,/0000,/1415,/001A 38-3F x ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B21 48-4F ( P DATA /264A,
0x346938…346acc Dummy {f00=0x013a, f01=0x0190, f02=»C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F H ( P DATA /2061,/6263,/6465,/6667 80-87 t ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,/5D2
0x346acc…346c60 Dummy {f00=0x013a, f01=0x0190, f02=»435,/3637 B0-B7 | ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 D ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF p ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/5354,/5
0x346c60…346df4 (4, 327) Dummy {f00=0x013a, f01=0x018e, f02=»/3DFF F8-FF x P XIF P EJECT P* . P* 8 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC B P* x P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1500,/0C00,/0000 08-0
0x346df4…346f88 Dummy {f00=0x013a, f01=0x0190, f02=» j ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 4 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ` ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57
0x346f88…34711c Dummy {f00=0x013a, f01=0x40b0, f02=» ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F 0 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-57
0x34711c…3472b0 Dummy {f00=0x013a, 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,
0x3472b0…347444 Dummy {f00=0x013a, f01=0x0190, f02=» I 0/ Q P 4 @'A TuI ThW 0 0 # 9 T ! y I T _$ X+W* A'I _; L_ I' I 0 W 0 @ 4 I 0 W 0 @'@ 4 A TlI T_W 0 # . I T ! y W T
0x347444…3475d8 Dummy {f00=0x013a, f01=0x0190, f02=»M!! _/ 3b M < 3b M 3b M 8 > O O |8 _ BC%< hM B hM T b M 3b M P Y P ( ! K"e , / 6h ( T 2 | |_ h (L 2_
0x3475d8…34776c Dummy {f00=0x013a, f01=0x0190, f02=» I" ? I" ? @ @ 4 @ A 4 @ A @ 4 A @ v H A W @ W A 2@ I 4 @ W I W !I " "A 6 _5 W @ _ _EA 4 #A 6 <MW _Z @ $_BK ( @ % $_U$ 0 0 A &_nI 0 4@ @ _ K P 4@ _W
0x34776c…347900 Dummy {f00=0x013a, f01=0x0190, f02=»T 4 ,T ! W 4 -T 4 .T W * TyW /TsWy * 4 2 + TLWR + TEWK + T>WD 0T8 4 I 0 4 I % 4 I 4 H 4 * 4 4 4 6 ! !1 4 4 I 1T 6 4 4 4 0 4 4 A @ @ 6
0x347900…347a94 (4, 328) Opaque[0x194]
0x347a94…347c28 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2750, f03=0x0000}
0x347a94…347c28 IdxSect {
0x347a94…347c28 f00 = 0x013a // 0x347a94 @0x0
0x347a94…347c28 f01 = 0x0006 // 0x347a96 @0x2
0x347a94…347c28 gno = [ // 0x347a98 @0x4
0x347a94…347c28 [0x00]: C0x013a.0x2.0
0x347a94…347c28 [0x01]: C0x013a.0x3.0
0x347a94…347c28 [0x02]: C0x013b.0x0.0
0x347a94…347c28 ]
0x347a94…347c28 }
0x347c28…347dbc Dummy {f00=0x013a, 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*
0x347dbc…347f50 Dummy {f00=0x013a, 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
0x347f50…3480e4 Dummy {f00=0x013a, 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
0x3480e4…348278 Dummy {f00=0x013a, 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********
0x348278…34840c Dummy {f00=0x013a, 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
0x34840c…3485a0 Dummy {f00=0x013a, 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
0x3485a0…348734 (4, 329) Dummy {f00=0x013a, 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
0x348734…3488c8 Dummy {f00=0x013a, 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 .
0x3488c8…348a5c Dummy {f00=0x013a, 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
0x348a5c…348bf0 Dummy {f00=0x013a, 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
0x348bf0…348d84 Dummy {f00=0x013a, 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
0x348d84…348f18 Dummy {f00=0x013a, 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
0x348f18…3490ac Dummy {f00=0x013a, 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
0x3490ac…349240 Dummy {f00=0x013a, 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
0x349240…3493d4 (4, 330) Dummy {f00=0x013b, 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
0x3493d4…349568 Dummy {f00=0x013b, f01=0x0190, f02=»W ! f* T ! X $P y $ Y $ C ! [ 0 Z , ! B Z ZX X . 0T N W X ,P Y . 0 %_. % Y . _t _ P , _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $
0x349568…3496fc Dummy {f00=0x013b, f01=0x0190, f02=» NT 0 (@ > ($SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A @ " Q A R : R W2 A ( A ( P. _ " :c* A W " :d2 * A r & W F
0x3496fc…349890 Dummy {f00=0x013b, f01=0x0190, f02=» PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q h Y P @ T W - P _ T <B :L A W A A W
0x349890…349a24 Dummy {f00=0x013b, f01=0x0190, f02=» < P W <9B @ V W Q W @ 6 @ CRT @ P @ ! P W @ V P _ @ ! P !RRP V @ P W _: V @ PZ W @ @ ! T _ P
0x349a24…349bb8 Dummy {f00=0x013b, f01=0x0190, f02=» P$ _ P !;;T X$ W _J ( T (W R W W V 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A A R @ R @ ! T A & A : V @ R V V
0x349bb8…349d4c Dummy {f00=0x013b, f01=0x0190, f02=»A K : A T.I T P 1 I P < R P A _> : A A A X A n A A A A : 9e9C) A I " 9A ! 9B r @ Rr A I ! ( : A A A X A n A &! T A * A & I ! : 9E @ Rr s A
0x349d4c…349ee0 Dummy {f00=0x013b, f01=0x0190, f02=»P P$_ P =H P @ T X W n : YX d C !CCT B. X B.9 H T Q _ r_ !SST( 0 U Z R X A X W : @ ' R xW V W$ V P P W P V T W V
0x349ee0…34a074 (4, 331) Opaque[0x194]
0x34a074…34a208 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2768, f03=0x0000}
0x34a074…34a208 IdxSect {
0x34a074…34a208 f00 = 0x013b // 0x34a074 @0x0
0x34a074…34a208 f01 = 0x0006 // 0x34a076 @0x2
0x34a074…34a208 gno = [ // 0x34a078 @0x4
0x34a074…34a208 [0x00]: C0x013b.0x1.0
0x34a074…34a208 [0x01]: C0x013b.0x2.0
0x34a074…34a208 [0x02]: C0x013b.0x3.0
0x34a074…34a208 ]
0x34a074…34a208 }
0x34a208…34a39c Dummy {f00=0x013b, 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*
0x34a39c…34a530 Dummy {f00=0x013b, 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**
0x34a530…34a6c4 Dummy {f00=0x013b, 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
0x34a6c4…34a858 Dummy {f00=0x013b, 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
0x34a858…34a9ec Dummy {f00=0x013b, 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
0x34a9ec…34ab80 Dummy {f00=0x013b, 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
0x34ab80…34ad14 (4, 332) Dummy {f00=0x013b, 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
0x34ad14…34aea8 Dummy {f00=0x013b, 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
0x34aea8…34b03c Dummy {f00=0x013b, 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
0x34b03c…34b1d0 Dummy {f00=0x013b, 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
0x34b1d0…34b364 Dummy {f00=0x013b, 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
0x34b364…34b4f8 Dummy {f00=0x013b, 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
0x34b4f8…34b68c Dummy {f00=0x013b, 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
0x34b68c…34b820 Dummy {f00=0x013b, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x34b820…34b9b4 (4, 333) Dummy {f00=0x013b, 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*
0x34b9b4…34bb48 Dummy {f00=0x013b, 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
0x34bb48…34bcdc Dummy {f00=0x013b, 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
0x34bcdc…34be70 Dummy {f00=0x013b, 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
0x34be70…34c004 Dummy {f00=0x013b, 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?
0x34c004…34c198 Dummy {f00=0x013b, 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?
0x34c198…34c32c Dummy {f00=0x013b, 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
0x34c32c…34c4c0 Dummy {f00=0x013b, f01=0x0000, f02=»
0x34c4c0…34c654 (4, 334) Opaque[0x194]
0x34c654…34c7e8 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2780, f03=0x0000}
0x34c654…34c7e8 IdxSect {
0x34c654…34c7e8 f00 = 0x013c // 0x34c654 @0x0
0x34c654…34c7e8 f01 = 0x0006 // 0x34c656 @0x2
0x34c654…34c7e8 gno = [ // 0x34c658 @0x4
0x34c654…34c7e8 [0x00]: C0x013c.0x0.0
0x34c654…34c7e8 [0x01]: C0x013c.0x1.0
0x34c654…34c7e8 [0x02]: C0x013c.0x2.0
0x34c654…34c7e8 ]
0x34c654…34c7e8 }
0x34c7e8…34c97c Dummy {f00=0x013c, 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*
0x34c97c…34cb10 Dummy {f00=0x013c, 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
0x34cb10…34cca4 Dummy {f00=0x013c, 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
0x34cca4…34ce38 Dummy {f00=0x013c, 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
0x34ce38…34cfcc Dummy {f00=0x013c, 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
0x34cfcc…34d160 Dummy {f00=0x013c, 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
0x34d160…34d2f4 (4, 335) Dummy {f00=0x013c, 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
0x34d2f4…34d488 Dummy {f00=0x013c, 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
0x34d488…34d61c Dummy {f00=0x013c, 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
0x34d61c…34d7b0 Dummy {f00=0x013c, 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
0x34d7b0…34d944 Dummy {f00=0x013c, 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
0x34d944…34dad8 Dummy {f00=0x013c, 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
0x34dad8…34dc6c Dummy {f00=0x013c, 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
0x34dc6c…34de00 Dummy {f00=0x013c, 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
0x34de00…34df94 (4, 336) Dummy {f00=0x013c, 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
0x34df94…34e128 Dummy {f00=0x013c, 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
0x34e128…34e2bc Dummy {f00=0x013c, 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
0x34e2bc…34e450 Dummy {f00=0x013c, 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
0x34e450…34e5e4 Dummy {f00=0x013c, 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
0x34e5e4…34e778 Dummy {f00=0x013c, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x34e778…34e90c Dummy {f00=0x013c, 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
0x34e90c…34eaa0 Dummy {f00=0x013c, 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
0x34eaa0…34ec34 (4, 337) Opaque[0x194]
0x34ec34…34edc8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2798, f03=0x0000}
0x34ec34…34edc8 IdxSect {
0x34ec34…34edc8 f00 = 0x013c // 0x34ec34 @0x0
0x34ec34…34edc8 f01 = 0x0004 // 0x34ec36 @0x2
0x34ec34…34edc8 gno = [ // 0x34ec38 @0x4
0x34ec34…34edc8 [0x00]: C0x013c.0x3.0
0x34ec34…34edc8 [0x01]: C0x013d.0x0.0
0x34ec34…34edc8 ]
0x34ec34…34edc8 }
0x34edc8…34ef5c Dummy {f00=0x013c, 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*
0x34ef5c…34f0f0 Dummy {f00=0x013c, 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*
0x34f0f0…34f284 Dummy {f00=0x013c, 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/
0x34f284…34f418 Dummy {f00=0x013c, 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
0x34f418…34f5ac Dummy {f00=0x013c, 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
0x34f5ac…34f740 Dummy {f00=0x013c, 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
0x34f740…34f8d4 (4, 338) Dummy {f00=0x013d, 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?
0x34f8d4…34fa68 Dummy {f00=0x013d, 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
0x34fa68…34fbfc Dummy {f00=0x013d, 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)
0x34fbfc…34fd90 Dummy {f00=0x013d, 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)
0x34fd90…34ff24 Dummy {f00=0x013d, f01=0x2008, f02=»
0x34ff24…3500b8 Dummy {f00=0x013d, 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
0x3500b8…35024c Dummy {f00=0x013d, 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
0x35024c…3503e0 Dummy {f00=0x013d, 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
0x3503e0…350574 (4, 339) Opaque[0x194]
0x350574…350708 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27a8, f03=0x0000}
0x350574…350708 IdxSect {
0x350574…350708 f00 = 0x013d // 0x350574 @0x0
0x350574…350708 f01 = 0x0006 // 0x350576 @0x2
0x350574…350708 gno = [ // 0x350578 @0x4
0x350574…350708 [0x00]: C0x013d.0x1.0
0x350574…350708 [0x01]: C0x013d.0x2.0
0x350574…350708 [0x02]: C0x013d.0x3.0
0x350574…350708 ]
0x350574…350708 }
0x350708…35089c Dummy {f00=0x013d, 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*
0x35089c…350a30 Dummy {f00=0x013d, 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
0x350a30…350bc4 Dummy {f00=0x013d, 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
0x350bc4…350d58 Dummy {f00=0x013d, 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
0x350d58…350eec Dummy {f00=0x013d, 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
0x350eec…351080 Dummy {f00=0x013d, 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*
0x351080…351214 (4, 340) Dummy {f00=0x013d, 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
0x351214…3513a8 Dummy {f00=0x013d, 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
0x3513a8…35153c Dummy {f00=0x013d, 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*
0x35153c…3516d0 Dummy {f00=0x013d, 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
0x3516d0…351864 Dummy {f00=0x013d, 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
0x351864…3519f8 Dummy {f00=0x013d, 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
0x3519f8…351b8c Dummy {f00=0x013d, 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
0x351b8c…351d20 Dummy {f00=0x013d, 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
0x351d20…351eb4 (4, 341) Dummy {f00=0x013d, 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
0x351eb4…352048 Dummy {f00=0x013d, 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
0x352048…3521dc Dummy {f00=0x013d, 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)
0x3521dc…352370 Dummy {f00=0x013d, 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)
0x352370…352504 Dummy {f00=0x013d, f01=0x2008, f02=»
0x352504…352698 Dummy {f00=0x013d, 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)
0x352698…35282c Dummy {f00=0x013d, 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
0x35282c…3529c0 Dummy {f00=0x013d, 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*
0x3529c0…352b54 (4, 342) Opaque[0x194]
0x352b54…352ce8 # DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27c0, f03=0x0000}
0x352b54…352ce8 IdxSect {
0x352b54…352ce8 f00 = 0x013e // 0x352b54 @0x0
0x352b54…352ce8 f01 = 0x000c // 0x352b56 @0x2
0x352b54…352ce8 gno = [ // 0x352b58 @0x4
0x352b54…352ce8 [0x00]: C0x013e.0x0.0
0x352b54…352ce8 [0x01]: C0x013e.0x1.0
0x352b54…352ce8 [0x02]: C0x013e.0x2.0
0x352b54…352ce8 [0x03]: C0x013e.0x3.0
0x352b54…352ce8 [0x04]: C0x013f.0x0.0
0x352b54…352ce8 [0x05]: C0x013f.0x1.0
0x352b54…352ce8 ]
0x352b54…352ce8 }
0x352ce8…352e7c Dummy {f00=0x013e, f01=0x0190, f02=» 0 P IDENT TASS REL 9.2 79-11-16 870105040920 P 8 P =1, PR 4313 @ P* REL 9.1 78-10-25 V P r P* z P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P*
0x352e7c…353010 Dummy {f00=0x013e, f01=0x0190, f02=»**************************** x P* $ " P* THIS MODULE IS ENTERED VIA . $ P* ASSIGN REQUEST (DATA 15) OR T ( P* ASSIGN INDEX REQUEST (DATA 16). | P* P* LDK A7,TC P* LDKL A8,ASBLK P* LKM P* DATA 15 P
0x353010…3531a4 Dummy {f00=0x013e, f01=0x018e, f02=»K IS A PARAMETER BLOCK z D P* AND TC = 1 WHEN TASK LOCAL ASSIGN IN TTAB IS WANTED B P* TC = 0 WHEN GLOBAL ASSIGN IN SCTCDT IS WANETED f P* P EJECT P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I
0x3531a4…353338 Dummy {f00=0x013e, f01=0x0190, f02=» t . P* I I P* +---------------------+ : P* I I P* I VOL NAME I ~ P* I I P* +---------------------+ P* I I P*
0x353338…3534cc Dummy {f00=0x013e, f01=0x018e, f02=»* CREATED IN TTAB/CD:TAB. P* $ F P* THE FDB IS INITIALIZED WITH INFORMATION FROM THE VTOC:S OF THE . $ P* VOLUMES MENTIONED IN ASBLK. x P* J P* UPON COMPLETION OF THE ASSIGN REQUEST REG A7 WILL HAVE ONE OF THE P* FOLLOWING RE
0x3534cc…353660 Dummy {f00=0x013e, f01=0x0190, f02=» x " P* 2 = NO FREE ENTRY IN TABLE P* 3 = NO FDB AVAILABLE . ( P* 4 = ONE OR MORE VOLUMES UNKNOWN N " P* 5 = FILE CODE ALREADY USED z P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE P* 8 = FAULTY DIS
0x353660…3537f4 (4, 343) Dummy {f00=0x013e, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x3537f4…353988 Dummy {f00=0x013e, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x353988…353b1c Dummy {f00=0x013e, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x353b1c…353cb0 Dummy {f00=0x013e, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x353cb0…353e44 Dummy {f00=0x013e, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x353e44…353fd8 Dummy {f00=0x013e, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x353fd8…35416c Dummy {f00=0x013e, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x35416c…354300 Dummy {f00=0x013e, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 1 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x354300…354494 (4, 344) Dummy {f00=0x013e, f01=0x018e, f02=» 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (DMI,FC) " P DATA 0,0,0 THREE MORE ENTRIES 8 6 PTASCXO DATA 0 CURRENT OFFSET IN TASSEX AND TASXLB ^ 0 PTASSEX DATA 0 SECTION NUMBER, EXTENT NUMBER * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,
0x354494…354628 Dummy {f00=0x013e, f01=0x0190, f02=» PTASFDB DATA 0 FDB ADDRESS $ PTASVRL DATA 0 VTOC RECORD LENGTH & PTASVLE DATA 0 VTOC LENGTH N PTASVRN DATA 0 VTOC RECORD NO p PTASECB DATA 0,0 ECBFC,ECBBA P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 0 PTA
0x354628…3547bc Dummy {f00=0x013e, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x3547bc…354950 Dummy {f00=0x013e, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x354950…354ae4 Dummy {f00=0x013e, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x354ae4…354c78 Dummy {f00=0x013e, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x354c78…354e0c Dummy {f00=0x013e, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x354e0c…354fa0 Dummy {f00=0x013e, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x354fa0…355134 (4, 345) Dummy {f00=0x013e, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x355134…3552c8 Dummy {f00=0x013e, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 N
0x3552c8…35545c Dummy {f00=0x013e, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P
0x35545c…3555f0 Dummy {f00=0x013e, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT
0x3555f0…355784 Dummy {f00=0x013e, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P L
0x355784…355918 Dummy {f00=0x013e, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2
0x355918…355aac Dummy {f00=0x013e, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK
0x355aac…355c40 Dummy {f00=0x013e, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY
0x355c40…355dd4 (4, 346) Dummy {f00=0x013f, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x355dd4…355f68 Dummy {f00=0x013f, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x355f68…3560fc Dummy {f00=0x013f, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x3560fc…356290 Dummy {f00=0x013f, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x356290…356424 Dummy {f00=0x013f, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x356424…3565b8 Dummy {f00=0x013f, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x3565b8…35674c Dummy {f00=0x013f, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x35674c…3568e0 Dummy {f00=0x013f, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x3568e0…356a74 (4, 347) Dummy {f00=0x013f, f01=0x0190, f02=»S170 NO MATCH % P* & P* FILE CODE USED & . P* OK WHEN REQ = ASS INDEX AND INDEX = 1 & : P* & l P LDR* A2,A8 ASBLK 1ST WORD & v P RF(NN) TASSE5 NORMAL ASSIGN & P LDK A2,1 & P CC A2,-1,A1 INDEX & * P RF(NE) TASSE5 FILE CODE ALREADY
0x356a74…356c08 Dummy {f00=0x013f, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x356c08…356d9c Dummy {f00=0x013f, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x356d9c…356f30 Dummy {f00=0x013f, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x356f30…3570c4 Dummy {f00=0x013f, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x3570c4…357258 Dummy {f00=0x013f, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x357258…3573ec Dummy {f00=0x013f, f01=0x2008, f02=» ,
0x3573ec…357580 Dummy {f00=0x013f, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x357580…357714 (4, 348) Opaque[0x194]
0x357714…3578a8 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27f0, f03=0x0000}
0x357714…3578a8 IdxSect {
0x357714…3578a8 f00 = 0x013f // 0x357714 @0x0
0x357714…3578a8 f01 = 0x000c // 0x357716 @0x2
0x357714…3578a8 gno = [ // 0x357718 @0x4
0x357714…3578a8 [0x00]: C0x013f.0x2.0
0x357714…3578a8 [0x01]: C0x013f.0x3.0
0x357714…3578a8 [0x02]: C0x0140.0x0.0
0x357714…3578a8 [0x03]: C0x0140.0x1.0
0x357714…3578a8 [0x04]: C0x0140.0x2.0
0x357714…3578a8 [0x05]: C0x0140.0x3.0
0x357714…3578a8 ]
0x357714…3578a8 }
0x3578a8…357a3c Dummy {f00=0x013f, f01=0x0190, f02=» 0 P IDENT TIODM REL 9.2 79-11-16 870105040920 P 8 P =1, PR 5649 @ P REL 9.1 79-05-23 V P* r 8 P**************************************************** | P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MA
0x357a3c…357bd0 Dummy {f00=0x013f, f01=0x018e, f02=»******** d P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE ` P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED
0x357bd0…357d64 Dummy {f00=0x013f, f01=0x0190, f02=» P* A7 = ORDER P* A8 = ECB ADDRESS " P* F P* USED REGISTERS A1 - A10 P P* t D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 ~ P* AS THE ONLY PARAMETER P* 4 P* THE FOLLOWING WORD
0x357d64…357ef8 Dummy {f00=0x013f, f01=0x0190, f02=» FOR CALLING TASK x . P* FDBCEX CURRENT EXTENT BLOCK POINTER P* L P* V D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: ` P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P* P EJECT P
0x357ef8…35808c Dummy {f00=0x013f, f01=0x0190, f02=»DBLNK P ENTRY FDBECB P ENTRY FDBSNR $ P ENTRY FDBRRO : P ENTRY FDBRLE P P ENTRY FDBBLF f P ENTRY FDBTNR | P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXTFC P ENTRY EXT
0x35808c…358220 Dummy {f00=0x013f, f01=0x0190, f02=»NTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO ( & P ENTRY FDBMEC MMU ECB DISPLACEMENT L 6 P ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS v P EJECT P* P***************** P* EXTERNALS * P************
0x358220…3583b4 (4, 349) Dummy {f00=0x013f, f01=0x0190, f02=» P EXTRN DISEND EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER < & P EXTRN DWTTDM DM TASK TTAB ADDRESS d P EXTRN TTB:ID TASK ID 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA " P EXTRN DMTGCA GET CRN ADDRESS , P E
0x3583b4…358548 Dummy {f00=0x013f, f01=0x0190, f02=» ECBRL P EXTRN ECBEL P EXTRN ECBRC " P EXTRN ECBCW 6 & P EXTRN ECBCW2 SECOND CONTROL WORD J P EXTRN FDBLEN t " P EXTRN SQR SEQ READ ORDER CODE & P EXTRN EARELB,DWTST,CRNGET,EATEST & P EXTRN TASHLT HALT SYSTEM ROUTINE P EJE
0x358548…3586dc Dummy {f00=0x013f, f01=0x0190, f02=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 D * P* INDXAC EQU 0 OTHRERWISE h PX:A EQU 0 PINDXAC EQU 00000 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINE
0x3586dc…358870 Dummy {f00=0x013f, f01=0x0190, f02=»TA DEFINITIONS * P************************ P* : P* D P DATA 0,0 4 WORDS N P DATA 0,0 h " PTIOD14 EQU *-2 TIODM A14 STACK z P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA CLOSE CLOSE " P DATA REVTOC REA
0x358870…358a04 Dummy {f00=0x013f, f01=0x0190, f02=»DELETE | P DATA IXREWR INDEXED REWRITE $ P DATA IXRARE INDEXED RANDOM READ 2 P XIF Z P IFF INDXAC=1 f P DATA TIODME | P DATA TIODME P DATA TIODME P DATA TIODME P DATA TIODME P XIF P DATA RANDEL RANDOM DELETE
0x358a04…358b98 Dummy {f00=0x013f, f01=0x0190, f02=» SEQUENTIAL WRITE " P DATA SEQREAD SEQUENTIAL READ P DATA GETCUR GET CURRENCY @ P IFT INDXAC=1 b $ P DATA INSIXR INSERT INDEX RECORD x $ P DATA DELIXR DELETE INDEX RECORD P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIOD
0x358b98…358d2c Dummy {f00=0x013f, f01=0x0190, f02=»LETE r $ P DATA RANREB RAND READ REL BUFF P DATA SETLRN SET LRN 4 P* P P* Z PTIODMO EQU * DM ORDERS d $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND INSERT,IND DELETE . P DATA /1B1A INDEXED REWRITE,IND RAND READ $ P D
0x358d2c…358ec0 Dummy {f00=0x013f, f01=0x0190, f02=»SEQ WR. , BASIC WRITE $ P DATA /0302 READ VTOC, SEQ READ ( P DATA /0123 BASIC READ,GET CURRENCY F * P DATA /1F20 INS INDEXREC,DEL INDEXREC r . P DATA /240D GET CURR INDEX,DELAYED RAND WR 0 P DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF P D
0x358ec0…359054 (4, 350) Dummy {f00=0x0140, f01=0x0190, f02=»ATA /0E10 P DATA /1214 P DATA /1616 & P DATA /1616 : P DATA /0218 N P DATA /181A b P DATA /1C1E v P DATA /2022 P DATA /2426 P DATA /281A SET LRN P* $ PNOOFOR EQU 25 NO OF ORDER CODES P*
0x359054…3591e8 Dummy {f00=0x0140, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* P* f P* FDB OFFSET DEFINITIONS p P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER
0x3591e8…35937c Dummy {f00=0x0140, f01=0x0190, f02=» l 0 PFDBTNR EQU START+23 TASK NUMBER CALLING TASK & PFDBVTO EQU START+24 VTOC RECORD NO < 4 PFDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER f 0 PFDBEXT EQU START+28 FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME F
0x35937c…359510 Dummy {f00=0x0140, f01=0x0190, f02=»+53 LAST RECORD NUMBER * PFDBNIF EQU START+52 NO OF INDEX FILES $ PFDBEAL EQU START+56 EA LINK ROOT L & PFDBCRL EQU START+58 CRN LINK ROOT t 0 PFDBKA EQU START+60 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START+62 ADDRESS OF MASTER INDEX 0 PFD
0x359510…3596a4 Dummy {f00=0x0140, f01=0x0190, f02=»AND REL BUFFER FLAGS p , PFDBMRN EQU START+75 LAST REC NR IN FILE " PFDBMRO EQU START+78 MAX FDBRRO L , PFDBMEC EQU START+80 MMU ECB DISPLACEMENT r < PFDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS P* & P* CRN BUFFER OFFSET DEFINI
0x3596a4…359838 Dummy {f00=0x0140, f01=0x0190, f02=» P EJECT P* P************* P* TIODM * 2 P************* H P* ^ P* h ( P DATA 0 DATA MANAGEMENT DEVICE INDEX r & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14
0x359838…3599cc Dummy {f00=0x0140, f01=0x018e, f02=» A1,A2 P LD A3,2,A1 P CW A3,DWTTDM,A6 " P RF(E) TIOD10 THIS TASK : P ADK A2,2 NO Z P RB TIOD05 TRY NEXT n PTIOD10 EQU * P LC A1,TTB:ID,A3 GET TASK ID P CCK A1,'##' ( P RF(E) TIO13 JUMP IF DMTASK CALLING P*
0x3599cc…359b60 Dummy {f00=0x0140, f01=0x0190, f02=» P LDKL A4,/4000 REQ BUSY BIT PTIO11 EQU * ( P SUK A3,2 < P RF(N) TIO13 ALL FDB READY N P LDR* A5,A1 FDB ADDR p P RF(E) TIO12 NO FDB P SC A2,FDBTNR,A5 TASK ID " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A
0x359b60…359cf4 (4, 351) Dummy {f00=0x0140, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD
0x359cf4…359e88 Dummy {f00=0x0140, f01=0x0190, f02=»BI TIODMF,A2 BRANCH TO DM FUNCTION P EJECT * P* 8 $ PIXRARE EQU * INDEXED RANDOM READ B P LD A3,ECBCW2,A8 =1 j P ANK A3,/FF REQ KEY LGTH =1 P LD A4,FDBRLE,A6 =1 P SUK A4,6 MAX LGTH =1 P CWR A3,A4 =1 P RF(NG) IXRAR1
0x359e88…35a01c Dummy {f00=0x0140, f01=0x0190, f02=»GET USER KEY ADDRESS 0 P LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT P ADR A2,A6 ADD FDB ADDRESS P P* =1 r 2 P CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA P XIF P* $ PDELIXR EQU * DELETE INDEX RECORD P* $ PINSIXR E
0x35a01c…35a1b0 Dummy {f00=0x0140, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x35a1b0…35a344 Dummy {f00=0x0140, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x35a344…35a4d8 Dummy {f00=0x0140, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x35a4d8…35a66c Dummy {f00=0x0140, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x35a66c…35a800 Dummy {f00=0x0140, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x35a800…35a994 (4, 352) Dummy {f00=0x0140, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB
0x35a994…35ab28 Dummy {f00=0x0140, f01=0x018e, f02=»EQU * INDEXED INSRERT P IFT MMUPAG=1 P* 4 " P* MOVE KEYS TO FDB KEY AREAS > P* d P LDK A5,8 n PIXINS3 EQU * P LDR A2,A6 FDB DATA P ADR A2,A5 P LD A3,FDBADF,A2 FDB INDEX P RF(Z) IXINS4 NO INDEX P LD A1
0x35ab28…35acbc Dummy {f00=0x0140, f01=0x0190, f02=» P LD A3,FDBRLE,A3 REC LGTH P SUK A3,6 KEY LGTH & " P CF A14,MOV:US KEY TO FDB AREA @ PIXINS4 EQU * f P SUK A5,2 z P RB(NZ) IXINS3 MORE INDEXS P XIF P* $ PSEQWRITE EQU * SEQUENTIAL WRITE P* 2 P* GET LRN+1 INTO
0x35acbc…35ae50 Dummy {f00=0x0140, f01=0x0190, f02=» x P LDK A1,0 ! P LC A1,FDBMRN,A6 LAST REC NR ! P LD A2,FDBMRN+1,A6 ! > P LDK A6,0 ! X P LC A6,FDBLRN,A5 ! j P LD A7,FDBLRN+1,A5 LRN ! P CF A14,DSUMOD SUBTRACT ! P SUK A2,1 ! P LDR A1,A1 ! P RF(Z) SEQ005 NOT MANY ! P LDKL
0x35ae50…35afe4 Dummy {f00=0x0140, f01=0x0190, f02=»,FDBLRN+1,A6 LRN ! P IFT INDXAC=1 " P RF IXR020 STORE LOG REC NO " . P EJECT " R $ PIXRDNX EQU * INDEXED EREAD NEXT " ` P* " P* GET CRN " P* " P LD A1,FDBADF,A6 FDB ADDR " " P CF A14,CRNGET GET CRN BUFFER " P LDR A4,A2 BUFFA
0x35afe4…35b178 Dummy {f00=0x0140, f01=0x0190, f02=»C A5,CRNCIF,A4 " . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT # P LC A1,CRNCIF+1,A4 # H " P LD A2,CRNCIF+2,A4 LOG REC NO # b PIXR020 EQU * # P XIF # P ADK A2,1 # P RF(O) IXR030 OVERFLOW # P RF IXR040 # , PIXR030 ANKL A2,/7FFF REMOVE OV
0x35b178…35b30c Dummy {f00=0x0140, f01=0x0190, f02=»NOT CHECK EOF CONDITION # P EJECT $ P* $ . PIXREWR EQU * INDEXED REWRITE $ 8 P* $ PIXDEL EQU * INDEXED DELETE $ f P* $ PRANWRITE EQU * RANDOM WRITE $ P* $ & PRANWRD EQU * DELAYED RANDOM WRITE $ P* $ & PRANDLD EQU * DELAYED
0x35b30c…35b4a0 Dummy {f00=0x0140, f01=0x018e, f02=» $ P************************* % P* DMTASK ACTIVATION * % * P************************* % L P* % n PTIODMA EQU * % x P* % P* SET EOF IF CRN > LRN % P* % P LDK A1,0 % P LC A1,ECBCW+3,A8 REC NO % P LD A2,ECBCW,A8 DITTO
0x35b4a0…35b634 (4, 353) Dummy {f00=0x0140, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x35b634…35b7c8 Dummy {f00=0x0140, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x35b7c8…35b95c Dummy {f00=0x0140, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x35b95c…35baf0 Dummy {f00=0x0140, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x35baf0…35bc84 Dummy {f00=0x0140, f01=0x2008, f02=» *
0x35bc84…35be18 Dummy {f00=0x0140, f01=0x0190, f02=»TIMER P CM DCTPP PHPT10 RTN A5 P EJECT 4 P IFT CODE=1 B P* V P* ` P* CALCULATION OF CRC j P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRCSAV P ST
0x35be18…35bfac Dummy {f00=0x0140, f01=0x0190, f02=» P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 , PCRC110 SUK A1,1 B P RB(NZ) CRC100 Z P LD A1,CRCSAV p P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P* ( P* READ CRC C
0x35bfac…35c140 Dummy {f00=0x0140, f01=0x0190, f02=» NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SAVE IT < P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN | P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,4 . P CWR A2,A6
0x35c140…35c2d4 (4, 354) Opaque[0x194]
0x35c2d4…35c468 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2820, f03=0x0000}
0x35c2d4…35c468 IdxSect {
0x35c2d4…35c468 f00 = 0x0141 // 0x35c2d4 @0x0
0x35c2d4…35c468 f01 = 0x0026 // 0x35c2d6 @0x2
0x35c2d4…35c468 gno = [ // 0x35c2d8 @0x4
0x35c2d4…35c468 [0x00]: C0x0141.0x0.0
0x35c2d4…35c468 [0x01]: C0x0141.0x1.0
0x35c2d4…35c468 [0x02]: C0x0141.0x2.0
0x35c2d4…35c468 [0x03]: C0x0141.0x3.0
0x35c2d4…35c468 [0x04]: C0x0142.0x0.0
0x35c2d4…35c468 [0x05]: C0x0142.0x1.0
0x35c2d4…35c468 [0x06]: C0x0142.0x2.0
0x35c2d4…35c468 [0x07]: C0x0142.0x3.0
0x35c2d4…35c468 [0x08]: C0x0143.0x0.0
0x35c2d4…35c468 [0x09]: C0x0143.0x1.0
0x35c2d4…35c468 [0x0a]: C0x0143.0x2.0
0x35c2d4…35c468 [0x0b]: C0x0143.0x3.0
0x35c2d4…35c468 [0x0c]: C0x0144.0x0.0
0x35c2d4…35c468 [0x0d]: C0x0144.0x1.0
0x35c2d4…35c468 [0x0e]: C0x0144.0x2.0
0x35c2d4…35c468 [0x0f]: C0x0144.0x3.0
0x35c2d4…35c468 [0x10]: C0x0145.0x0.0
0x35c2d4…35c468 [0x11]: C0x0145.0x1.0
0x35c2d4…35c468 [0x12]: C0x0145.0x2.0
0x35c2d4…35c468 ]
0x35c2d4…35c468 }
0x35c468…35c5fc Dummy {f00=0x0141, f01=0x0190, f02=» 2 P IDENT DMTASK REL 9.2 79-11-16 870105040920 P : P =5, PR5649 B P REL 9.1 79-11-01 X P =4,CURRENCY INSERT t P REL 9.1 79-07-02 P =3,TEST KEY P REL 9.1 79-07-02 P =2,CH REQ P REL 8.2 P
0x35c5fc…35c790 Dummy {f00=0x0141, f01=0x0190, f02=»M PTS v P* 0 P* DMTASK = HANDLES DATAMANAGEMENT DISC I/O P* L P* V P* ` P* j P* t 8 P**************************************************** ~ P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT
0x35c790…35c924 Dummy {f00=0x0141, f01=0x0190, f02=» TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, -FC, -SNR). : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS SECTOR > F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET | D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT
0x35c924…35cab8 Dummy {f00=0x0141, f01=0x0190, f02=»N AND ARE V ( P* FOLLOWED BY AN EXIT LKM REQUEST. : P* INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE > & P* ALL I/O ARE MADE IN WAIT MODE | P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 6 P* FOR INDEXED
0x35cab8…35cc4c Dummy {f00=0x0141, f01=0x018e, f02=»SIVE ACCESS CHECK INCLUDED | 2 P* QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED " P EJECT X P* f P*************** p P* ENTRIES * P*************** P* P* P ENTRY DMTASK & P ENTRY SQR EXTERNAL CODE SEQ READ
0x35cc4c…35cde0 Dummy {f00=0x0141, f01=0x0190, f02=» | P***************** P* " P* , P EXTRN SCTTCT,SCTCDT 6 & P EXTRN TTB:ID TASK IDENTIFICATION R P EXTRN TTB:TD,FDBSTA | P EXTRN FNDTID P EXTRN TENDIO P EXTRN FDBECB P EXTRN FDBSNR P EXTRN FDBRRO P E
0x35cde0…35cf74 (4, 355) Dummy {f00=0x0141, f01=0x0190, f02=» EXTDMI P EXTRN EXTFC P EXTRN EXTLEN $ P EXTRN EXTBAS : P EXTRN EXTELE P P EXTRN FDBLRN f P EXTRN FDBMIA | P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDBAI1 P EXTRN FDBCRL P EXTRN FDBDBR,FDBMRN,FDBMRO
0x35cf74…35d108 Dummy {f00=0x0141, f01=0x0190, f02=»BUF P EXTRN BUFLNK P EXTRN BUFDMI " P EXTRN BUFFC 8 P EXTRN BUFSNR L P EXTRN BUFOR b P EXTRN BUFSTA v P EXTRN CURBUF P EXTRN DWTECB P EXTRN DWTUEC P EXTRN DWTOR P EXTRN DWTST,DWTTDM,DWTTQ P EXT
0x35d108…35d29c Dummy {f00=0x0141, f01=0x0190, f02=»DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CALSNO * P EXTRN DSUMOD @ . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU V P EXTRN QTJOB,GTLGRN P EXTRN FNDKEY P EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RD
0x35d29c…35d430 Dummy {f00=0x0141, f01=0x0190, f02=»VE FROM USER TO SYSTEM AREA 0 P EXTRN MOV:SU MOVE FROM SYSTEM TO USER AREA $ P EXTRN MONMMU X , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK n P EXTRN TTB:MT MMU TABLE ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EJECT P* P*
0x35d430…35d5c4 Dummy {f00=0x0141, f01=0x0190, f02=»LUSIVE ACCESS BIT CAN BE EXCLUDED AT 8 P* RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0. , P* h P* r PX:A EQU 1 | PX:B EQU 0 PX:C EQU 0 PX:D EQU 1 PX:E EQU 0 P* PQNOEXA EQU 00001 6 P* INDEXED ACCE
0x35d5c4…35d758 Dummy {f00=0x0141, f01=0x018e, f02=»TED b PINDXAC EQU 00000 6 PRECBFZ EQU 00004 INDEX RECORD BUFFER SIZE IN WORDS $ 4 PFLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 ^ 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 P* P EJECT DMTASK P* P* . P* A PROG
0x35d758…35d8ec Dummy {f00=0x0141, f01=0x0190, f02=» . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 * d DSKPAG EQU 0 n * P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P*
0x35d8ec…35da80 Dummy {f00=0x0141, f01=0x0190, f02=»************** P* P* , PEABIT EQU /20 EA-BIT IN DWT STATUS BYTE * P* Z & PVTOBLK EQU 9 VTOC BLOCKING FACTOR d P* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF P*
0x35da80…35dc14 (4, 356) Dummy {f00=0x0141, f01=0x0190, f02=»XAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6 4 P DATA DMINS INDEXED INSERT F PQDEL EQU 8 h P DATA DMDEL INDEXED DELETE z PQIRW EQU 10 P DATA DMIRW INDEXED REWRITE $ P DATA DMIRR INDEXED RANDOM RESAD P XIF P
0x35dc14…35dda8 Dummy {f00=0x0141, f01=0x0190, f02=»DOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE $ PQRR EQU 18 F P DATA DMRDRE RANDOM READ X PQREA EQU 20 x * P DATA DMTERR RELEASE EXCLUSIVE ACCESS PQSW EQU 22 " P DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORD
0x35dda8…35df3c Dummy {f00=0x0141, f01=0x0190, f02=» INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX & PQDELX EQU 30 H P DATA DMDELX DELETE INDEX P XIF ~ P IFF INDXAC=1 P DATA DMTERR,DMTERR P XIF PQGCURX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD
0x35df3c…35e0d0 Dummy {f00=0x0141, f01=0x0190, f02=» $ P DATA DMRRRB RAND READ REL BUFF P* , $ PVTOCRL DATA 0 VTOC RECORD LENGTH 6 P EJECT ^ P* l P************** v P* DMTFRL * P************** P* , P* ENTRY DMTFRL FIND RECORD LENGTH P* 4 P* INPUT
0x35e0d0…35e264 Dummy {f00=0x0141, f01=0x0190, f02=»OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH . & P* A2 IS STORED IN ECBEL n P* PDMTFRL EQU * P LD A2,ECBRL,A9 P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH
0x35e264…35e3f8 Dummy {f00=0x0141, f01=0x0190, f02=»ETURN CODE t . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH P RTN A14 D P EJECT T P* b P************ l P* DMTWM * P************ P* " P* ENTRY DMTWM WORD MOVE P* " P* INPUT A1 = FROM ADDRESS , P
0x35e3f8…35e58c Dummy {f00=0x0141, f01=0x0190, f02=» P* PDMTWM EQU * P SUK A2,2 & " P RF(N) DMTW10 LAST WORD MOVED 8 P LDR* A4,A1 ^ P STR A4,A3 r P ADK A1,2 P ADK A3,2 P RB DMTWM PDMTW10 ANK A2,/01 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR
0x35e58c…35e720 Dummy {f00=0x0141, f01=0x0190, f02=» " P* ENTRY DMTBM BYTE MOVE P* . " P* INPUT A1 = FROM ADDRESS 8 , P* A2 = NO OF BYTES TO BE MOVED ^ P* A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR
0x35e720…35e8b4 (4, 357) Dummy {f00=0x0141, f01=0x0190, f02=» P ADK A1,1 P ADK A3,1 P RB DMTBM ( PDMTB10 RTN A14 : P* P 2 P* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT Z P* MOVES FROM THE END P* PDMTBMR ADR A1,A2 P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10
0x35e8b4…35ea48 Dummy {f00=0x0141, f01=0x0190, f02=»**************************** x P* $ : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE . P* l 8 P****ENTRY PARAMETERS******************************** v P* P* A1 = TTAB ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT
0x35ea48…35ebdc Dummy {f00=0x0141, f01=0x0190, f02=»NCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 P* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND F 2 P* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB P* 8 P****USED REGISTERS********************************** P* P*
0x35ebdc…35ed70 Dummy {f00=0x0141, f01=0x0190, f02=»* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR PFND030 EQU * H P SUK A3,4 ( P RF(NP) FND040 FILE CODE NOT IN TTAB n P LDR A4,A1 P ADKL A4,TTB:TD =1 P ADR A4,A3 P CWR* A2,A4 =1 P RB(NE) FND030 P
0x35ed70…35ef04 Dummy {f00=0x0141, f01=0x0190, f02=» EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED P LD* A4,SCTCDT L PFND050 EQU * b P SUK A4,4 v ( P RF(NP) FND060 CODE NOT FOUND AT ALL P LD A3,SCTCDT P ADR A3,A4 P CWR* A2,A3 =1 P RB(NE) FND050
0x35ef04…35f098 Dummy {f00=0x0141, f01=0x0190, f02=» EJECT P* P************** P* DMTREM * . P************** D P* Z D P* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA d P* 0 P* INPUT RELATIVE REC OFFSET IN FDBRRO,A6 $ P* BUFFER ADDRESS IN
0x35f098…35f22c Dummy {f00=0x0141, f01=0x0190, f02=»HE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE B P* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE T > P* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE
0x35f22c…35f3c0 Dummy {f00=0x0141, f01=0x0190, f02=» LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 4 P ANK A4,/01 F ( P RF(Z) DMT210 BOTH ODD OR BOTH EVEN Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P RF DMT225 P* PDMT210 LDR A4,A1 P ANK A4,/01 P RF(E) DMT220 BO
0x35f3c0…35f554 (4, 358) Dummy {f00=0x0142, f01=0x0190, f02=»RD MOVE z PDMT225 EQU * P XIF $ P* 0 P IFT MMUPAG=1 : & P LD A4,DWTTDM,A6 GET TTAB ADDRESS P $ P LC A3,TTB:ID,A4 ID CALLING TASK z P CCK A3,'##' P RF(NE) DMTREN NOT DMTASK P LDK A3,QRR P CC A3,DWTOR+1,A6 " P R
0x35f554…35f6e8 Dummy {f00=0x0142, f01=0x0190, f02=»SER TTAB ~ PDMTREN EQU * P INH $ $ P TL TTB:MT,A4 LOAD MMU REGISTERS 0 PDMTREP EQU * X $ P LD A4,PRUN GET DM TTAB ADDRESS l 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE P ENB P LDR A3,A2 GET LENGTH 0 P LD A2,ECBBA,A9 GET RE
0x35f6e8…35f87c Dummy {f00=0x0142, f01=0x018e, f02=»PAG=1 PDMTREQ INH P TL MONMMU SYSTEM MMU P RB DMTREP > P XIF P P EJECT P* j P* SET UP A14 STACK t P* PGETA14 EQU * $ P LD A14,PRUN GET DM TTAB ADDRESS * P AD A14,TTB:TD,A14 LENGTH DEVICE DESCR P ADK
0x35f87c…35fa10 Dummy {f00=0x0142, f01=0x0190, f02=» P************** ! P* ! P* ! ( PDMTASK EQU * ! 2 P* ! F P* SET UP A14 STACK ! P P* ! l P CF A15,GETA14 ! v P LDR A6,A1 FDB ADDR ! P LDKL A5,-1 ! * P CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 ! 2 P RF(E) DMT090 FOR ORDERS XR,DX
0x35fa10…35fba4 Dummy {f00=0x0142, f01=0x0190, f02=»1 ! P ANK A2,/3F " P CWK A2,QCL " P RF(E) DMT024 CLOSE " 2 P CWK A2,QRV " N P RF(E) DMT024 READ VTOC " b P SUK A2,QRRRB " & P RF(E) DMT024 RAND READ REL BUFFER " P ORKL A4,/100 " PDMT024 EQU * " P ST A4,FDBDBR,A1 " PDMT0
0x35fba4…35fd38 Dummy {f00=0x0142, f01=0x0190, f02=»80 BUFFER WAS BEFORE " P* # ( P* READ SECTOR INTO BUFFER AND EXIT # & P* # R P SUK A5,QCL # P RF(Z) DMT030 CLOSE # p P LDK A7,/11 PHYSICAL READ # P LKM # P DATA -1 I/O AND ACTIVATION # " P DATA DMTAR1 DMTASK RESTART #1 # P LKM
0x35fd38…35fecc Dummy {f00=0x0142, f01=0x0190, f02=»T050 CHECK RETURN CODES # P EJECT $ P************** $ . P* DMTAR1 * $ D P************** $ Z P* RESTART POINT AFTER READ $ p P* $ PDMTAR1 EQU * $ P* $ P* SET UP A14 STACK $ P* $ P CF A15,GETA14 $ PDMT050 EQU * $
0x35fecc…360060 Dummy {f00=0x0142, f01=0x0190, f02=» $ 0 PDMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER % P LDR A5,A3 % < P ADK A5,8 SKIP BUFFER HEADER % N * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB % r PDMT090 EQU * % P* % 4 P* HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR % P* % P ADK A5,
0x360060…3601f4 (4, 359) Dummy {f00=0x0142, f01=0x0190, f02=» TABLE % r P EJECT & $ PDMRRRB EQU * RAND READ REL BUFF & P* & D PDMSQRE EQU * SEQUENTIAL READ & N P* & r PDMRDRE EQU * RANDOM READ & | P* & 4 P* CHECK STATUS IF NOT USED THEN ERROR RETURN & P* & P LD A2,FDBRRO,A6 & P AD A2,F
0x3601f4…360388 Dummy {f00=0x0142, f01=0x018e, f02=»A & | P ABL DMTERR ' & PDMT200 LDK A1,/8 INCORRECT LENGTH ' & P CF A14,DMTFRL A2 := RECORD LENGTH ' H P* ' r P* MOVE THE RECORD ' | P* ' P CF A14,DMTREM ' P* ' 0 P* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT ' P* ' PDMT230 E
0x360388…36051c Dummy {f00=0x0142, f01=0x0190, f02=» ' t P* ( P LD A2,FDBSNR,A6 ( ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER ( * P* ( V P* VOLUME LABEL IN BUFFER ( ` H P* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR ( 8 P* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER (
0x36051c…3606b0 Dummy {f00=0x0142, f01=0x0190, f02=»OBLK VTOC BLOCKING FACTIOR ( ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER ) " P LDK A1,0 ) N , P CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER ) ` P LDR A3,A2 QUOTIENT ) P LDR A6,A10 FDB ADDR ) P LDR A2,A1 REST ) P RF(Z) DMT240 REST = 0 ) $ P ADK A3,1
0x3606b0…360844 Dummy {f00=0x0142, f01=0x0190, f02=» P ST A3,FDBSNR,A6 * P LDK A3,0 * PDMT255 SUK A2,1 * . P RF(Z) DMT260 * F P AD A3,VLVRL-2,A5 * P ADK A3,1 SKIP STATUS BYTE * v P RB DMT255 * PDMT260 ST A3,FDBRRO,A6 * P* * P* RELEASE BUFFER * P* * P LD A3,ECBBA,A9 *
0x360844…3609d8 Dummy {f00=0x0142, f01=0x0190, f02=» ADDR * P RB DMT020 READ VTOC SECTOR + P EJECT + 2 PDMT270 EQU * + @ P SUK A7,QRV + T $ P ABL(Z) DMT500 READ VTOC RECORD + h P* CLOSE FILE + & P* UPDATE VTOC LAST RECORD NUMBER + & P* AND WRITE SECTOR BACK ON DISC + P AD A5,FDBRRO,
0x3609d8…360b6c Dummy {f00=0x0142, f01=0x0190, f02=»E FILE. WRITE VTOC + P* , P LDK A7,/95 , $ P LKM , 8 P DATA 1 , D P* , T P LDR A1,A6 FDBADDRESS IN A1 , ^ & P CF A14,DMTIOT CHECK RETURN CODES , P LDR A1,A1 , P RF(NZ) DMT724 ERROR , PDMT720 EQU * , P LD A1,DWTTDM,A6 TTAB ADDR
0x360b6c…360d00 Dummy {f00=0x0142, f01=0x0190, f02=» A2,1 0 OR 1 , P ECR A2,A2 =1 END - P LC A2,ECBFC,A9 FILE CODE - . " P LDK A5,0 TRY LOCAL AND GLOBAL - P . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB - v & P LDR A13,A5 LOCAL/GLOBAL INDICATOR - P LDR A2,A2 - P RF(NZ) DMT725 FC FOUND - P LDK
0x360d00…360e94 (4, 360) Dummy {f00=0x0142, f01=0x0190, f02=»R - p P LDR A12,A1 SAVE TTEAB ADDR . 4 P SUR A10,A10 MARK THAT FDB NOT SHALL BE RELEASED . . P EJECT . f 0 P* CHECK IF THIS FDB ADDR IS USED ELEWHERE . t P* . P* SEARCH ALL TTABS . P* . P LD* A2,SCTTCT . PDMT730 EQU * . P SUK A
0x360e94…361028 Dummy {f00=0x0142, f01=0x018e, f02=»K ID . | P CCK A3,'##' / & P RB(E) DMT730 JUMP IF MONITOR TASK / P LD A3,TTB:TD,A1 / J ( P ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 / b PDMT770 EQU * / P SUK A3,4 / $ P RB(NP) DMT730 NOT IN THIS TTAB / P LDR A4,A1 / P ADR A4,A3 / P CWR* A5
0x361028…3611bc Dummy {f00=0x0142, f01=0x0190, f02=» / v & P RF DMT895 MORE USERS ON THIS FDB 0 P* 0 2 P* NOW SEARCH SCTCDT 0 < P* 0 Z PDMT780 EQU * 0 d P LD* A4,SCTCDT 0 x PDMT790 EQU * 0 P SUK A4,4 0 . P RF(NP) DMT800 THIS FDB HAS NO OTHER USER 0 P LD A2,SCTCDT 0 P ADR A2,A4 0
0x3611bc…361350 Dummy {f00=0x0142, f01=0x018e, f02=» & P RF DMT895 THIS FDB HAS MORE USERS 1 P EJECT 1 . P* 1 < P* NOW RELEASE THIS FDB 1 F P* 1 f PDMT800 EQU * 1 p P* 1 P* RELEASE EA-BUFFERS 1 P* 1 . P LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED 1 P LDR A1,A6 FDB ADDR 1 P CF
0x361350…3614e4 Dummy {f00=0x0142, f01=0x0190, f02=» 1 P CMR A5 CLEAR FDB 2 P RF DMT830 2 " PDMT820 EQU * 2 4 P LDR A4,A5 BUFFER ADDRESS 2 H PDMT830 EQU * 2 j & P RF(Z) DMT840 ALL BUFFER S REMOVED 2 ~ $ P LDR* A5,A4 NEXT BUFFER ADDRESS 2 P* 2 P* RETIURN BUFFER TO POOL 2 P* 2 P I
0x3614e4…361678 Dummy {f00=0x0142, f01=0x0190, f02=» 2 P* 3 < P* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON 3 > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME 3 R P* 3 P LDK A1,4 EXTENT COUNTER 3 P LDR A5,A6 FDB ADDR 3 . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE 3
0x361678…36180c Dummy {f00=0x0142, f01=0x0190, f02=»1 LOOP 3 & P ABL(NN) DMT900 CHECK THIS EXTENT 4 P XIF 4 8 P IFT INDXAC=1 4 D P EJECT 4 Z P* 4 h P* ALL EXTENTS CHECKED 4 r P* RELEASE MASRTER INDEX 4 P* 4 P INH 4 & P LD A1,FDBMIA,A6 MASTER INDEX ADDR 4 P RF(Z) DMT894 NO MAT
0x36180c…3619a0 Dummy {f00=0x0142, f01=0x018e, f02=» DMT894 NO MATER IX 4 P CW A1,MXIND+2,A5 5 P RB(NE) DMT885 5 6 P LD A4,MXIND,A5 5 L & P RF(N) DMT890 PREVIOUS ENTRY USED 5 d " P LD A4,MXIND+4,A5 NO OF WORDS 5 P ANKL A4,/7FFF REMOV USE BIT 5 P ADS A4,MXIND,A5 NR OF WORDS 5 P* 5 P*
0x3619a0…361b34 (4, 361) Dummy {f00=0x0142, 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
0x361b34…361cc8 Dummy {f00=0x0142, 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
0x361cc8…361e5c Dummy {f00=0x0142, 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
0x361e5c…361ff0 Dummy {f00=0x0142, 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
0x361ff0…362184 Dummy {f00=0x0142, 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
0x362184…362318 Dummy {f00=0x0142, 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
0x362318…3624ac Dummy {f00=0x0142, 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
0x3624ac…362640 Dummy {f00=0x0142, 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* =
0x362640…3627d4 (4, 362) Dummy {f00=0x0143, 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 >
0x3627d4…362968 Dummy {f00=0x0143, 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
0x362968…362afc Dummy {f00=0x0143, 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
0x362afc…362c90 Dummy {f00=0x0143, 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
0x362c90…362e24 Dummy {f00=0x0143, 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
0x362e24…362fb8 Dummy {f00=0x0143, 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 "
0x362fb8…36314c Dummy {f00=0x0143, 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
0x36314c…3632e0 Dummy {f00=0x0143, 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
0x3632e0…363474 (4, 363) Dummy {f00=0x0143, 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
0x363474…363608 Dummy {f00=0x0143, 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
0x363608…36379c Dummy {f00=0x0143, 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
0x36379c…363930 Dummy {f00=0x0143, 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
0x363930…363ac4 Dummy {f00=0x0143, 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
0x363ac4…363c58 Dummy {f00=0x0143, 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
0x363c58…363dec Dummy {f00=0x0143, 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
0x363dec…363f80 Dummy {f00=0x0143, 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,
0x363f80…364114 (4, 364) Dummy {f00=0x0143, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x364114…3642a8 Dummy {f00=0x0143, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x3642a8…36443c Dummy {f00=0x0143, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x36443c…3645d0 Dummy {f00=0x0143, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x3645d0…364764 Dummy {f00=0x0143, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x364764…3648f8 Dummy {f00=0x0143, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x3648f8…364a8c Dummy {f00=0x0143, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x364a8c…364c20 Dummy {f00=0x0143, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x364c20…364db4 (4, 365) Dummy {f00=0x0143, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x364db4…364f48 Dummy {f00=0x0143, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x364f48…3650dc Dummy {f00=0x0143, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x3650dc…365270 Dummy {f00=0x0143, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x365270…365404 Dummy {f00=0x0143, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x365404…365598 Dummy {f00=0x0143, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x365598…36572c Dummy {f00=0x0143, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x36572c…3658c0 Dummy {f00=0x0143, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x3658c0…365a54 (4, 366) Dummy {f00=0x0144, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x365a54…365be8 Dummy {f00=0x0144, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x365be8…365d7c Dummy {f00=0x0144, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x365d7c…365f10 Dummy {f00=0x0144, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x365f10…3660a4 Dummy {f00=0x0144, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x3660a4…366238 Dummy {f00=0x0144, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x366238…3663cc Dummy {f00=0x0144, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x3663cc…366560 Dummy {f00=0x0144, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x366560…3666f4 (4, 367) Dummy {f00=0x0144, f01=0x0190, f02=»DMI100 RECORD FOUND e P LDR A6,A1 FDB ADDR f & PDMI030 LDKL A1,/4000 KEY NOT FOUND f 8 PDMI035 EQU * f b P LDR A3,A3 BUFFER ADDR f v P ABL(Z) DMTERX NO BUFFER f P ABL DMTERR ERROR AND BUFFER f P EJECT f P* f & PDMINS2 EQU * INDEXED INS
0x3666f4…366888 Dummy {f00=0x0144, f01=0x0190, f02=»FSTA f " P CF A14,DMTRBU RELEASE BUFFER g PDMXDEL EQU * INDEXED DELETE g 2 6 P************************************************* g V P LDR A11,A7 ORDER CODE g P LDR A12,A8 PHYS ECB ADDR g P LDK A5,0 g . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUN
0x366888…366a1c Dummy {f00=0x0144, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x366a1c…366bb0 Dummy {f00=0x0144, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x366bb0…366d44 Dummy {f00=0x0144, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x366d44…366ed8 Dummy {f00=0x0144, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x366ed8…36706c Dummy {f00=0x0144, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x36706c…367200 Dummy {f00=0x0144, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x367200…367394 (4, 368) Dummy {f00=0x0144, f01=0x0190, f02=»*************** m r " P LD A9,DWTECB,A1 USER ECB ADDR n $ P LD A8,ECBBA,A9 BUFFER ADDR USER n > P LDR A12,A8 n f $ P LD A11,FDBRLE,A1 RECORD LENGTH n z P SUKL A11,6 KEY LENGTH n P LDR A13,A14 n 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS n $ P
0x367394…367528 Dummy {f00=0x0144, f01=0x0190, f02=»OR FOUND n z P LDR A13,A3 BUFFER ADDR o " P LD A4,FDBADF,A6 FDB DATA FILE o 0 P LD A5,DWTECB,A4 USER ECB o V P LD A1,DWTOR,A6 o x P ANK A1,/3F o P SUK A1,QDELX o & P ABL(E) DEL000 DELETE INDEX RECORD o P* o ( P* SET RC BIT 6 TO USER I
0x367528…3676bc Dummy {f00=0x0144, f01=0x018e, f02=»EY NOT ALLOWED IN FILE) o P* p P LC A4,ECBFC,A5 FILE CODE p * P CC A4,FDBECB+1,A6 p L * P RF(NE) INS049 NOT REQUESTED FILE CODE p f P LDKL A4,/200 BIT 6 p " P ORS A4,ECBRC,A5 NEXT KEY SAME p PINS049 EQU * p P IFT INSLAS=1 p P* p
0x3676bc…367850 Dummy {f00=0x0144, f01=0x018e, f02=» P CF A14,RDNXTR GET NEXT REC q P RF INS100 OK q ( P ABL DEL045 ERROR q > PINS100 EQU * q X P ADR A2,A3 q l P ADK A2,10 REC ADDR q ~ P AD A2,FDBRLE,A1 ADDR STATUS q P LDK A5,/FF q P CCR A5,A2 q P RF(E) INS150 USED q P LD A5,FDB
0x367850…3679e4 Dummy {f00=0x0144, f01=0x0190, f02=» P CWR A5,A11 KEY LENGTH r $ P RB(E) INS080 NEXT SAME GET NEXT r " P* r J P* UPDATE LAST SAME RECORD r T P* r x P SC A11,-4,A2 NEXT SAME r P LD A7,FDBRRO,A1 r P CW A7,FDBMRO,A1 r & P RF(NE) INS160 SECT WRITTEN LATER r P* r P*
0x3679e4…367b78 Dummy {f00=0x0144, f01=0x018e, f02=» P ABL(NZ) DMTERR s P* s P* GET NEXT RECORD s & P* s B PINS160 EQU * s L " P LDR A7,A5 NR OF SAME IN NEXT s ` P LDR A1,A6 FDB s P CF A14,RDNXTR GET NEXT RC s P RF INS170 OK s P ABL DEL045 ERROR s PINS170 EQU * s P LDR A
0x367b78…367d0c Dummy {f00=0x0144, f01=0x0190, f02=» s P* t ( P* CREATE AN INDE XRECORD IN AREA 1 t P* t > P LDR A1,A12 FROM ADDR t H P* t f P LDR A3,A14 t p P ADK A3,2 TO ADDR t P LDR A2,A11 KEY LENGTH t P CF A14,DMTBM MOVE KEY t P LDK A2,0 t P SCR A2,A3 DUMMY t P ADK
0x367d0c…367ea0 Dummy {f00=0x0144, f01=0x0190, f02=»R t t P LD A2,ECBCW+2,A5 u ( P LD A3,ECBCW,A5 REC NR DATA FILE REC u $ P SCR A2,A7 u P P ADK A7,2 u b P SCR A3,A7 u t P ECR A3,A3 u P SUK A7,1 u P SCR A3,A7 LOG REC NR u P ADK A7,2 u P LDK A1,/FF USED u P SCR A1,A7 STATUS CHAR
0x367ea0…368034 (4, 369) Dummy {f00=0x0144, f01=0x0190, f02=» u P ST A2,-28,A14 v P ST A3,-26,A14 v P EJECT v 4 P* v B : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING v L $ P* USED RECORDS ROLLED FORWARD v $ P* A6,A11,A13 IS USED AT ENTRY v $ P ADKL A11,7 RECORD LENGTH TOTAL v P* v
0x368034…3681c8 Dummy {f00=0x0144, f01=0x0190, f02=»A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 v $ P* A13 = BUFFER ADDRESS SECTOR w , P* w T PINS190 EQU * w ^ P LDKL A12,1 BUFADR2 w r PINS200 EQU * w P LDK A1,0 w P LDR A12,A12 w P RF(Z) INS210 BUFAR1 w ( P LDKL A1,RECBFZ RECORD BUUFFER SIZE
0x3681c8…36835c Dummy {f00=0x0144, f01=0x0190, f02=» LAST RECORD w P* x P LDR A1,A13 x P ADK A1,10 BUFSTA+2 x 2 . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT x N P LDR A2,A11 x P LDR A3,A10 x " P CF A14,DMTBM SAVE LAST RECORD x P* MOVE REST OF SECTOR x P* x P LDR A1,A13 x
0x36835c…3684f0 Dummy {f00=0x0144, f01=0x0190, f02=» x t P LDR A3,A1 y P ADR A3,A11 TO ADDR y P CF A14,DMTBMR MOVE y 6 P* INSERT NEW RECORD y R P* y p P LDKL A1,RECBFZ BUFFER SIZE y z P SLL A1,1 BYTE NO y P LDR A12,A12 y P RF(Z) INS250 BUFAR1 y " P LDK A1,0 SELECT OTHER BUFFER y
0x3684f0…368684 Dummy {f00=0x0144, f01=0x0190, f02=» P CF A14,DMTBM MOVE z P* WRITE BUFFER z P* z 6 P LDR A8,A14 USE STACK AS ECB z @ P SUKL A8,24 z d $ P LC A2,FDBEXT+1,A6 VOL DEV CODE z x P ANK A2,/FF z P STR A2,A8 z P LDR A2,A13 z P ADK A2,8 BUFSTA z P ST A2,ECBBA,A8 SECT
0x368684…368818 Dummy {f00=0x0144, f01=0x0190, f02=» z v P LDK A7,/95 WRITE , WAIT { P LKM { ( P DATA 1 { 4 P LDR A1,A6 FDB INDEX { D P CF A14,DMTIOZ IO CHECK { ` P LDR A1,A1 { P ABL(NZ) DMTERR { P* { 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY { P* { P LDR A2,A10 RECO
0x368818…3689ac Dummy {f00=0x0144, f01=0x0190, f02=»T IN SECT { v P CCR A1,A2 | P RF(Z) INS400 FREE RECORD | $ P* | F P* GET NEXT SECTOR | P P* | l P LDR A1,A6 FDB ADDR | v P LDR A3,A13 BUFFER ADDR | 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR | P RF INS260 OK | P LDR A1,A5
0x3689ac…368b40 Dummy {f00=0x0144, f01=0x0190, f02=»D BUFFERS | v P SUR A12,A12 } P RB INS200 } & P EJECT } 8 PINS400 EQU * } F P* } Z ( P* UPDATE LRN IF EOF IS ENCOUNTERED } d P* } P LDR A1,A6 FDB INDEX } P CF A14,GTLGRN } P CC A2,FDBLRN,A1 } P RF(L) INS430 NO EOF } P RF(G)
0x368b40…368cd4 (4, 370) Dummy {f00=0x0145, f01=0x0190, f02=»T A3,FDBLRN+1,A6 } P LDKL A1,/1000 EOF ~ P ORS A1,ECBRC,A9 EOF TO USER ~ 4 PINS430 EQU * ~ X P* ~ l 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS ~ v P* ~ P LDKL A12,1 ADD ON E TO CRN ~ P LDR A8,A2 ~ P LDR A9,A3 LAST REC NR MOVED ~
0x368cd4…368e68 Dummy {f00=0x0145, f01=0x0190, f02=»TE CRN IF SAME FILE CODE ~ P* P LD A1,FDBADF,A5 FDB DATA F * " P CF A14,CRNGET GET CRN BUFFER N & P LD A9,DWTECB,A1 USER ECB ADDR =4 t " P LC A4,ECBFC,A9 USER FILE CODE P CC A4,FDBECB+1,A5 P RF(NE) INS440 OTHRER FILE P ST A10,
0x368e68…368ffc Dummy {f00=0x0145, f01=0x0190, f02=»DK A1,0 OK RET CODE P LDR A3,A13 BUFFER ADDR P ABL DMTEX2 < P EJECT P * PDEL000 EQU * DELETE INDEX RECORD CONT ^ P LDR A12,A5 USER ECB ADDR P LDR A2,A2 PDEL010 EQU * " P ABL(NZ) DMI030 KEY NOT FOUND P* P*
0x368ffc…369190 Dummy {f00=0x0145, f01=0x0190, f02=»7 BUFSTA+2-3=ADDR REC NR P LCR A2,A1 P CC A2,ECBCW+3,A12 REC NR 2 P RF(NE) DEL030 WRONG RECORD T P LC A2,1,A1 x P ECR A2,A2 P LC A2,2,A1 REC NR P CW A2,ECBCW,A12 P RF(E) DEL200 RECORD FOUND PDEL030 EQU * P*
0x369190…369324 Dummy {f00=0x0145, f01=0x018e, f02=»DB INDEX PDEL040 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD $ P RF DEL050 OK P PDEL045 LDR A1,A5 ERROR CODE f P ABL DMI035 ERROR PDEL050 EQU * P* P* CHECK IF RECORD IS USED P* P LDR A13,A3 NEW BUFFER A
0x369324…3694b8 Dummy {f00=0x0145, f01=0x0190, f02=» P RB(E) DEL020 USED P LD A4,FDBMRO,A1 ( P ST A4,FDBRRO,A1 LAST REC IN SECTOR 6 P RB DEL040 NEXT REC b P EJECT ~ PDEL200 EQU * RECORD FOUND P* & P* SET RC BIT 6 IF NEXT KEY SAME P* $ P LC A2,ECBFC,A12 USER FILE C
0x3694b8…36964c Dummy {f00=0x0145, f01=0x0190, f02=»A6 * P RF(NE) DEL220 NOT REQUESTED FILE CODE P CWR A11,A7 KEY LENGTH : $ P RF(NE) DEL220 NEXT KEY NOT SAME X P LDKL A4,/200 $ P ORS A4,ECBRC,A12 NEXT KEY SAME PDEL220 EQU * P* $ P* MOVE UP RECORDS OVER DELETED P*
0x36964c…3697e0 Dummy {f00=0x0145, f01=0x0190, f02=» P ADR A1,A11 FROM ADDR P LD A2,FDBMRO,A6 & P SU A2,FDBRRO,A6 NR OF CHAR > P CF A14,DMTBM MOVE b P* | P* SET LAST RECORD FREE P* P ADR A3,A11 P SUK A3,1 P LDK A1,0 P SCR A1,A3 STATUS FREE P*
0x3697e0…369974 (4, 371) Dummy {f00=0x0145, f01=0x018e, f02=» " P LDR A11,A3 FIRST REC NR MOVED P LD A12,FDBRRO,A6 OLD OFFSET * P LD A4,FDBMRO,A6 N P ST A4,FDBRRO,A6 MAX OFFSET f $ P CF A14,GTLGRN LAST REC NR MOVED P LDR A8,A2 P LDR A9,A3 REC NR " P ST A12,FDBRRO,A6 RESET OFFSET P LDK
0x369974…369b08 Dummy {f00=0x0145, f01=0x0190, f02=» ~ $ P RF(NZ) DEL290 NOT FIRST RECORD P LDR A1,A5 FDB 0 P CF A14,GTLGRN GET REC NR F P LDR A1,A2 h P LDR A2,A3 z P LDK A6,0 P LDK A7,1 $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 P RF(Z) DEL600 FILE START P LDR A6,A5 FDB A
0x369b08…369c9c Dummy {f00=0x0145, f01=0x0190, f02=»A14 P ADKL A8,2 ECB ADDR P LDR A12,A12 ( $ P RF(Z) DEL245 BUFFER NOT CHANGED < P* d P* WRITE SECTOR n P* P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB P CF A14,DMTIOZ IO CHECK P LDR A1,
0x369c9c…369e30 Dummy {f00=0x0145, f01=0x018e, f02=»EASE BUFFER ~ P* P* GET PREVIOUS SECTOR P* > P LDR A1,A5 FDB ADDR H P LDK A3,0 d P CF A14,RDNXTR GET SECTOR v P RF DEL250 OK P LDR A6,A1 FDB ADDR P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P L
0x369e30…369fc4 Dummy {f00=0x0145, f01=0x018e, f02=» PDEL300 EQU * * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET P ADK A4,10 BUFSTA+2 F P ADR A4,A13 RECORD ADDR b & P AD A4,FDBRLE,A5 STATUS CHAR ADDR P LDK A2,/FF P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME I
0x369fc4…36a158 Dummy {f00=0x0145, f01=0x0190, f02=» v PDEL600 EQU * P LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x36a158…36a2ec Dummy {f00=0x0145, f01=0x401c, f02=» XIF P END @ LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x36a2ec…36a480 Dummy {f00=0x0145, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x36a480…36a614 (4, 372) Dummy {f00=0x0145, f01=0x0000, f02=»
[…0x7…]
0x36b120…36b2b4 (4, 373) Opaque[0x194]
0x36b2b4…36b448 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28b8, f03=0x0000}
0x36b2b4…36b448 IdxSect {
0x36b2b4…36b448 f00 = 0x0145 // 0x36b2b4 @0x0
0x36b2b4…36b448 f01 = 0x0004 // 0x36b2b6 @0x2
0x36b2b4…36b448 gno = [ // 0x36b2b8 @0x4
0x36b2b4…36b448 [0x00]: C0x0145.0x3.0
0x36b2b4…36b448 [0x01]: C0x0146.0x0.0
0x36b2b4…36b448 ]
0x36b2b4…36b448 }
0x36b448…36b5dc Dummy {f00=0x0145, f01=0x0190, f02=» 2 P IDENT DMINIT REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P*
0x36b5dc…36b770 Dummy {f00=0x0145, f01=0x018e, f02=»FDB:S IN THE FDB AREA z > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK ` , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS CALLED AS A PFINIT ROUTINE P* " P
0x36b770…36b904 Dummy {f00=0x0145, f01=0x0190, f02=» P EXTRN FDBSTA P EXTRN FDBEND P EXTRN CURBUF 0 P EXTRN BUFDMI F P EXTRN BUFSNR P EXTRN BUFOR r P EXTRN TASBLK P EXTRN TASQUE P EXTRN CRNQUE,CRNEND P EXTRN CRBUFL P EJECT P* P* P*
0x36b904…36ba98 Dummy {f00=0x0145, f01=0x0190, f02=» P* DIV W. 2 FOR 16 K LIMIT P* ( P LDR A5,A4 2 P SRL A5,1 D P LDR A1,A6 V P SRL A1,1 h P CWR A5,A1 z " P RF(G) DMIN40 END OF FDB AREA P STR A4,A3 CHAIN P LDR A3,A4 P RB DMIN30 PDMIN40 EQU * P SUR A
0x36ba98…36bc2c Dummy {f00=0x0145, f01=0x0190, f02=»ALIZATIONS IF POWER FAIL RESTART P* ( P LD A1,INIFLG 2 P RF(Z) DMINEX H P LDKL A2,QFDBFL FDB LENGTH ^ P* $ P* CHAIN FDB:S IN THE FDB AREA P* P LDKL A3,FDBSTA P LDKL A6,FDBEND P CF A15,DMIN30 P*
0x36bc2c…36bdc0 Dummy {f00=0x0145, f01=0x0190, f02=» P CF A15,DMIN30 P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS $ P* d P LDKL A2,/FFFE n P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 P CM BU
0x36bdc0…36bf54 (4, 374) Dummy {f00=0x0146, f01=0x405a, f02=»LK P CM TASQUE P* PDMINEX EQU * & P RTN A15 : P END J@ V
0x36bf54…36c0e8 Dummy {f00=0x0146, f01=0x2008, f02=» PDMINEX EQU * P RTN A15 " P END 2@ >TASBLK P CM TASBLK P P CM TASQUE b P* t , P* CLEAR DM FILE CODE ENTRIES IN CDTAB ~ P* P LD A2,CDTAB PDMIN60 SUK A2,4 P LDR A3,A2 P ADKL A3,CDTAB
0x36c0e8…36c27c Dummy {f00=0x0146, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x36c27c…36c410 Dummy {f00=0x0146, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x36c410…36c5a4 Dummy {f00=0x0146, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x36c5a4…36c738 Dummy {f00=0x0146, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x36c738…36c8cc Dummy {f00=0x0146, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x36c8cc…36ca60 Dummy {f00=0x0146, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x36ca60…36cbf4 (4, 375) Opaque[0x194]
0x36cbf4…36cd88 # DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28c8, f03=0x0000}
0x36cbf4…36cd88 IdxSect {
0x36cbf4…36cd88 f00 = 0x0146 // 0x36cbf4 @0x0
0x36cbf4…36cd88 f01 = 0x0010 // 0x36cbf6 @0x2
0x36cbf4…36cd88 gno = [ // 0x36cbf8 @0x4
0x36cbf4…36cd88 [0x00]: C0x0146.0x1.0
0x36cbf4…36cd88 [0x01]: C0x0146.0x2.0
0x36cbf4…36cd88 [0x02]: C0x0146.0x3.0
0x36cbf4…36cd88 [0x03]: C0x0147.0x0.0
0x36cbf4…36cd88 [0x04]: C0x0147.0x1.0
0x36cbf4…36cd88 [0x05]: C0x0147.0x2.0
0x36cbf4…36cd88 [0x06]: C0x0147.0x3.0
0x36cbf4…36cd88 [0x07]: C0x0148.0x0.0
0x36cbf4…36cd88 ]
0x36cbf4…36cd88 }
0x36cd88…36cf1c Dummy {f00=0x0146, f01=0x0190, f02=» 2 P IDENT DMTASS REL 9.2 79-11-16 870105040920 P : P* =3 PR 5141 B P* = 79-04-06 X P* =2 WAIT AT VTOC READ n P* REL 9.1 79-04-06 P* =1, PR 3413 P* REL 9.1 78-10-25 P P P* P* 8 P******
0x36cf1c…36d0b0 Dummy {f00=0x0146, f01=0x0190, f02=»LE CODE DISC I/O HANDLING z P* " P* , P* 6 P* @ P* J P* T 8 P**************************************************** ^ P* * P* THIS MODULE IS ACTIVATED FROM TASS P* B P* INPUT A2 = TID TASK IDENT OF DMTASK AT
0x36d0b0…36d244 Dummy {f00=0x0146, f01=0x0190, f02=» ASSIGNED CAN X L P* RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND D P* ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS f > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND . P* FILE-EXTENT-BASE ARE
0x36d244…36d3d8 Dummy {f00=0x0146, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x36d3d8…36d56c Dummy {f00=0x0146, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x36d56c…36d700 Dummy {f00=0x0146, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x36d700…36d894 (4, 376) Dummy {f00=0x0146, f01=0x0190, f02=» P EXTRN ECBRL P EXTRN ECBRC P EXTRN ECBCW , P* @ P EXTRN TIODM J P EXTRN DMTGBU ^ P EXTRN DMTRBU t P EXTRN CLRBUF P EXTRN BUFSTA P EXTRN BUFSNR P EXTRN BUFDMI P* P EXTRN QFDBFL P EXTRN
0x36d894…36da28 Dummy {f00=0x0146, f01=0x0190, f02=»BAS P EXTRN FDBRLE P EXTRN FDBBLF " P EXTRN FDBVTO 8 P EXTRN FDBLRN N P EXTRN FDBNIF,FDBKA d & P EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO . P EXTRN FDBMEC MM
0x36da28…36dbbc Dummy {f00=0x0146, f01=0x0190, f02=» P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB 0 P EXTRN TASFDB F P EXTRN TASVRL P EXTRN TASVLE r P EXTRN TASVRN P EXTRN TASECB P EXTRN TASFIL,TASTID,TASMXA P EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCA
0x36dbbc…36dd50 Dummy {f00=0x0146, f01=0x018e, f02=» PX:B EQU 0 4 PINDXAC EQU 00000 INDEX ACCESS FUNCTIONS WHEN = 1 P* N . P* A PROGRAM VERSION USING TOSS MMU PAGING X * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P EJECT P* P************
0x36dd50…36dee4 Dummy {f00=0x0146, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* , PVTFSNO EQU 8 6 PVTFXNO EQU 10 J PVTFXLE EQU 14 ` PVTFXBA EQU 18 v PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38 P*
0x36dee4…36e078 Dummy {f00=0x0146, f01=0x0190, f02=»RDS P DATA 0,0 STACK PDMTA14 EQU *-2 $ P EJECT : P* H P************** R P* DMTIOC * h P************** ~ P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WITH A
0x36e078…36e20c Dummy {f00=0x0146, f01=0x0190, f02=»FF BIT 7 ONLY RETRIES P RF(Z) DMTIOX P ADKL A14,4 4 P ANK A1,/80 H $ P RF(NZ) DMT060 NEW VOLUME LOADED P SUKL A3,BUFSTA , P CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER P LDK A7,1 P ABL DMTASX DISC I/O ERROR PDMTIOX E
0x36e20c…36e3a0 Dummy {f00=0x0146, f01=0x0190, f02=»QU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT H P CM TASMXA MASTER INDEX ADDR h P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8,TAS
0x36e3a0…36e534 (4, 377) Dummy {f00=0x0146, f01=0x0190, f02=»DR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN ( P SUR A8,A8 NO BUFFER =3 F P ABL DMTASX f PDMT010 EQU * z P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P
0x36e534…36e6c8 Dummy {f00=0x0146, f01=0x0190, f02=» LDKL A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 > 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) P P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA &
0x36e6c8…36e85c Dummy {f00=0x0146, f01=0x0190, f02=»IT =2 P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER . P CF A14,DMTIOC I/O CHECK ` P LD A2,VLVER,A3 VERSION & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERRO
0x36e85c…36e9f0 Dummy {f00=0x0146, f01=0x018e, f02=»3 VTOC BASE . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH F P ST A9,TASVRL p P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6
0x36e9f0…36eb84 Dummy {f00=0x0146, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED 0 P ST A1,TASCVO UPDATE TASCVO Z $ P LDK A7,7 TOO MANY FILE SECTIONS ~ P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFST
0x36eb84…36ed18 Dummy {f00=0x0146, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* * P ADKL A7,'#D' 4 P LKM J P DATA -4 V P DATA DMTASS f P LKM z P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A
0x36ed18…36eeac Dummy {f00=0x0146, f01=0x0190, f02=» LD A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS : P ADKL A3,BUFSTA ^ P ST A3,ECBBA,A8 v P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x36eeac…36f040 Dummy {f00=0x0146, f01=0x0190, f02=» $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR , PDMT135 EQU * R P ADK A3,2 SKIP CYLID f PDMT120 EQU * ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4
0x36f040…36f1d4 (4, 378) Dummy {f00=0x0147, f01=0x0190, f02=»AME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 , P CWR* A10,A7 @ P ABL(NE) DMT250 NO MATCH T P SUK A2,1 t . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P
0x36f1d4…36f368 Dummy {f00=0x0147, f01=0x0190, f02=»F(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO < P LDK A2,0 FILE EXTENT NUMBER V P RF DMT167 z . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAV
0x36f368…36f4fc Dummy {f00=0x0147, f01=0x0190, f02=»1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS " P LDK A7,9 F * P ABL DMTASX MORE THAN 4 EXTENTS EXIST X PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x36f4fc…36f690 Dummy {f00=0x0147, f01=0x0190, f02=» P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 ( P LD A2,TASSEX,A1 B $ P RF(NZ) DMT250 NOT FIRST EXTENT Z P EJECT P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB
0x36f690…36f824 Dummy {f00=0x0147, f01=0x0190, f02=»A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 & P ANK A5,/01 : P RF(Z) DMT210 FREE N P LD A2,FDBEXT,A12 h P CW A2,TASVOL,A6 " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME
0x36f824…36f9b8 Dummy {f00=0x0147, f01=0x0190, f02=»DB FOUND n PDMT205 EQU * P LDK A7,5 FILE CODE USED $ P ABL DMTASX D P* X $ PDMT210 LDR* A12,A12 GET NEXT FDB b P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB
0x36f9b8…36fb4c Dummy {f00=0x0147, f01=0x0190, f02=» v P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 J P ABL DMTASX NO FDB AVAILABLE ( P* INITIALIZE FDB ZERO FROM FDB+2 P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL
0x36fb4c…36fce0 Dummy {f00=0x0147, f01=0x0190, f02=» RB DMT233 PDMT237 EQU * P LDKL A2,/8000 & P* DEV NOT BUSY < P ST A2,DWTST,A12 T P LDKL A2,TIODM l P ST A2,DWTADR,A12 P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01
0x36fce0…36fe74 (4, 379) Dummy {f00=0x0147, f01=0x0190, f02=» P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,VTBLF,A4 6 P SC A2,FDBBLF,A12 N P LC A2,VTNIF,A4 h P SC A2,FDBNIF,A12 P LD A2,VTKA,A4 P ST A2,FDBKA,A12 P LD A2,TASVRN P ST A2,FDBVTO,A12 P* P IFT M
0x36fe74…370008 Dummy {f00=0x0147, f01=0x0190, f02=» ECB IN FDB l P XIF P* P EJECT * P* 8 P* CHECK NEXT VTOC RECORD B P* d PDMT250 EQU * n P* A3 = ADR 1ST REC P* A9 = VTOC REC LGTH P ADR A3,A9 P ADK A3,1 SKIP STATUS BYTE P LDR A2,A3 P SU A2
0x370008…37019c Dummy {f00=0x0147, f01=0x0190, f02=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* @ PDMT300 EQU * J P LDK A3,16 ^ P SU A3,TASCXO p P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P RF(NZ) DMT3
0x37019c…370330 Dummy {f00=0x0147, f01=0x0190, f02=»ENDING ORDER f 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO ! P* ! P PDMT320 EQU * ! Z P* ! n @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE ! x P* ! P LD A6,TASFIL ! P RF(Z) DMT330 DATA FILE ASS ! $ P LD A6,F
0x370330…3704c4 Dummy {f00=0x0147, f01=0x0190, f02=» OK ! P LDK A7,12 " * P RF DMTASX RECORD BUFFER IS TOO SMALL " PDMT330 EQU * " L P LDR A6,A12 " ` P* FDB ADDR " t P ADKL A6,FDBEXT " P LDK A2,0 " P LDR A5,A3 " P SRL A5,2 NUMBER OF EXTENTS " PDMT340 EQU * " P LDK A4,16 "
0x3704c4…370658 Dummy {f00=0x0147, f01=0x0190, f02=»E EXTENTS TO CHECK " ~ P* # , P* THE EXTENT SEARCHED FOR IS NOT FOUND # $ 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) # T P* # P LDR A1,A2 # P ANK A1,/FF # $ P RF(NZ) DMT370 TRY NEXT SECTION # P* # PDMT355 EQU * # P LDK A7,
0x370658…3707ec Dummy {f00=0x0147, f01=0x0190, f02=» LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 $ P ST A1,EXTDMI,A6 $ 2 P LD A1,TASXLB,A4 $ J P ST A1,EXTLEN,A6 $ b P LD A1,TASXLB+2,A4 $ z P ST A1,EXTBAS,A6 $ P ADK A6,6 $ P SUK A5,1 $ & P RF(NP) DMT500 ALL EXTENTS HANDLED $ P* $ : P*
0x3707ec…370980 Dummy {f00=0x0147, f01=0x0190, f02=» A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 % PDMT370 EQU * % 4 P ECR A1,A2 % H P ANK A1,/FF % Z P SUK A1,3 % n P RB(E) DMT355 SECTION-NO = 3 % " P ADK A1,4 INCREMENT SECTION-NO % P ECR A2,A1 EXT-NO = 0 % P RB DMT340 % $ PDMT380 ADK A2,
0x370980…370b14 (4, 380) Dummy {f00=0x0147, f01=0x018e, f02=»CH WERE UNLOCKED BEFORE % j P* & P LDR A5,A7 & * P LDR A6,A8 SAVE & < P LDK A1,3 LOOP & T PDMTASY EQU * & j P LC A2,TASLFD,A1 FILE CODES & ~ P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK
0x370b14…370ca8 Dummy {f00=0x0147, f01=0x0190, f02=» & P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 4 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' > P* ' j PDMT400 EQU * ' t P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORREC
0x370ca8…370e3c Dummy {f00=0x0147, f01=0x018e, f02=»DDR ' t " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( 2 ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( D P SUK A2,2 ( p PDMT405 EQU * ( P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4
0x370e3c…370fd0 Dummy {f00=0x0147, f01=0x0190, f02=» ( ~ PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) 2 P LDKL A2,/FFFE ) T " P ANRS A2,A3 CLEAR FDB USE BIT ) j P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440
0x370fd0…371164 Dummy {f00=0x0147, f01=0x0190, f02=»UF RELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ $ P CF A15,QTJOB QUEUE CALLING TASK * N P ENB * v P LKM * P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 *
0x371164…3712f8 Dummy {f00=0x0147, f01=0x018e, f02=» EJECT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + > < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + z P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR
0x3712f8…37148c Dummy {f00=0x0147, f01=0x0190, f02=» P SC A3,TASECB+1 , " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , B P LD A3,ECBBA,A8 , f P SUKL A3,BUFSTA , ~ " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD
0x37148c…371620 Dummy {f00=0x0147, f01=0x018e, f02=»RR A2,A1 GET MOST SIGN BIT , P ADK A2,5 - " P SRL A2,1 NO OF WORDS NEEDED - 4 P RF(Z) DMT570 WRONG SIZE - X P INH - x P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY -
0x371620…3717b4 (4, 381) Dummy {f00=0x0147, f01=0x0190, f02=» - | P RB(N) DMT540 ENTRY USED . P SUR A6,A2 NO OF SPARE WORDS . ( & P RB(N) DMT540 LARGER ENTRY NEEDED . L P* . v P* SUFFICIENT SPACE FOUND . P* . P LDKL A1,/8000 USED BIT . & P ORS A1,MXIND+2,A5 MARK ENTRY USED . $ P ST A3,TASMXA MAST
0x3717b4…371948 Dummy {f00=0x0147, f01=0x0190, f02=»T A1,2,A3 ENTRY LENGTH . P ADK A3,4 SKIP MX HEADRER / P ST A3,ECBBA,A8 BUFFER ADDR / @ P ST A1,ECBRL,A8 REQ LGTH / d . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / P CWR A1,A4 MXIND ENTRY / P RF(NL) DMT590 LAST ENTRY / P LD A3,MXIND+6,A1
0x371948…371adc Dummy {f00=0x0147, f01=0x0190, f02=»NKL A2,/7FFF REMOVE USE BIT / P SUR A2,A6 0 $ P ORKL A2,/8000 USE BIT 0 6 P ST A2,MXIND+2,A1 0 T . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 n $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A
0x371adc…371c70 Dummy {f00=0x0147, f01=0x0190, f02=» 0 8 P* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE 1 < P* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON 1 D P* 1 PDMT550 EQU * 1 & P LDK A7,/42 SEQ READ,NOWAIT,NO EA 1 P LKM 1 P DATA -1 1 P DATA DMTAR5 1 P LKM 1 P
0x371c70…371e04 Dummy {f00=0x0147, f01=0x0190, f02=»NKL A2,/FEFF BIT 7 ONLY RETRIES 1 P RF(Z) DMT560 NO ERROR 2 ( P* 2 F " P* REMOVE THE ONLY CRN BUFFER 2 P P* 2 v P LD A4,TASFDB FDB ADDR 2 P LD A5,FDBCRL,A4 CRN BUF ADR 2 P RF(Z) DMT553 NO CRN 2 P CM FDBCRL,A4 2 P INH 2 P LD A6,C
0x371e04…371f98 Dummy {f00=0x0147, f01=0x018e, f02=»EADY ,WHOLIE MXINDEX IS READ 2 P LDK A7,7 3 $ PDMT555 SUR A8,A8 NO BUFFER 3 6 P ABL DMTASX DISC IO ERR 3 X PDMT560 EQU * 3 x P* 3 P* RECORD READ,READ NEXRT 3 P* 3 P LD A2,ECBRL,A8 3 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB DMT550
0x371f98…37212c Dummy {f00=0x0147, f01=0x0190, f02=» 3 P* 4 2 P* MASTER INDE X READUY. RERUN FOR INDEX FILE 4 P* 4 H P LDK A1,1 4 R P ST A1,TASFIL INDEX FILE 4 d " P LD A3,TASSPW TTAB ADR DMTASK 4 P CM TTB:TD+2,A3 DELETE ENTRY 4 P CM TTB:TD+4,A3 4 P LD A3,TASFDB FDB ADDR 4 P LDK
0x37212c…3722c0 Dummy {f00=0x0147, f01=0x0190, f02=» ENTRY POSSIBLE 4 ~ P LDK A1,0 5 2 P* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP 5 * P ABL DMT050 ASSIGN INDEX 5 ` P EJECT 5 PDMT600 EQU * 5 P* 5 P* INDEX FILE ASSIGN 5 P* 5 P LDK A7,10 RET CODE 5 & P LD A10,TASFDD FDB ADDR
0x3722c0…372454 (4, 382) Dummy {f00=0x0148, f01=0x0190, f02=» LC A3,DWTST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 , P LDK A3,8 MAX NO OF INDE*2 6 V PDMT620 EQU * 6 x P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(
0x372454…3725e8 Dummy {f00=0x0148, f01=0x0190, f02=» 6 X P* 7 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 2 P SUK A5,2 7 F " P RF(N) DMT635 ALL FDB UPPDATED 7 X P LDR A1,A10 FDB DATA 7 ~ P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF
0x3725e8…37277c Dummy {f00=0x0148, f01=0x0190, f02=»25 7 PDMT635 EQU * 8 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 6 P ENB ENB 8 j P LD A1,TASMXA 8 | ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A
0x37277c…372910 Dummy {f00=0x0148, f01=0x0190, f02=»IGN DATA FILE 8 & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 @ P ANKL A1,/6000 9 b P SLL A1,1 9 x $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P L
0x372910…372aa4 Dummy {f00=0x0148, f01=0x018e, f02=»750 9 P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : : P SUK A2,1 : T P ST A2,FDBSNR,A12 : f P LDR A1,A12 : " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR
0x372aa4…372c38 Dummy {f00=0x0148, f01=0x4154, f02=» P ST A3,FDBMRN+1,A12 ; P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; * P* ; b P LD A6,FDBRLE,A12 REC LENGTH ; l P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ;
0x372c38…372dcc Dummy {f00=0x0148, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x372dcc…372f60 Dummy {f00=0x0148, 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* =
0x372f60…3730f4 (4, 383) Opaque[0x194]
0x3730f4…373288 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2908, f03=0x0000}
0x3730f4…373288 IdxSect {
0x3730f4…373288 f00 = 0x0148 // 0x3730f4 @0x0
0x3730f4…373288 f01 = 0x0008 // 0x3730f6 @0x2
0x3730f4…373288 gno = [ // 0x3730f8 @0x4
0x3730f4…373288 [0x00]: C0x0148.0x1.0
0x3730f4…373288 [0x01]: C0x0148.0x2.0
0x3730f4…373288 [0x02]: C0x0148.0x3.0
0x3730f4…373288 [0x03]: C0x0149.0x0.0
0x3730f4…373288 ]
0x3730f4…373288 }
0x373288…37341c Dummy {f00=0x0148, f01=0x0190, f02=» 0 P IDENT DMBUF REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P
0x37341c…3735b0 Dummy {f00=0x0148, f01=0x018e, f02=»FOR DMTASK v P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* N L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL X P* P* MAX VALUE OF QNBUF IS 16 P* > P* AT LEAST TWO BUFFERS PER DISC DRIVE
0x3735b0…373744 Dummy {f00=0x0148, f01=0x018e, f02=» ( P ENTRY CURBUF CURRENT BUFFER POINTER P ENTRY BUFLNK BUFFER LINK 4 P ENTRY BUFDMI DMTASK IDENT V P ENTRY BUFFC FILE CODE x P ENTRY BUFSNR SECTOR NO P ENTRY BUFOR ORDER * P ENTRY BUFSTA DATA AREA START ADDRESS P ENTRY DMT
0x373744…3738d8 Dummy {f00=0x0148, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00004 : P* R P* PCURBUF DATA BUF1 f PNEWBUF DATA 0 ~ P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x3738d8…373a6c Dummy {f00=0x0148, f01=0x0190, f02=» LRU-WORD " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 8 P RES 205 d P* t P* ~ P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x373a6c…373c00 Dummy {f00=0x0148, f01=0x018e, f02=»NBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 " P DATA 0,0,0 8 P RES 205 L P XIF P* h P* r P IFT QNBUF=3 | PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 D
0x373c00…373d94 (4, 384) Dummy {f00=0x0148, f01=0x0190, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 , P IFF QNBUF=3 @ P IFF QNBUF=4 T PBUF5 DATA BUF6 h P DATA 0,0,0 ~ P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P*
0x373d94…373f28 Dummy {f00=0x0148, f01=0x018e, f02=»0 P RES 205 P XIF P* & P* 0 P IFT QNBUF=6 : PBUF7 EQU BUF1 N P XIF d P* p P* z P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 PBUF7 DATA BU
0x373f28…3740bc Dummy {f00=0x0148, f01=0x018e, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N P IFF QNBUF=5 b P IFF QNBUF=6 v P IFF QNBUF=7 PBUF8 DATA BUF9 P DATA 0,0,0 P RES 205 P XIF P* P* P IFT QNBUF=8
0x3740bc…374250 Dummy {f00=0x0148, f01=0x0190, f02=» P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 , P IFF QNBUF=8 @ PBUF9 DATA BUF10 T P DATA 0,0,0 l P RES 205 P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1
0x374250…3743e4 Dummy {f00=0x0148, f01=0x0190, f02=»=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 6 P RES 205 J P XIF Z P IFT QNBUF=10 f PBUF11 EQU BUF1 | P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF Q
0x3743e4…374578 Dummy {f00=0x0148, f01=0x0190, f02=» P DATA 0,0,0 P RES 205 P XIF ( P IFT QNBUF=11 4 PBUF12 EQU BUF1 J P XIF ` P* l P* v P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7
0x374578…37470c Dummy {f00=0x0148, f01=0x018e, f02=» 205 P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 . P XIF D P* P P* Z P IFF QNBUF=1 d P IFF QNBUF=2 x P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF
0x37470c…3748a0 Dummy {f00=0x0148, f01=0x0190, f02=» P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 * P XIF @ P* L P* V P IFF QNBUF=1 ` P IFF QNBUF=2 t P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNB
0x3748a0…374a34 (4, 385) Dummy {f00=0x0148, f01=0x018e, f02=» P RES 205 P XIF P IFT QNBUF=14 $ PBUF15 EQU BUF1 : P XIF P P* P* f P IFF QNBUF=1 p P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8
0x374a34…374bc8 Dummy {f00=0x0148, f01=0x0190, f02=» PBUF15 DATA BUF16 P DATA 0,0,0 P RES 205 0 P XIF @ P IFT QNBUF=15 L PBUF16 EQU BUF1 b P XIF x P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6
0x374bc8…374d5c Dummy {f00=0x0148, f01=0x0190, f02=»FF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15 * PBUF16 DATA BUF1 @ P DATA 0,0,0 X P RES 205 l P XIF | P EJECT P* P************** P* DMTGBU * P************** P* * P* ENTRY DMTGBU GET A D
0x374d5c…374ef0 Dummy {f00=0x0148, f01=0x0190, f02=»ER t P* $ P* OUTPUT A3 = BUFFER ADDRESS J P* SKIP RETURN (+2) IF SECTOR MUST BE READ INTO BUFFER AT A3 < , P* A5 AND A7 WILL BE DESTROYED P* 8 P* CURBUF, BUFDMI, -FC AND -SNR WILL BE SET < P*
0x374ef0…375084 Dummy {f00=0x0148, f01=0x0190, f02=»* SEARCHED FOR IS ALREADY PRESENT IN ANY FREE BUFFER. F P* IF THIS SECTOR IS NOT FOUND A FREE SECTOR MUS BE FOUND AND IN @ P* P* P* PDMTGBU EQU * P INH INH P* 4 P* CHECK IF THIS SECTOR IS FOUND IN ANY BUFFER
0x375084…375218 Dummy {f00=0x0148, f01=0x0190, f02=») DMT020 WRONG VOLUME P CW A2,BUFSNR,A3 P RF(E) DMT050 SAME SECTOR NO 6 PDMT020 EQU * Z P LDK A7,/01 n & P AN A7,BUFLNK,A3 STATUS IN BIT 15 P RF(NZ) DMT041 USED P IM BUFOR,A3 MAKE OLDER P RF(P) DMT030 P LDK A7,/F
0x375218…3753ac Dummy {f00=0x0148, f01=0x0190, f02=»T A3,NEWBUF PDMT041 EQU * P CW A3,CURBUF ( * P RB(NE) DMT010 MORE BUFFERS TO SERARCH > P LDR A5,A5 l P RF(NZ) DMT043 BUFFER FOUND ~ P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PDMT043 LD A3,NEWBUF P*
0x3753ac…375540 Dummy {f00=0x0148, f01=0x0190, f02=» t " P ST A2,BUFSNR,A3 SECTOR NUMBER PDMT050 EQU * . " P CM BUFOR,A3 RESET OLD-COUNTER B P ST A3,CURBUF h P LDK A7,/01 ~ ( P ORRS A7,A3 SET STATUS USED BIT 15 P ENB ENB P RTN A14 P EJECT P* P**************
0x375540…3756d4 (4, 386) Dummy {f00=0x0149, f01=0x0190, f02=» BUFFER ADDRESS P* A2 IS DESTROYED P* < P* F PDMTRBU EQU * P P LDKL A2,/FFFE d P ANRS A2,A3 SET OFF BIT 15 z P RTN A14 P* P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x3756d4…375868 Dummy {f00=0x0149, f01=0x40b4, f02=» P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE 8 PDMT750 CW A3,CURBUF T P RB(NE) DMT700 MORE BUFFERS p P RTN A14 P END @ P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x375868…3759fc Dummy {f00=0x0149, f01=0x2008, f02=» P* DMTRBU * P************** " P* 8 . P* ENTRY DMTRBU RELEASE A DISC BUFFER B P* t $ P* INPUT A3 = BUFFER ADDRESS ~ P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2,/FFFE P
0x3759fc…375b90 Dummy {f00=0x0149, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x375b90…375d24 Dummy {f00=0x0149, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x375d24…375eb8 Dummy {f00=0x0149, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x375eb8…37604c Dummy {f00=0x0149, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x37604c…3761e0 Dummy {f00=0x0149, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x3761e0…376374 (4, 387) Opaque[0x194]
0x376374…376508 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2928, f03=0x0000}
0x376374…376508 IdxSect {
0x376374…376508 f00 = 0x0149 // 0x376374 @0x0
0x376374…376508 f01 = 0x0004 // 0x376376 @0x2
0x376374…376508 gno = [ // 0x376378 @0x4
0x376374…376508 [0x00]: C0x0149.0x1.0
0x376374…376508 [0x01]: C0x0149.0x2.0
0x376374…376508 ]
0x376374…376508 }
0x376508…37669c Dummy {f00=0x0149, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x37669c…376830 Dummy {f00=0x0149, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x376830…3769c4 Dummy {f00=0x0149, f01=0x0190, f02=»REA r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 2 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS < 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER | P* PX:B EQU 50 " PCRNBAR EQU 00360 CURRENCY AREA P* P*
0x3769c4…376b58 Dummy {f00=0x0149, f01=0x0190, f02=» P* PQFDBAR EQU 00684 P* & PX:D EQU 96 0 ( PQFDBFL EQU 00114 FDB FIX PART LENGTH B P* n P EJECT x P* PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNE
0x376b58…376cec Dummy {f00=0x0149, f01=0x410a, f02=» IFF MXSIZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 B P XIF p PMXINDE EQU * END INDEX INDEX | 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @
0x376cec…376e80 Dummy {f00=0x0149, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x376e80…377014 (4, 388) Dummy {f00=0x0149, f01=0x0190, f02=»MAX 4 WORDS | PDMT150 EQU * P LDR* A10,A4 ( P CWR* A10,A7 < P ABL(NE) DMT250 NO MATCH P P SUK A2,1 p . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P*
0x377014…3771a8 Dummy {f00=0x0149, f01=0x0190, f02=» DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO 8 P LDK A2,0 FILE EXTENT NUMBER R P RF DMT167 v . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN
0x3771a8…37733c Dummy {f00=0x0149, f01=0x0190, f02=» P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS P LDK A7,9 B * P ABL DMTASX MORE THAN 4 EXTENTS EXIST T PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x37733c…3774d0 Dummy {f00=0x0149, f01=0x0190, f02=» LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 $ P LD A2,TASSEX,A1 > $ P RF(NZ) DMT250 NOT FIRST EXTENT V P EJECT ~ P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB *
0x3774d0…377664 Dummy {f00=0x0149, f01=0x0190, f02=»FDBSTA PDMT200 EQU * P LDR* A5,A12 " P ANK A5,/01 6 P RF(Z) DMT210 FREE J P LD A2,FDBEXT,A12 d P CW A2,TASVOL,A6 ~ " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC
0x377664…3777f8 Dummy {f00=0x0149, f01=0x0190, f02=»OUND j PDMT205 EQU * P LDK A7,5 FILE CODE USED P ABL DMTASX @ P* T $ PDMT210 LDR* A12,A12 GET NEXT FDB ^ P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P
0x3777f8…37798c Dummy {f00=0x0149, f01=0x0190, f02=» P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 F P ABL DMTASX NO FDB AVAILABLE X ( P* INITIALIZE FDB ZERO FROM FDB+2 | P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL P
0x37798c…377b20 Dummy {f00=0x0149, f01=0x0190, f02=»DMT233 PDMT237 EQU * P LDKL A2,/8000 " P* DEV NOT BUSY 8 P ST A2,DWTST,A12 P P LDKL A2,TIODM h P ST A2,DWTADR,A12 ~ P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 P
0x377b20…377cb4 (4, 389) Opaque[0x194]
0x377cb4…377e48 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2938, f03=0x0000}
0x377cb4…377e48 IdxSect {
0x377cb4…377e48 f00 = 0x0149 // 0x377cb4 @0x0
0x377cb4…377e48 f01 = 0x0002 // 0x377cb6 @0x2
0x377cb4…377e48 gno = [ // 0x377cb8 @0x4
0x377cb4…377e48 [0x00]: C0x0149.0x3.0
0x377cb4…377e48 ]
0x377cb4…377e48 }
0x377e48…377fdc Dummy {f00=0x0149, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x377fdc…378170 Dummy {f00=0x0149, f01=0x40ce, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F8F9,/FAFB PDFTABE EQU * P END @ DISC FILE CODE TABLE P* P* P* LEVE
0x378170…378304 Dummy {f00=0x0149, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P*
0x378304…378498 Dummy {f00=0x0149, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x378498…37862c Dummy {f00=0x0149, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x37862c…3787c0 Dummy {f00=0x0149, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x3787c0…378954 (4, 390) Opaque[0x194]
0x378954…378ae8 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2940, f03=0x0000}
0x378954…378ae8 IdxSect {
0x378954…378ae8 f00 = 0x014a // 0x378954 @0x0
0x378954…378ae8 f01 = 0x000c // 0x378956 @0x2
0x378954…378ae8 gno = [ // 0x378958 @0x4
0x378954…378ae8 [0x00]: C0x014a.0x0.0
0x378954…378ae8 [0x01]: C0x014a.0x1.0
0x378954…378ae8 [0x02]: C0x014a.0x2.0
0x378954…378ae8 [0x03]: C0x014a.0x3.0
0x378954…378ae8 [0x04]: C0x014b.0x0.0
0x378954…378ae8 [0x05]: C0x014b.0x1.0
0x378954…378ae8 ]
0x378954…378ae8 }
0x378ae8…378c7c Dummy {f00=0x014a, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* P*
0x378c7c…378e10 Dummy {f00=0x014a, f01=0x0190, f02=»ROM :***************** r P* P* DMTASK ( P* : P*************** D P* ENTRIES * P*************** t P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR P ENTRY FNDKEY P ENTRY CRNUPD P* P**********
0x378e10…378fa4 Dummy {f00=0x014a, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x378fa4…379138 Dummy {f00=0x014a, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x379138…3792cc Dummy {f00=0x014a, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x3792cc…379460 Dummy {f00=0x014a, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x379460…3795f4 (4, 391) Dummy {f00=0x014a, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x3795f4…379788 Dummy {f00=0x014a, f01=0x0190, f02=» v . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL P* : P* SEARCHED KEY GREATER D P* d P LDR A10,A10 M n P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CEIL) PFND030 EQU * P LDR A10,A7 M=M/2 FLOOR P RB FND020
0x379788…37991c Dummy {f00=0x014a, f01=0x0190, f02=»D045 EQU * NO MASTER INDEX P LDK A1,0 " P LDK A2,1 REC NR 1 4 P RF FND070 N PFND050 EQU * ` P ADR* A1,A5 ARDR NEXT ENTRY t PFND060 EQU * P LDR A3,A1 ENTRY ADR P SUK A3,3 P ADR* A3,A5 ADR REC NO P* P* MO
0x37991c…379ab0 Dummy {f00=0x014a, f01=0x0190, f02=»2,A2 P LCR A2,A3 PFND070 EQU * P RTN A14 2 P EJECT B 8 P****DESCRIPTION************************************* P P* D P* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE P* TERMINATED WITH A /EE. P* 8
0x379ab0…379c44 Dummy {f00=0x014a, f01=0x0190, f02=» * P* A6 = MAX NO OF CAHARACTERS IN KEY 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY 2 P* h P* CF A14,CHKKEY r P* 8 P****EXIT PARAMETERS********************************* P* : P* A3 = 0 WHEN SEARCED KEY IS CONTAINED I
0x379c44…379dd8 Dummy {f00=0x014a, f01=0x0190, f02=»CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY x " P* A6 = MAX NO OF CHAR IN KEY : P* ` 8 P****USED REGISTERS********************************** j P* P* A2-A4,A6-A7 < P******************************************************** P
0x379dd8…379f6c Dummy {f00=0x014a, f01=0x0190, f02=»CR A4,A3 SEARCED KEY CHAR P CCK A4,/EE00 " " P RF(E) CHK060 END OF KEY CHAR 8 P CCR A4,A2 SC=EC? ^ P RF(G) CHK100 SC GT TH EC x " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL)
0x379f6c…37a100 Dummy {f00=0x014a, f01=0x0190, f02=» LDK A3,0 FOUND P RF CHK140 PCHK120 EQU * * $ P LDKL A3,-1 SEARCHED KEY SMALLER > P RF CHK140 f PCHK100 EQU * x $ P LDK A3,1 SEARCHED KEY SGREATER PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*******************
0x37a100…37a294 (4, 392) Dummy {f00=0x014a, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x37a294…37a428 Dummy {f00=0x014a, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x37a428…37a5bc Dummy {f00=0x014a, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x37a5bc…37a750 Dummy {f00=0x014a, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x37a750…37a8e4 Dummy {f00=0x014a, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x37a8e4…37aa78 Dummy {f00=0x014a, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x37aa78…37ac0c Dummy {f00=0x014a, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x37ac0c…37ada0 Dummy {f00=0x014a, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x37ada0…37af34 (4, 393) Dummy {f00=0x014a, f01=0x0190, f02=» NO v P LDR A1,A2 P LDR A2,A3 P LDK A6,0 0 P LDK A7,1 B P CF A14,ADDMOD NEXT REC NO T P LDR A6,A5 RESTORE FDB ADDR v * P CF A14,CALSNO GET NEXT REC ADDR PHYS P LDR A8,A13 $ P LDR A1,A1 CHECK EN D OF MEDIUM P RF(
0x37af34…37b0c8 Dummy {f00=0x014a, f01=0x0190, f02=» x " P CF A14,DMTRBU RELEASE BUFFER P LDR A1,A6 FDB ADDR . P RB RDN040 NEXT SECTOR J P* h P* EXIT r P* PRDN900 EQU * P LDR A5,A1 RET CODE P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO
0x37b0c8…37b25c Dummy {f00=0x014a, f01=0x0190, f02=»ER ADDR PRDN940 EQU * P LD A6,2,A14 $ P ADKL A14,4 8 P LDR* A7,A14 L PRDN950 EQU * ` P RTN A14 t P EJECT 8 P****DESCRIPTION************************************* P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD
0x37b25c…37b3f0 Dummy {f00=0x014a, f01=0x0190, f02=»ENTRY PARAMETERS******************************** P* 8 P* A1 = FDB ADDRESS B P* A8 = SEARCH KEY ADDR ^ & P* A11 = NO OF CHARACTERS IN KEY ~ " P* A13= PHYSICAL ECB ADDRESS P* 8 P****EXIT PARAMETERS*****************************
0x37b3f0…37b584 Dummy {f00=0x014a, f01=0x0190, f02=» 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND . P* = RETURN CODE WHEN KEY IS NOT FOUND : 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER l P* A3 = BUFFER ADDRESS & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARAC
0x37b584…37b718 Dummy {f00=0x014a, f01=0x0190, f02=»**** ` P* , P* A1 - A11,A13 + 4 WORDS ON A14 STACK P* F : P****************************************************** P P EJECT PFNDKEY EQU * P* & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF M
0x37b718…37b8ac Dummy {f00=0x014a, f01=0x0190, f02=» GET KEY ENTRY IN MASTER INDEX P LD A6,8,A14 FDB ADDR & P CF A14,CALSNO GET PHYS ADDR D P LDR A1,A1 h P RF(NZ) FKY900 ERROR z P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9
0x37b8ac…37ba40 Dummy {f00=0x014a, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x37ba40…37bbd4 (4, 394) Dummy {f00=0x014b, f01=0x0190, f02=» P RF(E) FKY200 USED RECORD P* & & P* NO MORE RECORDS IN THIS SECTOR 0 P* Z * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET d P LD A4,FDBMRO,A1 & P ST A4,FDBRRO,A1 LAST REC IN SECT P* P* *CHECK IF EOF P* P LDR
0x37bbd4…37bd68 Dummy {f00=0x014b, f01=0x0190, f02=»N,A1 P RB(L) FKY100 NOT EOF P RF(G) FKY180 EOF * P CW A3,FDBLRN+1,A1 D P RB(L) FKY100 NOT EOF ^ PFKY180 EQU * | P* P* EOF IS IN THIS SECTOR P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR
0x37bd68…37befc Dummy {f00=0x014b, f01=0x0190, f02=» P LD A3,6,A14 SEARCH KEY ADDR P CF A14,CHKKEY COMPARE KEYS , P LDR A3,A3 P & P RF(P) FKY840 SEARCHED KEY GREATER b " P RF(N) FKY850 SEARCH KEY LESS P RF FKY870 KEY FOUNFD PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P
0x37befc…37c090 Dummy {f00=0x014b, f01=0x0190, f02=» THAT HAS BEEN CHECKED FOR THIS KEY . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! 0 P RB FKY100 NEXT KEY ! b PFKY850 EQU * ! ~ P LDKL A2,/4000 KEY NOT FOUND ! P RF FKY950 ! PFKY870 EQU * ! P LDK A2,0 KEY FOUND ! P RF FKY950 !
0x37c090…37c224 Dummy {f00=0x014b, f01=0x0190, f02=» P ADKL A14,8 RESTORE STACK " P LDR* A1,A14 FDB ADDR " & P LDR A3,A9 BUFFER ADDR " D P RTN A14 " b P EJECT " r P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX " P* RECORDS ARE UPDATED " P* " P* IN
0x37c224…37c3b8 Dummy {f00=0x014b, f01=0x0190, f02=»2 = ADD PARAMETER +1, -1 " P* # $ P* USED REGISTERS: # . P* A1 -A12 # J P* # ^ P* OUT: # h P* A5 = FDB ADDR INDEX # x P* A10,A11 = UNCHANGED # P* # PCRNUPD EQU * # P STR A12,A14 # P SUKL A14,2 # $ P LD A12,FD
0x37c3b8…37c54c Dummy {f00=0x014b, f01=0x0190, f02=»F(Z) CRU900 END OF LINK # P LC A7,FDBECB+1,A5 FILE CODE $ P CC A7,CRNCIF,A12 $ D P RB(NE) CRU100 WRONG FC $ ^ P CC A10,CRNCIF+1,A12 $ ~ P RB(G) CRU100 $ P RF(L) CRU200 $ P CW A11,CRNCIF+2,A12 $ P RB(G) CRU100 $ PCRU200 EQU * $
0x37c54c…37c6e0 Dummy {f00=0x014b, f01=0x018e, f02=» * $ P* % P* UPDATE CRN % P* % * P LD A7,2,A14 ADD PARAM % 4 P LDR A6,A7 % R P RF(N) CRU230 -1 % d P LDK A6,0 % | PCRU230 EQU * % P ANKL A7,/7FFF % P LDK A1,0 % P LC A1,CRNCIF+1,A12 % P LD A2,CRNCIF+2,A12 % P CF A1
0x37c6e0…37c874 (4, 395) Dummy {f00=0x014b, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x37c874…37ca08 Dummy {f00=0x014b, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x37ca08…37cb9c Dummy {f00=0x014b, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x37cb9c…37cd30 Dummy {f00=0x014b, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x37cd30…37cec4 Dummy {f00=0x014b, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x37cec4…37d058 Dummy {f00=0x014b, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x37d058…37d1ec Dummy {f00=0x014b, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x37d1ec…37d380 Dummy {f00=0x014b, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x37d380…37d514 (4, 396) Opaque[0x194]
0x37d514…37d6a8 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2970, f03=0x0000}
0x37d514…37d6a8 IdxSect {
0x37d514…37d6a8 f00 = 0x014b // 0x37d514 @0x0
0x37d514…37d6a8 f01 = 0x0004 // 0x37d516 @0x2
0x37d514…37d6a8 gno = [ // 0x37d518 @0x4
0x37d514…37d6a8 [0x00]: C0x014b.0x2.0
0x37d514…37d6a8 [0x01]: C0x014b.0x3.0
0x37d514…37d6a8 ]
0x37d514…37d6a8 }
0x37d6a8…37d83c Dummy {f00=0x014b, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x37d83c…37d9d0 Dummy {f00=0x014b, f01=0x0190, f02=»CTION ON THE ALPHA ^ P* COMPUTER P*CALLING SEQUENCE: , $ P* A1-A2 = ARG1 F $ P* AG-A7 = ARG2 n P* CF A14,ADDMOD & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 A
0x37d9d0…37db64 Dummy {f00=0x014b, f01=0x0190, f02=»NDITIONAL ASSEMBLY P* . P***************************************** $ P* V 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PADDMOD
0x37db64…37dcf8 Dummy {f00=0x014b, f01=0x0190, f02=».L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 8 P RF(3) OVER1 X 0 PNOVER ADR A1,A6 * NO OVERFLOW x P RF(1) END1 P RF(2) END2 P RF(3) END3 PNO
0x37dcf8…37de8c Dummy {f00=0x014b, f01=0x018e, f02=» A1,1 P RF(3) OVER3 P RB(7) NOVER 0 POVER3 ADR A1,A6 P P RF(2) END3 p P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 P XIF =1 P IFT CPU852=
0x37de8c…37e020 Dummy {f00=0x014b, f01=0x4184, f02=» t PEND2 ADK A3,/80 PEND1 ADK A3,/80 * B PEND0 SLL A3,1 ********************************** L P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S
0x37e020…37e1b4 (4, 397) Dummy {f00=0x014b, f01=0x2008, f02=» ANK.L A3,/0300 P LDK.L A4,/FCFF * P AN.S A4,2,A14 L B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM n P RTN A14 P END @ D1 P RB(7) NO
0x37e1b4…37e348 Dummy {f00=0x014b, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x37e348…37e4dc Dummy {f00=0x014b, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x37e4dc…37e670 Dummy {f00=0x014b, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x37e670…37e804 Dummy {f00=0x014b, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x37e804…37e998 Dummy {f00=0x014b, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x37e998…37eb2c Dummy {f00=0x014b, f01=0x2008, f02=» ,
0x37eb2c…37ecc0 Dummy {f00=0x014b, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x37ecc0…37ee54 (4, 398) Opaque[0x194]
0x37ee54…37efe8 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2980, f03=0x0000}
0x37ee54…37efe8 IdxSect {
0x37ee54…37efe8 f00 = 0x014c // 0x37ee54 @0x0
0x37ee54…37efe8 f01 = 0x0004 // 0x37ee56 @0x2
0x37ee54…37efe8 gno = [ // 0x37ee58 @0x4
0x37ee54…37efe8 [0x00]: C0x014c.0x0.0
0x37ee54…37efe8 [0x01]: C0x014c.0x1.0
0x37ee54…37efe8 ]
0x37ee54…37efe8 }
0x37efe8…37f17c Dummy {f00=0x014c, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x37f17c…37f310 Dummy {f00=0x014c, f01=0x0190, f02=»STRUCTION ON THE ALPHA ^ P*COMPUTER P*CALLING SEQUENCE 0 $ P* A1-A2 = ARG1 J $ P* A6-A7 = ARG2 r P* CF A14,DSUMOD & P*RETURN: RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A
0x37f310…37f4a4 Dummy {f00=0x014c, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PDS
0x37f4a4…37f638 Dummy {f00=0x014c, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' 8 P ANK.L A2,/7FFF P ADK A7,1 ~ P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P RF(7)
0x37f638…37f7cc Dummy {f00=0x014c, f01=0x0190, f02=» z P RF(2) END2 P RF(3) END3 & P ADK A2,0 D P RF(0) END0 b P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P
0x37f7cc…37f960 Dummy {f00=0x014c, f01=0x0190, f02=»VER2 | P XIF =1 P IFT CPU852=0 6813 =1 P RF(0) END0 =1 < P RF(1) END1 =1 T P RF(2) END2 =1 l P XIF =1 PEND3 ADK A3,/80 PEND2 ADK A3,/80 PEND1 ADK A3,/80 F PEND0 SLL
0x37f960…37faf4 (4, 399) Dummy {f00=0x014c, f01=0x40a8, f02=» AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P* =1 b P RTN A14 r P END @
0x37faf4…37fc88 Dummy {f00=0x014c, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P A
0x37fc88…37fe1c Dummy {f00=0x014c, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x37fe1c…37ffb0 Dummy {f00=0x014c, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x37ffb0…380144 Dummy {f00=0x014c, f01=0x0190, f02=»A r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 0 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS : 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER z P* PX:B EQU 50 PCRNBAR EQU X:B CURRENCY AREA P* P* PX:
0x380144…3802d8 Dummy {f00=0x014c, f01=0x0190, f02=»* PQFDBAR EQU X:A P* PX:D EQU 96 * & PQFDBFL EQU X:D FDB FIX PART LENGTH < P* f P EJECT p P* ~ PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU *
0x3802d8…38046c Dummy {f00=0x014c, f01=0x4102, f02=»IZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : P XIF h PMXINDE EQU * END INDEX INDEX t 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @ EQU *
0x38046c…380600 Dummy {f00=0x014c, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x380600…380794 (4, 400) Opaque[0x194]
0x380794…380928 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2990, f03=0x0000}
0x380794…380928 IdxSect {
0x380794…380928 f00 = 0x014c // 0x380794 @0x0
0x380794…380928 f01 = 0x0004 // 0x380796 @0x2
0x380794…380928 gno = [ // 0x380798 @0x4
0x380794…380928 [0x00]: C0x014c.0x2.0
0x380794…380928 [0x01]: C0x014c.0x3.0
0x380794…380928 ]
0x380794…380928 }
0x380928…380abc Dummy {f00=0x014c, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITIONS B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x380abc…380c50 Dummy {f00=0x014c, f01=0x0190, f02=»N THE ALPLA COMPUTER ^ P* CALLING SEQUENCE: ( P* LD A6,ARG1 8 ( P* LD A7,ARG1 d P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2 0 P* REGISTERS A3,A4,A6,A7, ARE CRU
0x380c50…380de4 Dummy {f00=0x014c, f01=0x0190, f02=»L ASSEMBLY P* . P***************************************** P* N 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION X . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PMPYMOD EQU *
0x380de4…380f78 Dummy {f00=0x014c, f01=0x0190, f02=»A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT ~ P CWR A3,A6 8 P RF(4) SUITE X P CWR A3,A7 x P RF(0) END3 < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR
0x380f78…38110c Dummy {f00=0x014c, f01=0x0190, f02=»A3,0 ~ P LDK A4,15 P ADK A6,0 , P RF(0) END0 J P RF(6) ARG1PS h 0 P ADK A3,1 *ARG1 NEGATIVE P C1R A6,A6 P ADK A6,1 PARG1PS ADK
0x38110c…3812a0 Dummy {f00=0x014c, f01=0x0190, f02=» C1R A7,A7 P ADK A7,1 P RF(3) CASSPE 8 PARG2PS SRC A7,1 X P RF(6) NOVER1 v P ADR A1,A6 PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVE
0x3812a0…381434 (4, 401) Dummy {f00=0x014c, f01=0x0190, f02=» 4 PNOVER3 ADK A3,0 *END* RESTORE SI=N P RF(0) END1 < P C1R A1,A1 Z P C1R A2,A2 z P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN T
0x381434…3815c8 Dummy {f00=0x014c, f01=0x0190, f02=»A1,1 ~ PNOVER4 ANK.L A2,/7FFF P RF(7) END2 . P XIF =1 L P IFT CPU852=0 6813 =1 ^ P RF(0) END0 =1 | P RF(1) END1 =1 P RF(2) END2 =1 P XIF =1 PEND3 ADK A3,/81 PEND2 ADK
0x3815c8…38175c Dummy {f00=0x014c, f01=0x4168, f02=» v P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM * P* =1 p P RTN A14 P IFT CPU852=1 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P*
0x38175c…3818f0 Dummy {f00=0x014c, f01=0x2008, f02=» 4 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P* *AND A1= A6 P P RB(7) NOVER3 P END @
0x3818f0…381a84 Dummy {f00=0x014c, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x381a84…381c18 Dummy {f00=0x014c, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x381c18…381dac Dummy {f00=0x014c, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x381dac…381f40 Dummy {f00=0x014c, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x381f40…3820d4 (4, 402) Opaque[0x194]
0x3820d4…382268 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29a0, f03=0x0000}
0x3820d4…382268 IdxSect {
0x3820d4…382268 f00 = 0x014d // 0x3820d4 @0x0
0x3820d4…382268 f01 = 0x0004 // 0x3820d6 @0x2
0x3820d4…382268 gno = [ // 0x3820d8 @0x4
0x3820d4…382268 [0x00]: C0x014d.0x0.0
0x3820d4…382268 [0x01]: C0x014d.0x1.0
0x3820d4…382268 ]
0x3820d4…382268 }
0x382268…3823fc Dummy {f00=0x014d, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 9.2 79-11-16 870105040920 P : P* =1 RET COND B P* Z 8 P**************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x3823fc…382590 Dummy {f00=0x014d, f01=0x018e, f02=»A COMPUTER V P* CALLING SEQUENCE & P* A1-A2= DIVIDEND , $ P* A6 = DIVISOR V P* CF A14,DIVMOD ~ B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT 6 P* CAUTION : REGISTERS A3,A4,A6,A
0x382590…382724 Dummy {f00=0x014d, f01=0x0190, f02=» P* CONDITIONAL ASSEMBLY P* " . P***************************************** , P* ^ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT
0x382724…3828b8 Dummy {f00=0x014d, f01=0x0190, f02=»,A1 SAVE DIVIDEND SIGN | P* =1 $ P ADK A6,0 4 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW R P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0)
0x3828b8…382a4c Dummy {f00=0x014d, f01=0x018e, f02=» P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND $ P RF(6) DIVENP 8 P ADK A3,1 * DIVIDEND IS NEGATIVE | P C1R A1,A1 P C1R A2,A2 P ANK.L
0x382a4c…382be0 Dummy {f00=0x014d, f01=0x018e, f02=» x 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP > 4 P SUK A3,1 *NEGATIVE DIVISOR ^ P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RESET IF OVER
0x382be0…382d74 (4, 403) Dummy {f00=0x014d, f01=0x0190, f02=» 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END : P SLL A1,1 X P SLL A7,1 v P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK A1,0
0x382d74…382f08 Dummy {f00=0x014d, f01=0x0190, f02=» ADK A7,1 P RB(7) SHIFT 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS : PEND LDR A2,A7 r P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR +
0x382f08…38309c Dummy {f00=0x014d, f01=0x018e, f02=» ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) ` P ADK A2,0 P XIF =1 P IFT CPU852=0 6813 =1 P RF(1) END1 =1 P
0x38309c…383230 Dummy {f00=0x014d, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x383230…3833c4 Dummy {f00=0x014d, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x3833c4…383558 Dummy {f00=0x014d, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x383558…3836ec Dummy {f00=0x014d, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x3836ec…383880 Dummy {f00=0x014d, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x383880…383a14 (4, 404) Opaque[0x194]
0x383a14…383ba8 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29b0, f03=0x0000}
0x383a14…383ba8 IdxSect {
0x383a14…383ba8 f00 = 0x014d // 0x383a14 @0x0
0x383a14…383ba8 f01 = 0x0012 // 0x383a16 @0x2
0x383a14…383ba8 gno = [ // 0x383a18 @0x4
0x383a14…383ba8 [0x00]: C0x014d.0x2.0
0x383a14…383ba8 [0x01]: C0x014d.0x3.0
0x383a14…383ba8 [0x02]: C0x014e.0x0.0
0x383a14…383ba8 [0x03]: C0x014e.0x1.0
0x383a14…383ba8 [0x04]: C0x014e.0x2.0
0x383a14…383ba8 [0x05]: C0x014e.0x3.0
0x383a14…383ba8 [0x06]: C0x014f.0x0.0
0x383a14…383ba8 [0x07]: C0x014f.0x1.0
0x383a14…383ba8 [0x08]: C0x014f.0x2.0
0x383a14…383ba8 ]
0x383a14…383ba8 }
0x383ba8…383d3c Dummy {f00=0x014d, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 9.2 79-11-16 870105040920 P : P =1 CLEAR ECB B P REL 9.1 79-04-06 Z P* v 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DMSUBR = COM
0x383d3c…383ed0 Dummy {f00=0x014d, f01=0x0190, f02=» 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* D P* DMTASK,TIODM,DMTASS N P* n P*************** x P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET P ENTRY CAL
0x383ed0…384064 Dummy {f00=0x014d, f01=0x0190, f02=»USER TO SYSTEM AREA x 0 P ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA P* P P***************** Z P* EXTERNALS * t P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO P EXTRN FDBCEX,FDBBLF
0x384064…3841f8 Dummy {f00=0x014d, f01=0x0190, f02=»D | P EXTRN DWTTDM,DWTTQ P EXTRN QTJOB & P EXTRN ECBRL,SECTLE : P EXTRN DIVMOD,MPYMOD V P EXTRN EXTELE r P EXTRN CRNTID P EXTRN DMTGBU P EXTRN EXTLEN,EXTBAS P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P
0x3841f8…38438c Dummy {f00=0x014d, f01=0x0190, f02=»UTINE t P EJECT DMSUBR TOSSIO P* . P* 8 . P***************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x38438c…384520 Dummy {f00=0x014d, f01=0x0190, f02=»CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT 2 P* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR 4 ( P* DX,IX,XR,XN, DATA FILE OTHERWISE j P* PCHKIND EQU * P STR A1,A15 P STR A2,A15 " P LDK A2,1 INDEX FOR DATA FILE P LDR A
0x384520…3846b4 (4, 405) Dummy {f00=0x014d, f01=0x0190, f02=»AD x P ANK A1,/3E REMOVE BIT 15 P SUK A1,/1E , 4 P RF(E) FND320 INSERT INDEX OR INDEXED READ NEXT @ P RF FND340 x ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * P CCR A2,A6 INDEX P RF(E) FND390 ENTRY FOUND P LDK
0x3846b4…384848 Dummy {f00=0x014d, f01=0x0190, f02=»ED IN TENDIO TO RESET REQUEST BUSY BIT P* FOR ALL FILES . " P* AND TO RESOLVE ALL QUEUES H P* n PREQEND EQU * x P LC A2,TTB:ID,A5 GET TASK ID P CCK A2,'##' ( P RF(E) TEN117 JUMP IF DMTASK CALLING P* , P* RESET REQU
0x384848…3849dc Dummy {f00=0x014d, f01=0x0190, f02=»QU * P SUK A2,2 P RF(N) TEN115 NO MORE FILES P LDR A3,A6 B P ADR A3,A2 T P LD A3,FDBADF,A3 FDB ADDR f P RB(Z) TEN112 P CWR A3,A6 DWT ADDR P RF(E) TEN114 MASTER DWT P LD A5,DWTTQ,A3 P RF(Z) TEN113 NO QUEUE
0x3849dc…384b70 Dummy {f00=0x014d, f01=0x0190, f02=»TEN114 EQU * $ P LDKL A4,/BFFF REQUEST BUSY BIT P ANS A4,DWTST,A3 RESET < P LDKL A4,/8000 Z $ P ORS A4,DWTST,A3 DEVICE NOT BUSY r P RB TEN112 PTEN115 EQU * P LDR* A4,A15 RESTORE A4 P* PTEN117 EQU * P ABL IHRTN
0x384b70…384d04 Dummy {f00=0x014d, f01=0x0190, f02=» FOR A LOG RECORD NO. n P* 8 P****ENTRY PARAMETERS******************************** ( P* d P* A1 = FDB ADRESS n P* A2,A3 = LOG RECORD NO P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS*************************
0x384d04…384e98 Dummy {f00=0x014d, f01=0x018e, f02=»* = -1 EA FOUND FO R OTHER TASK P* . 8 P****USED REGISTERS********************************** 8 P* t P* A1 - A4 ~ P EJECT DMSUBR PEATEST EQU * " P LD A4,FDBEAL,A1 BUFFER QUEUE P RF EAT030 PEAT020 EQU *
0x384e98…38502c Dummy {f00=0x014d, f01=0x018e, f02=» P* P CC A2,3,A4 FIRST CHAR P RB(NE) EAT020 , P CW A3,4,A4 2 AND 3 CHAR B P RB(NE) EAT020 b P* x P* RECORD NO FOUND P* P LC A4,2,A4 P CC A4,FDBTNR,A1 TASK ID P RF(E) EAT060 P LDKL A4,-1 EA OTHER T
0x38502c…3851c0 Dummy {f00=0x014d, f01=0x0190, f02=» ~ 8 P****DESCRIPTION************************************* P* D B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK N L P* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS P* 8 P****ENTRY PARAMETERS******
0x3851c0…385354 (4, 406) Dummy {f00=0x014e, f01=0x018e, f02=»B ~ P* 8 P****EXIT PARAMETERS********************************* P* P P* A6 = FDB ADDR Z P* t 8 P****USED REGISTERS********************************** ~ P* P* A1-A4,A6 P* < P**************************************
0x385354…3854e8 Dummy {f00=0x014e, f01=0x0190, f02=» P LDR A1,A3 LOG REC NO P INH " , P CF A15,GETBLK GET BUFF AND STORE A1,A2 . P* ^ P* LINK BUFFER TO FDB h P* P LD A2,FDBEAL,A6 LINK ROOT P STR A2,A4 THREAD P ST A4,FDBEAL,A6 NEW ROOT P RTN A14 P EJECT D
0x3854e8…38567c Dummy {f00=0x014e, f01=0x0190, f02=» P* TIO THE FREE LINK. P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A1 = FDB-ADDRESS v " P* A2,A3 = LOGICAL RECORD NO B P* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB ( P*
0x38567c…385810 Dummy {f00=0x014e, f01=0x0190, f02=»FER WITH TASK ID AND LOG REC NO j 0 P* AS SPEC IS REMOVED. ( P* 8 P****EXIT PARAMETERS********************************* f P* P* A1 = UNCHANGED P* 8 P****USED REGISTERS**********************************
0x385810…3859a4 Dummy {f00=0x014e, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x3859a4…385b38 Dummy {f00=0x014e, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x385b38…385ccc Dummy {f00=0x014e, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x385ccc…385e60 Dummy {f00=0x014e, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x385e60…385ff4 (4, 407) Dummy {f00=0x014e, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x385ff4…386188 Dummy {f00=0x014e, f01=0x0190, f02=» P RF(Z) CRN100 LINK END P* " P* CHECK ATASK IDENT , P* J P LC A3,FDBTNR,A1 TASK ID T P CC A3,CRNTID,A2 t P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P* P* GET NEW BUFFER P* PCRN100 EQU *
0x386188…38631c Dummy {f00=0x014e, f01=0x018e, f02=»RS v PCRN120 EQU * P LDR* A3,A2 NEXT FREE P ST A3,CRNQUE UPD ROOT < P* Z P* FILL BUFFER WITH ZEROES d P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES PCRN140 EQU * P SUK A3,2 ZEROE WORDS 2 - N P RF(NP) CRN160 B
0x38631c…3864b0 Dummy {f00=0x014e, f01=0x0190, f02=» " P* CONNECT NEW BUFFER TO LINK P* . PCRN160 EQU * 8 P LC A3,FDBTNR,A1 L P SC A3,CRNTID,A2 TASK ID d P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD P ST A2,FDBCRL,A1 NEW ROOT PCRN200 EQU * P RTN A14 P E
0x3864b0…386644 Dummy {f00=0x014e, f01=0x018e, f02=»TO d P* SECTOR AND OFFSET P* ( 8 P****ENTRY PARAMETERS******************************** 2 P* n " P* A1,A2 = LOGICAL RECORD NO x P* A6 = FDB ADDR P* P* CF A14,CALSNO P* 8 P****EXIT PARAMETERS*************
0x386644…3867d8 Dummy {f00=0x014e, f01=0x0190, f02=» P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v P* 8 P****USED REGISTERS********************************** P* P* A1 - A9 P
0x3867d8…38696c Dummy {f00=0x014e, f01=0x0190, f02=»DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0 $ P ADK A3,1 RECORD
0x38696c…386b00 Dummy {f00=0x014e, f01=0x018e, f02=» PTIOD40 EQU * P LDR A4,A6 & P ADKL A4,FDBEXT FIRST FILE EXTENT * , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT T P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SECTOR IN THIS EXTENT P SUK A5,1 NO & P RF(NP)
0x386b00…386c94 (4, 408) Dummy {f00=0x014e, f01=0x0190, f02=» P* * P* SAVE CURRENT EXTENT BLOCK POINTER P* < PTIOD55 ST A4,FDBCEX,A6 F P* d * P* FIND LOGICAL SECTOR NUMBER ON DISC n P* 6 P SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTENTS $ P SUR A3,A9 SECTOR NO WITHIN EXT P
0x386c94…386e28 Dummy {f00=0x014e, f01=0x0190, f02=»GICAL SECTOR NUMBER x 2 P* FIND RELATIVE RECORD OFFSET WITHIN SECTOR P* R P LDK A3,0 & PTIOD60 SUK A2,1 A2=RELATIVE REC NO n ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * P AD A3,FDBRLE,A6 NO ADD RECORD LENGTH P ADK A3,1 SKIP STATUS
0x386e28…386fbc Dummy {f00=0x014e, f01=0x0190, f02=»RELATIVE REC OFFSET IN FBDRRO P* & PTIOD65 EQU * 0 P LDK A1,0 OK D P ST A3,FDBRRO,A6 X PTIODMF EQU * p P RTN A14 P EJECT DMSUBR P* P************** P* DMTIOT P************** P* > P* ENTRY
0x386fbc…387150 Dummy {f00=0x014e, f01=0x0190, f02=»RESS x P* A1 = 0 WHEN OK ! $ P* = ERROR CODE ELSE ! . $ P* A9 = DM ECB ADDRESS ! V * P* A8 = PHYS I/O ECB ADDRESS ! ~ $ P* A2 WILL BE DESTROYED ! P* ! ( P* USED REGISTERS : A1,A2,A6,A8,A9 !
0x387150…3872e4 Dummy {f00=0x014e, f01=0x0190, f02=»B ADDRESS ! z PDMTIT0 EQU * " P LD A1,ECBRC,A8 " & P RF(Z) DMTIOX DISC I/O OK " > P ANKL A1,/FEFF " ` $ P RF(NZ) DMTIT1 NOT ONLY RETRIES " v P LDKL A2,/100 " P ORS A2,ECBRC,A9 USER RC " P RF DMTIOX " PDMTIT1 EQU * " P LD A2,FDBDBR,
0x3872e4…387478 Dummy {f00=0x014e, f01=0x0190, f02=» A2,8 BUFSTA " , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER # P LDK A1,/02 DISC IO ERROR # D " P LDKL A2,/FF7E NOT BIT 8 OR 15 # f P AN A2,ECBRC,A8 # P RF(NZ) DMTIOX # P LD A1,ECBRC,A8 BIT 8 OR 15 # PDMTIOX RTN A14 # P EJECT # P* #
0x387478…38760c Dummy {f00=0x014e, f01=0x0190, f02=» P* A8 = ECB ADDR $ P* OUT: $ P* A1 = RET CODE $ . P* A2 = DESTROYED $ H P* A6 = FDB ADDR $ b P* A8 = ECB ADDR $ | P* A9 == USER ECB $ P* $ PDMTIOZ LDR A6,A1 $ P LD A2,DWTOR,A6 ORDER $ P ANK A2,/3F $ P CWK
0x38760c…3877a0 Dummy {f00=0x014e, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x3877a0…387934 (4, 409) Dummy {f00=0x014e, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x387934…387ac8 Dummy {f00=0x014e, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P**
0x387ac8…387c5c Dummy {f00=0x014e, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL
0x387c5c…387df0 Dummy {f00=0x014e, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR
0x387df0…387f84 Dummy {f00=0x014e, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* *
0x387f84…388118 Dummy {f00=0x014e, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x388118…3882ac Dummy {f00=0x014e, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL
0x3882ac…388440 Dummy {f00=0x014e, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,F
0x388440…3885d4 (4, 410) Dummy {f00=0x014f, f01=0x0190, f02=» PGTL150 EQU * . P ADK A7,1 RECORD COUNTER . P SUR A6,A4 . 8 * P RB(NN) GTL150 COUNT RECORDS IN SECTOR . J P* . x , P* ADD SECT*BLOCFACT AND RECINCURRSECT . P* . P ADR A2,A7 . P RF(O) GTL160 OVERFLOW . P RF GTL170 . PGTL160 EQU
0x3885d4…388768 Dummy {f00=0x014f, f01=0x0190, f02=» LDR A1,A5 FDB ADDR . P LDR A6,A5 / P RTN A14 / . P EJECT DMSUBR / > P* / V P* / ` P IFT MMUPAG=1 / j P* / P* M O V : U S / P* / D P* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO / L P* THE SYSTEM AREA (REC
0x388768…3888fc Dummy {f00=0x014f, f01=0x0190, f02=»* / 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) 0 < P* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) 0 F . P* A3 = NUMBER OF BYTES TO BE MOVED 0 P* 0 " P* OUTPUT: A1-A4 ARE DESTROYED 0 P* 0 , PMOV:US LDR A3,A3 CHECK
0x3888fc…388a90 Dummy {f00=0x014f, f01=0x0190, f02=»ER ADDRESS 0 v P ANK A4,1 1 . P RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN? 1 $ . P LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS 1 V P ANK A4,1 1 0 P RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN? 1 P* 1 , PMVUS10 LDR A4,A3 CHECK REQUESTED LENGTH 1 P
0x388a90…388c24 Dummy {f00=0x014f, f01=0x0190, f02=»5 1 t P* 2 PMVUS35 RTN A14 2 P* 2 * P EJECT DMSUBR 2 4 P* 2 L P* 2 V 0 PMVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN 2 ` * P LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS 2 P ANK A4,1 2 0 P RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? 2 4 P
0x388c24…388db8 Dummy {f00=0x014f, f01=0x0190, f02=» SYSTEM BUFFER ADDRESS 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 3 $ P RB(NP) MVUS30 LAST CHAR. MOVED? 3 J , P ADK A1,2 NO, UPDATE USER BUFFER ADDRESS 3 r P* 3 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 3 P ECR A5,A4 3 0 P SCR A5,A2 STO
0x388db8…388f4c Dummy {f00=0x014f, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x388f4c…3890e0 Dummy {f00=0x014f, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x3890e0…389274 (4, 411) Dummy {f00=0x014f, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x389274…389408 Dummy {f00=0x014f, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x389408…38959c Dummy {f00=0x014f, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x38959c…389730 Dummy {f00=0x014f, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x389730…3898c4 Dummy {f00=0x014f, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x3898c4…389a58 Dummy {f00=0x014f, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x389a58…389bec Dummy {f00=0x014f, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x389bec…389d80 Dummy {f00=0x014f, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x389d80…389f14 (4, 412) Dummy {f00=0x014f, f01=0x0190, f02=» = & P ADR A4,A5 UPDATE BUFFER ADDRESSES > P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x389f14…38a0a8 Dummy {f00=0x014f, f01=0x402e, f02=»IF > P* ? P* ? P END ? @ ? * P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x38a0a8…38a23c Dummy {f00=0x014f, f01=0x2008, f02=» @ + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x38a23c…38a3d0 Dummy {f00=0x014f, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x38a3d0…38a564 Dummy {f00=0x014f, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x38a564…38a6f8 Dummy {f00=0x014f, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x38a6f8…38a88c Dummy {f00=0x014f, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x38a88c…38aa20 Dummy {f00=0x014f, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x38aa20…38abb4 (4, 413) Opaque[0x194]
0x38abb4…38ad48 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29f8, f03=0x0000}
0x38abb4…38ad48 IdxSect {
0x38abb4…38ad48 f00 = 0x014f // 0x38abb4 @0x0
0x38abb4…38ad48 f01 = 0x0002 // 0x38abb6 @0x2
0x38abb4…38ad48 gno = [ // 0x38abb8 @0x4
0x38abb4…38ad48 [0x00]: C0x014f.0x3.0
0x38abb4…38ad48 ]
0x38abb4…38ad48 }
0x38ad48…38aedc Dummy {f00=0x014f, 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 P EXTRN DVDY00 PMMUPAG EQU 1 P*
0x38aedc…38b070 Dummy {f00=0x014f, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x38b070…38b204 Dummy {f00=0x014f, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x38b204…38b398 Dummy {f00=0x014f, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x38b398…38b52c Dummy {f00=0x014f, 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
0x38b52c…38b6c0 Dummy {f00=0x014f, f01=0x0190, f02=» ORDER v EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA5 SAVE AREA A5 0 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT R ( P EXTRN SCTPLD PROGRAM LOADING DEVICE | ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT
0x38b6c0…38b854 (4, 414) Opaque[0x194]
0x38b854…38b9e8 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a00, f03=0x0000}
0x38b854…38b9e8 IdxSect {
0x38b854…38b9e8 f00 = 0x0150 // 0x38b854 @0x0
0x38b854…38b9e8 f01 = 0x0002 // 0x38b856 @0x2
0x38b854…38b9e8 gno = [ // 0x38b858 @0x4
0x38b854…38b9e8 [0x00]: C0x0150.0x0.0
0x38b854…38b9e8 ]
0x38b854…38b9e8 }
0x38b9e8…38bb7c Dummy {f00=0x0150, 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
0x38bb7c…38bd10 Dummy {f00=0x0150, 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
0x38bd10…38bea4 Dummy {f00=0x0150, 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,
0x38bea4…38c038 Dummy {f00=0x0150, 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
0x38c038…38c1cc Dummy {f00=0x0150, 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
0x38c1cc…38c360 Dummy {f00=0x0150, 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
0x38c360…38c4f4 (4, 415) Opaque[0x194]
0x38c4f4…38c688 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a08, f03=0x0000}
0x38c4f4…38c688 IdxSect {
0x38c4f4…38c688 f00 = 0x0150 // 0x38c4f4 @0x0
0x38c4f4…38c688 f01 = 0x0002 // 0x38c4f6 @0x2
0x38c4f4…38c688 gno = [ // 0x38c4f8 @0x4
0x38c4f4…38c688 [0x00]: C0x0150.0x1.0
0x38c4f4…38c688 ]
0x38c4f4…38c688 }
0x38c688…38c81c Dummy {f00=0x0150, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB02 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 1 P*
0x38c81c…38c9b0 Dummy {f00=0x0150, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x38c9b0…38cb44 Dummy {f00=0x0150, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY01 DVDY01O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLAC
0x38cb44…38ccd8 Dummy {f00=0x0150, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x38ccd8…38ce6c Dummy {f00=0x0150, 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
0x38ce6c…38d000 Dummy {f00=0x0150, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x38d000…38d194 (4, 416) Opaque[0x194]
0x38d194…38d328 # DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a10, f03=0x0000}
0x38d194…38d328 IdxSect {
0x38d194…38d328 f00 = 0x0150 // 0x38d194 @0x0
0x38d194…38d328 f01 = 0x0002 // 0x38d196 @0x2
0x38d194…38d328 gno = [ // 0x38d198 @0x4
0x38d194…38d328 [0x00]: C0x0150.0x2.0
0x38d194…38d328 ]
0x38d194…38d328 }
0x38d328…38d4bc Dummy {f00=0x0150, f01=0x018e, f02=» 2 P IDENT DVTP01 REL 9.2 79-11-16 870105040920 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x38d4bc…38d650 Dummy {f00=0x0150, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTP01 ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADD
0x38d650…38d7e4 Dummy {f00=0x0150, f01=0x40f6, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER B P IFT MMUPAG=1 n PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ AREA USER ECB ADD
0x38d7e4…38d978 Dummy {f00=0x0150, 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
0x38d978…38db0c Dummy {f00=0x0150, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x38db0c…38dca0 Dummy {f00=0x0150, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x38dca0…38de34 (4, 417) Opaque[0x194]
0x38de34…38dfc8 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a18, f03=0x0000}
0x38de34…38dfc8 IdxSect {
0x38de34…38dfc8 f00 = 0x0150 // 0x38de34 @0x0
0x38de34…38dfc8 f01 = 0x0002 // 0x38de36 @0x2
0x38de34…38dfc8 gno = [ // 0x38de38 @0x4
0x38de34…38dfc8 [0x00]: C0x0150.0x3.0
0x38de34…38dfc8 ]
0x38de34…38dfc8 }
0x38dfc8…38e15c Dummy {f00=0x0150, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * T
0x38e15c…38e2f0 Dummy {f00=0x0150, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x38e2f0…38e484 Dummy {f00=0x0150, 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,
0x38e484…38e618 Dummy {f00=0x0150, 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
0x38e618…38e7ac Dummy {f00=0x0150, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x38e7ac…38e940 Dummy {f00=0x0150, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x38e940…38ead4 (4, 418) Opaque[0x194]
0x38ead4…38ec68 # DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a20, f03=0x0000}
0x38ead4…38ec68 IdxSect {
0x38ead4…38ec68 f00 = 0x0151 // 0x38ead4 @0x0
0x38ead4…38ec68 f01 = 0x0002 // 0x38ead6 @0x2
0x38ead4…38ec68 gno = [ // 0x38ead8 @0x4
0x38ead4…38ec68 [0x00]: C0x0151.0x0.0
0x38ead4…38ec68 ]
0x38ead4…38ec68 }
0x38ec68…38edfc Dummy {f00=0x0151, f01=0x0190, f02=» 2 P IDENT DVKB02 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB02 TABLE ENTRY r P EXTRN CTAB03 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY02 PMMUPAG EQU 1 P*
0x38edfc…38ef90 Dummy {f00=0x0151, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x38ef90…38f124 Dummy {f00=0x0151, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY02 DVDY02O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLAC
0x38f124…38f2b8 Dummy {f00=0x0151, f01=0x4100, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 t P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLAC
0x38f2b8…38f44c Dummy {f00=0x0151, 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
0x38f44c…38f5e0 Dummy {f00=0x0151, f01=0x0000, f02=»
0x38f5e0…38f774 (4, 419) Opaque[0x194]
0x38f774…38f908 # DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a28, f03=0x0000}
0x38f774…38f908 IdxSect {
0x38f774…38f908 f00 = 0x0151 // 0x38f774 @0x0
0x38f774…38f908 f01 = 0x0002 // 0x38f776 @0x2
0x38f774…38f908 gno = [ // 0x38f778 @0x4
0x38f774…38f908 [0x00]: C0x0151.0x1.0
0x38f774…38f908 ]
0x38f774…38f908 }
0x38f908…38fa9c Dummy {f00=0x0151, f01=0x0190, f02=» 2 P IDENT DVDI02 REL 9.2 79-11-16 870105040920 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI02 DISPLAY INDICATOR 03 P* P*
0x38fa9c…38fc30 Dummy {f00=0x0151, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI02 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x38fc30…38fdc4 Dummy {f00=0x0151, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x38fdc4…38ff58 Dummy {f00=0x0151, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x38ff58…3900ec Dummy {f00=0x0151, f01=0x0000, f02=»
[…0x1…]
0x390280…390414 (4, 420) Opaque[0x194]
0x390414…3905a8 # DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a30, f03=0x0000}
0x390414…3905a8 IdxSect {
0x390414…3905a8 f00 = 0x0151 // 0x390414 @0x0
0x390414…3905a8 f01 = 0x0002 // 0x390416 @0x2
0x390414…3905a8 gno = [ // 0x390418 @0x4
0x390414…3905a8 [0x00]: C0x0151.0x2.0
0x390414…3905a8 ]
0x390414…3905a8 }
0x3905a8…39073c Dummy {f00=0x0151, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY02 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY02 EQU * T
0x39073c…3908d0 Dummy {f00=0x0151, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x3908d0…390a64 Dummy {f00=0x0151, 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,
0x390a64…390bf8 Dummy {f00=0x0151, 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
0x390bf8…390d8c Dummy {f00=0x0151, f01=0x0000, f02=»
[…0x1…]
0x390f20…3910b4 (4, 421) Opaque[0x194]
0x3910b4…391248 # DirEnt {nam=»DVGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a38, f03=0x0000}
0x3910b4…391248 IdxSect {
0x3910b4…391248 f00 = 0x0151 // 0x3910b4 @0x0
0x3910b4…391248 f01 = 0x0002 // 0x3910b6 @0x2
0x3910b4…391248 gno = [ // 0x3910b8 @0x4
0x3910b4…391248 [0x00]: C0x0151.0x3.0
0x3910b4…391248 ]
0x3910b4…391248 }
0x391248…3913dc Dummy {f00=0x0151, f01=0x018e, f02=» 2 P IDENT DVGP03 REL 9.2 79-11-16 870105040920 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP03 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP03 EQU *
0x3913dc…391570 Dummy {f00=0x0151, f01=0x0190, f02=» P DATA DWTEND-DVGP03 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA 'GP' TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x391570…391704 Dummy {f00=0x0151, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x391704…391898 Dummy {f00=0x0151, 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
0x391898…391a2c Dummy {f00=0x0151, f01=0x0000, f02=»
[…0x1…]
0x391bc0…391d54 (4, 422) Opaque[0x194]
0x391d54…391ee8 # DirEnt {nam=»M:92NA«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x3110, f03=0x0000}
0x391d54…391ee8 IdxSect {
0x391d54…391ee8 f00 = 0x0188 // 0x391d54 @0x0
0x391d54…391ee8 f01 = 0x0020 // 0x391d56 @0x2
0x391d54…391ee8 gno = [ // 0x391d58 @0x4
0x391d54…391ee8 [0x00]: C0x0188.0x2.0
0x391d54…391ee8 [0x01]: C0x0188.0x3.0
0x391d54…391ee8 [0x02]: C0x0189.0x0.0
0x391d54…391ee8 [0x03]: C0x0189.0x1.0
0x391d54…391ee8 [0x04]: C0x0189.0x2.0
0x391d54…391ee8 [0x05]: C0x0189.0x3.0
0x391d54…391ee8 [0x06]: C0x018a.0x0.0
0x391d54…391ee8 [0x07]: C0x018a.0x1.0
0x391d54…391ee8 [0x08]: C0x018a.0x2.0
0x391d54…391ee8 [0x09]: C0x018a.0x3.0
0x391d54…391ee8 [0x0a]: C0x018b.0x0.0
0x391d54…391ee8 [0x0b]: C0x018b.0x1.0
0x391d54…391ee8 [0x0c]: C0x018b.0x2.0
0x391d54…391ee8 [0x0d]: C0x018b.0x3.0
0x391d54…391ee8 [0x0e]: C0x018c.0x0.0
0x391d54…391ee8 [0x0f]: C0x018c.0x1.0
0x391d54…391ee8 ]
0x391d54…391ee8 }
0x391ee8…39207c Dummy {f00=0x0188, f01=0x0190, f02=» w J h h h h h h < h h% % $ . 8 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
0x39207c…392210 Dummy {f00=0x0188, 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 " ]b _ @]b > > U # T @ H ( ( P c P W: P, A]b @ V ( U P" @DVV LDVW @Dh
0x392210…3923a4 Dummy {f00=0x0188, f01=0x0190, f02=» 6 8 ]h Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @]` : ) A]`_ @ @ A H ( A]b_ ? ? ? ? ? ^ A _ _ ^ ]` $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x3923a4…392538 Dummy {f00=0x0188, f01=0x0190, f02=» Q Q > > 0 @]4 1 A]4 P P > ? * X " R" Y T ? X D D T> YrW8 > _& @ 8 R" Y T ? X D D T YrW > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @](V ? ]( > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x392538…3926cc Dummy {f00=0x0188, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U ] XH D #DP @ R XV Y @ P, D T W X &P T X I Y T # C C W4 O " # X Y ) C
0x3926cc…392860 Dummy {f00=0x0188, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x392860…3929f4 (4, 423) Dummy {f00=0x0188, f01=0x0190, f02=» 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 _@(@ L U L Q0 M & X
0x3929f4…392b88 Dummy {f00=0x0188, f01=0x0190, f02=» 0P X T 4 Y X D X T X Y 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > ]:J B B ]BJ B B pU
0x392b88…392d1c Dummy {f00=0x0188, f01=0x0190, f02=» 0 R t B " P Q :A H P P ]x H !@T I ] T ! 1 U ]| A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x392d1c…392eb0 Dummy {f00=0x0188, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ D P 8R R ] Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ] ;h # <c$
0x392eb0…393044 Dummy {f00=0x0188, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T D W u > > E D E
0x393044…3931d8 Dummy {f00=0x0188, f01=0x0190, f02=»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 " ] ~ Y > > V P
0x3931d8…39336c Dummy {f00=0x0188, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P ]x A]^W A]^ @]^A.W ? A dI.9 X R C C & ] ?A @]^A. X V 9_: @
0x39336c…393500 Dummy {f00=0x0188, f01=0x0190, f02=» Pb P Pv Pz * 6 + ]x A]^ @]^A. H D d ] Y HW A]^ @]^A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x393500…393694 (4, 424) Dummy {f00=0x0189, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X
0x393694…393828 Dummy {f00=0x0189, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & ] _ ? , Y " X $ T X Y $ Y X HP 1 Y H ]^ 0 Y J 1 0B. X (P y (_^ ( D _n Y ( " X . P Y : ! F ! H X # P
0x393828…3939bc Dummy {f00=0x0189, f01=0x0190, f02=» D C Y B ] K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x3939bc…393b50 Dummy {f00=0x0189, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P
0x393b50…393ce4 Dummy {f00=0x0189, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x393ce4…393e78 Dummy {f00=0x0189, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ X' X' P Y : ! ! H X # P
0x393e78…39400c Dummy {f00=0x0189, f01=0x0190, f02=»:H B # LCD Y @ P P $_ D _` _$ X 9 'jP. @B CD ]x @C `C @C P 0P _ % AB AC &_ B QJ Z X ! 3 #P_ X P 0 Y P C x_ 6_ B Y _ ]| X P A H D P Y Wb Y @_ X X A l
0x39400c…3941a0 Dummy {f00=0x0189, f01=0x0190, f02=»X( P _ 0 )_6 (P _ ) 1 4 'j X R2 X T* X P& , Y L C L C x > @ @ @ A X &_" X P y Y X P T @ T A A > A A A A A W > ! H
0x3941a0…394334 (4, 425) Dummy {f00=0x0189, f01=0x0190, f02=»I A P " " !&T #d_ !&T T 'j " " X !&:_ !' A @ P @ P !#f A A _ !' @ P @' X@ !# TD A !$p @ P( @' P" @ 8 !" X Y !#f A _B !&: X>_b A @' @ T 1 Z 0 2P P P A @ 8 HCD @' P E 'j
0x394334…3944c8 Dummy {f00=0x0189, f01=0x0190, f02=» @ A Y " @ _D !' @ T @ P !$ !' @ T @ X Wj A I D " ] @ @ @ A #: !' @ XN !&: T @ P !$x !& _h /T& @ X @ P !#f !$t A _ A #: < A @ T _, _0 @ T<W @' T !$`_ !" !$R_ A A HCD E
0x3944c8…39465c Dummy {f00=0x0189, f01=0x0190, f02=» !$ !& A _^ Y Y " W _j @ P< @ T6 X R0 X P T$ T Y W P C & A A @ P X Y 4 @' @ T @ A @ A A !&DT2 P4 PJ PL P P. 1 A @ ]6W P _@ @' @ E !'FP !& 4
0x39465c…3947f0 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T$ @'k !&B 8 !&BW - !&B x !B W 0 " WL R ~T }T T0 W, !&B P " ! " :A *@ HCD T 0 !&B W R !&B A @ @ UH Zt Q P Q T 0 !&B A 0 !&B A !&B " !&0 " !&0 $ A _" B J B !&: !
0x3947f0…394984 Dummy {f00=0x0189, f01=0x0190, f02=»B P W !' ] _ !&: ! 1 4 A&R @C `C @C P 0 M A&R 4 ? @ A @ T & @ A & ] A a 4 D & X A > D & Z A 4 A !& @ P !$x !& @ P a A 4 A'@ A'B A'D ?a :a# P @'@ @
0x394984…394b18 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x394b18…394cac Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x394cac…394e40 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x394e40…394fd4 (4, 426) Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x394fd4…395168 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x395168…3952fc Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3952fc…395490 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x395490…395624 Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x395624…3957b8 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3957b8…39594c Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x39594c…395ae0 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x395ae0…395c74 (4, 427) Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x395c74…395e08 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x395e08…395f9c Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x395f9c…396130 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x396130…3962c4 Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3962c4…396458 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x396458…3965ec Dummy {f00=0x0189, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3965ec…396780 Dummy {f00=0x0189, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! :f"? HB !&B "? HB !&B 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="C C
0x396780…396914 (4, 428) Dummy {f00=0x018a, f01=0x0190, f02=» {|[_m TOSS T C D D ] P C D D _ t _< ? ^ 4 _ P P @ 6 1 A 6 _ P 9 > > & D] ^ ^ ^ C ^(w w x xvx z z w^wr EzEzF F F F F F F F
0x396914…396aa8 Dummy {f00=0x018a, f01=0x0190, f02=»P T @ R $P U + U _ (@(@ ID P ^ F HD Y HD B # X ( U F B r H W Y & Y $ 0 Y . F Z2 F B Y I B Y J_ W Z| C P C W < C C _H Z| H H S W C C B B
0x396aa8…396c3c Dummy {f00=0x018a, f01=0x0190, f02=» S W C C W, B B Y IR Q X JU C '? T W6 Z T.(@(@ P #D z H ] ]|H H L>L>L>L>L>J J H L>J H L>L>L>L>J J H F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U
0x396c3c…396dd0 Dummy {f00=0x018a, f01=0x0190, f02=» @ _ ]b ( H > H X &Pj D ^V" D "? P P &P E ^ [ V, P ( Hl( ( W H [6 L> B W C X '? F X & X ( )T L> G& G K X $TT T AG$ J , YN P W T Y $ P T _ Y &
0x396dd0…396f64 Dummy {f00=0x018a, f01=0x0190, f02=» ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF Z2 N 4 5W P 0 @V( 1 AV((@_ 1 (@ J` / O $P % 4 F G| (@ B & P 9 . LT 4' J ' J 5
0x396f64…3970f8 Dummy {f00=0x018a, f01=0x0190, f02=» L< & ( F " F +P P* X $ T Y U W Y R P> $P8W L> X ( X & F X P @]b Q (@ H + X ^V" P "P8 $P4W X & X bT( ;AR ( K ( H [6 T Y ^ F " F D '? P P( $ P" Z| I
0x3970f8…39728c Dummy {f00=0x018a, f01=0x0190, f02=» yr B B P ! Tn M O : Lf Ay Ay " P y< "" y P O yr @y> .(@ Dy@ C C C W C ( Lf Lh L " TOP O Ayp L Ayn L C yl @yn AynQ< @y> O4 Ay> @y O B & Dy@ EyBX #D
0x39728c…397420 Dummy {f00=0x018a, f01=0x0190, f02=» O U _ L !SSP !LL O W L @yH AyHV O P EyJ @y> EyL P EyZ P Ey DyJT yjP O P 2% P( R 0 Xy@T R , @ypT R RT @y O O 6 P 2% P O yj r P %_ S D S E 3 P
0x397420…3975b4 (4, 429) Dummy {f00=0x018a, f01=0x0190, f02=» R ( >a U Wb 0 =b PyJP @yH ! T. W< PyL Dy@ Y PyZ Y Py Y U ! T ! X6 _R _V Dy " P yr Ays ( ^ W @y P6 I @y P @X V W HX IX (@ @yjP -W P B & . y (@( @y P^
0x3975b4…397748 Dummy {f00=0x018a, f01=0x0190, f02=» S b O U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S D S E 3 P
0x397748…3978dc Dummy {f00=0x018a, f01=0x0190, f02=» R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W P B (@( @
0x3978dc…397a70 Dummy {f00=0x018a, f01=0x0190, f02=» S b O U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S D S E 3 P
0x397a70…397c04 Dummy {f00=0x018a, f01=0x0190, f02=» R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W P B (@( @
0x397c04…397d98 Dummy {f00=0x018a, f01=0x0190, f02=» S b O U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S D S E 3 P
0x397d98…397f2c Dummy {f00=0x018a, f01=0x0190, f02=» R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @ V W H I (@ @ P -W Y P Q R ;A [ [ :
0x397f2c…3980c0 Dummy {f00=0x018a, f01=0x0190, f02=» _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +P W : X + P X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @]4 1 A]4 Z> : D NW (P D + I W6 @V(T n
0x3980c0…398254 (4, 430) Dummy {f00=0x018a, f01=0x0190, f02=»R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C W C C X %? : X &_ 0 D . P , _ D . D $ D *
0x398254…3983e8 Dummy {f00=0x018a, f01=0x0190, f02=»U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< &| h N | r l ^ bZe g hv > > @]b 0 A]bW & ^ ! Z( ]`
0x3983e8…39857c Dummy {f00=0x018a, f01=0x0190, f02=» W 0 ] Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ( ( ^ ` ^ ? X V Y ] ! 2W< Y U R -P ` X , ) Y . ` X P Y P C W~ 8!@P$ X $P
0x39857c…398710 Dummy {f00=0x018a, f01=0x0190, f02=»` B ` T B % X . $ 4 T % ` X ,T ! P ` b2 Y . V b" ! B P X " _` B P$ $$ R % C b"* ! W Y +PH Y *P> Y (P Y )P b" R _Q P OR R W " ! B _" Wr W 0 Z b" ! B Z Z& X .
0x398710…3988a4 Dummy {f00=0x018a, f01=0x0190, f02=» QfR$ X # P X R6;GV2 X $P y $ an P8 X R2;GV. X " _" X , $4 P b2 X .T * W Y , - ] @ Y $ X Z _X ? 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 _$
0x3988a4…398a38 Dummy {f00=0x018a, f01=0x0190, f02=»>@^_ 9: X ! Y MbnP ^ ]x Y Lb b b b c b b c c ! ! ! W B W$ B L # 9Q T W Q P X & V T Y &W bB X ! T6 B R0Q$ B D ! V ! ! ! W !e !c Y ! T ! V bl ! B C !
0x398a38…398bcc Dummy {f00=0x018a, f01=0x0190, f02=» B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !e* Y Y U ! _$ W4 , ! T ,' bb ! R !__U C X ' W Y ! _ X RT U TJ X c
0x398bcc…398d60 Dummy {f00=0x018a, f01=0x0190, f02=» ! ! 4 X ' 4 Y ' bP ! ! " P ,$ , ! 4!"$&;<>@^_ e g$g g@ PB P8 ]x B P B L # +P ! ! T ! Y & ! W ! ! W ! Y Y f F U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V
0x398d60…398ef4 (4, 431) Dummy {f00=0x018a, f01=0x0190, f02=» X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q f -_ ? _ X # ! ^ Y _( ? X Z ! P4 P f f X " e !
0x398ef4…399088 Dummy {f00=0x018a, f01=0x0190, f02=» X P B V *@ Y h ] ]| ? X _F h l j j k& jv ! P P j: & j" ]x B P B H " +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 k ! j B B U4 $ ! T _ U D ! T _ $$
0x399088…39921c Dummy {f00=0x018a, f01=0x0190, f02=» B C jN ^N P R ?] _ C _ F F" $ P X ' X ] ! j i` B !lf !l ! jv B Y & !l<W i^ 8!0T 8 !@P ! $ P ! ! j ! T Y & T X & C & ] X Y & Y > X " X &" Y )Q Y > X
0x39921c…3993b0 Dummy {f00=0x018a, f01=0x0190, f02=»P" ! j W j X $ X !k _ X $ X X & !l< !l Y _8 X " X &" Y )U W ! ! ! Y 4 B i U )X R@ X X &" Y * X ) V Y !l X $ X & !l< X * i^ i `R Y ! ! ! 4
0x3993b0…399544 Dummy {f00=0x018a, f01=0x0190, f02=» B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i` B ! ! ! B Y & ! W i^ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ] X Y & Y > X " X &" Y )Q Y > X
0x399544…3996d8 Dummy {f00=0x018a, f01=0x0190, f02=»P" ! j W j X $ X !k _ X $ X X & !l< !l Y _8 X " X &" Y )U W ! ! ! Y 4 B i U )X R@ X X &" Y * X ) V Y !l X $ X & !l< X * i^ i `R Y ! ! ! 4
0x3996d8…39986c Dummy {f00=0x018a, f01=0x0190, f02=» B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i` B ! ! ! B Y & ! W i^ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ] X Y & Y > X " X &" Y )Q Y > X
0x39986c…399a00 Dummy {f00=0x018a, f01=0x0190, f02=»P" ! j W j X $ X !k _ X $ X X & !l< !l Y _8 X " X &" Y )U W ! ! ! Y 4 B i U )X R@ X X &" Y * X ) V Y !l X $ X & !l< X * i^ i `R Y ! ! ! 4
0x399a00…399b94 (4, 432) Dummy {f00=0x018b, f01=0x0190, f02=» B C ^N P R ?] _ C _ F F" $ P X ' X ] ! i` B ! ! ! B Y & ! W i^ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ] X Y & Y > X " X &" Y )Q Y > X
0x399b94…399d28 Dummy {f00=0x018b, f01=0x0190, f02=»P" ! j W j X $ X !k _ X $ X X & !l< !l Y _8 X " X &" Y )U W ! ! ! Y 4 B i U )X R@ X X &" Y * X ) V Y !l X $ X & !l< X * i^ i `R Y ! ! ! 4
0x399d28…399ebc Dummy {f00=0x018b, f01=0x0190, f02=» B C ^N P v P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P l P W< l T6 v ' P !w & B # P G W G & ] X P P R: AvT D v Y X T Q (P H U ^ 9 1_N ]x X T
0x399ebc…39a050 Dummy {f00=0x018b, f01=0x0190, f02=»l P $ $ 1 ) > ) $P e % > (@ B Z F U F Z l P U ]| C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _
0x39a050…39a1e4 Dummy {f00=0x018b, f01=0x0190, f02=» < ? < ? <(@ y $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h y$ P ?_" = > = > = =_D R _ 00 > & <h$ P >
0x39a1e4…39a378 Dummy {f00=0x018b, f01=0x0190, f02=»y Ay :A Ay> N , ` R @ U P. ,% T& yr C ( B P T W ' T| Iy@ @ 8 =hP Y X Pl 0T< Y Hy@! R W 9a Iy@ T T 9a HyA Ey ^ W P ,! T T ( R : n "' # y @y6P
0x39a378…39a50c Dummy {f00=0x018b, f01=0x0190, f02=»y: P ( )W @ 0 R % "V E T D Ay _" P @y: P ( )W @ 0 Rb ' F "R G y @y> Dy@ #D T G W, Ay L "R Ay Ayj ] y |. }
0x39a50c…39a6a0 Dummy {f00=0x018b, f01=0x0190, f02=»y Ay :A Ay> , ` R @ U P ,% T yr C ( B P T W ' T Iy@ @ 8 =hP Y X P 0T Y Hy@! R W 9a Iy@ T T 9a HyA Ey ^ W P ,! T T ( : n "' # r @y6P
0x39a6a0…39a834 (4, 433) Dummy {f00=0x018b, f01=0x0190, f02=»y: P ( )W @ 0 R % "V E T D Ay _" P @y: P ( )W @ 0 Rb ' F "R G y @y> Dy@ #D T G W, Ay L "R Ay Ayj ] y
0x39a834…39a9c8 Dummy {f00=0x018b, f01=0x0190, f02=»y Ay :A Ay> , ` R @ U P ,% T yr C ( B P T W ' T Iy@ @ 8 =hP Y X P 0T Y Hy@! R W 9a Iy@ T T 9a HyA Ey ^ W P ,! T T ( : n "' # @y6P
0x39a9c8…39ab5c Dummy {f00=0x018b, f01=0x0190, f02=»y: P ( )W @ 0 R % "V E T D Ay _" P @y: P ( )W @ 0 Rb ' F "R G y @y> Dy@ #D T G W, Ay L "R Ay Ayj ] y
0x39ab5c…39acf0 Dummy {f00=0x018b, f01=0x0190, f02=» @|* , L T L PF L T M Q M L V L A|, @|* : T n @|, [ [ M M M A|* -(@ : - : @|* , L T M @|* : =a 9a Q - _ - > @ HPJ r P V( R V* AV( X R @|* , - M M M @|* Ay6 A
0x39acf0…39ae84 Dummy {f00=0x018b, f01=0x0190, f02=» < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* < +.-, 0 23456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ($SWAP A A A A. UU @ @ ! P$>B @
0x39ae84…39b018 Dummy {f00=0x018b, f01=0x0190, f02=» P. _ " :c* A W " :d2 * A " H & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR X F XW =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W
0x39b018…39b1ac Dummy {f00=0x018b, f01=0x0190, f02=» _ T <B :L A W A A W T F W V = V W Y* P Z( = :L < P W <9B @ V W Q W @ @ A @
0x39b1ac…39b340 Dummy {f00=0x018b, f01=0x0190, f02=» | V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;T X$ W _J T W >
0x39b340…39b4d4 (4, 434) Dummy {f00=0x018b, f01=0x0190, f02=»_V S A ; A @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X C.9h! # " :A K : A T.I T P 1 I P < R P A _>
0x39b4d4…39b668 Dummy {f00=0x018b, f01=0x0190, f02=» A A A A A ! T A A I ! : 9E @ r s A I T ) A _ I N T : 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P @ T X W n : YX d C !CCTZ B.
0x39b668…39b7fc Dummy {f00=0x018b, f01=0x0190, f02=» W$ V P P W P V V T V T W P V W @ $ P p W T : A _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [
0x39b7fc…39b990 Dummy {f00=0x018b, f01=0x0190, f02=» A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W JQ@ V V v x W V V v p R( W V W ^< _@ V _P V V
0x39b990…39bb24 Dummy {f00=0x018b, f01=0x0190, f02=» W r JQ R t JV v : 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
0x39bb24…39bcb8 Dummy {f00=0x018b, f01=0x0190, f02=» : " D Pd W V PL $;A^ D E D P. V 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 _ " (
0x39bcb8…39be4c Dummy {f00=0x018b, f01=0x0190, f02=» @ 0 V @ 0 H W : ? ? R 0 R P P B _ ]d : V ) v : 4P: " D , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W $ H
0x39be4c…39bfe0 Dummy {f00=0x018b, f01=0x0190, f02=» K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q @ P A. @ P _b
0x39bfe0…39c174 (4, 435) Dummy {f00=0x018b, f01=0x0190, f02=»P 3 _ ]6 3 ]8 B A. @ D @ W x A ( : A ] > l : |R X W n V pT : N V l W H V ]" . nT" W v ~ W n V ~P W x f Z _v
0x39c174…39c308 Dummy {f00=0x018b, f01=0x0190, f02=» : ~ V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V v ) W b G v ) - V W f v ) G v ` " W p W ~ pP0 B R P
0x39c308…39c49c Dummy {f00=0x018b, f01=0x0190, f02=» " E R 2 W ~ R 2 R P R Xv _|W T : X W x _ V P I P W z ` pPl H - V I < " R E R T E D E @ v H v E j #_v W | ;b W W
0x39c49c…39c630 Dummy {f00=0x018b, f01=0x0190, f02=» N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ JR - @ - N !TTP N :H N TBT W W8 2 " T @ N =H N @ ) !TT
0x39c630…39c7c4 Dummy {f00=0x018b, f01=0x0190, f02=» YV : v `?A @ W W :b / 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
0x39c7c4…39c958 Dummy {f00=0x018b, f01=0x0190, f02=» P t W r t W @ @ % L V , P@ , - 4 ] 4 JY 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP @ T Y !TT
0x39c958…39caec Dummy {f00=0x018b, f01=0x0190, f02=»" P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P P0 r " U
0x39caec…39cc80 Dummy {f00=0x018b, f01=0x0190, f02=» @ " S V l S W l V p S W p W _L @ % P W @ % P !TTT @ @ T : @ ! P @ @ < CRT 3 @ < < S @ < PP < !RRP @ ! T 3
0x39cc80…39ce14 (4, 436) Dummy {f00=0x018c, f01=0x0190, f02=» S S V V W @ @ T : P S S _ : . !TTP V W t * P r _ Ph W p W V 8 8 4 D P$ @ # P H I
0x39ce14…39cfa8 Dummy {f00=0x018c, f01=0x0190, f02=» T P / _ T @ A V W W t PT W f ( W d G =h G V d V r < V f P W f _B V W V t Yr !TTX @ @ T : !TTX !
0x39cfa8…39d13c Dummy {f00=0x018c, f01=0x0190, f02=» _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ @ # P H I K T + Y@ _`R& @ @
0x39d13c…39d2d0 Dummy {f00=0x018c, f01=0x0190, f02=» $ 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 . $# P V -W H P U & I @ % PD H I H T P( H U V U W < +
0x39d2d0…39d464 Dummy {f00=0x018c, f01=0x0190, f02=» W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]]:W v P _ @
0x39d464…39d5f8 Dummy {f00=0x018c, f01=0x0190, f02=» P N =H N T _ : 00=H 00 P P _ _ : @ ! P (W ( : @ l @ < CRT" @ ! P ` @ E "W ` @ E " ! 1 H 0 1 2 P @ x @ P 6 0
0x39d5f8…39d78c Dummy {f00=0x018c, f01=0x0190, f02=» ,l l 0 DC ^ KB * H 8hvDY t @
0x39d78c…39d920 Dummy {f00=0x018c, f01=0x0190, f02=» 4bZTP 4 8hvDY l @ P ^ KB 6
0x39d920…39dab4 (4, 437) Dummy {f00=0x018c, f01=0x0190, f02=» ,l P 4e GP ^ KB * 8hvDY t @
0x39dab4…39dc48 Dummy {f00=0x018c, f01=0x0190, f02=» n P* o PRDM130 EQU * o $ P LD A1,DCRBUF GET BUFFER ADDRESS o & P LD A2,FBAX GET BUFFER INDEX o N 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER o r P IFF CODE=1 o P CF A5,RDLRC o P RF(Z) RDM150 LRC WAS OK o P XIF o P IFT CODE=1
0x39dc48…39dddc Dummy {f00=0x018c, f01=0x0190, f02=»ALID MESSAGE o z PRDM150 EQU * p $ P LDR A7,A3 SAVE RESULT REGISTER p ( P CF A5,HALTIN HALT INPUT p P P IFT P6805=1 p p P ORR A7,A1 PARITY ERROR p P XIF p P RTN A5 p P* p P* ETB RECEIVED p P* p PRDM160 EQU * p P LDR A3,A3
0x39dddc…39df70 Dummy {f00=0x018c, f01=0x018e, f02=» p PRDM170 EQU * q P IFF CODE=1 q P CF A5,RDLRC q 0 " P RB(NZ) RDM120 LRC WAS NOT OK q D P XIF q j P IFT CODE=1 q v & P CF A5,RDCRC READ CRC AND CHECK IT q " P RB(NE) RDM120 CRC WAS NOT OK q P XIF q P RB RDM100 q P q P* q
0x39df70…39e104 Dummy {f00=0x018c, f01=0x0190, f02=» q l P RF(NZ) TRDLE r P LDK A3,ACK0 LOAD ACK0 r P RF TRDLE r < P* r N P* TRANSMIT WACK r X P* r p PTRWACK LDK A3,WACK LOAD WACK r z P RF TRDLE r P* r P* TRANSMIT RVI r P* r P IFF STAT=0 r PTRRVI LDK A3,RVI LOAD RVI
0x39e104…39e298 Dummy {f00=0x018c, f01=0x0190, f02=»C A3,RESEND+1 r P RF TRREP s P s ( P* s 2 P* TRANSMIT NAK s < P* s R PTRNAK LDK A3,NAK LOAD NAK s P RF TREN10 s ~ P* s P* TRANSMIT EOT s P* s PTREOT LDK A3,EOT LOAD EOT s P RF TREN10 s P* s P* TRANSMIT ENQ s
0x39e298…39e42c Dummy {f00=0x018c, f01=0x0190, f02=»D+1 s $ PTRREP CF A5,TRSYNC START OUTPUT t & P LC A2,RESEND GET FIRST CHARACTER t 4 P CF A5,WRITEP SEND IT t ^ & P LC A2,RESEND+1 GET NEXT CHARACTER t | P CF A5,WRITEP SEND IT t PTRRE10 LDK A2,/FF t P CF A5,WRIT05 SEND PAD t P LDK A2,/FF
0x39e42c…39e5c0 Dummy {f00=0x018c, f01=0x018e, f02=» P XIF u & P SST A2,LCUUT PERFORM SST AT ONCE u P IFF LOGG=0 u : ( P CF A5,LOGSST LOG TRANSMITTER STATUS u N P XIF u z P RTN A5 u P u P* u P* u P* TRANSMIT ONE TEXT BLOCK u P* u P* u PTRTEXT EQU * u P CF A5,TRS
0x39e5c0…39e754 (4, 438) Opaque[0x194]
0x39e754…39e8e8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ab8, f03=0x0000}
0x39e754…39e8e8 IdxSect {
0x39e754…39e8e8 f00 = 0x0155 // 0x39e754 @0x0
0x39e754…39e8e8 f01 = 0x0004 // 0x39e756 @0x2
0x39e754…39e8e8 gno = [ // 0x39e758 @0x4
0x39e754…39e8e8 [0x00]: C0x0155.0x3.0
0x39e754…39e8e8 [0x01]: C0x0156.0x0.0
0x39e754…39e8e8 ]
0x39e754…39e8e8 }
0x39e8e8…39ea7c Dummy {f00=0x0155, f01=0x0190, f02=» . P IDENT CTAB01 80.12.15/EV NORDJYLLANDS AMT ENTRY CTAB01 6 P ENTRY CTAB02 L P ENTRY CTAB03 b P ENTRY CTAB04 x PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * 0 PCTAB04 DATA FUNC,FUNCSH,UNSC,SHIFT,CTRL,CTRL *
0x39ea7c…39ec10 Dummy {f00=0x0155, f01=0x018e, f02=»/9A9B D16,D17 P DATA /BFB5 A16,A17 P DATA /AAA3 A18,C18 2 DATA /8BA5 D18,A23 N DATA /3031 j DATA /3233 ~ DATA /3435 DATA /3637 DATA /3839 DATA /BA26 A20,A21 DATA /ABB3 A22,C22 P D
0x39ec10…39eda4 Dummy {f00=0x0155, f01=0x0190, f02=» DATA /7F7F DATA /7F7F DATA /7F7F , DATA /7F7F @ * T PFUNCSH EQU * ^ P DATA /7F9F A15,B15 r P DATA /BDBE B16,B17 P DATA /9C9D C15,C16 P DATA /9E99 C17,D15 P DATA /9A9B D16,D17 P DATA /BFB
0x39eda4…39ef38 Dummy {f00=0x0155, f01=0x018e, f02=»ATA /3637 DATA /3839 DATA /BA26 A20,A21 & P DATA /ABB4 A22,C22 B P DATA /B2A2 D22,D23 ^ DATA /A1A0 E15,E17 z DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,E23 DATA /7F7F DATA /7F7
0x39ef38…39f0cc Dummy {f00=0x0155, f01=0x0190, f02=» P DATA /7F7F ,C12 P DATA /B63C E00,A00 P DATA /7F2B ,E11 < P DATA /2E2D B08,B10 T P DATA /2C7F B09 p P DATA /3031 P DATA /3233 P DATA /3435 P DATA /3637 P DATA /3839 P DATA /ACA9 B12,C13 P
0x39f0cc…39f260 Dummy {f00=0x0155, f01=0x0190, f02=» P DATA /4849 P DATA /4A4B P DATA /4C4D , P DATA /4E4F @ P DATA /5051 T P DATA /5253 h P DATA /5455 | P DATA /5657 P DATA /5859 P DATA /5A5C P DATA /5B5D P DATA /277F D12 P* PSHIFT
0x39f260…39f3f4 (4, 439) Dummy {f00=0x0156, f01=0x0190, f02=»/7F3F ,E11 P DATA /3A5F B08,B10 P DATA /3B7F B09 . P DATA /3D21 F P DATA /2223 Z P DATA /2425 n P DATA /262F P DATA /2829 P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /404
0x39f3f4…39f588 Dummy {f00=0x0156, f01=0x018e, f02=»ATA /4E4F P DATA /5051 P DATA /5253 & P DATA /5455 : P DATA /5657 N P DATA /5859 b P DATA /5A5C v P DATA /5B5D P DATA /2A7F D12 P* PCTRL EQU * P DATA /207F A01 P DATA /7F7F P DATA /7F7
0x39f588…39f71c Dummy {f00=0x0156, f01=0x0190, f02=» P DATA /300D P DATA /3233 P DATA /3435 , P DATA /3637 @ P DATA /3839 T P DATA /ACA9 B12,C13 h P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647
0x39f71c…39f8b0 Dummy {f00=0x0156, f01=0x408e, f02=»455 P DATA /5657 P DATA /5859 P DATA /5A5C 4 P DATA /5B5D H P DATA /277F D12 P* t END ~@ 7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647
0x39f8b0…39fa44 Dummy {f00=0x0156, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x39fa44…39fbd8 Dummy {f00=0x0156, f01=0x0190, f02=»EGSET v & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN 8 PDSSOPI DSET FC=10 ` PDSSOPO DSET FC=11 z " P FMTCTL INDS=KEYB,OUTDS=SCREEN P* P* P* P* P* P START REGGO P STACK 1
0x39fbd8…39fd6c Dummy {f00=0x0156, f01=0x0190, f02=»TA DIVISION FOR IBM-3270 EMULATION PACKAGE. z B P* THIS MODULE ALSO CONTAINS THE CREDIT CODED 4 * P* START-UP ROUTINES. z P* H P******************************************************************** P P E
0x39fd6c…39ff00 Dummy {f00=0x0156, f01=0x0190, f02=»E F=NO SALDO AT ALL IN KORT . PCCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK $ 0 PCTESTFLG BOOL FALSE T=CONVERSION, TEST MODE V , PCTRVALG BOOL FALSE T: SKOVBO. F: VIBORG . PCFLT46 BOOL FALSE T=SPECIAL FIELD 46,TR=8 . PCFLT48 BOOL FALSE T=SPECIAL
0x39ff00…3a0094 (4, 440) Opaque[0x194]
0x3a0094…3a0228 # DirEnt {nam=»M:92NE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2ac8, f03=0x0000}
0x3a0094…3a0228 IdxSect {
0x3a0094…3a0228 f00 = 0x0156 // 0x3a0094 @0x0
0x3a0094…3a0228 f01 = 0x0002 // 0x3a0096 @0x2
0x3a0094…3a0228 gno = [ // 0x3a0098 @0x4
0x3a0094…3a0228 [0x00]: C0x0156.0x1.0
0x3a0094…3a0228 ]
0x3a0094…3a0228 }
0x3a0228…3a03bc Dummy {f00=0x0156, f01=0x0190, f02=» SCR LED DRDC15,/S * &!!CH $$TBLEN EQU 2300$$TBLEN EQU 252$$ & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x3a03bc…3a0550 Dummy {f00=0x0156, f01=0x004c, f02=»SCR ASM EBCDIC,NL KPF /O " SCR 0 ASG /E0,TY10 < & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x3a0550…3a06e4 Dummy {f00=0x0156, f01=0x2008, f02=» ASM EBCDIC,NL KPF /O " SCR 0 ASG /E0,TY10 < & $ !!CH $$CODE EQU 0$$CODE EQU 1$$ T !!EN | ASM /S,NL KPF /O SCR LED EBCDIC,/S $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL
0x3a06e4…3a0878 Dummy {f00=0x0156, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x3a0878…3a0a0c Dummy {f00=0x0156, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x3a0a0c…3a0ba0 Dummy {f00=0x0156, f01=0x4062, f02=» _ , L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x3a0ba0…3a0d34 (4, 441) Opaque[0x194]
0x3a0d34…3a0ec8 # DirEnt {nam=»M:92NE«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x26c0, f03=0x0000}
0x3a0d34…3a0ec8 IdxSect {
0x3a0d34…3a0ec8 f00 = 0x0136 // 0x3a0d34 @0x0
0x3a0d34…3a0ec8 f01 = 0x0020 // 0x3a0d36 @0x2
0x3a0d34…3a0ec8 gno = [ // 0x3a0d38 @0x4
0x3a0d34…3a0ec8 [0x00]: C0x0136.0x0.0
0x3a0d34…3a0ec8 [0x01]: C0x0136.0x1.0
0x3a0d34…3a0ec8 [0x02]: C0x0136.0x2.0
0x3a0d34…3a0ec8 [0x03]: C0x0136.0x3.0
0x3a0d34…3a0ec8 [0x04]: C0x0137.0x0.0
0x3a0d34…3a0ec8 [0x05]: C0x0137.0x1.0
0x3a0d34…3a0ec8 [0x06]: C0x0137.0x2.0
0x3a0d34…3a0ec8 [0x07]: C0x0137.0x3.0
0x3a0d34…3a0ec8 [0x08]: C0x0138.0x0.0
0x3a0d34…3a0ec8 [0x09]: C0x0138.0x1.0
0x3a0d34…3a0ec8 [0x0a]: C0x0138.0x2.0
0x3a0d34…3a0ec8 [0x0b]: C0x0138.0x3.0
0x3a0d34…3a0ec8 [0x0c]: C0x0139.0x0.0
0x3a0d34…3a0ec8 [0x0d]: C0x0187.0x0.0
0x3a0d34…3a0ec8 [0x0e]: C0x0188.0x1.0
0x3a0d34…3a0ec8 [0x0f]: C0x018c.0x2.0
0x3a0d34…3a0ec8 ]
0x3a0d34…3a0ec8 }
0x3a0ec8…3a105c Dummy {f00=0x0136, f01=0x0190, f02=» w J h h h h h h < h h% % $ . 8 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
0x3a105c…3a11f0 Dummy {f00=0x0136, 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 " ^b _ @^b > > U # T @ H ( ( P c P W: P, A^b @ V ( U P" @EVV LEVW @Eh
0x3a11f0…3a1384 Dummy {f00=0x0136, f01=0x0190, f02=» 6 8 ^h Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @^` : ) A^`_ @ @ A H ( A^b_ ? ? ? ? ? ^ A _ _ ^ ^` $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x3a1384…3a1518 Dummy {f00=0x0136, f01=0x0190, f02=» Q Q > > 0 @^4 1 A^4 P P > ? * X " R" Y T ? X D E T> ZrW8 > _& @ 8 R" Y T ? X D E T ZrW > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @^(V ? ^( > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x3a1518…3a16ac Dummy {f00=0x0136, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U ^ XH D #DP @ R XV Y @ P, E T W X &P T X I Y T # C C W4 O " # X Y ) C
0x3a16ac…3a1840 Dummy {f00=0x0136, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x3a1840…3a19d4 (4, 442) Dummy {f00=0x0136, f01=0x0190, f02=» 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 _@(@ L U L Q0 M & X
0x3a19d4…3a1b68 Dummy {f00=0x0136, f01=0x0190, f02=» 0P X T 4 Y X E X T X Z 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > ^:J B B ^BJ B B pU
0x3a1b68…3a1cfc Dummy {f00=0x0136, f01=0x0190, f02=» 0 R t B " P Q :A H P P ^x H !@T I ^ T ! 1 U ^| A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x3a1cfc…3a1e90 Dummy {f00=0x0136, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ E P 8R R ^ Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ^ ;h # <c$
0x3a1e90…3a2024 Dummy {f00=0x0136, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T E W u > > E D E
0x3a2024…3a21b8 Dummy {f00=0x0136, f01=0x0190, f02=»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 " ] ~ Y > > V P
0x3a21b8…3a234c Dummy {f00=0x0136, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P ^x A^^W A^^ @^^A.W ? A dI.9 X R C C & ^ ?A @^^A. X V 9_: @
0x3a234c…3a24e0 Dummy {f00=0x0136, f01=0x0190, f02=» Pb P Pv Pz * 6 + ^x A^^ @^^A. H E d ^ Y HW A^^ @^^A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x3a24e0…3a2674 (4, 443) Dummy {f00=0x0136, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X
0x3a2674…3a2808 Dummy {f00=0x0136, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & ^ _ ? , Y " X $ T X Y $ Y X HP 1 Y H ^^ 0 Y J 1 0B. X (P y (_^ ( E _n Y ( " X . P Y : ! F ! H X # P
0x3a2808…3a299c Dummy {f00=0x0136, f01=0x0190, f02=» D C Y B ^ K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x3a299c…3a2b30 Dummy {f00=0x0136, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P
0x3a2b30…3a2cc4 Dummy {f00=0x0136, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x3a2cc4…3a2e58 Dummy {f00=0x0136, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ X' X' P Y : ! ! H X # P
0x3a2e58…3a2fec Dummy {f00=0x0136, f01=0x0190, f02=»:H B # LCD Y @ P P $_ E _` _$ X 9 'jP. @B CD ^x @C `C @C P 0P _ % AB AC &_ B QJ Z X ! 3 #P_ X P 0 Y P C x_ 6_ B Y _ ^| X P A H E P Y Wb Y @_ X X A l
0x3a2fec…3a3180 Dummy {f00=0x0136, f01=0x0190, f02=»X( P _ 0 )_6 (P _ ) 1 4 'j X R2 X T* X P& , Y L C L C x > @ @ @ A X &_" X P y Y X P T @ T A A > A A A A A W > ! H
0x3a3180…3a3314 (4, 444) Dummy {f00=0x0136, f01=0x0190, f02=»I A P " " !&T #d_ !&T T 'j " " X !&:_ !' A @ P @ P !#f A A _ !' @ P @' X@ !# TD A !$p @ P( @' P" @ 8 !" X Y !#f A _B !&: X>_b A @' @ T 1 Z 0 2P P P A @ 8 HDD @' P E 'j
0x3a3314…3a34a8 Dummy {f00=0x0136, f01=0x0190, f02=» @ A Y " @ _D !' @ T @ P !$ !' @ T @ X Wj A I E " ^ @ @ @ A #: !' @ XN !&: T @ P !$x !& _h /T& @ X @ P !#f !$t A _ A #: < A @ T _, _0 @ T<W @' T !$`_ !" !$R_ A A HDD E
0x3a34a8…3a363c Dummy {f00=0x0136, f01=0x0190, f02=» !$ !& A _^ Y Y " W _j @ P< @ T6 X R0 X P T$ T Y W P C & A A @ P X Y 4 @' @ T @ A @ A A !&DT2 P4 PJ PL P P. 1 A @ ]6W P _@ @' @ E !'FP !& 4
0x3a363c…3a37d0 Dummy {f00=0x0136, f01=0x0190, f02=» @ @ A @ T$ @'k !&B 8 !&BW - !&B x !B W 0 " WL R ~T }T T0 W, !&B P " ! " :A *@ HCD T 0 !&B W R !&B A @ @ UH Zt Q P Q T 0 !&B A 0 !&B A !&B " !&0 " !&0 $ A _" B J B !&: !
0x3a37d0…3a3964 Dummy {f00=0x0136, f01=0x0190, f02=»B P W !' ^ _ !&: ! 1 4 A&R @C `C @C P 0 M A&R 4 ? @ A @ T & @ A & ^ A a 4 E & X A > E & Z A 4 A !& @ P !$x !& @ P a A 4 A'@ A'B A'D ?a :a# P @'@ @
0x3a3964…3a3af8 Dummy {f00=0x0136, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a3af8…3a3c8c Dummy {f00=0x0136, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a3c8c…3a3e20 Dummy {f00=0x0136, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a3e20…3a3fb4 (4, 445) Dummy {f00=0x0137, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a3fb4…3a4148 Dummy {f00=0x0137, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - ! x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a4148…3a42dc Dummy {f00=0x0137, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a42dc…3a4470 Dummy {f00=0x0137, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a4470…3a4604 Dummy {f00=0x0137, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a4604…3a4798 Dummy {f00=0x0137, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a4798…3a492c Dummy {f00=0x0137, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a492c…3a4ac0 Dummy {f00=0x0137, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a4ac0…3a4c54 (4, 446) Dummy {f00=0x0137, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a4c54…3a4de8 Dummy {f00=0x0137, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a4de8…3a4f7c Dummy {f00=0x0137, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a4f7c…3a5110 Dummy {f00=0x0137, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a5110…3a52a4 Dummy {f00=0x0137, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a52a4…3a5438 Dummy {f00=0x0137, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A @ @ U Zt Q P Q T 0 ! A 0 ! A ! " ! " ! $ A _" B J B ! !
0x3a5438…3a55cc Dummy {f00=0x0137, f01=0x0190, f02=»B P W ! _ !&: ! 1 4 A&R @ ` @ P 0 M A&R 4 ? @ A @ T @ A A a 4 & X A > Z A 4 A !& @ P !$x !& @ P a A 4 A A A ?a :a# P @ @
0x3a55cc…3a5760 Dummy {f00=0x0137, f01=0x0190, f02=» @ @ A @ T @ ! 8 ! W - x ! W 0 " W R ~T }T T W ! P " ! " :A *@ H T 0 ! :f"? HB !&B "? HB !&B 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="C C
0x3a5760…3a58f4 (4, 447) Dummy {f00=0x0137, f01=0x0190, f02=»<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj
0x3a58f4…3a5a88 Dummy {f00=0x0137, f01=0x0190, f02=» t _< ? ^ 4 _ P P @ 6 1 A 6 _ P 9 > > & D^ _ _ _ D _(x x y yvy { { x^xr FzFzG G G G G G G G F GLF F G G F G G G F " # $ % "$&( E E @ D X P _ L !##P T
0x3a5a88…3a5c1c Dummy {f00=0x0137, f01=0x0190, f02=» Y $ 0 Y . G [2 G B Y I B Y J_ W [| C P C W < C C _H [| H H S W C C B B B U Z R Wp H TP L P B r L ( ]H $ X _ X ` T I T J Z P C X I X J S W
0x3a5c1c…3a5db0 Dummy {f00=0x0137, f01=0x0190, f02=» ^|I I M>M>M>M>M>K K I M>K I M>M>M>M>K K I F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @^b Q (@ F ] : @ _
0x3a5db0…3a5f44 Dummy {f00=0x0137, f01=0x0190, f02=» 6 M> B W C X '? G X & X ( )T M> H& H L X $TT T AH$ J , ZN P W T Y $ P T _ Y & F & .(@ _ K X & X I U X J U ( 6 T$ X X RP F H| T M> P `
0x3a5f44…3a60d8 Dummy {f00=0x0137, f01=0x0190, f02=» @W( 1 AW((@_ 1 (@ K` / O $P % 4 F H| (@ B & P 9 . MT 4' K ' K 5 K 4 Q W , P& ,' X X 1 Z" ) K _ (@ C ( B ! M> K @H$ F U G F G H M< &
0x3a60d8…3a626c Dummy {f00=0x0137, f01=0x0190, f02=» @^b Q (@ ]H + X ^V" P "P8 $P4W X & X bT( ;AR ( L ( I 6 T Y ^ F " F D '? P P( $ P" [| I I K K P P & P [2W D $ T Z T [ W E I E J X ^V ? T B & &(@(
0x3a626c…3a6400 Dummy {f00=0x0137, f01=0x0190, f02=» C C W C ( Mf Mh L " TOP P Azp L Azn L C zl @zn AznQ< @z> P4 Az> @z P B & Dz@ EzBX #D( M ( B & B @z> Dz@ W C C ( Mf Mh zl z< @z T Azp 0" P
0x3a6400…3a6594 (4, 448) Dummy {f00=0x0137, f01=0x0190, f02=» Q 2% P( R 0 Xz@T R , @zpT R RT @z P P 6 Q 2% P P zj r P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @zp S , d S B | N N* @zHT W zjT Wz @z P R ( >a
0x3a6594…3a6728 Dummy {f00=0x0137, f01=0x0190, f02=» Dz " P zr Azs ( ^ W @z P6 I @z P @Y V W HY IY (@ @zjP -W P B & . z (@( @z Q^ _ T `z< ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * Z( S b P
0x3a6728…3a68bc Dummy {f00=0x0137, f01=0x0190, f02=» 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N N* @ T W T W @ P R ( >a
0x3a68bc…3a6a50 Dummy {f00=0x0137, f01=0x0190, f02=» D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ Q^ _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b P
0x3a6a50…3a6be4 Dummy {f00=0x0137, f01=0x0190, f02=» 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N N* @ T W T W @ P R ( >a
0x3a6be4…3a6d78 Dummy {f00=0x0137, f01=0x0190, f02=» D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ Q^ _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b P
0x3a6d78…3a6f0c Dummy {f00=0x0137, f01=0x0190, f02=» 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S E S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N N* @ T W T W @ P R ( >a
0x3a6f0c…3a70a0 Dummy {f00=0x0137, f01=0x0190, f02=» D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W Z P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _
0x3a70a0…3a7234 (4, 449) Dummy {f00=0x0138, f01=0x0190, f02=»W : X + P X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @^4 1 A^4 Z> : D NW (P D + I W6 @W(T n ( AW( U 1_ D + I D N ) E N : T * ZNSP P W X * 0 U U. _ Y . R P Y
0x3a7234…3a73c8 Dummy {f00=0x0138, f01=0x0190, f02=» P P X T _ X . P X $ ! # C W C C X %? : X &_ 0 D . P , _ D . D $ D * Z( T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x
0x3a73c8…3a755c Dummy {f00=0x0138, f01=0x0190, f02=» ) YR_L U p 0_8 $_< &| h N | r m _ cZf h iv > > @^b 0 A^bW & ^ ! Z( ^` (X0 @^bP T M ]@ , ) A^b P* P Y U ( ) 5 & > > [ [ ^b Z Z Z ? Z > P "R Y W 0
0x3a755c…3a76f0 Dummy {f00=0x0138, f01=0x0190, f02=»P - _ ( ( _ a _ ? X V Y ^ ! 2W< Y U R -P a X , ) Y . a X P Y P C W~ 8!@P$ X $P y $W $ E b^ ` Y $ X " PP:A: R Q W Y <D X ? ?: T p > c" > Ph P C a B
0x3a76f0…3a7884 Dummy {f00=0x0138, f01=0x0190, f02=» R % C c"* ! W Y +PH Y *P> Y (P Y )P c" R _Q P OR R W " ! B `" Wr W 0 Z c" ! B Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P c" _ X $P y $ Y $ C ! ^|" b QfR$ X
0x3a7884…3a7a18 Dummy {f00=0x0138, f01=0x0190, f02=» Z _X ? 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 > XT 0 _ d cv e e !"&';<>@^_
0x3a7a18…3a7bac Dummy {f00=0x0138, f01=0x0190, f02=» P X & V T Y &W cB X ! T6 B R0Q$ B D ! V ! ! ! W !f !d Y ! T ! V cl ! B C ! ! T " T W Q " T ) ^| !fn cL Y _ ! !fB Y &P Q W ! Y '" e _" cF_< !f6_n !fn_t B B
0x3a7bac…3a7d40 Dummy {f00=0x0138, f01=0x0190, f02=» M T2 ! L ,! :D" !f* Y Y U ! _$ W4 , ! T ,' cb ! R !__U C X ' W Y ! _ X RT U TJ X d ? Y X P " ! Y ' ! X T ! ^| c ^ R _ 4 ! ! ! " T ! ! !
0x3a7d40…3a7ed4 (4, 450) Dummy {f00=0x0138, f01=0x0190, f02=»# +P ! ! T ! Y & ! W ! ! W ! Y Y g F U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _ F" Hf _ ! ! g & ^ X C
0x3a7ed4…3a8068 Dummy {f00=0x0138, f01=0x0190, f02=»V0 ! P* P P P" R ?Q ! Y R Q g -_ ? _ X # ! ^ Y _( ? X Z ! P4 P g g X " f ! ! X & g g h i:ij B 8# T $ # ;D 7P P ^x Y W Y X Y 8# T W$ T( X $ P X
0x3a8068…3a81fc Dummy {f00=0x0138, f01=0x0190, f02=»" +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 l ! k B B U4 $ ! T _ U D ! T _ $$ X" X& X* C F kN X`" Ei P( 8'0P Ei TD ! T 9 _ ! T @_ ! F B P !m B C
0x3a81fc…3a8390 Dummy {f00=0x0138, f01=0x0190, f02=»kv B Y & !m<W j^ 8!0T 8 !@P ! $ P ! ! k ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P !l j^ R V P P" !
0x3a8390…3a8524 Dummy {f00=0x0138, f01=0x0190, f02=» Y 4 B j U )X R@ X X &" Y * X ) V Y !m X $ X & !m< X * j^ j `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k > v w F B P ! B C
0x3a8524…3a86b8 Dummy {f00=0x0138, f01=0x0190, f02=» B Y & ! W j^ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! j^ R V P P !
0x3a86b8…3a884c Dummy {f00=0x0138, f01=0x0190, f02=» Y 4 B j U )X R@ X X &" Y * X ) V Y !m X $ X & !m< X * j^ j `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k > F B P ! B C
0x3a884c…3a89e0 Dummy {f00=0x0138, f01=0x0190, f02=» B Y & ! W j^ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! j^ R V P P !
0x3a89e0…3a8b74 (4, 451) Dummy {f00=0x0138, f01=0x0190, f02=» Y 4 B j U )X R@ X X &" Y * X ) V Y !m X $ X & !m< X * j^ j `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k > F B P ! B C
0x3a8b74…3a8d08 Dummy {f00=0x0138, f01=0x0190, f02=» B Y & ! W j^ 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X $ P ! j^ R V P P !
0x3a8d08…3a8e9c Dummy {f00=0x0138, f01=0x0190, f02=» Y 4 B j U )X R@ X X &" Y * X ) V Y !m X $ X & !m< X * j^ j `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k > F B P ! B C
0x3a8e9c…3a9030 Dummy {f00=0x0138, f01=0x0190, f02=»W< m T6 w ' P !x & B # P G W G & ^ X P P R: AwT E w Y X T Q (P H U ^ 9 1_N ^x X T @m P ( Am x _ ( Y _ m _x X T @m P ( Am x _ ( Y _ m _ i w 9 @_ x H m P m P
0x3a9030…3a91c4 Dummy {f00=0x0138, f01=0x0190, f02=» P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y X H P &
0x3a91c4…3a9358 Dummy {f00=0x0138, f01=0x0190, f02=» z$ P ?_" = > = > = =_D R _ 00 > & <h$ P > m _x X T @m P ( Am x _ ( Y @z8P 4 Az8 U W Az8 Az6 @z: U : Az Az :A
0x3a9358…3a94ec Dummy {f00=0x0138, f01=0x0190, f02=» Pl 0T< Y Hz@! R W 9a Iz@ T T 9a HzA Ez ^ W P ,! T T ( R : n "' # z @z6P z8 $ ) 5 ^ Az6 Az Az: z " ]H z< AzH "" P U W z z< P @z> Ez@ "# P P @z: P (
0x3a94ec…3a9680 Dummy {f00=0x0138, f01=0x0190, f02=» @z> Dz@ #D T G W, Az M "R Az Azj ^ z }. ~ m _x X T @m P ( Am x _ ( Y @z8P 4 Az8 U W Az8 Az6 @z: U : Az Az :A
0x3a9680…3a9814 (4, 452) Dummy {f00=0x0138, f01=0x0190, f02=» P 0T Y Hz@! R W 9a Iz@ T T 9a HzA Ez ^ W P ,! T T ( : n "' # r @z6P z8 $ ) 5 ^ Az6 Az Az: z " ]H z< AzH "" P U W z z< P @z> Ez@ "# P P @z: P (
0x3a9814…3a99a8 Dummy {f00=0x0138, f01=0x0190, f02=» @z> Dz@ #D T G W, Az M "R Az Azj ^ z m _x X T @m P ( Am x _ ( Y @z8P 4 Az8 U W Az8 Az6 @z: U : Az Az :A
0x3a99a8…3a9b3c Dummy {f00=0x0138, f01=0x0190, f02=» P 0T Y Hz@! R W 9a Iz@ T T 9a HzA Ez ^ W P ,! T T ( : n "' # @z6P z8 $ ) 5 ^ Az6 Az Az: z " ]H z< AzH "" P }. z z< P @z> Ez@ "# P P @z: P (
0x3a9b3c…3a9cd0 Dummy {f00=0x0138, f01=0x0190, f02=» @z> Dz@ #D T G W, Az M "R Az Azj ^ z m _x X T @m P ( Am x _ ( Y @z8P 4 Az8 U W Az8 Az6 @z: U : @}* ,
0x3a9cd0…3a9e64 Dummy {f00=0x0138, f01=0x0190, f02=» @}* , L T M @}* : =a 9a Q - _ - > @ HPJ r Q W( R W* AW( Y R @}* , - M M M @}* Az6 Az8 > 0 p 0123456789 & 0123456789 &
0x3a9e64…3a9ff8 Dummy {f00=0x0138, f01=0x0190, f02=»XYZ []* < +.-, 0 23456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ($SWAP A A A A. UU @ @ ! P$>B @ A @ E D P _ $ % $P _ % A @ " Q A : R W2 A A P.
0x3a9ff8…3aa18c Dummy {f00=0x0138, f01=0x0190, f02=» ;b=H F CR X F XW =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q Y P @ T W - P _
0x3aa18c…3aa320 Dummy {f00=0x0138, f01=0x0190, f02=» V W Y* P Z( = :L < P W <9B @ V W Q W @ @ A @ CRT @ P @ ! P W @ V P _ @ ! P !RRP V @ P W _: |
0x3aa320…3aa4b4 (4, 453) Dummy {f00=0x0139, f01=0x0190, f02=» W W P TJ V 0 !;;P P V P$ _ P !;;T X$ W _J T W > W W V 0 !;;P P V Xb _ P !;;T X$ W nP XZ_V S A ;
0x3aa4b4…3aa648 Dummy {f00=0x0139, f01=0x0190, f02=» A I. : C. X C.9h! # " :A K : A T.I T P 1 I P < R P A _> : H A A A A A P A T A t A x : 9e9C) A I " 9A ! 9B r @ r A I ! ( : A A
0x3aa648…3aa7dc Dummy {f00=0x0139, f01=0x0190, f02=» 9PJ 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 _ "_ !SST& 0 U R X A X W : @ ' R xW V W$ V
0x3aa7dc…3aa970 Dummy {f00=0x0139, f01=0x0190, f02=»T : A _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ : & j A
0x3aa970…3aab04 Dummy {f00=0x0139, f01=0x0190, f02=» $ )_ : W W W W W JQ@ V V v x W V V v p R( W V W ^< _@ V _P V V : V J P 6 r JV U 6 _ V 6 Z K W W :K W
0x3aab04…3aac98 Dummy {f00=0x0139, f01=0x0190, f02=»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 : W R R P X ~ W x _ V : " D
0x3aac98…3aae2c Dummy {f00=0x0139, f01=0x0190, f02=» 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 ; V : : , X G : J @
0x3aae2c…3aafc0 Dummy {f00=0x0139, f01=0x0190, f02=» ) v : 4P: " D , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W $ H ) P _ " = D 4 Q f_d P = G $ < V W $ j V E J K
0x3aafc0…3ab154 (4, 454) Dummy {f00=0x0187, f01=0x0190, f02=» @ 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 Y& P4 ^6 ^6 S P 3
0x3ab154…3ab2e8 Dummy {f00=0x0187, f01=0x0190, f02=» l : |R X W n V pT : N V l W H V ]" . nT" W v ~ W n V ~P W x f Z _v V d , V P _ N L % V d V f v G G v U ~ v G v : P X |V :
0x3ab2e8…3ab47c Dummy {f00=0x0187, f01=0x0190, f02=» r W V v ) W b G v ) - V W f v ) G v ` " W p W ~ pP0 B R P N _ W ~ R X4 N _ ` @ ` W W ~ pPn P V W % B R ,
0x3ab47c…3ab610 Dummy {f00=0x0187, f01=0x0190, f02=» pPl H - V I < " R E R T E D E @ v H v E j #_v W | ;b W W t V b v ( v W p V ` $ W ` ;h 0 :C # : .=H N .=H N
0x3ab610…3ab7a4 Dummy {f00=0x0187, f01=0x0190, f02=»;A @ JR - @ - N !TTP N :H N TBT W W8 2 " T @ N =H N @ ) !TTXX !CCT !UUT d `Wh N 2 .:H N P V _ R :h " N
0x3ab7a4…3ab938 Dummy {f00=0x0187, f01=0x0190, f02=» 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 8 W W t V V : x A
0x3ab938…3abacc Dummy {f00=0x0187, f01=0x0190, f02=» X * _6 : @ ] @ 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
0x3abacc…3abc60 Dummy {f00=0x0187, f01=0x0190, f02=» W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P P0 r " U _2 P0 " U _2 V V tPJ S ( V | S =J @
0x3abc60…3abdf4 (4, 455) Dummy {f00=0x0188, f01=0x0190, f02=»T : @ ! P @ @ < CRT 3 @ < < S @ < PP < !RRP @ ! T 3 @ & P < 3 < 3 YL @ @ T : ^4 ` @ P _ 3 S S
0x3abdf4…3abf88 Dummy {f00=0x0188, f01=0x0190, f02=» 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 !TTX @ @ T : @ R @
0x3abf88…3ac11c Dummy {f00=0x0188, f01=0x0190, f02=» W d G =h G V d V r < V f P W f _B V W V t Yr !TTX @ @ T : !TTX !CCTr P, V r 4 U $ $ _. P, V 4 U $ $ _. @
0x3ac11c…3ac2b0 Dummy {f00=0x0188, f01=0x0190, f02=» 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 V @ 0 V P _ W $ q
0x3ac2b0…3ac444 Dummy {f00=0x0188, f01=0x0190, f02=» 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 WR# T W W,# T W W # T W W
0x3ac444…3ac5d8 Dummy {f00=0x0188, f01=0x0190, f02=» *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]^:W v P _ @ @ T : N =H N : N =H N : &=H F : F =H F : F =H F :
0x3ac5d8…3ac76c Dummy {f00=0x0188, f01=0x0190, f02=» @ < CRT" @ ! P ` @ E "W ` @ E " ! 1 H 0 1 2 P @ x @ P 6 0 n 4 ` a `'j , , , , ,m T m ,
0x3ac76c…3ac900 Dummy {f00=0x0188, f01=0x0190, f02=» * H 8ivDY t @ P @ _ KB =H N @
0x3ac900…3aca94 (4, 456) Dummy {f00=0x018c, f01=0x0190, f02=» l @ P _ KB 6 2h DI * ?O_o 8ivDY b ,
0x3aca94…3acc28 Dummy {f00=0x018c, f01=0x0190, f02=»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 h P INR A2,0,LCUIN READ CHAR , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS P IFF LOGG=0 ( P CF A5,LOGIN
0x3acc28…3acdbc Dummy {f00=0x018c, f01=0x0190, f02=»F(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF 8 P IFT CODE=1 D P C2 SYNSW X 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME j P CWK A2,SYNEBC P RF(E) READ SKIP EBCDIC SYN PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE CR
0x3acdbc…3acf50 Dummy {f00=0x018c, f01=0x0190, f02=» t P ABL BRM P XIF P IFT P6805=1 $ PIHIN20 RF SST PERFORM SST 8 P XIF Z P f P* p P* z P* TRANSMITTER INTERRUPT P* P* PIH1502 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SA
0x3acf50…3ad0e4 Dummy {f00=0x018c, f01=0x018e, f02=» - A8 p P RB IHIN10 P P* * P* 4 & P* SST INSTRUCTION AND STATUS CHECK > P* h ( P* LCU STATUS : BIT 10=CARRIER OFF r & P* BIT 13=PARITY ERROR (6805 ONLY) , P* BIT 14=THROUGHPUT ERROR , P*
0x3ad0e4…3ad278 Dummy {f00=0x018c, f01=0x0190, f02=» P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION * P XIF T P IFT P6805=0 ` P ANK A2,2 t P RF(Z) SST100 P XIF P IFT P6805=1 P ANK A2,6 P RF(Z) SST100 P ANK A2,2 P RF(NZ) SST050 THR
0x3ad278…3ad40c Dummy {f00=0x018c, f01=0x0190, f02=»L A5,STB P ABL BRM010 PSST100 EQU * $ P ST A1,DCSTCU 8 P IFT P6805=0 N * P CF A15,CKMESS CHECK IF STATUS CHANGE b P RTN A5 P XIF P IFT P6805=1 P ANK A1,/21 P RF(Z) SST200 LSALCUZ 0 P CF A15,SETIME LINE ER
0x3ad40c…3ad5a0 Dummy {f00=0x018c, f01=0x0190, f02=»ET ADK A5,4 P LDR A1,A1 SET CR P ABR* A5 RETURN . P XIF F P* R P* P* HALT INPUT f P* z P* PHALTIN LDK A1,0 P CIO A1,0,LCUIN P IFT P6805=0 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x3ad5a0…3ad734 (4, 457) Opaque[0x194]
0x3ad734…3ad8c8 # DirEnt {nam=»M:92N1«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2b50, f03=0x0000}
0x3ad734…3ad8c8 IdxSect {
0x3ad734…3ad8c8 f00 = 0x015a // 0x3ad734 @0x0
0x3ad734…3ad8c8 f01 = 0x0002 // 0x3ad736 @0x2
0x3ad734…3ad8c8 gno = [ // 0x3ad738 @0x4
0x3ad734…3ad8c8 [0x00]: C0x015a.0x2.0
0x3ad734…3ad8c8 ]
0x3ad734…3ad8c8 }
0x3ad8c8…3ada5c Dummy {f00=0x015a, f01=0x010c, f02=» SCR LED DRDC15,/S ( #!!CH $$RBUFNR EQU 2$$RBUFNR EQU 1$$ & !!EN R ASM /S,NL ^ KPF /O p SCR ~ INC SYSTAB LKE M KPF /L,M:92N1 SCR ASM DRDC15,NL KPF /O SCR ASG /E0,TY10
0x3ada5c…3adbf0 Dummy {f00=0x015a, f01=0x2008, f02=» LED DRDC15,/S ( #!!CH $$RBUFNR EQU 2$$RBUFNR EQU 1$$ & !!EN R ASM /S,NL ^ KPF /O p SCR ~ INC SYSTAB LKE M KPF /L,M:92N1 SCR ASM DRDC15,NL KPF /O SCR ASG /E0,TY10
0x3adbf0…3add84 Dummy {f00=0x015a, f01=0x0190, f02=» 6 = 1 [ B w p w P 8 J v 1 W . * s E = 2 S 3 ^ c . 0 < d!& &01GEBRATRTEASSIGN DISCFEJL ! & 0 F V
0x3add84…3adf18 Dummy {f00=0x015a, f01=0x018e, f02=» $ 4 D T d t C J F " D R2 RRRW50X ! L A H L R( 2 R
0x3adf18…3ae0ac Dummy {f00=0x015a, f01=0x0190, f02=» 4 B ( 8 H X h z J F " D L90X _;0XW 0XW 0XW 0XW 0XW 0XW 0XW 0X8R:R;R R L8R7 GG;GG;7;; .
0x3ae0ac…3ae240 Dummy {f00=0x015a, f01=0x0190, f02=» 4 7 $ 9 & ; 6 = F J F " D ;7;7?R L1X L?R L0X T b ! L LA _ LWK0X ) L R?R0X K V B K N Q S * Z @
0x3ae240…3ae3d4 (4, 458) Opaque[0x194]
0x3ae3d4…3ae568 # DirEnt {nam=»M:92N1«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2b58, f03=0x0000}
0x3ae3d4…3ae568 IdxSect {
0x3ae3d4…3ae568 f00 = 0x015a // 0x3ae3d4 @0x0
0x3ae3d4…3ae568 f01 = 0x001e // 0x3ae3d6 @0x2
0x3ae3d4…3ae568 gno = [ // 0x3ae3d8 @0x4
0x3ae3d4…3ae568 [0x00]: C0x015a.0x3.0
0x3ae3d4…3ae568 [0x01]: C0x015b.0x0.0
0x3ae3d4…3ae568 [0x02]: C0x015b.0x1.0
0x3ae3d4…3ae568 [0x03]: C0x015b.0x2.0
0x3ae3d4…3ae568 [0x04]: C0x015b.0x3.0
0x3ae3d4…3ae568 [0x05]: C0x015c.0x0.0
0x3ae3d4…3ae568 [0x06]: C0x015c.0x1.0
0x3ae3d4…3ae568 [0x07]: C0x015c.0x2.0
0x3ae3d4…3ae568 [0x08]: C0x015c.0x3.0
0x3ae3d4…3ae568 [0x09]: C0x015d.0x0.0
0x3ae3d4…3ae568 [0x0a]: C0x015d.0x1.0
0x3ae3d4…3ae568 [0x0b]: C0x015d.0x2.0
0x3ae3d4…3ae568 [0x0c]: C0x015d.0x3.0
0x3ae3d4…3ae568 [0x0d]: C0x015e.0x0.0
0x3ae3d4…3ae568 [0x0e]: C0x015e.0x1.0
0x3ae3d4…3ae568 ]
0x3ae3d4…3ae568 }
0x3ae568…3ae6fc Dummy {f00=0x015a, f01=0x0190, f02=»z p J h h h h h h < h h%>%d $ . 8 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
0x3ae6fc…3ae890 Dummy {f00=0x015a, 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 " S _ @S > > U # T @ H ( ( P c P W: P, AS @ V ( U P" @: V L: W @:
0x3ae890…3aea24 Dummy {f00=0x015a, f01=0x0190, f02=» 6 8 S Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @S : ) AS _ @ @ A H ( AS _ ? ? ? ? ? ^ A _ _ ^ S $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x3aea24…3aebb8 Dummy {f00=0x015a, f01=0x0190, f02=» Q Q > > 0 @Sh 1 ASh P P > ? * X " R" Y T ? X D ; T> O W8 > _& @ 8 R" Y T ? X D ; T O W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @S V ? S > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x3aebb8…3aed4c Dummy {f00=0x015a, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U S XH D #DP @ R XV Y @ P, ; T W X &P T X I Y T # C C W4 O " # X Y ) C
0x3aed4c…3aeee0 Dummy {f00=0x015a, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x3aeee0…3af074 (4, 459) Dummy {f00=0x015b, f01=0x0190, f02=» 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 _@(@ L U L Q0 M & X
0x3af074…3af208 Dummy {f00=0x015b, f01=0x0190, f02=» 0P X T 4 Y X ; X T X O 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > SnJ B B SvJ B B pU
0x3af208…3af39c Dummy {f00=0x015b, f01=0x0190, f02=» 0 R t B " P Q :A H P P S H !@T I S T ! 1 U S A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x3af39c…3af530 Dummy {f00=0x015b, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ :L P 8R R S Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ S ;h # <c$
0x3af530…3af6c4 Dummy {f00=0x015b, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T :L W u > > E D E
0x3af6c4…3af858 Dummy {f00=0x015b, f01=0x0190, f02=»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 " ] ~ Y > > V P
0x3af858…3af9ec Dummy {f00=0x015b, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P S AS W AS @S A.W ? A dI.9 X R C C & S ?A @S A. X V 9_: @
0x3af9ec…3afb80 Dummy {f00=0x015b, f01=0x0190, f02=» Pb P Pv Pz * 6 + S AS @S A. H :L d S Y HW AS @S A. Wx ! * X , X P ! ! BW< ! * _ ! * _& ! X , X P ! H X , X P B B ! f ! B ! T Y *W X * p ! H# f & ! H ! " 0 TOT
0x3afb80…3afd14 (4, 460) Dummy {f00=0x015b, f01=0x0190, f02=»& Ph B @ @ :C P ! H 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * f " ! H_ Y * 4 ! ~ PT C ! l ! H ! (@ ! ~ R _ ! V 1 ;h 1 ! V 1 ! ! l* ! B ! ! ~ ) ! H Y *# T X
0x3afd14…3afea8 Dummy {f00=0x015b, f01=0x0190, f02=» ! B ! ~ ! T )WL WP ! ~ Xz R ! ( - j ! ) W. Y PW Y P Y L Y N Y B S W W B C & S _ ? , Y " X $ T X Y $ Y X HP 1 Y H S 0 Y J 1 0B. X (P y (_^ ( :L _n Y ( " X . P Y : ! F ! H X # P
0x3afea8…3b003c Dummy {f00=0x015b, f01=0x0190, f02=» D C Y B S K & E % Y B K , X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X t " _ W B RZ X , X P W P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x3b003c…3b01d0 Dummy {f00=0x015b, f01=0x0190, f02=»U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 r ! (:C 4 Z ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ _n Y " X P Y : ! ! H X # P
0x3b01d0…3b0364 Dummy {f00=0x015b, f01=0x0190, f02=» P Y P 7P < $ <C ! 9 4 X t " _ W B R X X P W P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 x @ P ;A _ 4
0x3b0364…3b04f8 Dummy {f00=0x015b, f01=0x0190, f02=»U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R _ ;H 4 ! (:C 4 ! ( 4 X " 4 ! ) 4 X P t 4 P y _^ & & P Y : ! ! H X # P
0x3b04f8…3b068c Dummy {f00=0x015b, f01=0x0190, f02=» @94P 0P _ % A92 A96 &_^ B Q< R_r X P 0 Y P C x_ _ B Y _N S X P A :J Y Wb Y @_x X X A :J Y _& Y h @ 0 A ^ A _: X P ( y Y W & (P 0 ) > (P _ ) 1_
0x3b068c…3b0820 Dummy {f00=0x015b, f01=0x0190, f02=» @ @ A X &_" X P y Y X P T h @ T A ^ A > A > A B A F A J A N RW > 4 " !% B !% T P P ! ! ! !% Tf Tb A& P A& TR !% TL !% TD T@ !%
0x3b0820…3b09b4 (4, 461) Dummy {f00=0x015b, f01=0x0190, f02=» @ `P @& X@ !#: T< A d !# ~ @ ^P @& P @ 8 !"f !" A h_: !% X6_Z A d @& @ tT 1 R 0 2P P P A r > @ Z 8 H9x @& P E & PF X R@ X P X T2 P C * C X T ! W xW( &W" X R X T & ! !# ~_ A
0x3b09b4…3b0b48 Dummy {f00=0x015b, f01=0x0190, f02=» @ @ t @ n A r " !&~ @ ^XN !% T @ hP !# !&N_h 1T& @ hX @ bP !" !# A f_ A h " < A ^ @ bT _, _0 @ ^T8W ~ @& T !# _ !"f !# _ A ` A r E A d A Z 4 @ ^P !# !&N ~ !&*W ~ @ T !# _ T h_ l A / C P B B A
0x3b0b48…3b0cdc Dummy {f00=0x015b, f01=0x0190, f02=» @ dT @ t A r @ r A t A d !% T2 P4 PJ PL P P. 1 A r @ r ]6W P _@ @& @ r E !& P !% 4 _$ !& 2_l 1 A hT 0W ;W A z A {W W W A z A { !%$ @ z !% @ { !% !% !% B J 4 !%$ !% @ n @ r A t @ rT(
0x3b0cdc…3b0e70 Dummy {f00=0x015b, f01=0x0190, f02=» T 0 !% W R !% A r @ p @ rU< Zx Q P Q T 0 !% A r 0 !% A r !% !% $ A b _ B J B !% !% 4 A d ? <J T A jT PD 4 !%p ~ A d ? <_ I " P A d A 4 A _$B P W " S " * 9AY X 2 _ !% 9AP ^
0x3b0e70…3b1004 Dummy {f00=0x015b, f01=0x0190, f02=» a 4 :J& X A > :J&^ Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x3b1004…3b1198 Dummy {f00=0x015b, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x3b1198…3b132c Dummy {f00=0x015b, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x3b132c…3b14c0 Dummy {f00=0x015b, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x3b14c0…3b1654 (4, 462) Dummy {f00=0x015b, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x3b1654…3b17e8 Dummy {f00=0x015b, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x3b17e8…3b197c Dummy {f00=0x015b, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x3b197c…3b1b10 Dummy {f00=0x015b, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x3b1b10…3b1ca4 Dummy {f00=0x015b, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x3b1ca4…3b1e38 Dummy {f00=0x015b, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x3b1e38…3b1fcc Dummy {f00=0x015b, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ rT
0x3b1fcc…3b2160 Dummy {f00=0x015b, f01=0x0190, f02=» T 0 ! W R ! A r @ p @ rU Zx Q P Q T 0 ! A r 0 ! A r ! ! $ A b _ B J B ! ! 4 A d ? <J T A jT P 4 ! ~ A d ? <_ I " P A d A 4 A _$B P W " " * 9AY X 2 _ !% 9AP ^
0x3b2160…3b22f4 (4, 463) Dummy {f00=0x015c, f01=0x0190, f02=» a 4 & X A > Z A x 4 A x !% @ ^P !# !&N ~ @ xP a x A x 4 A j !% T ' A j 4 & {W W W A z A { ! @ z ! @ { ! ! ! B J 4 ! ! @ n @ r A t @ r
0x3b22f4…3b2488 Dummy {f00=0x015c, f01=0x0190, f02=» 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T : :J:6 S P :0 :J:: _ t _< ?
0x3b2488…3b261c Dummy {f00=0x015c, f01=0x0190, f02=»=,=,=,< < <<; < < ; =,=,; < < <<; " # $ % "$&( ; : @ D X P _ L !##P T @ R $P U + U _ (@(@ I: P ^ =, H: Y H: B # X ( U =, B r R| W Y & Y $ 0 Y . <
0x3b261c…3b27b0 Dummy {f00=0x015c, f01=0x0190, f02=» C B B B U P R Wp H TP L P B r L ( R| $ X _ X ` T I T J O8 P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 P T.(@(@ P #D q >B S S > > BrBrBrBrBrA
0x3b27b0…3b2944 Dummy {f00=0x015c, f01=0x0190, f02=» D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P P P @S Q (@ F R : @ _ S ( H > >4 X &Pj D ^V" D "? P P &P E ^ Q V, P ( > ( ( W >4 Qj Br B W
0x3b2944…3b2ad8 Dummy {f00=0x015c, f01=0x0190, f02=» T _ Y & F yZ yb(@ _ A X & X I U X J U ( Qj T$ X X RP F = T Br P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF Pf N 4 5W P 0 @L 1 AL (@_
0x3b2ad8…3b2c6c Dummy {f00=0x015c, f01=0x0190, f02=»' @8 5 @8 4 G W , P& ,' X X 1 Z" ) @8_ (@ C ( B ! Br @8 @=X F U G F G = Bp & ( F " F +P P* X $ T P U W P R P> $P8W Br X ( X & F X P @S Q (@ R| + X
0x3b2c6c…3b2e00 Dummy {f00=0x015c, f01=0x0190, f02=» P I I K K P P & P PfW D $ T P T PJW E I E J X ^V ? T B yZ &(@( o B B P ! Tn M E : B Ao Ao " P op "" p P E o @or yb(@ Dot C C C x W
0x3b2e00…3b2f94 (4, 464) Dummy {f00=0x015c, f01=0x0190, f02=»ot EovX #D( B ( B yZ B @or Dot x W C C ( B B o op @o T Ao 0" ER ER U _ L !SSP !LL ER W L @o| Ao|V E P Eo~ @or Eo P Eo P Eo Do~T o P E G 2% P( R 0 XotT
0x3b2f94…3b3128 Dummy {f00=0x015c, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @o S , d S B | C C^ @o|T W o T Wz @o P R ( >a U Wb 0 =b Po~P @o| ! T. W< Po Dot Y Po Y Po Y U ! T ! X6 _R _V Do " P o Ao
0x3b3128…3b32bc Dummy {f00=0x015c, f01=0x0190, f02=»( @o F _ T `op ` 9A S ^ H $X D S . S $ R R * S W S _ S ` R ( R * O S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T
0x3b32bc…3b3450 Dummy {f00=0x015c, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A
0x3b3450…3b35e4 Dummy {f00=0x015c, f01=0x0190, f02=»( @ F _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T
0x3b35e4…3b3778 Dummy {f00=0x015c, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A
0x3b3778…3b390c Dummy {f00=0x015c, f01=0x0190, f02=»( @ F _ T ` ` 9A S ^ H $X D S . S $ R * S W S _ S ` R ( R * S b F U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T
0x3b390c…3b3aa0 Dummy {f00=0x015c, f01=0x0190, f02=» E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | C C^ @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A
0x3b3aa0…3b3c34 (4, 465) Dummy {f00=0x015c, f01=0x0190, f02=» [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +P W : X +
0x3b3c34…3b3dc8 Dummy {f00=0x015c, f01=0x0190, f02=» @L T n ( AL U 1_ D + I D N ) E N : T * O SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X T
0x3b3dc8…3b3f5c Dummy {f00=0x015c, f01=0x0190, f02=» D $ D * O T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L
0x3b3f5c…3b40f0 Dummy {f00=0x015c, f01=0x0190, f02=» ! Z( S (X0 @S P T M ]@ , ) AS P* P Y U ( ) 5 & > > [ [ S Z Z Z ? Z > P "R Y W 0 S Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ( (
0x3b40f0…3b4284 Dummy {f00=0x015c, f01=0x0190, f02=»P$ X $P y $W $ :LW ` Y $ X " PP:A: R Q W Y <D X ? ?: T p > XV > Ph P C V B V T B % X . $ 4 T % V X ,T ! P W Xf Y . V XV ! B P X " _` B P$ $$ R % C XV
0x3b4284…3b4418 Dummy {f00=0x015c, f01=0x0190, f02=»Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P XV _ X $P y $ Y $ C ! S " W QfR$ X # P X R6;GV2 X $P y $ W P8 X R2;GV. X " UV X , $4 P Xf X .T * W Y , - S @ Y $ X Z _X ? X :a
0x3b4418…3b45ac Dummy {f00=0x015c, f01=0x0190, f02=»$ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > XT 0 _ d X [ [ !"&';<>@^_ 9: X ! Y MX P ^ S Y LX X X Y.Y X X Z Z ! ! ! W B W$ B L # 9Q T W Q P X & V T
0x3b45ac…3b4740 Dummy {f00=0x015c, f01=0x0190, f02=» B C ! ! T " T W Q " T ) S ![ X Y _ ! ![v Y &P Q W ! Y '" [,_" Xz_< ![j_n ![ _t B B , ! T _ D ! P ! P W C V B P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,!
0x3b4740…3b48d4 (4, 466) Dummy {f00=0x015c, f01=0x0190, f02=» X Y ? Y X P " ! Y ' ! X T ! S X S R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' X ! ! " P ,$ , ! 4!"$&;<>@^_ [ ]X] ]t PB P8 S B P B L # +P ! !
0x3b48d4…3b4a68 Dummy {f00=0x015c, f01=0x0190, f02=» Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _ F" H[ _ ! ! ] & S X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P
0x3b4a68…3b4bfc Dummy {f00=0x015c, f01=0x0190, f02=»" [ ! ! X & ] ^0 ^n^ B 8# T $ # ;D 7P P S Y W Y X Y 8# T W$ T( X $ P X P B V *@ Y h S S ? X _F ^ b ` a aZ ` ! P P `n & `V S B P B H " +P P. T
0x3b4bfc…3b4d90 Dummy {f00=0x015c, f01=0x0190, f02=» _ $$ X" X& X* C F ` X`" E^ P( 8'0P E^ TD ! T 9 _ ! T @_ ! F B P !bR B C ` ^N P R ?] _ C _ F F" $ P X ' X ] ! ` _ B !b !bR ! ` B Y & !bpW
0x3b4d90…3b4f24 Dummy {f00=0x015c, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P !a _ R V P P" ! ` W ` X $ X !a _ X $ X X & !bp !bR Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x3b4f24…3b50b8 Dummy {f00=0x015c, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > k m F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W
0x3b50b8…3b524c Dummy {f00=0x015c, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x3b524c…3b53e0 Dummy {f00=0x015c, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W
0x3b53e0…3b5574 (4, 467) Dummy {f00=0x015d, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x3b5574…3b5708 Dummy {f00=0x015d, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P R ?] _ C _ F F" $ P X ' X ] ! _ B ! ! ! B Y & ! W
0x3b5708…3b589c Dummy {f00=0x015d, f01=0x0190, f02=»Q Y > X Z2<BR J ? Y ! T X ! Y & Zl ` T _ ! X $ P ! _ R V P P ! ` W ` X $ X ! _ X $ X X & ! ! Y _8 X " X &" Y )U W ! ! ! Y 4 B _B
0x3b589c…3b5a30 Dummy {f00=0x015d, f01=0x0190, f02=» ! 4 ! V ! V W :h ! 4 X )" X '# R 4 ` > F B P ! B C ^N P l P P .T B Y Wx B P X P ( ( 7 R ( P H RN H P ' P b P W< b T6 m ' P
0x3b5a30…3b5bc4 Dummy {f00=0x015d, f01=0x0190, f02=»_N S X T @b P ( Ab mB _ ( Y _ b _x X T @b P ( Ab mB_ ( Y _ b _ i m 9 @_ mD H b P b P $ $ 1 ) > ) $P e % > (@ B Z F U F Z b P U S C G 4' "?:B ] P H U _
0x3b5bc4…3b5d58 Dummy {f00=0x015d, f01=0x0190, f02=» - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y X H P & < ? < ? <(@ oB $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h oX P ?_" =
0x3b5d58…3b5eec Dummy {f00=0x015d, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor y , ` R @ U P. ,% T& o C ( B P T W ' T| Iot @ 8 =hP Y X Pl 0T<
0x3b5eec…3b6080 Dummy {f00=0x015d, f01=0x0190, f02=»o @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P U W p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D
0x3b6080…3b6214 (4, 468) Dummy {f00=0x015d, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor , ` R @ U P ,% T o C ( B P T W ' T Iot @ 8 =hP Y X P 0T
0x3b6214…3b63a8 Dummy {f00=0x015d, f01=0x0190, f02=» @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P U W p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D
0x3b63a8…3b653c Dummy {f00=0x015d, f01=0x0190, f02=» wH b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : Ao Ao :A Aor , ` R @ U P ,% T o C ( B P T W ' T Iot @ 8 =hP Y X P 0T
0x3b653c…3b66d0 Dummy {f00=0x015d, f01=0x0190, f02=» @ojP ol $ ) 5 S Aoj Ao Aon o " R| op Ao| "" P rb p op P @or Eot "# P P @on P ( )W @ 0 R % "V E T D Ao _" P @on P ( )W @ 0 Rb ' F "R G o @or Dot #D
0x3b66d0…3b6864 Dummy {f00=0x015d, f01=0x0190, f02=» b _x X T @b P ( Ab mB_ ( Y @olP 4 Aol U W Aol Aoj @on U : @r^ , L T L PF L T M Q M L V L Ar` @r^ : T n @r` [ [ M M M Ar^ -(@ : - : @r^ , L T M
0x3b6864…3b69f8 Dummy {f00=0x015d, f01=0x0190, f02=» @r^ Aoj Aol >z z4zdz zdz 0123456789 & 0123456789 & < +.-, 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' ^ > ?:_; =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* ($SWA
0x3b69f8…3b6b8c Dummy {f00=0x015d, f01=0x0190, f02=» @ " Q A z : R W2 A A z P. _ " :c* A z W " :d2 * A < & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR }L F }LW =J F CRTT F PN A @ $ P( @ R W
0x3b6b8c…3b6d20 Dummy {f00=0x015d, f01=0x0190, f02=» Y P @ T W - P _ T <B :L A W A A W T F W V = V W Y* P Z( = :L < P W <9B @ V
0x3b6d20…3b6eb4 (4, 469) Dummy {f00=0x015d, f01=0x0190, f02=»P !RRP V @ P W _: p V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;
0x3b6eb4…3b7048 Dummy {f00=0x015d, f01=0x0190, f02=» V Xb _ P !;;T X$ W nP XZ_V S A / A u @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X C.9h! # " :A K :
0x3b7048…3b71dc Dummy {f00=0x015d, f01=0x0190, f02=»9C) A I " 9A ! 9B r @z r A I ! ( : A z A A A A ! T A A I ! : 9E @z r s A I T ) A _ I N T : 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P
0x3b71dc…3b7370 Dummy {f00=0x015d, f01=0x0190, f02=» R X A X W : @ ' R xW V W$ V P P ~ W P V V T ~ V T W P V W @ $ P p W T : A z_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0
0x3b7370…3b7504 Dummy {f00=0x015d, f01=0x0190, f02=» j A A A A ! T A W Z A. c @ V W U R $ )_ : W W W W W >Q@ V V v x W V V
0x3b7504…3b7698 Dummy {f00=0x015d, f01=0x0190, f02=» >V U * _ V * Z K W W :K W r >Q R t >V v : V W V ) : V <B W |P v v : $ | V |P v w v : V $ V l $ | V
0x3b7698…3b782c Dummy {f00=0x015d, f01=0x0190, f02=» z ` _f V : W R R P L r W x _ V : " D Pd W V PL $;A^ D E D P. V P P T E _J | E _T " D T E | E D E % : " R ;B | " R P( |P v
0x3b782c…3b79c0 Dummy {f00=0x015d, f01=0x0190, f02=»^ 0 : W ; V : : , X G : J @ 0 V @ 0 H W : ? ? R 0 R P P B _ S : V ) v : 4P: " D , H H $ M v b - I Y0 : @
0x3b79c0…3b7b54 (4, 470) Dummy {f00=0x015d, f01=0x0190, f02=»_d D = G $ 0 V W $ ^ V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P
0x3b7b54…3b7ce8 Dummy {f00=0x015d, f01=0x0190, f02=» 3 S Y& P4 Sj Sj S P 3 _ Sj 3 Sl B A. @ D @ W x A ( : A S > l : pR L W n V pT : N V l W H V ]" . nT" W
0x3b7ce8…3b7e7c Dummy {f00=0x015d, f01=0x0190, f02=» G G v U r v G v : P L pV : r V ~P W x _$ 8 V V x % V v % : V V 9k! P % _ V V W W r W V | v ) W b G | v ) - V | W
0x3b7e7c…3b8010 Dummy {f00=0x015d, f01=0x0190, f02=» pPn D V W % 6 R , | " E R & W ~ R & R P R Xv _|W T : L W x _ V P I D W z ` pPl H - V I 0 " R E R T E D E
0x3b8010…3b81a4 Dummy {f00=0x015d, f01=0x0190, f02=» 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 - @ - N !TTP N :H N TBT W W8 2
0x3b81a4…3b8338 Dummy {f00=0x015d, f01=0x0190, f02=» .:H N P V _ R :h " B YV : v `?A @ W W :b / W : W @ W D V W W ` " W p @ pP. " 4X 1
0x3b8338…3b84cc Dummy {f00=0x015d, f01=0x0190, f02=» V >k 8 W W t V V : x A z P h W r h W @ @ % @ V , P@ , - 4 ] 4 >Y 5 X * _6 : @ ] @ P @ P " P " P "
0x3b84cc…3b8660 Dummy {f00=0x015d, f01=0x0190, f02=»" P #E t " P #F t : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ % P W @ %
0x3b8660…3b87f4 (4, 471) Dummy {f00=0x015e, f01=0x0190, f02=» _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 : @ ! P @ @ 0 CRT 3 @ 0 0
0x3b87f4…3b8988 Dummy {f00=0x015e, f01=0x0190, f02=» @ T : Sh ` @ P _ 3 S S V V W @ @ T : P S S _ : . !TTP V W t * P r _ Ph W p W
0x3b8988…3b8b1c Dummy {f00=0x015e, f01=0x0190, f02=» @ T : @ R @ T P / _ T @ A V W W t PT W f ( W d G =h G V d V r < V f P W f _B V W V t Yr
0x3b8b1c…3b8cb0 Dummy {f00=0x015e, f01=0x0190, f02=» _. P, V 4 U $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ @
0x3b8cb0…3b8e44 Dummy {f00=0x015e, f01=0x0190, f02=» : W V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W z V W R 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
0x3b8e44…3b8fd8 Dummy {f00=0x015e, f01=0x0190, f02=»;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 %
0x3b8fd8…3b916c Dummy {f00=0x015e, f01=0x0190, f02=»=H N : &=H F : F =H F : F =H F : P N =H N T _ : 00=H 00 P P _ _ : @ ! P (W ( : 4 ` @ 0 CRT" @ ! P ` @ E "W ` @ E "
0x3b916c…3b9300 Dummy {f00=0x015e, f01=0x0190, f02=» , , , , ,b H b ,b t b . DC T KB y :
0x3b9300…3b9494 (4, 472) Dummy {f00=0x015e, f01=0x0190, f02=»=H N 2 4X TP & 8^ DY ^ @ P T KB y " (
0x3b9494…3b9628 Dummy {f00=0x015e, f01=0x0190, f02=» ?O_o 8^ DY T , P 4[ GP T KB y
0x3b9628…3b97bc Dummy {f00=0x015e, f01=0x018e, f02=» P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * SALCUZ B P LDK A2,SYNEBC SALCUZ ^ 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,
0x3b97bc…3b9950 Dummy {f00=0x015e, f01=0x0190, f02=» x P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * F P LDK A2,SYN SALCUZ Z 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ v P XIF SALCUZ * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS P
0x3b9950…3b9ae4 Dummy {f00=0x015e, f01=0x0190, f02=»* P* RECEIVER INTERRUPT P* ( P* 2 PIH1501 EQU * < P ST P,INTSAV P P IFT CPU852=1 d P CF A15,SAVE8 SAVE A1-A8 z P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC
0x3b9ae4…3b9c78 Dummy {f00=0x015e, f01=0x0190, f02=» LOG RECEIVED CHARACTER P XIF P IFF CODE=1 , P C2 SYNSW @ P RF(NZ) IHLCI2 R P CWK A2,SYN SKIP SYNS h P RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT
0x3b9c78…3b9e0c Dummy {f00=0x015e, f01=0x0190, f02=»C v ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF 6 PIHIN10 RTN A5 B P IFT P6805=0 SALCUZ X PIHIN20 CF A5,SST PERFORM SST t P ABL BRM P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF
0x3b9e0c…3b9fa0 Dummy {f00=0x015e, f01=0x0190, f02=» P IFT CPU852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF @ P L P IFF CPU852=1 T P MSR 8,A15 SAVE A1-A8 =1 j P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 P EJECT P* P* & P* SST INSTRUCTIO
0x3b9fa0…3ba134 (4, 473) Opaque[0x194]
0x3ba134…3ba2c8 # DirEnt {nam=»NJDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2bd0, f03=0x0000}
0x3ba134…3ba2c8 IdxSect {
0x3ba134…3ba2c8 f00 = 0x015e // 0x3ba134 @0x0
0x3ba134…3ba2c8 f01 = 0x002a // 0x3ba136 @0x2
0x3ba134…3ba2c8 gno = [ // 0x3ba138 @0x4
0x3ba134…3ba2c8 [0x00]: C0x015e.0x2.0
0x3ba134…3ba2c8 [0x01]: C0x015e.0x3.0
0x3ba134…3ba2c8 [0x02]: C0x015f.0x0.0
0x3ba134…3ba2c8 [0x03]: C0x015f.0x1.0
0x3ba134…3ba2c8 [0x04]: C0x015f.0x2.0
0x3ba134…3ba2c8 [0x05]: C0x015f.0x3.0
0x3ba134…3ba2c8 [0x06]: C0x0160.0x0.0
0x3ba134…3ba2c8 [0x07]: C0x0160.0x1.0
0x3ba134…3ba2c8 [0x08]: C0x0160.0x2.0
0x3ba134…3ba2c8 [0x09]: C0x0160.0x3.0
0x3ba134…3ba2c8 [0x0a]: C0x0161.0x0.0
0x3ba134…3ba2c8 [0x0b]: C0x0161.0x1.0
0x3ba134…3ba2c8 [0x0c]: C0x0161.0x2.0
0x3ba134…3ba2c8 [0x0d]: C0x0161.0x3.0
0x3ba134…3ba2c8 [0x0e]: C0x0162.0x0.0
0x3ba134…3ba2c8 [0x0f]: C0x0162.0x1.0
0x3ba134…3ba2c8 [0x10]: C0x0162.0x2.0
0x3ba134…3ba2c8 [0x11]: C0x0162.0x3.0
0x3ba134…3ba2c8 [0x12]: C0x0163.0x0.0
0x3ba134…3ba2c8 [0x13]: C0x0163.0x1.0
0x3ba134…3ba2c8 [0x14]: C0x0163.0x2.0
0x3ba134…3ba2c8 ]
0x3ba134…3ba2c8 }
0x3ba2c8…3ba45c Dummy {f00=0x015e, f01=0x0190, f02=» 2 P IDENT DRDC15 9.2DK 3 80-01-03 870105040920 P : P DK3, RBUFNR = 1 ALLOWED B P DK2, TBUFL d P 80-03-11 z 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR
0x3ba45c…3ba5f0 Dummy {f00=0x015e, f01=0x018e, f02=»RESS DESTROYED x P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE 2 P REL 9.1 79-05-23 Z P =3, TRANSFER PARAMETER v P PRR 9.1 79-04-06 P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING
0x3ba5f0…3ba784 Dummy {f00=0x015e, f01=0x0190, f02=» P* 2 P********************************************* P* D $ P* PHILIPS TERMINAL SYSTEM PTS N P* v * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P*
0x3ba784…3ba918 Dummy {f00=0x015e, f01=0x0190, f02=»* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT V " P ENTRY IH1502 OUTPUT INTERRUPT | " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTE
0x3ba918…3baaac Dummy {f00=0x015e, f01=0x018e, f02=»DIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER B P EXTRN DWTST DWT STATUS b P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCD
0x3baaac…3bac40 Dummy {f00=0x015e, f01=0x0190, f02=» l & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE 2 " P EXTRN ECBCW ECB CONTROL WORD V * P EXTRN DC:MIN MOVE DATA TO USER BUFFER | , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH
0x3bac40…3badd4 (4, 474) Dummy {f00=0x015e, f01=0x018e, f02=» P* P* DWT CONTENTS P* ( J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) 2 P* P < P******************************************************* P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY
0x3badd4…3baf68 Dummy {f00=0x015e, f01=0x0190, f02=» p & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK 2 PX:B EQU /60 DCTASK FILE CODE P PDC15FC EQU /60 t $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0 P* * PTIMPOL EQU 600 POLL TIMEOUT VALUE DK * PX:E EQU 1 ST
0x3baf68…3bb0fc Dummy {f00=0x015e, f01=0x0190, f02=»LOCK LENGTH z PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC * PCODE EQU 0 V * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING h PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSP
0x3bb0fc…3bb290 Dummy {f00=0x015e, f01=0x0190, f02=»NR EQU 2 ( PX:M EQU 0 IF = 1 PTS 6805 ADAPTION PP6805 EQU 00 < PX:N EQU /02 P P IFT P6805=0 d , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER x P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF PX:O
0x3bb290…3bb424 Dummy {f00=0x015e, f01=0x0190, f02=»EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 4 PX:R EQU 1000 H P DK2 * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION l , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 W
0x3bb424…3bb5b8 Dummy {f00=0x015e, f01=0x0190, f02=». f , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 : 6 PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER P P XIF P IFT P6805=1 6 PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER P XIF P* P P
0x3bb5b8…3bb74c Dummy {f00=0x015e, f01=0x0190, f02=»************************* P* " . P* A PROGRAM VERSION USING TOSS MMU PAGING , * P* IS OBTAINED BY SETTING MMUPAG EQU 1. ^ P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTBUFL EQU 0 DK2 P XIF DK2 P*
0x3bb74c…3bb8e0 Dummy {f00=0x015e, f01=0x0190, f02=»RSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. , P* ^ PCPU852 EQU 0 h P* | 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE P* P P* P
0x3bb8e0…3bba74 (4, 475) Dummy {f00=0x015f, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS f . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE & PDWTRQ EQU START+
0x3bba74…3bbc08 Dummy {f00=0x015f, f01=0x018e, f02=»+/0C REQUEST TIMER VALUE P* P * P* 4 P* REQUEST HANDLING > P* X P* b P* l P* A7=ORDER v P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P* /38: SET STATUS $ P* /39: SET REQUEST
0x3bbc08…3bbd9c Dummy {f00=0x015f, f01=0x0190, f02=» * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS 2 $ PDCWRQ DATA 0 WRITE REQUEST QUEUE V , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL ~ P P* P* DC TASK ADDRESS BLOCK P* $ P DATA 0 INDICATES NO MMU BUF
0x3bbd9c…3bbf30 Dummy {f00=0x015f, f01=0x0190, f02=»ATA DCRBUF REC. BUFFER ANCHOR P* & P* DRIVER ADDRESS BLOCK 0 P* N P DATA BUFLEN MMU BUFFER SIZE X P DATA DEVIND DEVICE INDEX | ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDRESS $ P DATA
0x3bbf30…3bc0c4 Dummy {f00=0x015f, f01=0x0190, f02=»RAM v PSTB2 RES 1 P P IFT SPEED=1 & PLSPEED EQU /0200 : P XIF R P IFT SPEED=0 ^ PLSPEED EQU 0 r P XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT EQU * P LDK A1,0 PRESET R
0x3bc0c4…3bc258 Dummy {f00=0x015f, f01=0x0190, f02=» P RF(Z) DCRD READ SPECIFIC P SUK A7,/06-/02 & P RF(Z) DCWR > P SUK A7,/37-/06 R $ P RF(Z) DCTP TRANSFER PARAMETERS j P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P SUK A7,/39-/38 $ P ABL(Z) REQTIM SET R
0x3bc258…3bc3ec Dummy {f00=0x015f, f01=0x0190, f02=» RF DCA100 P P* P* & P* ACTIVATION FROM DCTASK 0 P* P P* Z PDCACTD EQU * d $ P SUR A1,A1 PRESET RETURN CODE =4 x P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF P S
0x3bc3ec…3bc580 Dummy {f00=0x015f, f01=0x0190, f02=» ERROR | P ABL DISIOE INVALID ORDER P* 0 P* : P* READ FROM DCTASK D P* ^ P* h P* REQUEST FROM DC-TASK r P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS MESSAGE RECEPTION P* PDCRD
0x3bc580…3bc714 (4, 476) Dummy {f00=0x015f, f01=0x0190, f02=»4 P . P***************************************** P* F P* ANY MESSAGE ORDER P P* n " P***************************** x P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P RF(Z) DCRD10 NO!! =4 ( P RF ENDIO YES!
0x3bc714…3bc8a8 Dummy {f00=0x015f, f01=0x0190, f02=» DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES 4 P* r P* | P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT CODE=1 & PDCTP LC A2,ECBCW,A8 GET TCS IF ANY
0x3bc8a8…3bca3c Dummy {f00=0x015f, f01=0x0190, f02=»,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF " ( P LC A2,TASCII,A3 TRANSLATE TO ASCII 6 P XIF b ( P STR A2,A6 SAVE IN FIRST WORD OF DWT n P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6 ( P LD A3,ECBRL
0x3bca3c…3bcbd0 Dummy {f00=0x015f, f01=0x0190, f02=»OT BE IN DC:TAB r * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? F & P ABL(E) DISIOE YES!! REQUEST ERROR t P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P AD* A4,DCTAB LAST TAB
0x3bcbd0…3bcd64 Dummy {f00=0x015f, f01=0x0190, f02=»IN TABLE =3 v P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 6 " P RB DCTP22 CHECK NEXT ENTRY =3 T PDCTP25 EQU * =3 z P $ P STR A6,A1 INSERT DWT IN DC:TAB P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P *
0x3bcd64…3bcef8 Dummy {f00=0x015f, f01=0x0190, f02=»SERT IN STATUS QUEUE P XIF PDCTP30 EQU * ( P SUR A1,A1 RETURN CODE ::= 0 < PENDIO EQU * ` $ P CF A15,TENDIO COMPLETE REQUEST t P RB DCRTN P P* P* P* WRITE P* P* P* COMPLETE WHEN: P
0x3bcef8…3bd08c Dummy {f00=0x015f, f01=0x0190, f02=»TED LENGTH z " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! 8 P XIF T P CF A15,TIMEWR SET TIMER ` P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P* P* READ P* P* P* COMPLETE WHEN:
0x3bd08c…3bd220 Dummy {f00=0x015f, f01=0x0190, f02=»,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE & P L P T P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE d P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFFECTIVE LENGTH P ST A3,ECBEL,A8 P P LDK A1,
0x3bd220…3bd3b4 (4, 477) Dummy {f00=0x015f, f01=0x0190, f02=» P RB DCRTN P P* P* * P* SET STATUS 4 P* H P* R P IFF STAT=0 PDCSS EQU * p * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P RF(Z) DCSS20 DEVICE END PDCSS10 EQU * P ST A1,D
0x3bd3b4…3bd548 Dummy {f00=0x015f, f01=0x0190, f02=» NOT BEEN SENT z PDCSS30 EQU * , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE * P LDK A1,4 SET DE Z P RB DCSS10 r P XIF P P P* " P* SET REQUEST TIMEOUT VALUE P* P* P PREQTIM EQU * " P LD A2
0x3bd548…3bd6dc Dummy {f00=0x015f, f01=0x018e, f02=»L APPLICATION BUFFER SIZE P* " P , 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH 4 P ABL DISEND COMPLETE REQUEST p P P* P* P* P* TIMER HANDLING PART P* P* P* P* READ TIMER=TIM
0x3bd6dc…3bd870 Dummy {f00=0x015f, f01=0x0190, f02=» v P ST A2,TIMERR ! P CF A15,SETIME ! P DATA TOUTRE ! 4 PTIMERR DATA 0 ! H ( P ST A4,DWTTP,A6 STORE TIMER POINTER ! ^ PTIME10 EQU * ! P RF GBUF10 RETURN ! P* ! P* TIMEOUT READ TIMER ! P* ! PTOUTRE EQU * ! P LDR A6,A1 F
0x3bd870…3bda04 Dummy {f00=0x015f, f01=0x0190, f02=» ! P* WRITE TIMER=TIMWR " P* " $ PTIMEWR LDR A1,A6 " . . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE " F P RB(Z) TIME10 NO TIMING " x P ST A2,TIMWR " P CF A15,SETIME " P DATA TOUTWR " PTIMWR DATA 0 " P ST A4,DWTTP,A6 " P RB TI
0x3bda04…3bdb98 Dummy {f00=0x015f, f01=0x0190, f02=» * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # P* # 2 & P* THIS INSTRUCTION DOES NOT BELONG # < P* TO THE STANDARD INTERFACE # f P LD A2,FDWTUT # P CWR A2,A6 # * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING # ( P CM XACK INDICATE 'ACK NOT EXPECTED' #
0x3bdb98…3bdd2c Dummy {f00=0x015f, f01=0x0190, f02=»INING TIME IS RETURNED IN A2 # P* $ $ P* $ . PCTIME EQU * $ 8 & P LD A2,DWTTP,A6 GET TIMER POINTER $ L P RF(Z) CTIM10 NOT RUNNING $ v P LDR* A2,A2 $ " P NGR A2,A2 GET REMAINING TIME $ P CM* DWTTP,A6 STOP TIMER $ P CM DWTTP,A6 $ PCT
0x3bdd2c…3bdec0 Dummy {f00=0x015f, f01=0x0190, f02=»A4=0 IF NO BUFFER IS FREE $ & P* ELSE A4 CONTAINS BUFFER ADDRESS % " P* A2 AND A3 ARE DESTROYED % L P* % n P* % x ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS % PGBUF INH % P LDR* A4,A2 % P RF(Z) GBUF10 NO BUFFER FREE % . P LDR* A3,A4 REMOVE
0x3bdec0…3be054 (4, 478) Dummy {f00=0x015f, f01=0x018e, f02=» P* & P* & ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & D P* A2,A3,A4 DESTROYED & N P* A6=DWT & j P* & z ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR & PINSWQ1 LDK A4,DWTWQ & PINSWQ2 LDR* A3,A2 & $ P RF(Z) INSWQ3 END OF QUEUE FOUND &
0x3be054…3be1e8 Dummy {f00=0x015f, f01=0x0190, f02=» P RB GBUF10 RETURN ' P* ' P* ' ( * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' 2 P* ' ` P* A2,A3,A4 DESTROYED ' j P* A6=DWT ' P* ' * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR ' 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED ' PREM0
0x3be1e8…3be37c Dummy {f00=0x015f, f01=0x0190, f02=» P LDR A2,A3 GET NEXT ( P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( 2 P STR A3,A2 ( R P RB GBUF10 RETURN ( d P ( ~ P* ( P* ( P* INSERT DWT IN STATUS QUEUE ( P* ( P IFF STAT=0 ( P* A2,A3,A4 DESTROYED ( P* A6=DWT (
0x3be37c…3be510 Dummy {f00=0x015f, f01=0x018e, f02=»ATUS QUEUE ( | P* ) P* A2,A3,A4 DESTROYED ) P* A6=DWT ) 8 P* ) H * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) R P LDK A4,DWTSQ ) P RB REM06 ) P XIF ) P ) P* ) P* ) $ P* QUEUE ALLOCATED RECEIVE BUFFER ) P* ) P* A4
0x3be510…3be6a4 Dummy {f00=0x015f, f01=0x0190, f02=» ) j P XIF * P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * * P XIF * R , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * ^ PQR100 EQU * * P LDR* A3,A2 * $ P RF(Z) QR200 END OF QUEUE FOUND * P LDR A2,A3 * P RB QR100 * & PQR200
0x3be6a4…3be838 Dummy {f00=0x015f, f01=0x018e, f02=»ECTED MESSAGE OR STATUS CHANGE * P* + & 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + 0 P* + h PCKMESS LDKL A6,DW1500 + r 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)
0x3be838…3be9cc Dummy {f00=0x015f, f01=0x0190, f02=» + p P , P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , H " P ADK A3,6 MOVE POINTER TO TEXT , z & P DONT DESTROY BUFFER ADDRESS =6 , P LD A4,-4,A3 , 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTER
0x3be9cc…3beb60 Dummy {f00=0x015f, f01=0x0190, f02=»ECEIVE BUFFER ADDRESS , , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST STACK POINTER - N P ABR* A15 RETURN - | 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS - , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT - P CW A1,D
0x3beb60…3becf4 (4, 479) Dummy {f00=0x0160, f01=0x0190, f02=»IO COMPLETE READ GENERAL REQUEST - P RB CKM110 . ( P . : P . D @ P************************************************************ . L P* . P* ABORT ROUTINE . P* . P************************ . P . & PABORT LD A1,DWTTP,A6 TIMER POINTER
0x3becf4…3bee88 Dummy {f00=0x0160, f01=0x0190, f02=»E . r P SUK A1,2 / * P RF(Z) AB:RTN READ REQUEST. NO ACTION / P SUK A1,4 / J . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE / P / . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE / & P LD A2,FDWTUT WRITING DWT ADDRESS / P CWR A2,A6 / P RF(
0x3bee88…3bf01c Dummy {f00=0x0160, f01=0x0190, f02=» CPU852=1 / P ADKL A15,4 0 $ P ABR* A15 RETURN IN INHIBIT MODE 0 & P XIF 0 N P IFF CPU852=1 0 Z P RTN A15 0 p P XIF 0 P 0 P 0 P 0 P* 0 P* 0 P* STORE REGISTER A3-A8 0 $ P* CALLING SEQUENSE: CF A15,STREG 0 P* 0
0x3bf01c…3bf1b0 Dummy {f00=0x0160, f01=0x0190, f02=»5 0 P ST A6,LCA6 1 P ST A7,LCA7 1 P ST A8,LCA8 1 2 P RF RTNA15 RETURN 1 F P 1 ` PLDREG LDKL A3,0 1 j PLCA3 EQU *-2 1 P LDKL A4,0 1 PLCA4 EQU *-2 1 P LDKL A5,0 1 PLCA5 EQU *-2 1 P LDKL A6,0 1 PLCA6 EQU *-2 1 P
0x3bf1b0…3bf344 Dummy {f00=0x0160, f01=0x0190, f02=» 1 P* 2 P* 2 P* TIMER VALUES 2 P* 2 2 P* 2 < * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 F " PTIMNAK EQU 3 DELAY FOR NAK DK 2 t P* 2 P* 2 P* CHARACTER EQUATES 2 P* 2 & PSF EQU X'1D' START FIELD CHARACTER 2 PSYN EQU /1
0x3bf344…3bf4d8 Dummy {f00=0x0160, f01=0x0190, f02=»U /10 2 PEOT EQU /04 3 PNAK EQU /15 3 " PESC EQU /1B 3 6 PSBA EQU /11 3 J PGP EQU /22 3 ^ PRDBCOM EQU /32 3 p PRDMCOM EQU /36 3 P IFT CODE=0 3 PPAR EQU /80 3 PRVI EQU /3C 3 PACK0 EQU /30 3 PACK1 EQU /31 3 PDC1 EQU
0x3bf4d8…3bf66c Dummy {f00=0x0160, f01=0x0190, f02=»1 PROCEDURE 3 p P XIF 4 P IFT CODE=1 4 PPAR EQU /00 4 4 PWACK EQU /2C 4 H PRVI EQU XRVI DK 4 PACK0 EQU /18 4 t PACK1 EQU /2F 4 PSYNEBC EQU /32 4 P XIF 4 P 4 P* 4 P* 4 P* PROCEDURE WORK AREAS 4 P* 4 P* 4
0x3bf66c…3bf800 Dummy {f00=0x0160, f01=0x0190, f02=»EL DATA 0 SELECTED 4 PXETX DATA 0 ETX SENT 5 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 6 " PXRB DATA 0 READ BUFFER SWITCH 5 l PCACK DATA 0 ACK COUNTER 5 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5 P* 5 PFECB RES 1 WRITING ECB 5 ( P
0x3bf800…3bf994 (4, 480) Dummy {f00=0x0160, f01=0x018e, f02=» OF LAST TRANSMITTED BLOCK 5 ~ $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 " . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 J , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA 6 | ( PCRDBUF DATA 0 READ BUFFER COUNTER DK 6 P* 6 P* 6 $ P* 3270 SENSE/STATUS INFORMAT
0x3bf994…3bfb28 Dummy {f00=0x0160, f01=0x0190, f02=» 6 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 P 7 P* 7 P* 7 P* BASIC RECEIVE MODE 7 P* 7 " P* ENTERED EVERY TIME A MESSAGE 7 & P* IS E
0x3bfb28…3bfcbc Dummy {f00=0x0160, f01=0x0190, f02=»M EQU * 7 P LDKL A5,STB LOAD STACKBASE 8 P IFT P6805=0 8 4 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATUS 8 J P XIF 8 P IFT P6805=1 8 * P CF A15,CKMESS CHECK IF STATUS CHANGE 8 P XIF 8 PBRM010 EQU * 8 P IFT CODE+P6805=0 8
0x3bfcbc…3bfe50 Dummy {f00=0x0160, f01=0x0190, f02=»YNEBC SPECIFY SYN PATTERN 8 z P XIF 9 " P IFT P6805=0 9 0 " P CIO A2,1,LCUIN START RECEIVER 9 F P XIF 9 l P IFT P6805=1 9 z P IFF CODE=1 9 P LDK A2,/0C 9 " P CIO A2,1,LCUIN START RECEIVER 9 P LDK A2,SYN 9 * P OTR A2,1,LCUIN SPECIF
0x3bfe50…3bffe4 Dummy {f00=0x0160, f01=0x018e, f02=» 9 r P LDK A2,SYNEBC : * P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER : P RB(NA) BRMHLT : N P XIF : f PBRM100 EQU * : t $ P CF A5,READP READ ONE CHARACTER : P RF(NZ) BRM150 PARITY ERROR : P LDR A1,A2 : P SUK A1,STX : P RF(Z) BRM300
0x3bffe4…3c0178 Dummy {f00=0x0160, f01=0x0190, f02=» P SUK A1,DLE-ENQ ; P ABL(Z) BRM600 DLE RECEIVED ; P SUK A1,NAK-DLE ; @ P ABL(Z) BRM500 NAK RECEIVED ; X P IFT MSV1=0 ; | P LDR A8,A2 ; $ P CF A5,READP READ ONE CHARACTER ; P RF(NZ) BRM150 PARITY ERROR ; P CWR A2,A8 ; & P RF(NE)
0x3c0178…3c030c Dummy {f00=0x0160, f01=0x0190, f02=» CC A2,DW1500 ; P RF(NE) BRM150 NOT THIS TCU < PBRM110 EQU * < : P CF A5,READP READ 1:ST STA < N P RF(NZ) BRM150 PARITY ERROR < p P LDR A8,A2 < P IFT MSV1=0 < P CF A5,READP READ 2:ND STA < P RF(NZ) BRM150 PARITY ERROR < P CWR A2,
0x3c030c…3c04a0 Dummy {f00=0x0160, f01=0x0190, f02=»2,ENQ+PAR < P XIF = P IFT P6805=1 = P SUK A2,ENQ = 6 P XIF = J P RF(NZ) BRM150 NOT ENQ = X P IFT P6805=0 = v $ P CF A5,READ READ LAST CHARACTER = P = " P* TRAILING PAD CAN BE CHECKED = P = P CIO A1,0,LCUIN HALT INPUT =
0x3c04a0…3c0634 (4, 481) Dummy {f00=0x0160, f01=0x0190, f02=» = P LDK A1,1 > P ST A1,CACK LOAD ACK COUNTER > P LDR A2,A8 > @ P SUK A3,2 > R P RF(Z) BRM120 SELECTING > d P CWK A8,GP > P ABL(E) GPOLL GENERAL POLL > P IFT MSV1=1 > 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) > P X
0x3c0634…3c07c8 Dummy {f00=0x0160, f01=0x0190, f02=»CIFIC POLL > ~ P RB BRM INVALID POLL ? PBRM120 EQU * ? . & P CF A5,FINTER CHECK IF STA PRESENT ? B P LDR A6,A3 LOAD DWT TO A6 ? l P RF(NZ) BRM130 STA FOUND ? P IFT MSV1=0 ? $ P LDKL A6,DW1500 SELECT TO DCTASK ? PBRM130 EQU * ? P ABL SEL
0x3c07c8…3c095c Dummy {f00=0x0160, f01=0x0190, f02=»SYNCHRONIZE ? t P* @ PBRM150 EQU * @ P ANK A2,/7F @ 2 P SUK A2,/7F @ F P RB(Z) BRM RESYNCHRONIZE @ Z & P CF A5,READ READ ANOTHER CHARACTER @ z P RB BRM150 @ P @ P* @ P* @ P* EOT HAS BEEN RECEIVED @ P* @ P* @ P
0x3c095c…3c0af0 Dummy {f00=0x0160, f01=0x0190, f02=»ACK @ & P RF(Z) BRM220 ACK IS NOT EXPECTED A " P LD A6,FDWTUT GET WRITING DWT A 6 P RF(Z) BRM210 NO ONE WRITING A P LDK A1,2 SET RC=2 A ( P CF A5,CWRITE COMPLETE WRITE REQUEST A PBRM210 EQU * A " P CM XACK RESET 'ACK EXPECTED' A PBRM220 E
0x3c0af0…3c0c84 Dummy {f00=0x0160, f01=0x0190, f02=» A PBRM300 EQU * B P CF A5,HPTIM B P LD A1,XSEL B 0 P RF(Z) BRM315 NOT SELECTED B D P LD A1,DCRBUF B f ( P*********************CHAINED COMMAND B | & P RB(Z) BRM150 NO BUFFER AVAILABLE B P********************* B PBRM305 EQU * B P CF
0x3c0c84…3c0e18 Dummy {f00=0x0160, f01=0x0190, f02=»' B n PBRM312 EQU * C P CF A5,TRNAK SEND NAK C P ABL BRM C < PBRM315 EQU * C L P IFT RCOM=1 C ` P LD A1,XACK C t & P RF(Z) BRM316 ACK IS NOT EXPECTED C P LD A1,DCRBUF C & P RF(Z) BRM316 NO BUFFER AVAILABLE C " P LD A6,FDWTUT GET WRIT
0x3c0e18…3c0fac Dummy {f00=0x0160, f01=0x0190, f02=»RREC PREPARE FOR TEXT RECEPTION C P LDK A1,0 SET RC=0 D ( ( P CF A5,CWRITE COMPLETE WRITE REQUEST D B P CM CACK PRESET ACK-1 =7 D n P RB BRM305 READ THE MESSAGE D P XIF D ( PBRM316 CF A5,READ READ ONE CHARACTER D P IFF P6805=1 =8 D P SUK A
0x3c0fac…3c1140 Dummy {f00=0x0160, f01=0x0190, f02=»CE D n P RB BRM220 E PBRM320 EQU * E P IM XSTA INDICATE MESSAGE OK E 0 $ P LD A4,DCRBUF GET BUFFER ADDRESS E T P ADK A4,6 E | P CW A4,FBLST E " P RF(NE) BRM325 NOT FIRST BLOCK E P IFF RCOM=0 E P LDK A1,ESC E P CCR A1,A4 E P RB(NE
0x3c1140…3c12d4 (4, 482) Dummy {f00=0x0160, f01=0x0190, f02=» READ MODIFIED RECEIVED E P SUK A1,RDMCOM-RDBCOM F & P RF(Z) RDMOD READ BUFFER RECEIVED F > P XIF F h PBRM325 EQU * F t P SUK A7,1 F & P RF(Z) BRM340 MESSAGE ENDED BY ETB F P CM FBAX F * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER F P ADK A
0x3c12d4…3c1468 Dummy {f00=0x0160, f01=0x0190, f02=»6 F P LC A2,TEBCDIC,A2 G P LD A1,DCRBUF G $ P RF(Z) BRM326 G : P ST A2,+4,A1 G P P XIF G d PBRM326 EQU * G p P CWK A6,DW1500 G , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK G P LD A2,DWTST,A6 GET STATUS G P RF(N) BRM330 NO REQUEST G
0x3c1468…3c15fc Dummy {f00=0x0160, f01=0x0190, f02=» P CW A2,DWTOR,A6 H " P RF(NE) BRM330 NO READ REQUEST H PBRM327 EQU * H B P LDK A1,0 SET RC=0 H V $ P LD A8,DWTECB,A6 GET ECB ADDRESS H p P LD A3,-4,A4 GET LENGTH H * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH H & P CF A15,CTIME STOP REQUEST TIMING
0x3c15fc…3c1790 Dummy {f00=0x0160, f01=0x0190, f02=» H P* I P IFT STAT=1 I P LC A2,+2,A4 GET WCC/CCC I & P ANK A2,/FF I F P LC A2,TEBCDI,A2 TRANSLATE I Z P ANK A2,8 I | P RF(Z) BRM328 I P LD A2,DWTST,A6 GET STATUS I P ORK A2,/A I P ST A2,DWTST,A6 I PBRM328 EQU * I P XIF
0x3c1790…3c1924 Dummy {f00=0x0160, f01=0x0190, f02=»R ADDRESS =4 I z ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 J P RF BRM32A =4 J @ P XIF =4 J V PBRM329 EQU * =4 J f P J ~ P LDK A1,0 RESET RETURN CODE J & P CF A15,DC:MIN MOVE TO USER BUFFER J P RF BRM345 J PBRM32A EQU * =4 J P J $ P C
0x3c1924…3c1ab8 Dummy {f00=0x0160, f01=0x0190, f02=»4 J x P RF(N) BRM335 NO REQUEST =4 K P LD A1,DWTOR,A6 ORDER =4 K . , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 K N & P CF A15,TENDIO COMPLETE REQUEST =4 K ~ PBRM335 EQU * =4 K P XIF =4 K P SUK A4,6 GET BUFFER BASE K ( P CF A5,QRBUF QUEUE B
0x3c1ab8…3c1c4c Dummy {f00=0x0160, f01=0x0190, f02=» K PBRM345 EQU * L P IFT STAT=1 L P LD A1,DWTST,A6 L 0 P ANK A1,8 L H $ P RB(Z) BRM340 ACK SHOULD BE SENT L Z P CF A5,TRWACK SEND WACK L P RF BRM410 L P XIF L P IFF STAT=1 L P RB BRM340 L P XIF L P L P* L P*
0x3c1c4c…3c1de0 Dummy {f00=0x0160, f01=0x0190, f02=»RDMOD EQU * L " P CM XSEL RESET SELECT EXPECTED M 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL M : $ P LD A4,DWTBUF,A6 BUFFER ADDRESS M r $ P SUK A4,2 SDJUST BUFFER ADDRESS M " P LDKL A3,1922 REQUESTED LENGTH M " P IM XRB SET READ BUFFER SWITCH M
0x3c1de0…3c1f74 (4, 483) Dummy {f00=0x0161, f01=0x0190, f02=» M j P ADK A1,1 COUNTER DK N P ST A1,CRDBUF DK N $ P DE N > P ABL POL127 N L P XIF N ` P* N l P* N v P* ENQ HAS BEEN RECEIVED N P* N P* N PBRM400 EQU * N & P CF A5,HPTIM STOP PROCEDURE TIMER N P LD A1,XACK N , P R
0x3c1f74…3c2108 Dummy {f00=0x0161, f01=0x0190, f02=» SEQUENCE N p PBRM410 EQU * O P ABL BRM O & P O 6 P* O @ P* O J P* NAK HAS BEEN RECEIVED O T P* O t P* O ~ PBRM500 EQU * O & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O P RF(NZ) BRM510 ACK EXPECTED O P OR A1,XSE
0x3c2108…3c229c Dummy {f00=0x0161, f01=0x0190, f02=»K O ~ P SST A1,LCUIN DK P P CF A15,STREG DK P $ P CF A15,SETIME DK P > P DATA BRM520,TIMNAK DK P X P ABL TDISP DK P x PBRM520 EQU * DK P P CF A15,LDREG DK P P DE P " P LD A6,FDWTUT GET WRITING DWT P P IFF STAT=0 P P
0x3c229c…3c2430 Dummy {f00=0x0161, f01=0x018e, f02=» SU A1,FECBBA COMPUTE BUFFER INDEX P P ST A1,FBAX Q * P ABL POL130 Q > P* Q R P* Q P* DLE HAS BEEN RECEIVED Q f P* Q P* Q PBRM600 EQU * Q & P CF A5,HPTIM STOP PROCEDURE TIMER Q P LD A1,XACK Q " P RB(Z) BRM410 ACK NOT EXPECT
0x3c2430…3c25c4 Dummy {f00=0x0161, f01=0x018e, f02=» Q ~ P CWK A2,ACK0 =8 R P XIF =8 R P RF(NE) BRM620 R 2 P* R H P* ACK , 0 RECEIVED R R P* R l P LD A1,CACK GET ACKCOUNTER R v P RF(Z) BRM630 ACK,0 EXPECTED R PBRM610 EQU * R P CF A5,TRENQ SEND ENQ R & P CF A5,SPTIM START PROCEDU
0x3c25c4…3c2758 Dummy {f00=0x0161, f01=0x0190, f02=» R P LD A1,CACK GET ACK COUNTER S $ P RB(Z) BRM610 ACK,1 NOT EXPECTED S , PBRM630 EQU * S T P LD A1,XETX S h P RF(Z) BRM640 ETX NOT SENT S | P S P* S , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK S P* S P LDK A1,0 SET RC=0 S PBR
0x3c2758…3c28ec Dummy {f00=0x0161, f01=0x0190, f02=»MPLETE WRITE REQUEST S PBRM636 EQU * T P CF A5,TREOT SEND EOT T 0 P IFT RCOM=1 T N P T b P CM XRB RESET READ BUFFER T j P XIF T P RB BRM410 T PBRM640 EQU * T P LDK A1,1 T & P XRS A1,CACK INCREMENT ACK COUNTER T P ABL POL130 T
0x3c28ec…3c2a80 Dummy {f00=0x0161, f01=0x0190, f02=» P XIF =8 U ( P RB(NE) BRM610 INVALID DLE SEQUENCE U " P CM XACK RESET 'EXPECTING ACK' U B P LD A1,XETX U h $ P RF(NZ) BRM660 ETX HAS BEEN SENT U | P LDK A1,2 SET RC=2 U P RB BRM635 U PBRM660 EQU * U P LDK A1,0 SET RC=0 U P RB BRM635
0x3c2a80…3c2c14 (4, 484) Dummy {f00=0x0161, f01=0x0190, f02=» LD A6,FDWTUT GET DWT ADDRESS U , P CF A15,REMOVS REMOVE FROM STATUS QUEUE V & P CM XSTA CLEAR 'STATUS SENT' V V " P CM XACK CLEAR 'ACK EXPECTED' V z P LD A1,DWTST,A6 GET STATUS V P ANK A1,4 V P RB(Z) BRM636 NOT DE V P LDKL A1,/8000 V " P A
0x3c2c14…3c2da8 Dummy {f00=0x0161, f01=0x0190, f02=» P* W PSELECT EQU * W P LD A1,XACK =5 W " * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 W : P IFF STAT=0 W h P LD A1,DWTST,A6 GET STATUS W | P LDR A3,A1 W P ANK A1,1 W $ P RF(Z) SEL110 NO PENDING STATUS W P CF A5,TRRVI SEND RVI W P
0x3c2da8…3c2f3c Dummy {f00=0x0161, f01=0x018e, f02=» W ~ P ANK A3,8 X P RF(NZ) SEL115 BUSY X P XIF X 6 P IFT STAT+NOWACK=2 X B P ANK A3,8 X " P RF(Z) SEL111 DEVICE NOT BUSY X n P CF A5,TRWACK TRANSMIT WACK X P ABL BRM X PSEL111 EQU * X P XIF X P LD A1,DCRBUF X $ P RF(NZ) SE
0x3c2f3c…3c30d0 Dummy {f00=0x0161, f01=0x0190, f02=» PSEL120 EQU * Y , P CF A5,PRREC PREPARE FOR TEXT RECEPTION Y P CF A5,TRACK SEND ACK,0 Y H P RB SEL100 Y h P Y z P* Y P* Y P* PREPARE FOR TEXT RECEPTION Y P* Y P* Y PPRREC EQU * Y P IM XSEL SET 'SELECTED' Y P CM
0x3c30d0…3c3264 Dummy {f00=0x0161, f01=0x0190, f02=»IN BUFFER Y z P IM XSTA Z " P ST A6,FDWTIN STORE INPUT DWT Z " P RTN A5 Z H P Z X P* Z b P* Z l $ P* GENERAL POLL HAS BEEN RECEIVED Z v P* Z P* Z PGPOLL EQU * Z P LD A1,XACK =5 Z & P RF(Z) POL020 ACK NOT EXPECTED =5 Z " P
0x3c3264…3c33f8 Dummy {f00=0x0161, f01=0x0190, f02=»=5 Z " P CF A5,CPTIM CHECK POLL TIMER [ P IFF STAT=0 [ 0 P LD A6,DCSTQ [ D & P RF(Z) POL110 NO STATUS TO BE SENT [ Z " P SUK A6,DWTSQ GET DWT ADDRESS [ PPOL050 EQU * [ P CF A5,TRSTA SEND STATUS [ & P CF A5,SPTIM START PROCEDURE TIMER [ P
0x3c33f8…3c358c Dummy {f00=0x0161, f01=0x0190, f02=»L110 EQU * [ P LD A6,DCWRQ " P RF(NZ) POL120 WRITE ON QUEUE & PPOL115 EQU * L P CF A5,TREOT SEND EOT ` P RB POL100 ~ PPOL120 EQU * " P SUK A6,DWTWQ GET DWT ADDRESS PPOL125 EQU * $ P LD A8,DWTECB,A6 GET ECB ADDRESS P R
0x3c358c…3c3720 Dummy {f00=0x0161, f01=0x0190, f02=»6 | P ] P IFF MMUPAG=0 ] $ P LDKL A4,MMUBUF MMU WORK BUFFER ] ( P ST A4,ECBBA,A8 ] P . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER ] h P XIF ] & P LD A4,ECBBA,A8 GET BUFFER ADDRESS ] P LD A3,ECBRL,A8 GET LENGTH ] PPOL127 EQU * ] & P S
0x3c3720…3c38b4 (4, 485) Dummy {f00=0x0161, f01=0x0190, f02=»FER INDEX ] ~ PPOL130 EQU * ^ P CM XETX RESET 'ETX SENT' ^ & P CM XSTA ^ H P CF A5,TRTEXT SEND ONE BLOCK ^ X & P CF A5,SPTIM START PROCEDURE TIMER ^ | P IM XACK SET 'ACK EXPECTED' ^ P RB POL100 ^ P ^ P* ^ P* ^ & P* SPECIFIC POL
0x3c38b4…3c3a48 Dummy {f00=0x0161, f01=0x0190, f02=» EXPECTED =5 ^ ~ P LDR A7,A6 SAVE A6 _ P CF A5,CPTIM CHECK POLLTIMER _ . P LDR A6,A7 RESTORE A6 _ R P IFT STAT=1 _ p P LD A1,DWTST,A6 GET STATUS _ P ANK A1,7 _ " P RB(NZ) POL050 PENDING STATUS _ P XIF _ P IFF STAT+SPECP=0 _ P LD
0x3c3a48…3c3bdc Dummy {f00=0x0161, f01=0x0190, f02=» P SUK A1,2 ` " P RB(Z) POL125 EXCHANGE REQUEST ` P XIF ` < P RB POL115 SEND EOT ` H P ` d P* ` n P* ` x 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED ` P* ` P* A1 CONTAINS RETURN CODE ` P* ` P* ` PCWRITE LD
0x3c3bdc…3c3d70 Dummy {f00=0x0161, f01=0x0190, f02=»DER ` z P SUK A2,6 a P RF(Z) CWR100 WRITE REQUEST a P SUK A2,2 a B ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST a T P LDR A1,A1 a 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO a P LDK A2,2 TRANMISSION OK a ( P ST A2,DWTOR,A6 INDICATE READ OR
0x3c3d70…3c3f04 Dummy {f00=0x0161, f01=0x0190, f02=»0 a P ST A2,ECBCW,A8 b $ P CF A15,TENDIO COMPLETE REQUEST b " PCWR150 EQU * b J * P CF A15,REMOVW REMOVE FROM WRITE QUEUE b ^ PCWR200 EQU * b PCWR900 EQU * b " P CM XACK RESET 'ACK EXPECTED' b P CM FDWTUT b P RTN A5 b P b P*
0x3c3f04…3c4098 Dummy {f00=0x0161, f01=0x0190, f02=»1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW b ( P* 2 : IF CORRECT ETB BLOCK RECEIVED c 4 P* c ` PRDMESS EQU * c j $ P LD A4,DCRBUF GET BUFFER ADDRESS c ~ P ADK A4,6 RESERVE HEADER c P LDK A3,0 c P LD A1,XSTA c $ P RF(NZ) RDM050 LAST INPUT WA
0x3c4098…3c422c Dummy {f00=0x0161, f01=0x0190, f02=» c t ( P ST A4,FBLST REMEMBER START OF BLOCK d PRDM075 EQU * d 4 P CM XSTA d H P LDK A7,0 RESET LRC d X P d t P IFT IBMCHR=1 d | P LD A1,FBAX d " P RF(NZ) RDM100 NOT FIRST BLOCK d P CF A5,READP d P RF(NZ) RDM120 PARITY ERROR d P CWK
0x3c422c…3c43c0 Dummy {f00=0x0161, f01=0x0190, f02=» CF A5,READP READ ONE CHARACTER d P RF(NZ) RDM120 PARITY ERROR e ( PRDM110 EQU * e L P CWK A2,ETX e ` P RF(E) RDM130 ETX RECEIVED e t P CWK A2,ETB e P RF(E) RDM160 ETB RECEIVED e P CWK A2,ITB e P RF(E) RDM170 ITB RECEIVED e P CWK A
0x3c43c0…3c4554 (4, 486) Dummy {f00=0x0161, f01=0x0190, f02=» IFT CODE=0 e P IFT BINTRM=1 f P f * P LDR A1,A2 f 2 P SUK A1,DC1+3 f D P RF(P) RDM115 NOT DC1-DC3 f Z P ADK A1,3 f | P RF(N) RDM115 NOT DC1-DC3 f P SLL A1,6 f P LDR A8,A1 f * P CF A5,READP 8-BIT CHAR GET NEXT PART f P RF(NZ
0x3c4554…3c46e8 Dummy {f00=0x0161, f01=0x0190, f02=»CR A2,A4 STORE CHARACTER f P ADK A4,1 INCREMENT POINTER g $ P IM FBAX INCREMENT BUFFER INDEX g D P LD A1,FBAX g l P CWK A1,RBUFL+RBUFL g P RB(NG) RDM100 NOT OVERFLOW g P* g P* BUFFER OVERFLOW g P* g P RF RDM140 ABORT INPUT g
0x3c46e8…3c487c Dummy {f00=0x0161, f01=0x0190, f02=» g P* h P* ETX RECEIVED h P* h ( PRDM130 EQU * h 2 $ P LD A1,DCRBUF GET BUFFER ADDRESS h F P LD A2,FBAX GET BUFFER INDEX h n 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER h P IFF CODE=1 h P CF A5,RDLRC h P RF(Z) RDM150 LRC WAS OK
0x3c487c…3c4a10 Dummy {f00=0x0161, f01=0x0190, f02=» * h & P LDK A3,1 INDICATE INVALID MESSAGE i PRDM150 EQU * i 4 $ P LDR A7,A3 SAVE RESULT REGISTER i H P CF A5,HALTIN HALT INPUT i p P IFT P6805=1 i P ORR A7,A1 PARITY ERROR i P XIF i P RTN A5 i P* i P* ETB RECEIVED i P* i
0x3c4a10…3c4ba4 Dummy {f00=0x0161, f01=0x0190, f02=»* i P* ITB RECEIVED j P* j PRDM170 EQU * j * P IFF CODE=1 j > P CF A5,RDLRC j R " P RB(NZ) RDM120 LRC WAS NOT OK j f P XIF j P IFT CODE=1 j & P CF A5,RDCRC READ CRC AND CHECK IT j " P RB(NE) RDM120 CRC WAS NOT OK j P XIF j P
0x3c4ba4…3c4d38 Dummy {f00=0x0161, f01=0x0190, f02=»RS A2,CACK INCREMENT ACK COUNTER j P RF(NZ) TRDLE k ( P LDK A3,ACK0 LOAD ACK0 k > P RF TRDLE k P* k n P* TRANSMIT WACK k x P* k PTRWACK LDK A3,WACK LOAD WACK k P RF TRDLE k P* k P* TRANSMIT RVI k P* k P IFF STAT=0 k
0x3c4d38…3c4ecc Dummy {f00=0x0161, f01=0x0190, f02=»ESEND PUT INSAVE AREA k P SC A3,RESEND+1 l P RF TRREP l 6 P l H P* l R P* TRANSMIT NAK l P* l r PTRNAK LDK A3,NAK LOAD NAK l | P RF TREN10 l P* l P* TRANSMIT EOT l P* l PTREOT LDK A3,EOT LOAD EOT l P RF TREN10 l
0x3c4ecc…3c5060 Dummy {f00=0x0161, f01=0x018e, f02=» LDK A2,/FF l P SC A2,RESEND+1 m $ PTRREP CF A5,TRSYNC START OUTPUT m , & P LC A2,RESEND GET FIRST CHARACTER m T P CF A5,WRITEP SEND IT m ~ & P LC A2,RESEND+1 GET NEXT CHARACTER m P CF A5,WRITEP SEND IT m PTRRE10 LDK A2,/FF m P CF A5,WRI
0x3c5060…3c51f4 (4, 487) Dummy {f00=0x0162, f01=0x0190, f02=» m P CF A5,READ WAIT FOR END n P XIF n ( & P SST A2,LCUUT PERFORM SST AT ONCE n 6 P IFF LOGG=0 n ` ( P CF A5,LOGSST LOG TRANSMITTER STATUS n t P XIF n P RTN A5 n P n P* n P* n P* TRANSMIT ONE TEXT BLOCK n P* n P*
0x3c51f4…3c5388 Dummy {f00=0x0162, f01=0x018e, f02=»* n P* o P LD A4,FBAX o ( P RF(NZ) TRT050 NOT START OF MESSAGE o ( P o T 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? o P RF(NZ) TRT050 YES !! o P o P LD A4,FECBBA o " P LC A3,+2,A4 GET AID CHARACTER o P SUK A3,/30 o $ P
0x3c5388…3c551c Dummy {f00=0x0162, f01=0x0190, f02=» P CF A5,WRITE SEND % p P LDK A2,'/' p P CF A5,WRITE SEND / p 4 P LDK A2,STX p P P CF A5,WRITE SEND STX p d ( P ST A4,FBLST REMEMBER START OF BLOCK p ( P ADK A4,5 SKIP AID + CURSOR ADDRESS p P LDK A3,5 ADJUST LENGTH p P LDK A2,3 p
0x3c551c…3c56b0 Dummy {f00=0x0162, f01=0x0190, f02=» SEND STX p P LDK A7,0 RESET LRC q $ P LD A4,FECBBA GET BUFFER ADDRESS q . P AD A4,FBAX ADD BUFFER INDEX q V ( P ST A4,FBLST REMEMBER START OF BLOCK q z ( P ADK A4,2 SKIP FIRST WORD OF BUFFER q & P LDK A3,0 RESET CHARACTER COUNTER q P LD A1,FBAX
0x3c56b0…3c5844 Dummy {f00=0x0162, f01=0x0190, f02=»GET STA q P CF A5,WRITEP SEND STA r P IFT IBMCHR=1 r . P IFF RCOM=1 r D " P LDK A2,/27 SEND ENTER AS AID r X P CF A5,WRITEP r ~ " P LDK A2,/20 AND CURSOR ADDRESS r P CF A5,WRITEP r P LDK A2,/20 r P CF A5,WRITEP r P XIF r P I
0x3c5844…3c59d8 Dummy {f00=0x0162, f01=0x0190, f02=»DK A2,X'2D' AID FOR DISPLAY r PTRT060 CF A5,WRITEP SEND AID s $ P s H $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS s P . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER s x P LDK A3,5 SET BLOCK COUNT s P RF TRT100 s PTRT070 EQU * s P XIF s P s P L
0x3c59d8…3c5b6c Dummy {f00=0x0162, f01=0x0190, f02=»M=1 s & P LD A1,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT105 NO!! t 6 P t P @ P************************************************************ t X P* t , P* CHECK IF ATTRIBUTE CHARACTER OR NULL t P* t 4 P****************************************
0x3c5b6c…3c5d00 Dummy {f00=0x0162, f01=0x0190, f02=»E LINE FEED ? t " P RF(NE) TRT102 NO,GO TO TRT102 u P LDK A2,/0A u < PTRT102 EQU * u P P CWK A2,/7D END OF MESSAGE ? u d " P RF(NE) TRT103 NO,GO TO TRT103 u P LDK A2,/19 u PTRT103 EQU * u P CWK A2,X'7F' NULL ?? u P RF(NE) TRT105 u
0x3c5d00…3c5e94 (4, 488) Dummy {f00=0x0162, f01=0x0190, f02=»P SEND START FIELD u P v ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER v " P ANK A2,X'7F' v N ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE v d P ANK A1,1 v P ANK A2,/1E MASK v P SLL A2,1 v & P ORR A2,A1 IBM ATTRIBUTE COMPOSED v " P ORK A2,/40 BIT AL
0x3c5e94…3c6028 Dummy {f00=0x0162, f01=0x0190, f02=»QU * v P CF A5,WRITEP SEND ATTRIBUTE w P ADK A3,1 w 0 P RF TRT110 w B PTRT105 EQU * w T P XIF w h P w t P CWK A2,/07 w ~ ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT w P CF A5,WRITEP SEND CHARACTER w PTRT110 EQU * w $ P IM FBAX INCREMENT
0x3c6028…3c61bc Dummy {f00=0x0162, f01=0x0190, f02=»EMENT CHARACTER COUNTER w P CWK A3,TBLEN x P RB(L) TRT100 NOT FULL BLOCK x 6 P IFT RCOM=1 x Z , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK x n P CC A1,-2,A4 x P RF(E) TRT115 YES x P CC A1,-1,A4 x P RF(NE) TRT116 NO SEND ETB x ( P LCR A
0x3c61bc…3c6350 Dummy {f00=0x0162, f01=0x018e, f02=»T115 LCR A2,A4 GET SECOND BYTE AFTER SBA x P CF A5,WRITEP SEND IT y 0 P IM FBAX INCREMENT INDEX y N P XIF y n PTRT116 EQU * y z P LDK A2,ETB LOAD ETB y PTRT120 EQU * y P CF A5,WRITEP SEND IT y P IFF CODE=1 y P LDR A2,A7 GET LRC y
0x3c6350…3c64e4 Dummy {f00=0x0162, f01=0x018e, f02=» " P CF A5,WRIT05 SEND CRC BYTE 1 z P ECR A2,A8 z * P ANK A2,/FF z < " P CF A5,WRIT05 SEND CRC BYTE 2 z P P XIF z v P ABL TRRE10 HALT OUTPUT z PTRT130 EQU * z P IM XETX INDICATE 'ETX SENT' z PTRT140 EQU * z P LDK A2,ETX LOAD ETX z
0x3c64e4…3c6678 Dummy {f00=0x0162, f01=0x0190, f02=» z PTRSTA EQU * { $ P IM XSTA INDICATE 'STATUS SENT' { P ST A6,FDWTUT SAVE A6 { D P CF A5,TRSYNC START OUTPUT { b P LDK A2,SOH { P CF A5,WRITE SEND SOH { P LDK A7,0 REST LRC { P LDK A2,'%' { P CF A5,WRITEP SEND '%' { P LDK A
0x3c6678…3c680c Dummy {f00=0x0162, f01=0x018e, f02=» 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/S 0 | ` P SRL A1,1 | $ P LC A2,SSTAB,A1 GET STATUS BYTE | P CF A5,WRITEP SEND S/S 0 | P LDK A2,NOIR PRELOAD S/S 1 | P LD A1,DWT
0x3c680c…3c69a0 Dummy {f00=0x0162, f01=0x0190, f02=» | PTRST10 EQU * } P CF A5,WRITEP SEND S/S 1 } P RB TRT130 SEND ETX AND LRC } < P XIF } ` P } l P* } v P* } P* TRANSMIT SYNC SEQUENCE } P* } P* } PTRSYNC EQU * } P LDK A2,0 } * P CIO A2,0,LCUIN HALT INPUT IF NOT DO
0x3c69a0…3c6b34 (4, 489) Dummy {f00=0x0162, f01=0x0190, f02=» } P IFT CODE=1 ~ P LDK A2,0 ~ & P CIO A2,1,LCUUT START TRANSMITTER ~ . P RF(A) TRS010 ~ X P SST A1,LCUUT ~ n P RF(A) TRS005 ~ P ABL BRM ~ PTRS005 CIO A2,1,LCUUT ~ PTRS010 EQU * ~ P LDK A2,SYNEBC ~ * P OTR A2,1,LCUUT
0x3c6b34…3c6cc8 Dummy {f00=0x0162, f01=0x0190, f02=» TRS010 ~ P SST A1,LCUUT P RF(A) TRS005 & P ABL BRM < PTRS005 CIO A2,1,LCUUT N PTRS010 EQU * l P LDK A2,SYN * P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER P XIF * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4
0x3c6cc8…3c6e5c Dummy {f00=0x0162, f01=0x0190, f02=»* P* P* RECEIVER INTERRUPT P* 2 P* < PIH1501 EQU * F P ST P,INTSAV Z P IFT CPU852=1 n 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
0x3c6e5c…3c6ff0 Dummy {f00=0x0162, f01=0x0190, f02=»F A5,LOGIN LOG RECEIVED CHARACTER P XIF * P IFF CODE=1 6 P C2 SYNSW J P RF(NZ) IHLCI2 P CWK A2,SYN SKIP SYNS r P RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLC
0x3c6ff0…3c7184 Dummy {f00=0x0162, f01=0x018e, f02=»LCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF @ PIHIN10 RTN A5 L P IFT P6805=0 b PIHIN20 CF A5,SST PERFORM SST x P ABL BRM P XIF P IFT P6805=1 PIHIN20 RF SST PERFORM SST P XIF P
0x3c7184…3c7318 Dummy {f00=0x0162, 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 P* P* & P* SST INSTRUCTION AND STATUS CHECK P*
0x3c7318…3c74ac Dummy {f00=0x0162, f01=0x0190, f02=» , P* BIT 15=MODEM NOT READY P* 4 PSST SST A1,LCUIN > P IFT P6805=1 V & P RF(NA) SST200 ALREADY INACTIVE l P XIF P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION P XIF P IFT P68
0x3c74ac…3c7640 Dummy {f00=0x0162, f01=0x0190, f02=»2,2 P RF(NZ) SST050 THROUGH PUT P LDK A1,1 SET PARITY ERROR . P RF SSTRET P P XIF d PSST050 EQU * r P CM XSTA TROUHHPUT ERROR P LDKL A5,STB P ABL BRM010 PSST100 EQU * P ST A1,DCSTCU P IFT P6805=0
0x3c7640…3c77d4 (4, 490) Dummy {f00=0x0162, f01=0x0190, f02=»200 LSALCUZ 0 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS P DATA BRM RESTART H P DATA 2 WAIT TIME b P RF READ | P* PSST200 LDK A1,0 PSSTRET ADK A5,4 P LDR A1,A1 SET CR P ABR* A5 RETURN P XIF P
0x3c77d4…3c7968 Dummy {f00=0x0162, f01=0x0190, f02=»T PERFORM SST INSTRUCTION AND STATUS CHECK P XIF 2 P IFT P6805=1 @ $ P RF READ WAIT FOR SST INTERRUPT V P XIF ~ P P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* P* PWRITE EQU * P IFT C
0x3c7968…3c7afc Dummy {f00=0x0162, f01=0x0190, f02=» EBCDIC r P XIF PWRIT05 EQU * " P OTR A2,0,LCUUT SEND CHARACTER 0 P RF(A) WRIT10 V P RF READ THROUGHPUT ERROR l P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE
0x3c7afc…3c7c90 Dummy {f00=0x0162, f01=0x0190, f02=»BL TDISP P P* P* $ P*** WRITEP . P* @ P* WRITE A2 WITH PARITY J P* j P* t P IFT CODE+P6805=0 ~ PWRITEP ANK A2,/FF P ECR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1 P RB(P) WRI100 P R
0x3c7c90…3c7e24 Dummy {f00=0x0162, f01=0x0190, f02=»* P* P* P*** READP P* 0 . P* READ CHARACTER TO A2 AND CHECK PARITY : P* l P* v PREADP CF A5,READ P IFT CODE+P6805=0 P ECR A1,A2 PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 P XRK
0x3c7e24…3c7fb8 Dummy {f00=0x0162, f01=0x0190, f02=» XIF P ADK A5,4 P ANK A1,/80 P XRK A1,/80 2 P ABR* A5 F P* V P* ` P j P* t < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 ~ P* $ P* CALLING SEQUENCE: CF A5,FINTER P* A2=SUBTERMINAL ADDRESS
0x3c7fb8…3c814c Dummy {f00=0x0162, f01=0x0190, f02=»SES V * P* ENTRY: FINTER - CHECK SELECT ADDRESS , P* FINTEP - CHECK SPECIFIC POLL ADDRESS : P* j . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE t P* P* PFINTEP EQU * P IFT MSV1=0 PFINTER EQU * P XIF P IM RB
0x3c814c…3c82e0 Dummy {f00=0x0162, f01=0x0190, f02=»F DC:TAB r PFINT10 SUK A4,2 P LDK A3,0 DEFAULT VALUE ( P CW A4,DCTAB END OF TABLE H ( P RF(E) FINT20 SUBTERMINAL NOT FOUND j P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 $ P AD A3,RBYTE CHOOSE ADDRESS TYPE * P CCR A2,A3 COMPARE
0x3c82e0…3c8474 (4, 491) Dummy {f00=0x0163, f01=0x0190, f02=» TAKE NEXT TERMINAL PFINT20 CM RBYTE P ANKL A3,/FFFE 4 P RTN A5 J P Z P* d P* n P* POWER ON FUNCTIONS x P* P* PDC15ON EQU * P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P I
0x3c8474…3c8608 Dummy {f00=0x0163, f01=0x0190, f02=» AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 2 P CW A1,DCTAB J P RF(E) DRDC06 END OF TABLE ^ P LDR* A6,A1 GET DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE ( P CF A15,INSSQ INSERT IN STATUS QUEUE P RB
0x3c8608…3c879c Dummy {f00=0x0163, f01=0x0190, f02=»ER POINTER v " P RF(NZ) DRDC20 ALREADY STARTED * PDRDC10 CF A15,SPOTIM START POLL TIMER 8 PDRDC20 ABL BRM f P | P* P* POLL TIME OUT P* ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE P LDK A2,/40 ( P ST A2,DCONOF INDICATE
0x3c879c…3c8930 Dummy {f00=0x0163, f01=0x018e, f02=»* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED P* 8 $ PCPTIM CM DCONOF INDICATE POLLING B P LDKL A2,-TIMPOL j P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 P* P* START POLL TIMER P
0x3c8930…3c8ac4 Dummy {f00=0x0163, f01=0x0190, f02=» P ABR* A15 P P* P* START PROCEDURE TIMER * P* J PSPTIM EQU * T $ P LDR A1,A6 LOAD DWT AS PARAMETER h P CF A15,SETIME P DATA PRTOUT,TIMPRO $ P ST A4,DCTPP SAVE TIMER POINTER P RTN A5 P* P* PR
0x3c8ac4…3c8c58 Dummy {f00=0x0163, f01=0x0190, f02=»HALT INPUT IF OPEN P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED . P CF A5,TRENQ SEND ENQ T & P CF A5,SPTIM START PROCEDURE TIMER r PPRT10 ABL BRM P P* P* STOP PROCEDURE TIMER P* ( PHPTIM LD A1,DCTPP GET TIME
0x3c8c58…3c8dec Dummy {f00=0x0163, f01=0x0190, f02=»E=1 P* P* P* CALCULATION OF CRC P* < P* A2 = CHARACTER F P* A7 = ACCUMULATED CRC ^ P* | P* PCRCCAL EQU * P ST A1,CRCSAV P ST A2,CRCSAV+2 P ST A3,CRCSAV+4 P LDK A1,8 PCRC100 LDR A
0x3c8dec…3c8f80 Dummy {f00=0x0163, f01=0x0190, f02=»UK A1,1 P RB(NZ) CRC100 P LD A1,CRCSAV & P LD A2,CRCSAV+2 < P LD A3,CRCSAV+4 T P RTN A5 l PCRCSAV RES 3 | P P* P* ( P* READ CRC CHARACTERS AND CHECK THEM P* CR = (E) IF CRC WAS OK P* P*
0x3c8f80…3c9114 (4, 492) Dummy {f00=0x0163, f01=0x0190, f02=»VE IT ~ P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN . P LD A2,CRCSAV+2 SAVE IT Z P SLL A2,8 z P XRR A2,A8 P ADK A5,4 . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED P ABR* A5 P XIF P IFT CODE=
0x3c9114…3c92a8 Dummy {f00=0x0163, f01=0x0190, f02=»A5,READP P ADK A5,4 P LDR A1,A1 " P RF(NZ) LRCEND 4 P ANK A7,/7F J PLRCEND EQU * ^ P CM SYNSW r P ABR* A5 P P XIF P P* P* " P* DEVICE WORK TABLE FOR DCTASK P* P* PDW1500 E
0x3c92a8…3c943c Dummy {f00=0x0163, f01=0x0190, f02=»A DC15DC POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRESS * $ P DATA 0 WAIT/ACTIVATE INDICATOR F P DATA 0 TASK QUEUE n P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS P XIF P* P DATA
0x3c943c…3c95d0 Dummy {f00=0x0163, f01=0x0190, f02=»SSAGE QUEUE ~ , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR ADDRESS D " P DATA 0 REQUEST TIMEOUT VALUE b P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* P P* P
0x3c95d0…3c9764 Dummy {f00=0x0163, f01=0x0190, f02=»ANCHOR z P IFF RBUFNR=1 DK3 P IFF RBUFNR=2 ( P DATA *+RLINK > P RES RBUFL+3 T P IFF RBUFNR=3 h P DATA *+RLINK ~ P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK P RES RBUFL+3 P XIF P IFF RBUFNR=1 DK3
0x3c9764…3c98f8 Dummy {f00=0x0163, f01=0x0190, f02=» & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF 2 P > P* H P* R P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 PLOGOUT ST A2,SAVE2 P ORK
0x3c98f8…3c9a8c Dummy {f00=0x0163, f01=0x0190, f02=»OGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND 2 P RF(L) LOGEXI H P LDKL A3,LOGSTA ^ PLOGEXI ST A3,LOGPNT v P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P P* P* PLOGPNT DATA LOGSTA P
0x3c9a8c…3c9c20 Dummy {f00=0x0163, f01=0x0190, f02=» P IFT RCOM=1 P < P******************************************************* " P* b P* L I N C O L l P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* > P************************************************
0x3c9c20…3c9db4 (4, 493) Dummy {f00=0x0163, f01=0x0190, f02=»T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER P D P LDR A2,A3 L P ANK A2,X'3F' ^ ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER t $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN P* P* P* P P
0x3c9db4…3c9f48 Dummy {f00=0x0163, f01=0x018e, f02=»32E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F N * P DATA /2D2F,/5354,/5556,/5758 /20-/27 | * P DATA /595A,/402C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DAT
0x3c9f48…3ca0dc Dummy {f00=0x0163, f01=0x40be, f02=» " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 X PDC:END EQU * P* P* P END @ 55F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DAT
0x3ca0dc…3ca270 Dummy {f00=0x0163, f01=0x2008, f02=» H P X ` h p x
0x3ca270…3ca404 Dummy {f00=0x0163, f01=0x0190, f02=»/08-/0F r * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F > * P DATA /2D2F,/5354,/5556,/5758 /20-/27 l * P DATA /595A,/402C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5
0x3ca404…3ca598 Dummy {f00=0x0163, f01=0x40b0, f02=»A 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 J PDC:END EQU * x P* P* P END @ F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A5B,/5
0x3ca598…3ca72c Dummy {f00=0x0163, f01=0x2008, f02=» H P X ` h p x
0x3ca72c…3ca8c0 Dummy {f00=0x0163, f01=0x0190, f02=» ! ! 4 0 P W W }H } +*4 + 4 4@ @ 4 Iv H{ I! u( H! u!0 0, I HP ) 4 4 u0- Q P I 0 @ 4 ! y"! ) H @ A A @ )W 4 0* 0. T w
0x3ca8c0…3caa54 (4, 494) Opaque[0x194]
0x3caa54…3cabe8 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x3caa54…3cabe8 IdxSect {
0x3caa54…3cabe8 f00 = 0x0129 // 0x3caa54 @0x0
0x3caa54…3cabe8 f01 = 0x0002 // 0x3caa56 @0x2
0x3caa54…3cabe8 gno = [ // 0x3caa58 @0x4
0x3caa54…3cabe8 [0x00]: C0x0129.0x3.0
0x3caa54…3cabe8 ]
0x3caa54…3cabe8 }
0x3cabe8…3cad7c Dummy {f00=0x0129, f01=0x0190, f02=» PSCR PINC SYSTAB PLKE M " PKPF /L,M:92NA 0 PSKF F SCR R LED DRDC15,/S ^ * &!!CH $$TBLEN EQU 2300$$TBLEN EQU 252$$ t $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL KPF /O SCR LED EB
0x3cad7c…3caf10 Dummy {f00=0x0129, f01=0x008e, f02=» KPF /L,M:92NE SCR ASM DRDC15,NL * KPF /O @ SCR N ASM EBCDIC,NL Z KPF /O p ASG /E0,TY10 ~EN EQU 252$$ t $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL KPF /O SCR LED EB
0x3caf10…3cb0a4 Dummy {f00=0x0129, f01=0x2008, f02=» KPF /L,M:92NE SCR ASM DRDC15,NL * KPF /O @ SCR N ASM EBCDIC,NL Z KPF /O p ASG /E0,TY10 ~EN EQU 252$$ t $ !!CH $$CODE EQU 0$$CODE EQU 1$$ !!EN ASM /S,NL KPF /O SCR LED EB
0x3cb0a4…3cb238 Dummy {f00=0x0129, f01=0x0190, f02=» X R p , ( =" X T X P , Y L , ( Y! C L C @ , ( * s > @ @ @ A X _" p , ( X P y Y X P T , ( @ T A A > A A A A , (
0x3cb238…3cb3cc Dummy {f00=0x0129, f01=0x0190, f02=» h , ( 1 P P ! , ( Q T T A P A T ! T 8 , ( q ! T T ! T ! A I A h , ( P " ! _ ! , ( T " X ! _ ! A @ , ( P P @
0x3cb3cc…3cb560 Dummy {f00=0x0129, f01=0x0190, f02=» ! A _B ! X>_b A @ , ( O @ T 1 Z 0 2P P P ( TEBCDI X , ( R o @ A @ 8 H @ P E j , ( P X R X P X T * & ! P C C X , ( D T
0x3cb560…3cb6f4 (4, 495) Opaque[0x194]
0x3cb6f4…3cb888 # DirEnt {nam=»M:92LP«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2c80, f03=0x0000}
0x3cb6f4…3cb888 IdxSect {
0x3cb6f4…3cb888 f00 = 0x0164 // 0x3cb6f4 @0x0
0x3cb6f4…3cb888 f01 = 0x0020 // 0x3cb6f6 @0x2
0x3cb6f4…3cb888 gno = [ // 0x3cb6f8 @0x4
0x3cb6f4…3cb888 [0x00]: C0x0164.0x0.0
0x3cb6f4…3cb888 [0x01]: C0x0164.0x1.0
0x3cb6f4…3cb888 [0x02]: C0x0164.0x2.0
0x3cb6f4…3cb888 [0x03]: C0x0164.0x3.0
0x3cb6f4…3cb888 [0x04]: C0x0165.0x0.0
0x3cb6f4…3cb888 [0x05]: C0x0165.0x1.0
0x3cb6f4…3cb888 [0x06]: C0x0165.0x2.0
0x3cb6f4…3cb888 [0x07]: C0x0165.0x3.0
0x3cb6f4…3cb888 [0x08]: C0x0166.0x0.0
0x3cb6f4…3cb888 [0x09]: C0x0166.0x1.0
0x3cb6f4…3cb888 [0x0a]: C0x0166.0x2.0
0x3cb6f4…3cb888 [0x0b]: C0x0166.0x3.0
0x3cb6f4…3cb888 [0x0c]: C0x0167.0x0.0
0x3cb6f4…3cb888 [0x0d]: C0x0167.0x1.0
0x3cb6f4…3cb888 [0x0e]: C0x0167.0x2.0
0x3cb6f4…3cb888 [0x0f]: C0x0167.0x3.0
0x3cb6f4…3cb888 ]
0x3cb6f4…3cb888 }
0x3cb888…3cba1c Dummy {f00=0x0164, f01=0x0190, f02=» x J h h h h h h < h h'.'T $ L . 8 h h h h h h $ h h h h h L 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
0x3cba1c…3cbbb0 Dummy {f00=0x0164, 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 " ^ _ @^ > > U # T @ H ( ( P c P W: P, A^ @ V ( U P" @E~V LE~W @E
0x3cbbb0…3cbd44 Dummy {f00=0x0164, f01=0x0190, f02=» 6 8 ^ Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @^ : ) A^ _ @ @ A H ( A^ _ ? ? ? ? ? ^ A _ _ ^ ^ $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x3cbd44…3cbed8 Dummy {f00=0x0164, f01=0x0190, f02=» Q Q > > 0 @^^ 1 A^^ P P > ? * X " R" Y T ? X D F T> Z W8 > _& @ 8 R" Y T ? X D F T Z W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @^PV ? ^P > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x3cbed8…3cc06c Dummy {f00=0x0164, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U ^ XH D #DP @ R XV Y @ P, F T W X &P T X I Y T # C C W4 O " # X Y ) C
0x3cc06c…3cc200 Dummy {f00=0x0164, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x3cc200…3cc394 (4, 496) Dummy {f00=0x0164, f01=0x0190, f02=» 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 _@(@ L U L Q0 M & X
0x3cc394…3cc528 Dummy {f00=0x0164, f01=0x0190, f02=» 0P X T 4 Y X F X T X Z 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > ^dJ B B ^lJ B B pU
0x3cc528…3cc6bc Dummy {f00=0x0164, f01=0x0190, f02=» 0 R t B " P Q :A H P P ^ H !@T I ^ T ! 1 U ^ A d ? W A d ? W A d ? W U R ; V ~# T R p 4 # PJ P 4 RL P 4 ] P $ P ] U PD P< P0 P,
0x3cc6bc…3cc850 Dummy {f00=0x0164, f01=0x0190, f02=» ' T P X P " >Wh T # Y U T ] W 8V X $P y $W $ E@ P 8R R ^ Y $ X Z ;BR 8% =A Y T Z& h_, X ' X 4X< XB U T T U 5 U R " ] ~ ^ ;h # <c$
0x3cc850…3cc9e4 Dummy {f00=0x0164, f01=0x0190, f02=»X <d$ _D $?:D" Y X P Y # P 4T U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X h > P P P ` X XF _H Wj ? T T E@ W u > > E D E
0x3cc9e4…3ccb78 Dummy {f00=0x0164, f01=0x0190, f02=»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 " ] ~ Y > > V P
0x3ccb78…3ccd0c Dummy {f00=0x0164, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X 9BV$ X & Y " X D V & X . T 8TV 9WD B 7P P ^ A^ W A^ @^ A.W ? A dI.9 X R C C & ^ ?A @^ A. X V 9_: @
0x3ccd0c…3ccea0 Dummy {f00=0x0164, f01=0x0190, f02=» W Q P P 1 ! X T V C B Q 1 & ^ Y Y Y B X _ ? X Z(W@ A d ? ? H $B T I H T B > > > ? ? ? ? ? I X ' X T B C X 4 ~ Y V P
0x3ccea0…3cd034 (4, 497) Dummy {f00=0x0164, f01=0x0190, f02=» 4XR XX 5 h_b Y Y Y X !Pp P X ! 6 Y * X . ! j Y T & ` P Pb P Pv Pz 6 + ^ A^ @^ A. H E@ T ^ Y HW A^ @^ A. Wx ! * X , X P ! ! 2W< ! * _ ! *
0x3cd034…3cd1c8 Dummy {f00=0x0164, f01=0x0190, f02=» 0 TOT 0 SST X Y ,W 0 X Y , Y * ! 8 ! X *' P ! ! x D ) P _ X " X ! Tr X !& Ph B 0 0 :C P ! 8 9DV ! (@ B r ! ! R ! j ! ! b ! ( ! ! Z ! X Y . X * V " ! 8_ Y *
0x3cd1c8…3cd35c Dummy {f00=0x0164, f01=0x0190, f02=»# T X Y ._ Y *# 4 ! n ^ ( C V ! ! 8 B B ! j ! xW0 W ! n X@ b ! x C (Q ! ! * ! 2 ! n ! T )WL WP ! n Xz R ! x ( - j ! x ) W. Y PW Y P Y L Y N Y B S W W B C & ^ _ ? Y " X $ T X
0x3cd35c…3cd4f0 Dummy {f00=0x0164, f01=0x0190, f02=» X # P Y .:A , X J A^ Y J @^ B. X $ Y Y $ Y X h Y & X '? A d ? (@ X L X N K P6 X PT $ D C Y B ^ K & E % Y B K X ;AR@;a X &P Y & P 7P < $ <C ! 9 4 X d " _ W
0x3cd4f0…3cd684 Dummy {f00=0x0164, f01=0x0190, f02=»;A _ 4 X 0 # P _ 4(@ R DDl 1_ W (@ R 0 DDl ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y * ! 0" Z Y" P Z _ 4 A L;D A L 4 R _ ;H 4 r ! x (:C 4 Z ! x ( 4
0x3cd684…3cd818 Dummy {f00=0x0164, f01=0x0190, f02=» X # P Y :A , X A Y @ B. X Y Y P Y P 7P < $ <C ! 9 4 X d " _ W
0x3cd818…3cd9ac Dummy {f00=0x0164, f01=0x0190, f02=»;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A L;D A L 4 R _ ;H 4 ! (:C 4 ! ( 4
0x3cd9ac…3cdb40 Dummy {f00=0x0164, f01=0x0190, f02=» X # P Y :A P, P P~ 1P( P W P P 5P ^ ^ X P WL B 9 B Y B Y ( P. @D& Dl ^ @D( `D( @D(P 0P _ % AD& AD* &_^ B Q< B_r X P 0 Y P C x_ _ B Y _N ^ X P A E> Y Wb Y
0x3cdb40…3cdcd4 (4, 498) Dummy {f00=0x0164, f01=0x0190, f02=» ) 1_ (X( P _ 0 )_6 (P _ ) 1 4 ( X R2 X T* X P& , Y L C L C x > @ @ @ A X &_" X P y Y X P T X @!L T A!N A!L > A!. A!2 A!6 A!: A!> !BW > 4
0x3cdcd4…3cde68 Dummy {f00=0x0164, f01=0x0190, f02=» T@ !' T8 !' A I A!X P " $l !' $ _ !' T ( $4" X !' _ !(n A!V @!NP @!LP !$ A!N A!P_ !(n @!PP @( X@ !%* T< A!T !% !n @!NP @( P @!L " 8 !$V !$ A!X_: !' X6_Z A!T @( @!dT 1 R 0 2P P P A!b . @!J 8 HDl @(
0x3cde68…3cdffc Dummy {f00=0x0164, f01=0x0190, f02=» !n_ A!P @!J X A!V A!L A!X @!l A!l $ !(n @!NT @!PP !% !n !(n @!NT @!PX Wj A I ! E># ^ !, @!L @!d @!^ A!b $ !(n @!NXN !' T @!XP !% !(>_h 1T& @!XX @!RP !$ !% A!V_ A!X $ < A!N @!RT _, _0 @!NT8W !n @( T !
0x3cdffc…3ce190 Dummy {f00=0x0164, f01=0x0190, f02=» B A!^ A!` A!b A!R A!T !& !(> A!N_^_V @!LP6 X R0 X P T$ T Y W ! P C & X A!N A!L 4 @( @!TT @!d A!b @!b A!d A!T !' T2 P4 PJ PL P P. 1 A!b @!b ]6W P _@ @( @!b E !(~P !'~ 4 _$ !(~ 2_l 1
0x3ce190…3ce324 Dummy {f00=0x0164, f01=0x0190, f02=» @!bT( @( !' 8 !' @!VP - !' x !C W 0 " @!VPL R ~T }T T0 W, !' P " ! " :A *@ HDl T 0 !' W R !' A!b @!` @!bU< Zx Q P Q T 0 !' A!b 0 !' A!b !' !' & A!R _ B J B !' !' 4 A d ? !,
0x3ce324…3ce4b8 Dummy {f00=0x0164, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @D( `D( @D(P 0 M A' 4 ? @ A @ T (, !n @ A (, ^ A a 4 E>( X A > E>(N Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4 (
0x3ce4b8…3ce64c Dummy {f00=0x0164, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3ce64c…3ce7e0 Dummy {f00=0x0164, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3ce7e0…3ce974 (4, 499) Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3ce974…3ceb08 Dummy {f00=0x0165, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3ceb08…3cec9c Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3cec9c…3cee30 Dummy {f00=0x0165, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3cee30…3cefc4 Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3cefc4…3cf158 Dummy {f00=0x0165, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3cf158…3cf2ec Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3cf2ec…3cf480 Dummy {f00=0x0165, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3cf480…3cf614 (4, 500) Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3cf614…3cf7a8 Dummy {f00=0x0165, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3cf7a8…3cf93c Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3cf93c…3cfad0 Dummy {f00=0x0165, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3cfad0…3cfc64 Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3cfc64…3cfdf8 Dummy {f00=0x0165, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3cfdf8…3cff8c Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!VP R ~T }T T W ! P " ! " :A *@ H T 0 ! W R ! A!b @!` @!bU Zx Q P Q T 0 ! A!b 0 ! A!b ! ! & A!R _ B J B ! ! 4 A d ? !,
0x3cff8c…3d0120 Dummy {f00=0x0165, f01=0x0190, f02=» 9AP ^ 2 _ " ! 1 4 A' @ ` @ P 0 M A' 4 ? @ A @ T !n @ A A a 4 ( X A > Z A!h 4 A!h !'~ @!NP !% !(> !n @!hP a!h A!h 4 A!Z !' T ' A!Z 4
0x3d0120…3d02b4 (4, 501) Dummy {f00=0x0165, f01=0x0190, f02=» @!bT @ ! 8 ! @!VP - ! x ! W 0 " @!V :f"? HC !' "? HC !' 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="D,D* 7- <=2&p ?' @O JZlP}M] N
0x3d02b4…3d0448 Dummy {f00=0x0165, f01=0x0190, f02=» P E$ E>E. _ t _< ? ^ 4 _ P P @ 6 1 A 6 _ P 9 > > & D_ _._6_2D _Rx x yD y y | | x x F F H H H H H G G G0F GtG F H H F G G G0F " # $ % "$&( F
0x3d0448…3d05dc Dummy {f00=0x0165, f01=0x0190, f02=» ( U H B r ]p W Y & Y $ 0 Y . G [Z H B Y I B Y J_ W [ C P C W < C C _H [ H H S W C C B B B U [ R Wp H TP L P B r L ( ]p $ X _ X ` T I T
0x3d05dc…3d0770 Dummy {f00=0x0165, f01=0x0190, f02=» P #D { I6 ^ ^ I I MfMfMfMfMfL L I MfL I MfMfMfMfL L I F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P
0x3d0770…3d0904 Dummy {f00=0x0165, f01=0x0190, f02=» V, P ( I ( ( W I( ^ Mf B W C X '? H$ X & X ( )T Mf HN H L X $TT T AHL J , Zv P W T Y $ P T _ Y & F P X(@ _ K X & X I U X J U ( ^ T$ X X RP
0x3d0904…3d0a98 Dummy {f00=0x0165, f01=0x0190, f02=» @ X WF [Z N 4 5W P 0 @WP 1 AWP(@_ 1 (@ K / O $P % 4 F H (@ B P P 9 X M| 4' K,' K, 5 K, 4 Q W , P& ,' X X 1 Z" ) K,_ (@ C ( B ! Mf
0x3d0a98…3d0c2c Dummy {f00=0x0165, f01=0x0190, f02=»W Mf X ( X & F X P @^ Q (@ ]p + X ^V" P "P8 $P4W X & X bT( ;AR ( L ( I( ^ T Y ^ F " F D '? P P( $ P" [ I I K K P P & P [ZW D $ T [ T [>W E I E J X
0x3d0c2c…3d0dc0 Dummy {f00=0x0165, f01=0x0190, f02=»{ P P z @zh X(@ Dzj C C C W C ( M M L " TOP P Az L Az L C z @z Az Q< @zh P Azh @z P B P Dzj EzlX #D( M ( B P B @zh Dzj W C C ( M M z zf
0x3d0dc0…3d0f54 (4, 502) Dummy {f00=0x0165, f01=0x0190, f02=»zh Ezv P Ez P Ez DztT z P P Q 2% P( R 0 XzjT R , @z T R RT @z Q P 6 Q 2% P P z r P %_ S F S E 3 P S I P S J P S ( P S * P % S H P & S P @z S , d S B | N
0x3d0f54…3d10e8 Dummy {f00=0x0165, f01=0x0190, f02=» Y U ! T ! X6 _R _V Dz " P z Az ( ^ W @z P6 I @z P @Z" V W HZ$ IZ&(@ @z P -W P B P X z (@( @z Q _ T `zf ` 9A S ^ H $X D S . S $ ] R * S W
0x3d10e8…3d127c Dummy {f00=0x0165, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S F S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N
0x3d127c…3d1410 Dummy {f00=0x0165, f01=0x0190, f02=» Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ Q _ T ` ` 9A S ^ H $X D S . S $ R * S W
0x3d1410…3d15a4 Dummy {f00=0x0165, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S F S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N
0x3d15a4…3d1738 Dummy {f00=0x0165, f01=0x0190, f02=» Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ Q _ T ` ` 9A S ^ H $X D S . S $ R * S W
0x3d1738…3d18cc Dummy {f00=0x0165, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S F S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | N
0x3d18cc…3d1a60 Dummy {f00=0x0165, f01=0x0190, f02=» Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I (@ @ P -W Z, P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ?
0x3d1a60…3d1bf4 (4, 503) Dummy {f00=0x0166, f01=0x0190, f02=» & D LW 0P Q P P E +P W : X + P X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @^^ 1 A^^ Z> : D NW (P D + I W6 @WPT n ( AWP U 1_ D + I D N ) E N : T * ZvSP P W X * 0
0x3d1bf4…3d1d88 Dummy {f00=0x0166, f01=0x0190, f02=» Y ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C W C C X %? : X &_ 0 D . P , _ D . D $ D * ZP T ( T & ^ S W : U ; $ T $ T $ T&x : :
0x3d1d88…3d1f1c Dummy {f00=0x0166, f01=0x0190, f02=» U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< ' h N l n m _ c f i i > > @^ 0 A^ W & ^ ! Z( ^ (X0 @^ P T M ]@ , ) A^ P* P Y U ( ) 5 & > > [ [ ^
0x3d1f1c…3d20b0 Dummy {f00=0x0166, f01=0x0190, f02=»T0. T G Y6 G _b P ,P - _ ( ( _ b _ ? X V Y ^ ! 2W< Y U R -P b X , ) Y . a X P Y P C W~ 8!@P$ X $P y $W $ E@b ` Y $ X " PP:A: R Q W Y <D X ? ?: T
0x3d20b0…3d2244 Dummy {f00=0x0166, f01=0x0190, f02=» V cL ! B P X " _` B P$ $$ R % C cL* ! W Y +PH Y *P> Y (P Y )P cL R _Q P OR R W " ! B `L Wr W 0 Z cL ! B Z Z& X . 0T X W X ,P Y . 0 %_. % Y . W _p P cL _ X
0x3d2244…3d23d8 Dummy {f00=0x0166, f01=0x0190, f02=» $4 P c X .T * W Y , - ^ @ Y $ X Z _X ? 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 > XT 0 _
0x3d23d8…3d256c Dummy {f00=0x0166, f01=0x0190, f02=» ! ! W B W$ B L # 9Q T W Q P X & V T Y &W cl X ! T6 B R0Q$ B D ! V ! ! ! W !f !e Y ! T ! V c ! B C ! ! T " T W Q " T ) ^ !f cv Y _ ! !fl Y &P Q W
0x3d256c…3d2700 Dummy {f00=0x0166, f01=0x0190, f02=» ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !fT Y Y U ! _$ W4 , ! T ,' c ! R !__U C X ' W Y ! _ X RT U TJ X d ? Y X P " ! Y ' ! X T ! ^ c ^ R _ 4
0x3d2700…3d2894 (4, 504) Dummy {f00=0x0166, f01=0x0190, f02=» f hNh hj PB P8 ^ B P B L # +P ! ! T ! Y & ! W ! ! W ! Y Y h F U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P F F" $ P X & X ]r ! Y Y Y _
0x3d2894…3d2a28 Dummy {f00=0x0166, f01=0x0190, f02=» C > X Z^<BR P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q h -_ ? _ X # ! ^ Y _( ? X Z ! P4 P g g X " f ! ! X & g g i& idi B 8# T $ # ;D 7P P ^ Y W Y
0x3d2a28…3d2bbc Dummy {f00=0x0166, f01=0x0190, f02=» P P kd & kL ^ B P B H " +P P. T Y ' ! R| X ( Y &R Y & _ Y &_. B 1 l ! k B B U4 $ ! T _ U D ! T _ $$ X" X& X* C F kx X`" Ei P( 8'0P Ei TD ! T 9 _ ! T @
0x3d2bbc…3d2d50 Dummy {f00=0x0166, f01=0x0190, f02=» ! k j B !m !mH ! k B Y & !mfW j 8!0T 8 !@P ! $ P ! ! k ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X
0x3d2d50…3d2ee4 Dummy {f00=0x0166, f01=0x0190, f02=»" X &" Y )U W ! ! ! Y 4 B j8 U )X R@ X X &" Y * X ) V Y !mH X $ X & !mf X * j j8 `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k > v
0x3d2ee4…3d3078 Dummy {f00=0x0166, f01=0x0190, f02=» ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X
0x3d3078…3d320c Dummy {f00=0x0166, f01=0x0190, f02=»" X &" Y )U W ! ! ! Y 4 B j8 U )X R@ X X &" Y * X ) V Y !mH X $ X & !mf X * j j8 `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k >
0x3d320c…3d33a0 Dummy {f00=0x0166, f01=0x0190, f02=» ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X
0x3d33a0…3d3534 (4, 505) Dummy {f00=0x0166, f01=0x0190, f02=»" X &" Y )U W ! ! ! Y 4 B j8 U )X R@ X X &" Y * X ) V Y !mH X $ X & !mf X * j j8 `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k >
0x3d3534…3d36c8 Dummy {f00=0x0166, f01=0x0190, f02=» ! j B ! ! ! B Y & ! W j 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & ^ X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y ! T X ! Y & Zl k T _ ! X
0x3d36c8…3d385c Dummy {f00=0x0166, f01=0x0190, f02=»" X &" Y )U W ! ! ! Y 4 B j8 U )X R@ X X &" Y * X ) V Y !mH X $ X & !mf X * j j8 `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 k >
0x3d385c…3d39f0 Dummy {f00=0x0166, f01=0x0190, f02=»7 R ( P H RN H P ' P m P W< m T6 x ' P !xJ & B # P G W G & ^ X P P R: Aw~ E@w Y X T Q (P H U ^ 9 1_N ^ X T @m P ( Am x8 _ ( Y _ m _x X T @m P ( Am x8_ ( Y _ m _
0x3d39f0…3d3b84 Dummy {f00=0x0166, f01=0x0190, f02=» U ^ C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X
0x3d3b84…3d3d18 Dummy {f00=0x0166, f01=0x0190, f02=»_2 < U = (@ " $ P B >H<h zN P ?_" = > = > = =_D R _ 00 > & <h$ P > m _x X T @m P ( Am _ ( Y @zbP 4 Azb
0x3d3d18…3d3eac Dummy {f00=0x0166, f01=0x0190, f02=»P T W ' T| Izj @ 8 =hP Y X Pl 0T< Y Hzj! R W 9a Izj T T 9a Hzk Ez ^ W P ,! T T ( | : n "' # z @z`P zb $ ) 5 ^ Az` Az Azd z " ]p zf Azr "" P U W {
0x3d3eac…3d4040 Dummy {f00=0x0166, f01=0x0190, f02=» @ 0 Rb ' F "R G z @zh Dzj #D T G W, Az M "R Az Az ^ z }X ~ m _x X T @m P ( Am _ ( Y @zbP 4 Azb
0x3d4040…3d41d4 (4, 506) Dummy {f00=0x0166, f01=0x0190, f02=»P T W ' T Izj @ 8 =hP Y X P 0T Y Hzj! R W 9a Izj T T 9a Hzk Ez ^ W P ,! T T ( : n "' # @z`P zb $ ) 5 ^ Az` Az Azd z " ]p zf Azr "" P U W {
0x3d41d4…3d4368 Dummy {f00=0x0166, f01=0x0190, f02=» @ 0 Rb ' F "R G z @zh Dzj #D T G W, Az M "R Az Az ^ z > m _x X T @m P ( Am _ ( Y @zbP 4 Azb
0x3d4368…3d44fc Dummy {f00=0x0166, f01=0x0190, f02=»P T W ' T Izj @ 8 =hP Y X P 0T Y Hzj! R W 9a Izj T T 9a Hzk Ez ^ W P ,! T T ( : n "' # @z`P zb $ ) 5 ^ Az` Az Azd z " ]p zf Azr "" P }X {
0x3d44fc…3d4690 Dummy {f00=0x0166, f01=0x0190, f02=» @ 0 Rb ' F "R G z @zh Dzj #D T G W, Az M "R Az Az ^ z m _x X T @m P ( Am _ ( Y @zbP 4 Azb
0x3d4690…3d4824 Dummy {f00=0x0166, f01=0x0190, f02=» [ [ M M M A}T -(@ : - : @}T , L T M @}T : =a 9a Q - _ - > @ HPJ r Q WP | WR AWP Z" | @}T , - M M M @}T Az` Azb > ($SWAP A A A A. UU @ @ ! P$>B @ A
0x3d4824…3d49b8 Dummy {f00=0x0166, f01=0x0190, f02=» P. _ " :c* A W " :d2 * A F & W F ` W F W F CRT F A @ @ ! P2 @ P ;b=H F CR V F VW =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W
0x3d49b8…3d4b4c Dummy {f00=0x0166, f01=0x0190, f02=» _ T <B :L A W A A W T F W V = V W Y* P Z( = :L < P W <9B @ V W Q W @ @ A @
0x3d4b4c…3d4ce0 Dummy {f00=0x0166, f01=0x0190, f02=» z V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P TJ V 0 !;;P P V P$ _ P !;;T X$ W _J T W <
0x3d4ce0…3d4e74 (4, 507) Dummy {f00=0x0167, f01=0x0190, f02=» S A 9 A @ R @ ! T A A V @ R V V I W V $ ) H A I. : C. X C.9h! # " :A K : A T.I T P 1 I P < R P A _>
0x3d4e74…3d5008 Dummy {f00=0x0167, f01=0x0190, f02=» A A A A A ! T A A I ! : 9E @ r s A I T ) A _ I N T : 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P @ T X W n : YX d C !CCTZ B.
0x3d5008…3d519c Dummy {f00=0x0167, f01=0x0190, f02=»W$ V P P W P V V T V T W P V W @ $ P p W T : A _ 0V , - P X 9A_ : @ ! P (W ( : & f 0123456789 & 01
0x3d519c…3d5330 Dummy {f00=0x0167, f01=0x0190, f02=»"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ []* < +.-, 0 23456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ []' W> 2 W 0 . " 9 2 ; Z [ : : [ [ : P
0x3d5330…3d54c4 Dummy {f00=0x0167, f01=0x0190, f02=» A. c @ V W U R $ )_ : W W W W W tQ@ V V v x W V V v p R( W V W ^< _@ V _P V V : V J P ` r tV U ` _
0x3d54c4…3d5658 Dummy {f00=0x0167, 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 : W R R
0x3d5658…3d57ec Dummy {f00=0x0167, f01=0x0190, f02=» 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 ; V :
0x3d57ec…3d5980 Dummy {f00=0x0167, f01=0x0190, f02=» 0 R P P B _ ^ : V ) v : 4P: " D , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W $ H 2 ) P _ " = D 4 Q _d 2 z $ = G $
0x3d5980…3d5b14 (4, 508) Dummy {f00=0x0167, 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
0x3d5b14…3d5ca8 Dummy {f00=0x0167, f01=0x0190, f02=» ( : A ^ > 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 v
0x3d5ca8…3d5e3c Dummy {f00=0x0167, f01=0x0190, f02=»! P % _ V V W W r W V v ) W b G v ) - V W f v ) G v ` " W p W ~ pP0 l R P x _ W ~ R X4 x _ ` @ ` W W ~ pPn z V W
0x3d5e3c…3d5fd0 Dummy {f00=0x0167, f01=0x0190, f02=» W x _ V P I z W z ` pPl H - V I f " 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 # : .
0x3d5fd0…3d6164 Dummy {f00=0x0167, f01=0x0190, f02=» | CRP W ` ` H W d 2 ;A @ tR - @ - N !TTP N :H N TBT W W8 2 " T @ N =H N @ ) : !TTXX !CCT > !UUT d Wh x 2 .:H N P V
0x3d6164…3d62f8 Dummy {f00=0x0167, 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 8 W
0x3d62f8…3d648c Dummy {f00=0x0167, f01=0x0190, f02=» , P@ , - 4 ] 4 tY 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP @ T Y : !TTX" A 9 A : @ @ P. @ " P #D " P #E " P #F
0x3d648c…3d6620 Dummy {f00=0x0167, f01=0x0190, f02=» : @ :B W . !TTP W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P P0 r " U _2 P0 " U _2
0x3d6620…3d67b4 (4, 509) Dummy {f00=0x0167, f01=0x0190, f02=»% P : !TTT @ @ @ T : @ ! P @ @ f CRT 3 @ f f S @ f PP f !RRP @ ! T 3 @ & P f 3 f 3 YL @ @ T :
0x3d67b4…3d6948 Dummy {f00=0x0167, f01=0x0190, f02=» 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 : !TTX @ @ T
0x3d6948…3d6adc Dummy {f00=0x0167, f01=0x0190, f02=» W W t PT W f ( W d < G =h G V d V r < V f P W f _B V W V t Yr : !TTX @ @ T : : !TTX !CCTr P, V r 4 U $ $ _. P,
0x3d6adc…3d6c70 Dummy {f00=0x0167, f01=0x0190, f02=» 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
0x3d6c70…3d6e04 Dummy {f00=0x0167, f01=0x0190, f02=» 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 WR# T
0x3d6e04…3d6f98 Dummy {f00=0x0167, 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 ]^dW v P _ @ @ T : N =H N : N =H N : &=H F :
0x3d6f98…3d712c Dummy {f00=0x0167, f01=0x0190, f02=»_ : @ ! P (W ( : j $ @ f CRT" @ ! P ` @ E "W ` @ E " ! 1 x 0 < 1 < 2 < P p @ 4 P f 0 * 4 : @ F L f a `(
0x3d712c…3d72c0 Dummy {f00=0x0167, f01=0x0190, f02=» _ KB D *_ x 8i DY @ T P @ _ KB : & p
0x3d72c0…3d7454 (4, 510) Dummy {f00=0x0167, f01=0x0190, f02=» 8i DY P _ KB f 2i DI Z ?O_o
0x3d7454…3d75e8 Dummy {f00=0x0167, f01=0x0190, f02=» _ KB D *_ 8i DY @ T P @ _ KB : &
0x3d75e8…3d777c Dummy {f00=0x0167, f01=0x0190, f02=»6805=0 SALCUZ * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 D P XIF SALCUZ T P IFT P6805=1 SALCUZ j P ANK A1,/21 SALCUZ P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM REST
0x3d777c…3d7910 Dummy {f00=0x0167, f01=0x0190, f02=»CUZ | P LDR A1,A1 SET CR SALCUZ P ABR* A5 RETURN SALCUZ , P XIF SALCUZ J P* ` P* j P* HALT INPUT t P* P* PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INST
0x3d7910…3d7aa4 Dummy {f00=0x0167, f01=0x0190, f02=»ALCUZ P EJECT P* P* & , P* WRITE FROM OR READ ONE CHARACTER TO A2 0 P* ` P* j PWRITE EQU * t P IFT CODE=1 P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A
0x3d7aa4…3d7c38 Dummy {f00=0x0167, f01=0x0190, f02=»GHPUT ERROR P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC ( P XIF P P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC p P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,ST
0x3d7c38…3d7dcc Dummy {f00=0x0167, f01=0x018e, f02=» P IFT CODE+P6805=0 SALCUZ PWRITEP ANK A2,/FF * P ECR A1,A2 D P ORK A2,/80 V PWRI100 SLL A1,1 j P RB(P) WRI100 P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWR
0x3d7dcc…3d7f60 Dummy {f00=0x0167, f01=0x018e, f02=» d P* P* PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ 4 P ECR A1,A2 V PRE100 SLL A1,1 h P RF(Z) RE110 ~ P RB(NN) RE100 P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P I
0x3d7f60…3d80f4 (4, 511) Opaque[0x194]
0x3d80f4…3d8288 # DirEnt {nam=»GLDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2fb8, f03=0x0000}
0x3d80f4…3d8288 IdxSect {
0x3d80f4…3d8288 f00 = 0x017d // 0x3d80f4 @0x0
0x3d80f4…3d8288 f01 = 0x002a // 0x3d80f6 @0x2
0x3d80f4…3d8288 gno = [ // 0x3d80f8 @0x4
0x3d80f4…3d8288 [0x00]: C0x017d.0x3.0
0x3d80f4…3d8288 [0x01]: C0x017e.0x0.0
0x3d80f4…3d8288 [0x02]: C0x017e.0x1.0
0x3d80f4…3d8288 [0x03]: C0x017e.0x2.0
0x3d80f4…3d8288 [0x04]: C0x017e.0x3.0
0x3d80f4…3d8288 [0x05]: C0x017f.0x0.0
0x3d80f4…3d8288 [0x06]: C0x017f.0x1.0
0x3d80f4…3d8288 [0x07]: C0x017f.0x2.0
0x3d80f4…3d8288 [0x08]: C0x017f.0x3.0
0x3d80f4…3d8288 [0x09]: C0x0180.0x0.0
0x3d80f4…3d8288 [0x0a]: C0x0180.0x1.0
0x3d80f4…3d8288 [0x0b]: C0x0180.0x2.0
0x3d80f4…3d8288 [0x0c]: C0x0180.0x3.0
0x3d80f4…3d8288 [0x0d]: C0x0181.0x0.0
0x3d80f4…3d8288 [0x0e]: C0x0181.0x1.0
0x3d80f4…3d8288 [0x0f]: C0x0181.0x2.0
0x3d80f4…3d8288 [0x10]: C0x0181.0x3.0
0x3d80f4…3d8288 [0x11]: C0x0182.0x0.0
0x3d80f4…3d8288 [0x12]: C0x0182.0x1.0
0x3d80f4…3d8288 [0x13]: C0x0182.0x2.0
0x3d80f4…3d8288 [0x14]: C0x0182.0x3.0
0x3d80f4…3d8288 ]
0x3d80f4…3d8288 }
0x3d8288…3d841c Dummy {f00=0x017d, f01=0x0190, f02=» 2 P IDENT DRDC15 9.2DK 3 80-01-03 870105040920 P : P DK3, RBUFNR = 1 ALLOWED B P DK2, TBUFL d P 80-03-11 z 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR
0x3d841c…3d85b0 Dummy {f00=0x017d, f01=0x018e, f02=»RESS DESTROYED x P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE 2 P REL 9.1 79-05-23 Z P =3, TRANSFER PARAMETER v P PRR 9.1 79-04-06 P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING
0x3d85b0…3d8744 Dummy {f00=0x017d, f01=0x0190, f02=» P* 2 P********************************************* P* D $ P* PHILIPS TERMINAL SYSTEM PTS N P* v * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P*
0x3d8744…3d88d8 Dummy {f00=0x017d, f01=0x0190, f02=»* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT V " P ENTRY IH1502 OUTPUT INTERRUPT | " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTE
0x3d88d8…3d8a6c Dummy {f00=0x017d, f01=0x018e, f02=»DIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER B P EXTRN DWTST DWT STATUS b P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCD
0x3d8a6c…3d8c00 Dummy {f00=0x017d, f01=0x0190, f02=» l & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE 2 " P EXTRN ECBCW ECB CONTROL WORD V * P EXTRN DC:MIN MOVE DATA TO USER BUFFER | , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH
0x3d8c00…3d8d94 (4, 512) Dummy {f00=0x017e, f01=0x018e, f02=» P* P* DWT CONTENTS P* ( J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) 2 P* P < P******************************************************* P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY
0x3d8d94…3d8f28 Dummy {f00=0x017e, f01=0x0190, f02=» p & PX:A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 650+X:X DK 2 PX:B EQU /60 DCTASK FILE CODE P PDC15FC EQU /60 t $ PX:C EQU 1 IF 1 INTERRUPT LOGGING PLOGG EQU 0 P* * PTIMPOL EQU 600 POLL TIMEOUT VALUE DK * PX:E EQU 1 ST
0x3d8f28…3d90bc Dummy {f00=0x017e, f01=0x0190, f02=»LOCK LENGTH z PTBLEN EQU 2300 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC * PCODE EQU 0 V * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING h PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSP
0x3d90bc…3d9250 Dummy {f00=0x017e, f01=0x018e, f02=»NR EQU 2 . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 B PX:N EQU /02 V P IFT P6805=0 j , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER ~ P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF
0x3d9250…3d93e4 Dummy {f00=0x017e, f01=0x0190, f02=» 4 PX:Q EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 < PX:R EQU 1000 P P DK2 d * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION t , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK
0x3d93e4…3d9578 Dummy {f00=0x017e, f01=0x0190, f02=»TO "ONE". n , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 SALCUZ B < 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
0x3d9578…3d970c Dummy {f00=0x017e, f01=0x0190, f02=»ASSEMBLY P* . P***************************************** P* L . P* A PROGRAM VERSION USING TOSS MMU PAGING V * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTB
0x3d970c…3d98a0 Dummy {f00=0x017e, f01=0x018e, f02=» P DE P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. V P* PCPU852 EQU 0 P* 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER
0x3d98a0…3d9a34 (4, 513) Dummy {f00=0x017e, f01=0x0190, f02=» P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 6 P* B P IFT MMUPAG=1 L PSTART EQU DWTDRD+4 b P XIF | P* 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU ST
0x3d9a34…3d9bc8 Dummy {f00=0x017e, f01=0x0190, f02=»+/0A CURSOR ADDRESS , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* L P V P* ` P* REQUEST HANDLING j P* P* P* P* A7=ORDER P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P
0x3d9bc8…3d9d5c Dummy {f00=0x017e, f01=0x0190, f02=» & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS . PDCSTCU DATA 0 CURRENT STATUS $ PDCWRQ DATA 0 WRITE REQUEST QUEUE , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL P P* P* DC TASK ADDRESS BLOCK
0x3d9d5c…3d9ef0 Dummy {f00=0x017e, f01=0x0190, f02=»ATA ABORT ABORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR ( P* P P* DRIVER ADDRESS BLOCK Z P* x P DATA BUFLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT RO
0x3d9ef0…3da084 Dummy {f00=0x017e, f01=0x0190, f02=»B RES 1 " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 6 P H P IFT SPEED=1 P PLSPEED EQU /0200 d P XIF | P IFT SPEED=0 PLSPEED EQU 0 P XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS P*
0x3da084…3da218 Dummy {f00=0x017e, f01=0x0190, f02=»DER =4 t P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC . P SUK A7,/06-/02 P P RF(Z) DCWR h P SUK A7,/37-/06 | $ P RF(Z) DCTP TRANSFER PARAMETERS P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P S
0x3da218…3da3ac Dummy {f00=0x017e, f01=0x0190, f02=»TIM SET REQUEST TIMER P XIF P RF DCA100 * P < P* F P* P P* ACTIVATION FROM DCTASK Z P* z 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
0x3da3ac…3da540 Dummy {f00=0x017e, f01=0x0190, f02=»ETERS v P PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER 8 P* Z P* d P* READ FROM DCTASK n P* P* P* REQUEST FROM DC-TASK P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANO
0x3da540…3da6d4 (4, 514) Dummy {f00=0x017e, f01=0x0190, f02=» GO TO DISPATCHER P IFT EM3270=1 =4 P 4 . P***************************************** > P* p P* ANY MESSAGE ORDER z P* " P***************************** P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P R
0x3da6d4…3da868 Dummy {f00=0x017e, f01=0x0190, f02=» z P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES ^ P* P* P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT CODE=1
0x3da868…3da9fc Dummy {f00=0x017e, f01=0x0190, f02=»LL A2,8 PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV $ P ANK A3,/FF L ( P LC A2,TASCII,A3 TRANSLATE TO ASCII ` P XIF ( P STR A2,A6 SAVE IN FIRST WORD OF DWT P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS
0x3da9fc…3dab90 Dummy {f00=0x017e, f01=0x0190, f02=»??? v 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER B * P CWK A1,DC:END TABLE ALREADY FULL ???? p & P ABL(E) DISIOE YES!! REQUEST ERROR P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TA
0x3dab90…3dad24 Dummy {f00=0x017e, f01=0x018e, f02=»ED?? =3 r * 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 P LDK A1,2 * P ADS A1,DC
0x3dad24…3daeb8 Dummy {f00=0x017e, f01=0x0190, f02=» P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF H PDCTP30 EQU * T P SUR A1,A1 RETURN CODE ::= 0 h PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P P* P* P* WRITE P
0x3daeb8…3db04c Dummy {f00=0x017e, f01=0x0190, f02=» IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH? > P RF(G) IL:LEN YES!! d P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P* P* READ
0x3db04c…3db1e0 Dummy {f00=0x017e, f01=0x0190, f02=» LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE R P x 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 LENGTH
0x3db1e0…3db374 (4, 515) Dummy {f00=0x017e, f01=0x0190, f02=» $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN 0 P B P* L P* V P* SET STATUS ` P* t P* ~ P IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P RF(Z) DCSS20 DE
0x3db374…3db508 Dummy {f00=0x017e, f01=0x0190, f02=» P ANK A1,9 ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT PDCSS30 EQU * B , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE V P LDK A1,4 SET DE P RB DCSS10 P XIF P P P* " P* SET REQUEST TIMEOUT VALUE P* P
0x3db508…3db69c Dummy {f00=0x017e, f01=0x0190, f02=»DISPATCH | P P* ( P* ILLEGAL APPLICATION BUFFER SIZE " P* N P X 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH ` P ABL DISEND COMPLETE REQUEST P P* P* P* P* TIMER HANDLING PART P*
0x3db69c…3db830 Dummy {f00=0x017e, f01=0x0190, f02=»EOUT VALUE p P RF(Z) TIME10 NO TIMING ! P ST A2,TIMERR ! 2 P CF A15,SETIME ! H P DATA TOUTRE ! ^ PTIMERR DATA 0 ! r ( P ST A4,DWTTP,A6 STORE TIMER POINTER ! PTIME10 EQU * ! P RF GBUF10 RETURN ! P* ! P* TIMEOUT READ TIMER ! P
0x3db830…3db9c4 Dummy {f00=0x017e, f01=0x0190, f02=»TOUTR2 RB ENDIO COMPLETE REQUEST ! P* " ( P* WRITE TIMER=TIMWR " 2 P* " N PTIMEWR LDR A1,A6 " X . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE " p P RB(Z) TIME10 NO TIMING " P ST A2,TIMWR " P CF A15,SETIME " P DATA TOUTWR " PTIMWR DA
0x3db9c4…3dbb58 Dummy {f00=0x017e, f01=0x0190, f02=»DR A6,A1 FETCH DWT " P CM DWTTP,A6 # * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # . P* # & P* THIS INSTRUCTION DOES NOT BELONG # f P* TO THE STANDARD INTERFACE # P LD A2,FDWTUT # P CWR A2,A6 # * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING # (
0x3dbb58…3dbcec Dummy {f00=0x017e, f01=0x0190, f02=»OP REQUEST TIMING # P* $ & P* REMAINING TIME IS RETURNED IN A2 $ $ P* $ N P* $ X PCTIME EQU * $ b & P LD A2,DWTTP,A6 GET TIMER POINTER $ v P RF(Z) CTIM10 NOT RUNNING $ P LDR* A2,A2 $ " P NGR A2,A2 GET REMAINING TIME $ P CM* DWTTP,A
0x3dbcec…3dbe80 Dummy {f00=0x017e, f01=0x018e, f02=»* CALLING SEQUENCE: CF A15,GRBUF $ P* A4=0 IF NO BUFFER IS FREE % ( & P* ELSE A4 CONTAINS BUFFER ADDRESS % L P* A2 AND A3 ARE DESTROYED % v P* % P* % ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS % PGBUF INH % P LDR* A4,A2 % P RF(Z) GBUF1
0x3dbe80…3dc014 (4, 516) Dummy {f00=0x017f, f01=0x0190, f02=» P ABR* A15 RETURN TO CALLER & P & & P* & 0 P* & : ( P* INSERT DWT IN WRITE REQUEST QUEUE & D P* & p P* A2,A3,A4 DESTROYED & z P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR & PINSWQ1 LDK A4,DWTWQ & PINSWQ2 LDR* A3,A
0x3dc014…3dc1a8 Dummy {f00=0x017f, f01=0x0190, f02=» & v " P CMR A4 INDICATE END OF QUEUE ' P RB GBUF10 RETURN ' . P* ' H P* ' R * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR ' 2 PREM05 LDK A4,DWT
0x3dc1a8…3dc33c Dummy {f00=0x017f, f01=0x018e, f02=» ' n P CWR A3,A4 ( P RF(E) REM15 ( P LDR A2,A3 GET NEXT ( . P RB REM10 ( J PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( | P RB GBUF10 RETURN ( P ( P* ( P* ( P* INSERT DWT IN STATUS QUEUE ( P* ( P IFF STAT=0 ( P
0x3dc33c…3dc4d0 Dummy {f00=0x017f, f01=0x018e, f02=» P* ) P* ) " P* REMOVE DWT FROM STATUS QUEUE ) P* ) > P* A2,A3,A4 DESTROYED ) H P* A6=DWT ) d P* ) t * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) ~ P LDK A4,DWTSQ ) P RB REM06 ) P XIF ) P ) P* ) P* ) $ P* QUEUE AL
0x3dc4d0…3dc664 Dummy {f00=0x017f, f01=0x0190, f02=» ) ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * P XIF * 4 P IFT MESPAS=0 * @ $ P LDR A2,A6 QUEUE ON TERMINAL DWT * V P XIF * ~ , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU * * P LDR* A3,A2 * $ P RF(Z) QR200 END OF QUEUE FOUND *
0x3dc664…3dc7f8 Dummy {f00=0x017f, f01=0x0190, f02=» * P* + P* + 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + P* + R 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1,DWTST,A6 + P RF(N) CKM110 NO REQUEST + P LDK A1,2 READ REQUE
0x3dc7f8…3dc98c Dummy {f00=0x017f, f01=0x0190, f02=»EUE + n " P RF(Z) CKM200 NO READ IN QUEUE , P , 2 P , : , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , B . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , r " P ADK A3,6 MOVE POINTER TO TEXT , & P DONT DESTROY BUFFER ADDRESS =6 , P LD A4,-4,A3 , 0 P
0x3dc98c…3dcb20 Dummy {f00=0x017f, f01=0x0190, f02=»1,0 RESET RETURN CODE , & P LDR A4,A3 RECEIVE BUFFER ADDRESS - , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - H * PCKM110 ADKL A15,4 ADJUST STACK POINTER - x P ABR* A15 RETURN - 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS - , P OR A1,DCONOF
0x3dcb20…3dccb4 (4, 517) Dummy {f00=0x017f, f01=0x0190, f02=»NDICATE STATUS CHANGE - 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST . P RB CKM110 . R P . d P . n @ P************************************************************ . v P* . P* ABORT ROUTINE . P* . P************************ . P
0x3dccb4…3dce48 Dummy {f00=0x017f, f01=0x0190, f02=» P / $ PAB:10 LD A1,DWTOR,A6 ORDER CODE / P SUK A1,2 / 4 * P RF(Z) AB:RTN READ REQUEST. NO ACTION / F P SUK A1,4 / t . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE / P / . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE / & P LD A2,FDWTUT WRITING
0x3dce48…3dcfdc Dummy {f00=0x017f, f01=0x0190, f02=»WT / v P 0 PAB:RTN EQU * 0 P IFT CPU852=1 0 & P ADKL A15,4 0 < $ P ABR* A15 RETURN IN INHIBIT MODE 0 P P XIF 0 x P IFF CPU852=1 0 P RTN A15 0 P XIF 0 P 0 P 0 P 0 P* 0 P* 0 P* STORE REGISTER A3-A8 0 $ P* CA
0x3dcfdc…3dd170 Dummy {f00=0x017f, f01=0x018e, f02=»LCA3 0 P ST A4,LCA4 1 P ST A5,LCA5 1 P ST A6,LCA6 1 4 P ST A7,LCA7 1 H P ST A8,LCA8 1 P RF RTNA15 RETURN 1 p P 1 PLDREG LDKL A3,0 1 PLCA3 EQU *-2 1 P LDKL A4,0 1 PLCA4 EQU *-2 1 P LDKL A5,0 1 PLCA5 EQU *-2 1
0x3dd170…3dd304 Dummy {f00=0x017f, f01=0x0190, f02=» P ADKL A15,4 2 P ABR* A15 2 P 2 * P* 2 4 P* 2 > P* TIMER VALUES 2 H P* 2 ^ P* 2 h * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 r " PTIMNAK EQU 3 DELAY FOR NAK DK 2 P* 2 P* 2 P* CHARACTER EQUATES 2 P* 2 & PSF EQU X
0x3dd304…3dd498 Dummy {f00=0x017f, f01=0x0190, f02=»H EQU /01 2 PENQ EQU /05 3 PDLE EQU /10 3 & PEOT EQU /04 3 : PNAK EQU /15 3 N PESC EQU /1B 3 b PSBA EQU /11 3 v PGP EQU /22 3 PRDBCOM EQU /32 3 PRDMCOM EQU /36 3 P IFT CODE=0 3 PPAR EQU /80 3 PRVI EQU /3C 3 PACK0
0x3dd498…3dd62c Dummy {f00=0x017f, f01=0x0190, f02=»1=1 3 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 4 P XIF 4 @ P IFT CODE=1 4 L PPAR EQU /00 4 ` PWACK EQU /2C 4 t PRVI EQU XRVI DK 4 PACK0 EQU /18 4 PACK1 EQU /2F 4 PSYNEBC EQU /32 4 P XIF 4 P 4 P* 4 P* 4 P
0x3dd62c…3dd7c0 Dummy {f00=0x017f, f01=0x0190, f02=»N 4 h PXACK DATA 0 ACK EXPECTED 5 PXSEL DATA 0 SELECTED 5 * PXETX DATA 0 ETX SENT 5 F 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 b " PXRB DATA 0 READ BUFFER SWITCH 5 PCACK DATA 0 ACK COUNTER 5 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5
0x3dd7c0…3dd954 (4, 518) Dummy {f00=0x017f, f01=0x0190, f02=»ATA 0 BUFFER INDEX 5 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK 6 $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 N . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 v , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA 6 ( PCRDBUF DATA 0 READ BUFFER COUNTER DK 6 P* 6
0x3dd954…3ddae8 Dummy {f00=0x017f, f01=0x0190, f02=»E 6 h P* 7 P* 7 P DATA /4248 7 P DATA /4242 7 2 P* 7 F 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED 7 P , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED 7 P XIF 7 P 7 P* 7 P* 7 P* BASIC RECEIVE MODE 7 P* 7 " P*
0x3ddae8…3ddc7c Dummy {f00=0x017f, f01=0x0190, f02=»A5,HALTIN HALT RECEIVER SALCUZ 7 P XIF SALCUZ 8 & PBRM EQU * 8 < P LDKL A5,STB LOAD STACKBASE 8 N P IFT P6805=0 SALCUZ 8 r 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATUS 8 P XIF SALCUZ 8 P IFT P6805=1 SALCUZ 8 0 P CF A15,CKMESS CHE
0x3ddc7c…3dde10 Dummy {f00=0x017f, f01=0x0190, f02=»PECIFY SYN PATTERN 8 v P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 0 P IFT CODE=1 9 L 4 P LDKL A2,/100+LSPEED+SYNEBC SPECIFY SYN PATTERN 9 ` P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 " P CIO A2,1,LCUIN START RECEIVER 9 P XIF SALCUZ 9 P I
0x3dde10…3ddfa4 Dummy {f00=0x017f, f01=0x0190, f02=»SYN SALCUZ 9 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : P RB(NA) BRMHLT SALCUZ : J P XIF SALCUZ : h P IFT CODE+P6805=2 SALCUZ : ~ P LDK A2,0 SALCUZ : * P CIO A2,1,LCUIN START RECEIVER SALCUZ : P LDK A2,SYNEBC SALCUZ : 2 P O
0x3ddfa4…3de138 Dummy {f00=0x017f, f01=0x0190, f02=» READ ONE CHARACTER : P RF(NZ) BRM150 PARITY ERROR ; P LDR A1,A2 ; @ P SUK A1,STX ; R P RF(Z) BRM300 STX RECEIVED ; f P SUK A1,EOT-STX ; P RF(Z) BRM200 EOT RECEIVED ; P SUK A1,ENQ-EOT ; P ABL(Z) BRM400 ENQ RECEIVED ; P SUK A1,DL
0x3de138…3de2cc Dummy {f00=0x017f, f01=0x0190, f02=»8,A2 ; $ P CF A5,READP READ ONE CHARACTER < P RF(NZ) BRM150 PARITY ERROR < 4 P CWR A2,A8 < X & P RF(NE) BRM150 INVALID ADDRESSING < j P XIF < P LDK A3,0 < P CC A2,DW1500+1 < P RF(E) BRM110 POLLING < P LDK A3,2 < P CC A2,DW1500
0x3de2cc…3de460 Dummy {f00=0x017f, f01=0x0190, f02=»DR A8,A2 < P IFT MSV1=0 = P CF A5,READP READ 2:ND STA = $ P RF(NZ) BRM150 PARITY ERROR = F P CWR A2,A8 = j , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE = | P XIF = " P CF A5,READ READ ONE CHARACTER = P IFT P6805=0 SALCUZ = P SUK A2,ENQ+PA
0x3de460…3de5f4 (4, 519) Dummy {f00=0x017f, f01=0x0190, f02=» P IFT P6805=0 SALCUZ > $ P CF A5,READ READ LAST CHARACTER > P > H " P* TRAILING PAD CAN BE CHECKED > P P > v P CIO A1,0,LCUIN HALT INPUT > ~ P SST A1,LCUIN > P XIF SALCUZ > P IFT P6805=1 SALCUZ > $ P CF A5,HALTIN HALT INPUT SALCUZ
0x3de5f4…3de788 Dummy {f00=0x017f, f01=0x0190, f02=»DR A2,A8 > P SUK A3,2 ? P RF(Z) BRM120 SELECTING ? " P CWK A8,GP ? B P ABL(E) GPOLL GENERAL POLL ? T P IFT MSV1=1 ? v 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADDRESS) ? P XIF ? P IFT MSV1=0 ? & P CF A5,FINTER CHECK IF STA PRESENT ?
0x3de788…3de91c Dummy {f00=0x017f, f01=0x0190, f02=» CF A5,FINTER CHECK IF STA PRESENT ? P LDR A6,A3 LOAD DWT TO A6 @ * P RF(NZ) BRM130 STA FOUND @ L P IFT MSV1=0 @ l $ P LDKL A6,DW1500 SELECT TO DCTASK @ PBRM130 EQU * @ P ABL SELECT @ P XIF @ P IFT MSV1=1 @ P ABL BRM INVALID
0x3de91c…3deab0 Dummy {f00=0x017f, f01=0x0190, f02=» P SUK A2,/7F A P RB(Z) BRM RESYNCHRONIZE A & P CF A5,READ READ ANOTHER CHARACTER A 8 P RB BRM150 A b P A t P* A ~ P* A P* EOT HAS BEEN RECEIVED A P* A P* A PBRM200 EQU * A & P CF A5,HPTIM STOP PROCEDURE TIMER A P IFT
0x3deab0…3dec44 Dummy {f00=0x017f, f01=0x018e, f02=»T GET WRITING DWT A P RF(Z) BRM210 NO ONE WRITING B P LDK A1,2 SET RC=2 B > ( P CF A5,CWRITE COMPLETE WRITE REQUEST B X PBRM210 EQU * B " P CM XACK RESET 'ACK EXPECTED' B PBRM220 EQU * B P CM XSEL RESET 'SELECTED' B P RB BRM B P B
0x3dec44…3dedd8 Dummy {f00=0x017f, f01=0x0190, f02=» P RF(Z) BRM315 NOT SELECTED C P LD A1,DCRBUF C & ( P*********************CHAINED COMMAND C < & P RB(Z) BRM150 NO BUFFER AVAILABLE C h P********************* C PBRM305 EQU * C P CF A5,RDMESS READ MESSAGE C P SUK A7,1 C P RF(NZ) BRM320 M
0x3dedd8…3def6c Dummy {f00=0x017f, f01=0x018e, f02=» BRM C PBRM315 EQU * D P IFT RCOM=1 D P LD A1,XACK D 4 & P RF(Z) BRM316 ACK IS NOT EXPECTED D H P LD A1,DCRBUF D r & P RF(Z) BRM316 NO BUFFER AVAILABLE D " P LD A6,FDWTUT GET WRITING DWT D 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE D
0x3def6c…3df100 Dummy {f00=0x017f, f01=0x0190, f02=» ( P CF A5,CWRITE COMPLETE WRITE REQUEST E P CM CACK PRESET ACK-1 =7 E 0 P RB BRM305 READ THE MESSAGE E P P XIF E t ( PBRM316 CF A5,READ READ ONE CHARACTER E P IFF P6805=1 =8 E P SUK A2,ENQ+PAR E P XIF =8 E P IFT P6805=1 =8 E P S
0x3df100…3df294 (4, 520) Dummy {f00=0x0180, f01=0x0190, f02=»ATE MESSAGE OK E $ P LD A4,DCRBUF GET BUFFER ADDRESS F P ADK A4,6 F > P CW A4,FBLST F P " P RF(NE) BRM325 NOT FIRST BLOCK F d P IFF RCOM=0 F P LDK A1,ESC F P CCR A1,A4 F P RB(NE) BRM310 ESC NOT FOUND F P ADK A4,1 F P LCR A1,A4 GET
0x3df294…3df428 Dummy {f00=0x0180, f01=0x0190, f02=» RF(Z) RDMOD READ BUFFER RECEIVED F P XIF G * PBRM325 EQU * G 6 P SUK A7,1 G J & P RF(Z) BRM340 MESSAGE ENDED BY ETB G P CM FBAX G * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER G P ADK A4,6 G P LD A6,FDWTIN GET INPUT DWT G P* G " P* PR
0x3df428…3df5bc Dummy {f00=0x0180, f01=0x0190, f02=»Z) BRM326 G P ST A2,+4,A1 H P XIF H & PBRM326 EQU * H 2 P CWK A6,DW1500 H F , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H P IFT EM3270=1 =4 H P LD A2,DWTOR,A6 ORDER =4 H & P
0x3df5bc…3df750 Dummy {f00=0x0180, f01=0x0190, f02=» PBRM327 EQU * I P LDK A1,0 SET RC=0 I $ P LD A8,DWTECB,A6 GET ECB ADDRESS I 2 P LD A3,-4,A4 GET LENGTH I Z * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I z & P CF A15,CTIME STOP REQUEST TIMING I ( P ST A2,ECBCW,A8 STORE REMAINING TIME I P I P
0x3df750…3df8e4 Dummy {f00=0x0180, f01=0x018e, f02=» I x P ANK A2,/FF J P LC A2,TEBCDI,A2 TRANSLATE J P ANK A2,8 J > P RF(Z) BRM328 J P P LD A2,DWTST,A6 GET STATUS J f P ORK A2,/A J P ST A2,DWTST,A6 J PBRM328 EQU * J P XIF J P IFT EM3270=1 =4 J P LD A2,DWTOR,A6 ORDER =4 J
0x3df8e4…3dfa78 Dummy {f00=0x0180, f01=0x0190, f02=» P RF BRM32A =4 K P XIF =4 K PBRM329 EQU * =4 K * P K B P LDK A1,0 RESET RETURN CODE K J & P CF A15,DC:MIN MOVE TO USER BUFFER K n P RF BRM345 K PBRM32A EQU * =4 K P K $ P CF A15,TENDIO COMPLETE REQUEST K P RF BRM345 K P K
0x3dfa78…3dfc0c Dummy {f00=0x0180, f01=0x0190, f02=»6 ORDER =4 K , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 L & P CF A15,TENDIO COMPLETE REQUEST =4 L B PBRM335 EQU * =4 L l P XIF =4 L P SUK A4,6 GET BUFFER BASE L ( P CF A5,QRBUF QUEUE BUFFER FOR DCTASK L . P CF A15,CKMESS COMPLETE DCTASK READ
0x3dfc0c…3dfda0 Dummy {f00=0x0180, f01=0x0190, f02=»,A6 L P ANK A1,8 M $ P RB(Z) BRM340 ACK SHOULD BE SENT M P CF A5,TRWACK SEND WACK M F P RF BRM410 M f P XIF M x P IFF STAT=1 M P RB BRM340 M P XIF M P M P* M P* M , P* READ MODIFIED OR READ BUFFER RECEIVED M P* M
0x3dfda0…3dff34 (4, 521) Dummy {f00=0x0180, f01=0x018e, f02=»D A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL M $ P LD A4,DWTBUF,A6 BUFFER ADDRESS N 6 $ P SUK A4,2 SDJUST BUFFER ADDRESS N ^ " P LDKL A3,1922 REQUESTED LENGTH N " P IM XRB SET READ BUFFER SWITCH N P CM FDWTUT N P LDK A1,1 N & P XRS A1,CACK INCRE
0x3dff34…3e00c8 Dummy {f00=0x0180, f01=0x018e, f02=» P DE O P ABL POL127 O P XIF O & P* O 2 P* O < P* ENQ HAS BEEN RECEIVED O F P* O f P* O p PBRM400 EQU * O z & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O , P RF(NZ) BRM510 RETRANSMISSION OF MESSAGE O P OR A1,XSEL
0x3e00c8…3e025c Dummy {f00=0x0180, f01=0x018e, f02=» O P* P P* P P* NAK HAS BEEN RECEIVED P P* P < P* P F PBRM500 EQU * P P & P CF A5,HPTIM STOP PROCEDURE TIMER P d P LD A1,XACK P P RF(NZ) BRM510 ACK EXPECTED P P OR A1,XSEL P " P RB(Z) BRM410 IN CONTROL STATE P P RF BRM6
0x3e025c…3e03f0 Dummy {f00=0x0180, f01=0x0190, f02=» P | P CF A15,SETIME DK Q P DATA BRM520,TIMNAK DK Q " P ABL TDISP DK Q B PBRM520 EQU * DK Q X P CF A15,LDREG DK Q p P DE Q " P LD A6,FDWTUT GET WRITING DWT Q P IFF STAT=0 Q P LD A1,XSTA Q 0 P ABL(NZ) POL050 STATUS HAS BEEN TR
0x3e03f0…3e0584 Dummy {f00=0x0180, f01=0x0190, f02=» Q P ABL POL130 R P* R P* R & P* DLE HAS BEEN RECEIVED R 0 P* R P P* R Z PBRM600 EQU * R d & P CF A5,HPTIM STOP PROCEDURE TIMER R x P LD A1,XACK R " P RB(Z) BRM410 ACK NOT EXPECTED R & P CF A5,READ READ SECOND CHARACTER R P I
0x3e0584…3e0718 Dummy {f00=0x0180, f01=0x0190, f02=») BRM620 R P* S P* ACK , 0 RECEIVED S P* S 4 P LD A1,CACK GET ACKCOUNTER S > P RF(Z) BRM630 ACK,0 EXPECTED S ` PBRM610 EQU * S P CF A5,TRENQ SEND ENQ S & P CF A5,SPTIM START PROCEDURE TIMER S P RB BRM410 S PBRM620 EQU * S P C
0x3e0718…3e08ac Dummy {f00=0x0180, f01=0x0190, f02=»ACK,1 NOT EXPECTED S PBRM630 EQU * T P LD A1,XETX T . P RF(Z) BRM640 ETX NOT SENT T B P T d P* T n , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK T x P* T P LDK A1,0 SET RC=0 T PBRM635 EQU * T P IFF STAT=0 T P LD A2,XSTA T . P
0x3e08ac…3e0a40 Dummy {f00=0x0180, f01=0x0190, f02=»OT SEND EOT T P IFT RCOM=1 U P U ( P CM XRB RESET READ BUFFER U 0 P XIF U R P RB BRM410 U ^ PBRM640 EQU * U p P LDK A1,1 U & P XRS A1,CACK INCREMENT ACK COUNTER U P ABL POL130 U PBRM650 EQU * U P IFF P6805=1 =8 U P CWK A2,
0x3e0a40…3e0bd4 (4, 522) Dummy {f00=0x0180, f01=0x0190, f02=» U l " P CM XACK RESET 'EXPECTING ACK' V P LD A1,XETX V . $ P RF(NZ) BRM660 ETX HAS BEEN SENT V B P LDK A1,2 SET RC=2 V j P RB BRM635 V PBRM660 EQU * V P LDK A1,0 SET RC=0 V P RB BRM635 V P IFF STAT=0 V P V P* V P* V " P
0x3e0bd4…3e0d68 Dummy {f00=0x0180, f01=0x0190, f02=»E FROM STATUS QUEUE V | P CM XSTA CLEAR 'STATUS SENT' W " P CM XACK CLEAR 'ACK EXPECTED' W @ P LD A1,DWTST,A6 GET STATUS W f P ANK A1,4 W P RB(Z) BRM636 NOT DE W P LDKL A1,/8000 W " P ANS A1,DWTST,A6 CLEAR STATUS W P RB BRM636 W P XIF
0x3e0d68…3e0efc Dummy {f00=0x0180, f01=0x0190, f02=» RF(NZ) POL010 ERROR. ACK EXPECTED =5 W P IFF STAT=0 X . P LD A1,DWTST,A6 GET STATUS X B P LDR A3,A1 X d P ANK A1,1 X v $ P RF(Z) SEL110 NO PENDING STATUS X P CF A5,TRRVI SEND RVI X P XIF X P IFF STAT=1 X P RF SEL110 X P XIF X
0x3e0efc…3e1090 Dummy {f00=0x0180, f01=0x0190, f02=» X P IFT STAT+NOWACK=2 Y P ANK A3,8 Y " " P RF(Z) SEL111 DEVICE NOT BUSY Y 4 P CF A5,TRWACK TRANSMIT WACK Y Z P ABL BRM Y ~ PSEL111 EQU * Y P XIF Y P LD A1,DCRBUF Y $ P RF(NZ) SEL120 BUFFER AVAILABLE Y PSEL115 EQU * Y P IFF STA
0x3e1090…3e1224 Dummy {f00=0x0180, f01=0x0190, f02=»ION Y l P CF A5,TRACK SEND ACK,0 Z P RB SEL100 Z , P Z > P* Z H P* Z R P* PREPARE FOR TEXT RECEPTION Z P* Z P* Z PPRREC EQU * Z P IM XSEL SET 'SELECTED' Z P CM FBAX RESET BUFFER INDEX Z P IFT CODE=1 Z . P LC A2,T
0x3e1224…3e13b8 Dummy {f00=0x0180, f01=0x0190, f02=»DWT Z v P RTN A5 [ P [ P* [ & P* [ 0 $ P* GENERAL POLL HAS BEEN RECEIVED [ : P* [ b P* [ l PGPOLL EQU * [ v P LD A1,XACK =5 [ & P RF(Z) POL020 ACK NOT EXPECTED =5 [ " PPOL010 CF A5,TRENQ SEND ENQ =5 [ * P CF A5,SPTIM START PRO
0x3e13b8…3e154c Dummy {f00=0x0180, f01=0x0190, f02=» [ P LD A6,DCSTQ & P RF(Z) POL110 NO STATUS TO BE SENT " P SUK A6,DWTSQ GET DWT ADDRESS H PPOL050 EQU * n 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
0x3e154c…3e16e0 Dummy {f00=0x0180, f01=0x0190, f02=»N QUEUE z PPOL115 EQU * ] P CF A5,TREOT SEND EOT ] $ P RB POL100 ] B PPOL120 EQU * ] T " P SUK A6,DWTWQ GET DWT ADDRESS ] h PPOL125 EQU * ] $ P LD A8,DWTECB,A6 GET ECB ADDRESS ] P RF(NZ) POL126 ] P CF A15,REMOVW ] P RB POL115 ] P
0x3e16e0…3e1874 (4, 523) Dummy {f00=0x0180, f01=0x0190, f02=»WORK BUFFER ] | 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 ^ j P LD A3,ECBRL,A8 GET LENGTH ^ PPOL127 EQU * ^ & P ST A4,FECBBA SAVE BUFFER ADDRESS ^ ( P SUK A3,2 SKIP FIRST
0x3e1874…3e1a08 Dummy {f00=0x0180, f01=0x0190, f02=»NT' ^ z P CM XSTA _ P CF A5,TRTEXT SEND ONE BLOCK _ & P CF A5,SPTIM START PROCEDURE TIMER _ @ P IM XACK SET 'ACK EXPECTED' _ j P RB POL100 _ P _ P* _ P* _ & P* SPECIFIC POLL HAS BEEN RECEIVED _ P* _ P* _ PSPOLL EQU *
0x3e1a08…3e1b9c Dummy {f00=0x0180, f01=0x0190, f02=»HECK POLLTIMER _ P LDR A6,A7 RESTORE A6 ` P IFT STAT=1 ` 4 P LD A1,DWTST,A6 GET STATUS ` H P ANK A1,7 ` j " P RB(NZ) POL050 PENDING STATUS ` | P XIF ` P IFF STAT+SPECP=0 ` P LD A1,DWTST,A6 ` P RB(N) POL115 NO REQUEST ` P LD A1,D
0x3e1b9c…3e1d30 Dummy {f00=0x0180, f01=0x018e, f02=» XIF ` P RB POL115 SEND EOT a P a ( P* a 2 P* a < 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED a F P* a P* A1 CONTAINS RETURN CODE a P* a P* a PCWRITE LD A6,FDWTUT a $ P RF(Z) CWR900 NO WRITE GOING ON a P L
0x3e1d30…3e1ec4 Dummy {f00=0x0180, f01=0x0190, f02=» a r P SUK A2,2 b ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST b P LDR A1,A1 b F 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO b X P LDK A2,2 TRANMISSION OK b ( P ST A2,DWTOR,A6 INDICATE READ ORDER b P RF CWR150 b & PCWR100 LD A8,FECB GET ECB AD
0x3e1ec4…3e2058 Dummy {f00=0x0180, f01=0x0190, f02=»REQUEST b x PCWR150 EQU * c * P CF A15,REMOVW REMOVE FROM WRITE QUEUE c $ PCWR200 EQU * c R PCWR900 EQU * c f " P CM XACK RESET 'ACK EXPECTED' c z P CM FDWTUT c P RTN A5 c P c P* c P* c P* READ ONE TEXT BLOCK c P* c P
0x3e2058…3e21ec Dummy {f00=0x0180, f01=0x0190, f02=»IF CORRECT ETB BLOCK RECEIVED c P* d & PRDMESS EQU * d 0 $ P LD A4,DCRBUF GET BUFFER ADDRESS d D P ADK A4,6 RESERVE HEADER d l P LDK A3,0 d P LD A1,XSTA d $ P RF(NZ) RDM050 LAST INPUT WAS OK d " P LD A1,FBLST COMPUTE NEW INDEX d P SUR A1,
0x3e21ec…3e2380 Dummy {f00=0x0180, f01=0x0190, f02=» EQU * d P CM XSTA e P LDK A7,0 RESET LRC e P e : P IFT IBMCHR=1 e B P LD A1,FBAX e X " P RF(NZ) RDM100 NOT FIRST BLOCK e l P CF A5,READP e P RF(NZ) RDM120 PARITY ERROR e P CWK A2,ESC e P RF(NE) RDM110 e * P CF A5,READP SKIP NE
0x3e2380…3e2514 (4, 524) Dummy {f00=0x0181, f01=0x0190, f02=»ITY ERROR e ~ 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 RECEIVED f p P CWK A2,ITB f P RF(E) RDM170 ITB RECEIVED f P CWK A2,ENQ f 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAG
0x3e2514…3e26a8 Dummy {f00=0x0181, f01=0x0190, f02=»A2 f P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g B P RF(N) RDM115 NOT DC1-DC3 g T P SLL A1,6 g v P LDR A8,A1 g * P CF A5,READP 8-BIT CHAR GET NEXT PART g P RF(NZ) RDM120 PARITY ERROR g * P SUK A2,/20 ASSEMBLE TO ONE
0x3e26a8…3e283c Dummy {f00=0x0181, f01=0x0190, f02=»R g v $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h 2 P CWK A1,RBUFL+RBUFL h F P RB(NG) RDM100 NOT OVERFLOW h b P* h P* BUFFER OVERFLOW h P* h P RF RDM140 ABORT INPUT h PRDM120 EQU * h & P LDK A3,1 INDICATE INVALID MESSAGE
0x3e283c…3e29d0 Dummy {f00=0x0181, f01=0x0190, f02=»QU * h $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 4 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER i X P IFF CODE=1 i P CF A5,RDLRC i P RF(Z) RDM150 LRC WAS OK i P XIF i P IFT CODE=1 i & P CF A5,RDCRC READ
0x3e29d0…3e2b64 Dummy {f00=0x0181, f01=0x0190, f02=» EQU * i $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j 6 P IFT P6805=1 j V " P ORR A7,A1 PARITY ERROR SALCUZ j j P XIF SALCUZ j P RTN A5 j P* j P* ETB RECEIVED j P* j PRDM160 EQU * j P LDR A3,A3 j " P R
0x3e2b64…3e2cf8 Dummy {f00=0x0181, f01=0x0190, f02=»M170 EQU * j 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 l & P CF A5,RDCRC READ CRC AND CHECK IT k " P RB(NE) RDM120 CRC WAS NOT OK k P XIF k P RB RDM100 k P k P* k P* TRAN
0x3e2cf8…3e2e8c Dummy {f00=0x0181, f01=0x0190, f02=»NZ) TRDLE k P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l 0 P* l B P* TRANSMIT WACK l L P* l d PTRWACK LDK A3,WACK LOAD WACK l n P RF TRDLE l P* l P* TRANSMIT RVI l P* l P IFF STAT=0 l PTRRVI LDK A3,RVI LOAD RVI l P XIF
0x3e2e8c…3e3020 Dummy {f00=0x0181, f01=0x0190, f02=»1 l P RF TRREP m P m P* m & P* TRANSMIT NAK m 0 P* m F PTRNAK LDK A3,NAK LOAD NAK m P P RF TREN10 m r P* m P* TRANSMIT EOT m P* m PTREOT LDK A3,EOT LOAD EOT m P RF TREN10 m P* m P* TRANSMIT ENQ m P* m
0x3e3020…3e31b4 (4, 525) Dummy {f00=0x0181, f01=0x0190, f02=»TRREP CF A5,TRSYNC START OUTPUT m & P LC A2,RESEND GET FIRST CHARACTER n ( P CF A5,WRITEP SEND IT n R & P LC A2,RESEND+1 GET NEXT CHARACTER n p P CF A5,WRITEP SEND IT n PTRRE10 LDK A2,/FF n P CF A5,WRIT05 SEND PAD n P LDK A2,/FF n P CF
0x3e31b4…3e3348 Dummy {f00=0x0181, f01=0x0190, f02=» SALCUZ n x P XIF SALCUZ o & P SST A2,LCUUT PERFORM SST AT ONCE o & P IFF LOGG=0 o P ( P CF A5,LOGSST LOG TRANSMITTER STATUS o d P XIF o P RTN A5 o P o P* o P* o P* TRANSMIT ONE TEXT BLOCK o P* o P* o PTRTEXT E
0x3e3348…3e34dc Dummy {f00=0x0181, f01=0x0190, f02=» P LD A4,FBAX p ( P RF(NZ) TRT050 NOT START OF MESSAGE p P p D 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? p L P RF(NZ) TRT050 YES !! p P p P LD A4,FECBBA p " P LC A3,+2,A4 GET AID CHARACTER p P SUK A3,/30 p $ P RF(NZ) TRT050 N
0x3e34dc…3e3670 Dummy {f00=0x0181, f01=0x0190, f02=»END % p P LDK A2,'/' q P CF A5,WRITE SEND / q " P LDK A2,STX q > P CF A5,WRITE SEND STX q R ( P ST A4,FBLST REMEMBER START OF BLOCK q p ( P ADK A4,5 SKIP AID + CURSOR ADDRESS q P LDK A3,5 ADJUST LENGTH q P LDK A2,3 q P ST A2,FBAX q
0x3e3670…3e3804 Dummy {f00=0x0181, f01=0x0190, f02=» LDK A7,0 RESET LRC q $ P LD A4,FECBBA GET BUFFER ADDRESS r P AD A4,FBAX ADD BUFFER INDEX r D ( P ST A4,FBLST REMEMBER START OF BLOCK r h ( P ADK A4,2 SKIP FIRST WORD OF BUFFER r & P LDK A3,0 RESET CHARACTER COUNTER r P LD A1,FBAX GET BUFFER INDEX r
0x3e3804…3e3998 Dummy {f00=0x0181, f01=0x0190, f02=»F A5,WRITEP SEND STA r P IFT IBMCHR=1 s P IFF RCOM=1 s 2 " P LDK A2,/27 SEND ENTER AS AID s F P CF A5,WRITEP s l " P LDK A2,/20 AND CURSOR ADDRESS s P CF A5,WRITEP s P LDK A2,/20 s P CF A5,WRITEP s P XIF s P IFT RCOM=1 s P
0x3e3998…3e3b2c Dummy {f00=0x0181, f01=0x0190, f02=»R DISPLAY s | PTRT060 CF A5,WRITEP SEND AID t P t 6 $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS t > . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER t f P LDK A3,5 SET BLOCK COUNT t P RF TRT100 t PTRT070 EQU * t P XIF t P t P LDK A3,2 t PTR
0x3e3b2c…3e3cc0 Dummy {f00=0x0181, f01=0x0190, f02=»,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT105 NO!! u $ P u > @ P************************************************************ u F P* u , P* CHECK IF ATTRIBUTE CHARACTER OR NULL u P* u 4 P*********************************************** u P u
0x3e3cc0…3e3e54 (4, 526) Dummy {f00=0x0181, f01=0x0190, f02=» " P RF(NE) TRT102 NO,GO TO TRT102 v P LDK A2,/0A v * PTRT102 EQU * v > P CWK A2,/7D END OF MESSAGE ? v R " P RF(NE) TRT103 NO,GO TO TRT103 v v P LDK A2,/19 v PTRT103 EQU * v P CWK A2,X'7F' NULL ?? v P RF(NE) TRT105 v P SUK A2,1 v
0x3e3e54…3e3fe8 Dummy {f00=0x0181, f01=0x0190, f02=» v r P w ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER w P ANK A2,X'7F' w < ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE w R P ANK A1,1 w ~ P ANK A2,/1E MASK w P SLL A2,1 w & P ORR A2,A1 IBM ATTRIBUTE COMPOSED w " P ORK A2,/40 BIT ALWAYS SET ONE w
0x3e3fe8…3e417c Dummy {f00=0x0181, f01=0x0190, f02=»,WRITEP SEND ATTRIBUTE w P ADK A3,1 x P RF TRT110 x 0 PTRT105 EQU * x B P XIF x V P x b P CWK A2,/07 x l ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT x P CF A5,WRITEP SEND CHARACTER x PTRT110 EQU * x $ P IM FBAX INCREMENT BUFFER INDEX x
0x3e417c…3e4310 Dummy {f00=0x0181, f01=0x0190, f02=»UNTER x p P CWK A3,TBLEN y P RB(L) TRT100 NOT FULL BLOCK y $ P IFT RCOM=1 y H , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK y P CC A1,-2,A4 y P RF(E) TRT115 YES y P CC A1,-1,A4 y P RF(NE) TRT116 NO SEND ETB y ( P LCR A2,A4 GET FIRST BYT
0x3e4310…3e44a4 Dummy {f00=0x0181, f01=0x0190, f02=» SECOND BYTE AFTER SBA y | P CF A5,WRITEP SEND IT z P IM FBAX INCREMENT INDEX z < P XIF z PTRT116 EQU * z h P LDK A2,ETB LOAD ETB z | PTRT120 EQU * z P CF A5,WRITEP SEND IT z P IFF CODE=1 z P LDR A2,A7 GET LRC z P CF A5,WRITEP SE
0x3e44a4…3e4638 Dummy {f00=0x0181, f01=0x018e, f02=»ND CRC BYTE 1 z P ECR A2,A8 { P ANK A2,/FF { ( " P CF A5,WRIT05 SEND CRC BYTE 2 { < P XIF { b P ABL TRRE10 HALT OUTPUT { n PTRT130 EQU * { P IM XETX INDICATE 'ETX SENT' { PTRT140 EQU * { P LDK A2,ETX LOAD ETX { P RB TRT120 SEND ET
0x3e4638…3e47cc Dummy {f00=0x0181, f01=0x0190, f02=» { $ P IM XSTA INDICATE 'STATUS SENT' | P ST A6,FDWTUT SAVE A6 | 0 P CF A5,TRSYNC START OUTPUT | N P LDK A2,SOH | p P CF A5,WRITE SEND SOH | P LDK A7,0 REST LRC | P LDK A2,'%' | P CF A5,WRITEP SEND '%' | P LDK A2,'R' | P CF A5
0x3e47cc…3e4960 Dummy {f00=0x0181, f01=0x018e, f02=»,A6 | P CF A5,WRITEP SEND STA } P LD A1,DWTST,A6 GET STATUS } * P ANK A1,/06 MASK FOR S/S 0 } L P SRL A1,1 } n $ P LC A2,SSTAB,A1 GET STATUS BYTE } P CF A5,WRITEP SEND S/S 0 } P LDK A2,NOIR PRELOAD S/S 1 } P LD A1,DWTST,A6 GET STATUS }
0x3e4960…3e4af4 (4, 527) Dummy {f00=0x0181, f01=0x0190, f02=» } P CF A5,WRITEP SEND S/S 1 ~ P RB TRT130 SEND ETX AND LRC ~ ( P XIF ~ L P ~ X P* ~ b P* ~ l P* TRANSMIT SYNC SEQUENCE ~ v P* ~ P* ~ PTRSYNC EQU * ~ P LDK A2,0 SALCUZ ~ * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE ~ P S
0x3e4af4…3e4c88 Dummy {f00=0x0181, f01=0x0190, f02=» SALCUZ ~ P IFT CODE=1 SALCUZ P LDK A2,0 SALCUZ , , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ F P RF(A) TRS010 SALCUZ v P SST A1,LCUUT SALCUZ P RF(A) TRS005 SALCUZ P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ
0x3e4c88…3e4e1c Dummy {f00=0x0181, f01=0x0190, f02=» P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0C SALCUZ < P CIO A2,1,LCUUT SALCUZ X P RF(A) TRS010 SALCUZ x P SST A1,LCUUT SALCUZ P RF(A) TRS005 SALCUZ P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ
0x3e4e1c…3e4fb0 Dummy {f00=0x0181, f01=0x0190, f02=»A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS * PTRS100 LDK A2,SYN B P CF A5,WRITE SEND SYN P SUK A3,1 z P RB(NZ) TRS100 P RTN A5 P P* P* P* RECEIVER INTERRUPT P* P* PIH1501
0x3e4fb0…3e5144 Dummy {f00=0x0181, f01=0x018e, f02=»,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 & P INR A2,0,LCUIN READ CHAR T , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS v P IFF LOGG=0 ( P CF A5,LOGIN LOG RECEIVED CHARACTER P XIF P IFF CODE=1 P C
0x3e5144…3e52d8 Dummy {f00=0x0181, f01=0x0190, f02=» P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME * P CWK A2,SYNEBC ` P RF(E) READ SKIP EBCDIC SYN v PIHLCI1 EQU * P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII P XIF
0x3e52d8…3e546c Dummy {f00=0x0181, f01=0x0190, f02=»=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ : P P P* Z P* d P* TRANSMITTER INTERRUPT n P* P* PIH1502 EQU * P ST P,INTSAV P IFT CPU852=1 P CF A15,SAVE8 SAVE A1 - A8 P XIF
0x3e546c…3e5600 Dummy {f00=0x0181, f01=0x0190, f02=»10 P P* P* & P* SST INSTRUCTION AND STATUS CHECK ( P* R ( P* LCU STATUS : BIT 10=CARRIER OFF . P* BIT 13=PARITY ERROR (6805 ONLY) SALCUZ , P* BIT 14=THROUGHPUT ERROR , P* BIT 15=MODEM
0x3e5600…3e5794 (4, 528) Dummy {f00=0x0182, f01=0x0190, f02=»IF SALCUZ P LDR A2,A1 P IFF LOGG=0 & & P CF A5,LOGSST LOG SST INFORMATION : P XIF d P IFT P6805=0 SALCUZ p P ANK A2,2 P RF(Z) SST100 P XIF SALCUZ P IFT P6805=1 SALCUZ P ANK A2,6 SALCUZ P RF(Z) S
0x3e5794…3e5928 Dummy {f00=0x0182, f01=0x0190, f02=»SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ , P CM XSTA TROUHHPUT ERROR H P LDKL A5,STB h P ABL BRM010 | PSST100 EQU * P ST A1,DCSTCU P IFT P6805=0 SALCUZ * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN
0x3e5928…3e5abc Dummy {f00=0x0182, f01=0x0190, f02=»INE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ * P DATA 2 WAIT TIME SALCUZ J P RF READ SALCUZ j P* PSST200 LDK A1,0 SALCUZ PSSTRET ADK A5,4 SALCUZ P LDR A1,A1 SET CR SALCUZ P ABR* A5 RETURN SALCUZ
0x3e5abc…3e5c50 Dummy {f00=0x0182, f01=0x0190, f02=» P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK P XIF SALCUZ X P IFT P6805=1 SALCUZ n * P RF READ WAIT FOR SST INTERRUPT SALCUZ P XIF SALCUZ P P* P* , P* WRITE FROM OR READ ONE CHA
0x3e5c50…3e5de4 Dummy {f00=0x0182, f01=0x0190, f02=» TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC $ P XIF R PWRIT05 EQU * ^ " P OTR A2,0,LCUUT SEND CHARACTER r P RF(A) WRIT10 P RF READ THROUGHPUT ERROR P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC
0x3e5de4…3e5f78 Dummy {f00=0x0182, f01=0x0190, f02=»HARACTER v P XIF P* PREAD CF A15,STREG & P ABL TDISP @ P R P* P* f P*** WRITEP p P* P* WRITE A2 WITH PARITY P* P* P IFT CODE+P6805=0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2
0x3e5f78…3e610c Dummy {f00=0x0182, f01=0x0190, f02=» XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE . P XIF F P* R P* P* f P*** READP p P* . P* READ CHARACTER TO A2 AND CHECK PARITY P* P* PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ
0x3e610c…3e62a0 Dummy {f00=0x0182, f01=0x0190, f02=»,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ , P LDK A1,/80 N P XIF b P ADK A5,4 n P ANK A1,/80 P XRK A1,/80 P ABR* A5 P* P* P P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRES
0x3e62a0…3e6434 (4, 529) Dummy {f00=0x0182, f01=0x0190, f02=»DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES ( * P* ENTRY: FINTER - CHECK SELECT ADDRESS n , P* FINTEP - CHECK SPECIFIC POLL ADDRESS P* . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE P
0x3e6434…3e65c8 Dummy {f00=0x0182, f01=0x018e, f02=» EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB D PFINT10 SUK A4,2 r P LDK A3,0 DEFAULT VALUE P CW A4,DCTAB END OF TABLE ( P RF(E) FINT20 SUBTERMINAL NOT FOUND P LDR* A3,A4 LOAD
0x3e65c8…3e675c Dummy {f00=0x0182, f01=0x0190, f02=» P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF J & P RB(NE) FINT10 TAKE NEXT TERMINAL V PFINT20 CM RBYTE P ANKL A3,/FFFE P RTN A5 P P* P* P* POWER ON FUNCTIONS P* P*
0x3e675c…3e68f0 Dummy {f00=0x0182, f01=0x0190, f02=»A1-A8 =1 P XIF P IFT STAT=1 P LDK A5,4 SET DEVICE END 0 P LD A1,DCTAB P . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE d PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 END OF TABLE P LDR* A6,A1 GET DWT ADDRESS 0 P
0x3e68f0…3e6a84 Dummy {f00=0x0182, f01=0x0190, f02=»IF P LDK A2,/40 P ORS A2,DCONOF P CF A15,CKMESS 4 ( P LD A2,DCTPGP GET POLL TIMER POINTER J " P RF(NZ) DRDC20 ALREADY STARTED v * PDRDC10 CF A15,SPOTIM START POLL TIMER PDRDC20 ABL BRM P P* P* POLL TIME OUT
0x3e6a84…3e6c18 Dummy {f00=0x0182, f01=0x0190, f02=» CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP H P* Z 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED d P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER *
0x3e6c18…3e6dac Dummy {f00=0x0182, f01=0x0190, f02=» TIMER v P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER ( P ADKL A15,4 R P ABR* A15 f P x P* P* START PROCEDURE TIMER P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P
0x3e6dac…3e6f40 Dummy {f00=0x0182, f01=0x0190, f02=»UT CM DCTPP P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE 0 , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ T P LD A1,XACK " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPR
0x3e6f40…3e70d4 (4, 530) Dummy {f00=0x0182, f01=0x0190, f02=» NOT RUNNING P CM* DCTPP STOP TIMER P CM DCTPP 2 PHPT10 RTN A5 D P X P IFT CODE=1 b P* v P* P* CALCULATION OF CRC P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU *
0x3e70d4…3e7268 Dummy {f00=0x0182, f01=0x0190, f02=» XRR A3,A2 P SRL A2,1 P ANK A3,1 $ P RF(Z) CRC110 6 P XRKL A7,/A001 L PCRC110 SUK A1,1 b P RB(NZ) CRC100 z P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P P*
0x3e7268…3e73fc Dummy {f00=0x0182, f01=0x0190, f02=»RENT CRC x $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 8 P LD A8,CRCSAV+2 SAVE IT X P CF A5,READ READ BYTE 2 x ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P
0x3e73fc…3e7590 Dummy {f00=0x0182, f01=0x0190, f02=» READ LRC CHARACTER " P* CR=0 IF LRC OK P* F PRDLRC IM SYNSW P P CF A5,READP f P ADK A5,4 z P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P X
0x3e7590…3e7724 Dummy {f00=0x0182, f01=0x0190, f02=»0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS 4 P DATA 0 ORDER P * P DATA DC15DC POINTER TO ADDRESS BLOCK f P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P* P IFT MMUPAG=
0x3e7724…3e78b8 Dummy {f00=0x0182, f01=0x0190, f02=»0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) & " P DATA 0 RECEIVE MESSAGE QUEUE X , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS ~ P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE P* P IFT MMUPAG=
0x3e78b8…3e7a4c Dummy {f00=0x0182, f01=0x0190, f02=»POOL | P* PRLINK EQU RBUFL+RBUFL+8 P* 6 PDCRBUF EQU * @ P DATA *+2 FREE BUFFER ANCHOR T P IFF RBUFNR=1 DK3 x P IFF RBUFNR=2 P DATA *+RLINK P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK P RES RBUFL
0x3e7a4c…3e7be0 Dummy {f00=0x0182, f01=0x018e, f02=»ES RBUFL+3 P XIF DK3 P DATA 0 END OF CHAIN $ P RES RBUFL+3 @ P T P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER r P XIF P P* P* P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=
0x3e7be0…3e7d74 (4, 531) Dummy {f00=0x0182, f01=0x0190, f02=» PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 6 PLOG10 ST A3,SAVE3 J P LD A3,LOGPNT d P STR A2,A3 z P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAV
0x3e7d74…3e7f08 Dummy {f00=0x0182, f01=0x0190, f02=» PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 2 P XIF F P* R P* P* f P IFT RCOM=1 p P < P******************************************************* P* P* L I N C O L P* : P* CONVER
0x3e7f08…3e809c Dummy {f00=0x0182, f01=0x0190, f02=»NCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 8 P ANK A2,X'3F' J & P LC A2,LICO:T,A2 ASCII LINE NUMBER ` " P CF A5,WRITEP SEND LINE NUMBER P P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER
0x3e809c…3e8230 Dummy {f00=0x0182, f01=0x0190, f02=»HABET z P DB PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 0 * P DATA /4849,/232E,/3C28,/2B21 /08-/0F ^ * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /2
0x3e8230…3e83c4 Dummy {f00=0x0182, f01=0x4128, f02=»8-3F p P DE P XIF P & P 0 PDC:IN DATA DC:TAB+2 8 PDCTAB DATA DC:TAB T " PDC:TAB DATA 2 LENGTH OF DC:TAB n * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 PDC:END EQU * P*
0x3e83c4…3e8558 Dummy {f00=0x0182, f01=0x2008, f02=» H P X ` h p x
0x3e8558…3e86ec Dummy {f00=0x0182, f01=0x0190, f02=», gW , 4 , ' ( wM T-! y) $ LbM ( >4a> T T 4 4 C C ( wM CT yP M h M Pb (hM P _ + C W# ! ( 3 (dM ( ( m> _i C0 1 TF TB_ T5 T1 >4m> & T
0x3e86ec…3e8880 Dummy {f00=0x0182, f01=0x0190, f02=» > P ) 4 4 ( > 0 4 h> T >4 4 4 0 $ # X h> PK h> T: $ - M3h> T bM > 1 )W W+4 % " "h> L T M3 bM > 1 M3% bM > 1 4 . p
0x3e8880…3e9520 (5, 0) DirGranule ((5, 0)) {
0x3e8880…3e9520 DirEnt {nam=»NJ-AID«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0408, f03=0x0000}
0x3e8880…3e9520 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b68, f03=0x0000}
0x3e8880…3e9520 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f88, f03=0x0000}
0x3e8880…3e9520 }
0x3e9520…3e96b4 (5, 1) Opaque[0x194]
0x3e96b4…3e9848 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b68, f03=0x0000}
0x3e96b4…3e9848 IdxSect {
0x3e96b4…3e9848 f00 = 0x005b // 0x3e96b4 @0x0
0x3e96b4…3e9848 f01 = 0x0006 // 0x3e96b6 @0x2
0x3e96b4…3e9848 gno = [ // 0x3e96b8 @0x4
0x3e96b4…3e9848 [0x00]: C0x005b.0x1.0
0x3e96b4…3e9848 [0x01]: C0x00ad.0x0.0
0x3e96b4…3e9848 [0x02]: C0x00ad.0x2.0
0x3e96b4…3e9848 ]
0x3e96b4…3e9848 }
0x3e9848…3e99dc Dummy {f00=0x005b, f01=0x018e, f02=» . P IDENT CTAB01 83.05.19 NJ NORDJYLLANDS AMT ENTRY CTAB01 6 P ENTRY CTAB02 L P ENTRY CTAB03 b P ENTRY CTAB04 x 4 PCTAB01 DATA FUNC,FUNCSH,DEBUG1,DEBUG2,CTRL,CTRL PCTAB02 EQU * PCTAB03 EQU * 0 PCTAB04 DATA FUNC,FUNCSH,UN
0x3e99dc…3e9b70 Dummy {f00=0x005b, f01=0x0190, f02=» P DATA /9E99 C17,D15 P DATA /9A9B D16,D17 P DATA /BFB5 A16,A17 < P DATA /AAA3 A18,C18 X DATA /8BA5 D18,A23 t DATA /3031 DATA /3233 DATA /3435 DATA /3637 DATA /3839 DATA /BA26 A20,A21
0x3e9b70…3e9d04 Dummy {f00=0x005b, f01=0x0190, f02=»E21 DATA /B0B1 E22,E23 DATA /7F7F ( DATA /7F7F < DATA /7F7F P DATA /7F7F d * x PFUNCSH EQU * P DATA /7F9F A15,B15 P DATA /BDBE B16,B17 P DATA /9C9D C15,C16 P DATA /9E99 C17,D15 P D
0x3e9d04…3e9e98 Dummy {f00=0x005b, f01=0x018e, f02=»/3233 DATA /3435 DATA /3637 " DATA /3839 6 DATA /BA26 A20,A21 J P DATA /ABB4 A22,C22 f P DATA /B2A2 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,E23
0x3e9e98…3ea02c Dummy {f00=0x005b, f01=0x0190, f02=» P DATA /7F7F P DATA /7F7F P DATA /7F7F ,C12 , P DATA /B63C E00,A00 D P DATA /7F2B ,E11 ` P DATA /2E2D B08,B10 x P DATA /2C7F B09 P DATA /3031 P DATA /3233 P DATA /3435 P DATA /3637 P DATA /3839
0x3ea02c…3ea1c0 Dummy {f00=0x005b, f01=0x018e, f02=» DATA /4445 P DATA /4647 P DATA /4849 ( P DATA /4A4B < P DATA /4C4D P P DATA /4E4F d P DATA /5051 x P DATA /5253 P DATA /5455 P DATA /5657 P DATA /5859 P DATA /5A5C P DATA /5B5D P DAT
0x3ea1c0…3ea354 (5, 2) Dummy {f00=0x00ad, f01=0x0190, f02=» P DATA /B63E E00,A00 P DATA /7F3F ,E11 P DATA /3A5F B08,B10 8 P DATA /3B7F B09 T P DATA /3D21 l P DATA /2223 P DATA /2425 P DATA /262F P DATA /2829 P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13 P
0x3ea354…3ea4e8 Dummy {f00=0x00ad, f01=0x0190, f02=»A /4A4B P DATA /4C4D P DATA /4E4F $ P DATA /5051 8 P DATA /5253 L P DATA /5455 ` P DATA /5657 t P DATA /5859 P DATA /5A5C P DATA /5B5D P DATA /2A7F D12 P* PCTRL EQU * P DATA /207F A01
0x3ea4e8…3ea67c Dummy {f00=0x00ad, f01=0x0190, f02=»B08,B10 P DATA /2C7F B09 P DATA /300D ( P DATA /3233 < P DATA /3435 P P DATA /3637 d P DATA /3839 x P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13 P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243
0x3ea67c…3ea810 Dummy {f00=0x00ad, f01=0x0190, f02=» P DATA /5253 P DATA /5455 P DATA /5657 0 P DATA /5859 D P DATA /5A5C X P DATA /5B5D l P DATA /277F D12 P* PDEBUG1 EQU * P DATA /207F A01 P DATA /7F7F P DATA /7F7F P DATA /7F0D ,C1
0x3ea810…3ea9a4 Dummy {f00=0x00ad, f01=0x018e, f02=»ATA /3233 P DATA /3435 P DATA /3637 & P DATA /3839 : P DATA /ACA9 B12,C13 N P DATA /ADA7 E13,D13 j P DATA /A8A6 D14,E14 P DATA /6041 E12 P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849
0x3ea9a4…3eab38 Dummy {f00=0x00ad, f01=0x0190, f02=» P DATA /5859 P DATA /5A5C P DATA /5B5D 0 P DATA /277F D12 D P* PDEBUG2 EQU * f P DATA /207F A01 z P DATA /7F7F P DATA /7F7F P DATA /7F0A ,C12 P DATA /B63E E00,A00 P DATA /7F3F ,E11
0x3eab38…3eaccc Dummy {f00=0x00ad, f01=0x018e, f02=»ATA /2829 P DATA /ACA9 B12,C13 P DATA /ADA7 E13,D13 . P DATA /A8A6 D14,E14 J P DATA /4041 E12 f P DATA /4243 ~ P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4A4B P DATA /4C4D P DATA /4E4F
0x3eaccc…3eae60 Dummy {f00=0x00ad, f01=0x404e, f02=» P DATA /2A7F D12 P* P* * P* 4 END >@ JA /A8A6 D14,E14 J P DATA /4041 E12 f P DATA /4243 ~ P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4A4B P DATA /4C4D P DATA /4E4F
0x3eae60…3eaff4 (5, 3) Dummy {f00=0x00ad, f01=0x2008, f02=» 233 DATA /3435 DATA /3637 ( DATA /3839 < DATA /BA26 A20,A21 P DATA /ABB3 A22,C22 l DATA /B292 D22,D23 DATA /A1A0 E15,E17 DATA /AEAF E18,E19 DATA /8C80 E20,E21 DATA /B0B1 E22,
0x3eaff4…3eb188 Dummy {f00=0x00ad, f01=0x0002, f02=» p
0x3eb188…3eb31c Dummy {f00=0x00ad, 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
0x3eb31c…3eb4b0 Dummy {f00=0x00ad, 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
0x3eb4b0…3eb644 Dummy {f00=0x00ad, 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,
0x3eb644…3eb7d8 Dummy {f00=0x00ad, 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
0x3eb7d8…3eb96c Dummy {f00=0x00ad, 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
0x3eb96c…3ebb00 Dummy {f00=0x00ad, 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****************************************
0x3ebb00…3ebc94 (5, 4) Opaque[0x194]
0x3ebc94…3ebe28 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f88, f03=0x0000}
0x3ebc94…3ebe28 IdxSect {
0x3ebc94…3ebe28 f00 = 0x007c // 0x3ebc94 @0x0
0x3ebc94…3ebe28 f01 = 0x0004 // 0x3ebc96 @0x2
0x3ebc94…3ebe28 gno = [ // 0x3ebc98 @0x4
0x3ebc94…3ebe28 [0x00]: C0x007c.0x1.0
0x3ebc94…3ebe28 [0x01]: C0x007c.0x2.0
0x3ebc94…3ebe28 ]
0x3ebc94…3ebe28 }
0x3ebe28…3ebfbc Dummy {f00=0x007c, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 2 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*
0x3ebfbc…3ec150 Dummy {f00=0x007c, f01=0x0190, 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 0 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND.
0x3ec150…3ec2e4 Dummy {f00=0x007c, f01=0x0190, f02=»* 7C 5C P* 00 7C P* 5A 24 P* 6A 40 0 > P* 2F 19 USM(2F) TIL EM(19 DK2 @ P EJECT P* P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII P* P* PTASCII EQU * P IFT C
0x3ec2e4…3ec478 Dummy {f00=0x007c, f01=0x018e, f02=»7 n ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F ( P DATA /0000,/0000,/0000,/171B 20-27 6 ( P DATA /0000,/0000,/0005,/0019 28-2F b ( P DATA /0000,/1600,/0000,/0004 30-37 ( P DATA /0000,/0000,/1415,/001A 38-3F ( P DATA /2041,/4243,/4445,/4647 40-4
0x3ec478…3ec60c Dummy {f00=0x007c, f01=0x0190, f02=» j ( P DATA /2D2F,/5354,/5556,/5758 60-67 ( P DATA /595A,/402C,/255F,/3E3F 68-6F 4 ( P DATA /1831,/3233,/3435,/3637 70-77 ` ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F ( P DATA /2061,/6263,/6465,/6667 80-87 ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F
0x3ec60c…3ec7a0 Dummy {f00=0x007c, f01=0x0190, f02=» ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF ( P DATA /3031,/3233,/3435,/3637 B0-B7 0 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7
0x3ec7a0…3ec934 (5, 5) Dummy {f00=0x007c, f01=0x0190, f02=» DATA /3031,/3233,/3435,/3637 F0-F7 ( P DATA /3839,/3A23,/4027,/3DFF F8-FF , P XIF X P EJECT d P* r P* | 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /000
0x3ec934…3ecac8 Dummy {f00=0x007c, f01=0x0190, f02=»F27,/1C1D,/1E1F 18-1F ( P DATA /404F,/7F4A,/5A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F J ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 v ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D
0x3ecac8…3ecc5c Dummy {f00=0x007c, f01=0x40f2, f02=»/8485,/8687 60-67 ~ ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 F ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F r 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 P XIF P END @ ( P DATA /C8C9,/D
0x3ecc5c…3ecdf0 Dummy {f00=0x007c, 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,
0x3ecdf0…3ecf84 Dummy {f00=0x007c, f01=0x4164, f02=» : H IDENT T:ALA0 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:ALA0 B T:ALA0A ^ T . * T:DLA0 D:CB90 C:CB90 D:TB90 Z:TB90 h * & * & * & = a
0x3ecf84…3ed118 Dummy {f00=0x007c, f01=0x40be, f02=» : H IDENT T:DLA0 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:DLA0 B T:DLA0D T LPGOA h , ( LA @ * * x @ * & * & = a
0x3ed118…3ed2ac Dummy {f00=0x007c, f01=0x40f0, f02=» : H IDENT T:AD00 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:AD00 B T:AD00A " T T:DD00 D:CB90 C:CB90 h * & ` D0 * @ * & = a
0x3ed2ac…3ed440 Dummy {f00=0x007c, f01=0x40bc, f02=» : H IDENT T:DD00 TRA 4.2 81-01-05 F1 O1111 02.03.XXX.1 T:DD00 B T:DD00D T DC1GO h * & D0 * x @ D0 * @ * & = a