|
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 B C D E G I L M P S T p ½
Length: 1163520 (0x11c100)
Description: Bits:30009706 Philips computer tape "M_167"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| M:167D | «none» |
| M:167D//OBJCT.OB | ⟦0617e728e⟧ pts_type |
| M:167D/ADDMOD.SC | ⟦c99cd1d77⟧ pts_type |
| M:167D/ATTACX.SC | ⟦4d8be7441⟧ pts_type |
| M:167D/BLOK:S.SC | ⟦a8d013280⟧ pts_type |
| M:167D/CD:TAB.SC | ⟦9273f933a⟧ pts_type |
| M:167D/CTABX.SC | ⟦95cf787ec⟧ pts_type |
| M:167D/DC:TAB.SC | ⟦ca1302350⟧ pts_type |
| M:167D/DFTAB.SC | ⟦e065f81b6⟧ pts_type |
| M:167D/DIVMOD.SC | ⟦591b725b9⟧ pts_type |
| M:167D/DMBUF.SC | ⟦07ebcc8a3⟧ pts_type |
| M:167D/DMFDB.SC | ⟦a439b9ac3⟧ pts_type |
| M:167D/DMINIT.SC | ⟦f972af533⟧ pts_type |
| M:167D/DMSUBR.SC | ⟦965ccce79⟧ pts_type |
| M:167D/DMSUBX.SC | ⟦8a0f2d36e⟧ pts_type |
| M:167D/DMTASK.SC | ⟦60ef9e44c⟧ pts_type |
| M:167D/DMTASS.SC | ⟦d26578c28⟧ pts_type |
| M:167D/DRDC15.SC | ⟦8ec3a198b⟧ pts_type |
| M:167D/DRDU01.SC | ⟦e0a1573b1⟧ pts_type |
| M:167D/DRDY01.SC | ⟦0c7a64b2c⟧ pts_type |
| M:167D/DRIC0X.SC | ⟦0f47c7a5d⟧ pts_type |
| M:167D/DRKB01.SC | ⟦1d24aad1a⟧ pts_type |
| M:167D/DRLT01.SC | ⟦d67d79110⟧ pts_type |
| M:167D/DRSOP1.SC | ⟦14c4b46fd⟧ pts_type |
| M:167D/DRTC01.SC | ⟦3cf3ec6cf⟧ pts_type |
| M:167D/DRTP02.SC | ⟦2e58a7b43⟧ pts_type |
| M:167D/DSUMOD.SC | ⟦0e0293958⟧ pts_type |
| M:167D/DVDY00.SC | ⟦970bb3d26⟧ pts_type |
| M:167D/DVKB00.SC | ⟦2e09fc918⟧ pts_type |
| M:167D/DVTCD.SC | ⟦8bff4850a⟧ pts_type |
| M:167D/DVTCG.SC | ⟦d23e71c21⟧ pts_type |
| M:167D/DVTDI.SC | ⟦0d3ddc887⟧ pts_type |
| M:167D/DVTDN.SC | ⟦d1fbca1fb⟧ pts_type |
| M:167D/DVTDY.SC | ⟦1a5e435a8⟧ pts_type |
| M:167D/DVTGP.SC | ⟦9a34918a1⟧ pts_type |
| M:167D/DVTKB.SC | ⟦f72a07f38⟧ pts_type |
| M:167D/DVTMS.SC | ⟦256424500⟧ pts_type |
| M:167D/DVTOD.SC | ⟦45a269de1⟧ pts_type |
| M:167D/DVTP00.SC | ⟦d580cd2db⟧ pts_type |
| M:167D/DVTP01.SC | ⟦4b5b1b985⟧ pts_type |
| M:167D/DVTP02.SC | ⟦bfafff23a⟧ pts_type |
| M:167D/DVTT1.SC | ⟦93dc3fa3f⟧ pts_type |
| M:167D/DVTTP.SC | ⟦15559916e⟧ pts_type |
| M:167D/DW0701.SC | ⟦cdc2cd1a4⟧ pts_type |
| M:167D/DW1501.SC | ⟦7a6812457⟧ pts_type |
| M:167D/DW2201.SC | ⟦65d104c31⟧ pts_type |
| M:167D/DWDY01.SC | ⟦4d9f0e2ee⟧ pts_type |
| M:167D/DWDY02.SC | ⟦a3e3d6148⟧ pts_type |
| M:167D/DWDY03.SC | ⟦0daf587fa⟧ pts_type |
| M:167D/DWDY04.SC | ⟦b513966ef⟧ pts_type |
| M:167D/DWII01.SC | ⟦a8572c823⟧ pts_type |
| M:167D/DWIO01.SC | ⟦ccddd0596⟧ pts_type |
| M:167D/DWKB01.SC | ⟦62e00fd8e⟧ pts_type |
| M:167D/DWKB02.SC | ⟦487c1327a⟧ pts_type |
| M:167D/DWKB03.SC | ⟦cb9205821⟧ pts_type |
| M:167D/DWKB04.SC | ⟦54c5afcbe⟧ pts_type |
| M:167D/DWTP01.SC | ⟦91f672fb7⟧ pts_type |
| M:167D/DWTP02.SC | ⟦b6b438503⟧ pts_type |
| M:167D/DWTP03.SC | ⟦aaac366c4⟧ pts_type |
| M:167D/DWTP04.SC | ⟦14a9c3a75⟧ pts_type |
| M:167D/EBCDIC.SC | ⟦d40175f4c⟧ pts_type |
| M:167D/GRBUF.SC | ⟦fb5bda0d3⟧ pts_type |
| M:167D/INIMOD.SC | ⟦46541b074⟧ pts_type |
| M:167D/INPRET.SC | ⟦9807f7ad8⟧ pts_type |
| M:167D/INTLT1.SC | ⟦87fe0f621⟧ pts_type |
| M:167D/INTLT2.SC | ⟦d74fac011⟧ pts_type |
| M:167D/INTLT3.SC | ⟦678639c87⟧ pts_type |
| M:167D/INTLT4.SC | ⟦690d64779⟧ pts_type |
| M:167D/INTRT1.SC | ⟦c797cd66d⟧ pts_type |
| M:167D/INTRT2.SC | ⟦0c8b96d72⟧ pts_type |
| M:167D/INTRT3.SC | ⟦998d69bb1⟧ pts_type |
| M:167D/INTRT4.SC | ⟦3e331b25b⟧ pts_type |
| M:167D/INTVMD.SC | ⟦87ad17137⟧ pts_type |
| M:167D/LKMAL.SC | ⟦905f057d7⟧ pts_type |
| M:167D/LRPINT.SC | ⟦e062440dc⟧ pts_type |
| M:167D/M:167D.LM | ⟦abcba8281⟧ pts_type |
| M:167D/M:167D.UF | ⟦3a4baf8ce⟧ pts_type |
| M:167D/MONTAB.SC | ⟦53ea49645⟧ pts_type |
| M:167D/MPYMOD.SC | ⟦65b77d57e⟧ pts_type |
| M:167D/MSUBS.SC | ⟦6d9bfb81e⟧ pts_type |
| M:167D/PFTAB.SC | ⟦9077b72ec⟧ pts_type |
| M:167D/TABORT.SC | ⟦e8231dd83⟧ pts_type |
| M:167D/TASS.SC | ⟦08e453584⟧ pts_type |
| M:167D/TC:TAB.SC | ⟦426a40926⟧ pts_type |
| M:167D/TDISP.SC | ⟦d13a86031⟧ pts_type |
| M:167D/TIMER.SC | ⟦08cc034f2⟧ pts_type |
| M:167D/TIODM.SC | ⟦db3d51d17⟧ pts_type |
| M:167D/TPROC.SC | ⟦690d6409b⟧ pts_type |
| M:167D/TTABD0.SC | ⟦a88a02bab⟧ pts_type |
| M:167D/TTABD1.SC | ⟦93ffe9600⟧ pts_type |
| M:167D/TTABD2.SC | ⟦182ac5a4d⟧ pts_type |
| M:167D/TTABDC.SC | ⟦0e7128836⟧ pts_type |
| M:167D/TTABTC.SC | ⟦58b7d0e90⟧ pts_type |
| M:167D/TTABTD.SC | ⟦08404668e⟧ pts_type |
| M:167D/TTABTE.SC | ⟦574a49f95⟧ pts_type |
| M:167D/TTABTF.SC | ⟦b8db97822⟧ pts_type |
| M:167D/TTABX.SC | ⟦68d133264⟧ pts_type |
| M:167D/TTMJOB.SC | ⟦229928d09⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»M:167D«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:167D«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTVMD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INIMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b08, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0198, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INPRET«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0170, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTCG «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0208, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTCD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0218, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTMS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTOD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0238, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0248, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0258, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0268, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW0701«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0278, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW2201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»BLOK:S«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CD:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TC:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0420, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DC:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTLT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0530, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTLT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTLT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0328, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTLT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTRT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0348, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTRT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0358, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTRT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0368, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTRT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0378, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0470, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0480, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0398, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0558, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0590, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABD0«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0638, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABD1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0640, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABD2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRIC0X«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0660, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0948, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0080, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0700, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0768, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0818, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ATTACX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»GRBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0900, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0060, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0078, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABTC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0448, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABTD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0450, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABTE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABTF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABDC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0308, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a68, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a78, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a98, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ab8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWTP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ae8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWDY04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0af8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:167D«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0b20, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000e34 (0, 1) Opaque[0x194]
0x000e34…000fc8 # DirEnt {nam=»M:167D«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000e34…000fc8 IdxSect {
0x000e34…000fc8 f00 = 0x0000 // 0xe34 @0x0
0x000e34…000fc8 f01 = 0x0010 // 0xe36 @0x2
0x000e34…000fc8 gno = [ // 0xe38 @0x4
0x000e34…000fc8 [0x00]: C0x0000.0x3.0
0x000e34…000fc8 [0x01]: C0x0001.0x0.0
0x000e34…000fc8 [0x02]: C0x0001.0x1.0
0x000e34…000fc8 [0x03]: C0x0001.0x2.0
0x000e34…000fc8 [0x04]: C0x0001.0x3.0
0x000e34…000fc8 [0x05]: C0x0002.0x0.0
0x000e34…000fc8 [0x06]: C0x0002.0x1.0
0x000e34…000fc8 [0x07]: C0x0002.0x2.0
0x000e34…000fc8 ]
0x000e34…000fc8 }
0x000fc8…00115c Dummy {f00=0x0000, f01=0x018e, f02=» ASG /02,NO MOV INTVMD,/S,TOSSWORK KPF /S,INTVMD 4 SCR J INC INTVMD,TOSSWORK V KPF /O r MOV INIMOD,/S,TOSSWORK KPF /S,INIMOD SCR INC INIMOD,TOSSWORK KPF /O MOV TDISP,/S,TOSSWORK
0x00115c…0012f0 Dummy {f00=0x0000, f01=0x0190, f02=» INC LRPINT,TOSSWORK KPF /O MOV TPROC,/S,TOSSWORK . KPF /S,TPROC L SCR ` INC TPROC,TOSSWORK l KPF /O MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR INC MSUBS,TOSSWORK KPF /O MOV TTMJOB
0x0012f0…001484 Dummy {f00=0x0000, f01=0x0190, f02=»RET SCR INC INPRET,TOSSWORK KPF /O 4 MOV PFTAB,/S,TOSSWORK B KPF /S,PFTAB ` SCR t INC PFTAB,TOSSWORK KPF /O MOV LKMAL,/S,TOSSWORK KPF /S,LKMAL SCR INC LKMAL,TOSSWORK KPF
0x001484…001618 Dummy {f00=0x0000, f01=0x0190, f02=» z KPF /S,DVTTP SCR INC DVTTP,TOSSWORK ( KPF /O D MOV DVTGP,/S,TOSSWORK R KPF /S,DVTGP p SCR INC DVTGP,TOSSWORK KPF /O MOV DVTDN,/S,TOSSWORK KPF /S,DVTDN SCR INC DVTDN,TOSSW
0x001618…0017ac Dummy {f00=0x0000, f01=0x0190, f02=»VTDY,/S,TOSSWORK KPF /S,DVTDY SCR , INC DVTDY,TOSSWORK 8 KPF /O T MOV DVTCG,/S,TOSSWORK b KPF /S,DVTCG SCR INC DVTCG,TOSSWORK KPF /O MOV DVTCD,/S,TOSSWORK KPF /S,DVTCD SCR
0x0017ac…001940 Dummy {f00=0x0000, f01=0x0190, f02=»/O MOV DVTOD,/S,TOSSWORK KPF /S,DVTOD ( SCR < INC DVTOD,TOSSWORK H KPF /O d MOV DVTT1,/S,TOSSWORK r KPF /S,DVTT1 SCR INC DVTT1,TOSSWORK KPF /O MOV DWII01,/S,TOSSWORK KPF /S,DWII01
0x001940…001ad4 (0, 2) Dummy {f00=0x0001, f01=0x0190, f02=»OSSWORK KPF /O MOV DW0701,/S,TOSSWORK KPF /S,DW0701 < SCR R INC DW0701,TOSSWORK ^ KPF /O z MOV DW1501,/S,TOSSWORK KPF /S,DW1501 SCR INC DW1501,TOSSWORK KPF /O MOV DW2201,/S,TOSSWORK
0x001ad4…001c68 Dummy {f00=0x0001, f01=0x0190, f02=»R INC CTABX,TOSSWORK KPF /O & MOV BLOK:S,/S,TOSSWORK 4 KPF /S,BLOK:S R SCR h INC BLOK:S,TOSSWORK t KPF /O MOV CD:TAB,/S,TOSSWORK KPF /S,CD:TAB SCR INC CD:TAB,TOSSWORK KPF /O
0x001c68…001dfc Dummy {f00=0x0001, f01=0x0190, f02=»KPF /S,TTABX SCR INC TTABX,TOSSWORK KPF /O < MOV DC:TAB,/S,TOSSWORK J KPF /S,DC:TAB h SCR ~ INC DC:TAB,TOSSWORK KPF /O MOV INTLT1,/S,TOSSWORK KPF /S,INTLT1 SCR INC INTLT1,TOSSWORK
0x001dfc…001f90 Dummy {f00=0x0001, f01=0x018e, f02=»T3,/S,TOSSWORK KPF /S,INTLT3 SCR , INC INTLT3,TOSSWORK 8 KPF /O T MOV INTLT4,/S,TOSSWORK b KPF /S,INTLT4 SCR INC INTLT4,TOSSWORK KPF /O MOV INTRT1,/S,TOSSWORK KPF /S,INTRT1 SCR
0x001f90…002124 Dummy {f00=0x0001, f01=0x0190, f02=» KPF /O MOV INTRT3,/S,TOSSWORK KPF /S,INTRT3 0 SCR F INC INTRT3,TOSSWORK R KPF /O n MOV INTRT4,/S,TOSSWORK | KPF /S,INTRT4 SCR INC INTRT4,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK KPF
0x002124…0022b8 Dummy {f00=0x0001, f01=0x0190, f02=»C TIODM,TOSSWORK KPF /O MOV DMTASK,/S,TOSSWORK ( KPF /S,DMTASK F SCR INC DMTASK,TOSSWORK h KPF /O MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT SCR INC DMINIT,TOSSWORK KPF /O MOV TASS,/
0x0022b8…00244c Dummy {f00=0x0001, f01=0x0190, f02=» SCR INC DMTASS,TOSSWORK KPF /O 0 MOV DMBUF,/S,TOSSWORK > KPF /S,DMBUF SCR p INC DMBUF,TOSSWORK | KPF /O MOV DMFDB,/S,TOSSWORK KPF /S,DMFDB SCR INC DMFDB,TOSSWORK KPF /O
0x00244c…0025e0 Dummy {f00=0x0001, f01=0x0190, f02=» KPF /S,DMSUBX SCR INC DMSUBX,TOSSWORK & KPF /O B MOV ADDMOD,/S,TOSSWORK P KPF /S,ADDMOD n SCR INC ADDMOD,TOSSWORK KPF /O MOV DSUMOD,/S,TOSSWORK KPF /S,DSUMOD SCR INC DSUMOD,TOS
0x0025e0…002774 (0, 3) Dummy {f00=0x0001, f01=0x0190, f02=»V DIVMOD,/S,TOSSWORK KPF /S,DIVMOD SCR 2 INC DIVMOD,TOSSWORK > KPF /O Z MOV DMSUBR,/S,TOSSWORK h KPF /S,DMSUBR SCR INC DMSUBR,TOSSWORK KPF /O MOV TTABD0,/S,TOSSWORK KPF /S,TTABD0 SC
0x002774…002908 Dummy {f00=0x0001, f01=0x0190, f02=» | KPF /O MOV TTABD2,/S,TOSSWORK KPF /S,TTABD2 4 SCR J INC TTABD2,TOSSWORK V KPF /O r MOV DRIC0X,/S,TOSSWORK KPF /S,DRIC0X SCR INC DRIC0X,TOSSWORK KPF /O MOV DRKB01,/S,TOSSWORK
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=» INC DRTP02,TOSSWORK KPF /O MOV DRDY01,/S,TOSSWORK . KPF /S,DRDY01 L SCR b INC DRDY01,TOSSWORK n KPF /O MOV DRLT01,/S,TOSSWORK KPF /S,DRLT01 SCR INC DRLT01,TOSSWORK KPF /O MOV DR
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»,DRSOP1 SCR INC DRSOP1,TOSSWORK KPF /O 8 MOV DRDU01,/S,TOSSWORK F KPF /S,DRDU01 d SCR z INC DRDU01,TOSSWORK KPF /O MOV DRDC15,/S,TOSSWORK KPF /S,DRDC15 SCR INC DRDC15,TOSSWORK
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x0190, f02=» !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 30$$ !!CH $$ X:G$$ 1$$ 8 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ R !!EN ~ ASM /S KPF /O KPF /S SCR LED DRTP02 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=»2122,/2426,/3B3C,/3E40,/5E5F$$/2122,/2627,/3B3C,/3E40,/5E5F$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ F !!EN r ASM /S ~ KPF /O KPF /S SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»EN ASM /S KPF /O KPF /S & SCR 4 LED DRLT01 @ !!CH $$ X:A$$ 0$$ R !!CH $$ X:B$$ 1$$ l !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 01$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN
0x0030ec…003280 Dummy {f00=0x0001, f01=0x0190, f02=»REDIT EQU 0$$CREDIT EQU 1$$ !!EN $ ASM /S 0 KPF /O > KPF /S L SCR Z LED DRSOP1 f !!CH $$ X:A$$ 0$$ x !!CH $$ X:B$$ 0$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN ASM /S KPF /O KPF /S
0x003280…003414 (0, 4) Dummy {f00=0x0001, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN 0 ASM /S < KPF /O J KPF /S X SCR f LED DRDC15 r !!CH $$ X:A$$ 300$$ !!CH $$ X:B$$ 260$$ !!CH $$ X:C$$ 60$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 600$$
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=»!!CH $$ X:K$$ 1$$ !!CH $$ X:L$$ 0$$ !!CH $$ X:M$$ 2$$ 4 !!CH $$ X:N$$ 00$$ N !!CH $$ X:O$$ 02$$ h !!CH $$ X:P$$ 0$$ !!CH $$ X:Q$$ 1$$ !!CH $$ X:R$$ 1$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN
0x0035a8…00373c Dummy {f00=0x0001, f01=0x018e, f02=»K ~ KPF /O LED EBCDIC !!EN * ASM /S 6 KPF /O D KPF /S R SCR ` LED DVTKB l !!DL 30 ~ DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0, !!EN ASM /S KPF /O KPF /S SCR
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=» KPF /S,TIMER SCR INC TIMER,TOSSWORK $ KPF /O @ MOV GRBUF,/S,TOSSWORK N KPF /S,GRBUF l SCR INC GRBUF,TOSSWORK KPF /O MOV GRBUF,/S,TOSSWORK KPF /S,GRBUF SCR INC GRBUF,TOSSWORK
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=»RT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN 6 ASM /S,NL B KPF /O T KPF /S b SCR p LED LKMAL | !!DL 017 !!DL 019 !!DL 020 !!DL 021 !!DL 022 !!DL 035 DATA 00
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=»DL 040 DATA 00 !!EN * ASM /S 6 KPF /O D KPF /S R SCR ` LED LRPINT l !!CH $$ X:A$$ 0$$ ~ !!EN ASM /S KPF /O KPF /S SCR LED TIODM !!CH $$ X:C$$ 005$$
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x018e, f02=»!!EN ASM /S KPF /O KPF /S ( SCR 6 LED DMTASK B !!CH $$ X:A$$ 1$$ T !!CH $$ X:B$$ 0$$ n !!EN ASM /S KPF /O KPF /S SCR LED DMTASS !!CH $$ X:B$$ 0$$ !!EN ASM /S
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=» KPF /O KPF /S SCR $ LED CD:TAB 0 !!DL 10 B ** R !!DL 11 ** l !!DL 26,29 v !!DL 30,37 !!IL 38 DATA 0,0,0,0,0,0,0,0 DATA 0,0, !!EN KPF /S SCR LED INTV
0x003f20…0040b4 (0, 5) Dummy {f00=0x0001, f01=0x0190, f02=»$IH1502 13$$ z !!IL 55 EXTRN IH1501 * EXTRN IH1502 J !!DL 056 j !!DL 064 z !!DL 065 !!DL 066 !!DL 067 !!DL 068 !!DL 069 !!DL 070 !!DL 071 !!DL 073
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=»22 DATA ILLINT !!DL 130 * DATA ILLINT : !!DL 131 Z DATA ILLINT j !!DL 132 DATA ILLINT !!DL 133 DATA ILLINT !!DL 134 DATA
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=» DATA ILLINT !!DL 140 DATA ILLINT * !!DL 141 J DATA ILLINT Z !!DL 142 z DATA ILLINT !!DL 145 DATA ILLINT !!DL 149 DATA ILLINT
0x0043dc…004570 Dummy {f00=0x0001, f01=0x0190, f02=»NT z !!EN ! ASM /S ! KPF /O ! $ KPF /S ! 2 SCR ! @ LED PFTAB ! L !!IL 12 ! ^ EXTRN DC15ON ! n !!DL 013 ! !!DL 018 ! !!DL 019 ! !!DL 020 ! !!DL 021 ! !!DL 022 ! !!DL 023 ! !!DL 024 !
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=»DL 033 ! !!DL 034 " !!DL 035 " !!DL 037 " . !!DL 038 " > !!IL 40 " N DATA DC15ON " ^ !!DL 041 " ~ !!DL 046 " !!DL 047 " !!DL 048 " !!DL 049 " !!DL 050 " !!DL 051 " !!DL 052 " !!DL 053 "
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=»DL 062 " !!DL 063 # !!DL 065 # !!DL 066 # . !!EN # > ASM /S # J KPF /O # X KPF /S # f SCR # t LED DVTKB # !!CH $$DVTKB$$DVKB00$$ # !!CH $$BCA$$8791$$ # !!CH $$ED0$$FFBA$$ # !!CH $$8000$$8002$$ # !!CH $$E
0x004898…004a2c Dummy {f00=0x0001, f01=0x018e, f02=» # LED DVTDY $ !!CH $$DVTDY$$DVDY00$$ $ !!CH $$/ABC$$/0824$$ $ 8 !!EN $ T KPF /S $ ` SCR $ n LED DVTTP $ z !!CH $$DVTTP$$DVTP01$$ $ !!EN $ KPF /S $ SCR $ LED DVTTP $ !!CH $$DVTTP$$DVTP02$$ $ !!EN $
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» $ EXTRN DWKB01 % EXTRN DWTP01 % ( EXTRN DWDY01 % H EXTRN DW1501 % h !!IL 21 % DATA /0020 % DATA DWKB01 % DATA /0030 % DATA
0x004bc0…004d54 (0, 6) Dummy {f00=0x0002, f01=0x0190, f02=» % x DATA /0132 & DATA DWTP01 & ( DATA /0061 & H DATA DW1501 & h !!EN & ASM /S & KPF /O & KPF /S & SCR & LED TTABX & !!CH $$/EE$$'TD'$$ & !!CH $$TTABX$$TTAB
0x004d54…004ee8 Dummy {f00=0x0002, f01=0x0190, f02=»02 & z !!IL 21 ' DATA /0020 ' DATA DWKB02 ' : DATA /0030 ' Z DATA DWTP02 ' z DATA /0050 ' DATA DWDY02 ' DATA /0231 ' DATA
0x004ee8…00507c Dummy {f00=0x0002, f01=0x0190, f02=»SCR ' LED TTABX ( !!CH $$/EE$$'TE'$$ ( !!CH $$TTABX$$TTABTE$$ ( 8 !!CH $$/3C$$60$$ ( V !!IL 9 ( n EXTRN DWKB03 ( | EXTRN DWTP03 ( EXTRN DWDY03 ( !!IL 21 ( DATA /0020 (
0x00507c…005210 Dummy {f00=0x0002, f01=0x0190, f02=» DATA DWDY03 ( DATA /0231 ) DATA DWTP03 ) < DATA /0132 ) DATA DWTP03 ) | !!EN ) ASM /S ) KPF /O ) KPF /S ) SCR ) LED TTABX ) !!CH $$/EE$$'TF'$$ )
0x005210…0053a4 Dummy {f00=0x0002, f01=0x018e, f02=» EXTRN DWDY04 ) !!IL 21 * DATA /0020 * . DATA DWKB04 * N DATA /0030 * n DATA DWTP04 * DATA /0050 * DATA DWDY04 * DATA /0231 *
0x0053a4…005538 Dummy {f00=0x0002, f01=0x018e, f02=» * KPF /S + SCR + LED TTABX + " !!CH $$/EE$$'DC'$$ + 4 !!CH $$TTABX$$TTABDC$$ + N !!CH $$/3C$$60$$ + l !!EN + ASM /S + KPF /O + KPF /S + SCR + LED CD:TAB + !!CH $$/EE$$'CD'$$ + !!CH $$TTABX$$TTABCD$$
0x005538…0056cc Dummy {f00=0x0002, f01=0x0190, f02=» + v EXTRN DW1500 , !!IL 21 , DATA /0012 , . DATA DWTC01 , N DATA /0010 , n DATA DWSI01 , DATA /0011 , DATA DWSO01 , DATA /060 , DATA DW
0x0056cc…005860 Dummy {f00=0x0002, f01=0x0190, f02=»IL 08 , EXTRN TTABTC - EXTRN TTABTD - . EXTRN TTABTE - N EXTRN TTABTF - n EXTRN TTABDC - !!IL 16 - DATA TTABTC - DATA TTABTD - D
0x005860…0059f4 (0, 7) Dummy {f00=0x0002, f01=0x0190, f02=» SCR . LED DC:TAB . !!IL 08 . " !!IL 16 . 2 !!EN . B ASM /S . N KPF /O . KPF /S . j SCR . x LED DW1501 . !!CH $$DW1501$$DW1501$$ . !!EN . ASM /S . KPF /O . KPF /S . SCR . LED DW1501 .
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x0190, f02=»ATA *+6,0,0 . DATA *+6,0,0 / DATA *+6,0,0 / * DATA *+6,0,0 / @ DATA *+6,0,0 / V DATA *+6,0,0 / l DATA *+6,0,0 / DATA *+6,0,0 / DATA *+6,0,0 / DATA *+6,0,0 / DATA *+6,0,0 / DATA *+6,0,0 / D
0x005b88…005d1c Dummy {f00=0x0002, f01=0x018e, f02=»*+6,0,0 / DATA *+6,0,0 0 DATA *+6,0,0 0 & DATA *+6,0,0 0 < DATA *+6,0,0 0 R DATA *+6,0,0 0 h DATA *+6,0,0 0 ~ DATA *+6,0,0 0 DATA *+6,0,0 0 !!EN 0 ASM /S 0 KPF /O 0 KPF /S 0 SCR 0 LED DM
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x0190, f02=» LED INTLT1 1 !!IL 08 1 EXTRN DWKB01 1 & EXTRN DWTP01 1 F EXTRN DWDY01 1 f EXTRN DWKB02 1 EXTRN DWTP02 1 EXTRN DWDY02 1 EXTRN DWKB03 1
0x005eb0…006044 Dummy {f00=0x0002, f01=0x018e, f02=»XTRN DWDY04 1 !!IL 16 2 T1 EQU /006 2 & T2 EQU /006 2 D T3 EQU /006 2 b T4 EQU /006 2 !!IL 18 2 DATA TN1 2 DATA TN2 2 DATA TN3 2
0x006044…0061d8 Dummy {f00=0x0002, f01=0x0190, f02=» 2 z TN1 EQU * 3 DATA T1 3 $ DATA DWKB01 3 @ DATA DWTP01 3 ` DATA DWDY01 3 TN2 EQU * 3 DATA T2 3 DATA DWKB02 3 DATA
0x0061d8…00636c Dummy {f00=0x0002, f01=0x0190, f02=» DATA DWTP03 3 DATA DWDY03 4 TN4 EQU * 4 @ DATA T4 4 DATA DWKB04 4 x DATA DWTP04 4 DATA DWDY04 4 !!EN 4 ASM /S 4 KPF /O 4 KPF /S 4
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=»$$01$$ 4 !!EN 5 ASM /S 5 KPF /O 5 ( KPF /S 5 6 SCR 5 D LED DVTP00 5 P !!CH $$DVTP00$$DWTP01$$ 5 b !!CH $$/1111$$/2000$$ 5 !!EN 5 ASM /S 5 KPF /O 5 KPF /S 5 SCR 5 LED DVDY00 5 !!CH $$DVDY00$$DWDY0
0x006500…006694 (0, 8) Dummy {f00=0x0002, f01=0x0190, f02=»B00$$DWKB02$$ 5 !!CH $$/1111$$/1340$$ 6 !!RE 07,$$00$$02$$ 6 4 !!RE 24,$$00$$02$$ 6 N !!EN 6 h ASM /S 6 t KPF /O 6 KPF /S 6 SCR 6 LED DVTP00 6 !!CH $$DVTP00$$DWTP02$$ 6 !!CH $$/1111$$/2200$$ 6 !!EN 6 AS
0x006694…006828 Dummy {f00=0x0002, f01=0x018e, f02=» 6 ASM /S 7 KPF /O 7 KPF /S 7 $ SCR 7 2 LED DVKB00 7 > !!CH $$DVKB00$$DWKB03$$ 7 P !!CH $$/1111$$/1540$$ 7 p !!RE 07,$$00$$03$$ 7 !!RE 24,$$00$$03$$ 7 !!EN 7 ASM /S 7 KPF /O 7 KPF /S 7 SCR 7 LED
0x006828…0069bc Dummy {f00=0x0002, f01=0x018e, f02=» 7 LED DVDY00 8 !!CH $$DVDY00$$DWDY03$$ 8 !!CH $$/1111$$/C410$$ 8 : !!EN 8 X ASM /S 8 d KPF /O 8 r KPF /S 8 SCR 8 LED DVKB00 8 !!CH $$DVKB00$$DWKB04$$ 8 !!CH $$/1111$$/1740$$ 8 !!RE 07,$$00$$04$$ 8 !!RE
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=» !!CH $$/1111$$/2600$$ 9 !!EN 9 " ASM /S 9 . KPF /O 9 < KPF /S 9 J SCR 9 X LED DVDY00 9 d !!CH $$DVDY00$$DWDY04$$ 9 v !!CH $$/1111$$/C610$$ 9 !!EN 9 ASM /S 9 KPF /O 9 KPF /S 9 SCR 9 LED INIMOD 9
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x0100, f02=» !!DL 010 : !!DL 022 : !!DL 039 : $ !!EN : 4 ASM /S : @ KPF /O : N KPF /S : SCR : j ASM CD:TAB,NL : v KPF /O : ASG /02,LP0F : SCR : INC INTVMD : LKE M : KPF /L,M:167D : ASG /E0,TY10 : 9
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x2008, f02=» ; 010 : !!DL 022 : !!DL 039 : $ !!EN : 4 ASM /S : @ KPF /O : N KPF /S : SCR : j ASM CD:TAB,NL : v KPF /O : ASG /02,LP0F : SCR : INC INTVMD : LKE M : KPF /L,M:167D : ASG /E0,TY10 : 9
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=» ; DATA *+6,0,0 < DATA *+6,0,0 < DATA *+6,0,0 < 4 DATA *+6,0,0 < J DATA *+6,0,0 < ` DATA *+6,0,0 < v DATA *+6,0,0 < DATA *+6,0,0 < DATA *+6,0,0 < DATA *+6,0,0 < DATA *+6,0,0 < DATA *+6,0,0
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=»KPF /S < SCR = LED DMFDB = !!CH $$ X:A$$ 00245$$ = , !!CH $$ X:B$$ 00144$$ = J !!EN = h ASM /S = t KPF /O = KPF /S = SCR = LED INTLT1 = !!IL 08 = EXTRN DWKB01 = EXTRN DWTP01 =
0x0071a0…007334 (0, 9) Opaque[0x194]
0x007334…0074c8 # DirEnt {nam=»INTVMD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x007334…0074c8 IdxSect {
0x007334…0074c8 f00 = 0x0016 // 0x7334 @0x0
0x007334…0074c8 f01 = 0x000a // 0x7336 @0x2
0x007334…0074c8 gno = [ // 0x7338 @0x4
0x007334…0074c8 [0x00]: C0x0016.0x1.0
0x007334…0074c8 [0x01]: C0x0021.0x1.0
0x007334…0074c8 [0x02]: C0x0021.0x2.0
0x007334…0074c8 [0x03]: C0x0021.0x3.0
0x007334…0074c8 [0x04]: C0x0022.0x0.0
0x007334…0074c8 ]
0x007334…0074c8 }
0x0074c8…00765c Dummy {f00=0x0016, f01=0x018e, f02=» 2 P IDENT INTVMD REL 8.2 78-09-15 870105040820 P : P* B 8 P*************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* INTVMD = INTERRUPT VECTORS AND SYSTEM START P* P*
0x00765c…0077f0 Dummy {f00=0x0016, f01=0x0190, f02=» P* 8 P* THIS MODULE CONTAINS HARDWARE INTERRUPT VECTORS, . P* COMMUNICATION VECTOR TABLE,STACK AREA N $ P* AND MONITOR INITIALIZATION. P* P* P P P P P P P P P P EJE
0x0077f0…007984 Dummy {f00=0x0016, f01=0x0190, f02=»L d 0 P ENTRY CVTEBA ADDRESS TO END OF BUFFER POOL , P ENTRY CVTINP INTERPRETER ADDRESS TABLE > P ENTRY CVTDK START UP DISC n & P ENTRY CVTAPA APPLICATION ADDRESS , P ENTRY CVTAPS APPLICATION START ADDRESS " P ENTRY CVTCLK REAL TIME CLOCK
0x007984…007b18 Dummy {f00=0x0016, f01=0x018e, f02=»PAR FREE PARTITION POINTER " P ENTRY PARLEN PARTITION LENGTH " & P ENTRY NUMPAR NUMBER OF PARTITIONS H P r , P EXTRN IHPFAR POWER FAIL / AUTO RESTART z P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IH1501
0x007b18…007cac Dummy {f00=0x0016, f01=0x0190, f02=» P** P** P** * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 " P EXTRN IHDU1 DISC UNIT NO. 1 P $ P EXTRN ILLINT ILLEGAL INTERRUPT t P EXTRN HALT HALT ROUTINE P P EXTRN TCTAB & P EXTRN TTB:ID TASK IDENTIFICATION ( P EXTRN
0x007cac…007e40 Dummy {f00=0x0016, f01=0x0190, f02=»XTRN BUG BUGGER * P EXTRN PFINIT INIT AFTER MASTER CLEAR P* F P P PFD EQU /09 FD DEVICE ADDRESS X $ PCHCR EQU /0E CHCR DEVICE ADDRESS | " PSOP EQU /2E SOP DEVICE ADDRESS PX:A EQU /0 * PSEGLEN EQU X:A SEGMENT LENGTH IN BYTES
0x007e40…007fd4 (0, 10) Dummy {f00=0x0021, f01=0x0190, f02=»RMED ON CASSETTE AFTER THE APPLICATION LOADING P* 6 PX:C EQU 0 @ PUNLOAD EQU 0 R PDOPDSK EQU 0 f PREL0 EQU * z P EJECT P P* P* INTERRUPT VECTORS P* P P DATA IHPFAR 0 P DATA IHLKM
0x007fd4…008168 Dummy {f00=0x0021, f01=0x0190, f02=» 6 P DATA ILLINT P DATA IHTC 8 . P DATA IHSOP 9 H P DATA ILLINT 10 d P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13 P DATA CHLT1 14 P DATA ILLINT
0x008168…0082fc Dummy {f00=0x0021, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT P DATA ILLINT 22 @ P DATA ILLINT P DATA CHLT1 24 | P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT
0x0082fc…008490 Dummy {f00=0x0021, f01=0x0190, f02=»LINT 33 P DATA ILLINT P DATA ILLINT 4 P DATA ILLINT 36 T P DATA ILLINT 37 p P DATA ILLINT 38 P DATA ILLINT 39 P DATA IHDU1 40 P DATA ILLINT P DATA IL
0x008490…008624 Dummy {f00=0x0021, f01=0x0190, f02=» DATA ILLINT 47 P DATA ILLINT 48 P DATA ILLINT 49 8 P DATA ILLINT 50 T P DATA ILLINT 51 p P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT
0x008624…0087b8 Dummy {f00=0x0021, f01=0x0190, f02=»LINT 61 P DATA ILLINT 62 P DATA TRAP TRAP ROUTINE 0 P HLT P P EJECT P j P* r P* SYSTEM HALTS | P* P P HLT P HLT P P P P P* P* COMMUNICATION VECTOR TABLE
0x0087b8…00894c Dummy {f00=0x0021, f01=0x0190, f02=» DATA 0 END OF BUFFER AREA , PCVTINP DATA 0 INTERPPRETER TABLE ADDRESS " P RF INIT R P RF BUGG b & PCVTAPA DATA 0 APPLICATION ADDRESS r * PCVTAPS DATA 0 APPLICATON START ADDRESS " PCVTCLK DATA 0 REAL TIME CLOCK 6 PCVTLSB DATA 0 ADDRESS TO
0x00894c…008ae0 Dummy {f00=0x0021, f01=0x0190, f02=»PARTITIONS IN BYTES x 4 PCVTAPN DATA 0 APPLICATION NUMBER (START SWITCH) 8 PCVTSUB DATA 0 ADDRESS TO IPL READ SECTOR SUBROUTINE T P EJECT P P* P* INIMON AND BUGGER ENTRIES P* P 2 PINIT LDKL A1,INIMON INITIALIZE AND
0x008ae0…008c74 (0, 11) Dummy {f00=0x0021, f01=0x0190, f02=»UG PBRANCH ABR(NZ) A1 P HLT $ " PTRAP LDK A1,/D HALT PARAMETER 0 P CF A15,HALT V P EJECT j P* x , P* SAVE MEMORY SIZE, END OF BUFFER POOL P* AND LOAD STACK BASE P* P* ON ENTRY: & P* A1 = APPLICATION D
0x008c74…008e08 Dummy {f00=0x0021, f01=0x0190, f02=» P* A10= RELOCATION BASE P* A11= BUFFER ADDRESS+2 $ " P* A12= MONITOR START ADDRESS F P* A13= APPLICATION ADDRESS l P* A14= MEMORY SIZE . P* A15= ADDRESS TO READ SECTOR SUBROUTINE P* PINIM EQU * P ST A2,CVTDK
0x008e08…008f9c Dummy {f00=0x0021, f01=0x018e, f02=» P LDR A9,A12 P ORKL A12,/FFE P ST A12,CVTEBA 2 P ADKL A12,2 H P ST A12,CVTMSZ P LDR A12,A9 r P XIF P LDR A14,P LOAD STACK BASE & P LDKL A2,/400 INDICATE LOAD ON SOP P OTR A2,0,SOP P LD A2,2,A9 APPLICAT
0x008f9c…009130 Dummy {f00=0x0021, f01=0x0190, f02=» P* P LDR A6,A1 P IFT DOPDSK=1 P SUK A6,1 6 P ST A3,CVTAPN H P RF INIM20 ^ P XIF p P CFR A14,A15 READ LSBT | P LDR* A2,A11 GET LENGTH P CWK A2,12 ONE SEGMENT ? P RF(E) INIM20 ( P ST A13,CVTLSB STORE ADD
0x009130…0092c4 Dummy {f00=0x0021, f01=0x0190, f02=»10 LDR* A4,A3 GET TABLE WORD P STR A4,A13 STORE TABLE WORD $ & P ADKL A13,2 UPDATE MEMORY ADDRESS H & P ADK A3,2 INCREMENT FETCH ADDRESS r P SUK A2,2 READY ? P RF(E) INIM20 P CWR A5,A13 P RB(NE) INIM10 P ADK A6,1 P
0x0092c4…009458 Dummy {f00=0x0021, f01=0x018e, f02=»T A13,CVTAPA APPLICATION ADDRESS , P ADR A10,A13 APPLICATION RELOCATION BASE ( P EJECT X P* f $ P* READ AND RELOCATION ROUTINE p P* P* ON ENTRY: & P* A10 = RELOCATION BASE * P* A11 = INPUT BUFFER ADDRESS
0x009458…0095ec Dummy {f00=0x0021, f01=0x0190, f02=» ^ 6 P* A3 = ADDRESS OF RELOCATION TABLE 2 P* A4 = RELOCATION BIT COUNTER B , P* A5 = CODE WORD ADDRESS x , P* A7 = CODE WORD COUNTER $ P* A8 = CODE WORD P* 0
0x0095ec…009780 Dummy {f00=0x0021, f01=0x0190, f02=»A2,A11 START ADDRESS $ P ADR A2,A10 ADD RELOCATION BASE $ P ST A2,CVTAPS SAVE START ADDRESS D P LD A1,4,A11 LENGTH IN BYTES l $ P ADR A1,A10 ADD RELOCATION BASE P ADK A1,2 & P LDKL A7,368 BYTES IN FIRST SECTOR P LDR A3,A11 P
0x009780…009914 (0, 12) Dummy {f00=0x0021, f01=0x0190, f02=» b P LDR A3,A11 , PRELOCS LDR A5,A3 BUFFER ADDRESS POINTER * P ADR A3,A7 ADDRESS TO RELOCATION WORDS L PMOV EQU * z P LDR* A2,A3 RELOCATION BITS P SRC A2,1 P LDR A4,A4 FIRST SECTOR ? P RF(E) RELOCF NO P SLC A2,4
0x009914…009aa8 Dummy {f00=0x0021, f01=0x0190, f02=»ORD FROM BUFFER z " P SLC A2,1 CHECK RELOCATION BIT P RF(NN) MOVABS NO RELOCATION > $ P ADR A8,A10 ADD RELOCATION BASE b & PMOVABS STR A8,A13 STORE CODE WORD $ P ADK A5,2 UPDATE BUFFER POINTER & P ADKL A13,2 UPDATE MEMORY POINTER P C
0x009aa8…009c3c Dummy {f00=0x0021, f01=0x018e, f02=»0 PFELUTG OTR A1,0,SOP P HLT & PMONFOR SUK A7,2 LAST ? 2 P RF(Z) MOVEND YES P $ P SUK A4,1 NEXT RELOCATION WORD ? j P RB(P) MOVE P RB MOV YES * PMOVEND ADK A6,1 UPDATE SECTOR POINTER " P CFR A14,A15 READ NEXT SECTOR
0x009c3c…009dd0 Dummy {f00=0x0021, f01=0x0190, f02=» P ST A13,CVTSBA $ P LDKL A4,NUMPAR OVERLAY SYSTEM ? P RF(E) INIM35 NO F . P ADKL A13,10 DUMMY NEEDED AT SEGMENT LOAD ^ ( P ST A13,CVTSBA START OF BUFFER POOL P* , P* CALCULATE NECESSARY PARTITION LENGTH P* 0 P LDKL A1
0x009dd0…009f64 Dummy {f00=0x0021, f01=0x0190, f02=»68 0 PPARADD SUKL A1,376 BYTES IN 2:ND-N:TH SECTOR P RF(NP) PAREND > P ADKL A2,376 T P RB PARADD h 6 PPAREND ADKL A2,408 RESERVED SPACE FOR LAST SECTOR z P ST A2,PARLEN P EJECT P* 6 P* TEST IF MEMORY SPACE AVAILABLE FOR
0x009f64…00a0f8 Dummy {f00=0x0021, f01=0x0190, f02=» A2,1 PARTITION LENGTH REFERENCE PINIM28 ADR A1,A2 OVERFLOW? ( P RF(O) OVERFL ERROR J P SUK A3,1 f P RB(NZ) INIM28 x " P LD A2,CVTEBA GET MEMORY SIZE P SRL A2,1 P CWR A1,A2 P RF(NG) INILNK & POVERFL EQU * MEMORY OVERFL
0x00a0f8…00a28c Dummy {f00=0x0021, f01=0x0190, f02=»QU * . P ST A13,FREPAR SET FREE PARTITION POINTER $ PINIM29 SUK A4,1 LAST PARTITION ? > P RF(E) INIM32 f P LDR A5,A13 | ( P AD A13,PARLEN ADD PARTITION LENGTH P STR A13,A5 STORE LINK P RB INIM29 PINIM32 CMR A13 P EJECT
0x00a28c…00a420 Dummy {f00=0x0021, f01=0x0190, f02=» A7,/F P SLL A7,4 P ORS A7,INIM37 P ANK A7,/80 6 P RF(Z) INIM38 NOT FLEX DISC J P LDK A7,/C UNLOCK n PINIM37 CIO A7,1,FD P RB(NA) *-2 P SST A7,FD P RB(NA) *-2 PINIM38 EQU * P* P* CHECK IF B
0x00a420…00a5b4 (0, 13) Dummy {f00=0x0022, f01=0x0190, f02=»CT P P* P* FIND FIRST USER TASK P* : PINIM40 EQU * D P LD A1,TCTAB TCTAB ADDRESS X P LDR* A4,A1 TCTAB LENGTH z PINIM50 ADK A1,2 P SUK A4,2 P RF(NZ) INIM60 P HLT NO USER TASK FOUND P " PINIM60
0x00a5b4…00a748 Dummy {f00=0x0022, f01=0x0190, f02=»UNNING PROGRAM v P CMR A5 $ P LD A7,TTB:ST,A5 GET USER LEVEL & P SRC A7,6 N P EJECT ` P* n P* INITIALIZE STACK x P* , P LDKL A15,STB-32 STACK BASE - IDLE LOOP P LDK A1,0 * P STR A1,A15 TTAB-ADDRESS OF IDLE LOOP
0x00a748…00a8dc Dummy {f00=0x0022, f01=0x0190, f02=»SYSTEM P* P PINIM70 EQU * P LDKL A13,WAITIS 4 * P STR A13,A15 STORE USER START ADDRESS L " P STR A7,A15 AND LEVEL ON STACK z " P ABL PFINIT INITIALIZE DEVICES P DATA /FC00 PSW IDLE LOOP P DATA LOOP PSTB EQU *-2 ST
0x00a8dc…00aa70 Dummy {f00=0x0022, f01=0x410a, f02=»0 P LKM ! P DATA 6 ! P LD A1,CVTDK START UP DISC ! & P SLL A1,8 INTO LEFT BYTE ! H 0 P LC A1,CVTAPN+1 APPLICATION NO IN RIGTH BYTE ! h 8 P LD A2,CVTSUB ADDRESS TO IPL READ SECTOR SUBROUTINE ! P ABI CVTAPS ! P ! P END INIM ! @ !
0x00aa70…00ac04 Dummy {f00=0x0022, 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
0x00ac04…00ad98 Dummy {f00=0x0022, f01=0x0190, f02=» REC NR j z P LD A2,ECBCW+2,A5 k ( P LD A3,ECBCW,A5 REC NR DATA FILE REC k * P SCR A2,A7 k V P ADK A7,2 k h P SCR A3,A7 k z P ECR A3,A3 k P SUK A7,1 k P SCR A3,A7 LOG REC NR k P ADK A7,2 k P LDK A1,/FF USED k P SCR A1,A7 STATU
0x00ad98…00af2c Dummy {f00=0x0022, f01=0x018e, f02=» P* l P ST A2,-28,A14 l P ST A3,-26,A14 l $ P EJECT l : P* l H : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING l R $ P* USED RECORDS ROLLED FORWARD l $ P* A6,A11,A13 IS USED AT ENTRY l $ P ADKL A11,7 RECORD LENGTH TOTAL l P
0x00af2c…00b0c0 Dummy {f00=0x0022, f01=0x0190, f02=» , P* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 m $ P* A13 = BUFFER ADDRESS SECTOR m 4 P* m PINS190 EQU * m f P LDKL A12,1 BUFADR2 m z PINS200 EQU * m P LDK A1,0 m P LDR A12,A12 m P RF(Z) INS210 BUFAR1 m ( P LDKL A1,RECBFZ RECORD BUUFF
0x00b0c0…00b254 (0, 14) Opaque[0x194]
0x00b254…00b3e8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x00b254…00b3e8 IdxSect {
0x00b254…00b3e8 f00 = 0x0004 // 0xb254 @0x0
0x00b254…00b3e8 f01 = 0x00c6 // 0xb256 @0x2
0x00b254…00b3e8 gno = [ // 0xb258 @0x4
0x00b254…00b3e8 [0x00]: C0x0004.0x2.0
0x00b254…00b3e8 [0x01]: C0x0004.0x3.0
0x00b254…00b3e8 [0x02]: C0x0004.0x1.0
0x00b254…00b3e8 [0x03]: C0x0006.0x1.0
0x00b254…00b3e8 [0x04]: C0x0007.0x2.0
0x00b254…00b3e8 [0x05]: C0x0008.0x3.0
0x00b254…00b3e8 [0x06]: C0x000b.0x0.0
0x00b254…00b3e8 [0x07]: C0x000a.0x3.0
0x00b254…00b3e8 [0x08]: C0x000c.0x0.0
0x00b254…00b3e8 [0x09]: C0x000c.0x2.0
0x00b254…00b3e8 [0x0a]: C0x000d.0x0.0
0x00b254…00b3e8 [0x0b]: C0x000d.0x2.0
0x00b254…00b3e8 [0x0c]: C0x000e.0x0.0
0x00b254…00b3e8 [0x0d]: C0x000e.0x2.0
0x00b254…00b3e8 [0x0e]: C0x000f.0x0.0
0x00b254…00b3e8 [0x0f]: C0x000f.0x2.0
0x00b254…00b3e8 [0x10]: C0x0010.0x0.0
0x00b254…00b3e8 [0x11]: C0x0010.0x2.0
0x00b254…00b3e8 [0x12]: C0x0011.0x0.0
0x00b254…00b3e8 [0x13]: C0x0011.0x2.0
0x00b254…00b3e8 [0x14]: C0x0012.0x0.0
0x00b254…00b3e8 [0x15]: C0x0012.0x2.0
0x00b254…00b3e8 [0x16]: C0x0013.0x0.0
0x00b254…00b3e8 [0x17]: C0x0013.0x2.0
0x00b254…00b3e8 [0x18]: C0x0014.0x0.0
0x00b254…00b3e8 [0x19]: C0x0014.0x2.0
0x00b254…00b3e8 [0x1a]: C0x0015.0x0.0
0x00b254…00b3e8 [0x1b]: C0x0015.0x2.0
0x00b254…00b3e8 [0x1c]: C0x0016.0x0.0
0x00b254…00b3e8 [0x1d]: C0x0016.0x2.0
0x00b254…00b3e8 [0x1e]: C0x0017.0x0.0
0x00b254…00b3e8 [0x1f]: C0x0017.0x2.0
0x00b254…00b3e8 [0x20]: C0x0018.0x0.0
0x00b254…00b3e8 [0x21]: C0x0018.0x2.0
0x00b254…00b3e8 [0x22]: C0x0019.0x0.0
0x00b254…00b3e8 [0x23]: C0x0019.0x2.0
0x00b254…00b3e8 [0x24]: C0x001a.0x0.0
0x00b254…00b3e8 [0x25]: C0x001a.0x2.0
0x00b254…00b3e8 [0x26]: C0x001b.0x0.0
0x00b254…00b3e8 [0x27]: C0x001b.0x2.0
0x00b254…00b3e8 [0x28]: C0x001c.0x0.0
0x00b254…00b3e8 [0x29]: C0x001c.0x2.0
0x00b254…00b3e8 [0x2a]: C0x001e.0x2.0
0x00b254…00b3e8 [0x2b]: C0x0023.0x0.0
0x00b254…00b3e8 [0x2c]: C0x0023.0x1.0
0x00b254…00b3e8 [0x2d]: C0x001e.0x1.0
0x00b254…00b3e8 [0x2e]: C0x0025.0x3.0
0x00b254…00b3e8 [0x2f]: C0x0028.0x0.0
0x00b254…00b3e8 [0x30]: C0x0028.0x1.0
0x00b254…00b3e8 [0x31]: C0x0025.0x2.0
0x00b254…00b3e8 [0x32]: C0x002a.0x0.0
0x00b254…00b3e8 [0x33]: C0x002a.0x2.0
0x00b254…00b3e8 [0x34]: C0x002c.0x1.0
0x00b254…00b3e8 [0x35]: C0x002d.0x0.0
0x00b254…00b3e8 [0x36]: C0x002d.0x3.0
0x00b254…00b3e8 [0x37]: C0x002e.0x2.0
0x00b254…00b3e8 [0x38]: C0x002f.0x1.0
0x00b254…00b3e8 [0x39]: C0x0031.0x2.0
0x00b254…00b3e8 [0x3a]: C0x0031.0x1.0
0x00b254…00b3e8 [0x3b]: C0x0032.0x1.0
0x00b254…00b3e8 [0x3c]: C0x0032.0x3.0
0x00b254…00b3e8 [0x3d]: C0x0033.0x1.0
0x00b254…00b3e8 [0x3e]: C0x0035.0x2.0
0x00b254…00b3e8 [0x3f]: C0x0037.0x3.0
0x00b254…00b3e8 [0x40]: C0x003b.0x0.0
0x00b254…00b3e8 [0x41]: C0x003e.0x0.0
0x00b254…00b3e8 [0x42]: C0x0040.0x1.0
0x00b254…00b3e8 [0x43]: C0x003a.0x3.0
0x00b254…00b3e8 [0x44]: C0x0043.0x3.0
0x00b254…00b3e8 [0x45]: C0x0049.0x2.0
0x00b254…00b3e8 [0x46]: C0x0049.0x3.0
0x00b254…00b3e8 [0x47]: C0x004a.0x0.0
0x00b254…00b3e8 [0x48]: C0x0043.0x2.0
0x00b254…00b3e8 [0x49]: C0x004d.0x0.0
0x00b254…00b3e8 [0x4a]: C0x004d.0x1.0
0x00b254…00b3e8 [0x4b]: C0x0044.0x3.0
0x00b254…00b3e8 [0x4c]: C0x0044.0x2.0
0x00b254…00b3e8 [0x4d]: C0x0046.0x1.0
0x00b254…00b3e8 [0x4e]: C0x0047.0x0.0
0x00b254…00b3e8 [0x4f]: C0x0047.0x3.0
0x00b254…00b3e8 [0x50]: C0x0022.0x3.0
0x00b254…00b3e8 [0x51]: C0x0026.0x1.0
0x00b254…00b3e8 [0x52]: C0x0026.0x3.0
0x00b254…00b3e8 [0x53]: C0x0027.0x1.0
0x00b254…00b3e8 [0x54]: C0x0027.0x3.0
0x00b254…00b3e8 [0x55]: C0x0052.0x1.0
0x00b254…00b3e8 [0x56]: C0x0052.0x3.0
0x00b254…00b3e8 [0x57]: C0x0053.0x0.0
0x00b254…00b3e8 [0x58]: C0x0053.0x2.0
0x00b254…00b3e8 [0x59]: C0x0054.0x0.0
0x00b254…00b3e8 [0x5a]: C0x0054.0x2.0
0x00b254…00b3e8 [0x5b]: C0x0055.0x0.0
0x00b254…00b3e8 [0x5c]: C0x0055.0x2.0
0x00b254…00b3e8 [0x5d]: C0x0056.0x0.0
0x00b254…00b3e8 [0x5e]: C0x0056.0x2.0
0x00b254…00b3e8 [0x5f]: C0x0057.0x0.0
0x00b254…00b3e8 [0x60]: C0x0057.0x2.0
0x00b254…00b3e8 [0x61]: C0x0058.0x0.0
0x00b254…00b3e8 [0x62]: C0x0058.0x2.0
0x00b254…00b3e8 ]
0x00b254…00b3e8 }
0x00b3e8…00b57c Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT INTVMD REL 8.2 78-09-15 870105040820 D @ CVTMSZK CVTSTB CVTSBA CVTEBA CVTINP CVTDK CVTAPA CVTAPSC R < 8 CVTCLK LOOPY INIM40N CVTLSB FREPAR PARLEN@ NUMPAR NUMPAR IHPFARC IHLKM
0x00b57c…00b710 Dummy {f00=0x0004, f01=0x0190, f02=» IH1502R CHLT1 , ( & , ( ! V , ( 1 IHDU1 , ( A , ( Q
0x00b710…00b8a4 Dummy {f00=0x0004, f01=0x0190, f02=» CVTSTB CVTSBA CVTEBA 2 CVTINP F CVTAPA Z CVTAPSC n CVTCLK CVTLSB CVTDK FREPAR PARLEN@ , ( W W
0x00b8a4…00ba38 Dummy {f00=0x0004, f01=0x0190, f02=» t , ( B. F A . P , ( , 7 P _ D , ( @ . A N p t , ( = W x ,: P : , ( ] : V P T A. , (
0x00ba38…00bbcc Dummy {f00=0x0004, f01=0x0190, f02=» , ( :a U _n P _ 7 , ( G. @ ' ?D A ' P G O 4 INIM40N & d TCTAB x TTB:ID1 , ( @ $ T $ T PRUNN TTB:ST0 , ( 9 Z A 5 T "
0x00bbcc…00bd60 Dummy {f00=0x0004, f01=0x409e, f02=» H D ! f W W W P& P CW WP cV qP uT P Pd U U 4 0 ` S U P P & 1T K F UP [ j g h P @ @ $ T $ T PRUNN TTB:ST0 , ( 9 Z A 5 T "
0x00bd60…00bef4 (0, 15) Dummy {f00=0x0004, f01=0x4124, f02=» J F IDENT INIMOD REL 8.2 78-09-15 870105040820 INIMONKdBUG DCEXT DM:TSK R INIMONK v tBUG DCEXT DM:TSK TTABD0A TTABD1A P
0x00bef4…00c088 Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT TDISP REL 8.2 78-09-15 870105040820 F B TDISP LKMDIS DISIOE DISEND DISQUE GBQUE PRUNY SRUNY RETU14 R F B RETU13 RETU12 RETU11 RETU10 RETUR9L RETUR8 RETUR7 RETUR6 F B RETUR5 RETUR4 RETUR3R RETUR2
0x00c088…00c21c Dummy {f00=0x0004, f01=0x018e, f02=»BA ECBRL ECBEL ECBRC ECBCW SACTY LRUNEW z DWTCHP 0 DWTST D DWTECB0 V DWTOR j DWTADR | DWTTAB DWTWAT DWTTQ DWTWA DWTTDM DWTVOL , E
0x00c21c…00c3b0 Dummy {f00=0x0004, f01=0x0190, f02=» SACTY LRUNEW GBQUE . BLOK:S @ FREQUE R BLOCKEW f BLOCKL x DISIOE DISEND TENDIO TDISP , ( @
0x00c3b0…00c544 Dummy {f00=0x0004, f01=0x0190, f02=»ETU14 j RETU13 l RETU12 n $ RETU11 p 8 RETU10 r L , ( U ? , ? A ` RETUR9L t RETUR8 v RETUR7 x RETUR6 z RETUR5 | RETUR4 ~
0x00c544…00c6d8 Dummy {f00=0x0004, f01=0x40ae, f02=» LKMDIS , ( ? ? ? ? T ? _& $ @ @ P ^ 9j U Y >_` L PX )UL QP@ W P t @ v RETUR7 x RETUR6 z RETUR5 | RETUR4 ~
0x00c6d8…00c86c Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT LRPINT REL 8.2 78-09-15 870105040820 B > IHLKM LKMRQE LKMQDI IHRTC TIMQUE MONCLO IHPFAR@ INIFLG R IHLKM INTSAV PRUNN TTB:SA , ( @ A
0x00c86c…00ca00 Dummy {f00=0x0004, f01=0x0190, f02=» SACTN LRUNEW SWL48 " * & W H ? @ P A 2 , ( o @ (V ( U ` LKMAL LKMRQE LKMQDI QTJOB , ( " P @ V L P U
0x00ca00…00cb94 (0, 16) Dummy {f00=0x0004, f01=0x0190, f02=» A A MONCLO ( FREBLKC < * & 8X Q Z P 0 9 N , ( _ _& P | TIMQUE INIFLG IHPFAR@ , ( @ H H A
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x4068, f02=»P GP cP yV P V P Q P #Q 7 < B J R@ d Z P 0 9 N , ( _ _& P | TIMQUE INIFLG IHPFAR@ , ( @ H H A
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT TPROC REL 8.2 78-09-15 870105040820 < 8 dTIO TWAIT TEXIT TACTOTK TPAUSE TIOQ20 TIOERRL TPQUE R FNDDWT |TIO DWTST * & @ R @ ATTACHW D
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x0190, f02=» TIODM DWTADR , ( O P Y @ P X P X " * , ( i P P P H T H Z * & P H P I Y * & # C C '? Y DWTTDM DWTECB ,
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x0190, f02=» l DWTWAT , ( Y x 8W TIOQ20 N TTB:ST b , ( T 8P Y ^ 5 ) t TTB:SA TIOERRL ( TPQUE , TDISP TWAIT 4 * & HP
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x4134, f02=» $_ t LKMRQE , ( O & ( X4 @ P $ ACTOT T TPAUSE 0 d g L *_B x H D ! ( R T 3R =P CT IP OP YP@ cP2 iP0 qP( {P T~ Pn Pr 8 4 P W T P W P W P
0x00d378…00d50c Dummy {f00=0x0004, f01=0x018e, f02=» J F IDENT MSUBS REL 8.2 78-09-15 870105040820 J F " SAVE8 QTJOB QMJOB ACTOT EXITY GETBLK FREBLK FNDDWTL FNDTID TABIO R H D ! TENDIO PFINIT SWL48 SWLXY ILLINT INTSAV` HALTY IHRET8 IHRET7 < 8 IHRET6 IHRET5R IHRET4 I
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x0190, f02=» TTB:ST0 , ( ! ? ? ? T $P QMJOB J F TTMJOB1 X , ( @ =@ E ^ 5 ) W j ACTOT ^ TTB:SA2 TTB:SS , ( Y W T T P L U TTB:S
0x00d6a0…00d834 (0, 17) Dummy {f00=0x0006, f01=0x0190, f02=» EXITY , ( 4 T - 1_& U T GETBLK F , ( P 0 U ^W Z FREQUE , ( ? @ T 0 A 1 Q FREBLK , ( Q > 0 @ 1 A P
0x00d834…00d9c8 Dummy {f00=0x0006, f01=0x0190, f02=»D , ( 5 T ? X D T W > CDTAB : , ( O _& @ 8 R Y T ? X D J , ( m T W > _& W > z FNDTID TCTAB , ( D 8 X W ? ` @ @ P TABIO
0x00d9c8…00db5c Dummy {f00=0x0006, f01=0x0190, f02=» P T R X "P X $ , ( T 4 Y & X $ X & DWTTDM V REQEND h * & $ T X & ( Y " Y z DWTECBO DWTWAT , ( $ " X *P - M Y * X ,P IHRET8 4
0x00db5c…00dcf0 Dummy {f00=0x0006, f01=0x0190, f02=» > > > > > t IHRET2 @ IHRET1 B ( IHRTN D < PFINIT L N PFTAB b , ( A > > > @ .V ? . > r SWL48 b RTNA15 SWLXY t , ( ] _ W ? _ > 0 ? , (
0x00dcf0…00de84 Dummy {f00=0x0006, f01=0x411a, f02=» r A. H D ! $ ;P I > UW ]W iT. mP 4 T P W" T ( H D ! D D /R" 5T ET> KW8 ]R" cT sT yW W W P W W t @ < W P R P T T P$ P %P /W SV aW V
0x00de84…00e018 Dummy {f00=0x0006, f01=0x0190, f02=» J F IDENT TTMJOB REL 8.2 78-09-15 870105040820 F B TTMJOBK TTB:ST TTB:ID TTB:PP TTB:SP TTB:SS TTB:SAL TTB:TD R TTMJOBK TTB:ST TTB:ID TTB:PP TTB:SS TTB:S
0x00e018…00e1ac Dummy {f00=0x0006, f01=0x401e, f02=» , @ REL 8.2 78-09-15 870105040820 F B TTMJOBK TTB:ST TTB:ID TTB:PP TTB:SP TTB:SS TTB:SAL TTB:TD R TTMJOBK TTB:ST TTB:ID TTB:PP TTB:SS TTB:S
0x00e1ac…00e340 Dummy {f00=0x0006, f01=0x4182, f02=» J F IDENT INPRET REL 8.2 78-09-15 870105040820 IHINPTK R IHINPTK d , ( ? ? ? ^ $ _ P A ;a x , ( ! :CV V A > > > ? > CVTINP , ( A _ > > > ; ^ [
0x00e340…00e4d4 (0, 18) Dummy {f00=0x0007, f01=0x412c, f02=» J F IDENT PFTAB REL 8.2 78-09-15 870105040820 PFTAB R PFTAB b DC15ON t TCDRON SOPRN CHLTON DUONN DMINIT & " UP
0x00e4d4…00e668 Dummy {f00=0x0007, f01=0xc03e, f02=» (@ :870105040820 PFTAB R PFTAB b TWONN t TCDRON SOPRN CHLTONA C1DRONA C2DRON C3DRON` FDONN * & UT
0x00e668…00e7fc Dummy {f00=0x0007, f01=0x0190, f02=» J F IDENT LKMAL REL 8.2 78-09-15 870105040820 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER GETBUF RELBUFC * & UT
0x00e7fc…00e990 Dummy {f00=0x0007, f01=0x4012, f02=» " @ LKMAL REL 8.2 78-09-15 870105040820 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER GETBUF RELBUFC * & UT
0x00e990…00eb24 Dummy {f00=0x0007, f01=0x4136, f02=» J F IDENT DVTKB REL 8.2 78-09-15 870105040820 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x00eb24…00ecb8 Dummy {f00=0x0007, f01=0x40f0, f02=» J F IDENT DVTTP REL 8.2 78-09-15 870105040820 DVTTP R DVTTP b TPADN t , ( TP $ $ @ VE AREA FOR REGS. A3,A4,
0x00ecb8…00ee4c Dummy {f00=0x0007, f01=0x40e8, f02=» J F IDENT DVTGP REL 8.2 78-09-15 870105040820 DVTGP R DVTGP b GPADN t & " GP ! $ $ @ P DATA 0 SAVE AREA FOR A4
0x00ee4c…00efe0 Dummy {f00=0x0007, f01=0x40d4, f02=» J F IDENT DVTDN REL 8.2 78-09-15 870105040820 DVTDN R DVTDN b DNADN t & " DN @ P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE
0x00efe0…00f174 (0, 19) Dummy {f00=0x0008, f01=0x40d8, f02=» J F IDENT DVTDI REL 8.2 78-09-15 870105040820 DVTDI R DVTDI b DIADN t * & DI ?O_o @ ATA /2010 P DATA /3F4F,/5F6F * P DAT
0x00f174…00f308 Dummy {f00=0x0008, f01=0x40ea, f02=» J F IDENT DVTDY REL 8.2 78-09-15 870105040820 DVTDY R DVTDY b DYADN t & " DY ! & & @ P DATA 0 SAVE AREA FOR A4
0x00f308…00f49c Dummy {f00=0x0008, f01=0x40fc, f02=» J F IDENT DVTCG REL 8.2 78-09-15 870105040820 DVTCG R DVTCG b CGADN t & " CG bECH !@ ( ( @ DATA 0 SAVE
0x00f49c…00f630 Dummy {f00=0x0008, f01=0x40e6, f02=» J F IDENT DVTCD REL 8.2 78-09-15 870105040820 DVTCD R DVTCD b CDADN t & " CD ! " " @ P RES 4 P DATA 0 P
0x00f630…00f7c4 Dummy {f00=0x0008, f01=0x40dc, f02=» J F IDENT DVTMS REL 8.2 78-09-15 870105040820 DVTMS R DVTMS b MSADN t & " ! ( @ FOR A3 P DATA 0 SAVE AREA FOR A4
0x00f7c4…00f958 Dummy {f00=0x0008, f01=0x40f8, f02=» J F IDENT DVTOD REL 8.2 78-09-15 870105040820 DVTOD R DVTOD b ODADN t & " OD ! ` , ) , + , , @ P DAT
0x00f958…00faec Dummy {f00=0x0008, f01=0x40fa, f02=» J F IDENT DVTT1 REL 8.2 78-09-15 870105040820 DVTT1 R DVTT1 b TPAD3 t , ( TP . . @ R REGS. A3,A4,
0x00faec…00fc80 Dummy {f00=0x0008, f01=0x40ca, f02=» J F IDENT DWII01 REL 8.2 78-09-15 870105040820 DWII01K R DWII01K d ITADI x ( $ @ PDWII01 EQU * & P DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x00fc80…00fe14 (0, 20) Dummy {f00=0x000b, f01=0x40ca, f02=» J F IDENT DWIO01 REL 8.2 78-09-15 870105040820 DWIO01K R DWIO01K d ITADO x ( $ @ PDWIO01 EQU * P DATA 0 QUEUE LINK P DATA /8000
0x00fe14…00ffa8 Dummy {f00=0x000b, f01=0x40da, f02=» J F IDENT DW0701 REL 8.2 78-09-15 870105040820 DW0701K R DW0701K d DC07AD x & " DC @ P END @ P DATA 0 ECB ADDRESS
0x00ffa8…01013c Dummy {f00=0x000b, f01=0x40de, f02=» J F IDENT DW1501 REL 8.2 78-09-15 870105040820 DW1501K R DW1501K d DC15AD x * & DC @ E QUEUE P DATA 0 STATUS QUEUE
0x01013c…0102d0 Dummy {f00=0x000b, f01=0x40ee, f02=» J F IDENT DW2201 REL 8.2 78-09-15 870105040820 DW2201K R DW2201K d DC22AD x , ( , @ 0 TIMER FOR BUFFER QUEUE
0x0102d0…010464 Dummy {f00=0x000b, f01=0x40aa, f02=» J F IDENT CTABX REL 8.2 78-09-15 870105040820 CTABX R CTABX b t @ P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x010464…0105f8 Dummy {f00=0x000b, f01=0xc162, f02=» J F IDENT BLOK:S REL 8.2 78-09-15 870105040820 BLOK:SK BLOCKE R BLOK:SK l , ( I $ , ( $ ! * 0 6 < B , ( I$ A H N T Z `
0x0105f8…01078c Dummy {f00=0x000b, f01=0x416e, f02=» J F IDENT CD:TAB REL 8.2 78-09-15 870105040820 CD:TABK CDTABF R CD:TABK l DWTC01 DWSI01 DWSO01 DW1500L DWDU01 , ( $ `
0x01078c…010920 Dummy {f00=0x000b, f01=0x415c, f02=» J F IDENT TC:TAB REL 8.2 78-09-15 870105040820 TC:TABK TCTABT R TC:TABK l TTMJOB TTABD0 TCTABT TTABTC TTABTD TTABTE TTABTF TTABDCL * &
0x010920…010ab4 (0, 21) Dummy {f00=0x000a, f01=0x40ca, f02=» J F IDENT TTABX REL 8.2 78-09-15 870105040820 TTABX R TTABX b < t + + , @ PTTABX DATA 0 P DATA /3C TASK LEVEL & P DATA
0x010ab4…010c48 Dummy {f00=0x000a, f01=0x40ce, f02=» J F IDENT DC:TAB REL 8.2 78-09-15 870105040820 DC:TABK DCTAB R DCTAB j DC:TABK | @ P* P* P* PDCTAB DATA DC:TAB & P
0x010c48…010ddc Dummy {f00=0x000a, f01=0xc08e, f02=» J F IDENT INTLT1 REL 8.2 78-09-15 870105040820 INTLT1K R INTLT1K d x@ P* P* PINTLT1 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED T
0x010ddc…010f70 Dummy {f00=0x000a, f01=0x408e, f02=» J F IDENT INTLT2 REL 8.2 78-09-15 870105040820 INTLT2K R INTLT2K d x@ P* P* PINTLT2 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED T
0x010f70…011104 Dummy {f00=0x000a, f01=0x408e, f02=» J F IDENT INTLT3 REL 8.2 78-09-15 870105040820 INTLT3K R INTLT3K d x@ P* P* PINTLT3 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED T
0x011104…011298 Dummy {f00=0x000a, f01=0x408e, f02=» J F IDENT INTLT4 REL 8.2 78-09-15 870105040820 INTLT4K R INTLT4K d x@ P* P* PINTLT4 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED T
0x011298…01142c Dummy {f00=0x000a, f01=0x408e, f02=» J F IDENT INTRT1 REL 8.2 78-09-15 870105040820 INTRT1K R INTRT1K d x@ P* P* PINTRT1 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x01142c…0115c0 Dummy {f00=0x000a, f01=0x408e, f02=» J F IDENT INTRT2 REL 8.2 78-09-15 870105040820 INTRT2K R INTRT2K d x@ P* P* PINTRT2 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x0115c0…011754 (0, 22) Dummy {f00=0x000c, f01=0x408e, f02=» J F IDENT INTRT3 REL 8.2 78-09-15 870105040820 INTRT3K R INTRT3K d x@ P* P* PINTRT3 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x011754…0118e8 Dummy {f00=0x000c, f01=0x408e, f02=» J F IDENT INTRT4 REL 8.2 78-09-15 870105040820 INTRT4K R INTRT4K d x@ P* P* PINTRT4 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x0118e8…011a7c Dummy {f00=0x000c, f01=0x0190, f02=» J F IDENT MONTAB REL 8.2 78-09-15 870105040820 J F " MONTABK TCTAB CDTAB BLOCKS INTLT2 INTLT3 INTLT4@ INTRT1 INTRT2C R INTRT3 INTRT4N MONTABK TC:TAB TCTAB CD:TAB C
0x011a7c…011c10 Dummy {f00=0x000c, f01=0x4078, f02=»NTRT2C INTRT3 INTRT4N $ & " 8 b@ t INTLT3 INTLT4@ INTRT1 INTRT2C R INTRT3 INTRT4N MONTABK TC:TAB TCTAB CD:TAB C
0x011c10…011da4 Dummy {f00=0x000c, f01=0x0190, f02=» J F IDENT TIODM REL 8.2 78-09-15 870105040820 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELEC D @ FDBLRN FDBNIFN FDBEAL FDBCRL FDB
0x011da4…011f38 Dummy {f00=0x000c, f01=0x0190, f02=» COFILE: , ( , ( ! " L , ( A # $ % | ECBFC FDBLNK FDBECB FDBSNR FDBRRO "
0x011f38…0120cc Dummy {f00=0x000c, f01=0x0190, f02=» EXTFC EXTLEN@ EXTBAS 0 EXTELEC D FDBLRN E X FDBNIFN D l FDBEAL H FDBCRL J FDBKA L FDBMIA N FDBADF P FDBAI1 R FDBDBRW Z
0x0120cc…012260 Dummy {f00=0x000c, f01=0x0190, f02=» DWTTDM! , ( a "$&( h @ D X , ( } P _ L R P @ R $P B DWTST r , ( U ' U _ (@(@ I 2P DWTOR , ( ^ H L Y H W Y EARELB * &
0x012260…0123f4 (0, 23) Dummy {f00=0x000c, f01=0x0190, f02=» C P C * & - W < C C _H " , ( E H H S W C P ECBRL EATEST , ( aD C B B B U , ( y@ R W X [ X T E T DSU
0x0123f4…012588 Dummy {f00=0x000c, f01=0x0190, f02=» , ( H B B Y ER Q X FU C bSQR 4 CALSNO B , ( '? T W T (@(@ T FNDTID DMTASKW , ( P D0 T ACTOT TDISP DISENDR $
0x012588…01271c Dummy {f00=0x000c, f01=0x40ac, f02=» d 1 }P R R P P . W . W )P ~ H D ! /W SS UW uU R WJ P S W W, R Q U T W6 T. : T 2 @
0x01271c…0128b0 Dummy {f00=0x000c, f01=0x0190, f02=» J F IDENT DMTASK REL 8.2 78-09-15 870105040820 ( $ DMTASKKdSQRdQSW QIRNY QIRR DMTWM R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x0128b0…012a44 Dummy {f00=0x000c, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TD F , ( w $ -_ D U 1 X CDTAB , ( W T ` U @ M FDBRRO ECBBA , ( B @ W : X
0x012a44…012bd8 Dummy {f00=0x000c, f01=0x0190, f02=» FDBDBR2 " DWTOR 4 , ( @ X P D V D D , ( "? P P &P E t FDBECB GTBKBU , ( 9$ V P ( ( DMTIOT *
0x012bd8…012d6c Dummy {f00=0x000c, f01=0x0190, f02=» h FDBSNRL VLVRL FDBVTO * , ( @ X T T " A ( < DIVMOD l VLVBA ~ * & D J $ & P W T , ( B ( Y P T " _ Y DMTRBU CLRBUF
0x012d6c…012f00 Dummy {f00=0x000c, f01=0x0190, f02=» DWTTDM ECBFC , ( % 0 ( T X 2 F " , ( ? 4 T P R TCTAB , ( ] ` 6 U @ 6 , D Z D , ( y ] 0 X W , ( B ` U @
0x012f00…013094 (0, 24) Dummy {f00=0x000d, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : , ( > @ (@ / O L DWTTQ | QTJOB , ( @ B $P % 4 D F , ( 4 (@ B * P , ( 9
0x013094…013228 Dummy {f00=0x000d, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , (
0x013228…0133bc Dummy {f00=0x000d, f01=0x0190, f02=» I $ P $ - F + X V FDBMRO , , ( g $ P "P $P W X X NT > , ( ;AR ( ( n , ( D T Y F H" F H , ( 4 D '? P P $ P CRNGETZ
0x0133bc…013550 Dummy {f00=0x000d, f01=0x018e, f02=» EASETB0 , ( B 8W D J$ T L T V , ( #$@W E . E . X V ? T B F TENDIO v & " = * X(@( H D ! . . . . . . . . . H D ! ! . #
0x013550…0136e4 Dummy {f00=0x000d, f01=0x4132, f02=» J H D ! TV P W P 5T KT S . gU, Wf U WF W P J P H D !J 7P I D mW uP& . U , P P* T U W R PB !P< #W T H D ! + . AP GW MP eV" kP qP: uP6 wW T* R T P P( P" , ( P P P W T T
0x0136e4…013878 Dummy {f00=0x000d, f01=0x0190, f02=» J F IDENT DMINIT REL 8.2 78-09-15 870105040820 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !
0x013878…013a0c Dummy {f00=0x000d, f01=0x40f0, f02=» h BUFDMIC BUFSNR BUFOR , , ( Q , - M M M @ < TASBLKN l TASQUE ~ RTNA15@ g$ A A Q %PJ t @ CRNQUE , ( !
0x013a0c…013ba0 Dummy {f00=0x000d, f01=0x018e, f02=» J F IDENT TASS REL 8.2 78-09-15 870105040820 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXA T
0x013ba0…013d34 (0, 25) Dummy {f00=0x000d, f01=0x0190, f02=» TASVOL TASCXO TASSEX , , ( @ TASXLB $ p TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x013d34…013ec8 Dummy {f00=0x000d, f01=0x0190, f02=» TASCAQ Z , ( A @ P TTB:SA D QTJOB V , ( a @ 4 A U W A A f VOLCHE DFTAB , ( @@ } @ U ::A A CDTAB , ( ! , `
0x013ec8…01405c Dummy {f00=0x000d, f01=0x0190, f02=»' T I @ 8 z DWTVOLW , ( =hP Y X P T , , ( Y H ! R W 9a I DFTABE , ( - ^ W P ,! T T ( IXTASS X TASSY ` , ( M@ :
0x01405c…0141f0 Dummy {f00=0x000d, f01=0x0190, f02=» , ( P @ E TTB:TD- 4 , ( H "# P P @ P W @ F , ( 0 R % "V E T v * & @ D A R_" P @ P , ( W @ 0 R ' F F
0x0141f0…014384 Dummy {f00=0x000d, f01=0x4132, f02=» , ( ( w R A J A 4 LKMQDIL 8 Z J H D ! _P sW R P0 T( P T W Th P PX T( R #W 3W 7P h H D ! ?T CT kP P U P P P W R V T P !W -Rb ?R
0x014384…014518 Dummy {f00=0x000d, f01=0x0190, f02=» J F IDENT DMTASS REL 8.2 78-09-15 870105040820 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB2 ECBBA ECBRC , (
0x014518…0146ac Dummy {f00=0x000d, f01=0x0190, f02=» : t TASMXA0 TASASBz & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF , ( Q P @ TASVOLN ECBFC ECBRL ECBCW
0x0146ac…014840 Dummy {f00=0x000d, f01=0x0190, f02=» , ( P L " TOP A " L TASVLE@ 4 TASVRL F * & ! A $ L C & @ X , ( $ A $Q @ A TASFIL DMTRBU , ( !$ @ ( B * D ,
0x014840…0149d4 (0, 26) Dummy {f00=0x000e, f01=0x0190, f02=» j , ( I ( & , ( e@ @ (T A " 0" : , ( U _ L !SS j TASCXOL * & P !LL W L @ , A TASSEX , ( $ ,V P E
0x0149d4…014b68 Dummy {f00=0x000e, f01=0x0190, f02=» , ( @ 2P 4 2% P R 6 FDBVTO 4 FDBMIA F , ( D X T R 8 @ "T R :T @ X , ( ! ( 6 4 2% QFDBFLR , ( = DP 2 < DWTST
0x014b68…014cfc Dummy {f00=0x000e, f01=0x0190, f02=» D E 3 P S ~ FDBRLE FDBBLF 0 * & F P S F P S H P S B FDBNIFL p FDBKA , ( $ J P % S L P & S N @ " S , ( 8 B | p @ , ( ,T W
0x014cfc…014e90 Dummy {f00=0x000e, f01=0x0190, f02=» EXTLEN * & + H . D Y P P 0 Y R P EXTBAS D , ( ? 0 Y T U ! T ! X6 V TASTBE , ( [ _R _V @ V P I @ MXIND , ( w P @ X V W H X I , (
0x014e90…015024 Dummy {f00=0x000e, f01=0x0190, f02=»F , ( (@( @ ( _r ^ FDBDBR : EXTELE L , ( A ` ` 9A S ` L b ^ FDBCEX FDBSNR * & @ b $X D b S d S GTLGRNX , ( f h
0x015024…0151b8 Dummy {f00=0x000e, f01=0x413e, f02=» l S n d H D !& P !Tl / f AP UP [ f P f Q< f I N iT H D !$ U P W V f T P f P( T T T % d + f =P d H D ! K f _P T W T W| P U Wd P #T. 'W> IU QT mP6 wP ( $ V W
0x0151b8…01534c Dummy {f00=0x000e, f01=0x0190, f02=» J F IDENT DMBUF REL 8.2 78-09-15 870105040820 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSN
0x01534c…0154e0 Dummy {f00=0x000e, f01=0x415e, f02=» , L T L P L , ( i T M Q M L V L A @ " HALTN R , ( : T @ [ [ M M b DMTRBUC CLRBUF , ( M A -(@ : - : @ & " , L T M @
0x0154e0…015674 (0, 27) Dummy {f00=0x000e, f01=0xc076, f02=» M @ : z H D ! H I . / r s 'T -PF 5T ;Q GV YT T `@ rU n , ( @ , L T L P L , ( 5 T M Q M L V L A @ HALTN , ( U : T
0x015674…015808 Dummy {f00=0x000e, f01=0x4172, f02=» J F IDENT DMFDB REL 8.2 78-09-15 870105040820 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL ` FDBSTAK FDBEND CRNQUE
0x015808…01599c Dummy {f00=0x000e, f01=0x40b8, f02=» J F IDENT DFTAB REL 8.2 78-09-15 870105040820 DFTAB DFTABE R DFTAB j DFTABE | @ P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P*
0x01599c…015b30 Dummy {f00=0x000e, f01=0x0190, f02=» J F IDENT DMSUBX REL 8.2 78-09-15 870105040820 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x015b30…015cc4 Dummy {f00=0x000e, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMRO FDBRLE , ( V ; [ _ D V
0x015cc4…015e58 Dummy {f00=0x000e, f01=0x0190, f02=» GTLGRN , ( D U E W ADDMOD B CALSNO T DMTRBU f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x015e58…015fec Dummy {f00=0x000e, 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 FDBCRLR , ( " : : " $
0x015fec…016180 Dummy {f00=0x000e, 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
0x016180…016314 (0, 28) Dummy {f00=0x000f, f01=0x4138, f02=» J F IDENT ADDMOD REL 8.2 78-09-15 870105040820 ADDMODK R ADDMODK d , ( S Q R S P W x , ( ! S _ R Q _ ;A A [ [ : , ( S Q" R S
0x016314…0164a8 Dummy {f00=0x000f, f01=0x414c, f02=» J F IDENT DSUMOD REL 8.2 78-09-15 870105040820 DSUMODK R DSUMODK d , ( Q S W S Q x , ( ! R S P W S _ R _ " A ;A [ [ : 4 0 Q
0x0164a8…01663c Dummy {f00=0x000f, f01=0x4188, f02=» J F IDENT MPYMOD REL 8.2 78-09-15 870105040820 MPYMODK R MPYMODK d , ( T P P V x , ( ! P V S ? V :!9 V , ( A @ P R W * &
0x01663c…0167d0 Dummy {f00=0x000f, f01=0x0190, f02=» J F IDENT DIVMOD REL 8.2 78-09-15 870105040820 DIVMODK R DIVMODK d , ( P T P V x , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , (
0x0167d0…016964 Dummy {f00=0x000f, f01=0x4066, f02=» Pf V 'Q +UF /V 9Ud =Q4 ?P CP QR aP* cR oR qP V @ P@ b DIVMODK d , ( P T P V x , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , (
0x016964…016af8 Dummy {f00=0x000f, f01=0x0190, f02=» J F IDENT DMSUBR REL 8.2 78-09-15 870105040820 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R CHKIND REQEND DMTIOZ CHKIND , ( ? ? !? P P !> P W IHR
0x016af8…016c8c Dummy {f00=0x000f, f01=0x0190, f02=» P L P 4 M z QTJOB DWTTDM ( DWTST : , ( Y X M M J IHRTN z EATESTK x FDBEAL , ( q _8 D W 0P Q P FDBTNR EASETB * &
0x016c8c…016e20 Dummy {f00=0x000f, f01=0x0190, f02=» 4W 0P R Q P FREQUE * * & W R D Q ( 0 5 @ < CRNGET j FDBCRLL ~ , ( 1 A Z> : D W (P CRNTID CRNQUE HALTN * & H D I
0x016e20…016fb4 (0, 29) Dummy {f00=0x000f, f01=0x0190, f02=» I D ) E : T DIVMOD * FDBEXTR < , ( ] " $S P W X " N EXTLEN ~ FDBCEX , ( wH & ( U U (_ EXTBAS FDBSNR , ( H$ Y *
0x016fb4…017148 Dummy {f00=0x000f, f01=0x0190, f02=» 2 : p DWTECBa ECBRC " , ( D 4 6 B 8P T 2 FDBDBR: b ECBBA t BUFDMI , ( D$ G 8W X : Y : B < DMTIOZ DWTOR , ( A I > ~ B 8
0x017148…0172dc Dummy {f00=0x000f, f01=0x0190, f02=» ECBFC , ( ) 6_^ X * P F X . 6 SECTLE @ ECBRL R DMTGBU b ECBCW t , ( ?D C H J C L NW BUFSTA , ( WD C P R C < X @%? : GTLGRNL t ,
0x0172dc…017470 Dummy {f00=0x000f, f01=0x414e, f02=» . D " V T 0 T , ( 2 ^ S W . : ^ H D ! P P P W #P 7T< ?R4 MP SP }W P P W W P8 R p H D ! W R W P W6 %T 9U cSP kP oW U U. R P W P8 , (
0x017470…017604 Dummy {f00=0x000f, f01=0x4104, f02=» J F IDENT TTABD0 REL 8.2 78-09-15 870105040820 TTABD0K R TTABD0K d 1D0 x , ( + K + R @ ECBF
0x017604…017798 Dummy {f00=0x000f, f01=0x4104, f02=» J F IDENT TTABD1 REL 8.2 78-09-15 870105040820 TTABD1K R TTABD1K d 1D1 x , ( + K + R @ ECBF
0x017798…01792c Dummy {f00=0x000f, f01=0x4104, f02=» J F IDENT TTABD2 REL 8.2 78-09-15 870105040820 TTABD2K R TTABD2K d 1D2 x , ( + K + R @ ECBF
0x01792c…017ac0 Dummy {f00=0x000f, f01=0x40e4, f02=» J F IDENT DRIC0X REL 8.2 78-09-15 870105040820 ITABRTK ITADI ITADO R ITADI p ITADO IHRTN ITABRTK @ @ P* P* P* P*
0x017ac0…017c54 (0, 30) Dummy {f00=0x0010, f01=0x8190, f02=» J F IDENT DRKB01 REL 9.1 78-09-15 870105640912 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ ( z DWTUTQ * KBADY DWTST , ( Y U P R , ( X ( )
0x017c54…017de8 Dummy {f00=0x0010, f01=0x8190, f02=» * V t , ( }@ ! B _P B P $$ R , ( % C W Y &X ! 8$ P D , ( W 8$ P $ T W $ Y 'P Y t , ( %P Y $P T ! B Z ECHEND , ( W W ! * T !
0x017de8…017f7c Dummy {f00=0x0010, f01=0x8190, f02=» W X (P Y * 0 %_. % Y * , ( q _d _ P _ ?" ( , ( 8 T ! )_ W ! T "? 9 0 R X LDREG , ( Q > 4 >_ X R ;GV TDISP , ( X ( $4 P X *T * W Y ( -
0x017f7c…018110 Dummy {f00=0x0010, f01=0xc10a, f02=» # 1 7P ;T WT ]W cT iW m wV { x H D !( P R WV P W P T W PH P P T W 4 H D ! @ W T - KT SW ]P }P T W T R Q R $ V P T W W T @
0x018110…0182a4 Dummy {f00=0x0010, f01=0x018e, f02=» J F IDENT DRTP02 REL 8.2 78-09-15 870105040820 TPADY R TPADY b , ( !"&';<>@ t DWTOR , ( ! ^_ 9: X ! Y DISIOE , ( @ = M $P ^
0x0182a4…018438 Dummy {f00=0x0010, f01=0x0190, f02=» , ( W X ! T B R Q B D OUTPUT 8 , ( ! V ! W ! ! Y J , ( T ! V " ! z , ( B C ! T " T W Q " DISEND , ( T ) !
0x018438…0185cc Dummy {f00=0x0010, f01=0x0190, f02=» _ D ! P | , ( ! P W C V B P ! , ( " ! ! Y 4 L , ( R Q " P _ " P R M T | , ( @ ! L ,! :D" ! Y Y , ( U ! _$ W , ! T
0x0185cc…018760 Dummy {f00=0x0010, f01=0x0190, f02=» W P W , ( s@@ X R ! Y # ! , TDISP , ( : R _ 4 ! l * & ! " T ! ! , ( 4 X # 4 Y # ! " " P ,$
0x018760…0188f4 (0, 31) Dummy {f00=0x0010, f01=0x40fe, f02=» Q V W ` T V T l H D ! p T W Q T + 1P 3Q 9W K x W ] sT P P W ( H D ! V P RN Q PH P R: T2 U W4 T )R /U =W QRD t $ UP [P cW2 wR R T P @ P ,$
0x0188f4…018a88 Dummy {f00=0x0010, f01=0x8190, f02=» J F IDENT DRDY01 REL 9.1 78-09-15 870105740912 DYADY ECHODY R DYADY j OUTPUT | , ( ! DISIOE , ( P P & B , ( =
0x018a88…018c1c Dummy {f00=0x0010, f01=0x8190, f02=» GETCHR , ( X " E , ( P 8'0P E T ! T 9 @ , ( _t ! T @_ ! p , ( B P ! B C ^N , ( P R ?] _ C _ , ( 1@
0x018c1c…018db0 Dummy {f00=0x0010, f01=0x8190, f02=» @ 8!0T 8 !@P ! $ P ! , ( ! ! T . TENDIO ^ TDISP p , ( Y " X " C X Y " DWTST , ( Y > X " X "" Y %Q Y LDREG SAVE8
0x018db0…018f44 Dummy {f00=0x0010, f01=0x8190, f02=» _ n ECHODY ` , ( K@ ! X $ P ! R " ECHRTN R * & $ i V P P ! W d , ( X $ X ! _ X $ X X , ( " ! ! Y _8 X " , ( " X "" Y %U
0x018f44…0190d8 Dummy {f00=0x0010, f01=0x8190, f02=» X % V Y ! , ( 9 X $ X " ! B " , ( W `R Y ! ! ! R , ( s 4 ! V ! " V W :h ! 4 H D ! ` #Pz 'P - v 3 b =P MPP
0x0190d8…01926c Dummy {f00=0x0010, f01=0xc08e, f02=» Q R 'T CT UP Y cR iV oP p H D !80 sP" }W v X U W U R@ +V 9 X G v ]R V V W , x@ 4 ! V ! " V W :h ! 4 H D ! ` #Pz 'P - v 3 b =P MPP
0x01926c…019400 Dummy {f00=0x0010, f01=0x0190, f02=» J F IDENT DRLT01 REL 8.2 78-09-15 870105040820 D @ CHLT1 CHLT2 CHLT3 CHLT4 OUTLIN CHLTON OUTPUTL LDREG LDREGE R D @ LDREGF STREG GETCHR LOCHAN RECHAN CWTLT1 CWTLT2C CWTLT3 F B CWTLT4 CWTRT1 CWTRT2 CWTRT3 CWT
0x019400…019594 (0, 32) Dummy {f00=0x0011, f01=0x0190, f02=»FC CWTRT1 CWTRT2 CWTRT3 4 CWTRT4R H CWTRT5 CWTRT6K p CWTRT7 CWTRT8 DWREMU CWTLT1 INTLT1 CWTLT2C CWTLT3
0x019594…019728 Dummy {f00=0x0011, f01=0x0190, f02=» z INTSAVV , ( A J ;h # <c$ " , , ( ; P 4 5 T P ? X U X > DWTST * & [ @ P P P 0 X T Y , ( w W U T X T TDISP ,
0x019728…0198bc Dummy {f00=0x0011, f01=0x0190, f02=» j DWTADR , ( P X P < DWTOR L , ( Z X "X 8' T 8Z" X DWTECB , ( ) ' X (@ L RTNA15M OUTLIN N , ( C P "&
0x0198bc…019a50 Dummy {f00=0x0011, f01=0x0190, f02=» 4 % Y B z OUTPUTL , ( I @ @ P A N " P . STREG ^ LDREG p , ( P N Y Y Y Y _ LDREGF LDREGE , ( A X X Y X X X X
0x019a50…019be4 Dummy {f00=0x0011, f01=0x4176, f02=» Y Y X t DWTWATO , ( / 9BV X " Y X & ECHRTN L V TENDIOV j $ I D V X | H D !H" 5 ;Pz EP W N ]PV aPB eP oT }Wp & Tv Rr WN : P< H D ! P2 R. T T P
0x019be4…019d78 Dummy {f00=0x0011, f01=0xc14e, f02=» n q@ X b H D !d / A GP QP c iP mP qP uP, {P T W T ( H D ! @ R P P W Wv Pp Wf #Rz 1 ?P< EP2 IR. QT aT eP t H D !@ oP T P P$ P P0 P W W P 3P: 7P6 U W
0x019d78…019f0c Dummy {f00=0x0011, f01=0x0190, f02=» J F IDENT DRTC01 REL 8.2 78-09-15 870105040820 $ IHTCY DWTC01 DWTC02 TCDRON R z DISIOEN , ( 1"78 Q P ^ A ECBRL , ( + B X T " T A 7
0x019f0c…01a0a0 Dummy {f00=0x0011, f01=0x0190, f02=» H TCDRON 0 SAVE8 D INIFLGA T TDISP f , ( @ v , ( P X XP# Y ) W , ( " P P _ :CV + W , (
0x01a0a0…01a234 (0, 33) Dummy {f00=0x0011, f01=0x0190, f02=» DISEND , ( ; Y A A , ( S X T " P A J , ( s X P W Y @ T z , ( ] D W @ , ( :CZ _J) @ _ P _ Y ,
0x01a234…01a3c8 Dummy {f00=0x0011, f01=0x0190, f02=» A _$ _ _, _0 _4 _8 _< A , ( / ?M P A P Q ? A B @ . , ( M T M -W ,E A A > > >M A ^ , ( m _ A > , ( @ ;I C X "A _@ A | , ( U @ A A A
0x01a3c8…01a55c Dummy {f00=0x0011, f01=0x0190, f02=» P Y W X | , ( @ # $ Q R _ P , ( C U ( _ : V # P W Y P L DWTC02 | | DWTC01 | , ( cB X ' P Y _ Y " " | H D ! A P +
0x01a55c…01a6f0 Dummy {f00=0x0011, f01=0x417a, f02=» ! P P ( V W* T T T # %P + S W YT H D ! ] c mP: q u wP { ( W T( W P L H D !n $ W B 5P: 9 ;Pd =Q* OT UW ] m s H D ! T T V W T V
0x01a6f0…01a884 Dummy {f00=0x0011, f01=0x0190, f02=» J F IDENT DRSOP1 REL 8.2 78-09-15 870105040820 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT DISIOE , ( T 8T 9W 7P P SAVE8 , ( ( ! B A W B A
0x01a884…01aa18 Dummy {f00=0x0011, f01=0x4160, f02=» ECBCW TENDIO TDISP SOPRY f 0 , ( W $ C A B DWSI01 r , ( @ m @ A. X V 9_8 DWSO01A DWSI02A ( $ @ <
0x01aa18…01abac Dummy {f00=0x0011, f01=0x0190, f02=» J F IDENT DRDU01 REL 8.2 78-09-15 870105040820 4 0 DUADR DUONY IHDU1 IHDUY IHDU2 DWDU01 DWDU02 R DUADR , ( DWTOR , ( A X !
0x01abac…01ad40 Dummy {f00=0x0011, f01=0x0190, f02=» :e X Y, X P Y ! 9 V ! 9 , ( 9 R Y P P 0 , ( Y U ! ! ! P _ X @ F ` , ( y ! ! ! P _ , ( ! ! ! P _ X b , ( X #
0x01ad40…01aed4 (0, 34) Dummy {f00=0x0012, f01=0x0190, f02=»:BW X c X :B X TDISP SAVE8 . , ( 5 ! E Y Y Y > DUONY P n INIFLGL DWTST , ( QB @ P Y TENDIOC * & k ! _. @ X"_6
0x01aed4…01b068 Dummy {f00=0x0012, f01=0x0190, f02=»SAV * & -_Z _d A _ A , ( I D 9AZV9a X V : DWTECB j , ( " # T X X X X ' | , ( @ 4 T B C @ X P X , ( " I X
0x01b068…01b1fc Dummy {f00=0x0012, f01=0x0190, f02=»" l * & @ I X T Y _f X Y DWDU02 : DWDU01 N , ( Y 4 b , ( B B " r s H D ! P P PF P
0x01b1fc…01b390 Dummy {f00=0x0012, f01=0x4116, f02=» P : , P W P W ( * H D ! . : W, W( W !W % : - ? $ W ]P$ m s ( } R < H D ! P 8 V T T P / 8 =T G : OTJ ( $ S , ]P mP }P T 8 8
0x01b390…01b524 Dummy {f00=0x0012, f01=0x0190, f02=» J F IDENT DRDC15 REL 9.1 78-09-15 870106440911 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK , ( 5 P P P P P P P W DISIOEC TDISP ,
0x01b524…01b6b8 Dummy {f00=0x0012, f01=0x018e, f02=» P @ % | DWTST TENDIO , , ( A A Y _^ > DWTECB n , ( _h X P , Y C , ( L C _ _ , ( P C C _T _ B
0x01b6b8…01b84c Dummy {f00=0x0012, f01=0x0190, f02=» * & ]@ Y W Y @ X , ( y T ) _ B X" A 2 * & Y _4 Y X P : X b , ( H A @ Z , ( A _` X P ( y Y W , ( (P 0 ) >
0x01b84c…01b9e0 Dummy {f00=0x0012, f01=0x0190, f02=» (P _ ) 1_f X , ( g X _x (P _ ) 1_ , ( (X P _ 0 )_ _2 P , ( _" _> _0 (P , ( _ ) 1 4 X R X T , ( X P , Y C L C L
0x01b9e0…01bb74 (0, 35) Dummy {f00=0x0012, f01=0x018e, f02=» p _ > g $ , ( { BHBB . ! 2B ! B , ( T P P r , ( ! T T A P A T ! T , ( ! T T ! T ! A I A , (
0x01bb74…01bd08 Dummy {f00=0x0012, f01=0x018e, f02=» , ( [ ! @ hP @ X@ ! T A l ! , ( PP { @ fP @ P @ d * 8 ! 4 , ( 8 ! ! A p_D ! X@_d A d , ( l @ @ |T 1 0 2P TEBCDI , ( @ P P A z @ b 8 H @ , (
0x01bd08…01be9c Dummy {f00=0x0012, f01=0x0190, f02=» f , ( ( K ! ! X ! X ! , ( ( i W A h @ b X A n A d A 8 , ( p ! @ f @ hP ! ! h , ( H @ fT @ hX W @ d @ l @ | @ , ( v A z ! @ fX< ! T @ , ( pP !
0x01be9c…01c030 Dummy {f00=0x0012, f01=0x0190, f02=» A l A f X ! XD Y _N X , ( e ! P ! # T @ T ! ( , ( @ _ ! ! _ A h A z H E A X , ( l A b 4 ! @ ~P ! ! A f , ( P @ T ! _ T _ , ( PJ t A d B B A v A
0x01c030…01c1c4 Dummy {f00=0x0012, f01=0x018e, f02=» P T T v , ( S Y W t P C , ( UP o @ v A f A d 4 @ F , ( $ @ lT @ | A z @ z A | A l v , ( ! T P P P P , ( P 1 A z @ z X]6W P _@ , (
0x01c1c4…01c358 Dummy {f00=0x0012, f01=0x0190, f02=» f , ( O ! @ ! @ ! ! ! , ( o B J 4 ! ! @ v @ z A | 8 , ( @ zT @ ! 8 ! @ nP - h , ( ! x ! W 0 " @ nP , ( R ~T }T T W , ( ! P
0x01c358…01c4ec Dummy {f00=0x0012, f01=0x0190, f02=» A z 0 ! A z ! " ! , ( m " ! b A j _" A l A d ! ( , ( ! % ! R ! ! @ ! X * & 8 ! X ! 9a D ! X , ( ! P ! T & ! _b B J B ! IH1501 INTSAVL
0x01c4ec…01c680 Dummy {f00=0x0012, f01=0x0190, f02=» !$ A D_ I " P A l , ( U = . A 4 A _$" P 0 , ( A ]@ H B P W ! * _ ! j ` , ( y ! 1 4 A @ ` @ DC15ON , ( P 0 M A 4 @ , (
0x01c680…01c814 (0, 36) Dummy {f00=0x0013, f01=0x0190, f02=» , ( $ > A 4 A , ( T / . ! N @ fP ! B ! @ P a 4 , ( O A 4 A A A ?a :a# d $ o P @ @ @ 4 , ( * A r ! j ! j A r @ :H DW1500 , (
0x01c814…01c9a8 Dummy {f00=0x0013, f01=0x0190, f02=» r "? H ! r 4 ABC | , ( DEFGHI[.<(+!&JKLMNOPQR]$*);^-/ST , ( UVWXYZ|,%_>?0123456789:#@'=" L , ( | , ( % E H D ! T 4 9P =P AP E
0x01c9a8…01cb3c Dummy {f00=0x0013, f01=0x0190, f02=»P [ b a j iW s }T P f d d H D !(n P W P P: R. T& !P" C K QP _ c i wP B H D !t~ P ~ ~ P R4 T, P( - F 1 J 5 N 9 R = V A Z CW H D ! N t T P P t Tj
0x01cb3c…01ccd0 Dummy {f00=0x0013, f01=0x0190, f02=»P g m qTF y : P* P$ r H D ! A 6 j T P P Pt P PF R@ T8 9P IW W . H D ! y g ( iW6 F P N F T W^ F j T P B z H D ! W T, P T0 6 > ' 7T kP o , wT { }T (
0x01ccd0…01ce64 Dummy {f00=0x0013, f01=0x018e, f02=»P P N ^ H D ! #T 'W +W 9W =W AW Q Y r a r g ` m ` y T T( H D ! r r P r W PL R T T T0 W, r T r W f H D !G R ! r /UH ?P ET M r W r a r k ` s ` T r r T H D ! r
0x01ce64…01cff8 Dummy {f00=0x0013, f01=0x405e, f02=» J < 8 Y ] a oP { F H@ Z H D ! r r P r W PL R T T T0 W, r T r W f H D !G R ! r /UH ?P ET M r W r a r k ` s ` T r r T H D ! r
0x01cff8…01d18c Dummy {f00=0x0013, f01=0x0190, f02=» J F IDENT DRKB01 REL 9.1 78-09-15 870105640912 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ ( z DWTUTQ * KBADY SAVE8 DWTST TDISP , ( X V Y
0x01d18c…01d320 Dummy {f00=0x0013, f01=0x0190, f02=» P Y C 8!@P SETIMPL & , ( q X P P y W 8 , ( Y B P T B % X h STREG , ( * $ 4 T % W X (T ! P ECHON , ( W Y * V !
0x01d320…01d4b4 (0, 37) Dummy {f00=0x0013, f01=0x0190, f02=»P Y %P Y $P x , ( K T ! B Z W W ! , ( i * T ! X P y Y C H ECHEND x DISEND , ( ! 0 Z , ( ! B Z ZX X * ,T , ( J
0x01d4b4…01d648 Dummy {f00=0x0013, f01=0x0190, f02=» ! R Q > 4 >_ <k$ Y T , ( A #? 0R R * W ?W X P $ <c , , ( a ,P $ , X R ;GV X P LDREG , ( P y X ( $4 P X , ( *T * W Y ( - Y X EOQUEU
0x01d648…01d7dc Dummy {f00=0x0013, f01=0x415a, f02=» =R E S ]P i r oP" uP W l H D ! P T T W T P W V P R WV ( H D ! T P !W 'P -T 1W ;PX AP GP KT O ]W a cW g mT {P t H D ! T W P P T W T !R %Q =T ER IR MW SW
0x01d7dc…01d970 Dummy {f00=0x0013, f01=0x0190, f02=» J F IDENT DRDY01 REL 9.1 78-09-15 870105740912 DYADY ECHODY R DYADY j OUTPUT | , ( ! , ( 8! P ! P P & DISIOE , ( =
0x01d970…01db04 Dummy {f00=0x0013, f01=0x018e, f02=» @$ T B 1 ! B B , ( U $ ! T _ U D 0 , ( ! T _ $$ X" X& X* C ` GETCHR , ( X`" E P , ( 8'0P E T ! T 9 _ ! , ( 5
0x01db04…01dc98 Dummy {f00=0x0013, f01=0x0190, f02=» , ( # C V C ! Y , ( B ! Y _` C _ 4 , ( " $ P X # X d , ( ] ! B 8! , ( T ! ! R $Y , ( '@ ! _ B
0x01dc98…01de2c Dummy {f00=0x0013, f01=0x0190, f02=» ! W Y "_ , ( Y " B Y %U X % T T W $ , ( V X # Y %U P R ! T , ( @_ R _ ! Y # * & @ " ! 8!0T 8 !@P ! , ( $ P ! !
0x01de2c…01dfc0 Dummy {f00=0x0013, f01=0x0190, f02=» DWTST LDREG , ( m Y %Q Y > X Z2<BR F $ SAVE8 T , ( X Y 8" P d , ( D ! 8" P ! ! , ( T ! Y " Z @ T ECHODY , (
0x01dfc0…01e154 (0, 38) Dummy {f00=0x0014, f01=0x0190, f02=»X ! _ X $ X z , ( 3 8! P ! _( X " ! ! , ( S Y _D X " X "" Y %U W J , ( s" ! ! ! Y z , ( 4 B U ) , ( X R X X "" C X % ,
0x01e154…01e2e8 Dummy {f00=0x0014, f01=0x0190, f02=» j , ( @ V ! V W :h ;@ ! 4 8 H D ! x . #P /P 3P 9 Z ? IP YP ]P. cT uR R P H D !a T ` U4 T U T P( P !TJ 'T 5T SP YT( _ H D ! k uPR yRF V P ` T
0x01e2e8…01e47c Dummy {f00=0x0014, f01=0x4092, f02=» P T T P Z R V P P" W ' Z 7P ; Z < 8 G Q mU qW U R@ V R %V 3V 7W < @ |@ R P H D !a T ` U4 T U T P( P !TJ 'T 5T SP YT( _ H D ! k uPR yRF V P ` T
0x01e47c…01e610 Dummy {f00=0x0014, f01=0x0190, f02=» J F IDENT EBCDIC REL 8.2 78-09-15 870105040820 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x01e610…01e7a4 Dummy {f00=0x0014, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( -/STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J
0x01e7a4…01e938 Dummy {f00=0x0014, f01=0x40f0, f02=» J F IDENT ATTACX REL 8.2 78-09-15 870105040820 ATTACHK DETACH ATT:CH R ATTACHK t DETACH TIOERR ATT:CH @ @ * * P*
0x01e938…01eacc Dummy {f00=0x0014, f01=0x0190, f02=» J F IDENT TIMER REL 8.2 78-09-15 870105040820 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDN LKMRQE , ( $ T GETBLK` LKMQDIA
0x01eacc…01ec60 Dummy {f00=0x0014, f01=0x414a, f02=» P n ACTOT SETIME SETIMP ^ 2 SAVE8 F , ( Q @ L _J ^ 4 V TIMQUE , ( m _ @ IHRET8 & " 1 A _ P 9 , ( ~
0x01ec60…01edf4 (0, 39) Dummy {f00=0x0014, f01=0x018e, f02=» J F IDENT GRBUF REL 8.2 78-09-15 870105040820 GETBUFK RELBUF R GETBUFK l GBQUE TTB:SA , ( B $P H L P _ TDISP RELBUF 0 , ( T
0x01edf4…01ef88 Dummy {f00=0x0014, f01=0x40d4, f02=» LKMQDI , ( s > > > P 5 ) _4 , ( 0 $P , # J @ > z ( $ $ P P Tj UP0 o {P P @ TDISP RELBUF 0 , ( T
0x01ef88…01f11c Dummy {f00=0x0014, f01=0x0190, f02=» J F IDENT TABORT REL 8.2 78-09-15 870105040820 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? TENDIO@ ITABRT TABIO
0x01f11c…01f2b0 Dummy {f00=0x0014, f01=0x4024, f02=»R V ~ : @ REL 8.2 78-09-15 870105040820 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? TENDIO@ ITABRT TABIO
0x01f2b0…01f444 Dummy {f00=0x0014, f01=0x414a, f02=» J F IDENT TTABTC REL 8.2 78-09-15 870105040820 TTABTCK R TTABTCK d <TC x DWKB01 DWTP01 DWDY01 , ( +$ 0 P 1 2 DW1501
0x01f444…01f5d8 Dummy {f00=0x0014, f01=0x4122, f02=» J F IDENT TTABTD REL 8.2 78-09-15 870105040820 TTABTDK R TTABTDK d <TD x DWKB02 DWTP02 DWDY02 , ( +$ 0 P 1 2 +
0x01f5d8…01f76c Dummy {f00=0x0014, f01=0x4122, f02=» J F IDENT TTABTE REL 8.2 78-09-15 870105040820 TTABTEK R TTABTEK d <TE x DWKB03 DWTP03 DWDY03 , ( +$ 0 P 1 2 +
0x01f76c…01f900 Dummy {f00=0x0014, f01=0x4122, f02=» J F IDENT TTABTF REL 8.2 78-09-15 870105040820 TTABTFK R TTABTFK d <TF x DWKB04 DWTP04 DWDY04 , ( +$ 0 P 1 2 +
0x01f900…01fa94 (0, 40) Dummy {f00=0x0015, f01=0x40ce, f02=» J F IDENT TTABDC REL 8.2 78-09-15 870105040820 TTABDCK R TTABDCK d <DC x + + , @ PTTABX DATA 0 P DATA /3C TASK LEVEL & P DATA
0x01fa94…01fc28 Dummy {f00=0x0015, f01=0x0190, f02=» J F IDENT BLOK:S REL 8.2 78-09-15 870105040820 BLOK:SK BLOCKE R BLOK:SK l , ( I $ , ( $ ! * 0 6 < B , ( I$ A H N T Z `
0x01fc28…01fdbc Dummy {f00=0x0015, f01=0x40c4, f02=» p , ( I , ( $ @ BLOCKE p & " I @ 6 < B , ( I$ A H N T Z `
0x01fdbc…01ff50 Dummy {f00=0x0015, f01=0x0190, f02=» J F IDENT INTLT1 REL 8.2 78-09-15 870105040820 INTLT1K R INTLT1K d DWKB01 x DWTP01 DWDY01 DWKB02 , ( T DWTP02 DWD
0x01ff50…0200e4 Dummy {f00=0x0015, f01=0x406a, f02=» n DWDY04 - ( 8 0 T@ fLT1K d DWKB01 x DWTP01 DWDY01 DWKB02 , ( T DWTP02 DWD
0x0200e4…020278 Dummy {f00=0x0015, f01=0x413e, f02=» J F IDENT DWKB01 REL 8.2 78-09-15 870105040820 DWKB01K R DWKB01K d KBADN x & " @ KB DWDY01 , ( !@ ?
0x020278…02040c Dummy {f00=0x0015, f01=0x40f4, f02=» J F IDENT DWTP01 REL 8.2 78-09-15 870105040820 DWTP01K R DWTP01K d TPADN x , ( TP $ $ @ 0 SAVE AREA FOR REGS
0x02040c…0205a0 Dummy {f00=0x0015, f01=0x40ee, f02=» J F IDENT DWDY01 REL 8.2 78-09-15 870105040820 DWDY01K R DWDY01K d DYADN x & " DY ! $ & & @ P DATA 0 SAVE AREA FOR A4
0x0205a0…020734 (0, 41) Dummy {f00=0x0015, f01=0x413e, f02=» J F IDENT DWKB02 REL 8.2 78-09-15 870105040820 DWKB02K R DWKB02K d KBADN x & " @ KB DWDY02 , ( !@ ?
0x020734…0208c8 Dummy {f00=0x0015, f01=0x40f4, f02=» J F IDENT DWTP02 REL 8.2 78-09-15 870105040820 DWTP02K R DWTP02K d TPADN x , ( " TP $ $ @ 0 SAVE AREA FOR REGS
0x0208c8…020a5c Dummy {f00=0x0015, f01=0x40ee, f02=» J F IDENT DWDY02 REL 8.2 78-09-15 870105040820 DWDY02K R DWDY02K d DYADN x & " DY ! $ & & @ P DATA 0 SAVE AREA FOR A4
0x020a5c…020bf0 Dummy {f00=0x0015, f01=0x413e, f02=» J F IDENT DWKB03 REL 8.2 78-09-15 870105040820 DWKB03K R DWKB03K d KBADN x & " @ KB DWDY03 , ( !@ ?
0x020bf0…020d84 Dummy {f00=0x0015, f01=0x40f4, f02=» J F IDENT DWTP03 REL 8.2 78-09-15 870105040820 DWTP03K R DWTP03K d TPADN x , ( $ TP $ $ @ 0 SAVE AREA FOR REGS
0x020d84…020f18 Dummy {f00=0x0015, f01=0x40ee, f02=» J F IDENT DWDY03 REL 8.2 78-09-15 870105040820 DWDY03K R DWDY03K d DYADN x & " DY ! $ & & @ P DATA 0 SAVE AREA FOR A4
0x020f18…0210ac Dummy {f00=0x0015, f01=0x413e, f02=» J F IDENT DWKB04 REL 8.2 78-09-15 870105040820 DWKB04K R DWKB04K d KBADN x & " @ KB DWDY04 , ( !@ ?
0x0210ac…021240 Dummy {f00=0x0015, f01=0x40f4, f02=» J F IDENT DWTP04 REL 8.2 78-09-15 870105040820 DWTP04K R DWTP04K d TPADN x , ( & TP $ $ @ 0 SAVE AREA FOR REGS
0x021240…0213d4 (0, 42) Dummy {f00=0x0016, f01=0x40ee, f02=» J F IDENT DWDY04 REL 8.2 78-09-15 870105040820 DWDY04K R DWDY04K d DYADN x & " DY ! $ & & @ P DATA 0 SAVE AREA FOR A4
0x0213d4…021568 Dummy {f00=0x0016, f01=0x2008, f02=» L = FIX1 DATE = 791227 PACK NBR = 001 f _
0x021568…0216fc Dummy {f00=0x0016, f01=0x0190, f02=» RBUF DRIVER BUFFER & P CWK A4,TBUF2 ' P RB(E) RBUF DRIVER BUFFER ' 2 " P RB GBUF10 APPLICATION BUFFER ' T P XIF ' z P EJECT ' P* ' P* ' ( P* INSERT DWT IN WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT '
0x0216fc…021890 Dummy {f00=0x0016, f01=0x018e, f02=» FOUND ' v P LDR A2,A3 ( P RB INSWQ2 ( PINSWQ3 ADR A4,A6 ( 2 P STR A4,A2 INSERT IN QUEUE ( J " P CMR A4 INDICATE END OF QUEUE ( l P RB GBUF10 RETURN ( P* ( P* ( * P* REMOVE DWT FROM WRITE REQUEST QUEUE ( P* ( P* A2,A3,A4 DESTR
0x021890…021a24 Dummy {f00=0x0016, f01=0x0190, f02=» PREM06 EQU * ) P ADR A4,A6 ) PREM10 LDR* A3,A2 ) , & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ) D P CWR A3,A4 ) n P RF(E) REM15 ) P LDR A2,A3 GET NEXT ) P RB REM10 ) PREM15 LDR* A3,A4 REMOVE ) P STR A3,A2 ) P RB GBUF10 RETURN )
0x021a24…021bb8 Dummy {f00=0x0016, f01=0x0190, f02=» DESTROYED ) P* A6=DWT * P* * " * PINSGWQ LDKL A2,DCGWQ GET QUEUE ANCHOR * , P RB INSWQ1 * Z P* * l P* * v , P* REMOVE DWT FROM GET WRITE BUFFER QUEUE * P* * P* A2,A3,A4 DESTROYED * P* A6=DWT * P* * * PREMOVG LDKL A2,DCGWQ GET
0x021bb8…021d4c Dummy {f00=0x0016, f01=0x0190, f02=» STAT=0 * P* A2,A3,A4 DESTROYED + P* A6=DWT + , P* + < ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR + F P LDK A4,DWTSQ + r P RB INSWQ2 + P* + P* + " P* REMOVE DWT FROM STATUS QUEUE + P* + P* A2,A3,A4 DESTROYED + P* A6=DWT +
0x021d4c…021ee0 Dummy {f00=0x0016, f01=0x0190, f02=» + $ P* QUEUE ALLOCATED RECEIVE BUFFER , P* , 0 P* A4=BUFFER ADDR , : P* A2,A3 DESTROYED , R P* , l PQRBUF EQU * , v P IFT MESPAS=1 , ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT , P XIF , P IFT MESPAS=0 , $ P LDR A2,A6 QUEUE ON TERMIN
0x021ee0…022074 (0, 43) Dummy {f00=0x0016, f01=0x0190, f02=»127 L P XIF M P* M P* M " P* ENQ HAS BEEN RECEIVED M , P* M L P* M V PBRM400 EQU * M ` & P CF A5,HPTIM STOP PROCEDURE TIMER M t P LD A1,XACK M P OR A1,XSEL M " P RF(Z) BRM410 IN CONTROL STATE M . P CF A5,TRREP REPEAT LAST CON
0x022074…022208 Dummy {f00=0x0016, f01=0x0190, f02=» P RF CWR150 ^ & PCWR100 LD A8,FECB GET ECB ADDRESS ^ P CF A15,CTIME STOP TIMING ^ @ P LDR A8,A8 ^ b P RF(Z) CWR150 ^ t P ST A2,ECBCW,A8 ^ $ P CF A15,TENDIO COMPLETE REQUEST ^ PCWR150 EQU * ^ * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ^
0x022208…02239c Dummy {f00=0x0016, f01=0x0190, f02=»5,CKGBQ CHECK GET BUFFER QUEUE ^ P XIF _ & PCWR900 EQU * _ 2 " P CM XACK RESET 'ACK EXPECTED' _ F P CM FDWTUT _ l P RTN A5 _ ~ P EJECT _ P* _ P* _ P* READ ONE TEXT BLOCK _ P* _ P* ON EXIT A3 CONTAINS : _ ( P* 0 : IF CORRECT
0x02239c…022530 Dummy {f00=0x0016, f01=0x0190, f02=»RDMESS EQU * _ $ P LD A4,DCRBUF GET BUFFER ADDRESS ` P ADK A4,6 RESERVE HEADER ` < P LDK A3,0 ` P LD A1,XSTA ` n $ P RF(NZ) RDM050 LAST INPUT WAS OK ` " P LD A1,FBLST COMPUTE NEW INDEX ` P SUR A1,A4 ` P ST A1,FBAX ` PRDM050 EQU * `
0x022530…0226c4 Dummy {f00=0x0016, f01=0x0190, f02=»C ` ~ P a P IFT IBMCHR=1 a P LD A1,FBAX a ( " P RF(NZ) RDM100 NOT FIRST BLOCK a < P CF A5,READP a b P RF(NZ) RDM120 PARITY ERROR a v P CWK A2,ESC a P RF(NE) RDM110 a * P CF A5,READP SKIP NEXT TWO CHARACTERS a P CF A5,READP a P X
0x0226c4…022858 Dummy {f00=0x0016, f01=0x018e, f02=»X a P RF(E) RDM130 ETX RECEIVED b P CWK A2,ETB b , P RF(E) RDM160 ETB RECEIVED b @ P CWK A2,ITB b b P RF(E) RDM170 ITB RECEIVED b v P CWK A2,ENQ b & P RF(E) RDM140 ENQ IN TEXT RECEIVED b P CWK A2,/FF b $ P RF(E) RDM140 MARK HOLD RECEIV
0x022858…0229ec Dummy {f00=0x0016, f01=0x0190, f02=» b t P ADK A1,3 c P RF(N) RDM115 NOT DC1-DC3 c P SLL A1,6 c < P LDR A8,A1 c N * P CF A5,READP 8-BIT CHAR GET NEXT PART c ` P RF(NZ) RDM120 PARITY ERROR c * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER c P ORR A2,A8 c PRDM115 EQU * c P X
0x0229ec…022b80 Dummy {f00=0x0016, f01=0x0190, f02=»BAX c P CWK A1,RBUFL+RBUFL d P RB(NG) RDM100 NOT OVERFLOW d ( P* d L P* BUFFER OVERFLOW d V P* d p P RF RDM140 ABORT INPUT d z PRDM120 EQU * d & P LDK A3,1 INDICATE INVALID MESSAGE d P SUK A2,/7F d $ P RF(Z) RDM150 MARK HOLD RECEIV
0x022b80…022d14 (0, 44) Dummy {f00=0x0017, f01=0x0190, f02=» | h P LDK A3,4 4 SYNS } PTRS100 LDK A2,SYN } P CF A5,WRITE SEND SYN } : P SUK A3,1 } X P RB(NZ) TRS100 } j P RTN A5 } P EJECT } P* } P* } P* RECEIVER INTERRUPT } P* } P* } PIH1501 EQU * } P ST P,INTSAV }
0x022d14…022ea8 Dummy {f00=0x0017, f01=0x018e, f02=» $ P RF(Z) DEL245 BUFFER NOT CHANGED ~ P* ~ , P* WRITE SECTOR ~ 6 P* ~ N P LDK A7,/95 WRITE WAIT ~ X P LKM ~ v P DATA 1 ~ P LDR A1,A5 FDB ~ P CF A14,DMTIOZ IO CHECK ~ P LDR A1,A1 ~ P ABL(NZ) DMTERR ~ ( P SUR A12,A12 BUFFER NO
0x022ea8…02303c Dummy {f00=0x0017, f01=0x0190, f02=» ~ v P* P LDR A1,A5 FDB ADDR P LDK A3,0 . P CF A14,RDNXTR GET SECTOR @ P RF DEL250 OK b P LDR A6,A1 FDB ADDR x P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P LDR A13,A3 NEW BUFFER ADDR P LD A4,FDBMRO,A5
0x02303c…0231d0 Dummy {f00=0x0017, f01=0x0190, f02=»OFFSET p P ADK A4,10 BUFSTA+2 P ADR A4,A13 RECORD ADDR * & P AD A4,FDBRLE,A5 STATUS CHAR ADDR J P LDK A2,/FF t P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME IN DELETED RECORD P CC A2,-4,A4 P RF(NL) DEL6
0x0231d0…023364 Dummy {f00=0x0017, f01=0x4172, f02=»900 BUFFER NOT CHANGED P* P* WRITE SECTOR ( P* @ PDEL700 EQU * J P LDR A8,A14 ^ P ADKL A8,2 ECB ADDR r P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB ADDR P CF A14,DMTIOZ IO CHECK P LDR
0x023364…0234f8 Dummy {f00=0x0017, 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* +
0x0234f8…02368c Dummy {f00=0x0017, f01=0x410c, f02=» _ H D !| W 7 * ! & % 1 ( OP WP _P gQ qR uW Rl V V V H D ! P R W R P 'W6 ; J ?V sV4 wRL Q V V R Q V ^ H D ! P V P W 'T +RB -QD 1P 9P =V CP GV MQ OP [V qW @
0x02368c…023820 Dummy {f00=0x0017, f01=0x0190, f02=» J F IDENT MULDIV REL 8.1 78-04-21 870172840810 > : T:MUL T:DIV T:SIGN T:BRK T:MULC T:DIVC M:BRK M:SIGNK R T:MULC T:MUL T:MOV T:SUB , ( D 0 0
0x023820…0239b4 (0, 45) Dummy {f00=0x0017, f01=0x0190, f02=» P LDR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN . P ABL DMTASX L PDMT010 EQU * ` P* t P LDKL A8,TASECB ~ P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF A14,CLRBUF RELEASE ALL
0x0239b4…023b48 Dummy {f00=0x0017, f01=0x018e, f02=» ADK A7,2 P RB DMT150 CHECK NEXT WORD P* 4 ( P* ONLY STANDARD FILES ARE HANDLED > P* j PDMT160 EQU * t P LC A2,VTFIOR,A3 P CCK A2,'SS' STANDARD FILE ? P RF(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(N
0x023b48…023cdc Dummy {f00=0x0017, f01=0x0190, f02=» PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN TASBLK " P* T $ P LDR A4,A3 START OF VTOC RECORD ^ 8 P LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB P SUK A1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS
0x023cdc…023e70 Dummy {f00=0x0017, f01=0x0190, f02=»TFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1 0 P LD A6,TASCVO H , P ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME ^ " P LD A2,VTFXLE,A4 EXTENT-LENGTH P ST A2,TASXLB,A1 P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1
0x023e70…024004 Dummy {f00=0x0017, f01=0x0190, f02=»BING THE FILE ALREADY EXISTS. v P* & P LD A12,TASFDB 0 * P RF(Z) DMT190 FIRST TIME EXT #0 FOUND F P LDK A7,7 t $ P ABL DMTASX EXT #0 ALREADY FOUND PDMT190 EQU * P LDKL A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 P ANK A
0x024004…024198 Dummy {f00=0x0017, f01=0x018e, f02=»DBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC REC ( P LD A2,FDBMIA,A12 P " P RF(NZ) DMT205 INDEX ASS BEFOR j P LD A2,TASFIL . P ABL(E) DMT400 SAME VTOC RECORD FDB FOUND PDMT205 EQU * P LDK A7,5 FILE CODE USED
0x024198…02432c Dummy {f00=0x0017, f01=0x0190, f02=» j P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P* F P LDKL A12,FDBSTA P PDMT220 LDR* A5,A12 h P ANK A5,/01 P RF(Z) DMT230 FREE P LDR* A12,A12 GET NEXT FDB P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO C
0x02432c…0244c0 Dummy {f00=0x0017, f01=0x018e, f02=» P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL . P LDK A2,0 F P LDR A1,A12 X PDMT233 ADK A1,2 l P CWR A1,A10 P RF(E) DMT237 END OF FDB P STR A2,A1 P RB DMT233 PDMT237 EQU * P LDKL A2,/8000 P*
0x0244c0…024654 (0, 46) Dummy {f00=0x0018, f01=0x0190, f02=» , x . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION - P CWR A1,A4 MXIND ENTRY - : P RF(NL) DMT590 LAST ENTRY - X P LD A3,MXIND+6,A1 - z " P RF(N) DMT590 NEXT ENTRY USED - P* - & P* MOVE SPARE WORDS TO NEXT ENTRY - P* - P LD A2,MXIND+2,A
0x024654…0247e8 Dummy {f00=0x0018, f01=0x0190, f02=» P LD A1,TASMXA 6 ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 6 P RF DMT720 6 F ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 6 X * PDMT640 ADK A7,1 A7=11=4 INDEX ALREADY 6 $ PDMT650 EQU * A7=10=NO DATA FILE 6 P ABL DMTASX 6 P XIF 6 P EJECT 6 " P
0x0247e8…02497c Dummy {f00=0x0018, f01=0x0190, f02=» SLL A1,1 6 $ P ORS A1,FDBDBR,A12 DELAY + BASIC 7 PDMT720 EQU * 7 : P* 7 N ( P* SET FDBMRN TO MAX REC NO IN FILE 7 X P* 7 P LDR A1,A12 7 P ADKL A1,FDBNIF 7 P ADKL A1,EXTELE-2 7 PDMT750 SUKL A1,EXTELE 7 P LDR* A2,A1 EXT BASE 7
0x02497c…024b10 Dummy {f00=0x0018, f01=0x0190, f02=» 7 ~ P LDR A1,A12 8 " P CF A14,GTLGRN GET LOG REC NO 8 P LDK A1,0 8 B " P LC A1,FDBBLF,A12 BLOCK FACTOR 8 T P SUK A1,1 8 z P ADR A3,A1 8 P RF(O) DMT760 8 P RF DMT770 8 PDMT760 ANKL A3,/7FFF 8 P ADK A2,1 CARRY 8 PDMT770 SC A2,F
0x024b10…024ca4 Dummy {f00=0x0018, f01=0x40da, f02=»A12 REC LENGTH 8 P ADK A6,1 9 P LDK A7,0 9 ( P LC A7,FDBBLF,A12 BLOCK FACT 9 : P SUK A7,1 9 ^ P CF A14,MPYMOD A1,A2=A6*A7 9 p P ST A2,FDBMRO,A12 MAX FDBRRO 9 P ABL DMT400 9 P END 9 @ 9 8 P ADK A2,1 CARRY 8 PDMT770 SC A2,F
0x024ca4…024e38 Dummy {f00=0x0018, 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
0x024e38…024fcc Dummy {f00=0x0018, f01=0x0190, f02=» A4,4 ADJUST ADDRESS TO DWT P LDR* A6,A4 GET DWT ADDRESS $ $ P RB(Z) RST100 DWT NOT IN SYSTEM H P LDKL A9,ITADI p $ P CW A9,DWTADR,A6 INTERTASK DWT? P RF(E) RST120 YES! P LDKL A9,ITADO $ P CW A9,DWTADR,A6 INTERTASK DWT? P R
0x024fcc…025160 Dummy {f00=0x0018, f01=0x0190, f02=»T ECB ~ & P CM DWTTQ,A6 RESET TERMINAL QUEUE P RB RST100 NEXT DEVICE 8 P EJECT V P* d P* n P* RESET BLOCK POOL x P* P* PINI210 EQU * P LDKL A4,TIMQUE TIMER QUEUE PINI214 EQU * * P LDR* A4,A4 NEXT TIMER
0x025160…0252f4 (0, 47) Dummy {f00=0x0018, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : , ( > @ (@ / O L DWTTQ | QTJOB , ( @ B $P % 4 D F , ( 4 (@ B * P , ( 9
0x0252f4…025488 Dummy {f00=0x0018, f01=0x0190, f02=» $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP , P* > 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED H P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF ST
0x025488…02561c Dummy {f00=0x0018, f01=0x0190, f02=»MPOL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 6 P ABR* A15 J P EJECT P* j P* START PROCEDURE TIMER t P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P DATA PRTOUT,TIMPRO
0x02561c…0257b0 Dummy {f00=0x0018, f01=0x0190, f02=» A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ < P LD A1,XACK l " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM P EJE
0x0257b0…025944 Dummy {f00=0x0018, f01=0x018e, f02=» CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5 0 P EJECT D P IFT CODE=1 R P* f P* p P* CALCULATION OF CRC z P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRC
0x025944…025ad8 Dummy {f00=0x0018, f01=0x018e, f02=» P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 ( P XRKL A7,/A001 > PCRC110 SUK A1,1 T P RB(NZ) CRC100 l P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P*
0x025ad8…025c6c Dummy {f00=0x0018, f01=0x0190, f02=» n $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 0 P LD A8,CRCSAV+2 SAVE IT P P CF A5,READ READ BYTE 2 p ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,
0x025c6c…025e00 Dummy {f00=0x0018, f01=0x0190, f02=»D LRC CHARACTER ~ " P* CR=0 IF LRC OK P* > PRDLRC IM SYNSW H P CF A5,READP ^ P ADK A5,4 r P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P XIF
0x025e00…025f94 (0, 48) Dummy {f00=0x0019, f01=0x40c2, 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 PDC:END EQU * P* P* P END @ A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-
0x025f94…026128 Dummy {f00=0x0019, f01=0x0190, f02=»CE CODES. WHEN LAST FILE IS CLOSED ON - ~ > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME . . P* . p P LDK A1,4 EXTENT COUNTER . z P LDR A5,A6 FDB ADDR . . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE . & P SUKL A5,EXTELE EXT LENGTH IN FD
0x026128…0262bc Dummy {f00=0x0019, f01=0x0190, f02=»THIS EXTENT . z P XIF / P IFT INDXAC=1 / P EJECT / 6 P* / D P* ALL EXTENTS CHECKED / N P* RELEASE MASRTER INDEX / n P* / P INH / & P LD A1,FDBMIA,A6 MASTER INDEX ADDR / P RF(Z) DMT894 NO MATER IX / P LD A5,MXIND LENTH /
0x0262bc…026450 Dummy {f00=0x0019, f01=0x0190, f02=»XIND+2,A5 / P RB(NE) DMT885 0 P LD A4,MXIND,A5 0 ( & P RF(N) DMT890 PREVIOUS ENTRY USED 0 @ " P LD A4,MXIND+4,A5 NO OF WORDS 0 j P ANKL A4,/7FFF REMOV USE BIT 0 P ADS A4,MXIND,A5 NR OF WORDS 0 P* 0 P* MOVE UP REST OF MXIND 0 P* 0
0x026450…0265e4 Dummy {f00=0x0019, f01=0x0190, f02=» P SUK A2,2 NO OF CHAR 1 P CF A14,DMTWM MOVE UOP 1 P RF DMT894 1 > PDMT890 EQU * 1 P P LDKL A4,/7FFF 1 d & P ANS A4,MXIND+4,A5 REMOVE USE BIT 1 z P XIF 1 P EJECT 1 PDMT894 EQU * 1 0 P LDKL A10,1 MARK THAT FDB SHALL BE RELEASED 1 PDM
0x0265e4…026778 Dummy {f00=0x0019, f01=0x0190, f02=» 1 ~ P* 2 * P* RELEASE DWT-QUEUQ IN THIS FDB-DWT 2 P* 2 @ P LDR A1,A6 FDBADDR 2 J $ P ADKL A1,DWTTQ ADDR QUEUE START 2 d P LDR* A5,A1 NEXT TTAB ADDR 2 P RF(Z) DMTA20 NO Q 2 P CMR A1 KILL ROOT 2 $ PDMTA10 LDR* A1,A5 NEXT IN QUEUE 2
0x026778…02690c Dummy {f00=0x0019, f01=0x0190, f02=»AB/CDATAB 2 | P* 3 P LDR A1,A12 TTAB ADDR 3 P LDK A2,0 3 : ( P LC A2,ECBFC,A9 FILE CODE USERT ECB 3 L & P LDR A5,A13 LOCAL/GLOBAL INDICATOR 3 x $ P CF A14,FNDFDB SEARCH TTAB CDTAB 3 P LDK A7,0 INDICATES A2 = 0 3 P IFT INDXAC=1 3 P LDR A
0x02690c…026aa0 Dummy {f00=0x0019, f01=0x0190, f02=»D A7,2,A4 NEXT FDB ADDR TO CLOSE 3 P LDK A1,2 4 ( P ADR A1,A6 FROM ADDR 4 : P LDK A3,2 4 V P ADR A3,A7 TO ADDR 4 h P LDK A2,12 NO OF BYTES 4 P CF A14,DMTWM MOVE DWT 4 P LD A3,DWTTDM,A6 4 P ST A3,DWTTDM,A7 MOVE 4 P CM FDBSNR,A7 SECTOR
0x026aa0…026c34 (0, 49) Dummy {f00=0x0019, f01=0x0190, f02=»2,/3F ORDER INDEX D P SUK A2,QIRW E & P RB(NE) CHK040 NOT INDEXED REWRITE E . " P LD A2,FDBKA,A6 KEY START ADDR E X P LDR A3,A2 E ~ " P AD A2,ECBBA,A9 KEY IN BUFFER E P AD A3,FDBRRO,A1 E P ADR A3,A11 KEY IN FILE E P LDK A7,0 E " P LD A6,F
0x026c34…026dc8 Dummy {f00=0x0019, f01=0x0190, f02=» M r P LDR A10,A2 BUFFER ADDR N P CM CRNCIF,A2 N ( P* CLEAR INDEX CRN N > P CM CRNCIF+2,A2 N Z P LDR A2,A5 N r P LDR A3,A9 N P ST A2,CRNCDF,A10 N & P ST A3,CRNCDF+2,A10 CRN DATA FILE N & P SC A11,CRNCDF,A10 CRN FIL E CODE N P IFT
0x026dc8…026f5c Dummy {f00=0x0019, f01=0x018e, f02=» N P CWR A7,A4 O P RF(E) DMT450 SEQ READ O P LDK A4,QRR O 8 P CWR A7,A4 O L P RF(E) DMT450 RANDOM READ O ^ P LDK A4,QRRRB O P CWR A7,A4 O & P RF(E) DMT450 RAND READ REL BUFFER O PDMT440 EQU * O P* O P* RELEASE EA O P*
0x026f5c…0270f0 Dummy {f00=0x0019, f01=0x0190, f02=» & P RF(NZ) DMTAEX EA=1. NO EA WANTED P P* P . " P* CHECK IF EA IS SET ALREADY P 8 P* P ^ P CF A14,EATEST CHECK EA P h P LDR A4,A4 P " P RF(NZ) DMTAEX EA ALREADY SET P P* P P* SET EA P P* P P CF A14,EASETB P P RF DMTAEX P
0x0270f0…027284 Dummy {f00=0x0019, f01=0x0190, f02=» P LDK A4,QINS Q P CWR A7,A4 Q " P ABL(E) DMINS2 INDEXED INSERT Q * P XIF Q P P EJECT Q " PDMTAEX LDK A1,0 CORRECT RETURN Q j P* Q PDMTERR LD A3,FDBDBR,A6 Q P RF(NN) DMTEX1 NOT DELAY Q P ANKL A3,/3F00 Q ( P RF(NZ) DMTERX NO RELEASE
0x027284…027418 Dummy {f00=0x0019, f01=0x0190, f02=» EQU * Q P INH R P* A1 = RET CODE R P* A6 = DWT ADDR R 4 P CF A15,TENDIO R N P ENB R d PEXIT EQU * R p P LKM R P DATA 3 R P IFT INDXAC=1 R P EJECT R PDMIRR EQU * R P* INDEXED RANDOM READ R 2 P******************
0x027418…0275ac Dummy {f00=0x0019, f01=0x0190, f02=»1,ECBCW+3,A9 NO OF CHAR R P LD A2,FDBRLE,A1 S P SUK A2,6 MAX KEY LENGTH S 8 P CWR A11,A2 S X , P RF(NP) DMR005 NOT TOO LARGE KEY WANTED S l P LDR A11,A2 MAX KEY S PDMR005 EQU * S P LDR A13,A1 S P ADKL A13,FDBECB ECB ADDR S $ P CF A1
0x0275ac…027740 Dummy {f00=0x0019, f01=0x0190, f02=»,FDBECB S P ADR A8,A6 ECB ADDRESS T P LDR A2,A2 RETURN CODE T . P RF(NZ) DMI030 KEY NOT FOUND T L P* T p P* KEY RECORD FOUN T z . P* CHECK IF NEXT RECORD HAS THE SAME KEY T P* T " P LD A2,FDBRRO,A1 RECORD OFFSET T P ADK A2,10 BUFFE
0x027740…0278d4 (0, 50) Dummy {f00=0x001a, f01=0x0190, f02=»B(Z) DMI035 NO SECTOR FOUND d P LDR A13,A3 BUFFER ADDR e $ " P LD A4,FDBADF,A6 FDB DATA FILE e D P LD A5,DWTECB,A4 USER ECB e j P LD A1,DWTOR,A6 e P ANK A1,/3F e P SUK A1,QDELX e & P ABL(E) DEL000 DELETE INDEX RECORD e P* e ( P* SE
0x0278d4…027a68 Dummy {f00=0x001a, f01=0x0190, f02=»* SAVE LAST RECORD m P* n P LDR A1,A13 n & P ADK A1,10 BUFSTA+2 n : . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT n V P LDR A2,A11 n P LDR A3,A10 n " P CF A14,DMTBM SAVE LAST RECORD n P* MOVE REST OF SECTOR n P* n P LDR A1,
0x027a68…027bfc Dummy {f00=0x001a, f01=0x0190, f02=»OF CHAR n | P LDR A3,A1 o P ADR A3,A11 TO ADDR o " P CF A14,DMTBMR MOVE o > P* INSERT NEW RECORD o Z P* o x P LDKL A1,RECBFZ BUFFER SIZE o P SLL A1,1 BYTE NO o P LDR A12,A12 o P RF(Z) INS250 BUFAR1 o " P LDK A1,0 SELECT OTHER B
0x027bfc…027d90 Dummy {f00=0x001a, f01=0x0190, f02=»ADDR o P CF A14,DMTBM MOVE p P* WRITE BUFFER p & P* p > P LDR A8,A14 USE STACK AS ECB p H P SUKL A8,24 p l $ P LC A2,FDBEXT+1,A6 VOL DEV CODE p P STR A2,A8 p P LDR A2,A13 p P ADK A2,8 BUFSTA p P ST A2,ECBBA,A8 SECTOR ADDR p
0x027d90…027f24 Dummy {f00=0x001a, f01=0x018e, f02=» A7,/95 WRITE , WAIT p P LKM q P DATA 1 q ( P LDR A1,A6 FDB INDEX q 8 P CF A14,DMTIOZ IO CHECK q T P LDR A1,A1 q t P ABL(NZ) DMTERR q P* q 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY q P* q P LDR A2,A10 RECORD AREA ADDR
0x027f24…0280b8 Dummy {f00=0x001a, f01=0x0190, f02=» q j P CCR A1,A2 r P RF(Z) INS400 FREE RECORD r P* r < P* GET NEXT SECTOR r F P* r b P LDR A1,A6 FDB ADDR r l P LDR A3,A13 BUFFER ADDR r 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR r P RF INS260 OK r P LDR A1,A5 r P A
0x0280b8…02824c Dummy {f00=0x001a, f01=0x0190, f02=» r l P SUR A12,A12 s P RB INS200 s P EJECT s . PINS400 EQU * s < P* s P ( P* UPDATE LRN IF EOF IS ENCOUNTERED s Z P* s P LDR A1,A6 FDB INDEX s P CF A14,GTLGRN s P CC A2,FDBLRN,A1 s P RF(L) INS430 NO EOF s P RF(G) INS410 EO
0x02824c…0283e0 Dummy {f00=0x001a, f01=0x0190, f02=»N+1,A6 s P LDKL A1,/1000 EOF t P ORS A1,ECBRC,A9 EOF TO USER t * PINS430 EQU * t N P* t b 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS t l P* t P LDKL A12,1 ADD ON E TO CRN t P LDR A8,A2 t P LDR A9,A3 LAST REC NR MOVED t P LD
0x0283e0…028574 (0, 51) Dummy {f00=0x001a, f01=0x0190, f02=» LABEL = KMD16 DATE = 781110 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x028574…028708 Dummy {f00=0x001a, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , (
0x028708…02889c Dummy {f00=0x001a, f01=0x0190, f02=» I $ P $ - F + X V FDBMRO , , ( g $ P "P $P W X X NT > , ( ;AR ( ( n , ( D T Y F H" F H , ( 4 D '? P P $ P CRNGETZ
0x02889c…028a30 Dummy {f00=0x001a, f01=0x018e, f02=» EASETB0 , ( B 8W D J$ T L T V , ( #$@W E . E . X V ? T B F TENDIO v & " = * X(@( H D ! . . . . . . . . . H D ! ! . #
0x028a30…028bc4 Dummy {f00=0x001a, f01=0x4132, f02=» J H D ! TV P W P 5T KT S . gU, Wf U WF W P J P H D !J 7P I D mW uP& . U , P P* T U W R PB !P< #W T H D ! + . AP GW MP eV" kP qP: uP6 wW T* R T P P( P" , ( P P P W T T
0x028bc4…028d58 Dummy {f00=0x001a, f01=0x2008, f02=» DMTEX2 @ EXITI L ND900 QUL
0x028d58…028eec Dummy {f00=0x001a, 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
0x028eec…029080 Dummy {f00=0x001a, f01=0x0190, f02=» LABEL = KMD16 DATE = 781110 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x029080…029214 (0, 52) Dummy {f00=0x001b, f01=0x0190, f02=» LABEL = KMD16 DATE = 781110 PACK NBR = 001 f P Y _( Y M : ] =IR E
[…0x1…]
0x0293a8…02953c Dummy {f00=0x001b, f01=0x0002, f02=»
0x02953c…0296d0 Dummy {f00=0x001b, f01=0x0190, f02=» 2 P IDENT DWDY43 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY43 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY43 EQU * TABLE ENT
0x0296d0…029864 Dummy {f00=0x001b, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( 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 P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x029864…0299f8 Dummy {f00=0x001b, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h 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
0x0299f8…029b8c Dummy {f00=0x001b, 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
0x029b8c…029d20 Dummy {f00=0x001b, f01=0x0190, f02=» LABEL = KMD16 DATE = 781110 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x029d20…029eb4 (0, 53) Dummy {f00=0x001b, f01=0x0190, f02=» ` f l r x ~ & , 2 8 > D <V9 0 *
0x029eb4…02a048 Dummy {f00=0x001b, f01=0x0190, f02=» W L @ ^ A ^V P P E ` @ T E b P E p P E r D `T P P 2% P( R , X VT R ( @ T R NT @ N P 6 2% P P ` P %_ S S E 3 P S E P S F P S $ P S & P % S D
0x02a048…02a1dc Dummy {f00=0x001b, f01=0x000e, f02=» 0 8 @ H P X `
0x02a1dc…02a370 Dummy {f00=0x001b, f01=0x0190, f02=» 3I v ,^. $j2 $v$ $ $ $j 2 W W W A K " UU ( ) ( ) A A A.
0x02a370…02a504 Dummy {f00=0x001b, f01=0x0190, f02=» b Fr ^a : 6 b 9 r i $ Hw z+ { 6&S Nwm 3 C 3 zl 6 P Z<K m c m_ ( @ " 0 @ PX ^ 9j U UL @ ? 4 A T T :J P@ ? ? , ? A >
0x02a504…02a698 Dummy {f00=0x001b, f01=0x0190, f02=» ? ? ? ? ? ? > > H ( P c P ? ? @ P A x @ (V ( U P @ V L P U < A A Q > A A ` 8X Q Z P 0 9 _ _& P H H A A Q
0x02a698…02a82c Dummy {f00=0x001b, f01=0x0190, f02=» W W T T. P L U U U U T U U < J 4 T - 1_& U T P 0 U tW" ? @ T 0 A 1 Q Q > Z 0 @ 1 A P P Z ? * 8 " R" Y T ? X D T> W8 > _& @ L 8
0x02a82c…02a9c0 Dummy {f00=0x001b, f01=0x0190, f02=» X P X T 4 Y < X X T X Y Y X P$ - M Y X P P lW < > > > > > > > > @ V ? > _ W ? _ > ? _ ^ ! V ) _ > > _ A. 0
0x02a9c0…02ab54 (0, 54) Dummy {f00=0x001c, f01=0x0190, f02=» LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS 0 P DATA 0 ORDER L * P DATA DC15DC POINTER TO ADDRESS BLOCK b P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P DATA 0 TIMER POINTER
0x02ab54…02ace8 Dummy {f00=0x001c, f01=0x018e, f02=» DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR ADDRESS 0 P EJECT N P* P* f P* DC RECEIVE BUFFER POOL p P* PRLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFNR=
0x02ace8…02ae7c Dummy {f00=0x001c, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P XIF . P DATA *+RLINK : P RES RBUFL+3 P P DATA 0 END OF CHAIN d P RES RBUFL+3 P* P* P* DC TRANSMIT BUFFER POOL P* P* PDCTBUF EQU * P* P* P I
0x02ae7c…02b010 Dummy {f00=0x001c, f01=0x0190, f02=»AREA 1 ~ PTBUF2 DATA 0 END OF CHAIN P RES TBUFL BUFFER AREA 2 0 P XIF P P* P EJECT f P* t P* ~ P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF
0x02b010…02b1a4 Dummy {f00=0x001c, f01=0x0190, f02=»E2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT $ P STR A2,A3 : P ADK A3,2 L P CWK A3,LOGEND ^ P RF(L) LOGEXI t P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT
0x02b1a4…02b338 Dummy {f00=0x001c, f01=0x0190, f02=» 0 P XIF P* P* P* * P IFT RCOM=1 4 P EJECT H < P******************************************************* V P* P* L I N C O L P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P*
0x02b338…02b4cc Dummy {f00=0x001c, f01=0x0190, f02=» SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER ( " P CF A5,WRITEP SEND LINE NUMBER R P x P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETU
0x02b4cc…02b660 Dummy {f00=0x001c, f01=0x018e, f02=» DATA /4849,/5B2E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 . * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-
0x02b660…02b7f4 (0, 55) Dummy {f00=0x001c, f01=0x0190, f02=»Y BIT e t P ANS A7,DWTST,A6 f P LC A7,DWTST,A6 f & P ANK A7,/20 ECHO MODE ? f > P RF(NE) CPO030 YES f ^ 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER f x P RF(E) CPO030 YES f : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 f 2 P LD
0x02b7f4…02b988 Dummy {f00=0x001c, f01=0x0002, f02=»
0x02b988…02bb1c Dummy {f00=0x001c, f01=0x018e, f02=» 2 P IDENT INIMOD REL 8.2 78-09-15 870105040820 P : P* B " P****************************** L P* r $ P* PHILIPS TERMINAL SYSTEM PTS | P* D P* INIMOD= DUMMY MODULE HOLDING ADDRESSES BUG INIMON AND DCEXT " P* AND DATA MANAG
0x02bb1c…02bcb0 Dummy {f00=0x001c, f01=0x412e, f02=» ~ P* P* P ENTRY INIMON P ENTRY BUG 2 P ENTRY DCEXT D P ENTRY DM:TSK X P EXTRN TTABD2 n P* PINIMON EQU 0 INIMON PBUG EQU 0 DEBUGGER PDCEXT EQU 1 PDM:TSK DATA DMTSKE-* P DATA TTABD2 P
0x02bcb0…02be44 Dummy {f00=0x001c, f01=0x2008, f02=» NT INIMOD P* P* DUMMY MODULE $ P* < P* F P ENTRY INIMON P P ENTRY BUG f P* x P* PINIMON EQU 0 INIMON PBUG EQU 0 DEBUGGER P END @
0x02be44…02bfd8 Dummy {f00=0x001c, f01=0x0190, f02=»ACTER BETWEEN /40 TO /5F " P XIF # P RB ACDY70 # , P* # > P* # H P IFT WHATDY=0 # R POTHER EQU * # h P************************ # | P* A3 = INDEX # P* A1 = CHARACTER # P* A4 = NUMBER # P************************ # P LC A2,DWT
0x02bfd8…02c16c Dummy {f00=0x001c, f01=0x0190, f02=»OS AND # v P ANK A3,/FF $ P ST A4,10,A8 SAVE LENGTH $ " P SUR A3,A2 COMPARE $ B P RF(NN) OT030 LENGTH OK $ P ADR A4,A3 $ | P ST A4,10,A8 SAVE LENGTH $ 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS $ POT030 EQU * $ & P LDR A3,A1 SAVE CH
0x02c16c…02c300 Dummy {f00=0x001c, f01=0x018e, f02=» $ P LD A4,10,A8 GET ACT. LENGTH % POT040 LDK A2,BACKSP % , P CF A5,OUTPUT SENDBACKSPACE % H P SUK A4,1 DECREMENT LENGTH % l P RB(P) OT040 % P RB ADY127 % P XIF % P EJECT % P* % P* CODE CHECK ERROR % P* % PADY130 E
0x02c300…02c494 (0, 56) Dummy {f00=0x001e, f01=0x0190, f02=»* P* P* 1. POWER OFF P* * : P* REGISTERS A1-A14 ARE SAVED ON INTERRUPT STACK AND 4 ( P* STACK POINTER IS SAVED IN CORE r P* THEN SYSTEM IS HALTED P* P* P* 2. POWER ON P* & P* STACK POINTER A
0x02c494…02c628 Dummy {f00=0x001e, f01=0x0190, f02=»K X 4 P* AND RETURN IS GIVEN TO INTERRUPTED PROGRAM P* B P* L P* V P* WORK AREAS ` P* t P* ~ & PPFX DATA 1 POWER ON OFF INDICATOR P* P* & PINIFLG DATA 1 INITIALIZATION FLAG P* P EJECT P
0x02c628…02c7bc Dummy {f00=0x001e, f01=0x0190, f02=»PT r & P RIT /17 RESET INTERNAL INTERRUPT & P C1S PFX INDICATE POWER ON OR OFF 4 P RF(P) PFA200 POWER ON ^ P* | P* POWER OFF P* ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK & P STR A9,A15 SAVE A9 - A14 ON STACK P STR A10,A15
0x02c7bc…02c950 Dummy {f00=0x001e, f01=0x413c, f02=»00 HLT HALT SYSTEM P* P* POWER ON & P* 8 PPFA200 EQU * B * P LDKL A15,0 RESTORE A15 STACK POINTER V PPFA210 EQU *-2 ( P CM INIFLG RESET INITIALIZATION FLAG * P CF A15,PFINIT RESTART COMMON DEVICES 4 P ABL RETU14 RESTORE
0x02c950…02cae4 Dummy {f00=0x001e, 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
0x02cae4…02cc78 Dummy {f00=0x001e, f01=0x018e, f02=»,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 D P LD A8,CRCSAV+2 SAVE IT d 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 A
0x02cc78…02ce0c Dummy {f00=0x001e, f01=0x0190, f02=» & P* RDLRC READ LRC CHARACTER " P* CR=0 IF LRC OK . P* T PRDLRC IM SYNSW ^ P CF A5,READP t P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5
0x02ce0c…02cfa0 Dummy {f00=0x001e, f01=0x0190, f02=»NTRY | P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS , P DATA 0 ECB ADDRESS F P DATA 0 ORDER b * P DATA DC15DC POINTER TO ADDRESS BLOCK x P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P DAT
0x02cfa0…02d134 (0, 57) Dummy {f00=0x0023, f01=0x0190, f02=»X,A6 P ABL TIOD68 ACTIVATE DMTASK P EJECT 0 P* > * PRELXAC EQU * RELEASE EXCLUSIVE ACCESS H P LDR A1,A6 FDB ADDR v 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB PREL090 EQU * P LDK A1,0 CORRECT RETURN
0x02d134…02d2c8 Dummy {f00=0x0023, f01=0x0002, f02=» `
0x02d2c8…02d45c Dummy {f00=0x0023, f01=0x0190, f02=» 0 P IDENT DVTTP REL 8.2 78-09-15 870105040820 P* 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTTP EQU * TABL
0x02d45c…02d5f0 Dummy {f00=0x0023, f01=0x018e, f02=»ATA DWTEND-DVTTP LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK . P DATA 'TP' TTAB-ADDRESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR z P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,
0x02d5f0…02d784 Dummy {f00=0x0023, f01=0x4022, f02=» P* P END @ RDER ( P DATA TPAD POINTER TO ADDRESS BLOCK . P DATA 'TP' TTAB-ADDRESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR z P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,
0x02d784…02d918 Dummy {f00=0x0023, 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
0x02d918…02daac Dummy {f00=0x0023, f01=0x0190, f02=»M INVALID POLL 3 PBRM120 EQU * 4 & P CF A5,FINTER CHECK IF STA PRESENT 4 * P LDR A6,A3 LOAD DWT TO A6 4 T P RF(NZ) BRM130 STA FOUND 4 v $ P LDKL A6,DWDC00 SELECT TO DCTASK 4 PBRM130 EQU * 4 P ABL SELECT 4 P EJECT 4 P* 4 P* 4 P
0x02daac…02dc40 Dummy {f00=0x0023, f01=0x0190, f02=»F(Z) BRM220 ACK IS NOT EXPECTED 4 " P LD A6,FDWTUT GET WRITING DWT 5 ( P RF(Z) BRM210 NO ONE WRITING 5 N P LDK A1,2 SET RC=2 5 r ( P CF A5,CWRITE COMPLETE WRITE REQUEST 5 PBRM210 EQU * 5 " P CM XACK RESET 'ACK EXPECTED' 5 PBRM220 EQU * 5 P C
0x02dc40…02ddd4 (0, 58) Dummy {f00=0x0023, f01=0x0190, f02=» P RF(O) IXR030 OVERFLOW P RF IXR040 " , PIXR030 ANKL A2,/7FFF REMOVE OVERFLOW BIT 4 P ADK A1,1 ADK CARRY d PIXR040 EQU * P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 * P RF TIOD25 DO NOT CHECK EOF CONDITION P EJECT P
0x02ddd4…02df68 Dummy {f00=0x0023, f01=0x0002, f02=» h
0x02df68…02e0fc Dummy {f00=0x0023, f01=0x0190, f02=» 0 P IDENT DVTGP REL 8.2 78-09-15 870105040820 P* 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVTGP TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK P* P* PDVTGP EQU * TABLE ENTRY
0x02e0fc…02e290 Dummy {f00=0x0023, f01=0x0190, f02=»R AND ECB-ADDRESS j ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA 'GP' TTAB-ADDRESS F $ P DATA 0 WAIT/ACTIVATE INDICATOR f 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
0x02e290…02e424 Dummy {f00=0x0023, f01=0x4032, f02=» EQU * P* P* P END "@ .DRESS-BLOCK P DATA 'GP' TTAB-ADDRESS F $ P DATA 0 WAIT/ACTIVATE INDICATOR f 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
0x02e424…02e5b8 Dummy {f00=0x0023, 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
0x02e5b8…02e74c Dummy {f00=0x0023, f01=0x0190, f02=»RY DWFD01 DWT-ADDRESS P* P************* ( P* * > P* EXTERNALS * T P* * j P************* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR P EXTRN D
0x02e74c…02e8e0 Dummy {f00=0x0023, f01=0x0190, f02=»ETIMP TIMER & P EXTRN INIFLG INITIALIZATION FLAG & P EXTRN INTSAV INTERRUPT SAVE AREA > & P EXTRN TASCII EBCDIC TO ASCII TAB h & P EXTRN TEBCDIC ASCII TO EBCDIC TAB $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH
0x02e8e0…02ea74 (0, 59) Dummy {f00=0x001e, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , (
0x02ea74…02ec08 Dummy {f00=0x001e, f01=0x0190, f02=» I $ P $ - F + X V FDBMRO , , ( g $ P "P $P W X X NT > , ( ;AR ( ( n , ( D T Y F H" F H , ( 4 D '? P P $ P CRNGETZ
0x02ec08…02ed9c Dummy {f00=0x001e, f01=0x018e, f02=» EASETB0 , ( B 8W D J$ T L T V , ( #$@W E . E . X V ? T B F TENDIO v & " = * X(@( H D ! . . . . . . . . . H D ! ! . #
0x02ed9c…02ef30 Dummy {f00=0x001e, f01=0x4132, f02=» J H D ! TV P W P 5T KT S . gU, Wf U WF W P J P H D !J 7P I D mW uP& . U , P P* T U W R PB !P< #W T H D ! + . AP GW MP eV" kP qP: uP6 wW T* R T P P( P" , ( P P P W T T
0x02ef30…02f0c4 Dummy {f00=0x001e, f01=0x2008, f02=»
0x02f0c4…02f258 Dummy {f00=0x001e, f01=0x0190, f02=» DATA 0 SECOND P* PDINKAN DATA 0 SECOND SWITCH P* D P* N P XIF X P EJECT d P r P* z * P* CLOCK ROUTINE STARTED EACH 100 MS. P* P PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS PCL
0x02f258…02f3ec Dummy {f00=0x001e, f01=0x0190, f02=» RB(N) CLK10 NOT TIME OUT, GET NEXT IN QUEUE P RF(Z) CLK30 TIME OUT 4 P R P LDR* A3,A4 RELEASE TIMER Z P STR A3,A6 | P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 P , PCLK30 CF A15,CLK40 CALL TIME OUT R
0x02f3ec…02f580 Dummy {f00=0x001e, f01=0x0190, f02=»TER z $ P ABI 2,A2 GO TO TIME OUT ROUTINE P* 4 P* > P* H PCOUNT DATA 0 100 MS SWITCH R P* t P* ~ P* T I M Q U E P* . P* POINTER TO FIRST BLOCK IN TIMER QUEUE P* PTIMQUE EQU * P DATA 0
0x02f580…02f714 (0, 60) Dummy {f00=0x0025, f01=0x018e, f02=» EQU * E P LDR A6,A1 FDB ADDR F P LD A7,DWTOR,A6 F * P ANK A7,/3F ORDER INDEX F B P LDK A2,0 F b P LC A2,FDBNIF,A6 F t P CWR A2,A12 F ( P RF(E) DMT310 ALL INDEX IS EXISTING F P LDKL A1,/8000 REQ ERR F P RF DMERR F PDMERND LDKL
0x02f714…02f8a8 Dummy {f00=0x0025, f01=0x0002, f02=»
0x02f8a8…02fa3c Dummy {f00=0x0025, f01=0x0190, f02=» 2 P IDENT DWIO01 REL 8.2 78-09-15 870105040820 P* : ( P* INTERTASK COMMUNICATION INPUT DWT D P* p P ENTRY DWIO01 TABLE ENTRY z P P EXTRN ITADO DRIVER ENTRY P PDWIO01 EQU * P DATA 0 QUEUE LINK P DATA /8000
0x02fa3c…02fbd0 Dummy {f00=0x0025, f01=0x40c8, f02=»WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER > P DATA 0 TIME OUT $ P DATA 0 ADDRESS TO QUEUE ANCHOR t P DATA 0,0 SAVE AREA P END @ PDWIO01 EQU * P DATA 0 QUEUE LINK P DATA /8000
0x02fbd0…02fd64 Dummy {f00=0x0025, 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
0x02fd64…02fef8 Dummy {f00=0x0025, f01=0x0190, f02=»H BOT P P P LDK A1,/C P CFR A8,A6 SEARCH TAPE MARK 0 P T P PSOP:IL LDKL A1,/0400 d & P OTR A1,0,SOP ILLUMINATE SOP-LAMP P EJECT MONCON P P** . P***************************************** P**
0x02fef8…03008c Dummy {f00=0x0025, f01=0x018e, f02=»******************** ~ P** P & P LDKL A6,CL:ADR-PART:3 . " P ADR A6,A12 SUBROUTINE ADDRESS L P r P z P LDKL A4,CL:TAB-PART:3 * P ADR A4,A12 CLASS TABLE ADDRESS TABLE P P PCLA:10 LDR* A5,A4 * P RF(Z) CLA:20 CL
0x03008c…030220 Dummy {f00=0x0025, f01=0x0190, f02=» PCLA:20 ADK A4,2 " P RB CLA:10 GET NEXT CLASS TYPE PCLA:30 EQU * B P EJECT MONCON V P n P** v $ P******************************** P** P* SET WORDS IN FREE MEMORY P* AREA = /0000 P** $ P**************
0x030220…0303b4 (0, 61) Dummy {f00=0x0028, f01=0x0190, f02=»EAR USE BIT AND QUEUE ANCHOR ADDRESS IN TASBLK P CM TASBLK 6 P CM TASQUE H P* Z , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB d P* P LD* A2,CDTAB PDMIN60 SUK A2,4 P LDR A3,A2 P AD A3,CDTAB P SRL A3,1 FOR 16 K LIM
0x0303b4…030548 Dummy {f00=0x0028, f01=0x0002, f02=»
0x030548…0306dc Dummy {f00=0x0028, f01=0x4178, f02=» 2 P IDENT DC:TAB REL 8.2 78-09-15 870105040820 P* : P* D P* DC CONFIGURATION TABLE N P* n P* x P ENTRY DC:TAB,DCTAB P* P* P* P* P* P* P* P* PDCTAB DATA DC:TAB & P
0x0306dc…030870 Dummy {f00=0x0028, f01=0x2008, f02=» DWDC08 P DATA DWDC09 P DATA DWDC10 6 PDCTABE EQU * END OF TABLE V P* x P* P END @ TH ~ P DATA DWDC01 P DATA DWDC02 P DATA DWDC03 P
0x030870…030a04 Dummy {f00=0x0028, f01=0x2008, f02=» NT TCTAB P* P* " P* , P* TERMINAL CONTROL TABLE 6 P* X P* b P ENTRY TCTAB TABLE ENTRY l P* P* P EXTRN TTMJOB MONITOR TABLE P* P* P* P* $ PTCTAB DATA TTABE-* TABLE LEN
0x030a04…030b98 Dummy {f00=0x0028, f01=0x401e, f02=» EQU * 2 P END 3 @ 3 ANKL A3,/8FFF 2 P SRC A2,4 2 4 P ORR A3,A2 2 F P STR A3,A6 RESTORE 2 X P RTN A5 2 r P EJECT 2 P* 2 P* 2 * P* STINTA = STATUS INFORMATION TABLE 2 P* 2 PSTINTA EQU * 2 & P DATA STARP1,STOPP1,STAR
0x030b98…030d2c Dummy {f00=0x0028, f01=0x2008, f02=» 4 END I/O % h P EJECT & P* & & P* & 0 * P* STINTA = STATUS INFORMATION TABLE & : P* & h PSTINTA EQU * & r & P DATA STARP1,STOPP1,STARP2,STOPP2 & & P DATA STARP3,STOPP3,STARP4,STOPP4 & & P DATA TISWCA,TIANTC,TIPILO,TIBUZZ & P DAT
0x030d2c…030ec0 Dummy {f00=0x0028, f01=0x0190, f02=»1 D P SUK A2,1 E P RB FDIX10 E PFDIX20 RTN A5 E . P EJECT E D P IFF DAMA+IBM=0 E R P****************** E j P* * E P* VOLADR * E P* * E P****************** E P* E P* INPUT: A6 DWT
0x030ec0…031054 (0, 62) Dummy {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 780616 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x031054…0311e8 Dummy {f00=0x0028, f01=0x0004, f02=»
0x0311e8…03137c Dummy {f00=0x0028, f01=0x0190, f02=» 2 P IDENT INTLT1 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x03137c…031510 Dummy {f00=0x0028, f01=0x0190, f02=»TABLE ENTRY P EXTRN DWKB01 P EXTRN DWTP01 4 P EXTRN DWDY01 T P EXTRN DWKB02 t P EXTRN DWTP02 P EXTRN DWDY02 P EXTRN DWKB03 P EXTRN DW
0x031510…0316a4 Dummy {f00=0x0028, f01=0x0190, f02=» P* P* TERMINAL PARAMETERS P* . P* 8 , P* RIGHT BYTE = 2 * NUMBER OF DEVICES B P* r P* | P* PT1 EQU /006 PT2 EQU /006 PT3 EQU /006 PT4 EQU /006 P
0x0316a4…031838 Dummy {f00=0x0028, f01=0x0190, f02=» DATA TN4 P DATA 0 P DATA 0 6 P DATA 0 R P DATA 0 n PTN1 EQU * P DATA T1 P DATA DWKB01 P DATA DWTP01 P
0x031838…0319cc Dummy {f00=0x0028, f01=0x4188, f02=»02 z P DATA DWDY02 PTN3 EQU * * P DATA T3 F P DATA DWKB03 b P DATA DWTP03 P DATA DWDY03 PTN4 EQU * P DATA T4 P DATA
0x0319cc…031b60 Dummy {f00=0x0028, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x031b60…031cf4 (0, 63) Dummy {f00=0x0025, f01=0x0190, f02=» EXTLEN * & + H . D Y P P 0 Y R P EXTBAS D , ( ? 0 Y T U ! T ! X6 V TASTBE , ( [ _R _V @ V P I @ MXIND , ( w P @ X V W H X I , (
0x031cf4…031e88 Dummy {f00=0x0025, f01=0x0190, f02=»F , ( (@( @ ( _r ^ FDBDBR : EXTELE L , ( A ` ` 9A S ` L b ^ FDBCEX FDBSNR * & @ b $X D b S d S GTLGRNX , ( f h
0x031e88…03201c Dummy {f00=0x0025, f01=0x413e, f02=» l S n d H D !& P !Tl / f AP UP [ f P f Q< f I N iT H D !$ U P W V f T P f P( T T T % d + f =P d H D ! K f _P T W T W| P U Wd P #T. 'W> IU QT mP6 wP ( $ V W
0x03201c…0321b0 Dummy {f00=0x0025, f01=0x2008, f02=»
0x0321b0…032344 Dummy {f00=0x0025, 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
0x032344…0324d8 Dummy {f00=0x0025, f01=0x0190, f02=» v P EXTRN DWTST DWT STATUS P EXTRN SETIMP TIMER ( , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID D P EXTRN TTB:TD t P EXTRN TTB:ST TTAB STATUS " P EXTRN DWTTAB DWT TTAB ADDRESS $ P EXTRN DWTADR ACTIVATION ADDRESS * P EXTRN IHRTN R
0x0324d8…03266c Dummy {f00=0x0025, f01=0x0190, f02=»LENGTH z P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD 2 P* X P* C O N S T A N T S b P* PDWTTP EQU /10 TIMER POINTER " PDWSTB EQU /18 STACK BASE USED * PDWSTB2 EQU /1E STACK BASE 2 (NOT USED) PDWTIM
0x03266c…032800 Dummy {f00=0x0025, f01=0x0190, f02=»D PITADO DATA ICAD P " PICAD EQU * * P SUK A7,2 < P RF(Z) READ READ ORDER N P SUK A7,9 l P RF(Z) WRITE WRITE ORDER ~ P SUK A7,/2E P RF(NZ) DIS:OE REQUEST ERROR P* P* S E T T I M E O U T P*
0x032800…032994 (0, 64) Dummy {f00=0x002a, f01=0x0190, f02=» P EXTRN QFDBFL P EXTRN FDBSTA P EXTRN FDBEND 4 P EXTRN FDBECB J P EXTRN FDBEXT ` P EXTRN EXTDMI v P EXTRN EXTLEN P EXTRN EXTBAS P EXTRN FDBRLE P EXTRN FDBBLF P EXTRN FDBVTO P EXTRN FDBLRN
0x032994…032b28 Dummy {f00=0x002a, f01=0x0002, f02=» @
0x032b28…032cbc Dummy {f00=0x002a, f01=0x0190, f02=» 2 P IDENT INTRT3 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x032cbc…032e50 Dummy {f00=0x002a, f01=0x40f6, f02=»BLE ENTRY P* P* TERMINAL PARAMETERS P* < P* F , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P P* P* P* P* PINTRT3 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x032e50…032fe4 Dummy {f00=0x002a, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x032fe4…033178 Dummy {f00=0x002a, f01=0x0190, f02=» P RF(E) ENDIO YES P LDK A1,/20 P RF ENDIO 0 P* B 4 P* MODIFY DEVICE ADDRESS DEPENDING ON KEYBOARD, L 2 P* CARD READER/WRITER, OR DISPENSER ORDER AND & P* JUMP TO VALID FUNCTION MODULE. P* PACCG38 EQU * P LDK A
0x033178…03330c Dummy {f00=0x002a, f01=0x0190, f02=»40 EQU * ( P CF A5,MODIFY MODIFY DEVICE ADDRESS PACCG50 EQU * < P LDK A3,0 P P SLL A4,1 b 2 P ABI FUNTAB-2,A4 JUMP TO VALID FUNCTION MODULE t P EJECT P* 2 P* CHECK IF CARD-IN-READER MESSAGE HAS COME " P* OR WAIT FOR
0x03330c…0334a0 Dummy {f00=0x002a, f01=0x0190, f02=»A5,STREG WAIT FOR COT MESSAGE $ P SUK A1,3 DEVICE CODE CORRECT ? & P RF(NE) THRERR NO N PCARD10 EQU * h P SUK A2,/0C CARD IN READER ? | P RF(E) ENDIO 2 PCARD12 SUK A2,/34 FRONT SHUTTER DOESNT CLOSE ? P RF(NE) CARD20 NO PCARD
0x0334a0…033634 (0, 65) Dummy {f00=0x002a, f01=0x0190, f02=» l P* PDMT160 EQU * P LC A2,VTFIOR,A3 & P CCK A2,'SS' STANDARD FILE ? > P RF(E) DMT165 YES b P CCK A2,'LL' LIBRARY FILE ? | P ABL(NZ) DMT250 NO P LDK A2,0 FILE EXTENT NUMBER P RF DMT167 . PDMT165 LD A2,VTFSNO,A3 F
0x033634…0337c8 Dummy {f00=0x002a, f01=0x0002, f02=» P
0x0337c8…03395c Dummy {f00=0x002a, f01=0x0190, f02=» 2 P IDENT MONTAB REL 8.2 78-09-15 870105040820 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB P ENTRY TCTAB,CDTAB,BLOCKS P* P ENTRY I
0x03395c…033af0 Dummy {f00=0x002a, f01=0x018e, f02=»4 P P EXTRN TC:TAB,CD:TAB,BLOK:S P* 6 P* @ P* J P* T P* ^ P* h P* r P* | P* P* P* P* P* PMONTAB EQU * PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS D
0x033af0…033c84 Dummy {f00=0x002a, f01=0x4068, f02=» PINTRT3 DATA 0 PINTRT4 DATA 0 P* 0 P* : P* D P* N P END X@ d* h P* r P* | P* P* P* P* P* PMONTAB EQU * PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS D
0x033c84…033e18 Dummy {f00=0x002a, f01=0x2008, f02=» P EXTRN IN:LT2 P EXTRN IN:RT1 " P EXTRN IN:RT2 8 P* N P* X P* b P* l PMONTAB EQU * v PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S PDCTAB DATA DC:TAB PINTLT1 DATA IN:LT1
0x033e18…033fac Dummy {f00=0x002a, f01=0x0190, f02=»ORTED z PCREDIT EQU 0 P EJECT " P 0 P* 8 P* ABORT I/O REQUEST B P* ^ P h PTABORT LDR* A3,A8 p , P RF(N) TABOER REQUEST ALREADY COMPLETED P ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS P LDR A8,A6 P RF(Z) T
0x033fac…034140 Dummy {f00=0x002a, f01=0x0190, f02=»OER DEVICE NOT BUSY P P SLC A7,2 $ $ P RF(NN) TABO20 NOT ECHO REQUEST 6 " P LD A6,DWTECH,A6 GET ECHO DWT ^ $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT PTABO20 EQU * . P CF A15,ITABRT ABORT IF INTERTASK REQUEST
0x034140…0342d4 (0, 66) Dummy {f00=0x002c, f01=0x0190, f02=»ES 205 P XIF P IFT QNBUF=14 PBUF15 EQU BUF1 0 P XIF F P* R P* P IFF QNBUF=1 f P IFF QNBUF=2 z 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 I
0x0342d4…034468 Dummy {f00=0x002c, f01=0x0022, f02=»
0x034468…0345fc Dummy {f00=0x002c, f01=0x0190, f02=» 2 P IDENT DMTASK REL 8.2 78-09-15 870105040820 P : P BUF. HANDL. L. 1614 B " P REQ ERR HANDL L. 1351,1488 ` P REL 8.1 78-04-21 P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL S
0x0345fc…034790 Dummy {f00=0x002c, f01=0x018e, f02=» 8 P**************************************************** P* @ , P* THIS MODULE IS ACTIVATED FROM TIODM. J P* z P* INPUT PARAMETERS: P* A1 = FDB ADDRESS < P* A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED P* H P
0x034790…034924 Dummy {f00=0x002c, f01=0x0190, f02=» 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 N : P* THE SECTOR MUST FIRST BE READ INTO A FREE BUFFER. P* H P* ALL I/O LKM REQUESTS IN THIS MODULE AR
0x034924…034ab8 Dummy {f00=0x002c, f01=0x0190, f02=» & P* ALL I/O ARE MADE IN WAIT MODE P* . D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 8 6 P* FOR INDEXED DELETE AND FOR INDEXED REWRITE AND < P* FOR RANDOM WRITE AND RANDOM DELETE CAN BE EXCLUDED. P* 2 P*
0x034ab8…034c4c Dummy {f00=0x002c, f01=0x0190, f02=»******* P* ENTRIES * P*************** ( P* @ P* J P ENTRY DMTASK T & P ENTRY SQR EXTERNAL CODE SEQ READ j P ENTRY QSW P ENTRY QIRN,QIRR P ENTRY DMTWM P EJECT P* P***************** P*
0x034c4c…034de0 Dummy {f00=0x002c, f01=0x018e, f02=» P EXTRN TENDIO P EXTRN RTNA15 P EXTRN FDBECB 4 P EXTRN FDBSNR J P EXTRN FDBRRO ` P EXTRN FDBRLE v P EXTRN FDBBLF P EXTRN FDBTNR P EXTRN FDBVTO P EXTRN FDBCEX P EXTRN FDBEXT P EXTRN EXTDMI
0x034de0…034f74 (0, 67) Dummy {f00=0x002d, f01=0x0190, f02=»EGISTERS********************************** P* 2 P* A1-A5 < P* N : P****************************************************** X P* " P* LOOK FOR FILE CODE IN TTAB P* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR
0x034f74…035108 Dummy {f00=0x002d, f01=0x0190, f02=» A4,A3 P CCR A2,A4 P RB(NE) FND030 P SUK A4,1 6 P LDK A5,1 H " P RF FND080 CODE FOUND IN TTAB Z P* " P* SEARCH FILE CODE IN CDTAB P* PFND040 EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED
0x035108…03529c Dummy {f00=0x002d, f01=0x0190, f02=»A4 P CC A2,1,A3 P RB(NE) FND050 P AD A4,CDTAB 4 P RF FND080 CODE FOUND H PFND060 EQU * f P LDK A2,0 NO CODE z PFND080 EQU * P RTN A14 P EJECT P* P************** P* DMTREM * P************
0x03529c…035430 Dummy {f00=0x002d, f01=0x0190, f02=» FDBRRO,A6 n $ P* BUFFER ADDRESS IN A5 * P* USER REC AREA IN ECBBA,A9 : $ P* RECORD LENGTH IN A2 h P* P* P* P* MOVE THE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE
0x035430…0355c4 Dummy {f00=0x002d, f01=0x0190, f02=» : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC P* B PDMTREM EQU * L P LD A1,FDBRRO,A6 ` P ADR A1,A5 FROM ADDRESS x P LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 P ANK A4,/01 ( P RF(Z) DMT210 BOTH ODD
0x0355c4…035758 Dummy {f00=0x002d, f01=0x0190, f02=» RF(E) DMT220 BOTH EVEN P SUK A2,1 BOTH ODD P LCR A4,A1 : P SCR A4,A3 L P ADK A1,1 ^ P ADK A3,1 p " PDMT220 CF A14,DMTWM WORD MOVE PDMT225 EQU * P RTN A14 P EJECT P* P* SET UP A14 STACK P*
0x035758…0358ec Dummy {f00=0x002d, f01=0x0190, f02=»CR l P ADKL A14,TTB:TD+32 STACK P ABL RTNA15 RET AND ENB , P EJECT L P* Z P************** d P* DMTASK * z P************** P* P* PDMTASK EQU * P* P* SET UP A14 STACK P* P INH
0x0358ec…035a80 Dummy {f00=0x002d, f01=0x0190, f02=»ORDERS XR,DX,IX (SEE TIODM) ~ PDMT020 EQU * $ P LD A4,FDBDBR,A1 8 P RF(NN) DMT025 NO DELAY P P ANKL A4,/C0FF p P LD A2,DWTOR,A1 P ANK A2,/3F P CWK A2,QCL P RF(E) DMT024 CLOSE P CWK A2,QRV P RF(E) DMT024 READ
0x035a80…035c14 (0, 68) Dummy {f00=0x002d, f01=0x0190, f02=»CE CODES. WHEN LAST FILE IS CLOSED ON - ~ > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME . . P* . p P LDK A1,4 EXTENT COUNTER . z P LDR A5,A6 FDB ADDR . . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE . & P SUKL A5,EXTELE EXT LENGTH IN FD
0x035c14…035da8 Dummy {f00=0x002d, f01=0x0190, f02=»THIS EXTENT . z P XIF / P IFT INDXAC=1 / P EJECT / 6 P* / D P* ALL EXTENTS CHECKED / N P* RELEASE MASRTER INDEX / n P* / P INH / & P LD A1,FDBMIA,A6 MASTER INDEX ADDR / P RF(Z) DMT894 NO MATER IX / P LD A5,MXIND LENTH /
0x035da8…035f3c Dummy {f00=0x002d, f01=0x0190, f02=»XIND+2,A5 / P RB(NE) DMT885 0 P LD A4,MXIND,A5 0 ( & P RF(N) DMT890 PREVIOUS ENTRY USED 0 @ " P LD A4,MXIND+4,A5 NO OF WORDS 0 j P ANKL A4,/7FFF REMOV USE BIT 0 P ADS A4,MXIND,A5 NR OF WORDS 0 P* 0 P* MOVE UP REST OF MXIND 0 P* 0
0x035f3c…0360d0 Dummy {f00=0x002d, f01=0x0190, f02=» P SUK A2,2 NO OF CHAR 1 P CF A14,DMTWM MOVE UOP 1 P RF DMT894 1 > PDMT890 EQU * 1 P P LDKL A4,/7FFF 1 d & P ANS A4,MXIND+4,A5 REMOVE USE BIT 1 z P XIF 1 P EJECT 1 PDMT894 EQU * 1 0 P LDKL A10,1 MARK THAT FDB SHALL BE RELEASED 1 PDM
0x0360d0…036264 Dummy {f00=0x002d, f01=0x0190, f02=» 1 ~ P* 2 * P* RELEASE DWT-QUEUQ IN THIS FDB-DWT 2 P* 2 @ P LDR A1,A6 FDBADDR 2 J $ P ADKL A1,DWTTQ ADDR QUEUE START 2 d P LDR* A5,A1 NEXT TTAB ADDR 2 P RF(Z) DMTA20 NO Q 2 P CMR A1 KILL ROOT 2 $ PDMTA10 LDR* A1,A5 NEXT IN QUEUE 2
0x036264…0363f8 Dummy {f00=0x002d, f01=0x0190, f02=»AB/CDATAB 2 | P* 3 P LDR A1,A12 TTAB ADDR 3 P LDK A2,0 3 : ( P LC A2,ECBFC,A9 FILE CODE USERT ECB 3 L & P LDR A5,A13 LOCAL/GLOBAL INDICATOR 3 x $ P CF A14,FNDFDB SEARCH TTAB CDTAB 3 P LDK A7,0 INDICATES A2 = 0 3 P IFT INDXAC=1 3 P LDR A
0x0363f8…03658c Dummy {f00=0x002d, f01=0x0190, f02=»D A7,2,A4 NEXT FDB ADDR TO CLOSE 3 P LDK A1,2 4 ( P ADR A1,A6 FROM ADDR 4 : P LDK A3,2 4 V P ADR A3,A7 TO ADDR 4 h P LDK A2,12 NO OF BYTES 4 P CF A14,DMTWM MOVE DWT 4 P LD A3,DWTTDM,A6 4 P ST A3,DWTTDM,A7 MOVE 4 P CM FDBSNR,A7 SECTOR
0x03658c…036720 Dummy {f00=0x002d, f01=0x0190, f02=» 4 x PDMTA30 EQU * 5 P XIF 5 P ENB ENB 5 ( P* 5 : P* RELEASE BUFFER 5 D P* 5 ^ P LD A3,ECBBA,A8 5 h P SUK A3,8 5 P CF A14,DMTRBU 5 P* 5 P* RELEASE FDB 5 P* 5 P LDR A10,A10 5 P RF(Z) DMTA40 NO RELEASE 5 P
0x036720…0368b4 (0, 69) Dummy {f00=0x002e, f01=0x0190, f02=»GED CHECK NEXT E x P LDR A6,A1 FDB ADDR F P LDKL A1,/4000 KEY NOT FOUND F 2 P RF DMERR F V PCHK100 EQU * F h P LDR A6,A1 FDB ADDR F | P LD A7,DWTOR,A6 F P ANK A7,/3F ORDER INDEX F P LDK A2,0 F P LC A2,FDBNIF,A6 F P CWR A2,A12 F
0x0368b4…036a48 Dummy {f00=0x002e, f01=0x0190, f02=»F DMERR F P XIF G $ PDMEAER LDKL A1,/2000 EA PROTECT G PDMERR ABL DMTERR G D P EJECT G P* G j P* MOVE RECORD G t P* G PDMT310 EQU * G P IFT INDXAC=1 G P LDR A2,A7 G P SUK A2,QDEL G " P ABL(E) DMXDEL INDEXED DELETE G
0x036a48…036bdc Dummy {f00=0x002e, f01=0x0190, f02=»BA,A9 FROM ADDRESS G P XRR A4,A1 H P ANK A4,/01 H , ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN H @ & P CF A14,DMTBM ONE ODD AND ONE EVEN H l P RF DMT340 H P* H PDMT320 LDR A4,A3 H P ANK A4,/01 H P RF(E) DMT330 BOTH EVEN H P SUK A2,1
0x036bdc…036d70 Dummy {f00=0x002e, f01=0x0190, f02=»DMT340 EQU * H P* I P* SET STATUS USED I P* I : P LDK A1,/FF I D PDMT350 SCR A1,A10 I X P LD A3,FDBDBR,A6 I r P RF(NN) DMT394 NO DELAY I P LDR A2,A7 I P SUK A2,QSW I " P RF(E) DMT360 SEQUENTIAL WRITE I P LDR A2,A7 I P
0x036d70…036f04 Dummy {f00=0x002e, f01=0x0190, f02=» I $ P* WRITE IF LAST REC IN SECTOR J P* J 0 PDMT360 LD A4,FDBRRO,A6 J : P CW A4,FDBMRO,A6 J X " P RF(NE) DMT400 NOT LAST RECORD J p " PDMT390 LDK A7,/05 BASIC WRITE J P SLL A3,1 J P RF(N) DMT395 BASIC WANTED J $ PDMT394 LDK A7,/15 PHYSIC
0x036f04…037098 Dummy {f00=0x002e, f01=0x0190, f02=» J l P LKM K P DATA -1 I/O AND ACTIVATION K " P DATA DMTAR2 DMTASK RESTART #2 K 8 P LKM K ^ P DATA 3 EXIT K j P EJECT K ~ P* K P************** K P* DMTAR2 * K P************** K P* K P* K , PDMTAR2 EQU * DMTASK RESTART
0x037098…03722c Dummy {f00=0x002e, f01=0x0190, f02=»C I/O K x P LDR A1,A1 L P RF(NZ) DMTERR L P LDKL A1,/C0FF L 6 $ P ANS A1,FDBDBR,A6 RELEASE BUFFER L L PDMT400 EQU * L t " P LDR A1,A6 FDB ADDR DATA FILE L P LD A2,ECBCW+2,A9 L P ANK A2,/FF L P LD A3,ECBCW,A9 LOG REC NR L P LC A11,EC
0x03722c…0373c0 Dummy {f00=0x002e, f01=0x0190, f02=»WRITE L ~ P LDK A4,QRD M P CWR A7,A4 M " P RF(E) DMT420 RAND DEL M 4 P LDK A4,QRDD M R P CWR A7,A4 M f ( P RF(E) DMT420 DELAYED RANDEOM DELETE M x P IFT INDXAC=1 M P LDK A4,QDEL M P CWR A7,A4 M P RF(E) DMT420 INDEXED DELETE M P XIF
0x0373c0…037554 (0, 70) Dummy {f00=0x002f, f01=0x0190, f02=»8 PHYS ECB ADDR ] P LDK A5,0 ^ . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUNTER ^ * P LDK A5,8 NR OF INDEX * 2 ^ P LDR A10,A1 FDB DATA ^ ~ PDXI020 SUK A5,2 ^ P RF(N) DXI100 ALL INDEXES ^ P LDR A6,A10 ^ P ADR A6,A5 ^ ( P LD A1,FDBAI1,
0x037554…0376e8 Dummy {f00=0x002f, f01=0x0190, f02=»B ^ PDXI030 SUK A6,4 _ P LD A7,CDTAB _ " P ADR A7,A6 _ 6 P CW A1,2,A7 _ H P RB(NE) DXI030 SEARCH NEXT _ P LDR A8,A1 FDB INDEX _ ~ P ADKL A8,FDBECB ECB ADDR _ P LC A6,1,A7 _ P SC A6,ECBFC,A8 INDEX FILE _ P LDR A6,A11 _ P SUK
0x0376e8…03787c Dummy {f00=0x002f, f01=0x018e, f02=»ADDR _ x P ADK A6,2 CYLID ` $ P AD A6,FDBRRO,A10 ADDR DATA REC ` $ $ P LDK A7,/20 DELETE INDEX NOWAIT ` L P RF DXI090 ` t PDXI080 EQU * ` $ P LD A9,DWTECB,A10 USER ECB ADDR ` $ P LD A6,ECBBA,A9 USER BUFFER ADDR ` $ P LDK A7,/1F INSERT INDEX NOWAI
0x03787c…037a10 Dummy {f00=0x002f, f01=0x0190, f02=» ` P LD A7,ECBRC,A8 a P RF(N) DMTAR5 REQ ERR a P RB DXI020 NEXT INDEX DIRECT a > PDXI100 LKM a b P DATA 3 EXIT a t PDMTAR5 EQU * a " P LD A6,FDBADF,A1 FDB DATA FILE a P LD A9,DWTECB,A6 USER ECB a P LDKL A8,FDBECB a P ADR A1,A8 E
0x037a10…037ba4 Dummy {f00=0x002f, f01=0x0190, f02=»R a v P LDK A1,0 RETURN CODE b & P LC A2,FDBDBR,A6 NR OF READY INDEX b ( P ADK A2,1 COUNT INDEXES b R $ P CC A2,FDBNIF,A6 TOT NR OF INDEX b r P RF(NE) DXI200 b P LD A7,DWTOR,A6 b P ANK A7,/3F ORDER CODE b P SUK A7,QINS INDEXED INSERT b
0x037ba4…037d38 Dummy {f00=0x002f, f01=0x0190, f02=»0,2 CYLID b P AD A10,FDBRRO,A6 c & P AD A10,FDBRLE,A6 ADDR STATUS CHAR c , P LDK A1,0 STATUS FREE c V . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE c t PDXI200 EQU * c P SC A2,FDBDBR,A6 c P LKM c " P DATA 3 EXIT. MORE INDEX LEFT c P EJE
0x037d38…037ecc Dummy {f00=0x002f, f01=0x0190, f02=»*** c f " P LD A9,DWTECB,A1 USER ECB ADDR d $ P LD A8,ECBBA,A9 BUFFER ADDR USER d 2 P AD A8,FDBKA,A1 KEY ADDR d Z P LDR A12,A8 d z $ P LD A11,FDBRLE,A1 RECORD LENGTH d P SUKL A11,6 KEY LENGTH d P LDR A13,A14 d 0 P ADKL A13,2 ECB ADDR TO RECORD B
0x037ecc…038060 Dummy {f00=0x002f, f01=0x0190, f02=»B(Z) DMI035 NO SECTOR FOUND d P LDR A13,A3 BUFFER ADDR e $ " P LD A4,FDBADF,A6 FDB DATA FILE e D P LD A5,DWTECB,A4 USER ECB e j P LD A1,DWTOR,A6 e P ANK A1,/3F e P SUK A1,QDELX e & P ABL(E) DEL000 DELETE INDEX RECORD e P* e ( P* SE
0x038060…0381f4 (0, 71) Dummy {f00=0x0031, f01=0x018e, f02=» P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 > 0 PTASFIL DATA 0 0=DATA,1=INDEX,2=MASTER INDEX R * PTASTID DATA 0 DMTSASK IDENT AT ASSIGN $ PTASMXA DATA 0 MASTER INDEX ADDR & PTASSPW DATA 0 TTAB ADDRESS DMTASK $ PTA
0x0381f4…038388 Dummy {f00=0x0031, f01=0x0190, f02=» P EJECT P************** P* TASCAQ * ( P************** > P* T , P* ENTRY TASCAQ CHECK ASSIGN QUEUE ^ P* P* A7= RETURN CODE P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE =
0x038388…03851c Dummy {f00=0x0031, f01=0x0190, f02=»5,A7 | P* PTASCAQ EQU * P LD A5,TASQUE * P RF(Z) TASCEX EMPTY QUEUE @ " P LDR* A1,A5 GET NEXT IN CHAIN b , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NE
0x03851c…0386b0 Dummy {f00=0x0031, f01=0x0190, f02=» LD A5,TASTTA 4 P ST A7,TTB:SA+14,A5 SET RETURN CODE IN SAVED A7 P RTN A14 N P EJECT ^ 8 P****DESCRIPTION************************************* l P* : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH & P* VOLUME NAMES IN DWT
0x0386b0…038844 Dummy {f00=0x0031, f01=0x018e, f02=» A8 = ASBLK ADDR ( P* A11 = 0 WHEN NO LOCK IS WANTED. : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC F P* 8 P****EXIT PARAMETERS********************************* P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN
0x038844…0389d8 Dummy {f00=0x0031, f01=0x0190, f02=» P* : P****************************************************** PVOLCHE EQU * L P SLL A2,1 ` P SUK A2,2 r 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 P LDKL
0x0389d8…038b6c Dummy {f00=0x0031, f01=0x0190, f02=» IN CD:TAB AND COMPARE DWTVOL | P* & P LD* A6,CDTAB 0 PTAS130 SUK A6,4 F 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. ^ P LD A5,CDTAB P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11 P RF(
0x038b6c…038d00 Dummy {f00=0x0031, f01=0x0190, f02=»CK FLEXDISC P* P LDKL A8,TASECB " P ST A1,ECBFC,A8 FLEX FILE CODE 6 & P LDKL A12,0 LFLAG=UNLOCKED BEFORE P LDK A7,/A6 LOCK,WAIT P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(
0x038d00…038e94 (0, 72) Dummy {f00=0x0031, f01=0x414e, f02=» . D " V T 0 T , ( 2 ^ S W . : ^ H D ! P P P W #P 7T< ?R4 MP SP }W P P W W P8 R p H D ! W R W P W6 %T 9U cSP kP oW U U. R P W P8 , (
0x038e94…039028 Dummy {f00=0x0031, f01=0x2008, f02=»
0x039028…0391bc Dummy {f00=0x0031, f01=0x0190, f02=» " P* 2 = NO FREE ENTRY IN TABLE 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL * ( P* 4 = ONE OR MORE VOLUMES UNKNOWN f " P* 5 = FILE CODE ALREADY USED P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE
0x0391bc…039350 Dummy {f00=0x0031, f01=0x0190, f02=»FILES ALREADY ASSIGNED 0 P* 12= SIZE OF DISC BUFFERS NOT SUFFICIENT 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST R P EJECT P* P*************** P* ENTRIES * P*************** P* P ENTRY TASS P ENT
0x039350…0394e4 Dummy {f00=0x0031, f01=0x0190, f02=»NTRY TASVOL P ENTRY TASCXO P ENTRY TASSEX * P ENTRY TASXLB @ P ENTRY TASFDB V P ENTRY TASVRL l P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TASFIL,TASTID,TASMXA,TASSPW P ENTRY TASFDD,TASTBE $
0x0394e4…039678 Dummy {f00=0x0031, f01=0x0190, f02=» ~ P* P EXTRN DFTAB P EXTRN DFTABE & P EXTRN CDTAB < P EXTRN DWTVOL P P EXTRN FNDTID f P EXTRN DMTASS | P EXTRN ACTOT P EXTRN TDISP P EXTRN QTJOB P EXTRN LKMQDI P EXTRN TTB:SA P EXTRN TTB:TD,
0x039678…03980c Dummy {f00=0x0031, f01=0x0190, f02=»*** P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANCOR : * PTASTTA DATA 0 REQUESTING TTAB ADDRESS b PTASASB DATA 0 ASBLK ADDRESS * PTASCVO DATA 0 CURRENT OFFSET IN TASVOL 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (D
0x03980c…0399a0 Dummy {f00=0x0031, f01=0x0190, f02=»ER, EXTENT NUMBER v * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,0,0 THREE MORE ENTRIES H PTASXLB DATA 0 EXTENT LENGTH t P DATA 0 EXTENT BASE ( P DATA 0,0,0,0,0,0 THREE MORE ENTRIES PTASFDB DATA 0 FDB ADDRESS $ PTASVRL
0x0399a0…039b34 (0, 73) Dummy {f00=0x0032, f01=0x018e, f02=»M TASFDB =0 INDICATES EXT #0 NOT FOUND % P LDK A3,0 & . * P* A1=PAR,A2=ADR,A3=SEGM,A5=TTAB ADDR & @ " P CF A15,ACTOT ACTIVATE DMTASK & n P ABL TDISP GO TO DISPATCHER & P EJECT & P* & P* ERROR RETURNS & P* & PTASSE5 ADK A7,1 &
0x039b34…039cc8 Dummy {f00=0x0032, f01=0x4064, f02=» & P CF A14,TASCAQ CHECK ASSIGN QUEUE ' " P ABL LKMQDI QUEUE AND DISPATCH ' . P END ' T@ ' `DR & @ " P CF A15,ACTOT ACTIVATE DMTASK & n P ABL TDISP GO TO DISPATCHER & P EJECT & P* & P* ERROR RETURNS & P* & PTASSE5 ADK A7,1 &
0x039cc8…039e5c Dummy {f00=0x0032, f01=0x2008, f02=» (
0x039e5c…039ff0 Dummy {f00=0x0032, f01=0x0190, f02=» , ( ' " ! P ! _ ! , ( G _ ! * R X " P 4 , ( g V C :AP Z P ! * ! d , ( @R _* ! Y y Y , ( @ ! f ! X ( X $ , ( _" _* 9D
0x039ff0…03a184 Dummy {f00=0x0032, f01=0x0190, f02=» V 5 9 F A R K * QW c gTR wT P f H D ! f P P T R 1 3Q 5R ePZ uP yT* P > H D ! V. $ X ' +P /P 3P 7P EW M OQ H D !M QW W YP ]W R, T:
0x03a184…03a318 Dummy {f00=0x0032, f01=0x0190, f02=» eTB oT8 s uRH wT0 P P * n H D !& R P R P * Vr P4 R V. * H D ! ? IQ U e i $ u $ R T v H D ! VD M * Q WP i P6 P, P P
0x03a318…03a4ac Dummy {f00=0x0032, f01=0x4124, f02=» X Z H D ! ! - 9T =W C U aT cWD s w < T H D !z W * Z * R ! < #R Y p T P PH P P P P b H D !2 'P -P W T N ;P ? QRn cP iV qP yP R: P
0x03a4ac…03a640 Dummy {f00=0x0032, f01=0x0190, f02=» F IDENT DEBUG dBUG |BUG . , ( A @ ~ A > , ( ! A ~ @ A A @ A n , ( A A @ A A @ A a A W o , (
0x03a640…03a7d4 (0, 74) Dummy {f00=0x0032, f01=0x018e, f02=»UFSTA P EXTRN BUFSNR P EXTRN BUFDMI $ P* : P EXTRN QFDBFL D P EXTRN FDBSTA Z P EXTRN FDBEND p P EXTRN FDBECB P EXTRN FDBEXT P EXTRN EXTDMI P EXTRN EXTLEN P EXTRN EXTBAS P EXTRN FDBRLE
0x03a7d4…03a968 Dummy {f00=0x0032, f01=0x0190, f02=» . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO 6 $ P EXTRN MXIND,CRNQUE,DMTWM,MPYMOD R P EXTRN TASASB z P EXTRN TASCVO P EXTRN TASVOL P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB P EXTRN TAS
0x03a968…03aafc Dummy {f00=0x0032, f01=0x0190, f02=» EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCAQ $ P EXTRN VOLCHE : P EJECT P PX:A EQU 0 ^ , PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE p PX:B EQU 0 0 PINDXAC EQU 0 INDEX ACCESS FUNCTIONS WHEN = 1 P EJECT P* P**********
0x03aafc…03ac90 Dummy {f00=0x0032, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* 0 PVTFSNO EQU 8 : PVTFXNO EQU 10 N PVTFXLE EQU 14 d PVTFXBA EQU 18 z PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38
0x03ac90…03ae24 Dummy {f00=0x0032, f01=0x0190, f02=»4 WORDS P DATA 0,0 STACK PDMTA14 EQU *-2 ( P EJECT > P* L P************** V P* DMTIOC * l P************** P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WI
0x03ae24…03afb8 Dummy {f00=0x0032, f01=0x0190, f02=»,/FEFF BIT 7 ONLY RETRIES P RF(Z) DMTIOX " P ADKL A14,4 8 P ANK A1,/80 L $ 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 PDMTI
0x03afb8…03b14c Dummy {f00=0x0032, f01=0x018e, f02=»SS EQU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT L P CM TASMXA MASTER INDEX ADDR l P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8
0x03b14c…03b2e0 Dummy {f00=0x0032, f01=0x0190, f02=» P LDR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN . P ABL DMTASX L PDMT010 EQU * ` P* t P LDKL A8,TASECB ~ P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF A14,CLRBUF RELEASE ALL
0x03b2e0…03b474 (0, 75) Dummy {f00=0x0033, f01=0x018e, f02=» ADK A7,2 P RB DMT150 CHECK NEXT WORD P* 4 ( P* ONLY STANDARD FILES ARE HANDLED > P* j PDMT160 EQU * t P LC A2,VTFIOR,A3 P CCK A2,'SS' STANDARD FILE ? P RF(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(N
0x03b474…03b608 Dummy {f00=0x0033, f01=0x0190, f02=» PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN TASBLK " P* T $ P LDR A4,A3 START OF VTOC RECORD ^ 8 P LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB P SUK A1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS
0x03b608…03b79c Dummy {f00=0x0033, f01=0x0190, f02=»TFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1 0 P LD A6,TASCVO H , P ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME ^ " P LD A2,VTFXLE,A4 EXTENT-LENGTH P ST A2,TASXLB,A1 P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1
0x03b79c…03b930 Dummy {f00=0x0033, f01=0x0190, f02=»BING THE FILE ALREADY EXISTS. v P* & P LD A12,TASFDB 0 * P RF(Z) DMT190 FIRST TIME EXT #0 FOUND F P LDK A7,7 t $ P ABL DMTASX EXT #0 ALREADY FOUND PDMT190 EQU * P LDKL A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 P ANK A
0x03b930…03bac4 Dummy {f00=0x0033, f01=0x018e, f02=»DBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC REC ( P LD A2,FDBMIA,A12 P " P RF(NZ) DMT205 INDEX ASS BEFOR j P LD A2,TASFIL . P ABL(E) DMT400 SAME VTOC RECORD FDB FOUND PDMT205 EQU * P LDK A7,5 FILE CODE USED
0x03bac4…03bc58 Dummy {f00=0x0033, f01=0x0190, f02=» j P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P* F P LDKL A12,FDBSTA P PDMT220 LDR* A5,A12 h P ANK A5,/01 P RF(Z) DMT230 FREE P LDR* A12,A12 GET NEXT FDB P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO C
0x03bc58…03bdec Dummy {f00=0x0033, f01=0x018e, f02=» P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL . P LDK A2,0 F P LDR A1,A12 X PDMT233 ADK A1,2 l P CWR A1,A10 P RF(E) DMT237 END OF FDB P STR A2,A1 P RB DMT233 PDMT237 EQU * P LDKL A2,/8000 P*
0x03bdec…03bf80 Dummy {f00=0x0033, f01=0x0190, f02=» P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 4 P ORRS A2,A12 SET USE BIT H P LC A2,VTLRN,A4 h P SC A2,FDBLRN,A12 P LD A2,VTLRN+1,A4 P ST A2,FDBLRN+1,A12 P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2
0x03bf80…03c114 (0, 76) Dummy {f00=0x0035, f01=0x0190, f02=»3,A1 5 2 P CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS 6 P CW A1,DWTUTQ,A6 OVERFLOW? 6 B P RF(NE) IHKB20 NO! 6 d 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 6 ~ P RF IHKB30 6 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER 6 4 PIHKB30 SCR A2,A3
0x03c114…03c2a8 Dummy {f00=0x0035, f01=0x0004, f02=»
0x03c2a8…03c43c Dummy {f00=0x0035, f01=0x018e, f02=» 0 P IDENT DMFDB REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P* P* P*
0x03c43c…03c5d0 Dummy {f00=0x0035, f01=0x0190, f02=» H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* P P ENTRY FDBSTA Z P ENTRY FDBEND p P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6 P* MXSIZ IS T
0x03c5d0…03c764 Dummy {f00=0x0035, f01=0x0190, f02=» EQU 12 SIZE CRN BUFFER P* < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS * 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER j P* PX:B EQU 50 " PCRNBAR EQU 00120 CURRENCY AREA P* P* PX:A EQU 250
0x03c764…03c8f8 Dummy {f00=0x0035, f01=0x0190, f02=»AR EQU 00245 P* & PQFDBFL EQU 96 FDB FIX PART LENGTH P* H P EJECT R P* ` PFDBSTA EQU * j P RES QFDBAR ~ PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU * * PMXIND DATA MXINDE-* LE
0x03c8f8…03ca8c Dummy {f00=0x0035, f01=0x40e4, f02=»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 J PMXINDE EQU * END INDEX INDEX V 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX z PMXAR EQU * P RES MXSIZ P END @ EQU * * PMXIND DATA MXINDE-* LE
0x03ca8c…03cc20 Dummy {f00=0x0035, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x03cc20…03cdb4 (0, 77) Dummy {f00=0x0037, f01=0x0190, f02=»T YES 5 P LDR A3,A1 6 2 P CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS 6 P CW A1,DWTUTQ,A6 OVERFLOW? 6 V P RF(NE) IHKB20 NO! 6 x 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 6 P RF IHKB30 6 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER 6
0x03cdb4…03cf48 Dummy {f00=0x0037, f01=0x0004, f02=»
0x03cf48…03d0dc Dummy {f00=0x0037, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x03d0dc…03d270 Dummy {f00=0x0037, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA P* COMPUTER J P*CALLING SEQUENCE: $ P* A1-A2 = ARG1 v $ P* AG-A7 = ARG2 P* CF A14,ADDMOD & P*RETURN : RESULT IN A1
0x03d270…03d404 Dummy {f00=0x0037, f01=0x0190, f02=» ANK.L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 > P RF(3) OVER1 ^ 0 PNOVER ADR A1,A6 * NO OVERFLOW ~ P RF(1) END1 P RF(2) END2 P RF(3) END3
0x03d404…03d598 Dummy {f00=0x0037, f01=0x0190, f02=» ADK A1,1 P RF(3) OVER3 P RB(7) NOVER 6 POVER3 ADR A1,A6 V P RF(2) END3 v P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 PEND3 ADK A3,/8
0x03d598…03d72c Dummy {f00=0x0037, f01=0x40ee, f02=»**** V P ANK.L A3,/0300 P LDK.L A4,/FCFF . P AN.S A4,2,A14 P B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM r P RTN A14 P END @ PEND3 ADK A3,/8
0x03d72c…03d8c0 Dummy {f00=0x0037, 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
0x03d8c0…03da54 (0, 78) Dummy {f00=0x003b, f01=0x0190, f02=»B ADDRESS % ~ 2 P LD A4,FDBCEX,A6 CURRENT EXTENT BLOCK POINTER & P LD A1,EXTDMI,A4 DMIDENT, FC & H " P LD A2,FDBSNR,A6 SECTOR NUMBER & l P LD A9,DWTECB,A6 DM ECB & , P SC A1,ECBFC,A8 FILE CODE OF DISC VOLUME & P LDR A4,A2 SAVE & P LDKL A5,SECTL
0x03da54…03dbe8 Dummy {f00=0x003b, f01=0x018e, f02=» & d 0 P* RETURN IF SECTOR MUST BE READ FROM DISC ' P LDKL A2,-1 RET CODE ' < PGTB040 EQU * ' X P ST A4,ECBCW,A8 SECTOR NR ' l P LDR A5,A3 ' 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ' P ST A5,ECBBA,A8 ' P LD A5,DWTOR,A6 ' P A
0x03dbe8…03dd7c Dummy {f00=0x003b, f01=0x0190, f02=» ' j P RB GTB040 STORE ORDER CODE ( P EJECT ( , 8 P****DESCRIPTION************************************* ( : P* ( v D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO ( P* ( 8 P****ENTRY PARAMETERS******************************** (
0x03dd7c…03df10 Dummy {f00=0x003b, f01=0x0190, f02=»************ ( h P* ) P* A1=A5=A6= FDB ADDRESS ) P* A2,A3 = LOG RECORD NO ) @ P* ) b 8 P****USED REGISTERS********************************** ) l P* ) P* A1 - A7 ) P* ) : P****************************************************** )
0x03df10…03e0a4 Dummy {f00=0x003b, f01=0x0190, f02=»TH ) r P LD A7,FDBCEX,A1 EXT ADDR * ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH * , PGTL050 EQU * * X P CWR A3,A7 * l . 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 ADK
0x03e0a4…03e238 Dummy {f00=0x003b, f01=0x018e, f02=» TOTAL NO OF SECTORS * ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS + P* + H ( P* CONVERT FDBRRO TO NO OF RECORDS + R 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
0x03e238…03e3cc Dummy {f00=0x003b, f01=0x0190, f02=» + PGTL150 EQU * , P ADK A7,1 RECORD COUNTER , P SUR A6,A4 , < * P RB(NN) GTL150 COUNT RECORDS IN SECTOR , N P* , | , P* ADD SECT*BLOCFACT AND RECINCURRSECT , P* , P ADR A2,A7 , P RF(O) GTL160 OVERFLOW , P RF GTL170 , PGTL160
0x03e3cc…03e560 Dummy {f00=0x003b, f01=0x4052, f02=» P LDR A1,A5 FDB ADDR - P LDR A6,A5 - P RTN A14 - 2 P END - B@ - NNN) GTL150 COUNT RECORDS IN SECTOR , N P* , | , P* ADD SECT*BLOCFACT AND RECINCURRSECT , P* , P ADR A2,A7 , P RF(O) GTL160 OVERFLOW , P RF GTL170 , PGTL160
0x03e560…03e6f4 (0, 79) Dummy {f00=0x003e, f01=0x0190, f02=»NPUT CHARACTER - v P* . P* ON ENTRY: . P* . 6 P* A2 = CHARACTER . @ P* A3 = BUFFER INDEX . P* A6 = DWT-ADDRESS . z P* A7 = ORDER . P* . P* . P* ON EXIT: . P* . P* A1 = RETURN CODE . P* .
0x03e6f4…03e888 Dummy {f00=0x003e, f01=0x0190, f02=»D=1 . P* / P CWK A7,2 ORDER 2? / P RF(NE) CHEK05 NO / 0 P ANK A1,/20 / J ( P ORK A1,/5F 5F OR 7F AS UPPER LIMIT / ^ P LDK A4,/20 LOWER LIMIT / P RF CHEK08 / P* / P XIF / P* / PCHEK05 ANK A1,/10 / P RF(NE) CHEK06 /
0x03e888…03ea1c Dummy {f00=0x003e, f01=0x0190, f02=» CHERRO CODE CHECK ERROR / P SUR A4,A2 0 " P RF(P) CHERRO CODE CHECK ERROR 0 2 P LDR* A1,A15 0 X PCHEK10 LDK A1,0 RETURN CODE 0 l PCHEK20 RTN A5 0 P* 0 P* 0 P* CODE CHECK ERROR 0 P* 0 . PCHERRO LDK A1,4 SET RETURN CODE AND RE
0x03ea1c…03ebb0 Dummy {f00=0x003e, f01=0x0190, f02=» THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER 0 P* 1 D P* 1 N PIHKB EQU * 1 X P IFT NOLJE=1 1 j P LDR* A3,A6 GET ALLOW BITS 1 ~ P ANK A3,/C0 1 4 P RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS 1 P LDK A4,1 1 P ANK A3,/8
0x03ebb0…03ed44 Dummy {f00=0x003e, f01=0x0190, f02=» EQU * 1 P XIF 2 P* 2 P IFT CONVER=1 2 $ P* 2 : P LDR A4,A2 INPUT WORD 2 D " P SRL A4,11 DEVICE ADDRESS * 2 2 b P ANK A4,/E 2 $ P CC A4,DWTBC,A6 8-BIT SETTING ? 2 P RF(NE) IHKB03 2 P LDR A3,A2 2 P ANK A3,/3F 2 P SUK A3,/3
0x03ed44…03eed8 Dummy {f00=0x003e, f01=0x018e, f02=» 2 | P RF IHKB04 3 4 PIHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS 3 P RF(E) IHKB04 3 R P LDR A4,A2 3 h P ANK A4,/FF 3 z P SRL A4,3 LINE INDEX 3 P ADR A3,A4 3 $ P LDR* A3,A3 COLUMN TABLE ADDRESS 3 P RF(E) IHKB04 3 P LDR A4,A2 3
0x03eed8…03f06c Dummy {f00=0x003e, f01=0x0190, f02=» P* 4 P IFT NOLJE=1 4 P* 4 " P LDR A3,A2 4 , P ANK A3,/3F 4 > P SUK A3,/22 4 R P RF(Z) IHNOL6 4 f P SUK A3,1 4 | P RF(NZ) IHNOL8 4 P RF IHNOL7 4 PIHNOL6 ADK A2,7 4 PIHNOL7 ANKL A2,/FF3F 4 PIHNOL8 EQU * 4 P* 4 P
0x03f06c…03f200 Dummy {f00=0x003e, f01=0x0190, f02=»STORE CHARACTER IN DWT-BUFFER 4 ~ P* 5 & P IFT CTIMUT=1 5 0 P* 5 F P LD A3,DWTTP,A6 5 P * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 5 h P LDKL A3,-TIME RESTART TIME 5 P ST* A3,DWTTP,A6 5 P* 5 P XIF 5 P* 5 , PIHKB05 ABL LDREG RETUR
0x03f200…03f394 (0, 80) Dummy {f00=0x0040, f01=0x0190, f02=»FF 5 t P ORS A2,8,A8 SET RETURN CODE 6 P XIF 6 . P LDK A4,1 IND RECOVERY 6 : * P ABL ACT005 START RECOVERY OF PRINTER 6 X & PRCTP10 ABL TDISP GO TO DISPATCHER 6 P EJECT 6 P* 6 P* B C D T B Y 6 P* 6 4 P* SUBROUTINE TO CONVERT TO B
0x03f394…03f528 Dummy {f00=0x0040, f01=0x0190, f02=»N) BCDTB2 END 6 P SUK A1,6 DECREMENT BY 6 7 P RB BCDTB1 7 6 " PBCDTB2 RTN A5 RETURN TO CALLER 7 J P* 7 p P* 7 z P* 7 P* 7 P* 7 P* G R A S P 7 P* 7 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK 7 P* 7 P* 7
0x03f528…03f6bc Dummy {f00=0x0040, f01=0x0190, f02=» 7 ~ P CF A5,OUTPUT 8 P ANK A2,VOIN VOUCHER IN ? 8 P RF(NZ) GRAS10 YES 8 @ " P LDK A2,TETX DUMMY AFTER GRASP 8 Z P CF A5,OUTPUT 8 P LDK A2,LFF LIFT TO TOP 8 P CF A5,OUTPUT 8 P RTN A5 8 PGRAS10 LC A3,DWTALN,A6 8 P RTN A5 8
0x03f6bc…03f850 Dummy {f00=0x0040, f01=0x0190, f02=» 8 b P* 9 P* 9 P* 9 PRELEAS EQU * 9 & P LDK A1,0 9 : 0 P SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 9 L ( P LDKL A3,BUF5 LIFT TO TOP AND RELEAS 9 P LDK A2,LFF LIFT TO TOP 9 P CF A5,OUTPUT 9 P ANK A2,VOIN VOUCHER IN ? 9 P RF(
0x03f850…03f9e4 Dummy {f00=0x0040, f01=0x0190, f02=»CHARACTER IN OUTPUT BUFFER 9 P* : " P* : , 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS : 6 P ANK A4,/FF MASK : n , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER : $ P LCR A2,A3 GET OUTPUT CHARACTER : P CF A5,OUTPUT SEND CHARACTER : P SUK A
0x03f9e4…03fb78 Dummy {f00=0x0040, f01=0x4040, f02=» : P* ; P* ; P* ; P* ; & P END ; 0@ ; < A4,A3 GET NUMBER OF OUTPUT CHARACTERS : 6 P ANK A4,/FF MASK : n , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER : $ P LCR A2,A3 GET OUTPUT CHARACTER : P CF A5,OUTPUT SEND CHARACTER : P SUK A
0x03fb78…03fd0c Dummy {f00=0x0040, f01=0x2008, f02=» < * 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
0x03fd0c…03fea0 Dummy {f00=0x0040, f01=0x0190, f02=»NN) IHKB10 NO,STORE CHARACTER IN DWT-BUFFER 4 P* 5 4 P IFT CTIMUT=1 5 > P* 5 T P LD A3,DWTTP,A6 5 ^ * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 5 v P LDKL A3,-TIME RESTART TIME 5 P ST* A3,DWTTP,A6 5 P* 5 P XIF 5 P* 5 , PIHKB05 A
0x03fea0…040034 (0, 81) Dummy {f00=0x003a, f01=0x2008, f02=»
[…0x1…]
0x0401c8…04035c Dummy {f00=0x003a, f01=0x0190, f02=» P ADR A8,A6 $ P LD A9,DWTECB,A6 DM ECB ADDRESS PDMTIT0 EQU * > P LD A1,ECBRC,A8 R P RF(Z) DMTIOX DISC I/O OK j P ANKL A1,/FEFF $ P RF(NZ) DMTIT1 NOT ONLY RETRIES P LDKL A2,/100 P ORS A2,ECBRC,A9 USER RC P RF DMTI
0x04035c…0404f0 Dummy {f00=0x003a, f01=0x0190, f02=» P* GET BUFFER ADDR ! P SUK A2,8 BUFSTA ! ( , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER ! @ P LDK A1,/02 DISC IO ERROR ! p " P LDKL A2,/FF7E NOT BIT 8 OR 15 ! P AN A2,ECBRC,A8 ! P ABL(NZ) DMTIOX ! P LD A1,ECBRC,A8 BIT 8 OR 15 !
0x0404f0…040684 Dummy {f00=0x003a, f01=0x0190, f02=»RAM ! x P* " P* IN: A1 = FDB ADDR " P* A8 = ECB ADDR " 2 P* OUT: " L P* A1 = RET CODE " P* A2 = DESTROYED " v P* A6 = FDB ADDR " P* A8 = ECB ADDR " P* A9 == USER ECB " P* " PDMTIOZ LDR A6,A1 " P LD A2,D
0x040684…040818 Dummy {f00=0x003a, f01=0x018e, f02=»INDEXED RANDOM READ " " P LD A1,FDBADF,A6 FDB DATA FILE # PDMTIZ1 EQU * # B P LD A9,DWTECB,A1 USER ECB # V P RB DMTIT0 # x P EJECT # 8 P****DESCRIPTION************************************* # P* # 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DIS
0x040818…0409ac Dummy {f00=0x003a, f01=0x0190, f02=» # Z P* $ P* A1 = FDB ADDRESS $ , P* FDB-CEX,ECB,SNR,RRO $ . 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI $ ^ P* A8 = ECB ADDR $ P* $ 8 P****EXIT PARAMETERS********************************* $ P* $ P*
0x0409ac…040b40 Dummy {f00=0x003a, f01=0x0190, f02=» IN $ V < P* THE FOUND CORE BUFFER % P* A3 = BUFFER ADDRESS % L P* A5 = ORDE R CODE % l P* A8 = ECB ADDR % P* A9 = DM ECB ADDR % P* % 8 P****USED REGISTERS********************************** % P* %
0x040b40…040cd4 (0, 82) Dummy {f00=0x0043, f01=0x018e, f02=»ATA REQUESTS FROM PRINTERS CAN BE INCLUDED P* IN THE DRIVER. 2 < P* AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE N * P* TIME OUT OCCURS IS ALSO INCLUDED. P* PX:D EQU 1 PSOFTIM EQU 0 P* P* ( P* EC
0x040cd4…040e68 Dummy {f00=0x0043, f01=0x0190, f02=» P PRECHAN EQU 0 PREMFC EQU 0 PCWTRT1 EQU * 4 PCWTRT2 EQU * H PCWTRT3 EQU * PCWTRT4 EQU * p PCWTRT5 EQU * PCWTRT6 EQU * PCWTRT7 EQU * PCWTRT8 EQU * PDWREMU EQU * P EJECT P* P* :
0x040e68…040ffc Dummy {f00=0x0043, f01=0x0190, f02=»******************************************* P* 4 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 > P* v P* PDWA1 EQU /03 DEVICEADDRESS P* PCWTLT1 EQU * TABLE ENTRY 0 PCWTLDW EQU *-CWTLT1 LAST OUTPUT DWT-ADDRESS
0x040ffc…041190 Dummy {f00=0x0043, f01=0x0190, f02=» PCWTINR EQU *-CWTLT1 INR P INR A2,0,DWA1 ( PCWTOTR EQU *-CWTLT1 OTR > P OTR A2,0,DWA1 ^ " PCWTCIS EQU *-CWTLT1 CIO-START t P CIO A2,1,DWA1 PCWTRTC EQU *-CWTLT1 " P DATA 0 RETRANSMISSION COUNTER $ PCWTEQ EQU *-CWTLT1 END
0x041190…041324 Dummy {f00=0x0043, f01=0x018e, f02=» DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ( PACKTIM EQU *-CWTLT1 X ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR t P* P XIF P EJECT P* P* : P************************************************
0x041324…0414b8 Dummy {f00=0x0043, f01=0x0190, f02=» P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 P* F PCWTLT2 EQU * P P* d P IFT LOCHAN=2 n PDWA2 EQU /13 DEVICE ADDRESS P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD P DATA INTLT2 I
0x0414b8…04164c Dummy {f00=0x0043, f01=0x0190, f02=» r P DATA 0 END OF QUEUE P* $ P IFT ACKMUL=1 . P* D P DATA 0 NAK-ACKUMULATOR N $ P DATA 0 RETR. FAULT-ACKUMULATOR n , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P
0x04164c…0417e0 Dummy {f00=0x0043, f01=0x0190, f02=» DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD ( P DATA INTLT2 INTERRUPT TABLE H P INR A2,0,DWA2 INR l P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P*
0x0417e0…041974 (0, 83) Dummy {f00=0x0049, f01=0x0190, f02=»******************** P* * P* CONDITIONAL ASSEMBLY * < P* * P************************ | P* . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P* PX:
0x041974…041b08 Dummy {f00=0x0049, f01=0x018e, f02=»X:B EQU 0 PDAMA EQU 1 P* $ < P* IBM LABELLED DISC HANDLING MAY BE INCLUDED BY SETTING . P* X:C = 1 n P* PX:C EQU 0 PIBM EQU 1 P* 0 P* IF INIMON IS TO BE USED, DRIVER SHOULD BE . P* ADAPTED FOR RESTART BY
0x041b08…041c9c Dummy {f00=0x0049, f01=0x0190, f02=» P* CONSTANTS * P* * P************* 0 P* F & PCUADR EQU 09 CONTROL UNIT ADDRESS P & PMUXADR EQU CUADR+CUADR MUX-ADDRESS z * PSTALEN EQU 512 MAX STANDARD SEC. LEN. ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH $ PIBMLEN EQU
0x041c9c…041e30 Dummy {f00=0x0049, f01=0x0190, f02=»TA POSITION | PTIME EQU 20 DELAY - POWER ON P******************** 8 P* * T P* DWT-DISPLACEMENTS* p P* * P******************** P* P PDWTA2 EQU /12 PDWTA3 EQU /14 PDWTA5
0x041e30…041fc4 Dummy {f00=0x0049, f01=0x0190, f02=»****** P* & PFDADR DATA FDAD ACTIVATION ADDRESS P* B P EJECT L P* Z P************** d P* * z P* ACTIVATION * P* * P************** P* PFDAD EQU * ACTIVATION ENTRY P LDK A3,
0x041fc4…042158 Dummy {f00=0x0049, f01=0x0190, f02=»F A5,SETCIO A3,A4 AFFECTED ( P CM DWTRCW,A6 SAVE RETURN CODE WORD " P* N P* CHECK IF LOCKED X P* r $ P LD A1,DWTLC,A6 LOCK INDICATOR | " P CF A5,FDIX GET BIT MASK IN A3 * P ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3
0x042158…0422ec Dummy {f00=0x0049, f01=0x0190, f02=» ORDER P LDKL A1,/8001 RETURN CODE P RF FD:090 ENDIO 0 P EJECT H P* V P* ORDER? ` P* r PFD:ORD EQU * | P* P LDR A1,A7 P RF(Z) FD:070 TEST STATUS P SUK A1,1 P RF(Z) FD:040 PHYSICAL READ P SUK
0x0422ec…042480 Dummy {f00=0x0049, f01=0x0190, f02=»YSICAL WRITE P SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA & P SUK A1,/14 N P ABL(Z) UNLOAD UNLOAD ORDER b P IFT IBM=1 P ADK A1,/36 " P ABL(Z) SQREAD SEQUENTIAL READ P SUK A1,4 $ P ABL(Z) SQWRIT SEQUENTIAL WRITE
0x042480…042614 (0, 84) Dummy {f00=0x0049, f01=0x0190, f02=» P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR , P EJECT N P* P*************** f P* * ~ P* BASIC WRITE * P* * P*************** P* PFD:010 CF A5,BIO P ORK A2,
0x042614…0427a8 Dummy {f00=0x0049, f01=0x0190, f02=» P IFT IBM=1 , P LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED P CF A5,EBCDIC J PFD:018 EQU * ` P XIF t " P CF A5,FD:WRITE PERFORME WRITE P RF FD:048 GOTO FD:RC P* P****************** P* * P* PHYS
0x0427a8…04293c Dummy {f00=0x0049, f01=0x0190, f02=»5 r P RB FD:015 P EJECT P* * P********************** 4 P* * R P* WRITE DELETED DATA * p P* * P********************** P* PFD:030 CF A5,BIO P ORK A2,6 P RB FD:015
0x04293c…042ad0 Dummy {f00=0x0049, f01=0x0190, f02=»*** P* PFD:040 CF A5,BIO:RE P IFT DAMA+IBM=2 2 P LD A1,DWTLAB,A6 J P AN A1,DWTA3,A6 b P RF(Z) FD:042 TOSS DISC z P XIF P IFT IBM=1 P LDKL A4,BUF PFD:042 EQU * P XIF $ PFD:045 CF A5,FD:REA PERFORM
0x042ad0…042c64 Dummy {f00=0x0049, f01=0x0190, f02=» P LD A7,ECBRL,A8 REQ LEN ( P LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS ( P CF A5,ASCII T PFD:047 EQU * h P XIF | PFD:048 EQU * P ABL FD:RC P EJECT P IFT DAMA+IBM=0 P* P************** P* *
0x042c64…042df8 Dummy {f00=0x0049, f01=0x0190, f02=» LDR* A2,A4 KEY AREA LENGTH P LDR A1,A2 $ " P ABL(NP) END:10 ILLEGAL LENGTH 6 P SUK A1,128 " P ABL(P) END:10 ILLEGAL LENGTH p P LDR A3,A2 P* * P* IF ODD CHANGE TO EVEN NO OF BYTES P* P ADK A3,1 P SRL A3,1
0x042df8…042f8c Dummy {f00=0x0049, f01=0x0190, f02=»SEARCH KEY P LDR A3,A3 RETURN CODE P RB(NZ) FD:048 0 P* F $ P* READ RECORD WITH KEY COMMAND P P* x PFD:060 EQU * P LDKL A2,/8004 BIO P LD A3,4,A8 REQUESTED LENGTH P CWK A3,130 " P ABL(NE) END:10 ILLEGAL LENGTH
0x042f8c…043120 Dummy {f00=0x0049, f01=0x0190, f02=»TATUS * P* * P*************** ( P* @ PFD:070 EQU * J P LDKL A2,/FFF9 BIO DUMMY ^ P CF A5,FD:WRI ~ " P ANKL A3,/0201 WRITE PROTECT? P LDR A1,A3 P IFF DAMA+IBM=0 * P CF A5,VOLADR GET VOL NAME ADDR IN A
0x043120…0432b4 (0, 85) Dummy {f00=0x004a, f01=0x018e, f02=»A3,A6 P RF(Z) FD:080 TOSS LABEL P ORK A1,/20 SET BIT 10 (IBM) . PFD:080 EQU * R P XIF f PFD:090 ABL END:IO r P EJECT P* P******** P* * P* LOAD * P* * P******** P* PLOAD EQU *
0x0432b4…043448 Dummy {f00=0x004a, f01=0x0190, f02=» P* CHECK IF TOSS/IBM LABEL P* * P LDK A2,0 BIO 4 P LDKL A4,BUF J P LDK A3,38 NO OF BYTES ^ P CF A5,FD:REA | P CF A5,LD:RC P ADK A4,34 P LDR* A2,A4 P CWK A2,'TO' ( P RF(NE) LOA:10 IBM LABEL PREASSUMED
0x043448…0435dc Dummy {f00=0x004a, f01=0x0190, f02=»* READ VOLUME NAME P* P LDK A3,8 LENGTH & P LDK A2,0 BIO > * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK T * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL P RF LOA:15 P XIF P IFT IBM=1 PLOA:10 LDK A3,10 LENGTH P LDK A2,
0x0435dc…043770 Dummy {f00=0x004a, f01=0x0190, f02=» P ORS A1,DWTRCW,A6 P XIF P IFF DAMA+IBM=0 * PLOA:15 EQU * B P LDKL A4,BUF BUFFER ADDRESS V P CF A5,FD:REA z 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 TYPE OF LA
0x043770…043904 Dummy {f00=0x004a, f01=0x0190, f02=» P IFF DAMA+IBM=0 P* P* GET DWT VOL NAME ADDRESS * P* N P CF A5,VOLADR ADDRESS TO A2 X P* | P* STORE NAME IN DWT P* P LDK A3,3 PLOA:40 LD A4,BUF,A1 P STR A4,A2 P SUK A3,1 P RF(Z) LOA
0x043904…043a98 Dummy {f00=0x004a, f01=0x018e, f02=» OPENING WANTED? P* " P ANK A1,/2 A1: TOSS=6, IBM=8 " P RF(NZ) LOA:70 TOSS LABEL H P LC A1,DWTOR+1,A6 ORDER j P CCK A1,/2600 P RF(E) LOA:70 LOCK ORDER P* P* READ DATA SET LABEL P* P LD A2,ECBCW,A8 SECTOR
0x043a98…043c2c Dummy {f00=0x004a, f01=0x0190, f02=» P SLL A2,3 BIO P LDK A3,80 LENGTH P LDKL A4,BUF 4 P CF A5,FD:REA H P LDR A1,A3 RETURN CODE ^ P SLL A1,4 CHECK NO DATA BIT | P RF(NN) LOA:60 NOT NO DATA 2 P ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL PLOA:60 EQU *
0x043c2c…043dc0 Dummy {f00=0x004a, f01=0x0190, f02=» ADK A4,BOE BOE ADDRESS . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR P LDK A1,DWTBOE R $ P CF A5,STDWT STORE BOE NO IN DWT h P SUK A3,1 CRN P LDK A1,DWTCRN P CF A5,STDWT P ADK A4,EOE-BOE EOE ADDRESS P CF A5,LOGSEC
0x043dc0…043f54 (0, 86) Dummy {f00=0x0043, f01=0x0190, f02=» ! l , ( U X ! X ! W A r @ l X , ( s A x A n A z ! @ < , ( p @ rP ! ! @ pT @ rX l , ( ( W @ n @ v @ @ A ! , ( @ pX< ! T @ zP ! ! , ( _V
0x043f54…0440e8 Dummy {f00=0x0043, f01=0x0190, f02=» ! XD Y _N X ! P , ( k ! # T @ T ! _ ! ! * , ( ( _ A r A H E A v A l 4 ! Z , ( * @ P ! ! A p @ T , ( J ! _ T _ ~ A n B , ( T B A A A A
0x0440e8…04427c Dummy {f00=0x0043, f01=0x018e, f02=»T T Y v , ( ( W W ~ P C @ , ( U u h A p A n 4 @ @ vT F , ( J @ A @ A A v ! T v , ( P P P P P 1 , ( P A @ ]6W P _@ @ @ , (
0x04427c…044410 Dummy {f00=0x0043, f01=0x0190, f02=» f , ( U ! @ ! ! ! B J ! , ( T u 4 ! ! @ @ A 8 , ( @ @ T @ ! 8 ! @ xP - ! h , ( x ! W 0 " @ xP R , ( ~T }T T W ! , ( P "
0x044410…0445a4 Dummy {f00=0x0043, f01=0x018e, f02=» 0 ! A ! " ! " , ( P s ! ` A t _" A v A n ! ! ( , ( % ! R ! ! @ ! 8 X , ( ! X ! 9a D ! X ! , ( P ! T & ! _b B J B ! ! IH1501 INTSAVL
0x0445a4…044738 Dummy {f00=0x0043, f01=0x0190, f02=» , ( )H A N_ I ! " P A , ( E v . A 4 A _(" 4 , ( e P H B P W ! ! 4 d , ( _$ ! x ! 1 4 A @ ` DC15ON , ( @ @ P 0 M A 4 , (
0x044738…0448cc Dummy {f00=0x0043, f01=0x0190, f02=» h , ( X A > A 4 A , ( * 7 . ! X @ pP ! @ ! $ @ 8 , ( W P a A 4 A A A ?a h * & w :a# P @ @ @ 4 , ( * A | ! x ! x A | @ :H DW1500 ,
0x0448cc…044a60 Dummy {f00=0x0043, f01=0x0190, f02=» W A W P A A , ( : @ - R A @ @ & ; 4 V , ( =o :f"? H ! "? H ! 4 j , ( = ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ , ( = -/STUVWXYZ|,%_>?0123456789:#@'=" , ( =
0x044a60…044bf4 (0, 87) Dummy {f00=0x004d, f01=0x0190, f02=» DCWR P SUK A7,/08-/06 P RF(Z) DCEX EXCHANGE & P SUK A7,/22-/08 B $ P RF(Z) DCRR RELEASE READ BUFFER Z P SUK A7,/37-/22 $ P RF(Z) DCTP TRANSFER PARAMETERS P SUK A7,/38-/37 P IFF STAT=0 P RF(Z) DCSS SET STATUS
0x044bf4…044d88 Dummy {f00=0x004d, f01=0x0190, f02=» P* P* P* ACTIVATION FROM DCTASK P* 8 P* B PDCACTD EQU * L P SUK A7,/02 ` P RF(E) DCRDDC READ t P SUK A7,/22-/02 $ P RF(E) DCRR RELEASE READ BUFFER P SUK A7,/37-/22 $ P RF(E) DCTP TRANSFER PARAMETERS
0x044d88…044f1c Dummy {f00=0x004d, f01=0x0190, f02=» P* REQUEST FROM DC-TASK P* COMPLETE WHEN: " & P* STATUS CHANGE ON DC EQUIPMENT : $ P* SPONTANOUS MESSAGE RECEPTION d P* PDCRDDC EQU * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED PDCRTN EQU * P ABL TDISP GO TO DISPATCHE
0x044f1c…0450b0 Dummy {f00=0x004d, f01=0x018e, f02=»COMPUTER ADDRESS f : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P* V P* ` P IFF CODE=1 j & PDCTP LD A2,ECBCW,A8 GET PARAMETER ~ P XIF P IFT CODE=1 & PDCTP LC A2,ECBCW,A8 GET TCS IF ANY P ANK A2,/FF P R
0x0450b0…045244 Dummy {f00=0x004d, f01=0x0190, f02=» n P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P XIF H ( P STR A2,A6 SAVE IN FIRST WORD OF DWT T P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6 ( P LD A3,ECBRL,A8 CURSOR ADDRESS WORD
0x045244…0453d8 Dummy {f00=0x004d, f01=0x0190, f02=»D A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? , & P ABL(E) DISIOE YES!! REQUEST ERROR Z P EJECT P P PDCTP20 EQU * P IFT EM3270=0 " P LDKL A5,STB2 LOAD STACK BASE , P CF A5,FINTER DWT ALRE
0x0453d8…04556c Dummy {f00=0x004d, f01=0x0190, f02=» * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P 6 * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH > P IFT STAT=1 l P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF PDCTP30 EQU * P SUR A1,
0x04556c…045700 Dummy {f00=0x004d, f01=0x0190, f02=» P* WRITE P* P* P* COMPLETE WHEN: ( P* SUCCESFUL TRANSMISSION @ P* TIME OUT b P* v P* PDCWR EQU * P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P*
0x045700…045894 (0, 88) Dummy {f00=0x004d, f01=0x0190, f02=»RD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A3,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE 0 " P RF(Z) DCRD10 NOTHING IN QUEUE b P ( P LDR* A2,A3 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A3,6 P ST A3,ECBBA,A8 & P LD A4,-4,
0x045894…045a28 Dummy {f00=0x004d, f01=0x018e, f02=»TIMERE START TIMER P RB DCRTN P EJECT , P* : P* D P* GET WRITE BUFFER N P* h P* r P IFF TBUFL=0 | P* COMPLETE WHEN: P* BUFFER BEEN ALOCATED P* TIME OUT P* P* PDCGW EQU * & P CF A1
0x045a28…045bbc Dummy {f00=0x004d, f01=0x0190, f02=» z ( P ST A1,ECBEL,A8 STORE BUFFER LENGTH P LDK A1,0 4 P RB ENDIO COMPLETE REQUEST F PDCGW10 EQU * h P CF A15,TIMERE START TIMER | P CF A15,INSGWQ QUEUE REQUEST P RB DCRTN P XIF P EJECT P* P* P* RELE
0x045bbc…045d50 Dummy {f00=0x004d, f01=0x0190, f02=» A1,0 * P CF A15,TENDIO COMPLETE RRBUF REQUEST P RB DCRTN < P EJECT N P* P* f P* EXCHANGE p P* P* P* P* COMPLETE WHEN: " P* MESSAGE PASSED TO TERMINAL P* TIME OUT P* PDCEX EQU *
0x045d50…045ee4 Dummy {f00=0x004d, f01=0x0190, f02=» EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR < P RF(Z) DCSS20 DEVICE END X PDCSS10 EQU * x P ST A1,DWTST,A6 P RB DCRR10 COMPLETE REQUEST PDCSS20 EQU * P LD A1,DWTST,A6 P ANK A1,9 ( P R
0x045ee4…046078 Dummy {f00=0x004d, f01=0x0190, f02=»B DCSS10 P XIF P EJECT P* * P* 4 P* > P* TIMER HANDLING PART H P* f P* p P* z P* READ TIMER=TIMERR P* PTIMERE EQU * P LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE P RF(Z) TIME10
0x046078…04620c Dummy {f00=0x004d, f01=0x018e, f02=»TER p PTIME10 EQU * P RF GBUF10 RETURN P* : P* TIMEOUT READ TIMER D P* ` PTOUTRE EQU * j P LDR A6,A1 FETCH DWT ~ P CM DWTTP,A6 P IFF TBUFL=0 $ P CF A15,REMOVG REMOVE FROM QUEUE P XIF PTOUTR1 EQU * "
0x04620c…0463a0 Dummy {f00=0x004d, f01=0x0190, f02=» r 2 P ORK A1,2 RETURN CODE /42 AT EXCHANGE TIME OUT $ PTOUTR2 RB ENDIO COMPLETE REQUEST > P* f P* WRITE TIMER=TIMWR p P* PTIMEWR LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE P RB(Z) TIME10 NO TIMING P ST A2,TIMWR
0x0463a0…046534 (0, 89) Dummy {f00=0x0044, f01=0x0190, f02=» P* P* PDCRD EQU * P LD A8,DWTECB,A6 GET ECB * . P LD A3,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE J " P RF(Z) DCRD10 NOTHING IN QUEUE | P ( P LDR* A2,A3 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A3,6 P ST A3,E
0x046534…0466c8 Dummy {f00=0x0044, f01=0x0190, f02=» P $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN 4 P EJECT F P* T P* ^ P* GET WRITE BUFFER h P* P* P IFF TBUFL=0 P* COMPLETE WHEN: P* BUFFER BEEN ALOCATED P* TIME OUT P* P*
0x0466c8…04685c Dummy {f00=0x0044, f01=0x0190, f02=» P LDKL A1,TBUFL+TBUFL ( P ST A1,ECBEL,A8 STORE BUFFER LENGTH P LDK A1,0 L P RB ENDIO COMPLETE REQUEST ^ PDCGW10 EQU * P CF A15,TIMERE START TIMER P CF A15,INSGWQ QUEUE REQUEST P RB DCRTN P XIF P EJECT P*
0x04685c…0469f0 Dummy {f00=0x0044, f01=0x0190, f02=»DCRR10 EQU * P LDK A1,0 * P CF A15,TENDIO COMPLETE RRBUF REQUEST & P RB DCRTN T P EJECT f P* t P* ~ P* EXCHANGE P* P* P* P* COMPLETE WHEN: " P* MESSAGE PASSED TO TERMINAL P* TIME OUT
0x0469f0…046b84 Dummy {f00=0x0044, f01=0x0190, f02=» IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION & P ANK A1,3 MASK DB,IR T P RF(Z) DCSS20 DEVICE END p PDCSS10 EQU * P ST A1,DWTST,A6 P RB DCRR10 COMPLETE REQUEST PDCSS20 EQU * P LD A1,DWTST,A6
0x046b84…046d18 Dummy {f00=0x0044, f01=0x0190, f02=»DK A1,4 SET DE P RB DCSS10 P XIF ( P EJECT 4 P* B P* L P* V P* TIMER HANDLING PART ` P* ~ P* P* P* READ TIMER=TIMERR P* PTIMERE EQU * P LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALU
0x046d18…046eac Dummy {f00=0x0044, f01=0x0190, f02=»WTTP,A6 STORE TIMER POINTER PTIME10 EQU * $ P RF GBUF10 RETURN 8 P* R P* TIMEOUT READ TIMER P* x PTOUTRE EQU * P LDR A6,A1 FETCH DWT P CM DWTTP,A6 P IFF TBUFL=0 $ P CF A15,REMOVG REMOVE FROM QUEUE P XIF
0x046eac…047040 Dummy {f00=0x0044, f01=0x0190, f02=») TOUTR2 NOT EXCHANGE 2 P ORK A1,2 RETURN CODE /42 AT EXCHANGE TIME OUT $ PTOUTR2 RB ENDIO COMPLETE REQUEST T P* | P* WRITE TIMER=TIMWR P* PTIMEWR LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE P RB(Z) TIME10 NO TIMING
0x047040…0471d4 (0, 90) Dummy {f00=0x0044, f01=0x0190, f02=»/06-/02 P RF(Z) DCWR P SUK A7,/08-/06 $ P RF(Z) DCEX EXCHANGE < P SUK A7,/22-/08 X $ P RF(Z) DCRR RELEASE READ BUFFER p P SUK A7,/37-/22 $ P RF(Z) DCTP TRANSFER PARAMETERS P SUK A7,/38-/37 P IFF STAT=0 P RF(
0x0471d4…047368 Dummy {f00=0x0044, f01=0x0002, f02=»
0x047368…0474fc Dummy {f00=0x0044, f01=0x0190, f02=» J F IDENT EBCDIC REL 8.2 78-09-15 870105040820 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x0474fc…047690 Dummy {f00=0x0044, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( -/STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J
0x047690…047824 Dummy {f00=0x0044, f01=0x2008, f02=»
0x047824…0479b8 Dummy {f00=0x0044, f01=0x0190, f02=»E IN DC:TAB n * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? B & P ABL(E) DISIOE YES!! REQUEST ERROR p P EJECT P P PDCTP20 EQU * P IFT EM3270=0 " P LDKL A5,STB2 LOAD STACK BASE , P
0x0479b8…047b4c Dummy {f00=0x0044, f01=0x018e, f02=»TAB t P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P L * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH T 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
0x047b4c…047ce0 Dummy {f00=0x0044, f01=0x018e, f02=» P* P* P* WRITE P* , P* 6 P* COMPLETE WHEN: @ P* SUCCESFUL TRANSMISSION X P* TIME OUT z P* P* PDCWR EQU * P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN
0x047ce0…047e74 (0, 91) Dummy {f00=0x0046, f01=0x0190, f02=» P IM XSTA INDICATE MESSAGE OK F $ P LD A4,DCRBUF GET BUFFER ADDRESS F ( P ADK A4,6 F P P CW A4,FBLST F b " P RF(NE) BRM325 NOT FIRST BLOCK F v 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
0x047e74…048008 Dummy {f00=0x0046, f01=0x0190, f02=»OM-RDBCOM F & P RF(Z) RDMOD READ BUFFER RECEIVED G P XIF G < PBRM325 EQU * G H P SUK A7,1 G & P RF(Z) BRM340 MESSAGE ENDED BY ETB G n 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
0x048008…04819c Dummy {f00=0x0046, f01=0x0190, f02=»CRBUF G P RF(Z) BRM326 H P ST A2,+4,A1 H $ P XIF H 8 PBRM326 EQU * H D P CWK A6,DW1500 H X , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H n P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H P LDK A2,2 H P CW A2,DWTOR,A6 H "
0x04819c…048330 Dummy {f00=0x0046, f01=0x0190, f02=»BA,A8 STORE BUFFER ADDRESS H P LD A3,-4,A4 GET LENGTH I " * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I B & P CF A15,CTIME STOP REQUEST TIMING I p ( P ST A2,ECBCW,A8 STORE REMAINING TIME I P EJECT I P* I P* I 0 P* CHECK IF START PRINTER BIT SET
0x048330…0484c4 Dummy {f00=0x0046, f01=0x0190, f02=»TE I x P ANK A2,8 J P RF(Z) BRM328 J P LD A2,DWTST,A6 GET STATUS J 2 P ORK A2,/A J T P ST A2,DWTST,A6 J f PBRM328 EQU * J ~ P XIF J $ P CF A15,TENDIO COMPLETE REQUEST J P RF BRM345 J P EJECT J PBRM330 EQU * J P SUK A4,6 GET
0x0484c4…048658 Dummy {f00=0x0046, f01=0x0190, f02=»F A5,TRACK SEND ACK 0/1 J P ABL BRM K PBRM345 EQU * K 0 P IFT STAT=1 K D P LD A1,DWTST,A6 K X P ANK A1,8 K p $ P RB(Z) BRM340 ACK SHOULD BE SENT K P CF A5,TRWACK SEND WACK K P RF BRM410 K P XIF K P IFF STAT=1 K P RB BRM340 K
0x048658…0487ec Dummy {f00=0x0046, f01=0x0190, f02=» $ PRDBUF EQU * READ BUFFER COMMAND L PRDMOD EQU * L , " P CM XSEL RESET SELECT EXPECTED L @ 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL L f $ P LD A4,DWTBUF,A6 BUFFER ADDRESS L $ P SUK A4,2 SDJUST BUFFER ADDRESS L " P LDKL A3,1922 REQUESTED LE
0x0487ec…048980 Dummy {f00=0x0046, f01=0x0190, f02=»127 L P XIF M P* M P* M " P* ENQ HAS BEEN RECEIVED M , P* M L P* M V PBRM400 EQU * M ` & P CF A5,HPTIM STOP PROCEDURE TIMER M t P LD A1,XACK M P OR A1,XSEL M " P RF(Z) BRM410 IN CONTROL STATE M . P CF A5,TRREP REPEAT LAST CON
0x048980…048b14 (0, 92) Dummy {f00=0x0047, f01=0x0190, f02=» P RF CWR150 ^ & PCWR100 LD A8,FECB GET ECB ADDRESS ^ P CF A15,CTIME STOP TIMING ^ @ P LDR A8,A8 ^ b P RF(Z) CWR150 ^ t P ST A2,ECBCW,A8 ^ $ P CF A15,TENDIO COMPLETE REQUEST ^ PCWR150 EQU * ^ * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ^
0x048b14…048ca8 Dummy {f00=0x0047, f01=0x0190, f02=»5,CKGBQ CHECK GET BUFFER QUEUE ^ P XIF _ & PCWR900 EQU * _ 2 " P CM XACK RESET 'ACK EXPECTED' _ F P CM FDWTUT _ l P RTN A5 _ ~ P EJECT _ P* _ P* _ P* READ ONE TEXT BLOCK _ P* _ P* ON EXIT A3 CONTAINS : _ ( P* 0 : IF CORRECT
0x048ca8…048e3c Dummy {f00=0x0047, f01=0x0190, f02=»RDMESS EQU * _ $ P LD A4,DCRBUF GET BUFFER ADDRESS ` P ADK A4,6 RESERVE HEADER ` < P LDK A3,0 ` P LD A1,XSTA ` n $ P RF(NZ) RDM050 LAST INPUT WAS OK ` " P LD A1,FBLST COMPUTE NEW INDEX ` P SUR A1,A4 ` P ST A1,FBAX ` PRDM050 EQU * `
0x048e3c…048fd0 Dummy {f00=0x0047, f01=0x0190, f02=»C ` ~ P a P IFT IBMCHR=1 a P LD A1,FBAX a ( " P RF(NZ) RDM100 NOT FIRST BLOCK a < P CF A5,READP a b P RF(NZ) RDM120 PARITY ERROR a v P CWK A2,ESC a P RF(NE) RDM110 a * P CF A5,READP SKIP NEXT TWO CHARACTERS a P CF A5,READP a P X
0x048fd0…049164 Dummy {f00=0x0047, f01=0x018e, f02=»X a P RF(E) RDM130 ETX RECEIVED b P CWK A2,ETB b , P RF(E) RDM160 ETB RECEIVED b @ P CWK A2,ITB b b P RF(E) RDM170 ITB RECEIVED b v P CWK A2,ENQ b & P RF(E) RDM140 ENQ IN TEXT RECEIVED b P CWK A2,/FF b $ P RF(E) RDM140 MARK HOLD RECEIV
0x049164…0492f8 Dummy {f00=0x0047, f01=0x0190, f02=» b t P ADK A1,3 c P RF(N) RDM115 NOT DC1-DC3 c P SLL A1,6 c < P LDR A8,A1 c N * P CF A5,READP 8-BIT CHAR GET NEXT PART c ` P RF(NZ) RDM120 PARITY ERROR c * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER c P ORR A2,A8 c PRDM115 EQU * c P X
0x0492f8…04948c Dummy {f00=0x0047, f01=0x0190, f02=»BAX c P CWK A1,RBUFL+RBUFL d P RB(NG) RDM100 NOT OVERFLOW d ( P* d L P* BUFFER OVERFLOW d V P* d p P RF RDM140 ABORT INPUT d z PRDM120 EQU * d & P LDK A3,1 INDICATE INVALID MESSAGE d P SUK A2,/7F d $ P RF(Z) RDM150 MARK HOLD RECEIV
0x04948c…049620 Dummy {f00=0x0047, f01=0x0190, f02=»,FBAX GET BUFFER INDEX d 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER e P IFF CODE=1 e T P CF A5,RDLRC e h P RF(Z) RDM150 LRC WAS OK e | P XIF e P IFT CODE=1 e & P CF A5,RDCRC READ CRC AND CHECK IT e P RF(E) RDM150 CRC WAS OK e P X
0x049620…0497b4 (0, 93) Dummy {f00=0x0047, f01=0x0190, f02=»TEP SEND IT u P IM FBAX INCREMENT INDEX v P XIF v 4 PTRT116 EQU * v @ P LDK A2,ETB LOAD ETB v T PTRT120 EQU * v p P CF A5,WRITEP SEND IT v P IFF CODE=1 v P LDR A2,A7 GET LRC v P CF A5,WRITEP SEND LRC v P XIF v P IFT CODE=1 v
0x0497b4…049948 Dummy {f00=0x0047, f01=0x0190, f02=» ANK A2,/FF v " P CF A5,WRIT05 SEND CRC BYTE 2 w P XIF w : P ABL TRRE10 HALT OUTPUT w F PTRT130 EQU * w f P IM XETX INDICATE 'ETX SENT' w z PTRT140 EQU * w P LDK A2,ETX LOAD ETX w P RB TRT120 SEND ETX AND LRC w P EJECT w P* w
0x049948…049adc Dummy {f00=0x0047, f01=0x0190, f02=»' w r P ST A6,FDWTUT SAVE A6 x P CF A5,TRSYNC START OUTPUT x ( P LDK A2,SOH x J P CF A5,WRITE SEND SOH x ^ P LDK A7,0 REST LRC x | P LDK A2,'%' x P CF A5,WRITEP SEND '%' x P LDK A2,'R' x P CF A5,WRITEP SEND 'R' x P LDK A2,STX x
0x049adc…049c70 Dummy {f00=0x0047, f01=0x0190, f02=» P LD A1,DWTST,A6 GET STATUS y P ANK A1,/06 MASK FOR S/S 0 y & P SRL A1,1 y H $ P LC A2,SSTAB,A1 GET STATUS BYTE y Z P CF A5,WRITEP SEND S/S 0 y P LDK A2,NOIR PRELOAD S/S 1 y P LD A1,DWTST,A6 GET STATUS y P ANK A1,5 y P RF(Z) TRST10 NO
0x049c70…049e04 Dummy {f00=0x0047, f01=0x0190, f02=» RB TRT130 SEND ETX AND LRC y P XIF z $ P EJECT z 0 P* z > P* z H P* TRANSMIT SYNC SEQUENCE z R P* z r P* z | PTRSYNC EQU * z P LDK A2,0 SALCUZ z * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE z P SST A2,LCUIN PERFORM SST z P IFT
0x049e04…049f98 Dummy {f00=0x0047, f01=0x0190, f02=» z | P LDK A2,0 SALCUZ { , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ { " P RF(A) TRS010 SALCUZ { R P SST A1,LCUUT SALCUZ { p P RF(A) TRS005 SALCUZ { P ABL BRM SALCUZ { " PTRS005 CIO A2,1,LCUUT SALCUZ { PTRS010 EQU * SALCUZ { P L
0x049f98…04a12c Dummy {f00=0x0047, f01=0x018e, f02=» CODE=0 SALCUZ { P LDK A2,/0C SALCUZ | P CIO A2,1,LCUUT SALCUZ | 4 P RF(A) TRS010 SALCUZ | T P SST A1,LCUUT SALCUZ | r P RF(A) TRS005 SALCUZ | P ABL BRM SALCUZ | " PTRS005 CIO A2,1,LCUUT SALCUZ | PTRS010 EQU * | P LDK A2,
0x04a12c…04a2c0 Dummy {f00=0x0047, f01=0x0190, f02=» | h P LDK A3,4 4 SYNS } PTRS100 LDK A2,SYN } P CF A5,WRITE SEND SYN } : P SUK A3,1 } X P RB(NZ) TRS100 } j P RTN A5 } P EJECT } P* } P* } P* RECEIVER INTERRUPT } P* } P* } PIH1501 EQU * } P ST P,INTSAV }
0x04a2c0…04a454 (0, 94) Dummy {f00=0x0022, f01=0x018e, f02=» $ P RF(Z) DEL245 BUFFER NOT CHANGED ~ P* ~ , P* WRITE SECTOR ~ 6 P* ~ N P LDK A7,/95 WRITE WAIT ~ X P LKM ~ v P DATA 1 ~ P LDR A1,A5 FDB ~ P CF A14,DMTIOZ IO CHECK ~ P LDR A1,A1 ~ P ABL(NZ) DMTERR ~ ( P SUR A12,A12 BUFFER NO
0x04a454…04a5e8 Dummy {f00=0x0022, f01=0x0190, f02=» ~ v P* P LDR A1,A5 FDB ADDR P LDK A3,0 . P CF A14,RDNXTR GET SECTOR @ P RF DEL250 OK b P LDR A6,A1 FDB ADDR x P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P LDR A13,A3 NEW BUFFER ADDR P LD A4,FDBMRO,A5
0x04a5e8…04a77c Dummy {f00=0x0022, f01=0x0190, f02=»OFFSET p P ADK A4,10 BUFSTA+2 P ADR A4,A13 RECORD ADDR * & P AD A4,FDBRLE,A5 STATUS CHAR ADDR J P LDK A2,/FF t P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME IN DELETED RECORD P CC A2,-4,A4 P RF(NL) DEL6
0x04a77c…04a910 Dummy {f00=0x0022, f01=0x4172, f02=»900 BUFFER NOT CHANGED P* P* WRITE SECTOR ( P* @ PDEL700 EQU * J P LDR A8,A14 ^ P ADKL A8,2 ECB ADDR r P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB ADDR P CF A14,DMTIOZ IO CHECK P LDR
0x04a910…04aaa4 Dummy {f00=0x0022, 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* +
0x04aaa4…04ac38 Dummy {f00=0x0022, f01=0x410c, f02=» _ H D !| W 7 * ! & % 1 ( OP WP _P gQ qR uW Rl V V V H D ! P R W R P 'W6 ; J ?V sV4 wRL Q V V R Q V ^ H D ! P V P W 'T +RB -QD 1P 9P =V CP GV MQ OP [V qW @
0x04ac38…04adcc Dummy {f00=0x0022, f01=0x0190, f02=» J F IDENT MULDIV REL 8.1 78-04-21 870172840810 > : T:MUL T:DIV T:SIGN T:BRK T:MULC T:DIVC M:BRK M:SIGNK R T:MULC T:MUL T:MOV T:SUB , ( D 0 0
0x04adcc…04af60 Dummy {f00=0x0022, f01=0x018e, f02=» 8 j T:DIVC f T:DIV j , ( W ! : 9 [ : 0 T:CMP ` , ( wD 0@ @@ 0@P p , ( 0R P [ P 0 * & _ P 0 , ( @
0x04af60…04b0f4 (0, 95) Dummy {f00=0x0026, f01=0x018e, f02=»UFSTA P EXTRN BUFSNR P EXTRN BUFDMI $ P* : P EXTRN QFDBFL D P EXTRN FDBSTA Z P EXTRN FDBEND p P EXTRN FDBECB P EXTRN FDBEXT P EXTRN EXTDMI P EXTRN EXTLEN P EXTRN EXTBAS P EXTRN FDBRLE
0x04b0f4…04b288 Dummy {f00=0x0026, f01=0x0190, f02=» . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO 6 $ P EXTRN MXIND,CRNQUE,DMTWM,MPYMOD R P EXTRN TASASB z P EXTRN TASCVO P EXTRN TASVOL P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB P EXTRN TAS
0x04b288…04b41c Dummy {f00=0x0026, f01=0x0190, f02=» EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCAQ $ P EXTRN VOLCHE : P EJECT P PX:A EQU 0 ^ , PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE p PX:B EQU 0 2 PINDXAC EQU X:B INDEX ACCESS FUNCTIONS WHEN = 1 P EJECT P* P********
0x04b41c…04b5b0 Dummy {f00=0x0026, f01=0x0190, f02=»12 PVLVRL EQU 14 PVLVER EQU 34 P* 2 PVTFSNO EQU 8 < PVTFXNO EQU 10 P PVTFXLE EQU 14 f PVTFXBA EQU 18 | PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38
0x04b5b0…04b744 Dummy {f00=0x0026, f01=0x0190, f02=»0 4 WORDS P DATA 0,0 STACK PDMTA14 EQU *-2 * P EJECT @ P* N P************** X P* DMTIOC * n P************** P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX
0x04b744…04b8d8 Dummy {f00=0x0026, f01=0x0190, f02=»A1,/FEFF BIT 7 ONLY RETRIES P RF(Z) DMTIOX $ P ADKL A14,4 : P ANK A1,/80 N $ P RF(NZ) DMT060 NEW VOLUME LOADED b P SUKL A3,BUFSTA , P CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER P LDK A7,1 P ABL DMTASX DISC I/O ERROR PDM
0x04b8d8…04ba6c Dummy {f00=0x0026, f01=0x0190, f02=»TASS EQU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT N P CM TASMXA MASTER INDEX ADDR n P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD
0x04ba6c…04bc00 Dummy {f00=0x0026, f01=0x0190, f02=» P LDR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN . P ABL DMTASX L PDMT010 EQU * ` P* t P LDKL A8,TASECB ~ P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF A14,CLRBUF RELEASE ALL
0x04bc00…04bd94 (0, 96) Dummy {f00=0x0026, f01=0x018e, f02=» ADK A7,2 P RB DMT150 CHECK NEXT WORD P* 4 ( P* ONLY STANDARD FILES ARE HANDLED > P* j PDMT160 EQU * t P LC A2,VTFIOR,A3 P CCK A2,'SS' STANDARD FILE ? P RF(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(N
0x04bd94…04bf28 Dummy {f00=0x0026, f01=0x0190, f02=» PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN TASBLK " P* T $ P LDR A4,A3 START OF VTOC RECORD ^ 8 P LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB P SUK A1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS
0x04bf28…04c0bc Dummy {f00=0x0026, f01=0x0190, f02=»TFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1 0 P LD A6,TASCVO H , P ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME ^ " P LD A2,VTFXLE,A4 EXTENT-LENGTH P ST A2,TASXLB,A1 P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1
0x04c0bc…04c250 Dummy {f00=0x0026, f01=0x0190, f02=»BING THE FILE ALREADY EXISTS. v P* & P LD A12,TASFDB 0 * P RF(Z) DMT190 FIRST TIME EXT #0 FOUND F P LDK A7,7 t $ P ABL DMTASX EXT #0 ALREADY FOUND PDMT190 EQU * P LDKL A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 P ANK A
0x04c250…04c3e4 Dummy {f00=0x0026, f01=0x018e, f02=»DBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC REC ( P LD A2,FDBMIA,A12 P " P RF(NZ) DMT205 INDEX ASS BEFOR j P LD A2,TASFIL . P ABL(E) DMT400 SAME VTOC RECORD FDB FOUND PDMT205 EQU * P LDK A7,5 FILE CODE USED
0x04c3e4…04c578 Dummy {f00=0x0026, f01=0x0190, f02=» j P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P* F P LDKL A12,FDBSTA P PDMT220 LDR* A5,A12 h P ANK A5,/01 P RF(Z) DMT230 FREE P LDR* A12,A12 GET NEXT FDB P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO C
0x04c578…04c70c Dummy {f00=0x0026, f01=0x018e, f02=» P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL . P LDK A2,0 F P LDR A1,A12 X PDMT233 ADK A1,2 l P CWR A1,A10 P RF(E) DMT237 END OF FDB P STR A2,A1 P RB DMT233 PDMT237 EQU * P LDKL A2,/8000 P*
0x04c70c…04c8a0 Dummy {f00=0x0026, f01=0x0190, f02=» P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 4 P ORRS A2,A12 SET USE BIT H P LC A2,VTLRN,A4 h P SC A2,FDBLRN,A12 P LD A2,VTLRN+1,A4 P ST A2,FDBLRN+1,A12 P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2
0x04c8a0…04ca34 (0, 97) Dummy {f00=0x0027, f01=0x0190, f02=» % PDMT405 EQU * & P SUK A2,4 NEXT OFFSET & P RF(NN) DMT407 OK & : * P RF DMT408 MASTER INDEX MUST BE FOUND & T PDMT407 CW A4,MXIND+2,A2 & P RB(NE) DMT405 NEXT ENTRY & P LDKL A4,/7FFF & & P ANS A4,MXIND+4,A2 SET ENTRY FREE & PDMT4
0x04ca34…04cbc8 Dummy {f00=0x0027, f01=0x018e, f02=»FDB USE BIT & ~ P RF DMT430 ' PDMT420 EQU * ' & P ST A12,1,A2 FDB ADDR ' : PDMT430 EQU * ' X P LDR A8,A8 ' l P RF(Z) DMT440 NO BUFFER ' ~ P LD A3,ECBBA,A8 ' P SUKL A3,BUFSTA ' " P CF A14,DMTRBU RELEASE BUFFER ' PDMT440 EQU * ' , P
0x04cbc8…04cd5c Dummy {f00=0x0027, f01=0x0190, f02=» ' P LKM ( P DATA 3 ( P EJECT ( $ PDMT500 EQU * ( 2 P LD A6,TASFIL ( F P ABL(Z) DMT700 DATA FILE ( P IFF INDXAC=1 ( | P LDKL A7,-1 REQ ERR ( P RB DMTASX ( P XIF ( P IFT INDXAC=1 ( P SUK A6,1 ( P ABL(Z) DMT600 INDEX
0x04cd5c…04cef0 Dummy {f00=0x0027, f01=0x018e, f02=»* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE ( P* ) @ P LD A7,TASTID DMTASK ID ) J P INH ) j " P CF A15,FNDTID TTAB ADDR TO A2 ) v P ENB ) P ST A2,TASSPW ) " P LDKL A3,/0100 INDEX DATA FILE ) P LD A1,TASASB ) P LC A3,1,A1 FI
0x04cef0…04d084 Dummy {f00=0x0027, f01=0x0190, f02=» P SUKL A3,BUFSTA * " P CF A14,DMTRBU RELEASE BUFFER * P* * B 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX * L P* * P LD A6,FDBRLE,A12 REC LGTH * " P LD A7,FDBLRN+1,A12 NO OF RECS * , P CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED * P SRC A
0x04d084…04d218 Dummy {f00=0x0027, f01=0x0190, f02=»NH * P LD A4,MXIND LENGTH MXIND + P SUK A4,4 MAX A5 VALUE + , P LDKL A5,-2 OFFSET + J PDMT540 EQU * + d P ADK A5,4 GET ENTRY + x P CWR A5,A4 + P RF(G) DMT570 NO ENTRY FOUND + P LD A3,MXIND,A5 + P RB(Z) DMT540 ZERO ENTRY + P LD A6
0x04d218…04d3ac Dummy {f00=0x0027, f01=0x0190, f02=» P* SUFFICIENT SPACE FOUND , P* , & P LDKL A1,/8000 USED BIT , 0 & P ORS A1,MXIND+2,A5 MARK ENTRY USED , P $ P ST A3,TASMXA MASTER INDEX ADDR , z P ST A3,FDBMIA,A12 , P LD A7,FDBLRN+1,A12 , P STR A7,A3 NO OF ENTRIES , P LD A1,FDBRLE,A1
0x04d3ac…04d540 Dummy {f00=0x0027, f01=0x0190, f02=» , x . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION - P CWR A1,A4 MXIND ENTRY - : P RF(NL) DMT590 LAST ENTRY - X P LD A3,MXIND+6,A1 - z " P RF(N) DMT590 NEXT ENTRY USED - P* - & P* MOVE SPARE WORDS TO NEXT ENTRY - P* - P LD A2,MXIND+2,A
0x04d540…04d6d4 (0, 98) Dummy {f00=0x0027, f01=0x0190, f02=» P LD A1,TASMXA 6 ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 6 P RF DMT720 6 F ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 6 X * PDMT640 ADK A7,1 A7=11=4 INDEX ALREADY 6 $ PDMT650 EQU * A7=10=NO DATA FILE 6 P ABL DMTASX 6 P XIF 6 P EJECT 6 " P
0x04d6d4…04d868 Dummy {f00=0x0027, f01=0x0190, f02=» SLL A1,1 6 $ P ORS A1,FDBDBR,A12 DELAY + BASIC 7 PDMT720 EQU * 7 : P* 7 N ( P* SET FDBMRN TO MAX REC NO IN FILE 7 X P* 7 P LDR A1,A12 7 P ADKL A1,FDBNIF 7 P ADKL A1,EXTELE-2 7 PDMT750 SUKL A1,EXTELE 7 P LDR* A2,A1 EXT BASE 7
0x04d868…04d9fc Dummy {f00=0x0027, f01=0x0190, f02=» 7 ~ P LDR A1,A12 8 " P CF A14,GTLGRN GET LOG REC NO 8 P LDK A1,0 8 B " P LC A1,FDBBLF,A12 BLOCK FACTOR 8 T P SUK A1,1 8 z P ADR A3,A1 8 P RF(O) DMT760 8 P RF DMT770 8 PDMT760 ANKL A3,/7FFF 8 P ADK A2,1 CARRY 8 PDMT770 SC A2,F
0x04d9fc…04db90 Dummy {f00=0x0027, f01=0x40da, f02=»A12 REC LENGTH 8 P ADK A6,1 9 P LDK A7,0 9 ( P LC A7,FDBBLF,A12 BLOCK FACT 9 : P SUK A7,1 9 ^ P CF A14,MPYMOD A1,A2=A6*A7 9 p P ST A2,FDBMRO,A12 MAX FDBRRO 9 P ABL DMT400 9 P END 9 @ 9 8 P ADK A2,1 CARRY 8 PDMT770 SC A2,F
0x04db90…04dd24 Dummy {f00=0x0027, 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
0x04dd24…04deb8 Dummy {f00=0x0027, f01=0x0190, f02=» A4,4 ADJUST ADDRESS TO DWT P LDR* A6,A4 GET DWT ADDRESS $ $ P RB(Z) RST100 DWT NOT IN SYSTEM H P LDKL A9,ITADI p $ P CW A9,DWTADR,A6 INTERTASK DWT? P RF(E) RST120 YES! P LDKL A9,ITADO $ P CW A9,DWTADR,A6 INTERTASK DWT? P R
0x04deb8…04e04c Dummy {f00=0x0027, f01=0x0190, f02=»T ECB ~ & P CM DWTTQ,A6 RESET TERMINAL QUEUE P RB RST100 NEXT DEVICE 8 P EJECT V P* d P* n P* RESET BLOCK POOL x P* P* PINI210 EQU * P LDKL A4,TIMQUE TIMER QUEUE PINI214 EQU * * P LDR* A4,A4 NEXT TIMER
0x04e04c…04e1e0 Dummy {f00=0x0027, f01=0x018e, f02=»TIMER POINTER P RB INI214 PINI218 EQU * ( P CM TIMQUE RESET TIMER QUEUE < & P LD A1,BLOCKL LENGTH OF BLOCK POOL ` $ P LD A2,BLOCKS BLOCK POOL ADDRESS 0 P ST A2,FREQUE INITIALIZE FREE QUEUE POINTER PINI220 EQU * P SUK A1,6
0x04e1e0…04e374 (0, 99) Dummy {f00=0x0052, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f ] =IR E
0x04e374…04e508 Dummy {f00=0x0052, f01=0x0004, f02=» H P
0x04e508…04e69c Dummy {f00=0x0052, f01=0x0190, f02=» J F IDENT DMTASK REL 8.2 78-09-15 870105040820 ( $ DMTASKKdSQRdQSW QIRNY QIRR DMTWM R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x04e69c…04e830 Dummy {f00=0x0052, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TD F , ( w $ -_ D U 1 X CDTAB , ( W T ` U @ M FDBRRO ECBBA , ( B @ W : X
0x04e830…04e9c4 Dummy {f00=0x0052, f01=0x0190, f02=» FDBDBR2 " DWTOR 4 , ( @ X P D V D D , ( "? P P &P E t FDBECB GTBKBU , ( 9$ V P ( ( DMTIOT *
0x04e9c4…04eb58 Dummy {f00=0x0052, f01=0x0190, f02=» h FDBSNRL VLVRL FDBVTO * , ( @ X T T " A ( < DIVMOD l VLVBA ~ * & D J $ & P W T , ( B ( Y P T " _ Y DMTRBU CLRBUF
0x04eb58…04ecec Dummy {f00=0x0052, f01=0x0190, f02=» DWTTDM ECBFC , ( % 0 ( T X 2 F " , ( ? 4 T P R TCTAB , ( ] ` 6 U @ 6 , D Z D , ( y ] 0 X W , ( B ` U @
0x04ecec…04ee80 Dummy {f00=0x0052, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : , ( > @ (@ / O L DWTTQ | QTJOB , ( @ B $P % 4 D F , ( 4 (@ B * P , ( 9
0x04ee80…04f014 (0, 100) Dummy {f00=0x0052, f01=0x0190, f02=» P* P* TIMING AND ACTIVATION P* 0 PTIM010 EQU * : $ P CF A15,FNDTID FIND TTAB-ADDRESS N P LDR A2,A2 v " P ABL(Z) LKMRQE TTAB NOT FOUND ( P LDR A3,A2 IN BLOCK A3=TTAB-ADDRESS , P LDR A2,A4 A2=DISPATCH ADDRESS
0x04f014…04f1a8 Dummy {f00=0x0052, f01=0x0190, f02=»SETIME PPAR2 DATA TIMACT,0 P ABL LKMQDI ( P EJECT < P* J P* T P* RETURN AFTER TIME OUT ^ P* P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB-ADDRESS , P CF A15,QTJOB AND QUEUE FOR DISP
0x04f1a8…04f33c Dummy {f00=0x0052, f01=0x0190, f02=»LOCK ADDRESS " P CF A15,FREBLK AND SET IT FREE P LDR A5,A3 SET TTAB-ADDRESS : . P LD A3,SRUN GET POINTER TO RUNNIG SEGMENT ^ $ P RF(Z) TIMA JMP IF ROOT SEGMENT 0 P SU A2,2,A3 ELSE CALCULATE RELATIVE ADDRESS PTIMA EQU * * P LDK A7,0
0x04f33c…04f4d0 Dummy {f00=0x0052, f01=0x0190, f02=»S E T I M E , S E T I M P P* " . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , * P* AND IF SETIMP, STORE TIMER POINTER ^ P* ENTRY PARAMETERS:- P* P* A1 = PARAMETER . P* A4 = IF SETIMP: TIMER POINTER ADDRESS , P* P1 =
0x04f4d0…04f664 Dummy {f00=0x0052, f01=0x018e, f02=» P* EXIT PARAMETER:- P* $ P* A4 = ADDRESS TO TIMER . P* P P* Z PSETIME EQU * d P LDK A4,0 x PSETIMP EQU * P CF A15,SAVE8 * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD F
0x04f664…04f7f8 Dummy {f00=0x0052, f01=0x0190, f02=» ( P ST A5,20,A15 ADJUST PROGRAM COUNTER $ P CF A15,GETBLK GET A FREE BLOCK 0 P LDR A2,A4 X P C1R A1,A8 j " P CF A15,GETBLK GET TIMER BLOCK | P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P S
0x04f7f8…04f98c Dummy {f00=0x0052, f01=0x403e, f02=»R j PSETEND ABL IHRET8 P* $ P END .@ : GET A FREE BLOCK 0 P LDR A2,A4 X P C1R A1,A8 j " P CF A15,GETBLK GET TIMER BLOCK | P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P S
0x04f98c…04fb20 Dummy {f00=0x0052, 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
0x04fb20…04fcb4 (0, 101) Dummy {f00=0x0053, f01=0x418a, f02=» ) + - X H D ! @ 5P CT OP WWv ]P cR iPd mW` sQ y T T P: T W0 P* H D ! T W& P" T W T P P< WH P R< T P T %W ) ` H D ! 1 ` 9R C b uW }T PX Q P PD P R T R T R P H D !@ %PN ) /P
0x04fcb4…04fe48 Dummy {f00=0x0053, f01=0x408e, f02=» J F IDENT INTLT1 REL 8.1 78-04-21 870105040810 INTLT1 R INTLT1 d x@
0x04fe48…04ffdc Dummy {f00=0x0053, f01=0x408e, f02=» J F IDENT INTLT2 REL 8.1 78-04-21 870105040810 INTLT2 R INTLT2 d x@
0x04ffdc…050170 Dummy {f00=0x0053, f01=0x408e, f02=» J F IDENT INTLT3 REL 8.1 78-04-21 870105040810 INTLT3 R INTLT3 d x@
0x050170…050304 Dummy {f00=0x0053, f01=0x408e, f02=» J F IDENT INTLT4 REL 8.1 78-04-21 870105040810 INTLT4 R INTLT4 d x@
0x050304…050498 Dummy {f00=0x0053, f01=0x408e, f02=» J F IDENT INTRT1 REL 8.1 78-04-21 870105040810 INTRT1 R INTRT1 d x@
0x050498…05062c Dummy {f00=0x0053, f01=0x408e, f02=» J F IDENT INTRT2 REL 8.1 78-04-21 870105040810 INTRT2 R INTRT2 d x@
0x05062c…0507c0 Dummy {f00=0x0053, f01=0x408e, f02=» J F IDENT INTRT3 REL 8.1 78-04-21 870105040810 INTRT3 R INTRT3 d x@
0x0507c0…050954 (0, 102) Dummy {f00=0x0053, f01=0x018e, f02=»DR* A5,A2 BUFFER ADDRESS P RF(Z) REL050 END OF QUEUE & P LDR* A6,A5 ADDRESS TO NEXT BUFFER B * P LD A1,TTB:SA,A5 GET DISPATCH ADDRESS l P CW A4,-2,A1 P RB(NE) REL020 NOT SAME POOL P STR A2,A15 P STR A4,A15 P STR A6,A15
0x050954…050ae8 Dummy {f00=0x0053, f01=0x0190, f02=» j P LDR A1,A4 P LDR* A6,A15 P LDR* A4,A15 0 P LDR* A2,A15 D P LDR A1,A1 X & P RF(Z) REL050 BUFFER NOT ALLOCATED j P CMR A5 TAKE OUT OF QUEUE P STR A6,A2 UPDATE CHAIN ( P CF A15,QTJOB QUEUE FOR DISPATCHING * P RB RE
0x050ae8…050c7c Dummy {f00=0x0053, f01=0x0190, f02=» EJECT P* P* < P* SUBROUTINE TO ALLOCATE BUFFERS TO REQUESTING PROGRAM " P* b P* l PGET LDK A6,1 v & P LDR* A4,A4 ADDRESS TO BUFFER-POOL $ PGET010 LDR A8,A4 BUFFER ADDRESS P LDR A2,A7 PGET020 LDR A1,A4 P
0x050c7c…050e10 Dummy {f00=0x0053, f01=0x412a, f02=»1 P RB(NZ) GET020 P ANKL A8,/FFFE P* 6 P* @ P ORK A4,1 FREE BUFFER FOUND J $ P STR A4,A8 UPDATE BUFFER POINTER n & P ADKL A8,2 ADDRESS TO USER BUFFER , P ST A8,TTB:SA+16,A5 SAVE IT IN SAVE AREA PGET025 RTN A15 P*
0x050e10…050fa4 Dummy {f00=0x0053, f01=0x2008, f02=» RB(NZ) GET010 BUFFER NOT FREE P SUK A2,1 . P RB(NZ) GET020 @ P ANKL A8,/FFFE V P* l P* v P ORK A4,1 FREE BUFFER FOUND $ P STR A4,A8 UPDATE BUFFER POINTER & P ADKL A8,2 ADDRESS TO USER BUFFER , P ST A8,TTABSA+16,A
0x050fa4…051138 Dummy {f00=0x0053, f01=0x401a, f02=» @ T Y P LDREG 8 SAVE8 H , ( y P P P Y _@ X , ( D Y X Z8 _ B ( $ = > 0R Q W C > H D ! V H ( 8 P
0x051138…0512cc Dummy {f00=0x0053, f01=0x40dc, f02=» J F IDENT DVTMS REL 8.1 78-04-21 870105040810 DVTMS R DVTMS b MSADN t & " ! ( @
0x0512cc…051460 Dummy {f00=0x0053, f01=0x40ce, f02=» J F IDENT DC:TAB REL 8.1 78-04-21 870105040810 DC:TAB DCTAB R DCTAB j DC:TAB | @
0x051460…0515f4 (0, 103) Dummy {f00=0x0054, f01=0x4190, f02=»REDIT=1 P LD A4,DWTWAT,A6 P RF(Z) TABO30 I/O NOT WAIT ( 2 P CF A15,FREBLK I/O AND ACTIVATE FREE DISP BLK J P CM DWTWAT,A6 SET NOT WAIT PTABO30 EQU * P LDKL A1,/C000 RETURN CODE P CF A15,TENDIO ABORT P XIF 0 P ABL LKM
0x0515f4…051788 Dummy {f00=0x0054, f01=0x2008, f02=»
0x051788…05191c Dummy {f00=0x0054, f01=0x0190, f02=» P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 & PRE100 SLL A1,1 8 P RF(Z) RE110 N P RB(NN) RE100 b P XRK A2,/80 x P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK A1,/80
0x05191c…051ab0 Dummy {f00=0x0054, f01=0x0190, f02=»FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* > $ P* CALLING SEQUENCE: CF A5,FINTER H P* A2=SUBTERMINAL ADDRESS p P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POL
0x051ab0…051c44 Dummy {f00=0x0054, f01=0x0190, f02=» IF 1 COMPARE WITH RIGTH BYTE P* & P* 0 PFINTEP EQU * : P IFT MSV1=0 N PFINTER EQU * b P XIF v P IM RBYTE P IFT MSV1=1 PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS
0x051c44…051dd8 Dummy {f00=0x0054, f01=0x0190, f02=»NAL NOT FOUND z P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 : $ P AD A3,RBYTE CHOOSE ADDRESS TYPE N * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS v P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE
0x051dd8…051f6c Dummy {f00=0x0054, f01=0x0190, f02=»WER ON FUNCTIONS P* P* " $ PDC15ON CF A15,SAVE8 SAVE A1 - A8 , P IFT STAT=1 T P LDK A5,4 SET DEVICE END h 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
0x051f6c…052100 Dummy {f00=0x0054, f01=0x0190, f02=»US QUEUE t P RB DRDC05 PDRDC06 EQU * " P XIF 6 ( P LD A2,DCTPGP GET POLL TIMER POINTER B " P RF(NZ) DRDC20 ALREADY STARTED n * PDRDC10 CF A15,SPOTIM START POLL TIMER PDRDC20 ABL BRM P EJECT P* P* POLL TIME OUT P
0x052100…052294 (0, 104) Dummy {f00=0x0054, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f ] =IR E
0x052294…052428 Dummy {f00=0x0054, f01=0x0002, f02=»
0x052428…0525bc Dummy {f00=0x0054, f01=0x018e, f02=» 2 P IDENT DVTP00 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP00 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP00 EQU *
0x0525bc…052750 Dummy {f00=0x0054, f01=0x0190, f02=» . P DATA DWTEND-DVTP00 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x052750…0528e4 Dummy {f00=0x0054, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x0528e4…052a78 Dummy {f00=0x0054, 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
0x052a78…052c0c Dummy {f00=0x0054, f01=0x0190, f02=» P P* P* START SYSTEM P* 0 P : P LDKL A13,WAITIS B * P STR A13,A15 STORE USER START ADDRESS Z " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES P RES 80 PSTB EQU *-2 STACK BASE P
0x052c0c…052da0 Dummy {f00=0x0054, f01=0x406e, f02=» DATA 6 ( P LDK A1,0 EXIT PARAMETER = CASSETTE P ABI CVTAPS < P P P END INIM X@ jSER START ADDRESS Z " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES P RES 80 PSTB EQU *-2 STACK BASE P
0x052da0…052f34 (0, 105) Dummy {f00=0x0055, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f ] =IR E
0x052f34…0530c8 Dummy {f00=0x0055, f01=0x0002, f02=»
0x0530c8…05325c Dummy {f00=0x0055, f01=0x018e, f02=» 2 P IDENT DVTP01 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP01 EQU *
0x05325c…0533f0 Dummy {f00=0x0055, f01=0x0190, f02=» . P DATA DWTEND-DVTP01 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x0533f0…053584 Dummy {f00=0x0055, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x053584…053718 Dummy {f00=0x0055, 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
0x053718…0538ac Dummy {f00=0x0055, 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
0x0538ac…053a40 Dummy {f00=0x0055, f01=0x4014, f02=» P END ] @ ] P XIF P IFT IBM=1 $ , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT 6 P DATA 0,0,0,0 f $ PDWTEOD EQU *-DWFD01 END OF DATA | P DATA 0,0,0,0 & PDWTEOE EQU *-DWFD01 END OF EXTENT P DATA 0,0,0,0 * PDWTCRN EQU *-D
0x053a40…053bd4 (0, 106) Dummy {f00=0x0055, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f =IR E
0x053bd4…053d68 Dummy {f00=0x0055, f01=0x0002, f02=»
0x053d68…053efc Dummy {f00=0x0055, f01=0x0190, f02=» 2 P IDENT TTABTC REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTC TABLE ENTRY P* P* P* P EXTRN DWKB01 P EXTRN DWTP01 P
0x053efc…054090 Dummy {f00=0x0055, f01=0x0190, f02=»C' TERMINAL IDENTIFICATION $ P DATA 0 PENDING PROGRAM POINTER " P DATA 0 LAST SEGMENT ADDRESS J P DATA 0 SEGMENT POINTER n P DATA 0 TERMINAL SAVE AREA P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020
0x054090…054224 Dummy {f00=0x0055, f01=0x410e, f02=» DATA DWDY01 P DATA /0231 P DATA DWTP01 @ P DATA /0132 ` P DATA DWTP01 P DATA /0061 P DATA DW1501 PTTABE EQU * P* P END @
0x054224…0543b8 Dummy {f00=0x0055, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x0543b8…05454c Dummy {f00=0x0055, f01=0x0190, f02=»N+1,A6 s P LDKL A1,/1000 EOF t P ORS A1,ECBRC,A9 EOF TO USER t * PINS430 EQU * t N P* t b 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS t l P* t P LDKL A12,1 ADD ON E TO CRN t P LDR A8,A2 t P LDR A9,A3 LAST REC NR MOVED t P LD
0x05454c…0546e0 Dummy {f00=0x0055, f01=0x0190, f02=»SAME FILE CODE t ~ P* u P LD A1,FDBADF,A5 FDB DATA F u " P CF A14,CRNGET GET CRN BUFFER u D " P LC A4,ECBFC,A9 USER FILE CODE u j P CC A4,FDBECB+1,A5 u P RF(NE) INS440 OTHRER FILE u P ST A10,CRNCIF,A2 u P ST A11,CRNCIF+2,A2 REC NR u P
0x0546e0…054874 (0, 107) Dummy {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f =IR E
0x054874…054a08 Dummy {f00=0x0056, f01=0x0002, f02=»
0x054a08…054b9c Dummy {f00=0x0056, f01=0x018e, f02=» 2 P IDENT TTABTE REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTE TABLE ENTRY P* P* P* P EXTRN DWKB03 P EXTRN DWTP03 P
0x054b9c…054d30 Dummy {f00=0x0056, f01=0x018e, f02=» $ P DATA 0 PENDING PROGRAM POINTER P DATA 0 LAST SEGMENT ADDRESS , P DATA 0 SEGMENT POINTER P P DATA 0 TERMINAL SAVE AREA p P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x054d30…054ec4 Dummy {f00=0x0056, f01=0x40b2, f02=» P DATA /0231 P DATA DWTP03 $ P DATA /0132 D P DATA DWTP03 d PTTABE EQU * P* P END @ TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x054ec4…055058 Dummy {f00=0x0056, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x055058…0551ec Dummy {f00=0x0056, f01=0x0190, f02=» 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 IS THEN USED r P EJECT P* P*************** P* ENTRIES * P*************** P*
0x0551ec…055380 Dummy {f00=0x0056, f01=0x0190, f02=»*************** P* EXTERNALS * P***************** 2 P* L P EXTRN QTJOB V P EXTRN FNDTID,TTB:TD j P* P EXTRN DWTST P EXTRN DWTADR P* P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN E
0x055380…055514 (0, 108) Dummy {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f =IR E
0x055514…0556a8 Dummy {f00=0x0056, f01=0x0002, f02=»
0x0556a8…05583c Dummy {f00=0x0056, f01=0x0190, f02=» 2 P IDENT TTABDC REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABDC TABLE ENTRY P* P* P* P* P* PTTABDC DATA 0 P DATA 60 TASK LEVEL & P
0x05583c…0559d0 Dummy {f00=0x0056, f01=0x409e, f02=»INTER ~ P DATA 0 TERMINAL SAVE AREA P RES 14 0 P* @ " P DATA TTABE-* TERMINAL DEVICES J PTTABE EQU * p P* P END @ P* P* P* P* P* PTTABDC DATA 0 P DATA 60 TASK LEVEL & P
0x0559d0…055b64 Dummy {f00=0x0056, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x055b64…055cf8 Dummy {f00=0x0056, f01=0x018e, f02=»* " P LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 # $ P ST A1,EXTDMI,A6 # < P LD A1,TASXLB,A4 # T P ST A1,EXTLEN,A6 # l P LD A1,TASXLB+2,A4 # P ST A1,EXTBAS,A6 # P ADK A6,6 # P SUK A5,1 # & P RF(NP) DMT500 ALL EXTENTS HANDLED # P* #
0x055cf8…055e8c Dummy {f00=0x0056, f01=0x0190, f02=» # P SUK A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 $ PDMT370 EQU * $ @ P ECR A1,A2 $ T P ANK A1,/FF $ f P SUK A1,3 $ z P RB(E) DMT355 SECTION-NO = 3 $ " P ADK A1,4 INCREMENT SECTION-NO $ P ECR A2,A1 EXT-NO = 0 $ P RB DMT340 $ $ PDM
0x055e8c…056020 Dummy {f00=0x0056, f01=0x0190, f02=»T400 EQU * $ P LDK A7,0 % PDMTASX EQU * % $ , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR % 8 P LDR A7,A7 % h P RF(Z) DMT420 CORRECT RETURN % z P CM -1,A2 ZERO FILE CODE % P* % $ P* REMOVE FDB WITH MASTER INDEX % P* % $ P LD A4,TASMXA
0x056020…0561b4 (0, 109) Dummy {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f =IR E
0x0561b4…056348 Dummy {f00=0x0057, f01=0x0002, f02=»
0x056348…0564dc Dummy {f00=0x0057, f01=0x018e, f02=» 2 P IDENT DWTP01 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP01 EQU *
0x0564dc…056670 Dummy {f00=0x0057, f01=0x0190, f02=» . P DATA DWTEND-DWTP01 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x056670…056804 Dummy {f00=0x0057, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x056804…056998 Dummy {f00=0x0057, 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
0x056998…056b2c Dummy {f00=0x0057, f01=0x0190, f02=»* P* $ PDC15ON CF A15,SAVE8 SAVE A1 - A8 P IFT STAT=1 < P LDK A5,4 SET DEVICE END P P LD A1,DCTAB p . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 END OF TABLE P LDR
0x056b2c…056cc0 Dummy {f00=0x0057, f01=0x0190, f02=»05 PDRDC06 EQU * P XIF ( P LD A2,DCTPGP GET POLL TIMER POINTER * " P RF(NZ) DRDC20 ALREADY STARTED V * PDRDC10 CF A15,SPOTIM START POLL TIMER | PDRDC20 ABL BRM P EJECT P* P* POLL TIME OUT P* ( PPTOUT LDKL A5,
0x056cc0…056e54 (0, 110) Dummy {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f =IR E
0x056e54…056fe8 Dummy {f00=0x0057, f01=0x0002, f02=»
0x056fe8…05717c Dummy {f00=0x0057, f01=0x0190, f02=» 2 P IDENT DWKB02 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB02 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY02 P* P* PDWKB02 EQU * TAB
0x05717c…057310 Dummy {f00=0x0057, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA
0x057310…0574a4 Dummy {f00=0x0057, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB02 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB02 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB02 P DATA 0,0,0,0,0,0,0,0 P
0x0574a4…057638 Dummy {f00=0x0057, 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
0x057638…0577cc Dummy {f00=0x0057, f01=0x0190, f02=» RB(N) DMT920 ALL EXTENTS CHECKED ; P ADKL A2,EXTELE < * P CCR A4,A2 VOLUME CODE < B ( P ABL(E) DMT880 CODE USED. NO UNLOCK < ` P RB DMT930 NEXT EXTENT < P* < & P* ALL FSDBS CHECKED. MAKE UNLOAD < P* < PDMT980 EQU * < P ENB ENB <
0x0577cc…057960 Dummy {f00=0x0057, f01=0x0190, f02=»DE < z P LDK A7,/B8 UNLOAD WAIT = P LKM = * P DATA 1 = 6 P LD A1,ECBRC,A8 = F P ANK A1,1 INOPER = ^ P ABL(NZ) DMTERR = v P ABL DMT880 CHECK NEXT EXT = P XIF = P EJECT = " PDMT500 EQU * READ VTOC RECORD = P* = " P LD A2,VTOCRL
0x057960…057af4 (0, 111) Dummy {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f =IR E
0x057af4…057c88 Dummy {f00=0x0058, f01=0x0002, f02=»
0x057c88…057e1c Dummy {f00=0x0058, f01=0x0190, f02=» 2 P IDENT DWDY02 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY02 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY02 EQU * TABLE ENT
0x057e1c…057fb0 Dummy {f00=0x0058, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( 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 P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x057fb0…058144 Dummy {f00=0x0058, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h 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
0x058144…0582d8 Dummy {f00=0x0058, 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
0x0582d8…05846c Dummy {f00=0x0058, f01=0x0190, f02=» PDMI120 EQU * P* INDEX RECORD IS FOUND P* < P LDK A2,0 MARK FOUND F . P ABL DMR006 CONT AS FOR INDEXED RAND READ b PDMI010 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD P RB DMI100 RECORD FOUND P LDR A6,A1 FDB ADDR
0x05846c…058600 Dummy {f00=0x0058, f01=0x0190, f02=» DMTERR ERROR AND BUFFER P EJECT ] P* ] . & PDMINS2 EQU * INDEXED INSERT PART 2 ] 8 P* ] b 2 P********************************************* ] l P ENB ENB ] P LD A3,ECBBA,A8 ] P SUK A3,8 BUFSTA ] " P CF A14,DMTRBU RELEASE BUFFER ]
0x058600…058794 (0, 112) Dummy {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 781012 PACK NBR = 001 f =IR E
0x058794…058928 Dummy {f00=0x0058, f01=0x0002, f02=»
0x058928…058abc Dummy {f00=0x0058, f01=0x018e, f02=» 2 P IDENT DWTP03 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP03 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP03 EQU *
0x058abc…058c50 Dummy {f00=0x0058, f01=0x0190, f02=» . P DATA DWTEND-DWTP03 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x058c50…058de4 Dummy {f00=0x0058, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x058de4…058f78 Dummy {f00=0x0058, 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=0x0058, f01=0x0190, f02=»RO,A6 OLD OFFSET { P LD A4,FDBMRO,A6 | P ST A4,FDBRRO,A6 MAX OFFSET | 0 $ P CF A14,GTLGRN LAST REC NR MOVED | T P LDR A8,A2 | | P LDR A9,A3 REC NR | " P ST A12,FDBRRO,A6 RESET OFFSET | P LDKL A12,-1 | & P CF A14,CRNUPD UPDATE CRN BUFFERS |
0x05910c…0592a0 Dummy {f00=0x0058, f01=0x0190, f02=»A5 FDB | P CF A14,GTLGRN GET REC NR } P LDR A1,A2 } 0 P LDR A2,A3 } B P LDK A6,0 } T P LDK A7,1 } f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 } x P RF(Z) DEL600 FILE START } P LDR A6,A5 FDB ADDR } P CF A14,CALSNO GET SECTOR NR } P LDR A5,
0x0592a0…059434 (0, 113) Opaque[0x194]
0x059434…0595c8 # DirEnt {nam=»INIMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b08, f03=0x0000}
0x059434…0595c8 IdxSect {
0x059434…0595c8 f00 = 0x0058 // 0x59434 @0x0
0x059434…0595c8 f01 = 0x0002 // 0x59436 @0x2
0x059434…0595c8 gno = [ // 0x59438 @0x4
0x059434…0595c8 [0x00]: C0x0058.0x1.0
0x059434…0595c8 ]
0x059434…0595c8 }
0x0595c8…05975c Dummy {f00=0x0058, f01=0x018e, f02=» 2 P IDENT INIMOD REL 8.2 78-09-15 870105040820 P : P* B " P****************************** L P* r $ P* PHILIPS TERMINAL SYSTEM PTS | P* D P* INIMOD= DUMMY MODULE HOLDING ADDRESSES BUG INIMON AND DCEXT " P* AND DATA MANAG
0x05975c…0598f0 Dummy {f00=0x0058, f01=0x4158, f02=» ~ P* P* P ENTRY INIMON P ENTRY BUG 2 P ENTRY DCEXT D P ENTRY DM:TSK X P EXTRN TTABD0 n P EXTRN TTABD1 P* PINIMON EQU 0 INIMON PBUG EQU 0 DEBUGGER PDCEXT EQU 1 PDM:TSK DATA DMTSKE-*
0x0598f0…059a84 Dummy {f00=0x0058, f01=0x2008, f02=» NT INIMOD P* P* DUMMY MODULE $ P* < P* F P ENTRY INIMON P P ENTRY BUG f P* x P* PINIMON EQU 0 INIMON PBUG EQU 0 DEBUGGER P END @
0x059a84…059c18 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
0x059c18…059dac Dummy {f00=0x0058, f01=0x018e, f02=» P* l P ST A2,-28,A14 l P ST A3,-26,A14 l $ P EJECT l : P* l H : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING l R $ P* USED RECORDS ROLLED FORWARD l $ P* A6,A11,A13 IS USED AT ENTRY l $ P ADKL A11,7 RECORD LENGTH TOTAL l P
0x059dac…059f40 Dummy {f00=0x0058, f01=0x0190, f02=» , P* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 m $ P* A13 = BUFFER ADDRESS SECTOR m 4 P* m PINS190 EQU * m f P LDKL A12,1 BUFADR2 m z PINS200 EQU * m P LDK A1,0 m P LDR A12,A12 m P RF(Z) INS210 BUFAR1 m ( P LDKL A1,RECBFZ RECORD BUUFF
0x059f40…05a0d4 (0, 114) Opaque[0x194]
0x05a0d4…05a268 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x05a0d4…05a268 IdxSect {
0x05a0d4…05a268 f00 = 0x0005 // 0x5a0d4 @0x0
0x05a0d4…05a268 f01 = 0x0008 // 0x5a0d6 @0x2
0x05a0d4…05a268 gno = [ // 0x5a0d8 @0x4
0x05a0d4…05a268 [0x00]: C0x0005.0x1.0
0x05a0d4…05a268 [0x01]: C0x0005.0x2.0
0x05a0d4…05a268 [0x02]: C0x0005.0x3.0
0x05a0d4…05a268 [0x03]: C0x0006.0x0.0
0x05a0d4…05a268 ]
0x05a0d4…05a268 }
0x05a268…05a3fc Dummy {f00=0x0005, f01=0x0190, f02=» 0 P IDENT TDISP REL 8.2 78-09-15 870105040820 P 8 P* @ 6 P************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TDISP = TERMINAL DISPATCHER P* P* P* P*
0x05a3fc…05a590 Dummy {f00=0x0005, f01=0x0190, f02=»INAL DISPATCHER IN TOSS. | > P* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. > P* THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER- b < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. < P* - IF SO THE QUEUED PROGRAM IS ST
0x05a590…05a724 Dummy {f00=0x0005, f01=0x0190, f02=»TED PROGRAM VIA RETUR8. h P* @ P* AN ENTRYPOINT 'LKMDIS' IS ALSO INCLUDED IN THIS MODULE. * D P* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(NO REGISTERS n H P* ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHER QUEUE 6 P* WI
0x05a724…05a8b8 Dummy {f00=0x0005, f01=0x0190, f02=»OGRAM VIA RETU14. b P* P* $ > P* AN OPTIONALY ENTRYPOINT 'DISIOE' IS ALSO PROVIDED FOR . > P* ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND THE SUB- p < P* ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY P* IS ENTERED. @
0x05a8b8…05aa4c Dummy {f00=0x0005, f01=0x0190, f02=»********* P* " P ENTRY TDISP DISPATCHER ENTRY & P ENTRY LKMDIS DISPATCHED AFTER LKM B " P ENTRY DISIOE I/O ERROR ENTRY l & P ENTRY DISEND END I/O AND DISPATCH < P ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUEUE 6 P ENTRY GBQUE
0x05aa4c…05abe0 Dummy {f00=0x0005, f01=0x0190, f02=»RY RETU14 RESTORE REGISTER A14-A1 VIA A15 STACK P ENTRY RETU13 8 P ENTRY RETU12 N P ENTRY RETU11 d P ENTRY RETU10 z P ENTRY RETUR9 P ENTRY RETUR8 P ENTRY RETUR7 P ENTRY RETUR6 P ENTRY RETUR5 P ENTRY RET
0x05abe0…05ad74 (0, 115) Dummy {f00=0x0005, f01=0x0190, f02=» P EJECT $ P ENTRY DWTCHP CHANNEL PARAMETER P ENTRY DWTST STATUS > P ENTRY DWTECB ECB ADDRESS Z P ENTRY DWTOR ORDER | * P ENTRY DWTADR POINTER TO ADDRESS-BLOCK P ENTRY DWTTAB TTAB-ADDRESS * P ENTRY DWTWAT WAIT ACTIVATE INDICA
0x05ad74…05af08 Dummy {f00=0x0005, f01=0x0190, f02=»L VOLUME NAME P ENTRY ECBBA,ECBRL,ECBEL P ENTRY ECBRC,ECBCW 6 & P ENTRY SACT ACTIVE SEGMENT POINTER P 8 P ENTRY LRUNEW DUMMY FOR MEMORY MANAGEMENT (OVERLAY) z P EJECT P* P************* P* EXTERNALS * P*************
0x05af08…05b09c Dummy {f00=0x0005, f01=0x0190, f02=»D I/O P EXTRN EXIT PROGRAM EXIT & P EXTRN BLOK:S START OF BLOCK POOL . $ P EXTRN BLOCKE BLOCK POOL LENGTH X P EJECT P P* . P****************************************** P* & P* DWT-DISPLACEMENT DECLARATIONS P*
0x05b09c…05b230 Dummy {f00=0x0005, f01=0x0190, f02=» PDWTECB EQU 4 ECB-ADDRESS PDWTOR EQU 6 ORDER $ & PDWTADR EQU 8 ADDRESS BLOCK POINTER > PDWTTAB EQU 10 TTAB-ADDRESS h * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINAL QUEUE PDWTWA EQU 16 WORK AREA * PDWTTDM EQU 16
0x05b230…05b3c4 Dummy {f00=0x0005, f01=0x0190, f02=»PLACEMENTS P* " P****************************** P* B PECBBA EQU /02 L PECBRL EQU /04 b PECBEL EQU /06 x PECBRC EQU /08 PECBCW EQU /0A P EJECT P* P* D I S Q U E P* 2 P* POINTER TO FIRST
0x05b3c4…05b558 Dummy {f00=0x0005, f01=0x0190, f02=» OF RUNING PROGRAM P* PPRUN EQU * $ P DATA 0 6 P* F P* S R U N P P* d P* RUNNING SEGMENT POINTER n P* PSRUN EQU * P DATA 0 $ P******************************* P* P* S A C T P*
0x05b558…05b6ec Dummy {f00=0x0005, f01=0x0190, f02=»EW EQU * P* P* G B Q U E P* 0 4 P* POINTER TO FIRST TASK TABLE IN BUFFER QUEUE : P* r PGBQUE EQU * | P DATA 0 PFREQUE DATA BLOK:S PBLOCKL DATA BLOCKE P* P EJECT P* P* D I S I O E
0x05b6ec…05b880 Dummy {f00=0x0005, f01=0x0190, f02=»DE t P* PDISEND EQU * P CF A15,TENDIO ( P EJECT > P* L P* V P* T D I S P ` P* v $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP EQU * P INH P LD A5,DISQUE " P RF(Z) RETUR8 NO QUEUE,RETURN
0x05b880…05ba14 (0, 116) Dummy {f00=0x0005, f01=0x0190, f02=»NG) RETUR8 RETURN TO INTERRUPTED PROGRAM $ P STR A9,A15 SAVE A9-A14 ON STACK 0 P STR A10,A15 X P STR A11,A15 l P STR A12,A15 P STR A13,A15 P STR A14,A15 P LD A1,PRUN " P STR A1,A15 SAVE PRUN ON STACK " P AND DISPATCH QU
0x05ba14…05bba8 Dummy {f00=0x0005, f01=0x018e, f02=»ESS OF PROGRAM TO BE DISPATCHED ~ P* ( PDIS100 EQU * 2 0 P LDR* A1,A5 REMOVE JOB FROM DISPATCHER QUEUE F P ST A1,DISQUE z * P LD A1,TTB:SA,A5 LOAD DISPATCH ADDRESS " P LD A2,TTB:ST+1,A5 LOAD LEVEL P SLL A2,10 P CWK A2,/C000 MONI
0x05bba8…05bd3c Dummy {f00=0x0005, f01=0x0190, f02=» . P ADK A3,14 SET ADDRESS TO A1 IN SAVE AREA P LDK A1,14 SET COUNTER : , PDIS110 LDR* A2,A3 SET UP A1-A14 ON STACK X P STR A2,A15 P ADK A3,2 P SUK A1,1 P RB(NZ) DIS110 : PDIS120 ST A5,PRUN SET TABB-ADDRES FOR DISPATCHED P
0x05bd3c…05bed0 Dummy {f00=0x0005, f01=0x0190, f02=»RYPOINTS RETU14-RETUR1 :RELOAD REGISTERS FROM STACK P* AND RETURN VIA A15 < P* Z PRETU14 LDR* A14,A15 d PRETU13 LDR* A13,A15 PRETU12 LDR* A12,A15 PRETU11 LDR* A11,A15 PRETU10 LDR* A10,A15 PRETUR9 LDR* A9,A15
0x05bed0…05c064 Dummy {f00=0x0005, f01=0x0190, f02=»R3 LDR* A3,A15 PRETUR2 LDR* A2,A15 P RF RETUR1 0 PRTNA15 STR A1,A15 B PRETUR1 LDK A1,/40 BIT 9 . P ORS A1,4,A15 SET PSW IN A15 STACK TO ENB | P LDR* A1,A15 P RTN A15 P EJECT P* P* P* MONITOR JOB DISP
0x05c064…05c1f8 Dummy {f00=0x0005, f01=0x0190, f02=»CK z ( P STR A2,A15 STORE LEVEL 48 ON STACK & P SUKL A15,16 ADJUST STACK POINTER 6 : P STR A1,A15 SET MONITOR JOB DISPATCH ADDRESS ON STACK ` P STR A2,A15 SET LEVEL , P LD A1,TTB:SA+2,A5 LOAD PARAMETER IN A1 P STR A1,A15 AND SET ON STACK
0x05c1f8…05c38c Dummy {f00=0x0005, f01=0x0190, f02=»S P* 6 P* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST P* NO REGISTERS ON STACK N P* p P* z PLKMDIS EQU * P INH P LD A5,DISQUE " P RF(Z) DIS010 NO QUEUE,RETURN & P LD A1,32,A15 LOAD PSW FROM STACK
0x05c38c…05c520 Dummy {f00=0x0005, f01=0x4066, f02=»DR* A5,A15 , P RB DIS120 RETURN TO INTERRUPTED PROGRAM P* B P* L P END V@ bK N P* p P* z PLKMDIS EQU * P INH P LD A5,DISQUE " P RF(Z) DIS010 NO QUEUE,RETURN & P LD A1,32,A15 LOAD PSW FROM STACK
0x05c520…05c6b4 (0, 117) Dummy {f00=0x0006, 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
0x05c6b4…05c848 Dummy {f00=0x0006, f01=0x0008, f02=»
0x05c848…05c9dc Dummy {f00=0x0006, f01=0x018e, f02=» 2 P IDENT LRPINT REL 8.1 78-04-21 870105040810 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P* AND P
0x05c9dc…05cb70 Dummy {f00=0x0006, f01=0x0190, f02=» P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM-INTERRUPT P* P* -IHRTC: RTC-INTERRUPT P* ( P* -IHPFAR: POWER FAILURE INTERRUPT P*
0x05cb70…05cd04 Dummy {f00=0x0006, f01=0x0190, f02=»UE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH & P* R P EJECT P*********** j P* ENTRIES * ~ P*********** P* & P ENTRY IHLKM LKM INTERRUPT HANDLER $ P ENTRY LKMRQE LKM REQUEST ERROR $ P ENTRY
0x05cd04…05ce98 Dummy {f00=0x0006, f01=0x0190, f02=»E ^ P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER . & P ENTRY INIFLG INITIALIZATION FLAG d P* P************* P* EXTERNALS * P************* P* P EXTRN TDISP DISPATCHER : P EXT
0x05ce98…05d02c Dummy {f00=0x0006, f01=0x0190, f02=» $ P EXTRN SWL48 SWITCH TO LEVEL 48 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB , , P EXTRN TTB:TD START OF TERMINAL DEVICES b " P EXTRN LKMAL LKM REQUEST TABLE P EXTRN FREBLK SET BLOCK FREE " P EXTRN QMJOB QUEUE MONITOR JOB 6 P EXTRN
0x05d02c…05d1c0 Dummy {f00=0x0006, f01=0x0190, f02=» SAVE8 SAVE 8 REGISTERS " P EXTRN PFTAB POWER FAIL TABLE P EXTRN HALT HALT-MODULE F P EXTRN SACT ACTIVE SEGMENT f , P EXTRN LRUNEW INSERT SEGMENT IN LRUQUEUE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EJECT P* P* 8 P*
0x05d1c0…05d354 (0, 118) Opaque[0x194]
0x05d354…05d4e8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0198, f03=0x0000}
0x05d354…05d4e8 IdxSect {
0x05d354…05d4e8 f00 = 0x000c // 0x5d354 @0x0
0x05d354…05d4e8 f01 = 0x0008 // 0x5d356 @0x2
0x05d354…05d4e8 gno = [ // 0x5d358 @0x4
0x05d354…05d4e8 [0x00]: C0x000c.0x3.0
0x05d354…05d4e8 [0x01]: C0x0046.0x2.0
0x05d354…05d4e8 [0x02]: C0x0046.0x3.0
0x05d354…05d4e8 [0x03]: C0x0048.0x2.0
0x05d354…05d4e8 ]
0x05d354…05d4e8 }
0x05d4e8…05d67c Dummy {f00=0x000c, f01=0x018e, f02=» 2 P IDENT LRPINT REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P* AND P
0x05d67c…05d810 Dummy {f00=0x000c, f01=0x0190, f02=» P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM-INTERRUPT P* P* -IHRTC: RTC-INTERRUPT P* ( P* -IHPFAR: POWER FAILURE INTERRUPT P*
0x05d810…05d9a4 Dummy {f00=0x000c, f01=0x0190, f02=»UE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH & P* R P EJECT P*********** j P* ENTRIES * ~ P*********** P* & P ENTRY IHLKM LKM INTERRUPT HANDLER $ P ENTRY LKMRQE LKM REQUEST ERROR $ P ENTRY
0x05d9a4…05db38 Dummy {f00=0x000c, f01=0x0190, f02=»E ^ P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER . & P ENTRY INIFLG INITIALIZATION FLAG d P* P************* P* EXTERNALS * P************* P* P EXTRN TDISP DISPATCHER : P EXT
0x05db38…05dccc Dummy {f00=0x000c, f01=0x0190, f02=» $ P EXTRN SWL48 SWITCH TO LEVEL 48 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB , , P EXTRN TTB:TD START OF TERMINAL DEVICES b " P EXTRN LKMAL LKM REQUEST TABLE P EXTRN FREBLK SET BLOCK FREE " P EXTRN QMJOB QUEUE MONITOR JOB 6 P EXTRN
0x05dccc…05de60 Dummy {f00=0x000c, f01=0x0190, f02=» SAVE8 SAVE 8 REGISTERS " P EXTRN PFTAB POWER FAIL TABLE P EXTRN HALT HALT-MODULE F P EXTRN SACT ACTIVE SEGMENT f , P EXTRN LRUNEW INSERT SEGMENT IN LRUQUEUE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EJECT P* P* 8 P*
0x05de60…05dff4 (0, 119) Dummy {f00=0x0046, f01=0x0190, f02=»:A = 0 r P* PX:A EQU 1 PKLOCKA EQU 0 * P EJECT > P* L P* V P* I H L K M ` P* v P* 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT: P* * P* - IF STACK OVERFLO
0x05dff4…05e188 Dummy {f00=0x0046, f01=0x0190, f02=»LKMDIS' AND 8 REGISTERS ARE SET ON STACK x $ P* - TTB:SA IS UPDATED IN TTAB 0 : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO X $ P* APPROPIATE LKM-PROCESSOR. P* P* EXIT CONDITIONS ARE: P* * P* A4 = LABLE ADDRESS
0x05e188…05e31c Dummy {f00=0x0046, f01=0x0190, f02=» AND A3 ARE LOST. : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING P* PROGRAM. X P* l P* v P* PIHLKM EQU * P ST P,INTSAV P SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG PLKM010 INH
0x05e31c…05e4b0 Dummy {f00=0x0046, f01=0x0190, f02=»TR A14,A15 SAVE USERS REGISTERS, -A14 P STR A13,A15 -A13 . P STR A12,A15 -A12 H P STR A11,A15 -A11 b P STR A10,A15 -A10 | P STR A9,A15 -A9 P STR A8,A15 -A8 P STR A7,A15 -A7 P STR A6,A15 -A6 P STR A5,A15 -A5
0x05e4b0…05e644 Dummy {f00=0x0046, f01=0x0190, f02=»TER n PLKM020 EQU *-2 P* " P* , . P* GET DISPATCH ADDRESS AND SWITCH LEVEL 6 P* h P LDR* A2,A15 r 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER P LD A3,-2,A2 P CWK A3,/2804 P RF(E) LKM025 LKM P CWK A
0x05e644…05e7d8 Dummy {f00=0x0046, f01=0x0190, f02=»DIS ~ . P STR A3,A15 SET DISPATCH ADDRESS ON STACK P LDKL A3,/C000 > P STR A3,A15 SET LEVEL 48 T . P SUKL A15,16 RESERVE SPACE FOR 8 REGISTERS t P LD A3,SACT ACTIVE SEGMENT P RF(E) LKM027 P CF A15,LRUNEW P CM SACT PLKM0
0x05e7d8…05e96c Dummy {f00=0x0046, f01=0x0190, f02=»DICATOR x $ P LDR* A3,A2 LOAD DATA DIRECTIVE P RF(NN) LKM030 NO LABLE 8 P* X P* b P* LKM-REQUEST WITH LABLE l P* P ADK A2,2 P LDR* A4,A2 LOAD LABLE P NGR A3,A3 NEGATE DATA P* P* . P* UPDATE TTB
0x05e96c…05eb00 Dummy {f00=0x0046, f01=0x0190, f02=» p " P ADR A3,A3 GET INDEX IN LKMAL ( P RF(Z) LKMQDI PROGRAM SWITCH REQUEST . P CW A3,LKMAL Z * P RF(NL) LKMRQE INVALID DATA DIRECTIVE n P LD A3,LKMAL,A3 & P RF(Z) LKMRQE ERROR IF NOT PRESENT P INH INHIBIT INTERRUPTS $ P ABR A3 BR
0x05eb00…05ec94 (0, 120) Dummy {f00=0x0046, f01=0x018e, f02=»ISPATCH j P* P* A5 = TTAB-ADDRESS P* 8 P* B PLKMRQE EQU * L P LDKL A2,-1 ` . P ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7 t P* P* P* L K M Q D I P* ( P* QUEUE TERMINAL JOB AND DISPATCH P
0x05ec94…05ee28 Dummy {f00=0x0046, f01=0x018e, f02=» P EJECT P* P* I H R T C P* 2 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER < 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS v P* PIHRTC EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT " P RIT /1B RESET INT
0x05ee28…05efbc Dummy {f00=0x0046, f01=0x0190, f02=» p " P LDKL A4,-4 SET 100 MS SWITCH P ST A4,COUNT . . P LDKL A2,CLOCK QUEUE CLOCK-ROUTINE AS MJOB B P CF A15,QMJOB t P* P IFT KLOCKA=1 P* P IM DINKAN 2 P RF(P) RTC025 UPDATE MONITOR CLOCK EACH SECOND P* P X
0x05efbc…05f150 Dummy {f00=0x0046, f01=0x0190, f02=»G ROUTINE STARTED EACH SECOND v P* & P* 0 PMCLOCK EQU * : ( PRTC025 LDKL A4,-9 SET SECOND SWITCH N P ST A4,DINKAN z P LDK A4,4 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME 0 P XR
0x05f150…05f2e4 Dummy {f00=0x0046, f01=0x0190, f02=» A4,2 END ? P RF(N) MCLO30 MIDNIGTH CARRY P RB(P) MCLO10 UPDATE MINUTES 8 P LDK A3,24 UPDATE HOURS P RB MCLO20 | * PMCLO30 IM MONCLO UPDATE 24 HOUR CARRY P RB RTC020 GOTO DISPATCHER P* P* P XIF P* P
0x05f2e4…05f478 Dummy {f00=0x0046, f01=0x0190, f02=» DATA 0 SECOND P* PDINKAN DATA 0 SECOND SWITCH P* D P* N P XIF X P EJECT d P r P* z * P* CLOCK ROUTINE STARTED EACH 100 MS. P* P PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS PCL
0x05f478…05f60c Dummy {f00=0x0046, f01=0x0190, f02=» RB(N) CLK10 NOT TIME OUT, GET NEXT IN QUEUE P RF(Z) CLK30 TIME OUT 4 P R P LDR* A3,A4 RELEASE TIMER Z P STR A3,A6 | P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 P , PCLK30 CF A15,CLK40 CALL TIME OUT R
0x05f60c…05f7a0 Dummy {f00=0x0046, f01=0x0190, f02=»TER z $ P ABI 2,A2 GO TO TIME OUT ROUTINE P* 4 P* > P* H PCOUNT DATA 0 100 MS SWITCH R P* t P* ~ P* T I M Q U E P* . P* POINTER TO FIRST BLOCK IN TIMER QUEUE P* PTIMQUE EQU * P DATA 0
0x05f7a0…05f934 (0, 121) Dummy {f00=0x0048, f01=0x0190, f02=»* P* P* 1. POWER OFF P* * : P* REGISTERS A1-A14 ARE SAVED ON INTERRUPT STACK AND 4 ( P* STACK POINTER IS SAVED IN CORE r P* THEN SYSTEM IS HALTED P* P* P* 2. POWER ON P* & P* STACK POINTER A
0x05f934…05fac8 Dummy {f00=0x0048, f01=0x0190, f02=»K X 4 P* AND RETURN IS GIVEN TO INTERRUPTED PROGRAM P* B P* L P* V P* WORK AREAS ` P* t P* ~ & PPFX DATA 1 POWER ON OFF INDICATOR P* P* & PINIFLG DATA 1 INITIALIZATION FLAG P* P EJECT P
0x05fac8…05fc5c Dummy {f00=0x0048, f01=0x0190, f02=»PT r & P RIT /17 RESET INTERNAL INTERRUPT & P C1S PFX INDICATE POWER ON OR OFF 4 P RF(P) PFA200 POWER ON ^ P* | P* POWER OFF P* ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK & P STR A9,A15 SAVE A9 - A14 ON STACK P STR A10,A15
0x05fc5c…05fdf0 Dummy {f00=0x0048, f01=0x413c, f02=»00 HLT HALT SYSTEM P* P* POWER ON & P* 8 PPFA200 EQU * B * P LDKL A15,0 RESTORE A15 STACK POINTER V PPFA210 EQU *-2 ( P CM INIFLG RESET INITIALIZATION FLAG * P CF A15,PFINIT RESTART COMMON DEVICES 4 P ABL RETU14 RESTORE
0x05fdf0…05ff84 Dummy {f00=0x0048, 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
0x05ff84…060118 Dummy {f00=0x0048, f01=0x018e, f02=»,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 D P LD A8,CRCSAV+2 SAVE IT d 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 A
0x060118…0602ac Dummy {f00=0x0048, f01=0x0190, f02=» & P* RDLRC READ LRC CHARACTER " P* CR=0 IF LRC OK . P* T PRDLRC IM SYNSW ^ P CF A5,READP t P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5
0x0602ac…060440 Dummy {f00=0x0048, f01=0x0190, f02=»NTRY | P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS , P DATA 0 ECB ADDRESS F P DATA 0 ORDER b * P DATA DC15DC POINTER TO ADDRESS BLOCK x P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P DAT
0x060440…0605d4 (0, 122) Opaque[0x194]
0x0605d4…060768 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x0605d4…060768 IdxSect {
0x0605d4…060768 f00 = 0x0007 // 0x605d4 @0x0
0x0605d4…060768 f01 = 0x0008 // 0x605d6 @0x2
0x0605d4…060768 gno = [ // 0x605d8 @0x4
0x0605d4…060768 [0x00]: C0x0007.0x3.0
0x0605d4…060768 [0x01]: C0x0008.0x0.0
0x0605d4…060768 [0x02]: C0x0008.0x1.0
0x0605d4…060768 [0x03]: C0x0008.0x2.0
0x0605d4…060768 ]
0x0605d4…060768 }
0x060768…0608fc Dummy {f00=0x0007, f01=0x0190, f02=» 0 P IDENT TPROC REL 8.2 78-09-15 870105040820 P 8 P* @ 6 P************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS . P* TIO,TWAIT,TEXIT,TACT
0x0608fc…060a90 Dummy {f00=0x0007, f01=0x018e, f02=»* P* 6 P* THIS MODULE CONTAINS MANDATORY LKM PROCESSORS P* FOR TOSS. THESE ARE: N P* n P* -TIO INPUT/OUTPUT x P* P* -TWAIT WAIT P* P* -TEXIT EXIT P* * P* -TACTOT ACTIVATE/RESTAR
0x060a90…060c24 Dummy {f00=0x0007, f01=0x018e, f02=» P*********** P* P* " P ENTRY TIO I/O PROCESSOR , P* L P ENTRY TWAIT WAIT PROCESSOR V P* z P ENTRY TEXIT EXIT PROCESSOR P* , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR P* " P ENTRY TPAUSE PAUSE PROCESSO
0x060c24…060db8 Dummy {f00=0x0007, f01=0x0190, f02=» P EJECT P* P************* P* EXTERNALS * 6 P************* L P* b P* l , P EXTRN DWTADR DWT ADDRESS BLOCK POINTER v " P EXTRN DWTTAB DWT TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & P EXTRN DWTTDM
0x060db8…060f4c Dummy {f00=0x0007, f01=0x0190, f02=»XTRN DWTECB ECB ADDRESS P EXTRN DWTST STATUS P EXTRN TDISP DISPATCHER < 2 P EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT $ P EXTRN LKMRQE LKM REQUEST ERROR , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK FR
0x060f4c…0610e0 Dummy {f00=0x0007, f01=0x018e, f02=»R l * P EXTRN TTB:ID TERMINAL IDENTIFICATION 0 P EXTRN FNDTID SEARCH TERMINAL IDENTIFICATION 8 $ P EXTRN ACTOT 'ACTIVATE' TERMINAL l ( P EXTRN TTB:ST TASK STATUS AND LEVEL P EXTRN TTB:SA SAVE AREA P EXTRN TIODM ENTRY ADDR P EXTRN A
0x0610e0…061274 (0, 123) Dummy {f00=0x0008, f01=0x0190, f02=» P************* P* B P* DISPLACEMENT IN DEVICE WORK TABLE AND EVENT CONTROL BLOCK $ P* j $ PDWTTQ EQU /0E TASK QUEUE IN DWT t & PDWTSB2 EQU /1E STACK BASE 2 IN DWT " PDWTECH EQU /22 ECHO-DEVICE DWT * PECBEL EQU /06 EFFECTIVE LENG
0x061274…061408 Dummy {f00=0x0008, f01=0x0190, f02=»* THIS MODULE IS ENTERED WHEN TERMINAL I/O 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED 2 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED h 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE
0x061408…06159c Dummy {f00=0x0008, f01=0x0190, f02=»RMAL I/O REQUEST ( P* NOT ZERO, I/O AND ACTIVATION P* D P* A5 = TTAB ADDRESS N P* j P* A7 = CODE t P* P* A8 = ECB ADDRESS P* P* < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER * P* WITH
0x06159c…061730 Dummy {f00=0x0008, f01=0x018e, f02=» A7 = ORDER P* P* A8 = ECB-ADDRESS P* : P EJECT D P* R , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- P* " P* -DWTOR DWT-INDEX AND ORDER P* -DWTECB ECB ADDRESS $ P* -DWTST READY AND ECHO FIELDS P* -DW
0x061730…0618c4 Dummy {f00=0x0008, f01=0x0190, f02=» " P* -BITS 0-7 IN THE FIRST WORD P* -ECBEL EFFECTIVE LENGTH . P* -ECBRC RETURN CODE R P* p P z P P P* 2 P* GET DWT ADDRESS AND CHECK IF DEVICE IS BUSY P* P P ( PTIO CF A15,FNDDWT SEARCH DWT
0x0618c4…061a58 Dummy {f00=0x0008, f01=0x0190, f02=»,A9 SAVE TASK STATUS P RF(N) TIO020 DMTASK CALLING $ P LDKL A9,/4000 REQUEST BUSY BIT @ P AN A9,DWTST,A6 h , P RF(NZ) TIOQ20 REQ BUSY,NOT DMTASK CALL PTIO020 EQU * P CCK A7,/BB00 P ABL(E) ATTACH ATTACH ORDER P CCK A7,/B
0x061a58…061bec Dummy {f00=0x0008, f01=0x0190, f02=»A10,/0800 ATTACH BIT P AN A10,DWTST,A6 P RF(Z) TIO030 NOT ATTACHED 4 P CW A5,DWTTAB,A6 V * P RF(NE) TIOQ20 ATTACHED TO OTHER TASK n P AN A3,DWTST,A6 P RF(Z) TIOQ05 DEVICE BUSY PTIO030 EQU * P AN A3,DWTST,A6 P RF(Z)
0x061bec…061d80 Dummy {f00=0x0008, f01=0x0190, f02=» P RF(Z) TIO100 NOT ECHO P LDKL A2,TIODM " P CW A2,DWTADR,A6 8 P RF(E) TIO090 DM-REQUEST P & P LD A2,DWTECH,A6 LOAD ECHO DEVICE p P RF(Z) TIO100 NO ECHO DEVICE & P LDKL A10,/100 BIT 7=INPUT DEVICE P ANR* A10,A6 ECHO ALLOWED?
0x061d80…061f14 (0, 124) Dummy {f00=0x0008, f01=0x018e, f02=»A5,DWTTAB,A2 . P RF(NE) TIOQ10 ECHO ATTACHED TO OTHER TASK P AN A3,DWTST,A2 F " P RF(Z) TIOQ00 ECHO DEVICE BUSY ^ PTIO040 AN A3,DWTST,A2 " P RF(Z) TIOQ10 ECHO DEVICE BUSY P LDKL A3,/A000 0 P XRS A3,DWTST,A2 UPDATE BUSY AND ECHO IN D
0x061f14…0620a8 Dummy {f00=0x0008, f01=0x0190, f02=» b P 6 PTIO100 XRS A3,DWTST,A6 UPDATE BUSY AND ECHO IN DWT P LDKL A3,/7FFF J , P ANRS A3,A8 RESET BIT 0 IN ECB FILE-CODE ` $ P CM ECBEL,A8 -EFFECTIVE LENGTH P CM ECBRC,A8 -RETURN CODE P LDR A3,A7 SAVE CODE P ANK A7,/3F (
0x0620a8…06223c Dummy {f00=0x0008, f01=0x0190, f02=»,DWTTAB,A6 SAVE TTAB ADDRESS IN DWT P RF TIO120 , PTIO110 EQU * > 0 P ST A5,DWTTDM,A6 SAVE TTAB ADDRESS IN DWTTDM R PTIO120 EQU * " P ST A8,DWTECB,A6 -ECB ADDRESS P EJECT P P* , P* UPDATE DWTWAT (WAIT/ACTIVE INDICATOR)
0x06223c…0623d0 Dummy {f00=0x0008, f01=0x0190, f02=»CK IF WAIT REQUESTED v P RF(Z) TIO220 NOT WAIT P LDK A4,1 INDICATE WAIT : P RF TIO230 Z $ PTIO200 LD A3,SRUN SEGM. POINTER l P RF(Z) TIO210 JUMP IF ROOT P SU A2,2,A3 RELATIVE ADDRESS P < PTIO210 CF A15,GETBLK SAVE PARAMETER AN
0x0623d0…062564 Dummy {f00=0x0008, f01=0x0190, f02=»OR ` * P LDK A5,DWTSB2 LOAD STACK BASE 2 IN A5 P ADR A5,A6 8 , P ABI* DWTADR,A6 GO TO DRIVER ACTIVATION J P EJECT z P* P* QUEUE ECHO DEVICE FIRST P* PTIOQ00 LDR A6,A2 P P* P* QUEUE DEVICE FIRST P
0x062564…0626f8 Dummy {f00=0x0008, f01=0x018e, f02=»UE r P & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE P < ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR D P LC A1,TTB:ST+1,A5 GET LEVEL p PTIOQ30 LDR A2,A6 $ P LDR* A6,A6 FOLLOW QUEUE TO END P RF(Z) TIOQ40 END FOUND & P CC A1,TTB:ST+1,A6 C
0x0626f8…06288c Dummy {f00=0x0008, f01=0x0190, f02=» P SUK A3,4 " P LDR A4,A4 CHECK IF ACTIVATION P RF(Z) TIOQ50 NO < P SUK A3,2 YES T 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM j P RF TPDIS P P P* P* ERROR FILE CODE UNKNOWN P* P 0 PTIOERR
0x06288c…062a20 Dummy {f00=0x0008, f01=0x0190, f02=»* P* P* W A I T P* & : P* THIS MODULE IS ENTERED WHEN THE APPLICATION PROGRAM 0 4 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. n 8 P* IT IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING P* PARAMETERS:- P* P* A5
0x062a20…062bb4 (0, 125) Dummy {f00=0x0008, f01=0x0190, f02=»ADDRESS v P LDR A6,A6 $ P RF(Z) TAC010 FILE CODE UNKNOWN " * P LDR* A1,A8 RETURN IF EVENT COMPLETED J P RB(N) TPQUE COMPLETED x , P IM DWTWAT,A6 SET WAIT INDICATOR IN DWT P RB TPDIS GO TO DISPATCHER P EJECT P* P*
0x062bb4…062d48 Dummy {f00=0x0008, f01=0x0190, f02=»HE h P* TERMINAL IT IS STARTED. . P* THIS MODULE IS CALLED BY THE LKM HANDLER , & P* WITH THE FOLLOWING PARAMETERS:- ^ P* P* A5 = TTAB ADDRESS P* P* PTEXIT EQU * " P CF A15,EXIT CALL PROGRAM EXIT P RB TPDIS GO
0x062d48…062edc Dummy {f00=0x0008, f01=0x0190, f02=»HANDLER j * P* WHEN A TERMINAL HAS TO BE ACTIVATED. P* > . P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- H & P* A1 = PARAMETER WHEN A4 NOT ZERO z 2 P* A4 = START ADDRESS AT ACTIVATION, ELSE ZERO P* A5 = TTAB 8 P* A7 = IDENTIFICATION FOR
0x062edc…063070 Dummy {f00=0x0008, f01=0x018e, f02=»10 EQU * * P ABL(Z) LKMRQE TERMINAL NOT IN SYSTEM 8 P CF A15,QTJOB QUEUE CALLING TERMINAL FOR DISPATCHING > P LDR A5,A2 z P LDR A2,A4 0 P RB(Z) TPQUE RESTART: QUEUE FOR DISPATCHING P LD A3,SRUN SEGMENT POINTER P RF(E) TAC020 JUMP
0x063070…063204 Dummy {f00=0x0008, f01=0x40b6, f02=» P RB TPDIS GO TO DISPACHER P EJECT & P* 4 P* > P* T P A U S E H P* ^ P* h & PTPAUSE EQU TPDIS GO TO DISPATCHER r P* P END @ EUE FOR DISPATCHING P LD A3,SRUN SEGMENT POINTER P RF(E) TAC020 JUMP
0x063204…063398 Dummy {f00=0x0008, 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
0x063398…06352c Dummy {f00=0x0008, f01=0x0190, f02=» n , ( w Y : V ! _$ Y 4 ! , ( ! : Y 4 Y 0 X > , ( 2 X 0 ! P Y R ! n , ( _ Y 0 X 2 X 0 ! , ( @A ! Y 0 X 0 , ( 2
0x06352c…0636c0 Dummy {f00=0x0008, f01=0x0190, f02=» w ! _& ! P U Y Z , ( U Y < P Y ` _0 X +T . , ( ! _j ! V X (R X D" T ! ! ^ , ( ZJ9 R Y < , Y +T _t X , ( D: Z|W ! ! _ = Y < , ( X + -P X (R
0x0636c0…063854 (0, 126) Opaque[0x194]
0x063854…0639e8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x063854…0639e8 IdxSect {
0x063854…0639e8 f00 = 0x0009 // 0x63854 @0x0
0x063854…0639e8 f01 = 0x000e // 0x63856 @0x2
0x063854…0639e8 gno = [ // 0x63858 @0x4
0x063854…0639e8 [0x00]: C0x0009.0x0.0
0x063854…0639e8 [0x01]: C0x0009.0x1.0
0x063854…0639e8 [0x02]: C0x0009.0x2.0
0x063854…0639e8 [0x03]: C0x0009.0x3.0
0x063854…0639e8 [0x04]: C0x000a.0x0.0
0x063854…0639e8 [0x05]: C0x000a.0x1.0
0x063854…0639e8 [0x06]: C0x000a.0x2.0
0x063854…0639e8 ]
0x063854…0639e8 }
0x0639e8…063b7c Dummy {f00=0x0009, f01=0x0190, f02=» 0 P IDENT MSUBS REL 8.2 78-09-15 870105040820 P 8 P SWLXY INCLUDED @ P REL 8.1 78-04-21 Z P v P* ~ 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS
0x063b7c…063d10 Dummy {f00=0x0009, f01=0x0190, f02=»**** b P* 2 P* THIS MODULE CONTAINS THE FOLLOWING MONITOR P* SUBROUTINES: L P* d , P* -SAVE8 SAVE 8 REGISTERS ON STACK n 4 P* -QTJOB QUEUE TERMINAL JOB FOR DISPATCHING 2 P* -QMJOB QUEUE MONITOR JOB FOF DISPATCHING
0x063d10…063ea4 Dummy {f00=0x0009, f01=0x0190, f02=»T PROGRAM EXIT * P* -GETBLK GET A FREE MONITOR BLOCK * P* -FREBLK SET A MONITOR BLOCK FREE H " P* -FNDDWT FIND DWT ADDRESS v . P* -FNDTID FIND TERMINAL IDENTIFICATION , P* -TABIO ABORT I/O WITH ACTIVATION P* -TENDI
0x063ea4…064038 Dummy {f00=0x0009, f01=0x0190, f02=»* -HALT HALT MODULE P EJECT " P* 0 P*********** : P* ENTRIES * N P*********** b P* v P* " P ENTRY SAVE8 SAVE 8 REGISTERS $ P ENTRY QTJOB QUEUE TERMINAL JOB " P ENTRY QMJOB QUEUE MONITOR JOB " P ENTRY ACT
0x064038…0641cc Dummy {f00=0x0009, f01=0x018e, f02=»NDDWT FIND DWT 0 P ENTRY FNDTID FIND TERMINAL INDENTIFICATION * P ENTRY TABIO ABORT I/O WITH ACTIVATION J P ENTRY TENDIO END I/O x P ENTRY PFINIT RESTART DEVICE $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY ,
0x0641cc…064360 Dummy {f00=0x0009, f01=0x0190, f02=» P* P* 2 P* ENTRIES TO RESTORE REGISTERS A8-A1 WITHOUT P* ENEABLE INTERRUPTS R P* p P* z " P ENTRY IHRET8 RESTORE FROM A8 " P ENTRY IHRET7 A7 " P ENTRY IHRET6 A6 " P ENTRY IHRET5
0x064360…0644f4 (0, 127) Dummy {f00=0x0009, f01=0x0190, f02=»NTRY IHRET1 A1 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS $ P EJECT Z P* h P************* r P* EXTERNALS * P************* P* P* < P EXTRN DISQUE POINTER TO FIRST PLACE IN DISPATCHER QUEUE & P
0x0644f4…064688 Dummy {f00=0x0009, f01=0x0190, f02=» j P EXTRN TTB:SA SAVE AREA * P EXTRN TTB:PP POINTER TO PENDING QUEUE ( ( P EXTRN TTB:TD TERMINAL DEVICE TABLE V P EXTRN RETUR8 6 P EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN DWTST DWT STATUS " P EXTRN DWTADR -DRIV
0x064688…06481c Dummy {f00=0x0009, f01=0x0190, f02=» ON QUEUE p " P EXTRN DWTTAB -TTAB ADDRESS & P EXTRN DWTTDM DM TASK TTAB ADDRESS 8 ( P EXTRN TCTAB TERMINAL CONTROL TABLE b $ P EXTRN CDTAB COMMON DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EXTRN TTB:SP,TTB:SS $ P
0x06481c…0649b0 Dummy {f00=0x0009, f01=0x018e, f02=» r P EJECT P* P* P* S A V E 8 * P* @ 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK J $ P* WITHOUT ENABLING INTERRUPTS. ~ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A
0x0649b0…064b44 Dummy {f00=0x0009, f01=0x0190, f02=» f , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 8 P ST A1,16,A15 N P LD A3,12,A15 RESTORE A3 d & P ABL 0 THIS IS USED TO BRANCH BACK PSAVE81 EQU *-2 P* P EJECT P* P* P* Q T J O B P*
0x064b44…064cd8 Dummy {f00=0x0009, f01=0x0190, f02=»GRAM TO BE QUEUED. t P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON $ 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS ` P* PUT LAST IN QUEUE. P* P* P* PQTJOB EQU * P INH $ P STR A1,A15 SAVE
0x064cd8…064e6c Dummy {f00=0x0009, f01=0x0190, f02=»D LEVEL TO BE QUEUED z & PQTJ010 LDR A2,A1 SAVE LAST ADDRESS " P LDR* A1,A1 FOLLOW THE THREAD F " P RF(Z) QTJ020 END QUEUE FOUND l & P CC A3,TTB:ST+1,A1 COMPARE LEVELS P RB(NL) QTJ010 TRY NEXT $ PQTJ020 STR A1,A5 INSET IN QUEUE P STR
0x064e6c…065000 Dummy {f00=0x0009, f01=0x0190, f02=» ON LEVEL 49 l P* ENTRY PARAMETERS:- P* 2 P* A1 = PARAMETER < P* V P* A2 = DISPATCH ADDRESS ` P* 8 P* A5 IS SET TO TTAB-ADDRESS OF MONITORJOBS AND THE < P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE P
0x065000…065194 (0, 128) Dummy {f00=0x0009, f01=0x0190, f02=»0 P RF ACT02 AND GO TO ACTOT P EJECT , P* : P* D P* A C T O T , A C T O T P N P* r 2 P* SUBROUTINE TO ACTIVATE A TERMINAL PROGRAM. | P* ENTRY PARAMETERS:- P* P* A1 = PARAMETER P* A2 = DISPATCH AD
0x065194…065328 Dummy {f00=0x0009, f01=0x0190, f02=» < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. H @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QU
0x065328…0654bc Dummy {f00=0x0009, f01=0x0190, f02=»F A15,SAVE8 SAVE REGISTERS P LDK A6,1 INDICATE LIFO " P RF ACT03 B PACTOT EQU * T P CF A15,SAVE8 SAVE REGISTERS h 0 PACT02 LDK A6,0 INDICATE FIFO PENDING QUEUING PACT03 EQU * ( P LD A4,TTB:SA,A5 IS PROGRAM ACTIVE? , P RF(NZ)
0x0654bc…065650 Dummy {f00=0x0009, f01=0x0190, f02=»TB:SS,A5 LAST SEGMENT START * PACT05 ST A2,TTB:SA,A5 DISPATCH ADDRESS $ $ P ST A3,TTB:SP,A5 SEGMENT POINTER R $ P ST A1,TTB:SA+2,A5 AND PARAMETER z $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA * P ST A7,TTB:SA+14
0x065650…0657e4 Dummy {f00=0x0009, f01=0x0190, f02=»T REQUEST IN PENDING QUEUE. P* $ * PACT020 CF A15,GETBLK GET A FREE BLOCK . P LDR A2,A4 P LDR A1,A7 ABORT PARAMETER n P CF A15,GETBLK P ADKL A5,TTB:PP " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5,A5 FOLLOW THE QUEUE THREAD
0x0657e4…065978 Dummy {f00=0x0009, f01=0x018e, f02=»T030 NO, TRY NEXT! PACT040 EQU * " P STR A4,A3 SET BLOCK IN QUEUE . P STR A5,A4 T P RB ACT010 f P EJECT x P* P* P* E X I T P* 8 P* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST P* PENDING PROGRAM
0x065978…065b0c Dummy {f00=0x0009, f01=0x0190, f02=» PEXIT EQU * P INH ( P CM TTB:SA,A5 RESET PROGRAM COUNTER " 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER N $ P RF(Z) EXT010 NO PENDING PROGRAM P LDR* A3,A4 GET QUEUE THREAD 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER 0 P CF A1
0x065b0c…065ca0 Dummy {f00=0x0009, f01=0x0190, f02=»TIVATE TERMINAL PEXT010 RF GBL020 P EJECT 0 P* > P* H P* G E T B L K R P* j 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR t 6 P* BLOCK POOL.REGISTERS A3-A1 ARE STORED IN FOUND P* FREE BLOCK. P* P
0x065ca0…065e34 (0, 129) Dummy {f00=0x0009, f01=0x018e, f02=» P STR A5,A15 SAVE A5 0 P LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE $ P RF(NZ) GBL010 X P LDK A1,/B HALT PARAMETER n . P CF A15,HALT HALT IF ALL BLOCKS OCCUPIED PGBL010 LDR* A5,A4 . P ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE
0x065e34…065fc8 Dummy {f00=0x0009, f01=0x0190, f02=» ~ P EJECT P* P* P* F R E B L K * P* B : P* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK L P* AND SET THIS BLOCK FREE. P* P* ENTRY PARAMETER:- P* P* A4 = BLOCKADDRESS P* P
0x065fc8…06615c Dummy {f00=0x0009, f01=0x0190, f02=» " " P* P* $ PFREBLK EQU * . P INH B P LDR* A3,A4 UPDATE A3 N P LD A1,FREQUE l P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 P LD A1,4,A4 P ABL IHRTN P EJECT P P
0x06615c…0662f0 Dummy {f00=0x0009, f01=0x0190, f02=»D FROM DATA MANAGEMENT t P* A8 = ECB ADDRESS P* 8 P* EXIT PARAMETERS:- B P* ^ P* A2 = DWT INDEX h & P* A6 = DWT ADDRESS IF FOUND ELSE 0 P* P PFNDDWT STR A1,A15 SAVE A1 P LDKL A6,TTB:TD 4 P ADR A6,A5 GET ADD
0x0662f0…066484 Dummy {f00=0x0009, f01=0x0190, f02=»ILE CODE FROM ECB ~ P PFND100 SUK A1,4 " ( P RF(N) FND110 FILE CODE NOT IN TTAB : & P CC A2,1,A6 SEARCH IN DEVICE TABLE f & P RF(NE) FND106 BRANCH IF NOT FOUND P STR A1,A15 P LD A1,2,A6 DWT ADDR " P LD A1,DWTADR,A1 DRIVER ENTRY
0x066484…066618 Dummy {f00=0x0009, f01=0x0190, f02=» P LDR* A1,A15 PFND106 EQU * ( P ADK A6,4 ADDRESS TO NEXT FILE CODE , P RB FND100 TRY NEXT X P EJECT t P* $ P* SEARCH IN COMMON DEVICE TABLE P* P $ PFND110 LD A6,CDTAB CDTAB ADDRESS P LDR* A1,A6 CDTAB LENGTH
0x066618…0667ac Dummy {f00=0x0009, f01=0x0190, f02=» & P RF(NE) FND126 FILE CODE NOT FOUND P STR A1,A15 . P LD A1,2,A6 B P LD A1,DWTADR,A1 V P CWK A1,TIODM n P RF(NE) FND200 NOT DM REQ $ P CF A15,CHKIND CHECK INDEX IN DM P RF FND200 INDEX OK P LDR* A1,A15 PFND126 EQU
0x0667ac…066940 Dummy {f00=0x0009, f01=0x018e, f02=»15 RESET STACK P LCR A2,A6 LOAD DWT INDEX P LD A6,2,A6 LOAD DWT ADDRESS 8 PFND210 RF IHRET1 P EJECT t P* P* P* F N D T I D P* P* B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TERMINAL IDENTIFICATION P*
0x066940…066ad4 (0, 130) Dummy {f00=0x000a, f01=0x0190, f02=» P* P* A2 = TTAB ADDRESS . P* A2 = 0 INDICATES ILLEGAL IDENTIFICATION * P* P* f " PFNDTID STR A1,A15 SAVE REG. A1 p P LD* A1,TCTAB TCTAB LENGTH P AD A1,TCTAB P PFTI010 SUK A1,2 P CW A1,TCTAB $ P RF(E) F
0x066ad4…066c68 Dummy {f00=0x000a, f01=0x0190, f02=»IONS l & P RB(NE) FTI010 NO MATCH. TRY NEXT P 6 PFTI020 RF IHRET1 > , PFTI030 SUR A2,A2 ILLEGAL IDENTIFICATION V P RF IHRET1 P EJECT P* P* $ P* T E N D I O , T A B I O P* P* . P* THIS MODULE IS C
0x066c68…066dfc Dummy {f00=0x000a, f01=0x0190, f02=»D TO START THE TASK ~ P* P* -IF NORMAL I/O WITH WAIT:- & P* J * P* QTJOB IS CALLED TO QUEUE THE TASK T 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- P* P* A5 = TTAB-ADDRESS P* $ P* -IF NORMAL I/O WITH NO
0x066dfc…066f90 Dummy {f00=0x000a, f01=0x0190, f02=»THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION P* ! J 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- ! T P* ! P* A1 = RETURN CODE ! P* A6 = DWT ADDRESS ! P* NO REGISTERS ARE DESTROYED ! P* ! 6 P* N.B. THE ECB R
0x066f90…067124 Dummy {f00=0x000a, f01=0x0190, f02=»EPT ABORT PARAMETER A7 ! d F P* WILL BE SET TO 1 BEFORE ACTOT IS CALLED IN CASE OF ACTIVATION. " , P* (FOR TENDIO THE ABORT PARAMETER = 0) " h P EJECT " P* " 4 P* CHECK IF ANY TERMINAL ON QUEUE FOR THIS DEVICE " P* " PTABIO EQU * " $ P C
0x067124…0672b8 Dummy {f00=0x000a, f01=0x0190, f02=» ON STACK " x . P LDK A7,0 ABORT PARAMETER=0 (NO ABORTION) # PTEN100 EQU * # D $ P LD A5,DWTTQ,A6 ANY TASK QUEUED? # X P RF(Z) TEN110 NO # P # P LD A2,2,A5 TASK STATUS # " P RF(N) TEN105 DM REQUEST NEXT # P LDKL A2,/800 ATTACH BIT 4 # P
0x0672b8…06744c Dummy {f00=0x000a, f01=0x0190, f02=»N'T QUEUE TASK # z PTEN105 EQU * $ 0 P LDR* A3,A5 YES: UPDATE QUEUE ANCHOR ADDRESS $ * P ST A3,DWTTQ,A6 $ ^ . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST $ v P EJECT $ P* $ P* $ P* UPDATE ECB AND DWT $ P* $ P* $ P $ PTEN110
0x06744c…0675e0 Dummy {f00=0x000a, f01=0x018e, f02=»ST $ v & P LD A5,DWTTDM,A6 GET TTAB ADDRESS % 0 P CF A15,REQEND RESET REQ BUSY FOR ALL FILES % 4 PTEN115 EQU * % h P LDKL A2,/8000 % | 2 P ORS A2,DWTST,A6 INDICATE DEVICE READY IN DWT % . P LDKL A3,/DBFF RESET ECHO-BIT AND BITS 5,6 % 2 P ANS A3,DWTST,
0x0675e0…067774 (0, 131) Dummy {f00=0x000a, f01=0x0190, f02=» % X * P ORRS A2,A3 SET EVENT COMPLETED IN ECB & ( P ORS A1,8,A3 SET RETURN CODE IN ECB & 6 $ P CM DWTECB,A6 RESET ECB ADDRESS & b P EJECT & P* & " P* CHECK IF WAIT OR ACTIVATION & P* & 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR & ( P R
0x067774…067908 Dummy {f00=0x000a, f01=0x0190, f02=»DR & ^ . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS ' P RF TEN130 RETURN ' < PTEN120 EQU * ' V 2 P CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING ' j PTEN130 EQU * ' P EJECT ' P* ' P* ' , P* RESTORE REGISTERS AND RETURN WITHOUT ' P*
0x067908…067a9c Dummy {f00=0x000a, f01=0x0190, f02=»* A5,A15 ' PIHRET4 LDR* A4,A15 ( PIHRET3 LDR* A3,A15 ( * PIHRET2 LDR* A2,A15 ( D PIHRET1 LDR* A1,A15 ( ^ PIHRTN INH ( x $ P ADKL A15,4 ADJUST STACK POINTER ( P ABR* A15 AND RETURN ( P EJECT ( P* ( P* ( P* P F I N I T ( P
0x067a9c…067c30 Dummy {f00=0x000a, f01=0x0190, f02=»GISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. ( P* ) > P* ) H PPFINIT EQU * ) R ( P LDK A1,2 SET INDEX TO FIRST ROUTINE ) f $ PPFI100 CW A1,PFTAB CHECK IF LAST ) P RF(NL) PFI110 ALL RESTARTED ) P STR A1,A15 SAVE A1 ) * P CFI A15,PFTAB
0x067c30…067dc4 Dummy {f00=0x000a, f01=0x0190, f02=»WHEN ALL STARTED ) x P EJECT * P* * & P* * 0 P* S W L 4 8 * : P* * P : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. * Z P* * P* * PSWL48 EQU * * P INH * P STR A1,A15 * $ P LDKL A1,/C000 PSW FOR LEVEL 48 * & P
0x067dc4…067f58 Dummy {f00=0x000a, f01=0x0190, f02=»JECT MSUBS * P* + P* + P* S W L X Y + ( P* + > 8 P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO: + H ( P* :=48 IF LEVEL ON STACK IS >=48 + ( P* :=XY " " " " " XY<48 + P* + P* + PSWLXY EQU * + P INH
0x067f58…0680ec Dummy {f00=0x000a, f01=0x018e, f02=» + n P ANK A1,/FC , & P CWK A1,/C0 LEVEL IS IN BITS 8-13 , P RF(NL) LEV48 LEVEL >= 48? , F P ECR A1,A1 NO , h 8 P ORK A1,/C0 SET RUN AND ENABLE FLIP FLOPS (BITS 8&9) , ~ P* , PSETLEV EQU * , ( P ORS A1,4,A15 SET NEW LEVEL ON STACK , P LDR
0x0680ec…068280 Dummy {f00=0x000a, f01=0x0190, f02=» , b P RB SETLEV - P* - P EJECT - $ P* - 2 ( P* INTERRUPT SAVE AND HALT MODULE - < P* - h PINTSAV DATA 0 - r PSAVA15 DATA 0 - " PILLINT LDK A1,5 HALT PARAMETER - P CF A15,HALT - PHALT EQU * - P CF A15,SAVE8 - P STR A9,
0x068280…068414 (0, 132) Dummy {f00=0x000a, f01=0x4046, f02=»TR A1,0,SOP INDICATE TYPE OF HALT - P HLT . * P END . 6@ . B
0x068414…0685a8 Dummy {f00=0x000a, 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. "
0x0685a8…06873c Dummy {f00=0x000a, f01=0x407e, f02=» W T sP wR4 ` H D !6 P P B T P T B W0 )T& / B AW IP mU P h@ z $ 1W $P e % v ECBRL , ( W D (@ H B Z D U ECBEL ECBBA , (
0x06873c…0688d0 Dummy {f00=0x000a, f01=0x40e4, f02=» J F IDENT DRIC0X REL 8.1 78-04-21 870105040810 ITABRT ITADI ITADO R ITADI p ITADO IHRTN ITABRT @ @
0x0688d0…068a64 Dummy {f00=0x000a, f01=0x018e, f02=» J F IDENT ATTACH REL 8.1 78-04-21 870105040810 ATTACH DETACH ATT:CH R ATTACH t TTB:ST , ( T C @ T P U W DWTST DWTTAB TIODM , ( "$ X
0x068a64…068bf8 Dummy {f00=0x000a, f01=0x0190, f02=» , ( QD _ X X GETBLKK 4 , ( k T B Z T @_$ A @ F SETIMPK v TIOQ20B DETACH , ( 1 A N , ( X XT X Z Y
0x068bf8…068d8c Dummy {f00=0x000a, f01=0x0190, f02=» TTB:SAK TPQUE , ( $ ) U ATT:CH P IHRTN d , ( 0P P t FDBADF , ( - $ @ E R 0 , ( I P R I I W I
0x068d8c…068f20 Dummy {f00=0x000a, f01=0x4080, f02=» GP i mT, uT } n < 8 t T 8 h T ( P ER IP MR WW _ h oP * j@ | 0P P t FDBADF , ( - $ @ E R 0 , ( I P R I I W I
0x068f20…0690b4 (0, 133) Opaque[0x194]
0x0690b4…069248 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x0690b4…069248 IdxSect {
0x0690b4…069248 f00 = 0x000b // 0x690b4 @0x0
0x0690b4…069248 f01 = 0x0002 // 0x690b6 @0x2
0x0690b4…069248 gno = [ // 0x690b8 @0x4
0x0690b4…069248 [0x00]: C0x000b.0x1.0
0x0690b4…069248 ]
0x0690b4…069248 }
0x069248…0693dc Dummy {f00=0x000b, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 8.2 78-09-15 870105040820 P* : P* D P* MONITOR TABLE N P* h P* r P ENTRY TTMJOB TABLE ENTRY | " P ENTRY TTB:ST TERMINAL STATUS * P ENTRY TTB:ID TERMINAL IDENTIFICATION * P ENTRY TTB:PP PENDING
0x0693dc…069570 Dummy {f00=0x000b, f01=0x0190, f02=» p " P ENTRY TTB:TD TERMINAL DEVICES P* . P* 8 P* B PTTMJOB DATA 0 TABLE ENTRY L ( PTTB:ST EQU *-TTMJOB TERMINAL STATUS n P DATA 48 0 PTTB:ID EQU *-TTMJOB TERMINAL IDENTIFICATION P DATA /8000 PTTB:PP EQU *-TTMJOB
0x069570…069704 Dummy {f00=0x000b, f01=0x40f6, f02=»R z * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 8 & P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0 H ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES r P DATA TTABE-* PTTABE EQU * P* P* P* P END @ PP EQU *-TTMJOB
0x069704…069898 Dummy {f00=0x000b, 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,
0x069898…069a2c Dummy {f00=0x000b, f01=0x0190, f02=» P* A1 = RETURN CODE & P* A2 = INPUT OR OUTPUT CHARACTER $ P* A3 = BUFFER INDEX N P* A4 = FUNCTION INDEX l P* A5 = STACK BASE P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P EJECT P*
0x069a2c…069bc0 Dummy {f00=0x000b, f01=0x0190, f02=» VOLTAGE ERROR DISPENSER & P* BIT 3: TIMEOUT ERROR DISPENSER ( P* BIT 4: SOLENOID ERROR DISPENSER J * P* BIT 5: ELECTRONICS ERROR DISPENSER v ( P* BIT 6: DETECTOR ERROR DISPENSER * P* BIT 7: FRONT SHUTTER DOESN'T CLOSE ( P* BIT 8:
0x069bc0…069d54 (0, 134) Opaque[0x194]
0x069d54…069ee8 # DirEnt {nam=»INPRET«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0170, f03=0x0000}
0x069d54…069ee8 IdxSect {
0x069d54…069ee8 f00 = 0x000b // 0x69d54 @0x0
0x069d54…069ee8 f01 = 0x0004 // 0x69d56 @0x2
0x069d54…069ee8 gno = [ // 0x69d58 @0x4
0x069d54…069ee8 [0x00]: C0x000b.0x2.0
0x069d54…069ee8 [0x01]: C0x000b.0x3.0
0x069d54…069ee8 ]
0x069d54…069ee8 }
0x069ee8…06a07c Dummy {f00=0x000b, f01=0x0190, f02=» 2 P IDENT INPRET REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* INPRET = SUBROUTINE INTERPRETER P* P* P*
0x06a07c…06a210 Dummy {f00=0x000b, f01=0x0190, f02=» INTERPRETER TO HANDLE SUBROUTINE x < P* CALLS USING THE A14 STACK. THE INTERPRETER IS CALLED * @ P* WITH INSTRUCTION CODES /C001 - /C0FF WHERE /1 - /FF IS A j . P* INDEX. INDEX VAULES ARE 1,2,3,4...... @ P* THE INDEX IS USED TO GET ABSOLUTE AD
0x06a210…06a3a4 Dummy {f00=0x000b, f01=0x018e, f02=»R TABLE. ('CVTINP') l P* H P* THE INTERPRETER MAY ALSO EXECUTE THE FOLLOWING TWO INSTRUCTIONS: & P* r . P* LD R1,DISPL,A13 CALLING CODE: CXYY | P* . P* ST R1,DISPL,A13 CALLING CODE: DXYY P* $ P* X = R1 = REGIST
0x06a3a4…06a538 Dummy {f00=0x000b, f01=0x0190, f02=» P* ENTRY * P********* P* ( P* 2 ( P ENTRY IHINPT TRAP INTERRUPT ADDRESS < P* h P* r P* | P************* P* EXTERNALS * P************* P* P* ( P EXTRN CVTINP FUNCTION TABLE ADDRESS P
0x06a538…06a6cc Dummy {f00=0x000b, f01=0x0190, f02=»IHINPT EQU * $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 < P STR A3,A15 SAVE A3 ON STACK P $ P LD A1,10,A15 LOAD TRAP ADDRESS t P LDR* A2,A1 LOAD TRAP CODE P ADK A1,2 & P ST A1,10,A15 SAVE RETURN ADDRESS P LDR A3,A2 SAV
0x06a6cc…06a860 Dummy {f00=0x000b, f01=0x0190, f02=»EXECUTE LOAD/STORE INSTRUCTION P* & $ P SC A2,DISPL+1 STORE DISPLACMENT 0 , P SRL A3,1 SHIFT TO FIT INSTRUCTION CODE X P SLL A2,3 . P RF(NN) INT100 BRANCH IF LOAD INSTRUCTION ( P ADK A3,1 INDICATE STORE INSTRUCTION 6 PINT100 ADKL A3,/
0x06a860…06a9f4 (0, 135) Dummy {f00=0x000b, f01=0x0190, f02=»15 RESTORE A1-A2 P LDR* A1,A15 ( PINSTR DATA 0 LOAD/STORE INSTRUCTION , PDISPL DATA 0 DISPLACMENT X P STR A1,A15 SAVE A1 x * P CF A15,IHSTAK SAVE CONDITION REGISTER $ PIHSTAK LDR* A1,A15 GET COND. REG $ P ST A1,6,A15 STORE IN RETURN P
0x06a9f4…06ab88 Dummy {f00=0x000b, f01=0x0190, f02=»* P* P* EXECUTE SUBROUTINE CALL P* 8 PINT200 EQU * B 8 P STR A1,A14 STORE CONTINUATION ADDRESS ON A14 STACK V P LD A3,8,A15 ( P ST A3,-2,A14 STORE PSW ON A14 STACK $ P SUKL A14,4 ADJUST STACK POINTER P ANKL A2,/1FFF
0x06ab88…06ad1c Dummy {f00=0x000b, f01=0x40a2, f02=» ADDRESS AND p ( P ST A2,10,A15 STORE IT ON A15 STACK : P ABL RETUR3 RESTORE A1-A3 AND GO TO CALLED SUBROUTINE @ P* ~ P* P END @ ( P ST A3,-2,A14 STORE PSW ON A14 STACK $ P SUKL A14,4 ADJUST STACK POINTER P ANKL A2,/1FFF
0x06ad1c…06aeb0 Dummy {f00=0x000b, f01=0x2008, f02=» RT ADDRESS t 0 P LDR* A2,A2 GET SUBROUTINE START ADDRESS AND ( P ST A2,10,A15 STORE IT ON A15 STACK N : P ABL RETUR3 RESTORE A1-A3 AND GO TO CALLED SUBROUTINE z P* P* P END @ ( P ST A3,-2,A14 STORE PSW ON A14 STACK
0x06aeb0…06b044 Dummy {f00=0x000b, f01=0x0190, f02=» " P* -BITS 0-7 IN THE FIRST WORD P* -ECBEL EFFECTIVE LENGTH . P* -ECBRC RETURN CODE R P* p P z P P P* 2 P* GET DWT ADDRESS AND CHECK IF DEVICE IS BUSY P* P P ( PTIO CF A15,FNDDWT SEARCH DWT
0x06b044…06b1d8 Dummy {f00=0x000b, f01=0x0190, f02=»,A9 SAVE TASK STATUS P RF(N) TIO020 DMTASK CALLING $ P LDKL A9,/4000 REQUEST BUSY BIT @ P AN A9,DWTST,A6 h , P RF(NZ) TIOQ20 REQ BUSY,NOT DMTASK CALL PTIO020 EQU * P CCK A7,/BB00 P ABL(E) ATTACH ATTACH ORDER P CCK A7,/B
0x06b1d8…06b36c Dummy {f00=0x000b, f01=0x0190, f02=»A10,/0800 ATTACH BIT P AN A10,DWTST,A6 P RF(Z) TIO030 NOT ATTACHED 4 P CW A5,DWTTAB,A6 V * P RF(NE) TIOQ20 ATTACHED TO OTHER TASK n P AN A3,DWTST,A6 P RF(Z) TIOQ05 DEVICE BUSY PTIO030 EQU * P AN A3,DWTST,A6 P RF(Z)
0x06b36c…06b500 Dummy {f00=0x000b, f01=0x0190, f02=» P RF(Z) TIO100 NOT ECHO P LDKL A2,TIODM " P CW A2,DWTADR,A6 8 P RF(E) TIO090 DM-REQUEST P & P LD A2,DWTECH,A6 LOAD ECHO DEVICE p P RF(Z) TIO100 NO ECHO DEVICE & P LDKL A10,/100 BIT 7=INPUT DEVICE P ANR* A10,A6 ECHO ALLOWED?
0x06b500…06b694 (0, 136) Opaque[0x194]
0x06b694…06b828 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x06b694…06b828 IdxSect {
0x06b694…06b828 f00 = 0x0002 // 0x6b694 @0x0
0x06b694…06b828 f01 = 0x0002 // 0x6b696 @0x2
0x06b694…06b828 gno = [ // 0x6b698 @0x4
0x06b694…06b828 [0x00]: C0x0002.0x3.0
0x06b694…06b828 ]
0x06b694…06b828 }
0x06b828…06b9bc Dummy {f00=0x0002, f01=0x018e, f02=» 0 P IDENT PFTAB REL 8.2 78-09-15 870105040820 P* 8 P* B P* L P* POWER FAIL TABLE V P* p D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED z P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENT
0x06b9bc…06bb50 Dummy {f00=0x0002, f01=0x4184, f02=» ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS P EXTRN DUON DISC UNIT 0 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION N $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA TCDRON P DATA SOPR P* P DATA CHLTON
0x06bb50…06bce4 Dummy {f00=0x0002, 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
0x06bce4…06be78 Dummy {f00=0x0002, f01=0x0190, f02=»PAR FREE PARTITION POINTER " P ENTRY PARLEN PARTITION LENGTH " & P ENTRY NUMPAR NUMBER OF PARTITIONS H P r , P EXTRN IHPFAR POWER FAIL / AUTO RESTART z P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER
0x06be78…06c00c Dummy {f00=0x0002, f01=0x0190, f02=» * P EXTRN CHRT1 REMOTE CHANNEL UNIT NO. 1 * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 6 P EXTRN CHRT3 d P EXTRN CHRT4 x ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3
0x06c00c…06c1a0 Dummy {f00=0x0002, f01=0x0190, f02=»AL CHANNEL UNIT NO. 4 P EXTRN IHFD FLOPPY DISCEN P EXTRN IHLP LINE PRINTER @ P EXTRN IHCR CARD-READER ` P EXTRN IHDU1 DISC UNIT NO. 1 P EXTRN IHDU2 DISC UNIT NO. 2 P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT
0x06c1a0…06c334 (0, 137) Opaque[0x194]
0x06c334…06c4c8 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x06c334…06c4c8 IdxSect {
0x06c334…06c4c8 f00 = 0x0044 // 0x6c334 @0x0
0x06c334…06c4c8 f01 = 0x0002 // 0x6c336 @0x2
0x06c334…06c4c8 gno = [ // 0x6c338 @0x4
0x06c334…06c4c8 [0x00]: C0x0044.0x1.0
0x06c334…06c4c8 ]
0x06c334…06c4c8 }
0x06c4c8…06c65c Dummy {f00=0x0044, f01=0x018e, f02=» 0 P IDENT LKMAL REL 8.2 78-09-15 870105040820 P* 8 P* B $ P* LINK TO MONITOR REQUEST TABLE L @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE t ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY C
0x06c65c…06c7f0 Dummy {f00=0x0044, f01=0x0190, f02=» * P EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL 2 P EXTRN TIMER TIMER V P EXTRN GETBUF GET BUFFER p P EXTRN RELBUF RELEASE BUFFER P EXTRN TABORT ABORT FUNCTION 2 P EXTRN TASS,IXTASS ASSIGN FILE CODE AND INDEX
0x06c7f0…06c984 Dummy {f00=0x0044, f01=0x0190, f02=»ATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMINAL P DATA TPAUSE TERMINAL PAUSE L P DATA TIMER TIMER p P DATA GETBUF GET BUFFER P DATA RELBUF RELEASE BUFFER P DATA 0 P DATA TABORT ABORT FUNCTION
0x06c984…06cb18 Dummy {f00=0x0044, f01=0x4050, f02=»ASSIGN FILE CODE AND INDEX ~ PLKMALE EQU * " P* 6 P END @@ LA TPAUSE TERMINAL PAUSE L P DATA TIMER TIMER p P DATA GETBUF GET BUFFER P DATA RELBUF RELEASE BUFFER P DATA 0 P DATA TABORT ABORT FUNCTION
0x06cb18…06ccac Dummy {f00=0x0044, 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
0x06ccac…06ce40 Dummy {f00=0x0044, f01=0x0190, f02=»/O MOV DVTOD,/S,TOSSWORK KPF /S,DVTOD ( SCR < INC DVTOD,TOSSWORK H KPF /O d MOV DVTT1,/S,TOSSWORK r KPF /S,DVTT1 SCR INC DVTT1,TOSSWORK KPF /O MOV DWII01,/S,TOSSWORK KPF /S,DWII01
0x06ce40…06cfd4 (0, 138) Opaque[0x194]
0x06cfd4…06d168 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x06cfd4…06d168 IdxSect {
0x06cfd4…06d168 f00 = 0x0044 // 0x6cfd4 @0x0
0x06cfd4…06d168 f01 = 0x0002 // 0x6cfd6 @0x2
0x06cfd4…06d168 gno = [ // 0x6cfd8 @0x4
0x06cfd4…06d168 [0x00]: C0x0044.0x0.0
0x06cfd4…06d168 ]
0x06cfd4…06d168 }
0x06d168…06d2fc Dummy {f00=0x0044, f01=0x0190, f02=» 0 P IDENT DVTKB REL 8.2 78-09-15 870105040820 P* 8 " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVTKB TABLE ENTRY r P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH P* P* PDVTKB EQU * TABLE ENTRY
0x06d2fc…06d490 Dummy {f00=0x0044, f01=0x0190, f02=»R AND ECB-ADDRESS j ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS F $ P DATA 0 WAIT/INDICATE INDICATOR f P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE A
0x06d490…06d624 Dummy {f00=0x0044, f01=0x4140, f02=»ATA /BCA BACKSPACE AND CANCEL " P DATA /ED0 EOR AND DOUBLE ZERO & 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE L 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DVTKB P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,
0x06d624…06d7b8 Dummy {f00=0x0044, 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
0x06d7b8…06d94c Dummy {f00=0x0044, f01=0x0190, f02=»F70 90-97 v ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 > ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF j ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4
0x06d94c…06dae0 Dummy {f00=0x0044, f01=0x0190, f02=»D8-DF r ( P DATA /2D2F,/5354,/5556,/5758 E0-E7 ( P DATA /595A,/7C2C,/255F,/3E3F E8-EF : ( P DATA /3031,/3233,/3435,/3637 F0-F7 f ( P DATA /3839,/3A23,/4027,/3DFF F8-FF P XIF P EJECT P* P* 2 P* TABLE FOR CONVERSION OF AS
0x06dae0…06dc74 (0, 139) Opaque[0x194]
0x06dc74…06de08 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x06dc74…06de08 IdxSect {
0x06dc74…06de08 f00 = 0x000d // 0x6dc74 @0x0
0x06dc74…06de08 f01 = 0x0002 // 0x6dc76 @0x2
0x06dc74…06de08 gno = [ // 0x6dc78 @0x4
0x06dc74…06de08 [0x00]: C0x000d.0x3.0
0x06dc74…06de08 ]
0x06dc74…06de08 }
0x06de08…06df9c Dummy {f00=0x000d, f01=0x0190, f02=» 0 P IDENT DVTTP REL 8.2 78-09-15 870105040820 P* 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTTP EQU * TABL
0x06df9c…06e130 Dummy {f00=0x000d, f01=0x018e, f02=»ATA DWTEND-DVTTP LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK . P DATA 'TP' TTAB-ADDRESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR z P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,
0x06e130…06e2c4 Dummy {f00=0x000d, f01=0x4022, f02=» P* P END @ RDER ( P DATA TPAD POINTER TO ADDRESS BLOCK . P DATA 'TP' TTAB-ADDRESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR z P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,
0x06e2c4…06e458 Dummy {f00=0x000d, 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
0x06e458…06e5ec Dummy {f00=0x000d, f01=0x0190, f02=»M INVALID POLL 3 PBRM120 EQU * 4 & P CF A5,FINTER CHECK IF STA PRESENT 4 * P LDR A6,A3 LOAD DWT TO A6 4 T P RF(NZ) BRM130 STA FOUND 4 v $ P LDKL A6,DWDC00 SELECT TO DCTASK 4 PBRM130 EQU * 4 P ABL SELECT 4 P EJECT 4 P* 4 P* 4 P
0x06e5ec…06e780 Dummy {f00=0x000d, f01=0x0190, f02=»F(Z) BRM220 ACK IS NOT EXPECTED 4 " P LD A6,FDWTUT GET WRITING DWT 5 ( P RF(Z) BRM210 NO ONE WRITING 5 N P LDK A1,2 SET RC=2 5 r ( P CF A5,CWRITE COMPLETE WRITE REQUEST 5 PBRM210 EQU * 5 " P CM XACK RESET 'ACK EXPECTED' 5 PBRM220 EQU * 5 P C
0x06e780…06e914 (0, 140) Opaque[0x194]
0x06e914…06eaa8 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x06e914…06eaa8 IdxSect {
0x06e914…06eaa8 f00 = 0x000e // 0x6e914 @0x0
0x06e914…06eaa8 f01 = 0x0002 // 0x6e916 @0x2
0x06e914…06eaa8 gno = [ // 0x6e918 @0x4
0x06e914…06eaa8 [0x00]: C0x000e.0x1.0
0x06e914…06eaa8 ]
0x06e914…06eaa8 }
0x06eaa8…06ec3c Dummy {f00=0x000e, f01=0x0190, f02=» 0 P IDENT DVTGP REL 8.2 78-09-15 870105040820 P* 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVTGP TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK P* P* PDVTGP EQU * TABLE ENTRY
0x06ec3c…06edd0 Dummy {f00=0x000e, f01=0x0190, f02=»R AND ECB-ADDRESS j ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA 'GP' TTAB-ADDRESS F $ P DATA 0 WAIT/ACTIVATE INDICATOR f 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
0x06edd0…06ef64 Dummy {f00=0x000e, f01=0x4032, f02=» EQU * P* P* P END "@ .DRESS-BLOCK P DATA 'GP' TTAB-ADDRESS F $ P DATA 0 WAIT/ACTIVATE INDICATOR f 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
0x06ef64…06f0f8 Dummy {f00=0x000e, 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
0x06f0f8…06f28c Dummy {f00=0x000e, f01=0x0190, f02=»RY DWFD01 DWT-ADDRESS P* P************* ( P* * > P* EXTERNALS * T P* * j P************* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR P EXTRN D
0x06f28c…06f420 Dummy {f00=0x000e, f01=0x0190, f02=»ETIMP TIMER & P EXTRN INIFLG INITIALIZATION FLAG & P EXTRN INTSAV INTERRUPT SAVE AREA > & P EXTRN TASCII EBCDIC TO ASCII TAB h & P EXTRN TEBCDIC ASCII TO EBCDIC TAB $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH
0x06f420…06f5b4 (0, 141) Opaque[0x194]
0x06f5b4…06f748 # DirEnt {nam=»DVTDN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x06f5b4…06f748 IdxSect {
0x06f5b4…06f748 f00 = 0x000e // 0x6f5b4 @0x0
0x06f5b4…06f748 f01 = 0x0002 // 0x6f5b6 @0x2
0x06f5b4…06f748 gno = [ // 0x6f5b8 @0x4
0x06f5b4…06f748 [0x00]: C0x000e.0x3.0
0x06f5b4…06f748 ]
0x06f5b4…06f748 }
0x06f748…06f8dc Dummy {f00=0x000e, f01=0x018e, f02=» 0 P IDENT DVTDN REL 8.2 78-09-15 870105040820 P* 8 , P* DEVICE WORK TABLE FOR NUMERIC DISPLAY B P* r P ENTRY DVTDN TABLE ENTRY | P* ( P EXTRN DNAD POINTER TO ADDRESS-BLOCK P* PDVTDN EQU * TABLE ENTRY " P DATA /1111
0x06f8dc…06fa70 Dummy {f00=0x000e, f01=0x4162, f02=» V ( P DATA DNAD POINTER TO ADDRESS-BLOCK P DATA 'DN' TTAB-ADDRESS 4 $ P DATA 0 WAIT/ACTIVATE INDICATOR T 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
0x06fa70…06fc04 Dummy {f00=0x000e, 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*
0x06fc04…06fd98 Dummy {f00=0x000e, f01=0x0190, f02=»TR A3,A4 TRACK INTO BUF " P CF A5,SETINH INHIBIT # P* # > P* WRITE DATA SET LABEL # H P* # h P CF A5,DSLIO PREPARE FOR I/O # r P ORK A2,5 PHYSICAL WRITE # ( P CF A5,FD:WRITE WRITE DATA SET LEBEL # $ P CF A5,UNL:RC CHECK RETURN CODE #
0x06fd98…06ff2c Dummy {f00=0x000e, f01=0x018e, f02=»2,/C UNLOCK # P CF A5,FD:REA $ P ORS A3,DWTRCW,A6 $ * P ANK A3,1 $ D , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED $ V P LD A2,DWTA3,A6 INDEX MASK $ , P XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT $ PUNL:80 EQU * $ P RB LOA:75 END:IO $ P I
0x06ff2c…0700c0 Dummy {f00=0x000e, f01=0x0190, f02=» $ v P RB(NZ) UNL:80 ENDIO % P RTN A5 % $ P XIF % 4 P IFT IBM=1 % @ P EJECT % R P* % ` P******************* % j P* SEQUENTIAL READ * % P******************* % P* % PSQREAD EQU * % * P CF A5,DSOPCH GET EOD AND EOD ADDRESS %
0x0700c0…070254 (0, 142) Opaque[0x194]
0x070254…0703e8 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x070254…0703e8 IdxSect {
0x070254…0703e8 f00 = 0x000f // 0x70254 @0x0
0x070254…0703e8 f01 = 0x0002 // 0x70256 @0x2
0x070254…0703e8 gno = [ // 0x70258 @0x4
0x070254…0703e8 [0x00]: C0x000f.0x1.0
0x070254…0703e8 ]
0x070254…0703e8 }
0x0703e8…07057c Dummy {f00=0x000f, f01=0x0190, f02=» 0 P IDENT DVTDI REL 8.2 78-09-15 870105040820 P* 8 P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK P* P*
0x07057c…070710 Dummy {f00=0x000f, f01=0x4188, f02=»0,DWTEND-DVTDI ECB-ADDRESS AND ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK , 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS X $ P DATA 0 ECB QUEUE ANCHOR ADDRESS P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F * P DAT
0x070710…0708a4 Dummy {f00=0x000f, 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
0x0708a4…070a38 Dummy {f00=0x000f, f01=0x0190, f02=»DRESS x P LDR* A2,A4 KEY AREA LENGTH P LDR A1,A2 2 " P ABL(NP) END:10 ILLEGAL LENGTH D P SUK A1,128 j " P ABL(P) END:10 ILLEGAL LENGTH ~ P LDR A3,A2 P* * P* IF ODD CHANGE TO EVEN NO OF BYTES P* P ADK A3,1
0x070a38…070bcc Dummy {f00=0x000f, f01=0x018e, f02=» CF A5,FD:WRI SEARCH KEY P LDR A3,A3 RETURN CODE P RB(NZ) FD:048 > P* T $ P* READ RECORD WITH KEY COMMAND ^ P* PFD:060 EQU * P LDKL A2,/8004 BIO P LD A3,4,A8 REQUESTED LENGTH P CWK A3,130 " P ABL(NE) END:10 IL
0x070bcc…070d60 Dummy {f00=0x000f, f01=0x018e, f02=» ~ P* TEST STATUS * P* * P*************** 8 P* P PFD:070 EQU * Z P LDKL A2,/FFF9 BIO DUMMY n P CF A5,FD:WRI " P ANKL A3,/0201 WRITE PROTECT? P LDR A1,A3 P IFF DAMA+IBM=0 * P CF A5,VOLADR GET VO
0x070d60…070ef4 (0, 143) Opaque[0x194]
0x070ef4…071088 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01f8, f03=0x0000}
0x070ef4…071088 IdxSect {
0x070ef4…071088 f00 = 0x000f // 0x70ef4 @0x0
0x070ef4…071088 f01 = 0x0002 // 0x70ef6 @0x2
0x070ef4…071088 gno = [ // 0x70ef8 @0x4
0x070ef4…071088 [0x00]: C0x000f.0x3.0
0x070ef4…071088 ]
0x070ef4…071088 }
0x071088…07121c Dummy {f00=0x000f, f01=0x0190, f02=» 0 P IDENT DVTDY REL 8.2 78-09-15 870105040820 P* 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVTDY TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDVTDY EQU * TABLE ENTRY
0x07121c…0713b0 Dummy {f00=0x000f, f01=0x0190, f02=»AND ECB-ADDRESS h ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS D $ P DATA 0 WAIT/ACTIVATE INDICATOR d 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
0x0713b0…071544 Dummy {f00=0x000f, f01=0x407e, f02=»EFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE PDWTEND EQU * F P* Z P* d P END n@ zCATOR d 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
0x071544…0716d8 Dummy {f00=0x000f, 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
0x0716d8…07186c Dummy {f00=0x000f, f01=0x0190, f02=» P ANR A1,A2 4 P RF(Z) FDON30 NOT LOCKED 4 P ST A2,DWTA3,A6 SAVE 4 6 P* 4 R P* PUT DRIVE NO IN CIO INSTR 4 P* 4 P SRN A2,A3 DRIVE NO IN A3 4 * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR 4 P LDK A2,/14 LOCK 4 P CF A5,FD:REA 4 P
0x07186c…071a00 Dummy {f00=0x000f, f01=0x0190, f02=» SLL A2,1 4 P CWK A2,/0010 5 P RB(NE) FDON25 5 ( P* 5 > P* ANY REQUEST? 5 H P* 5 ` P* 5 j . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. 5 t P* SET DWTST2 TO -1 5 " P LD A2,DWTST2,A6 SAVED STATUS 5 * P ST A2,DWTST,A6 PUT IN CUURENT S
0x071a00…071b94 (0, 144) Opaque[0x194]
0x071b94…071d28 # DirEnt {nam=»DVTCG «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0208, f03=0x0000}
0x071b94…071d28 IdxSect {
0x071b94…071d28 f00 = 0x0010 // 0x71b94 @0x0
0x071b94…071d28 f01 = 0x0002 // 0x71b96 @0x2
0x071b94…071d28 gno = [ // 0x71b98 @0x4
0x071b94…071d28 [0x00]: C0x0010.0x1.0
0x071b94…071d28 ]
0x071b94…071d28 }
0x071d28…071ebc Dummy {f00=0x0010, f01=0x0190, f02=» 0 P IDENT DVTCG REL 8.2 78-09-15 870105040820 P* 8 $ P* DEVICE WORK TABLE COT GENERAL B P* j P ENTRY DVTCG TABLE ENTRY t P*** ( P EXTRN CGAD POINTER TO ADDRESSBLOCK P EXTRN ECH P* P* PDVTCG EQU * TABLE ENTR
0x071ebc…072050 Dummy {f00=0x0010, f01=0x0190, f02=»DER AND ECB-ADDRESS l ( P DATA CGAD POINTER TO ADDRESS BLOCK P DATA 'CG' TTAB-ADDRESS H $ P DATA 0 WAIT/INDICATE INDICATOR h P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE
0x072050…0721e4 Dummy {f00=0x0010, f01=0x407c, f02=» DATA /BCA BACKSPACE AND CANCEL " P DATA /ED0 EOR AND DOUBLE ZERO ( PDWTEND EQU * N P* b P END l@ xE INDICATOR h P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE
0x0721e4…072378 Dummy {f00=0x0010, 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
0x072378…07250c Dummy {f00=0x0010, f01=0x0190, f02=»WAIT 4 TEXIT F EXITN TACTOTK L FNDTID LKMRQE ACTOT TPAUSE 0 r NATTACX ATTACH DETACH TIOERRK ATT:CH DRIC01 ITADI ITADO ECBCW FNDTID DWTTABN TTB:TD DWTADR DWT
0x07250c…0726a0 Dummy {f00=0x0010, f01=0x0190, f02=» ITADI ITADO IHRTN ITABRT ATTACH " ATTACH TTB:ST DWTST DWTTAB TIODM DWTADR FREBLK TIOERRV GETBLKK SETIMPK TIOQ20B DETACH DWTTQ TDISP TTB:SAK TPQUE ATT:CH IHRTN FDBADF Q
0x0726a0…072834 (0, 145) Opaque[0x194]
0x072834…0729c8 # DirEnt {nam=»DVTCD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0218, f03=0x0000}
0x072834…0729c8 IdxSect {
0x072834…0729c8 f00 = 0x0010 // 0x72834 @0x0
0x072834…0729c8 f01 = 0x0002 // 0x72836 @0x2
0x072834…0729c8 gno = [ // 0x72838 @0x4
0x072834…0729c8 [0x00]: C0x0010.0x3.0
0x072834…0729c8 ]
0x072834…0729c8 }
0x0729c8…072b5c Dummy {f00=0x0010, f01=0x0190, f02=» 0 P IDENT DVTCD REL 8.2 78-09-15 870105040820 P* 8 P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVTCD DISPLAY INDICATOR 03 P* P* ( P EXTRN CDAD POINTER TO ADDRESS-BLOCK P* P*
0x072b5c…072cf0 Dummy {f00=0x0010, f01=0x4140, f02=»0,DWTEND-DVTCD ECB-ADDRESS AND ORDER ( P DATA CDAD POINTER TO ADDRESS-BLOCK , 6 P DATA 'CD',0 TERM.NUMBER AND PROGRAM START ADDRESS X $ P DATA 0 ECB QUEUE ANCHOR ADDRESS P DATA 0 OUTPUT QUEUE P DATA 0,0,0 P RES 4 P DATA 0 P
0x072cf0…072e84 Dummy {f00=0x0010, 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
0x072e84…073018 Dummy {f00=0x0010, f01=0x2008, f02=» NT CDTAB P* P* " P* COMMON DEVICE TABLE , P* L 0 P* THIS TABLE HOLDS DEVICES THAT ARE COMMON V P* TO ALL TASKS P* P ENTRY CDTAB P* P* P* P* P* P* P* P*
0x073018…0731ac Dummy {f00=0x0010, f01=0x0190, f02=» l P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 ( P XRR A2,A8 : P ADK A5,4 L . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED ^ P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " P* CR=0
0x0731ac…073340 Dummy {f00=0x0010, f01=0x0190, f02=» EQU * P CM SYNSW P ABR* A5 P 0 P XIF 8 P EJECT D P* R P* " P* DEVICE WORK TABLE FOR DCTASK f P* P* PDW1500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB AD
0x073340…0734d4 (0, 146) Opaque[0x194]
0x0734d4…073668 # DirEnt {nam=»DVTMS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x0734d4…073668 IdxSect {
0x0734d4…073668 f00 = 0x0011 // 0x734d4 @0x0
0x0734d4…073668 f01 = 0x0002 // 0x734d6 @0x2
0x0734d4…073668 gno = [ // 0x734d8 @0x4
0x0734d4…073668 [0x00]: C0x0011.0x1.0
0x0734d4…073668 ]
0x0734d4…073668 }
0x073668…0737fc Dummy {f00=0x0011, f01=0x0190, f02=» 0 P IDENT DVTMS REL 8.2 78-09-15 870105040820 P* 8 0 P* DEVICE WORK TABLE FOR MAGNETIC STRIPE UNIT B P* v P ENTRY DVTMS TABLE ENTRY P* ( P EXTRN MSAD POINTER TO ADDRESSBLOCK P* P* PDVTMS EQU * TABLE ENTRY "
0x0737fc…073990 Dummy {f00=0x0011, f01=0x0190, f02=»T AND ORDER CODE ~ ( P DATA MSAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS D & P DATA 0 WAIT/ACTIVATION INDICATOR ` 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
0x073990…073b24 Dummy {f00=0x0011, f01=0x4028, f02=»LATOR ~ P* P END @ $ER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS D & P DATA 0 WAIT/ACTIVATION INDICATOR ` 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
0x073b24…073cb8 Dummy {f00=0x0011, f01=0x2008, f02=» ER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS ( & P DATA 0 WAIT/ACTIVATION INDICATOR D P DATA 0 TERMINAL QUEUE n 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
0x073cb8…073e4c Dummy {f00=0x0011, f01=0x0190, f02=» W P W , ( s@@ X R ! Y # ! , TDISP , ( : R _ 4 ! l * & ! " T ! ! , ( 4 X # 4 Y # ! " " P ,$
0x073e4c…073fe0 Dummy {f00=0x0011, f01=0x40fe, f02=» Q V W ` T V T l H D ! p T W Q T + 1P 3Q 9W K x W ] sT P P W ( H D ! V P RN Q PH P R: T2 U W4 T )R /U =W QRD t $ UP [P cW2 wR R T P @ P ,$
0x073fe0…074174 (0, 147) Opaque[0x194]
0x074174…074308 # DirEnt {nam=»DVTOD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0238, f03=0x0000}
0x074174…074308 IdxSect {
0x074174…074308 f00 = 0x0011 // 0x74174 @0x0
0x074174…074308 f01 = 0x0002 // 0x74176 @0x2
0x074174…074308 gno = [ // 0x74178 @0x4
0x074174…074308 [0x00]: C0x0011.0x3.0
0x074174…074308 ]
0x074174…074308 }
0x074308…07449c Dummy {f00=0x0011, f01=0x0190, f02=» 0 P IDENT DVTOD REL 8.2 78-09-15 870105040820 P* 8 0 P* OPTICAL DOCUMENT READER DEVICE WORK TABLE B P* v P ENTRY DVTOD TABLE ENTRY P*** ( P EXTRN ODAD POINTER TO ADDRESSBLOCK P***** P* P* PDVTOD EQU * TA
0x07449c…074630 Dummy {f00=0x0011, f01=0x0190, f02=»TPUT, ORDER AND ECB-ADDRESS t ( P DATA ODAD POINTER TO ADDRESS BLOCK $ P DATA 'OD' TTAB-ADDRESS P $ P DATA 0 WAIT/INDICATE INDICATOR p P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DAT
0x074630…0747c4 Dummy {f00=0x0011, f01=0x40fc, f02=» P DATA 0 P DATA 0 LRC-ACKUMULATOR 6 P DATA DWTSQ+DVTOD POINTER TO FIRST PLACE IN QUEUE 4 4 P DATA DWTSQ+DVTOD POINTER TO LAST PLACE IN QUEUE n PDWTSQ EQU *-DVTOD P RES 0 PDWTEND EQU * P* P END @ P DAT
0x0747c4…074958 Dummy {f00=0x0011, 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
0x074958…074aec Dummy {f00=0x0011, f01=0x0190, f02=» ADK A7,1 P RF(3) CASSPE PARG2PS SRC A7,1 > P RF(6) NOVER1 P ADR A1,A6 | PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVER2 P ORK.L
0x074aec…074c80 Dummy {f00=0x0011, f01=0x0190, f02=» *END* RESTORE SI=N z P RF(0) END1 " P C1R A1,A1 @ P C1R A2,A2 ` P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN THE ADK A2,1 SET AN OVERFLO
0x074c80…074e14 (0, 148) Opaque[0x194]
0x074e14…074fa8 # DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0248, f03=0x0000}
0x074e14…074fa8 IdxSect {
0x074e14…074fa8 f00 = 0x0012 // 0x74e14 @0x0
0x074e14…074fa8 f01 = 0x0002 // 0x74e16 @0x2
0x074e14…074fa8 gno = [ // 0x74e18 @0x4
0x074e14…074fa8 [0x00]: C0x0012.0x1.0
0x074e14…074fa8 ]
0x074e14…074fa8 }
0x074fa8…07513c Dummy {f00=0x0012, f01=0x0190, f02=» 0 P IDENT DVTT1 REL 8.2 78-09-15 870105040820 P* 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTT1 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK P* P* PDVTT1 EQU * TA
0x07513c…0752d0 Dummy {f00=0x0012, f01=0x0190, f02=» DATA DWTEND-DVTT1 LAST OUTPUT CHR,ORDER ( P DATA TPAD3 POINTER TO ADDRESS BLOCK 0 P DATA 'TP' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR | P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A
0x0752d0…075464 Dummy {f00=0x0012, f01=0x40bc, f02=»AL PRINT POSITION z " P DATA 0,0 PRINTING PARAMETERS & P DATA 0 DOC. PARAMETER ADR. TABLE @ P DATA 0 SAVE AREA j PDWTEND EQU * P* P* P END @ P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A
0x075464…0755f8 Dummy {f00=0x0012, 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
0x0755f8…07578c Dummy {f00=0x0012, f01=0x0190, f02=» A6 : DWT-ADDRESS P* A7 : ORDER " P* A8 : ECB-ADDRESS @ P* f P* p P* z P* SYSTEM ADAPTATION P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD
0x07578c…075920 Dummy {f00=0x0012, f01=0x0190, f02=» P* , P* IF TIMING IS WANTED, TIMER POINTER , P* IN DWT MUST BE SET UNEQUAL TO ZERO. > 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS n 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $
0x075920…075ab4 (0, 149) Opaque[0x194]
0x075ab4…075c48 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0258, f03=0x0000}
0x075ab4…075c48 IdxSect {
0x075ab4…075c48 f00 = 0x0012 // 0x75ab4 @0x0
0x075ab4…075c48 f01 = 0x0002 // 0x75ab6 @0x2
0x075ab4…075c48 gno = [ // 0x75ab8 @0x4
0x075ab4…075c48 [0x00]: C0x0012.0x3.0
0x075ab4…075c48 ]
0x075ab4…075c48 }
0x075c48…075ddc Dummy {f00=0x0012, f01=0x0190, f02=» 2 P IDENT DWII01 REL 8.2 78-09-15 870105040820 P* : ( P* INTERTASK COMMUNICATION INPUT DWT D P* p P ENTRY DWII01 TABLE ENTRY z P P EXTRN ITADI DRIVER ENTRY P PDWII01 EQU * & P DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x075ddc…075f70 Dummy {f00=0x0012, f01=0x40c0, f02=» | $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE 0 P DATA 0 TIMER POINTER N P DATA 0 TIME OUT l P DATA 0 P DATA 0,0 SAVE AREA P END @ P PDWII01 EQU * & P DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x075f70…076104 Dummy {f00=0x0012, 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
0x076104…076298 Dummy {f00=0x0012, f01=0x0190, f02=» v P EXTRN DWTST DWT STATUS P EXTRN SETIMP TIMER ( , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID D P EXTRN TTB:TD t P EXTRN TTB:ST TTAB STATUS " P EXTRN DWTTAB DWT TTAB ADDRESS $ P EXTRN DWTADR ACTIVATION ADDRESS * P EXTRN IHRTN R
0x076298…07642c Dummy {f00=0x0012, f01=0x0190, f02=»LENGTH z P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD 2 P* X P* C O N S T A N T S b P* PDWTTP EQU /10 TIMER POINTER " PDWSTB EQU /18 STACK BASE USED * PDWSTB2 EQU /1E STACK BASE 2 (NOT USED) PDWTIM
0x07642c…0765c0 Dummy {f00=0x0012, f01=0x0190, f02=»D PITADO DATA ICAD P " PICAD EQU * * P SUK A7,2 < P RF(Z) READ READ ORDER N P SUK A7,9 l P RF(Z) WRITE WRITE ORDER ~ P SUK A7,/2E P RF(NZ) DIS:OE REQUEST ERROR P* P* S E T T I M E O U T P*
0x0765c0…076754 (0, 150) Opaque[0x194]
0x076754…0768e8 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0268, f03=0x0000}
0x076754…0768e8 IdxSect {
0x076754…0768e8 f00 = 0x0013 // 0x76754 @0x0
0x076754…0768e8 f01 = 0x0002 // 0x76756 @0x2
0x076754…0768e8 gno = [ // 0x76758 @0x4
0x076754…0768e8 [0x00]: C0x0013.0x1.0
0x076754…0768e8 ]
0x076754…0768e8 }
0x0768e8…076a7c Dummy {f00=0x0013, f01=0x0190, f02=» 2 P IDENT DWIO01 REL 8.2 78-09-15 870105040820 P* : ( P* INTERTASK COMMUNICATION INPUT DWT D P* p P ENTRY DWIO01 TABLE ENTRY z P P EXTRN ITADO DRIVER ENTRY P PDWIO01 EQU * P DATA 0 QUEUE LINK P DATA /8000
0x076a7c…076c10 Dummy {f00=0x0013, f01=0x40c8, f02=»WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER > P DATA 0 TIME OUT $ P DATA 0 ADDRESS TO QUEUE ANCHOR t P DATA 0,0 SAVE AREA P END @ PDWIO01 EQU * P DATA 0 QUEUE LINK P DATA /8000
0x076c10…076da4 Dummy {f00=0x0013, 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
0x076da4…076f38 Dummy {f00=0x0013, f01=0x0190, f02=»H BOT P P P LDK A1,/C P CFR A8,A6 SEARCH TAPE MARK 0 P T P PSOP:IL LDKL A1,/0400 d & P OTR A1,0,SOP ILLUMINATE SOP-LAMP P EJECT MONCON P P** . P***************************************** P**
0x076f38…0770cc Dummy {f00=0x0013, f01=0x018e, f02=»******************** ~ P** P & P LDKL A6,CL:ADR-PART:3 . " P ADR A6,A12 SUBROUTINE ADDRESS L P r P z P LDKL A4,CL:TAB-PART:3 * P ADR A4,A12 CLASS TABLE ADDRESS TABLE P P PCLA:10 LDR* A5,A4 * P RF(Z) CLA:20 CL
0x0770cc…077260 Dummy {f00=0x0013, f01=0x0190, f02=» PCLA:20 ADK A4,2 " P RB CLA:10 GET NEXT CLASS TYPE PCLA:30 EQU * B P EJECT MONCON V P n P** v $ P******************************** P** P* SET WORDS IN FREE MEMORY P* AREA = /0000 P** $ P**************
0x077260…0773f4 (0, 151) Opaque[0x194]
0x0773f4…077588 # DirEnt {nam=»DW0701«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0278, f03=0x0000}
0x0773f4…077588 IdxSect {
0x0773f4…077588 f00 = 0x0013 // 0x773f4 @0x0
0x0773f4…077588 f01 = 0x0002 // 0x773f6 @0x2
0x0773f4…077588 gno = [ // 0x773f8 @0x4
0x0773f4…077588 [0x00]: C0x0013.0x3.0
0x0773f4…077588 ]
0x0773f4…077588 }
0x077588…07771c Dummy {f00=0x0013, f01=0x0190, f02=» 2 P IDENT DW0701 REL 8.2 78-09-15 870105040820 P* : P ENTRY DW0701 D P* Z ( P EXTRN DC07AD ACTIVATION ********:** d P* PDW0701 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS
0x07771c…0778b0 Dummy {f00=0x0013, f01=0x40f0, f02=»IVE INDICATOR P DATA 0 TASK QUEUR P DATA 0 TIMER POINTER 0 ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE N P DATA 0 BUFFER QUEUE ANCHOR z * P DATA 0 TIMER POINTER FOR BUFFER QUEUE PDWTEND EQU * P END @ P DATA 0 ECB ADDRESS
0x0778b0…077a44 Dummy {f00=0x0013, f01=0x2008, f02=» R POINTER ( # DATA 0 WRITE QUEUE OR BUFFER QUEUE DATA 0 BUFFER QUEUE ANCHOR F * & DATA 0 TIMER POINTER FOR BUFFER QUEUE j END @ ADDRESS DATA 8000 STATUS DATA 0 ECB ADDRESS DATA 0 ORDER ( # DAT
0x077a44…077bd8 Dummy {f00=0x0013, f01=0x0190, f02=» P CF A5,SETCIO A3,A4 AFFECTED ( P CM DWTRCW,A6 SAVE RETURN CODE WORD , P* X P* CHECK IF LOCKED b P* | $ P LD A1,DWTLC,A6 LOCK INDICATOR " P CF A5,FDIX GET BIT MASK IN A3 * P ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK P ANR A
0x077bd8…077d6c Dummy {f00=0x0013, f01=0x0190, f02=» LOAD LOAD ORDER P LDKL A1,/8001 RETURN CODE P RF FD:090 ENDIO : P EJECT R P* ` P* ORDER? j P* | PFD:ORD EQU * P* P LDR A1,A7 P RF(Z) FD:070 TEST STATUS P SUK A1,1 P RF(Z) FD:040 PHYSICAL READ
0x077d6c…077f00 Dummy {f00=0x0013, f01=0x0190, f02=» FD:020 PHYSICAL WRITE P SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA 0 P SUK A1,/14 X P ABL(Z) UNLOAD UNLOAD ORDER l P IFT IBM=1 P ADK A1,/36 " P ABL(Z) SQREAD SEQUENTIAL READ P SUK A1,4 $ P ABL(Z) SQWRIT SEQUENTIAL
0x077f00…078094 (0, 152) Opaque[0x194]
0x078094…078228 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x078094…078228 IdxSect {
0x078094…078228 f00 = 0x0014 // 0x78094 @0x0
0x078094…078228 f01 = 0x0002 // 0x78096 @0x2
0x078094…078228 gno = [ // 0x78098 @0x4
0x078094…078228 [0x00]: C0x0014.0x1.0
0x078094…078228 ]
0x078094…078228 }
0x078228…0783bc Dummy {f00=0x0014, f01=0x0190, f02=» 2 P IDENT DW1501 REL 8.2 78-09-15 870105040820 P* : : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 D P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PDW1501 EQU * TABLE ENTRY P D
0x0783bc…078550 Dummy {f00=0x0014, f01=0x4188, f02=» P RIGHT BYTE=ORDER * P DATA DC15AD POINTER TO ADDRESS-BLOCK P DATA 'DC' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE
0x078550…0786e4 Dummy {f00=0x0014, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x0786e4…078878 Dummy {f00=0x0014, 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
0x078878…078a0c Dummy {f00=0x0014, f01=0x0190, f02=» (DMSUBR Z CHKIND^ IHRET2 REQEND . FDBADFF DWTTQ QTJOB DWTTDM DWTST IHRTN EATEST x FDBEAL FDBTNR EASETB GETBLKR EARELB FREQUER CRNGETK FDBCRL CRNTIDC CRNQUEC HALTN CRBUFL CALSNO
0x078a0c…078ba0 Dummy {f00=0x0014, f01=0x4146, f02=»DBDBR0 ECBBA BUFDMIR DMTIOZ GTBKBUK EXTDMI ECBFC ECBCW SECTLE ECBRL DMTGBUC BUFSTA DWTOR GTLGRN Z EXTELEF MPYMODF rDMFDB a CRBUFL QFDBFL ` FDBSTA FDBEND CRNQUEK CRNENDK Z MXI
0x078ba0…078d34 (0, 153) Opaque[0x194]
0x078d34…078ec8 # DirEnt {nam=»DW2201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x078d34…078ec8 IdxSect {
0x078d34…078ec8 f00 = 0x0014 // 0x78d34 @0x0
0x078d34…078ec8 f01 = 0x0002 // 0x78d36 @0x2
0x078d34…078ec8 gno = [ // 0x78d38 @0x4
0x078d34…078ec8 [0x00]: C0x0014.0x3.0
0x078d34…078ec8 ]
0x078d34…078ec8 }
0x078ec8…07905c Dummy {f00=0x0014, f01=0x0190, f02=» 2 P IDENT DW2201 REL 8.2 78-09-15 870105040820 P* : : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 D P* P ENTRY DW2201 TABLE ENTRY * P EXTRN DC22AD POINTER TO ADDRESS-BLOCK P* PDW2201 EQU * TABLE ENTRY P D
0x07905c…0791f0 Dummy {f00=0x0014, f01=0x0190, f02=» RIGHT BYTE=ORDER * P DATA DC22AD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR d P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 BUFFER QUEUE ANCHOR " P
0x0791f0…079384 Dummy {f00=0x0014, f01=0x402a, f02=»0 DEVICE LIST (<8) | P END @ &NTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR d P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 BUFFER QUEUE ANCHOR " P
0x079384…079518 Dummy {f00=0x0014, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x079518…0796ac Dummy {f00=0x0014, f01=0x0190, f02=»C I/O K x P LDR A1,A1 L P RF(NZ) DMTERR L P LDKL A1,/C0FF L 6 $ P ANS A1,FDBDBR,A6 RELEASE BUFFER L L PDMT400 EQU * L t " P LDR A1,A6 FDB ADDR DATA FILE L P LD A2,ECBCW+2,A9 L P ANK A2,/FF L P LD A3,ECBCW,A9 LOG REC NR L P LC A11,EC
0x0796ac…079840 Dummy {f00=0x0014, f01=0x0190, f02=»WRITE L ~ P LDK A4,QRD M P CWR A7,A4 M " P RF(E) DMT420 RAND DEL M 4 P LDK A4,QRDD M R P CWR A7,A4 M f ( P RF(E) DMT420 DELAYED RANDEOM DELETE M x P IFT INDXAC=1 M P LDK A4,QDEL M P CWR A7,A4 M P RF(E) DMT420 INDEXED DELETE M P XIF
0x079840…0799d4 (0, 154) Opaque[0x194]
0x0799d4…079b68 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a8, f03=0x0000}
0x0799d4…079b68 IdxSect {
0x0799d4…079b68 f00 = 0x0015 // 0x799d4 @0x0
0x0799d4…079b68 f01 = 0x0002 // 0x799d6 @0x2
0x0799d4…079b68 gno = [ // 0x799d8 @0x4
0x0799d4…079b68 [0x00]: C0x0015.0x1.0
0x0799d4…079b68 ]
0x0799d4…079b68 }
0x079b68…079cfc Dummy {f00=0x0015, f01=0x0190, f02=» 0 P IDENT CTABX REL 8.2 78-09-15 870105040820 P* 8 P* B P* CODE CONVERSION TABLE L P* n P* x P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 E
0x079cfc…079e90 Dummy {f00=0x0015, f01=0x4144, f02=» 5 ( PC6 EQU 0 6 $ ( PC7 EQU 0 7 P P* | P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x079e90…07a024 Dummy {f00=0x0015, 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 @
0x07a024…07a1b8 Dummy {f00=0x0015, f01=0x2008, f02=» P EXTRN IN:LT2 P EXTRN IN:RT1 " P EXTRN IN:RT2 8 P* N P* X P* b P* l PMONTAB EQU * v PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S PDCTAB DATA DC:TAB PINTLT1 DATA IN:LT1
0x07a1b8…07a34c Dummy {f00=0x0015, f01=0x0190, f02=» PX:F EQU 3 $ P* X:F = RETRY LIMIT FOR RECOVERY P* B P* L PBDA EQU 0 V B P* IF BDA = 1, TC ADDRESSES ARE ADAPTED FOR THE BANKDATA CASE: h " P* INPUT = /41 -/4F (A - O) L P* OUTPUT = ADDRESSES ACCORDING TO IBM REMOTE CONT
0x07a34c…07a4e0 Dummy {f00=0x0015, f01=0x0190, f02=» SAVING d H P* LINE NUMBER, ORDER, RETURN CODE AND TID FOR THE 100 LAST REQUESTS. P* P* f P EJECT p P* ~ < P******************************************************* P* P* SYSTEM PARAMETERS P* < P****************
0x07a4e0…07a674 (0, 155) Opaque[0x194]
0x07a674…07a808 # DirEnt {nam=»BLOK:S«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02f8, f03=0x0000}
0x07a674…07a808 IdxSect {
0x07a674…07a808 f00 = 0x0017 // 0x7a674 @0x0
0x07a674…07a808 f01 = 0x0002 // 0x7a676 @0x2
0x07a674…07a808 gno = [ // 0x7a678 @0x4
0x07a674…07a808 [0x00]: C0x0017.0x3.0
0x07a674…07a808 ]
0x07a674…07a808 }
0x07a808…07a99c Dummy {f00=0x0017, f01=0x0190, f02=» 2 P IDENT BLOK:S REL 8.2 78-09-15 870105040820 P* : P* D P* MONITOR BLOCKS N P* h P* r & P ENTRY BLOK:S START OF BLOCK POOL | $ P ENTRY BLOCKE BLOCK POOL LENGTH P* P* P* PBLOK:S EQU * P*
0x07a99c…07ab30 Dummy {f00=0x0017, f01=0x0190, f02=» P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 4 P DATA *+6,0,0 J P DATA *+6,0,0 ` P DATA *+6,0,0 v P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0
0x07ab30…07acc4 Dummy {f00=0x0017, f01=0x0190, f02=» P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 0 P DATA *+6,0,0 F P DATA *+6,0,0 P DATA *+6,0,0 r P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0
0x07acc4…07ae58 Dummy {f00=0x0017, f01=0x40c2, f02=» DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 , P DATA *+6,0,0 B P DATA 0,0,0 LAST BLOCK X PBLOCKE EQU *-BLOK:S v P* P* P END P*EOF @ P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0
0x07ae58…07afec Dummy {f00=0x0017, f01=0x2008, f02=» P DATA *+6,0,0 P DATA *+6,0,0 ( P DATA *+6,0,0 > P DATA *+6,0,0 T P DATA *+6,0,0 j P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DAT
0x07afec…07b180 Dummy {f00=0x0017, f01=0x018e, f02=»D A1,ECBCW,A8 KEY TABLE ADDRESS P RF(Z) AOD340 NO KEYTABLE ( " P LCR A4,A1 TABLE LENGTH IN A4 J P ANK A4,/FF p & P ADR A1,A4 LAST PLACE IN KEY TABLE P ADK A1,1 PAOD335 EQU * P SUK A4,1 P RF(N) AOD340 KEY NOT FOUND
0x07b180…07b314 (0, 156) Opaque[0x194]
0x07b314…07b4a8 # DirEnt {nam=»CD:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x07b314…07b4a8 IdxSect {
0x07b314…07b4a8 f00 = 0x0027 // 0x7b314 @0x0
0x07b314…07b4a8 f01 = 0x0002 // 0x7b316 @0x2
0x07b314…07b4a8 gno = [ // 0x7b318 @0x4
0x07b314…07b4a8 [0x00]: C0x0027.0x2.0
0x07b314…07b4a8 ]
0x07b314…07b4a8 }
0x07b4a8…07b63c Dummy {f00=0x0027, f01=0x0190, f02=» 2 P IDENT CD:TAB REL 8.2 78-09-15 870105040820 P* : P* COMMON DEVICE TABLE D P* d 0 P* THIS TABLE HOLDS DEVICES THAT ARE COMMON n P* TO ALL TASKS P* P ENTRY CD:TAB P ENTRY CDTABF P EXTRN DWDU01 P
0x07b63c…07b7d0 Dummy {f00=0x0027, f01=0x0190, f02=»* P* P* P* P* ( P* 2 P* < P* F P* P PCD:TAB DATA CDTABE-* Z P DATA /0012 v P DATA DWTC01 P DATA /0010 P DATA DWSI01 P DATA
0x07b7d0…07b964 Dummy {f00=0x0027, f01=0x40a2, f02=» P DATA DWDU01 PCDTABF EQU * P DATA 0,0,0,0,0,0,0,0 0 P DATA 0,0 N P* ` PCDTABE EQU * j P* ~ P* P END @ A DWTC01 P DATA /0010 P DATA DWSI01 P DATA
0x07b964…07baf8 Dummy {f00=0x0027, f01=0x2008, f02=» NT CDTAB P* P* " P* COMMON DEVICE TABLE , P* L 0 P* THIS TABLE HOLDS DEVICES THAT ARE COMMON V P* TO ALL TASKS P* P ENTRY CDTAB P* P* P* P* P* P* P* P*
0x07baf8…07bc8c Dummy {f00=0x0027, f01=0x018e, f02=»20 EQU * 3 P SUK A3,2 4 $ P RF(N) DMT640 MORE THAN 4 INDEX 4 " P LDR A6,A10 4 J P ADR A6,A3 4 ^ P LD A2,FDBAI1,A6 4 p P RB(NZ) DMT620 USED 4 * P ST A12,FDBAI1,A6 STORE FDB ADDR INDEX 4 P* 4 < P* MOVE FDB ADDRESSES FROM DATA FILE TO ALL
0x07bc8c…07be20 Dummy {f00=0x0027, f01=0x018e, f02=» P LDR A1,A10 FDB DATA 5 P ADR A1,A5 5 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 5 2 P RB(Z) DMT625 NO INDEX FILE 5 Z P LDKL A1,FDBADF 5 ~ P ADR A3,A1 TO ADDR 5 P ADR A1,A10 FROM ADDR 5 P LDK A2,10 NO OF BYTES 5 P CF A14,DMTWM MOVE 5 WORDS 5
0x07be20…07bfb4 (0, 157) Opaque[0x194]
0x07bfb4…07c148 # DirEnt {nam=»TC:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0420, f03=0x0000}
0x07bfb4…07c148 IdxSect {
0x07bfb4…07c148 f00 = 0x0021 // 0x7bfb4 @0x0
0x07bfb4…07c148 f01 = 0x0002 // 0x7bfb6 @0x2
0x07bfb4…07c148 gno = [ // 0x7bfb8 @0x4
0x07bfb4…07c148 [0x00]: C0x0021.0x0.0
0x07bfb4…07c148 ]
0x07bfb4…07c148 }
0x07c148…07c2dc Dummy {f00=0x0021, f01=0x0190, f02=» 2 P IDENT TC:TAB REL 8.2 78-09-15 870105040820 P* : P* D P* N P* TERMINAL CONTROL TABLE X P* z P* P ENTRY TC:TAB TABLE ENTRY P ENTRY TCTABT P EXTRN TTABTC P EXTRN TTABTD P
0x07c2dc…07c470 Dummy {f00=0x0021, f01=0x4166, f02=»LE p P* P* P* $ PTC:TAB DATA TTABE-* TABLE LENGTH ( & P DATA TTMJOB,TTABD0 MONITOR TABLE P PTCTABT EQU * z P DATA TTABTC P DATA TTABTD P DATA TTABTE P DATA TTABTF
0x07c470…07c604 Dummy {f00=0x0021, f01=0x2008, f02=» NT TCTAB P* P* " P* , P* TERMINAL CONTROL TABLE 6 P* X P* b P ENTRY TCTAB TABLE ENTRY l P* P* P EXTRN TTMJOB MONITOR TABLE P* P* P* P* $ PTCTAB DATA TTABE-* TABLE LEN
0x07c604…07c798 Dummy {f00=0x0021, f01=0x0190, f02=» J l P LKM K P DATA -1 I/O AND ACTIVATION K " P DATA DMTAR2 DMTASK RESTART #2 K 8 P LKM K ^ P DATA 3 EXIT K j P EJECT K ~ P* K P************** K P* DMTAR2 * K P************** K P* K P* K , PDMTAR2 EQU * DMTASK RESTART
0x07c798…07c92c Dummy {f00=0x0021, f01=0x0190, f02=»C I/O K x P LDR A1,A1 L P RF(NZ) DMTERR L P LDKL A1,/C0FF L 6 $ P ANS A1,FDBDBR,A6 RELEASE BUFFER L L PDMT400 EQU * L t " P LDR A1,A6 FDB ADDR DATA FILE L P LD A2,ECBCW+2,A9 L P ANK A2,/FF L P LD A3,ECBCW,A9 LOG REC NR L P LC A11,EC
0x07c92c…07cac0 Dummy {f00=0x0021, f01=0x0190, f02=»WRITE L ~ P LDK A4,QRD M P CWR A7,A4 M " P RF(E) DMT420 RAND DEL M 4 P LDK A4,QRDD M R P CWR A7,A4 M f ( P RF(E) DMT420 DELAYED RANDEOM DELETE M x P IFT INDXAC=1 M P LDK A4,QDEL M P CWR A7,A4 M P RF(E) DMT420 INDEXED DELETE M P XIF
0x07cac0…07cc54 (0, 158) Opaque[0x194]
0x07cc54…07cde8 # DirEnt {nam=»TTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e8, f03=0x0000}
0x07cc54…07cde8 IdxSect {
0x07cc54…07cde8 f00 = 0x0017 // 0x7cc54 @0x0
0x07cc54…07cde8 f01 = 0x0002 // 0x7cc56 @0x2
0x07cc54…07cde8 gno = [ // 0x7cc58 @0x4
0x07cc54…07cde8 [0x00]: C0x0017.0x1.0
0x07cc54…07cde8 ]
0x07cc54…07cde8 }
0x07cde8…07cf7c Dummy {f00=0x0017, f01=0x0190, f02=» 0 P IDENT TTABX REL 8.2 78-09-15 870105040820 P* 8 P* B P* T A S K T A B L E L P* l P* v P ENTRY TTABX TABLE ENTRY P* P* P* P* P* PTTABX DATA 0 P DATA /3C TASK LEVEL & P DATA
0x07cf7c…07d110 Dummy {f00=0x0017, f01=0x4098, f02=» x P DATA 0 TERMINAL SAVE AREA P RES 14 * P* : " P DATA TTABE-* TERMINAL DEVICES D PTTABE EQU * j P* ~ P END @ P* P* P* P* P* PTTABX DATA 0 P DATA /3C TASK LEVEL & P DATA
0x07d110…07d2a4 Dummy {f00=0x0017, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x07d2a4…07d438 Dummy {f00=0x0017, f01=0x0190, f02=» B P* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM P* J 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL T P* D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST $ P* CHARACTER IN OUTPUT BUFFER P
0x07d438…07d5cc Dummy {f00=0x0017, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* < $ P* ORDER 00 : TEST STATUS F P* ORDER 06 : WRITE n 0 P* ORDER 0B : POSITION LIFT AND WRITE $ P* ORDER 22 : CUT JOURNAL * P* ORDER 26 : PERFORAT
0x07d5cc…07d760 Dummy {f00=0x0017, f01=0x018e, f02=»E FOLLOWING RETURN CODES ARE USED: P* * & P* BIT 0 : REQUEST ERROR 4 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
0x07d760…07d8f4 (0, 159) Opaque[0x194]
0x07d8f4…07da88 # DirEnt {nam=»DC:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02d8, f03=0x0000}
0x07d8f4…07da88 IdxSect {
0x07d8f4…07da88 f00 = 0x0016 // 0x7d8f4 @0x0
0x07d8f4…07da88 f01 = 0x0002 // 0x7d8f6 @0x2
0x07d8f4…07da88 gno = [ // 0x7d8f8 @0x4
0x07d8f4…07da88 [0x00]: C0x0016.0x3.0
0x07d8f4…07da88 ]
0x07d8f4…07da88 }
0x07da88…07dc1c Dummy {f00=0x0016, f01=0x4178, f02=» 2 P IDENT DC:TAB REL 8.2 78-09-15 870105040820 P* : P* D P* DC CONFIGURATION TABLE N P* n P* x P ENTRY DC:TAB,DCTAB P* P* P* P* P* P* P* P* PDCTAB DATA DC:TAB & P
0x07dc1c…07ddb0 Dummy {f00=0x0016, f01=0x2008, f02=» DWDC08 P DATA DWDC09 P DATA DWDC10 6 PDCTABE EQU * END OF TABLE V P* x P* P END @ TH ~ P DATA DWDC01 P DATA DWDC02 P DATA DWDC03 P
0x07ddb0…07df44 Dummy {f00=0x0016, f01=0x2008, f02=» NT TCTAB P* P* " P* , P* TERMINAL CONTROL TABLE 6 P* X P* b P ENTRY TCTAB TABLE ENTRY l P* P* P EXTRN TTMJOB MONITOR TABLE P* P* P* P* $ PTCTAB DATA TTABE-* TABLE LEN
0x07df44…07e0d8 Dummy {f00=0x0016, f01=0x401e, f02=» EQU * 2 P END 3 @ 3 ANKL A3,/8FFF 2 P SRC A2,4 2 4 P ORR A3,A2 2 F P STR A3,A6 RESTORE 2 X P RTN A5 2 r P EJECT 2 P* 2 P* 2 * P* STINTA = STATUS INFORMATION TABLE 2 P* 2 PSTINTA EQU * 2 & P DATA STARP1,STOPP1,STAR
0x07e0d8…07e26c Dummy {f00=0x0016, f01=0x2008, f02=» 4 END I/O % h P EJECT & P* & & P* & 0 * P* STINTA = STATUS INFORMATION TABLE & : P* & h PSTINTA EQU * & r & P DATA STARP1,STOPP1,STARP2,STOPP2 & & P DATA STARP3,STOPP3,STARP4,STOPP4 & & P DATA TISWCA,TIANTC,TIPILO,TIBUZZ & P DAT
0x07e26c…07e400 Dummy {f00=0x0016, f01=0x0190, f02=»1 D P SUK A2,1 E P RB FDIX10 E PFDIX20 RTN A5 E . P EJECT E D P IFF DAMA+IBM=0 E R P****************** E j P* * E P* VOLADR * E P* * E P****************** E P* E P* INPUT: A6 DWT
0x07e400…07e594 (0, 160) Opaque[0x194]
0x07e594…07e728 # DirEnt {nam=»INTLT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0530, f03=0x0000}
0x07e594…07e728 IdxSect {
0x07e594…07e728 f00 = 0x0029 // 0x7e594 @0x0
0x07e594…07e728 f01 = 0x0004 // 0x7e596 @0x2
0x07e594…07e728 gno = [ // 0x7e598 @0x4
0x07e594…07e728 [0x00]: C0x0029.0x2.0
0x07e594…07e728 [0x01]: C0x0029.0x3.0
0x07e594…07e728 ]
0x07e594…07e728 }
0x07e728…07e8bc Dummy {f00=0x0029, f01=0x0190, f02=» 2 P IDENT INTLT1 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x07e8bc…07ea50 Dummy {f00=0x0029, f01=0x0190, f02=»TABLE ENTRY P EXTRN DWKB01 P EXTRN DWTP01 4 P EXTRN DWDY01 T P EXTRN DWKB02 t P EXTRN DWTP02 P EXTRN DWDY02 P EXTRN DWKB03 P EXTRN DW
0x07ea50…07ebe4 Dummy {f00=0x0029, f01=0x0190, f02=» P* P* TERMINAL PARAMETERS P* . P* 8 , P* RIGHT BYTE = 2 * NUMBER OF DEVICES B P* r P* | P* PT1 EQU /006 PT2 EQU /006 PT3 EQU /006 PT4 EQU /006 P
0x07ebe4…07ed78 Dummy {f00=0x0029, f01=0x0190, f02=» DATA TN4 P DATA 0 P DATA 0 6 P DATA 0 R P DATA 0 n PTN1 EQU * P DATA T1 P DATA DWKB01 P DATA DWTP01 P
0x07ed78…07ef0c Dummy {f00=0x0029, f01=0x4188, f02=»02 z P DATA DWDY02 PTN3 EQU * * P DATA T3 F P DATA DWKB03 b P DATA DWTP03 P DATA DWDY03 PTN4 EQU * P DATA T4 P DATA
0x07ef0c…07f0a0 Dummy {f00=0x0029, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x07f0a0…07f234 (0, 161) Dummy {f00=0x0029, f01=0x0190, f02=» * P* READ SECTOR N * P* * : P********************** X P* v 0 PREAD:N CF A5,WER:R EXECUTE WER INSTRUCTIONS P CF A5,READ READ SECTOR N P ANK A1,/F $ P RF(Z) READ10 OK. NO RETURN CODE
0x07f234…07f3c8 Dummy {f00=0x0029, f01=0x0190, f02=»******************* P* * P* CHECK CYLINDER NUMBER * @ P* * d P*************************** P* P* 4 PREAD10 LD A2,DWTCYL,A6 REQUESTED CYLINDER NUMBER 6 P CW* A2,2,A8 COM
0x07f3c8…07f55c Dummy {f00=0x0029, f01=0x0190, f02=»RDU01 P P P* P********************* ( P* * F P* TEST STATUS * d P* * P********************* P* 4 PTEST LDKL A2,DWTNAM VOLUME NAME DWT DISPLACEMENT P ADR A2,
0x07f55c…07f6f0 Dummy {f00=0x0029, f01=0x018e, f02=»A2,10,A8 SAVE ADDRESS TO VOLUME NAME P SUR A1,A1 SET RETURN CODE=0 , P ABL END:IO PEABLORM ENDIO P P EJECT DRDU01 r P P P* " P****************************** " P* * " P* EXECUTE WER INSTRUCTI
0x07f6f0…07f884 Dummy {f00=0x0029, f01=0x0190, f02=» l & P LDKL A3,BUF DRIVER BUFFER ADDRESS P RF EX:WER 2 P D P L & PWER:R LDKL A2,/80CD READ 1 SECTOR T P CWK A3,BUF ~ P RF(E) EX:WER P RF WER:WB P P & PWER:W LDKL A2,/C0CD WRITE 1 SECTOR * PWER:WB LD A3,2,A8 US
0x07f884…07fa18 Dummy {f00=0x0029, f01=0x018e, f02=» P EJECT DRDU01 P P $ P* , P******************* 6 P* * R P* SEEK CYLINDER * n P* * P******************* P* ( PSEEK LD A2,DWTCYL,A6 CYLINDER NUMBER P SLL A2,3
0x07fa18…07fbac Dummy {f00=0x0029, f01=0x0190, f02=» t P P ( PREAD5 LC A2,DWTSEC,A6 SECTOR NUMBER P ANK A2,/1F D P SUK A2,3 SECTOR N-1 X P ANK A2,/1F t P SLL A2,2 P RF CIO EXECUTE CIO-START P EJECT DRDU01 P P & PREAD LC A2,DWTSEC,A6 SECTOR NUMBER
0x07fbac…07fd40 Dummy {f00=0x0029, f01=0x0190, f02=» , P ST* A2,2,A8 PUT CYLNMB. IN USER BUFFER " P LC A2,DWTSEC,A6 SECTOR NUMBER 4 P SLL A2,2 Z P ADK A2,1 l P EJECT DRDU01 ~ P P P PCIO EQU * P P PEX:CIO LC A1,DWTOR,A6 P ANK A1,1 INDEX P A
0x07fd40…07fed4 (0, 162) Opaque[0x194]
0x07fed4…080068 # DirEnt {nam=»INTLT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x07fed4…080068 IdxSect {
0x07fed4…080068 f00 = 0x0018 // 0x7fed4 @0x0
0x07fed4…080068 f01 = 0x0002 // 0x7fed6 @0x2
0x07fed4…080068 gno = [ // 0x7fed8 @0x4
0x07fed4…080068 [0x00]: C0x0018.0x3.0
0x07fed4…080068 ]
0x07fed4…080068 }
0x080068…0801fc Dummy {f00=0x0018, f01=0x0190, f02=» 2 P IDENT INTLT2 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x0801fc…080390 Dummy {f00=0x0018, f01=0x40f8, f02=»TABLE ENTRY P* P* TERMINAL PARAMETERS P* > P* H , P* RIGHT BYTE = 2 * NUMBER OF DEVICES R P* P* P* P* PINTLT2 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED T
0x080390…080524 Dummy {f00=0x0018, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x080524…0806b8 Dummy {f00=0x0018, f01=0x4124, f02=» 2 PDWTCYL EQU *-DWDU01 3 P DATA /FFFF CYLINDER NUMBER 3 $ P IFT TYPE1=0 3 H PDWTCMX EQU *-DWDU01 3 $ P DATA MAXCY5 MAX CYLINDER X/1215 3 x P XIF 3 P IFT TYPE1=1 3 PDWTCMX EQU *-DWDU01 3 ( P DATA MAXCY6 MAX CYLINDER NO X/1216 3 P
0x0806b8…08084c Dummy {f00=0x0018, f01=0x2008, f02=» 4 -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 . @
0x08084c…0809e0 Dummy {f00=0x0018, f01=0x0190, f02=» A4,A6 ADD DWT-ADDRESS P LDR A1,A6 P CF A15,SETIMP SET TIME 0 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME P . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P* P XIF P* & PAKB210 LD A2,4,A8 REQUESTED LENGTH , PAKB220 R
0x0809e0…080b74 (0, 163) Opaque[0x194]
0x080b74…080d08 # DirEnt {nam=»INTLT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0328, f03=0x0000}
0x080b74…080d08 IdxSect {
0x080b74…080d08 f00 = 0x0019 // 0x80b74 @0x0
0x080b74…080d08 f01 = 0x0002 // 0x80b76 @0x2
0x080b74…080d08 gno = [ // 0x80b78 @0x4
0x080b74…080d08 [0x00]: C0x0019.0x1.0
0x080b74…080d08 ]
0x080b74…080d08 }
0x080d08…080e9c Dummy {f00=0x0019, f01=0x0190, f02=» 2 P IDENT INTLT3 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x080e9c…081030 Dummy {f00=0x0019, f01=0x40f8, f02=»TABLE ENTRY P* P* TERMINAL PARAMETERS P* > P* H , P* RIGHT BYTE = 2 * NUMBER OF DEVICES R P* P* P* P* PINTLT3 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED T
0x081030…0811c4 Dummy {f00=0x0019, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x0811c4…081358 Dummy {f00=0x0019, f01=0x4010, f02=» END @ = DEVICE DEPENDENT ECHO SUBROUTINE P* : PECHOCD EQU * D P LDR A7,A7 EOR ? X P RF(N) ECHO10 p P CF A5,OUTPUT SEND CHARACTER PECHO10 ABL ECHRTN P EJECT P* P* R C C D P* P* PRCCD
0x081358…0814ec Dummy {f00=0x0019, f01=0x2008, f02=» A15,SAVE8 LD A7,DWTST,A6 RB(N) EXIT 2 LDK A1,2 F RB ENDIO X * j * t END ~@ LD A4,DWTST,A6 STATUS RF(N) EXIT LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O ABL LDR
0x0814ec…081680 Dummy {f00=0x0019, f01=0x0190, f02=» SUK A4,1 DECREMENT RETRY COUNTER $ P ABL(Z) END:IO ALL RETRIES DONE * P RB WRIT:N TRY AGAIN R P n P IFT RAW=1 v PWRIT20 CWK A7,5 P ABL(E) END:IO BASIC WRITE & P LDKL A3,BUF DRIVER BUFFER ADDRESS P XIF P IFF RAW=1 $
0x081680…081814 (0, 164) Opaque[0x194]
0x081814…0819a8 # DirEnt {nam=»INTLT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x081814…0819a8 IdxSect {
0x081814…0819a8 f00 = 0x0019 // 0x81814 @0x0
0x081814…0819a8 f01 = 0x0002 // 0x81816 @0x2
0x081814…0819a8 gno = [ // 0x81818 @0x4
0x081814…0819a8 [0x00]: C0x0019.0x3.0
0x081814…0819a8 ]
0x081814…0819a8 }
0x0819a8…081b3c Dummy {f00=0x0019, f01=0x0190, f02=» 2 P IDENT INTLT4 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x081b3c…081cd0 Dummy {f00=0x0019, f01=0x40f8, f02=»TABLE ENTRY P* P* TERMINAL PARAMETERS P* > P* H , P* RIGHT BYTE = 2 * NUMBER OF DEVICES R P* P* P* P* PINTLT4 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED T
0x081cd0…081e64 Dummy {f00=0x0019, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x081e64…081ff8 Dummy {f00=0x0019, f01=0x0190, f02=» P ABL(Z) BRM500 NAK RECEIVED ; P IFT MSV1=0 ; ( P LDR A8,A2 ; < $ P CF A5,READP READ ONE CHARACTER ; N P RF(NZ) BRM150 PARITY ERROR ; v P CWR A2,A8 ; & P RF(NE) BRM150 INVALID ADDRESSING ; P XIF ; P LDK A3,0 ; P CC A2,DW1500+1 ;
0x081ff8…08218c Dummy {f00=0x0019, f01=0x0190, f02=»,READP READ 1:ST STA ; P RF(NZ) BRM150 PARITY ERROR < P LDR A8,A2 < @ P IFT MSV1=0 < R P CF A5,READP READ 2:ND STA < f P RF(NZ) BRM150 PARITY ERROR < P CWR A2,A8 < , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE < P XIF < " P CF A5,READ RE
0x08218c…082320 Dummy {f00=0x0019, f01=0x0190, f02=»Q SALCUZ < P XIF SALCUZ = P RF(NZ) BRM150 NOT ENQ = ( P IFT P6805=0 SALCUZ = F $ P CF A5,READ READ LAST CHARACTER = b P = " P* TRAILING PAD CAN BE CHECKED = P = P CIO A1,0,LCUIN HALT INPUT = P SST A1,LCUIN = P XIF SALCUZ =
0x082320…0824b4 (0, 165) Opaque[0x194]
0x0824b4…082648 # DirEnt {nam=»INTRT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0348, f03=0x0000}
0x0824b4…082648 IdxSect {
0x0824b4…082648 f00 = 0x001a // 0x824b4 @0x0
0x0824b4…082648 f01 = 0x0002 // 0x824b6 @0x2
0x0824b4…082648 gno = [ // 0x824b8 @0x4
0x0824b4…082648 [0x00]: C0x001a.0x1.0
0x0824b4…082648 ]
0x0824b4…082648 }
0x082648…0827dc Dummy {f00=0x001a, f01=0x0190, f02=» 2 P IDENT INTRT1 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x0827dc…082970 Dummy {f00=0x001a, f01=0x40f6, f02=»BLE ENTRY P* P* TERMINAL PARAMETERS P* < P* F , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P P* P* P* P* PINTRT1 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x082970…082b04 Dummy {f00=0x001a, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x082b04…082c98 Dummy {f00=0x001a, f01=0x0190, f02=» AWAY = POS ERR b z ( P DATA 0 DWTPIT PREV=ILL TM = 2 TRIES c . P DATA 0 DWTPIS PREV=ILL SEQ NO = 2 TRIES c D . P DATA 0 DWTPIE PREV =ILL DAT ERR = 2 TRIES c v & P DATA 0 DWTPDB ERROR AFTER 2 TRIES c P* c & P DATA 0 DWTTMK TAPE MARK INDICATOR c P*
0x082c98…082e2c Dummy {f00=0x001a, f01=0x404e, f02=»BUF3 RES 128 BUFFER FOR RDSEQN c P d & P d . P END d 6 P d B@ d JTPIS PREV=ILL SEQ NO = 2 TRIES c D . P DATA 0 DWTPIE PREV =ILL DAT ERR = 2 TRIES c v & P DATA 0 DWTPDB ERROR AFTER 2 TRIES c P* c & P DATA 0 DWTTMK TAPE MARK INDICATOR c P*
0x082e2c…082fc0 Dummy {f00=0x001a, f01=0x2008, f02=» e THST HANDL STARTED FLAG 7 , ' WER A3,C1IOPL DWTWRL I/O INSTRUCTIONS 8 ( WER A4,C1IOPA DWTWRA 8 X RER A2,C1IOPA DWTRRA 8 v CIO A1,1,CHCC1 DWTIOS 8 CIO A1,0,CHCC1 DWTIOH 8 SST A1,CHCC1 DWTSST 8 ( # DATA CCBUF1 DWTBUF BUFFER
0x082fc0…083154 (0, 166) Opaque[0x194]
0x083154…0832e8 # DirEnt {nam=»INTRT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0358, f03=0x0000}
0x083154…0832e8 IdxSect {
0x083154…0832e8 f00 = 0x001a // 0x83154 @0x0
0x083154…0832e8 f01 = 0x0002 // 0x83156 @0x2
0x083154…0832e8 gno = [ // 0x83158 @0x4
0x083154…0832e8 [0x00]: C0x001a.0x3.0
0x083154…0832e8 ]
0x083154…0832e8 }
0x0832e8…08347c Dummy {f00=0x001a, f01=0x0190, f02=» 2 P IDENT INTRT2 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x08347c…083610 Dummy {f00=0x001a, f01=0x40f6, f02=»BLE ENTRY P* P* TERMINAL PARAMETERS P* < P* F , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P P* P* P* P* PINTRT2 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x083610…0837a4 Dummy {f00=0x001a, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x0837a4…083938 Dummy {f00=0x001a, f01=0x018e, f02=»EYBOARD | P* ORDER 06: WRITE CARD P* ORDER 0A: READ CARD 0 P* ORDER 0B: PICK NOTES P P* ORDER 11: INSERT CARD p P* ORDER 22: FEED NOTES $ P* ORDER 26: FINISH TRANSACTION P* ORDER 31: RETURN CARD P* ORDER 33
0x083938…083acc Dummy {f00=0x001a, f01=0x0190, f02=» P* P* A1 = RETURN CODE & P* A2 = INPUT OR OUTPUT CHARACTER * P* A3 = BUFFER INDEX T P* A4 = FUNCTION INDEX r P* A5 = STACK BASE P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P EJECT
0x083acc…083c60 Dummy {f00=0x001a, f01=0x0190, f02=» MOTOR VOLTAGE ERROR DISPENSER & P* BIT 3: TIMEOUT ERROR DISPENSER & ( P* BIT 4: SOLENOID ERROR DISPENSER P * P* BIT 5: ELECTRONICS ERROR DISPENSER | ( P* BIT 6: DETECTOR ERROR DISPENSER * P* BIT 7: FRONT SHUTTER DOESN'T CLOSE ( P*
0x083c60…083df4 (0, 167) Opaque[0x194]
0x083df4…083f88 # DirEnt {nam=»INTRT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0368, f03=0x0000}
0x083df4…083f88 IdxSect {
0x083df4…083f88 f00 = 0x001b // 0x83df4 @0x0
0x083df4…083f88 f01 = 0x0002 // 0x83df6 @0x2
0x083df4…083f88 gno = [ // 0x83df8 @0x4
0x083df4…083f88 [0x00]: C0x001b.0x1.0
0x083df4…083f88 ]
0x083df4…083f88 }
0x083f88…08411c Dummy {f00=0x001b, f01=0x0190, f02=» 2 P IDENT INTRT3 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x08411c…0842b0 Dummy {f00=0x001b, f01=0x40f6, f02=»BLE ENTRY P* P* TERMINAL PARAMETERS P* < P* F , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P P* P* P* P* PINTRT3 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x0842b0…084444 Dummy {f00=0x001b, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x084444…0845d8 Dummy {f00=0x001b, f01=0x0190, f02=» P RF(E) ENDIO YES P LDK A1,/20 P RF ENDIO 0 P* B 4 P* MODIFY DEVICE ADDRESS DEPENDING ON KEYBOARD, L 2 P* CARD READER/WRITER, OR DISPENSER ORDER AND & P* JUMP TO VALID FUNCTION MODULE. P* PACCG38 EQU * P LDK A
0x0845d8…08476c Dummy {f00=0x001b, f01=0x0190, f02=»40 EQU * ( P CF A5,MODIFY MODIFY DEVICE ADDRESS PACCG50 EQU * < P LDK A3,0 P P SLL A4,1 b 2 P ABI FUNTAB-2,A4 JUMP TO VALID FUNCTION MODULE t P EJECT P* 2 P* CHECK IF CARD-IN-READER MESSAGE HAS COME " P* OR WAIT FOR
0x08476c…084900 Dummy {f00=0x001b, f01=0x0190, f02=»A5,STREG WAIT FOR COT MESSAGE $ P SUK A1,3 DEVICE CODE CORRECT ? & P RF(NE) THRERR NO N PCARD10 EQU * h P SUK A2,/0C CARD IN READER ? | P RF(E) ENDIO 2 PCARD12 SUK A2,/34 FRONT SHUTTER DOESNT CLOSE ? P RF(NE) CARD20 NO PCARD
0x084900…084a94 (0, 168) Opaque[0x194]
0x084a94…084c28 # DirEnt {nam=»INTRT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0378, f03=0x0000}
0x084a94…084c28 IdxSect {
0x084a94…084c28 f00 = 0x001b // 0x84a94 @0x0
0x084a94…084c28 f01 = 0x0002 // 0x84a96 @0x2
0x084a94…084c28 gno = [ // 0x84a98 @0x4
0x084a94…084c28 [0x00]: C0x001b.0x3.0
0x084a94…084c28 ]
0x084a94…084c28 }
0x084c28…084dbc Dummy {f00=0x001b, f01=0x0190, f02=» 2 P IDENT INTRT4 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED T
0x084dbc…084f50 Dummy {f00=0x001b, f01=0x40f6, f02=»BLE ENTRY P* P* TERMINAL PARAMETERS P* < P* F , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P P* P* P* P* PINTRT4 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x084f50…0850e4 Dummy {f00=0x001b, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x0850e4…085278 Dummy {f00=0x001b, f01=0x018e, f02=»NOTES TAKEN ? " PFEEDER EQU * # P RB(NE) THRERR # * P LDR A3,A3 POWER BREAK ? # @ P RB(N) FEED20 YES # ` P RB PICK60 # z P EJECT # P* # P* # PSCANKE EQU * # ( P LDK A2,SCANK SCAN KEYBOARD COMMAND # P RB MICOUT # PSCAN10 E
0x085278…08540c Dummy {f00=0x001b, f01=0x0190, f02=» # P RB(E) RECA30 $ P SUK A2,2 $ P RB(E) ENDI01 $ 0 P ABL THRERR $ F " PSCAN12 SUK A7,2 PIN REQUEST ? $ Z P RF(E) PIN10 YES $ " P CF A15,STORE STORE CHARACTER $ , PSCAN15 LD A1,10,A8 GET KEY-TABLE ADDRESS $ P RF(E) SCA100 NO KEYTABLE
0x08540c…0855a0 Dummy {f00=0x001b, f01=0x0190, f02=» $ , P RF(N) SCA100 KEY NOT FOUND IN KEYTABLE % P SUK A1,1 NEXT KEY % 8 P CCR A2,A1 EOR-CHARACTER % R P RB(NE) SCAN20 % r P LDK A1,0 % P ADR A7,A7 YES, DOUBLE INDEX % , P ST A7,10,A8 STORE INDEX IN CONTROL WORD % P RF SCA200 % , PSCA100 C
0x0855a0…085734 (0, 169) Opaque[0x194]
0x085734…0858c8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a0, f03=0x0000}
0x085734…0858c8 IdxSect {
0x085734…0858c8 f00 = 0x0005 // 0x85734 @0x0
0x085734…0858c8 f01 = 0x0002 // 0x85736 @0x2
0x085734…0858c8 gno = [ // 0x85738 @0x4
0x085734…0858c8 [0x00]: C0x0005.0x0.0
0x085734…0858c8 ]
0x085734…0858c8 }
0x0858c8…085a5c Dummy {f00=0x0005, f01=0x0190, f02=» 2 P IDENT MONTAB REL 8.2 78-09-15 870105040820 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB P ENTRY TCTAB,CDTAB,BLOCKS P* P ENTRY I
0x085a5c…085bf0 Dummy {f00=0x0005, f01=0x018e, f02=»4 P P EXTRN TC:TAB,CD:TAB,BLOK:S P* 6 P* @ P* J P* T P* ^ P* h P* r P* | P* P* P* P* P* PMONTAB EQU * PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS D
0x085bf0…085d84 Dummy {f00=0x0005, f01=0x4068, f02=» PINTRT3 DATA 0 PINTRT4 DATA 0 P* 0 P* : P* D P* N P END X@ d* h P* r P* | P* P* P* P* P* PMONTAB EQU * PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS D
0x085d84…085f18 Dummy {f00=0x0005, f01=0x2008, f02=» P EXTRN IN:LT2 P EXTRN IN:RT1 " P EXTRN IN:RT2 8 P* N P* X P* b P* l PMONTAB EQU * v PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S PDCTAB DATA DC:TAB PINTLT1 DATA IN:LT1
0x085f18…0860ac Dummy {f00=0x0005, f01=0x0190, f02=»ORTED z PCREDIT EQU 0 P EJECT " P 0 P* 8 P* ABORT I/O REQUEST B P* ^ P h PTABORT LDR* A3,A8 p , P RF(N) TABOER REQUEST ALREADY COMPLETED P ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS P LDR A8,A6 P RF(Z) T
0x0860ac…086240 Dummy {f00=0x0005, f01=0x0190, f02=»OER DEVICE NOT BUSY P P SLC A7,2 $ $ P RF(NN) TABO20 NOT ECHO REQUEST 6 " P LD A6,DWTECH,A6 GET ECHO DWT ^ $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT PTABO20 EQU * . P CF A15,ITABRT ABORT IF INTERTASK REQUEST
0x086240…0863d4 (0, 170) Opaque[0x194]
0x0863d4…086568 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00d0, f03=0x0000}
0x0863d4…086568 IdxSect {
0x0863d4…086568 f00 = 0x0006 // 0x863d4 @0x0
0x0863d4…086568 f01 = 0x000c // 0x863d6 @0x2
0x0863d4…086568 gno = [ // 0x863d8 @0x4
0x0863d4…086568 [0x00]: C0x0006.0x2.0
0x0863d4…086568 [0x01]: C0x0006.0x3.0
0x0863d4…086568 [0x02]: C0x0007.0x0.0
0x0863d4…086568 [0x03]: C0x0007.0x1.0
0x0863d4…086568 [0x04]: C0x0048.0x3.0
0x0863d4…086568 [0x05]: C0x0049.0x0.0
0x0863d4…086568 ]
0x0863d4…086568 }
0x086568…0866fc Dummy {f00=0x0006, f01=0x0190, f02=» 0 P IDENT TIODM REL 8.2 78-09-15 870105040820 P 8 ( P ORDER SET LRN IMPLEMENTED + EA SR @ P REL 8.1 78-04-21 l P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0
0x0866fc…086890 Dummy {f00=0x0006, f01=0x0190, f02=»****************************** z P* & B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO 0 . P* AND THE DWTADR IN FDB FOR CURRENT FILE v P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A
0x086890…086a24 Dummy {f00=0x0006, f01=0x0190, f02=»A6 = FDB ADDRESS P* A7 = ORDER P* A8 = ECB ADDRESS 6 P* Z P* USED REGISTERS A1 - A10 d P* D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 P* AS THE ONLY PARAMETER P* 4 P*
0x086a24…086bb8 Dummy {f00=0x0006, f01=0x0190, f02=»FDBTNR TASK NUMBER FOR CALLING TASK . P* FDBCEX CURRENT EXTENT BLOCK POINTER . P* ` P* j D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: t P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P*
0x086bb8…086d4c Dummy {f00=0x0006, f01=0x0190, f02=»ADR r P ENTRY FDBLNK P ENTRY FDBECB " P ENTRY FDBSNR 8 P ENTRY FDBRRO N P ENTRY FDBRLE d P ENTRY FDBBLF z P ENTRY FDBTNR P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXT
0x086d4c…086ee0 Dummy {f00=0x0006, f01=0x0190, f02=»IA,FDBADF j & P ENTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO < P ENTRY ECBFC ` P ENTRY TCFILE,COFILE t P EJECT P* P***************** P* EXTERNALS * P***************** P* P*
0x086ee0…087074 (0, 171) Dummy {f00=0x0006, f01=0x018e, f02=»WTECB P EXTRN DWTOR P EXTRN DWTTDM " " P EXTRN DMTGCA GET CRN ADDRESS 8 , P EXTRN DMTGEA GET EA WORD ADDR AND MASK ^ P EXTRN DMTASK P EXTRN CALSNO P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBEL P EXTRN ECBRC
0x087074…087208 Dummy {f00=0x0006, f01=0x0190, f02=» P* P************************ P* CONDITIONAL ASSEMBLY * . P************************ N P* n P* x @ P* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 * P* INDXAC EQU 0 OT
0x087208…08739c Dummy {f00=0x0006, f01=0x0190, f02=»ONCON P EJECT P* P************************ & P* DATA DEFINITIONS * F P************************ f P* P* P DATA 0,0 4 WORDS P DATA 0,0 " PTIOD14 EQU *-2 TIODM A14 STACK P* P* & PTIODMF E
0x08739c…087530 Dummy {f00=0x0006, f01=0x0190, f02=»EXED READ NEXT P DATA IXINS INDEXED INSERT P DATA IXDEL INDEXED DELETE 8 P DATA IXREWR INDEXED REWRITE Z $ P DATA IXRARE INDEXED RANDOM READ ~ P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIODME P DATA TIODME P DAT
0x087530…0876c4 Dummy {f00=0x0006, f01=0x0190, f02=»OM READ ~ * P DATA RELXAC RELEASE EXCLUSIVE ACCESS $ P DATA SEQWRITE SEQUENTIAL WRITE > " P DATA SEQREAD SEQUENTIAL READ f P DATA GETCUR GET CURRENCY P IFT INDXAC=1 $ P DATA INSIXR INSERT INDEX RECORD $ P DATA DELIXR DELETE INDEX RE
0x0876c4…087858 Dummy {f00=0x0006, f01=0x0190, f02=» & P DATA RANWRD DELAYED RANDOM WRITE & P DATA RANDLD DELAYED RANDOM DELETE . $ P DATA RANREB RAND READ REL BUFF X P DATA SETLRN SET LRN P* P* PTIODMO EQU * DM ORDERS $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND IN
0x087858…0879ec Dummy {f00=0x0006, f01=0x0190, f02=» REL EXCL ACC z & P DATA /0807 SPEC. WR. , SPEC. WR. & P DATA /0605 SEQ WR. , BASIC WRITE @ $ P DATA /0302 READ VTOC, SEQ READ j ( P DATA /0123 BASIC READ,GET CURRENCY * P DATA /1F20 INS INDEXREC,DEL INDEXREC . P DATA /240D GET CURR INDEX,D
0x0879ec…087b80 Dummy {f00=0x0006, f01=0x0190, f02=» TABLE x P DATA /0004 P DATA /0608 " P DATA /0A0C 6 P DATA /0E10 J P DATA /1214 ^ P DATA /1616 r P DATA /1616 P DATA /0218 P DATA /181A P DATA /1C1E P DATA /2022 P DATA /2426 P DATA /281
0x087b80…087d14 (0, 172) Dummy {f00=0x0007, f01=0x0190, f02=» DEFINITIONS P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU 18 ECB START D PFDBSNR EQU 32 SECTOR NUMBER d ( PFDBRRO EQU 34 RELATIVE RECORD OFFSET PFDBRLE EQU 36 RECORD LENGTH " PFDBBLF EQU 38 BLOCKING FACTOR * PFDBTNR EQU
0x087d14…087ea8 Dummy {f00=0x0007, f01=0x018e, f02=»FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME FILE CODE B PEXTLEN EQU 2 EXTENT LENGTH f PEXTBAS EQU 4 EXTENT BASE " PEXTELE EQU 6 EXT ENTRY LENGTH $ PFDBLRN EQU 69 LAST RECORD NUMBER $ PFDBNIF EQU 68 NO O
0x087ea8…08803c Dummy {f00=0x0007, f01=0x0190, f02=» * PFDBMIA EQU 78 ADDRESS OF MASTER INDEX * PFDBADF EQU 80 ADDRESS OF DATA FILE FDB 2 , PFDBAI1 EQU 82 ADDRESS OF INDEX FILE FDB ` 2 PFDBDBR EQU 90 DELAY,BASIC AND REL BUFFER FLAGS & PFDBMRN EQU 91 LAST REC NR IN FILE PFDBMRO EQU 94 MAX FDBRRO
0x08803c…0881d0 Dummy {f00=0x0007, f01=0x0190, f02=»CRNCIF EQU 8 CURRENT INDEX FILE P EJECT ( P* 6 P************* @ P* TIODM * V P************* l P* P* & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14 P
0x0881d0…088364 Dummy {f00=0x0007, f01=0x0190, f02=» P LD A3,2,A1 P CW A3,DWTTDM,A6 P RF(E) TIOD10 THIS TASK 0 P ADK A2,2 NO P P RB TIOD05 TRY NEXT d PTIOD10 EQU * P LD A1,2,A3 TASK STATUS P RF(N) TIO13 DMTASK CALLING P* P* SET TASK ID FOR ALL FDBS P*
0x088364…0884f8 Dummy {f00=0x0007, f01=0x0190, f02=»1 EQU * P SUK A3,2 P RF(N) TIO13 ALL FDB READY " P LDR* A5,A1 FDB ADDR D 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 A1,2 NEXT FDB ADDR P RB TIO11 P
0x0884f8…08868c Dummy {f00=0x0007, f01=0x0190, f02=» RIGHT BYTE t P* P LDKL A1,/8000 REQUEST ERROR & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 B 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO l P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD15 >= 0 P ABL TIODME ERROR RETURN
0x08868c…088820 Dummy {f00=0x0007, f01=0x0190, f02=»JECT P* $ PDELIXR EQU * DELETE INDEX RECORD P* > $ PINSIXR EQU * INSERT INDEX RECORD H P* p $ PIXRARE EQU * INDEXED RANDOM READ z P LDKL A4,-1 P RF TIOC10 P* " PREVTOC EQU * READ VTOC RECORD P* PCLOSE
0x088820…0889b4 (0, 173) Dummy {f00=0x0007, f01=0x0190, f02=»A6 SECTOR #0 VOLUME LABLE P* " ( P* LET FDBCEX POINT TO FIRST EXTENT , P* X P LDR A4,A6 b P ADKL A4,FDBEXT t P ST A4,FDBCEX,A6 P ABL TIOD68 ACTIVATE DMTASK P EJECT P* * PRELXAC EQU * RELEASE EXCLUSIVE ACCESS
0x0889b4…088b48 Dummy {f00=0x0007, f01=0x0190, f02=»0 CORRECT RETURN P ABL TIODME P EJECT , ( PSETLRN EQU * SET LAST RECORD NUMBER : P LC A1,ECBCW+3,A8 f P SC A1,FDBLRN,A6 P LD A1,ECBCW,A8 P ST A1,FDBLRN+1,A6 P RB REL090 P EJECT , PGETCUR LDK A7,CRNCDF+1 GET CUR
0x088b48…088cdc Dummy {f00=0x0007, f01=0x0190, f02=»ET CRN BUFFER P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 : P LC A3,-1,A7 FILE CODE L P CC A3,ECBFC,A8 j P RF(E) GET020 SAME FILE CODE P SC A2,ECBCW+3,A8 P RF GET030 PGET020 EQU * P LCR A2,A7 P SC A2,ECBCW+3,A
0x088cdc…088e70 Dummy {f00=0x0007, f01=0x0190, f02=» READ x P* $ P* FIND CRN+1 AND TEST IF > LRN P* @ P LDR A1,A6 FDB ADDR J " P CF A14,CRNGET GET CRN-BUFFER f P LDK A1,0 P LC A1,CRNCDF+1,A2 & P LD A2,CRNCDF+2,A2 CURR LOG REC NO P ADK A2,1 CRN+1 P RF(O) SEQR10
0x088e70…089004 Dummy {f00=0x0007, f01=0x018e, f02=» P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 $ P* < $ P* CONTINUE AS FOR RANDOM READ F P* n P EJECT x PRANREAD EQU * RANDOM READ P* $ PRANREB EQU * RAND READ REL BUFF P* P* TEST IF ECBRL <= 0 P*
0x089004…089198 Dummy {f00=0x0007, f01=0x0190, f02=» * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* 2 * P* EA MUST NOT BE SET FOR OTHER TASK < P* j P LDR A1,A6 FDB ADDR t P CF A14,EATEST P LDR A4,A4 RTN INF P RF(N) TIODPE EA OTHER TASK P RF TIODMA P EJECT PIXIN
0x089198…08932c Dummy {f00=0x0007, f01=0x0190, f02=»CW d P* P* * P* CALCULATE NUMBER DOF SPARE RECORDS P* L P LDR A5,A6 SAVE FDB ADDR V P LDK A1,0 v P LC A1,FDBMRN,A6 LAST REC NR P LD A2,FDBMRN+1,A6 P LDK A6,0 P LC A6,FDBLRN,A5 P LD A7,FDBLRN+1,A5 LRN
0x08932c…0894c0 Dummy {f00=0x0007, f01=0x018e, f02=»A2,ECBEL,A8 NR OF SPARE P LDR A6,A5 FDB ADDRESS P LDK A1,0 > P LC A1,FDBLRN,A6 P P LD A2,FDBLRN+1,A6 LRN h P IFT INDXAC=1 P RF IXR020 STORE LOG REC NO P EJECT $ PIXRDNX EQU * INDEXED EREAD NEXT P* P* GET
0x0894c0…089654 (0, 174) Dummy {f00=0x0048, f01=0x0190, f02=» P LDK A2,0 P* " P* CHECK THAT FILE CODE IS OK P* F P LDR* A5,A8 FILE CODE P P CC A5,CRNCIF,A4 n . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT P LC A1,CRNCIF+1,A4 " P LD A2,CRNCIF+2,A4 LOG REC NO PIXR020 EQU *
0x089654…0897e8 Dummy {f00=0x0048, f01=0x0190, f02=»1,1 ADK CARRY PIXR040 EQU * P SC A1,ECBCW+3,A8 REC NO * P ST A2,ECBCW,A8 J * P RF TIOD25 DO NOT CHECK EOF CONDITION b P EJECT P* PIXREWR EQU * INDEXED REWRITE P* PIXDEL EQU * INDEXED DELETE P* PRANWRI
0x0897e8…08997c Dummy {f00=0x0048, f01=0x0190, f02=» PRANDEL EQU * RANDOM DELETE P* * P* NO SPECIAL PROCESSING 4 P* V P EJECT ` P* n P************************* x P* DMTASK ACTIVATION * P************************* P* PTIODMA EQU * P* P*
0x08997c…089b10 Dummy {f00=0x0048, f01=0x0190, f02=» MOST SIGN PART P RF(L) TIOD25 CRN<LRN ! P RF(G) TIOD23 CRN>LRN ! 6 P CW A2,FDBLRN+1,A6 2 PART ! T P RF(NG) TIOD25 CRN <= LRN ! v PTIOD23 EQU * ! P LDKL A3,/1000 END OF FILE ! P ORS A3,ECBRC,A8 ! P ANK A7,/3F ! P SUKL A7,SQR S
0x089b10…089ca4 Dummy {f00=0x0048, f01=0x0190, f02=»FFSET IN SECTOR ! n P LDR A1,A1 RETURN INF " P RF(NZ) TIODME " 6 P EJECT " L P* " Z . P* ACTIVATE DMTASK WITH FDB ADDRESS IN A1 " d P* " PTIOD68 EQU * " P ENB " P ENB " P INH " P LDR A1,A6 FDB ADDRESS " P LDK A7,0 " $ P
0x089ca4…089e38 Dummy {f00=0x0048, f01=0x018e, f02=»FOUND " | " P HLT DMTASK MISSING IN TCTAB # * PTIOD70 LDKL A2,DMTASK DISPATCH ADDRESS # 4 P LDK A3,0 # b " P CF A15,ACTOT ACTIVATE DMTASK # t P* # P* EXIT TO TDISP # P* # P ABL TDISP # P* # P EJECT # P* # P************
0x089e38…089fcc Dummy {f00=0x0048, f01=0x40e0, f02=» # H P* $ PTIODPE EQU * $ P LDKL A1,/2000 PROTECT ERROR $ & PTIODME EQU * $ J P* A1 = ERROR CODE $ ^ P* A6 = FDB ADDRESS $ z , P ABL DISEND CALL TENDIO GOTO DISPATCHER $ P* $ P END $ @ $ P EJECT # P* # P************
0x089fcc…08a160 Dummy {f00=0x0048, f01=0x2008, f02=» %
0x08a160…08a2f4 (0, 175) Dummy {f00=0x0049, f01=0x2008, f02=» H P X ` h p x
0x08a2f4…08a488 Dummy {f00=0x0049, f01=0x0190, f02=» LABEL = FIX1 DATE = 791227 PACK NBR = 001 f P Y _( Y M : ] =IR E
[…0x6…]
0x08ae00…08af94 (0, 176) Opaque[0x194]
0x08af94…08b128 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03b8, f03=0x0000}
0x08af94…08b128 IdxSect {
0x08af94…08b128 f00 = 0x001d // 0x8af94 @0x0
0x08af94…08b128 f01 = 0x0022 // 0x8af96 @0x2
0x08af94…08b128 gno = [ // 0x8af98 @0x4
0x08af94…08b128 [0x00]: C0x001d.0x3.0
0x08af94…08b128 [0x01]: C0x001e.0x0.0
0x08af94…08b128 [0x02]: C0x0028.0x2.0
0x08af94…08b128 [0x03]: C0x0028.0x3.0
0x08af94…08b128 [0x04]: C0x0029.0x0.0
0x08af94…08b128 [0x05]: C0x0029.0x1.0
0x08af94…08b128 [0x06]: C0x004f.0x2.0
0x08af94…08b128 [0x07]: C0x004f.0x3.0
0x08af94…08b128 [0x08]: C0x0050.0x0.0
0x08af94…08b128 [0x09]: C0x0050.0x1.0
0x08af94…08b128 [0x0a]: C0x0050.0x2.0
0x08af94…08b128 [0x0b]: C0x0050.0x3.0
0x08af94…08b128 [0x0c]: C0x0051.0x0.0
0x08af94…08b128 [0x0d]: C0x0051.0x1.0
0x08af94…08b128 [0x0e]: C0x0051.0x2.0
0x08af94…08b128 [0x0f]: C0x0051.0x3.0
0x08af94…08b128 [0x10]: C0x0052.0x0.0
0x08af94…08b128 ]
0x08af94…08b128 }
0x08b128…08b2bc Dummy {f00=0x001d, f01=0x0190, f02=» 2 P IDENT DMTASK REL 8.2 78-09-15 870105040820 P : P BUF. HANDL. L. 1614 B " P REQ ERR HANDL L. 1351,1488 ` P REL 8.1 78-04-21 P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL S
0x08b2bc…08b450 Dummy {f00=0x001d, f01=0x018e, f02=» 8 P**************************************************** P* @ , P* THIS MODULE IS ACTIVATED FROM TIODM. J P* z P* INPUT PARAMETERS: P* A1 = FDB ADDRESS < P* A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED P* H P
0x08b450…08b5e4 Dummy {f00=0x001d, f01=0x0190, f02=» 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 N : P* THE SECTOR MUST FIRST BE READ INTO A FREE BUFFER. P* H P* ALL I/O LKM REQUESTS IN THIS MODULE AR
0x08b5e4…08b778 Dummy {f00=0x001d, f01=0x0190, f02=» & P* ALL I/O ARE MADE IN WAIT MODE P* . D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 8 6 P* FOR INDEXED DELETE AND FOR INDEXED REWRITE AND < P* FOR RANDOM WRITE AND RANDOM DELETE CAN BE EXCLUDED. P* 2 P*
0x08b778…08b90c Dummy {f00=0x001d, f01=0x0190, f02=»******* P* ENTRIES * P*************** ( P* @ P* J P ENTRY DMTASK T & P ENTRY SQR EXTERNAL CODE SEQ READ j P ENTRY QSW P ENTRY QIRN,QIRR P ENTRY DMTWM P EJECT P* P***************** P*
0x08b90c…08baa0 Dummy {f00=0x001d, f01=0x018e, f02=» P EXTRN TENDIO P EXTRN RTNA15 P EXTRN FDBECB 4 P EXTRN FDBSNR J P EXTRN FDBRRO ` P EXTRN FDBRLE v P EXTRN FDBBLF P EXTRN FDBTNR P EXTRN FDBVTO P EXTRN FDBCEX P EXTRN FDBEXT P EXTRN EXTDMI
0x08baa0…08bc34 (0, 177) Dummy {f00=0x001e, f01=0x0190, f02=» P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDBAI1 0 P EXTRN FDBCRL F P EXTRN FDBDBR,FDBMRN,FDBMRO P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBEL P EXTRN ECBRC P EXTRN ECBCW P EXTRN CLRBUF
0x08bc34…08bdc8 Dummy {f00=0x001e, f01=0x0190, f02=»XTRN CURBUF P EXTRN DWTECB P EXTRN DWTOR * P EXTRN DWTST,DWTTDM,DWTTQ > ( P EXTRN DMTRBU RELEASE A DISC BUFFER ` P EXTRN VTLRN P EXTRN VLVBA P EXTRN VLVRL P EXTRN DMTIOT,DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN C
0x08bdc8…08bf5c Dummy {f00=0x001e, f01=0x0190, f02=» EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND $ P EXTRN FDBKA,FDBNIF,RDNXTR 8 . P EXTRN BUFAR1,BUFAR2,SECTLE,DMTIOZ,CRNUPD Z P EJECT P* P* P* P************************ P* CONDITIONAL ASSEMBLY * P****************
0x08bf5c…08c0f0 Dummy {f00=0x001e, f01=0x0190, f02=»0. ^ P* P* PX:A EQU 1 PX:B EQU 0 0 PX:C EQU 0 B PX:D EQU 1 T PX:E EQU 0 f P* x PQNOEXA EQU 1 6 P* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH , P* INDXAC EQU 1 = INDEX ACCESS INCLUDED 6 P* INDX
0x08c0f0…08c284 Dummy {f00=0x001e, f01=0x0190, f02=» X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 . P EJECT b P* p P************************ z P* DATA DEFINITIONS * P************************ P* P* , PEABIT EQU /20 EA-BIT IN DW
0x08c284…08c418 Dummy {f00=0x001e, f01=0x0190, f02=»VE & P* POSITION IN TIODM-TABLE TIODMF P* 4 PQCL EQU 0 > PDMTAFU DATA DMCLOSE CLOSE P PQRV EQU 2 r " P DATA DMREVT READ VTOC RECORD PQIRN EQU 4 P IFT INDXAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6
0x08c418…08c5ac Dummy {f00=0x001e, f01=0x0190, f02=» t $ P DATA DMIRR INDEXED RANDOM RESAD P XIF 0 PQIRR EQU 12 < P IFF INDXAC=1 P , P DATA DMTERR,DMTERR,DMTERR,DMTERR,DMTERR f P XIF PQRD EQU 14 P DATA DMRDDE RANDOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE
0x08c5ac…08c740 Dummy {f00=0x001e, f01=0x0190, f02=» DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORDER CODE SEQ READ & PQSR EQU 24 T P DATA DMSQRE SEQUENTIAL READ f PQGCUR EQU 26 P DATA DMTERR GET CURRENCY P IFT INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX
0x08c740…08c8d4 (0, 178) Dummy {f00=0x0028, f01=0x0190, f02=»RX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD EQU 34 8 & P DATA DMRDWD DELAYED RANDOM WRITE L PQRDD EQU 36 v & P DATA DMRDDD DELAYED RANDOM DELETE PQRRRB EQU 38 $ P DATA DMRRRB RAND READ REL BUFF P* $ PVTOCRL DATA 0
0x08c8d4…08ca68 Dummy {f00=0x0028, f01=0x018e, f02=» DMTFRL FIND RECORD LENGTH P* & 4 P* INPUT A1 = RETURN CODE IF INCORRECT LENGTH 0 P* A6 = FDB ADDRESS h & P* A9 = USER ECB ADDRESS P* . P* OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED
0x08ca68…08cbfc Dummy {f00=0x0028, f01=0x0190, f02=» P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH $ P RF(L) DMTF10 ECBRL < REC LENGTH D ( P LD A2,FDBRLE,A6 ECBRL > REC LENGTH l P RF DMTF20 * PDMTF10 ORS A1,ECBRC,A9 SET RETURN CODE . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH
0x08cbfc…08cd90 Dummy {f00=0x0028, f01=0x0190, f02=» MOVE x P* " P* INPUT A1 = FROM ADDRESS , P* A2 = NO OF BYTES TO BE MOVED > P* A3 = TO ADDRESS n P* $ P* A4 WILL BE DESTROYED P* P* PDMTWM EQU * P SUK A2,2 " P RF(N) DMT
0x08cd90…08cf24 Dummy {f00=0x0028, f01=0x0190, f02=»1 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR P SCR A4,A3 B PDMTW20 RTN A14 T P EJECT j P* x P************* P* DMTBM * P************* P* " P* ENTRY DMTBM BYTE MOVE P* " P* INPUT
0x08cf24…08d0b8 Dummy {f00=0x0028, f01=0x018e, f02=» WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR $ P* F P* P PDMTBM EQU * Z P SUK A2,1 n " P RF(N) DMTB10 LAST BYTE MOVED P LCR A4,A1 P SCR A4,A3 P ADK A1,1 P ADK A3,1 P RB DMTBM PDMTB10 R
0x08d0b8…08d24c Dummy {f00=0x0028, f01=0x0190, f02=» ~ P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10 2 P SUK A1,1 H P SUK A3,1 Z P LCR A4,A1 l P SCR A4,A3 ~ P RB DMTB20 P EJECT 8 P****DESCRIPTION************************************* P* : P* FNDFDB WILL SE
0x08d24c…08d3e0 Dummy {f00=0x0028, f01=0x0190, f02=»B ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED 6 P* n 8 P****EXIT PARAMETERS********************************* x P* P* A1 = UNCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND
0x08d3e0…08d574 (0, 179) Dummy {f00=0x0028, f01=0x0190, f02=»EGISTERS********************************** P* 2 P* A1-A5 < P* N : P****************************************************** X P* " P* LOOK FOR FILE CODE IN TTAB P* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR
0x08d574…08d708 Dummy {f00=0x0028, f01=0x0190, f02=» A4,A3 P CCR A2,A4 P RB(NE) FND030 P SUK A4,1 6 P LDK A5,1 H " P RF FND080 CODE FOUND IN TTAB Z P* " P* SEARCH FILE CODE IN CDTAB P* PFND040 EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED
0x08d708…08d89c Dummy {f00=0x0028, f01=0x0190, f02=»A4 P CC A2,1,A3 P RB(NE) FND050 P AD A4,CDTAB 4 P RF FND080 CODE FOUND H PFND060 EQU * f P LDK A2,0 NO CODE z PFND080 EQU * P RTN A14 P EJECT P* P************** P* DMTREM * P************
0x08d89c…08da30 Dummy {f00=0x0028, f01=0x0190, f02=» FDBRRO,A6 n $ P* BUFFER ADDRESS IN A5 * P* USER REC AREA IN ECBBA,A9 : $ P* RECORD LENGTH IN A2 h P* P* P* P* MOVE THE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE
0x08da30…08dbc4 Dummy {f00=0x0028, f01=0x0190, f02=» : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC P* B PDMTREM EQU * L P LD A1,FDBRRO,A6 ` P ADR A1,A5 FROM ADDRESS x P LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 P ANK A4,/01 ( P RF(Z) DMT210 BOTH ODD
0x08dbc4…08dd58 Dummy {f00=0x0028, f01=0x0190, f02=» RF(E) DMT220 BOTH EVEN P SUK A2,1 BOTH ODD P LCR A4,A1 : P SCR A4,A3 L P ADK A1,1 ^ P ADK A3,1 p " PDMT220 CF A14,DMTWM WORD MOVE PDMT225 EQU * P RTN A14 P EJECT P* P* SET UP A14 STACK P*
0x08dd58…08deec Dummy {f00=0x0028, f01=0x0190, f02=»CR l P ADKL A14,TTB:TD+32 STACK P ABL RTNA15 RET AND ENB , P EJECT L P* Z P************** d P* DMTASK * z P************** P* P* PDMTASK EQU * P* P* SET UP A14 STACK P* P INH
0x08deec…08e080 Dummy {f00=0x0028, f01=0x0190, f02=»ORDERS XR,DX,IX (SEE TIODM) ~ PDMT020 EQU * $ P LD A4,FDBDBR,A1 8 P RF(NN) DMT025 NO DELAY P P ANKL A4,/C0FF p P LD A2,DWTOR,A1 P ANK A2,/3F P CWK A2,QCL P RF(E) DMT024 CLOSE P CWK A2,QRV P RF(E) DMT024 READ
0x08e080…08e214 (0, 180) Dummy {f00=0x0029, f01=0x0190, f02=» PDMT025 EQU * P LDR A8,A1 P ADKL A8,FDBECB ECB ADDR . $ P CF A14,GTBKBU GET BLOCK BUFFER N P LDR A2,A2 v $ P RF(NN) DMT080 BUFFER WAS BEFORE P* ( P* READ SECTOR INTO BUFFER AND EXIT P* P SUK A5,QCL P RF(
0x08e214…08e3a8 Dummy {f00=0x0029, f01=0x0190, f02=» r P LKM P DATA 3 EXIT P* ( ( PDMT030 EQU * I/O WITH WAIT FOR CLOSE 2 P LDK A7,/91 ^ P LKM r P DATA 1 ~ " P RF DMT050 CHECK RETURN CODES P EJECT P************** P* DMTAR1 * P************** P*
0x08e3a8…08e53c Dummy {f00=0x0029, f01=0x018e, f02=» PDMT050 EQU * 4 P CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O P LDR A1,A1 T P ABL(NE) DMTERR f P LD A5,ECBBA,A8 ~ P RF DMT090 0 PDMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER P LDR A5,A3 P ADK A5,8 SKIP BUFFER HEAD
0x08e53c…08e6d0 Dummy {f00=0x0029, f01=0x0190, f02=» ^ P* ! P ADK A5,2 SKIP CYLID WORD ! P LD A7,DWTOR,A6 ! 4 P* A7 = INTERNAL ORDER CODE ! L P ANK A7,/3F ! p ( P ABI DMTAFU,A7 DMTASK FUNCTION TABLE ! P EJECT ! $ PDMRRRB EQU * RAND READ REL BUFF ! P* ! PDMSQRE EQU * SEQUENTIAL
0x08e6d0…08e864 Dummy {f00=0x0029, f01=0x0190, f02=»,FDBRRO,A6 ! P AD A2,FDBRLE,A6 " P ADR A2,A5 " * P LDK A1,0 " < P CCR A1,A2 STATUS BYTE IN A1 " N P RF(NE) DMT200 USED " r P LDKL A1,/800 NO DATA " P ABL DMTERR " & PDMT200 LDK A1,/8 INCORRECT LENGTH " & P CF A14,DMTFRL A2 := RECORD LE
0x08e864…08e9f8 Dummy {f00=0x0029, f01=0x0190, f02=» " d P* # PDMT230 EQU * # P ABL DMT400 PUT CRN AND EA # & P EJECT # H " PDMREVT EQU * READ VTOC RECORD # V P* # | PDMCLOSE EQU * CLOSE A FILE # P* # P LD A2,FDBSNR,A6 # ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER # P* # P* VOLU
0x08e9f8…08eb8c Dummy {f00=0x0029, f01=0x0190, f02=»SECTOR INTO BUFFER # n P* $ P LDR A10,A6 SAVE FDB ADDR $ $ P LDR A9,A8 SAVE ECB ADDR $ F P LD A3,VLVRL-2,A5 $ f P ST A3,VTOCRL $ ( P LDK A6,VTOBLK VTOC BLOCKING FACTIOR $ ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER $ P LDK A1,0 $ , P CF A14,
0x08eb8c…08ed20 Dummy {f00=0x0029, f01=0x018e, f02=»ST = 0 $ $ P ADK A3,1 RECORD IN NEXT SECTOR % P RF DMT250 % 6 . PDMT240 LDK A2,VTOBLK LAST RECORD IN SECTOR % H & PDMT250 AD A3,VLVBA-2,A5 VTOC BASE % z P ST A3,FDBSNR,A6 % P LDK A3,0 % PDMT255 SUK A2,1 % P RF(Z) DMT260 % P AD A3,VLVRL
0x08ed20…08eeb4 (0, 181) Dummy {f00=0x0029, f01=0x0190, f02=» % P LD A3,ECBBA,A9 & P SUK A3,8 & " P CF A14,DMTRBU RELEASE BUFFER & 2 & P CF A14,CLRBUF CLEAR FREE BUFFERS & X P ENB ENB & P LDR A1,A6 FDB ADDR & P ABL DMT020 READ VTOC SECTOR & P EJECT & PDMT270 EQU * & P SUK A7,QRV & $
0x08eeb4…08f048 Dummy {f00=0x0029, f01=0x0190, f02=»ISC & r P AD A5,FDBRRO,A6 ' P LDK A2,0 ' $ P LC A2,FDBLRN,A6 ' 6 P SC A2,VTLRN,A5 ' N P LD A2,FDBLRN+1,A6 ' f P ST A2,VTLRN+1,A5 ' P* CLOSE FILE. WRITE VTOC ' P* ' P LDK A7,/95 ' P LKM ' P DATA 1 ' P* ' P LDR A1,
0x08f048…08f1dc Dummy {f00=0x0029, f01=0x0190, f02=» LD A1,DWTTDM,A6 TTAB ADDR ' P LDK A2,0 ( " P LC A2,ECBFC,A9 FILE CODE ( 4 " P LDK A5,0 TRY LOCAL AND GLOBAL ( V . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB ( | & P LDR A13,A5 LOCAL/GLOBAL INDICATOR ( P LDR A2,A2 ( P RF(NZ) DMT725 FC FOUND (
0x08f1dc…08f370 Dummy {f00=0x0029, f01=0x0190, f02=»RY ADDR ( v P LDR A12,A1 SAVE TTEAB ADDR ) 4 P LDKL A10,0 MARK THAT FDB NOT SHALL BE RELEASED ) 4 P EJECT ) l 0 P* CHECK IF THIS FDB ADDR IS USED ELEWHERE ) z P* ) P* SEARCH ALL TTABS ) P* ) P LD* A2,TCTAB ) PDMT730 EQU * ) P
0x08f370…08f504 Dummy {f00=0x0029, f01=0x0190, f02=» ID ) P RB(N) DMT730 MONOITOR TASK * P LD A3,TTB:TD,A1 * 0 ( P ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 * H PDMT770 EQU * * t P SUK A3,4 * $ P RB(NP) DMT730 NOT IN THIS TTAB * P LDR A4,A1 * P ADR A4,A3 * P CWR* A5,A4 * P RB(NE) DMT770
0x08f504…08f698 Dummy {f00=0x0029, f01=0x0190, f02=»S ON THIS FDB * | P* + P* NOW SEARCH CDTAB + P* + < PDMT780 EQU * + F P LD* A4,CDTAB + Z PDMT790 EQU * + p P SUK A4,4 + . P RF(NP) DMT800 THIS FDB HAS NO OTHER USER + P LD A2,CDTAB + P ADR A2,A4 + P CW A5,2,A2 + P RB(NE
0x08f698…08f82c Dummy {f00=0x0029, f01=0x0190, f02=»SERS + r P EJECT , P* , P* NOW RELEASE THIS FDB , $ P* , D PDMT800 EQU * , N P* , b P* RELEASE EA-BUFFERS , l P* , . P LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED , P LDR A1,A6 FDB ADDR , P CF A14,EARELB , P* , P* RE
0x08f82c…08f9c0 Dummy {f00=0x0029, f01=0x0190, f02=»F DMT830 , PDMT820 EQU * - P LDR A4,A5 BUFFER ADDRESS - $ PDMT830 EQU * - F & P RF(Z) DMT840 ALL BUFFER S REMOVED - Z $ P LDR* A5,A4 NEXT BUFFER ADDRESS - P* - P* RETIURN BUFFER TO POOL - P* - P INH - P LD A3,CRNQUE - P STR
0x08f9c0…08fb54 (0, 182) Dummy {f00=0x004f, f01=0x0190, f02=»CE CODES. WHEN LAST FILE IS CLOSED ON - ~ > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME . . P* . p P LDK A1,4 EXTENT COUNTER . z P LDR A5,A6 FDB ADDR . . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE . & P SUKL A5,EXTELE EXT LENGTH IN FD
0x08fb54…08fce8 Dummy {f00=0x004f, f01=0x0190, f02=»THIS EXTENT . z P XIF / P IFT INDXAC=1 / P EJECT / 6 P* / D P* ALL EXTENTS CHECKED / N P* RELEASE MASRTER INDEX / n P* / P INH / & P LD A1,FDBMIA,A6 MASTER INDEX ADDR / P RF(Z) DMT894 NO MATER IX / P LD A5,MXIND LENTH /
0x08fce8…08fe7c Dummy {f00=0x004f, f01=0x0190, f02=»XIND+2,A5 / P RB(NE) DMT885 0 P LD A4,MXIND,A5 0 ( & P RF(N) DMT890 PREVIOUS ENTRY USED 0 @ " P LD A4,MXIND+4,A5 NO OF WORDS 0 j P ANKL A4,/7FFF REMOV USE BIT 0 P ADS A4,MXIND,A5 NR OF WORDS 0 P* 0 P* MOVE UP REST OF MXIND 0 P* 0
0x08fe7c…090010 Dummy {f00=0x004f, f01=0x0190, f02=» P SUK A2,2 NO OF CHAR 1 P CF A14,DMTWM MOVE UOP 1 P RF DMT894 1 > PDMT890 EQU * 1 P P LDKL A4,/7FFF 1 d & P ANS A4,MXIND+4,A5 REMOVE USE BIT 1 z P XIF 1 P EJECT 1 PDMT894 EQU * 1 0 P LDKL A10,1 MARK THAT FDB SHALL BE RELEASED 1 PDM
0x090010…0901a4 Dummy {f00=0x004f, f01=0x0190, f02=» 1 ~ P* 2 * P* RELEASE DWT-QUEUQ IN THIS FDB-DWT 2 P* 2 @ P LDR A1,A6 FDBADDR 2 J $ P ADKL A1,DWTTQ ADDR QUEUE START 2 d P LDR* A5,A1 NEXT TTAB ADDR 2 P RF(Z) DMTA20 NO Q 2 P CMR A1 KILL ROOT 2 $ PDMTA10 LDR* A1,A5 NEXT IN QUEUE 2
0x0901a4…090338 Dummy {f00=0x004f, f01=0x0190, f02=»AB/CDATAB 2 | P* 3 P LDR A1,A12 TTAB ADDR 3 P LDK A2,0 3 : ( P LC A2,ECBFC,A9 FILE CODE USERT ECB 3 L & P LDR A5,A13 LOCAL/GLOBAL INDICATOR 3 x $ P CF A14,FNDFDB SEARCH TTAB CDTAB 3 P LDK A7,0 INDICATES A2 = 0 3 P IFT INDXAC=1 3 P LDR A
0x090338…0904cc Dummy {f00=0x004f, f01=0x0190, f02=»D A7,2,A4 NEXT FDB ADDR TO CLOSE 3 P LDK A1,2 4 ( P ADR A1,A6 FROM ADDR 4 : P LDK A3,2 4 V P ADR A3,A7 TO ADDR 4 h P LDK A2,12 NO OF BYTES 4 P CF A14,DMTWM MOVE DWT 4 P LD A3,DWTTDM,A6 4 P ST A3,DWTTDM,A7 MOVE 4 P CM FDBSNR,A7 SECTOR
0x0904cc…090660 Dummy {f00=0x004f, f01=0x0190, f02=» 4 x PDMTA30 EQU * 5 P XIF 5 P ENB ENB 5 ( P* 5 : P* RELEASE BUFFER 5 D P* 5 ^ P LD A3,ECBBA,A8 5 h P SUK A3,8 5 P CF A14,DMTRBU 5 P* 5 P* RELEASE FDB 5 P* 5 P LDR A10,A10 5 P RF(Z) DMTA40 NO RELEASE 5 P
0x090660…0907f4 (0, 183) Dummy {f00=0x004f, f01=0x0190, f02=» SUK A1,2 5 " P RF(N) DMTA70 ALL FDBS CHECKED 6 P LDR A2,A6 6 8 P ADR A2,A1 6 J $ P LD A3,FDBADF,A2 OTHER FDB ADDR 6 P RB(Z) DMTA50 6 P LDK A4,10 2*MAX NR OF FDBS 6 PDMTA60 SUK A4,2 6 0 P RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB 6
0x0907f4…090988 Dummy {f00=0x004f, f01=0x0190, f02=»SHALL BE RELEASED 6 f P* 7 P CM FDBADF,A5 7 $ P RB DMTA50 7 : P XIF 7 L P EJECT 7 X PDMTA70 EQU * 7 f P LDKL A3,/FFFE 7 z P INH INH 7 P ANRS A3,A6 SET FDB FREE 7 PDMTA40 EQU * 7 * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS 7 P LDR
0x090988…090b1c Dummy {f00=0x004f, f01=0x0190, f02=»IS NEXT AND ACTIVATE THAT 7 z P* 8 " P LDK A7,0 8 , " P LC A7,FDBEXT,A1 TASK 1ST EXT 8 > P ADKL A7,'D0' TASK ID 8 d P LKM 8 P DATA -4 8 P DATA DMTASK 8 P LKM 8 P DATA 3 EXIT 8 P XIF 8 P IFT FLXDSC=1 8 P EJECT 8 PDMT900
0x090b1c…090cb0 Dummy {f00=0x004f, f01=0x0190, f02=»CODE FLEXDOISC A5 = EXT ADDR 8 ~ P* A6 = FDB ADDR 9 ( 0 P* A8 = ECB ADDR A9 = DM ECB ADDR 9 B P* A10-A12 USED 9 v P* 9 & P ADKL A5,EXTELE EXT LENGTH IN FDB 9 P LCR A7,A5 VOLUME CODE 9 P ANK A7,/FF 9 P ABL(Z) DMT880 NO CO
0x090cb0…090e44 Dummy {f00=0x004f, f01=0x0190, f02=»ISC 9 x P* : 6 P* IF SAME FLEXDISC AS LAST, DO NOT SCHECK AGAIN : P* : P P CCR A4,A5 : Z P ABL(E) DMT880 SAME : l P* : < P* NOW SEARCH ALL FDBS FOR THOIS FLEXIBLE DISC VOL CODE : P* : PDMT910 EQU * : P LCR A4,A5 SAVE VOL CODE
0x090e44…090fd8 Dummy {f00=0x004f, f01=0x0190, f02=» EQU * : P ANKL A3,/FFFE FDB ADDR ; " P RF(Z) DMT980 ALL FDBS CHECKED ; 0 P LDR* A7,A3 ; V P ANK A7,1 ; j P RB(Z) DMT920 FREE ; | P CWR A6,A3 ; P RB(E) DMT920 CURRENT FDB ; P LDK A7,4 EXTENT COUNTER ; P LDR A2,A3 FDB ADDR ; P A
0x090fd8…09116c Dummy {f00=0x004f, f01=0x0190, f02=» RB(N) DMT920 ALL EXTENTS CHECKED ; P ADKL A2,EXTELE < * P CCR A4,A2 VOLUME CODE < B ( P ABL(E) DMT880 CODE USED. NO UNLOCK < ` P RB DMT930 NEXT EXTENT < P* < & P* ALL FSDBS CHECKED. MAKE UNLOAD < P* < PDMT980 EQU * < P ENB ENB <
0x09116c…091300 Dummy {f00=0x004f, f01=0x0190, f02=»DE < z P LDK A7,/B8 UNLOAD WAIT = P LKM = * P DATA 1 = 6 P LD A1,ECBRC,A8 = F P ANK A1,1 INOPER = ^ P ABL(NZ) DMTERR = v P ABL DMT880 CHECK NEXT EXT = P XIF = P EJECT = " PDMT500 EQU * READ VTOC RECORD = P* = " P LD A2,VTOCRL
0x091300…091494 (0, 184) Dummy {f00=0x0050, f01=0x018e, f02=»1,ECBRC,A9 SET RC BUT CONTINUE = , P LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU > & PDMT510 EQU * > V P ST A2,ECBEL,A9 > j P CF A14,DMTREM MOVE RECORD > PDMAEX EQU * > P ABL DMTAEX EXIT > P EJECT > " PDMSQWR EQU * SEQUENTIAL WRITE > P* >
0x091494…091628 Dummy {f00=0x0050, f01=0x0190, f02=» PDMDEL EQU * INDEXED DELETE ? P* ? & PDMIRW EQU * INDEXED REWRITE ? 0 P* ? T & PDMRDWD EQU * DELAYED RANDOM WRITE ? ^ P* ? & PDMRDDD EQU * DELAYED RANDOM DELETE ? P* ? P* TEST STATUS ? P LD A10,FDBRRO,A6 ? P AD A10,FDBRLE,A
0x091628…0917bc Dummy {f00=0x0050, f01=0x0190, f02=» ANK A2,/FF ? P LD A3,ECBCW,A9 LOG REC NR @ P LDK A4,0 @ 6 P CCR A4,A10 @ H P RF(E) DMS010 FREE @ P IFT INDXAC=1 @ v P LDR A4,A7 @ P SUK A4,QINS @ P RF(E) DMEAER INDEXED INSERT @ P XIF @ P LDR A4,A7 @ P SUK A4,QSW @ P
0x0917bc…091950 Dummy {f00=0x0050, f01=0x0190, f02=»BIT @ " P RF(NZ) DMS020 EA=1, NO CHECK A P* EA MUST BE SET A 2 P* A L P CF A14,EATEST A V P LDR A4,A4 RTN CODE A l " P RF(NP) DMEAER NO EA THIS TASK A P XIF A P RF DMS100 A PDMS010 EQU * A P IFT INDXAC=1 A P LDR A4,A7 A P
0x091950…091ae4 Dummy {f00=0x0050, f01=0x0190, f02=» A PDMS020 EQU * B P CF A14,EATEST B P LDR A4,A4 RTN CODE B 2 P RF(N) DMEAER EA OTHER TASK B N PDMS100 EQU * B r P LDK A1,0 SET STATUS FREE B P IFT INDXAC=1 B P LDR A2,A7 B P SUK A2,QIRW B " P RF(E) CHK010 INDEXED REWRITE B
0x091ae4…091c78 Dummy {f00=0x0050, f01=0x0190, f02=»DELETE B z P XIF C P LDR A2,A7 C P SUK A2,QRD C , P RF(E) DMT350 RANDOM DELETE C @ P LDR A2,A7 C d P SUK A2,QRDD C v ( P RF(E) DMT350 DELAYED RANDOM DELETE C P RF DMT310 RW,RWD,SW C P IFT INDXAC=1 C P EJECT C PCHK010 EQU * C F
0x091c78…091e0c Dummy {f00=0x0050, f01=0x0190, f02=»YS IN FILE AND USER BUFFER C P* D " P LDR A1,A6 FDB ADDR D , P LDK A5,8 MAX 4 INDEX D H P SUR A12,A12 INDEX COUNTER D f PCHK040 EQU * D P SUK A5,2 D $ P RF(N) CHK100 ALL INDEX CHECKED D P LDR A2,A1 FDB ADD D P ADR A2,A5 D ( P LD A6
0x091e0c…091fa0 Dummy {f00=0x0050, f01=0x0190, f02=»2,/3F ORDER INDEX D P SUK A2,QIRW E & P RB(NE) CHK040 NOT INDEXED REWRITE E . " P LD A2,FDBKA,A6 KEY START ADDR E X P LDR A3,A2 E ~ " P AD A2,ECBBA,A9 KEY IN BUFFER E P AD A3,FDBRRO,A1 E P ADR A3,A11 KEY IN FILE E P LDK A7,0 E " P LD A6,F
0x091fa0…092134 (0, 185) Dummy {f00=0x0050, f01=0x0190, f02=»GED CHECK NEXT E x P LDR A6,A1 FDB ADDR F P LDKL A1,/4000 KEY NOT FOUND F 2 P RF DMERR F V PCHK100 EQU * F h P LDR A6,A1 FDB ADDR F | P LD A7,DWTOR,A6 F P ANK A7,/3F ORDER INDEX F P LDK A2,0 F P LC A2,FDBNIF,A6 F P CWR A2,A12 F
0x092134…0922c8 Dummy {f00=0x0050, f01=0x0190, f02=»F DMERR F P XIF G $ PDMEAER LDKL A1,/2000 EA PROTECT G PDMERR ABL DMTERR G D P EJECT G P* G j P* MOVE RECORD G t P* G PDMT310 EQU * G P IFT INDXAC=1 G P LDR A2,A7 G P SUK A2,QDEL G " P ABL(E) DMXDEL INDEXED DELETE G
0x0922c8…09245c Dummy {f00=0x0050, f01=0x0190, f02=»BA,A9 FROM ADDRESS G P XRR A4,A1 H P ANK A4,/01 H , ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN H @ & P CF A14,DMTBM ONE ODD AND ONE EVEN H l P RF DMT340 H P* H PDMT320 LDR A4,A3 H P ANK A4,/01 H P RF(E) DMT330 BOTH EVEN H P SUK A2,1
0x09245c…0925f0 Dummy {f00=0x0050, f01=0x0190, f02=»DMT340 EQU * H P* I P* SET STATUS USED I P* I : P LDK A1,/FF I D PDMT350 SCR A1,A10 I X P LD A3,FDBDBR,A6 I r P RF(NN) DMT394 NO DELAY I P LDR A2,A7 I P SUK A2,QSW I " P RF(E) DMT360 SEQUENTIAL WRITE I P LDR A2,A7 I P
0x0925f0…092784 Dummy {f00=0x0050, f01=0x0190, f02=» I $ P* WRITE IF LAST REC IN SECTOR J P* J 0 PDMT360 LD A4,FDBRRO,A6 J : P CW A4,FDBMRO,A6 J X " P RF(NE) DMT400 NOT LAST RECORD J p " PDMT390 LDK A7,/05 BASIC WRITE J P SLL A3,1 J P RF(N) DMT395 BASIC WANTED J $ PDMT394 LDK A7,/15 PHYSIC
0x092784…092918 Dummy {f00=0x0050, f01=0x0190, f02=» J l P LKM K P DATA -1 I/O AND ACTIVATION K " P DATA DMTAR2 DMTASK RESTART #2 K 8 P LKM K ^ P DATA 3 EXIT K j P EJECT K ~ P* K P************** K P* DMTAR2 * K P************** K P* K P* K , PDMTAR2 EQU * DMTASK RESTART
0x092918…092aac Dummy {f00=0x0050, f01=0x0190, f02=»C I/O K x P LDR A1,A1 L P RF(NZ) DMTERR L P LDKL A1,/C0FF L 6 $ P ANS A1,FDBDBR,A6 RELEASE BUFFER L L PDMT400 EQU * L t " P LDR A1,A6 FDB ADDR DATA FILE L P LD A2,ECBCW+2,A9 L P ANK A2,/FF L P LD A3,ECBCW,A9 LOG REC NR L P LC A11,EC
0x092aac…092c40 Dummy {f00=0x0050, f01=0x0190, f02=»WRITE L ~ P LDK A4,QRD M P CWR A7,A4 M " P RF(E) DMT420 RAND DEL M 4 P LDK A4,QRDD M R P CWR A7,A4 M f ( P RF(E) DMT420 DELAYED RANDEOM DELETE M x P IFT INDXAC=1 M P LDK A4,QDEL M P CWR A7,A4 M P RF(E) DMT420 INDEXED DELETE M P XIF
0x092c40…092dd4 (0, 186) Dummy {f00=0x0050, f01=0x0190, f02=» M r P LDR A10,A2 BUFFER ADDR N P CM CRNCIF,A2 N ( P* CLEAR INDEX CRN N > P CM CRNCIF+2,A2 N Z P LDR A2,A5 N r P LDR A3,A9 N P ST A2,CRNCDF,A10 N & P ST A3,CRNCDF+2,A10 CRN DATA FILE N & P SC A11,CRNCDF,A10 CRN FIL E CODE N P IFT
0x092dd4…092f68 Dummy {f00=0x0050, f01=0x018e, f02=» N P CWR A7,A4 O P RF(E) DMT450 SEQ READ O P LDK A4,QRR O 8 P CWR A7,A4 O L P RF(E) DMT450 RANDOM READ O ^ P LDK A4,QRRRB O P CWR A7,A4 O & P RF(E) DMT450 RAND READ REL BUFFER O PDMT440 EQU * O P* O P* RELEASE EA O P*
0x092f68…0930fc Dummy {f00=0x0050, f01=0x0190, f02=» & P RF(NZ) DMTAEX EA=1. NO EA WANTED P P* P . " P* CHECK IF EA IS SET ALREADY P 8 P* P ^ P CF A14,EATEST CHECK EA P h P LDR A4,A4 P " P RF(NZ) DMTAEX EA ALREADY SET P P* P P* SET EA P P* P P CF A14,EASETB P P RF DMTAEX P
0x0930fc…093290 Dummy {f00=0x0050, f01=0x0190, f02=» P LDK A4,QINS Q P CWR A7,A4 Q " P ABL(E) DMINS2 INDEXED INSERT Q * P XIF Q P P EJECT Q " PDMTAEX LDK A1,0 CORRECT RETURN Q j P* Q PDMTERR LD A3,FDBDBR,A6 Q P RF(NN) DMTEX1 NOT DELAY Q P ANKL A3,/3F00 Q ( P RF(NZ) DMTERX NO RELEASE
0x093290…093424 Dummy {f00=0x0050, f01=0x0190, f02=» EQU * Q P INH R P* A1 = RET CODE R P* A6 = DWT ADDR R 4 P CF A15,TENDIO R N P ENB R d PEXIT EQU * R p P LKM R P DATA 3 R P IFT INDXAC=1 R P EJECT R PDMIRR EQU * R P* INDEXED RANDOM READ R 2 P******************
0x093424…0935b8 Dummy {f00=0x0050, f01=0x0190, f02=»1,ECBCW+3,A9 NO OF CHAR R P LD A2,FDBRLE,A1 S P SUK A2,6 MAX KEY LENGTH S 8 P CWR A11,A2 S X , P RF(NP) DMR005 NOT TOO LARGE KEY WANTED S l P LDR A11,A2 MAX KEY S PDMR005 EQU * S P LDR A13,A1 S P ADKL A13,FDBECB ECB ADDR S $ P CF A1
0x0935b8…09374c Dummy {f00=0x0050, f01=0x0190, f02=»,FDBECB S P ADR A8,A6 ECB ADDRESS T P LDR A2,A2 RETURN CODE T . P RF(NZ) DMI030 KEY NOT FOUND T L P* T p P* KEY RECORD FOUN T z . P* CHECK IF NEXT RECORD HAS THE SAME KEY T P* T " P LD A2,FDBRRO,A1 RECORD OFFSET T P ADK A2,10 BUFFE
0x09374c…0938e0 Dummy {f00=0x0050, f01=0x018e, f02=»2 DUPLICATE KEY CHAR T $ P RF(NE) DMR020 NEXT KEY NOT SAME U P LDKL A5,/200 BIT 6 U D " P ORS A5,ECBRC,A9 NEXT KEY SAME U ` PDMR020 EQU * U P* U P* MOVE LOG REC NO TO ECB U P* U P LDK A5,0 U P LC A5,3,A2 U P SC A5,ECBCW+3,A8
0x0938e0…093a74 (0, 187) Dummy {f00=0x0050, f01=0x0190, f02=» U P CF A14,DMTRBU V P EJECT V P* V , 0 P* PERFORM RANDOM READ ON THOIS DATA RECORD V 6 P* V j P LDR A6,A1 FDB ADDR V t " P LC A2,DWTST,A6 USER REQUESRT V P ANK A2,EABIT GET EA BIT V P SLL A2,1 V " P LDK A7,/A RANDOM READ NO WAIT V
0x093a74…093c08 Dummy {f00=0x0050, f01=0x0190, f02=» P LDK A2,6 NO OF CHAR W P CF A14,DMTWM MOVE ECB W P LDR A1,A6 FDB ADDR W > P LKM W Z P DATA -1 W f P DATA DMTAR4 W v P LD A7,ECBRC,A8 W P RF(N) DMTAR4 REQ ERR W P LKM W P DATA 3 EXIT W PDMTAR4 EQU * W P* W P* SET UP
0x093c08…093d9c Dummy {f00=0x0050, f01=0x0190, f02=»,DWTECB,A6 USER ECB W P LD A1,ECBRC,A8 X & P ORS A1,ECBRC,A9 RET CODE TO USER X 4 2 P ANKL A1,/EEF7 BIT 3,7 AND 12 NOT GRAVE ERROR X ^ P RB(NZ) DMTERX NOT OK X P* X P* SET CRN FOR INDEX FILE X P* X ( P LD A1,FDBADF,A6 FDB ADDR DATA F
0x093d9c…093f30 Dummy {f00=0x0050, f01=0x0190, f02=»GTLGRN GET INDE X LOG REC NO X P SC A2,CRNCIF+1,A10 Y $ & P ST A3,CRNCIF+2,A10 CRN INDEX FILE Y @ P LC A2,ECBFC,A9 Y j P SC A2,CRNCIF,A10 Y P* THAT WAS FILE CODE CRN Y P* Y P* SET RERTURN CODEXS Y P* Y $ P LD A2,ECBEL,A8 EFFECTIV
0x093f30…0940c4 Dummy {f00=0x0050, f01=0x018e, f02=»EXT Y v 2 P********************************************* Z P LDR A1,A6 FDB INDEX Z B " P LD A2,FDBRRO,A1 RECORD OFFSET Z ^ P LDR A3,A5 Z P SUK A3,10 BUFFER ADDR Z PDMI100 EQU * Z P ADR A2,A3 BUFFADR Z P ADK A2,10 RECORD ADDR Z ( P AD A2,F
0x0940c4…094258 Dummy {f00=0x0050, f01=0x018e, f02=» Z ~ & P ST A4,FDBRRO,A1 LAST REC IN SECT [ P* [ 2 P* CHECK IF END OF FILE [ < P* [ P LDR A9,A3 SAVE [ f P CF A14,GTLGRN GET REC NR [ ~ P CC A2,FDBLRN,A1 [ P RF(L) DMI106 NOT EOF [ P RF(G) DMI105 EOF [ P CW A3,FDBLRN+1,A1 [
0x094258…0943ec Dummy {f00=0x0050, f01=0x0190, f02=» PDMI120 EQU * P* INDEX RECORD IS FOUND P* < P LDK A2,0 MARK FOUND F . P ABL DMR006 CONT AS FOR INDEXED RAND READ b PDMI010 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD P RB DMI100 RECORD FOUND P LDR A6,A1 FDB ADDR
0x0943ec…094580 Dummy {f00=0x0050, f01=0x0190, f02=» DMTERR ERROR AND BUFFER P EJECT ] P* ] . & PDMINS2 EQU * INDEXED INSERT PART 2 ] 8 P* ] b 2 P********************************************* ] l P ENB ENB ] P LD A3,ECBBA,A8 ] P SUK A3,8 BUFSTA ] " P CF A14,DMTRBU RELEASE BUFFER ]
0x094580…094714 (0, 188) Dummy {f00=0x0051, f01=0x0190, f02=»8 PHYS ECB ADDR ] P LDK A5,0 ^ . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUNTER ^ * P LDK A5,8 NR OF INDEX * 2 ^ P LDR A10,A1 FDB DATA ^ ~ PDXI020 SUK A5,2 ^ P RF(N) DXI100 ALL INDEXES ^ P LDR A6,A10 ^ P ADR A6,A5 ^ ( P LD A1,FDBAI1,
0x094714…0948a8 Dummy {f00=0x0051, f01=0x0190, f02=»B ^ PDXI030 SUK A6,4 _ P LD A7,CDTAB _ " P ADR A7,A6 _ 6 P CW A1,2,A7 _ H P RB(NE) DXI030 SEARCH NEXT _ P LDR A8,A1 FDB INDEX _ ~ P ADKL A8,FDBECB ECB ADDR _ P LC A6,1,A7 _ P SC A6,ECBFC,A8 INDEX FILE _ P LDR A6,A11 _ P SUK
0x0948a8…094a3c Dummy {f00=0x0051, f01=0x018e, f02=»ADDR _ x P ADK A6,2 CYLID ` $ P AD A6,FDBRRO,A10 ADDR DATA REC ` $ $ P LDK A7,/20 DELETE INDEX NOWAIT ` L P RF DXI090 ` t PDXI080 EQU * ` $ P LD A9,DWTECB,A10 USER ECB ADDR ` $ P LD A6,ECBBA,A9 USER BUFFER ADDR ` $ P LDK A7,/1F INSERT INDEX NOWAI
0x094a3c…094bd0 Dummy {f00=0x0051, f01=0x0190, f02=» ` P LD A7,ECBRC,A8 a P RF(N) DMTAR5 REQ ERR a P RB DXI020 NEXT INDEX DIRECT a > PDXI100 LKM a b P DATA 3 EXIT a t PDMTAR5 EQU * a " P LD A6,FDBADF,A1 FDB DATA FILE a P LD A9,DWTECB,A6 USER ECB a P LDKL A8,FDBECB a P ADR A1,A8 E
0x094bd0…094d64 Dummy {f00=0x0051, f01=0x0190, f02=»R a v P LDK A1,0 RETURN CODE b & P LC A2,FDBDBR,A6 NR OF READY INDEX b ( P ADK A2,1 COUNT INDEXES b R $ P CC A2,FDBNIF,A6 TOT NR OF INDEX b r P RF(NE) DXI200 b P LD A7,DWTOR,A6 b P ANK A7,/3F ORDER CODE b P SUK A7,QINS INDEXED INSERT b
0x094d64…094ef8 Dummy {f00=0x0051, f01=0x0190, f02=»0,2 CYLID b P AD A10,FDBRRO,A6 c & P AD A10,FDBRLE,A6 ADDR STATUS CHAR c , P LDK A1,0 STATUS FREE c V . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE c t PDXI200 EQU * c P SC A2,FDBDBR,A6 c P LKM c " P DATA 3 EXIT. MORE INDEX LEFT c P EJE
0x094ef8…09508c Dummy {f00=0x0051, f01=0x0190, f02=»*** c f " P LD A9,DWTECB,A1 USER ECB ADDR d $ P LD A8,ECBBA,A9 BUFFER ADDR USER d 2 P AD A8,FDBKA,A1 KEY ADDR d Z P LDR A12,A8 d z $ P LD A11,FDBRLE,A1 RECORD LENGTH d P SUKL A11,6 KEY LENGTH d P LDR A13,A14 d 0 P ADKL A13,2 ECB ADDR TO RECORD B
0x09508c…095220 Dummy {f00=0x0051, f01=0x0190, f02=»B(Z) DMI035 NO SECTOR FOUND d P LDR A13,A3 BUFFER ADDR e $ " P LD A4,FDBADF,A6 FDB DATA FILE e D P LD A5,DWTECB,A4 USER ECB e j P LD A1,DWTOR,A6 e P ANK A1,/3F e P SUK A1,QDELX e & P ABL(E) DEL000 DELETE INDEX RECORD e P* e ( P* SE
0x095220…0953b4 (0, 189) Dummy {f00=0x0051, f01=0x018e, f02=» e p ( P* (SHORT KEY NOT ALLOWED IN FILE) f P* f 4 P LC A4,ECBFC,A5 FILE CODE f > P CC A4,FDBECB+1,A6 f ` * P RF(NE) INS049 NOT REQUESTED FILE CODE f z P LDKL A4,/200 BIT 6 f " P ORS A4,ECBRC,A5 NEXT KEY SAME f PINS049 EQU * f P IFT INSLA
0x0953b4…095548 Dummy {f00=0x0051, f01=0x0190, f02=» PINS080 EQU * g P CF A14,RDNXTR GET NEXT REC g P RF INS100 OK g < P ABL DEL045 ERROR g R PINS100 EQU * g l P ADR A2,A3 g P ADK A2,10 REC ADDR g P AD A2,FDBRLE,A1 ADDR STATUS g P LDK A5,/FF g P CCR A5,A2 g P RF(E) INS150 US
0x095548…0956dc Dummy {f00=0x0051, f01=0x0190, f02=» DUPL KEY CHAR g P CWR A5,A11 KEY LENGTH h $ P RB(E) INS080 NEXT SAME GET NEXT h 4 P* h P* UPDATE LAST SAME RECORD h f P* h P SC A11,-4,A2 NEXT SAME h P LD A7,FDBRRO,A1 h P CW A7,FDBMRO,A1 h & P RF(NE) INS160 SECT WRITTEN LATER h
0x0956dc…095870 Dummy {f00=0x0051, f01=0x0190, f02=» P LDR A1,A1 i P ABL(NZ) DMTERR i P* i . P* GET NEXT RECORD i 8 P* i T PINS160 EQU * i ^ " P LDR A7,A5 NR OF SAME IN NEXT i r P LDR A1,A6 FDB i P CF A14,RDNXTR GET NEXT RC i P RF INS170 OK i P ABL DEL045 ERROR i PINS170 E
0x095870…095a04 Dummy {f00=0x0051, f01=0x0190, f02=» PINS050 EQU * j P* j ( P* CREATE AN INDE XRECORD IN AREA 1 j " P* j N P LDR A1,A12 FROM ADDR j X P LDR A3,A14 j v P ADK A3,2 TO ADDR j P LDR A2,A11 KEY LENGTH j P CF A14,DMTBM MOVE KEY j P LDK A2,0 j P SCR A2,A3 DUMMY j
0x095a04…095b98 Dummy {f00=0x0051, f01=0x0190, f02=» REC NR j z P LD A2,ECBCW+2,A5 k ( P LD A3,ECBCW,A5 REC NR DATA FILE REC k * P SCR A2,A7 k V P ADK A7,2 k h P SCR A3,A7 k z P ECR A3,A3 k P SUK A7,1 k P SCR A3,A7 LOG REC NR k P ADK A7,2 k P LDK A1,/FF USED k P SCR A1,A7 STATU
0x095b98…095d2c Dummy {f00=0x0051, f01=0x018e, f02=» P* l P ST A2,-28,A14 l P ST A3,-26,A14 l $ P EJECT l : P* l H : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING l R $ P* USED RECORDS ROLLED FORWARD l $ P* A6,A11,A13 IS USED AT ENTRY l $ P ADKL A11,7 RECORD LENGTH TOTAL l P
0x095d2c…095ec0 Dummy {f00=0x0051, f01=0x0190, f02=» , P* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 m $ P* A13 = BUFFER ADDRESS SECTOR m 4 P* m PINS190 EQU * m f P LDKL A12,1 BUFADR2 m z PINS200 EQU * m P LDK A1,0 m P LDR A12,A12 m P RF(Z) INS210 BUFAR1 m ( P LDKL A1,RECBFZ RECORD BUUFF
0x095ec0…096054 (0, 190) Dummy {f00=0x0051, f01=0x0190, f02=»* SAVE LAST RECORD m P* n P LDR A1,A13 n & P ADK A1,10 BUFSTA+2 n : . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT n V P LDR A2,A11 n P LDR A3,A10 n " P CF A14,DMTBM SAVE LAST RECORD n P* MOVE REST OF SECTOR n P* n P LDR A1,
0x096054…0961e8 Dummy {f00=0x0051, f01=0x0190, f02=»OF CHAR n | P LDR A3,A1 o P ADR A3,A11 TO ADDR o " P CF A14,DMTBMR MOVE o > P* INSERT NEW RECORD o Z P* o x P LDKL A1,RECBFZ BUFFER SIZE o P SLL A1,1 BYTE NO o P LDR A12,A12 o P RF(Z) INS250 BUFAR1 o " P LDK A1,0 SELECT OTHER B
0x0961e8…09637c Dummy {f00=0x0051, f01=0x0190, f02=»ADDR o P CF A14,DMTBM MOVE p P* WRITE BUFFER p & P* p > P LDR A8,A14 USE STACK AS ECB p H P SUKL A8,24 p l $ P LC A2,FDBEXT+1,A6 VOL DEV CODE p P STR A2,A8 p P LDR A2,A13 p P ADK A2,8 BUFSTA p P ST A2,ECBBA,A8 SECTOR ADDR p
0x09637c…096510 Dummy {f00=0x0051, f01=0x018e, f02=» A7,/95 WRITE , WAIT p P LKM q P DATA 1 q ( P LDR A1,A6 FDB INDEX q 8 P CF A14,DMTIOZ IO CHECK q T P LDR A1,A1 q t P ABL(NZ) DMTERR q P* q 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY q P* q P LDR A2,A10 RECORD AREA ADDR
0x096510…0966a4 Dummy {f00=0x0051, f01=0x0190, f02=» q j P CCR A1,A2 r P RF(Z) INS400 FREE RECORD r P* r < P* GET NEXT SECTOR r F P* r b P LDR A1,A6 FDB ADDR r l P LDR A3,A13 BUFFER ADDR r 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR r P RF INS260 OK r P LDR A1,A5 r P A
0x0966a4…096838 Dummy {f00=0x0051, f01=0x0190, f02=» r l P SUR A12,A12 s P RB INS200 s P EJECT s . PINS400 EQU * s < P* s P ( P* UPDATE LRN IF EOF IS ENCOUNTERED s Z P* s P LDR A1,A6 FDB INDEX s P CF A14,GTLGRN s P CC A2,FDBLRN,A1 s P RF(L) INS430 NO EOF s P RF(G) INS410 EO
0x096838…0969cc Dummy {f00=0x0051, f01=0x0190, f02=»N+1,A6 s P LDKL A1,/1000 EOF t P ORS A1,ECBRC,A9 EOF TO USER t * PINS430 EQU * t N P* t b 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS t l P* t P LDKL A12,1 ADD ON E TO CRN t P LDR A8,A2 t P LDR A9,A3 LAST REC NR MOVED t P LD
0x0969cc…096b60 Dummy {f00=0x0051, f01=0x0190, f02=»SAME FILE CODE t ~ P* u P LD A1,FDBADF,A5 FDB DATA F u " P CF A14,CRNGET GET CRN BUFFER u D " P LC A4,ECBFC,A9 USER FILE CODE u j P CC A4,FDBECB+1,A5 u P RF(NE) INS440 OTHRER FILE u P ST A10,CRNCIF,A2 u P ST A11,CRNCIF+2,A2 REC NR u P
0x096b60…096cf4 (0, 191) Dummy {f00=0x0051, f01=0x0190, f02=» u x P ABL DMTEX2 v P EJECT v * PDEL000 EQU * DELETE INDEX RECORD CONT v * P LDR A12,A5 USER ECB ADDR v X P LDR A2,A2 v z PDEL010 EQU * v " P ABL(NZ) DMI030 KEY NOT FOUND v P* v P* CHECK RECORD NR DATA REC v P* v PDEL020 EQU
0x096cf4…096e88 Dummy {f00=0x0051, f01=0x0190, f02=»C A2,ECBCW+3,A12 REC NR v P RF(NE) DEL030 WRONG RECORD w P LC A2,1,A1 w D P ECR A2,A2 w X P LC A2,2,A1 REC NR w j P CW A2,ECBCW,A12 w P RF(E) DEL200 RECORD FOUND w PDEL030 EQU * w P* w P* CHECK IF NEXT KEY SAME w P* w P
0x096e88…09701c Dummy {f00=0x0051, f01=0x0190, f02=»ET NEXT INDEX RECORD w P RF DEL050 OK x PDEL045 LDR A1,A5 ERROR CODE x 2 P ABL DMI035 ERROR x V PDEL050 EQU * x p P* x P* CHECK IF RECORD IS USED x P* x P LDR A13,A3 NEW BUFFER ADDR x P ADR A2,A3 x P ADK A2,10 BUFSTA + 2
0x09701c…0971b0 Dummy {f00=0x0051, f01=0x0190, f02=» ST A4,FDBRRO,A1 LAST REC IN SECTOR x P RB DEL040 NEXT REC y , P EJECT y H PDEL200 EQU * RECORD FOUND y V P* y x & P* SET RC BIT 6 IF NEXT KEY SAME y P* y $ P LC A2,ECBFC,A12 USER FILE CODE y P LDK A7,0 y P LC A7,-1,A1 NR OF SAME
0x0971b0…097344 Dummy {f00=0x0051, f01=0x0190, f02=» P CWR A11,A7 KEY LENGTH z $ P RF(NE) DEL220 NEXT KEY NOT SAME z " P LDKL A4,/200 z J $ P ORS A4,ECBRC,A12 NEXT KEY SAME z ` PDEL220 EQU * z P* z $ P* MOVE UP RECORDS OVER DELETED z P* z $ P ADKL A11,7 TOTAL RECORD LENGTH z P LDR A3,
0x097344…0974d8 Dummy {f00=0x0051, f01=0x0190, f02=» z P SU A2,FDBRRO,A6 NR OF CHAR { P CF A14,DMTBM MOVE { , P* { F P* SET LAST RECORD FREE { P P* { p P ADR A3,A11 { z P SUK A3,1 { P LDK A1,0 { P SCR A1,A3 STATUS FREE { P* { $ P* UPDATE CRN FOR MOVED RECORDS { P* {
0x0974d8…09766c Dummy {f00=0x0051, f01=0x0190, f02=»RO,A6 OLD OFFSET { P LD A4,FDBMRO,A6 | P ST A4,FDBRRO,A6 MAX OFFSET | 0 $ P CF A14,GTLGRN LAST REC NR MOVED | T P LDR A8,A2 | | P LDR A9,A3 REC NR | " P ST A12,FDBRRO,A6 RESET OFFSET | P LDKL A12,-1 | & P CF A14,CRNUPD UPDATE CRN BUFFERS |
0x09766c…097800 Dummy {f00=0x0051, f01=0x0190, f02=»A5 FDB | P CF A14,GTLGRN GET REC NR } P LDR A1,A2 } 0 P LDR A2,A3 } B P LDK A6,0 } T P LDK A7,1 } f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 } x P RF(Z) DEL600 FILE START } P LDR A6,A5 FDB ADDR } P CF A14,CALSNO GET SECTOR NR } P LDR A5,
0x097800…097994 (0, 192) Dummy {f00=0x0052, f01=0x018e, f02=» $ P RF(Z) DEL245 BUFFER NOT CHANGED ~ P* ~ , P* WRITE SECTOR ~ 6 P* ~ N P LDK A7,/95 WRITE WAIT ~ X P LKM ~ v P DATA 1 ~ P LDR A1,A5 FDB ~ P CF A14,DMTIOZ IO CHECK ~ P LDR A1,A1 ~ P ABL(NZ) DMTERR ~ ( P SUR A12,A12 BUFFER NO
0x097994…097b28 Dummy {f00=0x0052, f01=0x0190, f02=» ~ v P* P LDR A1,A5 FDB ADDR P LDK A3,0 . P CF A14,RDNXTR GET SECTOR @ P RF DEL250 OK b P LDR A6,A1 FDB ADDR x P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P LDR A13,A3 NEW BUFFER ADDR P LD A4,FDBMRO,A5
0x097b28…097cbc Dummy {f00=0x0052, f01=0x0190, f02=»OFFSET p P ADK A4,10 BUFSTA+2 P ADR A4,A13 RECORD ADDR * & P AD A4,FDBRLE,A5 STATUS CHAR ADDR J P LDK A2,/FF t P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME IN DELETED RECORD P CC A2,-4,A4 P RF(NL) DEL6
0x097cbc…097e50 Dummy {f00=0x0052, f01=0x4172, f02=»900 BUFFER NOT CHANGED P* P* WRITE SECTOR ( P* @ PDEL700 EQU * J P LDR A8,A14 ^ P ADKL A8,2 ECB ADDR r P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB ADDR P CF A14,DMTIOZ IO CHECK P LDR
0x097e50…097fe4 Dummy {f00=0x0052, 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* +
0x097fe4…098178 Dummy {f00=0x0052, f01=0x0190, f02=» z KPF /S,DVTTP SCR INC DVTTP,TOSSWORK ( KPF /O D MOV DVTGP,/S,TOSSWORK R KPF /S,DVTGP p SCR INC DVTGP,TOSSWORK KPF /O MOV DVTDN,/S,TOSSWORK KPF /S,DVTDN SCR INC DVTDN,TOSSW
0x098178…09830c Dummy {f00=0x0052, f01=0x0190, f02=»VTDY,/S,TOSSWORK KPF /S,DVTDY SCR , INC DVTDY,TOSSWORK 8 KPF /O T MOV DVTCG,/S,TOSSWORK b KPF /S,DVTCG SCR INC DVTCG,TOSSWORK KPF /O MOV DVTCD,/S,TOSSWORK KPF /S,DVTCD SCR
0x09830c…0984a0 Dummy {f00=0x0052, f01=0x0190, f02=»/O MOV DVTOD,/S,TOSSWORK KPF /S,DVTOD ( SCR < INC DVTOD,TOSSWORK H KPF /O d MOV DVTT1,/S,TOSSWORK r KPF /S,DVTT1 SCR INC DVTT1,TOSSWORK KPF /O MOV DWII01,/S,TOSSWORK KPF /S,DWII01
0x0984a0…098634 (0, 193) Opaque[0x194]
0x098634…0987c8 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0470, f03=0x0000}
0x098634…0987c8 IdxSect {
0x098634…0987c8 f00 = 0x0023 // 0x98634 @0x0
0x098634…0987c8 f01 = 0x0004 // 0x98636 @0x2
0x098634…0987c8 gno = [ // 0x98638 @0x4
0x098634…0987c8 [0x00]: C0x0023.0x2.0
0x098634…0987c8 [0x01]: C0x0023.0x3.0
0x098634…0987c8 ]
0x098634…0987c8 }
0x0987c8…09895c Dummy {f00=0x0023, f01=0x0190, f02=» 2 P IDENT DMINIT REL 8.2 78-09-15 870105040820 P : P MONCON B P REL 8.1 78-04-21 T P* p 8 P**************************************************** z P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANA
0x09895c…098af0 Dummy {f00=0x0023, f01=0x0190, f02=»****** b P* 0 P* ALLOCATE AND LINK FDB:S IN THE FDB AREA > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS L 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT I
0x098af0…098c84 Dummy {f00=0x0023, f01=0x0190, f02=» P EXTRN INIFLG P EXTRN CDTAB P EXTRN QFDBFL . P EXTRN FDBSTA D P EXTRN FDBEND Z P EXTRN CURBUF p P EXTRN BUFDMI P EXTRN BUFSNR P EXTRN BUFOR P EXTRN TASBLK P EXTRN TASQUE P EXTRN CDTABF P
0x098c84…098e18 Dummy {f00=0x0023, f01=0x0190, f02=» A3= LINK ROOT P* A6= AREA END ADDR PDMIN30 LDR A4,A3 < P ADR A4,A2 T P* f P* DIV W. 2 FOR 16 K LIMIT p P* P LDR A5,A4 P SRL A5,1 P LDR A1,A6 P SRL A1,1 P CWR A5,A1 " P RF(G) DMIN40 EN
0x098e18…098fac Dummy {f00=0x0023, f01=0x018e, f02=»DB CHAIN P ADKL A15,4 P ABR* A15 $ P EJECT 6 P* D PDMINIT EQU * N . P* NO INITIALIZATIONS IF POWER FAIL RESTART b P* P LD A1,INIFLG P RF(Z) DMINEX P LDKL A2,QFDBFL FDB LENGTH P* $ P* CHAIN FDB:S IN
0x098fac…099140 Dummy {f00=0x0023, f01=0x0190, f02=» x P* P LDKL A3,CRNQUE+2 P ST A3,CRNQUE , P LDKL A2,CRBUFL B P LDKL A6,CRNEND Z P CF A15,DMIN30 r P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS P* P LDKL A2,/FFFE P LD A3,CURBUF P
0x099140…0992d4 (0, 194) Dummy {f00=0x0023, f01=0x4128, f02=»F P RB(NE) DMIN50 P* 8 P* CLEAR USE BIT AND QUEUE ANCHOR ADDRESS IN TASBLK * P CM TASBLK f P CM TASQUE x P* , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* P* P* PDMINEX EQU * P ABL RTNA15 RETURN
0x0992d4…099468 Dummy {f00=0x0023, 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
0x099468…0995fc Dummy {f00=0x0023, f01=0x018e, f02=» EASETB0 , ( B 8W D J$ T L T V , ( #$@W E . E . X V ? T B F TENDIO v & " = * X(@( H D ! . . . . . . . . . H D ! ! . #
0x0995fc…099790 Dummy {f00=0x0023, f01=0x4132, f02=» J H D ! TV P W P 5T KT S . gU, Wf U WF W P J P H D !J 7P I D mW uP& . U , P P* T U W R PB !P< #W T H D ! + . AP GW MP eV" kP qP: uP6 wW T* R T P P( P" , ( P P P W T T
0x099790…099924 Dummy {f00=0x0023, f01=0x2008, f02=» DMTEX2 @ EXITI L ND900 QUL
0x099924…099ab8 Dummy {f00=0x0023, f01=0x0190, f02=» h IHCRY INTSAV * & X Z6 A _B A , , ( @ X (@ 4 W I X Z , ( 3 4 ;DR Q B , ( S ;AY B U Y C T , ( ! s Q P &W -W /W A L
0x099ab8…099c4c Dummy {f00=0x0023, f01=0x0190, f02=» Q @ N T D W z , ( :#@'=" @ L Q @ N R Q ;A , ( Y T ;AT @ L L @ N , W J , ( 3 [.<(+^!$*);] ,%_>? Y ? z , ( S @ T X 1 PR B T X , ( s 0 :ET P OFT Y .
0x099c4c…099de0 Dummy {f00=0x0023, f01=0x4106, f02=» P U W -W ;R =Q G R K ` [U e f H D ! q oT yW }W W Q` V8 R W Pn Qf T^ H H D ! W` QJ RB Q> T2 T. % 2 1W 3 8 5 > 7 D U WTD eR, mT {T T @
0x099de0…099f74 (0, 195) Opaque[0x194]
0x099f74…09a108 # DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0480, f03=0x0000}
0x099f74…09a108 IdxSect {
0x099f74…09a108 f00 = 0x0024 // 0x99f74 @0x0
0x099f74…09a108 f01 = 0x000c // 0x99f76 @0x2
0x099f74…09a108 gno = [ // 0x99f78 @0x4
0x099f74…09a108 [0x00]: C0x0024.0x0.0
0x099f74…09a108 [0x01]: C0x0024.0x1.0
0x099f74…09a108 [0x02]: C0x0024.0x2.0
0x099f74…09a108 [0x03]: C0x0024.0x3.0
0x099f74…09a108 [0x04]: C0x0025.0x0.0
0x099f74…09a108 [0x05]: C0x0025.0x1.0
0x099f74…09a108 ]
0x099f74…09a108 }
0x09a108…09a29c Dummy {f00=0x0024, f01=0x0190, f02=» 0 P IDENT TASS REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* TASS = ASSIGN FILE CODE ACTIVATION PART P* P*
0x09a29c…09a430 Dummy {f00=0x0024, f01=0x0190, f02=»ERED VIA z $ P* ASSIGN REQUEST (DATA 15) OR ( P* ASSIGN INDEX REQUEST (DATA 16). 8 P* d P* LDK A7,TC n P* LDKL A8,ASBLK P* LKM P* DATA 15 P* " P* INPUT A5 = TTAB ADDRESS P* A7 = TC
0x09a430…09a5c4 Dummy {f00=0x0024, f01=0x0190, f02=» ASSIGN IN TTAB IS WANTED j B P* TC = 0 WHEN GLOBAL ASSIGN IN CDTAB IS WANETED " P* h P EJECT r P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +----------+----------+ P* I I
0x09a5c4…09a758 Dummy {f00=0x0024, f01=0x0190, f02=»-------------+ P* I I P* I VOL NAME I 8 P* I I Z P* +---------------------+ | P* I I P* $ P* MAX 4 VOL NAMES CAN BE GIVEN P* P* @ P*
0x09a758…09a8ec Dummy {f00=0x0024, f01=0x018e, f02=»ED WITH INFORMATION FROM THE VTOC:S OF THE x $ P* VOLUMES MENTIONED IN ASBLK. 2 P* Z J P* UPON COMPLETION OF THE ASSIGN REQUEST REG A7 WILL HAVE ONE OF THE d P* FOLLOWING RETURN CODES: P* 0 P* 0 = CORRECT RETURN ASSIGNMENT PERFOR
0x09a8ec…09aa80 Dummy {f00=0x0024, f01=0x0190, f02=» v ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED 4 P* 6 = FILE NAME UNKNOWN Z 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE | P* 8 = FAULTY DISC FORMAT & P* 9 = MORE THAN 4 EXTENTS EXIST P* P E
0x09aa80…09ac14 (0, 196) Dummy {f00=0x0024, f01=0x0190, f02=»A5 = TTAB ADDRESS " P* A8 = ASBLK ADDRESS 0 P* WHERE ASBLK IS A PARAMETER BLOCK @ P* +----------+----------+ t $ P* ASBLK I NO OF VOL FC I P* +----------+----------+ P* I I P* I
0x09ac14…09ada8 Dummy {f00=0x0024, f01=0x0190, f02=» VOL NAME I P* I I P* +---------------------+ > $ P* I MASTER INDEX ` " P* I FILE NAME P* D P* UPON COMPLETION OF THIS REQUEST REG A7 WILL HAVE ONE OF THE P* FOLL
0x09ada8…09af3c Dummy {f00=0x0024, f01=0x0190, f02=» " P* 2 = NO FREE ENTRY IN TABLE 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL * ( P* 4 = ONE OR MORE VOLUMES UNKNOWN f " P* 5 = FILE CODE ALREADY USED P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE
0x09af3c…09b0d0 Dummy {f00=0x0024, f01=0x0190, f02=»FILES ALREADY ASSIGNED 0 P* 12= SIZE OF DISC BUFFERS NOT SUFFICIENT 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST R P EJECT P* P*************** P* ENTRIES * P*************** P* P ENTRY TASS P ENT
0x09b0d0…09b264 Dummy {f00=0x0024, f01=0x0190, f02=»NTRY TASVOL P ENTRY TASCXO P ENTRY TASSEX * P ENTRY TASXLB @ P ENTRY TASFDB V P ENTRY TASVRL l P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TASFIL,TASTID,TASMXA,TASSPW P ENTRY TASFDD,TASTBE $
0x09b264…09b3f8 Dummy {f00=0x0024, f01=0x0190, f02=» ~ P* P EXTRN DFTAB P EXTRN DFTABE & P EXTRN CDTAB < P EXTRN DWTVOL P P EXTRN FNDTID f P EXTRN DMTASS | P EXTRN ACTOT P EXTRN TDISP P EXTRN QTJOB P EXTRN LKMQDI P EXTRN TTB:SA P EXTRN TTB:TD,
0x09b3f8…09b58c Dummy {f00=0x0024, f01=0x0190, f02=»*** P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANCOR : * PTASTTA DATA 0 REQUESTING TTAB ADDRESS b PTASASB DATA 0 ASBLK ADDRESS * PTASCVO DATA 0 CURRENT OFFSET IN TASVOL 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (D
0x09b58c…09b720 Dummy {f00=0x0024, f01=0x0190, f02=»ER, EXTENT NUMBER v * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,0,0 THREE MORE ENTRIES H PTASXLB DATA 0 EXTENT LENGTH t P DATA 0 EXTENT BASE ( P DATA 0,0,0,0,0,0 THREE MORE ENTRIES PTASFDB DATA 0 FDB ADDRESS $ PTASVRL
0x09b720…09b8b4 (0, 197) Dummy {f00=0x0024, f01=0x018e, f02=» P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 > 0 PTASFIL DATA 0 0=DATA,1=INDEX,2=MASTER INDEX R * PTASTID DATA 0 DMTSASK IDENT AT ASSIGN $ PTASMXA DATA 0 MASTER INDEX ADDR & PTASSPW DATA 0 TTAB ADDRESS DMTASK $ PTA
0x09b8b4…09ba48 Dummy {f00=0x0024, f01=0x0190, f02=» P EJECT P************** P* TASCAQ * ( P************** > P* T , P* ENTRY TASCAQ CHECK ASSIGN QUEUE ^ P* P* A7= RETURN CODE P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE =
0x09ba48…09bbdc Dummy {f00=0x0024, f01=0x0190, f02=»5,A7 | P* PTASCAQ EQU * P LD A5,TASQUE * P RF(Z) TASCEX EMPTY QUEUE @ " P LDR* A1,A5 GET NEXT IN CHAIN b , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NE
0x09bbdc…09bd70 Dummy {f00=0x0024, f01=0x0190, f02=» LD A5,TASTTA 4 P ST A7,TTB:SA+14,A5 SET RETURN CODE IN SAVED A7 P RTN A14 N P EJECT ^ 8 P****DESCRIPTION************************************* l P* : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH & P* VOLUME NAMES IN DWT
0x09bd70…09bf04 Dummy {f00=0x0024, f01=0x018e, f02=» A8 = ASBLK ADDR ( P* A11 = 0 WHEN NO LOCK IS WANTED. : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC F P* 8 P****EXIT PARAMETERS********************************* P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN
0x09bf04…09c098 Dummy {f00=0x0024, f01=0x0190, f02=» P* : P****************************************************** PVOLCHE EQU * L P SLL A2,1 ` P SUK A2,2 r 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 P LDKL
0x09c098…09c22c Dummy {f00=0x0024, f01=0x0190, f02=» IN CD:TAB AND COMPARE DWTVOL | P* & P LD* A6,CDTAB 0 PTAS130 SUK A6,4 F 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. ^ P LD A5,CDTAB P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11 P RF(
0x09c22c…09c3c0 Dummy {f00=0x0024, f01=0x0190, f02=»CK FLEXDISC P* P LDKL A8,TASECB " P ST A1,ECBFC,A8 FLEX FILE CODE 6 & P LDKL A12,0 LFLAG=UNLOCKED BEFORE P LDK A7,/A6 LOCK,WAIT P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(
0x09c3c0…09c554 (0, 198) Dummy {f00=0x0024, f01=0x018e, f02=» x P RF(NZ) TAS150 GRAVE ERR PTAS131 EQU * ( P ST A1,TASVOL,A2 SAVE FC < P P AD A6,CDTAB d P LDR* A5,A6 INDEX x $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CO
0x09c554…09c6e8 Dummy {f00=0x0024, f01=0x0190, f02=» P RB(P) TAS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR . & P RF(Z) TASHLT NO DWT ADDRESS FOUND J & P ADR A6,A1 POINTER TO VOLUME NAME t P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME N
0x09c6e8…09c87c Dummy {f00=0x0024, f01=0x0190, f02=» P ADK A6,2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME ( P* Z P* VOL NAME MATCH d P* STORE DMI , FC IN TASVOL ~ P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DIS
0x09c87c…09ca10 Dummy {f00=0x0024, f01=0x0190, f02=» FOR DRIVE 1 P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC 8 P* ^ P SC A1,TASVOL,A2 h P* P* CHECK NEXT VOL IN ASBLK P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MOR
0x09ca10…09cba4 Dummy {f00=0x0024, f01=0x0190, f02=»RFORMED x P LCR A1,A3 DISC CODE P ANK A1,/F8 , P SUK A1,/F8 @ P RF(NZ) TAS150 NO FLEXDISC T P LDR A12,A12 LFLAG v P RF(NZ) TAS150 LOCKED BEFORE P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P D
0x09cba4…09cd38 Dummy {f00=0x0024, f01=0x0190, f02=» RB(NE) TAS120 MORE FC IN DFTAB P LDK A1,1 ( PTAS155 EQU * : P RTN A14 N PTASHLT HLT ^ P EJECT p P* ~ P************ P* TASS * P************ P* PIXTASS EQU * P LDKL A14,/81 * P SCR A14,A8 BIT
0x09cd38…09cecc Dummy {f00=0x0024, f01=0x0190, f02=»R d P LDR A10,A7 SAVE TC P* & . P* CHECK IF PREVIOS ASSIGN NOT COMPLETED 0 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE b P* P LD A1,TASBLK & P RF(Z) TAS050 NO CONCURRENT ASSIGN * P LDKL A1,TASQUE START OF ASSIGN QUEU
0x09cecc…09d060 Dummy {f00=0x0024, f01=0x0190, f02=» A5,A2 P CMR A5 P ABL TDISP DISPATCH P* : PTAS050 EQU * D & P IM TASBLK INDICATE ASSIGN STARTED X " P CM TASFDD FDB ADDR DATA FILE P* 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK P* $ P ST A8,TASASB SAVE
0x09d060…09d1f4 (0, 199) Dummy {f00=0x0025, f01=0x0190, f02=»ITIALIZE RETURN CODE IN A7 P* " . P* CHECK MAX NUMBER OF VOLUMES ( 1 - 4 ) , P* ^ P LDK A2,0 h P LCR A2,A8 NO OF VOLUMES z . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC P RF(Z) TAS090 NO VOL P CWK A2,4 P RF(NG) TAS100
0x09d1f4…09d388 Dummy {f00=0x0025, f01=0x018e, f02=»L A11,0 NO FLEXLOCK P CF A14,VOLCHE P LD A8,TASASB ASBLK ADDR 2 P LDKL A7,-1 RET CODE R P LDR A1,A1 n $ P RF(Z) TAS160 ALL VOLUMES FOUND P* , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK P* P LD A1,TASCVO P LDK A
0x09d388…09d51c Dummy {f00=0x0025, f01=0x018e, f02=» P* PTAS160 EQU * P LDR* A3,A8 " P ANK A3,/FF 6 , P RF(E) TASSEM FILE CODE = 0 NOT ALLOWED J P LDR A10,A10 TC z P RF(Z) TAS165 GLOBAL ASSIGN P LD A2,TASTTA TTAB ADDR P LDR A4,A2 P LD A2,TTB:TD,A4 P ADKL A4
0x09d51c…09d6b0 Dummy {f00=0x0025, f01=0x0190, f02=» P RF(L) TAS180 END OF TABLE ! P LDR A1,A4 ! & P ADR A1,A2 ! 8 P CCR A3,A1 FILE CODE ! J P RB(NE) TAS170 NO MATCH ! f P* ! P* FILE CODE USED ! . P* OK WHEN REQ = ASS INDEX AND INDEX = 1 ! P* ! P LDR* A2,A8 ASBLK 1ST WORD ! P
0x09d6b0…09d844 Dummy {f00=0x0025, f01=0x018e, f02=»* DATA FILE FDB IS FOUND ! P* " " P LD A1,1,A1 FDB ADDR " , P ST A1,TASFDD " H P RB TAS170 " ^ P* " p P* " z > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) " P* " PTAS180 EQU * " P LDK A1,0 " P LDR A10,A10 TC "
0x09d844…09d9d8 Dummy {f00=0x0025, f01=0x0190, f02=» " | P RF TAS190 # PTAS185 EQU * # P LD A4,CDTAB # . P LDR* A2,A4 # B P ADK A4,1 # V PTAS190 SUK A2,4 # h ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE # P LDR A9,A4 # P ADR A9,A2 # P CCR A1,A9 FILE CODE # " P RB(NE) TAS190 FC NOT EQUAL
0x09d9d8…09db6c Dummy {f00=0x0025, f01=0x0190, f02=» * P ORKL A3,/100 INDEX = 1 FOR DATA FILE $ PTAS195 EQU * $ 2 0 P ST A3,-1,A9 SET INDEX AND FC IN FREE ENTRY $ F P ST A9,TASTBE SAVE ENTRY $ z P* $ 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK $ P* $ P LD A1,TASCVO $ P LDK A7,0 $
0x09db6c…09dd00 Dummy {f00=0x0025, f01=0x0190, f02=»B FOUND $ ~ P EJECT % P* % & P* FLEXDISC DMTASK DOES NOT EXIST % ( P* % R P CM -1,A9 REMOVE ENTRY % P LDK A7,4 VOL UNKNOWN % z P RF TASSEM % PTAS200 EQU * % P LDK A2,2 % 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK % & P
0x09dd00…09de94 (0, 200) Dummy {f00=0x0025, f01=0x018e, f02=»M TASFDB =0 INDICATES EXT #0 NOT FOUND % P LDK A3,0 & . * P* A1=PAR,A2=ADR,A3=SEGM,A5=TTAB ADDR & @ " P CF A15,ACTOT ACTIVATE DMTASK & n P ABL TDISP GO TO DISPATCHER & P EJECT & P* & P* ERROR RETURNS & P* & PTASSE5 ADK A7,1 &
0x09de94…09e028 Dummy {f00=0x0025, f01=0x4064, f02=» & P CF A14,TASCAQ CHECK ASSIGN QUEUE ' " P ABL LKMQDI QUEUE AND DISPATCH ' . P END ' T@ ' `DR & @ " P CF A15,ACTOT ACTIVATE DMTASK & n P ABL TDISP GO TO DISPATCHER & P EJECT & P* & P* ERROR RETURNS & P* & PTASSE5 ADK A7,1 &
0x09e028…09e1bc Dummy {f00=0x0025, f01=0x2008, f02=» (
0x09e1bc…09e350 Dummy {f00=0x0025, f01=0x0190, f02=» , ( ' " ! P ! _ ! , ( G _ ! * R X " P 4 , ( g V C :AP Z P ! * ! d , ( @R _* ! Y y Y , ( @ ! f ! X ( X $ , ( _" _* 9D
0x09e350…09e4e4 Dummy {f00=0x0025, f01=0x0190, f02=» V 5 9 F A R K * QW c gTR wT P f H D ! f P P T R 1 3Q 5R ePZ uP yT* P > H D ! V. $ X ' +P /P 3P 7P EW M OQ H D !M QW W YP ]W R, T:
0x09e4e4…09e678 Dummy {f00=0x0025, f01=0x0190, f02=» eTB oT8 s uRH wT0 P P * n H D !& R P R P * Vr P4 R V. * H D ! ? IQ U e i $ u $ R T v H D ! VD M * Q WP i P6 P, P P
0x09e678…09e80c Dummy {f00=0x0025, f01=0x4124, f02=» X Z H D ! ! - 9T =W C U aT cWD s w < T H D !z W * Z * R ! < #R Y p T P PH P P P P b H D !2 'P -P W T N ;P ? QRn cP iV qP yP R: P
0x09e80c…09e9a0 Dummy {f00=0x0025, f01=0x0190, f02=» F IDENT DEBUG dBUG |BUG . , ( A @ ~ A > , ( ! A ~ @ A A @ A n , ( A A @ A A @ A a A W o , (
0x09e9a0…09eb34 (0, 201) Opaque[0x194]
0x09eb34…09ecc8 # DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03d8, f03=0x0000}
0x09eb34…09ecc8 IdxSect {
0x09eb34…09ecc8 f00 = 0x001e // 0x9eb34 @0x0
0x09eb34…09ecc8 f01 = 0x0010 // 0x9eb36 @0x2
0x09eb34…09ecc8 gno = [ // 0x9eb38 @0x4
0x09eb34…09ecc8 [0x00]: C0x001e.0x3.0
0x09eb34…09ecc8 [0x01]: C0x001f.0x0.0
0x09eb34…09ecc8 [0x02]: C0x001f.0x1.0
0x09eb34…09ecc8 [0x03]: C0x001f.0x2.0
0x09eb34…09ecc8 [0x04]: C0x001f.0x3.0
0x09eb34…09ecc8 [0x05]: C0x0020.0x0.0
0x09eb34…09ecc8 [0x06]: C0x0020.0x1.0
0x09eb34…09ecc8 [0x07]: C0x0020.0x2.0
0x09eb34…09ecc8 ]
0x09eb34…09ecc8 }
0x09ecc8…09ee5c Dummy {f00=0x001e, f01=0x0190, f02=» 2 P IDENT DMTASS REL 8.2 78-09-15 870105040820 P : P MX REL. L. 176,565 B P REL 8.1 78-04-21 ` P* | 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* DMTASS
0x09ee5c…09eff0 Dummy {f00=0x001e, f01=0x0190, f02=»********************** r P* * P* THIS MODULE IS ACTIVATED FROM TASS ( P* V B P* INPUT A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED ` ( P* TASBLK PARAMETER BLOCK P* J P* IN TASVOL IN TASBLK ALL VOLUMES WHERE TH
0x09eff0…09f184 Dummy {f00=0x001e, f01=0x0190, f02=»E FILE TO BE ASSIGNED. FOR EACH EXTENT ITS z > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND 2 . P* FILE-EXTENT-BASE ARE SAVED IN TASBLK. t L P* FOR THE FIRST EXTENT (I.E. FILE-SECTION-NO =0 AND FILE-EXTENT-NO =0) J P* THE LAST-RECOR
0x09f184…09f318 Dummy {f00=0x001e, f01=0x018e, f02=»FDB:S CAN BE SEARCHED ^ L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO THE FDB ADDRESS IS PUT INTO THE CD:TAB AND n L P* THE ASSIGNMENT IS COMPLETED. IF NO FDB DESCRIBING THE FILE IS FOUND
0x09f318…09f4ac Dummy {f00=0x001e, f01=0x0190, f02=» 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 IS THEN USED r P EJECT P* P*************** P* ENTRIES * P*************** P*
0x09f4ac…09f640 Dummy {f00=0x001e, f01=0x0190, f02=»*************** P* EXTERNALS * P***************** 2 P* L P EXTRN QTJOB V P EXTRN FNDTID,TTB:TD j P* P EXTRN DWTST P EXTRN DWTADR P* P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN E
0x09f640…09f7d4 (0, 202) Dummy {f00=0x001f, f01=0x018e, f02=»UFSTA P EXTRN BUFSNR P EXTRN BUFDMI $ P* : P EXTRN QFDBFL D P EXTRN FDBSTA Z P EXTRN FDBEND p P EXTRN FDBECB P EXTRN FDBEXT P EXTRN EXTDMI P EXTRN EXTLEN P EXTRN EXTBAS P EXTRN FDBRLE
0x09f7d4…09f968 Dummy {f00=0x001f, f01=0x0190, f02=» . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO 6 $ P EXTRN MXIND,CRNQUE,DMTWM,MPYMOD R P EXTRN TASASB z P EXTRN TASCVO P EXTRN TASVOL P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB P EXTRN TAS
0x09f968…09fafc Dummy {f00=0x001f, f01=0x0190, f02=» EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCAQ $ P EXTRN VOLCHE : P EJECT P PX:A EQU 0 ^ , PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE p PX:B EQU 0 0 PINDXAC EQU 0 INDEX ACCESS FUNCTIONS WHEN = 1 P EJECT P* P**********
0x09fafc…09fc90 Dummy {f00=0x001f, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* 0 PVTFSNO EQU 8 : PVTFXNO EQU 10 N PVTFXLE EQU 14 d PVTFXBA EQU 18 z PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38
0x09fc90…09fe24 Dummy {f00=0x001f, f01=0x0190, f02=»4 WORDS P DATA 0,0 STACK PDMTA14 EQU *-2 ( P EJECT > P* L P************** V P* DMTIOC * l P************** P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WI
0x09fe24…09ffb8 Dummy {f00=0x001f, f01=0x0190, f02=»,/FEFF BIT 7 ONLY RETRIES P RF(Z) DMTIOX " P ADKL A14,4 8 P ANK A1,/80 L $ 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 PDMTI
0x09ffb8…0a014c Dummy {f00=0x001f, f01=0x018e, f02=»SS EQU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT L P CM TASMXA MASTER INDEX ADDR l P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8
0x0a014c…0a02e0 Dummy {f00=0x001f, f01=0x0190, f02=» P LDR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN . P ABL DMTASX L PDMT010 EQU * ` P* t P LDKL A8,TASECB ~ P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF A14,CLRBUF RELEASE ALL
0x0a02e0…0a0474 (0, 203) Dummy {f00=0x001f, f01=0x0190, f02=»T A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 $ 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) 6 P* j P* t 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 ~ P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P ST A3,ECBBA,A8 DATA BUF
0x0a0474…0a0608 Dummy {f00=0x001f, f01=0x0190, f02=» * P DATA DMTAR3 RESTART ADDRESS AFTER I/O P LKM 6 P DATA 3 EXIT B P EJECT V 4 PDMTAR3 EQU * RESTART AFTER VOLUME LABEL IS READ d . P LDKL A14,DMTA14 SET UP A14 STACK POINTER P CF A14,DMTIOC I/O CHECK P LD A2,VLVER,A3 VERSION
0x0a0608…0a079c Dummy {f00=0x001f, f01=0x0190, f02=»DMT100 EQU * P CM TASVRN P LD A6,VLVLE,A3 VTOC LENGTH & P ST A6,TASVLE J P LD A2,VLVBA,A3 VTOC BASE ` . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH P ST A9,TASVRL P EJECT P*
0x0a079c…0a0930 Dummy {f00=0x001f, f01=0x0190, f02=» $ P RF(P) DMT115 MORE VTOC SECTORS P EJECT , P* : " P* ALL VTOC SECTORS ARE READ D P* j P LD A1,TASCVO t P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED P ST A1,TASCVO UPDATE TASCVO $ P LDK A7,7 TOO MANY FILE SECTIO
0x0a0930…0a0ac4 Dummy {f00=0x001f, f01=0x0190, f02=»EASE BUFFER ~ P LC A7,TASVOL,A1 P CC A7,TASVOL+2,A1 , P RB(E) DMT050 SAME DM TASK F P* h P* ACTIVATE NEXT DM TASK r P* P ADKL A7,'D0' P LKM P DATA -4 P DATA DMTASS P LKM P DATA 3 EXIT P EJE
0x0a0ac4…0a0c58 Dummy {f00=0x001f, f01=0x018e, f02=» P CF A14,DMTRBU P LD A2,ECBCW,A8 P ADK A2,1 NEXT VTOC SECTOR 2 P LD A1,TASCVO T P LD A1,TASVOL,A1 j P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA P ST A3,ECBBA,A8 P ST A2,ECBCW,A8
0x0a0c58…0a0dec Dummy {f00=0x001f, f01=0x0190, f02=» PDMTAR4 EQU * P LDKL A14,DMTA14 P CF A14,DMTIOC 0 P LD A9,TASVRL F P LD A11,TASASB , P ADKL A11,2 POINTER TO FILENAME IN ASBLK r P LDK A4,2 P CW A4,TASFIL $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE N
0x0a0dec…0a0f80 Dummy {f00=0x001f, f01=0x0190, f02=»A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 0 P ANK A2,/FF B P ABL(Z) DMT250 NOT USED V ( P SUR A4,A9 BACK TO START OF VTOC REC v P LDR A7,A11 $ P LDK A2,4 FILE NAME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 P C
0x0a0f80…0a1114 (0, 204) Dummy {f00=0x001f, f01=0x018e, f02=» ADK A7,2 P RB DMT150 CHECK NEXT WORD P* 4 ( P* ONLY STANDARD FILES ARE HANDLED > P* j PDMT160 EQU * t P LC A2,VTFIOR,A3 P CCK A2,'SS' STANDARD FILE ? P RF(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(N
0x0a1114…0a12a8 Dummy {f00=0x001f, f01=0x0190, f02=» PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN TASBLK " P* T $ P LDR A4,A3 START OF VTOC RECORD ^ 8 P LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB P SUK A1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS
0x0a12a8…0a143c Dummy {f00=0x001f, f01=0x0190, f02=»TFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1 0 P LD A6,TASCVO H , P ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME ^ " P LD A2,VTFXLE,A4 EXTENT-LENGTH P ST A2,TASXLB,A1 P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1
0x0a143c…0a15d0 Dummy {f00=0x001f, f01=0x0190, f02=»BING THE FILE ALREADY EXISTS. v P* & P LD A12,TASFDB 0 * P RF(Z) DMT190 FIRST TIME EXT #0 FOUND F P LDK A7,7 t $ P ABL DMTASX EXT #0 ALREADY FOUND PDMT190 EQU * P LDKL A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 P ANK A
0x0a15d0…0a1764 Dummy {f00=0x001f, f01=0x018e, f02=»DBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC REC ( P LD A2,FDBMIA,A12 P " P RF(NZ) DMT205 INDEX ASS BEFOR j P LD A2,TASFIL . P ABL(E) DMT400 SAME VTOC RECORD FDB FOUND PDMT205 EQU * P LDK A7,5 FILE CODE USED
0x0a1764…0a18f8 Dummy {f00=0x001f, f01=0x0190, f02=» j P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P* F P LDKL A12,FDBSTA P PDMT220 LDR* A5,A12 h P ANK A5,/01 P RF(Z) DMT230 FREE P LDR* A12,A12 GET NEXT FDB P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO C
0x0a18f8…0a1a8c Dummy {f00=0x001f, f01=0x018e, f02=» P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL . P LDK A2,0 F P LDR A1,A12 X PDMT233 ADK A1,2 l P CWR A1,A10 P RF(E) DMT237 END OF FDB P STR A2,A1 P RB DMT233 PDMT237 EQU * P LDKL A2,/8000 P*
0x0a1a8c…0a1c20 Dummy {f00=0x001f, f01=0x0190, f02=» P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 4 P ORRS A2,A12 SET USE BIT H P LC A2,VTLRN,A4 h P SC A2,FDBLRN,A12 P LD A2,VTLRN+1,A4 P ST A2,FDBLRN+1,A12 P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2
0x0a1c20…0a1db4 (0, 205) Dummy {f00=0x001f, f01=0x0190, f02=» P LD A2,TASVRN P ST A2,FDBVTO,A12 P EJECT 4 P* B P* CHECK NEXT VTOC RECORD L P* n PDMT250 EQU * x 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
0x0a1db4…0a1f48 Dummy {f00=0x001f, f01=0x0190, f02=»* < P* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* J PDMT300 EQU * T P LDK A3,16 h P SU A3,TASCXO z P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P R
0x0a1f48…0a20dc Dummy {f00=0x001f, f01=0x0190, f02=»FDB IN ASCENDING ORDER p 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO P* Z PDMT320 EQU * d P* x @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE P* P LD A6,TASFIL P RF(Z) DMT330 DATA FILE ASS $
0x0a20dc…0a2270 Dummy {f00=0x001f, f01=0x0190, f02=»NG) DMT330 OK P LDK A7,12 ! * P RF DMTASX RECORD BUFFER IS TOO SMALL ! ( PDMT330 EQU * ! V P LDR A6,A12 ! j P* FDB ADDR ! ~ P ADKL A6,FDBEXT ! P LDK A2,0 ! P LDR A5,A3 ! P SRL A5,2 NUMBER OF EXTENTS ! PDMT340 EQU * ! P L
0x0a2270…0a2404 Dummy {f00=0x001f, f01=0x0190, f02=»DMT350 MORE EXTENTS TO CHECK ! P* " $ , P* THE EXTENT SEARCHED FOR IS NOT FOUND " . 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) " ^ P* " P LDR A1,A2 " P ANK A1,/FF " $ P RF(NZ) DMT370 TRY NEXT SECTION " P* " PDMT355 EQU * "
0x0a2404…0a2598 Dummy {f00=0x001f, f01=0x018e, f02=»* " P LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 # $ P ST A1,EXTDMI,A6 # < P LD A1,TASXLB,A4 # T P ST A1,EXTLEN,A6 # l P LD A1,TASXLB+2,A4 # P ST A1,EXTBAS,A6 # P ADK A6,6 # P SUK A5,1 # & P RF(NP) DMT500 ALL EXTENTS HANDLED # P* #
0x0a2598…0a272c Dummy {f00=0x001f, f01=0x0190, f02=» # P SUK A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 $ PDMT370 EQU * $ @ P ECR A1,A2 $ T P ANK A1,/FF $ f P SUK A1,3 $ z P RB(E) DMT355 SECTION-NO = 3 $ " P ADK A1,4 INCREMENT SECTION-NO $ P ECR A2,A1 EXT-NO = 0 $ P RB DMT340 $ $ PDM
0x0a272c…0a28c0 Dummy {f00=0x001f, f01=0x0190, f02=»T400 EQU * $ P LDK A7,0 % PDMTASX EQU * % $ , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR % 8 P LDR A7,A7 % h P RF(Z) DMT420 CORRECT RETURN % z P CM -1,A2 ZERO FILE CODE % P* % $ P* REMOVE FDB WITH MASTER INDEX % P* % $ P LD A4,TASMXA
0x0a28c0…0a2a54 (0, 206) Dummy {f00=0x0020, f01=0x0190, f02=» % PDMT405 EQU * & P SUK A2,4 NEXT OFFSET & P RF(NN) DMT407 OK & : * P RF DMT408 MASTER INDEX MUST BE FOUND & T PDMT407 CW A4,MXIND+2,A2 & P RB(NE) DMT405 NEXT ENTRY & P LDKL A4,/7FFF & & P ANS A4,MXIND+4,A2 SET ENTRY FREE & PDMT4
0x0a2a54…0a2be8 Dummy {f00=0x0020, f01=0x018e, f02=»FDB USE BIT & ~ P RF DMT430 ' PDMT420 EQU * ' & P ST A12,1,A2 FDB ADDR ' : PDMT430 EQU * ' X P LDR A8,A8 ' l P RF(Z) DMT440 NO BUFFER ' ~ P LD A3,ECBBA,A8 ' P SUKL A3,BUFSTA ' " P CF A14,DMTRBU RELEASE BUFFER ' PDMT440 EQU * ' , P
0x0a2be8…0a2d7c Dummy {f00=0x0020, f01=0x0190, f02=» ' P LKM ( P DATA 3 ( P EJECT ( $ PDMT500 EQU * ( 2 P LD A6,TASFIL ( F P ABL(Z) DMT700 DATA FILE ( P IFF INDXAC=1 ( | P LDKL A7,-1 REQ ERR ( P RB DMTASX ( P XIF ( P IFT INDXAC=1 ( P SUK A6,1 ( P ABL(Z) DMT600 INDEX
0x0a2d7c…0a2f10 Dummy {f00=0x0020, f01=0x018e, f02=»* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE ( P* ) @ P LD A7,TASTID DMTASK ID ) J P INH ) j " P CF A15,FNDTID TTAB ADDR TO A2 ) v P ENB ) P ST A2,TASSPW ) " P LDKL A3,/0100 INDEX DATA FILE ) P LD A1,TASASB ) P LC A3,1,A1 FI
0x0a2f10…0a30a4 Dummy {f00=0x0020, f01=0x0190, f02=» P SUKL A3,BUFSTA * " P CF A14,DMTRBU RELEASE BUFFER * P* * B 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX * L P* * P LD A6,FDBRLE,A12 REC LGTH * " P LD A7,FDBLRN+1,A12 NO OF RECS * , P CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED * P SRC A
0x0a30a4…0a3238 Dummy {f00=0x0020, f01=0x0190, f02=»NH * P LD A4,MXIND LENGTH MXIND + P SUK A4,4 MAX A5 VALUE + , P LDKL A5,-2 OFFSET + J PDMT540 EQU * + d P ADK A5,4 GET ENTRY + x P CWR A5,A4 + P RF(G) DMT570 NO ENTRY FOUND + P LD A3,MXIND,A5 + P RB(Z) DMT540 ZERO ENTRY + P LD A6
0x0a3238…0a33cc Dummy {f00=0x0020, f01=0x0190, f02=» P* SUFFICIENT SPACE FOUND , P* , & P LDKL A1,/8000 USED BIT , 0 & P ORS A1,MXIND+2,A5 MARK ENTRY USED , P $ P ST A3,TASMXA MASTER INDEX ADDR , z P ST A3,FDBMIA,A12 , P LD A7,FDBLRN+1,A12 , P STR A7,A3 NO OF ENTRIES , P LD A1,FDBRLE,A1
0x0a33cc…0a3560 Dummy {f00=0x0020, f01=0x0190, f02=» , x . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION - P CWR A1,A4 MXIND ENTRY - : P RF(NL) DMT590 LAST ENTRY - X P LD A3,MXIND+6,A1 - z " P RF(N) DMT590 NEXT ENTRY USED - P* - & P* MOVE SPARE WORDS TO NEXT ENTRY - P* - P LD A2,MXIND+2,A
0x0a3560…0a36f4 (0, 207) Dummy {f00=0x0020, f01=0x0190, f02=»6,A1 MAKE NEXT ENTRY LARGER - $ P LD A7,MXIND,A1 PREVIOUS POINTER . $ P SLL A2,1 NO OF BYTES . L P ADR A7,A2 . j P ST A7,MXIND+4,A1 . | P EJECT . PDMT590 EQU * . P ENB . P* . 2 P* NOW READ MASTER INDEX WITH SEQUENTIAL READ . P*
0x0a36f4…0a3888 Dummy {f00=0x0020, f01=0x0190, f02=» . X P* / PDMT550 EQU * / & P LDK A7,/42 SEQ READ,NOWAIT,NO EA / & P LKM / P P DATA -1 / P DATA DMTAR5 / l P LKM / P DATA 3 EXIT / PDMTAR5 EQU * / " P LDKL A14,DMTA14 RESTORE STACK / P LDKL A8,TASECB ECB ADDR / P LD A2,ECBRC,A
0x0a3888…0a3a1c Dummy {f00=0x0020, f01=0x0190, f02=» P LD A4,TASFDB FDB ADDR 0 P LD A5,FDBCRL,A4 CRN BUF ADR 0 " P RF(Z) DMT553 NO CRN 0 F P CM FDBCRL,A4 0 b P INH 0 x P LD A6,CRNQUE 0 P STR A6,A5 0 P ST A5,CRNQUE 0 P ENB 0 PDMT553 EQU * 0 P ANKL A2,/1000 BIT 3 = EOF 0 0 P RF(
0x0a3a1c…0a3bb0 Dummy {f00=0x0020, f01=0x018e, f02=»60 EQU * 0 P* 1 P* RECORD READ,READ NEXRT 1 P* 1 < P LD A2,ECBRL,A8 1 F P ADS A2,ECBBA,A8 REC LENGTH 1 ^ P RB DMT550 READ NEXT RECORD 1 PDMT570 EQU * 1 P ENB 1 P LDK A7,3 NOT SUFF SPACE 1 P RB DMT555 1 P EJECT 1 PDM
0x0a3bb0…0a3d44 Dummy {f00=0x0020, f01=0x0190, f02=» 1 v " P LD A3,TASSPW TTAB ADR DMTASK 2 P CM TTB:TD+2,A3 DELETE ENTRY 2 . P CM TTB:TD+4,A3 2 R P LD A3,TASFDB FDB ADDR 2 j P LDKL A2,/FFFE 2 " P ANRS A2,A3 CLEAR FDB USE BIT 2 ( P CM TASFDB EXT 0 NOT FOUND FOR INDEX 2 P LDK A1,16 2 & P ST A1
0x0a3d44…0a3ed8 Dummy {f00=0x0020, f01=0x0190, f02=» P EJECT 3 PDMT600 EQU * 3 P* 3 & P* INDEX FILE ASSIGN 3 0 P* 3 N P LDK A7,10 RET CODE 3 X & P LD A10,TASFDD FDB ADDR DATA FILEP 3 t P RF(Z) DMT650 NO DATA FILE 3 P* 3 * P* STORE INDEX ADDR IN FDB DATA FILE 3 P* 3 P INH
0x0a3ed8…0a406c Dummy {f00=0x0020, f01=0x018e, f02=»20 EQU * 3 P SUK A3,2 4 $ P RF(N) DMT640 MORE THAN 4 INDEX 4 " P LDR A6,A10 4 J P ADR A6,A3 4 ^ P LD A2,FDBAI1,A6 4 p P RB(NZ) DMT620 USED 4 * P ST A12,FDBAI1,A6 STORE FDB ADDR INDEX 4 P* 4 < P* MOVE FDB ADDRESSES FROM DATA FILE TO ALL
0x0a406c…0a4200 Dummy {f00=0x0020, f01=0x018e, f02=» P LDR A1,A10 FDB DATA 5 P ADR A1,A5 5 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 5 2 P RB(Z) DMT625 NO INDEX FILE 5 Z P LDKL A1,FDBADF 5 ~ P ADR A3,A1 TO ADDR 5 P ADR A1,A10 FROM ADDR 5 P LDK A2,10 NO OF BYTES 5 P CF A14,DMTWM MOVE 5 WORDS 5
0x0a4200…0a4394 (0, 208) Dummy {f00=0x0020, f01=0x0190, f02=» P LD A1,TASMXA 6 ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 6 P RF DMT720 6 F ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 6 X * PDMT640 ADK A7,1 A7=11=4 INDEX ALREADY 6 $ PDMT650 EQU * A7=10=NO DATA FILE 6 P ABL DMTASX 6 P XIF 6 P EJECT 6 " P
0x0a4394…0a4528 Dummy {f00=0x0020, f01=0x0190, f02=» SLL A1,1 6 $ P ORS A1,FDBDBR,A12 DELAY + BASIC 7 PDMT720 EQU * 7 : P* 7 N ( P* SET FDBMRN TO MAX REC NO IN FILE 7 X P* 7 P LDR A1,A12 7 P ADKL A1,FDBNIF 7 P ADKL A1,EXTELE-2 7 PDMT750 SUKL A1,EXTELE 7 P LDR* A2,A1 EXT BASE 7
0x0a4528…0a46bc Dummy {f00=0x0020, f01=0x0190, f02=» 7 ~ P LDR A1,A12 8 " P CF A14,GTLGRN GET LOG REC NO 8 P LDK A1,0 8 B " P LC A1,FDBBLF,A12 BLOCK FACTOR 8 T P SUK A1,1 8 z P ADR A3,A1 8 P RF(O) DMT760 8 P RF DMT770 8 PDMT760 ANKL A3,/7FFF 8 P ADK A2,1 CARRY 8 PDMT770 SC A2,F
0x0a46bc…0a4850 Dummy {f00=0x0020, f01=0x40da, f02=»A12 REC LENGTH 8 P ADK A6,1 9 P LDK A7,0 9 ( P LC A7,FDBBLF,A12 BLOCK FACT 9 : P SUK A7,1 9 ^ P CF A14,MPYMOD A1,A2=A6*A7 9 p P ST A2,FDBMRO,A12 MAX FDBRRO 9 P ABL DMT400 9 P END 9 @ 9 8 P ADK A2,1 CARRY 8 PDMT770 SC A2,F
0x0a4850…0a49e4 Dummy {f00=0x0020, 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
0x0a49e4…0a4b78 Dummy {f00=0x0020, f01=0x0190, f02=» EQU * : P ANKL A3,/FFFE FDB ADDR ; " P RF(Z) DMT980 ALL FDBS CHECKED ; 0 P LDR* A7,A3 ; V P ANK A7,1 ; j P RB(Z) DMT920 FREE ; | P CWR A6,A3 ; P RB(E) DMT920 CURRENT FDB ; P LDK A7,4 EXTENT COUNTER ; P LDR A2,A3 FDB ADDR ; P A
0x0a4b78…0a4d0c Dummy {f00=0x0020, f01=0x0190, f02=» RB(N) DMT920 ALL EXTENTS CHECKED ; P ADKL A2,EXTELE < * P CCR A4,A2 VOLUME CODE < B ( P ABL(E) DMT880 CODE USED. NO UNLOCK < ` P RB DMT930 NEXT EXTENT < P* < & P* ALL FSDBS CHECKED. MAKE UNLOAD < P* < PDMT980 EQU * < P ENB ENB <
0x0a4d0c…0a4ea0 Dummy {f00=0x0020, f01=0x0190, f02=»DE < z P LDK A7,/B8 UNLOAD WAIT = P LKM = * P DATA 1 = 6 P LD A1,ECBRC,A8 = F P ANK A1,1 INOPER = ^ P ABL(NZ) DMTERR = v P ABL DMT880 CHECK NEXT EXT = P XIF = P EJECT = " PDMT500 EQU * READ VTOC RECORD = P* = " P LD A2,VTOCRL
0x0a4ea0…0a5034 (0, 209) Opaque[0x194]
0x0a5034…0a51c8 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0398, f03=0x0000}
0x0a5034…0a51c8 IdxSect {
0x0a5034…0a51c8 f00 = 0x001c // 0xa5034 @0x0
0x0a5034…0a51c8 f01 = 0x0008 // 0xa5036 @0x2
0x0a5034…0a51c8 gno = [ // 0xa5038 @0x4
0x0a5034…0a51c8 [0x00]: C0x001c.0x3.0
0x0a5034…0a51c8 [0x01]: C0x001d.0x0.0
0x0a5034…0a51c8 [0x02]: C0x001d.0x1.0
0x0a5034…0a51c8 [0x03]: C0x001d.0x2.0
0x0a5034…0a51c8 ]
0x0a5034…0a51c8 }
0x0a51c8…0a535c Dummy {f00=0x001c, f01=0x0190, f02=» 0 P IDENT DMBUF REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P
0x0a535c…0a54f0 Dummy {f00=0x001c, 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
0x0a54f0…0a5684 Dummy {f00=0x001c, 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
0x0a5684…0a5818 Dummy {f00=0x001c, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 02 : P* N P* X PCURBUF DATA BUF1 b PNEWBUF DATA 0 z P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x0a5818…0a59ac Dummy {f00=0x001c, f01=0x0190, f02=»-WORD | " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 4 P RES 205 ` P* p P* z P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x0a59ac…0a5b40 Dummy {f00=0x001c, f01=0x0190, f02=»=1 P IFF QNBUF=2 PBUF3 DATA BUF4 P DATA 0,0,0 4 P RES 205 H P XIF X P* d P* n P IFT QNBUF=3 x PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 DATA
0x0a5b40…0a5cd4 (0, 210) Dummy {f00=0x001d, f01=0x0190, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N PBUF5 DATA BUF6 b P DATA 0,0,0 x P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P* P I
0x0a5cd4…0a5e68 Dummy {f00=0x001d, f01=0x0190, f02=» P RES 205 P XIF P* P* * P IFT QNBUF=6 4 PBUF7 EQU BUF1 H P XIF ^ P* j P* t 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 BUF8
0x0a5e68…0a5ffc Dummy {f00=0x001d, f01=0x0190, f02=»* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 2 P IFF QNBUF=4 F P IFF QNBUF=5 Z P IFF QNBUF=6 n P IFF QNBUF=7 PBUF8 DATA BUF9 P DATA 0,0,0 P RES 205 P XIF P* P* P IFT QNBUF=8 PBUF9
0x0a5ffc…0a6190 Dummy {f00=0x001d, f01=0x0190, f02=»NBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 " P IFF QNBUF=8 6 PBUF9 DATA BUF10 J P DATA 0,0,0 b P RES 205 v P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF
0x0a6190…0a6324 Dummy {f00=0x001d, f01=0x0190, f02=» IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 , P RES 205 @ P XIF P P IFT QNBUF=10 PBUF11 EQU BUF1 r P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5
0x0a6324…0a64b8 Dummy {f00=0x001d, f01=0x018e, f02=»0,0,0 P RES 205 P XIF P IFT QNBUF=11 * PBUF12 EQU BUF1 @ P XIF V P* b P* l P IFF QNBUF=1 v 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 Q
0x0a64b8…0a664c Dummy {f00=0x001d, f01=0x0190, f02=» P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 & P XIF < P* H P* R P IFF QNBUF=1 P IFF QNBUF=2 p 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 QNBUF=9
0x0a664c…0a67e0 Dummy {f00=0x001d, f01=0x0190, f02=»IF P IFT QNBUF=13 PBUF14 EQU BUF1 P XIF 6 P* B P* L P IFF QNBUF=1 V P IFF QNBUF=2 j 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 QNBUF=9
0x0a67e0…0a6974 (0, 211) Dummy {f00=0x001d, f01=0x0190, f02=»ES 205 P XIF P IFT QNBUF=14 PBUF15 EQU BUF1 0 P XIF F P* R P* P IFF QNBUF=1 f P IFF QNBUF=2 z 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 I
0x0a6974…0a6b08 Dummy {f00=0x001d, f01=0x0190, f02=»TA BUF16 P DATA 0,0,0 P RES 205 $ P XIF 4 P IFT QNBUF=15 @ PBUF16 EQU BUF1 V P XIF l P* x 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 P IFF
0x0a6b08…0a6c9c Dummy {f00=0x001d, f01=0x0190, f02=» P IFF QNBUF=14 P IFF QNBUF=15 PBUF16 DATA BUF1 4 P DATA 0,0,0 L P RES 205 ` P XIF p P EJECT | P* P************** P* DMTGBU * P************** P* * P* ENTRY DMTGBU GET A DISC BUFFER
0x0a6c9c…0a6e30 Dummy {f00=0x001d, f01=0x0190, f02=» $ P* OUTPUT A3 = BUFFER ADDRESS J P* SKIP RETURN (+2) IF SECTOR MUST BE READ INTO BUFFER AT A3 0 , P* A5 AND A7 WILL BE DESTROYED ~ P* 8 P* CURBUF, BUFDMI, -FC AND -SNR WILL BE SET < P* STATUS U
0x0a6e30…0a6fc4 Dummy {f00=0x001d, f01=0x0190, f02=» FOR IS ALREADY PRESENT IN ANY FREE BUFFER. F P* IF THIS SECTOR IS NOT FOUND A FREE SECTOR MUS BE FOUND AND IN 4 P* ~ P* P* PDMTGBU EQU * P INH INH P* 4 P* CHECK IF THIS SECTOR IS FOUND IN ANY BUFFER P*
0x0a6fc4…0a7158 Dummy {f00=0x001d, f01=0x0190, f02=»NG VOLUME ~ P CW A2,BUFSNR,A3 P RF(E) DMT050 SAME SECTOR NO * PDMT020 EQU * N P LDK A7,/01 b & P AN A7,BUFLNK,A3 STATUS IN BIT 15 v P RF(NZ) DMT041 USED P IM BUFOR,A3 MAKE OLDER P RF(P) DMT030 P LDK A7,/FF P S
0x0a7158…0a72ec Dummy {f00=0x001d, f01=0x0190, f02=» PDMT041 EQU * P CW A3,CURBUF * P RB(NE) DMT010 MORE BUFFERS TO SERARCH 2 P LDR A5,A5 ` P RF(NZ) DMT043 BUFFER FOUND r P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PDMT043 LD A3,NEWBUF P* * P* SET
0x0a72ec…0a7480 Dummy {f00=0x001d, f01=0x0190, f02=»A2,BUFSNR,A3 SECTOR NUMBER PDMT050 EQU * " " P CM BUFOR,A3 RESET OLD-COUNTER 6 P ST A3,CURBUF P LDK A7,/01 r ( P ORRS A7,A3 SET STATUS USED BIT 15 P ENB ENB P RTN A14 P EJECT P* P************** P* DM
0x0a7480…0a7614 (0, 212) Dummy {f00=0x001d, f01=0x0190, f02=»ESS t P* A2 IS DESTROYED P* 0 P* : PDMTRBU EQU * D P LDKL A2,/FFFE X P ANRS A2,A3 SET OFF BIT 15 n P RTN A14 P* P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************************
0x0a7614…0a77a8 Dummy {f00=0x001d, f01=0x40a8, f02=»UFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE , PDMT750 CW A3,CURBUF H P RB(NE) DMT700 MORE BUFFERS d P RTN A14 P END @ P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************************
0x0a77a8…0a793c Dummy {f00=0x001d, 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
0x0a793c…0a7ad0 Dummy {f00=0x001d, f01=0x0190, f02=»ENTIAL READ ~ P* $ P* FIND CRN+1 AND TEST IF > LRN P* F P LDR A1,A6 FDB ADDR P " P CF A14,CRNGET GET CRN-BUFFER l P LDK A1,0 P LC A1,CRNCDF+1,A2 & P LD A2,CRNCDF+2,A2 CURR LOG REC NO P ADK A2,1 CRN+1 P RF(O) S
0x0a7ad0…0a7c64 Dummy {f00=0x001d, f01=0x0190, f02=» * P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 * P* B $ P* CONTINUE AS FOR RANDOM READ L P* t P EJECT ~ PRANREAD EQU * RANDOM READ P* $ PRANREB EQU * RAND READ REL BUFF P* P* TEST IF ECBRL <= 0 P
0x0a7c64…0a7df8 Dummy {f00=0x001d, f01=0x0190, f02=» * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* 6 * P* EA MUST NOT BE SET FOR OTHER TASK @ P* n P LDR A1,A6 FDB ADDR x P CF A14,EATEST P LDR A4,A4 RTN INF P RF(N) TIODPE EA OTHER TASK P RF TIODMA P EJECT P
0x0a7df8…0a7f8c Dummy {f00=0x001d, f01=0x0190, f02=» ECBCW h P* P* * P* CALCULATE NUMBER DOF SPARE RECORDS " P* P P LDR A5,A6 SAVE FDB ADDR Z P LDK A1,0 z P LC A1,FDBMRN,A6 LAST REC NR P LD A2,FDBMRN+1,A6 P LDK A6,0 P LC A6,FDBLRN,A5 P LD A7,FDBLRN+1,A5 L
0x0a7f8c…0a8120 Dummy {f00=0x001d, f01=0x018e, f02=» ST A2,ECBEL,A8 NR OF SPARE P LDR A6,A5 FDB ADDRESS $ P LDK A1,0 B P LC A1,FDBLRN,A6 T P LD A2,FDBLRN+1,A6 LRN l P IFT INDXAC=1 P RF IXR020 STORE LOG REC NO P EJECT $ PIXRDNX EQU * INDEXED EREAD NEXT P* P*
0x0a8120…0a82b4 (0, 213) Opaque[0x194]
0x0a82b4…0a8448 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x0a82b4…0a8448 IdxSect {
0x0a82b4…0a8448 f00 = 0x0015 // 0xa82b4 @0x0
0x0a82b4…0a8448 f01 = 0x0004 // 0xa82b6 @0x2
0x0a82b4…0a8448 gno = [ // 0xa82b8 @0x4
0x0a82b4…0a8448 [0x00]: C0x0015.0x3.0
0x0a82b4…0a8448 [0x01]: C0x002a.0x1.0
0x0a82b4…0a8448 ]
0x0a82b4…0a8448 }
0x0a8448…0a85dc Dummy {f00=0x0015, f01=0x018e, f02=» 0 P IDENT DMFDB REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P* P* P*
0x0a85dc…0a8770 Dummy {f00=0x0015, f01=0x0190, f02=» H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* P P ENTRY FDBSTA Z P ENTRY FDBEND p P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6 P* MXSIZ IS T
0x0a8770…0a8904 Dummy {f00=0x0015, f01=0x0190, f02=» EQU 12 SIZE CRN BUFFER P* < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS * 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER j P* PX:B EQU 50 " PCRNBAR EQU 00180 CURRENCY AREA P* P* PX:A EQU 250
0x0a8904…0a8a98 Dummy {f00=0x0015, f01=0x0190, f02=»AR EQU 00245 P* & PQFDBFL EQU 96 FDB FIX PART LENGTH P* H P EJECT R P* ` PFDBSTA EQU * j P RES QFDBAR ~ PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU * * PMXIND DATA MXINDE-* LE
0x0a8a98…0a8c2c Dummy {f00=0x0015, f01=0x40e4, f02=»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 J PMXINDE EQU * END INDEX INDEX V 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX z PMXAR EQU * P RES MXSIZ P END @ EQU * * PMXIND DATA MXINDE-* LE
0x0a8c2c…0a8dc0 Dummy {f00=0x0015, 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*
0x0a8dc0…0a8f54 (0, 214) Dummy {f00=0x002a, f01=0x018e, f02=» b P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS R P ADKL A3,BUFSTA v & P ST A3,ECBBA,A8 DATA BUFFER START P* " P* PHYS READ 1 SECT FROM DISC P* PDMT060 EQU * P L
0x0a8f54…0a90e8 Dummy {f00=0x002a, f01=0x0002, f02=» H
0x0a90e8…0a927c Dummy {f00=0x002a, f01=0x0190, f02=» J F IDENT BLOK:S REL 8.2 78-09-15 870105040820 BLOK:SK BLOCKE R BLOK:SK l , ( I $ , ( $ ! * 0 6 < B , ( I$ A H N T Z `
0x0a927c…0a9410 Dummy {f00=0x002a, f01=0x40c4, f02=» p , ( I , ( $ @ BLOCKE p & " I @ 6 < B , ( I$ A H N T Z `
0x0a9410…0a95a4 Dummy {f00=0x002a, f01=0x2008, f02=»
0x0a95a4…0a9738 Dummy {f00=0x002a, f01=0x4046, f02=»ATA MSAD P DATA ODAD P DATA TPAD3 " P END 6@ BATA 0 > PINTLT4 DATA 0 T PINTRT1 DATA 0 j PINTRT2 DATA 0 PINTRT3 DATA 0 PINTRT4 DATA 0 P DATA MONCON P DATA KBAD3 P DATA KBAD P DATA TPAD
0x0a9738…0a98cc Dummy {f00=0x002a, 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
0x0a98cc…0a9a60 Dummy {f00=0x002a, f01=0x0190, f02=»DR* A3,A2 CRN $ P ADK A3,1 CRN+1 % $ P ST A3,10,A8 STORE CRN+1 IN ECB % . P CWR A3,A7 % V P RF(NL) SQR:10 END OF DATA % h P CF A5,BIO:RE % P LDKL A4,BUF BUFFER ADDRESS % 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 % P LDK A7,128 %
0x0a9a60…0a9bf4 (0, 215) Opaque[0x194]
0x0a9bf4…0a9d88 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x0a9bf4…0a9d88 IdxSect {
0x0a9bf4…0a9d88 f00 = 0x0020 // 0xa9bf4 @0x0
0x0a9bf4…0a9d88 f01 = 0x0002 // 0xa9bf6 @0x2
0x0a9bf4…0a9d88 gno = [ // 0xa9bf8 @0x4
0x0a9bf4…0a9d88 [0x00]: C0x0020.0x3.0
0x0a9bf4…0a9d88 ]
0x0a9bf4…0a9d88 }
0x0a9d88…0a9f1c Dummy {f00=0x0020, f01=0x0190, f02=» 0 P IDENT DFTAB REL 8.2 78-09-15 870105040820 P UPDATE #0 76.10.07 8 P* V 8 P**************************************************** ` P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P*
0x0a9f1c…0aa0b0 Dummy {f00=0x0020, f01=0x40de, f02=»************************ t P* P* DISC FILE CODE TABLE * P* J P ENTRY DFTAB T P ENTRY DFTABE h P* ~ P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ TAB = DISC FILE CODE TABLE P*
0x0aa0b0…0aa244 Dummy {f00=0x0020, 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*
0x0aa244…0aa3d8 Dummy {f00=0x0020, f01=0x0190, f02=» j , ( I ( & , ( e@ @ (T A " 0" : , ( U _ L !SS j TASCXOL * & P !LL W L @ , A TASSEX , ( $ ,V P E
0x0aa3d8…0aa56c Dummy {f00=0x0020, f01=0x0190, f02=» , ( @ 2P 4 2% P R 6 FDBVTO 4 FDBMIA F , ( D X T R 8 @ "T R :T @ X , ( ! ( 6 4 2% QFDBFLR , ( = DP 2 < DWTST
0x0aa56c…0aa700 Dummy {f00=0x0020, f01=0x0190, f02=» D E 3 P S ~ FDBRLE FDBBLF 0 * & F P S F P S H P S B FDBNIFL p FDBKA , ( $ J P % S L P & S N @ " S , ( 8 B | p @ , ( ,T W
0x0aa700…0aa894 (0, 216) Opaque[0x194]
0x0aa894…0aaa28 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0558, f03=0x0000}
0x0aa894…0aaa28 IdxSect {
0x0aa894…0aaa28 f00 = 0x002a // 0xaa894 @0x0
0x0aa894…0aaa28 f01 = 0x000c // 0xaa896 @0x2
0x0aa894…0aaa28 gno = [ // 0xaa898 @0x4
0x0aa894…0aaa28 [0x00]: C0x002a.0x3.0
0x0aa894…0aaa28 [0x01]: C0x002b.0x0.0
0x0aa894…0aaa28 [0x02]: C0x002b.0x1.0
0x0aa894…0aaa28 [0x03]: C0x002b.0x2.0
0x0aa894…0aaa28 [0x04]: C0x002b.0x3.0
0x0aa894…0aaa28 [0x05]: C0x002c.0x0.0
0x0aa894…0aaa28 ]
0x0aa894…0aaa28 }
0x0aaa28…0aabbc Dummy {f00=0x002a, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 8.2 78-09-15 870105040820 P : * P BUF HANDL + SEQ L. 230-250,317-325 B P REL 8.1 78-04-21 p P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P*
0x0aabbc…0aad50 Dummy {f00=0x002a, f01=0x018e, f02=»************************************ 8 P****THIS MODULE IS ACTIVATED FROM :***************** , P* h P* DMTASK r P* P*************** P* ENTRIES * P*************** P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXT
0x0aad50…0aaee4 Dummy {f00=0x002a, f01=0x0190, f02=» | P* P EXTRN MPYMOD : P EXTRN EXTLEN,FDBECB,FDBMIA,BUFSTA,FDBRLE,FDBSNR,ECBCW ( . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR f . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU P EXTRN
0x0aaee4…0ab078 Dummy {f00=0x002a, f01=0x0190, f02=»Y IN A MASTER INDEX. l > P* A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. ^ 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : P* - NO OF ENTRIES N $ P* - NO OF CHARACTERS PER ENTRY
0x0ab078…0ab20c Dummy {f00=0x002a, f01=0x0190, f02=»ESS OF SEARCH KEy P* A11 = NR OF CHAR IN KEY P* > P* CF A14,FNDKMX H P* d 8 P****EXIT PARAMETERS********************************* n P* 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE P* A8,A11= UNCHANGED P*
0x0ab20c…0ab3a0 Dummy {f00=0x002a, f01=0x0190, f02=»* A2,A5 NO OF ENTRIES N " P RF(NP) FND045 NO MASTER INDEX P LDR A9,A2 F P ANKL A9,/1 GET BIT 15 X P SRA A2,1 v 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
0x0ab3a0…0ab534 (0, 217) Dummy {f00=0x002b, f01=0x0190, f02=»=(I-1)*EL | P SRC A1,1 P ORR A2,A1 GET MOST SIGN BIT $ PFND025 EQU * H " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR P LDR A1,A2 SAVE ENTRY ADR P LDR A3,A8 SEARCH KEY ADR P LDR A6,A11 MAX KEY LENGTH P
0x0ab534…0ab6c8 Dummy {f00=0x002b, f01=0x0190, f02=»1 M/2 FLOOR P ADR A6,A7 M/2 CEILING P LDR A3,A3 CHKKEY RTN INF 2 . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL T P* P* SEARCHED KEY GREATER P* P LDR A10,A10 M P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CE
0x0ab6c8…0ab85c Dummy {f00=0x002b, f01=0x0190, f02=»0 SEARCH READY P SUR A9,A6 I=I-(M/2 CEIL) P RB FND030 8 PFND045 EQU * NO MASTER INDEX J P LDK A1,0 n P LDK A2,1 REC NR 1 P RF FND070 PFND050 EQU * P ADR* A1,A5 ARDR NEXT ENTRY PFND060 EQU * P LDR A3,A1 ENTRY
0x0ab85c…0ab9f0 Dummy {f00=0x002b, f01=0x018e, f02=»CR A1,A3 P ADK A3,1 P LCR A2,A3 " P ADK A3,1 4 P ECR A2,A2 F P LCR A2,A3 X PFND070 EQU * j P RTN A14 ~ P EJECT 8 P****DESCRIPTION************************************* P* D P* CHKKEY COMPARE TWO CHARACTER STRIN
0x0ab9f0…0abb84 Dummy {f00=0x002b, f01=0x0190, f02=» P* P* A2 = ADR OF ENTRY KEY P* A3 = ADR OF SEARCH KEY 0 * P* A6 = MAX NO OF CAHARACTERS IN KEY R 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY P* P* CF A14,CHKKEY P* 8 P****EXIT PARAMETERS***************
0x0abb84…0abd18 Dummy {f00=0x002b, f01=0x0190, f02=»ER j ( P* = -1 WHEN SEARCH KEY IS LESS N P* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY 6 " P* A6 = MAX NO OF CHAR IN KEY P* 8 P****USED REGISTERS********************************** P* P* A2-A4,
0x0abd18…0abeac Dummy {f00=0x002b, f01=0x018e, f02=» TO TEST x $ P ADR A2,A7 FIRST EC CHAR TO TEST PCHK020 EQU * 8 P LCR A4,A3 SEARCED KEY CHAR L P CCK A4,/EE00 p " P RF(E) CHK060 END OF KEY CHAR P CCR A4,A2 SC=EC? P RF(G) CHK100 SC GT TH EC " P RF(L) CHK120 SC LESS THAN EC
0x0abeac…0ac040 Dummy {f00=0x002b, f01=0x0190, f02=» v P ADK A2,1 NXT EC TO TEST P RB CHK020 ( PCHK060 EQU * < P LDK A3,0 FOUND P P RF CHK140 h PCHK120 EQU * z $ P LDKL A3,-1 SEARCHED KEY SMALLER P RF CHK140 PCHK100 EQU * $ P LDK A3,1 SEARCHED KEY SGREATER PCHK1
0x0ac040…0ac1d4 (0, 218) Dummy {f00=0x002b, f01=0x0190, f02=»E NEXT RECORD IN AN INDEX FILE AVAILABLE | P* IN A CORE BUFFER 0 D P* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED L & P* SECTOR WILL BE MADE AVAILABLE P* 8 P****ENTRY PARAMETERS******************************** P*
0x0ac1d4…0ac368 Dummy {f00=0x002b, f01=0x0190, f02=»FER, WHEN = -1 THE FIRST j 8 P* RECORD IN CURRENT SECTOR IS WANTED : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED P* A8 = ECB ADDRESS P* 8 P****EX
0x0ac368…0ac4fc Dummy {f00=0x002b, f01=0x0190, f02=»+ 2 WHEN ERROR ~ P* A1 = FDB ADDRESS N P* A5 = ERROR CODE (RETURN CODE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED 2 $ P* A2 = FDBRRO = RECORD OFFSET P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED P* A8 = ECB A
0x0ac4fc…0ac690 Dummy {f00=0x002b, f01=0x0190, f02=»STACK f P* : P****************************************************** P EJECT V PRDNXTR EQU * d P LDR A10,A3 SAVE BUFFER ADDR x P RF(NZ) RDN200 BUFFER EXIST P STR A7,A14 P SUKL A14,4 P ST A6,2,A14 P* P*
0x0ac690…0ac824 Dummy {f00=0x002b, f01=0x018e, f02=»READY IN CORE z P* P* READ SECTOR FROM DISC P* B P LDR A10,A3 BUFFER ADDR L $ P LDK A7,/91 PHYS READ WITH WAIT l P LKM P DATA 1 & P CF A14,DMTIOZ CHECK RETURN CODES P LDR A1,A1 P RF(NZ) RDN900 ERROR P
0x0ac824…0ac9b8 Dummy {f00=0x002b, f01=0x0190, f02=» P RF RDN940 RETURN P* P* BUFFER WAS BEFORE ( P* F PRDN200 EQU * P $ P LD A2,FDBRRO,A1 REC ORD OFFSET d P RF(NN) RDN220 NOT FIRST REC P STR A7,A14 P SUKL A14,4 P ST A6,2,A14 P RB RDN080 FIRST REC WANTED
0x0ac9b8…0acb4c Dummy {f00=0x002b, f01=0x0190, f02=»T v * P RF(NL) RDN300 THIS REC LAST IN BUFFER P* 8 , P* GET NEXT REC IN CURRENT BLOCKBUFFER B P* r $ P AD A2,FDBRLE,A1 RECOR D LENGTH | P ADK A2,1 STATUS CHAR P ST A2,FDBRRO,A1 NEW OFFSET P RF RDN950 RETURN P* 4
0x0acb4c…0acce0 Dummy {f00=0x002b, f01=0x018e, f02=»,A14 P LD A3,FDBCEX,A1 EXT ADDR P LD A5,EXTBAS,A3 EXT BASE . " P AD A5,EXTLEN,A3 EXTENT LENGTH P P SUK A5,1 v $ P CW A5,FDBSNR,A1 SECT NO CURRENT , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT P* P* NEW SECTOR P*
0x0acce0…0ace74 (0, 219) Dummy {f00=0x002b, f01=0x0190, f02=» PRDN400 EQU * P LDR A13,A8 ECB ADDR " P CF A14,GTLGRN GET LOG REC NO 8 P LDR A1,A2 ^ P LDR A2,A3 p P LDK A6,0 P LDK A7,1 P CF A14,ADDMOD NEXT REC NO P LDR A6,A5 RESTORE FDB ADDR * P CF A14,CALSNO GET NEXT REC
0x0ace74…0ad008 Dummy {f00=0x002b, f01=0x0190, f02=»* GET NEXT SECTOR P* PRDN500 EQU * & P LDR A3,A10 BUFFER ADDR : " P CF A14,DMTRBU RELEASE BUFFER Z P LDR A1,A6 FDB ADDR P RB RDN040 NEXT SECTOR P* P* EXIT P* PRDN900 EQU * P LDR A5,A1 RET CODE
0x0ad008…0ad19c Dummy {f00=0x002b, f01=0x0190, f02=»RDN960 EQU * P LDK A3,2 P ADS A3,8,A14 RET ADDR & P LDK A3,0 BUFFER ADDR D PRDN940 EQU * b P LD A6,2,A14 v P ADKL A14,4 P LDR* A7,A14 PRDN950 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*********************
0x0ad19c…0ad330 Dummy {f00=0x002b, f01=0x0190, f02=»Y l 6 P* IF END OF FILE, THE FIRST FREE RECORD IS FOUND P* D 8 P****ENTRY PARAMETERS******************************** N P* P* A1 = FDB ADDRESS P* A8 = SEARCH KEY ADDR & P* A11 = NO OF CHARACTERS IN KEY " P* A13= PHYSI
0x0ad330…0ad4c4 Dummy {f00=0x002b, f01=0x0190, f02=» FDBSNR,FDBRRO = FOUND INDEX RECORD " P* A2 = 0 WHEN KEY ISS FOUND 0 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND V . P* = RETURN CODE WHEN KEY IS NOT FOUND 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER P* A3 = BUFFER AD
0x0ad4c4…0ad658 Dummy {f00=0x002b, f01=0x018e, f02=»A11 = UNCHANGED P* 8 P****USED REGISTERS********************************** " P* ^ , P* A1 - A11,A13 + 4 WORDS ON A14 STACK h P* : P****************************************************** P EJECT PFNDKEY EQU * P*
0x0ad658…0ad7ec Dummy {f00=0x002b, f01=0x0190, f02=» n P SUKL A14,8 & P ST A8,6,A14 SAVE SEARCH KEY ADDR 0 P CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX F P LD A6,8,A14 FDB ADDR z P CF A14,CALSNO GET PHYS ADDR P LDR A1,A1 P RF(NZ) FKY900 ERROR P LDR A1,A6 FDBADDR " P LDR
0x0ad7ec…0ad980 Dummy {f00=0x002b, f01=0x0190, f02=» | PFKY100 EQU * P LDR A3,A9 BUFFER ADDR $ P CF A14,RDNXTR GET INDEX RECORD : P RF FKY150 b P LDR A1,A5 RET CODE t P RF FKY900 ERROR EXIT P* " P* BUFFER AND ADATA IS FOUND P* PFKY150 EQU * P LDR A9,A3 B
0x0ad980…0adb14 (0, 220) Dummy {f00=0x002b, f01=0x0190, f02=»STATUS CHAR v P LDK A5,/FF USED CHAR MARK P CCR A5,A10 STATUS CHAR 6 P RF(E) FKY200 USED RECORD V P* x & P* NO MORE RECORDS IN THIS SECTOR P* * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET P LD A4,FDBMRO,A1 & P ST A4,FDB
0x0adb14…0adca8 Dummy {f00=0x002b, f01=0x0190, f02=»R t P LDR A6,A11 NR OF CHAR P LDR A7,A10 CHAR ADDR ( P CC A2,FDBLRN,A1 F P RB(L) FKY100 NOT EOF ^ P RF(G) FKY180 EOF | P CW A3,FDBLRN+1,A1 P RB(L) FKY100 NOT EOF PFKY180 EQU * P* P* EOF IS IN THIS SECTOR
0x0adca8…0ade3c Dummy {f00=0x002b, f01=0x0190, f02=»Y950 P* " P* CHECK KEY IN THIS RECODRD P* < PFKY200 EQU * F P LD A3,6,A14 SEARCH KEY ADDR Z P CF A14,CHKKEY COMPARE KEYS ~ P LDR A3,A3 & P RF(P) FKY840 SEARCHED KEY GREATER " P RF(N) FKY850 SEARCH KEY LESS P RF
0x0ade3c…0adfd0 Dummy {f00=0x002b, f01=0x0190, f02=» AT LEAST THE SAME NO OF LEADING CHARACTERS : P* THAT HAS BEEN CHECKED FOR THIS KEY ! D . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! P RB FKY100 NEXT KEY ! PFKY850 EQU * ! P LDKL A2,/4000 KEY NOT FOUND ! P
0x0adfd0…0ae164 Dummy {f00=0x002b, f01=0x0190, f02=»DR A2,A1 ERR CODE ! $ P LDK A7,0 NO OF SAME LEAD CHARS " PFKY950 EQU * " B P ADKL A14,8 RESTORE STACK " V P LDR* A1,A14 FDB ADDR " x P LDR A3,A9 BUFFER ADDR " P RTN A14 " P EJECT " P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECOR
0x0ae164…0ae2f8 Dummy {f00=0x002b, f01=0x0190, f02=» A10,A11= FIRST RECORD NR MOVED " P* A5 = FDB ADDR INDEX # ( & P* A12 = ADD PARAMETER +1, -1 # L P* # v P* USED REGISTERS: # P* A1 -A12 # P* # P* OUT: # P* A5 = FDB ADDR INDEX # P* A10,A11 = UNCHANGED #
0x0ae2f8…0ae48c Dummy {f00=0x002b, f01=0x0190, f02=»RL,A12 CRN LINK ROOT # P RF CRU120 $ PCRU100 LDR* A12,A12 $ . $ PCRU120 RF(Z) CRU900 END OF LINK $ J P LC A7,FDBECB+1,A5 FILE CODE $ r P CC A7,CRNCIF,A12 $ P RB(NE) CRU100 WRONG FC $ P CC A10,CRNCIF+1,A12 $ P RB(G) CRU100 $ P RF(L)
0x0ae48c…0ae620 Dummy {f00=0x002b, f01=0x0190, f02=» RB(L) CRU100 $ P CW A9,CRNCIF+2,A12 % P RB(L) CRU100 % 2 PCRU300 EQU * % H P* % P* UPDATE CRN % f P* % | P LD A7,2,A14 ADD PARAM % P LDR A6,A7 % P RF(N) CRU230 -1 % P LDK A6,0 % PCRU230 EQU * % P ANKL A7,/7FFF %
0x0ae620…0ae7b4 (0, 221) Dummy {f00=0x002c, f01=0x4078, f02=»CIF+2,A12 % P RB CRU100 & PCRU900 EQU * & $ P ADKL A14,2 & 8 P ENB & L P RTN A14 & X P END & h@ & t
0x0ae7b4…0ae948 Dummy {f00=0x002c, 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* +
0x0ae948…0aeadc Dummy {f00=0x002c, f01=0x0190, f02=» * P IDENT INTLT4 REL=8.1 DATE=78-04-01 P* 2 @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 < P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO A SPEC
0x0aeadc…0aec70 Dummy {f00=0x002c, f01=0x40f0, f02=»TRY z P* P* TERMINAL PARAMETERS P* 6 P* @ , P* RIGHT BYTE = 2 * NUMBER OF DEVICES J P* z P* P* P* PINTLT4 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO A SPEC
0x0aec70…0aee04 Dummy {f00=0x002c, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x0aee04…0aef98 Dummy {f00=0x002c, f01=0x0190, f02=»: DWT-ADDRESS P* A7: ORDER " P* A8: ECB-ADDRESS 6 P* P* f P* SYSTEM ADAPTATION p P* P EJECT P* P* P*********************** P* ENTRIES * P**************
0x0aef98…0af12c Dummy {f00=0x002c, f01=0x0190, f02=» * p * P************************************* P EXTRN SAVE8 SAVE REGS : P EXTRN TENDIO END I/O X . P EXTRN DISEND PERFORM END I/O AND DISPATCH v " P EXTRN TDISP DISPATCHER ENTRY P EXTRN OUTPUT OUTPUT CHAR. * P EXTRN LDREG LOAD REGIST
0x0af12c…0af2c0 Dummy {f00=0x002c, f01=0x0190, f02=»OR ORDER * P EXTRN ECHRTN RETURN FROM ECHO ROUTINE P* > P* H $ P******************************* R $ P* CONSTANTS * z $ P******************************* P* PDWTBC EQU /3 P* P**********************
0x0af2c0…0af454 (0, 222) Opaque[0x194]
0x0af454…0af5e8 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0590, f03=0x0000}
0x0af454…0af5e8 IdxSect {
0x0af454…0af5e8 f00 = 0x002c // 0xaf454 @0x0
0x0af454…0af5e8 f01 = 0x0004 // 0xaf456 @0x2
0x0af454…0af5e8 gno = [ // 0xaf458 @0x4
0x0af454…0af5e8 [0x00]: C0x002c.0x2.0
0x0af454…0af5e8 [0x01]: C0x002c.0x3.0
0x0af454…0af5e8 ]
0x0af454…0af5e8 }
0x0af5e8…0af77c Dummy {f00=0x002c, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x0af77c…0af910 Dummy {f00=0x002c, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA P* COMPUTER J P*CALLING SEQUENCE: $ P* A1-A2 = ARG1 v $ P* AG-A7 = ARG2 P* CF A14,ADDMOD & P*RETURN : RESULT IN A1
0x0af910…0afaa4 Dummy {f00=0x002c, f01=0x0190, f02=» ANK.L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 > P RF(3) OVER1 ^ 0 PNOVER ADR A1,A6 * NO OVERFLOW ~ P RF(1) END1 P RF(2) END2 P RF(3) END3
0x0afaa4…0afc38 Dummy {f00=0x002c, f01=0x0190, f02=» ADK A1,1 P RF(3) OVER3 P RB(7) NOVER 6 POVER3 ADR A1,A6 V P RF(2) END3 v P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 PEND3 ADK A3,/8
0x0afc38…0afdcc Dummy {f00=0x002c, f01=0x40ee, f02=»**** V P ANK.L A3,/0300 P LDK.L A4,/FCFF . P AN.S A4,2,A14 P B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM r P RTN A14 P END @ PEND3 ADK A3,/8
0x0afdcc…0aff60 Dummy {f00=0x002c, 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
0x0aff60…0b00f4 (0, 223) Dummy {f00=0x002c, f01=0x0190, f02=» LABEL = RL 8.1:1 DATE = 78-03-03 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x0b00f4…0b0288 Dummy {f00=0x002c, f01=0x0002, f02=»
0x0b0288…0b041c Dummy {f00=0x002c, f01=0x0190, f02=» 0 P IDENT DFTAB REL 8.1 78-04-21 870105040810 P UPDATE #0 76.10.07 8 P* V 8 P**************************************************** ` P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P*
0x0b041c…0b05b0 Dummy {f00=0x002c, f01=0x40fe, f02=»************************ t P* P* DISC FILE CODE TABLE * P* J P ENTRY DFTAB T P ENTRY DFTABE h P* ~ P* PDFTAB EQU * P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P*
0x0b05b0…0b0744 Dummy {f00=0x002c, 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*
0x0b0744…0b08d8 Dummy {f00=0x002c, 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,
0x0b08d8…0b0a6c Dummy {f00=0x002c, f01=0x0190, f02=» " P* MOVE CHARACTER BY CHARACTER " P***************************** . P* T PMVC EQU * ^ P LDK A3,0 LOAD HEX ZERO p PMVC020 EQU * P LDR* A5,A5 GET PACKING FORM P RF(N) MVC050 JUMP IF ASCII P LDK A3,/FF LOAD BLANKS
0x0b0a6c…0b0c00 Dummy {f00=0x002c, f01=0x0190, f02=» A1,A7 GET BYTE FROM OP2 & PMVC100 SCR A1,A6 STORE BYTE IN OP1 $ P SUK A7,1 DECREMENT POINTER OP2 J $ P SUK A6,1 DECREMENT POINTER OP1 r P ADK A4,1 STEP UP INDEX & P RB(N) MVC050 JUMP IF NOT FINISHED PRETUR RB RETMMM P EJECT
0x0b0c00…0b0d94 (0, 224) Opaque[0x194]
0x0b0d94…0b0f28 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05a8, f03=0x0000}
0x0b0d94…0b0f28 IdxSect {
0x0b0d94…0b0f28 f00 = 0x002d // 0xb0d94 @0x0
0x0b0d94…0b0f28 f01 = 0x0004 // 0xb0d96 @0x2
0x0b0d94…0b0f28 gno = [ // 0xb0d98 @0x4
0x0b0d94…0b0f28 [0x00]: C0x002d.0x1.0
0x0b0d94…0b0f28 [0x01]: C0x002d.0x2.0
0x0b0d94…0b0f28 ]
0x0b0d94…0b0f28 }
0x0b0f28…0b10bc Dummy {f00=0x002d, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x0b10bc…0b1250 Dummy {f00=0x002d, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA P*COMPUTER N P*CALLING SEQUENCE ` $ P* A1-A2 = ARG1 z $ P* A6-A7 = ARG2 P* CF A14,DSUMOD & P*RETURN: RESULT I
0x0b1250…0b13e4 Dummy {f00=0x002d, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' > P ANK.L A2,/7FFF b P ADK A7,1 P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P
0x0b13e4…0b1578 Dummy {f00=0x002d, f01=0x0190, f02=» END1 P RF(2) END2 P RF(3) END3 , P ADK A2,0 J P RF(0) END0 h P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P
0x0b1578…0b170c Dummy {f00=0x002d, f01=0x0190, f02=» NOVER2 PEND3 ADK A3,/80 PEND2 ADK A3,/80 4 PEND1 ADK A3,/80 V F PEND0 SLL A3,1 ************************************* x P ANK.L A3,/0300 P LDK.L A4,/FCFF P
0x0b170c…0b18a0 Dummy {f00=0x002d, f01=0x4014, f02=» END @ D3 ADK A3,/80 PEND2 ADK A3,/80 4 PEND1 ADK A3,/80 V F PEND0 SLL A3,1 ************************************* x P ANK.L A3,/0300 P LDK.L A4,/FCFF P
0x0b18a0…0b1a34 (0, 225) Dummy {f00=0x002d, 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
0x0b1a34…0b1bc8 Dummy {f00=0x002d, f01=0x0190, f02=» b 0 P******************************************** P* < P EJECT F P* T P* A C C P ^ P* r 2 P* ACTIVATION PART: CHECH VALIDITY OF ORDERS | 4 P* AND STARTS THE PROCESSING P* PACCP EQU * P L
0x0b1bc8…0b1d5c Dummy {f00=0x002d, f01=0x0190, f02=»NO, SET DEV. ADR. TO RECEIPT PRINTER PACP05 EQU * , P SUK A7,/22 CUT ? @ P RF(E) ACCP30 Z P ADK A7,/1C WRITE ? p " P ABL(NE) DISIOE REQUEST ERROR P LDK A3,0 START BUFFER INDEX P LDK A4,0 PACCP10 EQU * $ P CF A15,GETC
0x0b1d5c…0b1ef0 Dummy {f00=0x002d, f01=0x0190, f02=»QU * P LDK A2,/03 PACCP25 CF A5,OUTPUT PACCP27 CF A5,STREG < P ANK A2,/7F V P SUK A2,2 j P RF(Z) ACCP65 END OF PAPER | P SUK A7,6 P RF(NE) ACCP70 P SUK A2,2 P RF(NZ) ENDIO P LDK A2,/20 P ORS A
0x0b1ef0…0b2084 Dummy {f00=0x002d, f01=0x0190, f02=» P LDK A2,/20 P ADK A3,1 P RB ACCP35 . PACCP50 LDK A2,/13 @ P ST A3,6,A8 Z P RB ACCP25 n & PACCP65 LDKL A1,/4000 RECEIPT STUCK P RF ENDIO PACCP70 SUK A2,4 P RB(E) ACCP27 PENDIO ABL DISEND P EJECT
0x0b2084…0b2218 Dummy {f00=0x002d, f01=0x416e, f02=»WTST,A6 STATUS P RF(N) EXIT P LDR A1,A1 RETURN CODE * P RB(NE) ENDIO YES END I/O H P ABL LDREG j PEXIT ABL TDISP | P EJECT P* P* R C C P P* P* PRCCP EQU * P CF A15,SAVE8 P LD A7,DWTST,A
0x0b2218…0b23ac Dummy {f00=0x002d, f01=0x2008, f02=» A15,SAVE8 LD A7,DWTST,A6 RB(N) EXIT 2 LDK A1,2 F RB ENDIO X * j * t END ~@ LD A4,DWTST,A6 STATUS RF(N) EXIT LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O ABL LDR
0x0b23ac…0b2540 Dummy {f00=0x002d, f01=0x0190, f02=»SAV INTERRUPT SAVE AREA & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB J P* t P************************ ~ P* * P* CONDITIONAL ASSEMBLY * P* * P**********
0x0b2540…0b26d4 (0, 226) Opaque[0x194]
0x0b26d4…0b2868 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05c0, f03=0x0000}
0x0b26d4…0b2868 IdxSect {
0x0b26d4…0b2868 f00 = 0x002e // 0xb26d4 @0x0
0x0b26d4…0b2868 f01 = 0x0004 // 0xb26d6 @0x2
0x0b26d4…0b2868 gno = [ // 0xb26d8 @0x4
0x0b26d4…0b2868 [0x00]: C0x002e.0x0.0
0x0b26d4…0b2868 [0x01]: C0x002e.0x1.0
0x0b26d4…0b2868 ]
0x0b26d4…0b2868 }
0x0b2868…0b29fc Dummy {f00=0x002e, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x0b29fc…0b2b90 Dummy {f00=0x002e, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION ON THE ALPLA COMPUTER P* CALLING SEQUENCE: L ( P* LD A6,ARG1 h ( P* LD A7,ARG1 P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2
0x0b2b90…0b2d24 Dummy {f00=0x002e, f01=0x0190, f02=» RETURN IN ERROR EXIT d P CWR A3,A6 P RF(4) SUITE > P CWR A3,A7 ^ P RF(0) END3 ~ < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR A7,A3 * EXCHANGE A6
0x0b2d24…0b2eb8 Dummy {f00=0x002e, f01=0x0190, f02=» A4,15 P ADK A6,0 P RF(0) END0 0 P RF(6) ARG1PS N 0 P ADK A3,1 *ARG1 NEGATIVE n P C1R A6,A6 P ADK A6,1 PARG1PS ADK A7,0 P R
0x0b2eb8…0b304c Dummy {f00=0x002e, f01=0x0190, f02=» ADK A7,1 P RF(3) CASSPE PARG2PS SRC A7,1 > P RF(6) NOVER1 P ADR A1,A6 | PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVER2 P ORK.L
0x0b304c…0b31e0 Dummy {f00=0x002e, f01=0x0190, f02=» *END* RESTORE SI=N z P RF(0) END1 " P C1R A1,A1 @ P C1R A2,A2 ` P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN THE ADK A2,1 SET AN OVERFLO
0x0b31e0…0b3374 (0, 227) Dummy {f00=0x002e, f01=0x0190, f02=» A2,/7FFF P RF(7) END2 PEND3 ADK A3,/81 2 PEND2 ADK A3,/81 R PEND1 ADK A3,/81 r PEND0 SLL A3,1 P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4
0x0b3374…0b3508 Dummy {f00=0x002e, f01=0x4092, f02=»6 *A7=X'8000' THEN A4= 1 z . P* *AND A1= A6 ( P RB(7) NOVER3 Z P END z@ END0 SLL A3,1 P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4
0x0b3508…0b369c Dummy {f00=0x002e, 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 @
0x0b369c…0b3830 Dummy {f00=0x002e, f01=0x0190, f02=»FF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 & P IFF QNBUF=8 : PBUF9 DATA BUF10 N P DATA 0,0,0 f P RES 205 z P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P
0x0b3830…0b39c4 Dummy {f00=0x002e, f01=0x0190, f02=» P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 0 P RES 205 D P XIF T P IFT QNBUF=10 ` PBUF11 EQU BUF1 v P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5
0x0b39c4…0b3b58 Dummy {f00=0x002e, f01=0x018e, f02=»ATA 0,0,0 P RES 205 P XIF " P IFT QNBUF=11 . PBUF12 EQU BUF1 D P XIF Z P* f P* p P IFF QNBUF=1 z 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 I
0x0b3b58…0b3cec Dummy {f00=0x002e, f01=0x018e, f02=» P XIF P IFT QNBUF=12 PBUF13 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
0x0b3cec…0b3e80 Dummy {f00=0x002e, f01=0x0190, f02=» P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 & P XIF < P* H P* R P IFF QNBUF=1 P IFF QNBUF=2 p 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 QNBUF=9
0x0b3e80…0b4014 (0, 228) Opaque[0x194]
0x0b4014…0b41a8 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05d8, f03=0x0000}
0x0b4014…0b41a8 IdxSect {
0x0b4014…0b41a8 f00 = 0x002e // 0xb4014 @0x0
0x0b4014…0b41a8 f01 = 0x0004 // 0xb4016 @0x2
0x0b4014…0b41a8 gno = [ // 0xb4018 @0x4
0x0b4014…0b41a8 [0x00]: C0x002e.0x3.0
0x0b4014…0b41a8 [0x01]: C0x002f.0x0.0
0x0b4014…0b41a8 ]
0x0b4014…0b41a8 }
0x0b41a8…0b433c Dummy {f00=0x002e, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x0b433c…0b44d0 Dummy {f00=0x002e, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION ON THE ALPHA COMPUTER P* CALLING SEQUENCE J & P* A1-A2= DIVIDEND d $ P* A6 = DIVISOR P* CF A14,DIVMOD B P*RETURN* RESUT IN A1-A2 ; A1= REMAIN
0x0b44d0…0b4664 Dummy {f00=0x002e, f01=0x0190, f02=»1 SAVE DIVIDEND SIGN z P LDK A3,0 " P ADK A6,0 @ @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW ^ P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P
0x0b4664…0b47f8 Dummy {f00=0x002e, f01=0x0190, f02=» A7,0 P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND 0 P RF(6) DIVENP h 8 P ADK A3,1 * DIVIDEND IS NEGATIVE P C1R A1,A1 P C1R A2,A2 P
0x0b47f8…0b498c Dummy {f00=0x002e, f01=0x0190, f02=»5) END3 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP H 4 P SUK A3,1 *NEGATIVE DIVISOR h P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RES
0x0b498c…0b4b20 Dummy {f00=0x002e, f01=0x0190, f02=»SSP1 | 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END B P SLL A1,1 ` P SLL A7,1 ~ P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK
0x0b4b20…0b4cb4 (0, 229) Dummy {f00=0x002f, f01=0x018e, f02=» P ADK A7,1 P RB(7) SHIFT " 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS B PEND LDR A2,A7 z P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISO
0x0b4cb4…0b4e48 Dummy {f00=0x002f, f01=0x0190, f02=» P 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) j P ADK A2,0 P RF(2) END2 P RF(0) END0 PEN
0x0b4e48…0b4fdc Dummy {f00=0x002f, f01=0x0190, f02=»******************** f P ANK.L A3,/0300 P LDK.L A4,/FCFF > P AN.S A4,2,A14 ` B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P RTN A14 8 PNOSIGN ADK.L A8,0 TEST
0x0b4fdc…0b5170 Dummy {f00=0x002f, f01=0x4162, f02=» REMAINDER - x PBB ADK A2,0 P RB(0) END0 8 P RB(2) END2 V P RB(7) END1 t PCASSPE LDR A7,A1 P LDR A1,A2 P CWK A1,/8000 P RB(4) EN
0x0b5170…0b5304 Dummy {f00=0x002f, 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
0x0b5304…0b5498 Dummy {f00=0x002f, f01=0x416a, f02=»,A6 STATUS P RF(N) EXIT P LDR A1,A1 RETURN CODE & P RB(NE) ENDIO YES END I/O D P ABL LDREG f PEXIT ABL TDISP x P EJECT P* P* R C C P P* P* PRCCP EQU * P CF A15,SAVE8 P LD A7,DWTST,A6
0x0b5498…0b562c Dummy {f00=0x002f, f01=0x2008, f02=» A15,SAVE8 LD A7,DWTST,A6 RB(N) EXIT 2 LDK A1,2 F RB ENDIO X * j * t END ~@ LD A4,DWTST,A6 STATUS RF(N) EXIT LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O ABL LDR
0x0b562c…0b57c0 Dummy {f00=0x002f, f01=0x0190, f02=»EWIND P XIF P IFT DAMA+IBM=0 P ADK A1,30 2 P RF(Z) FD:050 SEARCH KEY D P XIF d P p PFD:DIS EQU * x P ABL DISIOE REQUEST ERROR P EJECT P* P*************** P* * P* BASIC WRITE *
0x0b57c0…0b5954 (0, 230) Opaque[0x194]
0x0b5954…0b5ae8 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f0, f03=0x0000}
0x0b5954…0b5ae8 IdxSect {
0x0b5954…0b5ae8 f00 = 0x002f // 0xb5954 @0x0
0x0b5954…0b5ae8 f01 = 0x000e // 0xb5956 @0x2
0x0b5954…0b5ae8 gno = [ // 0xb5958 @0x4
0x0b5954…0b5ae8 [0x00]: C0x002f.0x2.0
0x0b5954…0b5ae8 [0x01]: C0x002f.0x3.0
0x0b5954…0b5ae8 [0x02]: C0x0030.0x0.0
0x0b5954…0b5ae8 [0x03]: C0x0030.0x1.0
0x0b5954…0b5ae8 [0x04]: C0x0030.0x2.0
0x0b5954…0b5ae8 [0x05]: C0x0030.0x3.0
0x0b5954…0b5ae8 [0x06]: C0x0031.0x0.0
0x0b5954…0b5ae8 ]
0x0b5954…0b5ae8 }
0x0b5ae8…0b5c7c Dummy {f00=0x002f, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 8.2 78-09-15 870105040820 P : $ P BUF HANDL + RC L. 496,543,551 B P REL 8.1 78-04-21 j P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P
0x0b5c7c…0b5e10 Dummy {f00=0x002f, f01=0x018e, f02=»**************** l 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* T P* DMTASK,TIODM,DMTASS ^ P* ~ P*************** P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET
0x0b5e10…0b5fa4 Dummy {f00=0x002f, f01=0x0190, f02=» P***************** P* EXTERNALS * P***************** 8 P* R P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO f P EXTRN FDBCEX,FDBBLF,FDBEXT : P EXTRN FDBECB,DWTECB,DWTOR,EXTDMI,BUFSTA,BUFDMI,BUFOR " P EXTRN E
0x0b5fa4…0b6138 Dummy {f00=0x002f, f01=0x0190, f02=»XTRN EXTELE P EXTRN CRNTID P EXTRN DMTGBU * P EXTRN EXTLEN,EXTBAS @ P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P EXTRN CRBUFL $ P EXTRN IHRET2,IHRTN,FDBADF,DWTST P EXTRN FDBDBR P EXTRN QIRN,QIRR P EJECT
0x0b6138…0b62cc Dummy {f00=0x002f, f01=0x0190, f02=»XR,XN, DATA FILE OTHERWISE P* " PCHKIND EQU * , P STR A1,A15 @ P STR A2,A15 T " P LDK A2,1 INDEX FOR DATA FILE h P LDR A1,A7 ORDER P ANK A1,/3F P CWK A1,/20 P RF(E) FND320 DELETE INDEX P CWK A1,/1A P RF(
0x0b62cc…0b6460 Dummy {f00=0x002f, f01=0x0190, f02=» P RF FND340 ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * B P CCR A2,A6 INDEX V P RF(E) FND390 ENTRY FOUND n P LDK A1,2 * P ADS A1,8,A15 RETURN+2 WHEN NOT FOUND PFND390 ABL IHRET2 P EJECT P* : P* RE
0x0b6460…0b65f4 (0, 231) Dummy {f00=0x002f, f01=0x0190, f02=» EQU * P LDKL A2,/8000 " P AN A2,2,A5 TASK STATUS BIT 0 $ " P RF(NZ) TEN115 DMTASK CALLING J P* p , P* RESET REQUEST BUSY BIT FOR ALL FILES z P* $ P LDKL A2,10 MAX NO OF FILES * 2 PTEN112 EQU * P SUK A2,2 P RF(N)
0x0b65f4…0b6788 Dummy {f00=0x002f, f01=0x0190, f02=» ADDR P RF(E) TEN114 MASTER DWT P LD A5,DWTTQ,A3 . P RF(Z) TEN113 NO QUEUE F P LDR* A4,A5 d P ST A4,DWTTQ,A3 NEW ANCHOR x P CF A15,QTJOB REPEAT REQUEST " PTEN113 LD A5,DWTTDM,A6 RESTORE PTEN114 EQU * $ P LDKL A4,/BFFF R
0x0b6788…0b691c Dummy {f00=0x002f, f01=0x0190, f02=»TEN115 EQU * P ABL IHRTN P EJECT & 8 P****DESCRIPTION************************************* 4 P* p < P* EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. z P* 8 P****ENTRY PARAMETERS******************************** P*
0x0b691c…0b6ab0 Dummy {f00=0x002f, f01=0x0190, f02=»**************************** x P* $ P* A1-A3 = UNCHANGED . P* A4 = 0 NO EA AT ALL L * P* = +1 EA FOUND FOR ACTUAL TASK n * P* = -1 EA FOUND FO R OTHER TASK P* 8 P****USED REGISTERS**********************************
0x0b6ab0…0b6c44 Dummy {f00=0x002f, f01=0x0190, f02=»QU * P LDR* A4,A4 NEXT BUFFER ADR PEAT030 EQU * 0 $ P RF(Z) EAT100 EMPTY QUEUE,NO EA D P* l P* SEARCH LOG REC NO v P* P CC A2,3,A4 FIRST CHAR P RB(NE) EAT020 P CW A3,4,A4 2 AND 3 CHAR P RB(NE) EAT020 P
0x0b6c44…0b6dd8 Dummy {f00=0x002f, f01=0x0190, f02=» OTHER TASK P RF EAT100 PEAT060 EQU * & P LDK A4,1 EA SAME ATASK : PEAT100 EQU * Z P RTN A14 n P EJECT ~ 8 P****DESCRIPTION************************************* P* B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN
0x0b6dd8…0b6f6c Dummy {f00=0x002f, f01=0x0190, f02=»********************** r P* P* A6 = FDB ADDR ( " P* A2,A3 = LOGICAL RECORD NO B P* h P* CF A14,EASETB r P* 8 P****EXIT PARAMETERS********************************* P* P* A6 = FDB ADDR P* 8 P****US
0x0b6f6c…0b7100 Dummy {f00=0x002f, f01=0x0190, f02=»************* f P EJECT PEASETB EQU * $ P ECR A2,A2 8 P LC A2,FDBTNR,A6 TASK ID J P ECR A2,A2 j 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 P* P
0x0b7100…0b7294 (0, 232) Dummy {f00=0x0030, f01=0x0190, f02=»ION************************************* P* 0 8 P* EARELB WILL RELEASE EA BUFFERS AND CONNRECT THEM : P* TIO THE FREE LINK. v P* 8 P****ENTRY PARAMETERS******************************** P* P* A1 = FDB-ADDRESS " P* A2,A
0x0b7294…0b7428 Dummy {f00=0x0030, f01=0x0190, f02=» l < P* BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB IS REMOVED. J P* BIT 0=0 THE FIRST BUFFER WITH TASK ID AND LOG REC NO H 0 P* AS SPEC IS REMOVED. P* 8 P****EXIT PARAMETERS*********************************
0x0b7428…0b75bc Dummy {f00=0x0030, f01=0x0190, f02=» P EJECT PEARELB EQU * P LDR A5,A1 * P ADKL A5,FDBEAL ROOT ADR < P LDR* A4,A5 EA ROOT P RF EAR030 x PEAR020 EQU * P LDR A5,A4 SAVE OLD ROOT P LDR* A4,A4 NEXT BUFFER ADR PEAR030 EQU * P RF(Z) EAR100 EA L
0x0b75bc…0b7750 Dummy {f00=0x0030, f01=0x0190, f02=»C A2,3,A4 P RB(NE) EAR020 P CW A3,4,A4 ( P RB(NE) EAR020 < P RF EAR060 R PEAR050 EQU * d P CWK A2,/A000 CHECK BIT 1 x 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED PEAR060 EQU * P* P* SEARCH TASK IDENT
0x0b7750…0b78e4 Dummy {f00=0x0030, f01=0x0190, f02=»R080 EQU * P LDR* A3,A4 NEXT BUFADR & P STR A3,A5 REMOVE BUFFER FROM LINK 2 P* P* RETURN BUFFER TO POOL f P* P INH P LD A3,FREQUE P STR A3,A4 NEXT FREE P ST A4,FREQUE NEW ROOT P LDR A4,A5 BUFFER ROOT
0x0b78e4…0b7a78 Dummy {f00=0x0030, f01=0x0190, f02=»********************** r P* D P* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS ( D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH p H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE 0 P*
0x0b7a78…0b7c0c Dummy {f00=0x0030, f01=0x0190, f02=»****************** n P* " P* A1 = FDB ADDRESS DATA FILE $ P* J 8 P****EXIT PARAMETERS********************************* T P* P* A1 = UNCHANGED ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS************
0x0b7c0c…0b7da0 Dummy {f00=0x0030, f01=0x0190, f02=»30 PCRN020 EQU * P LDR* A2,A2 NEXT BUFFER PCRN030 EQU * > P RF(Z) CRN100 LINK END R P* p P* CHECK ATASK IDENT z P* P LC A3,FDBTNR,A1 TASK ID P CC A3,CRNTID,A2 P RB(NE) CRN020 OTHER TASK P RF CRN200 B
0x0b7da0…0b7f34 (0, 233) Dummy {f00=0x0030, f01=0x0190, f02=»F(NZ) CRN120 P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS 4 PCRN120 EQU * X P LDR* A3,A2 NEXT FREE l P ST A3,CRNQUE UPD ROOT P* P* FILL BUFFER WITH ZEROES P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES
0x0b7f34…0b80c8 Dummy {f00=0x0030, f01=0x0190, f02=»A3 OFFSET IN BUFFER P CMR A4 P RB CRN140 MORE WORDS , P* J " P* CONNECT NEW BUFFER TO LINK T P* z PCRN160 EQU * P LC A3,FDBTNR,A1 P SC A3,CRNTID,A2 TASK ID P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD
0x0b80c8…0b825c Dummy {f00=0x0030, f01=0x0190, f02=»**** ` P* 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO TO P* SECTOR AND OFFSET L P* j 8 P****ENTRY PARAMETERS******************************** t P* " P* A1,A2 = LOGICAL RECORD NO P* A6 = FDB ADDR P* P*
0x0b825c…0b83f0 Dummy {f00=0x0030, f01=0x0190, f02=» , ERROR =/20=END OF MEDIUM P* A4 = EXTENT ADDRESS $ P* A6 = UNCHANGED D $ P* IN FDB : FDBSNR = SECTOR NR ^ , P* FDBRRO = OFFSET IN SECTOR * P* FDBCEX = CURRENT EXTENT P* 8 P****USED REGISTERS********
0x0b83f0…0b8584 Dummy {f00=0x0030, f01=0x0190, f02=»LE t P* P LDR A5,A6 SAVE FDB ADDR P LDK A6,0 4 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR F , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER n P RF(O) TIOD99 OVERFLOW P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER
0x0b8584…0b8718 Dummy {f00=0x0030, f01=0x0190, f02=»R h P* P* FIND FILE EXTENT P* 0 PTIOD40 EQU * : P LDR A4,A6 N & P ADKL A4,FDBEXT FIRST FILE EXTENT ` , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SEC
0x0b8718…0b88ac Dummy {f00=0x0030, f01=0x0190, f02=»N,A4 ADD LENGTH OF NEXT EXTENT P RB TIOD45 & P* 8 * P* SAVE CURRENT EXTENT BLOCK POINTER B P* p PTIOD55 ST A4,FDBCEX,A6 z P* * P* FIND LOGICAL SECTOR NUMBER ON DISC P* 6 P SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXT
0x0b88ac…0b8a40 Dummy {f00=0x0030, f01=0x0190, f02=»A4 SECTOR NO ON DISC 0 P ST A3,FDBSNR,A6 SAVE LOGICAL SECTOR NUMBER 2 P* FIND RELATIVE RECORD OFFSET WITHIN SECTOR P P* P LDK A3,0 & PTIOD60 SUK A2,1 A2=RELATIVE REC NO ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * P AD A3,FDBRLE,A6
0x0b8a40…0b8bd4 (0, 234) Dummy {f00=0x0030, f01=0x0190, f02=»EDIUM v P RF TIODMF P* , P* STORE RELATIVE REC OFFSET IN FBDRRO * P* Z PTIOD65 EQU * d P LDK A1,0 OK x P ST A3,FDBRRO,A6 PTIODMF EQU * P RTN A14 P EJECT P* P************** P* DMTIOT P
0x0b8bd4…0b8d68 Dummy {f00=0x0030, f01=0x018e, f02=» t P* P* OUTPUT A6 = FDB ADDRESS P* A1 = 0 WHEN OK 6 $ P* = ERROR CODE ELSE X $ P* A9 = DM ECB ADDRESS * P* A8 = PHYS I/O ECB ADDRESS $ P* A2 WILL BE DESTROYED P* ( P
0x0b8d68…0b8efc Dummy {f00=0x0030, f01=0x0190, f02=» P ADR A8,A6 $ P LD A9,DWTECB,A6 DM ECB ADDRESS PDMTIT0 EQU * > P LD A1,ECBRC,A8 R P RF(Z) DMTIOX DISC I/O OK j P ANKL A1,/FEFF $ P RF(NZ) DMTIT1 NOT ONLY RETRIES P LDKL A2,/100 P ORS A2,ECBRC,A9 USER RC P RF DMTI
0x0b8efc…0b9090 Dummy {f00=0x0030, f01=0x0190, f02=» P* GET BUFFER ADDR ! P SUK A2,8 BUFSTA ! ( , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER ! @ P LDK A1,/02 DISC IO ERROR ! p " P LDKL A2,/FF7E NOT BIT 8 OR 15 ! P AN A2,ECBRC,A8 ! P ABL(NZ) DMTIOX ! P LD A1,ECBRC,A8 BIT 8 OR 15 !
0x0b9090…0b9224 Dummy {f00=0x0030, f01=0x0190, f02=»RAM ! x P* " P* IN: A1 = FDB ADDR " P* A8 = ECB ADDR " 2 P* OUT: " L P* A1 = RET CODE " P* A2 = DESTROYED " v P* A6 = FDB ADDR " P* A8 = ECB ADDR " P* A9 == USER ECB " P* " PDMTIOZ LDR A6,A1 " P LD A2,D
0x0b9224…0b93b8 Dummy {f00=0x0030, f01=0x018e, f02=»INDEXED RANDOM READ " " P LD A1,FDBADF,A6 FDB DATA FILE # PDMTIZ1 EQU * # B P LD A9,DWTECB,A1 USER ECB # V P RB DMTIT0 # x P EJECT # 8 P****DESCRIPTION************************************* # P* # 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DIS
0x0b93b8…0b954c Dummy {f00=0x0030, f01=0x0190, f02=» # Z P* $ P* A1 = FDB ADDRESS $ , P* FDB-CEX,ECB,SNR,RRO $ . 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI $ ^ P* A8 = ECB ADDR $ P* $ 8 P****EXIT PARAMETERS********************************* $ P* $ P*
0x0b954c…0b96e0 Dummy {f00=0x0030, f01=0x0190, f02=» IN $ V < P* THE FOUND CORE BUFFER % P* A3 = BUFFER ADDRESS % L P* A5 = ORDE R CODE % l P* A8 = ECB ADDR % P* A9 = DM ECB ADDR % P* % 8 P****USED REGISTERS********************************** % P* %
0x0b96e0…0b9874 (0, 235) Dummy {f00=0x0030, f01=0x0190, f02=»B ADDRESS % ~ 2 P LD A4,FDBCEX,A6 CURRENT EXTENT BLOCK POINTER & P LD A1,EXTDMI,A4 DMIDENT, FC & H " P LD A2,FDBSNR,A6 SECTOR NUMBER & l P LD A9,DWTECB,A6 DM ECB & , P SC A1,ECBFC,A8 FILE CODE OF DISC VOLUME & P LDR A4,A2 SAVE & P LDKL A5,SECTL
0x0b9874…0b9a08 Dummy {f00=0x0030, f01=0x018e, f02=» & d 0 P* RETURN IF SECTOR MUST BE READ FROM DISC ' P LDKL A2,-1 RET CODE ' < PGTB040 EQU * ' X P ST A4,ECBCW,A8 SECTOR NR ' l P LDR A5,A3 ' 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ' P ST A5,ECBBA,A8 ' P LD A5,DWTOR,A6 ' P A
0x0b9a08…0b9b9c Dummy {f00=0x0030, f01=0x0190, f02=» ' j P RB GTB040 STORE ORDER CODE ( P EJECT ( , 8 P****DESCRIPTION************************************* ( : P* ( v D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO ( P* ( 8 P****ENTRY PARAMETERS******************************** (
0x0b9b9c…0b9d30 Dummy {f00=0x0030, f01=0x0190, f02=»************ ( h P* ) P* A1=A5=A6= FDB ADDRESS ) P* A2,A3 = LOG RECORD NO ) @ P* ) b 8 P****USED REGISTERS********************************** ) l P* ) P* A1 - A7 ) P* ) : P****************************************************** )
0x0b9d30…0b9ec4 Dummy {f00=0x0030, f01=0x0190, f02=»TH ) r P LD A7,FDBCEX,A1 EXT ADDR * ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH * , PGTL050 EQU * * X P CWR A3,A7 * l . 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 ADK
0x0b9ec4…0ba058 Dummy {f00=0x0030, f01=0x018e, f02=» TOTAL NO OF SECTORS * ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS + P* + H ( P* CONVERT FDBRRO TO NO OF RECORDS + R 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
0x0ba058…0ba1ec Dummy {f00=0x0030, f01=0x0190, f02=» + PGTL150 EQU * , P ADK A7,1 RECORD COUNTER , P SUR A6,A4 , < * P RB(NN) GTL150 COUNT RECORDS IN SECTOR , N P* , | , P* ADD SECT*BLOCFACT AND RECINCURRSECT , P* , P ADR A2,A7 , P RF(O) GTL160 OVERFLOW , P RF GTL170 , PGTL160
0x0ba1ec…0ba380 Dummy {f00=0x0030, f01=0x4052, f02=» P LDR A1,A5 FDB ADDR - P LDR A6,A5 - P RTN A14 - 2 P END - B@ - NNN) GTL150 COUNT RECORDS IN SECTOR , N P* , | , P* ADD SECT*BLOCFACT AND RECINCURRSECT , P* , P ADR A2,A7 , P RF(O) GTL160 OVERFLOW , P RF GTL170 , PGTL160
0x0ba380…0ba514 (0, 236) Dummy {f00=0x0031, 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* +
0x0ba514…0ba6a8 Dummy {f00=0x0031, f01=0x0190, f02=»ST LDREG SAVE8 ECHODY B ECHRTN DRTC01 t DISIOE TCDRON SAVE8 DWTECB DWTST TENDIO TDISP IHTCY INTSAV DWTC02 . DWTC01 . B DRRT01 z LOCHAN0 RECHAN REMFC CWTLT18
0x0ba6a8…0ba83c Dummy {f00=0x0031, f01=0x0190, f02=»END CHLT1 ( INTSAV SAVE8 CHLT2 4 CHRT1 8 CHRT2 D DWTST DWTADR SETIMPW DWTOR DWTECB RTNA15 OUTPUT STREG LDREG LDREGF LDREGED GETCHR 4 OUTLIN R IHRET8H CHLTONK ( ECHENDP ECHOY DWTWAT ECHRTNA
0x0ba83c…0ba9d0 Dummy {f00=0x0031, f01=0x0190, f02=» INTRT1 ,INTRT2 INTRT2 8BLOK:S BLOK:S BLOCKE x x *CTABX CTABX ,DCTBUF DCTBUF ,DCRBUF DCRBUF ,
0x0ba9d0…0bab64 Dummy {f00=0x0031, f01=0x0190, f02=» INIMOM INIMON TCTAB TTB:ST TTB:PP TTB:SA TTB:SP TTB:SS TTB:TDD CDTAB ITADI DWTADR ITADO DWTST DWTECB DWTTQ TIMQUE BLOCKL0 BLOCKSF FREQUE GBQUE ATT:CH2 LDPENDN LRUQUE$ CVTLSB0 NUMPAR
0x0bab64…0bacf8 Dummy {f00=0x0031, f01=0x0190, f02=» IHINPT PRUN SRUNN CVTINP CVTLSBK TTB:SA TTB:SP TTB:SS UPDLRI RETUR8 CVTAPA LKMDIS LD150 L LOADER LOADER TTB:SP TTB:SS TTB:SA QTJOB LD150 P GETBLK LDTASK TTABLD A
0x0bacf8…0bae8c Dummy {f00=0x0031, f01=0x0190, f02=»AD TTB:SS TTB:SP QTJOB CVTINP 4INIMOD INIMON tBUG TTMJOB TTMJOB TTB:ST TTB:ID TTB:PPK TTB:SSK TTB:SP TTB:SA TTB:TDK * , VCD:TAB CD:
0x0bae8c…0bb020 Dummy {f00=0x0031, f01=0x0190, f02=» bTIO TWAIT TEXIT TACTOTK TPAUSE TIMER GETBUF RELBUF LOADERD TABORT GETTIM SETTIM TASSN IXTASS0 DMINIT DMINIT INIFLG QFDBFL FDBSTA FDBEND CRNQUE CRBUFL CRNEND CURBUF BUFDMI
0x0bb020…0bb1b4 (0, 237) Opaque[0x194]
0x0bb1b4…0bb348 # DirEnt {nam=»TTABD0«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0638, f03=0x0000}
0x0bb1b4…0bb348 IdxSect {
0x0bb1b4…0bb348 f00 = 0x0031 // 0xbb1b4 @0x0
0x0bb1b4…0bb348 f01 = 0x0002 // 0xbb1b6 @0x2
0x0bb1b4…0bb348 gno = [ // 0xbb1b8 @0x4
0x0bb1b4…0bb348 [0x00]: C0x0031.0x3.0
0x0bb1b4…0bb348 ]
0x0bb1b4…0bb348 }
0x0bb348…0bb4dc Dummy {f00=0x0031, f01=0x0190, f02=» 2 P IDENT TTABD0 REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x0bb4dc…0bb670 Dummy {f00=0x0031, f01=0x0190, f02=» $ P* TERMINAL 01: TELLER TERMINAL P* 0 P ENTRY TTABD0 TABLE ENTRY : PX:A EQU 0 4 PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE IN WORDS n P* P* PTTABD0 DATA 0 P DATA /8031 TASK LEVEL & P DATA 'D0' TERMINAL IDENTI
0x0bb670…0bb804 Dummy {f00=0x0031, f01=0x4132, f02=»INAL SAVE AREA P RES 14 P* & " P DATA TTABE-* TERMINAL DEVICES 0 P DATA 0,0 MASTER INDEX ENTRY V PTTABE EQU * z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0 TASK STACK P RES RECBFZ BUFAR1 P RES RECBF
0x0bb804…0bb998 Dummy {f00=0x0031, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x0bb998…0bbb2c Dummy {f00=0x0031, f01=0x0190, f02=»TP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED & P ANS A2,DWTST,A6 ` P EJECT x P* P* P* ECB-BUFFER IS WRITTEN P* * P* SEND LINE FEED IF JOURNAL OR TALLY P* P* P
0x0bbb2c…0bbcc0 Dummy {f00=0x0031, f01=0x018e, f02=» * P LDKL A1,MESS INDICATE MESSAGE PRINTED P ORS A1,DWTST,A6 6 P XIF N PTPLF10 EQU * Z P SUK A7,8 n ( P RF(NN) TPL010 NOT JOURNAL AND TALLY P ADK A7,2 GET INDEX TABLE $ P LC A2,LFTAB,A7 GET LF CHARACTER P CF A5,OUTPUT SEND
0x0bbcc0…0bbe54 (0, 238) Opaque[0x194]
0x0bbe54…0bbfe8 # DirEnt {nam=»TTABD1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0640, f03=0x0000}
0x0bbe54…0bbfe8 IdxSect {
0x0bbe54…0bbfe8 f00 = 0x0032 // 0xbbe54 @0x0
0x0bbe54…0bbfe8 f01 = 0x0002 // 0xbbe56 @0x2
0x0bbe54…0bbfe8 gno = [ // 0xbbe58 @0x4
0x0bbe54…0bbfe8 [0x00]: C0x0032.0x0.0
0x0bbe54…0bbfe8 ]
0x0bbe54…0bbfe8 }
0x0bbfe8…0bc17c Dummy {f00=0x0032, f01=0x0190, f02=» 2 P IDENT TTABD1 REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x0bc17c…0bc310 Dummy {f00=0x0032, f01=0x0190, f02=» $ P* TERMINAL 01: TELLER TERMINAL P* 0 P ENTRY TTABD1 TABLE ENTRY : PX:A EQU 0 4 PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE IN WORDS n P* P* PTTABD1 DATA 0 P DATA /8031 TASK LEVEL & P DATA 'D1' TERMINAL IDENTI
0x0bc310…0bc4a4 Dummy {f00=0x0032, f01=0x4132, f02=»INAL SAVE AREA P RES 14 P* & " P DATA TTABE-* TERMINAL DEVICES 0 P DATA 0,0 MASTER INDEX ENTRY V PTTABE EQU * z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0 TASK STACK P RES RECBFZ BUFAR1 P RES RECBF
0x0bc4a4…0bc638 Dummy {f00=0x0032, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x0bc638…0bc7cc Dummy {f00=0x0032, f01=0x0190, f02=»A3,1922 REQUESTED LENGTH K " P IM XRB SET READ BUFFER SWITCH L P CM FDWTUT L F P LDK A1,1 L X & P XRS A1,CACK INCREMENT ACK COUNTER L j P ABL POL127 L P XIF L P* L P* L P* ENQ HAS BEEN RECEIVED L P* L P* L PBRM400 EQU *
0x0bc7cc…0bc960 Dummy {f00=0x0032, f01=0x0190, f02=»RREP REPEAT LAST CONTROL SEQUENCE L PBRM410 EQU * M * P ABL BRM M > P EJECT M N P* M P* M f P* NAK HAS BEEN RECEIVED M p P* M P* M PBRM500 EQU * M & P CF A5,HPTIM STOP PROCEDURE TIMER M P LD A1,XACK M P RF(NZ) BRM510 ACK
0x0bc960…0bcaf4 (0, 239) Opaque[0x194]
0x0bcaf4…0bcc88 # DirEnt {nam=»TTABD2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x0bcaf4…0bcc88 IdxSect {
0x0bcaf4…0bcc88 f00 = 0x0032 // 0xbcaf4 @0x0
0x0bcaf4…0bcc88 f01 = 0x0002 // 0xbcaf6 @0x2
0x0bcaf4…0bcc88 gno = [ // 0xbcaf8 @0x4
0x0bcaf4…0bcc88 [0x00]: C0x0032.0x2.0
0x0bcaf4…0bcc88 ]
0x0bcaf4…0bcc88 }
0x0bcc88…0bce1c Dummy {f00=0x0032, f01=0x0190, f02=» 2 P IDENT TTABD2 REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x0bce1c…0bcfb0 Dummy {f00=0x0032, f01=0x0190, f02=» $ P* TERMINAL 01: TELLER TERMINAL P* 0 P ENTRY TTABD2 TABLE ENTRY : PX:A EQU 0 4 PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE IN WORDS n P* P* PTTABD2 DATA 0 P DATA /8031 TASK LEVEL & P DATA 'D2' TERMINAL IDENTI
0x0bcfb0…0bd144 Dummy {f00=0x0032, f01=0x4132, f02=»INAL SAVE AREA P RES 14 P* & " P DATA TTABE-* TERMINAL DEVICES 0 P DATA 0,0 MASTER INDEX ENTRY V PTTABE EQU * z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0 TASK STACK P RES RECBFZ BUFAR1 P RES RECBF
0x0bd144…0bd2d8 Dummy {f00=0x0032, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x0bd2d8…0bd46c Dummy {f00=0x0032, f01=0x0190, f02=»,DWTST,A6 [ P RF(N) CWR900 NO REQUEST P LD A2,DWTOR,A6 GET ORDER 2 P SUK A2,6 T P RF(Z) CWR100 WRITE REQUEST f P SUK A2,2 ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST P LDR A1,A1 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO
0x0bd46c…0bd600 Dummy {f00=0x0032, f01=0x0190, f02=» n P CF A15,CTIME STOP TIMING ] P LDR A8,A8 ] * P RF(Z) CWR150 ] < P ST A2,ECBCW,A8 ] R $ P CF A15,TENDIO COMPLETE REQUEST ] j PCWR150 EQU * ] * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ] PCWR200 EQU * ] P IFF TBUFL=0 ] $ P LD A4,FECBB
0x0bd600…0bd794 (0, 240) Opaque[0x194]
0x0bd794…0bd928 # DirEnt {nam=»DRIC0X«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0660, f03=0x0000}
0x0bd794…0bd928 IdxSect {
0x0bd794…0bd928 f00 = 0x0033 // 0xbd794 @0x0
0x0bd794…0bd928 f01 = 0x0002 // 0xbd796 @0x2
0x0bd794…0bd928 gno = [ // 0xbd798 @0x4
0x0bd794…0bd928 [0x00]: C0x0033.0x0.0
0x0bd794…0bd928 ]
0x0bd794…0bd928 }
0x0bd928…0bdabc Dummy {f00=0x0033, f01=0x0190, f02=» 2 P IDENT DRIC0X REL 8.2 78-09-15 870105040820 P : P* B P*************************** L P* p $ P* PHILIPS TERMINAL SYSTEM PTS z P* $ P* DRIC0X = DRIC01 DUMMY MODULE P* P* P* P* P* P*
0x0bdabc…0bdc50 Dummy {f00=0x0033, f01=0x4060, f02=»RN IHRTN PITADI EQU * PITADO EQU * $ PITABRT ABL IHRTN 8 END P@ ******* L P* p $ P* PHILIPS TERMINAL SYSTEM PTS z P* $ P* DRIC0X = DRIC01 DUMMY MODULE P* P* P* P* P* P*
0x0bdc50…0bdde4 Dummy {f00=0x0033, f01=0x2008, f02=» NT DRIC0X REL=8.1 DATE=78-03-03 A-TEST END :@ F
0x0bdde4…0bdf78 Dummy {f00=0x0033, f01=0x0190, f02=»******************** " ( P* S (LEADING ZERO REPLACED BY SIGN)* # ( P************************************ # H PLS EQU *-BASE # t & PEDP850 IM EDSUPP MARK SUPPRESSION # ( P CF A14,EDGETN GET CHR FROM ELEMENT # & P LD A1,EDNOTZ LOAD ZERO INDICATOR # (
0x0bdf78…0be10c Dummy {f00=0x0033, f01=0x018e, f02=» AND STORE CHR # | P EJECT $ P************************* $ $ P* C:CONDITIONAL PICTURE * $ F P************************* $ h PLC EQU *-BASE $ " PEDP900 LD A4,EDSIGN LOAD SIGN $ ( P RB(NZ) EDP725 JUMP BACK IF POSITIVE $ & P LD A4,EDPPOI LOAD PIC
0x0be10c…0be2a0 Dummy {f00=0x0033, f01=0x0190, f02=» $ P* % P************************ % P* PRINT SPACE IF BLANK * % 2 P************************ % R PLD EQU *-BASE % r ( P IM EDSUPP INDICATE SUPPRESSION CODE % , P CF A14,EDGETA GET DIGIT IN ASCII TO A6 % P CWK A6,/20 % P RB(E) EDP670 JU
0x0be2a0…0be434 (0, 241) Opaque[0x194]
0x0be434…0be5c8 # DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0948, f03=0x0000}
0x0be434…0be5c8 IdxSect {
0x0be434…0be5c8 f00 = 0x004a // 0xbe434 @0x0
0x0be434…0be5c8 f01 = 0x0010 // 0xbe436 @0x2
0x0be434…0be5c8 gno = [ // 0xbe438 @0x4
0x0be434…0be5c8 [0x00]: C0x004a.0x1.0
0x0be434…0be5c8 [0x01]: C0x004a.0x2.0
0x0be434…0be5c8 [0x02]: C0x004a.0x3.0
0x0be434…0be5c8 [0x03]: C0x004b.0x0.0
0x0be434…0be5c8 [0x04]: C0x004b.0x1.0
0x0be434…0be5c8 [0x05]: C0x004b.0x2.0
0x0be434…0be5c8 [0x06]: C0x004b.0x3.0
0x0be434…0be5c8 [0x07]: C0x004c.0x0.0
0x0be434…0be5c8 ]
0x0be434…0be5c8 }
0x0be5c8…0be75c Dummy {f00=0x004a, f01=0x0190, f02=» 2 P IDENT DRKB01 REL 9.1 78-09-15 870105640912 P : P* B 0 P******************************************* L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DRKB01 = DRIVER KEYBOARD P* P* P* P* P
0x0be75c…0be8f0 Dummy {f00=0x004a, f01=0x0190, f02=» d . P* AND ALPHANUMERIC KEYBOARDS PTS 6231, ( P* 6232, 6233, 6234, 6331,AND 6342 : , P* CONNECTED TO CPU VIA CHLT OR CHRT. f P* , P* ONLY INPUT DATA FROM DEPRESSED KEYS $ P* ARE HANDLED BY THE DRIVER. P* 0 P* A
0x0be8f0…0bea84 Dummy {f00=0x004a, f01=0x0190, f02=» DRIVER CONSISTS OF FOLLOWING PARTS: P* , " P* A C K B : ACTIVATION PART 6 P* $ P* I H K B : INTERRUPT HANDLER f P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY ROUTINE P* P EJECT P*
0x0bea84…0bec18 Dummy {f00=0x004a, f01=0x0190, f02=»AD v P* ORDER 03: NUMERIC READ & P* ORDER 04: RESET INPUT BUFFER . P* X P* b P* NORMAL REGISTER USAGE : l P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARACTER $ P* A3 : BUFFER INDE
0x0bec18…0bedac Dummy {f00=0x004a, f01=0x0190, f02=» A7 : ORDER " P* A8 : ECB-ADDRESS P* < P EJECT F P* T P* ^ P* SYSTEM ADAPTATION h P* 4 P* KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD : P* IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ & P*
0x0bedac…0bef40 Dummy {f00=0x004a, f01=0x0190, f02=» 6342 j < P* BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 & P* BIT 11 = 1 FOR PTS 6234,6342 N P* x 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED P* IN DWT.
0x0bef40…0bf0d4 (0, 242) Dummy {f00=0x004a, f01=0x0190, f02=»MER POINTER t , P* IN DWT MUST BE SET UNEQUAL TO ZERO. 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS D 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE z * P* IS WANTED FOR A SYSTEM, INDICATOR $ P* IN DRIVER MUST BE CHANGED. P
0x0bf0d4…0bf268 Dummy {f00=0x004a, f01=0x0190, f02=»!!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM 2 P EJECT N P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE f 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P* P* -----ECHO-FUNCTION P
0x0bf268…0bf3fc Dummy {f00=0x004a, f01=0x0190, f02=»CONVERSION TABLES 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO 4 P* POSSIBLE TO GIVE A KEY THE MEANING OF TWO, R P* THREE OR MORE ZEROES. P* 6 P* THE DRIVER IS PREPARED TO HANDLE THE SPECIAL 0 P* NORWAY-PROBLEM, WIT
0x0bf3fc…0bf590 Dummy {f00=0x004a, f01=0x0190, f02=»VER CONDITIONALLY THIS v P* FUNCTION IS INCLUDED. P EJECT @ P* N P* X P************** b P* ENTRIES * x P************** P* P ENTRY KBAD ADDRESS-BLOCK ( P ENTRY EOQUEU QUEUE POINTER ROUTINE ( P ENTRY DWTIN
0x0bf590…0bf724 Dummy {f00=0x004a, f01=0x0190, f02=»ODULE ENTRIES * | 2 P********************************************** " P* X $ P EXTRN DISIOE I/0 REQUEST ERROR b . P EXTRN DISEND END I/O AND GO TO DISPATCHER P EXTRN TENDIO END I/O " P EXTRN TDISP DISPATCHER ENTRY : P EXTRN L
0x0bf724…0bf8b8 Dummy {f00=0x004a, f01=0x0190, f02=»M ECHO HANDLING x P EXTRN LDREGF P EXTRN SETIME SET TIME . P EXTRN SETIMP SET TIME L " P EXTRN SAVE8 SAVE 8 REGISTERS j " P EXTRN ECHRTN RETURN FROM ECHO P EXTRN ECHO ECHO ROUTINE P EXTRN ECHEND END OF ECHO $ P EXTRN RTNA15 RE
0x0bf8b8…0bfa4c Dummy {f00=0x004a, f01=0x018e, f02=»*************** P* P EXTRN DWTST STATUS " * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK > P EXTRN DWTWAT SAVE INPUT DWT l P* P*************** P* CONSTANTS * P*************** P* * POVMASK EQU /2 OVERFLOW IN IN
0x0bfa4c…0bfbe0 Dummy {f00=0x004a, f01=0x0190, f02=» P* TIME BEFORE TIME-OUT P* * $ PTIME EQU 1200 TIME OUT CONSTANT 4 P* P*************************** f P* DWT-DISPLACEMENT * P*************************** P* PDWTBC EQU /3 $ PDWTCON EQU /10 CONVERSIO
0x0bfbe0…0bfd74 (0, 243) Dummy {f00=0x004a, f01=0x0190, f02=» EQU /1E STACK BASE PDWTTP EQU /20 TIMER POINTER 2 PDWTINQ EQU /28 POINTER TO FIRST PLACE IN QUEUE @ 2 PDWTUTQ EQU /2A POINTER TO LAST PLACE IN QUEUE v PDWTSQ EQU /2C START OF QUEUE ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE P* . P**
0x0bfd74…0bff08 Dummy {f00=0x004a, f01=0x0190, f02=»*** j P* & PKBBSP EQU /24 BACK-SPACE CHARACTER " PKBCLR EQU /25 CLEAR CHARACTER @ PKBEOF EQU /26 EOR-CHARACTER f & PKBMZ EQU /27 DOUBLE ZERO CHARACTER P* P EJECT P* P* , P****************************************
0x0bff08…0c009c Dummy {f00=0x004a, f01=0x0190, f02=» MAY BE EXCLUDED BY z P* SETTING X:A = 0. P* : PX:A EQU 0 D PCTIMUT EQU 1 V P* j * P* ECHO FUNCTION MAY BE EXCLUDED BY t P* SETTING X:B = 0. P* PX:B EQU 1 PCECHO EQU 1 P* * P* STANDARD
0x0c009c…0c0230 Dummy {f00=0x004a, f01=0x0190, f02=» MAY BE INCLUDED IN SYSTEM ( P* BY SETTING X:D = 2. SETTING X:D " , P* = 3 GIVES A THREE ZERO FUNCTION AND N 4 P* X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON ~ 4 P* X:D = 0 EXCLUDES THE MULTIPLE ZERO FUNCTION P* PX:D EQU 2
0x0c0230…0c03c4 Dummy {f00=0x004a, f01=0x018e, f02=» IN THE DRIVER. | > P* IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2 @ P* SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG Z B P* IS SET, CAUSING THE FIRST READ REQUEST AFTER POWER ON TO 2 P* BE COMPLETED WITH CONTROL WORD
0x0c03c4…0c0558 Dummy {f00=0x004a, f01=0x0190, f02=» ^ 2 P* "8-BIT" SETTING AND CONVERSION TABLES IS P* INCLUDED IN THE DRIVER. > P** b PX:G EQU 0 l PCONVER EQU 1 ~ P P* P* 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1
0x0c0558…0c06ec Dummy {f00=0x004a, f01=0x0190, f02=»OWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE @ P* IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 6 , P* AND SO ON. (INDEX= 1,2,3,4,... ) z 8 P* CONTROL WORD OF ECB IS SET TO ZERO INSTED OF -2 P* P* P PCREDIT
0x0c06ec…0c0880 Dummy {f00=0x004a, f01=0x0190, f02=» THEMSELVES DEPENDENT KEYBOARDS ON THE P* SAME SELECTOR UNIT. . P* N PNOLJE EQU 0 X P EJECT l P* z P* P************** P* TABLES * P************** P* PKBAD EQU * P DATA ACKB ACTIVATION DRIVER
0x0c0880…0c0a14 (0, 244) Dummy {f00=0x004b, f01=0x0190, f02=»* P* P IFT POWOFF=1 P* * P DATA RCKB RECOVERY ROUTINE 4 P EJECT X P* f P* p P* R C K B z P* 2 P* THIS IS THE RECOVERY ROUTINE FOR KEYBOARD & P* ENTERED FROM CHLT/CHRT DRIVER P* PRCKB E
0x0c0a14…0c0ba8 Dummy {f00=0x004b, f01=0x0190, f02=»WER OFF OCCURED t P ABL TDISP & PRCKB10 CF A5,LDREGE LOAD REGISTERS * P RF AKB202 T P* f P XIF p P* | P EJECT P* P* P* A C K B P* P* ACTIVATION PART: P* 0 P* CHECKS VALIDITY OF OR
0x0c0ba8…0c0d3c Dummy {f00=0x004b, f01=0x018e, f02=» LDKL A1,/FEFF 2 P ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG P LDK A1,0 L P LDK A3,0 START BUFFER INDEX ^ P LDR A4,A7 " P RF(NG) AKB100 ILLEGEAL ORDER P IFT NOLJE=1 P CWK A7,/37 SELECT KEYBOARD P RF(E) AKBSEL P
0x0c0d3c…0c0ed0 Dummy {f00=0x004b, f01=0x0190, f02=» P SUK A4,4 P P IFT CREDIT=1 P SUK A4,/2D 4 $ P RF(Z) CRE:10 SKIP INPUT BUFFER H P ADK A4,/2D p PCRE:10 EQU * P XIF P RF(Z) AKB110 ORDER 4 P RF(N) AKB200 ORDER 1,2 OR 3 * PAKB100 ORKL A1,/8000 I/O REQUEST E
0x0c0ed0…0c1064 Dummy {f00=0x004b, f01=0x0190, f02=»A6 ORDER 4 | ( P SCR A1,A2 RESET OVERFLOW IF OCCURED ( P ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE > P ABL ENDI05 END I/O j P IFT NOLJE=1 P* P* " P* ORDER 37 SELECT KEYBOARD P* PAKBSEL LDKL A2,/FF7F * P ANRS A2,A6 RE
0x0c1064…0c11f8 Dummy {f00=0x004b, f01=0x0190, f02=»* PAKB200 EQU * P* P IFT POWOFF=1 ( P* > P LD A2,DWTST,A6 H P ANKL A2,/200 POWER OFF ? ` P RF(E) AKB205 P XRS A2,DWTST,A6 RESET BIT P XIF PAKB202 EQU * P IFT CREDIT-POWOFF=-1 " P LDKL A1,-2 INDI
0x0c11f8…0c138c Dummy {f00=0x004b, f01=0x0190, f02=»OWOFF=1 P ABL AKB380 P* $ P XIF . P* : PAKB205 EQU * D P* X P IFT CTIMUT=1 b P* x P LDR* A1,A6 P ANK A1,/40 TIMING ? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE P LD A4,DWTTP,A6 P RF(E) AKBTIM
0x0c138c…0c1520 Dummy {f00=0x004b, f01=0x0190, f02=»A6 ADD DWT-ADDRESS P LDR A1,A6 P CF A15,SETIMP SET TIME , 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME L . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P* P XIF P* & PAKB210 LD A2,4,A8 REQUESTED LENGTH , PAKB220 RF(E)
0x0c1520…0c16b4 (0, 245) Dummy {f00=0x004b, f01=0x0190, f02=»1 P ADR A1,A2 ADDRESS IN BUFFER $ PAKB230 SCR A3,A1 STORE CHARACTER . " P SUK A1,1 NEXT CHAR. POSITION V P SUK A2,1 LAST ? | P RB(NE) AKB230 NO P EJECT P* , P* READ CHARACTER FROM INPUT BUFFER OR & P* WAIT FOR KEY-
0x0c16b4…0c1848 Dummy {f00=0x004b, f01=0x0190, f02=»F OVERFLOW ? P RF(NE) AKB250 " P SCR A4,A1 RESET OVERFLOW MARK * P LDK A1,OVMASK OVERFLOW SET P P RF ENDIO t . PAKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB260 " P CF A5,STREG NOTHING IN QUEUE P IFT CTIMUT=1 *
0x0c1848…0c19dc Dummy {f00=0x004b, f01=0x0190, f02=» CTIMUT=0 P RF AKB270 P XIF $ 0 PAKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER 0 & P ST A1,DWTUTQ,A6 STORE NEW POINTER d PAKB270 LDR A4,A7 P SUK A4,2 P RF(NN) AKB310 ORDER 2 OR 3 P EJECT P* P* P* ORDER
0x0c19dc…0c1b70 Dummy {f00=0x004b, f01=0x018e, f02=»TER p P XIF ! 0 P CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? ! P RB AKB220 ! L P EJECT ! ^ P* ! l P* ! v 2 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ ! P* ! 6 P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE ! P* ! P* !
0x0c1b70…0c1d04 Dummy {f00=0x004b, f01=0x0190, f02=» ! & P ADR A1,A4 LAST PLACE IN KEY-TABLE " P ADK A1,1 " 2 PAKB355 SUK A4,1 " D , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE " P SUK A1,1 NEXT KEY " P CCR A2,A1 EOR-CHARACTER? " P RB(NE) AKB355 NO " P IFT CREDIT=0 " P ADR A4,A4 YES D
0x0c1d04…0c1e98 Dummy {f00=0x004b, f01=0x0190, f02=»N CONTROLWORD " v ( PAKB358 CF A15,STORE STORE CHARACTER # P RF AKB370 # B P* # T P* # ^ 4 PAKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY # h P RB(E) AKB358 YES # P EJECT # P* # * P* CHARACTER NOT FOUND IN KEY-TABLE. # P* CHE
0x0c1e98…0c202c Dummy {f00=0x004b, f01=0x0190, f02=»NK A4,/20 SHIFT BIT 9 ? # P RF(E) AKB361 YES $ P LDR A4,A2 CHARACTER $ : P RF AKB363 $ V PAKB361 EQU * $ h P LDR* A4,A6 $ | P ANK A4,/10 PTS 6234 ? $ P RF(E) AKB362 $ P LDR A4,A2 $ P ANK A4,/80 $ P RF(NE) AKB362 $ P LDR A4,
0x0c202c…0c21c0 Dummy {f00=0x004b, f01=0x0190, f02=»LTZ=0 $ " P CC A4,KBMZ,A6 MULTIPLE ZERO ? % P RF(E) KBMZ10 YES! % 4 P XIF % N P CC A4,KBCLR,A6 CLEAR? % Z P RF(E) KBCL10 % x P CC A4,KBBSP,A6 BACKSPACE? % P RF(E) KBSP10 % P LDR A1,A1 RETURN CODE? % ( P RF(NE) AKB369 YES,STORE AND END I
0x0c21c0…0c2354 (0, 246) Dummy {f00=0x004b, f01=0x0190, f02=» OVERFLOW? % ~ P RB(L) AKB210 NO & $ PAKB368 LDK A1,8 SET RETURN CODE & * P RF ENDIO AND END I/O & R 6 PAKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER & p P RF ENDIO END I/O REQUEST & P EJECT & P* & P* & ( P* CHECK CODE OF END OF
0x0c2354…0c24e8 Dummy {f00=0x004b, f01=0x018e, f02=»ND OF RECORD & z P LDR A1,A1 RETURN CODE? ' P RF(NE) AKB380 ' 4 P CF A5,ECHO ECHO CHARACTER ' J P* ' l P XIF ' v P* ' PAKB380 LDK A1,0 RETURN CODE ' P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE DRIVER ' P* '
0x0c24e8…0c267c Dummy {f00=0x004b, f01=0x0190, f02=» P* ( P IFT CTIMUT=1 ( P INH ( $ P LD A4,DWTTP,A6 ( 0 * P RF(E) ENDI05 NO TIMING ON THIS DEVICE ( H P CM* DWTTP,A6 RESET TIMER ( v P CM DWTTP,A6 ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PENDI10 EQU * ( P*
0x0c267c…0c2810 Dummy {f00=0x004b, f01=0x0190, f02=» P* ) 0 P ABL DISEND END I/O ON KEYBOARD AND DISPATCH ) P EJECT ) B P* ) P P* MULTIPLE ZERO ) Z P* ) t P IFF CMULTZ=0 ) ~ PKBMZ10 EQU * ) ( P LDK A4,CMULTZ LOAD NUMBER OF ZEROES ) , PKBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO ) P SUK
0x0c2810…0c29a4 Dummy {f00=0x004b, f01=0x0190, f02=» A4 ) ~ P* * P IFT CECHO=1 * P* * * P CF A5,ECHO ECHO ZERO * 4 P XIF * R P* * ^ P* * h P IFF CMULTZ=0 * r P* * " P CW A3,4,A8 LENGTH OVERFLOW ? * P RB(L) KBMZ20 NO * . PKBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ? * P RB(L)
0x0c29a4…0c2b38 Dummy {f00=0x004b, f01=0x018e, f02=»NE) KBMZ30 NO * , P LDK A1,DWTEQ GET LAST POSITION IN QUEUE + P ADR A1,A6 + F P SUK A1,1 + X P RF KBMZ40 + j 2 PKBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION + | P SUK A1,1 + , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? + P RF(E) KBMZ90 NO NOT
0x0c2b38…0c2ccc Dummy {f00=0x004b, f01=0x0190, f02=» + v P RB KBMZ25 ONCE MORE TIME !! , PKBMZ90 EQU * , , ( P LDK A4,/FF INDICATE BUFFER OWERFLOW , @ P SCR A4,A1 , l $ P ST A1,DWTUTQ,A6 UPPDATE POINTER , ~ ( P LDK A1,/A SET RETURN CODE FOR BOTH , * P RB ENDIO LENGTH AND THRUGHPUT ERRORS , P XIF ,
0x0c2ccc…0c2e60 Dummy {f00=0x004b, f01=0x0190, f02=» , P* - P* BACKSPACE - P* - ( & PKBSP10 LDR A3,A3 FIRST CHARACTER? - 2 P RF(Z) KBSP15 - $ P SUK A3,1 DECREMENT BUFFER INDEX - r P LDK A2,/00 CLEAR ECB-BUFFER - P CF A15,STORE - P SUK A3,1 DECREMENT INDEX - * PKBSP15 LDK A2,/8 C
0x0c2e60…0c2ff4 (0, 247) Dummy {f00=0x004b, f01=0x0190, f02=»NPUT CHARACTER - v P* . P* ON ENTRY: . P* . 6 P* A2 = CHARACTER . @ P* A3 = BUFFER INDEX . P* A6 = DWT-ADDRESS . z P* A7 = ORDER . P* . P* . P* ON EXIT: . P* . P* A1 = RETURN CODE . P* .
0x0c2ff4…0c3188 Dummy {f00=0x004b, f01=0x0190, f02=»D=1 . P* / P CWK A7,2 ORDER 2? / P RF(NE) CHEK05 NO / 0 P ANK A1,/20 / J ( P ORK A1,/5F 5F OR 7F AS UPPER LIMIT / ^ P LDK A4,/20 LOWER LIMIT / P RF CHEK08 / P* / P XIF / P* / PCHEK05 ANK A1,/10 / P RF(NE) CHEK06 /
0x0c3188…0c331c Dummy {f00=0x004b, f01=0x0190, f02=» CHERRO CODE CHECK ERROR / P SUR A4,A2 0 " P RF(P) CHERRO CODE CHECK ERROR 0 2 P LDR* A1,A15 0 X PCHEK10 LDK A1,0 RETURN CODE 0 l PCHEK20 RTN A5 0 P* 0 P* 0 P* CODE CHECK ERROR 0 P* 0 . PCHERRO LDK A1,4 SET RETURN CODE AND RE
0x0c331c…0c34b0 Dummy {f00=0x004b, f01=0x0190, f02=» THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER 0 P* 1 D P* 1 N PIHKB EQU * 1 X P IFT NOLJE=1 1 j P LDR* A3,A6 GET ALLOW BITS 1 ~ P ANK A3,/C0 1 4 P RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS 1 P LDK A4,1 1 P ANK A3,/8
0x0c34b0…0c3644 Dummy {f00=0x004b, f01=0x0190, f02=» EQU * 1 P XIF 2 P* 2 P IFT CONVER=1 2 $ P* 2 : P LDR A4,A2 INPUT WORD 2 D " P SRL A4,11 DEVICE ADDRESS * 2 2 b P ANK A4,/E 2 $ P CC A4,DWTBC,A6 8-BIT SETTING ? 2 P RF(NE) IHKB03 2 P LDR A3,A2 2 P ANK A3,/3F 2 P SUK A3,/3
0x0c3644…0c37d8 Dummy {f00=0x004b, f01=0x018e, f02=» 2 | P RF IHKB04 3 4 PIHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS 3 P RF(E) IHKB04 3 R P LDR A4,A2 3 h P ANK A4,/FF 3 z P SRL A4,3 LINE INDEX 3 P ADR A3,A4 3 $ P LDR* A3,A3 COLUMN TABLE ADDRESS 3 P RF(E) IHKB04 3 P LDR A4,A2 3
0x0c37d8…0c396c Dummy {f00=0x004b, f01=0x0190, f02=» P* 4 P IFT NOLJE=1 4 P* 4 " P LDR A3,A2 4 , P ANK A3,/3F 4 > P SUK A3,/22 4 R P RF(Z) IHNOL6 4 f P SUK A3,1 4 | P RF(NZ) IHNOL8 4 P RF IHNOL7 4 PIHNOL6 ADK A2,7 4 PIHNOL7 ANKL A2,/FF3F 4 PIHNOL8 EQU * 4 P* 4 P
0x0c396c…0c3b00 Dummy {f00=0x004b, f01=0x0190, f02=»STORE CHARACTER IN DWT-BUFFER 4 ~ P* 5 & P IFT CTIMUT=1 5 0 P* 5 F P LD A3,DWTTP,A6 5 P * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 5 h P LDKL A3,-TIME RESTART TIME 5 P ST* A3,DWTTP,A6 5 P* 5 P XIF 5 P* 5 , PIHKB05 ABL LDREG RETUR
0x0c3b00…0c3c94 (0, 248) Dummy {f00=0x004c, f01=0x0190, f02=» LDR A3,A1 5 2 P CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS 6 P CW A1,DWTUTQ,A6 OVERFLOW? 6 H P RF(NE) IHKB20 NO! 6 j 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 6 P RF IHKB30 6 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER 6 4 PIHKB30 SCR
0x0c3c94…0c3e28 Dummy {f00=0x004c, f01=0x0190, f02=»4,/40 6 P SUK A3,1 7 P RF(E) IHNOL4 7 P LDK A4,/80 7 6 P SUK A3,4 7 J P RB(NE) IHNOL2 7 $ PIHNOL4 ORRS A4,A6 SET ALLOW BIT 7 r P RB IHNOL2 7 P XIF 7 P EJECT 7 P* 7 P* 7 P* A K B T U T 7 P* 7 & P* THIS IS
0x0c3e28…0c3fbc Dummy {f00=0x004c, f01=0x0190, f02=» CM DWTTP,A6 7 P LD A1,DWTST,A6 8 P RB(N) EXIT 8 , P LDK A1,/40 SET RETURN CODE 8 @ , P RB IHKB05 RESTORE REGISTERS AND END I/O 8 d P* 8 P XIF 8 P EJECT 8 P* 8 4 P* STORE = SUBROUTINE TO STORE A CHARACTER IN 8 6 P* E
0x0c3fbc…0c4150 Dummy {f00=0x004c, f01=0x0190, f02=»ER INDEX 8 P* 9 P* 9 PSTORE EQU * 9 $ P LD A4,2,A8 BUFFER ADDRESS 9 8 P ADR A4,A3 ADD BUFFER INDEX 9 Z ( P SCR A2,A4 STORE CHARACTER IN BUFFER 9 ~ $ P ADK A3,1 INCREMENT BUFFER INDEX 9 P ANK A2,/7F 9 P RF EOQU20 RTN A15 AND ENB 9 P
0x0c4150…0c42e4 Dummy {f00=0x004c, f01=0x018c, f02=» A1 = QUEUE POINTER 9 P* A6 = DWT-ADDRESS : P* : < P* ON EXIT: : F P* : P* A1 = NEW QUEUE POINTER : f PEOQUEU EQU * : P INH : P ADK A1,1 : P SUR A1,A6 : P CWK A1,DWTEQ END OF QUEUE? : P RF(NE) EOQU10 : * P
0x0c42e4…0c4478 Dummy {f00=0x004c, f01=0x4008, f02=»@ ; QUEUE POINTER 9 P* A6 = DWT-ADDRESS : P* : < P* ON EXIT: : F P* : P* A1 = NEW QUEUE POINTER : f PEOQUEU EQU * : P INH : P ADK A1,1 : P SUR A1,A6 : P CWK A1,DWTEQ END OF QUEUE? : P RF(NE) EOQU10 : * P
0x0c4478…0c460c Dummy {f00=0x004c, f01=0x2008, f02=» < O 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE 1 > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 1 > 4 PRETUR ABL LDREGE RELOAD A3-A5 AND RETURN VIA A5 1 P* 1 P XIF 1 P* 1 P END 1 @ 1 RESS TO ADDRESS-BLOCK 0 2 P A
0x0c460c…0c47a0 Dummy {f00=0x004c, f01=0x018e, f02=»B EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER P DATA 0 ] 6 , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 ] F P DATA 0 ] v , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR ] P DATA 0 ] P XIF ] P IFT IBM=1 ] , PDWTBOE EQU *-DWFD01 BEGINNING OF EXT
0x0c47a0…0c4934 (0, 249) Opaque[0x194]
0x0c4934…0c4ac8 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0080, f03=0x0000}
0x0c4934…0c4ac8 IdxSect {
0x0c4934…0c4ac8 f00 = 0x0004 // 0xc4934 @0x0
0x0c4934…0c4ac8 f01 = 0x0010 // 0xc4936 @0x2
0x0c4934…0c4ac8 gno = [ // 0xc4938 @0x4
0x0c4934…0c4ac8 [0x00]: C0x0004.0x0.0
0x0c4934…0c4ac8 [0x01]: C0x0033.0x2.0
0x0c4934…0c4ac8 [0x02]: C0x0033.0x3.0
0x0c4934…0c4ac8 [0x03]: C0x0034.0x0.0
0x0c4934…0c4ac8 [0x04]: C0x0034.0x1.0
0x0c4934…0c4ac8 [0x05]: C0x0034.0x2.0
0x0c4934…0c4ac8 [0x06]: C0x0034.0x3.0
0x0c4934…0c4ac8 [0x07]: C0x0035.0x0.0
0x0c4934…0c4ac8 ]
0x0c4934…0c4ac8 }
0x0c4ac8…0c4c5c Dummy {f00=0x0004, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 8.2 78-09-15 870105040820 P : P* B < P******************************************************* L < P* * < P* PHILIPS TERMINAL SYSTEM PTS *
0x0c4c5c…0c4df0 Dummy {f00=0x0004, f01=0x0190, f02=» * < P* * < P* | P* P* < P* * < P**********************************************
0x0c4df0…0c4f84 Dummy {f00=0x0004, f01=0x018e, f02=» OR CHRT f P* P* 4 P* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: $ P* $ P* A C T P : ACTIVATION PART f P* & P* I H T P : INTERRUPT HANDLER P* $ P* R C T P : RECOVERY ROUTINE P* P* 6 P
0x0c4f84…0c5118 Dummy {f00=0x0004, f01=0x0190, f02=» P* 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL P* H D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST R $ P* CHARACTER IN OUTPUT BUFFER P* . P* G R A S P : SEND GRASP TO VOUCHER P* 4 P
0x0c5118…0c52ac Dummy {f00=0x0004, f01=0x0190, f02=»* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE ( 0 P* ORDER 0B : POSITION LIFT AND WRITE J $ P* ORDER 22 : CUT JOURNAL ~ * P* ORDER 26 : PERFORATE JOURNAL . P* ORDER 37 : GRASP VOUCHER/PASSBOOK 0 P*
0x0c52ac…0c5440 Dummy {f00=0x0004, f01=0x0190, f02=» REQUEST ERROR ~ 4 P* BIT 8 : RECOVERY EXECUTED ON REQUEST 8 P* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT P ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE P* P* P* P* NORMAL
0x0c5440…0c55d4 (0, 250) Dummy {f00=0x0033, f01=0x0190, f02=»INTER v $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER 6 P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* P* P* SYSTEM ADAPTATION: P
0x0c55d4…0c5768 Dummy {f00=0x0033, f01=0x0190, f02=»ET IF RECOVERY IS EXECUTED ON REQUEST | 4 P* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) . 0 P* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 f H P* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN P* P* @ P* THE CHARAC
0x0c5768…0c58fc Dummy {f00=0x0033, f01=0x0190, f02=» P EJECT P* P*********** P* ENTRIES * 0 P*********** D P* X P* b P ENTRY TPAD ADDRESS BLOCK l P* P* P* P************* P* EXTERNALS * P************* P* P* , P EXTRN
0x0c58fc…0c5a90 Dummy {f00=0x0033, f01=0x0190, f02=»O END I/O & P EXTRN OUTPUT OUTPUT ONE CHARACTER " P EXTRN LDREG RESTORE REGISTERS < 8 P EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT b P EXTRN SAVE8 SAVE REG. A1-A8 P* P* P* . P* DISPLACMENT IN DEVICE WORK TABLE D
0x0c5a90…0c5c24 Dummy {f00=0x0033, f01=0x018e, f02=»************** P* CONDITIONAL ASSEMBLY * P************************ 6 P* V P* ` < P* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET j P* BY SETTING X:A = 1 P* P* PX:A EQU 0 PRECOV EQU 0 P*
0x0c5c24…0c5db8 Dummy {f00=0x0033, f01=0x018e, f02=» PCUTPER EQU 0 P* P* & B P* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 0 P* AND X:D = 1 RESPECTIVLY v P* P* PX:C EQU 0 PCHR13 EQU 0 P* P* PX:D EQU 0 PCHR14 EQU 0
0x0c5db8…0c5f4c Dummy {f00=0x0033, f01=0x0190, f02=» X P* P* PX:E EQU 0 PCOMPL EQU 0 . P EJECT B P* P P* Z > P* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT d < P* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING > P* THE CONSTANT RELEND=1. RETURN
0x0c5f4c…0c60e0 Dummy {f00=0x0033, f01=0x0190, f02=»N THE SHB-PROJECT FOR l < P* LOCAL PRINTERS THE CONSTANT SHBDUM CAN BE SET TO 1. ( P* NOT ALLOWED FOR REMOTE PRINTERS. ^ P* PX:H EQU 0 PSHBDUM EQU X:H P EJECT P* P* P************* P* CONSTANTS *
0x0c60e0…0c6274 (0, 251) Dummy {f00=0x0033, f01=0x0190, f02=»TAPE f P* P* 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 DWTTST;TEST MESSAGE WRITTEN P*
0x0c6274…0c6408 Dummy {f00=0x0033, f01=0x0190, f02=»PRINT BUFFER REMOTE | * PTAB EQU /11 TABULATION CHAR IN BUFFER PCR1 EQU /0D CR JOURNAL TAPE J PLF1 EQU /18 LF JOURNAL TAPE n . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK PLF2 EQU /19 LF TALLY ROLL $ PLDO EQU /0B LIFT DOWN 1 POSITION
0x0c6408…0c659c Dummy {f00=0x0033, f01=0x0190, f02=» ^ ( PREL EQU /1B RELEASE VOUCHER/PASSBOOK " PAPH EQU /1D ATTACH PRINT HEAD 4 " PRPH EQU /1E RETURN PRINT HEAD Z 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE P* P* P********************* P* DWT-DISPLACEMENTS * P
0x0c659c…0c6730 Dummy {f00=0x0033, f01=0x0190, f02=»E NUMBER t & PDWTALN EQU /23 ACTUAL LINE NUMBER P* : P* D P********************* N P* ECB-DISPLACEMENTS * l P********************* P* & PECBBA EQU 2 BUFFER ADDRESS IN ECB ( PECBRL EQU 4 REQUESTED LENGTH IN ECB ( P
0x0c6730…0c68c4 Dummy {f00=0x0033, f01=0x018e, f02=»* P*********** P* BUFFERS * P*********** 2 P* F P* P & PBUF1 DATA /0382,/0D1D STX,CR1,APH Z P IFT CUTPER=0 PBUF2 DATA /0382 STX P XIF P IFT CUTPER=1 PBUF2 DATA /0482 STX P XIF $ P DATA /0
0x0c68c4…0c6a58 Dummy {f00=0x0033, f01=0x0190, f02=» P********** P* TABLES * P********** , P* > P* H PTPAD EQU * ADDRESS BLOCK R P DATA ACTP ACTIVATIONDRIVER r P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLESS POINT
0x0c6a58…0c6bec Dummy {f00=0x0033, f01=0x018e, f02=»* P* PLFTAB EQU * , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL ( P* X P* b P IFT CUTPER=1 l : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE P XIF PTPTAB EQU * ORDER TABLE P DATA /0002,/0607,/080D
0x0c6bec…0c6d80 Dummy {f00=0x0033, f01=0x018e, f02=» P* A C T P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER " > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR X P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* < P* GET DWT INDEX: 0=JOU
0x0c6d80…0c6f14 (0, 252) Dummy {f00=0x0034, f01=0x018e, f02=» l , P SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT P LDK A4,0 ACTIVATION 8 PACT005 LDK A3,TPLEN-1 T 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER r P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P A
0x0c6f14…0c70a8 Dummy {f00=0x0034, f01=0x0190, f02=» z P ABI TPFUC,A3 EXECUTE ORDER 6 PTPFUC DATA TPDUMY,TPDUMY,TP200,TP405,ACT055,ACT050 , P IFT CUTPER=1 f P DATA TP700,TP750 | P XIF P DATA TP800,TP900 P EJECT P* P* , P* ORDER 06,0B: WRITE VOUCHER/PASSBOOK
0x0c70a8…0c723c Dummy {f00=0x0034, f01=0x0190, f02=»BER FROM CONTROL WORD IN ECB n P RF ACT085 $ P* 6 , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS @ & P LC A3,1,A3 GET CONTROL CHARACTER p $ P ANK A3,/FF REQUESTED LINE STEPS P SUK A3,/39 P RF(G) ACT070 > /39 = ONE LF P ADK A3,/9
0x0c723c…0c73d0 Dummy {f00=0x0034, f01=0x018e, f02=» 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 v 2 PACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ? * P LDK A1,0 YES; SET LINE POSITION ZERO P
0x0c73d0…0c7564 Dummy {f00=0x0034, f01=0x0190, f02=» P EJECT P* P* P* * P* ORDER 06 : PRINT JOURNAL 4 P* X P* b P* l * PTP200 LDKL A3,BUF1 SEND CR1 AND ATTACH v PTP210 EQU * 0 P LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD $ P ANK A1,4 TEXT MESSAGE WRITT
0x0c7564…0c76f8 Dummy {f00=0x0034, f01=0x0190, f02=» & P RF(N) TP230 YES; COMPLETE REQUEST P RF(P) TP215 . P LD A1,2,A8 BUFFER ADDRESS B P LC A2,2,A1 THIRD CHARACTER d $ P CCK A2,/2020 CONTROL CHARACTER P RF(NL) TP215 P CF A5,OUTPUT P RF TP220 PTP215 EQU * P CF A5
0x0c76f8…0c788c Dummy {f00=0x0034, f01=0x0190, f02=»US CHANGE ALLOWED p P ANS A2,DWTST,A6 P EJECT 2 P* @ P* J P* ECB-BUFFER IS WRITTEN T P* v * P* SEND LINE FEED IF JOURNAL OR TALLY P* P* PTPLF EQU * P LDR A1,A1 P RF(NE) TPLF10 " P LDK A2,RPH
0x0c788c…0c7a20 Dummy {f00=0x0034, f01=0x0190, f02=» P XIF PTPLF10 EQU * P SUK A7,8 ( ( P RF(NN) TPL010 NOT JOURNAL AND TALLY : P ADK A7,2 GET INDEX TABLE f $ P LC A2,LFTAB,A7 GET LF CHARACTER P CF A5,OUTPUT SEND LF CHAR. . PTPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH * P S
0x0c7a20…0c7bb4 (0, 253) Dummy {f00=0x0034, f01=0x0190, f02=»ND LAST DUMMY CHARACTER P* PTPDUMY EQU * * P LDK A2,ETX > P CF A5,OUTPUT R P EJECT h P* v P* 0 P* CHECK STATUS AFTER LAST DUMMY CHARACTER P* PTPTST EQU * . P SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?
0x0c7bb4…0c7d48 Dummy {f00=0x0034, f01=0x0190, f02=»UK A7,4 P IFT CUTPER=0 * P RF(G) ENDIO NOT TEST STATUS, JOURNAL & P XIF T P IFT CUTPER=1 ` * P RF(G) TST020 NOT TEST STATUS, JOURNAL v PTST012 EQU * P XIF & P ANK A2,EOJT END OF JOURNAL TAPE? $ P RF(NZ) ENDIO NO: PERFORM
0x0c7d48…0c7edc Dummy {f00=0x0034, f01=0x0190, f02=»D I/O AND GO TO DISPATCHER P* " PENDIO EQU * , 4 P ABL DISEND PERFORM END I/O AND GO TO DISPATCHER @ P* x P* P* P* P IFT CUTPER=1 PTST020 SUK A7,16 " P RB(L) ENDIO VOUCHER/PASSBOOK P SUK A7,4 P R
0x0c7edc…0c8070 Dummy {f00=0x0034, f01=0x0190, f02=»RINT TALLY ROLL P* ! P* ! " P* ! , ( PTP405 CF A5,RELEAS ERROR. VOUCHER IN ! 6 P* ! b * PTP407 LDKL A3,BUF3 SEND CR2 AND ATTACH ! l PTP410 EQU * ! P LDKL A1,VOCHA ! @ P ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED ! P
0x0c8070…0c8204 Dummy {f00=0x0034, f01=0x0190, f02=»ITION LIFT AND WRITE ! ~ P* " P* " & $ PTP605 CF A5,GRASP GRASP VOUCHER " 0 P EJECT " X P* " f P* " p * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL " z & P* LINE NUMBER IS EQUAL REQUESTED " P* " P* " . PTP610 CC A3,DWTRLN,A6 COMPARE LINE
0x0c8204…0c8398 Dummy {f00=0x0034, f01=0x0190, f02=»T ACTUAL LINE NUMBER " ~ P RF TP640 # & PTP630 LDK A2,LUP SEND ELEVATOR UP # . * P SUK A3,1 DECREMENT ACTUAL LINE NUMBER # X P* # & PTP640 CF A5,OUTPUT SEND LIFT CHAR # P* # , P SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER # P ANK A2,VOIN VOUCHER
0x0c8398…0c852c Dummy {f00=0x0034, f01=0x018e, f02=» IFT COMPL=1 # 2 P RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED $ $ PTP645 LDK A1,PROUT 'VOUCHER OUT' $ J , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE $ r P RB TPDUMY $ P XIF $ P EJECT $ P* $ P* $ , P* ORDER 06 AND 0B: LIFT IS POSITIONE
0x0c852c…0c86c0 Dummy {f00=0x0034, f01=0x018e, f02=» P RB TP410 PRINT ECB-BUFFER % P EJECT % & P IFT CUTPER=1 % 4 P* % J 4 P* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL % T P* % PTP700 EQU * % P LDK A1,1 SET INDEX % P RF TP760 % PTP750 EQU * % P LDK A1,0 SET INDEX % " P
0x0c86c0…0c8854 (0, 254) Dummy {f00=0x0034, f01=0x0190, f02=» P XIF & P* & < P* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK & P* & Z PTP800 EQU * & d P CF A5,GRASPA & x P RB TPDUMY & PTP900 EQU * & P CF A5,RELEAS & P RB TPDUMY & P & P EJECT & P* & P* P R B U
0x0c8854…0c89e8 Dummy {f00=0x0034, f01=0x0190, f02=»BUF LD A4,ECBRL,A8 GET REQUESTED LENGTH & & P SUK A4,2 ADJUST REQUESTED LENGTH ' 0 " P LD A3,ECBBA,A8 BUFFER ADDRESS ' Z ( P* SKIP PRECEDING SPACES IN BUFFER ' P ADK A3,2 ' " PPRB010 LCR A1,A3 GET CHARACTER ' P CCK A1,/2020 ' P RF(NE) PRB050
0x0c89e8…0c8b7c Dummy {f00=0x0034, f01=0x0190, f02=»/0D) LAST IN BUFFER ' j $ PPRB050 LDR A1,A3 GET ADDRESS TO ( ( P ADR A1,A4 LAST CHARACTER IN BUFFER ( D P LC A1,-1,A1 GET CHAR ( p * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? ( P RF(E) PRB060 YES ( * P CCK A1,/0D0D CARRIAGE RETURN - CR1 ? ( P RF(
0x0c8b7c…0c8d10 Dummy {f00=0x0034, f01=0x0190, f02=»,ECBEL,A8 SAVE CHAR. IN ECB ( P* ) $ P* ) . . PPRB100 SUK A4,1 DECREMENT REQUESTED LENGTH ) 8 P RF(NN) PRB105 PRINT BUFFER ) j 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) ) P RF(E) PRB101 ) P CF A5,OUTPUT SEND CHAR ) PPRB101 EQU
0x0c8d10…0c8ea4 Dummy {f00=0x0034, f01=0x0190, f02=» WHOLE BUFFER TO BE PRINTED ) z * P LDKL A1,MESS INDICATE MESSAGE PRINTED * $ P ORS A1,DWTST,A6 * R P XIF * j PPRB102 RTN A5 * v P EJECT * P* * P* * P* * P* PRINT BUFFER * P* * P* * PPRB105 EQU * * 2 P ADR A3,A4 ADDRE
0x0c8ea4…0c9038 Dummy {f00=0x0034, f01=0x018e, f02=» P EJECT + P* + P* + P* + & P* PRINT TALLY ROLL + 0 P* + L P* + V P* + ` P ANK A2,VOIN VOUCHER IN ? + j " P RF(Z) PRB200 NO. GO AND PRINT + " P ADK A5,4 RESET STACK POINTER + * P RB TP405 SEND LIFT TO TOP AND RELEAS + P*
0x0c9038…0c91cc Dummy {f00=0x0034, f01=0x0190, f02=» + ( P RF(Z) RCTP01 ERROR .VOUCHER NOT IN , P XIF , 4 P IFT COMPL=1 , @ P RB(Z) TP645 , T P XIF , h $ P LDR A1,A4 COPY REQUESTED LENGTH , t P SUK A1,2 R.L. < 3? , $ P RF(N) PRB200 YES: NO TABULATION , P LDK A1,TAB , P CC A1,-2,A3 TABULAT
0x0c91cc…0c9360 Dummy {f00=0x0034, f01=0x0190, f02=» CHARACTERS UNTIL TABULATION POSITION IS REACHED , P* AND ATTACH PRINT HEAD - 8 P* - Z P* - d ( PPRB115 LDK A2,RPH DETACH PRINT HEAD - n P CF A5,OUTPUT SEND DETACH - , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR - $ P LCR A1,A3 GET 2ND TAB POS C
0x0c9360…0c94f4 (0, 255) Dummy {f00=0x0034, f01=0x0190, f02=»CDTBY CONVERT TO BINARY - . PPRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER . 2 P CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. . R P RF(NG) PRB125 PRINT . P* . P* . P* . P LDK A2,/20 LOAD BLANK . ( P CF A5,OUTPUT SEND BLANKS OR DETACH .
0x0c94f4…0c9688 Dummy {f00=0x0034, f01=0x0190, f02=» . n P LDK A2,APH ATTACH / P RF PRB240 SEND ATTACH / " P EJECT / @ P* / N P* / X P* / b 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF / l P* - ROOMLESS POINT / P* - ILLEGAL CHARACTER / & P* - SPECIAL CHARACTER (/13,/14) / P
0x0c9688…0c981c Dummy {f00=0x0034, f01=0x0190, f02=» & P SUK A3,1 DECREMENT BUFFER POINTER 0 P SUK A4,1 0 . $ P LCR A7,A3 GET OUTPUT CHARACTER 0 @ P ANK A7,/F MASK 0 h & P LC A7,ROMTAB,A7 GET CODE IN TABLE 0 P* 0 P* 0 P* 0 , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 0 P RF(L) PRB225 YE
0x0c981c…0c99b0 Dummy {f00=0x0034, f01=0x0190, f02=» 0 & P CCK A7,/1313 SPECIAL CHARACTER ? 1 P RF(E) PRB230 YES 1 2 P XIF 1 L P IFT CHR14=1 1 X & P CCK A7,/1414 SPECIAL CHARACTER ? 1 l P RF(E) PRB230 YES 1 P XIF 1 P* 1 " P LDK A1,CCERR CODE CHECK ERROR 1 * P ORS A1,ECBRC,A8 STORE IN RE
0x0c99b0…0c9b44 Dummy {f00=0x0034, f01=0x0190, f02=»A6 INCREMENT BYTE COUNTER 1 $ P LDR A2,A7 GET OUTPUT CHARACTER 2 " & PPRB240 CF A5,OUTPUT SEND CHARACTER 2 J , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 2 t P RB PRB100 2 P* 2 P* 2 P* 2 P EJECT 2 P* 2 P* I H T P 2 P* 2 0
0x0c9b44…0c9cd8 Dummy {f00=0x0034, f01=0x0190, f02=» RF(N) RCTP10 NOT BUSY 2 $ P LDR A7,A7 TEST STATUS;JOURNAL ? 3 P RF(Z) IHTP20 YES 3 F , P CWK A7,2 TEST STATUS;VOUCHER/PASSBOOK ? 3 ` P RF(Z) IHTP20 YES 3 , P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT 3 8 PIHTP10 ABL(Z) LDREG NO RETURN CODE RESTORE REG
0x0c9cd8…0c9e6c Dummy {f00=0x0034, f01=0x0190, f02=» PIHTP20 LDR A1,A1 4 P ABL(Z) TPTST 4 PIHTP30 EQU * 4 2 P ABL ENDIO 4 F P* 4 X P* 4 b P* 4 l P EJECT 4 v P* 4 P* R C T P 4 P* 4 > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON 4 P* 4 & PRCTP CF A15,SAVE
0x0c9e6c…0ca000 Dummy {f00=0x0034, f01=0x0190, f02=» P ADR A5,A6 5 < P LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY 5 P CF A5,OUTPUT SEND DUMMY 5 V P IFT COMPL=1 5 v P LDR A4,A4 STATUS CHANGE ? 5 P ABL(NE) TP645 5 P XIF 5 PRCTP05 EQU * 5 P LDK A2,0 5 2 P SC A2,DWTALN,A6 STO
0x0ca000…0ca194 (0, 256) Dummy {f00=0x0035, f01=0x0190, f02=»FF 5 t P ORS A2,8,A8 SET RETURN CODE 6 P XIF 6 . P LDK A4,1 IND RECOVERY 6 : * P ABL ACT005 START RECOVERY OF PRINTER 6 X & PRCTP10 ABL TDISP GO TO DISPATCHER 6 P EJECT 6 P* 6 P* B C D T B Y 6 P* 6 4 P* SUBROUTINE TO CONVERT TO B
0x0ca194…0ca328 Dummy {f00=0x0035, f01=0x0190, f02=»N) BCDTB2 END 6 P SUK A1,6 DECREMENT BY 6 7 P RB BCDTB1 7 6 " PBCDTB2 RTN A5 RETURN TO CALLER 7 J P* 7 p P* 7 z P* 7 P* 7 P* 7 P* G R A S P 7 P* 7 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK 7 P* 7 P* 7
0x0ca328…0ca4bc Dummy {f00=0x0035, f01=0x0190, f02=» 7 ~ P CF A5,OUTPUT 8 P ANK A2,VOIN VOUCHER IN ? 8 P RF(NZ) GRAS10 YES 8 @ " P LDK A2,TETX DUMMY AFTER GRASP 8 Z P CF A5,OUTPUT 8 P LDK A2,LFF LIFT TO TOP 8 P CF A5,OUTPUT 8 P RTN A5 8 PGRAS10 LC A3,DWTALN,A6 8 P RTN A5 8
0x0ca4bc…0ca650 Dummy {f00=0x0035, f01=0x0190, f02=» 8 b P* 9 P* 9 P* 9 PRELEAS EQU * 9 & P LDK A1,0 9 : 0 P SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 9 L ( P LDKL A3,BUF5 LIFT TO TOP AND RELEAS 9 P LDK A2,LFF LIFT TO TOP 9 P CF A5,OUTPUT 9 P ANK A2,VOIN VOUCHER IN ? 9 P RF(
0x0ca650…0ca7e4 Dummy {f00=0x0035, f01=0x0190, f02=»CHARACTER IN OUTPUT BUFFER 9 P* : " P* : , 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS : 6 P ANK A4,/FF MASK : n , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER : $ P LCR A2,A3 GET OUTPUT CHARACTER : P CF A5,OUTPUT SEND CHARACTER : P SUK A
0x0ca7e4…0ca978 Dummy {f00=0x0035, f01=0x4040, f02=» : P* ; P* ; P* ; P* ; & P END ; 0@ ; < A4,A3 GET NUMBER OF OUTPUT CHARACTERS : 6 P ANK A4,/FF MASK : n , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER : $ P LCR A2,A3 GET OUTPUT CHARACTER : P CF A5,OUTPUT SEND CHARACTER : P SUK A
0x0ca978…0cab0c Dummy {f00=0x0035, f01=0x2008, f02=» < * 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
0x0cab0c…0caca0 Dummy {f00=0x0035, f01=0x0190, f02=» 4 P RF(NN) IHKB10 NO,STORE CHARACTER IN DWT-BUFFER 5 P* 5 < P IFT CTIMUT=1 5 F P* 5 P LD A3,DWTTP,A6 5 f * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 5 ~ P LDKL A3,-TIME RESTART TIME 5 P ST* A3,DWTTP,A6 5 P* 5 P XIF 5 P* 5 , P
0x0caca0…0cae34 (0, 257) Opaque[0x194]
0x0cae34…0cafc8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06a8, f03=0x0000}
0x0cae34…0cafc8 IdxSect {
0x0cae34…0cafc8 f00 = 0x0035 // 0xcae34 @0x0
0x0cae34…0cafc8 f01 = 0x0016 // 0xcae36 @0x2
0x0cae34…0cafc8 gno = [ // 0xcae38 @0x4
0x0cae34…0cafc8 [0x00]: C0x0035.0x1.0
0x0cae34…0cafc8 [0x01]: C0x0035.0x3.0
0x0cae34…0cafc8 [0x02]: C0x0036.0x0.0
0x0cae34…0cafc8 [0x03]: C0x0036.0x1.0
0x0cae34…0cafc8 [0x04]: C0x0036.0x2.0
0x0cae34…0cafc8 [0x05]: C0x0036.0x3.0
0x0cae34…0cafc8 [0x06]: C0x0037.0x0.0
0x0cae34…0cafc8 [0x07]: C0x0037.0x1.0
0x0cae34…0cafc8 [0x08]: C0x0037.0x2.0
0x0cae34…0cafc8 [0x09]: C0x0049.0x1.0
0x0cae34…0cafc8 [0x0a]: C0x004c.0x1.0
0x0cae34…0cafc8 ]
0x0cae34…0cafc8 }
0x0cafc8…0cb15c Dummy {f00=0x0035, f01=0x0190, f02=» 2 P IDENT DRDY01 REL 9.1 78-09-15 870105740912 P : P CURPOS OUTSIDE SCREEN B P REL 8.1 78-06-16 b P CURPOS ON 6351 ~ P REL 8.1 78-06-08 P DUMMY FAST OUTPUT P REL 8.1 78-04-21 P* 6 P******************
0x0cb15c…0cb2f0 Dummy {f00=0x0035, f01=0x0190, f02=»C DISPLAY l P* P* P* & P* 0 P* : P* D 6 P************************************************** N P* P* : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISP
0x0cb2f0…0cb484 Dummy {f00=0x0035, f01=0x0190, f02=»* < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN J : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE ( P* GENERAL KEYBOARD DRIVER DRKB01. P* P* 0 P*
0x0cb484…0cb618 Dummy {f00=0x0035, f01=0x0190, f02=»RUPT HANDLER x P* ( P* R C D Y RECOVERY ROUTINE P* J & P* E C H O D Y ECHO FUNCTIONS T P* ~ P P P P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER 00: TEST STATUS P*
0x0cb618…0cb7ac Dummy {f00=0x0035, f01=0x0190, f02=»SITIONING x P* 31: ERASE P* . P* NORMAL REGISTER USAGE 8 P* Z " P* REGISTER A1 = RETURN CODE d ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX $ P* A4 = WORK REGISTER " P*
0x0cb7ac…0cb940 Dummy {f00=0x0035, f01=0x0190, f02=» r P* P EJECT P* P* * P* SYSTEM ADAPTATION 4 P* R < P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. P* * P* --------------------------------- P* BIT: 10 11 P* -------------- " P
0x0cb940…0cbad4 (0, 258) Dummy {f00=0x0035, f01=0x0190, f02=»----------------------- P* 6 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: * 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT d , P* -IS ADAPTED TO CONTROL ONLY PTS 6344 : P* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8
0x0cbad4…0cbc68 Dummy {f00=0x0035, f01=0x0190, f02=»12), LOW INT (/1E), HIGH INT (/1F) p P EJECT * P* 8 P* B P* L P* V P*********** ` P* ENTRIES * t P*********** P* P* P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHODY DEVICE-DEPENDENT ECH
0x0cbc68…0cbdfc Dummy {f00=0x0035, f01=0x0190, f02=»TRIES * t . P***************************************** P* H P* R $ P EXTRN DISIOE I/O REQUEST ERROR . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND
0x0cbdfc…0cbf90 Dummy {f00=0x0035, f01=0x0190, f02=»CHO h 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJECT @ P* N P************************ X P* DWT PARAMETERS * x P************************ P* P EXTRN DWTST STATUS P EXTRN DWTOR ORDER P* $ P******
0x0cbf90…0cc124 Dummy {f00=0x0035, f01=0x0190, f02=» BYTE COUNTER ( PDWTAP EQU /22 HEAD POSITION POINTER PDWTPOS EQU /25 POSITIONS B PDWTLIN EQU /24 LINES b P* ~ P EJECT P************* P* CONSTANTS * P************* P* PFASTO EQU /14 FAST OUTPUT $ PSCAD
0x0cc124…0cc2b8 Dummy {f00=0x0035, f01=0x0190, f02=»SITY START x & PLISTOP EQU /1F LOW INTENSITY STOP PBACKSP EQU /08 BACKSPACE < PLF EQU /0A LINE FEED PHOME EQU /0B CURSOR HOME x ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT
0x0cc2b8…0cc44c Dummy {f00=0x0035, f01=0x0190, f02=» EQU /12 RETURN TO ALPHANUMERIC MODE * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE , " PPOINT EQU /2E POINT CHARACTER Z 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT PSTILL EQU /18 CURSOR STEADY P* P******************** P* RET
0x0cc44c…0cc5e0 Dummy {f00=0x0035, f01=0x0190, f02=» P* P EJECT P* P* & . P***************************************** 0 . P* CONDITIONAL ASSEMBLY * b . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRA
0x0cc5e0…0cc774 (0, 259) Dummy {f00=0x0036, f01=0x0190, f02=»PTS 6344 ` P* PX:B EQU 1 PWHATDY EQU 0 , P* @ P* J 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR T & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 0 PLOWCHA EQU 0 P* P* 8 P* BY MEANS OF CON
0x0cc774…0cc908 Dummy {f00=0x0036, f01=0x0190, f02=» CONSTANT X:G=0 l P* PX:D EQU 0 " PEORECH EQU 0 4 P* H 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS R @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 PTRASPA EQU 1 P EJECT P
0x0cc908…0cca9c Dummy {f00=0x0036, f01=0x0190, f02=» P EJECT P* P* P********** * P* TABLES * < P********** N P* ` P* j P* t PDYAD EQU * ADDRESS BLOCK ~ P DATA ACDY ACTIVATION DRIVER P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE .
0x0cca9c…0ccc30 Dummy {f00=0x0036, f01=0x0190, f02=»E,/1F14 P EJECT P* P* A C D Y ( P* < * P* ACDY = ACTIVATION DRIVER DISPLAY F P* t H P* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE ~ 2 P* IS SET IF DISPLAY NOT OPERABLE P*
0x0ccc30…0ccdc4 Dummy {f00=0x0036, f01=0x0190, f02=»* F P* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. T P* L P* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND E
0x0ccdc4…0ccf58 Dummy {f00=0x0036, f01=0x0190, f02=» IFT GRAFIC=1 B P* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED @ P* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER * P* IS SENT TO THE DISPLAY. P* P XIF : P* ORDER /B: CURSOR POSITIONING AN
0x0ccf58…0cd0ec Dummy {f00=0x0036, f01=0x0190, f02=» ON DISPLAY b @ P* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) P* IS EXECUTED. X P* | < P* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P*
0x0cd0ec…0cd280 Dummy {f00=0x0036, f01=0x0190, f02=» IN THE CURSOR POSITION. THE CURSOR RE- * P* MAINS IN THAT POSITION. < PACDY EQU * j P LDK A3,0 START BUFFER INDEX | P LDK A4,0 COUNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES P LDK A2,STX START OF MES
0x0cd280…0cd414 (0, 260) Dummy {f00=0x0036, f01=0x0190, f02=»F(E) ACDY02 NO P IFT GRAFIC=1 P CWK A7,7 ORDER ' ? , P ABL(E) ADY500 H P XIF ^ P IFT WHATDY=0 j . P LDK A2,/12 INDICATE SWITCH TO ALPHA MODE P CF A5,OUTPUT P* P XIF P* PACDY02 EQU * P CWK A7,5 OR
0x0cd414…0cd5a8 Dummy {f00=0x0036, f01=0x0190, f02=» YES P SUK A7,/26 ORDER ERASE ? P ABL(E) ADY160 YES . P* H & PDYERR ABL DISIOE I/O REQUEST ERROR R P EJECT | : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF P
0x0cd5a8…0cd73c Dummy {f00=0x0036, f01=0x0190, f02=» VALUE CR, LF P* PACDY20 EQU * " $ P LD A2,4,A8 GET REQUESTED LENGTH 6 P RF(E) ACDY25 ^ P LDK A3,2 START BUFFER INDEX t " P LD A2,2,A8 GET BUFFER ADDRESS & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF PACDY25 EQU *
0x0cd73c…0cd8d0 Dummy {f00=0x0036, f01=0x0190, f02=»CATE LINE FEED " P ADK A2,1 DOUBLE LINE FEEED ? P RF(NE) ACDY30 < ( P ADK A4,1 INDICATE DOUBLE LINE FEED R P ~ P $ PACDY30 LDK A2,CR CARRIAGE RETURN PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P*
0x0cd8d0…0cda64 Dummy {f00=0x0036, f01=0x0190, f02=»1 & P RF(N) ACDY90 START SECTION ENDED? P LC A1,DWTLIN,A6 LINES 4 P CC A1,DWTAP,A6 LAST LINE ? R P RF(L) ACDY55 v ( P LDKL A2,/100 INCREMENT LINE COUNTER P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND P RB ACDY50
0x0cda64…0cdbf8 Dummy {f00=0x0036, f01=0x0190, f02=» P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) 8 P* Z PACDY70 EQU * d P IFT WHATDY=0 x & P LDR* A4,A6 GET CHANNEL PARAMETER P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 P XIF P LD A4,2
0x0cdbf8…0cdd8c Dummy {f00=0x0036, f01=0x018e, f02=»75 EQU * P CF A5,OUTPUT 2 PACDY80 CF A15,POSUPD POSITION COUNTER UPDATING & P IFT TRASPA=1 ( P LD A1,2,A8 GET BUFFER ADDRESS (BA) r ( P LD A2,4,A8 GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2
0x0cdd8c…0cdf20 Dummy {f00=0x0036, f01=0x0190, f02=» | PSKIP07 SUK A2,1 DECR RL P RB SKIP05 GET NEXT ( PSKIP20 CWK A2,4 D P RF(NG) SKIP30 RL < 5 P LC A4,-2,A1 GET CHAR z $ P CCK A4,/1111 TABULATION CHAR ? P RF(NE) SKIP25 NO! P SUK A1,2 DECR BA P SUK A2,2 DECR RL
0x0cdf20…0ce0b4 (0, 261) Dummy {f00=0x0036, f01=0x018e, f02=» RB(Z) SKIP07 YES! SKIP IT! P SUK A4,/C LOW INT. START? $ P RB(Z) SKIP07 YES! F P SUK A4,1 LOW INT. STOP? ` P RB(Z) SKIP07 YES! P* " PSKIP30 ST A2,4,A8 STORE NEW RL P XIF PACDY90 LDK A4,0 6 PADY100 CF A15,GETCHR GET C
0x0ce0b4…0ce248 Dummy {f00=0x0036, f01=0x018e, f02=» P ANK A2,/7F P LDK A1,5 SET TABLE POINTER " P CC A2,TABSPE,A1 FAST OUTPUT? < P RF(E) ADY125 b P SUK A1,1 NO! x " P LDR* A7,A6 CHANNEL PARAMETER P ANK A7,/30 GRAFIC DISPLAY ? P RF(E) ADY110 NO P LDK A1,0 SET TABLE PONT
0x0ce248…0ce3dc Dummy {f00=0x0036, f01=0x0190, f02=» | P LDK A4,/80 , PADY120 ORRS A4,A6 SET LOW INTENSITY MODE P LDK A4,0 L P RB ACDY50 ^ $ PADY122 CCK A2,/1212 UNDERLINE ? p P RF(NE) ADY125 " P LDK A4,/40 SET UNDERLINE MODE P RB ADY120 & PADY125 CCK A2,/1414 FAST OUTPUT ?
0x0ce3dc…0ce570 Dummy {f00=0x0036, f01=0x0190, f02=» A2,A4 P LD A4,4,A8 REQ LENGTH ! P SUR A4,A3 NUMBER OF CHARS ! , P RF(Z) ADY127 NONE ! N P* ! h P IFT WHATDY=0 ! r & P LDR* A7,A6 GET CHANNEL PARAMETER ! P ANK A7,/10 ! 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? ! P XIF ! P
0x0ce570…0ce704 Dummy {f00=0x0036, f01=0x0190, f02=» ! PADY128 EQU * " P SUK A1,1 GET NEXT " P RB(NN) ADY110 NOT AT END " 6 P LDR A1,A2 MOVE CHARACTER " X P SUK A1,/11 TAB CHAR? (11) " z P RF(E) ADY140 " P SUK A1,/F LESS THAN /20 ? " " P RF(N) ADY130 CODE CHECK ERROR " P SUK A1,/3F
0x0ce704…0ce898 Dummy {f00=0x0036, f01=0x0190, f02=»ACTER BETWEEN /40 TO /5F " P XIF # P RB ACDY70 # , P* # > P* # H P IFT WHATDY=0 # R POTHER EQU * # h P************************ # | P* A3 = INDEX # P* A1 = CHARACTER # P* A4 = NUMBER # P************************ # P LC A2,DWT
0x0ce898…0cea2c Dummy {f00=0x0036, f01=0x0190, f02=»OS AND # v P ANK A3,/FF $ P ST A4,10,A8 SAVE LENGTH $ " P SUR A3,A2 COMPARE $ B P RF(NN) OT030 LENGTH OK $ P ADR A4,A3 $ | P ST A4,10,A8 SAVE LENGTH $ 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS $ POT030 EQU * $ & P LDR A3,A1 SAVE CH
0x0cea2c…0cebc0 Dummy {f00=0x0036, f01=0x018e, f02=» $ P LD A4,10,A8 GET ACT. LENGTH % POT040 LDK A2,BACKSP % , P CF A5,OUTPUT SENDBACKSPACE % H P SUK A4,1 DECREMENT LENGTH % l P RB(P) OT040 % P RB ADY127 % P XIF % P EJECT % P* % P* CODE CHECK ERROR % P* % PADY130 E
0x0cebc0…0ced54 (0, 262) Dummy {f00=0x0036, f01=0x0190, f02=» % PADY140 EQU * & , P CF A15,GETCHR GET FIRST ASCII CHARACTER & P LDR A4,A2 & L . P CF A15,GETCHR GET SECOND ASCII CHARACTER & ^ P ANK A2,/F & P ANK A4,/F & P RF(E) ADY144 & 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL & P SUK A4,1
0x0ced54…0ceee8 Dummy {f00=0x0036, f01=0x0190, f02=» SUR A2,A4 AND REQUESTS POSITION COUNTER & & P TO GET NUMBER OF SPACES TO SEND ' 0 P RB(NP) ADY100 ' Z P LDR A4,A2 ' p & PADY145 LDK A2,CURRIG CURSOR RIGHT ' PADY146 CF A5,OUTPUT ' , P CF A15,POSUPD POSITION COUNTER UPDATING ' P SUK A4,1 READY
0x0ceee8…0cf07c Dummy {f00=0x0036, f01=0x0190, f02=»A8 GET NUMBER OF CHAR TO ERASE ' P IFT WHATDY=0 ( & " P LDR* A1,A6 CHANNEL PARAMETER ( < P ANK A1,/10 GRAFIC DISPLAY? ( b P RF(NE) ADY170 YES ( P XIF ( P LDK A3,/20 ( P CF A5,FASTER FAST OUTPUT ( PADY165 LDK A2,ETB ( P CF A5,OUTPU
0x0cf07c…0cf210 Dummy {f00=0x0036, f01=0x0190, f02=»READY ( | * P CWK A4,/24 REQ LENGTH > 36 ********** ) * P RB(G) ADY170 YES EV 781205 ********** ) < P LDK A2,/20 SPACE ) j P CF A5,OUTPUT SEND IT ) P RB ADY170 ) PADY180 LD A4,10,A8 ) P AD A4,DWTAP,A6 ) P ANK A4,/FF ) P LC A3,DWTPOS,
0x0cf210…0cf3a4 Dummy {f00=0x0036, f01=0x0190, f02=»B(N) ADY165 CURSOR IN ORIGIN POSITION ) P LDK A2,BACKSP CURSOR LEFT * . P CF A5,OUTPUT SEND IT * P P RB ADY186 AGAIN * n PADY190 EQU * * P LD A4,DWTAP,A6 * P ANK A4,/FF * P SUR A3,A4 * P RB ADY186 * P XIF * P EJECT * P* *
0x0cf3a4…0cf538 Dummy {f00=0x0036, f01=0x0190, f02=»RAMETER * z P ANK A1,/10 GRAFIC DISPLAY? + P RF(NE) ADY205 YES + 4 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT + N P XIF + * P LD A4,10,A8 GET REQUESTED CURSOR POS + . P ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER + P CF A5,CURPOS SET CURSOR
0x0cf538…0cf6cc Dummy {f00=0x0036, f01=0x0190, f02=»SIDE SCREEN? + | P RF(NG) ADY207 NO! , 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE , . PADY207 EQU * , f $ P LC A3,DWTAP,A6 GET ACTUAL LINE , z PADY210 CWR A4,A3 , . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL , P RF(E) ADY300 SAME LINE ,
0x0cf6cc…0cf860 Dummy {f00=0x0036, f01=0x0190, f02=» , v " P RB(NZ) ADY210 NOT EQUAL ZERO - P LDK A4,1 - . P RF ADY300 - @ PADY250 LDK A2,HOME HOME - R & P LDK A3,1 RESET ACTUAL LINE NUMBER - r " P ST A3,DWTAP,A6 RESET POSITION - P RB ADY230 - P* - P* GET POSITION - P* - 2 PADY300
0x0cf860…0cf9f4 (0, 263) Dummy {f00=0x0037, f01=0x018e, f02=»NG) ADY303 NO! - " P LC A4,DWTPOS,A6 SET LAST LINE . PADY303 EQU * . < P CWK A4,1 FIRST POSITION ? . P P RF(NE) ADY305 NO . r P CWR A4,A3 FIRST LINE ? . P RF(NE) ADY305 NO . P LDK A2,HOME CURSOR GO HOME . P RF ADY330 . * PADY305 RF(NL
0x0cf9f4…0cfb88 Dummy {f00=0x0037, f01=0x0190, f02=» P RF(NG) ADY310 NO! / P SUK A3,1 / * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS / 0 P RF(E) ADY370 POSITION FOUND / ^ P RF(N) ADY340 BACK / P LDK A2,CURRIG CURSOR RIGHT / & P ADK A3,1 UPDATE POSITION COUNTER / PADY330 CF A5,OUTPUT SEND /
0x0cfb88…0cfd1c Dummy {f00=0x0037, f01=0x0190, f02=»SPACE WAY / ~ P LDK A2,CR CARRIAGE RETURN 0 & P LDK A3,1 INDICATE FIRST POSITION 0 4 P RB ADY330 0 ^ " PADY345 LDK A2,BACKSP BACKSPACE 0 p P CF A5,OUTPUT SEND 0 P SUK A3,1 LAST BACKSPACE ? 0 P RB(NE) ADY345 0 8 PADY370 SC A4,DWTAP+1,A6 UPDATE H
0x0cfd1c…0cfeb0 Dummy {f00=0x0037, f01=0x018e, f02=»Y400 LDK A2,/22 START CHARACTER 0 P CF A5,OUTPUT 1 ( P* 1 > P XIF 1 H P* 1 T P EJECT 1 ^ P* 1 l P* 1 v 8 P* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL 1 4 P* WORD, LOAD A1 WITH RETURN CODE AND END I/0. 1 P* 1 PADY405 EQU
0x0cfeb0…0d0044 Dummy {f00=0x0037, f01=0x0190, f02=» 1 P ANK A1,/40 UNDERLINE MODE ? 2 P RF(E) ADY406 NO 2 , " P LDK A2,ULSTOP UNDERLINE STOP 2 D P CF A5,OUTPUT 2 j * PADY406 ANK A4,/80 LOW INTENSITY MODE ? 2 P RF(E) ADY407 2 & P LDK A2,LISTOP LOW INTENSITY STOP 2 P CF A5,OUTPUT 2 PADY4
0x0d0044…0d01d8 Dummy {f00=0x0037, f01=0x0190, f02=» 2 d PADY410 LDK A2,ETX LAST DUMMY 3 P CF A5,OUTPUT SEND DUMMY 3 , PADY415 EQU * 3 L P SUK A7,5 ORDER 5 ? 3 ` P RF(NE) ADY420 3 | P LDKL A4,/101 HOME POSITION 3 P ST A4,DWTAP,A6 3 , PADY420 LD A4,DWTAP,A6 GET CURSOR POINTER 3 * P ST A4,10,
0x0d01d8…0d036c Dummy {f00=0x0037, f01=0x018e, f02=» 3 P* 4 P EJECT 4 P* 4 P* GRAPHIC PART 4 * P* 4 D PADY500 EQU * 4 N P LDK A2,/11 4 b ( P CF A5,OUTPUT SWITCH TO GRAFIC MODE 4 v & PADY510 CF A15,GETCHR GET CHARACTER 4 P LDR A1,A1 BUFFER EMPTY 4 P RB(E) ADY400 4 P LDR A
0x0d036c…0d0500 Dummy {f00=0x0037, f01=0x0190, f02=» 4 t P* 5 P* ADDRESS MESSAGE 5 P* 5 . P* SET FIRST OUT PUT IN A2 5 8 P* AND SECOND IN A4 5 P* 5 z P SLL A1,4 5 P LDR A4,A2 5 P SRL A4,4 5 P ORR A4,A1 5 P ANK A2,/F 5 P ANK A4,/7F 5 P ORK A2,/20 5 , PAD
0x0d0500…0d0694 (0, 264) Dummy {f00=0x0037, f01=0x0190, f02=»Y510 5 P EJECT 6 P* 6 P* DATA MESSAGE 6 $ P* 6 > " P* FIRST OUTPUT IS SET IN A2 6 H P* AND SECOND IN A4 6 n P* 6 PADY530 SLL A1,13 6 P LDR A4,A2 6 P SLL A2,5 6 P ORR A1,A2 6 P LDK A7,10 6 P LDK A2,0 6 P
0x0d0694…0d0828 Dummy {f00=0x0037, f01=0x0190, f02=»ADY540 6 PADY560 LDR A4,A2 7 P SRL A4,4 7 & P ANK A4,/3F 7 8 P ANK A2,/F 7 L P ORK A2,/60 7 ^ P RB ADY515 7 r P* 7 P XIF 7 P* 7 P EJECT 7 P* 7 , P* UPDAPP = SUBROUTINE TO UPDATE HEAD 7 , P* POSITION POINT
0x0d0828…0d09bc Dummy {f00=0x0037, f01=0x0190, f02=»DWTAP,A6 UPDATE HEAD POSITION POINTER 7 P LDK A3,0 8 . , P SC A3,DWTBC,A6 RESET POSITION COUNTER 8 @ P RTN A15 8 p P* 8 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION 8 0 P* POINTER WHEN REQUEST RUNNING. 8 > P* A
0x0d09bc…0d0b50 Dummy {f00=0x0037, f01=0x0190, f02=» 8 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER 9 P ANK A2,/FF 9 > " P CC A2,DWTPOS,A6 END OF ROW ? 9 R P RF(P) POSU10 9 x , P IM DWTST,A6 INCREMENT POSITION COUNTER 9 PPOSU10 RTN A15 9 P EJECT 9 P* 9 P* I H D Y 9 P* 9
0x0d0b50…0d0ce4 Dummy {f00=0x0037, f01=0x0190, f02=»F(N) IHDY10 9 . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? : P RB(NE) ADY420 YES : F 4 PIHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 : ` P EJECT : P* : P* R C D Y : P* : ( P* RCDY = RECOVERY ROUTINE DISPLAY : P* : P* :
0x0d0ce4…0d0e78 Dummy {f00=0x0037, f01=0x0190, f02=»T-ADDRESS : P* A7 = ORDER ; P* A8 = ECB-ADDRESS ; * PRCDY EQU * ; H , P CF A15,SAVE8 SAVE 8 REGISTERS ON STACK ; Z $ P LD A3,DWTST,A6 SAVE STATUS WORD ; P LDKL A2,/7FFF ; P ANS A2,DWTST,A6 SET BUSY ; P IFT STEADY-WHATDY=1 ; " P L
0x0d0e78…0d100c Dummy {f00=0x0037, f01=0x0190, f02=»F A5,OUTPUT ; PRCDY05 EQU * < P XIF < ( P* < 4 P IFT WHATDY=0 < > P* < T " P LDR* A2,A6 CHANNEL PARAMETER < ^ " P ANK A2,/10 GRAPHIC DISPLAY ? < P RF(E) RCDY10 NO < . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE < P CF A5,OUTPUT <
0x0d100c…0d11a0 Dummy {f00=0x0037, f01=0x0190, f02=»RC-ERROR IN BLOCK ? < P RF(NE) RCDY20 = " P LDK A2,CLEHOM CLEAR AND HOME = 2 P CF A5,OUTPUT SEND = X P LDKL A2,/101 = r 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER = P LDR A3,A3 GET OLD STATUS = P RB(N) ENDIO NOT BUSY = " P LDK A
0x0d11a0…0d1334 (0, 265) Dummy {f00=0x0037, f01=0x0190, f02=»RCDY20 EQU * = P SUK A7,5 ORDER 5 ? > P RF(NE) RCDY25 NO > 0 ( P LDK A1,2 INDICATE THROUGHPUT ERROR > J P RB RCDY15 > v & PRCDY25 LDK A2,STX START OF MESSAGE > P CF A5,OUTPUT > 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK > P ANK A4,
0x0d1334…0d14c8 Dummy {f00=0x0037, f01=0x018e, f02=»0 > P EJECT ? P* ? P* E C H O D Y ? " P* ? : 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE ? D P* ? x PECHODY EQU * ? P LDR A7,A7 EOR? ? P RF(N) ECDY17 YES ? P LDR A3,A2 SAVE CHARACTER ? P* ? P IFT EORECH=0 ?
0x0d14c8…0d165c Dummy {f00=0x0037, f01=0x018e, f02=» ? P RF(E) ECDY40 BACKSPACE @ P SUK A3,/10 @ ( P RF(E) ECDY50 CLEAR @ < & PECDY10 CF A5,OUTPUT SEND CHARACTER @ X , P CF A15,POSUPD POSITION COUNTER UPDATING @ P RF ECDY20 @ 4 PECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER @ ( PECDY20 ABL E
0x0d165c…0d17f0 Dummy {f00=0x0037, f01=0x0190, f02=» P ANK A4,/FF A P RB(E) ECDY20 FIRST POSITION A $ P LDK A4,1 INDICATE ONE BACKSTEP A < P CF A5,BACCAN BACK A d P RB ECDY20 A ~ P EJECT A P* A P* CLEAR A P* A PECDY50 EQU * A ( P LC A4,DWTBC,A6 GET POSITION COUNTER A P ANK
0x0d17f0…0d1984 Dummy {f00=0x0037, f01=0x0190, f02=»ISPLAY A | P RF(E) ECDY60 N B P CF A5,BACCAN BACK B & P RB ECDY20 B @ P XIF B R * PECDY60 LDR A3,A4 SAVE POSITION COUNTER B ^ 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER B P CF A5,CURPOS SET CURSOR B P LDR A4,A3 GET POS COUNTER B P
0x0d1984…0d1b18 Dummy {f00=0x0037, f01=0x0190, f02=»ON COUNTER B t P RB ECDY20 C P EJECT C $ P* C 2 P* C < 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR C F 0 P* AT THE PLACE BEFORE REQUEST IF C z 0 P* CLEAR OR BACKWARDS ONE STEP IF C P* BACKSPACE. C P* C
0x0d1b18…0d1cac Dummy {f00=0x0037, f01=0x0190, f02=»ION COUNTER C r P ANK A2,/FF D " P CC A2,DWTPOS,A6 LAST POSITION D ( P RF(NP) BACA10 NO D N $ P LDK A2,SPACE DESTRUCTIVE SPACE D h P RF BACA20 D " PBACA10 LDK A2,BACKSP BACKSPACE D P CF A5,OUTPUT SEND D $ P LDK A2,SPACE DESTRUCTIVE SPACE D
0x0d1cac…0d1e40 Dummy {f00=0x0037, f01=0x0190, f02=» A3,A3 NEGATE REGISTER D , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER E P RTN A5 E N P EJECT E ^ 4 P*********************************************** E l 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * E 4 P* ORDER TO GET A REASON FOR USING
0x0d1e40…0d1fd4 (0, 266) Dummy {f00=0x0049, f01=0x0190, f02=»*********************************** E PCHECK EQU * F , P* F @ P* F J P LD A1,4,A8 F T P SUR A1,A3 END OF BUFFER? F h P ABL(NP) ACDY75 YES! F , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) F ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX F P LDK A
0x0d1fd4…0d2168 Dummy {f00=0x0049, f01=0x018e, f02=»EMENT POINTER F $ P CCR A7,A2 CHAR EQU TO PREVIUS? G P RB(E) NEXT YES! G > POUT EQU * G V 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? G h P RF(L) NOFAST NO! G & P********************************** G & P* UPDATE ACTUAL POSITION POINTER *
0x0d2168…0d22fc Dummy {f00=0x0049, f01=0x018e, f02=» P ST A3,10,A8 SAVE INDEX H 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE H $ P SUR A3,A2 AND COMPARE H X P SUR A3,A4 H v P RF(NN) HIT H P ADR A4,A3 H P ADK A4,1 H ( PHIT ADS A4,DWTST,A6 UPDATE POSITION H P*********************** H
0x0d22fc…0d2490 Dummy {f00=0x0049, f01=0x018e, f02=» " P LD A4,DWTST,A6 GET ACTUAL POS I P ANK A4,/FF I * ( P AD A4,DWTAP,A6 INC HEAD POS POINTER I > P CF A5,CURPOS I j " P***************************** I " P* RESTORE A3 (BUFFER INDEX) * I & P LD A3,10,A8 RESTORE BUFFER INDEX I P SUK A3,1 I P
0x0d2490…0d2624 Dummy {f00=0x0049, f01=0x0190, f02=» P* J < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT J 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS J N P* J PFASTER EQU * J P CWK A4,/60 J . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG J P LDK A4,/59 J PFAS010 EQU
0x0d2624…0d27b8 Dummy {f00=0x0049, f01=0x0190, f02=»A5,OUTPUT SEND J P LDR A2,A3 K P CF A5,OUTPUT SEND K ( P RTN A5 K B P EJECT K R P* K ` P* K j * P* CURPOS = SUBROUTINE TO SET CURSOR K t > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) K P* K PCURPOS EQU * K P ADKL
0x0d27b8…0d294c Dummy {f00=0x0049, f01=0x4160, f02=»NN) CURR05 YES! K P LCK A4,/7F00 L PCURR05 EQU * L . P LDR A2,A4 L B & P CF A5,OUTPUT OUTPUT POSITION (X) L T P LDR A2,A4 L ~ P RF(NN) CURR10 Y < /80! L P LDK A2,/7F L P RF CURR15 L PCURR10 EQU * L P SRL A2,8 SHIFT RIGHT L P
0x0d294c…0d2ae0 Dummy {f00=0x0049, f01=0x2008, f02=» M NE) BACA10 7 P NGR A3,A3 NEGATE REGISTER 7 , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER 7 < P RTN A5 7 l P END 7 |@ 7 6 t P* 6 PBACCAN EQU * 6 P LDR A3,A4 6 " PBACA10 LDK A2,BACKSP BACKSPACE 6 P CF A5,OUTPUT SEND 6 $ P LDK
0x0d2ae0…0d2c74 (0, 267) Dummy {f00=0x004c, f01=0x40c2, f02=» P DATA 0,0,0,0 ^ * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO ^ P DATA 0,0,0,0 ^ H . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR ^ ^ P DATA 0,0,0,0 ^ P XIF ^ P END ^ @ ^
0x0d2c74…0d2e08 Dummy {f00=0x004c, f01=0x2008, f02=» _ END @
0x0d2e08…0d2f9c Dummy {f00=0x004c, f01=0x018e, f02=» COMPARE G P SUR A3,A4 H P RF(NN) HIT H " P ADR A4,A3 H 6 P ADK A4,1 H H ( PHIT ADS A4,DWTST,A6 UPDATE POSITION H Z P*********************** H P* EXECUTE FAST OUTPUT * H P LDR A3,A7 GET CHAR TO SEND H P CF A5,FASTER H P********
0x0d2f9c…0d3130 Dummy {f00=0x004c, f01=0x0190, f02=» P CF A5,CURPOS I " P***************************** I " P* RESTORE A3 (BUFFER INDEX) * I @ & P LD A3,10,A8 RESTORE BUFFER INDEX I f P SUK A3,1 I P ABL ACDY90 READ NEXT CHAR I P* I . PNOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER I P ABL ACD
0x0d3130…0d32c4 Dummy {f00=0x004c, f01=0x018e, f02=»= NUMBER OF CHARACTERS I v P* J PFASTER EQU * J ( P CWK A4,/60 J < . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG J P P LDK A4,/59 J PFAS010 EQU * J P ADK A4,/20 ADD CONSTANT J P LDK A2,FASTO FAST OUTPUT J P CF A5,OUTPUT SEND J P L
0x0d32c4…0d3458 Dummy {f00=0x004c, f01=0x0190, f02=» P* K * P* CURPOS = SUBROUTINE TO SET CURSOR K > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) K < P* K ~ PCURPOS EQU * K P ADKL A4,/1F1F CONVERT K P LDK A2,SCADD SET CURSOR K P CF A5,OUTPUT SEND K P ECR A2,A4 POS. X <
0x0d3458…0d35ec Dummy {f00=0x004c, f01=0x40fa, f02=»UT POSITION (X) K ~ P LDR A2,A4 L P RF(NN) CURR10 Y < /80! L * P LDK A2,/7F L J P RF CURR15 L ^ PCURR10 EQU * L p P SRL A2,8 SHIFT RIGHT L PCURR15 EQU * L P CF A5,OUTPUT OUTPUT LINE(Y) L P RTN A5 L P END L @ L 2,A4 POS. X <
0x0d35ec…0d3780 Dummy {f00=0x004c, f01=0x2008, f02=» M NE) BACA10 7 P NGR A3,A3 NEGATE REGISTER 7 , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER 7 < P RTN A5 7 l P END 7 |@ 7 6 t P* 6 PBACCAN EQU * 6 P LDR A3,A4 6 " PBACA10 LDK A2,BACKSP BACKSPACE 6 P CF A5,OUTPUT SEND 6 $ P LDK
0x0d3780…0d3914 (0, 268) Opaque[0x194]
0x0d3914…0d3aa8 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0700, f03=0x0000}
0x0d3914…0d3aa8 IdxSect {
0x0d3914…0d3aa8 f00 = 0x0038 // 0xd3914 @0x0
0x0d3914…0d3aa8 f01 = 0x0016 // 0xd3916 @0x2
0x0d3914…0d3aa8 gno = [ // 0xd3918 @0x4
0x0d3914…0d3aa8 [0x00]: C0x0038.0x0.0
0x0d3914…0d3aa8 [0x01]: C0x0038.0x1.0
0x0d3914…0d3aa8 [0x02]: C0x0038.0x2.0
0x0d3914…0d3aa8 [0x03]: C0x0038.0x3.0
0x0d3914…0d3aa8 [0x04]: C0x0039.0x0.0
0x0d3914…0d3aa8 [0x05]: C0x0039.0x1.0
0x0d3914…0d3aa8 [0x06]: C0x0039.0x2.0
0x0d3914…0d3aa8 [0x07]: C0x0039.0x3.0
0x0d3914…0d3aa8 [0x08]: C0x003a.0x0.0
0x0d3914…0d3aa8 [0x09]: C0x003a.0x1.0
0x0d3914…0d3aa8 [0x0a]: C0x003a.0x2.0
0x0d3914…0d3aa8 ]
0x0d3914…0d3aa8 }
0x0d3aa8…0d3c3c Dummy {f00=0x0038, f01=0x0190, f02=» 2 P IDENT DRLT01 REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DRLT01 = DRIVER CHANNEL UNIT $ P* FOR LOCAL TERMINA
0x0d3c3c…0d3dd0 Dummy {f00=0x0038, f01=0x0190, f02=»THE CHANNEL UNIT DRIVER FOR LOCAL TERMINALS. B P* AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. IF DATA 4 D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER z P* FOR ACTUAL DEVICE. D P* IF CONTROL CHARACTER, THIS IS EXAMIN
0x0d3dd0…0d3f64 Dummy {f00=0x0038, f01=0x0190, f02=» . P* - OUTLIN SEND ONE CHARACTER VIA CHLT P* : < P* - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM D P* 4 P* - GETCHR GET ONE CHARACTER FROM ECB-BUFFER P* 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE P*
0x0d3f64…0d40f8 Dummy {f00=0x0038, f01=0x0190, f02=»R:- V P* J P* - OUTPUT SEND ONE CHARACTER, SAVE A3-A5 AND RETURN TO DISPATCHER P* d 6 P* - STREG SAVE A3-A5 AND RETURN TO DISPATCHER n P* D P* - LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN " P*
0x0d40f8…0d428c Dummy {f00=0x0038, f01=0x018e, f02=» REGISTER USAGE IN THE DRIVER:- P* ( P* A1 = RETURN CODE 2 P* A2 = INPUT WORD N P* A3 = LINE NUMBER * 2 j P* A4 = DEVICE NUMBER * 2 P* A5 = CWT-ADDRESS P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-A
0x0d428c…0d4420 Dummy {f00=0x0038, f01=0x0190, f02=» P* & P ENTRY CHLT1 INTERRUPT FROM CHLT01 & P ENTRY CHLT2 INTERRUPT FROM CHLT2 8 & P ENTRY CHLT3 INTERRUPT FROM CHLT3 b $ P ENTRY CHLT4 INTERRUP FROM CHLT4 $ P ENTRY OUTLIN SEND ONE CHARACTER P ENTRY CHLTON START OF CHLT : P ENTRY O
0x0d4420…0d45b4 (0, 269) Dummy {f00=0x0038, f01=0x0190, f02=»ING j P ENTRY LDREGF RETURN , P ENTRY STREG SAVE REGISTERS A3-A5 IN DWT ( 4 P ENTRY GETCHR GET ONE CHARACTER FROM ECB-BUFFER X 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS * P ENTRY CWTLT1 CO
0x0d45b4…0d4748 Dummy {f00=0x0038, f01=0x018e, f02=»CONTROL WORK TABLE CHLT4 * P ENTRY CWTRT1 DUMMY ENTRIES FOR REMOTE P ENTRY CWTRT2 N P ENTRY CWTRT3 d P ENTRY CWTRT4 z P ENTRY CWTRT5 P ENTRY CWTRT6 P ENTRY CWTRT7 P ENTRY CWTRT8 P ENTRY REMFC DUMMY ENTRY P
0x0d4748…0d48dc Dummy {f00=0x0038, f01=0x0190, f02=» P* P EJECT P* . P****************************************** & . P* EXTERNAL TOSS MODULE ENTRIES * X . P****************************************** P* P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP D
0x0d48dc…0d4a70 Dummy {f00=0x0038, f01=0x018e, f02=» INTLT3 INTERRUPT TABLE " P EXTRN INTLT4 INTERRUPT TABLE " P EXTRN SETIME GET TIMER BLOCK F " P EXTRN SETIMP GET TIMER BLOCK l * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P EXTRN TENDIO P EXTRN RTNA15 RETURN AND ENB P* P*
0x0d4a70…0d4c04 Dummy {f00=0x0038, f01=0x018e, f02=» P EXTRN DWTST STATUS P EXTRN DWTOR ORDER P EXTRN DWTECB ECB-ADDRESS : * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK P EXTRN DWTWAT P* P EJECT P P* P************* P* CONSTANTS * P*************
0x0d4c04…0d4d98 Dummy {f00=0x0038, f01=0x0190, f02=» P* . P* DISPLACMENT IN DEVICE WORK TABLE DWT P* @ ( PDWTOCH EQU /6 LAST OUTPUT CHARACTER J $ PDWTOTQ EQU /10 OUTPUT QUEUE LINK v PDWTA3 EQU /12 SAVE AREA A3 PDWTA4 EQU /14 A4 PDWTA5 EQU /16 A5 PDWTS
0x0d4d98…0d4f2c Dummy {f00=0x0038, f01=0x0190, f02=»************************ P* CONDITIONAL ASSEMBLY * P************************ @ P* ` < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER j 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 P* PX:A EQU 1 PLOGING
0x0d4f2c…0d50c0 Dummy {f00=0x0038, f01=0x0190, f02=» PX:B EQU 1 PLOCHAN EQU 1 P* * 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND 4 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN p 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0.
0x0d50c0…0d5254 (0, 270) Dummy {f00=0x0038, f01=0x018e, f02=»ATA REQUESTS FROM PRINTERS CAN BE INCLUDED P* IN THE DRIVER. 2 < P* AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE N * P* TIME OUT OCCURS IS ALSO INCLUDED. P* PX:D EQU 1 PSOFTIM EQU 0 P* P* ( P* EC
0x0d5254…0d53e8 Dummy {f00=0x0038, f01=0x0190, f02=» P PRECHAN EQU 0 PREMFC EQU 0 PCWTRT1 EQU * 4 PCWTRT2 EQU * H PCWTRT3 EQU * PCWTRT4 EQU * p PCWTRT5 EQU * PCWTRT6 EQU * PCWTRT7 EQU * PCWTRT8 EQU * PDWREMU EQU * P EJECT P* P* :
0x0d53e8…0d557c Dummy {f00=0x0038, f01=0x0190, f02=»******************************************* P* 4 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 > P* v P* PDWA1 EQU /03 DEVICEADDRESS P* PCWTLT1 EQU * TABLE ENTRY 0 PCWTLDW EQU *-CWTLT1 LAST OUTPUT DWT-ADDRESS
0x0d557c…0d5710 Dummy {f00=0x0038, f01=0x0190, f02=» PCWTINR EQU *-CWTLT1 INR P INR A2,0,DWA1 ( PCWTOTR EQU *-CWTLT1 OTR > P OTR A2,0,DWA1 ^ " PCWTCIS EQU *-CWTLT1 CIO-START t P CIO A2,1,DWA1 PCWTRTC EQU *-CWTLT1 " P DATA 0 RETRANSMISSION COUNTER $ PCWTEQ EQU *-CWTLT1 END
0x0d5710…0d58a4 Dummy {f00=0x0038, f01=0x018e, f02=» DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ( PACKTIM EQU *-CWTLT1 X ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR t P* P XIF P EJECT P* P* : P************************************************
0x0d58a4…0d5a38 Dummy {f00=0x0038, f01=0x0190, f02=» P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 P* F PCWTLT2 EQU * P P* d P IFT LOCHAN=2 n PDWA2 EQU /13 DEVICE ADDRESS P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD P DATA INTLT2 I
0x0d5a38…0d5bcc Dummy {f00=0x0038, f01=0x0190, f02=» r P DATA 0 END OF QUEUE P* $ P IFT ACKMUL=1 . P* D P DATA 0 NAK-ACKUMULATOR N $ P DATA 0 RETR. FAULT-ACKUMULATOR n , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P
0x0d5bcc…0d5d60 Dummy {f00=0x0038, f01=0x0190, f02=» DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD ( P DATA INTLT2 INTERRUPT TABLE H P INR A2,0,DWA2 INR l P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P*
0x0d5d60…0d5ef4 (0, 271) Dummy {f00=0x0038, f01=0x0190, f02=»-ACKUMULATOR t ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* @ P XIF J P* V P* ` P XIF j P IFT LOCHAN=4 v P* P* 6 P* CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.2 P* PDWA2 EQU /13 DEVICE ADDRESS P
0x0d5ef4…0d6088 Dummy {f00=0x0038, f01=0x0190, f02=» ~ P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START " " P DATA 0 RETRANSMISSION COUNTER B P DATA 0 END OF QUEUE h P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED-
0x0d6088…0d621c Dummy {f00=0x0038, f01=0x0190, f02=»NNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.3 P* 4 PCWTLT3 EQU * > P IFT LOCHAN=3 R PDWA3 EQU /23 DEVICE ADDRESS h P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE P INR A
0x0d621c…0d63b0 Dummy {f00=0x0038, f01=0x0190, f02=» | P* P IFT ACKMUL=1 P* ( P DATA 0 NAK-ACKUMULATOR 2 $ P DATA 0 RETR. FAULT-ACKUMULATOR R , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR z ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P* P IFT LOC
0x0d63b0…0d6544 Dummy {f00=0x0038, 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 END OF QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0
0x0d6544…0d66d8 Dummy {f00=0x0038, f01=0x0190, f02=»IF P EJECT P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 4 " P* Z PCWTLT4 EQU * d P* x P* P IFT LOCHAN=4 PDWA4 EQU /33 DEVICE ADDRESS P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUT
0x0d66d8…0d686c Dummy {f00=0x0038, f01=0x0190, f02=» DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE & P* B P IFT ACKMUL=1 L P* b P DATA 0 NAK-ACKUMULATOR l $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR
0x0d686c…0d6a00 Dummy {f00=0x0038, f01=0x0190, f02=» * ~ 2 P********************************************** $ P* Z 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK d 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL AND REMOTE P* TERMINALS. P* P* PCHTA
0x0d6a00…0d6b94 (0, 272) Dummy {f00=0x0039, f01=0x0190, f02=» XIF P IFT LOCHAN=4 P DATA CWTLT3 " P DATA CWTLT4 6 P XIF J PCHTABE EQU * END OF TABLE V P* x P* P* P* P* P EJECT P* P IFF LOCHAN=1 P* P* C H L T 1 / C H L T 2 . P*
0x0d6b94…0d6d28 Dummy {f00=0x0039, f01=0x0190, f02=» LOCHAN=2 PCHLT3 EQU * PCHLT4 EQU * & P XIF : P IFF LOCHAN=1 F PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT p & P CF A15,SAVE8 SAVE REGISTERS A1-A8 . P LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 P RF CLT010 P*
0x0d6d28…0d6ebc Dummy {f00=0x0039, f01=0x0190, f02=»A15,SAVE8 SAVE REGISTERS A1-A8 . P LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 & P XIF X P IFT LOCHAN=2 d 0 PCLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION z P* P XIF P* P IFT LOCHAN=3 P RF CLT010 P* P* C H
0x0d6ebc…0d7050 Dummy {f00=0x0039, f01=0x0190, f02=» CF A15,SAVE8 SAVE REGISTERS A1-A8 . P LDKL A5,CWTLT3 SET CWT-ADDRESS FOR CHLT3 ! * $ PCLT010 EX CWTINR,A5 EXECUTE INR ! P* ! P XIF ! P IFT LOCHAN=4 ! P RF CLT010 ! P* ! P* ! P* C H L T 2 ! P* INTERRUPT FROM CHLT3 !
0x0d7050…0d71e4 Dummy {f00=0x0039, f01=0x0190, f02=»CWT-ADDRESS FOR CHLT3 ! | P RF CLT010 " P* C H L T 4 " 0 P* INTERRUPT FROM CHLT4 " F P* " f PCHLT4 EQU * " p $ P ST P,INTSAV SAVE LAST INTERRUPT " & P CF A15,SAVE8 SAVE REGISTERS A1-A8 " . P LDKL A5,CWTLT4 SET CWT-ADDRESS FOR CHLT4 " $ P
0x0d71e4…0d7378 Dummy {f00=0x0039, f01=0x018e, f02=»* INTERRUPT FROM CHLT1 " P* # " PCHLT1 EQU * # , PCHLT2 EQU * # @ PCHLT3 EQU * # T PCHLT4 EQU * # h * P CF A15,SAVE8 SAVE REGISTERS ON STACK # | $ P LDKL A5,CWTLT1 GET CWT-ADDRESS # $ P ST P,INTSAV SAVE LAST INTERRUPT # P INR A2,0,DWA1
0x0d7378…0d750c Dummy {f00=0x0039, f01=0x0190, f02=» P* $ P* $ * P* DETERMINE LINE- AND DEVICE NUMBER $ P* $ F P LDK A1,0 RESET RETURN CODE $ P P LDR A3,A2 INPUT WORD IN A3 $ t P SRL A3,8 $ P LDR A4,A3 $ $ P ANK A3,/E 2 * LINE NUMBER IN A3 $ P SRL A4,3 $ & P ANK A4,/E 2 * DEV
0x0d750c…0d76a0 Dummy {f00=0x0039, f01=0x0190, f02=» $ P* % P* % 0 P* CHECK QUEUE AND SEND IF SOMETHING THERE % P* % P & P LDR* A7,A5 LAST OUTPUT DWT IN A7 % Z P CMR A5 RESET LAST OUTPUT % P LD A6,CWTEQ,A5 OUTPUT QUEUE % P RF(E) CLT020 % P STR A2,A15 SAVE A2 % $ P LD A2,DWTOT
0x0d76a0…0d7834 (0, 273) Dummy {f00=0x0039, f01=0x018e, f02=» % r P LDR* A2,A15 RELOAD A2 & P EJECT & & P* & 4 P* & > 2 P* CHECK CONTROL CHARACTER AND UPDATE ERROR- & H 2 P* ACKUMULATORS IF NAK, RETRANSMISSION FAULT & ~ ( P* OR UNDEFINED CONTROL CHARACTER & P* & PCLT020 EQU * & P LDR A6,A7
0x0d7834…0d79c8 Dummy {f00=0x0039, f01=0x0190, f02=» & P* ' P IFT ACKMUL=1 ' P* ' ( P SUK A2,5 NAK ? ' 2 P RF(E) CLT035 ' J P LDK A7,2 ' ` $ P SUK A2,/16 RETRANSMISSION FAULT ' r P RF(E) CLT025 ' " P ADK A7,2 UNDEFINED INTERRUPT ' PCLT025 ADR A7,A5 ' 0 P IM CWTADD,A7 INCREMENT AC
0x0d79c8…0d7b5c Dummy {f00=0x0039, f01=0x0190, f02=»UT, RETRANSMISSION FAULT OR ' $ P* UNDEFINED CONTROL CHARACTER ( $ P* ( L : P* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE ( V 4 P* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH ( P* MESSAGE NOT OPERABLE. ( P* ( PCLT028 EQU * (
0x0d7b5c…0d7cf0 Dummy {f00=0x0039, f01=0x0190, f02=»A2,/1000 INDICATE RECOVERY TRIAL DONE ( , P XRS A2,DWTST,A6 SET BIT IN STATUS WORD ) . 0 PCLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE ) ^ P LDK A4,0 ) P RF CPO025 ) . PCLT032 LDK A1,NOERR INDICATE NOT OPERABLE ) P ABL CLT110 ) P EJECT )
0x0d7cf0…0d7e84 Dummy {f00=0x0039, f01=0x0190, f02=» CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER ) @ P* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT * 6 , P* OPERABLE IS SENT TO DEVICE DRIVER. * z P* * PCLT035 EQU * * P IFT ACKMUL=1 * P* * * P IM CWTADD,A5 UPDATE ERROR ACKUM
0x0d7e84…0d8018 Dummy {f00=0x0039, f01=0x0190, f02=»SEVEN TIMES ? * P RB(E) CLT032 + * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD + , P LDR A1,A5 + Z * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION + l $ P STR A6,A1 STORE LAST DWT IN CWT + P IFT LOGING=1 + . P CF A15,LOGG ** LOGG OUTPUT CHARACTER ** +
0x0d8018…0d81ac Dummy {f00=0x0039, f01=0x0190, f02=»TA = 07 + P* , 2 P* SIMULATE DATA REQUEST IF RETURN CODE FROM , . P* CHLT OR DEVICE WITHOUT DATA REQUEST, , P P* ELSE GO TO DISPATCHER , P* , PCLT040 EQU * , P LDKL A7,/EFFF , 6 P ANS A7,DWTST,A6 RESET RECOVERY BIT IN STATUS WO
0x0d81ac…0d8340 Dummy {f00=0x0039, f01=0x018e, f02=»N) CLT110 YES. SIMULATE DATA REQUEST , P* - , P IFF SOFTIM=1 - 6 P* - L PCLT062 EQU * - V P RF EXIT - j P* - z P XIF - P* - P* - P IFT SOFTIM=1 - P* - P EJECT - P* - P* - P* PRINTER TIMING - P* -
0x0d8340…0d84d4 (0, 274) Dummy {f00=0x0039, f01=0x0190, f02=» - | * P LD A3,DWTTP,A6 ADDRESS TO TIMER BLOCK . P RF(E) CLT060 . 6 P* . L P* RESTART TIMER . V P* . p " P LDKL A3,-DRQTIM RESTART TIMER . z P ST* A3,DWTTP,A6 . P RF EXIT . P* . P* START TIMER . P* . PCLT060 LDR A1,A6 PAR
0x0d84d4…0d8668 Dummy {f00=0x0039, f01=0x0190, f02=»QTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY . PCLT062 EQU * / : P RF EXIT / N P / ^ P EJECT / f P* / t P* / ~ P* RESET TIMER IF STARTED / P* / $ PCLT070 LD A3,DWTTP,A6 ADDRESS ? / P RF(E) EXIT NO / P CM* DWTTP,A6 RESET
0x0d8668…0d87fc Dummy {f00=0x0039, f01=0x0190, f02=»ISSING INTERRUPTS / p P* FROM PRINTERS 0 P* 0 4 PDRQTUT EQU * 0 > P LDR A6,A1 GET DWT-ADDRESS 0 R . P CM DWTTP,A6 RESET POINTER TO TIMER BLOCK 0 t P LD A3,DWTST,A6 0 P SLL A3,2 ECHO MODE ? 0 P RF(N) CLT110 YES 0 P* 0 P IFT ACK
0x0d87fc…0d8990 Dummy {f00=0x0039, f01=0x0190, f02=»5,2 JUST TO AVOID TABLE LENGTH 0 $ P LD A5,CHTAB,A5 GET CWT-ADDRESS 1 & ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR 1 N P* 1 z P XIF 1 P IFT SOFTIM=1 1 P IFT ACKMUL=1 1 P IFT LOCHAN=1 1 P* 1 $ P LDKL A5,CWTLT1 GET CWT-ADDRESS 1 ( P IM
0x0d8990…0d8b24 Dummy {f00=0x0039, f01=0x018e, f02=» 1 P EJECT 2 P* 2 P* POWER ON DATA = 03 2 P* 2 B 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 2 L 6 P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL 2 $ P* UNIT OR THOSE IN ECHO MODE. 2 P* 2 P* 2 & P* ON EXI
0x0d8b24…0d8cb8 Dummy {f00=0x0039, f01=0x0190, f02=» 2 PCHPOWO EQU * 3 P CF A15,GETLIN 3 $ P LDR* A2,A5 GET LAST OUTPUT DWT 3 2 . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER 3 Z P LDK A4,0 3 P LDR A3,A6 DEVICE COUNTER 3 P LDR A1,A8 ADDRESS POINTER 3 $ P RF(Z) EXIT EXIT IF NOT DEFINED 3
0x0d8cb8…0d8e4c Dummy {f00=0x0039, f01=0x0190, f02=»6,1 3 " P LCR A7,A6 LEFT BYTE OF DWTCHP 4 P ANK A7,1 INPUT DEVICE ? 4 2 P RF(NE) CPO025 YES 4 R P LDKL A7,/EFFF 4 l ( P ANS A7,DWTST,A6 RESET RECOVERY BIT 4 P LC A7,DWTST,A6 4 P ANK A7,/20 ECHO MODE ? 4 P RF(NE) CPO030 YES 4 2 P CWR A6,
0x0d8e4c…0d8fe0 Dummy {f00=0x0039, f01=0x0190, f02=»A7,4,A7 ADDRESS TO RECOVERY IN A7 4 P RF(E) CPO030 NO RECOVERY 5 * P LDKL A5,DWTSB2 STACKBASE 5 L P ADR A5,A6 5 n & P CFR A15,A7 GO TO RECOVERY ROUTINE 5 ( PCPO030 SUK A3,2 ALL DEVICES THREATED 5 P 5 P RB(NE) CPO020 NO TAKE NEXT 5 PEXIT A
0x0d8fe0…0d9174 (0, 275) Dummy {f00=0x0039, f01=0x0190, f02=»6,A4 VALID INTERRUPT ? 5 P RB(N) EXIT 6 P LDR A8,A8 6 2 P RB(Z) EXIT EXIT NOT DEFINED 6 D P LDR* A6,A8 GET DWT 6 h P RB(E) EXIT 6 P ANKL A6,/FFFE 6 . P LCR A7,A6 LEFT BYTE IN CHANNEL PARAMETER 6 P ANK A7,1 DATA INPUT ? 6 P RF(NE) CL
0x0d9174…0d9308 Dummy {f00=0x0039, f01=0x0190, f02=» 6 * P LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 7 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 7 6 P ENB 7 n & P ABI 2,A3 GO TO INTERRUPT HANDLER 7 z P* 7 > P* THE FOLLOWING REGISTER VAULES ARE VALID WHEN ENTERING 7 0 P* THE DEVICE DEPENDANT
0x0d9308…0d949c Dummy {f00=0x0039, f01=0x0190, f02=»ME-OUT) 7 Z P* A6 = DWT-ADDRESS 8 P* 8 , P* A7 = ORDER 8 6 P* 8 L P* A8 = ECB-ADDRESS 8 V P EJECT 8 r P* 8 P* G E T L I N 8 P* 8 > P* SUBROUTINE TO GET ADDRESS IN INTERRUPT TABLE 'INTLTX' 8 , P* FOR A GIVEN LINE- AND
0x0d949c…0d9630 Dummy {f00=0x0039, f01=0x0190, f02=» P* ON EXIT:- 9 P* 9 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE 9 $ < P* A8 = ADDRESS IN 'INTLTX' WHERE DWT-ADDRESS IS FOUND 9 ^ P* 9 P* 9 PGETLIN EQU * 9 0 P LD A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE 9 P 9 P ADR A
0x0d9630…0d97c4 Dummy {f00=0x0039, f01=0x0190, f02=»T ID-WORD 9 , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES : 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION : B $ PGTL010 ABL RTNA15 RETURN AND ENB : z P EJECT : P* : P* O U T L I N : P* : : P* SUBROUTINE TO SEND ONE CHARACTER VIA CHA
0x0d97c4…0d9958 Dummy {f00=0x0039, f01=0x0190, f02=»UED ON A : d P* OUTPUT QUEUE THREAD. ; P* ; 2 P* ON ENTRY: ; < P* ; T . P* A2 = OUTPUT CHARACTER IN RIGHT BYTE ; ^ P* A6 = DWT-ADDRESS ; P* ; POUTLIN EQU * ; " P CF A15,SAVE8 SAVE REGS A1-A8 ; P* ; P IFF LOCHAN=
0x0d9958…0d9aec Dummy {f00=0x0039, f01=0x018e, f02=»AB,A1 GET CWT-ADDRESS IN A1 ; P* < $ P XIF < . P* < : P* < D P IFT LOCHAN=1 < N P* < d P LDKL A1,CWTLT1 < n P* < P XIF < P* < P INH INHIBIT INTERRUPT < P LDR* A4,A1 IS UNIT FREE ? < P RF(E) OUL050 YES < P EJECT
0x0d9aec…0d9c80 Dummy {f00=0x0039, f01=0x018e, f02=» < ~ . P RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE = P LD A3,DWTOTQ,A4 = : & P RF(E) OUL030 END OF THREAD FOUND = R P LDR A4,A3 FOLLOW THE THREAD = | P RB OUL010 = $ POUL020 ST A6,CWTEQ,A1 QUEUE DWT = P RF OUL040 = $ POUL030 ST A6,DWTOTQ,A4 QUEUE
0x0d9c80…0d9e14 (0, 276) Dummy {f00=0x003a, f01=0x0190, f02=» , POUL050 LDR* A3,A6 GET CHANNEL PARAMETERS > P ANKL A3,/7F00 > 4 P ANK A2,/FF > J P ORR A2,A3 > ^ POUL055 EQU * > p * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION > P RB(NA) OUL005 > $ P STR A6,A1 STORE LAST DWT IN CWT > P IFT LOGING=1 > 0 P C
0x0d9e14…0d9fa8 Dummy {f00=0x003a, f01=0x0190, f02=»ET8 RESTORE A1-A8 AND RTN A15 > P EJECT ? & P* ? 4 P* C H L T O N ? > P* ? V > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY ? ` @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERED FROM 'PFINIT' ? P* ? PCHLTON EQU * ? P* ?
0x0d9fa8…0da13c Dummy {f00=0x003a, f01=0x0190, f02=» RTNA15 RETURN AND ENB ? * PCON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS @ P RB(Z) CON010 @ L $ P EX CWTCIS,A5 EXECUTE CIO-START @ b P LDR* A6,A5 GET LAST DWT @ P RB(Z) CON010 @ P CMR A5 RESET LAST OUTPUT @ P LDK A2,0 @ " P CF A15,OUTLIN SEND
0x0da13c…0da2d0 Dummy {f00=0x003a, f01=0x0190, f02=»IO-START @ P LD A6,CWTLT1 GET LAST DWT A P RF(Z) CON010 A 2 P CM CWTLT1 RESET LAST OUTPUT A H P LDK A2,0 A l " P CF A15,OUTLIN SEND CHARACTER A ~ $ PCON010 ABL RTNA15 RETURN AND ENB A P* A P XIF A P* A P EJECT A P* A P*
0x0da2d0…0da464 Dummy {f00=0x003a, f01=0x0190, f02=»* A P* B POUTPUT EQU * B P ANK A2,/FF B ( P LDR A1,A2 B < P SUK A1,/82 STX ? B N P RF(E) LDRE10 B h P SUK A1,/15 ETB ? B ~ P RF(E) LDRE10 B 6 P CF A15,OUTLIN SEND ONE CHARACTER VIA CHANNEL UNIT B P* B P* B P* S T R E
0x0da464…0da5f8 Dummy {f00=0x003a, f01=0x0190, f02=»DKL A1,/100 B 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED C $ P ST A3,DWTA3,A6 SAVE REGISTER A3 C H $ P ST A4,DWTA4,A6 A4 C p $ P ST A5,DWTA5,A6 A5 C P RB EXIT C P EJECT C P* C P* L D R E G C P* C > P
0x0da5f8…0da78c Dummy {f00=0x003a, f01=0x018e, f02=»U * C P LD A3,DWTST,A6 D P ANKL A3,/100 D $ P RB(Z) EXIT D : P XRS A3,DWTST,A6 D N P* D f P* D p P* L D R E G E D z P* D 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 D P* D P* D PLDREGF EQU * D & P LD A5,D
0x0da78c…0da920 Dummy {f00=0x003a, f01=0x0190, f02=» $ PLDRE10 LD A7,DWTOR,A6 GET ORDER E P ANK A7,/FF E , P LD A8,DWTECB,A6 E @ P RTN A5 RETURN VIA A5-STACK E X P EJECT E | P* E P* E P* G E T C H R E P* E 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER E P* E P*
0x0da920…0daab4 (0, 277) Dummy {f00=0x003a, f01=0x0190, f02=» A2 = CHARACTER E * P* A1 = 0 IF LAST CHARACTER ELSE # 0 F P* F F J P* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH F P P* F P* F PGETCHR EQU * F P LD A1,4,A8 REQUESTED LENGTH F P SUR A1,A3 F * P RF(NP) GCH0
0x0daab4…0dac48 Dummy {f00=0x003a, f01=0x0190, f02=» $ P ADK A3,1 INCREMENT BUFFER INDEX G P RF GCH020 G , , PGCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH G > ( PGCH020 ABL RTNA15 RETURN AND ENABLE G n P EJECT G P* G P* G P* L O G G G P* G 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPU
0x0dac48…0daddc Dummy {f00=0x003a, f01=0x018e, f02=» P LD A1,POINT H P ADK A1,2 H & P CWK A1,BUFE BUFE IS MAX LOGG AREA H * P RF(NE) L1 H T ( P LDKL A1,BUF SET FIRST LOGG ADDRESS H f PL1 ST A1,POINT H . P STR A2,A1 LOGG OF INR OR OTR INSTRUCTION H P LDR* A1,A15 H P ADKL A15,2 H P LDR*
0x0daddc…0daf70 Dummy {f00=0x003a, f01=0x0190, f02=» H P XIF I P EJECT I P* I " P* I , P* E C H O , E C H E N D I 6 P* I X < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, I b . P* ONE GENERAL AND ONE DEVICE-DEPENDENT I P* I 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DE
0x0daf70…0db104 Dummy {f00=0x003a, f01=0x0190, f02=» PART TWO: ECHO ONE OR MORE CHARACTERS I 2 P* CORRESPONDING TO ONE CHARACTER J 0 4 P* TO BE STORED IN INPUT ECB-BUFFER J f P* J P* J 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND J 4 P* IN THE DRIVER MODULE CORR
0x0db104…0db298 Dummy {f00=0x003a, f01=0x0190, f02=»7 MUST NOT BE DESTROYED J 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A K P* JUMP TO 'ECHRTN'. K Z P* K x PECHEND EQU * K P* K P IFT CECHO=1 K P* K $ P LDKL A7,/8000 INDICATE END I/O K P XIF K PECHO EQU * K P IFT
0x0db298…0db42c Dummy {f00=0x003a, f01=0x0190, f02=» SLL A1,2 K $ P RF(NN) RETUR NO ECHO REQUESTED L 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE L : 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE L n 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE L P LDKL A5,DWTSB2 L & P ADR A5,A6 STACKBA
0x0db42c…0db5c0 Dummy {f00=0x003a, f01=0x411e, f02=» PECHRTN EQU * M P IFT CECHO=1 M P LDR A7,A7 END? M , P RF(NN) ERETUR NO M D ( P CF A15,TENDIO END I/O OUTPUT DEVICE M ^ > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE M 4 PRETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 M P* M
0x0db5c0…0db754 (0, 278) Dummy {f00=0x003a, f01=0x2008, f02=» N PPOINT DATA BUF LOGG POINTER 9 P* 9 2 PBUF RES 63 LOGG AREA 9 < PBUFE EQU * 9 X P* 9 j P XIF 9 t P* 9 P END 9 @ 9 A1,BUFE BUFE IS MAX LOGG AREA 8 P RF(NE) L1 8 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS 8 PL1 ST A1,P
0x0db754…0db8e8 Dummy {f00=0x003a, f01=0x0008, f02=» 0 8 @ H
0x0db8e8…0dba7c Dummy {f00=0x003a, f01=0x0190, f02=» 2 P IDENT INTVMA REL 8.2 78-09-15 870105040820 P : P* B 8 P*************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* INTVMA = INTERRUPT VECTORS AND SYSTEM START 4 P*
0x0dba7c…0dbc10 Dummy {f00=0x003a, f01=0x0190, f02=»********* f P P P " P* * P* 4 8 P* THIS MODULE CONTAINS HARDWARE INTERRUPT VECTORS, > . P* COMMUNICATION VECTOR TABLE,STACK AREA z $ P* AND MONITOR INITIALIZATION. P* P* P P P P P
0x0dbc10…0dbda4 Dummy {f00=0x003a, f01=0x0190, f02=» ENTRY CVTSBA ADDRESS TO START OF BUFFER POOL 0 P ENTRY CVTEBA ADDRESS TO END OF BUFFER POOL 6 , P ENTRY CVTINP INTERPRETER ADDRESS TABLE j P ENTRY CVTDK START UP DISC & P ENTRY CVTAPA APPLICATION ADDRESS , P ENTRY CVTAPS APPLICATION START AD
0x0dbda4…0dbf38 Dummy {f00=0x003a, f01=0x018e, f02=»T LOAD BLOCK TABLE ADDRESS | ( P ENTRY FREPAR FREE PARTITION POINTER " " P ENTRY PARLEN PARTITION LENGTH N & P ENTRY NUMPAR NUMBER OF PARTITIONS t P , P EXTRN IHPFAR POWER FAIL / AUTO RESTART P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REA
0x0dbf38…0dc0cc Dummy {f00=0x003a, f01=0x0190, f02=» P** P** P** P** " P** , * P EXTRN CHRT1 REMOTE CHANNEL UNIT NO. 1 6 * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 d P EXTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 ( P EXTRN IHCC2
0x0dc0cc…0dc260 Dummy {f00=0x003a, f01=0x0190, f02=»2 l P EXTRN CHLT3 P EXTRN CHLT4 P EXTRN IHFD FLOPPY DISCEN 2 P EXTRN IHLP LINE PRINTER T P EXTRN IHCR CARD-READER t P EXTRN IHDU1 DISC UNIT NO. 1 P EXTRN IHDU2 DISC UNIT NO. 2 P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT
0x0dc260…0dc3f4 (0, 279) Opaque[0x194]
0x0dc3f4…0dc588 # DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0768, f03=0x0000}
0x0dc3f4…0dc588 IdxSect {
0x0dc3f4…0dc588 f00 = 0x003b // 0xdc3f4 @0x0
0x0dc3f4…0dc588 f01 = 0x0010 // 0xdc3f6 @0x2
0x0dc3f4…0dc588 gno = [ // 0xdc3f8 @0x4
0x0dc3f4…0dc588 [0x00]: C0x003b.0x1.0
0x0dc3f4…0dc588 [0x01]: C0x003b.0x2.0
0x0dc3f4…0dc588 [0x02]: C0x003b.0x3.0
0x0dc3f4…0dc588 [0x03]: C0x003c.0x0.0
0x0dc3f4…0dc588 [0x04]: C0x003c.0x1.0
0x0dc3f4…0dc588 [0x05]: C0x003c.0x2.0
0x0dc3f4…0dc588 [0x06]: C0x003c.0x3.0
0x0dc3f4…0dc588 [0x07]: C0x003d.0x0.0
0x0dc3f4…0dc588 ]
0x0dc3f4…0dc588 }
0x0dc588…0dc71c Dummy {f00=0x003b, f01=0x018e, f02=» 2 P IDENT DRTC01 REL 8.2 78-09-15 870105040820 P : P NO SELECT AT PGM LOADING B P FAST I/O, SHORT INH TIME f P REL 8.1 78-04-21 P P < P******************************************************* P* $ P* PHIL
0x0dc71c…0dc8b0 Dummy {f00=0x003b, f01=0x0190, f02=» P* < P******************************************************* P* R P* > P* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS f & P* CONNECTED TO CPU VIA CHCR-DCR P* > P* ONLY ONE RECORDER CAN BE BE OPERATED AT
0x0dc8b0…0dca44 Dummy {f00=0x003b, f01=0x0190, f02=»ARACTERS P* P EJECT DRTC01 P* 2 P* < 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: F P* ~ " P* T C D A : ACTIVATION PART P* $ P* I H T C : INTERRUPT HANDLER P* & P* R C O V E R : RECOVERY ROU
0x0dca44…0dcbd8 Dummy {f00=0x003b, f01=0x0190, f02=» AND O R D E R P R O C E S S O R S P* . P* 8 * P* THE FOLLOWING ORDERS ARE TREATED: B P* p P* ORDER /00: TEST STATUS z P* /02: READ P* /05: WRITE P* /06: WRITE " P* /22: W
0x0dcbd8…0dcd6c Dummy {f00=0x003b, f01=0x0190, f02=»ASE | P* /37: LOAD P* /38: UNLOAD ( P* F P EJECT DRTC01 P P* h P* r , P* THE FOLLOWING RETURN CODES ARE USED: | P* P* BIT 0 REQUEST ERROR P* 1 LEADER P* 2 BOT MISSING P
0x0dcd6c…0dcf00 Dummy {f00=0x003b, f01=0x0190, f02=»7 B-SIDE P* 9 REWIND TIME-OUT P* 11 SEQUENCE ERROR 2 P* -READ SEQUENCE ERROR R > P* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY v 6 P* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED , P* -POWER RECOVER
0x0dcf00…0dd094 (0, 280) Dummy {f00=0x003b, f01=0x0190, f02=»PERABEL P* P EJECT DRTC01 P* 2 P* < " P* NORMAL USAGE OF REGISTERS: F P* l P* REGISTER A1: RETURN CODE v P* A2: SST STATUS * P* A3: DWT STATUS AFTER SST " P* A4: RETRY COUNT
0x0dd094…0dd228 Dummy {f00=0x003b, f01=0x0190, f02=»STACK t P* P* P* SYSTEM ADAPTATION: " P* @ : P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE J P* REDUCED TO HANDLE: P* " P* -ONLY ONE CASSETTE RECORDER 0 P* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED
0x0dd228…0dd3bc Dummy {f00=0x003b, f01=0x0190, f02=» ENTRY IHTC INTERRUPT ADDRESS . P ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01 & . P ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02 X $ P ENTRY TCDRON POWER UP RECOVERY P P P P* P* $ P******************************** $ P*
0x0dd3bc…0dd550 Dummy {f00=0x003b, f01=0x0190, f02=» 4 P EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE . P EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN < , P EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE n . P EXTRN DISEND GO TO DISPATCHER VIA TENDIO 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY * P
0x0dd550…0dd6e4 Dummy {f00=0x003b, f01=0x0190, f02=»RN ECBRL REQUESTED LENGTH IN ECB ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB ( $ P EXTRN ECBCW CONTROL WORD IN ECB T P EJECT DRTC01 | P* P* P****************** P* DWT PARAMETERS * P****************** P* P* &
0x0dd6e4…0dd878 Dummy {f00=0x003b, f01=0x0190, f02=»T f , P* BIT #12 - REPOSITIONING AT RECOVERY " P* BIT #13 - WRITE PROTECTED : P* BIT #14 - A-SIDE ` * P BIT #15 - DEVICE LOCKED (OPERABLE) | P EXTRN DWTOR DWT ORDER " P EXTRN DWTECB DWT ECB ADDRESS P EJECT DRTC01 P*
0x0dd878…0dda0c Dummy {f00=0x003b, f01=0x0190, f02=»ER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE " P* RECORDER BY SETTING X:A=1 6 P* PX:A EQU 1 f PDBCAS EQU 1 x P* 6 P* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED P* BY SETTING X:B=0 P* PX:B EQU 0 P
0x0dda0c…0ddba0 Dummy {f00=0x003b, f01=0x0190, f02=»TRY t " P DATA 0 ABORT ROUTINE ADDRESS P RES 4 SUBROUTINE STACK 2 PSTB EQU *-2 R P* f P* p $ PTAB DATA /0031,/2237,/3802,/0506 z P IFT REVER=1 P DATA /2633,/24FF P XIF PTABL EQU *-TAB P EJECT DRTC01
0x0ddba0…0ddd34 (0, 281) Dummy {f00=0x003b, f01=0x0190, f02=» P* P* DEVICE ADDRESS: P* ( PCHCRDA EQU /0E 2 P* H P* R P************* P* CONSTANTS * r P************* P* P* " PRTRIES EQU 3 MAX NO OF RETRIES P* * PPSUBS EQU 5 POWER UP BACKSPACE NUMBER
0x0ddd34…0ddec8 Dummy {f00=0x003b, f01=0x018e, f02=» IFT REVER=1 * PPERAS EQU 6 NO OF ERASE FOR ORDER /24 P XIF B P EJECT DRTC01 N P* f P* p P* T C D A z P* H P* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING P* P* PTCDA EQU *
0x0ddec8…0de05c Dummy {f00=0x003b, f01=0x0190, f02=» P SUK A4,1 P RB(NN) TCDA10 TRY NEXT P* 6 PTCDA15 EQU * @ P ABL DISIOE ILLEGAL ORDER T P* v ( PTCDA20 ADR A4,A4 DOUBLE TO GET INDEX P ST A4,TCDAX SAVE INDEX ( P LD A5,ECBRL,A8 GET REQUESTED LENGTH ( P LD A3,SEKBYT,A6
0x0de05c…0de1f0 Dummy {f00=0x003b, f01=0x0190, f02=» LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS P ANK A2,2 2 P RF(NZ) TCDR10 YES D P* ^ P ADK A5,1 h . P NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE z 0 P ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES P SUK A7,/37 LOAD ? P RF(NE) TCDA22
0x0de1f0…0de384 Dummy {f00=0x003b, f01=0x0190, f02=»DA22 LD A3,2,A8 GET BUFFER ADDRESS 0 P ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES * P SUK A4,14 ^ P RF(Z) TCDA23 WRITE p P ADK A4,2 P RF(NZ) TCDA25 NOT WRITE P* * PTCDA23 ADK A5,3 CHECK REQUESTED LENGTH ( P RB(P) TCDA15 LESS
0x0de384…0de518 Dummy {f00=0x003b, f01=0x0190, f02=»TING ? v P RF(NZ) TCDA25 NO , P LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER ( $ P SC A2,255,A3 STORE IT IN BUFFER X P* ( PTCDA25 ST A6,TCDADT SAVE ACTIVE DWT P EJECT DRTC01 P* P* P* SELECT RECORDER P* P*
0x0de518…0de6ac Dummy {f00=0x003b, f01=0x0190, f02=»DR A1,A2 SAVE STATUS , P LDK A4,RTRIES PRESET NUMBER OF RETRIES " P LDKL A2,0 GET FUNCTION INDEX L " PTCDAX EQU *-2 **ORDER INDEX** r P INH & P ABI TCDFUN,A2 BRANCH TO FUNCTION < PTCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE
0x0de6ac…0de840 Dummy {f00=0x003b, f01=0x0190, f02=» AFTER POWER ON P* P* " PTCDRON EQU * , P CF A15,SAVE8 @ & P LD A1,INIFLG CHECK IF PGM LOADING V $ P ABL(NZ) TDISP YES SKIP RECOVERY P LDKL A8,STB LOAD STACK BASE P LDKL A6,DWTC01 FIRST DWT P CF A8,RCOVER RECOVERY
0x0de840…0de9d4 (0, 282) Dummy {f00=0x003c, f01=0x0190, f02=»DADT EQU *-2 **ACTIVATED DWT ADDRESS** $ P RF(Z) ENDIO NO REQUEST GOING ON . $ P LDR A6,A4 PUT DWT ADDRESS IN A6 V " P LD A3,SEKBYT,A6 SEQ. COUNTING ~ ( P RB(Z) TCDA30 YES; REACTIVATE ORDER P* * PTCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR P
0x0de9d4…0deb68 Dummy {f00=0x003c, f01=0x0190, f02=» R E A D P* PREAD CF A8,READR READ RECORD P ANKL A1,/400 SAVE EOT BIT @ P ORR A1,A2 b P ANK A2,/0E t P RF(Z) READ20 STATUS OK P* & PREAD15 SUK A4,1 RECOVERABLE ERROR P RF(Z) READ20 3 TRIALS DONE $ P CF A8,B
0x0deb68…0decfc Dummy {f00=0x003c, f01=0x0190, f02=») READ30 NOT TAPE MARK P* ( PREAD25 ORK A3,/10 INDICATE TAPE MARK ( $ P LDK A7,0 RESET EFFECTIVE LENGTH T P RF READ35 | P* PREAD30 LDR A2,A1 $ P LDKL A7,0 GET EFFECTIVE LENGTH ( PEFFLEN EQU *-2 **EFFECTIVE LENGTH** P A
0x0decfc…0dee90 Dummy {f00=0x003c, f01=0x0190, f02=»ONE x , P RB(NZ) READ15 NO; READ SAME BLOCK AGAIN & P LDK A4,1 SET NO OF RETRIES TO ONE < P RB READ TRY NEXT BLOCK f P* PREAD32 EQU * P ANK A3,/2F NOT TAPE MARK $ P LD A2,SEKBYT,A6 SEQ. COUNTING ? P RF(NE) READ35 NO , P
0x0dee90…0df024 Dummy {f00=0x003c, f01=0x018e, f02=»QUENCE ERROR P* 2 PREAD35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER P* T * PREAD40 LD A8,DWTECB,A6 GET ECB ADDRESS ^ * P ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH P LDK A2,RTRIES . P SUR A2,A4 GET NUMBER OF RETRIES PERFORMED , P ST A2
0x0df024…0df1b8 Dummy {f00=0x003c, f01=0x0190, f02=» P* P* END OF I/O OPERATION P* 0 P* : PENDIO EQU * D ( P CM TCDADT INDICATE NONE ACTIVE DWT X P IFT DBCAS=2 , P CF A15,SWLXY GIVE OTHER TASKS A CHANCE P LDR* A6,A6 GET OTHER DWT * P CF A15,TENDIO PERFORM TENDIO
0x0df1b8…0df34c Dummy {f00=0x003c, f01=0x0190, f02=»ER VIA TENDIO v P* P EJECT DRTC01 P* 8 P* B P* WRITE TAPE MARK L P* h PTM LDKL A3,-1 r P ST A3,HELPME P* P* W R I T E P* P* WRITE ONE BLOCK P* P* , PWRITE LD A3,DWTB
0x0df34c…0df4e0 Dummy {f00=0x003c, f01=0x0190, f02=»RIES 1ST BLOCK x P* $ PWRIT10 CF A8,WRITER WRITE RECORD P ANKL A1,/400 SAVE EOT-BIT H P ORR A1,A2 j P ANK A2,/0E | P RF(Z) WRIT30 STATUS OK P* , PWRIT12 ST A4,WRITA4 STORE RETRY COUNTER P LD A2,SEKBYT,A6 P RF(Z)
0x0df4e0…0df674 (0, 283) Dummy {f00=0x003c, f01=0x0190, f02=»E ERASE P RF WRIT20 P* " $ PWRIT15 CF A8,REPOS POSITION TAPE , & P CM SEKBYT,A6 RESET SEQ. INDICATOR T P LD A4,WRITA4 GET NO ... ~ P LDR A2,A2 & P RF(NZ) WRIT40 POSITIONING NOT OK P SUK A4,RTRIES ... OF ERASE P* P
0x0df674…0df808 Dummy {f00=0x003c, f01=0x0190, f02=» RETRY COUNTER $ PWRITA4 EQU *-2 **RETRY COUNTER** P SUK A4,1 > P RB(NZ) WRIT10 TRY AGAIN P . P ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 p P RF WRIT50 GIVE UP P* P EJECT DRTC01 P* P* PWRIT30 LD A2,TCDAX GET
0x0df808…0df99c Dummy {f00=0x003c, f01=0x0190, f02=»B(N) READ25 YES P RB WRIT12 NO P* . : PWRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR 8 P* v , PWRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH P RB READ40 P* P EJECT DRTC01 P* P* P* L O A D
0x0df99c…0dfb30 Dummy {f00=0x003c, f01=0x018e, f02=»LOAD10 LDR A1,A2 NO CASSETTE P RB READ50 ! $ P* ! 6 P* ! @ P* R E W I N D ! J P* ! b P* REWIND TAPE ! l P* ! P* ! , PREWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER ! ( P CF A8,SBOT SEARCH BEGINNING OF TAPE ! PREW010 EQU * ! P
0x0dfb30…0dfcc4 Dummy {f00=0x003c, f01=0x0190, f02=» P* " P* " P* U N L O A D " P* " 0 P* UNLOAD CASSETTE " : P* " V P* " ` $ PUNLOAD CM DWTST,A6 RESET STATUS " j P CF A8,UNLD UNLOAD CASSETTE " & PUNLO10 LDR A1,A2 SAVE RETURN CODE " P RB ENDIO " P IFT REVER=1 " P*
0x0dfcc4…0dfe58 Dummy {f00=0x003c, f01=0x0190, f02=» $ P LDKL A4,-1 DECREMENT BLOCK SEQ. # $ P ADS A4,DWTBKC,A6 COUNTER BY ONE # , P RB UNLO10 # T P* # f P EJECT DRTC01 # p P* # P* # P* E R T A P E # P* # P* ERASE TAPE # P* # P* # ( PERTAPE LDK A4,PERAS SET NO OF ER
0x0dfe58…0dffec Dummy {f00=0x003c, f01=0x0190, f02=» RB(NZ) ERT10 ERASE NOT READY # P RB READ50 $ & P* $ 8 P* $ B P* O L O C K $ L P* $ b P* ORDER LOCK CASSETTE $ l P* $ P* $ " POLOCK CF A8,LOCK LOCK CASSETTE $ " P RB(Z) REW010 CASSETTE LOCKED $ P RB LOAD10 $ P XIF $
0x0dffec…0e0180 Dummy {f00=0x003c, f01=0x018e, f02=» EQU * $ P LDK A2,/FF LOAD MASK % " P ANS A2,DWTST,A6 SET DWT BUSY % , P IFT DBCAS=1 % R P LDK A3,0 SELECT CODE % f P XIF % P IFT DBCAS=2 % P LDR* A3,A6 GET OTHER DWT % " P ANS A2,DWTST,A3 SET DWT BUSY % P ANK A3,1 GET SELECT CODE %
0x0e0180…0e0314 (0, 284) Dummy {f00=0x003c, f01=0x0190, f02=» PREADSQ EQU * & P LDK A3,/A & , P ST A3,REQLEN MAKE REQUESTED LENGTH > 0 & * P RB CRCOM & Z P* & l P EJECT DRTC01 & v P* & P* READ ONE RECORD & P* & PREADR LDK A3,/A & , PREADR1 CM EFFLEN RESET EFFECTIVE LENGTH & " P LDK
0x0e0314…0e04a8 Dummy {f00=0x003c, f01=0x018e, f02=»QU *-2 **HELPME** & P ST A2,REQLEN ' P RB CRCOM ' 0 P* ' B P* WRITE ONE RECORD ' L P* ' f PWRITER LDK A3,/B ' p P RB READR1 ' P* ' P* ERASE ONE BLOCK ' P* ' PERASE LDK A3,9 ' P RB CRCOM ' P* ' P* LOCK CASSETT
0x0e04a8…0e063c Dummy {f00=0x003c, f01=0x018e, f02=» P* ( PSBOT LDK A3,8 ( P RB CRCOM ( $ P* ( 6 & P* REWIND TAPE AND UNLOCK CASSETTE ( @ P* ( j PUNLD LDK A3,/F ( t P RB CRCOM ( P* ( P* BACKSPACE ONE BLOCK ( P* ( PBKSP LDK A3,/E ( P RB CRCOM ( P* ( P EJECT
0x0e063c…0e07d0 Dummy {f00=0x003c, f01=0x0190, f02=» PIHTC EQU * ) $ P ST P,INTSAV SAVE LAST INTERRUPT ) P STR A5,A15 SAVE A5 ON STACK ) > P SST A5,CHCRDA ) b P RF(A) SST SST ACCEPTED ) x P IM REQLEN INCREMENT COUNTER ) P RF(Z) CIOHLT ) & P RF(P) INRSQ GET SEQUENCE COUNTER ) P STR A3,A15
0x0e07d0…0e0964 Dummy {f00=0x003c, f01=0x0190, f02=» ) n 4 P LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE * P SUK A5,10 * @ P RF(NZ) IHTC05 WRITE * R P* * n & PIHTC02 INR A5,0,CHCRDA READ CHAR. * x ( P SCR A5,A3 STORE CHARACTER IN BUFFER * P RF EXIT2 * P* * PIHTC05 EQU * * $ P LCR A5,A3
0x0e0964…0e0af8 Dummy {f00=0x003c, f01=0x0190, f02=»IM EFFLEN INCREMENT EFFECTIVE LENGTH * . P LDR* A3,A15 RESTORE A3 AND A5 FROM STACK + , P* + ^ PEXIT3 LDR* A5,A15 + h P RTN A15 + P* + * PINRSQ INR A5,0,CHCRDA READ CHAR TO A5 + P ST A5,TCDA5 + P RB EXIT3 + P* + PSST ST A5,TCDA
0x0e0af8…0e0c8c Dummy {f00=0x003c, f01=0x0190, f02=»A4,0 + PTCDA4 EQU *-2 , P LDKL A5,0 , " PTCDA5 EQU *-2 , 4 P LDKL A6,0 , J PTCDA6 EQU *-2 , P LDKL A8,0 , r PTCDA8 EQU *-2 , P EJECT DRTC01 , P* , P* , P LDKL A2,0 RESTORE STATUS , PTCDA2 EQU *-2 , P LDR A3,A
0x0e0c8c…0e0e20 Dummy {f00=0x003c, f01=0x0190, f02=»TN EQU * , P RTN A8 - P* - PCIOHLT EQU * - * P CIO A1,0,CHCRDA CIO-HALT - > P RB EXIT3 - ` P* - r PEXIT ST A1,TCDA1 - | P ST A4,TCDA4 - P ST A5,TCDA5 - P ST A6,TCDA6 - P ST A8,TCDA8 - P ABL TDISP GO TO DISPATCHER - P
0x0e0e20…0e0fb4 (0, 285) Dummy {f00=0x003c, f01=0x0190, f02=»WER ON - ` P* . P* . PRCOVER EQU * . " P CF A8,SELECT SELECT . 6 P ANK A3,1 . R 2 P RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY . d P CF A8,LOCK . P RF(NZ) REPER NO CASSETTE . , P LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ . P RF(NZ)
0x0e0fb4…0e1148 Dummy {f00=0x003c, f01=0x0190, f02=» . ( PRC0050 LD A1,SEKBYT,A6 SEQ. COUNTING / P RF(NZ) REPER NO / 4 P* / L P EJECT DRTC01 / V P* / n P* / x P* R E P O S / P* / * P* REPOSITIONING OF TAPE AT POWER ON / P* AND WRITE RECOVERY / P* / 4 P* EXIT:
0x0e1148…0e12dc Dummy {f00=0x003c, f01=0x0190, f02=» $ P LDK A4,8 SET REPOSITIONING BIT 0 " P ORS A4,DWTST,A6 STORE IN DWT 0 , P* 0 R PREP005 EQU * 0 & P LDK A4,PSUBS SET NO OF BACKSPACES 0 p P* 0 PREP010 CF A8,BKSP BACKSPACE 0 P SLL A2,4 0 P RF(NN) REP015 DATA FOUND 0 & P LD A2,DWTBK
0x0e12dc…0e1470 Dummy {f00=0x003c, f01=0x0190, f02=»LL A2,5 0 P RF(NN) REPER BOT NOT FOUND 1 " P LDKL A5,-1 RESET SEQ. COUNTER 1 4 P RF REP020 READ SEQ. CHAR 1 Z P* 1 | P EJECT DRTC01 1 P* 1 P* 1 PREP015 EQU * 1 P SUK A4,1 1 " P RB(NZ) REP010 BACKSPACE AGAIN 1 $ P LDK A4,PR
0x0e1470…0e1604 Dummy {f00=0x003c, f01=0x0190, f02=» RF(Z) REP020 READ OK 1 P SUK A4,1 COUNT READ 2 $ P RB(P) REP017 NOT ALL READ DONE 2 : P RF REP060 GIVE UP 2 b P* 2 | * PREP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR 2 P SUR A4,A5 CALCULATE 2 P SUK A4,1 NO OF BLOCKS TO 2 P ANK A4,/FF READ FORWA
0x0e1604…0e1798 Dummy {f00=0x003c, f01=0x0190, f02=» A4,1 POSITION TAPE 2 P RF(N) REP040 READY 3 " P CF A8,READSQ READ NEXT BLOCK 3 8 P RB REP030 3 ^ P* 3 p ( PREP040 LDK A4,RTRIES SET NO OF RETRY 3 z & PREP042 LDKL A7,/80F SET READ MASK 3 P TM A2,A7 CORRECT READ 3 P RF(Z) REP045 YES 3 P
0x0e1798…0e192c Dummy {f00=0x003c, f01=0x0190, f02=»42 3 P* 4 P EJECT DRTC01 4 P* 4 , P* 4 6 PREP045 SLC A2,3 4 @ P RF(NN) REP050 NOT TAPE MARK 4 X P ANK A3,/10 4 | * P RF(Z) REP060 SHOULD NOT BE TAPE MARK 4 P RF REPOK 4 P* 4 & PREP050 ADK A5,1 CHECK SEQ. NUMBER 4 P CC
0x0e192c…0e1ac0 Dummy {f00=0x003c, f01=0x0190, f02=»EPER NO 4 , P XRS A7,DWTST,A6 RESET REPOSITIONING BIT 5 P RB REP005 YES 5 @ P* 5 V P* 5 ` 6 PREPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS 5 j " P ORS A2,SEKBYT,A6 SAVE IN DWT 5 P RTN A8 5 P* 5 ( PREPOK LDK A2,0 IND RECOVERY CORRECT
0x0e1ac0…0e1c54 (0, 286) Dummy {f00=0x003d, f01=0x0190, f02=»R CASSETTE RECORDER 02 5 x P* 6 P* 6 ( PDWTC02 EQU * TABLE ENTRY 6 2 P IFT DBCAS=2 6 R P DATA DWTC01+1 DWT NO. 1 6 f 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY 6 P DATA 0 ECB ADDRESS 6 P DATA 0 ORDER 6 ( P DATA TCAD POINTER TO ADDRES
0x0e1c54…0e1de8 Dummy {f00=0x003d, f01=0x0190, f02=» 6 z P DATA 0 SEQ. INDICATOR 7 P XIF 7 & P EJECT DRTC01 7 2 P* 7 J P* 7 T P* D W T C 0 1 7 ^ P* 7 v 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 01 7 P* 7 P* 7 PDWTC01 EQU * TABLE ENTRY 7 P DATA DWTC02 DWT NO. 2 7 0
0x0e1de8…0e1f7c Dummy {f00=0x003d, f01=0x414a, f02=»OCK 7 p P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR 8 ( P DATA 0 TERMINAL QUEUE 8 P & PDWTBKC EQU *-DWTC01 BLOCK COUNTER 8 n P DATA 0 8 PSEKBYT EQU *-DWTC01 8 P DATA 0 SEQ. INDICATOR 8 P* 8 P* 8 " PREQLEN DATA 0 REQU
0x0e1f7c…0e2110 Dummy {f00=0x003d, f01=0x2008, f02=» 9 OCK - x P DATA 0 TTAB-ADDRESS . $ P DATA 0 WAIT/ACTIVATE INDICATOR . 0 P DATA 0 TERMINAL QUEUE . X & PDWTBKC EQU *-DWTC01 BLOCK COUNTER . v P DATA 0 . PSEKBYT EQU *-DWTC01 . P DATA 0 SEQ. INDICATOR . P* . P* . P END . @
0x0e2110…0e22a4 Dummy {f00=0x003d, f01=0x0190, f02=» P LDR* A6,A8 GET ID-WORD : , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES : $ 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION : T $ PGTL010 ABL RTNA15 RETURN AND ENB : P EJECT : P* : P* O U T L I N : P* : : P* SUBROUTINE TO SEND ONE
0x0e22a4…0e2438 Dummy {f00=0x003d, f01=0x0190, f02=»ER CASE DWT IS QUEUED ON A : v P* OUTPUT QUEUE THREAD. ; " P* ; D P* ON ENTRY: ; N P* ; f . P* A2 = OUTPUT CHARACTER IN RIGHT BYTE ; p P* A6 = DWT-ADDRESS ; P* ; POUTLIN EQU * ; " P CF A15,SAVE8 SAVE REGS A1-A8 ; P* ;
0x0e2438…0e25cc Dummy {f00=0x003d, f01=0x0190, f02=» ; * P LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 < P* < 6 P XIF < @ P* < L P* < V P IFT LOCHAN=1 < ` P* < v P LDKL A1,CWTLT1 < P* < P XIF < P* < P INH INHIBIT INTERRUPT < P LDR* A4,A1 IS UNIT FREE ? < P RF(E) OUL050
0x0e25cc…0e2760 Dummy {f00=0x003d, f01=0x0190, f02=»OUL010 CWR A6,A4 < . P RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE = P LD A3,DWTOTQ,A4 = J & P RF(E) OUL030 END OF THREAD FOUND = b P LDR A4,A3 FOLLOW THE THREAD = P RB OUL010 = $ POUL020 ST A6,CWTEQ,A1 QUEUE DWT = P RF OUL040 = $ POUL030 ST A6
0x0e2760…0e28f4 (0, 287) Opaque[0x194]
0x0e28f4…0e2a88 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x0e28f4…0e2a88 IdxSect {
0x0e28f4…0e2a88 f00 = 0x003d // 0xe28f4 @0x0
0x0e28f4…0e2a88 f01 = 0x000a // 0xe28f6 @0x2
0x0e28f4…0e2a88 gno = [ // 0xe28f8 @0x4
0x0e28f4…0e2a88 [0x00]: C0x003d.0x1.0
0x0e28f4…0e2a88 [0x01]: C0x003d.0x2.0
0x0e28f4…0e2a88 [0x02]: C0x003d.0x3.0
0x0e28f4…0e2a88 [0x03]: C0x003e.0x1.0
0x0e28f4…0e2a88 [0x04]: C0x003e.0x2.0
0x0e28f4…0e2a88 ]
0x0e28f4…0e2a88 }
0x0e2a88…0e2c1c Dummy {f00=0x003d, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 8.2 78-09-15 870105040820 P : P* B @ P************************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL P*
0x0e2c1c…0e2db0 Dummy {f00=0x003d, f01=0x0190, f02=» B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP N P* ~ P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TAKEN CARE O
0x0e2db0…0e2f44 Dummy {f00=0x003d, f01=0x0190, f02=»EQUEST,POWER UP h > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH P* -2 IN CONTROL WORD Z P* x P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES NOT REQUIRE
0x0e2f44…0e30d8 Dummy {f00=0x003d, f01=0x0190, f02=» ( P* S O P A S : READ SWITCHES ENTRY P* 4 * P* S O P A L : ACTIVATE LIGHTS ENTRY > P* l & P* I H S O P : INTERRUPT HANDLER v P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWING ORDERS A
0x0e30d8…0e326c Dummy {f00=0x003d, f01=0x0190, f02=» p , P* 39 : WRITE FLASHING LIGHTS P* 8 P* NORMAL REGISTER USAGE: B P* d " P* REGISTER A1: INPUT/OUTPUT n " P* A2: WORK REGISTER P* A3: ---- " P* A4: WORK REGISTER P*
0x0e326c…0e3400 Dummy {f00=0x003d, f01=0x0190, f02=»* P EJECT P* P************ " P* ENTRIES: * 6 P************ J P* ^ P* h * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE r ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALIAS) P ENTRY
0x0e3400…0e3594 (0, 288) Dummy {f00=0x003d, f01=0x018e, f02=»RNALS: * P************** P* & P* TOSS GLOBALS: 0 P* H , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK R 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP A1-A8 CONT'S AND R
0x0e3594…0e3728 Dummy {f00=0x003d, f01=0x018e, f02=» ( P************************************ P* 0 P* DWT DISPLACEMENTS : P* X ( P************************************ b P* $ P EXTRN DWTCHP CHANNEL PARAMETER P EXTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS P EXTRN DWT
0x0e3728…0e38bc Dummy {f00=0x003d, f01=0x0190, f02=» h P EXTRN DWTTQ TERMINAL QUEUE P EXTRN DWTWA WORK AREA , . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT J " P EXTRN ECBCW ECB CONTROL WORD | PTIME EQU 5 FLASH TIME PDWTTP EQU /10 TIMER POINTER P EJECT P* CONDITIONAL ASSEMBLY
0x0e38bc…0e3a50 Dummy {f00=0x003d, f01=0x0190, f02=» P** 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1 N 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS p P* /37 AND /38 RESPECTIVLY B P* BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,..
0x0e3a50…0e3be4 Dummy {f00=0x003d, f01=0x018e, f02=» ECB. P** P PCREDIT EQU 1 P** 4 P** > @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY H P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU 0 P EJECT P* P**************************
0x0e3be4…0e3d78 Dummy {f00=0x003d, f01=0x0190, f02=» P* P* P* " P****************************** & " P* * L " P* S.O.P. CHANNEL UNIT TABLE * r " P* * " P****************************** P* P* 0 PSOPCT EQU * TABL
0x0e3d78…0e3f0c Dummy {f00=0x003d, f01=0x0190, f02=»WITCHES ENTRY z P* & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* J & P DATA SOPAL ACTIVATE LIGHTS ENTRY T P* ~ $ PSPDLCI DATA 0 LIGHT'S CORE IMAGE P* P EJECT P* " P****************************** " P*
0x0e3f0c…0e40a0 Dummy {f00=0x003d, f01=0x0190, f02=»* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. L P* h * PSOPAS EQU * SWITCHES ACTIVATION ENTRY r P* P LDR A4,A7 COPY ORDER P* " P SUK A4,/02 SEE IF READ ORDER: P* * P RF(NZ
0x0e40a0…0e4234 (0, 289) Dummy {f00=0x003d, f01=0x0190, f02=» IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. , P XIF T P IFT CREDIT=1 ` P RF(NZ) EXIT NO v P STR A7,A6 YES P XIF P RF IHSOP3 P* P* & PSOPAL EQU * ACTIVATE LIGHTS ENTRY P*
0x0e4234…0e43c8 Dummy {f00=0x003d, f01=0x0190, f02=»/05 SEE IF 'LIGHTS ON' ORDER P XIF $ P IFT CREDIT=1 0 P SUK A4,/37 F P XIF Z & P RF(Z) SOPON IF SO, TURN ON LIGHTS f P* & P SUK A4,1 SEE IF LIGHTS OFF ORDER P RF(Z) SOPOFF & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT
0x0e43c8…0e455c Dummy {f00=0x003d, f01=0x0190, f02=» ( P RF(NE) FL010 TIMER ALREADY STARTED P LDK A4,DWTTP 0 P ADR A4,A6 F P LDR A1,A6 X P CF A15,SETIMP j P DATA FLTUT,TIME P ST A4,DWTTP,A6 P LDKL A1,/FFBF P ANS A1,DWTST,A6 SET ON FLAG PFL010 EQU * " P LD A4,10,
0x0e455c…0e46f0 Dummy {f00=0x003d, f01=0x0190, f02=»20 & P ORS A4,SPDLCI FIXA TILL DET HELA! P RF SOPONOFF 4 PFL020 EQU * H P C1R A4,A4 P ANS A4,SPDLCI n P RF SOPONOF PFLTUT EQU * FLASH TIME OUT P LDKL A6,DWSO01 P LD A4,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR
0x0e46f0…0e4884 Dummy {f00=0x003d, f01=0x0190, f02=» PFL030 CM DWTTP,A6 P RF EXIT END I/O P XIF 6 P EJECT B P* P 4 PSOPOFF C1 A4,10,A8 GET COMPLEMENTED CONTROL WORD Z 4 P ANS A4,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF P IFT WRFLA=1 $ P ANS A4,FLASH STOP SOME FLASHING P X
0x0e4884…0e4a18 Dummy {f00=0x003d, f01=0x0190, f02=»SOPON LD A4,10,A8 GET CONTROL WORD . P ORS A4,SPDLCI SET LIGHTS TO BE TURNED ON * P IFT WRFLA=1 P C1R A4,A4 p * P ANS A4,FLASH STOP SOME OTHER FLASHING P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET
0x0e4a18…0e4bac Dummy {f00=0x003d, f01=0x0190, f02=»**************************** P* * $ P* S.O.P. INTERRUPT HANDLER * H P* * l P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS.
0x0e4bac…0e4d40 Dummy {f00=0x003d, f01=0x0190, f02=»AV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX @ P IFT CREDIT=0 ^ P SLL A2,1 t P XIF P IFT CREDIT=1 P ADK A2,1 P XIF P PIHSOP1 EQU * P IFF SOPX=0 " P LDKL A6,DWSI02 AN
0x0e4d40…0e4ed4 (0, 290) Dummy {f00=0x003e, f01=0x018e, f02=»STORE INDEX P LDK A1,0 P CF A15,TENDIO END I/O & P XIF D P P ( PIHSOP2 LDKL A6,DWSI01 ANY REQUEST ON X P LD A4,DWTST,A6 STATUS WORD P RF(N) EXIT NO $ P LD A8,DWTECB,A6 GET ECB-ADDRESS P & PIHSOP3 ST A2,ECBCW,A8 STOR
0x0e4ed4…0e5068 Dummy {f00=0x003e, f01=0x0190, f02=» P* * P************************************* * P* * < * P* S.O.P POWER UP RECOVERY ROUTINE * j * P* * * P************************************* P* P* : P
0x0e5068…0e51fc Dummy {f00=0x003e, f01=0x0190, f02=» IN THE POWER FAILURE RECOVERY TABLE (PFTAB). < P* IF RUNNING READ REQUEST THIS IS COMPLETED WITH -2 IN 6 0 P* CONTROL WORD. ELSE -2 IS SAVED IN DWTCHP v P* P* PSOPR EQU * ENTRY POINT P* P CF A15,SAVE8 SAVE REGS. " P
0x0e51fc…0e5390 Dummy {f00=0x003e, f01=0x018e, f02=» P* P IFT CREDIT=0 " P LDKL A2,-2 POWER UP INDICATOR $ P XIF J P IFT CREDIT=1 V P LDK A2,0 l P XIF ~ P P IFF SOPX=0 " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES
0x0e5390…0e5524 Dummy {f00=0x003e, f01=0x0190, f02=» P RF(NN) SOPR2 YES P STR A2,A6 IND POWER UP P > PSOPR2 RB IHSOP1 F P EJECT ^ P* l P* D W S I 0 1 : INPUT DWT v P* PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE I
0x0e5524…0e56b8 Dummy {f00=0x003e, f01=0x0190, f02=»UEUE ~ P* P* D W S O 0 1 : OUTPUT DWT P* : P* D PDWSO01 EQU * N " P DATA /0040 CHANNEL PARAMETER b , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DATA SOPADU POINTER TO ADDRES
0x0e56b8…0e584c Dummy {f00=0x003e, f01=0x413c, f02=» z . PFLASH DATA 0 SAVE AREA FOR FLASHING LAMPS P EJECT : P H P* P * P* D W S I 0 2 : EXTENDED INPUT DWT Z P* P PDWSI02 EQU * P IFF SOPX=0 P DATA 0 P DATA /8000 P DATA 0,0 P DATA SOPADI
0x0e584c…0e59e0 Dummy {f00=0x003e, 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
0x0e59e0…0e5b74 (0, 291) Dummy {f00=0x003e, f01=0x0190, f02=»PERABEL P* P EJECT DRTC01 P* 2 P* < " P* NORMAL USAGE OF REGISTERS: F P* l P* REGISTER A1: RETURN CODE v P* A2: SST STATUS * P* A3: DWT STATUS AFTER SST " P* A4: RETRY COUNT
0x0e5b74…0e5d08 Dummy {f00=0x003e, f01=0x0190, f02=»STACK t P* P* P* SYSTEM ADAPTATION: " P* @ : P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE J P* REDUCED TO HANDLE: P* " P* -ONLY ONE CASSETTE RECORDER 0 P* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED
0x0e5d08…0e5e9c Dummy {f00=0x003e, f01=0x0190, f02=» ENTRY IHTC INTERRUPT ADDRESS . P ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01 & . P ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02 X $ P ENTRY TCDRON POWER UP RECOVERY P P P P* P* $ P******************************** $ P*
0x0e5e9c…0e6030 Dummy {f00=0x003e, f01=0x0190, f02=» 4 P EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE . P EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN < , P EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE n . P EXTRN DISEND GO TO DISPATCHER VIA TENDIO 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY * P
0x0e6030…0e61c4 Dummy {f00=0x003e, f01=0x0190, f02=»RN ECBRL REQUESTED LENGTH IN ECB ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB ( $ P EXTRN ECBCW CONTROL WORD IN ECB T P EJECT DRTC01 | P* P* P****************** P* DWT PARAMETERS * P****************** P* P* &
0x0e61c4…0e6358 Dummy {f00=0x003e, f01=0x0190, f02=»T f , P* BIT #12 - REPOSITIONING AT RECOVERY " P* BIT #13 - WRITE PROTECTED : P* BIT #14 - A-SIDE ` * P BIT #15 - DEVICE LOCKED (OPERABLE) | P EXTRN DWTOR DWT ORDER " P EXTRN DWTECB DWT ECB ADDRESS P EJECT DRTC01 P*
0x0e6358…0e64ec Dummy {f00=0x003e, f01=0x0190, f02=»ER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE " P* RECORDER BY SETTING X:A=1 6 P* PX:A EQU 1 f PDBCAS EQU X:A x P* 6 P* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED P* BY SETTING X:B=0 P* PX:B EQU 0
0x0e64ec…0e6680 Dummy {f00=0x003e, f01=0x0190, f02=»N ENTRY x " P DATA 0 ABORT ROUTINE ADDRESS P RES 4 SUBROUTINE STACK 6 PSTB EQU *-2 V P* j P* t $ PTAB DATA /0031,/2237,/3802,/0506 ~ P IFT REVER=1 P DATA /2633,/24FF P XIF PTABL EQU *-TAB P EJECT DRTC01
0x0e6680…0e6814 (0, 292) Opaque[0x194]
0x0e6814…0e69a8 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x0e6814…0e69a8 IdxSect {
0x0e6814…0e69a8 f00 = 0x003e // 0xe6814 @0x0
0x0e6814…0e69a8 f01 = 0x000e // 0xe6816 @0x2
0x0e6814…0e69a8 gno = [ // 0xe6818 @0x4
0x0e6814…0e69a8 [0x00]: C0x003e.0x3.0
0x0e6814…0e69a8 [0x01]: C0x003f.0x0.0
0x0e6814…0e69a8 [0x02]: C0x003f.0x1.0
0x0e6814…0e69a8 [0x03]: C0x003f.0x2.0
0x0e6814…0e69a8 [0x04]: C0x003f.0x3.0
0x0e6814…0e69a8 [0x05]: C0x0040.0x0.0
0x0e6814…0e69a8 [0x06]: C0x0040.0x2.0
0x0e6814…0e69a8 ]
0x0e6814…0e69a8 }
0x0e69a8…0e6b3c Dummy {f00=0x003e, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 8.2 78-09-15 870105040820 P : P* B 2 P********************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* D P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS X/1215 AND/OR X/1216 P*
0x0e6b3c…0e6cd0 Dummy {f00=0x003e, f01=0x0190, f02=»* THIS DISC DRIVER HANDLES UP TO TWO DISC 6 P* DRIVES X/1215,X/1216 CONNECTED TO CPU VIA IOP 4 P* ON MULTIPLEX CHANNEL n P* P* * P* THE FOLLOWING ORDERS ARE TRAETED : P* P* /00 TEST STATUS P* /01 BASIC
0x0e6cd0…0e6e64 Dummy {f00=0x003e, f01=0x0190, f02=» P P P* P*********** " P* ENTRIES * 6 P*********** J P* ^ $ P ENTRY DUADR ACTIVATION ADDRESS h P ENTRY DUON RECIVERY ROUTINE 2 P ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1 2 P ENTRY IHDU INTERRUPT HANDLER
0x0e6e64…0e6ff8 Dummy {f00=0x003e, f01=0x0190, f02=»WDU02 DWT-ADDRESS DISC UNIT NO. 2 P * P 2 P : P* B P************* L P* EXTERNALS * b P************* x P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK P E
0x0e6ff8…0e718c Dummy {f00=0x003e, f01=0x0190, f02=»FLG INITIALIZATION FLAG P EXTRN DWTVOL VOLUME NAME * P EXTRN INTSAV SAVEAREA LAST INTERRUPT B P EXTRN SETIMP TIMER p P EJECT P P P* P************************** P* * P* CONDITIONAL A
0x0e718c…0e7320 Dummy {f00=0x003e, f01=0x018e, f02=» ORDER /15 h P* BY SETTING X:A = 0 P* 0 P : PX:A EQU 0 B PRAW EQU 1 T P* f P* p . P* THIS DRIVER CAN HANDLE TWO DISC UNITS z P* IF X:B := 2 P* P PX:B EQU 1 PNUNITS EQU 1 P* P*
0x0e7320…0e74b4 (0, 293) Dummy {f00=0x003f, f01=0x0190, f02=» P* 4 P* DRIVE 2 MAY BE A X/1216 INSTEAD OF A X/1215 P* BY SETTING X:D = 1 J P* h PX:D EQU 0 r PTYPE2 EQU 1 P EJECT DRDU01 P P P* P************* P* CONSTANTS * P*************
0x0e74b4…0e7648 Dummy {f00=0x003f, f01=0x0190, f02=»EVICE ADDRESS FIXED DISC NO. 2 4 PDAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2 & $ PWER1 EQU /10 MULTIPLEXOR ADDRESS ^ & PCUADR EQU /08 CONTROL UNIT ADDRESS P P * PMAXCY5 EQU 203 MAX CYLINDER NO X/1215 * PMAXCY6 EQU 407 MAX. CYLIND
0x0e7648…0e77dc Dummy {f00=0x003f, f01=0x0190, f02=» z PTIME EQU 1000 2 MINUTES P ( P 0 P* 8 P*********************** B P* * b P* DWT-DISPLACEMENTS * P* * P*********************** P* * PDWTA2 EQU /12 DWT-DISPLACEME
0x0e77dc…0e7970 Dummy {f00=0x003f, f01=0x018e, f02=» ,1:ST STACK BASE v . PDWTSB2 EQU /1E ,STACK BASE P EJECT DRDU01 P P h P p P************** x P* & PDUADR DATA DUAD ACTIVATION ADDRESS ( PBUF RES 5 SECTOR BUFFER - 200 WORDS P IFT RAW=1 $ P RES 200
0x0e7970…0e7b04 Dummy {f00=0x003f, f01=0x0190, f02=» P* 6 P* TABLE FOR CONVERSION FROM LOGICAL TO PHYSICAL P* SECTOR NUMBER L P* f P* p @ PSECTAB DATA /0003,/0609,/0C0F,/0205,/080B,/0E01,/0407,/0A0D z : P DATA /1013,/1619,/1C1F,/1215,/181B,/1E11,/1417,/1A1D P EJECT DRD
0x0e7b04…0e7c98 Dummy {f00=0x003f, f01=0x0190, f02=»***************** P* PDUAD EQU * ACTIVATION ENTRY $ P IFT NUNITS=2 H P LDKL A1,/7FFF ^ ( P LDR* A2,A6 GET OTHER DISC UNIT DWT t . P ANS A1,DWTST,A2 SET OTHER DISC UNIT BUSY P XIF P P P SUK A5,4 STACK BASE
0x0e7c98…0e7e2c Dummy {f00=0x003f, f01=0x0190, f02=» P ADR A1,A6 P LD A2,DWTBSY,A1 P RF(Z) DUA:10 DISC READY 2 P LDR A7,A7 R $ P RF(Z) DUA:10 TEST STATUS ORDER d & P LDK A1,/80 DISC HAS BECOME READY P ABL END:15 P EJECT P P PDUA:10 LDR A1,A7 ORDER P R
0x0e7e2c…0e7fc0 Dummy {f00=0x003f, f01=0x0190, f02=»UK A1,12 P RF(Z) DUA:20 PHYSICAL READ P SUK A1,4 6 P RF(Z) DUA:20 PHYSICAL WRITE H P l P EJECT t P P " PDUERR ABL DISIOE REQUEST ERROR P P & PDUA:20 LDK A4,RY4 RETRY COUNT = 4 P P ST A4,RETRY M
0x0e7fc0…0e8154 (0, 294) Dummy {f00=0x003f, f01=0x0190, f02=» P EJECT DRDU01 P P $ ( P LD A2,10,A8 RELATIVE SECTOR NUMBER , P LDR A3,A2 X & P ANK A3,/1F LOGICAL SECTOR NUMBER j , P LC A3,SECTAB,A3 PHYSICAL SECTOR NUMBER P SC A3,DWTSEC,A6 SAVE IT P P P SRL A2,5 CYLINDER N
0x0e8154…0e82e8 Dummy {f00=0x003f, f01=0x0190, f02=» WITH CURRENT CYLINDER NUMBER x . P RF(E) DU:030 DISC HEAD ALREADT POSITIONED & * P ST A2,DWTCYL,A6 SAVE CYLINDER NUMBER X P P EJECT DRDU01 P P P* P************************ P* * P* SEEK
0x0e82e8…0e847c Dummy {f00=0x003f, f01=0x0190, f02=» P SLC A1,6 & P RF(NN) DU:030 OK. SEEK COMPLETED P @ P H P* P P************************ Z P* * z P* SEEK CYLINDER 0 * P* * P************************ P* & PDU:0
0x0e847c…0e8610 Dummy {f00=0x003f, f01=0x0190, f02=»IN z P * PDU:020 LDKL A3,/FFFF ALL RETRIES DONE 0 P ST A3,DWTCYL,A6 SET ILLEGAL CYLINDER NUMBER @ ( P LDKL A1,/200 SEEK ERROR RETURN CODE t P ABL END:IO PERFORM ENDIO P EJECT DRDU01 P P P* P********************
0x0e8610…0e87a4 Dummy {f00=0x003f, f01=0x0190, f02=»****** | P* P* PDU:030 LDR A1,A7 ORDER " P RF(Z) TEST TEST STATUS @ P SUK A1,5 ` P RF(Z) WRIT:N BASIC WRITE r P SUK A1,12 P RF(NP) READ:N READ P P P P* P************************ P*
0x0e87a4…0e8938 Dummy {f00=0x003f, f01=0x0190, f02=»WRIT CF A5,WER:R5 EXECUTE WER INSTRUCTIONS P CF A5,READ5 READ FIVE WORDS 2 P ANK A1,2 V , P RF(Z) P:WR10 OK. CHECK CYLINDER NUMBER h & P SUK A4,1 DECREMENT RETRY COUNTER $ P ABL(Z) END:IO ALL RETRIES DONE P RB P:WRIT TRY AGAIN P
0x0e8938…0e8acc Dummy {f00=0x003f, f01=0x0190, f02=»UMBER d ( P RB(NE) DU:015 ERROR.SEEK CYLINDER 0 P : P B P J P* R P********************* P* * z P* WRITE SECTOR N * P* * P********************* P* 0 PWRIT:N CF A5
0x0e8acc…0e8c60 Dummy {f00=0x003f, f01=0x0190, f02=» SUK A4,1 DECREMENT RETRY COUNTER $ P ABL(Z) END:IO ALL RETRIES DONE * P RB WRIT:N TRY AGAIN R P n P IFT RAW=1 v PWRIT20 CWK A7,5 P ABL(E) END:IO BASIC WRITE & P LDKL A3,BUF DRIVER BUFFER ADDRESS P XIF P IFF RAW=1 $
0x0e8c60…0e8df4 (0, 295) Dummy {f00=0x003f, f01=0x0190, f02=» * P* READ SECTOR N * P* * : P********************** X P* v 0 PREAD:N CF A5,WER:R EXECUTE WER INSTRUCTIONS P CF A5,READ READ SECTOR N P ANK A1,/F $ P RF(Z) READ10 OK. NO RETURN CODE
0x0e8df4…0e8f88 Dummy {f00=0x003f, f01=0x0190, f02=»******************* P* * P* CHECK CYLINDER NUMBER * @ P* * d P*************************** P* P* 4 PREAD10 LD A2,DWTCYL,A6 REQUESTED CYLINDER NUMBER 6 P CW* A2,2,A8 COM
0x0e8f88…0e911c Dummy {f00=0x003f, f01=0x0190, f02=»RDU01 P P P* P********************* ( P* * F P* TEST STATUS * d P* * P********************* P* 4 PTEST LDKL A2,DWTNAM VOLUME NAME DWT DISPLACEMENT P ADR A2,
0x0e911c…0e92b0 Dummy {f00=0x003f, f01=0x018e, f02=»A2,10,A8 SAVE ADDRESS TO VOLUME NAME P SUR A1,A1 SET RETURN CODE=0 , P ABL END:IO PEABLORM ENDIO P P EJECT DRDU01 r P P P* " P****************************** " P* * " P* EXECUTE WER INSTRUCTI
0x0e92b0…0e9444 Dummy {f00=0x003f, f01=0x0190, f02=» l & P LDKL A3,BUF DRIVER BUFFER ADDRESS P RF EX:WER 2 P D P L & PWER:R LDKL A2,/80CD READ 1 SECTOR T P CWK A3,BUF ~ P RF(E) EX:WER P RF WER:WB P P & PWER:W LDKL A2,/C0CD WRITE 1 SECTOR * PWER:WB LD A3,2,A8 US
0x0e9444…0e95d8 Dummy {f00=0x003f, f01=0x018e, f02=» P EJECT DRDU01 P P $ P* , P******************* 6 P* * R P* SEEK CYLINDER * n P* * P******************* P* ( PSEEK LD A2,DWTCYL,A6 CYLINDER NUMBER P SLL A2,3
0x0e95d8…0e976c Dummy {f00=0x003f, f01=0x0190, f02=» t P P ( PREAD5 LC A2,DWTSEC,A6 SECTOR NUMBER P ANK A2,/1F D P SUK A2,3 SECTOR N-1 X P ANK A2,/1F t P SLL A2,2 P RF CIO EXECUTE CIO-START P EJECT DRDU01 P P & PREAD LC A2,DWTSEC,A6 SECTOR NUMBER
0x0e976c…0e9900 Dummy {f00=0x003f, f01=0x0190, f02=» , P ST* A2,2,A8 PUT CYLNMB. IN USER BUFFER " P LC A2,DWTSEC,A6 SECTOR NUMBER 4 P SLL A2,2 Z P ADK A2,1 l P EJECT DRDU01 ~ P P P PCIO EQU * P P PEX:CIO LC A1,DWTOR,A6 P ANK A1,1 INDEX P A
0x0e9900…0e9a94 (0, 296) Dummy {f00=0x003f, f01=0x0190, f02=»2 p " P ST A4,DWTA4,A6 A4 " P ST A5,DWTA5,A6 A5 0 & PT:DISP ABL TDISP GO TO DISPATCHER V P EJECT DRDU01 P P P* P********************** P* * P* RECOVERY ROUTINE *
0x0e9a94…0e9c28 Dummy {f00=0x003f, f01=0x0190, f02=»A6,DWDU01 P & P LD A1,INIFLG INITIALIZATION FLAG P RF(Z) DUON08 POWER UP D P b P j PDURED2 EQU * r P LDKL A1,/7FFF ( P ANS A1,DWTST,A6 SET DISC UNIT BUSY $ PDUON05 LDKL A5,DWTSB2 STACK BASE P LDKL A6,DWDU01 P
0x0e9c28…0e9dbc Dummy {f00=0x003f, f01=0x0190, f02=»DR* A6,A6 OTHER DISC UNIT DWT-ADDRESS P LDKL A5,DWTSB2 . P ADR A5,A6 STACK BASE F P d P l P LDKL A1,/7FFF t " P ANS A1,DWTST,A6 SET DWT BUSY P P " P CF A5,VO:NAM GET VOLUME NAME P CF A15,TENDIO PERFORM ENDIO
0x0e9dbc…0e9f50 Dummy {f00=0x003f, f01=0x018e, f02=»B(Z) DURED2 NO TIMER ACTIVE P RB T:DISP TIMER ACTIVE ! $ P EJECT ! D PDUON08 EQU * ! R P LDK A1,2 THROUGHPUT ERROR ! f " P LD A2,DWTST,A6 GET DWT STATUS ! P RF(N) DUON10 UNIT FREE ! P CF A15,TENDIO PERFORM ENDIO ! P ! P ! PDUON10
0x0e9f50…0ea0e4 Dummy {f00=0x003f, f01=0x0190, f02=» ! v P CF A15,TENDIO PERFORM ENDIO " P XIF " , P* " 8 $ P* SET DISC BUSY AND START TIMER " B P* " j PDUON20 LDKL A1,/7FFF " t P IFT NUNITS=2 " " P ANS A1,DWTST,A6 SET UNIT BUSY " " P LDR* A6,A6 OTHER DWT ADDRESS " P XIF " " P ANS A1,DW
0x0ea0e4…0ea278 Dummy {f00=0x003f, f01=0x018e, f02=»A1,-TIME " P STR A1,A3 RESTART TIMER # P RB T:DISP # 0 P* # B $ PDUON30 CF A15,SETIMP START TIMER # L , P DATA DUON40,TIME TIME OUT ADDRESS, TIME # t P RB T:DISP # P* # P* TIME-OUT # P* # PDUON40 LDKL A6,DWDU01 # P CM TIMER #
0x0ea278…0ea40c Dummy {f00=0x003f, f01=0x0190, f02=» P* INTERRUPT HANDLER * $ P* * $ $ P*********************** $ D P* $ d PIHDU2 EQU * $ n P IFT NUNITS=2 $ $ P ST P,INTSAV SAVE LAST INTERRUPT $ P CF A15,SAVE8 $ $ P LDKL A6,DWDU02 DISC UNIT NO. 2 $ P RF IHDU10
0x0ea40c…0ea5a0 Dummy {f00=0x003f, f01=0x0190, f02=»DISC UNIT NO. 1 $ P % P % " PIHDU10 SST A1,CUADR GET STATUS % ( P IFT NUNITS=2 % N P LDR A2,A1 % d P ANK A2,/40 % v P RF(Z) IHDU20 % P LDKL A6,DWDU02 % P XIF % PIHDU20 EQU * % $ P ANKL A1,/440F MASK RETURN CODE % P SLL A1,
0x0ea5a0…0ea734 (0, 297) Dummy {f00=0x0040, f01=0x0190, f02=» % P ANK A3,1 & * P RF(NZ) END:IO DISC UNIT NOT OPERABLE & P EJECT DRDU01 & H P & ` P & h * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 & p ( P LD A4,DWTA4,A6 A4 & ( P LD A2,DWTA2,A6 A2 & P LD A7,DWTOR,A6 &
0x0ea734…0ea8c8 Dummy {f00=0x0040, f01=0x0190, f02=»***************** & P* * ' P* PERFORM ENDIO * ' 6 P* * ' R P******************* ' n P* ' PEND:IO EQU * ' P ' " P ANKL A1,/28F MASK RETURN CODE ' P RF(NZ) END:10 ERROR ' " P LD A2,4,A8 REQUESTED
0x0ea8c8…0eaa5c Dummy {f00=0x0040, f01=0x0190, f02=»,A6 ' P RF(E) END:15 NO RETRY ( " P ORKL A1,/100 BIT 7 = RETRIES ( * PEND:15 EQU * ( P P LC A2,DWTOR,A6 ORDER ( d P ANK A2,1 INDEX ( P ADR A2,A2 ( P ADR A2,A6 ( " P CM DWTBSY,A2 RESET READY WORD ( P IFT NUNITS=2 ( , P LDR* A6,A6 OT
0x0eaa5c…0eabf0 Dummy {f00=0x0040, f01=0x0190, f02=»5,TENDIO PERFORM ENDIO ( & PEND:20 ABL TDISP GO TO DISPATCHER ) P EJECT ) H P ) V P ) ^ PVO:NAM LD A1,DWTOR,A6 ORDER ) f P ST A1,DWTSAV,A6 SAVE IT ) P CM DWTOR,A6 INDEX=0 ) PVO:NA5 EQU * ) P ) P ) P ) $ PDU:NAM CF A5,SEEKZ SEE
0x0eabf0…0ead84 Dummy {f00=0x0040, f01=0x0190, f02=» ) j " P SUR A2,A2 CYLINDER NUMBER = 0 * P ST A2,DWTCYL,A6 * . P CF A5,CIO READ VOLUME LABEL * F P ANK A1,3 * j 0 P RF(NZ) VO:NA8 THROUGHPUT-ERROR,NOT OPERABLE * | P * P * P LDKL A2,DWTNAM * P ADR A2,A6 * P LC A1,DWTOR,A6 * P ANK A
0x0ead84…0eaf18 Dummy {f00=0x0040, f01=0x0190, f02=» * n " P LDKL A3,BUF+2 BUFFER ADDRESS + P LDK A4,6 + . P + @ P + H P + P & PDUNA20 LDR* A7,A3 GET VOLUME NAME + X . P CWR* A7,A2 COMPARE WITH LAST VOLUME NAME + P RF(E) DUNA30 SAME DISC + P LDK A1,/80 NEW DISC LOADED + P + P + P
0x0eaf18…0eb0ac Dummy {f00=0x0040, f01=0x0190, f02=»ET NEXT WORD + P , P , P LDR A1,A1 , $ P RF(Z) DUNA40 VOLUME MATCH , 6 P LC A2,DWTOR,A6 INDEX , X P ANK A2,1 , v P ADR A2,A2 , P ADR A2,A6 , & P ST A1,DWTBSY,A2 NEW VOLUME LOADED , PDUNA40 EQU * , P , P , P LD A1,DWTOR,A
0x0eb0ac…0eb240 Dummy {f00=0x0040, f01=0x018e, f02=» GET OLD DWT CONTENTS , z P ST A1,DWTOR,A6 SAVE IT - P LDKL A1,-1 - > P ST A1,DWTSAV,A6 - R P LDKL A5,DWTSB1 - j P ADR A5,A6 STACK BASE - ( P LDK A1,1 RETURN CODE. NOT OPERABLE - P RTN A5 - P* - P* - P* TIMER POINTER -
0x0eb240…0eb3d4 (0, 298) Dummy {f00=0x0040, f01=0x0190, f02=» - h P* . P* . PDWDU02 EQU * . P IFT NUNITS=2 . 0 & P DATA DWDU01 POINTER TO OTHER DWT . F P DATA /8000 DWT STATUS . p P DATA 0 ECB-ADDRESS . P DATA 0 ORDER . " P DATA DUADR ACTIVATION ADDRESS . P DATA 0 TTAB-ADDRESS . $ P DATA
0x0eb3d4…0eb568 Dummy {f00=0x0040, f01=0x0190, f02=»GISTERS . t P DATA 0,0 STACK / P DATA 0,0 / ( & P DATA /80 DISC UNIT BUSY INDICATOR / : P DATA /80 / d $ P RIGHT BYTE = CYLINDER NUMBER / v ( P CIO A2,1,DAF2 CIO-START FIXED DISC / , P CIO A2,1,DAC2 CIO-START CARTRIDGE DISC / P WER A2,WER1 /
0x0eb568…0eb6fc Dummy {f00=0x0040, f01=0x0190, f02=»A /FFFF CYLINDER NO. / P IFT TYPE2=0 0 P DATA MAXCY5 MAX CYLINDER NO 0 0 P XIF 0 T P IFT NUNITS+TYPE2=3 0 ` P DATA MAXCY6 MAX CYLINDER NO 0 | P XIF 0 P EJECT DRDU01 0 P 0 P* 0 * P* DEVICE WORK TABLE DISC UNIT NO. 1 0 P* 0
0x0eb6fc…0eb890 Dummy {f00=0x0040, f01=0x0190, f02=» DATA 0 ORDER 0 " P DATA DUADR ACTIVATION ADDRESS 1 P DATA 0 TTAB-ADDRESS 1 < $ P DATA 0 WAIT/ACTIVATE INDICATOR 1 X P DATA 0 TERMINAL QUEUE 1 PDWTSEC EQU *-DWDU01 1 ( P DATA /00FF LEFT BYTE=SECTOR NUMBER 1 ( P DATA 0,0,0 SAVE AREA FOR REGISTER
0x0eb890…0eba24 Dummy {f00=0x0040, f01=0x0190, f02=»Y INDICATOR 1 ~ " PDWTCIO EQU *-DWDU01 CIO-START 2 P CIO A2,1,DAF1 2 : P CIO A2,1,DAC1 2 P , PDWTWR1 EQU *-DWDU01 1:ST WER INSTRUCTION 2 f P WER A2,WER1 2 , PDWTWR2 EQU *-DWDU01 2:ND WER INSTRUCTION 2 P WER A3,WER1+1 2 PDWTNAM EQU *-DWDU01 2
0x0eba24…0ebbb8 Dummy {f00=0x0040, f01=0x411c, f02=»DWTCYL EQU *-DWDU01 2 P DATA /FFFF CYLINDER NUMBER 3 P IFT TYPE1=0 3 @ PDWTCMX EQU *-DWDU01 3 T $ P DATA MAXCY5 MAX CYLINDER X/1215 3 p P XIF 3 P IFT TYPE1=1 3 PDWTCMX EQU *-DWDU01 3 ( P DATA MAXCY6 MAX CYLINDER NO X/1216 3 P XIF 3
0x0ebbb8…0ebd4c Dummy {f00=0x0040, f01=0x2008, f02=» 4 -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 . @
0x0ebd4c…0ebee0 Dummy {f00=0x0040, f01=0x0190, f02=»* P EJECT P* P************ " P* ENTRIES: * 6 P************ J P* ^ P* h * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE r ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALIAS) P ENTRY
0x0ebee0…0ec074 (0, 299) Opaque[0x194]
0x0ec074…0ec208 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0818, f03=0x0000}
0x0ec074…0ec208 IdxSect {
0x0ec074…0ec208 f00 = 0x0040 // 0xec074 @0x0
0x0ec074…0ec208 f01 = 0x002a // 0xec076 @0x2
0x0ec074…0ec208 gno = [ // 0xec078 @0x4
0x0ec074…0ec208 [0x00]: C0x0040.0x3.0
0x0ec074…0ec208 [0x01]: C0x0041.0x0.0
0x0ec074…0ec208 [0x02]: C0x0041.0x1.0
0x0ec074…0ec208 [0x03]: C0x0041.0x2.0
0x0ec074…0ec208 [0x04]: C0x0041.0x3.0
0x0ec074…0ec208 [0x05]: C0x0042.0x0.0
0x0ec074…0ec208 [0x06]: C0x0042.0x1.0
0x0ec074…0ec208 [0x07]: C0x0042.0x2.0
0x0ec074…0ec208 [0x08]: C0x0042.0x3.0
0x0ec074…0ec208 [0x09]: C0x0043.0x0.0
0x0ec074…0ec208 [0x0a]: C0x0043.0x1.0
0x0ec074…0ec208 [0x0b]: C0x004c.0x2.0
0x0ec074…0ec208 [0x0c]: C0x004c.0x3.0
0x0ec074…0ec208 [0x0d]: C0x004d.0x2.0
0x0ec074…0ec208 [0x0e]: C0x004d.0x3.0
0x0ec074…0ec208 [0x0f]: C0x004e.0x0.0
0x0ec074…0ec208 [0x10]: C0x004e.0x1.0
0x0ec074…0ec208 [0x11]: C0x004e.0x2.0
0x0ec074…0ec208 [0x12]: C0x004e.0x3.0
0x0ec074…0ec208 [0x13]: C0x004f.0x0.0
0x0ec074…0ec208 [0x14]: C0x004f.0x1.0
0x0ec074…0ec208 ]
0x0ec074…0ec208 }
0x0ec208…0ec39c Dummy {f00=0x0040, f01=0x018e, f02=» 2 P IDENT DRDC15 REL 9.1 78-09-15 870106440911 P : P IBM-3270 EMULATION B P REL 8.1 78-08-25 ` $ P MESSAGE QUEUING ON TERMINALS | P REL 8.1 78-06-21 P PTS 6805 ADAPTION P MSV1. UNDEFINED ADDRESS P REL 8.1
0x0ec39c…0ec530 Dummy {f00=0x0040, f01=0x018e, f02=» z P 2 P********************************************* P* F $ P* PHILIPS TERMINAL SYSTEM PTS P P* x * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P*
0x0ec530…0ec6c4 Dummy {f00=0x0040, f01=0x0190, f02=» P* ENTRY POINTS P* P* ( 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS 2 " P ENTRY IH1501 INPUT INTERRUPT h " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P*
0x0ec6c4…0ec858 Dummy {f00=0x0040, f01=0x0190, f02=» l $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR 0 P EXTRN SETIME SET TIMER T P EXTRN DWTST DWT STATUS t P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEB
0x0ec858…0ec9ec Dummy {f00=0x0040, f01=0x0190, f02=»STANDARD INTERFACE PART FOR DATA COMMUNICATION P* 6 P* @ P* J P* T P* DWT CONTENTS ^ P* t J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) ~ P* P* DWT DISPLACEMENTS P* . PDWTTP EQU /1
0x0ec9ec…0ecb80 Dummy {f00=0x0040, f01=0x018e, f02=»E QUEUE | ( PDWTBUF EQU /18 DEVICE BUFFER ADDRESS " PDWTCUR EQU /1A CURSOR ADDRESS < P* b P* ECB DISPLACEMENTS l P* PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8
0x0ecb80…0ecd14 (0, 300) Dummy {f00=0x0041, f01=0x0190, f02=» V P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY P* @ P* J & PX:A EQU 2000 RECEIVE BUFFER LENGTH T PRBUFL EQU 300 ~ ( PX:B EQU 1000 TRANSMIT BUFFER LENGTH PTBUFL EQU 260 PX:C EQU /60 DCTASK FILE CODE PDC15FC EQU /60
0x0ecd14…0ecea8 Dummy {f00=0x0041, f01=0x0190, f02=»STATUS AND RVI HANDLING IF=1 PSTAT EQU 1 $ ( PX:G EQU 1 READ COMMAND HANDLING IF=1 6 PRCOM EQU 1 b & PX:H EQU 254 TRANSMIT BLOCK LENGTH t PTBLEN EQU 252 ( PX:I EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 1 * PX:J EQU 0 IF 1 SPECIFI
0x0ecea8…0ed03c Dummy {f00=0x0041, f01=0x0190, f02=»SPEED EQU 1 * PX:L EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU 0 B . PX:M EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) T PRBUFNR EQU 2 . PX:N EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 PX:O EQU /02 P IFT P6805=0 , P
0x0ed03c…0ed1d0 Dummy {f00=0x0041, f01=0x0190, f02=» PX:P EQU 0 , PIBMCHR EQU 0 IF 1 IBM CHARACTER HANDLING . PX:Q EQU 0 IF 1 MESSAGE PASSING TO DC TASK F PMESPAS EQU 1 x 4 PX:R EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION , PTS
0x0ed1d0…0ed364 Dummy {f00=0x0041, f01=0x0190, f02=»E THAT f 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". B , P ONLY WORKING IF STAT IS SET TO "ONE". v P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF
0x0ed364…0ed4f8 Dummy {f00=0x0041, f01=0x0190, f02=»* P* REQUEST HANDLING P* $ P* . P* 8 P* A7=ORDER B P* T P* /02: READ ^ P* /06: WRITE r P* /08: EXCHANGE P* /22: RELEASE READ BUFFER P* /31: GET WRITE BUFFER P* /37: TRANSFER PARAMETERS P* /38:
0x0ed4f8…0ed68c Dummy {f00=0x0041, f01=0x018e, f02=»DCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS . $ PDCWRQ DATA 0 WRITE REQUEST QUEUE R P IFF TBUFL=0 z * PDCGWQ DATA 0 GET BUFFER REQUEST QUEUE P XIF , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL , PDC15DC DATA DCAC
0x0ed68c…0ed820 Dummy {f00=0x0041, f01=0x0190, 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
0x0ed820…0ed9b4 (0, 301) Dummy {f00=0x0041, f01=0x0190, f02=» DCWR P SUK A7,/08-/06 P RF(Z) DCEX EXCHANGE & P SUK A7,/22-/08 B $ P RF(Z) DCRR RELEASE READ BUFFER Z P SUK A7,/37-/22 $ P RF(Z) DCTP TRANSFER PARAMETERS P SUK A7,/38-/37 P IFF STAT=0 P RF(Z) DCSS SET STATUS
0x0ed9b4…0edb48 Dummy {f00=0x0041, f01=0x0190, f02=» P* P* P* ACTIVATION FROM DCTASK P* 8 P* B PDCACTD EQU * L P SUK A7,/02 ` P RF(E) DCRDDC READ t P SUK A7,/22-/02 $ P RF(E) DCRR RELEASE READ BUFFER P SUK A7,/37-/22 $ P RF(E) DCTP TRANSFER PARAMETERS
0x0edb48…0edcdc Dummy {f00=0x0041, f01=0x0190, f02=» P* REQUEST FROM DC-TASK P* COMPLETE WHEN: " & P* STATUS CHANGE ON DC EQUIPMENT : $ P* SPONTANOUS MESSAGE RECEPTION d P* PDCRDDC EQU * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED PDCRTN EQU * P ABL TDISP GO TO DISPATCHE
0x0edcdc…0ede70 Dummy {f00=0x0041, f01=0x018e, f02=»COMPUTER ADDRESS f : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P* V P* ` P IFF CODE=1 j & PDCTP LD A2,ECBCW,A8 GET PARAMETER ~ P XIF P IFT CODE=1 & PDCTP LC A2,ECBCW,A8 GET TCS IF ANY P ANK A2,/FF P R
0x0ede70…0ee004 Dummy {f00=0x0041, f01=0x0190, f02=» n P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P XIF H ( P STR A2,A6 SAVE IN FIRST WORD OF DWT T P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6 ( P LD A3,ECBRL,A8 CURSOR ADDRESS WORD
0x0ee004…0ee198 Dummy {f00=0x0041, f01=0x0190, f02=»D A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? , & P ABL(E) DISIOE YES!! REQUEST ERROR Z P EJECT P P PDCTP20 EQU * P IFT EM3270=0 " P LDKL A5,STB2 LOAD STACK BASE , P CF A5,FINTER DWT ALRE
0x0ee198…0ee32c Dummy {f00=0x0041, f01=0x0190, f02=» * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P 6 * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH > P IFT STAT=1 l P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF PDCTP30 EQU * P SUR A1,
0x0ee32c…0ee4c0 Dummy {f00=0x0041, f01=0x0190, f02=» P* WRITE P* P* P* COMPLETE WHEN: ( P* SUCCESFUL TRANSMISSION @ P* TIME OUT b P* v P* PDCWR EQU * P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P*
0x0ee4c0…0ee654 (0, 302) Dummy {f00=0x0041, f01=0x0190, f02=»RD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A3,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE 0 " P RF(Z) DCRD10 NOTHING IN QUEUE b P ( P LDR* A2,A3 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A3,6 P ST A3,ECBBA,A8 & P LD A4,-4,
0x0ee654…0ee7e8 Dummy {f00=0x0041, f01=0x018e, f02=»TIMERE START TIMER P RB DCRTN P EJECT , P* : P* D P* GET WRITE BUFFER N P* h P* r P IFF TBUFL=0 | P* COMPLETE WHEN: P* BUFFER BEEN ALOCATED P* TIME OUT P* P* PDCGW EQU * & P CF A1
0x0ee7e8…0ee97c Dummy {f00=0x0041, f01=0x0190, f02=» z ( P ST A1,ECBEL,A8 STORE BUFFER LENGTH P LDK A1,0 4 P RB ENDIO COMPLETE REQUEST F PDCGW10 EQU * h P CF A15,TIMERE START TIMER | P CF A15,INSGWQ QUEUE REQUEST P RB DCRTN P XIF P EJECT P* P* P* RELE
0x0ee97c…0eeb10 Dummy {f00=0x0041, f01=0x0190, f02=» A1,0 * P CF A15,TENDIO COMPLETE RRBUF REQUEST P RB DCRTN < P EJECT N P* P* f P* EXCHANGE p P* P* P* P* COMPLETE WHEN: " P* MESSAGE PASSED TO TERMINAL P* TIME OUT P* PDCEX EQU *
0x0eeb10…0eeca4 Dummy {f00=0x0041, f01=0x0190, f02=» EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR < P RF(Z) DCSS20 DEVICE END X PDCSS10 EQU * x P ST A1,DWTST,A6 P RB DCRR10 COMPLETE REQUEST PDCSS20 EQU * P LD A1,DWTST,A6 P ANK A1,9 ( P R
0x0eeca4…0eee38 Dummy {f00=0x0041, f01=0x0190, f02=»B DCSS10 P XIF P EJECT P* * P* 4 P* > P* TIMER HANDLING PART H P* f P* p P* z P* READ TIMER=TIMERR P* PTIMERE EQU * P LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE P RF(Z) TIME10
0x0eee38…0eefcc Dummy {f00=0x0041, f01=0x018e, f02=»TER p PTIME10 EQU * P RF GBUF10 RETURN P* : P* TIMEOUT READ TIMER D P* ` PTOUTRE EQU * j P LDR A6,A1 FETCH DWT ~ P CM DWTTP,A6 P IFF TBUFL=0 $ P CF A15,REMOVG REMOVE FROM QUEUE P XIF PTOUTR1 EQU * "
0x0eefcc…0ef160 Dummy {f00=0x0041, f01=0x0190, f02=» r 2 P ORK A1,2 RETURN CODE /42 AT EXCHANGE TIME OUT $ PTOUTR2 RB ENDIO COMPLETE REQUEST > P* f P* WRITE TIMER=TIMWR p P* PTIMEWR LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE P RB(Z) TIME10 NO TIMING P ST A2,TIMWR
0x0ef160…0ef2f4 (0, 303) Dummy {f00=0x0041, f01=0x0190, f02=»MEOUT WRITE TIMER P* PTOUTWR EQU * $ P LDR A6,A1 FETCH DWT 8 P CM DWTTP,A6 T P LD A1,DWTOR,A6 GET ORDER h P SUK A1,6 P RF(Z) TOUT10 WRITE P SUK A1,2 ( P RB(NZ) TOUTR1 ORDER IS NOT EXCHANGE PTOUT10 LD A2,DWTEC
0x0ef2f4…0ef488 Dummy {f00=0x0041, f01=0x0190, f02=»BUFFER QUEUE x P XIF * P CF A15,REMOVW REMOVE FROM WRITE QUEUE P* N & P* THIS INSTRUCTION DOES NOT BELONG X P* TO THE STANDARD INTERFACE ( P CM XACK INDICATE 'ACK NOT EXPECTED' P LD A2,FDWTUT P CWR A2,A6 ( P RB(NE) TOUTR1
0x0ef488…0ef61c Dummy {f00=0x0041, f01=0x0190, f02=»IMING P* & P* REMAINING TIME IS RETURNED IN A2 P* B P* L PCTIME EQU * V & P LD A2,DWTTP,A6 GET TIMER POINTER j P RF(Z) CTIM10 NOT RUNNING P LDR* A2,A2 " P NGR A2,A2 GET REMAINING TIME P CM* DWTTP,A6 STOP TIMER
0x0ef61c…0ef7b0 Dummy {f00=0x0041, f01=0x0190, f02=»G SEQUENCE: CF A15,GRBUF P* A4=0 IF NO BUFFER IS FREE ! & P* ELSE A4 CONTAINS BUFFER ADDRESS ! D P* A2 AND A3 ARE DESTROYED ! n P* ! P* ! ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS ! PGBUF INH ! P LDR* A4,A2 ! P RF(Z) GBUF10 NO BUF
0x0ef7b0…0ef944 Dummy {f00=0x0041, f01=0x0190, f02=»A15 RETURN TO CALLER ! P* " P* " & P* GET TRANSMIT BUFFER " 0 P* " N P IFF TBUFL=0 " X $ P* CALLING SEQUENCE: CF A15,GTBUF " l P* A4=0 IF NO BUFFER IS FREE " & P* ELSE A4 CONTAINS BUFFER ADDRESS " P* A2 AND A3 ARE DESTROYED " P* "
0x0ef944…0efad8 Dummy {f00=0x0041, f01=0x0190, f02=» " x P* # P* # PCKGBQ EQU * # P LDR A7,A6 SAVE A6 # 0 " P LD A6,DCGWQ GET QUEUE ANCHOR # J " P RF(Z) CKG110 NO ONE ON QUEUE # p P SUK A6,DWTWQ # P LD A2,DWTST,A6 # P RF(N) CKG100 NO REQUEST # P LD A2,DWTOR,A6 # P SUK A2,/31
0x0efad8…0efc6c Dummy {f00=0x0041, f01=0x0190, f02=»FREE # x P LD A3,DWTECB,A6 $ ( P ST A4,ECBBA,A3 STORE BUFFER ADDRESS $ $ P LDKL A1,TBUFL+TBUFL $ P ( P ST A1,ECBEL,A3 STORE BUFFER LENGTH $ l & P CF A15,CTIME STOP REQUEST TIMING $ ( P ST A2,ECBCW,A3 STORE REMAINING TIME $ P LDK A1,0 $ $ P CF A15,
0x0efc6c…0efe00 Dummy {f00=0x0041, f01=0x0190, f02=»10 RETURN $ P XIF % P EJECT % P* % , P* % 6 P* RELEASE RECEIVE BUFFER % @ P* % ` P* A4 CONTAINS BUFFER ADDRESS % j $ P* CALLING SEQUENCE: CF A15,RRBUF % P* A2 AND A3 ARE DESTROYED % P* % P* % ( PRRBUF LDKL A2,DCRBUF RECEIVE
0x0efe00…0eff94 (0, 304) Dummy {f00=0x0042, f01=0x0190, f02=» EQU * % P STR A4,A2 & P CMR A4 & P RB GBUF10 RETURN TO CALLER & 0 P* & T P* & ^ P* RELEASE TRANSMIT BUFFER & h P* & P IFF TBUFL=0 & P* A4 CONTAINS BUFFER ADDRESS & $ P* CALLING SEQUENCE: CF A15,RTBUF & P* A2 AND A3 ARE DEST
0x0eff94…0f0128 Dummy {f00=0x0042, f01=0x0190, f02=» CWK A4,TBUF2 & P RB(E) RBUF DRIVER BUFFER ' " P RB GBUF10 APPLICATION BUFFER ' 8 P XIF ' ^ P EJECT ' j P* ' x P* ' ( P* INSERT DWT IN WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' ( PINSWQ LDKL A2,DC
0x0f0128…0f02bc Dummy {f00=0x0042, f01=0x0190, f02=» P RB INSWQ2 ( PINSWQ3 ADR A4,A6 ( P STR A4,A2 INSERT IN QUEUE ( . " P CMR A4 INDICATE END OF QUEUE ( P P RB GBUF10 RETURN ( v P* ( P* ( * P* REMOVE DWT FROM WRITE REQUEST QUEUE ( P* ( P* A2,A3,A4 DESTROYED ( P* A6=DWT ( P
0x0f02bc…0f0450 Dummy {f00=0x0042, f01=0x0190, f02=»4,A6 ( PREM10 LDR* A3,A2 ) & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ) & P CWR A3,A4 ) P P RF(E) REM15 ) b P LDR A2,A3 GET NEXT ) v P RB REM10 ) PREM15 LDR* A3,A4 REMOVE ) P STR A3,A2 ) P RB GBUF10 RETURN ) P EJECT ) P* ) P
0x0f0450…0f05e4 Dummy {f00=0x0042, f01=0x0190, f02=» P* * * PINSGWQ LDKL A2,DCGWQ GET QUEUE ANCHOR * P RB INSWQ1 * < P* * N P* * X , P* REMOVE DWT FROM GET WRITE BUFFER QUEUE * b P* * P* A2,A3,A4 DESTROYED * P* A6=DWT * P* * * PREMOVG LDKL A2,DCGWQ GET QUEUE ANCHOR * P RB REM0
0x0f05e4…0f0778 Dummy {f00=0x0042, f01=0x0190, f02=»TROYED * P* A6=DWT + P* + ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR + ( P LDK A4,DWTSQ + T P RB INSWQ2 + j P* + | P* + " P* REMOVE DWT FROM STATUS QUEUE + P* + P* A2,A3,A4 DESTROYED + P* A6=DWT + P* + * PREMOVS LDKL A2,DCS
0x0f0778…0f090c Dummy {f00=0x0042, f01=0x018e, f02=»IVE BUFFER + z P* , P* A4=BUFFER ADDR , P* A2,A3 DESTROYED , 4 P* , N PQRBUF EQU * , X P IFT MESPAS=1 , l ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT , P XIF , P IFT MESPAS=0 , $ P LDR A2,A6 QUEUE ON TERMINAL DWT , P XIF , , P ADK
0x0f090c…0f0aa0 Dummy {f00=0x0042, f01=0x0190, f02=» , P RB QR100 - & PQR200 STR A4,A2 INSERT INTO QUEUE - " P CMR A4 INDICATE END OF QUEUE - D P RTN A5 - j P EJECT - z P* - P* - 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE - P* - 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTRO
0x0f0aa0…0f0c34 (0, 305) Dummy {f00=0x0042, f01=0x0190, f02=» P CW A1,DWTOR,A6 . P RF(NE) CKM110 NO . $ P LD A8,DWTECB,A6 ECB ADDR TO A8 . 6 * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE . ^ " P RF(Z) CKM200 NO READ IN QUEUE . , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER . . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO Q
0x0f0c34…0f0dc8 Dummy {f00=0x0042, f01=0x0190, f02=»E NUMBERS OF CHARACTERS . | P LD A4,-2,A3 / . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS / 4 P LDK A1,0 PARAMETER=OK / f 6 PCKM100 CF A15,TENDIO COMPLETE READ GENERAL REQUEST / * PCKM110 ADKL A15,4 ADJUST STACK POINTER / P ABR* A15 RETURN / 8 PCKM2
0x0f0dc8…0f0f5c Dummy {f00=0x0042, f01=0x0190, f02=»TOL / & P RB(E) CKM110 NO CHANGE OF STATUS 0 * P ORKL A1,/2000 INDICATE STATUS CHANGE 0 6 P RB CKM100 0 d P EJECT 0 v P* 0 P* 0 P* STORE REGISTER A3-A8 0 $ P* CALLING SEQUENSE: CF A15,STREG 0 P* 0 P* RESTORE 0 $ P* CALLING SEQU
0x0f0f5c…0f10f0 Dummy {f00=0x0042, f01=0x0190, f02=»,LCA7 0 P ST A8,LCA8 1 P RF RTNA15 RETURN 1 " P EJECT 1 < PLDREG LDKL A3,0 1 J PLCA3 EQU *-2 1 b P LDKL A4,0 1 v PLCA4 EQU *-2 1 P LDKL A5,0 1 PLCA5 EQU *-2 1 P LDKL A6,0 1 PLCA6 EQU *-2 1 P LDKL A7,0 1 PLCA7 EQU *-2 1
0x0f10f0…0f1284 Dummy {f00=0x0042, f01=0x018e, f02=»* TIMER VALUES 1 P* 2 P* 2 ( PTIMPRO EQU 30 PROCEDURE TIMER 3 SEC 2 * P* 2 V P* 2 ` P* CHARACTER EQUATES 2 j P* 2 & PSF EQU X'1D' START FIELD CHARACTER 2 PSYN EQU /16 2 PSTX EQU /02 2 PETX EQU /03 2 PETB EQU /17 2
0x0f1284…0f1418 Dummy {f00=0x0042, f01=0x018e, f02=» 2 PSBA EQU /11 3 PGP EQU /22 3 PRDBCOM EQU /32 3 . PRDMCOM EQU /36 3 D P IFT CODE=0 3 Z PPAR EQU /80 3 n PRVI EQU /3C 3 PACK0 EQU /30 3 PACK1 EQU /31 3 PDC1 EQU /11 3 P IFT MSV1=0 3 PWACK EQU /3B 3 P XIF 3 P I
0x0f1418…0f15ac Dummy {f00=0x0042, f01=0x0190, f02=» 3 PWACK EQU /2C 4 PRVI EQU /40 4 PACK0 EQU /18 4 0 PACK1 EQU /2F 4 D PSYNEBC EQU /32 4 X P XIF 4 n P EJECT 4 z P* 4 P* 4 P* PROCEDURE WORK AREAS 4 P* 4 P* 4 * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 4 . PFDWTUT RES 1
0x0f15ac…0f1740 Dummy {f00=0x0042, f01=0x0190, f02=»0 STATUS SENT / MESSAGE INPUT RESULT 4 " PXRB DATA 0 READ BUFFER SWITCH 5 , PCACK DATA 0 ACK COUNTER 5 R * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5 r P* 5 PFECB RES 1 WRITING ECB 5 ( PFECBBA RES 1 WRITING BUFFER ADDRESS 5 & PFECBRL RES 1 WRITING
0x0f1740…0f18d4 (0, 306) Dummy {f00=0x0042, f01=0x0190, f02=»OR 5 r . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA 6 < P* 6 l P* 6 v $ P* 3270 SENSE/STATUS INFORMATION 6 P* 6 P* 6 P IFF STAT=0 6 . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE 6 P* 6
0x0f18d4…0f1a68 Dummy {f00=0x0042, f01=0x0190, f02=» INTERVENTION REQUIRED 6 ~ P XIF 7 P EJECT 7 * P* 7 8 P* 7 B P* BASIC RECEIVE MODE 7 L P* 7 h " P* ENTERED EVERY TIME A MESSAGE 7 r & P* IS EXPECTED FROM THE MASTER SIDE 7 P* 7 P* 7 P IFT P6805=1 SALCUZ 7 , PBRMHLT CF A5,HALTIN HA
0x0f1a68…0f1bfc Dummy {f00=0x0042, f01=0x0190, f02=»,HALTIN HALT RECEIVER AND UPDATE STATUS 7 P XIF SALCUZ 8 0 P IFT P6805=1 SALCUZ 8 F 0 P CF A15,CKMESS CHECK IF STATUS CHANGE SALCUZ 8 b P XIF SALCUZ 8 PBRM010 EQU * 8 P IFT CODE+P6805=0 SALCUZ 8 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN P
0x0f1bfc…0f1d90 Dummy {f00=0x0042, f01=0x0190, f02=» P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 " P CIO A2,1,LCUIN START RECEIVER 9 6 P XIF SALCUZ 9 P IFT P6805=1 SALCUZ 9 r P IFF CODE=1 SALCUZ 9 P LDK A2,/0C SALCUZ 9 * P CIO A2,1,LCUIN START RECEIVER SALCUZ 9 P LDK A2,SYN SALCUZ
0x0f1d90…0f1f24 Dummy {f00=0x0042, f01=0x0190, f02=»CUZ 9 z P LDK A2,0 SALCUZ : * P CIO A2,1,LCUIN START RECEIVER SALCUZ : & P LDK A2,SYNEBC SALCUZ : T 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : r P RB(NA) BRMHLT SALCUZ : P XIF SALCUZ : PBRM100 EQU * : $ P CF A5,READP READ ONE CH
0x0f1f24…0f20b8 Dummy {f00=0x0042, f01=0x0190, f02=»STX : P RF(Z) BRM200 EOT RECEIVED ; P SUK A1,ENQ-EOT ; . P ABL(Z) BRM400 ENQ RECEIVED ; F P SUK A1,DLE-ENQ ; j P ABL(Z) BRM600 DLE RECEIVED ; P SUK A1,NAK-DLE ; P ABL(Z) BRM500 NAK RECEIVED ; P IFT MSV1=0 ; P LDR A8,A2 ; $ P
0x0f20b8…0f224c Dummy {f00=0x0042, f01=0x0190, f02=» XIF ; P LDK A3,0 < P CC A2,DW1500+1 < P RF(E) BRM110 POLLING < 6 P LDK A3,2 < T P CC A2,DW1500 < f P RF(NE) BRM150 NOT THIS TCU < | PBRM110 EQU * < P CF A5,READP READ 1:ST STA < P RF(NZ) BRM150 PARITY ERROR < P LDR A8,A2 <
0x0f224c…0f23e0 Dummy {f00=0x0042, f01=0x0190, f02=»DDRESS SEQUENCE < x P XIF = " P CF A5,READ READ ONE CHARACTER = $ P IFT P6805=0 SALCUZ = J P SUK A2,ENQ+PAR = f P XIF SALCUZ = ~ P IFT P6805=1 SALCUZ = P SUK A2,ENQ SALCUZ = P XIF SALCUZ = P RF(NZ) BRM150 NOT ENQ = P IFT P68
0x0f23e0…0f2574 (0, 307) Dummy {f00=0x0042, f01=0x0190, f02=»NPUT = z P SST A1,LCUIN > P XIF SALCUZ > " P IFT P6805=1 SALCUZ > 8 $ P CF A5,HALTIN HALT INPUT SALCUZ > T . P RB(NZ) BRM010 PARITY ERROR SALCUZ SALCUZ > | P XIF SALCUZ > P LDK A1,1 > P ST A1,CACK LOAD ACK COUNTER > P LDR A2,A8 >
0x0f2574…0f2708 Dummy {f00=0x0042, f01=0x0190, f02=»TEP CHECK IF STA PRESENT (POLL ADDRESS) > P XIF ? 0 P IFT MSV1=0 ? < & P CF A5,FINTER CHECK IF STA PRESENT ? P P XIF ? z P IFF EM3270=0 ? . P CF A5,FINT10 CONTINUE SEARCHING IN DC:TAB ? P XIF ? P LDR A6,A3 LOAD DWT TO A6 ? P ABL(NZ) SPO
0x0f2708…0f289c Dummy {f00=0x0042, f01=0x0190, f02=» A6 ? z P RF(NZ) BRM130 STA FOUND @ P IFT MSV1=0 @ , $ P LDKL A6,DW1500 SELECT TO DCTASK @ B PBRM130 EQU * @ j P ABL SELECT @ ~ P XIF @ P IFT MSV1=1 @ P ABL BRM INVALID ADDRESS @ P XIF @ P* @ , P* WAIT FOR MARK HOLD
0x0f289c…0f2a30 Dummy {f00=0x0042, f01=0x018e, f02=»EAD READ ANOTHER CHARACTER @ P RB BRM150 A " P EJECT A 4 P* A B P* A L P* EOT HAS BEEN RECEIVED A V P* A v P* A PBRM200 EQU * A & P CF A5,HPTIM STOP PROCEDURE TIMER A P IFT RCOM=1 A P CM XRB RESET READ BUFFER A P XIF A
0x0f2a30…0f2bc4 Dummy {f00=0x0042, f01=0x0190, f02=» P LDK A1,2 SET RC=2 B ( P CF A5,CWRITE COMPLETE WRITE REQUEST B PBRM210 EQU * B J " P CM XACK RESET 'ACK EXPECTED' B ^ PBRM220 EQU * B P CM XSEL RESET 'SELECTED' B P RB BRM B P EJECT B P* B P* B P* STX HAS BEEN RECEIVED B
0x0f2bc4…0f2d58 Dummy {f00=0x0042, f01=0x0190, f02=» ( P*********************CHAINED COMMAND C & P RB(Z) BRM150 NO BUFFER AVAILABLE C 0 P********************* C Z PBRM305 EQU * C x P CF A5,RDMESS READ MESSAGE C P SUK A7,1 C P RF(NZ) BRM320 MESSAGE OK C PBRM310 EQU * C ( P CM XSTA INDICATE
0x0f2d58…0f2eec Dummy {f00=0x0042, f01=0x0190, f02=»A1,XACK C & P RF(Z) BRM316 ACK IS NOT EXPECTED D P LD A1,DCRBUF D : & P RF(Z) BRM316 NO BUFFER AVAILABLE D P " P LD A6,FDWTUT GET WRITING DWT D z 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE D P LDR* A2,A6 GET STA D P XIF D P IFF EM3270=
0x0f2eec…0f3080 Dummy {f00=0x0042, f01=0x0190, f02=» CF A5,PRREC PREPARE FOR TEXT RECEPTION D P LDK A1,0 SET RC=0 E 0 ( P CF A5,CWRITE COMPLETE WRITE REQUEST E J P LDK A1,1 E v & P XRS A1,CACK INCREASE ACK COUNTER E P RB BRM305 READ THE MESSAGE E P XIF E ( PBRM316 CF A5,READ READ ONE CHARACTER E
0x0f3080…0f3214 (0, 308) Dummy {f00=0x0043, f01=0x0190, f02=»E OK E x $ P LD A4,DCRBUF GET BUFFER ADDRESS F P ADK A4,6 F 4 P CW A4,FBLST F F " P RF(NE) BRM325 NOT FIRST BLOCK F Z 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 COMMAND C
0x0f3214…0f33a8 Dummy {f00=0x0043, f01=0x0190, f02=»OD READ BUFFER RECEIVED F P XIF G PBRM325 EQU * G , P SUK A7,1 G @ & P RF(Z) BRM340 MESSAGE ENDED BY ETB G R 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* PREPARE FOR
0x0f33a8…0f353c Dummy {f00=0x0043, f01=0x018e, f02=» G P ST A2,+4,A1 H P XIF H PBRM326 EQU * H ( P CWK A6,DW1500 H < , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H R P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H P LDK A2,2 H P CW A2,DWTOR,A6 H " P RF(NE) BRM330 NO READ REQ
0x0f353c…0f36d0 Dummy {f00=0x0043, f01=0x018e, f02=» H j P LD A3,-4,A4 GET LENGTH I * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I ( & P CF A15,CTIME STOP REQUEST TIMING I V ( P ST A2,ECBCW,A8 STORE REMAINING TIME I P EJECT I P* I P* I 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC I P* I
0x0f36d0…0f3864 Dummy {f00=0x0043, f01=0x0190, f02=» P RF(Z) BRM328 J P LD A2,DWTST,A6 GET STATUS J P ORK A2,/A J < P ST A2,DWTST,A6 J N PBRM328 EQU * J f P XIF J z $ P CF A15,TENDIO COMPLETE REQUEST J P RF BRM345 J P EJECT J PBRM330 EQU * J P SUK A4,6 GET BUFFER BASE J ( P CF
0x0f3864…0f39f8 Dummy {f00=0x0043, f01=0x0190, f02=» J v P ABL BRM K PBRM345 EQU * K P IFT STAT=1 K , P LD A1,DWTST,A6 K @ P ANK A1,8 K X $ P RB(Z) BRM340 ACK SHOULD BE SENT K j P CF A5,TRWACK SEND WACK K P RF BRM410 K P XIF K P IFF STAT=1 K P RB BRM340 K P XIF K P EJECT
0x0f39f8…0f3b8c Dummy {f00=0x0043, f01=0x0190, f02=»FER COMMAND K | PRDMOD EQU * L " P CM XSEL RESET SELECT EXPECTED L ( 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL L N $ P LD A4,DWTBUF,A6 BUFFER ADDRESS L $ P SUK A4,2 SDJUST BUFFER ADDRESS L " P LDKL A3,1922 REQUESTED LENGTH L " P IM XRB SET
0x0f3b8c…0f3d20 Dummy {f00=0x0043, f01=0x0190, f02=»* L P* M P* ENQ HAS BEEN RECEIVED M P* M 4 P* M > PBRM400 EQU * M H & P CF A5,HPTIM STOP PROCEDURE TIMER M P LD A1,XACK M P OR A1,XSEL M " P RF(Z) BRM410 IN CONTROL STATE M . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE M PBR
0x0f3d20…0f3eb4 (0, 309) Dummy {f00=0x0043, f01=0x0190, f02=» & P CF A5,HPTIM STOP PROCEDURE TIMER N P LD A1,XACK N . P RF(NZ) BRM510 ACK EXPECTED N B P OR A1,XSEL N f " P RB(Z) BRM410 IN CONTROL STATE N z P RF BRM636 N PBRM510 EQU * N " P LD A6,FDWTUT GET WRITING DWT N P IFF STAT=0 N P LD A1,X
0x0f3eb4…0f4048 Dummy {f00=0x0043, f01=0x0190, f02=»ECBBA COMPUTE BUFFER INDEX N P ST A1,FBAX O " P ABL POL130 O 6 P* O J P* O T P* DLE HAS BEEN RECEIVED O ^ P* O ~ P* O PBRM600 EQU * O & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O " P RB(Z) BRM410 ACK NOT EXPECTED O &
0x0f4048…0f41dc Dummy {f00=0x0043, f01=0x0190, f02=» LD A1,CACK GET ACKCOUNTER O P RF(Z) BRM630 ACK,0 EXPECTED P " PBRM610 EQU * P F P CF A5,TRENQ SEND ENQ P Z & P CF A5,SPTIM START PROCEDURE TIMER P x P RB BRM410 P PBRM620 EQU * P P CWK A2,ACK1 P P RF(NE) BRM650 P P* P P* ACK , 1 RE
0x0f41dc…0f4370 Dummy {f00=0x0043, f01=0x0190, f02=» P RF(Z) BRM640 ETX NOT SENT Q P EJECT Q & P* Q 4 , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK Q > P* Q n P LDK A1,0 SET RC=0 Q x PBRM635 EQU * Q P IFF STAT=0 Q P LD A2,XSTA Q . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED Q P XIF Q
0x0f4370…0f4504 Dummy {f00=0x0043, f01=0x0190, f02=»SET READ BUFFER Q P XIF R P RB BRM410 R $ PBRM640 EQU * R 6 P LDK A1,1 R J & P XRS A1,CACK INCREMENT ACK COUNTER R P ABL POL130 R PBRM650 EQU * R P CWK A2,RVI+PAR R ( P RB(NE) BRM610 INVALID DLE SEQUENCE R " P CM XACK RESET 'EXPECT
0x0f4504…0f4698 Dummy {f00=0x0043, f01=0x0190, f02=» P LDK A1,0 SET RC=0 S P RB BRM635 S P IFF STAT=0 S 0 P EJECT S D P* S R P* S " P* STATUS HAS BEEN TRANSMITTED S f P* S P* S PBRM670 EQU * S " P LD A6,FDWTUT GET DWT ADDRESS S , P CF A15,REMOVS REMOVE FROM STATUS QUEUE S
0x0f4698…0f482c Dummy {f00=0x0043, f01=0x0190, f02=»RM636 NOT DE S P LDKL A1,/8000 T " P ANS A1,DWTST,A6 CLEAR STATUS T * P RB BRM636 T P P XIF T b P EJECT T n P* T | P* T P* SELECT HAS BEEN RECEIVED T P* T P* T PSELECT EQU * T P IFF STAT=0 T P LD A1,DWTST,A6 GET STATUS
0x0f482c…0f49c0 Dummy {f00=0x0043, f01=0x0190, f02=»1 T P RF SEL110 U P XIF U PSEL100 EQU * U ( P ABL BRM U < PSEL110 EQU * U L P IFT STAT+NOWACK=1 U ` P ANK A3,8 U z P RF(NZ) SEL115 BUSY U P XIF U P IFT STAT+NOWACK=2 U P ANK A3,8 U " P RF(Z) SEL111 DEVICE NOT BUSY U P C
0x0f49c0…0f4b54 (0, 310) Dummy {f00=0x004c, f01=0x0190, f02=» U p PSEL115 EQU * V P IFF STAT+NOWACK=2 V P CF A5,TRWACK SEND WACK V 6 P XIF V V P RB SEL100 V b PSEL120 EQU * V t , P CF A5,PRREC PREPARE FOR TEXT RECEPTION V P CF A5,TRACK SEND ACK,0 V P RB SEL100 V P EJECT V P* V P* V
0x0f4b54…0f4ce8 Dummy {f00=0x004c, f01=0x0190, f02=»DEX V x P IFT CODE=1 W . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC W P XIF W R $ P ST A2,+4,A1 SAVE STA IN BUFFER W ^ P IM XSTA W " P ST A6,FDWTIN STORE INPUT DWT W P RTN A5 W P EJECT W P* W P* W $ P* GENERAL POLL HAS BEEN RE
0x0f4ce8…0f4e7c Dummy {f00=0x004c, f01=0x0190, f02=»F(Z) POL110 NO STATUS TO BE SENT W " P SUK A6,DWTSQ GET DWT ADDRESS X ( PPOL050 EQU * X N P CF A5,TRSTA SEND STATUS X b & P CF A5,SPTIM START PROCEDURE TIMER X P IM XACK SET 'ACK EXPECTED' X P XIF X P IFF STAT=1 X P RF POL110 X P XIF X
0x0f4e7c…0f5010 Dummy {f00=0x004c, f01=0x0190, f02=» P CF A5,TREOT SEND EOT Y P RB POL100 Y " PPOL120 EQU * Y 4 " P SUK A6,DWTWQ GET DWT ADDRESS Y H PPOL125 EQU * Y n $ P LD A8,DWTECB,A6 GET ECB ADDRESS Y P RF(NZ) POL126 Y P CF A15,REMOVW Y P RB POL115 Y PPOL126 EQU * Y P ST A8,FECB
0x0f5010…0f51a4 Dummy {f00=0x004c, f01=0x018e, f02=» EQU * Y & P ST A4,FECBBA SAVE BUFFER ADDRESS Z ( P SUK A3,2 SKIP FIRST WORD OF BUFFER Z 8 P ST A3,FECBRL SAVE LENGTH Z d P CM FBAX RESET BUFFER INDEX Z PPOL130 EQU * Z P CM XETX RESET 'ETX SENT' Z P CM XSTA Z P CF A5,TRTEXT SEND ONE B
0x0f51a4…0f5338 Dummy {f00=0x004c, f01=0x0190, f02=» Z & P* SPECIFIC POLL HAS BEEN RECEIVED [ P* [ 2 P* [ < PSPOLL EQU * [ F P IFF STAT+SPECP=0 [ Z P LDR A7,A6 SAVE A6 [ t P CF A5,CPTIM CHECK POLLTIMER [ P LDR A6,A7 RESTORE A6 [ P IFT STAT=1 [ P LD A1,DWTST,A6 GET STATUS [ P A
0x0f5338…0f54cc Dummy {f00=0x004c, f01=0x0190, f02=»UEST [ | P LD A1,DWTOR,A6 GET ORDER P SUK A1,6 . P RB(Z) POL125 WRITE REQUEST @ P SUK A1,2 d " P RB(Z) POL125 EXCHANGE REQUEST v P XIF P RB POL115 SEND EOT P EJECT P* P* 8 P* CHECK IF THERE IS A WRITE REQUES
0x0f54cc…0f5660 Dummy {f00=0x004c, f01=0x0190, f02=»RITE GOING ON ~ P LD A2,DWTST,A6 ] P RF(N) CWR900 NO REQUEST ] . P LD A2,DWTOR,A6 GET ORDER ] N P SUK A2,6 ] p P RF(Z) CWR100 WRITE REQUEST ] P SUK A2,2 ] ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST ] P LDR A1,A1 ] 2 P RF(NZ) CWR100 TRA
0x0f5660…0f57f4 (0, 311) Dummy {f00=0x004c, f01=0x0190, f02=» LD A8,FECB GET ECB ADDRESS ] P CF A15,CTIME STOP TIMING ^ $ P LDR A8,A8 ^ F P RF(Z) CWR150 ^ X P ST A2,ECBCW,A8 ^ n $ P CF A15,TENDIO COMPLETE REQUEST ^ PCWR150 EQU * ^ * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ^ PCWR200 EQU * ^ P IFF
0x0f57f4…0f5988 Dummy {f00=0x004c, f01=0x0190, f02=»UE ^ n P XIF _ PCWR900 EQU * _ " P CM XACK RESET 'ACK EXPECTED' _ * P CM FDWTUT _ P P RTN A5 _ b P EJECT _ r P* _ P* _ P* READ ONE TEXT BLOCK _ P* _ P* ON EXIT A3 CONTAINS : _ ( P* 0 : IF CORRECT ETX BLOCK RECEIVED _ 2 P
0x0f5988…0f5b1c Dummy {f00=0x004c, f01=0x0190, f02=»CRBUF GET BUFFER ADDRESS _ P ADK A4,6 RESERVE HEADER ` P LDK A3,0 ` @ P LD A1,XSTA ` R $ P RF(NZ) RDM050 LAST INPUT WAS OK ` f " P LD A1,FBLST COMPUTE NEW INDEX ` P SUR A1,A4 ` P ST A1,FBAX ` PRDM050 EQU * ` P AD A4,FBAX ADD BUFFER IND
0x0f5b1c…0f5cb0 Dummy {f00=0x004c, f01=0x0190, f02=»R=1 ` P LD A1,FBAX a " P RF(NZ) RDM100 NOT FIRST BLOCK a P CF A5,READP a F P RF(NZ) RDM120 PARITY ERROR a Z P CWK A2,ESC a ~ P RF(NE) RDM110 a * P CF A5,READP SKIP NEXT TWO CHARACTERS a P CF A5,READP a P XIF a PRDM100 EQU * a $
0x0f5cb0…0f5e44 Dummy {f00=0x004c, f01=0x0190, f02=»RECEIVED a ~ P CWK A2,ETB b P RF(E) RDM160 ETB RECEIVED b $ P CWK A2,ITB b F P RF(E) RDM170 ITB RECEIVED b Z P CWK A2,ENQ b | & P RF(E) RDM140 ENQ IN TEXT RECEIVED b P CWK A2,/FF b $ P RF(E) RDM140 MARK HOLD RECEIVED b P b P IFT CODE=
0x0f5e44…0f5fd8 Dummy {f00=0x004c, f01=0x0190, f02=»N) RDM115 NOT DC1-DC3 b P SLL A1,6 c P LDR A8,A1 c 0 * P CF A5,READP 8-BIT CHAR GET NEXT PART c B P RF(NZ) RDM120 PARITY ERROR c p * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER c P ORR A2,A8 c PRDM115 EQU * c P XIF c P c P SCR A2,A4 S
0x0f5fd8…0f616c Dummy {f00=0x004c, f01=0x0190, f02=»L c ~ P RB(NG) RDM100 NOT OVERFLOW d P* d . P* BUFFER OVERFLOW d 8 P* d R P RF RDM140 ABORT INPUT d PRDM120 EQU * d z & P LDK A3,1 INDICATE INVALID MESSAGE d P SUK A2,/7F d $ P RF(Z) RDM150 MARK HOLD RECEIVED d P RB RDM100 d P*
0x0f616c…0f6300 Dummy {f00=0x004c, f01=0x0190, f02=» ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER d P IFF CODE=1 e 6 P CF A5,RDLRC e J P RF(Z) RDM150 LRC WAS OK e ^ P XIF e ~ P IFT CODE=1 e & P CF A5,RDCRC READ CRC AND CHECK IT e P RF(E) RDM150 CRC WAS OK e P XIF e PRDM140 EQU * e & P
0x0f6300…0f6494 (0, 312) Dummy {f00=0x004d, f01=0x0190, f02=»FT P6805=1 e " P ORR A7,A1 PARITY ERROR SALCUZ f P XIF SALCUZ f 8 P RTN A5 f N P* f ^ P* ETB RECEIVED f h P* f ~ PRDM160 EQU * f P LDR A3,A3 f " P RB(NZ) RDM130 ALREADY INVALID f " P LDK A3,2 INDICATE CORRECT ETB f P RB RDM130 f
0x0f6494…0f6628 Dummy {f00=0x004d, f01=0x0190, f02=» f r P XIF g P IFT CODE=1 g & P CF A5,RDCRC READ CRC AND CHECK IT g ( " P RB(NE) RDM120 CRC WAS NOT OK g R P XIF g x P RB RDM100 g P EJECT g P* g P* TRANSMIT ACK 0 OR 1 g P* g PTRACK LDK A2,1 g P LDK A3,ACK1 PRELOAD ACK1 g
0x0f6628…0f67bc Dummy {f00=0x004d, f01=0x0190, f02=»IT WACK g P* h PTRWACK LDK A3,WACK LOAD WACK h P RF TRDLE h > P* h P P* TRANSMIT RVI h Z P* h p P IFF STAT=0 h z PTRRVI LDK A3,RVI LOAD RVI h P XIF h P* h P* TRANSMIT DLE h P* h PTRDLE LDK A2,DLE LOAD DLE h " P
0x0f67bc…0f6950 Dummy {f00=0x004d, f01=0x018e, f02=»TRNAK LDK A3,NAK LOAD NAK h P RF TREN10 i " P* i 4 P* TRANSMIT EOT i > P* i T PTREOT LDK A3,EOT LOAD EOT i ^ P RF TREN10 i P* i P* TRANSMIT ENQ i P* i PTRENQ LDK A3,ENQ LOAD ENQ i P* i ( PTREN10 SC A3,RESEND PUT IN SAVE
0x0f6950…0f6ae4 Dummy {f00=0x004d, f01=0x018e, f02=» P CF A5,WRITEP SEND IT j & P LC A2,RESEND+1 GET NEXT CHARACTER j " P CF A5,WRITEP SEND IT j L PTRRE10 LDK A2,/FF j j P CF A5,WRIT05 SEND PAD j P LDK A2,/FF j P CF A5,WRIT05 j P LDK A2,0 SALCUZ j $ P CIO A2,0,LCUUT STOP TRANSMITTER j
0x0f6ae4…0f6c78 Dummy {f00=0x004d, f01=0x0190, f02=» P IFF LOGG=0 k ( P CF A5,LOGSST LOG TRANSMITTER STATUS k P XIF k D P RTN A5 k P P EJECT k ` P* k n P* k x P* TRANSMIT ONE TEXT BLOCK k P* k P* k PTRTEXT EQU * k P CF A5,TRSYNC START OUTPUT k P IFT TSTREQ=1 k P* k
0x0f6c78…0f6e0c Dummy {f00=0x004d, f01=0x0190, f02=» 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? l P RF(NZ) TRT050 YES !! l : P l X P LD A4,FECBBA l ` " P LC A3,+2,A4 GET AID CHARACTER l v P SUK A3,/30 l $ P RF(NZ) TRT050 NOT TEST REQUEST l P LDK A2,SOH l P CF A5,WRITE SEND SOH l
0x0f6e0c…0f6fa0 Dummy {f00=0x004d, f01=0x0190, f02=»X l P CF A5,WRITE SEND STX m ( P ST A4,FBLST REMEMBER START OF BLOCK m ( ( P ADK A4,5 SKIP AID + CURSOR ADDRESS m T P LDK A3,5 ADJUST LENGTH m P LDK A2,3 m P ST A2,FBAX m P RF TRT100 m PTRT050 EQU * m P* m P* m P* m
0x0f6fa0…0f7134 (0, 313) Dummy {f00=0x004d, f01=0x0190, f02=»A4,FBAX ADD BUFFER INDEX m ( P ST A4,FBLST REMEMBER START OF BLOCK n ( P ADK A4,2 SKIP FIRST WORD OF BUFFER n L & P LDK A3,0 RESET CHARACTER COUNTER n x P LD A1,FBAX GET BUFFER INDEX n " P RF(NZ) TRT100 NOT FIRST BLOCK n P LC A2,DW1500+1 GET TCA n
0x0f7134…0f72c8 Dummy {f00=0x004d, f01=0x0190, f02=»DK A2,/27 SEND ENTER AS AID n P CF A5,WRITEP o $ " P LDK A2,/20 AND CURSOR ADDRESS o : P CF A5,WRITEP o ` P LDK A2,/20 o v P CF A5,WRITEP o P XIF o P IFT RCOM=1 o P o & P LD A1,XRB READ BUFFER COMMAND ??? o P RF(Z) TRT070 NO!! o
0x0f72c8…0f745c Dummy {f00=0x004d, f01=0x0190, f02=»TCUR,A6 CURSOR ADDRESS o . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER p P LDK A3,5 SET BLOCK COUNT p P P RF TRT100 p r PTRT070 EQU * p P XIF p P p P LDK A3,2 p PTRT100 EQU * p P LCR A2,A4 GET ONE CHARACTER p P ADK A4,1 INCREMEN
0x0f745c…0f75f0 Dummy {f00=0x004d, f01=0x0190, f02=»********************************************************** p P* q B , P* CHECK IF ATTRIBUTE CHARACTER OR NULL q L P* q | 4 P*********************************************** q P q & P CWK A2,X'20' ATTRIBUTE CHARACTER q P RF(L) TRT101 YES!!! q
0x0f75f0…0f7784 Dummy {f00=0x004d, f01=0x0190, f02=» * q P CWK A2,/7D END OF MESSAGE ? r " P RF(NE) TRT103 NO,GO TO TRT103 r . P LDK A2,/19 r T PTRT103 EQU * r h P CWK A2,X'7F' NULL ?? r | P RF(NE) TRT105 r P SUK A2,1 r P XIF r P IFT RCOM=1 r P RF TRT105 r P r PTRT101 EQU *
0x0f7784…0f7918 Dummy {f00=0x004d, f01=0x0190, f02=»' r ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE s P ANK A1,1 s 6 P ANK A2,/1E MASK s H P SLL A2,1 s ` & P ORR A2,A1 IBM ATTRIBUTE COMPOSED s r " P ORK A2,/40 BIT ALWAYS SET ONE s P LC A2,TASCII,A2 s & P CWK A2,/18 CHECK SPECIAL ATTRIBUT s P RF(
0x0f7918…0f7aac Dummy {f00=0x004d, f01=0x0190, f02=» EQU * s P XIF t P EJECT t P CWK A2,/07 t ( ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT t < P CF A5,WRITEP SEND CHARACTER t h PTRT110 EQU * t $ P IM FBAX INCREMENT BUFFER INDEX t & P LD A1,FECBRL GET REQUESTED LENGTH t P CW A1,FBAX t " P R
0x0f7aac…0f7c40 Dummy {f00=0x004d, f01=0x0190, f02=» P IFT RCOM=1 u , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK u P CC A1,-2,A4 u H P RF(E) TRT115 YES u P CC A1,-1,A4 u v P RF(NE) TRT116 NO SEND ETB u ( P LCR A2,A4 GET FIRST BYTE AFTER SBA u P ADK A4,1 INREMENT POINTER u P CF A5,WRITEP
0x0f7c40…0f7dd4 (0, 314) Dummy {f00=0x004e, f01=0x0190, f02=» INCREMENT INDEX u P XIF v PTRT116 EQU * v $ P LDK A2,ETB LOAD ETB v 8 PTRT120 EQU * v T P CF A5,WRITEP SEND IT v h P IFF CODE=1 v P LDR A2,A7 GET LRC v P CF A5,WRITEP SEND LRC v P XIF v P IFT CODE=1 v P LDR A8,A7 SAVE CURREN
0x0f7dd4…0f7f68 Dummy {f00=0x004e, f01=0x0190, f02=»RIT05 SEND CRC BYTE 2 v P XIF w P ABL TRRE10 HALT OUTPUT w * PTRT130 EQU * w J P IM XETX INDICATE 'ETX SENT' w ^ PTRT140 EQU * w P LDK A2,ETX LOAD ETX w P RB TRT120 SEND ETX AND LRC w P EJECT w P* w P* w P* TRANSMIT STATU
0x0f7f68…0f80fc Dummy {f00=0x004e, f01=0x0190, f02=» A6 w ~ P CF A5,TRSYNC START OUTPUT x P LDK A2,SOH x . P CF A5,WRITE SEND SOH x B P LDK A7,0 REST LRC x ` P LDK A2,'%' x z P CF A5,WRITEP SEND '%' x P LDK A2,'R' x P CF A5,WRITEP SEND 'R' x P LDK A2,STX x P CF A5,WRITE SEND STX
0x0f80fc…0f8290 Dummy {f00=0x004e, f01=0x0190, f02=»US x x P ANK A1,/06 MASK FOR S/S 0 y P SRL A1,1 y , $ P LC A2,SSTAB,A1 GET STATUS BYTE y > P CF A5,WRITEP SEND S/S 0 y f P LDK A2,NOIR PRELOAD S/S 1 y P LD A1,DWTST,A6 GET STATUS y P ANK A1,5 y P RF(Z) TRST10 NOT 'IR' y P ANK A1,4 y
0x0f8290…0f8424 Dummy {f00=0x004e, f01=0x018e, f02=» y t P XIF z P EJECT z P* z " P* z , P* TRANSMIT SYNC SEQUENCE z 6 P* z V P* z ` PTRSYNC EQU * z j P LDK A2,0 SALCUZ z ~ * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE z P SST A2,LCUIN PERFORM SST z P IFT P6805=0 SALCUZ z & P CIO
0x0f8424…0f85b8 Dummy {f00=0x004e, f01=0x0190, f02=» z | , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ { P RF(A) TRS010 SALCUZ { 8 P SST A1,LCUUT SALCUZ { V P RF(A) TRS005 SALCUZ { t P ABL BRM SALCUZ { " PTRS005 CIO A2,1,LCUUT SALCUZ { PTRS010 EQU * SALCUZ { P LDK A2,SYNEBC SALCUZ { 2
0x0f85b8…0f874c Dummy {f00=0x004e, f01=0x0190, f02=»DK A2,/0C SALCUZ { P CIO A2,1,LCUUT SALCUZ | P RF(A) TRS010 SALCUZ | : P SST A1,LCUUT SALCUZ | X P RF(A) TRS005 SALCUZ | v P ABL BRM SALCUZ | " PTRS005 CIO A2,1,LCUUT SALCUZ | PTRS010 EQU * | P LDK A2,SYN SALCUZ | 2 P OTR A
0x0f874c…0f88e0 Dummy {f00=0x004e, f01=0x0190, f02=» PTRS100 LDK A2,SYN } P CF A5,WRITE SEND SYN } P SUK A3,1 } < P RB(NZ) TRS100 } N P RTN A5 } d P EJECT } t P* } P* } P* RECEIVER INTERRUPT } P* } P* } PIH1501 EQU * } P ST P,INTSAV } P CF A15,SAVE8 SAVE A1-A8
0x0f88e0…0f8a74 (0, 315) Dummy {f00=0x004e, f01=0x018e, f02=» IFF LOGG=0 } ( P CF A5,LOGIN LOG RECEIVED CHARACTER ~ P XIF ~ @ P IFF CODE=1 ~ L P C2 SYNSW ~ ` P RF(NZ) IHLCI2 ~ r P CWK A2,SYN SKIP SYNS ~ P RF(E) READ ~ " PIHLCI2 XRR A7,A2 CALCULATE LRC ~ P XIF ~ P IFT CODE=1 ~ P C2 SYNS
0x0f8a74…0f8c08 Dummy {f00=0x004e, f01=0x018e, f02=» ~ P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII , P XIF X PIHIN10 RTN A5 d P IFT P6805=0 SALCUZ z PIHIN20 CF A5,SST PERFORM SST P ABL BRM P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SS
0x0f8c08…0f8d9c Dummy {f00=0x004e, f01=0x0190, f02=» PIH1502 EQU * P ST P,INTSAV P CF A15,SAVE8 SAVE A1 - A8 , * P CF A15,LDREG RESTORE DC REGS A3 - A8 N P RB IHIN10 | P EJECT P* P* & P* SST INSTRUCTION AND STATUS CHECK P* ( P* LCU STATUS : BIT 10=CARRIER OFF
0x0f8d9c…0f8f30 Dummy {f00=0x004e, f01=0x0190, f02=»NOT READY r P* PSST SST A1,LCUIN P IFT P6805=1 SALCUZ 4 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ P P XIF SALCUZ P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION P XIF P IFT P6805=0 SA
0x0f8f30…0f90c4 Dummy {f00=0x004e, f01=0x0190, f02=»ST100 SALCUZ P ANK A2,2 SALCUZ & P RF(NZ) SST050 THROUGH PUT SALCUZ 0 & P LDK A1,1 SET PARITY ERROR SALCUZ Z P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA TROUHHPUT ERROR P LDKL A5,STB P ABL
0x0f90c4…0f9258 Dummy {f00=0x004e, f01=0x018e, f02=» A5 P XIF SALCUZ P IFT P6805=1 SALCUZ " P ANK A1,/21 SALCUZ > P RF(Z) SST200 LSALCUZ Z 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ x P DATA BRM RESTART SALCUZ P DATA 2 WAIT TIME SALCUZ P RF READ SALCUZ
0x0f9258…0f93ec Dummy {f00=0x004e, f01=0x0190, f02=» P XIF SALCUZ P* P* $ P* HALT INPUT . P* B P* L PHALTIN LDK A1,0 SALCUZ V P CIO A1,0,LCUIN v P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK P XIF SALCUZ P IFT P6805=1 SA
0x0f93ec…0f9580 Dummy {f00=0x004e, f01=0x0190, f02=»NE CHARACTER TO A2 z P* P* $ PWRITE EQU * . P IFT CODE=1 B P ANK A2,/FF V P CWK A2,/FF j 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD ~ * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF PWRIT05 EQU * " P OTR A2,
0x0f9580…0f9714 (0, 316) Dummy {f00=0x004e, f01=0x0190, f02=»C r P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC * P XIF T P IFF LOGG=0 ` & P CF A5,LOGOUT LOG OUTPUT CHARACTER t P XIF P* PREAD CF A15,STREG P ABL TDISP P EJECT P* P* P*** WR
0x0f9714…0f98a8 Dummy {f00=0x004e, f01=0x0190, f02=»CR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1 $ P RB(P) WRI100 < P RB(Z) WRITE WRITE R P XRK A2,/80 l P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P XIF P* P* P* P*** RE
0x0f98a8…0f9a3c Dummy {f00=0x004e, f01=0x0190, f02=»ALCUZ | P ECR A1,A2 PRE100 SLL A1,1 P RF(Z) RE110 6 P RB(NN) RE100 J P XRK A2,/80 ` P RB RE100 t PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK A1,/80 P XIF P ADK A5,
0x0f9a3c…0f9bd0 Dummy {f00=0x004e, f01=0x0190, f02=»ERMINAL ADDRESS AS GIVEN IN A2 v P* & $ P* CALLING SEQUENCE: CF A5,FINTER 0 P* A2=SUBTERMINAL ADDRESS X P* A4 DESTROYED x " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES * P* EN
0x0f9bd0…0f9d64 Dummy {f00=0x004e, f01=0x0190, f02=» BYTE l P* P* PFINTEP EQU * " P IFT MSV1=0 6 PFINTER EQU * J P XIF ^ P IM RBYTE j P IFT MSV1=1 | PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB P
0x0f9d64…0f9ef8 Dummy {f00=0x004e, f01=0x0190, f02=»DR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 " $ P AD A3,RBYTE CHOOSE ADDRESS TYPE 6 * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS ^ P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE) FINT10 TAKE NEXT TERMI
0x0f9ef8…0fa08c Dummy {f00=0x004e, f01=0x0190, f02=»* P* $ PDC15ON CF A15,SAVE8 SAVE A1 - A8 P IFT STAT=1 < P LDK A5,4 SET DEVICE END P P LD A1,DCTAB p . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 END OF TABLE P LDR
0x0fa08c…0fa220 Dummy {f00=0x004e, f01=0x0190, f02=»05 PDRDC06 EQU * P XIF ( P LD A2,DCTPGP GET POLL TIMER POINTER * " P RF(NZ) DRDC20 ALREADY STARTED V * PDRDC10 CF A15,SPOTIM START POLL TIMER | PDRDC20 ABL BRM P EJECT P* P* POLL TIME OUT P* ( PPTOUT LDKL A5,
0x0fa220…0fa3b4 (0, 317) Dummy {f00=0x004e, f01=0x0190, f02=» $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP , P* > 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED H P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF ST
0x0fa3b4…0fa548 Dummy {f00=0x004e, f01=0x0190, f02=»MPOL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 6 P ABR* A15 J P EJECT P* j P* START PROCEDURE TIMER t P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P DATA PRTOUT,TIMPRO
0x0fa548…0fa6dc Dummy {f00=0x004e, f01=0x0190, f02=» A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ < P LD A1,XACK l " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM P EJE
0x0fa6dc…0fa870 Dummy {f00=0x004e, f01=0x018e, f02=» CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5 0 P EJECT D P IFT CODE=1 R P* f P* p P* CALCULATION OF CRC z P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRC
0x0fa870…0faa04 Dummy {f00=0x004e, f01=0x018e, f02=» P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 ( P XRKL A7,/A001 > PCRC110 SUK A1,1 T P RB(NZ) CRC100 l P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P*
0x0faa04…0fab98 Dummy {f00=0x004e, f01=0x0190, f02=» n $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 0 P LD A8,CRCSAV+2 SAVE IT P P CF A5,READ READ BYTE 2 p ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,
0x0fab98…0fad2c Dummy {f00=0x004e, f01=0x0190, f02=»D LRC CHARACTER ~ " P* CR=0 IF LRC OK P* > PRDLRC IM SYNSW H P CF A5,READP ^ P ADK A5,4 r P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P XIF
0x0fad2c…0faec0 Dummy {f00=0x004e, f01=0x0190, f02=» LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS 0 P DATA 0 ORDER L * P DATA DC15DC POINTER TO ADDRESS BLOCK b P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P DATA 0 TIMER POINTER
0x0faec0…0fb054 (0, 318) Dummy {f00=0x004f, f01=0x018e, f02=» DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR ADDRESS 0 P EJECT N P* P* f P* DC RECEIVE BUFFER POOL p P* PRLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFNR=
0x0fb054…0fb1e8 Dummy {f00=0x004f, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P XIF . P DATA *+RLINK : P RES RBUFL+3 P P DATA 0 END OF CHAIN d P RES RBUFL+3 P* P* P* DC TRANSMIT BUFFER POOL P* P* PDCTBUF EQU * P* P* P I
0x0fb1e8…0fb37c Dummy {f00=0x004f, f01=0x0190, f02=»AREA 1 ~ PTBUF2 DATA 0 END OF CHAIN P RES TBUFL BUFFER AREA 2 0 P XIF P P* P EJECT f P* t P* ~ P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF
0x0fb37c…0fb510 Dummy {f00=0x004f, f01=0x0190, f02=»E2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT $ P STR A2,A3 : P ADK A3,2 L P CWK A3,LOGEND ^ P RF(L) LOGEXI t P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT
0x0fb510…0fb6a4 Dummy {f00=0x004f, f01=0x0190, f02=» 0 P XIF P* P* P* * P IFT RCOM=1 4 P EJECT H < P******************************************************* V P* P* L I N C O L P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P*
0x0fb6a4…0fb838 Dummy {f00=0x004f, f01=0x0190, f02=» SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER ( " P CF A5,WRITEP SEND LINE NUMBER R P x P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETU
0x0fb838…0fb9cc Dummy {f00=0x004f, f01=0x018e, f02=» DATA /4849,/5B2E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 . * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-
0x0fb9cc…0fbb60 Dummy {f00=0x004f, f01=0x40c2, 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 PDC:END EQU * P* P* P END @ A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-
0x0fbb60…0fbcf4 (0, 319) Dummy {f00=0x004f, f01=0x2008, f02=» H P X ` h p x
0x0fbcf4…0fbe88 Dummy {f00=0x004f, f01=0x0190, f02=»DEX V x P IFT CODE=1 W . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC W P XIF W R $ P ST A2,+4,A1 SAVE STA IN BUFFER W ^ P IM XSTA W " P ST A6,FDWTIN STORE INPUT DWT W P RTN A5 W P EJECT W P* W P* W $ P* GENERAL POLL HAS BEEN RE
0x0fbe88…0fc01c Dummy {f00=0x004f, f01=0x0190, f02=»F(Z) POL110 NO STATUS TO BE SENT W " P SUK A6,DWTSQ GET DWT ADDRESS X ( PPOL050 EQU * X N P CF A5,TRSTA SEND STATUS X b & P CF A5,SPTIM START PROCEDURE TIMER X P IM XACK SET 'ACK EXPECTED' X P XIF X P IFF STAT=1 X P RF POL110 X P XIF X
0x0fc01c…0fc1b0 Dummy {f00=0x004f, f01=0x0190, f02=» P CF A5,TREOT SEND EOT Y P RB POL100 Y " PPOL120 EQU * Y 4 " P SUK A6,DWTWQ GET DWT ADDRESS Y H PPOL125 EQU * Y n $ P LD A8,DWTECB,A6 GET ECB ADDRESS Y P RF(NZ) POL126 Y P CF A15,REMOVW Y P RB POL115 Y PPOL126 EQU * Y P ST A8,FECB
0x0fc1b0…0fc344 Dummy {f00=0x004f, f01=0x018e, f02=» EQU * Y & P ST A4,FECBBA SAVE BUFFER ADDRESS Z ( P SUK A3,2 SKIP FIRST WORD OF BUFFER Z 8 P ST A3,FECBRL SAVE LENGTH Z d P CM FBAX RESET BUFFER INDEX Z PPOL130 EQU * Z P CM XETX RESET 'ETX SENT' Z P CM XSTA Z P CF A5,TRTEXT SEND ONE B
0x0fc344…0fc4d8 Dummy {f00=0x004f, f01=0x0190, f02=» Z & P* SPECIFIC POLL HAS BEEN RECEIVED [ P* [ 2 P* [ < PSPOLL EQU * [ F P IFF STAT+SPECP=0 [ Z P LDR A7,A6 SAVE A6 [ t P CF A5,CPTIM CHECK POLLTIMER [ P LDR A6,A7 RESTORE A6 [ P IFT STAT=1 [ P LD A1,DWTST,A6 GET STATUS [ P A
0x0fc4d8…0fc66c Dummy {f00=0x004f, f01=0x0190, f02=»UEST [ | P LD A1,DWTOR,A6 GET ORDER P SUK A1,6 . P RB(Z) POL125 WRITE REQUEST @ P SUK A1,2 d " P RB(Z) POL125 EXCHANGE REQUEST v P XIF P RB POL115 SEND EOT P EJECT P* P* 8 P* CHECK IF THERE IS A WRITE REQUES
0x0fc66c…0fc800 Dummy {f00=0x004f, f01=0x0190, f02=»RITE GOING ON ~ P LD A2,DWTST,A6 ] P RF(N) CWR900 NO REQUEST ] . P LD A2,DWTOR,A6 GET ORDER ] N P SUK A2,6 ] p P RF(Z) CWR100 WRITE REQUEST ] P SUK A2,2 ] ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST ] P LDR A1,A1 ] 2 P RF(NZ) CWR100 TRA
0x0fc800…0fc994 (0, 320) Opaque[0x194]
0x0fc994…0fcb28 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a0, f03=0x0000}
0x0fc994…0fcb28 IdxSect {
0x0fc994…0fcb28 f00 = 0x0045 // 0xfc994 @0x0
0x0fc994…0fcb28 f01 = 0x0004 // 0xfc996 @0x2
0x0fc994…0fcb28 gno = [ // 0xfc998 @0x4
0x0fc994…0fcb28 [0x00]: C0x0045.0x0.0
0x0fc994…0fcb28 [0x01]: C0x0045.0x1.0
0x0fc994…0fcb28 ]
0x0fc994…0fcb28 }
0x0fcb28…0fccbc Dummy {f00=0x0045, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 8.2 78-09-15 870105040820 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x0fccbc…0fce50 Dummy {f00=0x0045, 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 X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x0fce50…0fcfe4 Dummy {f00=0x0045, f01=0x0190, f02=»/0009,/0000 00-07 ~ ( P DATA /0000,/0000,/0C00,/0000 08-0F ( P DATA /1011,/1213,/000A,/0000 10-17 F ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F r ( P DATA /0000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,
0x0fcfe4…0fd178 Dummy {f00=0x0045, f01=0x0190, f02=»8,/2B21 48-4F z ( P DATA /264A,/4B4C,/4D4E,/4F50 50-57 ( P DATA /5152,/5D24,/2A29,/3B5E 58-5F B ( P DATA /2D2F,/5354,/5556,/5758 60-67 n ( P DATA /595A,/7C2C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A23,/402
0x0fd178…0fd30c Dummy {f00=0x0045, f01=0x0190, f02=»F70 90-97 v ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 > ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF j ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4
0x0fd30c…0fd4a0 Dummy {f00=0x0045, f01=0x0190, f02=»D8-DF r ( P DATA /2D2F,/5354,/5556,/5758 E0-E7 ( P DATA /595A,/7C2C,/255F,/3E3F E8-EF : ( P DATA /3031,/3233,/3435,/3637 F0-F7 f ( P DATA /3839,/3A23,/4027,/3DFF F8-FF P XIF P EJECT P* P* 2 P* TABLE FOR CONVERSION OF AS
0x0fd4a0…0fd634 (0, 321) Dummy {f00=0x0045, f01=0x0190, f02=» DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F X ( P DATA /404F,/7F7B,/5B6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P
0x0fd634…0fd7c8 Dummy {f00=0x0045, f01=0x4158, f02=»A /D7D8,/D9E2,/E3E4,/E5E6 50-57 ( P DATA /E7E8,/E94A,/005A,/5F6D 58-5F ( ( P DATA /0081,/8283,/8485,/8687 60-67 T ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/00E0 78-7F 4 P DAT
0x0fd7c8…0fd95c Dummy {f00=0x0045, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x0fd95c…0fdaf0 Dummy {f00=0x0045, f01=0x0190, f02=» PREM06 EQU * ) P ADR A4,A6 ) PREM10 LDR* A3,A2 ) , & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ) D P CWR A3,A4 ) n P RF(E) REM15 ) P LDR A2,A3 GET NEXT ) P RB REM10 ) PREM15 LDR* A3,A4 REMOVE ) P STR A3,A2 ) P RB GBUF10 RETURN )
0x0fdaf0…0fdc84 Dummy {f00=0x0045, f01=0x0190, f02=» DESTROYED ) P* A6=DWT * P* * " * PINSGWQ LDKL A2,DCGWQ GET QUEUE ANCHOR * , P RB INSWQ1 * Z P* * l P* * v , P* REMOVE DWT FROM GET WRITE BUFFER QUEUE * P* * P* A2,A3,A4 DESTROYED * P* A6=DWT * P* * * PREMOVG LDKL A2,DCGWQ GET
0x0fdc84…0fde18 Dummy {f00=0x0045, f01=0x0190, f02=» STAT=0 * P* A2,A3,A4 DESTROYED + P* A6=DWT + , P* + < ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR + F P LDK A4,DWTSQ + r P RB INSWQ2 + P* + P* + " P* REMOVE DWT FROM STATUS QUEUE + P* + P* A2,A3,A4 DESTROYED + P* A6=DWT +
0x0fde18…0fdfac Dummy {f00=0x0045, f01=0x0190, f02=» + $ P* QUEUE ALLOCATED RECEIVE BUFFER , P* , 0 P* A4=BUFFER ADDR , : P* A2,A3 DESTROYED , R P* , l PQRBUF EQU * , v P IFT MESPAS=1 , ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT , P XIF , P IFT MESPAS=0 , $ P LDR A2,A6 QUEUE ON TERMIN
0x0fdfac…0fe140 Dummy {f00=0x0045, f01=0x0190, f02=»EUE FOUND , z P LDR A2,A3 - P RB QR100 - $ & PQR200 STR A4,A2 INSERT INTO QUEUE - 6 " P CMR A4 INDICATE END OF QUEUE - ` P RTN A5 - P EJECT - P* - P* - 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE - P* - 4 P* REGISTERS A1,A
0x0fe140…0fe2d4 (0, 322) Opaque[0x194]
0x0fe2d4…0fe468 # DirEnt {nam=»ATTACX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01a8, f03=0x0000}
0x0fe2d4…0fe468 IdxSect {
0x0fe2d4…0fe468 f00 = 0x000d // 0xfe2d4 @0x0
0x0fe2d4…0fe468 f01 = 0x0002 // 0xfe2d6 @0x2
0x0fe2d4…0fe468 gno = [ // 0xfe2d8 @0x4
0x0fe2d4…0fe468 [0x00]: C0x000d.0x1.0
0x0fe2d4…0fe468 ]
0x0fe2d4…0fe468 }
0x0fe468…0fe5fc Dummy {f00=0x000d, f01=0x0190, f02=» 2 P IDENT ATTACX REL 8.2 78-09-15 870105040820 P : * B ( #*********************************** L * x $ * PHILIPS TERMINAL SYSTEM PTS * : 5* ATTACX = DUMMY MODULE, USED IF ATTACH IS EXCLUDED * * P*
0x0fe5fc…0fe790 Dummy {f00=0x000d, f01=0x4096, f02=»NTRY ATT:CH EXTRN TIOERR * * ATTACH EQU * 4 DETACH EQU * H ABL TIOERR ATT:CH DATA 0 p END @ SYSTEM PTS * : 5* ATTACX = DUMMY MODULE, USED IF ATTACH IS EXCLUDED * * P*
0x0fe790…0fe924 Dummy {f00=0x000d, f01=0x2008, f02=» * x * ENTRY ATTACH ENTRY DETACH 2 ENTRY ATT:CH H EXTRN TIOERR ^ * t ATTACH EQU * ~ DETACH EQU * ABL TIOERR ATT:CH DATA 0 END @ MODULE, USED IF ATTACH IS EXCLUDED
0x0fe924…0feab8 Dummy {f00=0x000d, f01=0x0190, f02=»= ELEMENT ADDRESS OF RESULT OPERAND(FIRST OPERAND) P* : 2 P* EL2 = ELEMENT ADDRESS OF SECOND OPERAND D P* z P* P EJECT P* P* P************ P* ENTRIES: * P************ P* " P ENTRY T:ADD DECIM
0x0feab8…0fec4c Dummy {f00=0x000d, f01=0x0190, f02=» ENTRY T:CMPC " P ENTRY T:CPA COMPARE ABSOLUTE P ENTRY T:CPAC < P ENTRY T:MOV MOVE R P ENTRY T:MOVC l P ENTRY T:OPA,T:OP1 P ENTRY T:OPS P ENTRY RETMMM " P ENTRY M:ADD,M:SUB,M:CMP,M:CPA P ENTRY M:MOV,M:OPA,M:OPS
0x0fec4c…0fede0 Dummy {f00=0x000d, f01=0x0190, f02=»EAS USED BY THE DIFFERENT SUBROUTINES * 8 P*************************************************** 0 P* l PT:OP1 EQU * v " P DATA 0 LENGTH 2-COMPLEMENTED P* P* & PT:OP2 DATA 0 LENGTH 2-COMPLEMENTED P* P* P EJECT
0x0fede0…0fef74 (0, 323) Opaque[0x194]
0x0fef74…0ff108 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x0fef74…0ff108 IdxSect {
0x0fef74…0ff108 f00 = 0x0045 // 0xfef74 @0x0
0x0fef74…0ff108 f01 = 0x0006 // 0xfef76 @0x2
0x0fef74…0ff108 gno = [ // 0xfef78 @0x4
0x0fef74…0ff108 [0x00]: C0x0045.0x2.0
0x0fef74…0ff108 [0x01]: C0x0045.0x3.0
0x0fef74…0ff108 [0x02]: C0x0046.0x0.0
0x0fef74…0ff108 ]
0x0fef74…0ff108 }
0x0ff108…0ff29c Dummy {f00=0x0045, f01=0x0190, f02=» 0 P IDENT TIMER REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P*************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P* P*
0x0ff29c…0ff430 Dummy {f00=0x0045, f01=0x0190, f02=» LKM PROCESSORS AND r " P* THE FOLLOWING SUBROUTINES: P* B * P* -SETIME: SET BLOCK IN TIMER QUEUE L . P* -SETIMP: SETIME + STORE TIMER POINTER z P* P* P EJECT P* P* P*********** P* ENTRIES *
0x0ff430…0ff5c4 Dummy {f00=0x0045, f01=0x0190, f02=»SETIME + STORE TIMER POINTER P* $ P* . P*********** 8 P* EXTRNALS * L P************ ` P* t P* ~ P EXTRN TDISP DISPATCHER 2 P EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT . P EXTRN LKMQDI QUEUE TERMINAL AND DISPARCH
0x0ff5c4…0ff758 Dummy {f00=0x0045, f01=0x0190, f02=»D FIND TTAB-ADDRESS $ P EXTRN QTJOB QUEUE TERMINAL JOB $ P EXTRN ACTOT ACTIVATE A TERMINAL D * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK l 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK
0x0ff758…0ff8ec Dummy {f00=0x0045, f01=0x0190, f02=»DLER WITH THE FOLLOWING n P* PARAMETERS: P* 8 P* 1. PROGRAM DELAY B P* ^ P* A4 = 0 h P* A5 = TTAB-ADDRESS z P* A8 = DELAY P* P* P* 2. TIMING AND ACTIVATION P* P* A1 = PARAMETER 8
0x0ff8ec…0ffa80 Dummy {f00=0x0045, f01=0x018e, f02=»CATION OF PROGRAM TO BE ACTIVATED v P* A8 = DELAY * P* @ P* J PTIMER EQU * T & P LDR A4,A4 TIMING AND ACTIVATION ? h P RF(NZ) TIM010 YES P* P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST
0x0ffa80…0ffc14 (0, 324) Dummy {f00=0x0045, f01=0x0190, f02=» P* P* TIMING AND ACTIVATION P* 0 PTIM010 EQU * : $ P CF A15,FNDTID FIND TTAB-ADDRESS N P LDR A2,A2 v " P ABL(Z) LKMRQE TTAB NOT FOUND ( P LDR A3,A2 IN BLOCK A3=TTAB-ADDRESS , P LDR A2,A4 A2=DISPATCH ADDRESS
0x0ffc14…0ffda8 Dummy {f00=0x0045, f01=0x0190, f02=»SETIME PPAR2 DATA TIMACT,0 P ABL LKMQDI ( P EJECT < P* J P* T P* RETURN AFTER TIME OUT ^ P* P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB-ADDRESS , P CF A15,QTJOB AND QUEUE FOR DISP
0x0ffda8…0fff3c Dummy {f00=0x0045, f01=0x0190, f02=»LOCK ADDRESS " P CF A15,FREBLK AND SET IT FREE P LDR A5,A3 SET TTAB-ADDRESS : . P LD A3,SRUN GET POINTER TO RUNNIG SEGMENT ^ $ P RF(Z) TIMA JMP IF ROOT SEGMENT 0 P SU A2,2,A3 ELSE CALCULATE RELATIVE ADDRESS PTIMA EQU * * P LDK A7,0
0x0fff3c…1000d0 Dummy {f00=0x0045, f01=0x0190, f02=»S E T I M E , S E T I M P P* " . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , * P* AND IF SETIMP, STORE TIMER POINTER ^ P* ENTRY PARAMETERS:- P* P* A1 = PARAMETER . P* A4 = IF SETIMP: TIMER POINTER ADDRESS , P* P1 =
0x1000d0…100264 Dummy {f00=0x0045, f01=0x018e, f02=» P* EXIT PARAMETER:- P* $ P* A4 = ADDRESS TO TIMER . P* P P* Z PSETIME EQU * d P LDK A4,0 x PSETIMP EQU * P CF A15,SAVE8 * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD F
0x100264…1003f8 Dummy {f00=0x0045, f01=0x0190, f02=» ( P ST A5,20,A15 ADJUST PROGRAM COUNTER $ P CF A15,GETBLK GET A FREE BLOCK 0 P LDR A2,A4 X P C1R A1,A8 j " P CF A15,GETBLK GET TIMER BLOCK | P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P S
0x1003f8…10058c Dummy {f00=0x0045, f01=0x403e, f02=»R j PSETEND ABL IHRET8 P* $ P END .@ : GET A FREE BLOCK 0 P LDR A2,A4 X P C1R A1,A8 j " P CF A15,GETBLK GET TIMER BLOCK | P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P S
0x10058c…100720 Dummy {f00=0x0045, 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
0x100720…1008b4 (0, 325) Dummy {f00=0x0046, f01=0x418a, f02=» ) + - X H D ! @ 5P CT OP WWv ]P cR iPd mW` sQ y T T P: T W0 P* H D ! T W& P" T W T P P< WH P R< T P T %W ) ` H D ! 1 ` 9R C b uW }T PX Q P PD P R T R T R P H D !@ %PN ) /P
0x1008b4…100a48 Dummy {f00=0x0046, f01=0x408e, f02=» J F IDENT INTLT1 REL 8.1 78-04-21 870105040810 INTLT1 R INTLT1 d x@
0x100a48…100bdc Dummy {f00=0x0046, f01=0x408e, f02=» J F IDENT INTLT2 REL 8.1 78-04-21 870105040810 INTLT2 R INTLT2 d x@
0x100bdc…100d70 Dummy {f00=0x0046, f01=0x408e, f02=» J F IDENT INTLT3 REL 8.1 78-04-21 870105040810 INTLT3 R INTLT3 d x@
0x100d70…100f04 Dummy {f00=0x0046, f01=0x408e, f02=» J F IDENT INTLT4 REL 8.1 78-04-21 870105040810 INTLT4 R INTLT4 d x@
0x100f04…101098 Dummy {f00=0x0046, f01=0x408e, f02=» J F IDENT INTRT1 REL 8.1 78-04-21 870105040810 INTRT1 R INTRT1 d x@
0x101098…10122c Dummy {f00=0x0046, f01=0x408e, f02=» J F IDENT INTRT2 REL 8.1 78-04-21 870105040810 INTRT2 R INTRT2 d x@
0x10122c…1013c0 Dummy {f00=0x0046, f01=0x408e, f02=» J F IDENT INTRT3 REL 8.1 78-04-21 870105040810 INTRT3 R INTRT3 d x@
0x1013c0…101554 (0, 326) Opaque[0x194]
0x101554…1016e8 # DirEnt {nam=»GRBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08e8, f03=0x0000}
0x101554…1016e8 IdxSect {
0x101554…1016e8 f00 = 0x0047 // 0x101554 @0x0
0x101554…1016e8 f01 = 0x0004 // 0x101556 @0x2
0x101554…1016e8 gno = [ // 0x101558 @0x4
0x101554…1016e8 [0x00]: C0x0047.0x1.0
0x101554…1016e8 [0x01]: C0x0047.0x2.0
0x101554…1016e8 ]
0x101554…1016e8 }
0x1016e8…10187c Dummy {f00=0x0047, f01=0x0190, f02=» 0 P IDENT GRBUF REL 8.2 78-09-15 870105040820 P 8 P* @ < P******************************************************* J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* GRBUF = LKM-PROCESSOR FOR GET AND RELEASE P* P*
0x10187c…101a10 Dummy {f00=0x0047, f01=0x018e, f02=»LE CONTAINS LKM-PROCESSORS FOR GET AND P* RELEASE BUFFER. . P* J P* GET BUFFER : T : P* NUMBER OF REQUIRED BUFFERS ARE GIVEN n > P* IN A7. BUFFER ADDRESS IS RETURNED IN A8. P* P* RELEASE BUF
0x101a10…101ba4 Dummy {f00=0x0047, f01=0x0190, f02=» P*********** P* P* & P ENTRY GETBUF GET BUFFER 0 P ENTRY RELBUF RELEASE BUFFER P P* t P* ~ P************* P* EXTERNALS * P************* P* P* $ P EXTRN TTB:SA TERMINAL SAVE AREA P E
0x101ba4…101d38 Dummy {f00=0x0047, f01=0x0190, f02=»FIRST TTAB IN BUFFER QUEUE x P* " P* , P EJECT 6 P* D P* N PGETBUF EQU * X , P LDKL A1,GBQUE POINTER TO FIRST IN QUEUE l & PGET001 LDR* A2,A1 GET TTAB-ADDRESS P RF(Z) GET005 NO IN QUEUE P LD A3,TTB:SA,A2 P CW A4,-
0x101d38…101ecc Dummy {f00=0x0047, f01=0x018e, f02=» ALLOCATE BUFFERS x P LDR A4,A4 , P RF(NZ) REL060 BUFFER HAS BEEN ALLOCATED . P* ^ P* h & PGET030 LDKL A1,GBQUE QUEUE REQUEST r PGET040 LDR A2,A1 P LDR* A1,A1 $ P RB(NZ) GET040 NOT LAST IN CHAIN P STR A5,A2 P CMR A
0x101ecc…102060 Dummy {f00=0x0047, f01=0x0190, f02=» t P LD A1,2,A4 BUFFER UNIT $ P ADK A1,2 ADD ONE WORD FOR CHAIN ( P LDR* A2,A8 P P XRK A2,1 d PREL010 LDR A3,A8 v P ADR A3,A1 P STR A3,A8 UPDATE CHAIN P LDR A8,A3 P CWR A3,A2 $ P RB(NE) REL010 UPDATE NEXT CHAIN
0x102060…1021f4 (0, 327) Dummy {f00=0x0047, f01=0x018e, f02=»DR* A5,A2 BUFFER ADDRESS P RF(Z) REL050 END OF QUEUE & P LDR* A6,A5 ADDRESS TO NEXT BUFFER B * P LD A1,TTB:SA,A5 GET DISPATCH ADDRESS l P CW A4,-2,A1 P RB(NE) REL020 NOT SAME POOL P STR A2,A15 P STR A4,A15 P STR A6,A15
0x1021f4…102388 Dummy {f00=0x0047, f01=0x0190, f02=» j P LDR A1,A4 P LDR* A6,A15 P LDR* A4,A15 0 P LDR* A2,A15 D P LDR A1,A1 X & P RF(Z) REL050 BUFFER NOT ALLOCATED j P CMR A5 TAKE OUT OF QUEUE P STR A6,A2 UPDATE CHAIN ( P CF A15,QTJOB QUEUE FOR DISPATCHING * P RB RE
0x102388…10251c Dummy {f00=0x0047, f01=0x0190, f02=» EJECT P* P* < P* SUBROUTINE TO ALLOCATE BUFFERS TO REQUESTING PROGRAM " P* b P* l PGET LDK A6,1 v & P LDR* A4,A4 ADDRESS TO BUFFER-POOL $ PGET010 LDR A8,A4 BUFFER ADDRESS P LDR A2,A7 PGET020 LDR A1,A4 P
0x10251c…1026b0 Dummy {f00=0x0047, f01=0x412a, f02=»1 P RB(NZ) GET020 P ANKL A8,/FFFE P* 6 P* @ P ORK A4,1 FREE BUFFER FOUND J $ P STR A4,A8 UPDATE BUFFER POINTER n & P ADKL A8,2 ADDRESS TO USER BUFFER , P ST A8,TTB:SA+16,A5 SAVE IT IN SAVE AREA PGET025 RTN A15 P*
0x1026b0…102844 Dummy {f00=0x0047, f01=0x2008, f02=» RB(NZ) GET010 BUFFER NOT FREE P SUK A2,1 . P RB(NZ) GET020 @ P ANKL A8,/FFFE V P* l P* v P ORK A4,1 FREE BUFFER FOUND $ P STR A4,A8 UPDATE BUFFER POINTER & P ADKL A8,2 ADDRESS TO USER BUFFER , P ST A8,TTABSA+16,A
0x102844…1029d8 Dummy {f00=0x0047, f01=0x401a, f02=» @ T Y P LDREG 8 SAVE8 H , ( y P P P Y _@ X , ( D Y X Z8 _ B ( $ = > 0R Q W C > H D ! V H ( 8 P
0x1029d8…102b6c Dummy {f00=0x0047, f01=0x40dc, f02=» J F IDENT DVTMS REL 8.1 78-04-21 870105040810 DVTMS R DVTMS b MSADN t & " ! ( @
0x102b6c…102d00 Dummy {f00=0x0047, f01=0x40ce, f02=» J F IDENT DC:TAB REL 8.1 78-04-21 870105040810 DC:TAB DCTAB R DCTAB j DC:TAB | @
0x102d00…102e94 (0, 328) Opaque[0x194]
0x102e94…103028 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0900, f03=0x0000}
0x102e94…103028 IdxSect {
0x102e94…103028 f00 = 0x0048 // 0x102e94 @0x0
0x102e94…103028 f01 = 0x0004 // 0x102e96 @0x2
0x102e94…103028 gno = [ // 0x102e98 @0x4
0x102e94…103028 [0x00]: C0x0048.0x0.0
0x102e94…103028 [0x01]: C0x0048.0x1.0
0x102e94…103028 ]
0x102e94…103028 }
0x103028…1031bc Dummy {f00=0x0048, f01=0x0190, f02=» 2 P IDENT TABORT REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************* L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P* P*
0x1031bc…103350 Dummy {f00=0x0048, f01=0x0190, f02=»HE LKM HANDLER WITH THE FOLLOWING r P* PARAMETERS:- * P* B , P* A5 = TTAB-ADDRESS OF CALLING PROGRAM L P* | 6 P* A8 = ECB-ADDRESS OF I/O REQUEST TO BE ABORTED P* * P* A PENDING I/O REQUEST IS ABORTED. : P* THE ABORT RE
0x103350…1034e4 Dummy {f00=0x0048, f01=0x0190, f02=» EJECT P P P ENTRY TABORT P 4 P < " P EXTRN FNDDWT FIND DWT-ADDRESS D P EXTRN DWTST DWT STATUS j & P EXTRN DWTTAB TTAB-ADDRESS IN DWT 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT ( P EXTRN TABIO ABORT I/O AND ACTIV
0x1034e4…103678 Dummy {f00=0x0048, f01=0x0190, f02=»BRT ABORT INTERTASK REQUEST P EXTRN FREBLK FREE ONE BLOCK $ P H P P " PDWTECH EQU /22 ECHO DEVICE DWT X P* ~ P* CONDITIONAL ASSEMBLY P* > P* BY SETTING X:A=0 NO ACTIVATION (IF ANY) WILL TAKE PLACE @ P* IF X:A=1 I/O REQU
0x103678…10380c Dummy {f00=0x0048, f01=0x0190, f02=»ORTED z PCREDIT EQU 1 P EJECT " P 0 P* 8 P* ABORT I/O REQUEST B P* ^ P h PTABORT LDR* A3,A8 p , P RF(N) TABOER REQUEST ALREADY COMPLETED P ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS P LDR A8,A6 P RF(Z) T
0x10380c…1039a0 Dummy {f00=0x0048, f01=0x0190, f02=»OER DEVICE NOT BUSY P P SLC A7,2 $ $ P RF(NN) TABO20 NOT ECHO REQUEST 6 " P LD A6,DWTECH,A6 GET ECHO DWT ^ $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT PTABO20 EQU * . P CF A15,ITABRT ABORT IF INTERTASK REQUEST
0x1039a0…103b34 (0, 329) Dummy {f00=0x0048, f01=0x4190, f02=»REDIT=1 P LD A4,DWTWAT,A6 P RF(Z) TABO30 I/O NOT WAIT ( 2 P CF A15,FREBLK I/O AND ACTIVATE FREE DISP BLK J P CM DWTWAT,A6 SET NOT WAIT PTABO30 EQU * P LDKL A1,/C000 RETURN CODE P CF A15,TENDIO ABORT P XIF 0 P ABL LKM
0x103b34…103cc8 Dummy {f00=0x0048, f01=0x2008, f02=»
0x103cc8…103e5c Dummy {f00=0x0048, f01=0x0190, f02=» P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 & PRE100 SLL A1,1 8 P RF(Z) RE110 N P RB(NN) RE100 b P XRK A2,/80 x P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK A1,/80
0x103e5c…103ff0 Dummy {f00=0x0048, f01=0x0190, f02=»FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* > $ P* CALLING SEQUENCE: CF A5,FINTER H P* A2=SUBTERMINAL ADDRESS p P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POL
0x103ff0…104184 Dummy {f00=0x0048, f01=0x0190, f02=» IF 1 COMPARE WITH RIGTH BYTE P* & P* 0 PFINTEP EQU * : P IFT MSV1=0 N PFINTER EQU * b P XIF v P IM RBYTE P IFT MSV1=1 PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS
0x104184…104318 Dummy {f00=0x0048, f01=0x0190, f02=»NAL NOT FOUND z P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 : $ P AD A3,RBYTE CHOOSE ADDRESS TYPE N * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS v P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE
0x104318…1044ac Dummy {f00=0x0048, f01=0x0190, f02=»WER ON FUNCTIONS P* P* " $ PDC15ON CF A15,SAVE8 SAVE A1 - A8 , P IFT STAT=1 T P LDK A5,4 SET DEVICE END h 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
0x1044ac…104640 Dummy {f00=0x0048, f01=0x0190, f02=»US QUEUE t P RB DRDC05 PDRDC06 EQU * " P XIF 6 ( P LD A2,DCTPGP GET POLL TIMER POINTER B " P RF(NZ) DRDC20 ALREADY STARTED n * PDRDC10 CF A15,SPOTIM START POLL TIMER PDRDC20 ABL BRM P EJECT P* P* POLL TIME OUT P
0x104640…1047d4 (0, 330) Opaque[0x194]
0x1047d4…104968 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0060, f03=0x0000}
0x1047d4…104968 IdxSect {
0x1047d4…104968 f00 = 0x0003 // 0x1047d4 @0x0
0x1047d4…104968 f01 = 0x0002 // 0x1047d6 @0x2
0x1047d4…104968 gno = [ // 0x1047d8 @0x4
0x1047d4…104968 [0x00]: C0x0003.0x0.0
0x1047d4…104968 ]
0x1047d4…104968 }
0x104968…104afc Dummy {f00=0x0003, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DVKB00 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY00 P* P* PDVKB00 EQU * TAB
0x104afc…104c90 Dummy {f00=0x0003, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA
0x104c90…104e24 Dummy {f00=0x0003, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DVKB00 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DVKB00 P DATA 0,0,0,0,0,0,0,0 P
0x104e24…104fb8 Dummy {f00=0x0003, 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
0x104fb8…10514c Dummy {f00=0x0003, f01=0x0190, f02=» | P DATA ILLINT 59 P DATA ILLINT 60 $ P DATA ILLINT 61 @ P DATA ILLINT 62 P DATA IHINPT TRAP ROUTINE x P HLT P EJECT P P* P* SYSTEM HALTS P* P P HLT P HLT P
0x10514c…1052e0 Dummy {f00=0x0003, f01=0x018e, f02=»ATA STB STACK BASE & PCVTSBA DATA 0 START OF BUFFER AREA $ PCVTEBA DATA 0 END OF BUFFER AREA D , PCVTINP DATA 0 INTERPPRETER TABLE ADDRESS l P RF INIT P RF BUGG & PCVTAPA DATA 0 APPLICATION ADDRESS * PCVTAPS DATA 0 APPLICATON START ADD
0x1052e0…105474 (0, 331) Opaque[0x194]
0x105474…105608 # DirEnt {nam=»DVTP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x105474…105608 IdxSect {
0x105474…105608 f00 = 0x0003 // 0x105474 @0x0
0x105474…105608 f01 = 0x0002 // 0x105476 @0x2
0x105474…105608 gno = [ // 0x105478 @0x4
0x105474…105608 [0x00]: C0x0003.0x1.0
0x105474…105608 ]
0x105474…105608 }
0x105608…10579c Dummy {f00=0x0003, f01=0x018e, f02=» 2 P IDENT DVTP00 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP00 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP00 EQU *
0x10579c…105930 Dummy {f00=0x0003, f01=0x0190, f02=» . P DATA DWTEND-DVTP00 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x105930…105ac4 Dummy {f00=0x0003, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x105ac4…105c58 Dummy {f00=0x0003, 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
0x105c58…105dec Dummy {f00=0x0003, f01=0x0190, f02=»* SAVE APPLICATION ADDRESS AND RELOCATION BASE P* 8 , PINIM20 ST A13,CVTAPA APPLICATION ADDRESS B , P ADR A10,A13 APPLICATION RELOCATION BASE r P EJECT P* $ P* READ AND RELOCATION ROUTINE P* P* ON ENTRY: & P*
0x105dec…105f80 Dummy {f00=0x0003, f01=0x0190, f02=»REGISTER USAGE: 4 P* A2 = RELOCATION BITS CHECK REG 6 P* A3 = ADDRESS OF RELOCATION TABLE P 2 P* A4 = RELOCATION BIT COUNTER , P* A5 = CODE WORD ADDRESS , P* A7 = C
0x105f80…106114 (0, 332) Opaque[0x194]
0x106114…1062a8 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x106114…1062a8 IdxSect {
0x106114…1062a8 f00 = 0x0003 // 0x106114 @0x0
0x106114…1062a8 f01 = 0x0002 // 0x106116 @0x2
0x106114…1062a8 gno = [ // 0x106118 @0x4
0x106114…1062a8 [0x00]: C0x0003.0x2.0
0x106114…1062a8 ]
0x106114…1062a8 }
0x1062a8…10643c Dummy {f00=0x0003, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DVDY00 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDVDY00 EQU * TABLE ENT
0x10643c…1065d0 Dummy {f00=0x0003, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( 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 P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x1065d0…106764 Dummy {f00=0x0003, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h 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
0x106764…1068f8 Dummy {f00=0x0003, 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
0x1068f8…106a8c Dummy {f00=0x0003, f01=0x018e, f02=» & P SRL A1,1 START ADDRESS REFERENCE P LD A2,PARLEN . ( P SRL A2,1 PARTITION LENGTH REFERENCE D PINIM28 ADR A1,A2 OVERFLOW? p P RF(O) OVERFL ERROR P SUK A3,1 P RB(NZ) INIM28 " P LD A2,CVTEBA GET MEMORY SIZE P SRL A2,1
0x106a8c…106c20 Dummy {f00=0x0003, f01=0x0190, f02=» P* " P* LINK FREE PARTITION QUEUE P* 8 PINILNK EQU * B . P ST A13,FREPAR SET FREE PARTITION POINTER V $ PINIM29 SUK A4,1 LAST PARTITION ? P RF(E) INIM32 P LDR A5,A13 ( P AD A13,PARLEN ADD PARTITION LENGTH P S
0x106c20…106db4 (0, 333) Opaque[0x194]
0x106db4…106f48 # DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0078, f03=0x0000}
0x106db4…106f48 IdxSect {
0x106db4…106f48 f00 = 0x0003 // 0x106db4 @0x0
0x106db4…106f48 f01 = 0x0002 // 0x106db6 @0x2
0x106db4…106f48 gno = [ // 0x106db8 @0x4
0x106db4…106f48 [0x00]: C0x0003.0x3.0
0x106db4…106f48 ]
0x106db4…106f48 }
0x106f48…1070dc Dummy {f00=0x0003, f01=0x018e, f02=» 2 P IDENT DVTP01 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP01 EQU *
0x1070dc…107270 Dummy {f00=0x0003, f01=0x0190, f02=» . P DATA DWTEND-DVTP01 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x107270…107404 Dummy {f00=0x0003, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x107404…107598 Dummy {f00=0x0003, 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
0x107598…10772c Dummy {f00=0x0003, f01=0x0190, f02=» > n RTNA15 , ( C @ P P P X X8 , ( a _: W ? T T P , ( W u > > E D , ( E E S % ;DV " * & U " D & $ P #`P T E &
0x10772c…1078c0 Dummy {f00=0x0003, f01=0x0190, f02=» Y _8 X v LDREGF LDREGE $ * , ( XB Y X X X X ' > GETCHRC 8 n , ( 3@ 4 B U B (" W C OUTLIN` V , ( Q$ " 8' ?A R 8 , ( m ;b#
0x1078c0…107a54 (0, 334) Opaque[0x194]
0x107a54…107be8 # DirEnt {nam=»DVTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x107a54…107be8 IdxSect {
0x107a54…107be8 f00 = 0x000c // 0x107a54 @0x0
0x107a54…107be8 f01 = 0x0002 // 0x107a56 @0x2
0x107a54…107be8 gno = [ // 0x107a58 @0x4
0x107a54…107be8 [0x00]: C0x000c.0x1.0
0x107a54…107be8 ]
0x107a54…107be8 }
0x107be8…107d7c Dummy {f00=0x000c, f01=0x018e, f02=» 2 P IDENT DVTP02 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP02 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP02 EQU *
0x107d7c…107f10 Dummy {f00=0x000c, f01=0x0190, f02=» . P DATA DWTEND-DVTP02 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x107f10…1080a4 Dummy {f00=0x000c, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x1080a4…108238 Dummy {f00=0x000c, 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
0x108238…1083cc Dummy {f00=0x000c, 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
0x1083cc…108560 Dummy {f00=0x000c, f01=0x4014, f02=» P END ] @ ] P XIF P IFT IBM=1 $ , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT 6 P DATA 0,0,0,0 f $ PDWTEOD EQU *-DWFD01 END OF DATA | P DATA 0,0,0,0 & PDWTEOE EQU *-DWFD01 END OF EXTENT P DATA 0,0,0,0 * PDWTCRN EQU *-D
0x108560…1086f4 (0, 335) Opaque[0x194]
0x1086f4…108888 # DirEnt {nam=»TTABTC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0448, f03=0x0000}
0x1086f4…108888 IdxSect {
0x1086f4…108888 f00 = 0x0022 // 0x1086f4 @0x0
0x1086f4…108888 f01 = 0x0002 // 0x1086f6 @0x2
0x1086f4…108888 gno = [ // 0x1086f8 @0x4
0x1086f4…108888 [0x00]: C0x0022.0x1.0
0x1086f4…108888 ]
0x1086f4…108888 }
0x108888…108a1c Dummy {f00=0x0022, f01=0x0190, f02=» 2 P IDENT TTABTC REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTC TABLE ENTRY P* P* P* P EXTRN DWKB01 P EXTRN DWTP01 P
0x108a1c…108bb0 Dummy {f00=0x0022, f01=0x0190, f02=»C' TERMINAL IDENTIFICATION $ P DATA 0 PENDING PROGRAM POINTER " P DATA 0 LAST SEGMENT ADDRESS J P DATA 0 SEGMENT POINTER n P DATA 0 TERMINAL SAVE AREA P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020
0x108bb0…108d44 Dummy {f00=0x0022, f01=0x410e, f02=» DATA DWDY01 P DATA /0231 P DATA DWTP01 @ P DATA /0132 ` P DATA DWTP01 P DATA /0061 P DATA DW1501 PTTABE EQU * P* P END @
0x108d44…108ed8 Dummy {f00=0x0022, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x108ed8…10906c Dummy {f00=0x0022, f01=0x0190, f02=» , ( :a U _n P _ 7 , ( G. @ ' ?D A ' P G O 4 INIM40N & d TCTAB x TTB:ID1 , ( @ $ T $ T PRUNN TTB:ST0 , ( 9 Z A 5 T "
0x10906c…109200 Dummy {f00=0x0022, f01=0x409e, f02=» H D ! f W W W P& P CW WP cV qP uT P Pd U U 4 0 ` S U P P & 1T K F UP [ j g h P @ @ $ T $ T PRUNN TTB:ST0 , ( 9 Z A 5 T "
0x109200…109394 (0, 336) Opaque[0x194]
0x109394…109528 # DirEnt {nam=»TTABTD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0450, f03=0x0000}
0x109394…109528 IdxSect {
0x109394…109528 f00 = 0x0022 // 0x109394 @0x0
0x109394…109528 f01 = 0x0002 // 0x109396 @0x2
0x109394…109528 gno = [ // 0x109398 @0x4
0x109394…109528 [0x00]: C0x0022.0x2.0
0x109394…109528 ]
0x109394…109528 }
0x109528…1096bc Dummy {f00=0x0022, f01=0x018e, f02=» 2 P IDENT TTABTD REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTD TABLE ENTRY P* P* P* P EXTRN DWKB02 P EXTRN DWTP02 P
0x1096bc…109850 Dummy {f00=0x0022, f01=0x018e, f02=» $ P DATA 0 PENDING PROGRAM POINTER P DATA 0 LAST SEGMENT ADDRESS , P DATA 0 SEGMENT POINTER P P DATA 0 TERMINAL SAVE AREA p P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x109850…1099e4 Dummy {f00=0x0022, f01=0x40b2, f02=» P DATA /0231 P DATA DWTP02 $ P DATA /0132 D P DATA DWTP02 d PTTABE EQU * P* P END @ TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x1099e4…109b78 Dummy {f00=0x0022, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x109b78…109d0c Dummy {f00=0x0022, f01=0x0190, f02=»RO,A6 OLD OFFSET { P LD A4,FDBMRO,A6 | P ST A4,FDBRRO,A6 MAX OFFSET | 0 $ P CF A14,GTLGRN LAST REC NR MOVED | T P LDR A8,A2 | | P LDR A9,A3 REC NR | " P ST A12,FDBRRO,A6 RESET OFFSET | P LDKL A12,-1 | & P CF A14,CRNUPD UPDATE CRN BUFFERS |
0x109d0c…109ea0 Dummy {f00=0x0022, f01=0x0190, f02=»A5 FDB | P CF A14,GTLGRN GET REC NR } P LDR A1,A2 } 0 P LDR A2,A3 } B P LDK A6,0 } T P LDK A7,1 } f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 } x P RF(Z) DEL600 FILE START } P LDR A6,A5 FDB ADDR } P CF A14,CALSNO GET SECTOR NR } P LDR A5,
0x109ea0…10a034 (0, 337) Opaque[0x194]
0x10a034…10a1c8 # DirEnt {nam=»TTABTE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04c0, f03=0x0000}
0x10a034…10a1c8 IdxSect {
0x10a034…10a1c8 f00 = 0x0026 // 0x10a034 @0x0
0x10a034…10a1c8 f01 = 0x0002 // 0x10a036 @0x2
0x10a034…10a1c8 gno = [ // 0x10a038 @0x4
0x10a034…10a1c8 [0x00]: C0x0026.0x0.0
0x10a034…10a1c8 ]
0x10a034…10a1c8 }
0x10a1c8…10a35c Dummy {f00=0x0026, f01=0x018e, f02=» 2 P IDENT TTABTE REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTE TABLE ENTRY P* P* P* P EXTRN DWKB03 P EXTRN DWTP03 P
0x10a35c…10a4f0 Dummy {f00=0x0026, f01=0x018e, f02=» $ P DATA 0 PENDING PROGRAM POINTER P DATA 0 LAST SEGMENT ADDRESS , P DATA 0 SEGMENT POINTER P P DATA 0 TERMINAL SAVE AREA p P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x10a4f0…10a684 Dummy {f00=0x0026, f01=0x40b2, f02=» P DATA /0231 P DATA DWTP03 $ P DATA /0132 D P DATA DWTP03 d PTTABE EQU * P* P END @ TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x10a684…10a818 Dummy {f00=0x0026, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x10a818…10a9ac Dummy {f00=0x0026, f01=0x0190, f02=» 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 IS THEN USED r P EJECT P* P*************** P* ENTRIES * P*************** P*
0x10a9ac…10ab40 Dummy {f00=0x0026, f01=0x0190, f02=»*************** P* EXTERNALS * P***************** 2 P* L P EXTRN QTJOB V P EXTRN FNDTID,TTB:TD j P* P EXTRN DWTST P EXTRN DWTADR P* P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN E
0x10ab40…10acd4 (0, 338) Opaque[0x194]
0x10acd4…10ae68 # DirEnt {nam=»TTABTF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04d0, f03=0x0000}
0x10acd4…10ae68 IdxSect {
0x10acd4…10ae68 f00 = 0x0026 // 0x10acd4 @0x0
0x10acd4…10ae68 f01 = 0x0002 // 0x10acd6 @0x2
0x10acd4…10ae68 gno = [ // 0x10acd8 @0x4
0x10acd4…10ae68 [0x00]: C0x0026.0x2.0
0x10acd4…10ae68 ]
0x10acd4…10ae68 }
0x10ae68…10affc Dummy {f00=0x0026, f01=0x018e, f02=» 2 P IDENT TTABTF REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTF TABLE ENTRY P* P* P* P EXTRN DWKB04 P EXTRN DWTP04 P
0x10affc…10b190 Dummy {f00=0x0026, f01=0x018e, f02=» $ P DATA 0 PENDING PROGRAM POINTER P DATA 0 LAST SEGMENT ADDRESS , P DATA 0 SEGMENT POINTER P P DATA 0 TERMINAL SAVE AREA p P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x10b190…10b324 Dummy {f00=0x0026, f01=0x40b2, f02=» P DATA /0231 P DATA DWTP04 $ P DATA /0132 D P DATA DWTP04 d PTTABE EQU * P* P END @ TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x10b324…10b4b8 Dummy {f00=0x0026, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x10b4b8…10b64c Dummy {f00=0x0026, f01=0x0190, f02=» PDMTAR4 EQU * P LDKL A14,DMTA14 P CF A14,DMTIOC 0 P LD A9,TASVRL F P LD A11,TASASB , P ADKL A11,2 POINTER TO FILENAME IN ASBLK r P LDK A4,2 P CW A4,TASFIL $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE N
0x10b64c…10b7e0 Dummy {f00=0x0026, f01=0x0190, f02=»A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 0 P ANK A2,/FF B P ABL(Z) DMT250 NOT USED V ( P SUR A4,A9 BACK TO START OF VTOC REC v P LDR A7,A11 $ P LDK A2,4 FILE NAME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 P C
0x10b7e0…10b974 (0, 339) Opaque[0x194]
0x10b974…10bb08 # DirEnt {nam=»TTABDC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e0, f03=0x0000}
0x10b974…10bb08 IdxSect {
0x10b974…10bb08 f00 = 0x0027 // 0x10b974 @0x0
0x10b974…10bb08 f01 = 0x0002 // 0x10b976 @0x2
0x10b974…10bb08 gno = [ // 0x10b978 @0x4
0x10b974…10bb08 [0x00]: C0x0027.0x0.0
0x10b974…10bb08 ]
0x10b974…10bb08 }
0x10bb08…10bc9c Dummy {f00=0x0027, f01=0x0190, f02=» 2 P IDENT TTABDC REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABDC TABLE ENTRY P* P* P* P* P* PTTABDC DATA 0 P DATA 60 TASK LEVEL & P
0x10bc9c…10be30 Dummy {f00=0x0027, f01=0x409e, f02=»INTER ~ P DATA 0 TERMINAL SAVE AREA P RES 14 0 P* @ " P DATA TTABE-* TERMINAL DEVICES J PTTABE EQU * p P* P END @ P* P* P* P* P* PTTABDC DATA 0 P DATA 60 TASK LEVEL & P
0x10be30…10bfc4 Dummy {f00=0x0027, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x10bfc4…10c158 Dummy {f00=0x0027, f01=0x018e, f02=»* " P LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 # $ P ST A1,EXTDMI,A6 # < P LD A1,TASXLB,A4 # T P ST A1,EXTLEN,A6 # l P LD A1,TASXLB+2,A4 # P ST A1,EXTBAS,A6 # P ADK A6,6 # P SUK A5,1 # & P RF(NP) DMT500 ALL EXTENTS HANDLED # P* #
0x10c158…10c2ec Dummy {f00=0x0027, f01=0x0190, f02=» # P SUK A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 $ PDMT370 EQU * $ @ P ECR A1,A2 $ T P ANK A1,/FF $ f P SUK A1,3 $ z P RB(E) DMT355 SECTION-NO = 3 $ " P ADK A1,4 INCREMENT SECTION-NO $ P ECR A2,A1 EXT-NO = 0 $ P RB DMT340 $ $ PDM
0x10c2ec…10c480 Dummy {f00=0x0027, f01=0x0190, f02=»T400 EQU * $ P LDK A7,0 % PDMTASX EQU * % $ , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR % 8 P LDR A7,A7 % h P RF(Z) DMT420 CORRECT RETURN % z P CM -1,A2 ZERO FILE CODE % P* % $ P* REMOVE FDB WITH MASTER INDEX % P* % $ P LD A4,TASMXA
0x10c480…10c614 (0, 340) Opaque[0x194]
0x10c614…10c7a8 # DirEnt {nam=»DWKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0308, f03=0x0000}
0x10c614…10c7a8 IdxSect {
0x10c614…10c7a8 f00 = 0x0018 // 0x10c614 @0x0
0x10c614…10c7a8 f01 = 0x0002 // 0x10c616 @0x2
0x10c614…10c7a8 gno = [ // 0x10c618 @0x4
0x10c614…10c7a8 [0x00]: C0x0018.0x1.0
0x10c614…10c7a8 ]
0x10c614…10c7a8 }
0x10c7a8…10c93c Dummy {f00=0x0018, f01=0x0190, f02=» 2 P IDENT DWKB01 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB01 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY01 P* P* PDWKB01 EQU * TAB
0x10c93c…10cad0 Dummy {f00=0x0018, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA
0x10cad0…10cc64 Dummy {f00=0x0018, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB01 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB01 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB01 P DATA 0,0,0,0,0,0,0,0 P
0x10cc64…10cdf8 Dummy {f00=0x0018, 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
0x10cdf8…10cf8c Dummy {f00=0x0018, f01=0x0190, f02=») DUNA20 GET NEXT WORD + P , P , & P LDR A1,A1 , . P RF(Z) DUNA40 VOLUME MATCH , @ P LC A2,DWTOR,A6 INDEX , b P ANK A2,1 , P ADR A2,A2 , P ADR A2,A6 , & P ST A1,DWTBSY,A2 NEW VOLUME LOADED , PDUNA40 EQU * , P , P , P LD
0x10cf8c…10d120 Dummy {f00=0x0018, f01=0x0190, f02=»,DWTSAV,A6 GET OLD DWT CONTENTS , P ST A1,DWTOR,A6 SAVE IT - ( P LDKL A1,-1 - H P ST A1,DWTSAV,A6 - P LDKL A5,DWTSB1 - t P ADR A5,A6 STACK BASE - ( P LDK A1,1 RETURN CODE. NOT OPERABLE - P RTN A5 - P* - P* - P* TIMER POIN
0x10d120…10d2b4 (0, 341) Opaque[0x194]
0x10d2b4…10d448 # DirEnt {nam=»DWTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x10d2b4…10d448 IdxSect {
0x10d2b4…10d448 f00 = 0x0052 // 0x10d2b4 @0x0
0x10d2b4…10d448 f01 = 0x0002 // 0x10d2b6 @0x2
0x10d2b4…10d448 gno = [ // 0x10d2b8 @0x4
0x10d2b4…10d448 [0x00]: C0x0052.0x2.0
0x10d2b4…10d448 ]
0x10d2b4…10d448 }
0x10d448…10d5dc Dummy {f00=0x0052, f01=0x018e, f02=» 2 P IDENT DWTP01 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP01 EQU *
0x10d5dc…10d770 Dummy {f00=0x0052, f01=0x0190, f02=» . P DATA DWTEND-DWTP01 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x10d770…10d904 Dummy {f00=0x0052, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x10d904…10da98 Dummy {f00=0x0052, 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
0x10da98…10dc2c Dummy {f00=0x0052, f01=0x0190, f02=»DLER WITH THE FOLLOWING n P* PARAMETERS: P* 8 P* 1. PROGRAM DELAY B P* ^ P* A4 = 0 h P* A5 = TTAB-ADDRESS z P* A8 = DELAY P* P* P* 2. TIMING AND ACTIVATION P* P* A1 = PARAMETER 8
0x10dc2c…10ddc0 Dummy {f00=0x0052, f01=0x018e, f02=»CATION OF PROGRAM TO BE ACTIVATED v P* A8 = DELAY * P* @ P* J PTIMER EQU * T & P LDR A4,A4 TIMING AND ACTIVATION ? h P RF(NZ) TIM010 YES P* P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST
0x10ddc0…10df54 (0, 342) Opaque[0x194]
0x10df54…10e0e8 # DirEnt {nam=»DWDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a68, f03=0x0000}
0x10df54…10e0e8 IdxSect {
0x10df54…10e0e8 f00 = 0x0053 // 0x10df54 @0x0
0x10df54…10e0e8 f01 = 0x0002 // 0x10df56 @0x2
0x10df54…10e0e8 gno = [ // 0x10df58 @0x4
0x10df54…10e0e8 [0x00]: C0x0053.0x1.0
0x10df54…10e0e8 ]
0x10df54…10e0e8 }
0x10e0e8…10e27c Dummy {f00=0x0053, f01=0x0190, f02=» 2 P IDENT DWDY01 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY01 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY01 EQU * TABLE ENT
0x10e27c…10e410 Dummy {f00=0x0053, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( 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 P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x10e410…10e5a4 Dummy {f00=0x0053, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h 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
0x10e5a4…10e738 Dummy {f00=0x0053, 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
0x10e738…10e8cc Dummy {f00=0x0053, f01=0x018e, f02=» ALLOCATE BUFFERS x P LDR A4,A4 , P RF(NZ) REL060 BUFFER HAS BEEN ALLOCATED . P* ^ P* h & PGET030 LDKL A1,GBQUE QUEUE REQUEST r PGET040 LDR A2,A1 P LDR* A1,A1 $ P RB(NZ) GET040 NOT LAST IN CHAIN P STR A5,A2 P CMR A
0x10e8cc…10ea60 Dummy {f00=0x0053, f01=0x0190, f02=» t P LD A1,2,A4 BUFFER UNIT $ P ADK A1,2 ADD ONE WORD FOR CHAIN ( P LDR* A2,A8 P P XRK A2,1 d PREL010 LDR A3,A8 v P ADR A3,A1 P STR A3,A8 UPDATE CHAIN P LDR A8,A3 P CWR A3,A2 $ P RB(NE) REL010 UPDATE NEXT CHAIN
0x10ea60…10ebf4 (0, 343) Opaque[0x194]
0x10ebf4…10ed88 # DirEnt {nam=»DWKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a78, f03=0x0000}
0x10ebf4…10ed88 IdxSect {
0x10ebf4…10ed88 f00 = 0x0053 // 0x10ebf4 @0x0
0x10ebf4…10ed88 f01 = 0x0002 // 0x10ebf6 @0x2
0x10ebf4…10ed88 gno = [ // 0x10ebf8 @0x4
0x10ebf4…10ed88 [0x00]: C0x0053.0x3.0
0x10ebf4…10ed88 ]
0x10ebf4…10ed88 }
0x10ed88…10ef1c Dummy {f00=0x0053, f01=0x0190, f02=» 2 P IDENT DWKB02 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB02 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY02 P* P* PDWKB02 EQU * TAB
0x10ef1c…10f0b0 Dummy {f00=0x0053, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA
0x10f0b0…10f244 Dummy {f00=0x0053, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB02 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB02 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB02 P DATA 0,0,0,0,0,0,0,0 P
0x10f244…10f3d8 Dummy {f00=0x0053, 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
0x10f3d8…10f56c Dummy {f00=0x0053, f01=0x0190, f02=»ORTED z PCREDIT EQU 1 P EJECT " P 0 P* 8 P* ABORT I/O REQUEST B P* ^ P h PTABORT LDR* A3,A8 p , P RF(N) TABOER REQUEST ALREADY COMPLETED P ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS P LDR A8,A6 P RF(Z) T
0x10f56c…10f700 Dummy {f00=0x0053, f01=0x0190, f02=»OER DEVICE NOT BUSY P P SLC A7,2 $ $ P RF(NN) TABO20 NOT ECHO REQUEST 6 " P LD A6,DWTECH,A6 GET ECHO DWT ^ $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT PTABO20 EQU * . P CF A15,ITABRT ABORT IF INTERTASK REQUEST
0x10f700…10f894 (0, 344) Opaque[0x194]
0x10f894…10fa28 # DirEnt {nam=»DWTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x10f894…10fa28 IdxSect {
0x10f894…10fa28 f00 = 0x0054 // 0x10f894 @0x0
0x10f894…10fa28 f01 = 0x0002 // 0x10f896 @0x2
0x10f894…10fa28 gno = [ // 0x10f898 @0x4
0x10f894…10fa28 [0x00]: C0x0054.0x1.0
0x10f894…10fa28 ]
0x10f894…10fa28 }
0x10fa28…10fbbc Dummy {f00=0x0054, f01=0x018e, f02=» 2 P IDENT DWTP02 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP02 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP02 EQU *
0x10fbbc…10fd50 Dummy {f00=0x0054, f01=0x0190, f02=» . P DATA DWTEND-DWTP02 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x10fd50…10fee4 Dummy {f00=0x0054, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x10fee4…110078 Dummy {f00=0x0054, 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
0x110078…11020c Dummy {f00=0x0054, f01=0x0190, f02=» 59 P DATA ILLINT 60 P DATA ILLINT 61 * P DATA ILLINT 62 F P DATA IHINPT TRAP ROUTINE b P HLT P EJECT P P* P* SYSTEM HALTS P* P P HLT P HLT P P P P
0x11020c…1103a0 Dummy {f00=0x0054, f01=0x0190, f02=» & PCVTSBA DATA 0 START OF BUFFER AREA $ PCVTEBA DATA 0 END OF BUFFER AREA . , PCVTINP DATA 0 INTERPPRETER TABLE ADDRESS V P RF INIT P RF BUGG & PCVTAPA DATA 0 APPLICATION ADDRESS * PCVTAPS DATA 0 APPLICATON START ADDRESS " PCVTCLK DAT
0x1103a0…110534 (0, 345) Opaque[0x194]
0x110534…1106c8 # DirEnt {nam=»DWDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a98, f03=0x0000}
0x110534…1106c8 IdxSect {
0x110534…1106c8 f00 = 0x0054 // 0x110534 @0x0
0x110534…1106c8 f01 = 0x0002 // 0x110536 @0x2
0x110534…1106c8 gno = [ // 0x110538 @0x4
0x110534…1106c8 [0x00]: C0x0054.0x3.0
0x110534…1106c8 ]
0x110534…1106c8 }
0x1106c8…11085c Dummy {f00=0x0054, f01=0x0190, f02=» 2 P IDENT DWDY02 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY02 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY02 EQU * TABLE ENT
0x11085c…1109f0 Dummy {f00=0x0054, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( 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 P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x1109f0…110b84 Dummy {f00=0x0054, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h 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
0x110b84…110d18 Dummy {f00=0x0054, 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
0x110d18…110eac Dummy {f00=0x0054, f01=0x0190, f02=» h , ( @ _.$ X2 8 X ! " B X ( , ( 0P } _^ > X 8 , ( ( ] 2 ! X V h , ( ! ! ! ! ! * & X X4 %_< * * X * & !
0x110eac…111040 Dummy {f00=0x0054, f01=0x0190, f02=») ! ! R ! ^ ! , ( ! B # X " 6 ) X 2T $ , ( Y 2W ! Y ,ZD X 4T X " T , ( 6 Y 4 W ] & , ( ! ! X ] _ ! , ( ! X P y Y
0x111040…1111d4 (0, 346) Opaque[0x194]
0x1111d4…111368 # DirEnt {nam=»DWKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa8, f03=0x0000}
0x1111d4…111368 IdxSect {
0x1111d4…111368 f00 = 0x0055 // 0x1111d4 @0x0
0x1111d4…111368 f01 = 0x0002 // 0x1111d6 @0x2
0x1111d4…111368 gno = [ // 0x1111d8 @0x4
0x1111d4…111368 [0x00]: C0x0055.0x1.0
0x1111d4…111368 ]
0x1111d4…111368 }
0x111368…1114fc Dummy {f00=0x0055, f01=0x0190, f02=» 2 P IDENT DWKB03 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB03 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY03 P* P* PDWKB03 EQU * TAB
0x1114fc…111690 Dummy {f00=0x0055, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA
0x111690…111824 Dummy {f00=0x0055, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB03 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB03 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB03 P DATA 0,0,0,0,0,0,0,0 P
0x111824…1119b8 Dummy {f00=0x0055, 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
0x1119b8…111b4c Dummy {f00=0x0055, f01=0x401e, f02=» h @ ( ) A A A. INIM40N D TCTAB X , ( T ? ? ? h TTB:ID1 PRUNN , ( @" @ $ T $ T Z A TTB:ST0 PFINITW
0x111b4c…111ce0 Dummy {f00=0x0055, f01=0x2008, f02=»
0x111ce0…111e74 (0, 347) Opaque[0x194]
0x111e74…112008 # DirEnt {nam=»DWTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ab8, f03=0x0000}
0x111e74…112008 IdxSect {
0x111e74…112008 f00 = 0x0055 // 0x111e74 @0x0
0x111e74…112008 f01 = 0x0002 // 0x111e76 @0x2
0x111e74…112008 gno = [ // 0x111e78 @0x4
0x111e74…112008 [0x00]: C0x0055.0x3.0
0x111e74…112008 ]
0x111e74…112008 }
0x112008…11219c Dummy {f00=0x0055, f01=0x018e, f02=» 2 P IDENT DWTP03 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP03 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP03 EQU *
0x11219c…112330 Dummy {f00=0x0055, f01=0x0190, f02=» . P DATA DWTEND-DWTP03 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x112330…1124c4 Dummy {f00=0x0055, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x1124c4…112658 Dummy {f00=0x0055, 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
0x112658…1127ec Dummy {f00=0x0055, f01=0x0190, f02=»RO,A6 OLD OFFSET { P LD A4,FDBMRO,A6 | P ST A4,FDBRRO,A6 MAX OFFSET | 0 $ P CF A14,GTLGRN LAST REC NR MOVED | T P LDR A8,A2 | | P LDR A9,A3 REC NR | " P ST A12,FDBRRO,A6 RESET OFFSET | P LDKL A12,-1 | & P CF A14,CRNUPD UPDATE CRN BUFFERS |
0x1127ec…112980 Dummy {f00=0x0055, f01=0x0190, f02=»A5 FDB | P CF A14,GTLGRN GET REC NR } P LDR A1,A2 } 0 P LDR A2,A3 } B P LDK A6,0 } T P LDK A7,1 } f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 } x P RF(Z) DEL600 FILE START } P LDR A6,A5 FDB ADDR } P CF A14,CALSNO GET SECTOR NR } P LDR A5,
0x112980…112b14 (0, 348) Opaque[0x194]
0x112b14…112ca8 # DirEnt {nam=»DWDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac8, f03=0x0000}
0x112b14…112ca8 IdxSect {
0x112b14…112ca8 f00 = 0x0056 // 0x112b14 @0x0
0x112b14…112ca8 f01 = 0x0002 // 0x112b16 @0x2
0x112b14…112ca8 gno = [ // 0x112b18 @0x4
0x112b14…112ca8 [0x00]: C0x0056.0x1.0
0x112b14…112ca8 ]
0x112b14…112ca8 }
0x112ca8…112e3c Dummy {f00=0x0056, f01=0x0190, f02=» 2 P IDENT DWDY03 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY03 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY03 EQU * TABLE ENT
0x112e3c…112fd0 Dummy {f00=0x0056, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( 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 P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x112fd0…113164 Dummy {f00=0x0056, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h 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
0x113164…1132f8 Dummy {f00=0x0056, 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
0x1132f8…11348c Dummy {f00=0x0056, f01=0x0190, f02=» PDMTAR4 EQU * P LDKL A14,DMTA14 P CF A14,DMTIOC 0 P LD A9,TASVRL F P LD A11,TASASB , P ADKL A11,2 POINTER TO FILENAME IN ASBLK r P LDK A4,2 P CW A4,TASFIL $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE N
0x11348c…113620 Dummy {f00=0x0056, f01=0x0190, f02=»A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 0 P ANK A2,/FF B P ABL(Z) DMT250 NOT USED V ( P SUR A4,A9 BACK TO START OF VTOC REC v P LDR A7,A11 $ P LDK A2,4 FILE NAME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 P C
0x113620…1137b4 (0, 349) Opaque[0x194]
0x1137b4…113948 # DirEnt {nam=»DWKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad8, f03=0x0000}
0x1137b4…113948 IdxSect {
0x1137b4…113948 f00 = 0x0056 // 0x1137b4 @0x0
0x1137b4…113948 f01 = 0x0002 // 0x1137b6 @0x2
0x1137b4…113948 gno = [ // 0x1137b8 @0x4
0x1137b4…113948 [0x00]: C0x0056.0x3.0
0x1137b4…113948 ]
0x1137b4…113948 }
0x113948…113adc Dummy {f00=0x0056, f01=0x0190, f02=» 2 P IDENT DWKB04 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB04 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY04 P* P* PDWKB04 EQU * TAB
0x113adc…113c70 Dummy {f00=0x0056, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA
0x113c70…113e04 Dummy {f00=0x0056, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB04 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB04 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB04 P DATA 0,0,0,0,0,0,0,0 P
0x113e04…113f98 Dummy {f00=0x0056, 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
0x113f98…11412c Dummy {f00=0x0056, f01=0x0190, f02=») DUNA20 GET NEXT WORD + P , P , & P LDR A1,A1 , . P RF(Z) DUNA40 VOLUME MATCH , @ P LC A2,DWTOR,A6 INDEX , b P ANK A2,1 , P ADR A2,A2 , P ADR A2,A6 , & P ST A1,DWTBSY,A2 NEW VOLUME LOADED , PDUNA40 EQU * , P , P , P LD
0x11412c…1142c0 Dummy {f00=0x0056, f01=0x0190, f02=»,DWTSAV,A6 GET OLD DWT CONTENTS , P ST A1,DWTOR,A6 SAVE IT - ( P LDKL A1,-1 - H P ST A1,DWTSAV,A6 - P LDKL A5,DWTSB1 - t P ADR A5,A6 STACK BASE - ( P LDK A1,1 RETURN CODE. NOT OPERABLE - P RTN A5 - P* - P* - P* TIMER POIN
0x1142c0…114454 (0, 350) Opaque[0x194]
0x114454…1145e8 # DirEnt {nam=»DWTP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ae8, f03=0x0000}
0x114454…1145e8 IdxSect {
0x114454…1145e8 f00 = 0x0057 // 0x114454 @0x0
0x114454…1145e8 f01 = 0x0002 // 0x114456 @0x2
0x114454…1145e8 gno = [ // 0x114458 @0x4
0x114454…1145e8 [0x00]: C0x0057.0x1.0
0x114454…1145e8 ]
0x114454…1145e8 }
0x1145e8…11477c Dummy {f00=0x0057, f01=0x018e, f02=» 2 P IDENT DWTP04 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP04 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP04 EQU *
0x11477c…114910 Dummy {f00=0x0057, f01=0x0190, f02=» . P DATA DWTEND-DWTP04 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x114910…114aa4 Dummy {f00=0x0057, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS
0x114aa4…114c38 Dummy {f00=0x0057, 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
0x114c38…114dcc Dummy {f00=0x0057, f01=0x0190, f02=» LABEL = KMD16 DATE = 781110 PACK NBR = 001 f - P Y _( Y M : ] =IR E
[…0x1…]
0x114f60…1150f4 (0, 351) Opaque[0x194]
0x1150f4…115288 # DirEnt {nam=»DWDY04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0af8, f03=0x0000}
0x1150f4…115288 IdxSect {
0x1150f4…115288 f00 = 0x0057 // 0x1150f4 @0x0
0x1150f4…115288 f01 = 0x0002 // 0x1150f6 @0x2
0x1150f4…115288 gno = [ // 0x1150f8 @0x4
0x1150f4…115288 [0x00]: C0x0057.0x3.0
0x1150f4…115288 ]
0x1150f4…115288 }
0x115288…11541c Dummy {f00=0x0057, f01=0x0190, f02=» 2 P IDENT DWDY04 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY04 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY04 EQU * TABLE ENT
0x11541c…1155b0 Dummy {f00=0x0057, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( 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 P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x1155b0…115744 Dummy {f00=0x0057, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h 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
0x115744…1158d8 Dummy {f00=0x0057, 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
0x1158d8…115a6c Dummy {f00=0x0057, f01=0x0190, f02=»C I/O K x P LDR A1,A1 L P RF(NZ) DMTERR L P LDKL A1,/C0FF L 6 $ P ANS A1,FDBDBR,A6 RELEASE BUFFER L L PDMT400 EQU * L t " P LDR A1,A6 FDB ADDR DATA FILE L P LD A2,ECBCW+2,A9 L P ANK A2,/FF L P LD A3,ECBCW,A9 LOG REC NR L P LC A11,EC
0x115a6c…115c00 Dummy {f00=0x0057, f01=0x0190, f02=»WRITE L ~ P LDK A4,QRD M P CWR A7,A4 M " P RF(E) DMT420 RAND DEL M 4 P LDK A4,QRDD M R P CWR A7,A4 M f ( P RF(E) DMT420 DELAYED RANDEOM DELETE M x P IFT INDXAC=1 M P LDK A4,QDEL M P CWR A7,A4 M P RF(E) DMT420 INDEXED DELETE M P XIF
0x115c00…115d94 (0, 352) Opaque[0x194]
0x115d94…115f28 # DirEnt {nam=»M:167D«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0b20, f03=0x0000}
0x115d94…115f28 IdxSect {
0x115d94…115f28 f00 = 0x0059 // 0x115d94 @0x0
0x115d94…115f28 f01 = 0x0010 // 0x115d96 @0x2
0x115d94…115f28 gno = [ // 0x115d98 @0x4
0x115d94…115f28 [0x00]: C0x0059.0x0.0
0x115d94…115f28 [0x01]: C0x0059.0x1.0
0x115d94…115f28 [0x02]: C0x0059.0x2.0
0x115d94…115f28 [0x03]: C0x0059.0x3.0
0x115d94…115f28 [0x04]: C0x005a.0x0.0
0x115d94…115f28 [0x05]: C0x005a.0x1.0
0x115d94…115f28 [0x06]: C0x005a.0x2.0
0x115d94…115f28 [0x07]: C0x005a.0x3.0
0x115d94…115f28 ]
0x115d94…115f28 }
0x115f28…1160bc Dummy {f00=0x0059, f01=0x0190, f02=» =Xx p X D D D D D'r) D D8f8 # D D D D D D D D D# D D D D D D D D D D D D D D D-8 D D D D D D D D D D D D D D D D D D D D D D n W W W J A B. F A . P&
0x1160bc…116250 Dummy {f00=0x0059, f01=0x0190, f02=»P T A. P Y(_8 _J Pd pU p xU x_ A 9a @ :a S @ :a U _n P _ 7 G. @ ' ?D A ' P G O . @ $ T $ T Z A 5 T ? N ? P ? r ? p_ ( @ 9H
0x116250…1163e4 Dummy {f00=0x0059, f01=0x0190, f02=» ? A > > > > > >W ? @ _ > > @ ? ? ? ? T ? _& @ P ^ 9j U Y >_` A @ ( ? ? ? ? ? ? ? > > H ( P c P J @ ? ? @ P A @ (V ( U P @ V L P U
0x1163e4…116578 Dummy {f00=0x0059, f01=0x0190, f02=» A @ A lQ A n ? ? ? ? ? ^ A _ _ ^ ? ? ? T $P E ^ 5 ) b W W T T. P L U U U U T U U 4 T - 1_& U T P 0 U
0x116578…11670c Dummy {f00=0x0059, f01=0x0190, f02=» 8T> pW8 > _& @ 8 R" Y T ? X D 8T pW > _& W > 8 X W ? ` @ @ P $X H W W W X P T R X P X T 4 Y X 8 X T X Y Y X P$ - M Y X P P W > > > > > > >
0x11670c…1168a0 Dummy {f00=0x0059, f01=0x0190, f02=» BA. 0 9 % )>$ , t "J`K K K K E<E F F ( L K F 6 T 6 " # $ % "$&( : @ D X P _ L R P
0x1168a0…116a34 (0, 353) Dummy {f00=0x0059, f01=0x0190, f02=» B Y E B Y F_ W x C P C W < C C _H x H H S W C C B B B U R WJ X [ X T E T F P C X E X F S W C C W, B B Y ER Q X FU C '? T W6 T.(@(@
0x116a34…116bc8 Dummy {f00=0x0059, f01=0x0190, f02=» : R $ - _ " P $ - : R $ - _ : Z $ -_ D * U + 1 W T ` U @ M @ W : X " F $ P bW $ P $ - J : 0 * J X "Pl D ZV" D "? P P &P E Z ! V. P
0x116bc8…116d5c Dummy {f00=0x0059, f01=0x0190, f02=» A , J ( P W T Y P T _ Y " F h p(@ X " X E U X F U ( !2 T X F T 2 P ` U, @ , D Z D * , ] 0 X Wf ` U @ H @ X WF . J
0x116d5c…116ef0 Dummy {f00=0x0059, f01=0x0190, f02=» P 9 p H 4' ' 5 4 W , P& ,' X X - Z" ) _ (@ C ( B ! 2 @ , F U G F G 0 " $ F " F +P P* X $ T U W R PB $P<W 2 X $ X " F
0x116ef0…117084 Dummy {f00=0x0059, f01=0x0190, f02=» F " F D '? P P( $ P" x I I K K P P & P .W D $ T T W E E E F X ZV ? T B h Z(@( =a 9a Q - _ - > @ nPJ ` z T | A z T @ , - M M M @
0x117084…117218 Dummy {f00=0x0059, f01=0x0190, f02=» 4 A U W A A @ U ::A A , ` R @ U P0 ,% T( C ( B P T W ' Th I @ 8 =hP Y X PX ,T( Y H ! R W 9a I ^ W P ,! T T ( : @
0x117218…1173ac Dummy {f00=0x0059, f01=0x0190, f02=» P * +W @ 0 R % "V E T D A _" P @ P * +W @ 0 Rb ' F "R G @ D D0 0 T G W, A "R A A " B B P ! Tl M : l A A " P
0x1173ac…117540 Dummy {f00=0x0059, f01=0x0190, f02=» A L A L C @ A Q< @ : A @ B h D E X D0( ( B h B @ D W C C ( ( l n @ T A 0" $ $ U _ L !SSP !LL $ W L @
0x117540…1176d4 (0, 354) Dummy {f00=0x0059, f01=0x0190, f02=» 6 2% P ` P %_ S 8 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 4 @ T W T W| @ P R $ >a U Wd , =b P P @ ! T. W> P D Y
0x1176d4…117868 Dummy {f00=0x0059, f01=0x0190, f02=»W P B h p " (@( @ > _r P ` ` 9A S Z D $X D S * S ! R & S W S [ S R $ R & F S ^ V T A 0" U _ L !SSP !LL W L @
0x117868…1179fc Dummy {f00=0x0059, f01=0x0190, f02=» 6 2% P P %_ S 8 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 4 @ T W T W @ P R $ >a U =b P P @ ! T W P D Y
0x1179fc…117b90 Dummy {f00=0x0059, f01=0x0190, f02=»W P B " (@( @ > _r P ` ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ T A 0" U _ L !SSP !LL W L @
0x117b90…117d24 Dummy {f00=0x0059, f01=0x0190, f02=» @ , L T M @ : P %_ S 8 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 4 @ T W T W @ P R $ >a U =b P P @ ! T W P D Y
0x117d24…117eb8 Dummy {f00=0x0059, f01=0x0190, f02=»W P B " (@( @ > _r P ` ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ T A 0" U _ L !SSP !LL W L @
0x117eb8…11804c Dummy {f00=0x0059, f01=0x0190, f02=» @ , L T M @ : P %_ S 8 S E 3 P S E P S F P S $ P S & P % S D Q S W S Q R S P W S _ R _ ;A [ [ : T PT PJV
0x11804c…1181e0 Dummy {f00=0x0059, f01=0x0190, f02=» V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P ? ? !? P P !> P W 9P _ T T< R4 L PX P L P 4 M X M M
0x1181e0…118374 (0, 355) Dummy {f00=0x0059, f01=0x0190, f02=» R D ' Q ( 0 5 @ 1 A Z> : D JW (P D ' I W6 @ zT J ( A z U 1_ D ' I D J ) E J : T & SP P W X & , U U. _ Y * R P Y P X $ _ W Y " : B P8 T G W( X Z
0x118374…118508 Dummy {f00=0x0059, f01=0x0190, f02=» C X %? : X "_ , D * P , _ D * D D & F T $ T " ^ S W : 1D0 L _P ? ? !? P 1D1 PX P L P 4 M X
0x118508…11869c Dummy {f00=0x0059, f01=0x0190, f02=»$8 > PV PB P 0 X T Y Wp $ U T X T E % Y Y Tv 8RrWN $$ 4 U P< $P2> R.> 8' T Y X ' T P X P < $$ Z X "X 8' T 8Z" X ' X (@ L P "& " $P$ D
0x11869c…118830 Dummy {f00=0x0059, f01=0x0190, f02=» Y Y _ X X Y X X X X ' 4 B U B (" W C Y Y Y X 9BV$ X " Y X D V Z X $ %Z L _P ? 1"78 Q%RP ^ A% B X T " T A'R 7T B # Y B A'J P T YF ZJ X T X M
0x118830…1189c4 Dummy {f00=0x0059, f01=0x0190, f02=»P 'n_ :CV + W* T T * _<#/ X T Y P ) Y C C Y A& A'R X T '^ 'Z " P: A& X P 'n W (& Y @& T( '^ ] D W @% :CZ _J) @&H_ 'bP _ Y 'f ;g# + _ Y 'j _ Y C
0x1189c4…118b58 Dummy {f00=0x0059, f01=0x0190, f02=» > > >M A' _ A' > ;I C X "A _@ A' A' A' A' ' '.# X& 'bT X T 'f:EV W X T Y 'n:DV X Qx 'f:EVp W " ': P Y WD X $ QB R ':_ P U 'n ':_ : V # P W Y P X ' P
0x118b58…118cec Dummy {f00=0x0059, f01=0x0190, f02=» )Z X R C Z A @( A. )Z X V 9_8 ( @ ( +< A X T " P A X P W Y @ T ] D W @% :CZ _J) @&H_ P _ Y ;g# + _ Y _ Y C
0x118cec…118e80 Dummy {f00=0x0059, f01=0x0190, f02=» > > >M A' _ A' > ;I C X "A _@ A' A' A' A' ' '.# X& 'bT X T 'f:EV W X T Y A+ X ! D P P - PF P P P P A+ B B # L+ Y :e X <Y, X
0x118e80…119014 (0, 356) Dummy {f00=0x005a, f01=0x0190, f02=»-t ) !, !, ! P -t_ X : b -t , X # P C -t ) W ) P W B Y ( Y * 4 X ::C* W, W( X " " :BW X " :BW X : c X :B X ! E $ Y Y Y .4 @ nP$ Y .4 !- Z_. @.2X"_6 X R Z Y .2
0x119014…1191a8 Dummy {f00=0x005a, f01=0x0190, f02=» P X " I Z X Y 8 Y !, T !,R Y : !, ! TJ , X ! P ) , (P ) P X " I X T Y _f X 8 Y Y 8 4 .4 )~ B B r s . . Y :e X Y, X
0x1191a8…11933c Dummy {f00=0x005a, f01=0x0190, f02=» B Y :"P" @Cr C % ACr ACv Y 1 Z_^ / 0 _h X P , Y C L C Z_ / _ 0n P C C _T / 1 _ B 0 Z_ _l B ! P Y _ X ! X 1 _ B P A/ E / Y W Y 1 @ X T ) _ B X" A0 E 0
0x11933c…1194d0 Dummy {f00=0x005a, f01=0x0190, f02=».zP: X R. X 1T& 0n P" X M M 0F M Z 1 _R :> (P _ ) 1_f ? ? X A X _x .x (P _ ) 1_ .x (X P _ 0 )_ .z_2 .z_" 1 _> 1 _0 :" (P _ ) 1 4 :" X R4 X T, X P( , Y C L C L C Z
0x1194d0…119664 Dummy {f00=0x005a, f01=0x0190, f02=» BHBB . !8 2B !8 T P P 4 4D 4 !8 Tj Tf A:#P A:"TV !8 TP !8 TH TD !8 T< !8 A I A1 P " 5 !8 !9 5 _ !8 T :" 4 " X !8 _ !9 A1 @1 P @1 P !5 A1 A1 _ !9 @1 P @:>X@ !5 TF A1 !6 1 @1 P* @
0x119664…1197f8 Dummy {f00=0x005a, f01=0x0190, f02=»:>P E :"PF X R@ X T8 C P C 0F C P " HD " P X * Y ZW !1, 1@ !6 1 X ! X !6 W6 A1 @1 X A1 A1 A1 5` !9 @1 @1 P !6 1 !9 @1 T @1 X W^ @1 @1 5& @1 @1 A1 5n !9 @1 X< !8 T @1 P !6 !9 _V /T, @
0x1197f8…11998c Dummy {f00=0x005a, f01=0x0190, f02=»6 1 # T @:>T !6 _ !5 !6 _ A1 A1 HD E A1 A1 4 !9d @1 P !7 !9 A1 1 @.xT !6 _ T 0 _ 1 A1 B B A1 A1 A1 A1 A1 !6 !9 A1 _R !9d X ! n X Z^ X X^ Xb_l @1 PB X R< X P T0 T Y W 1 0F P C Z 0 @1
0x11998c…119b20 Dummy {f00=0x005a, f01=0x0190, f02=» P _@ @:> @1 E !9 P !8 4 _$ !9 2_l / A1 T W ,W @ A1 A1 W W W A1 A1 !8L @1 !8 @1 !8 !8 !8 B J 4 !8L !8 @1 @1 A1 @1 T( @:# !8 8 !8 @1 P - !8 x !C W 0 " @1 PL R ~T }T T0 W,
0x119b20…119cb4 (0, 357) Dummy {f00=0x005a, f01=0x0190, f02=» !8 " !8 " !8 6 A1 _" A1 A1 !8L !8 % !8 R !8 !8 @:# !8 8 !8 X ! 9a D1 !8 X ! P ! T & !8 _b B J B !8 !8 4 A @ 1 J T A1 T 2PZ !9 HC 4 !8 1 A @ 1 _ I " P A1 . 2 A.v 1@ 4 A _$" P HD B P W
0x119cb4…119e48 Dummy {f00=0x005a, f01=0x0190, f02=»9v 1 . @ A.r 1@ 9v A.r a.| 1@ 4 E 9N X A.| > E 9 A1 4 A1 . !8 @1 P !6 !9 1 @1 P a1 A1 4 A9 A9 A9 ?a :a# P @9 @9 @9 4T @ A1 !8 9 !8 A1 @9 :H 4 .~ :@< T W
0x119e48…119fdc Dummy {f00=0x005a, f01=0x0190, f02=» ! " ! " ! 6 A1 _" A1 A1 ! ! % ! R ! ! @ ! 8 ! X ! 9a D1 ! X ! P ! T & ! _b B J B ! ! 4 A @ 1 J T A1 T 2P ! H 4 ! 1 A @ 1 _ I " P A1 . 2 A.v 1@ 4 A _$" P H B P W
0x119fdc…11a170 Dummy {f00=0x005a, f01=0x0190, f02=» 1 . @ A.r 1@ A.r a.| 1@ 4 9N X A.| > A1 4 A1 . !8 @1 P !6 9 1 @1 P a1 A1 4 A A A ?a :a# P @ @ @ 4T @ A1 !8 9 !8 A1 @9 :H 4 .~ :@< T W
0x11a170…11a304 Dummy {f00=0x005a, f01=0x0190, f02=» ! " ! " ! 6 A1 _" A1 A1 ! ! % ! R ! ! @ ! 8 ! X ! 9a D1 ! X ! P ! T & ! _b B J B ! ! 4 A @ 1 J T A1 T 2P ! H 4 ! 1 A @ 1 _ I " P A1 . 2 A.v 1@ 4 A _$" P H B P W
0x11a304…11a498 Dummy {f00=0x005a, f01=0x0190, f02=» 1 . @ A.r 1@ A.r a.| 1@ 4 9N X A.| > A1 4 A1 . !8 @1 P !6 9 1 @1 P a1 A1 4 A A A ?a :a# P @ @ @ 4T @ A1 !8 9 !8 A1 @9 :H 4 .~ :@< T W
0x11a498…11a62c Dummy {f00=0x005a, f01=0x0190, f02=» ! " ! " ! 6 A1 _" A1 A1 ! ! % ! R ! ! @ ! 8 ! X ! 9a D1 ! X P ! T & ! _b B J B ! ! 4 A @ 1 J T A1 T 2P ! H 4 ! 1 A @ 1 _ I " P A1 . 2 A.v 1@ 4 A _$" P H B P W
0x11a62c…11a7c0 Dummy {f00=0x005a, f01=0x0190, f02=» 1 . @ A.r 1@ A.r a.| 1@ 4 9N X A.| > A1 4 A1 . !8 @1 P !6 9 1 @1 P a1 A1 4 A A A ?a :a# P @ @ @ 4T @ A1 !8 9 !8 A1 @9 :H 4 .~ :@< :f"? HC2
0x11a7c0…11a954 (0, 358) Dummy {f00=0x005a, f01=0x0190, f02=» ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>? 123456789:#@'=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x11a954…11aae8 Dummy {f00=0x005a, f01=0x0190, f02=» J Z_m j TOSS T EL E Ev 0 Ep E E~ _0 @ P L _J ^ 4 _ @ j 1 A j _ P 9 $P H L P _ Fd Tj $ ) 5 P
0x11aae8…11ac7c Dummy {f00=0x005a, f01=0x0190, f02=» # > "R2 P* X T$ X R ? V X " Z L R F F F F F F F F F G G G G G G G& G, G2 G8 G> GD GJ GP GV G Gb Gh Gn Gt Gz G G G
0x11ac7c…11ae10 Dummy {f00=0x005a, f01=0x0190, f02=» H H I I8I I I J J: @ JO KB TOSS T H~ H<H< $L&TP &Q DY 4 $ @ JO KB P 9 I H H " $L&TP
0x11ae10…11afa4 Dummy {f00=0x005a, f01=0x0190, f02=» $ $L&TP &Q DY F $ @ JO KB F J: I I & $L&TP &Q DY Gh Gn $ K R
0x11afa4…11b138 Dummy {f00=0x005a, f01=0x0190, f02=» H Pr I Y # C C '? Y 8 X P Y W Y T # P W @ P L Y x 8W T 8P Y ^ 5 ) P U W C P "Z Y _ _ 0 X4 @ P L _B . ( )Z )j `:" .4 .4
0x11b138…11b2cc Dummy {f00=0x005a, f01=0x0190, f02=» LLhM M L M*L~LxMhMn B W$ B L # 9Q T W Q P X " V T Y "W L X ! T& B R Q B D ! V !$ W !N !Mt Y T !$ V L6 !$ B C !$ T " T W Q " T ) !N L Y _ !N Y "P Q W !$ Y #" N _" L _6
0x11b2cc…11b460 Dummy {f00=0x005a, f01=0x0190, f02=»" PH _ " P R: M T2 !$ L ,! :D" !N Y Y U !$ _$ W4 , ! T ,' L, ! R !__U C X ' W Y !$ _ X RD P P $ W2 M M& X R !$ Y # !$ LN R _ 4 !$ !$ " T !$ !$ 4 X # 4
0x11b460…11b5f4 (0, 359) Dummy {f00=0x005a, f01=0x0190, f02=» ) Y * P X P Y C Px 8!@P" X P P y W E Q Y B P T B % X * $ 4 T % W X (T !$ P W Q Y * V Q !% B _T B P $$ R % C Q WV Y &X !Q 8$ P W 8$ P $ T W $ Y 'PX Y %P Y $P T Q !
0x11b5f4…11b788 Dummy {f00=0x005a, f01=0x0190, f02=» W X (P Y * 0 %_. % Y * _t _ P Q _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $ , X R ;GV X P P y $ X ( $4 P Q X *T * W Y ( - Y X Z @_8 B 1 "
0x11b788…11b91c Dummy {f00=0x005a, f01=0x0190, f02=» P. T Y # !$ R X $ Y "R Y " _ Y "_. 8$ T B 1 Vv !$ UF B B U4 $ ! T _ U D ! T _ $$ X" X& X* C $ T X`" EQ P( 8'0P EQ TJ ! T 9 _ ! T @_ ! $ B P 8' T( !V B
0x11b91c…11bab0 Dummy {f00=0x005a, f01=0x0190, f02=»" $ P X # X ] !$ UF R B 8! T !V !$ U R $Y !$ _ B X "$ X %# V B Z8 !$ _ X "$ _ 8! T B Y " !V W B Y $U X $ X " R P !$ W Y "_ Y " B Y %U X % T T W V X # Y %U P"R
0x11bab0…11bc44 Dummy {f00=0x005a, f01=0x0190, f02=» Z X Y " Y > X " X "" Y %Q Y > X Z2<BR F $ X Y 8" P !$ 8" P !$ !$ T !$ Y " Z U& T _ !$ X $ P !V@ R R V P P" !$ UFW U6 %6 X $ X !V@_ X $ X 8! P !V@_( X " !V !V
0x11bc44…11bdd8 Dummy {f00=0x005a, f01=0x0190, f02=» X % V Y !V X $ X " !V B R R `R Y !$ !$ !$ 4 !$ V !$ V W :h !$ 4 K <TC Y " ! W B Y $U X $ X " H 0HZ PH~ 1HZ 2HZ aX <TD Y %U X % T T W V H 0H PI 1H 2H
0x11bdd8…11bf6c Dummy {f00=0x005a, f01=0x0190, f02=» 0J PJ: 1J 2J <DC "" Y %Q Y > X Z2<BR . DC !$ 8" P !$ !$ T !$ Y " Z U& T _ !$ X $ P ! R R V P P !$ UFW U6 %6 X $ X ! _ X $ X 8! P ! _( X " ! !
0x11bf6c…11c100 Dummy {f00=0x005a, f01=0x0190, f02=» 3@ + @+ P a+ A+ 4 A A A ?a :a# P @ @ @ 4T @ A+ !2 3 !2 A+ @3 :H 4 (6 3 6X T W ! P " ! " :A *@ H T 0 ! W R ! A+ @+ @+ U Zx Q P Q T 0 ! A+ 0 !