|
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: 1771136 (0x1b0680)
Description: Bits:30009688 Philips computer tape "600318"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| M:KMDV | «none» |
| M:KMDV//OBJCT.OB | ⟦d8df243a9⟧ pts_type |
| M:KMDV/ADDMOD.SC | ⟦c99cd1d77⟧ pts_type |
| M:KMDV/ATTACX.SC | ⟦4d8be7441⟧ pts_type |
| M:KMDV/BLOK:S.SC | ⟦b01edaa66⟧ pts_type |
| M:KMDV/CD:TAB.SC | ⟦41200d744⟧ pts_type |
| M:KMDV/CTAB04.SC | ⟦29521f8d8⟧ pts_type |
| M:KMDV/CTABX.SC | ⟦95cf787ec⟧ pts_type |
| M:KMDV/DC:TAB.SC | ⟦e953cde48⟧ pts_type |
| M:KMDV/DFTAB.SC | ⟦e6e41decd⟧ pts_type |
| M:KMDV/DIVMOD.SC | ⟦591b725b9⟧ pts_type |
| M:KMDV/DMBUF.SC | ⟦07ebcc8a3⟧ pts_type |
| M:KMDV/DMFDB.SC | ⟦070d6f1fb⟧ pts_type |
| M:KMDV/DMINIT.SC | ⟦f972af533⟧ pts_type |
| M:KMDV/DMSUBR.SC | ⟦965ccce79⟧ pts_type |
| M:KMDV/DMSUBX.SC | ⟦8a0f2d36e⟧ pts_type |
| M:KMDV/DMTASK.SC | ⟦48a884b77⟧ pts_type |
| M:KMDV/DMTASS.SC | ⟦d26578c28⟧ pts_type |
| M:KMDV/DRDY01.SC | ⟦140adf045⟧ pts_type |
| M:KMDV/DRFD01.SC | ⟦754073d3f⟧ pts_type |
| M:KMDV/DRGP01.SC | ⟦c61a772e6⟧ pts_type |
| M:KMDV/DRIC0X.SC | ⟦0f47c7a5d⟧ pts_type |
| M:KMDV/DRKB01.SC | ⟦750570b16⟧ pts_type |
| M:KMDV/DRLT01.SC | ⟦d67d79110⟧ pts_type |
| M:KMDV/DRSOP1.SC | ⟦14c4b46fd⟧ pts_type |
| M:KMDV/DRTC01.SC | ⟦3cf3ec6cf⟧ pts_type |
| M:KMDV/DRTP02.SC | ⟦2e58a7b43⟧ pts_type |
| M:KMDV/DSUMOD.SC | ⟦0e0293958⟧ pts_type |
| M:KMDV/DVDY00.SC | ⟦ff0e1d84d⟧ pts_type |
| M:KMDV/DVDY03.SC | ⟦f3c1b8212⟧ pts_type |
| M:KMDV/DVKB00.SC | ⟦18bf4d654⟧ pts_type |
| M:KMDV/DVKB03.SC | ⟦2814a1f9d⟧ pts_type |
| M:KMDV/DVTCD.SC | ⟦8bff4850a⟧ pts_type |
| M:KMDV/DVTCG.SC | ⟦d23e71c21⟧ pts_type |
| M:KMDV/DVTDI.SC | ⟦0d3ddc887⟧ pts_type |
| M:KMDV/DVTDN.SC | ⟦d1fbca1fb⟧ pts_type |
| M:KMDV/DVTDY.SC | ⟦1a5e435a8⟧ pts_type |
| M:KMDV/DVTGP.SC | ⟦9a34918a1⟧ pts_type |
| M:KMDV/DVTKB.SC | ⟦478560ce7⟧ pts_type |
| M:KMDV/DVTMS.SC | ⟦256424500⟧ pts_type |
| M:KMDV/DVTOD.SC | ⟦45a269de1⟧ pts_type |
| M:KMDV/DVTP00.SC | ⟦0d9140e99⟧ pts_type |
| M:KMDV/DVTP01.SC | ⟦0268c8240⟧ pts_type |
| M:KMDV/DVTP02.SC | ⟦bfafff23a⟧ pts_type |
| M:KMDV/DVTT1.SC | ⟦93dc3fa3f⟧ pts_type |
| M:KMDV/DVTTP.SC | ⟦15559916e⟧ pts_type |
| M:KMDV/DW0701.SC | ⟦cdc2cd1a4⟧ pts_type |
| M:KMDV/DW1501.SC | ⟦7a6812457⟧ pts_type |
| M:KMDV/DW2201.SC | ⟦65d104c31⟧ pts_type |
| M:KMDV/DWDY01.SC | ⟦deb203f74⟧ pts_type |
| M:KMDV/DWDY08.SC | ⟦e23fbba2a⟧ pts_type |
| M:KMDV/DWII01.SC | ⟦a8572c823⟧ pts_type |
| M:KMDV/DWIO01.SC | ⟦ccddd0596⟧ pts_type |
| M:KMDV/DWKB01.SC | ⟦62e00fd8e⟧ pts_type |
| M:KMDV/DWKB08.SC | ⟦90120cdb6⟧ pts_type |
| M:KMDV/DWTP01.SC | ⟦8c4730daa⟧ pts_type |
| M:KMDV/EBCDIC.SC | ⟦e1835624f⟧ pts_type |
| M:KMDV/GRBUF.SC | ⟦fb5bda0d3⟧ pts_type |
| M:KMDV/INIMOD.SC | ⟦c51b65552⟧ pts_type |
| M:KMDV/INPRET.SC | ⟦9807f7ad8⟧ pts_type |
| M:KMDV/INTLT1.SC | ⟦5bdb06624⟧ pts_type |
| M:KMDV/INTLT2.SC | ⟦d74fac011⟧ pts_type |
| M:KMDV/INTLT3.SC | ⟦678639c87⟧ pts_type |
| M:KMDV/INTLT4.SC | ⟦690d64779⟧ pts_type |
| M:KMDV/INTRT1.SC | ⟦c797cd66d⟧ pts_type |
| M:KMDV/INTRT2.SC | ⟦0c8b96d72⟧ pts_type |
| M:KMDV/INTRT3.SC | ⟦998d69bb1⟧ pts_type |
| M:KMDV/INTRT4.SC | ⟦3e331b25b⟧ pts_type |
| M:KMDV/INTVMA.SC | ⟦38b720253⟧ pts_type |
| M:KMDV/LKMAL.SC | ⟦905f057d7⟧ pts_type |
| M:KMDV/LRPINT.SC | ⟦b8234ba83⟧ pts_type |
| M:KMDV/M:KMDV.LM | ⟦111852236⟧ pts_type |
| M:KMDV/M:KMDV.UF | ⟦0a1a5ff7f⟧ pts_type |
| M:KMDV/MONTAB.SC | ⟦f17cd4013⟧ pts_type |
| M:KMDV/MPYMOD.SC | ⟦65b77d57e⟧ pts_type |
| M:KMDV/MSUBS.SC | ⟦6d9bfb81e⟧ pts_type |
| M:KMDV/PFTAB.SC | ⟦b0a86cdc7⟧ pts_type |
| M:KMDV/TABORT.SC | ⟦cf1584009⟧ pts_type |
| M:KMDV/TASS.SC | ⟦08e453584⟧ pts_type |
| M:KMDV/TC:TAB.SC | ⟦752febce6⟧ pts_type |
| M:KMDV/TDISP.SC | ⟦d13a86031⟧ pts_type |
| M:KMDV/TIMER.SC | ⟦08cc034f2⟧ pts_type |
| M:KMDV/TIODM.SC | ⟦e7786f3d4⟧ pts_type |
| M:KMDV/TPROC.SC | ⟦690d6409b⟧ pts_type |
| M:KMDV/TTABD0.SC | ⟦a88a02bab⟧ pts_type |
| M:KMDV/TTABD1.SC | ⟦93ffe9600⟧ pts_type |
| M:KMDV/TTABD2.SC | ⟦182ac5a4d⟧ pts_type |
| M:KMDV/TTABTB.SC | ⟦6ee3d8e80⟧ pts_type |
| M:KMDV/TTABTC.SC | ⟦61f80caf8⟧ pts_type |
| M:KMDV/TTABX.SC | ⟦68d133264⟧ pts_type |
| M:KMDV/TTMJOB.SC | ⟦229928d09⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»M:KMDV«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:KMDV«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTVMA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0078, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INIMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a10, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0158, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INPRET«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0160, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0870, 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=0x01a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTCG «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTCD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0208, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTMS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0218, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTOD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0238, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0248, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0258, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW0701«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0268, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0278, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DW2201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»BLOK:S«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CD:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TC:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0410, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DC:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTLT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTLT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0308, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTLT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTLT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0328, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTRT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTRT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0348, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTRT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0358, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»INTRT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0368, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0460, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0470, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0408, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0548, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0580, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0598, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABD0«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0628, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABD1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0630, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABD2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0640, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRIC0X«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0698, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0728, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0790, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0860, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ATTACX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0198, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0890, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»GRBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0940, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0968, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CTAB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0060, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0178, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0438, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0448, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DVDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0440, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABTC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04b0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TTABTB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0520, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0538, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWKB08«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09f0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»DWDY08«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:KMDV«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0a20, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000e34 (0, 1) Opaque[0x194]
0x000e34…000fc8 # DirEnt {nam=»M:KMDV«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000e34…000fc8 IdxSect {
0x000e34…000fc8 f00 = 0x0000 // 0xe34 @0x0
0x000e34…000fc8 f01 = 0x000e // 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 ]
0x000e34…000fc8 }
0x000fc8…00115c Dummy {f00=0x0000, f01=0x018e, f02=» ASG /02,NO MOV INTVMA,/S,TOSSWORK KPF /S,INTVMA 4 SCR J INC INTVMA,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 DRGP01,/S,TOSSWORK . KPF /S,DRGP01 L SCR b INC DRGP01,TOSSWORK n KPF /O MOV DRDY01,/S,TOSSWORK KPF /S,DRDY01 SCR INC DRDY01,TOSSWORK KPF /O MOV DR
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»,DRTC01 SCR INC DRTC01,TOSSWORK KPF /O 8 MOV DRSOP1,/S,TOSSWORK F KPF /S,DRSOP1 d SCR z INC DRSOP1,TOSSWORK KPF /O MOV DRFD01,/S,TOSSWORK KPF /S,DRFD01 SCR INC DRFD01,TOSSWORK
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x0190, f02=» !!CH $$ X:E$$ 0$$ !!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 DRGP01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»$CREDIT EQU 1$$ | !!EN ASM /S $ KPF /O 2 KPF /S @ SCR N LED DRDY01 Z !!CH $$ X:A$$ 0$$ l !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 1$$ ( #
0x0030ec…003280 Dummy {f00=0x0001, f01=0x0190, f02=»X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ , !!CH $$ X:D$$ 0$$ F !!CH $$ X:E$$ 01$$ ` ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ z !!EN ASM /S KPF /O KPF /S SCR LED DRTC01 !!CH $$ X:A$$
0x003280…003414 (0, 4) Dummy {f00=0x0001, f01=0x0190, f02=»SCR LED DRSOP1 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ 8 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ R !!EN ~ ASM /S KPF /O KPF /S SCR LED DRFD01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ !!
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=»F /S SCR MOV EBCDIC,/S,TOSSWORK KPF /S,EBCDIC 6 SCR L INC EBCDIC,TOSSWORK X KPF /O t LED DVTKB !!DL 30 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0, !!EN ASM /S KPF /O KP
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=»IMER,/S,TOSSWORK KPF /S,TIMER SCR , INC TIMER,TOSSWORK 8 KPF /O T MOV GRBUF,/S,TOSSWORK b KPF /S,GRBUF SCR INC GRBUF,TOSSWORK KPF /O MOV GRBUF,/S,TOSSWORK KPF /S,GRBUF SCR
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=»F /O LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN J ASM /S,NL V KPF /O h KPF /S v SCR LED LKMAL !!DL 017 !!DL 019 !!DL 020 !!DL 021 !!DL 022 !!DL 035
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=»ATA 00 !!DL 040 DATA 00 " !!EN > ASM /S J KPF /O X KPF /S f SCR t LED LRPINT !!CH $$ X:A$$ 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TIODM !!CH $$
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x018e, f02=»$ X:A$$ 02$$ !!EN ASM /S KPF /O . KPF /S < SCR J LED DMTASK V !!CH $$ X:A$$ 1$$ h !!CH $$ X:B$$ 0$$ !!EN ASM /S KPF /O KPF /S SCR LED DMTASS !!CH $$ X:B$$ 0$$
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=» KPF /S SCR LED CD:TAB " !!DL 9,10 4 ** F ** P !!DL 22,29 Z !!IL 38 l DATA 0,0,0,0,0,0,0,0 | DATA 0,0, !!EN KPF /S SCR LED CTABX !!CH $$X$$04$$ N J!!CH $$C2 EQU
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=»D INTVMA !!CH $$ X:C$$ 1$$ !!CH $$IHINPT$$TRAP$$ * !!DL 056 H !!DL 059 X !!DL 060 h !!DL 061 x !!DL 062 !!DL 065 !!DL 066 !!DL 067 !!DL 068 !!DL 069 !!DL 070 !!DL 071
0x003f20…0040b4 (0, 5) Dummy {f00=0x0001, f01=0x0190, f02=» !!DL 122 DATA ILLINT !!DL 125 8 DATA ILLINT H !!DL 126 h DATA ILLINT x !!DL 127 DATA ILLINT !!DL 128 DATA ILLINT !!DL 131
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=» DATA ILLINT !!DL 135 ( DATA ILLINT 8 !!DL 136 X DATA ILLINT h !!DL 138 DATA ILLINT !!DL 140 DATA ILLINT !!DL 141 DATA
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=» DATA ILLINT !!DL 155 DATA ILLINT ( !!DL 156 H DATA ILLINT X !!DL 159 x DATA ILLINT !!EN ASM /S KPF /O KPF /S SCR LED PFTAB !!DL 013
0x0043dc…004570 Dummy {f00=0x0001, f01=0x0190, f02=» 026 !!DL 027 ! !!DL 028 ! !!DL 029 ! , !!DL 030 ! < !!DL 031 ! L !!DL 032 ! !!DL 034 ! l !!DL 035 ! | !!DL 036 ! !!DL 037 ! !!DL 038 ! !!DL 041 ! !!DL 044 ! !!DL 046 ! !!DL 047 ! !!DL 048 !
0x004570…004704 Dummy {f00=0x0001, f01=0x018e, f02=» 058 ! !!DL 059 " !!DL 060 " !!DL 062 " , !!DL 063 " < !!DL 064 " L !!DL 065 " !!DL 066 " l !!EN " | ASM /S " KPF /O " KPF /S " SCR " LED DVTKB " !!CH $$DVTKB$$DVKB00$$ " !!CH $$BCA$$8791$$ "
0x004704…004898 Dummy {f00=0x0001, f01=0x018e, f02=» !!CH $$DVTTP$$DVTP00$$ # !!EN # " KPF /S # . SCR # < LED DVTDY # H !!CH $$DVTDY$$DVDY00$$ # Z !!CH $$/ABC$$/0824$$ # x !!EN # KPF /S # SCR # LED DVTTP # !!CH $$DVTTP$$DVTP01$$ # !!EN # KPF /S # SCR
0x004898…004a2c Dummy {f00=0x0001, f01=0x0190, f02=» # x !!CH $$BCA$$95A3$$ $ !!CH $$ED0$$FFBA$$ $ " !!CH $$ECH$$DWDY03$$ $ < !!EN $ X KPF /S $ d SCR $ r LED DVTKB $ ~ !!CH $$DVTKB$$DVKB03$$ $ !!CH $$BCA$$95A3$$ $ !!CH $$ED0$$FFBA$$ $ !!CH $$8000$$8002$$ $ !!CH $$0 C
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» $ !!CH $$DVTDY$$DVDY03$$ % !!CH $$/ABC$$/1850$$ % & !!EN % B KPF /S % N SCR % LED TTABX % h !!CH $$/EE$$'TC'$$ % z !!CH $$TTABX$$TTABTC$$ % !!CH $$/3C$$60$$ % !!IL 9 % EXTRN DWKB01 % EXTRN
0x004bc0…004d54 (0, 6) Dummy {f00=0x0002, f01=0x0190, f02=» DATA /0030 % DATA DWTP01 & DATA /0050 & 8 DATA DWDY01 & X DATA /0231 & x DATA DWTP01 & DATA /0132 & DATA DWTP01 & !!EN & ASM
0x004d54…004ee8 Dummy {f00=0x0002, f01=0x0190, f02=»55$$ & !!IL 9 ' EXTRN DWKB08 ' EXTRN DWDY08 ' : !!IL 21 ' Z DATA /0021 ' j DATA DWKB08 ' DATA /0031 ' DATA DWDY08 ' !!EN ' ASM /S ' KPF
0x004ee8…00507c Dummy {f00=0x0002, f01=0x0190, f02=»IL 9 ' EXTRN DWTC01 ( EXTRN DWSI01 ( , EXTRN DWSO01 ( L !!IL 21 ( l DATA /0012 ( | DATA DWTC01 ( DATA /0010 ( DATA DWSI01 ( DAT
0x00507c…005210 Dummy {f00=0x0002, f01=0x0190, f02=»!!CH $$TTMJOB$$TTMJOB,TTABD2$$ ( !!IL 08 ) & EXTRN TTABTC ) 6 EXTRN TTABTB ) V !!IL 16 ) v DATA TTABTC ) DATA TTABTB ) !!EN ) ASM /S ) KPF /O ) KPF /S ) SCR )
0x005210…0053a4 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 !!EN * ASM /S * KPF /O * KPF /S * SCR * LED DMFDB * !!CH $$ X:A$$ 00245$$ * !!CH $$ X:
0x0053a4…005538 Dummy {f00=0x0002, f01=0x018e, f02=» DWKB01 * EXTRN DWTP01 + EXTRN DWDY01 + 0 EXTRN DWKB08 + P EXTRN DWDY08 + p !!IL 16 + T1 EQU /006 + T8 EQU /00C + !!IL 18 + DATA TN1 +
0x005538…0056cc Dummy {f00=0x0002, f01=0x0190, f02=» + z DATA 00 , DATA TN8 , $ TN1 EQU * , B DATA T1 , ^ DATA DWKB01 , z DATA DWTP01 , DATA DWDY01 , TN8 EQU * , DATA
0x0056cc…005860 Dummy {f00=0x0002, f01=0x0190, f02=»ATA DWKB08+1 , DATA DWDY08 - !!EN - 8 ASM /S - D KPF /O - R KPF /S - ` SCR - n LED DVKB00 - z !!CH $$DVKB00$$DWKB01$$ - !!CH $$/1111$$/1140$$ - !!RE 07,$$00$$01$$ - !!RE 24,$$00$$01$$ - !!EN -
0x005860…0059f4 (0, 7) Dummy {f00=0x0002, f01=0x0190, f02=»!!EN - ASM /S . KPF /O . KPF /S . ( SCR . 6 LED DVDY00 . B !!CH $$DVDY00$$DWDY01$$ . T !!CH $$/1111$$/C010$$ . t !!EN . ASM /S . KPF /O . KPF /S . SCR . LED DVKB03 . !!CH $$DVKB03$$DWKB08$$ . !!
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x018e, f02=»R . LED DVDY03 / !!CH $$DVDY03$$DWDY08$$ / !!CH $$/1111$$/CE00$$ / < !!EN / Z ASM /S / f KPF /O / t KPF /S / SCR / LED INIMOD / !!DL 023 / !!DL 024 / !!DL 031 / !!DL 032 / !!EN / ASM /S /
0x005b88…005d1c Dummy {f00=0x0002, f01=0x00f0, f02=» !!DL 038 0 !!DL 039 0 !!EN 0 $ ASM /S 0 0 KPF /O 0 > KPF /S 0 L SCR 0 Z ASM CD:TAB,NL 0 f KPF /O 0 | ASG /02,LP0F 0 SCR 0 INC INTVMA 0 LKE M 0 KPF /L,M:KMDV 0 ASG /E0,TY10 0 EN / ASM /S /
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x2008, f02=» 1 038 0 !!DL 039 0 !!EN 0 $ ASM /S 0 0 KPF /O 0 > KPF /S 0 L SCR 0 Z ASM CD:TAB,NL 0 f KPF /O 0 | ASG /02,LP0F 0 SCR 0 INC INTVMA 0 LKE M 0 KPF /L,M:KMDV 0 ASG /E0,TY10 0 EN / ASM /S /
0x005eb0…006044 Dummy {f00=0x0002, f01=0x0190, f02=»TP41 1 | DATA DWDY41 2 !!EN 2 , ASM /S 2 8 KPF /O 2 F KPF /S 2 T SCR 2 b LED DVKB00 2 n !!CH $$DVKB00$$DWKB01$$ 2 !!CH $$/1111$$/1140$$ 2 !!RE 07,$$00$$01$$ 2 !!RE 24,$$00$$01$$ 2 !!EN 2 ASM /S 2
0x006044…0061d8 Dummy {f00=0x0002, f01=0x0190, f02=»ASM /S 2 KPF /O 3 KPF /S 3 SCR 3 * LED DVDY00 3 6 !!CH $$DVDY00$$DWDY01$$ 3 H !!CH $$/1111$$/C010$$ 3 h !!EN 3 ASM /S 3 KPF /O 3 KPF /S 3 SCR 3 LED DVKB03 3 !!CH $$DVKB03$$DWKB08$$ 3 !!CH $$/1111$$
0x0061d8…00636c Dummy {f00=0x0002, f01=0x0190, f02=»D DVDY03 3 !!CH $$DVDY03$$DWDY08$$ 4 !!CH $$/1111$$/CE00$$ 4 0 !!EN 4 N ASM /S 4 Z KPF /O 4 h KPF /S 4 v SCR 4 LED DVKB00 4 !!CH $$DVKB00$$DWKB41$$ 4 !!CH $$/1111$$/1144$$ 4 !!RE 07,$$00$$41$$ 4 !!RE 24,$$00$$
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=»1111$$/2004$$ 4 !!EN 5 ASM /S 5 " KPF /O 5 0 KPF /S 5 > SCR 5 L LED DVDY00 5 X !!CH $$DVDY00$$DWDY41$$ 5 j !!CH $$/1111$$/C014$$ 5 !!EN 5 ASM /S 5 KPF /O 5 KPF /S 5 SCR 5 LED INIMOD 5 !!DL 023 5
0x006500…006694 (0, 8) Opaque[0x194]
0x006694…006828 # DirEnt {nam=»INTVMA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x006694…006828 IdxSect {
0x006694…006828 f00 = 0x0020 // 0x6694 @0x0
0x006694…006828 f01 = 0x0006 // 0x6696 @0x2
0x006694…006828 gno = [ // 0x6698 @0x4
0x006694…006828 [0x00]: C0x0020.0x3.0
0x006694…006828 [0x01]: C0x0021.0x1.0
0x006694…006828 [0x02]: C0x0021.0x2.0
0x006694…006828 ]
0x006694…006828 }
0x006828…0069bc Dummy {f00=0x0020, 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*
0x0069bc…006b50 Dummy {f00=0x0020, 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
0x006b50…006ce4 Dummy {f00=0x0020, 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
0x006ce4…006e78 Dummy {f00=0x0020, f01=0x0190, 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
0x006e78…00700c Dummy {f00=0x0020, f01=0x0190, f02=» CHANNEL UNIT NO. 1 ~ P EXTRN IHFD FLOPPY DISCEN $ P EXTRN ILLINT ILLEGAL INTERRUPT > P EXTRN HALT HALT ROUTINE f P P EXTRN TCTAB & P EXTRN TTB:ID TASK IDENTIFICATION ( P EXTRN TTB:ST TASK STATUS AND LEVEL ( P EXTRN PRUN TTAB
0x00700c…0071a0 Dummy {f00=0x0020, f01=0x0190, f02=»R CLEAR r P* P P " $ PCHCR EQU /0E CHCR DEVICE ADDRESS * " PSOP EQU /2E SOP DEVICE ADDRESS R PX:A EQU 0 x * PSEGLEN EQU X:A SEGMENT LENGTH IN BYTES PX:B EQU 0 ( PNUMPAR EQU X:B NUMBER OF PARTITIONS 8 P* BY SETTING X:
0x0071a0…007334 (0, 9) Dummy {f00=0x0021, f01=0x0190, f02=»LOAD EQU 1 P PREL0 EQU * P EJECT , P : P* B P* INTERRUPT VECTORS L P* h P r P DATA IHPFAR 0 z P DATA IHLKM 1 P DATA IHRTC 2 P DATA ILLINT 3 P DATA ILLINT 4 P D
0x007334…0074c8 Dummy {f00=0x0021, f01=0x018e, f02=» P DATA ILLINT P DATA ILLINT $ P DATA ILLINT D P DATA ILLINT d P DATA CHLT1 14 P DATA IHFD 15 P DATA ILLINT P DATA ILLINT P DATA
0x0074c8…00765c Dummy {f00=0x0021, f01=0x0190, f02=» z P DATA ILLINT P DATA CHLT1 24 ( P DATA ILLINT D P DATA ILLINT d P DATA ILLINT P DATA ILLINT 28 P DATA ILLINT 29 P DATA IHFD 30 P DATA ILLINT
0x00765c…0077f0 Dummy {f00=0x0021, f01=0x0190, f02=»ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 2 P DATA ILLINT 39 N P DATA ILLINT j P DATA ILLINT P DATA ILLINT 42 P DATA ILLINT 43 P DATA ILLINT P DATA
0x0077f0…007984 Dummy {f00=0x0021, f01=0x018e, f02=»ATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 6 P DATA ILLINT 53 R P DATA ILLINT 54 n P DATA ILLINT 55 P DATA ILLINT 56 P DATA ILLINT 57 P DATA ILLINT 58 P DATA ILLINT
0x007984…007b18 Dummy {f00=0x0021, f01=0x0190, f02=» P EJECT P P* P* SYSTEM HALTS ( P* > P H P HLT P P HLT P h P p P x P P* P* COMMUNICATION VECTOR TABLE P* P PCVTMSZ DATA 0 MEMORY SIZE PCVTSTB DATA STB STACK BASE
0x007b18…007cac Dummy {f00=0x0021, f01=0x018e, f02=»F INIT P RF BUGG & PCVTAPA DATA 0 APPLICATION ADDRESS * PCVTAPS DATA 0 APPLICATON START ADDRESS H " PCVTCLK DATA 0 REAL TIME CLOCK v PCVTLSB EQU * PCVTDK EQU * PFREPAR EQU * PPARLEN EQU * P EJECT P P*
0x007cac…007e40 Dummy {f00=0x0021, f01=0x0190, f02=» " PBUGG LDKL A13,/90 START BUGGER P LDKL A14,-8 * P AD A14,CVTAPA > P LDKL A1,BUG T PBRANCH ABR(NZ) A1 h P HLT " PTRAP LDKL A1,/D HALT PARAMETER P CF A15,HALT P EJECT P P* ( P* SUBROUTINE TO EXECUTE CHCR COM
0x007e40…007fd4 (0, 10) Dummy {f00=0x0021, f01=0x0190, f02=»* P* INITIALIZATION ENTRY P* ( P 2 4 PINIM LDK A6,CHCREX-REL0 LOAD CHCREX SUBR ADDRESS : P LDR A8,P AND STACK BASE r $ P ST A9,CVTAPA SAVE APPL ADDRESS $ P ADR A14,A9 CALC APPL LINK BASE P P P P P
0x007fd4…008168 Dummy {f00=0x0021, f01=0x018e, f02=»* A3,A2 SAVE CONTENTS P STR A1,A2 CHECK IF MEMORY P CWR* A1,A2 @ P RB(NE) INIM30 T P j P STR A3,A2 RESTORE CONTENTS r P ADK A2,2 $ P ST A2,CVTMSZ MEMORY SIZE TO CVT P SUK A2,2 $ P ST A2,CVTEBA END OF BUFFER POOL
0x008168…0082fc Dummy {f00=0x0021, f01=0x0190, f02=» * P LDKL A12,INIM20 INSTRUCTION AFTER APL P ABR A2 PERFORM APL 2 P N PINIM20 EQU * V P IFT UNLOAD=0 j P LDK A1,/F P CFR A8,A6 P XIF P : P ST A9,CVTSBA SET ADDRESS TO BEGINNING OF BUFFER POOL & P ST A13,CVTAPS SAV
0x0082fc…008490 Dummy {f00=0x0021, f01=0x0190, f02=» l P LDKL A1,LOOP P STR A1,A15 P LDKL A1,/FC00 2 & P STR A1,A15 ADJUST STACK FOR LOOP H P SUKL A15,28 r P LDK A1,0 P STR A1,A15 P EJECT P P* P* FIND FIRST USER TASK P* P P LD A1,TCTAB
0x008490…008624 Dummy {f00=0x0021, f01=0x018e, f02=» FOUND ~ P " PINIM60 LDR* A5,A1 TTAB ADDRESS ( P LD A2,TTB:ID,A5 TASK IDENTIFICATION < P RB(N) INIM50 MONITOR TASK h , P ST A5,PRUN SET TTAB FOR RUNNING PROGRAM P CMR A5 $ P LD A7,TTB:ST,A5 GET USER LEVEL P SRC A7,6 P EJE
0x008624…0087b8 Dummy {f00=0x0021, f01=0x417a, f02=» " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES * P RES 80 P PSTB EQU *-2 STACK BASE ` P ~ P P P* P* IDLE LOOP P* P PLOOP RB * PWAITIS EQU * P LDKL A8,10 P LKM
0x0087b8…00894c Dummy {f00=0x0021, 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
0x00894c…008ae0 Dummy {f00=0x0021, 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
0x008ae0…008c74 (0, 11) Opaque[0x194]
0x008c74…008e08 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0078, f03=0x0000}
0x008c74…008e08 IdxSect {
0x008c74…008e08 f00 = 0x0003 // 0x8c74 @0x0
0x008c74…008e08 f01 = 0x00b0 // 0x8c76 @0x2
0x008c74…008e08 gno = [ // 0x8c78 @0x4
0x008c74…008e08 [0x00]: C0x0003.0x3.0
0x008c74…008e08 [0x01]: C0x0004.0x0.0
0x008c74…008e08 [0x02]: C0x0004.0x2.0
0x008c74…008e08 [0x03]: C0x0005.0x3.0
0x008c74…008e08 [0x04]: C0x0007.0x0.0
0x008c74…008e08 [0x05]: C0x0008.0x1.0
0x008c74…008e08 [0x06]: C0x000a.0x2.0
0x008c74…008e08 [0x07]: C0x000a.0x1.0
0x008c74…008e08 [0x08]: C0x000b.0x2.0
0x008c74…008e08 [0x09]: C0x000c.0x0.0
0x008c74…008e08 [0x0a]: C0x000c.0x2.0
0x008c74…008e08 [0x0b]: C0x000d.0x0.0
0x008c74…008e08 [0x0c]: C0x000d.0x2.0
0x008c74…008e08 [0x0d]: C0x000e.0x0.0
0x008c74…008e08 [0x0e]: C0x000e.0x2.0
0x008c74…008e08 [0x0f]: C0x000f.0x0.0
0x008c74…008e08 [0x10]: C0x000f.0x2.0
0x008c74…008e08 [0x11]: C0x0010.0x0.0
0x008c74…008e08 [0x12]: C0x0010.0x2.0
0x008c74…008e08 [0x13]: C0x0011.0x0.0
0x008c74…008e08 [0x14]: C0x0011.0x2.0
0x008c74…008e08 [0x15]: C0x0012.0x0.0
0x008c74…008e08 [0x16]: C0x0012.0x2.0
0x008c74…008e08 [0x17]: C0x0013.0x0.0
0x008c74…008e08 [0x18]: C0x0013.0x2.0
0x008c74…008e08 [0x19]: C0x0014.0x0.0
0x008c74…008e08 [0x1a]: C0x0014.0x2.0
0x008c74…008e08 [0x1b]: C0x0015.0x0.0
0x008c74…008e08 [0x1c]: C0x0015.0x2.0
0x008c74…008e08 [0x1d]: C0x0016.0x0.0
0x008c74…008e08 [0x1e]: C0x0016.0x2.0
0x008c74…008e08 [0x1f]: C0x0017.0x0.0
0x008c74…008e08 [0x20]: C0x0017.0x2.0
0x008c74…008e08 [0x21]: C0x0018.0x0.0
0x008c74…008e08 [0x22]: C0x0018.0x2.0
0x008c74…008e08 [0x23]: C0x0019.0x0.0
0x008c74…008e08 [0x24]: C0x0019.0x2.0
0x008c74…008e08 [0x25]: C0x001a.0x0.0
0x008c74…008e08 [0x26]: C0x001a.0x2.0
0x008c74…008e08 [0x27]: C0x001b.0x0.0
0x008c74…008e08 [0x28]: C0x001b.0x2.0
0x008c74…008e08 [0x29]: C0x001c.0x0.0
0x008c74…008e08 [0x2a]: C0x001e.0x0.0
0x008c74…008e08 [0x2b]: C0x0022.0x2.0
0x008c74…008e08 [0x2c]: C0x0022.0x3.0
0x008c74…008e08 [0x2d]: C0x001d.0x3.0
0x008c74…008e08 [0x2e]: C0x0025.0x1.0
0x008c74…008e08 [0x2f]: C0x0027.0x2.0
0x008c74…008e08 [0x30]: C0x0027.0x3.0
0x008c74…008e08 [0x31]: C0x0025.0x0.0
0x008c74…008e08 [0x32]: C0x0029.0x2.0
0x008c74…008e08 [0x33]: C0x002a.0x0.0
0x008c74…008e08 [0x34]: C0x002b.0x3.0
0x008c74…008e08 [0x35]: C0x002c.0x2.0
0x008c74…008e08 [0x36]: C0x002d.0x1.0
0x008c74…008e08 [0x37]: C0x002e.0x0.0
0x008c74…008e08 [0x38]: C0x002e.0x3.0
0x008c74…008e08 [0x39]: C0x0031.0x0.0
0x008c74…008e08 [0x3a]: C0x0030.0x3.0
0x008c74…008e08 [0x3b]: C0x0031.0x3.0
0x008c74…008e08 [0x3c]: C0x0032.0x1.0
0x008c74…008e08 [0x3d]: C0x0032.0x3.0
0x008c74…008e08 [0x3e]: C0x0035.0x0.0
0x008c74…008e08 [0x3f]: C0x0037.0x1.0
0x008c74…008e08 [0x40]: C0x0039.0x0.0
0x008c74…008e08 [0x41]: C0x003c.0x1.0
0x008c74…008e08 [0x42]: C0x003f.0x1.0
0x008c74…008e08 [0x43]: C0x0041.0x2.0
0x008c74…008e08 [0x44]: C0x003c.0x0.0
0x008c74…008e08 [0x45]: C0x0048.0x1.0
0x008c74…008e08 [0x46]: C0x0049.0x2.0
0x008c74…008e08 [0x47]: C0x0049.0x3.0
0x008c74…008e08 [0x48]: C0x004a.0x2.0
0x008c74…008e08 [0x49]: C0x004a.0x3.0
0x008c74…008e08 [0x4a]: C0x0043.0x3.0
0x008c74…008e08 [0x4b]: C0x0044.0x1.0
0x008c74…008e08 [0x4c]: C0x0045.0x1.0
0x008c74…008e08 [0x4d]: C0x0046.0x0.0
0x008c74…008e08 [0x4e]: C0x004b.0x0.0
0x008c74…008e08 [0x4f]: C0x0021.0x0.0
0x008c74…008e08 [0x50]: C0x0026.0x0.0
0x008c74…008e08 [0x51]: C0x0026.0x2.0
0x008c74…008e08 [0x52]: C0x0027.0x0.0
0x008c74…008e08 [0x53]: C0x0029.0x1.0
0x008c74…008e08 [0x54]: C0x004f.0x1.0
0x008c74…008e08 [0x55]: C0x004f.0x3.0
0x008c74…008e08 [0x56]: C0x0050.0x1.0
0x008c74…008e08 [0x57]: C0x0050.0x3.0
0x008c74…008e08 ]
0x008c74…008e08 }
0x008e08…008f9c Dummy {f00=0x0003, f01=0x018e, f02=» J F IDENT INTVMA 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
0x008f9c…009130 Dummy {f00=0x0003, f01=0x0190, f02=» IHFDN , ( , ( ! D , ( 1 t , ( A , ( Q , (
0x009130…0092c4 Dummy {f00=0x0003, f01=0x0190, f02=»VTSBA CVTEBA CVTINP $ CVTAPA 8 CVTAPSC L CVTCLK ` CVTLSB t CVTDK FREPAR PARLEN@ INIMON , ( W W W bB
0x0092c4…009458 Dummy {f00=0x0003, f01=0x418c, f02=» ) A A A. INIM40N " TCTAB 6 , ( T ? ? ? F TTB:ID v PRUNN , ( @" @ $ T $ T Z A TTB:ST PFINITW $ 7 5 T ? ?
0x009458…0095ec Dummy {f00=0x0003, f01=0xc110, f02=» , ( ? @ : $ T $ T < PRUNN 8 TTB:ST H PFINIT Z , ( 5" Z A > 5 T @? ? B l LOOPY _ ( @ ( $ W W W +T E
0x0095ec…009780 Dummy {f00=0x0003, f01=0x410e, f02=» J F IDENT INIMOD REL 8.2 78-09-15 870105040820 INIMONKdBUG DCEXT DM:TSK R INIMONK v tBUG DCEXT DM:TSK TTABD2A @ @
0x009780…009914 (0, 12) 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
0x009914…009aa8 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
0x009aa8…009c3c Dummy {f00=0x0004, f01=0x0190, f02=» SACTY LRUNEW GBQUE . BLOK:S @ FREQUE R BLOCKEW f BLOCKL x DISIOE DISEND TENDIO TDISP , ( @
0x009c3c…009dd0 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 ~
0x009dd0…009f64 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 ~
0x009f64…00a0f8 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
0x00a0f8…00a28c 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
0x00a28c…00a420 Dummy {f00=0x0004, f01=0x0190, f02=» A A MONCLO ( FREBLKC < * & 8X Q Z P 0 9 N , ( _ _& P | TIMQUE INIFLG IHPFAR@ , ( @ H H A
0x00a420…00a5b4 (0, 13) 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
0x00a5b4…00a748 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
0x00a748…00a8dc 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 ,
0x00a8dc…00aa70 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
0x00aa70…00ac04 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
0x00ac04…00ad98 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
0x00ad98…00af2c 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
0x00af2c…00b0c0 Dummy {f00=0x0004, 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
0x00b0c0…00b254 (0, 14) Dummy {f00=0x0005, 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
0x00b254…00b3e8 Dummy {f00=0x0005, 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
0x00b3e8…00b57c Dummy {f00=0x0005, f01=0x0190, f02=» > > > > > t IHRET2 @ IHRET1 B ( IHRTN D < PFINIT L N PFTAB b , ( A > > > @ .V ? . > r SWL48 b RTNA15 SWLXY t , ( ] _ W ? _ > 0 ? , (
0x00b57c…00b710 Dummy {f00=0x0005, 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
0x00b710…00b8a4 Dummy {f00=0x0005, 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
0x00b8a4…00ba38 Dummy {f00=0x0005, 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
0x00ba38…00bbcc Dummy {f00=0x0005, 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 _ > > > ; ^ [
0x00bbcc…00bd60 Dummy {f00=0x0005, f01=0x4116, f02=» J F IDENT PFTAB REL 8.2 78-09-15 870105040820 PFTAB R PFTAB b TCDRON t SOPRN CHLTON FDONN DMINITA " U@
0x00bd60…00bef4 (0, 15) Dummy {f00=0x0007, f01=0xc03e, f02=» (@ :870105040820 PFTAB R PFTAB b TWONN t TCDRON SOPRN CHLTONA C1DRONA C2DRON C3DRON` FDONN * & UT
0x00bef4…00c088 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
0x00c088…00c21c 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
0x00c21c…00c3b0 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 , ( !@ ?
0x00c3b0…00c544 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,
0x00c544…00c6d8 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
0x00c6d8…00c86c 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
0x00c86c…00ca00 Dummy {f00=0x0007, 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
0x00ca00…00cb94 (0, 16) 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
0x00cb94…00cd28 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
0x00cd28…00cebc 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
0x00cebc…00d050 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
0x00d050…00d1e4 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
0x00d1e4…00d378 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,
0x00d378…00d50c 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
0x00d50c…00d6a0 Dummy {f00=0x0008, 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
0x00d6a0…00d834 (0, 17) Dummy {f00=0x000a, 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
0x00d834…00d9c8 Dummy {f00=0x000a, 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
0x00d9c8…00db5c Dummy {f00=0x000a, 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
0x00db5c…00dcf0 Dummy {f00=0x000a, 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
0x00dcf0…00de84 Dummy {f00=0x000a, 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 `
0x00de84…00e018 Dummy {f00=0x000a, f01=0x4162, f02=» J F IDENT CD:TAB REL 8.2 78-09-15 870105040820 CD:TABK CDTABF R CD:TABK l DWTC01 DWSI01 DWSO01 DWFD01 , ( $ CDTABF
0x00e018…00e1ac Dummy {f00=0x000a, f01=0x411a, f02=» J F IDENT TC:TAB REL 8.2 78-09-15 870105040820 TC:TABK TCTABT R TC:TABK l TTMJOB TTABD2 TCTABT TTABTC TTABTB U
0x00e1ac…00e340 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
0x00e340…00e4d4 (0, 18) 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
0x00e4d4…00e668 Dummy {f00=0x000a, f01=0x414e, f02=» J F IDENT INTLT1 REL 8.2 78-09-15 870105040820 INTLT1K R INTLT1K d DWKB01 x DWTP01 DWDY01 DWKB08 , ( T DWDY08
0x00e668…00e7fc 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
0x00e7fc…00e990 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
0x00e990…00eb24 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
0x00eb24…00ecb8 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
0x00ecb8…00ee4c 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
0x00ee4c…00efe0 Dummy {f00=0x000a, 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
0x00efe0…00f174 (0, 19) Dummy {f00=0x000b, 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
0x00f174…00f308 Dummy {f00=0x000b, 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
0x00f308…00f49c Dummy {f00=0x000b, f01=0x4078, f02=»NTRT2C INTRT3 INTRT4N $ & " 8 b@ t INTLT3 INTLT4@ INTRT1 INTRT2C R INTRT3 INTRT4N MONTABK TC:TAB TCTAB CD:TAB C
0x00f49c…00f630 Dummy {f00=0x000b, 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
0x00f630…00f7c4 Dummy {f00=0x000b, f01=0x0190, f02=» COFILE: , ( , ( ! " L , ( A # $ % | ECBFC FDBLNK FDBECB FDBSNR FDBRRO "
0x00f7c4…00f958 Dummy {f00=0x000b, 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
0x00f958…00faec Dummy {f00=0x000b, 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 * &
0x00faec…00fc80 Dummy {f00=0x000b, 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
0x00fc80…00fe14 (0, 20) 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 $
0x00fe14…00ffa8 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 @
0x00ffa8…01013c 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
0x01013c…0102d0 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
0x0102d0…010464 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 *
0x010464…0105f8 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
0x0105f8…01078c 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 @
0x01078c…010920 Dummy {f00=0x000c, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : , ( > @ (@ / O L DWTTQ | QTJOB , ( @ B $P % 4 D F , ( 4 (@ B * P , ( 9
0x010920…010ab4 (0, 21) Dummy {f00=0x000c, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , (
0x010ab4…010c48 Dummy {f00=0x000c, 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
0x010c48…010ddc Dummy {f00=0x000c, 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 ! ! . #
0x010ddc…010f70 Dummy {f00=0x000c, 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
0x010f70…011104 Dummy {f00=0x000c, 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 , ( !
0x011104…011298 Dummy {f00=0x000c, f01=0x40f0, f02=» h BUFDMIC BUFSNR BUFOR , , ( Q , - M M M @ < TASBLKN l TASQUE ~ RTNA15@ g$ A A Q %PJ t @ CRNQUE , ( !
0x011298…01142c Dummy {f00=0x000c, 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
0x01142c…0115c0 Dummy {f00=0x000c, f01=0x0190, f02=» TASVOL TASCXO TASSEX , , ( @ TASXLB $ p TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x0115c0…011754 (0, 22) 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 , ( ! , `
0x011754…0118e8 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@ :
0x0118e8…011a7c 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
0x011a7c…011c10 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
0x011c10…011da4 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 , (
0x011da4…011f38 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
0x011f38…0120cc 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 ,
0x0120cc…012260 Dummy {f00=0x000d, f01=0x0190, f02=» j , ( I ( & , ( e@ @ (T A " 0" : , ( U _ L !SS j TASCXOL * & P !LL W L @ , A TASSEX , ( $ ,V P E
0x012260…0123f4 (0, 23) Dummy {f00=0x000d, 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
0x0123f4…012588 Dummy {f00=0x000d, 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
0x012588…01271c Dummy {f00=0x000d, 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 , (
0x01271c…0128b0 Dummy {f00=0x000d, 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
0x0128b0…012a44 Dummy {f00=0x000d, 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
0x012a44…012bd8 Dummy {f00=0x000d, 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
0x012bd8…012d6c Dummy {f00=0x000d, 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 @
0x012d6c…012f00 Dummy {f00=0x000d, 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
0x012f00…013094 (0, 24) 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
0x013094…013228 Dummy {f00=0x000e, f01=0x40ba, 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*
0x013228…0133bc 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 & ?! , (
0x0133bc…013550 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
0x013550…0136e4 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
0x0136e4…013878 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 , ( " : : " $
0x013878…013a0c 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
0x013a0c…013ba0 Dummy {f00=0x000e, 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
0x013ba0…013d34 (0, 25) Dummy {f00=0x000e, 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
0x013d34…013ec8 Dummy {f00=0x000e, 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 * &
0x013ec8…01405c Dummy {f00=0x000e, 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 _ , (
0x01405c…0141f0 Dummy {f00=0x000e, 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 _ , (
0x0141f0…014384 Dummy {f00=0x000e, 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
0x014384…014518 Dummy {f00=0x000e, 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 * &
0x014518…0146ac Dummy {f00=0x000e, 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
0x0146ac…014840 Dummy {f00=0x000e, f01=0x0190, f02=» I D ) E : T DIVMOD * FDBEXTR < , ( ] " $S P W X " N EXTLEN ~ FDBCEX , ( wH & ( U U (_ EXTBAS FDBSNR , ( H$ Y *
0x014840…0149d4 (0, 26) 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
0x0149d4…014b68 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 ,
0x014b68…014cfc 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 , (
0x014cfc…014e90 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
0x014e90…015024 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
0x015024…0151b8 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
0x0151b8…01534c 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*
0x01534c…0154e0 Dummy {f00=0x000f, 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 ( )
0x0154e0…015674 (0, 27) Dummy {f00=0x000f, 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 !
0x015674…015808 Dummy {f00=0x000f, 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 ( -
0x015808…01599c Dummy {f00=0x000f, 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 @
0x01599c…015b30 Dummy {f00=0x000f, 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 ^
0x015b30…015cc4 Dummy {f00=0x000f, 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 ) !
0x015cc4…015e58 Dummy {f00=0x000f, 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
0x015e58…015fec Dummy {f00=0x000f, f01=0x0190, f02=» W P W , ( s@@ X R ! Y # ! , TDISP , ( : R _ 4 ! l * & ! " T ! ! , ( 4 X # 4 Y # ! " " P ,$
0x015fec…016180 Dummy {f00=0x000f, 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 ,$
0x016180…016314 (0, 28) Dummy {f00=0x0010, f01=0x0190, f02=» J F IDENT DRGP01 REL 8.2 78-09-15 870105040820 GPADY ECHOGP R GPADY j , ( !"$&;<>@^_ P P | DISIOE OUTPUT , ( ! B P B L # +P ! , ( ?
0x016314…0164a8 Dummy {f00=0x0010, f01=0x0190, f02=» P T Y "_. P R P , ( @ O]> V _F T Y Y " V " , ( @D Y _^ C _P " R , ( $ P X " X ]r ! , ( @ Y Y Y _ " H TENDIO TDISP , (
0x0164a8…01663c Dummy {f00=0x0010, f01=0x0190, f02=» , ( _ U D ! T _ C > X Z^ LDREG 4 ECHOGP D , ( } <BR Xb j R V X , ( $! P P R ?Q ! Y ECHRTN , ( R Q , -_ ? _ X # SAVE8 ,
0x01663c…0167d0 Dummy {f00=0x0010, f01=0x40f4, f02=» X j $ ' " " H D ! v P P +P 9P CR EQ IT m < wU }P" T P4 & H D ! R( Pj V T P , KU$ UT _U iT R R( V( P" P" R r Q R Q P0 P 2 @ SAVE8 ,
0x0167d0…016964 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 , ( =
0x016964…016af8 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@
0x016af8…016c8c 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
0x016c8c…016e20 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
0x016e20…016fb4 (0, 29) 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
0x016fb4…017148 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
0x017148…0172dc 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
0x0172dc…017470 Dummy {f00=0x0010, f01=0x0190, f02=»FC CWTRT1 CWTRT2 CWTRT3 4 CWTRT4R H CWTRT5 CWTRT6K p CWTRT7 CWTRT8 DWREMU CWTLT1 INTLT1 CWTLT2C CWTLT3
0x017470…017604 Dummy {f00=0x0010, 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 ,
0x017604…017798 Dummy {f00=0x0010, 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 "&
0x017798…01792c Dummy {f00=0x0010, 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
0x01792c…017ac0 Dummy {f00=0x0010, 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
0x017ac0…017c54 (0, 30) 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
0x017c54…017de8 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
0x017de8…017f7c 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 , (
0x017f7c…018110 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 ,
0x018110…0182a4 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
0x0182a4…018438 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 +
0x018438…0185cc 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
0x0185cc…018760 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
0x018760…0188f4 (0, 31) 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 ( $ @ <
0x0188f4…018a88 Dummy {f00=0x0011, f01=0x018e, 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 - , ( P R
0x018a88…018c1c Dummy {f00=0x0011, f01=0x0190, f02=» f STREG , ( } * $ 4 T % W X (T ! P ECHON H , ( W Y * V ! B _T X , ( B P $$ R % C , ( W Y &X ! 8$ P W 8$ P , ( $ T W $ Y 'P Y %P
0x018c1c…018db0 Dummy {f00=0x0011, f01=0x0190, f02=»END , ( U ! 0 Z , ( q ! B Z ZX X * ,T < , ( J W X (P Y * 0 %_. % l , ( Y * _t _ P _ , ( ?" 8 T ! )_ W ! T "? 9 0 , ( R
0x018db0…018f44 Dummy {f00=0x0011, f01=0x0190, f02=»DREG , ( M P y X ( $4 P X TDISP < , ( k *T * W Y ( - Y X L EOQUEU | , ( Z @_8 B 1 " W JT RTNA15 , H D ! U P P !R
0x018f44…0190d8 Dummy {f00=0x0011, f01=0x40c6, f02=» P T +W / 1W 5 ;T IP o T W P P H D ! T W T R Q T R R W !W 'P 3P AR EV KP @ @ aP g mT qW W T @ A15 , H D ! U P P !R
0x0190d8…01926c Dummy {f00=0x0011, 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 , ( =
0x01926c…019400 Dummy {f00=0x0011, 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
0x019400…019594 (0, 32) Dummy {f00=0x0012, f01=0x0190, f02=» , ( # C V C ! Y , ( B ! Y _` C _ 4 , ( " $ P X # X d , ( ] ! B 8! , ( T ! ! R $Y , ( '@ ! _ B
0x019594…019728 Dummy {f00=0x0012, 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 ! !
0x019728…0198bc Dummy {f00=0x0012, 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 , (
0x0198bc…019a50 Dummy {f00=0x0012, 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 % ,
0x019a50…019be4 Dummy {f00=0x0012, 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
0x019be4…019d78 Dummy {f00=0x0012, 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
0x019d78…019f0c Dummy {f00=0x0012, f01=0x0190, f02=» J F IDENT DRFD01 REL 8.2 78-09-15 870105040820 FDADR IHFDY FDONY DWFD01 R FDADR v DWTOR , ( X ! Y X ! Y , ( T &P P W P P P , ( ? P P
0x019f0c…01a0a0 Dummy {f00=0x0012, f01=0x0190, f02=» X j ECBRL ECBBA * & P ! X X P B B * ECBCW X , ( ! ! ! C h , ( X X P ) ! # T , ( & ! ! " 0 TOT 0 SS , ( T X
0x01a0a0…01a234 (0, 33) Dummy {f00=0x0012, f01=0x0190, f02=» !& P B b b :C P , ( ! 9DV ! (@ B ! ( , ( ! ! ! ! ! X , ( ( ! ! ! X Y X , ( ! _ Y 4 ! , ( P C ! ! !
0x01a234…01a3c8 Dummy {f00=0x0012, f01=0x0190, f02=» _ Y # 4 ! x , ( @ ( C V ! , ( ! B B ! ! W H , ( W ! X@ ! C (Q ! x , ( ! * ! ! ! T )W W , ( ! Xz ! ( - ! ) , (
0x01a3c8…01a55c Dummy {f00=0x0012, f01=0x018e, f02=» C | FDONY d SAVE8 . , ( [@ Y _ Y > DWTST n , ( w X T X Y Y X P ~ SETIMPN , ( @ y _F _V Y , ( X P
0x01a55c…01a6f0 Dummy {f00=0x0012, f01=0x018e, f02=» INTSAV , ( A ? ? ? H H , ( ' T $ $B P W J T % % F , ( G I H T B > > > > ? ? ? ? v , ( g K X ;AR ;a X P Y , ( P 7P < , (
0x01a6f0…01a884 Dummy {f00=0x0012, f01=0x0190, f02=» f , ( R ' P Q 9BW Q 9C B , ( @ ! ! T 4 ^ b P ;A _ 8 , ( ? 4 X # P _ 4(@ h TASCII@ , ( ] R D 1_ W (@ R TEBCDI , ( { 0 D ] _ !
0x01a884…01aa18 Dummy {f00=0x0012, f01=0x0190, f02=»Z Y" P Z | , ( @ _ 4 A >;D A > 4 R _ , ( ;H 4 ! (:C 4 L , ( 9 ! ( 4 X " 4 ! @ ) 4 | " W X P V 4 DWFD01 , (
0x01aa18…01abac Dummy {f00=0x0012, f01=0x0190, f02=» v H D ! & * 2 !T 'P +P 1W 5P 9PX =P( APP EP< IP@ O H D ! s U [ a i o ( uP { n $ W< ( P d * T H D !< ( P T H $ @ ( P R * T d * T T H D ! q ! ( #W / ( 5 & 9 d = *
0x01abac…01ad40 Dummy {f00=0x0012, f01=0x0190, f02=» & H * & d 6 PT $ * # ) 6 /R 9 = H D ! K S V W $ ] $ a e 6 m * q & uT } * & 6 V d @ H D ! * T b @ W0 W 6 Z @ Q n $ 6 T WL H D !T WP 6 J @ b @ #W. ' H )W / H 3 D
0x01ad40…01aed4 (0, 34) Dummy {f00=0x0013, f01=0x411a, f02=» 9T" E K D O F QT k wR> } " P p H D ! " P P W RZ ( P W P Q8 U T, R( P Q W , H D ! } Q 'T 7P A , KP ]R c d mW wR d d V U x < 8 P W Q & V P R % j ) @ 3 d 7 R ; @ ]P
0x01aed4…01b068 Dummy {f00=0x0013, f01=0x0190, f02=» J F IDENT EBCDIC REL 8.2 78-09-15 870105040820 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x01b068…01b1fc Dummy {f00=0x0013, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( -/STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J
0x01b1fc…01b390 Dummy {f00=0x0013, 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*
0x01b390…01b524 Dummy {f00=0x0013, 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
0x01b524…01b6b8 Dummy {f00=0x0013, f01=0x414a, f02=» P n ACTOT SETIME SETIMP ^ 2 SAVE8 F , ( Q @ L _J ^ 4 V TIMQUE , ( m _ @ IHRET8 & " 1 A _ P 9 , ( ~
0x01b6b8…01b84c Dummy {f00=0x0013, 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
0x01b84c…01b9e0 Dummy {f00=0x0013, f01=0x40d4, f02=» LKMQDI , ( s > > > P 5 ) _4 , ( 0 $P , # J @ > z ( $ $ P P Tj UP0 o {P P @ TDISP RELBUF 0 , ( T
0x01b9e0…01bb74 (0, 35) Dummy {f00=0x0013, 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
0x01bb74…01bd08 Dummy {f00=0x0013, 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
0x01bd08…01be9c Dummy {f00=0x0013, f01=0x40be, f02=» J F IDENT CTAB04 REL 8.2 78-09-15 870105040820 CTAB04K R CTAB04K d , ( !"#$%& () +,-./ x @ P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x01be9c…01c030 Dummy {f00=0x0013, f01=0x4122, 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 +
0x01c030…01c1c4 Dummy {f00=0x0013, f01=0x40fe, f02=» J F IDENT TTABTB REL 8.2 78-09-15 870105040820 TTABTBK R TTABTBK d 7TB x DWKB08 DWDY08 +$ ! 1 + 4 @ & P DATA
0x01c1c4…01c358 Dummy {f00=0x0013, 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 `
0x01c358…01c4ec Dummy {f00=0x0013, f01=0x4034, f02=» @ 078-09-15 870105040820 BLOK:SK BLOCKE R BLOK:SK l , ( I $ , ( $ ! * 0 6 < B , ( I$ A H N T Z `
0x01c4ec…01c680 Dummy {f00=0x0013, f01=0x413e, f02=» J F IDENT DWKB01 REL 8.2 78-09-15 870105040820 DWKB01K R DWKB01K d KBADN x & " @ KB DWDY01 , ( !@ ?
0x01c680…01c814 (0, 36) Dummy {f00=0x0014, 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
0x01c814…01c9a8 Dummy {f00=0x0014, 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
0x01c9a8…01cb3c Dummy {f00=0x0014, f01=0x4152, f02=» J F IDENT DWKB08 REL 8.2 78-09-15 870105040820 DWKB08K R DWKB08K d KBADN x CTAB04 ( $ @ KB DWDY08 , ( !@
0x01cb3c…01ccd0 Dummy {f00=0x0014, f01=0x40ee, f02=» J F IDENT DWDY08 REL 8.2 78-09-15 870105040820 DWDY08K R DWDY08K d DYADN x & " DY ! P & & @ P DATA 0 SAVE AREA FOR A4
0x01ccd0…01ce64 Dummy {f00=0x0014, f01=0x2008, f02=» L = FIX1 DATE = 810311 PACK NBR = 001 f
0x01ce64…01cff8 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
0x01cff8…01d18c 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
0x01d18c…01d320 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
0x01d320…01d4b4 (0, 37) Dummy {f00=0x0014, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x01d4b4…01d648 Dummy {f00=0x0014, f01=0x0002, f02=»
0x01d648…01d7dc 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
0x01d7dc…01d970 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
0x01d970…01db04 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
0x01db04…01dc98 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
0x01dc98…01de2c 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
0x01de2c…01dfc0 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
0x01dfc0…01e154 (0, 38) Dummy {f00=0x0015, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x01e154…01e2e8 Dummy {f00=0x0015, f01=0x0002, f02=»
0x01e2e8…01e47c 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
0x01e47c…01e610 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
0x01e610…01e7a4 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 @
0x01e7a4…01e938 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
0x01e938…01eacc 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
0x01eacc…01ec60 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****************
0x01ec60…01edf4 (0, 39) Dummy {f00=0x0015, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x01edf4…01ef88 Dummy {f00=0x0015, f01=0x0004, f02=» P
0x01ef88…01f11c 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*
0x01f11c…01f2b0 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
0x01f2b0…01f444 Dummy {f00=0x0015, f01=0x0190, f02=»FL 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 l P* PX:B EQU 50 " PCRNBAR EQU 00180 CURRENCY AREA P* P* PX:A EQU 250
0x01f444…01f5d8 Dummy {f00=0x0015, f01=0x0190, f02=»DBAR EQU 00245 P* & PQFDBFL EQU 96 FDB FIX PART LENGTH P* J P EJECT T P* b PFDBSTA EQU * l P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU * * PMXIND DATA MXINDE-*
0x01f5d8…01f76c Dummy {f00=0x0015, f01=0x40e6, f02=»0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 P XIF L PMXINDE EQU * END INDEX INDEX X 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX | PMXAR EQU * P RES MXSIZ P END @ EQU * * PMXIND DATA MXINDE-*
0x01f76c…01f900 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*
0x01f900…01fa94 (0, 40) Dummy {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x01fa94…01fc28 Dummy {f00=0x0016, f01=0x0002, f02=»
0x01fc28…01fdbc Dummy {f00=0x0016, f01=0x0190, f02=» 2 P IDENT CTAB04 REL 8.2 78-09-15 870105040820 P* : P* D P* CODE CONVERSION TABLE N P* p P* z P ENTRY CTAB04 P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 < P
0x01fdbc…01ff50 Dummy {f00=0x0016, f01=0x415c, f02=» 4 t ( PC5 EQU 0 5 ( PC6 EQU 0 6 < ( PC7 EQU 0 7 h P* P* P* PCTAB04 DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P
0x01ff50…0200e4 Dummy {f00=0x0016, 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 @
0x0200e4…020278 Dummy {f00=0x0016, 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*
0x020278…02040c Dummy {f00=0x0016, f01=0x018e, f02=» # " P RB(NZ) ERT10 ERASE NOT READY $ P RB READ50 $ . P* $ @ P* $ J P* O L O C K $ T P* $ j P* ORDER LOCK CASSETTE $ t P* $ P* $ " POLOCK CF A8,LOCK LOCK CASSETTE $ " P RB(Z) REW010 CASSETTE LOCKED $ P RB LOAD10 $ P X
0x02040c…0205a0 Dummy {f00=0x0016, f01=0x018e, f02=» PSELECT EQU * % P LDK A2,/FF LOAD MASK % " P ANS A2,DWTST,A6 SET DWT BUSY % 6 P IFT DBCAS=1 % P LDK A3,0 SELECT CODE % p 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 SELE
0x0205a0…020734 (0, 41) Dummy {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x020734…0208c8 Dummy {f00=0x0016, f01=0x0002, f02=»
0x0208c8…020a5c Dummy {f00=0x0016, 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*
0x020a5c…020bf0 Dummy {f00=0x0016, 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
0x020bf0…020d84 Dummy {f00=0x0016, 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
0x020d84…020f18 Dummy {f00=0x0016, f01=0x403e, f02=»LOK:S P* P* P END " P*EOF .@ : 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
0x020f18…0210ac Dummy {f00=0x0016, 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
0x0210ac…021240 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
0x021240…0213d4 (0, 42) Dummy {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x0213d4…021568 Dummy {f00=0x0017, f01=0x0002, f02=»
0x021568…0216fc 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
0x0216fc…021890 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
0x021890…021a24 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
0x021a24…021bb8 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
0x021bb8…021d4c 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
0x021d4c…021ee0 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
0x021ee0…022074 (0, 43) Dummy {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x022074…022208 Dummy {f00=0x0017, f01=0x0002, f02=»
0x022208…02239c Dummy {f00=0x0017, 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
0x02239c…022530 Dummy {f00=0x0017, 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
0x022530…0226c4 Dummy {f00=0x0017, 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
0x0226c4…022858 Dummy {f00=0x0017, f01=0x0190, f02=»RACTER x PAOD320 EQU * P LDK A4,/40 " $ P TM A4,A2 CHECK IF END CHARACTER 6 P RF(Z) AOD330 NO ^ 2 P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH IN ECB v P NGR A3,A3 NEGATE REGISTER P RF AOD340 PAOD330 EQU * " P CWK A2,/3F REJECTED
0x022858…0229ec Dummy {f00=0x0017, f01=0x0190, f02=» f PAOD331 EQU * " P CWK A2,/21 DIRECTION REJECTED P RF(NE) AOD332 NO B ( P LDK A1,/10 INDICATE DIRECTION ERROR P RF ENDIO PAOD332 EQU * $ P CWK A2,/1C QUADRATURE REJECTED? P RF(NE) AOD333 NO , P LDKL A1,/800 INDICATE Q
0x0229ec…022b80 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
0x022b80…022d14 (0, 44) Dummy {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x022d14…022ea8 Dummy {f00=0x0018, f01=0x0002, f02=»
0x022ea8…02303c Dummy {f00=0x0018, 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
0x02303c…0231d0 Dummy {f00=0x0018, f01=0x0190, f02=»BLE ENTRY P EXTRN DWKB41 P EXTRN DWTP41 2 P EXTRN DWDY41 R P* r P* TERMINAL PARAMETERS | P* P* , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* P* P* PT1 E
0x0231d0…023364 Dummy {f00=0x0018, f01=0x415e, f02=» 0 P DATA 0 P DATA 0 ( P DATA 0 D P DATA 0 ` P DATA 0 | PTN1 EQU * P DATA T1 P DATA DWKB41 P DATA DWTP41
0x023364…0234f8 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*
0x0234f8…02368c 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
0x02368c…023820 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
0x023820…0239b4 (0, 45) Dummy {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x0239b4…023b48 Dummy {f00=0x0018, f01=0x0002, f02=»
0x023b48…023cdc 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
0x023cdc…023e70 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
0x023e70…024004 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*
0x024004…024198 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
0x024198…02432c 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 . @
0x02432c…0244c0 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
0x0244c0…024654 (0, 46) Dummy {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x024654…0247e8 Dummy {f00=0x0019, f01=0x0002, f02=»
0x0247e8…02497c 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
0x02497c…024b10 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
0x024b10…024ca4 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*
0x024ca4…024e38 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
0x024e38…024fcc 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
0x024fcc…025160 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 $
0x025160…0252f4 (0, 47) Dummy {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x0252f4…025488 Dummy {f00=0x0019, f01=0x0002, f02=» 0
0x025488…02561c 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
0x02561c…0257b0 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
0x0257b0…025944 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*
0x025944…025ad8 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 ;
0x025ad8…025c6c 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
0x025c6c…025e00 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 =
0x025e00…025f94 (0, 48) Dummy {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x025f94…026128 Dummy {f00=0x001a, f01=0x0002, f02=» @
0x026128…0262bc Dummy {f00=0x001a, 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
0x0262bc…026450 Dummy {f00=0x001a, 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
0x026450…0265e4 Dummy {f00=0x001a, 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
0x0265e4…026778 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
0x026778…02690c 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*
0x02690c…026aa0 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
0x026aa0…026c34 (0, 49) Dummy {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x026c34…026dc8 Dummy {f00=0x001a, f01=0x0002, f02=» P
0x026dc8…026f5c 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
0x026f5c…0270f0 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
0x0270f0…027284 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*
0x027284…027418 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
0x027418…0275ac 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
0x0275ac…027740 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*
0x027740…0278d4 (0, 50) Dummy {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x0278d4…027a68 Dummy {f00=0x001b, f01=0x0002, f02=» `
0x027a68…027bfc 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
0x027bfc…027d90 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
0x027d90…027f24 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*
0x027f24…0280b8 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
0x0280b8…02824c 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
0x02824c…0283e0 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
0x0283e0…028574 (0, 51) Dummy {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x028574…028708 Dummy {f00=0x001b, f01=0x0002, f02=» p
0x028708…02889c 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
0x02889c…028a30 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
0x028a30…028bc4 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*
0x028bc4…028d58 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
0x028d58…028eec 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
0x028eec…029080 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
0x029080…029214 (0, 52) Dummy {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x029214…0293a8 Dummy {f00=0x001c, f01=0x0002, f02=»
0x0293a8…02953c Dummy {f00=0x001c, f01=0x018e, f02=» J F IDENT INTVMA 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
0x02953c…0296d0 Dummy {f00=0x001c, f01=0x0190, f02=» IHFDN CHRT1 , ( $ , ( ! T , ( 1 , ( A , ( Q
0x0296d0…029864 Dummy {f00=0x001c, f01=0x018e, f02=»B CVTSBA CVTEBA CVTINP 4 CVTAPA H CVTAPSC CVTCLK p CVTLSB CVTDK FREPAR PARLEN@ INIMON , ( W W
0x029864…0299f8 Dummy {f00=0x001c, f01=0x0190, f02=» , ( @ ) ( ) A A A. INIM40N 4 TCTAB H , ( T ? ? ? X TTB:ID PRUNN , ( @" @ $ T $ T Z A TTB:ST PFINIT $ 7 5
0x0299f8…029b8c Dummy {f00=0x001c, f01=0x400e, f02=» @ ( ) A A A. INIM40N 4 TCTAB H , ( T ? ? ? X TTB:ID PRUNN , ( @" @ $ T $ T Z A TTB:ST PFINIT $ 7 5
0x029b8c…029d20 Dummy {f00=0x001c, f01=0x2008, f02=»
0x029d20…029eb4 (0, 53) 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 , (
0x029eb4…02a048 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
0x02a048…02a1dc 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 ! ! . #
0x02a1dc…02a370 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
0x02a370…02a504 Dummy {f00=0x001e, f01=0x2008, f02=»
0x02a504…02a698 Dummy {f00=0x001e, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
[…0x2…]
0x02a9c0…02ab54 (0, 54) 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
0x02ab54…02ace8 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
0x02ace8…02ae7c 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
0x02ae7c…02b010 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
0x02b010…02b1a4 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* +
0x02b1a4…02b338 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 @
0x02b338…02b4cc 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
0x02b4cc…02b660 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 , ( @
0x02b660…02b7f4 (0, 55) Dummy {f00=0x0022, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
[…0x7…]
0x02c300…02c494 (0, 56) Dummy {f00=0x001d, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , (
0x02c494…02c628 Dummy {f00=0x001d, 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
0x02c628…02c7bc Dummy {f00=0x001d, 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 ! ! . #
0x02c7bc…02c950 Dummy {f00=0x001d, 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
0x02c950…02cae4 Dummy {f00=0x001d, f01=0x2008, f02=»
0x02cae4…02cc78 Dummy {f00=0x001d, f01=0x0190, f02=»TIVE ^ & P* POSITION IN TIODM-TABLE TIODMF P* 6 PQCL EQU 0 @ PDMTAFU DATA DMCLOSE CLOSE R PQRV EQU 2 t " P DATA DMREVT READ VTOC RECORD PQIRN EQU 4 P IFT INDXAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6
0x02cc78…02ce0c Dummy {f00=0x001d, f01=0x018e, f02=»E v $ P DATA DMIRR INDEXED RANDOM RESAD P XIF 2 PQIRR EQU 12 > P IFF INDXAC=1 R , P DATA DMTERR,DMTERR,DMTERR,DMTERR,DMTERR h P XIF PQRD EQU 14 P DATA DMRDDE RANDOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE
0x02ce0c…02cfa0 Dummy {f00=0x001d, f01=0x0190, f02=» " P DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORDER CODE SEQ READ * PQSR EQU 24 X P DATA DMSQRE SEQUENTIAL READ j PQGCUR EQU 26 P DATA DMTERR GET CURRENCY P IFT INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX
0x02cfa0…02d134 (0, 57) 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 , (
0x02d134…02d2c8 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
0x02d2c8…02d45c 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
0x02d45c…02d5f0 Dummy {f00=0x0025, f01=0x2008, f02=»
0x02d5f0…02d784 Dummy {f00=0x0025, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
[…0x3…]
0x02dc40…02ddd4 (0, 58) 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
0x02ddd4…02df68 Dummy {f00=0x0027, f01=0x0002, f02=»
0x02df68…02e0fc Dummy {f00=0x0027, 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 DWKB41 P EXTRN DWTP41 P
0x02e0fc…02e290 Dummy {f00=0x0027, 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
0x02e290…02e424 Dummy {f00=0x0027, f01=0x40b2, f02=» P DATA /0231 P DATA DWTP41 $ P DATA /0132 D P DATA DWTP41 d PTTABE EQU * P* P END @ TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x02e424…02e5b8 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
0x02e5b8…02e74c 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
0x02e74c…02e8e0 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
0x02e8e0…02ea74 (0, 59) Dummy {f00=0x0027, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
[…0x7…]
0x02f580…02f714 (0, 60) 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 , (
0x02f714…02f8a8 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
0x02f8a8…02fa3c 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
0x02fa3c…02fbd0 Dummy {f00=0x0025, f01=0x2008, f02=»
0x02fbd0…02fd64 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:
0x02fd64…02fef8 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
0x02fef8…03008c 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
0x03008c…030220 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 , (
0x030220…0303b4 (0, 61) 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
0x0303b4…030548 Dummy {f00=0x0029, f01=0x0002, f02=» 0
0x030548…0306dc Dummy {f00=0x0029, 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 *
0x0306dc…030870 Dummy {f00=0x0029, 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
0x030870…030a04 Dummy {f00=0x0029, 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
0x030a04…030b98 Dummy {f00=0x0029, 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
0x030b98…030d2c 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
0x030d2c…030ec0 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
0x030ec0…031054 (0, 62) Dummy {f00=0x002a, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x031054…0311e8 Dummy {f00=0x002a, f01=0x0002, f02=» @
0x0311e8…03137c Dummy {f00=0x002a, 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*
0x03137c…031510 Dummy {f00=0x002a, 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*
0x031510…0316a4 Dummy {f00=0x002a, 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*
0x0316a4…031838 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
0x031838…0319cc 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
0x0319cc…031b60 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 %
0x031b60…031cf4 (0, 63) Dummy {f00=0x002b, 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
0x031cf4…031e88 Dummy {f00=0x002b, 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* +
0x031e88…03201c Dummy {f00=0x002b, 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
0x03201c…0321b0 Dummy {f00=0x002b, 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
0x0321b0…032344 Dummy {f00=0x002b, 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*
0x032344…0324d8 Dummy {f00=0x002b, 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**************
0x0324d8…03266c Dummy {f00=0x002b, 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
0x03266c…032800 Dummy {f00=0x002b, 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**********************
0x032800…032994 (0, 64) 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
0x032994…032b28 Dummy {f00=0x002c, f01=0x0002, f02=»
0x032b28…032cbc 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*
0x032cbc…032e50 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*
0x032e50…032fe4 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*
0x032fe4…033178 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,
0x033178…03330c 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
0x03330c…0334a0 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
0x0334a0…033634 (0, 65) 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
0x033634…0337c8 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
0x0337c8…03395c 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
0x03395c…033af0 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
0x033af0…033c84 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
0x033c84…033e18 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
0x033e18…033fac 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
0x033fac…034140 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**********
0x034140…0342d4 (0, 66) 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
0x0342d4…034468 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
0x034468…0345fc 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 @
0x0345fc…034790 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
0x034790…034924 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
0x034924…034ab8 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
0x034ab8…034c4c 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
0x034c4c…034de0 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
0x034de0…034f74 (0, 67) Dummy {f00=0x002e, 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
0x034f74…035108 Dummy {f00=0x002e, 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
0x035108…03529c Dummy {f00=0x002e, 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
0x03529c…035430 Dummy {f00=0x002e, 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
0x035430…0355c4 Dummy {f00=0x002e, 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
0x0355c4…035758 Dummy {f00=0x002e, 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
0x035758…0358ec Dummy {f00=0x002e, 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
0x0358ec…035a80 Dummy {f00=0x002e, 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 *
0x035a80…035c14 (0, 68) 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 , (
0x035c14…035da8 Dummy {f00=0x0031, f01=0x2008, f02=»
0x035da8…035f3c Dummy {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
[…0x5…]
0x036720…0368b4 (0, 69) Dummy {f00=0x0030, 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 , (
0x0368b4…036a48 Dummy {f00=0x0030, f01=0x2008, f02=»
0x036a48…036bdc Dummy {f00=0x0030, 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
0x036bdc…036d70 Dummy {f00=0x0030, f01=0x0190, f02=» INTRT1 ,INTRT2 INTRT2 8BLOK:S BLOK:S BLOCKE x x *CTABX CTABX ,DCTBUF DCTBUF ,DCRBUF DCRBUF ,
0x036d70…036f04 Dummy {f00=0x0030, 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
0x036f04…037098 Dummy {f00=0x0030, 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
0x037098…03722c Dummy {f00=0x0030, 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:
0x03722c…0373c0 Dummy {f00=0x0030, 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
0x0373c0…037554 (0, 70) Dummy {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x037554…0376e8 Dummy {f00=0x0031, f01=0x0002, f02=» 8
0x0376e8…03787c Dummy {f00=0x0031, 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*
0x03787c…037a10 Dummy {f00=0x0031, 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
0x037a10…037ba4 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
0x037ba4…037d38 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
0x037d38…037ecc Dummy {f00=0x0031, 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 *
0x037ecc…038060 Dummy {f00=0x0031, 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
0x038060…0381f4 (0, 71) Dummy {f00=0x0032, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x0381f4…038388 Dummy {f00=0x0032, f01=0x0002, f02=» H
0x038388…03851c Dummy {f00=0x0032, 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** P EXTRN
0x03851c…0386b0 Dummy {f00=0x0032, f01=0x0190, f02=»5-10 z P* P* P* P* * P* 4 P* > P* H P* R P* PCD:TAB DATA CDTABE-* f P DATA /0012 P DATA DWTC01 P DATA /0010 P DATA DWSI01 P
0x0386b0…038844 Dummy {f00=0x0032, f01=0x410e, f02=» P DATA /01F9 JOS P DATA DWFD01 P DATA /02FA JOS 4 P DATA DWFD01 L P DATA /03FB ` P DATA DWFD01 t PCDTABF EQU * P DATA 0,0,0,0,0,0,0,0 P DATA 0,0 P* PCDTABE EQU * P* P* P END @
0x038844…0389d8 Dummy {f00=0x0032, 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*
0x0389d8…038b6c 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
0x038b6c…038d00 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
0x038d00…038e94 (0, 72) Dummy {f00=0x0032, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x038e94…039028 Dummy {f00=0x0032, f01=0x0002, f02=» X
0x039028…0391bc Dummy {f00=0x0032, 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*
0x0391bc…039350 Dummy {f00=0x0032, 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*
0x039350…0394e4 Dummy {f00=0x0032, f01=0x2008, f02=» NT DRIC0X REL=8.1 DATE=78-03-03 A-TEST END :@ F
0x0394e4…039678 Dummy {f00=0x0032, 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 # (
0x039678…03980c Dummy {f00=0x0032, 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
0x03980c…0399a0 Dummy {f00=0x0032, 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
0x0399a0…039b34 (0, 73) Dummy {f00=0x0035, f01=0x0190, f02=»F(E) EXIT 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 ^ P RF(NE) IHKB20 NO! 6 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 6 P RF IHKB30 6 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POI
0x039b34…039cc8 Dummy {f00=0x0035, f01=0x000c, f02=»
0x039cc8…039e5c Dummy {f00=0x0035, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRGP01 = DRIVER GENERAL PRINTER P* P* P*
0x039e5c…039ff0 Dummy {f00=0x0035, f01=0x0190, f02=» GENERAL TERMINAL PRINTER x < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. " P* b 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO l 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE 6 P* GENERAL PRINTER AS AN ECHO DEVICE
0x039ff0…03a184 Dummy {f00=0x0035, f01=0x0190, f02=»VER CONSISTS OF FOLLOWING PARTS: P* ( & P* A C G P ACTIVATION PART 2 P* ( P* I H G P INTERRUPT HANDLER f P* ( P* R C G P RECOVERY ROUTINE P* & P* E C H O G P ECHO FUNCTIONS P* P*
0x03a184…03a318 Dummy {f00=0x0035, f01=0x018e, f02=» 06: STANDARD WRITE P* " P* NORMAL REGISTER USAGE , P* N " P* REGISTER A1 = RETURN CODE X ( P* A2 = OUTPUT CHARACTER ~ $ P* A3 = BUFFER INDEX $ P* A4 = WORK REGISTER " P*
0x03a318…03a4ac Dummy {f00=0x0035, f01=0x0190, f02=» P* P* SYSTEM ADAPTATION P* 0 : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR : ( P* (GPCLR) KEYS SHOULD BE DEFINED. x P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS 0 P* ADAPTED TO HANDLE FOLLOWI
0x03a4ac…03a640 Dummy {f00=0x0035, f01=0x0190, f02=»DE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER < * P** --SUPPRESION OF TRAILING BLANKS v @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE P* 6 P* THE CHARACTER COD
0x03a640…03a7d4 (0, 74) Dummy {f00=0x0037, 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
0x03a7d4…03a968 Dummy {f00=0x0037, 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
0x03a968…03aafc Dummy {f00=0x0037, 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 .
0x03aafc…03ac90 Dummy {f00=0x0037, 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*
0x03ac90…03ae24 Dummy {f00=0x0037, 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
0x03ae24…03afb8 Dummy {f00=0x0037, 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
0x03afb8…03b14c Dummy {f00=0x0037, 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*
0x03b14c…03b2e0 Dummy {f00=0x0037, 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
0x03b2e0…03b474 (0, 75) Dummy {f00=0x0039, 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,
0x03b474…03b608 Dummy {f00=0x0039, 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 ?
0x03b608…03b79c Dummy {f00=0x0039, 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
0x03b79c…03b930 Dummy {f00=0x0039, 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
0x03b930…03bac4 Dummy {f00=0x0039, 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
0x03bac4…03bc58 Dummy {f00=0x0039, 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
0x03bc58…03bdec Dummy {f00=0x0039, 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
0x03bdec…03bf80 Dummy {f00=0x0039, 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
0x03bf80…03c114 (0, 76) Dummy {f00=0x003c, f01=0x2008, f02=»
0x03c114…03c2a8 Dummy {f00=0x003c, f01=0x018e, f02=»P n , ( C "P T (R X # X > P RTNA15 > , ( c P P X X> P , ( _@ W ? T T , ( W u > > E D , ( E E S % ;DV " U "
0x03c2a8…03c43c Dummy {f00=0x003c, f01=0x0190, f02=» f LDREG . , ( @ Y Y Y Y _8 X XB LDREGF < J LDREGE @ ^ , ( 9@" Y X X X X ' r GETCHRC T * & S 4 B U B (" W C OUTLIN` r , ( q
0x03c43c…03c5d0 Dummy {f00=0x003c, f01=0x0190, f02=» P T (V W 8V T (P U , ( ( 8 ~ U Q P X H ( IHRET8N X , ( 5 U R " ] " Y j , ( + V P X P P _ ] CHLTON X , ( @ I W Q Y _4 @ T
0x03c5d0…03c764 Dummy {f00=0x003c, f01=0x0190, f02=» @ n & " T A % > > ECHEND 8 ECHOY L DWTWAT ^ , ( @ Y Y Y X 9BV X " p ECHRTN TENDIO , ( A Y X D V " @ X <
0x03c764…03c8f8 Dummy {f00=0x003c, f01=0x0190, f02=» P: P0 P, R H D !H T ( Tl WH R 5P2 9R. AT QT UP _P mWf s } ( T H D !$ W V P W P R R R T r 3 =R G ]P d H D ! T" V. T P T P P T P P T 7R =P> GP* MR [ r H D ! aP eP
0x03c8f8…03ca8c Dummy {f00=0x003c, f01=0x408e, f02=» H D ! P Q0 P R /V 7P AP KW _T qR4 yS P T W $ T V$ V P x@ R T r 3 =R G ]P d H D ! T" V. T P T P P T P P T 7R =P> GP* MR [ r H D ! aP eP
0x03ca8c…03cc20 Dummy {f00=0x003c, f01=0x2008, f02=»
0x03cc20…03cdb4 (0, 77) Dummy {f00=0x003f, 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*
0x03cdb4…03cf48 Dummy {f00=0x003f, 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
0x03cf48…03d0dc Dummy {f00=0x003f, 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,
0x03d0dc…03d270 Dummy {f00=0x003f, 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
0x03d270…03d404 Dummy {f00=0x003f, 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
0x03d404…03d598 Dummy {f00=0x003f, 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
0x03d598…03d72c Dummy {f00=0x003f, 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.
0x03d72c…03d8c0 Dummy {f00=0x003f, 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
0x03d8c0…03da54 (0, 78) Dummy {f00=0x0041, f01=0x0190, f02=» * - z * P* FD:RC - STORE EFF LEN, END:IO * . * P* * . F * P************************************* . t P* . P* INPUT: A3 RETURN CODE . P* . PFD:RC EQU * . P LDR A1,A3 . P* . " P
0x03da54…03dbe8 Dummy {f00=0x0041, f01=0x0190, f02=» . P* * / P* END:IO * / P* * / , P********** / > P* / P PEND:IO EQU * / Z P CF A15,TENDIO / n PT:DISP ABL TDISP / P* / P* / " P* ENTRY FROM RECOVERY ROUTINE / P* / 0 PEND:05 CM DWTECB,A6 RESET ECB ADDRESS IN
0x03dbe8…03dd7c Dummy {f00=0x0041, f01=0x0190, f02=» P******************** 0 P* * 0 P* RECOVERY ROUTINE * 0 < P* * 0 X P******************** 0 t P* 0 PFDON INH 0 P CF A15,SAVE8 0 P LDKL A6,DWFD01 DWT ADDRESS 0 P IFT INI=1 0 P LD A1,INIFLG 0
0x03dd7c…03df10 Dummy {f00=0x0041, f01=0x0190, f02=»T RETRY FLAG 0 ~ P XIF 1 P IFT IBM+INI=2 1 P LDR A1,A6 1 6 P ADK A1,DWTEOD 1 H P LDK A2,4 1 ^ PFDON02 EQU * 1 p P CMR A1 CLOSE DATA SET 1 P ADK A1,2 1 P SUK A2,1 1 P RB(P) FDON02 1 P XIF 1 PFDON05 EQU * 1 P IM DWTA2,A6
0x03df10…03e0a4 Dummy {f00=0x0041, f01=0x0190, f02=»* DWTST IS SET BUSY 1 P* 2 P LD A2,DWTST2,A6 2 ( P CWK A2,-1 2 @ P RF(NE) FDON08 ALREADY SAVED 2 R P LD A2,DWTST,A6 2 v P ST A2,DWTST2,A6 2 PFDON08 CM DWTST,A6 SET BUSY 2 P* 2 P* DELAY 2 SEC 2 P* 2 P LD A4,DWTTP,A6 2
0x03e0a4…03e238 Dummy {f00=0x0041, f01=0x0190, f02=» 2 | P ADR A4,A6 3 P LDR A1,A6 SAVE A6 3 P CF A15,SETIMP 3 4 P DATA FDON20,TIME 3 J P RB T:DISP 3 d P* 3 v P* TIME OUT ROUTINE 3 P* 3 PFDON20 LDR A6,A1 3 P CM DWTTP,A6 3 P LDK A5,DWTSB2 3 P ADR A5,A6 STACK BASE 3 P*
0x03e238…03e3cc Dummy {f00=0x0041, f01=0x0190, f02=»F(Z) FDON30 NOT LOCKED 3 P ST A2,DWTA3,A6 SAVE 4 P* 4 : P* PUT DRIVE NO IN CIO INSTR 4 D P* 4 h P SRN A2,A3 DRIVE NO IN A3 4 r * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR 4 P LDK A2,/14 LOCK 4 P CF A5,FD:REA 4 P LD A2,DWTA3,A6 DRIVE IN
0x03e3cc…03e560 Dummy {f00=0x0041, f01=0x0190, f02=»2,/0010 4 P RB(NE) FDON25 5 P* 5 & P* ANY REQUEST? 5 0 P* 5 H P* 5 R . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. 5 P* SET DWTST2 TO -1 5 " P LD A2,DWTST2,A6 SAVED STATUS 5 * P ST A2,DWTST,A6 PUT IN CUURENT STATUS 5 P LDKL A2,-
0x03e560…03e6f4 (0, 79) Dummy {f00=0x003c, f01=0x2008, f02=»
[…0x1…]
0x03e888…03ea1c Dummy {f00=0x003c, f01=0x0190, f02=»E IN CHANNEL STATUS O n P ABL DISEND P P EJECT P 0 P* P > P* P H P* C H L T 1 / C H L T 2 P R P* P t P* C H R T 1 / C H R T 2 P ~ P* P 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT P P* P 2 P* WHEN INTERRUPT FROM
0x03ea1c…03ebb0 Dummy {f00=0x003c, f01=0x0190, f02=»* LOGGS IT AND DETERMINES INPUT WORD TO GET P 0 P* DEVICE NUMBER , LINE NUMBER AND TYPE OF Q 6 P* INTERRUPT. Q j P* Q 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT Q P* Q . P* D = DEVICE ADDRESS C = CHARACTER Q P* Q 8 P
0x03ebb0…03ed44 Dummy {f00=0x003c, f01=0x0190, f02=»IME OUT D = 0 C = 0 Q 8 P* SER POWER ON D = 0 C = 3 R , 8 P* DRI DATA REQUEST IMMEDIATE SIGN BIT SET R h 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 R 8 P* ABC-L LRC ERROR IN BLOCK
0x03ed44…03eed8 Dummy {f00=0x003c, f01=0x0190, f02=» 8 P* DRD DATA REQUEST DELAYED D # 0 C = 0 S F P* LOCAL CHAR. MAY BE DIFFERENT FROM ZERO S @ 8 P* STD STATUS MESSAGE D # 0 C # 0 S 2 P* DIN DATA INPUT D # 0 S P EJECT S
0x03eed8…03f06c Dummy {f00=0x003c, f01=0x018e, f02=»LAST INTERRUPT S ~ P* T & P CF A15,SAVE8 SAVE REGISTERS A1-A8 T P LDK A7,2 INDICATE CHLT1 T J P RF CLT010 T j P* T | PCHLT2 EQU * T P* T P* T P* T P* T P* C H L T 2 T P* T P* INTERRUPT FROM CHLT2 T P* T
0x03f06c…03f200 Dummy {f00=0x003c, f01=0x0190, f02=» T v P RF CLT010 U P* U P XIF U $ P* U 0 P IFT LOCHAN=3 U : $ P ST P,INTSAV SAVE LAST INTERRUPT U P & P CF A15,SAVE8 SAVE REGISTERS A1-A8 U x P LDK A7,4 INDICATE CHLT2 U P RF CLT010 U P* U P XIF U P* U P IFT LOCHAN=4 U $
0x03f200…03f394 (0, 80) Dummy {f00=0x0048, f01=0x0190, f02=» E P LDR A2,A2 F PFDIX10 EQU * F P RF(Z) FDIX20 F . P SLL A3,1 F D P SUK A2,1 F V P RB FDIX10 F h PFDIX20 RTN A5 F z P EJECT F P IFF DAMA+IBM=0 F P****************** F P* * F P* VOLADR * F P*
0x03f394…03f528 Dummy {f00=0x0048, f01=0x0190, f02=» F n P* A3 ZERO G P* G $ PVOLADR LDK A2,DWTVO0 G . P ADR A2,A6 G J P LC A3,DWTOR,A6 DRIVE NO G P ANK A3,/3 G | PVOLA10 EQU * G P RF(Z) VOLA20 G P ADK A2,6 UPDATE ADDRESS G P SUK A3,1 G P RB VOLA10 G PVOLA20 RTN A
0x03f528…03f6bc Dummy {f00=0x0048, f01=0x0190, f02=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO G P* ASCII CODE H > . P* INPUT STRING ADDRESS IS BUF H ^ & P* INPUT: A7 NO OF CHARACTERS H , P* A4 OUTPUT STRING ADDRESS H P* OUTPUT: A1 CHANGED H
0x03f6bc…03f850 Dummy {f00=0x0048, f01=0x0190, f02=»4,A7 H PASC:10 SUK A7,1 I P RF(N) ASC:20 I $ P SUK A4,1 I : " P LC A1,BUF,A7 GET EBCDIC CHAR I L ( P LC A1,TASCII,A1 TRANSFORM TO ASCII I r 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER I P RB ASC:10 I PASC:20 EQU * I " P RF EBC:90 SET I
0x03f850…03f9e4 Dummy {f00=0x0048, f01=0x018e, f02=»FORMES A STRING FROM ASCII TO I v P* EBCDIC CODE J & 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER J H P* J & P* INPUT: A7 NO OF CHARACTERS J * P* A4 INPUT STRING ADDRESS J P* J P* OUTPUT: A1 CHANGE
0x03f9e4…03fb78 Dummy {f00=0x0048, f01=0x0190, f02=» J P LDK A1,0 K PEBC:10 SUK A7,1 K P RF(N) EBC:80 K 2 P SUK A4,1 K H P LCR A1,A4 GET ASCII CHAR. K Z P LC A1,TEBCDIC,A1 K | P SC A1,BUF,A7 K P RB EBC:10 K PEBC:80 EQU * K P LDKL A4,BUF K PEBC:90 EQU * K P CF A5,SETINH
0x03fb78…03fd0c Dummy {f00=0x0048, f01=0x0190, f02=»NSFORMS PHYSICAL SECTOR TO STANDARD K x , P* LOGICAL SECTOR (BINARY). L , < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) L * P* TT = TRACK, SS=SECTOR L P* L , P* INPUT: A4 ADDRESS TO PHYS. SECTOR L P* L
0x03fd0c…03fea0 Dummy {f00=0x0048, f01=0x0190, f02=»DR A3,A1 SAVE L P ADK A4,2 M P* M ( P* MULTIPLY BY 26 M 2 P* M L P SLL A3,5 *32 M V P LDR A2,A1 M l P SLL A2,2 M ~ P SUR A3,A2 *28 M P SLL A1,1 M P SUR A3,A1 *26 M P CF A5,DECBIN M P SUK A1,1 M P ADR A3,A1 M P
0x03fea0…040034 (0, 81) Dummy {f00=0x0049, 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
0x040034…0401c8 Dummy {f00=0x0049, 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
0x0401c8…04035c Dummy {f00=0x0049, 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
0x04035c…0404f0 Dummy {f00=0x0049, 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
0x0404f0…040684 Dummy {f00=0x0049, 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
0x040684…040818 Dummy {f00=0x0049, 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
0x040818…0409ac Dummy {f00=0x0049, 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
0x0409ac…040b40 Dummy {f00=0x0049, 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
0x040b40…040cd4 (0, 82) Dummy {f00=0x0049, 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**
0x040cd4…040e68 Dummy {f00=0x0049, 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****************************************
0x040e68…040ffc Dummy {f00=0x0049, 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
0x040ffc…041190 Dummy {f00=0x0049, 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
0x041190…041324 Dummy {f00=0x0049, 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
0x041324…0414b8 Dummy {f00=0x0049, 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
0x0414b8…04164c Dummy {f00=0x0049, 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
0x04164c…0417e0 Dummy {f00=0x0049, 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
0x0417e0…041974 (0, 83) Dummy {f00=0x004a, 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
0x041974…041b08 Dummy {f00=0x004a, 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* '
0x041b08…041c9c Dummy {f00=0x004a, 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*
0x041c9c…041e30 Dummy {f00=0x004a, 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
0x041e30…041fc4 Dummy {f00=0x004a, 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)
0x041fc4…042158 Dummy {f00=0x004a, 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
0x042158…0422ec Dummy {f00=0x004a, 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 ,
0x0422ec…042480 Dummy {f00=0x004a, 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
0x042480…042614 (0, 84) Dummy {f00=0x004a, 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* .
0x042614…0427a8 Dummy {f00=0x004a, 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 /
0x0427a8…04293c Dummy {f00=0x004a, 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
0x04293c…042ad0 Dummy {f00=0x004a, 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
0x042ad0…042c64 Dummy {f00=0x004a, 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
0x042c64…042df8 Dummy {f00=0x004a, 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
0x042df8…042f8c Dummy {f00=0x004a, 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
0x042f8c…043120 Dummy {f00=0x004a, 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
0x043120…0432b4 (0, 85) Dummy {f00=0x0043, f01=0x0190, f02=» n P AN A3,DWTA3,A6 P RF(Z) FD:080 TOSS LABEL P ORK A1,/20 SET BIT 10 (IBM) @ PFD:080 EQU * d P XIF x PFD:090 ABL END:IO P EJECT P* P******** P* * P* LOAD * P* * P******** P*
0x0432b4…043448 Dummy {f00=0x0043, f01=0x018e, f02=»IBM=2 P* P* CHECK IF TOSS/IBM LABEL P* : P LDK A2,0 BIO D P LDKL A4,BUF Z P LDK A3,38 NO OF BYTES n 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
0x043448…0435dc Dummy {f00=0x0043, f01=0x0190, f02=» P* P* READ VOLUME NAME P* . P LDK A3,8 LENGTH 8 P LDK A2,0 BIO P * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK f * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL P RF LOA:15 P XIF P IFT IBM=1 PLOA:10 LDK A3,10 LENGT
0x0435dc…043770 Dummy {f00=0x0043, f01=0x0190, f02=»RN CODE BIT 10 P ORS A1,DWTRCW,A6 P XIF 0 P IFF DAMA+IBM=0 < PLOA:15 EQU * T P LDKL A4,BUF BUFFER ADDRESS h P CF A5,FD:REA P CF A5,LD:RC P LDK A1,2 P XIF P IFT IBM=1 P LD A7,DWTRCW,A6 $ P ANK A7,/2
0x043770…043904 Dummy {f00=0x0043, f01=0x0190, f02=» EQU * P XIF P IFF DAMA+IBM=0 P* 2 P* GET DWT VOL NAME ADDRESS < P* ` P CF A5,VOLADR ADDRESS TO A2 j 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
0x043904…043a98 Dummy {f00=0x0043, f01=0x018e, f02=» P* DATA SET OPENING WANTED? P* * " P ANK A1,/2 A1: TOSS=6, IBM=8 4 P RF(NZ) LOA:70 TOSS LABEL Z P LC A1,DWTOR+1,A6 ORDER | P CCK A1,/2600 P RF(E) LOA:70 LOCK ORDER P* P* READ DATA SET LABEL P* P LD
0x043a98…043c2c Dummy {f00=0x0043, f01=0x0190, f02=» P ADK A2,25 P SLL A2,3 BIO P LDK A3,80 LENGTH , P LDKL A4,BUF F P CF A5,FD:REA Z P LDR A1,A3 RETURN CODE p 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
0x043c2c…043dc0 Dummy {f00=0x0043, f01=0x0190, f02=»AVE IN DWT P ADK A4,BOE BOE ADDRESS . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR 2 P LDK A1,DWTBOE d $ P CF A5,STDWT STORE BOE NO IN DWT z P SUK A3,1 CRN P LDK A1,DWTCRN P CF A5,STDWT P ADK A4,EOE-BOE EOE ADDRESS P C
0x043dc0…043f54 (0, 86) Dummy {f00=0x0044, f01=0x0190, f02=» ADK A3,1 CRN+1 % & P ST A3,ECBCW,A8 STORE CRN+1 IN ECB & P CWR A3,A7 & B P RF(NL) SQR:10 END OF DATA & T P CF A5,BIO:RE & v P LDKL A4,BUF BUFFER ADDRESS & 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 & ( P LD A4,ECBBA,A8 USER BUFFER ADDRES
0x043f54…0440e8 Dummy {f00=0x0044, f01=0x018e, f02=»SQW:10 UPDATE CRN & P* ' P* END OF DATA ' $ P* ' < $ PSQR:10 LDKL A1,/1000 RETURN CODE ' F P RF END:IO ' n P EJECT ' P* ' P******************* ' P* SEQUENTIAL WRITE * ' P******************* ' P* ' PSQWRIT EQU * '
0x0440e8…04427c Dummy {f00=0x0044, f01=0x0190, f02=» ' P LDK A1,DWTEOE ( & P CF A5,DSPAD EOE-NO ADDRESS TO A2 ( * P ST A7,ECBCW,A8 STORE EOD IN ECB C. W. ( H P CWR* A7,A2 ( v P RF(G) SQW:20 YES,EOE ( P CF A5,BIO ( P LDK A7,128 ( , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF ( P ORK A2,5
0x04427c…044410 Dummy {f00=0x0044, f01=0x0190, f02=» OPERABLE ( ~ * P IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT ) PSQW:15 RF FD:RC ) @ P* ) X P* ) b P* END OF EXTENT ) l $ PSQW:20 LDKL A1,/400 RETURN CODE ) P RF END:IO ) P EJECT ) P* ) P********** ) P* REWIND * ) P********** )
0x044410…0445a4 Dummy {f00=0x0044, f01=0x0190, f02=»D ADDRESS ) ~ P LDK A1,DWTBOE * P CF A5,DSPAD * ( P LDR* A4,A2 BOE * < P STR A4,A3 EOD = BOE * T P LDK A1,DWTCRN * p P CF A5,DSPAD * P SUK A4,1 BOE - 1 * P STR A4,A2 CRN = BOE -1 * P LDK A1,0 RETURN CODE * P RF END:IO * P XIF
0x0445a4…044738 Dummy {f00=0x0044, f01=0x0190, f02=»***************** * P* + P* + $ P* INPUT: A2 BIO CONTENTS + . 0 P* A3 NO OF BYTES TO BE TRANSFERED + R " P* A4 BUFFER ADDRESS + P* + PFD:WRI EQU * + P IFT CHAN=0 + P LDKL A1,/C000 WORDS,WRITE + P XIF +
0x044738…0448cc Dummy {f00=0x0044, f01=0x018e, f02=»N=1 + P LDK A1,1 , P ST A1,DWTRW,A6 READ MODE , P XIF , @ P IFT CHAN=0 , L P LDKL A1,/8000 WORDS READ , ` P XIF , PFD:800 EQU * , P IFT CHAN=0 , " P SRL A3,1 FROM BYTES TO WORDS , P ORR A3,A1 , PWER1 WER A3,MUXADR FIRST W
0x0448cc…044a60 Dummy {f00=0x0044, f01=0x0190, f02=» , d P* - P ST A4,DWTUB,A6 - P ADR A3,A4 - * " P ST A3,DWTUBE,A6 END ADDRESS+2 - < P XIF - b PFD:820 EQU * - n & P ST A5,DWTA5,A6 SAVE STACK POINTER - $ PFD:CIO CIO A2,1,CUADR CIO-START - ( P RF(3) FD:840 DEVICE ADDRESS UNKNOWN - P RF T:DI
0x044a60…044bf4 (0, 87) Dummy {f00=0x0045, f01=0x0190, f02=» E P LDR A2,A2 F PFDIX10 EQU * F P RF(Z) FDIX20 F . P SLL A3,1 F D P SUK A2,1 F V P RB FDIX10 F h PFDIX20 RTN A5 F z P EJECT F P IFF DAMA+IBM=0 F P****************** F P* * F P* VOLADR * F P*
0x044bf4…044d88 Dummy {f00=0x0045, f01=0x0190, f02=» F n P* A3 ZERO G P* G $ PVOLADR LDK A2,DWTVO0 G . P ADR A2,A6 G J P LC A3,DWTOR,A6 DRIVE NO G P ANK A3,/3 G | PVOLA10 EQU * G P RF(Z) VOLA20 G P ADK A2,6 UPDATE ADDRESS G P SUK A3,1 G P RB VOLA10 G PVOLA20 RTN A
0x044d88…044f1c Dummy {f00=0x0045, f01=0x0190, f02=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO G P* ASCII CODE H > . P* INPUT STRING ADDRESS IS BUF H ^ & P* INPUT: A7 NO OF CHARACTERS H , P* A4 OUTPUT STRING ADDRESS H P* OUTPUT: A1 CHANGED H
0x044f1c…0450b0 Dummy {f00=0x0045, f01=0x0190, f02=»4,A7 H PASC:10 SUK A7,1 I P RF(N) ASC:20 I $ P SUK A4,1 I : " P LC A1,BUF,A7 GET EBCDIC CHAR I L ( P LC A1,TASCII,A1 TRANSFORM TO ASCII I r 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER I P RB ASC:10 I PASC:20 EQU * I " P RF EBC:90 SET I
0x0450b0…045244 Dummy {f00=0x0045, f01=0x018e, f02=»FORMES A STRING FROM ASCII TO I v P* EBCDIC CODE J & 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER J H P* J & P* INPUT: A7 NO OF CHARACTERS J * P* A4 INPUT STRING ADDRESS J P* J P* OUTPUT: A1 CHANGE
0x045244…0453d8 Dummy {f00=0x0045, f01=0x0190, f02=» J P LDK A1,0 K PEBC:10 SUK A7,1 K P RF(N) EBC:80 K 2 P SUK A4,1 K H P LCR A1,A4 GET ASCII CHAR. K Z P LC A1,TEBCDIC,A1 K | P SC A1,BUF,A7 K P RB EBC:10 K PEBC:80 EQU * K P LDKL A4,BUF K PEBC:90 EQU * K P CF A5,SETINH
0x0453d8…04556c Dummy {f00=0x0045, f01=0x0190, f02=»NSFORMS PHYSICAL SECTOR TO STANDARD K x , P* LOGICAL SECTOR (BINARY). L , < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) L * P* TT = TRACK, SS=SECTOR L P* L , P* INPUT: A4 ADDRESS TO PHYS. SECTOR L P* L
0x04556c…045700 Dummy {f00=0x0045, f01=0x0190, f02=»DR A3,A1 SAVE L P ADK A4,2 M P* M ( P* MULTIPLY BY 26 M 2 P* M L P SLL A3,5 *32 M V P LDR A2,A1 M l P SLL A2,2 M ~ P SUR A3,A2 *28 M P SLL A1,1 M P SUR A3,A1 *26 M P CF A5,DECBIN M P SUK A1,1 M P ADR A3,A1 M P
0x045700…045894 (0, 88) Dummy {f00=0x0046, f01=0x40e0, f02=»QU *-DWFD01 END OF EXTENT ] P DATA 0,0,0,0 ^ " * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO ^ 8 P DATA 0,0,0,0 ^ f . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR ^ | P DATA 0,0,0,0 ^ P XIF ^ P END ^ @ ^
0x045894…045a28 Dummy {f00=0x0046, f01=0x2008, f02=» _ END @
0x045a28…045bbc Dummy {f00=0x0046, f01=0x0190, f02=» 2 P IDENT DRCC01 REL 8.1 78-04-21 870105040810 P : P* B : P***************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRCC01 = DRIVER CASSETTE CHANGER P* P* P*
0x045bbc…045d50 Dummy {f00=0x0046, f01=0x0190, f02=» DRVER HANDLES THREE CASSETTE CHANGERS CONNECTED 6 P* TO CPU VIA CHCC AND IOP ON MULTIPLEXED CHANNEL. 8 P* r 6 P* THE CHANGERS ARE OPERATED COMPLETELY INDEPENDENT | P* OF EACH OTHER. P* . P* DATA IS RECORDED IN BLOCKS FROM 2 TO 256 6
0x045d50…045ee4 Dummy {f00=0x0046, f01=0x018e, f02=»JECT P 2 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: P* J * P* A C T I V A T I O N R O U T I N E T P* & P* O R D E R P R O C E S S O R S P* & P* C O M M A N D H A N D L E R S P* ( P* I N T E R R U P T
0x045ee4…046078 Dummy {f00=0x0046, f01=0x0190, f02=» P* P* P* ORDERS TREATED: P* 6 P* CHANGER: @ P* R 0 P* /10 TEST STATUS SET IND /13 EJECT CASSETTE ( P* /11 INSERT CASSETTE /14 FEED TRAY 0 P* /12 RETURN CASSETTE /3E RESET STATUS FLAGS P* P* RECORDER:
0x046078…04620c Dummy {f00=0x0046, f01=0x0190, f02=»READ MATS v P* /3F RECOVER P* ( P EJECT 2 P @ P* H P* STATUS BITS: R P* h P* CHANGER RECORDER r P* & P* 0: REQUEST ERROR REQUEST ERROR " P* 1: CAS IN DISCH COMP LEADER & P* 2: CAS NOT IN TRAY BOT MISS
0x04620c…0463a0 Dummy {f00=0x0046, f01=0x0190, f02=» P* 6: WRITE PROTECTED P* 7: B-SIDE ( P* F 0 P* 8: ILL ORDER SEQUENCE ILL ORDER SEQUENCE P & P* 9: HARD ERR, TIME OUT TIME OUT P* 10: " P* 11: SEQUENCE ERROR P* $ P* 12: INCORRECT LEN
0x0463a0…046534 (0, 89) Dummy {f00=0x004b, 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
0x046534…0466c8 Dummy {f00=0x004b, 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
0x0466c8…04685c Dummy {f00=0x004b, 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
0x04685c…0469f0 Dummy {f00=0x004b, 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
0x0469f0…046b84 Dummy {f00=0x004b, 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
0x046b84…046d18 Dummy {f00=0x004b, 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
0x046d18…046eac Dummy {f00=0x004b, 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
0x046eac…047040 Dummy {f00=0x004b, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f : V - P Y _( Y M : ] =IR E
0x047040…0471d4 (0, 90) Dummy {f00=0x0021, 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
0x0471d4…047368 Dummy {f00=0x0021, 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
0x047368…0474fc Dummy {f00=0x0021, 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
0x0474fc…047690 Dummy {f00=0x0021, 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
0x047690…047824 Dummy {f00=0x0021, 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
0x047824…0479b8 Dummy {f00=0x0021, 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 [
0x0479b8…047b4c Dummy {f00=0x0021, 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
0x047b4c…047ce0 Dummy {f00=0x0021, 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 ]
0x047ce0…047e74 (0, 91) Dummy {f00=0x0026, 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
0x047e74…048008 Dummy {f00=0x0026, 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
0x048008…04819c Dummy {f00=0x0026, 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*
0x04819c…048330 Dummy {f00=0x0026, 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
0x048330…0484c4 Dummy {f00=0x0026, 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
0x0484c4…048658 Dummy {f00=0x0026, 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
0x048658…0487ec 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
0x0487ec…048980 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
0x048980…048b14 (0, 92) Dummy {f00=0x0026, 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
0x048b14…048ca8 Dummy {f00=0x0026, 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
0x048ca8…048e3c Dummy {f00=0x0026, 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 $
0x048e3c…048fd0 Dummy {f00=0x0026, 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
0x048fd0…049164 Dummy {f00=0x0026, 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 * "
0x049164…0492f8 Dummy {f00=0x0026, 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* #
0x0492f8…04948c Dummy {f00=0x0026, 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
0x04948c…049620 Dummy {f00=0x0026, 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
0x049620…0497b4 (0, 93) Dummy {f00=0x0027, 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*
0x0497b4…049948 Dummy {f00=0x0027, 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
0x049948…049adc Dummy {f00=0x0027, 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(
0x049adc…049c70 Dummy {f00=0x0027, 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
0x049c70…049e04 Dummy {f00=0x0027, 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
0x049e04…049f98 Dummy {f00=0x0027, 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
0x049f98…04a12c 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
0x04a12c…04a2c0 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
0x04a2c0…04a454 (0, 94) 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
0x04a454…04a5e8 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
0x04a5e8…04a77c 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,
0x04a77c…04a910 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
0x04a910…04aaa4 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
0x04aaa4…04ac38 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
0x04ac38…04adcc 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
0x04adcc…04af60 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
0x04af60…04b0f4 (0, 95) Dummy {f00=0x004f, f01=0x0190, f02=» n , ( @ M P Y # P 4T U , ( k P # P 4 4 P _r T > , ( _$ U _ ? 4 U 5 R P n , ( "P T R X # X > RTNA15 , ( @ P P P X X>
0x04b0f4…04b288 Dummy {f00=0x004f, f01=0x0004, f02=»
0x04b288…04b41c Dummy {f00=0x004f, 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
0x04b41c…04b5b0 Dummy {f00=0x004f, 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
0x04b5b0…04b744 Dummy {f00=0x004f, f01=0x0190, f02=» FDBDBR2 " DWTOR 4 , ( @ X P D V D D , ( "? P P &P E t FDBECB GTBKBU , ( 9$ V P ( ( DMTIOT *
0x04b744…04b8d8 Dummy {f00=0x004f, 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
0x04b8d8…04ba6c Dummy {f00=0x004f, 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 @
0x04ba6c…04bc00 Dummy {f00=0x004f, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : , ( > @ (@ / O L DWTTQ | QTJOB , ( @ B $P % 4 D F , ( 4 (@ B * P , ( 9
0x04bc00…04bd94 (0, 96) 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
0x04bd94…04bf28 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
0x04bf28…04c0bc 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
0x04c0bc…04c250 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
0x04c250…04c3e4 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
0x04c3e4…04c578 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
0x04c578…04c70c 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 <
0x04c70c…04c8a0 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
0x04c8a0…04ca34 (0, 97) 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
0x04ca34…04cbc8 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
0x04cbc8…04cd5c 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
0x04cd5c…04cef0 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
0x04cef0…04d084 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
0x04d084…04d218 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
0x04d218…04d3ac 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
0x04d3ac…04d540 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
0x04d540…04d6d4 (0, 98) 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
0x04d6d4…04d868 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
0x04d868…04d9fc 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
0x04d9fc…04db90 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
0x04db90…04dd24 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
0x04dd24…04deb8 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 [
0x04deb8…04e04c 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
0x04e04c…04e1e0 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 ]
0x04e1e0…04e374 (0, 99) Opaque[0x194]
0x04e374…04e508 # DirEnt {nam=»INIMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a10, f03=0x0000}
0x04e374…04e508 IdxSect {
0x04e374…04e508 f00 = 0x0050 // 0x4e374 @0x0
0x04e374…04e508 f01 = 0x0002 // 0x4e376 @0x2
0x04e374…04e508 gno = [ // 0x4e378 @0x4
0x04e374…04e508 [0x00]: C0x0050.0x2.0
0x04e374…04e508 ]
0x04e374…04e508 }
0x04e508…04e69c Dummy {f00=0x0050, 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
0x04e69c…04e830 Dummy {f00=0x0050, 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 0 PDM:TSK DATA DMTSKE-* P DATA TTABD2 P
0x04e830…04e9c4 Dummy {f00=0x0050, 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 @
0x04e9c4…04eb58 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
0x04eb58…04ecec 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
0x04ecec…04ee80 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
0x04ee80…04f014 (0, 100) Opaque[0x194]
0x04f014…04f1a8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x04f014…04f1a8 IdxSect {
0x04f014…04f1a8 f00 = 0x0004 // 0x4f014 @0x0
0x04f014…04f1a8 f01 = 0x0008 // 0x4f016 @0x2
0x04f014…04f1a8 gno = [ // 0x4f018 @0x4
0x04f014…04f1a8 [0x00]: C0x0004.0x3.0
0x04f014…04f1a8 [0x01]: C0x0005.0x0.0
0x04f014…04f1a8 [0x02]: C0x0005.0x1.0
0x04f014…04f1a8 [0x03]: C0x0005.0x2.0
0x04f014…04f1a8 ]
0x04f014…04f1a8 }
0x04f1a8…04f33c Dummy {f00=0x0004, 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*
0x04f33c…04f4d0 Dummy {f00=0x0004, 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
0x04f4d0…04f664 Dummy {f00=0x0004, 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
0x04f664…04f7f8 Dummy {f00=0x0004, 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. @
0x04f7f8…04f98c Dummy {f00=0x0004, 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
0x04f98c…04fb20 Dummy {f00=0x0004, 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
0x04fb20…04fcb4 (0, 101) 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
0x04fcb4…04fe48 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*************
0x04fe48…04ffdc 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*
0x04ffdc…050170 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
0x050170…050304 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
0x050304…050498 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*
0x050498…05062c 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
0x05062c…0507c0 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
0x0507c0…050954 (0, 102) 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
0x050954…050ae8 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
0x050ae8…050c7c 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
0x050c7c…050e10 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
0x050e10…050fa4 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
0x050fa4…051138 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
0x051138…0512cc 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
0x0512cc…051460 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
0x051460…0515f4 (0, 103) Dummy {f00=0x0005, 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
0x0515f4…051788 Dummy {f00=0x0005, f01=0x0008, f02=»
0x051788…05191c Dummy {f00=0x0005, 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
0x05191c…051ab0 Dummy {f00=0x0005, 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*
0x051ab0…051c44 Dummy {f00=0x0005, 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
0x051c44…051dd8 Dummy {f00=0x0005, 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
0x051dd8…051f6c Dummy {f00=0x0005, 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
0x051f6c…052100 Dummy {f00=0x0005, 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*
0x052100…052294 (0, 104) Opaque[0x194]
0x052294…052428 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x052294…052428 IdxSect {
0x052294…052428 f00 = 0x000c // 0x52294 @0x0
0x052294…052428 f01 = 0x0008 // 0x52296 @0x2
0x052294…052428 gno = [ // 0x52298 @0x4
0x052294…052428 [0x00]: C0x000c.0x1.0
0x052294…052428 [0x01]: C0x0045.0x2.0
0x052294…052428 [0x02]: C0x0045.0x3.0
0x052294…052428 [0x03]: C0x004b.0x3.0
0x052294…052428 ]
0x052294…052428 }
0x052428…0525bc 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
0x0525bc…052750 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*
0x052750…0528e4 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
0x0528e4…052a78 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
0x052a78…052c0c 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
0x052c0c…052da0 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*
0x052da0…052f34 (0, 105) Dummy {f00=0x0045, 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
0x052f34…0530c8 Dummy {f00=0x0045, 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
0x0530c8…05325c Dummy {f00=0x0045, 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
0x05325c…0533f0 Dummy {f00=0x0045, 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
0x0533f0…053584 Dummy {f00=0x0045, 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
0x053584…053718 Dummy {f00=0x0045, 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
0x053718…0538ac Dummy {f00=0x0045, 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
0x0538ac…053a40 Dummy {f00=0x0045, 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
0x053a40…053bd4 (0, 106) Dummy {f00=0x0045, 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
0x053bd4…053d68 Dummy {f00=0x0045, 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
0x053d68…053efc Dummy {f00=0x0045, 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
0x053efc…054090 Dummy {f00=0x0045, 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
0x054090…054224 Dummy {f00=0x0045, 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
0x054224…0543b8 Dummy {f00=0x0045, 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
0x0543b8…05454c Dummy {f00=0x0045, 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
0x05454c…0546e0 Dummy {f00=0x0045, 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
0x0546e0…054874 (0, 107) Dummy {f00=0x004b, 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
0x054874…054a08 Dummy {f00=0x004b, 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
0x054a08…054b9c Dummy {f00=0x004b, 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
0x054b9c…054d30 Dummy {f00=0x004b, 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
0x054d30…054ec4 Dummy {f00=0x004b, 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
0x054ec4…055058 Dummy {f00=0x004b, f01=0x0190, f02=» LABEL = FIX1 DATE = 810311 PACK NBR = 001 f : V - P Y _( Y M : ] =IR E
[…0x2…]
0x055380…055514 (0, 108) Opaque[0x194]
0x055514…0556a8 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e8, f03=0x0000}
0x055514…0556a8 IdxSect {
0x055514…0556a8 f00 = 0x0007 // 0x55514 @0x0
0x055514…0556a8 f01 = 0x0008 // 0x55516 @0x2
0x055514…0556a8 gno = [ // 0x55518 @0x4
0x055514…0556a8 [0x00]: C0x0007.0x1.0
0x055514…0556a8 [0x01]: C0x0007.0x2.0
0x055514…0556a8 [0x02]: C0x0007.0x3.0
0x055514…0556a8 [0x03]: C0x0008.0x0.0
0x055514…0556a8 ]
0x055514…0556a8 }
0x0556a8…05583c 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
0x05583c…0559d0 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
0x0559d0…055b64 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
0x055b64…055cf8 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
0x055cf8…055e8c 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
0x055e8c…056020 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
0x056020…0561b4 (0, 109) Dummy {f00=0x0007, 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
0x0561b4…056348 Dummy {f00=0x0007, 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
0x056348…0564dc Dummy {f00=0x0007, 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
0x0564dc…056670 Dummy {f00=0x0007, 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
0x056670…056804 Dummy {f00=0x0007, 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
0x056804…056998 Dummy {f00=0x0007, 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
0x056998…056b2c Dummy {f00=0x0007, 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)
0x056b2c…056cc0 Dummy {f00=0x0007, 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?
0x056cc0…056e54 (0, 110) Dummy {f00=0x0007, 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
0x056e54…056fe8 Dummy {f00=0x0007, 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 (
0x056fe8…05717c Dummy {f00=0x0007, 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)
0x05717c…057310 Dummy {f00=0x0007, 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
0x057310…0574a4 Dummy {f00=0x0007, 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
0x0574a4…057638 Dummy {f00=0x0007, 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
0x057638…0577cc Dummy {f00=0x0007, 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
0x0577cc…057960 Dummy {f00=0x0007, 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
0x057960…057af4 (0, 111) 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*
0x057af4…057c88 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
0x057c88…057e1c 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
0x057e1c…057fb0 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
0x057fb0…058144 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
0x058144…0582d8 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
0x0582d8…05846c 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
0x05846c…058600 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
0x058600…058794 (0, 112) Opaque[0x194]
0x058794…058928 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x058794…058928 IdxSect {
0x058794…058928 f00 = 0x0008 // 0x58794 @0x0
0x058794…058928 f01 = 0x000e // 0x58796 @0x2
0x058794…058928 gno = [ // 0x58798 @0x4
0x058794…058928 [0x00]: C0x0008.0x2.0
0x058794…058928 [0x01]: C0x0008.0x3.0
0x058794…058928 [0x02]: C0x0009.0x0.0
0x058794…058928 [0x03]: C0x0009.0x1.0
0x058794…058928 [0x04]: C0x0009.0x2.0
0x058794…058928 [0x05]: C0x0009.0x3.0
0x058794…058928 [0x06]: C0x000a.0x0.0
0x058794…058928 ]
0x058794…058928 }
0x058928…058abc Dummy {f00=0x0008, 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
0x058abc…058c50 Dummy {f00=0x0008, 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
0x058c50…058de4 Dummy {f00=0x0008, 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
0x058de4…058f78 Dummy {f00=0x0008, 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
0x058f78…05910c Dummy {f00=0x0008, 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 ,
0x05910c…0592a0 Dummy {f00=0x0008, 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
0x0592a0…059434 (0, 113) Dummy {f00=0x0008, 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
0x059434…0595c8 Dummy {f00=0x0008, 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
0x0595c8…05975c Dummy {f00=0x0008, 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
0x05975c…0598f0 Dummy {f00=0x0008, 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
0x0598f0…059a84 Dummy {f00=0x0008, 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*
0x059a84…059c18 Dummy {f00=0x0008, 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
0x059c18…059dac Dummy {f00=0x0008, 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
0x059dac…059f40 Dummy {f00=0x0008, 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
0x059f40…05a0d4 (0, 114) 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
0x05a0d4…05a268 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
0x05a268…05a3fc 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)
0x05a3fc…05a590 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
0x05a590…05a724 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
0x05a724…05a8b8 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
0x05a8b8…05aa4c 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
0x05aa4c…05abe0 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
0x05abe0…05ad74 (0, 115) 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
0x05ad74…05af08 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
0x05af08…05b09c 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
0x05b09c…05b230 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
0x05b230…05b3c4 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
0x05b3c4…05b558 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
0x05b558…05b6ec 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
0x05b6ec…05b880 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*
0x05b880…05ba14 (0, 116) Dummy {f00=0x0009, 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
0x05ba14…05bba8 Dummy {f00=0x0009, 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
0x05bba8…05bd3c Dummy {f00=0x0009, 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
0x05bd3c…05bed0 Dummy {f00=0x0009, 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
0x05bed0…05c064 Dummy {f00=0x0009, 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
0x05c064…05c1f8 Dummy {f00=0x0009, 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
0x05c1f8…05c38c Dummy {f00=0x0009, 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
0x05c38c…05c520 Dummy {f00=0x0009, 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,
0x05c520…05c6b4 (0, 117) Dummy {f00=0x0009, 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
0x05c6b4…05c848 Dummy {f00=0x0009, 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*
0x05c848…05c9dc Dummy {f00=0x0009, 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
0x05c9dc…05cb70 Dummy {f00=0x0009, 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
0x05cb70…05cd04 Dummy {f00=0x0009, 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
0x05cd04…05ce98 Dummy {f00=0x0009, 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
0x05ce98…05d02c Dummy {f00=0x0009, 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
0x05d02c…05d1c0 Dummy {f00=0x0009, 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,
0x05d1c0…05d354 (0, 118) Dummy {f00=0x000a, f01=0x4046, f02=»TR A1,0,SOP INDICATE TYPE OF HALT - P HLT . * P END . 6@ . B
0x05d354…05d4e8 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. "
0x05d4e8…05d67c 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 , (
0x05d67c…05d810 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 @ @
0x05d810…05d9a4 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
0x05d9a4…05db38 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
0x05db38…05dccc 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
0x05dccc…05de60 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
0x05de60…05dff4 (0, 119) Opaque[0x194]
0x05dff4…05e188 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0158, f03=0x0000}
0x05dff4…05e188 IdxSect {
0x05dff4…05e188 f00 = 0x000a // 0x5dff4 @0x0
0x05dff4…05e188 f01 = 0x0002 // 0x5dff6 @0x2
0x05dff4…05e188 gno = [ // 0x5dff8 @0x4
0x05dff4…05e188 [0x00]: C0x000a.0x3.0
0x05dff4…05e188 ]
0x05dff4…05e188 }
0x05e188…05e31c Dummy {f00=0x000a, 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
0x05e31c…05e4b0 Dummy {f00=0x000a, 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
0x05e4b0…05e644 Dummy {f00=0x000a, 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
0x05e644…05e7d8 Dummy {f00=0x000a, 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,
0x05e7d8…05e96c Dummy {f00=0x000a, 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*
0x05e96c…05eb00 Dummy {f00=0x000a, 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:
0x05eb00…05ec94 (0, 120) Opaque[0x194]
0x05ec94…05ee28 # DirEnt {nam=»INPRET«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0160, f03=0x0000}
0x05ec94…05ee28 IdxSect {
0x05ec94…05ee28 f00 = 0x000b // 0x5ec94 @0x0
0x05ec94…05ee28 f01 = 0x0004 // 0x5ec96 @0x2
0x05ec94…05ee28 gno = [ // 0x5ec98 @0x4
0x05ec94…05ee28 [0x00]: C0x000b.0x0.0
0x05ec94…05ee28 [0x01]: C0x000b.0x1.0
0x05ec94…05ee28 ]
0x05ec94…05ee28 }
0x05ee28…05efbc 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*
0x05efbc…05f150 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
0x05f150…05f2e4 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
0x05f2e4…05f478 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
0x05f478…05f60c 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
0x05f60c…05f7a0 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,/
0x05f7a0…05f934 (0, 121) 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
0x05f934…05fac8 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
0x05fac8…05fc5c 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
0x05fc5c…05fdf0 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
0x05fdf0…05ff84 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
0x05ff84…060118 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
0x060118…0602ac 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)
0x0602ac…060440 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?
0x060440…0605d4 (0, 122) Opaque[0x194]
0x0605d4…060768 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x0605d4…060768 IdxSect {
0x0605d4…060768 f00 = 0x0002 // 0x605d4 @0x0
0x0605d4…060768 f01 = 0x0002 // 0x605d6 @0x2
0x0605d4…060768 gno = [ // 0x605d8 @0x4
0x0605d4…060768 [0x00]: C0x0002.0x2.0
0x0605d4…060768 ]
0x0605d4…060768 }
0x060768…0608fc Dummy {f00=0x0002, f01=0x0190, 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
0x0608fc…060a90 Dummy {f00=0x0002, f01=0x4144, f02=» P* P EXTRN FDON LINE PRINTER 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION . $ PPFTAB DATA PFTABE-* TABLE LENGTH b P DATA TCDRON P DATA SOPR P DATA CHLTON P* P DATA FDON P DATA DMINIT P* PPFTABE EQU
0x060a90…060c24 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
0x060c24…060db8 Dummy {f00=0x0002, 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
0x060db8…060f4c Dummy {f00=0x0002, 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
0x060f4c…0610e0 Dummy {f00=0x0002, 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
0x0610e0…061274 (0, 123) Opaque[0x194]
0x061274…061408 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0870, f03=0x0000}
0x061274…061408 IdxSect {
0x061274…061408 f00 = 0x0043 // 0x61274 @0x0
0x061274…061408 f01 = 0x0002 // 0x61276 @0x2
0x061274…061408 gno = [ // 0x61278 @0x4
0x061274…061408 [0x00]: C0x0043.0x2.0
0x061274…061408 ]
0x061274…061408 }
0x061408…06159c Dummy {f00=0x0043, 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
0x06159c…061730 Dummy {f00=0x0043, 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
0x061730…0618c4 Dummy {f00=0x0043, 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
0x0618c4…061a58 Dummy {f00=0x0043, 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
0x061a58…061bec Dummy {f00=0x0043, 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
0x061bec…061d80 Dummy {f00=0x0043, 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
0x061d80…061f14 (0, 124) Opaque[0x194]
0x061f14…0620a8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x061f14…0620a8 IdxSect {
0x061f14…0620a8 f00 = 0x0044 // 0x61f14 @0x0
0x061f14…0620a8 f01 = 0x0002 // 0x61f16 @0x2
0x061f14…0620a8 gno = [ // 0x61f18 @0x4
0x061f14…0620a8 [0x00]: C0x0044.0x0.0
0x061f14…0620a8 ]
0x061f14…0620a8 }
0x0620a8…06223c 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
0x06223c…0623d0 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
0x0623d0…062564 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,
0x062564…0626f8 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
0x0626f8…06288c Dummy {f00=0x0044, 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
0x06288c…062a20 Dummy {f00=0x0044, 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 %
0x062a20…062bb4 (0, 125) Opaque[0x194]
0x062bb4…062d48 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01a8, f03=0x0000}
0x062bb4…062d48 IdxSect {
0x062bb4…062d48 f00 = 0x000d // 0x62bb4 @0x0
0x062bb4…062d48 f01 = 0x0002 // 0x62bb6 @0x2
0x062bb4…062d48 gno = [ // 0x62bb8 @0x4
0x062bb4…062d48 [0x00]: C0x000d.0x1.0
0x062bb4…062d48 ]
0x062bb4…062d48 }
0x062d48…062edc 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
0x062edc…063070 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,
0x063070…063204 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,
0x063204…063398 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
0x063398…06352c 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
0x06352c…0636c0 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
0x0636c0…063854 (0, 126) Opaque[0x194]
0x063854…0639e8 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x063854…0639e8 IdxSect {
0x063854…0639e8 f00 = 0x000d // 0x63854 @0x0
0x063854…0639e8 f01 = 0x0002 // 0x63856 @0x2
0x063854…0639e8 gno = [ // 0x63858 @0x4
0x063854…0639e8 [0x00]: C0x000d.0x3.0
0x063854…0639e8 ]
0x063854…0639e8 }
0x0639e8…063b7c Dummy {f00=0x000d, 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
0x063b7c…063d10 Dummy {f00=0x000d, 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
0x063d10…063ea4 Dummy {f00=0x000d, 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
0x063ea4…064038 Dummy {f00=0x000d, 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
0x064038…0641cc Dummy {f00=0x000d, 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
0x0641cc…064360 Dummy {f00=0x000d, 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
0x064360…0644f4 (0, 127) Opaque[0x194]
0x0644f4…064688 # DirEnt {nam=»DVTDN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x0644f4…064688 IdxSect {
0x0644f4…064688 f00 = 0x000e // 0x644f4 @0x0
0x0644f4…064688 f01 = 0x0002 // 0x644f6 @0x2
0x0644f4…064688 gno = [ // 0x644f8 @0x4
0x0644f4…064688 [0x00]: C0x000e.0x1.0
0x0644f4…064688 ]
0x0644f4…064688 }
0x064688…06481c 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
0x06481c…0649b0 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
0x0649b0…064b44 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*
0x064b44…064cd8 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 #
0x064cd8…064e6c 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
0x064e6c…065000 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 %
0x065000…065194 (0, 128) Opaque[0x194]
0x065194…065328 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x065194…065328 IdxSect {
0x065194…065328 f00 = 0x000e // 0x65194 @0x0
0x065194…065328 f01 = 0x0002 // 0x65196 @0x2
0x065194…065328 gno = [ // 0x65198 @0x4
0x065194…065328 [0x00]: C0x000e.0x3.0
0x065194…065328 ]
0x065194…065328 }
0x065328…0654bc Dummy {f00=0x000e, 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*
0x0654bc…065650 Dummy {f00=0x000e, 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
0x065650…0657e4 Dummy {f00=0x000e, 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
0x0657e4…065978 Dummy {f00=0x000e, 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
0x065978…065b0c Dummy {f00=0x000e, 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
0x065b0c…065ca0 Dummy {f00=0x000e, 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
0x065ca0…065e34 (0, 129) Opaque[0x194]
0x065e34…065fc8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x065e34…065fc8 IdxSect {
0x065e34…065fc8 f00 = 0x000f // 0x65e34 @0x0
0x065e34…065fc8 f01 = 0x0002 // 0x65e36 @0x2
0x065e34…065fc8 gno = [ // 0x65e38 @0x4
0x065e34…065fc8 [0x00]: C0x000f.0x1.0
0x065e34…065fc8 ]
0x065e34…065fc8 }
0x065fc8…06615c 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
0x06615c…0662f0 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
0x0662f0…066484 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
0x066484…066618 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
0x066618…0667ac 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
0x0667ac…066940 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
0x066940…066ad4 (0, 130) Opaque[0x194]
0x066ad4…066c68 # DirEnt {nam=»DVTCG «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01f8, f03=0x0000}
0x066ad4…066c68 IdxSect {
0x066ad4…066c68 f00 = 0x000f // 0x66ad4 @0x0
0x066ad4…066c68 f01 = 0x0002 // 0x66ad6 @0x2
0x066ad4…066c68 gno = [ // 0x66ad8 @0x4
0x066ad4…066c68 [0x00]: C0x000f.0x3.0
0x066ad4…066c68 ]
0x066ad4…066c68 }
0x066c68…066dfc Dummy {f00=0x000f, 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
0x066dfc…066f90 Dummy {f00=0x000f, 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
0x066f90…067124 Dummy {f00=0x000f, 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
0x067124…0672b8 Dummy {f00=0x000f, 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
0x0672b8…06744c Dummy {f00=0x000f, 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
0x06744c…0675e0 Dummy {f00=0x000f, 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
0x0675e0…067774 (0, 131) Opaque[0x194]
0x067774…067908 # DirEnt {nam=»DVTCD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0208, f03=0x0000}
0x067774…067908 IdxSect {
0x067774…067908 f00 = 0x0010 // 0x67774 @0x0
0x067774…067908 f01 = 0x0002 // 0x67776 @0x2
0x067774…067908 gno = [ // 0x67778 @0x4
0x067774…067908 [0x00]: C0x0010.0x1.0
0x067774…067908 ]
0x067774…067908 }
0x067908…067a9c 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*
0x067a9c…067c30 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
0x067c30…067dc4 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
0x067dc4…067f58 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*
0x067f58…0680ec 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
0x0680ec…068280 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
0x068280…068414 (0, 132) Opaque[0x194]
0x068414…0685a8 # DirEnt {nam=»DVTMS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0218, f03=0x0000}
0x068414…0685a8 IdxSect {
0x068414…0685a8 f00 = 0x0010 // 0x68414 @0x0
0x068414…0685a8 f01 = 0x0002 // 0x68416 @0x2
0x068414…0685a8 gno = [ // 0x68418 @0x4
0x068414…0685a8 [0x00]: C0x0010.0x3.0
0x068414…0685a8 ]
0x068414…0685a8 }
0x0685a8…06873c Dummy {f00=0x0010, 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 "
0x06873c…0688d0 Dummy {f00=0x0010, 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
0x0688d0…068a64 Dummy {f00=0x0010, 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
0x068a64…068bf8 Dummy {f00=0x0010, 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
0x068bf8…068d8c Dummy {f00=0x0010, f01=0x0190, f02=» W P W , ( s@@ X R ! Y # ! , TDISP , ( : R _ 4 ! l * & ! " T ! ! , ( 4 X # 4 Y # ! " " P ,$
0x068d8c…068f20 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 ,$
0x068f20…0690b4 (0, 133) Opaque[0x194]
0x0690b4…069248 # DirEnt {nam=»DVTOD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x0690b4…069248 IdxSect {
0x0690b4…069248 f00 = 0x0011 // 0x690b4 @0x0
0x0690b4…069248 f01 = 0x0002 // 0x690b6 @0x2
0x0690b4…069248 gno = [ // 0x690b8 @0x4
0x0690b4…069248 [0x00]: C0x0011.0x1.0
0x0690b4…069248 ]
0x0690b4…069248 }
0x069248…0693dc 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
0x0693dc…069570 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
0x069570…069704 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
0x069704…069898 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
0x069898…069a2c 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
0x069a2c…069bc0 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
0x069bc0…069d54 (0, 134) Opaque[0x194]
0x069d54…069ee8 # DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0238, f03=0x0000}
0x069d54…069ee8 IdxSect {
0x069d54…069ee8 f00 = 0x0011 // 0x69d54 @0x0
0x069d54…069ee8 f01 = 0x0002 // 0x69d56 @0x2
0x069d54…069ee8 gno = [ // 0x69d58 @0x4
0x069d54…069ee8 [0x00]: C0x0011.0x3.0
0x069d54…069ee8 ]
0x069d54…069ee8 }
0x069ee8…06a07c Dummy {f00=0x0011, 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
0x06a07c…06a210 Dummy {f00=0x0011, 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
0x06a210…06a3a4 Dummy {f00=0x0011, 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
0x06a3a4…06a538 Dummy {f00=0x0011, 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
0x06a538…06a6cc Dummy {f00=0x0011, 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
0x06a6cc…06a860 Dummy {f00=0x0011, 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 $
0x06a860…06a9f4 (0, 135) Opaque[0x194]
0x06a9f4…06ab88 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0248, f03=0x0000}
0x06a9f4…06ab88 IdxSect {
0x06a9f4…06ab88 f00 = 0x0012 // 0x6a9f4 @0x0
0x06a9f4…06ab88 f01 = 0x0002 // 0x6a9f6 @0x2
0x06a9f4…06ab88 gno = [ // 0x6a9f8 @0x4
0x06a9f4…06ab88 [0x00]: C0x0012.0x1.0
0x06a9f4…06ab88 ]
0x06a9f4…06ab88 }
0x06ab88…06ad1c 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
0x06ad1c…06aeb0 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
0x06aeb0…06b044 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
0x06b044…06b1d8 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
0x06b1d8…06b36c 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
0x06b36c…06b500 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*
0x06b500…06b694 (0, 136) Opaque[0x194]
0x06b694…06b828 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0258, f03=0x0000}
0x06b694…06b828 IdxSect {
0x06b694…06b828 f00 = 0x0012 // 0x6b694 @0x0
0x06b694…06b828 f01 = 0x0002 // 0x6b696 @0x2
0x06b694…06b828 gno = [ // 0x6b698 @0x4
0x06b694…06b828 [0x00]: C0x0012.0x3.0
0x06b694…06b828 ]
0x06b694…06b828 }
0x06b828…06b9bc Dummy {f00=0x0012, 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
0x06b9bc…06bb50 Dummy {f00=0x0012, 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
0x06bb50…06bce4 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
0x06bce4…06be78 Dummy {f00=0x0012, 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**
0x06be78…06c00c Dummy {f00=0x0012, 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
0x06c00c…06c1a0 Dummy {f00=0x0012, 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**************
0x06c1a0…06c334 (0, 137) Opaque[0x194]
0x06c334…06c4c8 # DirEnt {nam=»DW0701«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0268, f03=0x0000}
0x06c334…06c4c8 IdxSect {
0x06c334…06c4c8 f00 = 0x0013 // 0x6c334 @0x0
0x06c334…06c4c8 f01 = 0x0002 // 0x6c336 @0x2
0x06c334…06c4c8 gno = [ // 0x6c338 @0x4
0x06c334…06c4c8 [0x00]: C0x0013.0x1.0
0x06c334…06c4c8 ]
0x06c334…06c4c8 }
0x06c4c8…06c65c 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
0x06c65c…06c7f0 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
0x06c7f0…06c984 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
0x06c984…06cb18 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
0x06cb18…06ccac 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
0x06ccac…06ce40 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
0x06ce40…06cfd4 (0, 138) Opaque[0x194]
0x06cfd4…06d168 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0278, f03=0x0000}
0x06cfd4…06d168 IdxSect {
0x06cfd4…06d168 f00 = 0x0013 // 0x6cfd4 @0x0
0x06cfd4…06d168 f01 = 0x0002 // 0x6cfd6 @0x2
0x06cfd4…06d168 gno = [ // 0x6cfd8 @0x4
0x06cfd4…06d168 [0x00]: C0x0013.0x3.0
0x06cfd4…06d168 ]
0x06cfd4…06d168 }
0x06d168…06d2fc Dummy {f00=0x0013, 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
0x06d2fc…06d490 Dummy {f00=0x0013, 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
0x06d490…06d624 Dummy {f00=0x0013, 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
0x06d624…06d7b8 Dummy {f00=0x0013, 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
0x06d7b8…06d94c Dummy {f00=0x0013, 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
0x06d94c…06dae0 Dummy {f00=0x0013, 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
0x06dae0…06dc74 (0, 139) Opaque[0x194]
0x06dc74…06de08 # DirEnt {nam=»DW2201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x06dc74…06de08 IdxSect {
0x06dc74…06de08 f00 = 0x0014 // 0x6dc74 @0x0
0x06dc74…06de08 f01 = 0x0002 // 0x6dc76 @0x2
0x06dc74…06de08 gno = [ // 0x6dc78 @0x4
0x06dc74…06de08 [0x00]: C0x0014.0x1.0
0x06dc74…06de08 ]
0x06dc74…06de08 }
0x06de08…06df9c 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
0x06df9c…06e130 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
0x06e130…06e2c4 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
0x06e2c4…06e458 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
0x06e458…06e5ec 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
0x06e5ec…06e780 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
0x06e780…06e914 (0, 140) Opaque[0x194]
0x06e914…06eaa8 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x06e914…06eaa8 IdxSect {
0x06e914…06eaa8 f00 = 0x0014 // 0x6e914 @0x0
0x06e914…06eaa8 f01 = 0x0002 // 0x6e916 @0x2
0x06e914…06eaa8 gno = [ // 0x6e918 @0x4
0x06e914…06eaa8 [0x00]: C0x0014.0x3.0
0x06e914…06eaa8 ]
0x06e914…06eaa8 }
0x06eaa8…06ec3c Dummy {f00=0x0014, 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
0x06ec3c…06edd0 Dummy {f00=0x0014, 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
0x06edd0…06ef64 Dummy {f00=0x0014, 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 @
0x06ef64…06f0f8 Dummy {f00=0x0014, 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
0x06f0f8…06f28c Dummy {f00=0x0014, 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
0x06f28c…06f420 Dummy {f00=0x0014, 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****************
0x06f420…06f5b4 (0, 141) Opaque[0x194]
0x06f5b4…06f748 # DirEnt {nam=»BLOK:S«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x06f5b4…06f748 IdxSect {
0x06f5b4…06f748 f00 = 0x0016 // 0x6f5b4 @0x0
0x06f5b4…06f748 f01 = 0x0002 // 0x6f5b6 @0x2
0x06f5b4…06f748 gno = [ // 0x6f5b8 @0x4
0x06f5b4…06f748 [0x00]: C0x0016.0x1.0
0x06f5b4…06f748 ]
0x06f5b4…06f748 }
0x06f748…06f8dc Dummy {f00=0x0016, 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*
0x06f8dc…06fa70 Dummy {f00=0x0016, 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
0x06fa70…06fc04 Dummy {f00=0x0016, f01=0x40f2, 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 0,0,0 LAST BLOCK PBLOCKE EQU *-BLOK:S P* P* P END P*EOF @ P DATA *+6,0,0
0x06fc04…06fd98 Dummy {f00=0x0016, 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
0x06fd98…06ff2c 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
0x06ff2c…0700c0 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
0x0700c0…070254 (0, 142) Opaque[0x194]
0x070254…0703e8 # DirEnt {nam=»CD:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04c8, f03=0x0000}
0x070254…0703e8 IdxSect {
0x070254…0703e8 f00 = 0x0026 // 0x70254 @0x0
0x070254…0703e8 f01 = 0x0002 // 0x70256 @0x2
0x070254…0703e8 gno = [ // 0x70258 @0x4
0x070254…0703e8 [0x00]: C0x0026.0x1.0
0x070254…0703e8 ]
0x070254…0703e8 }
0x0703e8…07057c Dummy {f00=0x0026, 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** P EXTRN
0x07057c…070710 Dummy {f00=0x0026, f01=0x0190, f02=»* P* P* P* P* ( P* 2 P* < P* F PCD:TAB DATA CDTABE-* P P DATA /0012 l P DATA DWTC01 P DATA /0010 P DATA DWSI01 P DATA /0011
0x070710…0708a4 Dummy {f00=0x0026, f01=0x40d2, f02=»2FA JOS P DATA DWFD01 P DATA /03FB $ P DATA DWFD01 8 PCDTABF EQU * L P DATA 0,0,0,0,0,0,0,0 ` P DATA 0,0 ~ P* PCDTABE EQU * P* P* P END @ DATA DWSI01 P DATA /0011
0x0708a4…070a38 Dummy {f00=0x0026, 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*
0x070a38…070bcc 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*
0x070bcc…070d60 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
0x070d60…070ef4 (0, 143) Opaque[0x194]
0x070ef4…071088 # DirEnt {nam=»TC:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0410, f03=0x0000}
0x070ef4…071088 IdxSect {
0x070ef4…071088 f00 = 0x0020 // 0x70ef4 @0x0
0x070ef4…071088 f01 = 0x0002 // 0x70ef6 @0x2
0x070ef4…071088 gno = [ // 0x70ef8 @0x4
0x070ef4…071088 [0x00]: C0x0020.0x2.0
0x070ef4…071088 ]
0x070ef4…071088 }
0x071088…07121c Dummy {f00=0x0020, 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 TTABTB P*
0x07121c…0713b0 Dummy {f00=0x0020, f01=0x40a6, f02=»BD2 MONITOR TABLE PTCTABT EQU * P DATA TTABTC . P DATA TTABTB N PTTABE EQU * n P* P* P END @ Y P ENTRY TCTABT P EXTRN TTABTC P EXTRN TTABTB P*
0x0713b0…071544 Dummy {f00=0x0020, 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
0x071544…0716d8 Dummy {f00=0x0020, 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
0x0716d8…07186c Dummy {f00=0x0020, 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
0x07186c…071a00 Dummy {f00=0x0020, 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
0x071a00…071b94 (0, 144) Opaque[0x194]
0x071b94…071d28 # DirEnt {nam=»TTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02d8, f03=0x0000}
0x071b94…071d28 IdxSect {
0x071b94…071d28 f00 = 0x0016 // 0x71b94 @0x0
0x071b94…071d28 f01 = 0x0002 // 0x71b96 @0x2
0x071b94…071d28 gno = [ // 0x71b98 @0x4
0x071b94…071d28 [0x00]: C0x0016.0x3.0
0x071b94…071d28 ]
0x071b94…071d28 }
0x071d28…071ebc Dummy {f00=0x0016, 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
0x071ebc…072050 Dummy {f00=0x0016, 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
0x072050…0721e4 Dummy {f00=0x0016, 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
0x0721e4…072378 Dummy {f00=0x0016, 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
0x072378…07250c Dummy {f00=0x0016, 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
0x07250c…0726a0 Dummy {f00=0x0016, 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
0x0726a0…072834 (0, 145) Opaque[0x194]
0x072834…0729c8 # DirEnt {nam=»DC:TAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e8, f03=0x0000}
0x072834…0729c8 IdxSect {
0x072834…0729c8 f00 = 0x0017 // 0x72834 @0x0
0x072834…0729c8 f01 = 0x0002 // 0x72836 @0x2
0x072834…0729c8 gno = [ // 0x72838 @0x4
0x072834…0729c8 [0x00]: C0x0017.0x1.0
0x072834…0729c8 ]
0x072834…0729c8 }
0x0729c8…072b5c Dummy {f00=0x0017, 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
0x072b5c…072cf0 Dummy {f00=0x0017, 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
0x072cf0…072e84 Dummy {f00=0x0017, 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
0x072e84…073018 Dummy {f00=0x0017, f01=0x0190, f02=»RACTER x PAOD320 EQU * P LDK A4,/40 " $ P TM A4,A2 CHECK IF END CHARACTER 6 P RF(Z) AOD330 NO ^ 2 P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH IN ECB v P NGR A3,A3 NEGATE REGISTER P RF AOD340 PAOD330 EQU * " P CWK A2,/3F REJECTED
0x073018…0731ac Dummy {f00=0x0017, f01=0x0190, f02=» f PAOD331 EQU * " P CWK A2,/21 DIRECTION REJECTED P RF(NE) AOD332 NO B ( P LDK A1,/10 INDICATE DIRECTION ERROR P RF ENDIO PAOD332 EQU * $ P CWK A2,/1C QUADRATURE REJECTED? P RF(NE) AOD333 NO , P LDKL A1,/800 INDICATE Q
0x0731ac…073340 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
0x073340…0734d4 (0, 146) Opaque[0x194]
0x0734d4…073668 # DirEnt {nam=»INTLT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e8, f03=0x0000}
0x0734d4…073668 IdxSect {
0x0734d4…073668 f00 = 0x0027 // 0x734d4 @0x0
0x0734d4…073668 f01 = 0x0002 // 0x734d6 @0x2
0x0734d4…073668 gno = [ // 0x734d8 @0x4
0x0734d4…073668 [0x00]: C0x0027.0x1.0
0x0734d4…073668 ]
0x0734d4…073668 }
0x073668…0737fc Dummy {f00=0x0027, 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
0x0737fc…073990 Dummy {f00=0x0027, f01=0x0190, f02=»TABLE ENTRY P EXTRN DWKB01 P EXTRN DWTP01 4 P EXTRN DWDY01 T P EXTRN DWKB08 t P EXTRN DWDY08 P* P* TERMINAL PARAMETERS P* P* , P* RIGHT BYTE = 2 *
0x073990…073b24 Dummy {f00=0x0027, f01=0x018e, f02=» * TABLE ENTRY P DATA TN1 P DATA 0 4 P DATA 0 P P DATA 0 l P DATA 0 P DATA 0 P DATA 0 P DATA TN8 PTN1 EQU
0x073b24…073cb8 Dummy {f00=0x0027, f01=0x4120, f02=» PTN8 EQU * P DATA T8 P DATA DWKB08 < P DATA 0 P DATA 0 x P DATA 0 P DATA DWKB08+1 P DATA DWDY08 P* P* P*
0x073cb8…073e4c Dummy {f00=0x0027, 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*
0x073e4c…073fe0 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
0x073fe0…074174 (0, 147) Opaque[0x194]
0x074174…074308 # DirEnt {nam=»INTLT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0308, f03=0x0000}
0x074174…074308 IdxSect {
0x074174…074308 f00 = 0x0018 // 0x74174 @0x0
0x074174…074308 f01 = 0x0002 // 0x74176 @0x2
0x074174…074308 gno = [ // 0x74178 @0x4
0x074174…074308 [0x00]: C0x0018.0x1.0
0x074174…074308 ]
0x074174…074308 }
0x074308…07449c 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
0x07449c…074630 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
0x074630…0747c4 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*
0x0747c4…074958 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
0x074958…074aec 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 . @
0x074aec…074c80 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
0x074c80…074e14 (0, 148) Opaque[0x194]
0x074e14…074fa8 # DirEnt {nam=»INTLT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x074e14…074fa8 IdxSect {
0x074e14…074fa8 f00 = 0x0018 // 0x74e14 @0x0
0x074e14…074fa8 f01 = 0x0002 // 0x74e16 @0x2
0x074e14…074fa8 gno = [ // 0x74e18 @0x4
0x074e14…074fa8 [0x00]: C0x0018.0x3.0
0x074e14…074fa8 ]
0x074e14…074fa8 }
0x074fa8…07513c Dummy {f00=0x0018, 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
0x07513c…0752d0 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* PINTLT3 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED T
0x0752d0…075464 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*
0x075464…0755f8 Dummy {f00=0x0018, 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
0x0755f8…07578c Dummy {f00=0x0018, 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
0x07578c…075920 Dummy {f00=0x0018, 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 $
0x075920…075ab4 (0, 149) Opaque[0x194]
0x075ab4…075c48 # DirEnt {nam=»INTLT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0328, f03=0x0000}
0x075ab4…075c48 IdxSect {
0x075ab4…075c48 f00 = 0x0019 // 0x75ab4 @0x0
0x075ab4…075c48 f01 = 0x0002 // 0x75ab6 @0x2
0x075ab4…075c48 gno = [ // 0x75ab8 @0x4
0x075ab4…075c48 [0x00]: C0x0019.0x1.0
0x075ab4…075c48 ]
0x075ab4…075c48 }
0x075c48…075ddc 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
0x075ddc…075f70 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
0x075f70…076104 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*
0x076104…076298 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 ;
0x076298…07642c 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
0x07642c…0765c0 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 =
0x0765c0…076754 (0, 150) Opaque[0x194]
0x076754…0768e8 # DirEnt {nam=»INTRT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x076754…0768e8 IdxSect {
0x076754…0768e8 f00 = 0x0019 // 0x76754 @0x0
0x076754…0768e8 f01 = 0x0002 // 0x76756 @0x2
0x076754…0768e8 gno = [ // 0x76758 @0x4
0x076754…0768e8 [0x00]: C0x0019.0x3.0
0x076754…0768e8 ]
0x076754…0768e8 }
0x0768e8…076a7c Dummy {f00=0x0019, 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
0x076a7c…076c10 Dummy {f00=0x0019, 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
0x076c10…076da4 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*
0x076da4…076f38 Dummy {f00=0x0019, 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*
0x076f38…0770cc Dummy {f00=0x0019, 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*
0x0770cc…077260 Dummy {f00=0x0019, 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
0x077260…0773f4 (0, 151) Opaque[0x194]
0x0773f4…077588 # DirEnt {nam=»INTRT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0348, f03=0x0000}
0x0773f4…077588 IdxSect {
0x0773f4…077588 f00 = 0x001a // 0x773f4 @0x0
0x0773f4…077588 f01 = 0x0002 // 0x773f6 @0x2
0x0773f4…077588 gno = [ // 0x773f8 @0x4
0x0773f4…077588 [0x00]: C0x001a.0x1.0
0x0773f4…077588 ]
0x0773f4…077588 }
0x077588…07771c 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
0x07771c…0778b0 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
0x0778b0…077a44 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*
0x077a44…077bd8 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
0x077bd8…077d6c 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
0x077d6c…077f00 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*
0x077f00…078094 (0, 152) Opaque[0x194]
0x078094…078228 # DirEnt {nam=»INTRT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0358, f03=0x0000}
0x078094…078228 IdxSect {
0x078094…078228 f00 = 0x001a // 0x78094 @0x0
0x078094…078228 f01 = 0x0002 // 0x78096 @0x2
0x078094…078228 gno = [ // 0x78098 @0x4
0x078094…078228 [0x00]: C0x001a.0x3.0
0x078094…078228 ]
0x078094…078228 }
0x078228…0783bc Dummy {f00=0x001a, 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
0x0783bc…078550 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* PINTRT3 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED T
0x078550…0786e4 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*
0x0786e4…078878 Dummy {f00=0x001a, 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
0x078878…078a0c Dummy {f00=0x001a, 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
0x078a0c…078ba0 Dummy {f00=0x001a, 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
0x078ba0…078d34 (0, 153) Opaque[0x194]
0x078d34…078ec8 # DirEnt {nam=»INTRT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0368, f03=0x0000}
0x078d34…078ec8 IdxSect {
0x078d34…078ec8 f00 = 0x001b // 0x78d34 @0x0
0x078d34…078ec8 f01 = 0x0002 // 0x78d36 @0x2
0x078d34…078ec8 gno = [ // 0x78d38 @0x4
0x078d34…078ec8 [0x00]: C0x001b.0x1.0
0x078d34…078ec8 ]
0x078d34…078ec8 }
0x078ec8…07905c 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
0x07905c…0791f0 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
0x0791f0…079384 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*
0x079384…079518 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
0x079518…0796ac 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
0x0796ac…079840 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
0x079840…0799d4 (0, 154) Opaque[0x194]
0x0799d4…079b68 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x0799d4…079b68 IdxSect {
0x0799d4…079b68 f00 = 0x0004 // 0x799d4 @0x0
0x0799d4…079b68 f01 = 0x0002 // 0x799d6 @0x2
0x0799d4…079b68 gno = [ // 0x799d8 @0x4
0x0799d4…079b68 [0x00]: C0x0004.0x1.0
0x0799d4…079b68 ]
0x0799d4…079b68 }
0x079b68…079cfc Dummy {f00=0x0004, 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 ENTRY INTLT2
0x079cfc…079e90 Dummy {f00=0x0004, f01=0x018e, f02=» P EXTRN TC:TAB,CD:TAB,BLOK:S P* , P* 6 P* @ P* J P* T P* ^ P* h P* r P* | P* P* PMONTAB EQU * PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S PINTLT2 DATA
0x079e90…07a024 Dummy {f00=0x0004, f01=0x4040, f02=» P* P* P* P* & P END 0@ <* @ P* J P* T P* ^ P* h P* r P* | P* P* PMONTAB EQU * PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S PINTLT2 DATA
0x07a024…07a1b8 Dummy {f00=0x0004, 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=0x0004, 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
0x07a34c…07a4e0 Dummy {f00=0x0004, 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
0x07a4e0…07a674 (0, 155) Opaque[0x194]
0x07a674…07a808 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x07a674…07a808 IdxSect {
0x07a674…07a808 f00 = 0x0006 // 0x7a674 @0x0
0x07a674…07a808 f01 = 0x000c // 0x7a676 @0x2
0x07a674…07a808 gno = [ // 0x7a678 @0x4
0x07a674…07a808 [0x00]: C0x0006.0x0.0
0x07a674…07a808 [0x01]: C0x0006.0x1.0
0x07a674…07a808 [0x02]: C0x0006.0x2.0
0x07a674…07a808 [0x03]: C0x0006.0x3.0
0x07a674…07a808 [0x04]: C0x004c.0x0.0
0x07a674…07a808 [0x05]: C0x004c.0x1.0
0x07a674…07a808 ]
0x07a674…07a808 }
0x07a808…07a99c 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
0x07a99c…07ab30 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
0x07ab30…07acc4 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*
0x07acc4…07ae58 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*
0x07ae58…07afec 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
0x07afec…07b180 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*
0x07b180…07b314 (0, 156) 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
0x07b314…07b4a8 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
0x07b4a8…07b63c 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
0x07b63c…07b7d0 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
0x07b7d0…07b964 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
0x07b964…07baf8 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
0x07baf8…07bc8c 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
0x07bc8c…07be20 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
0x07be20…07bfb4 (0, 157) Dummy {f00=0x0006, 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
0x07bfb4…07c148 Dummy {f00=0x0006, 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
0x07c148…07c2dc Dummy {f00=0x0006, 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
0x07c2dc…07c470 Dummy {f00=0x0006, 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
0x07c470…07c604 Dummy {f00=0x0006, 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*
0x07c604…07c798 Dummy {f00=0x0006, 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
0x07c798…07c92c Dummy {f00=0x0006, 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
0x07c92c…07cac0 Dummy {f00=0x0006, 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
0x07cac0…07cc54 (0, 158) Dummy {f00=0x0006, 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
0x07cc54…07cde8 Dummy {f00=0x0006, 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
0x07cde8…07cf7c Dummy {f00=0x0006, 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
0x07cf7c…07d110 Dummy {f00=0x0006, 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
0x07d110…07d2a4 Dummy {f00=0x0006, 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*
0x07d2a4…07d438 Dummy {f00=0x0006, 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
0x07d438…07d5cc Dummy {f00=0x0006, 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
0x07d5cc…07d760 Dummy {f00=0x0006, 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
0x07d760…07d8f4 (0, 159) Dummy {f00=0x004c, 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 *
0x07d8f4…07da88 Dummy {f00=0x004c, 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
0x07da88…07dc1c Dummy {f00=0x004c, 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*
0x07dc1c…07ddb0 Dummy {f00=0x004c, 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
0x07ddb0…07df44 Dummy {f00=0x004c, 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
0x07df44…07e0d8 Dummy {f00=0x004c, 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************
0x07e0d8…07e26c Dummy {f00=0x004c, 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************
0x07e26c…07e400 Dummy {f00=0x004c, f01=0x2008, f02=» %
0x07e400…07e594 (0, 160) Dummy {f00=0x004c, f01=0x0190, f02=» * P ANK A3,/2 FIRST OR SECOND TERMINAL ? ^ P LDR A7,A5 ^ 2 P ADR A7,A3 ^ D & P LD A3,CWTRST,A5 LOOP TEST MODE ? ^ V P ABL(N) CLT170 YES ^ & PCLT018 LDK A1,0 RESET RETURN CODE ^ ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? ^ P RF(N) CLT050 ^ $ P A
0x07e594…07e728 Dummy {f00=0x004c, f01=0x0190, f02=»OF CONTROL CHARACTER ^ | P* _ P LDR A3,A2 _ & . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER _ 8 P RF(E) CLT030 OER _ j P SUK A3,7 _ P RF(E) CLT050 ACK _ P ADK A3,2 _ P ABL(E) CLT080 NAK _ P ADK A3,2 _ P ABL(E) CLT100 POWER ON _
0x07e728…07e8bc Dummy {f00=0x004c, f01=0x0190, f02=» P RF(E) EXIIT NO ` P XRK A4,/80 YES, RESET BIT ` P SC A4,LRCACK,A7 AND STORE ` > " P LD A6,LRCDWT,A7 LRC-DEVICE ? ` ` P RF(E) EXIIT ` P ANK A4,/7F ` P RF(Z) CLT046 YES ` * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER ` ( P LDK A4,1 RESET BL
0x07e8bc…07ea50 Dummy {f00=0x004c, f01=0x018e, f02=» ` , P IM CWTADD+2,A5 UPDATE ERROR ACKUMULATOR a P XIF a 8 P* a D P SUK A3,4 VRC-ERROR ? a N P RF(E) CLT042 YES a l P LDK A4,1 a P SUK A3,2 a P RF(E) CLT033 a P ADK A3,4 a P RF(E) CLT033 a P EJECT a P* a 0 P* RES
0x07ea50…07ebe4 Dummy {f00=0x004c, f01=0x018e, f02=» a f P* DEVICE DRIVER. b PCLT030 LDR A7,A7 REMOTE ? b $ P RF(N) CLTQUE NO b F P LD A6,LRCDWT,A7 b ^ P SUR* A6,A5 LRC-DEVICE ? b v P RF(NE) CLTQUE b * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER b P LDK A4,1 b 0 P ANS A4,CWTBLK,A5 RESET BLOC
0x07ebe4…07ed78 Dummy {f00=0x004c, f01=0x0190, f02=» b & P ANK A2,/30 ECHO AND RECOVERY BIT c P RF(NE) CLT045 c 2 , P ORK A3,/10 INDICATE RECOVERY TRIAL DONE c H P SC A3,DWTST,A6 STORE c x PCLT032 LDK A4,0 c 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE c P RF CPO025 c P EJECT c P* c
0x07ed78…07ef0c Dummy {f00=0x004c, f01=0x0190, f02=»* IF OUTPUT TO PRINTERS WITH LRC-CONTROL SAME c P* PROCEDURE AS FOR ABC+. d 8 P* d & PCLT042 LDR* A4,A6 BLOCK SENDING ? d f P RB(N) CLT031 d PCLT043 ABL CLT107 d P EJECT d P* d P* POWER ON d P* d 8 P* RECOVERY RO
0x07ef0c…07f0a0 Dummy {f00=0x004c, f01=0x0190, f02=» d t P* e & P* ON EXIT TO RECOVERY ROUTINE: e P* e < P* A5 = STACKBASE e F P* A6 = DWT-ADDRESS e b P* e PCHPOWO EQU * e , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE e . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER e P LDR A7,
0x07f0a0…07f234 (0, 161) Opaque[0x194]
0x07f234…07f3c8 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03a8, f03=0x0000}
0x07f234…07f3c8 IdxSect {
0x07f234…07f3c8 f00 = 0x001d // 0x7f234 @0x0
0x07f234…07f3c8 f01 = 0x0022 // 0x7f236 @0x2
0x07f234…07f3c8 gno = [ // 0x7f238 @0x4
0x07f234…07f3c8 [0x00]: C0x001d.0x1.0
0x07f234…07f3c8 [0x01]: C0x001d.0x2.0
0x07f234…07f3c8 [0x02]: C0x0028.0x0.0
0x07f234…07f3c8 [0x03]: C0x0028.0x1.0
0x07f234…07f3c8 [0x04]: C0x0028.0x2.0
0x07f234…07f3c8 [0x05]: C0x0028.0x3.0
0x07f234…07f3c8 [0x06]: C0x004c.0x2.0
0x07f234…07f3c8 [0x07]: C0x004c.0x3.0
0x07f234…07f3c8 [0x08]: C0x004d.0x0.0
0x07f234…07f3c8 [0x09]: C0x004d.0x1.0
0x07f234…07f3c8 [0x0a]: C0x004d.0x2.0
0x07f234…07f3c8 [0x0b]: C0x004d.0x3.0
0x07f234…07f3c8 [0x0c]: C0x004e.0x0.0
0x07f234…07f3c8 [0x0d]: C0x004e.0x1.0
0x07f234…07f3c8 [0x0e]: C0x004e.0x2.0
0x07f234…07f3c8 [0x0f]: C0x004e.0x3.0
0x07f234…07f3c8 [0x10]: C0x004f.0x0.0
0x07f234…07f3c8 ]
0x07f234…07f3c8 }
0x07f3c8…07f55c 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
0x07f55c…07f6f0 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
0x07f6f0…07f884 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
0x07f884…07fa18 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*
0x07fa18…07fbac 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*
0x07fbac…07fd40 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
0x07fd40…07fed4 (0, 162) Dummy {f00=0x001d, 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
0x07fed4…080068 Dummy {f00=0x001d, 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
0x080068…0801fc Dummy {f00=0x001d, 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****************
0x0801fc…080390 Dummy {f00=0x001d, 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
0x080390…080524 Dummy {f00=0x001d, 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
0x080524…0806b8 Dummy {f00=0x001d, 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
0x0806b8…08084c Dummy {f00=0x001d, 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
0x08084c…0809e0 Dummy {f00=0x001d, 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
0x0809e0…080b74 (0, 163) 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
0x080b74…080d08 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
0x080d08…080e9c 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
0x080e9c…081030 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
0x081030…0811c4 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
0x0811c4…081358 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
0x081358…0814ec 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
0x0814ec…081680 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
0x081680…081814 (0, 164) 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
0x081814…0819a8 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
0x0819a8…081b3c 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************
0x081b3c…081cd0 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
0x081cd0…081e64 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
0x081e64…081ff8 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*
0x081ff8…08218c 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
0x08218c…082320 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
0x082320…0824b4 (0, 165) Dummy {f00=0x0028, 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(
0x0824b4…082648 Dummy {f00=0x0028, 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*
0x082648…0827dc Dummy {f00=0x0028, 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
0x0827dc…082970 Dummy {f00=0x0028, 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
0x082970…082b04 Dummy {f00=0x0028, 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
0x082b04…082c98 Dummy {f00=0x0028, 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
0x082c98…082e2c Dummy {f00=0x0028, 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,
0x082e2c…082fc0 Dummy {f00=0x0028, 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
0x082fc0…083154 (0, 166) Dummy {f00=0x0028, 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 & $
0x083154…0832e8 Dummy {f00=0x0028, 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,
0x0832e8…08347c Dummy {f00=0x0028, 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 (
0x08347c…083610 Dummy {f00=0x0028, 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
0x083610…0837a4 Dummy {f00=0x0028, 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
0x0837a4…083938 Dummy {f00=0x0028, 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
0x083938…083acc Dummy {f00=0x0028, 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
0x083acc…083c60 Dummy {f00=0x0028, 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
0x083c60…083df4 (0, 167) Dummy {f00=0x004c, 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
0x083df4…083f88 Dummy {f00=0x004c, 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 /
0x083f88…08411c Dummy {f00=0x004c, 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
0x08411c…0842b0 Dummy {f00=0x004c, 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
0x0842b0…084444 Dummy {f00=0x004c, 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
0x084444…0845d8 Dummy {f00=0x004c, 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
0x0845d8…08476c Dummy {f00=0x004c, 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
0x08476c…084900 Dummy {f00=0x004c, 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
0x084900…084a94 (0, 168) Dummy {f00=0x004c, 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
0x084a94…084c28 Dummy {f00=0x004c, 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
0x084c28…084dbc Dummy {f00=0x004c, 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
0x084dbc…084f50 Dummy {f00=0x004c, 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
0x084f50…0850e4 Dummy {f00=0x004c, 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
0x0850e4…085278 Dummy {f00=0x004c, 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
0x085278…08540c Dummy {f00=0x004c, 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 <
0x08540c…0855a0 Dummy {f00=0x004c, 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
0x0855a0…085734 (0, 169) Dummy {f00=0x004d, 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* >
0x085734…0858c8 Dummy {f00=0x004d, 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
0x0858c8…085a5c Dummy {f00=0x004d, 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
0x085a5c…085bf0 Dummy {f00=0x004d, 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
0x085bf0…085d84 Dummy {f00=0x004d, 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
0x085d84…085f18 Dummy {f00=0x004d, 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
0x085f18…0860ac Dummy {f00=0x004d, 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
0x0860ac…086240 Dummy {f00=0x004d, 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
0x086240…0863d4 (0, 170) Dummy {f00=0x004d, 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
0x0863d4…086568 Dummy {f00=0x004d, 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
0x086568…0866fc Dummy {f00=0x004d, 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
0x0866fc…086890 Dummy {f00=0x004d, 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
0x086890…086a24 Dummy {f00=0x004d, 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
0x086a24…086bb8 Dummy {f00=0x004d, 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
0x086bb8…086d4c Dummy {f00=0x004d, 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
0x086d4c…086ee0 Dummy {f00=0x004d, 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
0x086ee0…087074 (0, 171) Dummy {f00=0x004d, 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
0x087074…087208 Dummy {f00=0x004d, 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*
0x087208…08739c Dummy {f00=0x004d, 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
0x08739c…087530 Dummy {f00=0x004d, 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
0x087530…0876c4 Dummy {f00=0x004d, 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******************
0x0876c4…087858 Dummy {f00=0x004d, 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
0x087858…0879ec Dummy {f00=0x004d, 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
0x0879ec…087b80 Dummy {f00=0x004d, 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
0x087b80…087d14 (0, 172) Dummy {f00=0x004d, 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
0x087d14…087ea8 Dummy {f00=0x004d, 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
0x087ea8…08803c Dummy {f00=0x004d, 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
0x08803c…0881d0 Dummy {f00=0x004d, 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
0x0881d0…088364 Dummy {f00=0x004d, 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
0x088364…0884f8 Dummy {f00=0x004d, 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 [
0x0884f8…08868c Dummy {f00=0x004d, 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
0x08868c…088820 Dummy {f00=0x004d, 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 ]
0x088820…0889b4 (0, 173) Dummy {f00=0x004e, 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,
0x0889b4…088b48 Dummy {f00=0x004e, 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
0x088b48…088cdc Dummy {f00=0x004e, 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
0x088cdc…088e70 Dummy {f00=0x004e, 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
0x088e70…089004 Dummy {f00=0x004e, 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
0x089004…089198 Dummy {f00=0x004e, 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
0x089198…08932c Dummy {f00=0x004e, 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
0x08932c…0894c0 Dummy {f00=0x004e, 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
0x0894c0…089654 (0, 174) Dummy {f00=0x004e, 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
0x089654…0897e8 Dummy {f00=0x004e, 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
0x0897e8…08997c Dummy {f00=0x004e, 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
0x08997c…089b10 Dummy {f00=0x004e, 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
0x089b10…089ca4 Dummy {f00=0x004e, 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
0x089ca4…089e38 Dummy {f00=0x004e, 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
0x089e38…089fcc Dummy {f00=0x004e, 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
0x089fcc…08a160 Dummy {f00=0x004e, 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
0x08a160…08a2f4 (0, 175) Dummy {f00=0x004e, 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,
0x08a2f4…08a488 Dummy {f00=0x004e, 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
0x08a488…08a61c Dummy {f00=0x004e, 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
0x08a61c…08a7b0 Dummy {f00=0x004e, 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
0x08a7b0…08a944 Dummy {f00=0x004e, 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
0x08a944…08aad8 Dummy {f00=0x004e, 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
0x08aad8…08ac6c Dummy {f00=0x004e, 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
0x08ac6c…08ae00 Dummy {f00=0x004e, 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
0x08ae00…08af94 (0, 176) Dummy {f00=0x004e, 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
0x08af94…08b128 Dummy {f00=0x004e, 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
0x08b128…08b2bc Dummy {f00=0x004e, 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
0x08b2bc…08b450 Dummy {f00=0x004e, 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
0x08b450…08b5e4 Dummy {f00=0x004e, 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,
0x08b5e4…08b778 Dummy {f00=0x004e, 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* {
0x08b778…08b90c Dummy {f00=0x004e, 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 |
0x08b90c…08baa0 Dummy {f00=0x004e, 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,
0x08baa0…08bc34 (0, 177) Dummy {f00=0x004f, 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
0x08bc34…08bdc8 Dummy {f00=0x004f, 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
0x08bdc8…08bf5c Dummy {f00=0x004f, 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
0x08bf5c…08c0f0 Dummy {f00=0x004f, 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
0x08c0f0…08c284 Dummy {f00=0x004f, 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* +
0x08c284…08c418 Dummy {f00=0x004f, 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************
0x08c418…08c5ac Dummy {f00=0x004f, 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************
0x08c5ac…08c740 Dummy {f00=0x004f, f01=0x2008, f02=» %
0x08c740…08c8d4 (0, 178) Opaque[0x194]
0x08c8d4…08ca68 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0460, f03=0x0000}
0x08c8d4…08ca68 IdxSect {
0x08c8d4…08ca68 f00 = 0x0023 // 0x8c8d4 @0x0
0x08c8d4…08ca68 f01 = 0x0004 // 0x8c8d6 @0x2
0x08c8d4…08ca68 gno = [ // 0x8c8d8 @0x4
0x08c8d4…08ca68 [0x00]: C0x0023.0x0.0
0x08c8d4…08ca68 [0x01]: C0x0023.0x1.0
0x08c8d4…08ca68 ]
0x08c8d4…08ca68 }
0x08ca68…08cbfc 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
0x08cbfc…08cd90 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
0x08cd90…08cf24 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
0x08cf24…08d0b8 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
0x08d0b8…08d24c 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
0x08d24c…08d3e0 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
0x08d3e0…08d574 (0, 179) 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
0x08d574…08d708 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
0x08d708…08d89c 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 ! ! . #
0x08d89c…08da30 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
0x08da30…08dbc4 Dummy {f00=0x0023, f01=0x2008, f02=» DMTEX2 @ EXITI L ND900 QUL
0x08dbc4…08dd58 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
0x08dd58…08deec 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 .
0x08deec…08e080 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 @
0x08e080…08e214 (0, 180) Opaque[0x194]
0x08e214…08e3a8 # DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0470, f03=0x0000}
0x08e214…08e3a8 IdxSect {
0x08e214…08e3a8 f00 = 0x0023 // 0x8e214 @0x0
0x08e214…08e3a8 f01 = 0x000c // 0x8e216 @0x2
0x08e214…08e3a8 gno = [ // 0x8e218 @0x4
0x08e214…08e3a8 [0x00]: C0x0023.0x2.0
0x08e214…08e3a8 [0x01]: C0x0023.0x3.0
0x08e214…08e3a8 [0x02]: C0x0024.0x0.0
0x08e214…08e3a8 [0x03]: C0x0024.0x1.0
0x08e214…08e3a8 [0x04]: C0x0024.0x2.0
0x08e214…08e3a8 [0x05]: C0x0024.0x3.0
0x08e214…08e3a8 ]
0x08e214…08e3a8 }
0x08e3a8…08e53c Dummy {f00=0x0023, 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*
0x08e53c…08e6d0 Dummy {f00=0x0023, 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
0x08e6d0…08e864 Dummy {f00=0x0023, 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
0x08e864…08e9f8 Dummy {f00=0x0023, 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*
0x08e9f8…08eb8c Dummy {f00=0x0023, 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
0x08eb8c…08ed20 Dummy {f00=0x0023, 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
0x08ed20…08eeb4 (0, 181) Dummy {f00=0x0023, 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
0x08eeb4…08f048 Dummy {f00=0x0023, 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
0x08f048…08f1dc Dummy {f00=0x0023, 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
0x08f1dc…08f370 Dummy {f00=0x0023, 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
0x08f370…08f504 Dummy {f00=0x0023, 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 $
0x08f504…08f698 Dummy {f00=0x0023, 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,
0x08f698…08f82c Dummy {f00=0x0023, 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
0x08f82c…08f9c0 Dummy {f00=0x0023, 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
0x08f9c0…08fb54 (0, 182) 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
0x08fb54…08fce8 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 =
0x08fce8…08fe7c 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
0x08fe7c…090010 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
0x090010…0901a4 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
0x0901a4…090338 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
0x090338…0904cc 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(
0x0904cc…090660 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(
0x090660…0907f4 (0, 183) 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
0x0907f4…090988 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
0x090988…090b1c 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
0x090b1c…090cb0 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
0x090cb0…090e44 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
0x090e44…090fd8 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
0x090fd8…09116c 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
0x09116c…091300 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
0x091300…091494 (0, 184) Dummy {f00=0x0024, 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
0x091494…091628 Dummy {f00=0x0024, 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
0x091628…0917bc Dummy {f00=0x0024, 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
0x0917bc…091950 Dummy {f00=0x0024, 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
0x091950…091ae4 Dummy {f00=0x0024, 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 "
0x091ae4…091c78 Dummy {f00=0x0024, 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
0x091c78…091e0c Dummy {f00=0x0024, 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 $
0x091e0c…091fa0 Dummy {f00=0x0024, 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
0x091fa0…092134 (0, 185) Dummy {f00=0x0024, 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 &
0x092134…0922c8 Dummy {f00=0x0024, 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 &
0x0922c8…09245c Dummy {f00=0x0024, f01=0x2008, f02=» (
0x09245c…0925f0 Dummy {f00=0x0024, f01=0x0190, f02=» , ( ' " ! P ! _ ! , ( G _ ! * R X " P 4 , ( g V C :AP Z P ! * ! d , ( @R _* ! Y y Y , ( @ ! f ! X ( X $ , ( _" _* 9D
0x0925f0…092784 Dummy {f00=0x0024, 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:
0x092784…092918 Dummy {f00=0x0024, 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
0x092918…092aac Dummy {f00=0x0024, 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
0x092aac…092c40 Dummy {f00=0x0024, f01=0x0190, f02=» F IDENT DEBUG dBUG |BUG . , ( A @ ~ A > , ( ! A ~ @ A A @ A n , ( A A @ A A @ A a A W o , (
0x092c40…092dd4 (0, 186) Opaque[0x194]
0x092dd4…092f68 # DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03c8, f03=0x0000}
0x092dd4…092f68 IdxSect {
0x092dd4…092f68 f00 = 0x001e // 0x92dd4 @0x0
0x092dd4…092f68 f01 = 0x0010 // 0x92dd6 @0x2
0x092dd4…092f68 gno = [ // 0x92dd8 @0x4
0x092dd4…092f68 [0x00]: C0x001e.0x1.0
0x092dd4…092f68 [0x01]: C0x001e.0x2.0
0x092dd4…092f68 [0x02]: C0x001e.0x3.0
0x092dd4…092f68 [0x03]: C0x001f.0x0.0
0x092dd4…092f68 [0x04]: C0x001f.0x1.0
0x092dd4…092f68 [0x05]: C0x001f.0x2.0
0x092dd4…092f68 [0x06]: C0x001f.0x3.0
0x092dd4…092f68 [0x07]: C0x0020.0x0.0
0x092dd4…092f68 ]
0x092dd4…092f68 }
0x092f68…0930fc 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
0x0930fc…093290 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
0x093290…093424 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
0x093424…0935b8 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
0x0935b8…09374c 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*
0x09374c…0938e0 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
0x0938e0…093a74 (0, 187) Dummy {f00=0x001e, 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
0x093a74…093c08 Dummy {f00=0x001e, 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
0x093c08…093d9c Dummy {f00=0x001e, 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**********
0x093d9c…093f30 Dummy {f00=0x001e, 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
0x093f30…0940c4 Dummy {f00=0x001e, 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
0x0940c4…094258 Dummy {f00=0x001e, 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
0x094258…0943ec Dummy {f00=0x001e, 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
0x0943ec…094580 Dummy {f00=0x001e, 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
0x094580…094714 (0, 188) Dummy {f00=0x001e, 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
0x094714…0948a8 Dummy {f00=0x001e, 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
0x0948a8…094a3c Dummy {f00=0x001e, 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*
0x094a3c…094bd0 Dummy {f00=0x001e, 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
0x094bd0…094d64 Dummy {f00=0x001e, 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
0x094d64…094ef8 Dummy {f00=0x001e, 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
0x094ef8…09508c Dummy {f00=0x001e, 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
0x09508c…095220 Dummy {f00=0x001e, 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
0x095220…0953b4 (0, 189) 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
0x0953b4…095548 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
0x095548…0956dc 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
0x0956dc…095870 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
0x095870…095a04 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
0x095a04…095b98 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
0x095b98…095d2c 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*
0x095d2c…095ec0 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
0x095ec0…096054 (0, 190) 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
0x096054…0961e8 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
0x0961e8…09637c 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 $
0x09637c…096510 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
0x096510…0966a4 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 * "
0x0966a4…096838 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* #
0x096838…0969cc 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
0x0969cc…096b60 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
0x096b60…096cf4 (0, 191) Dummy {f00=0x001f, 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
0x096cf4…096e88 Dummy {f00=0x001f, 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
0x096e88…09701c Dummy {f00=0x001f, 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
0x09701c…0971b0 Dummy {f00=0x001f, 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
0x0971b0…097344 Dummy {f00=0x001f, 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
0x097344…0974d8 Dummy {f00=0x001f, 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
0x0974d8…09766c Dummy {f00=0x001f, 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
0x09766c…097800 Dummy {f00=0x001f, 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
0x097800…097994 (0, 192) Dummy {f00=0x001f, 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*
0x097994…097b28 Dummy {f00=0x001f, 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
0x097b28…097cbc Dummy {f00=0x001f, 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(
0x097cbc…097e50 Dummy {f00=0x001f, 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
0x097e50…097fe4 Dummy {f00=0x001f, 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
0x097fe4…098178 Dummy {f00=0x001f, 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
0x098178…09830c Dummy {f00=0x001f, 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
0x09830c…0984a0 Dummy {f00=0x001f, 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
0x0984a0…098634 (0, 193) 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
0x098634…0987c8 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
0x0987c8…09895c 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
0x09895c…098af0 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
0x098af0…098c84 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
0x098c84…098e18 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
0x098e18…098fac 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 <
0x098fac…099140 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
0x099140…0992d4 (0, 194) Opaque[0x194]
0x0992d4…099468 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x0992d4…099468 IdxSect {
0x0992d4…099468 f00 = 0x001c // 0x992d4 @0x0
0x0992d4…099468 f01 = 0x0008 // 0x992d6 @0x2
0x0992d4…099468 gno = [ // 0x992d8 @0x4
0x0992d4…099468 [0x00]: C0x001c.0x1.0
0x0992d4…099468 [0x01]: C0x001c.0x2.0
0x0992d4…099468 [0x02]: C0x001c.0x3.0
0x0992d4…099468 [0x03]: C0x001d.0x0.0
0x0992d4…099468 ]
0x0992d4…099468 }
0x099468…0995fc 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
0x0995fc…099790 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
0x099790…099924 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
0x099924…099ab8 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
0x099ab8…099c4c 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
0x099c4c…099de0 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
0x099de0…099f74 (0, 195) Dummy {f00=0x001c, 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
0x099f74…09a108 Dummy {f00=0x001c, 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
0x09a108…09a29c Dummy {f00=0x001c, 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
0x09a29c…09a430 Dummy {f00=0x001c, 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
0x09a430…09a5c4 Dummy {f00=0x001c, 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
0x09a5c4…09a758 Dummy {f00=0x001c, 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
0x09a758…09a8ec Dummy {f00=0x001c, 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
0x09a8ec…09aa80 Dummy {f00=0x001c, 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
0x09aa80…09ac14 (0, 196) Dummy {f00=0x001c, 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
0x09ac14…09ada8 Dummy {f00=0x001c, 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
0x09ada8…09af3c Dummy {f00=0x001c, 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
0x09af3c…09b0d0 Dummy {f00=0x001c, 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
0x09b0d0…09b264 Dummy {f00=0x001c, 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*
0x09b264…09b3f8 Dummy {f00=0x001c, 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
0x09b3f8…09b58c Dummy {f00=0x001c, 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
0x09b58c…09b720 Dummy {f00=0x001c, 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
0x09b720…09b8b4 (0, 197) 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****************************************
0x09b8b4…09ba48 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****************************************
0x09ba48…09bbdc 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
0x09bbdc…09bd70 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
0x09bd70…09bf04 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
0x09bf04…09c098 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
0x09c098…09c22c 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
0x09c22c…09c3c0 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*
0x09c3c0…09c554 (0, 198) Opaque[0x194]
0x09c554…09c6e8 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a8, f03=0x0000}
0x09c554…09c6e8 IdxSect {
0x09c554…09c6e8 f00 = 0x0015 // 0x9c554 @0x0
0x09c554…09c6e8 f01 = 0x0004 // 0x9c556 @0x2
0x09c554…09c6e8 gno = [ // 0x9c558 @0x4
0x09c554…09c6e8 [0x00]: C0x0015.0x1.0
0x09c554…09c6e8 [0x01]: C0x0026.0x3.0
0x09c554…09c6e8 ]
0x09c554…09c6e8 }
0x09c6e8…09c87c 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*
0x09c87c…09ca10 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
0x09ca10…09cba4 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
0x09cba4…09cd38 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
0x09cd38…09cecc 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
0x09cecc…09d060 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*
0x09d060…09d1f4 (0, 199) Dummy {f00=0x0026, 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
0x09d1f4…09d388 Dummy {f00=0x0026, f01=0x0002, f02=»
0x09d388…09d51c Dummy {f00=0x0026, 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 `
0x09d51c…09d6b0 Dummy {f00=0x0026, f01=0x4034, f02=» @ 078-09-15 870105040820 BLOK:SK BLOCKE R BLOK:SK l , ( I $ , ( $ ! * 0 6 < B , ( I$ A H N T Z `
0x09d6b0…09d844 Dummy {f00=0x0026, f01=0x2008, f02=»
0x09d844…09d9d8 Dummy {f00=0x0026, 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
0x09d9d8…09db6c Dummy {f00=0x0026, 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
0x09db6c…09dd00 Dummy {f00=0x0026, 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
0x09dd00…09de94 (0, 200) Opaque[0x194]
0x09de94…09e028 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0408, f03=0x0000}
0x09de94…09e028 IdxSect {
0x09de94…09e028 f00 = 0x0020 // 0x9de94 @0x0
0x09de94…09e028 f01 = 0x0002 // 0x9de96 @0x2
0x09de94…09e028 gno = [ // 0x9de98 @0x4
0x09de94…09e028 [0x00]: C0x0020.0x1.0
0x09de94…09e028 ]
0x09de94…09e028 }
0x09e028…09e1bc 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*
0x09e1bc…09e350 Dummy {f00=0x0020, f01=0x40e4, f02=»************************ t P* P* DISC FILE CODE TABLE * P* J P ENTRY DFTAB T P ENTRY DFTABE h P* ~ P* PDFTAB EQU * P DATA /F8F9,/FAFB PDFTABE EQU * P END @ DISC FILE CODE TABLE P*
0x09e350…09e4e4 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*
0x09e4e4…09e678 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
0x09e678…09e80c 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
0x09e80c…09e9a0 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
0x09e9a0…09eb34 (0, 201) Opaque[0x194]
0x09eb34…09ecc8 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0548, f03=0x0000}
0x09eb34…09ecc8 IdxSect {
0x09eb34…09ecc8 f00 = 0x002a // 0x9eb34 @0x0
0x09eb34…09ecc8 f01 = 0x000c // 0x9eb36 @0x2
0x09eb34…09ecc8 gno = [ // 0x9eb38 @0x4
0x09eb34…09ecc8 [0x00]: C0x002a.0x1.0
0x09eb34…09ecc8 [0x01]: C0x002a.0x2.0
0x09eb34…09ecc8 [0x02]: C0x002a.0x3.0
0x09eb34…09ecc8 [0x03]: C0x002b.0x0.0
0x09eb34…09ecc8 [0x04]: C0x002b.0x1.0
0x09eb34…09ecc8 [0x05]: C0x002b.0x2.0
0x09eb34…09ecc8 ]
0x09eb34…09ecc8 }
0x09ecc8…09ee5c 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*
0x09ee5c…09eff0 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
0x09eff0…09f184 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
0x09f184…09f318 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
0x09f318…09f4ac 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*
0x09f4ac…09f640 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
0x09f640…09f7d4 (0, 202) Dummy {f00=0x002a, 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
0x09f7d4…09f968 Dummy {f00=0x002a, 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
0x09f968…09fafc Dummy {f00=0x002a, 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
0x09fafc…09fc90 Dummy {f00=0x002a, 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
0x09fc90…09fe24 Dummy {f00=0x002a, 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***************
0x09fe24…09ffb8 Dummy {f00=0x002a, 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,
0x09ffb8…0a014c Dummy {f00=0x002a, 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
0x0a014c…0a02e0 Dummy {f00=0x002a, 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
0x0a02e0…0a0474 (0, 203) Dummy {f00=0x002a, 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*
0x0a0474…0a0608 Dummy {f00=0x002a, 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
0x0a0608…0a079c Dummy {f00=0x002a, 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
0x0a079c…0a0930 Dummy {f00=0x002a, 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*
0x0a0930…0a0ac4 Dummy {f00=0x002a, 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
0x0a0ac4…0a0c58 Dummy {f00=0x002a, 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
0x0a0c58…0a0dec Dummy {f00=0x002a, 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
0x0a0dec…0a0f80 Dummy {f00=0x002a, 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*
0x0a0f80…0a1114 (0, 204) 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
0x0a1114…0a12a8 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
0x0a12a8…0a143c 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*********************
0x0a143c…0a15d0 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
0x0a15d0…0a1764 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
0x0a1764…0a18f8 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*
0x0a18f8…0a1a8c 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
0x0a1a8c…0a1c20 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
0x0a1c20…0a1db4 (0, 205) 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
0x0a1db4…0a1f48 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
0x0a1f48…0a20dc 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
0x0a20dc…0a2270 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
0x0a2270…0a2404 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
0x0a2404…0a2598 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 #
0x0a2598…0a272c 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)
0x0a272c…0a28c0 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 %
0x0a28c0…0a2a54 (0, 206) Dummy {f00=0x002b, 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
0x0a2a54…0a2be8 Dummy {f00=0x002b, 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* +
0x0a2be8…0a2d7c Dummy {f00=0x002b, 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
0x0a2d7c…0a2f10 Dummy {f00=0x002b, 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
0x0a2f10…0a30a4 Dummy {f00=0x002b, 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*
0x0a30a4…0a3238 Dummy {f00=0x002b, 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**************
0x0a3238…0a33cc Dummy {f00=0x002b, 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
0x0a33cc…0a3560 Dummy {f00=0x002b, 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**********************
0x0a3560…0a36f4 (0, 207) Opaque[0x194]
0x0a36f4…0a3888 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0580, f03=0x0000}
0x0a36f4…0a3888 IdxSect {
0x0a36f4…0a3888 f00 = 0x002c // 0xa36f4 @0x0
0x0a36f4…0a3888 f01 = 0x0004 // 0xa36f6 @0x2
0x0a36f4…0a3888 gno = [ // 0xa36f8 @0x4
0x0a36f4…0a3888 [0x00]: C0x002c.0x0.0
0x0a36f4…0a3888 [0x01]: C0x002c.0x1.0
0x0a36f4…0a3888 ]
0x0a36f4…0a3888 }
0x0a3888…0a3a1c 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*
0x0a3a1c…0a3bb0 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
0x0a3bb0…0a3d44 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
0x0a3d44…0a3ed8 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
0x0a3ed8…0a406c 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
0x0a406c…0a4200 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
0x0a4200…0a4394 (0, 208) 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
0x0a4394…0a4528 Dummy {f00=0x002c, f01=0x0002, f02=»
0x0a4528…0a46bc 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*
0x0a46bc…0a4850 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*
0x0a4850…0a49e4 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*
0x0a49e4…0a4b78 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,
0x0a4b78…0a4d0c 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
0x0a4d0c…0a4ea0 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
0x0a4ea0…0a5034 (0, 209) Opaque[0x194]
0x0a5034…0a51c8 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0598, f03=0x0000}
0x0a5034…0a51c8 IdxSect {
0x0a5034…0a51c8 f00 = 0x002c // 0xa5034 @0x0
0x0a5034…0a51c8 f01 = 0x0004 // 0xa5036 @0x2
0x0a5034…0a51c8 gno = [ // 0xa5038 @0x4
0x0a5034…0a51c8 [0x00]: C0x002c.0x3.0
0x0a5034…0a51c8 [0x01]: C0x002d.0x0.0
0x0a5034…0a51c8 ]
0x0a5034…0a51c8 }
0x0a51c8…0a535c Dummy {f00=0x002c, 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*
0x0a535c…0a54f0 Dummy {f00=0x002c, 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
0x0a54f0…0a5684 Dummy {f00=0x002c, 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
0x0a5684…0a5818 Dummy {f00=0x002c, 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
0x0a5818…0a59ac Dummy {f00=0x002c, 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
0x0a59ac…0a5b40 Dummy {f00=0x002c, 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
0x0a5b40…0a5cd4 (0, 210) 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
0x0a5cd4…0a5e68 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
0x0a5e68…0a5ffc 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
0x0a5ffc…0a6190 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
0x0a6190…0a6324 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
0x0a6324…0a64b8 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
0x0a64b8…0a664c 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
0x0a664c…0a67e0 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**********
0x0a67e0…0a6974 (0, 211) Opaque[0x194]
0x0a6974…0a6b08 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b0, f03=0x0000}
0x0a6974…0a6b08 IdxSect {
0x0a6974…0a6b08 f00 = 0x002d // 0xa6974 @0x0
0x0a6974…0a6b08 f01 = 0x0004 // 0xa6976 @0x2
0x0a6974…0a6b08 gno = [ // 0xa6978 @0x4
0x0a6974…0a6b08 [0x00]: C0x002d.0x2.0
0x0a6974…0a6b08 [0x01]: C0x002d.0x3.0
0x0a6974…0a6b08 ]
0x0a6974…0a6b08 }
0x0a6b08…0a6c9c Dummy {f00=0x002d, 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*
0x0a6c9c…0a6e30 Dummy {f00=0x002d, 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
0x0a6e30…0a6fc4 Dummy {f00=0x002d, 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
0x0a6fc4…0a7158 Dummy {f00=0x002d, 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
0x0a7158…0a72ec Dummy {f00=0x002d, 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
0x0a72ec…0a7480 Dummy {f00=0x002d, 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
0x0a7480…0a7614 (0, 212) Dummy {f00=0x002d, 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
0x0a7614…0a77a8 Dummy {f00=0x002d, 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
0x0a77a8…0a793c Dummy {f00=0x002d, 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 @
0x0a793c…0a7ad0 Dummy {f00=0x002d, 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
0x0a7ad0…0a7c64 Dummy {f00=0x002d, 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
0x0a7c64…0a7df8 Dummy {f00=0x002d, 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
0x0a7df8…0a7f8c Dummy {f00=0x002d, 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
0x0a7f8c…0a8120 Dummy {f00=0x002d, 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
0x0a8120…0a82b4 (0, 213) Opaque[0x194]
0x0a82b4…0a8448 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05c8, f03=0x0000}
0x0a82b4…0a8448 IdxSect {
0x0a82b4…0a8448 f00 = 0x002e // 0xa82b4 @0x0
0x0a82b4…0a8448 f01 = 0x0004 // 0xa82b6 @0x2
0x0a82b4…0a8448 gno = [ // 0xa82b8 @0x4
0x0a82b4…0a8448 [0x00]: C0x002e.0x1.0
0x0a82b4…0a8448 [0x01]: C0x002e.0x2.0
0x0a82b4…0a8448 ]
0x0a82b4…0a8448 }
0x0a8448…0a85dc 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*
0x0a85dc…0a8770 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
0x0a8770…0a8904 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
0x0a8904…0a8a98 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
0x0a8a98…0a8c2c 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
0x0a8c2c…0a8dc0 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
0x0a8dc0…0a8f54 (0, 214) Dummy {f00=0x002e, 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
0x0a8f54…0a90e8 Dummy {f00=0x002e, 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
0x0a90e8…0a927c Dummy {f00=0x002e, 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
0x0a927c…0a9410 Dummy {f00=0x002e, 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
0x0a9410…0a95a4 Dummy {f00=0x002e, 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
0x0a95a4…0a9738 Dummy {f00=0x002e, 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
0x0a9738…0a98cc Dummy {f00=0x002e, 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
0x0a98cc…0a9a60 Dummy {f00=0x002e, 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 *
0x0a9a60…0a9bf4 (0, 215) Opaque[0x194]
0x0a9bf4…0a9d88 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e0, f03=0x0000}
0x0a9bf4…0a9d88 IdxSect {
0x0a9bf4…0a9d88 f00 = 0x002f // 0xa9bf4 @0x0
0x0a9bf4…0a9d88 f01 = 0x000e // 0xa9bf6 @0x2
0x0a9bf4…0a9d88 gno = [ // 0xa9bf8 @0x4
0x0a9bf4…0a9d88 [0x00]: C0x002f.0x0.0
0x0a9bf4…0a9d88 [0x01]: C0x002f.0x1.0
0x0a9bf4…0a9d88 [0x02]: C0x002f.0x2.0
0x0a9bf4…0a9d88 [0x03]: C0x002f.0x3.0
0x0a9bf4…0a9d88 [0x04]: C0x0030.0x0.0
0x0a9bf4…0a9d88 [0x05]: C0x0030.0x1.0
0x0a9bf4…0a9d88 [0x06]: C0x0030.0x2.0
0x0a9bf4…0a9d88 ]
0x0a9bf4…0a9d88 }
0x0a9d88…0a9f1c 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
0x0a9f1c…0aa0b0 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
0x0aa0b0…0aa244 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
0x0aa244…0aa3d8 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
0x0aa3d8…0aa56c 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(
0x0aa56c…0aa700 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
0x0aa700…0aa894 (0, 216) 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)
0x0aa894…0aaa28 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
0x0aaa28…0aabbc 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*
0x0aabbc…0aad50 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**********************************
0x0aad50…0aaee4 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
0x0aaee4…0ab078 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
0x0ab078…0ab20c 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
0x0ab20c…0ab3a0 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
0x0ab3a0…0ab534 (0, 217) Dummy {f00=0x002f, 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
0x0ab534…0ab6c8 Dummy {f00=0x002f, 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*********************************
0x0ab6c8…0ab85c Dummy {f00=0x002f, 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
0x0ab85c…0ab9f0 Dummy {f00=0x002f, 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
0x0ab9f0…0abb84 Dummy {f00=0x002f, 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
0x0abb84…0abd18 Dummy {f00=0x002f, 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*
0x0abd18…0abeac Dummy {f00=0x002f, 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************
0x0abeac…0ac040 Dummy {f00=0x002f, 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
0x0ac040…0ac1d4 (0, 218) Dummy {f00=0x002f, 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
0x0ac1d4…0ac368 Dummy {f00=0x002f, 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
0x0ac368…0ac4fc Dummy {f00=0x002f, 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*
0x0ac4fc…0ac690 Dummy {f00=0x002f, 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********
0x0ac690…0ac824 Dummy {f00=0x002f, 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
0x0ac824…0ac9b8 Dummy {f00=0x002f, 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
0x0ac9b8…0acb4c Dummy {f00=0x002f, 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
0x0acb4c…0acce0 Dummy {f00=0x002f, 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
0x0acce0…0ace74 (0, 219) 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
0x0ace74…0ad008 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
0x0ad008…0ad19c 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
0x0ad19c…0ad330 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 !
0x0ad330…0ad4c4 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
0x0ad4c4…0ad658 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
0x0ad658…0ad7ec 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*
0x0ad7ec…0ad980 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* %
0x0ad980…0adb14 (0, 220) 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
0x0adb14…0adca8 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
0x0adca8…0ade3c 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******************************** (
0x0ade3c…0adfd0 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****************************************************** )
0x0adfd0…0ae164 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
0x0ae164…0ae2f8 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
0x0ae2f8…0ae48c 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
0x0ae48c…0ae620 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
0x0ae620…0ae7b4 (0, 221) Dummy {f00=0x0030, 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* +
0x0ae7b4…0ae948 Dummy {f00=0x0030, 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
0x0ae948…0aeadc Dummy {f00=0x0030, 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
0x0aeadc…0aec70 Dummy {f00=0x0030, f01=0x0190, f02=» INTRT1 ,INTRT2 INTRT2 8BLOK:S BLOK:S BLOCKE x x *CTABX CTABX ,DCTBUF DCTBUF ,DCRBUF DCRBUF ,
0x0aec70…0aee04 Dummy {f00=0x0030, 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
0x0aee04…0aef98 Dummy {f00=0x0030, 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
0x0aef98…0af12c Dummy {f00=0x0030, 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:
0x0af12c…0af2c0 Dummy {f00=0x0030, 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
0x0af2c0…0af454 (0, 222) Opaque[0x194]
0x0af454…0af5e8 # DirEnt {nam=»TTABD0«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0628, f03=0x0000}
0x0af454…0af5e8 IdxSect {
0x0af454…0af5e8 f00 = 0x0031 // 0xaf454 @0x0
0x0af454…0af5e8 f01 = 0x0002 // 0xaf456 @0x2
0x0af454…0af5e8 gno = [ // 0xaf458 @0x4
0x0af454…0af5e8 [0x00]: C0x0031.0x1.0
0x0af454…0af5e8 ]
0x0af454…0af5e8 }
0x0af5e8…0af77c 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*
0x0af77c…0af910 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
0x0af910…0afaa4 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
0x0afaa4…0afc38 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
0x0afc38…0afdcc 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
0x0afdcc…0aff60 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
0x0aff60…0b00f4 (0, 223) Opaque[0x194]
0x0b00f4…0b0288 # DirEnt {nam=»TTABD1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0630, f03=0x0000}
0x0b00f4…0b0288 IdxSect {
0x0b00f4…0b0288 f00 = 0x0031 // 0xb00f4 @0x0
0x0b00f4…0b0288 f01 = 0x0002 // 0xb00f6 @0x2
0x0b00f4…0b0288 gno = [ // 0xb00f8 @0x4
0x0b00f4…0b0288 [0x00]: C0x0031.0x2.0
0x0b00f4…0b0288 ]
0x0b00f4…0b0288 }
0x0b0288…0b041c Dummy {f00=0x0031, 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*
0x0b041c…0b05b0 Dummy {f00=0x0031, 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
0x0b05b0…0b0744 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
0x0b0744…0b08d8 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
0x0b08d8…0b0a6c Dummy {f00=0x0031, 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 *
0x0b0a6c…0b0c00 Dummy {f00=0x0031, 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
0x0b0c00…0b0d94 (0, 224) Opaque[0x194]
0x0b0d94…0b0f28 # DirEnt {nam=»TTABD2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0640, f03=0x0000}
0x0b0d94…0b0f28 IdxSect {
0x0b0d94…0b0f28 f00 = 0x0032 // 0xb0d94 @0x0
0x0b0d94…0b0f28 f01 = 0x0002 // 0xb0d96 @0x2
0x0b0d94…0b0f28 gno = [ // 0xb0d98 @0x4
0x0b0d94…0b0f28 [0x00]: C0x0032.0x0.0
0x0b0d94…0b0f28 ]
0x0b0d94…0b0f28 }
0x0b0f28…0b10bc 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*
0x0b10bc…0b1250 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
0x0b1250…0b13e4 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
0x0b13e4…0b1578 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
0x0b1578…0b170c 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
0x0b170c…0b18a0 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
0x0b18a0…0b1a34 (0, 225) Opaque[0x194]
0x0b1a34…0b1bc8 # DirEnt {nam=»DRIC0X«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x0b1a34…0b1bc8 IdxSect {
0x0b1a34…0b1bc8 f00 = 0x0032 // 0xb1a34 @0x0
0x0b1a34…0b1bc8 f01 = 0x0002 // 0xb1a36 @0x2
0x0b1a34…0b1bc8 gno = [ // 0xb1a38 @0x4
0x0b1a34…0b1bc8 [0x00]: C0x0032.0x2.0
0x0b1a34…0b1bc8 ]
0x0b1a34…0b1bc8 }
0x0b1bc8…0b1d5c Dummy {f00=0x0032, 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*
0x0b1d5c…0b1ef0 Dummy {f00=0x0032, 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*
0x0b1ef0…0b2084 Dummy {f00=0x0032, f01=0x2008, f02=» NT DRIC0X REL=8.1 DATE=78-03-03 A-TEST END :@ F
0x0b2084…0b2218 Dummy {f00=0x0032, 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 # (
0x0b2218…0b23ac Dummy {f00=0x0032, 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
0x0b23ac…0b2540 Dummy {f00=0x0032, 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
0x0b2540…0b26d4 (0, 226) Opaque[0x194]
0x0b26d4…0b2868 # DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c8, f03=0x0000}
0x0b26d4…0b2868 IdxSect {
0x0b26d4…0b2868 f00 = 0x0046 // 0xb26d4 @0x0
0x0b26d4…0b2868 f01 = 0x0010 // 0xb26d6 @0x2
0x0b26d4…0b2868 gno = [ // 0xb26d8 @0x4
0x0b26d4…0b2868 [0x00]: C0x0046.0x1.0
0x0b26d4…0b2868 [0x01]: C0x0046.0x2.0
0x0b26d4…0b2868 [0x02]: C0x0046.0x3.0
0x0b26d4…0b2868 [0x03]: C0x0047.0x0.0
0x0b26d4…0b2868 [0x04]: C0x0047.0x1.0
0x0b26d4…0b2868 [0x05]: C0x0047.0x2.0
0x0b26d4…0b2868 [0x06]: C0x0047.0x3.0
0x0b26d4…0b2868 [0x07]: C0x0048.0x0.0
0x0b26d4…0b2868 ]
0x0b26d4…0b2868 }
0x0b2868…0b29fc Dummy {f00=0x0046, 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
0x0b29fc…0b2b90 Dummy {f00=0x0046, 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
0x0b2b90…0b2d24 Dummy {f00=0x0046, 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*
0x0b2d24…0b2eb8 Dummy {f00=0x0046, 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
0x0b2eb8…0b304c Dummy {f00=0x0046, 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*
0x0b304c…0b31e0 Dummy {f00=0x0046, 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.
0x0b31e0…0b3374 (0, 227) Dummy {f00=0x0046, 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
0x0b3374…0b3508 Dummy {f00=0x0046, 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
0x0b3508…0b369c Dummy {f00=0x0046, 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
0x0b369c…0b3830 Dummy {f00=0x0046, 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
0x0b3830…0b39c4 Dummy {f00=0x0046, 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
0x0b39c4…0b3b58 Dummy {f00=0x0046, 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
0x0b3b58…0b3cec Dummy {f00=0x0046, 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
0x0b3cec…0b3e80 Dummy {f00=0x0046, 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
0x0b3e80…0b4014 (0, 228) Dummy {f00=0x0046, 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**
0x0b4014…0b41a8 Dummy {f00=0x0046, 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****************************************
0x0b41a8…0b433c Dummy {f00=0x0046, 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
0x0b433c…0b44d0 Dummy {f00=0x0046, 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
0x0b44d0…0b4664 Dummy {f00=0x0046, 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
0x0b4664…0b47f8 Dummy {f00=0x0046, 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
0x0b47f8…0b498c Dummy {f00=0x0046, 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
0x0b498c…0b4b20 Dummy {f00=0x0046, 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
0x0b4b20…0b4cb4 (0, 229) Dummy {f00=0x0047, 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
0x0b4cb4…0b4e48 Dummy {f00=0x0047, 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
0x0b4e48…0b4fdc Dummy {f00=0x0047, 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
0x0b4fdc…0b5170 Dummy {f00=0x0047, 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
0x0b5170…0b5304 Dummy {f00=0x0047, 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
0x0b5304…0b5498 Dummy {f00=0x0047, 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
0x0b5498…0b562c Dummy {f00=0x0047, 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
0x0b562c…0b57c0 Dummy {f00=0x0047, 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)
0x0b57c0…0b5954 (0, 230) Dummy {f00=0x0047, 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-
0x0b5954…0b5ae8 Dummy {f00=0x0047, 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 *
0x0b5ae8…0b5c7c Dummy {f00=0x0047, 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
0x0b5c7c…0b5e10 Dummy {f00=0x0047, 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* !
0x0b5e10…0b5fa4 Dummy {f00=0x0047, 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
0x0b5fa4…0b6138 Dummy {f00=0x0047, 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
0x0b6138…0b62cc Dummy {f00=0x0047, 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,
0x0b62cc…0b6460 Dummy {f00=0x0047, 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
0x0b6460…0b65f4 (0, 231) Dummy {f00=0x0047, 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
0x0b65f4…0b6788 Dummy {f00=0x0047, 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* '
0x0b6788…0b691c Dummy {f00=0x0047, 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*
0x0b691c…0b6ab0 Dummy {f00=0x0047, 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
0x0b6ab0…0b6c44 Dummy {f00=0x0047, 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)
0x0b6c44…0b6dd8 Dummy {f00=0x0047, 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
0x0b6dd8…0b6f6c Dummy {f00=0x0047, 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 ,
0x0b6f6c…0b7100 Dummy {f00=0x0047, 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
0x0b7100…0b7294 (0, 232) Dummy {f00=0x0047, 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* .
0x0b7294…0b7428 Dummy {f00=0x0047, 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 /
0x0b7428…0b75bc Dummy {f00=0x0047, 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
0x0b75bc…0b7750 Dummy {f00=0x0047, 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
0x0b7750…0b78e4 Dummy {f00=0x0047, 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
0x0b78e4…0b7a78 Dummy {f00=0x0047, 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
0x0b7a78…0b7c0c Dummy {f00=0x0047, 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
0x0b7c0c…0b7da0 Dummy {f00=0x0047, 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
0x0b7da0…0b7f34 (0, 233) Dummy {f00=0x0048, 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
0x0b7f34…0b80c8 Dummy {f00=0x0048, 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
0x0b80c8…0b825c Dummy {f00=0x0048, 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
0x0b825c…0b83f0 Dummy {f00=0x0048, 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
0x0b83f0…0b8584 Dummy {f00=0x0048, 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
0x0b8584…0b8718 Dummy {f00=0x0048, 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
0x0b8718…0b88ac Dummy {f00=0x0048, 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
0x0b88ac…0b8a40 Dummy {f00=0x0048, f01=0x40ce, f02=» J F IDENT DC:TAB REL 8.1 78-04-21 870105040810 DC:TAB DCTAB R DCTAB j DC:TAB | @
0x0b8a40…0b8bd4 (0, 234) Opaque[0x194]
0x0b8bd4…0b8d68 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x0b8bd4…0b8d68 IdxSect {
0x0b8bd4…0b8d68 f00 = 0x0003 // 0xb8bd4 @0x0
0x0b8bd4…0b8d68 f01 = 0x0010 // 0xb8bd6 @0x2
0x0b8bd4…0b8d68 gno = [ // 0xb8bd8 @0x4
0x0b8bd4…0b8d68 [0x00]: C0x0003.0x2.0
0x0b8bd4…0b8d68 [0x01]: C0x0033.0x0.0
0x0b8bd4…0b8d68 [0x02]: C0x0033.0x1.0
0x0b8bd4…0b8d68 [0x03]: C0x0033.0x2.0
0x0b8bd4…0b8d68 [0x04]: C0x0033.0x3.0
0x0b8bd4…0b8d68 [0x05]: C0x0034.0x0.0
0x0b8bd4…0b8d68 [0x06]: C0x0034.0x1.0
0x0b8bd4…0b8d68 [0x07]: C0x0034.0x2.0
0x0b8bd4…0b8d68 ]
0x0b8bd4…0b8d68 }
0x0b8d68…0b8efc Dummy {f00=0x0003, 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 *
0x0b8efc…0b9090 Dummy {f00=0x0003, f01=0x0190, f02=» * < P* * < P* | P* P* < P* * < P**********************************************
0x0b9090…0b9224 Dummy {f00=0x0003, 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
0x0b9224…0b93b8 Dummy {f00=0x0003, 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
0x0b93b8…0b954c Dummy {f00=0x0003, 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*
0x0b954c…0b96e0 Dummy {f00=0x0003, 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
0x0b96e0…0b9874 (0, 235) 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
0x0b9874…0b9a08 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
0x0b9a08…0b9b9c 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
0x0b9b9c…0b9d30 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
0x0b9d30…0b9ec4 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*
0x0b9ec4…0ba058 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
0x0ba058…0ba1ec 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
0x0ba1ec…0ba380 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 *
0x0ba380…0ba514 (0, 236) 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*
0x0ba514…0ba6a8 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
0x0ba6a8…0ba83c 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
0x0ba83c…0ba9d0 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
0x0ba9d0…0bab64 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
0x0bab64…0bacf8 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
0x0bacf8…0bae8c 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
0x0bae8c…0bb020 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
0x0bb020…0bb1b4 (0, 237) Dummy {f00=0x0033, 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
0x0bb1b4…0bb348 Dummy {f00=0x0033, 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
0x0bb348…0bb4dc Dummy {f00=0x0033, 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
0x0bb4dc…0bb670 Dummy {f00=0x0033, 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
0x0bb670…0bb804 Dummy {f00=0x0033, 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
0x0bb804…0bb998 Dummy {f00=0x0033, 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
0x0bb998…0bbb2c Dummy {f00=0x0033, 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
0x0bbb2c…0bbcc0 Dummy {f00=0x0033, 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
0x0bbcc0…0bbe54 (0, 238) Dummy {f00=0x0033, 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 ?
0x0bbe54…0bbfe8 Dummy {f00=0x0033, 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
0x0bbfe8…0bc17c Dummy {f00=0x0033, 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
0x0bc17c…0bc310 Dummy {f00=0x0033, 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
0x0bc310…0bc4a4 Dummy {f00=0x0033, 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
0x0bc4a4…0bc638 Dummy {f00=0x0033, 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
0x0bc638…0bc7cc Dummy {f00=0x0033, 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
0x0bc7cc…0bc960 Dummy {f00=0x0033, 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
0x0bc960…0bcaf4 (0, 239) 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
0x0bcaf4…0bcc88 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
0x0bcc88…0bce1c 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(
0x0bce1c…0bcfb0 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
0x0bcfb0…0bd144 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
0x0bd144…0bd2d8 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*
0x0bd2d8…0bd46c 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
0x0bd46c…0bd600 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
0x0bd600…0bd794 (0, 240) 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 .
0x0bd794…0bd928 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
0x0bd928…0bdabc 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
0x0bdabc…0bdc50 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
0x0bdc50…0bdde4 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
0x0bdde4…0bdf78 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
0x0bdf78…0be10c 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
0x0be10c…0be2a0 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
0x0be2a0…0be434 (0, 241) Dummy {f00=0x0034, 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
0x0be434…0be5c8 Dummy {f00=0x0034, 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
0x0be5c8…0be75c Dummy {f00=0x0034, 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
0x0be75c…0be8f0 Dummy {f00=0x0034, 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(
0x0be8f0…0bea84 Dummy {f00=0x0034, 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
0x0bea84…0bec18 Dummy {f00=0x0034, 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
0x0bec18…0bedac Dummy {f00=0x0034, 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
0x0bedac…0bef40 Dummy {f00=0x0034, 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
0x0bef40…0bf0d4 (0, 242) Opaque[0x194]
0x0bf0d4…0bf268 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0698, f03=0x0000}
0x0bf0d4…0bf268 IdxSect {
0x0bf0d4…0bf268 f00 = 0x0034 // 0xbf0d4 @0x0
0x0bf0d4…0bf268 f01 = 0x000c // 0xbf0d6 @0x2
0x0bf0d4…0bf268 gno = [ // 0xbf0d8 @0x4
0x0bf0d4…0bf268 [0x00]: C0x0034.0x3.0
0x0bf0d4…0bf268 [0x01]: C0x0035.0x1.0
0x0bf0d4…0bf268 [0x02]: C0x0035.0x2.0
0x0bf0d4…0bf268 [0x03]: C0x0035.0x3.0
0x0bf0d4…0bf268 [0x04]: C0x0036.0x0.0
0x0bf0d4…0bf268 [0x05]: C0x0036.0x1.0
0x0bf0d4…0bf268 ]
0x0bf0d4…0bf268 }
0x0bf268…0bf3fc Dummy {f00=0x0034, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRGP01 = DRIVER GENERAL PRINTER P* P* P*
0x0bf3fc…0bf590 Dummy {f00=0x0034, f01=0x0190, f02=» GENERAL TERMINAL PRINTER x < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. " P* b 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO l 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE 6 P* GENERAL PRINTER AS AN ECHO DEVICE
0x0bf590…0bf724 Dummy {f00=0x0034, f01=0x0190, f02=»VER CONSISTS OF FOLLOWING PARTS: P* ( & P* A C G P ACTIVATION PART 2 P* ( P* I H G P INTERRUPT HANDLER f P* ( P* R C G P RECOVERY ROUTINE P* & P* E C H O G P ECHO FUNCTIONS P* P*
0x0bf724…0bf8b8 Dummy {f00=0x0034, f01=0x018e, f02=» 06: STANDARD WRITE P* " P* NORMAL REGISTER USAGE , P* N " P* REGISTER A1 = RETURN CODE X ( P* A2 = OUTPUT CHARACTER ~ $ P* A3 = BUFFER INDEX $ P* A4 = WORK REGISTER " P*
0x0bf8b8…0bfa4c Dummy {f00=0x0034, f01=0x0190, f02=» P* P* SYSTEM ADAPTATION P* 0 : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR : ( P* (GPCLR) KEYS SHOULD BE DEFINED. x P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS 0 P* ADAPTED TO HANDLE FOLLOWI
0x0bfa4c…0bfbe0 Dummy {f00=0x0034, f01=0x0190, f02=»DE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER < * P** --SUPPRESION OF TRAILING BLANKS v @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE P* 6 P* THE CHARACTER COD
0x0bfbe0…0bfd74 (0, 243) Dummy {f00=0x0035, f01=0x0190, f02=» P* P* P*********** P* ENTRIES * 0 P*********** D P* X P* b P* l ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK v 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P* P* P* P* . P**********
0x0bfd74…0bff08 Dummy {f00=0x0035, f01=0x0190, f02=» P* P* $ P EXTRN DISIOE I/O REQUEST ERROR . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER @ P EXTRN TDISP DISPATCHER r > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE 8 RE
0x0bff08…0c009c Dummy {f00=0x0035, f01=0x0190, f02=»CT P* P************************ P* DWT PARAMETERS * 4 P************************ T P* t P EXTRN DWTST STATUS ~ P EXTRN DWTOR ORDER P* $ P******************************** $ P* DWT-DISPLACEMENT *
0x0c009c…0c0230 Dummy {f00=0x0035, f01=0x0190, f02=»U /22 HEAD POSITION POINTER P* $ P EJECT . P* < P* F P************* P P* CONSTANTS * f P************* | P* P* : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY PSTX EQU /82 START OF MESSAGE P
0x0c0230…0c03c4 Dummy {f00=0x0035, f01=0x0190, f02=»0C FORM FEED PSPACE EQU /20 SPACE 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF 0 P EJECT d * P************************************** r * P* CONDITIONAL ASSEMBLY * * P************************************** P* 2 P*
0x0c03c4…0c0558 Dummy {f00=0x0035, f01=0x0190, f02=» P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 0 P* INCLUDED IN THE DRIVER BY SETTING X:B=1 F P* z PX:B EQU 0 PTRETON EQU 0 P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE 0 P* INCLUDED IN THE DRIVER
0x0c0558…0c06ec Dummy {f00=0x0035, f01=0x0190, f02=» AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:D=0 , P* H PX:D EQU 0 R PCOSPAC EQU 0 d P* x 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS A
0x0c06ec…0c0880 Dummy {f00=0x0035, f01=0x0190, f02=»GHT HAND OF LINE p P* BY SETTING X:F=1 P* 6 PX:F EQU 0 @ PSUPSPA EQU 1 R P* f ( P* END OF REQUEST IN SITUATIONS WHERE p , P* THE SELECTOR UNIT OR PRINTER HARDWARE * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT
0x0c0880…0c0a14 (0, 244) Dummy {f00=0x0035, f01=0x0190, f02=»FOR ECHO FUNCTION * ~ * P************************************** P* L PGPBSP EQU /2D BACK SPACE V PGPCLR EQU /3F CLEAR v P* P******************** P* RETURN CODES * P******************** P* 0 PPAROUT EQU /20
0x0c0a14…0c0ba8 Dummy {f00=0x0035, f01=0x0190, f02=»BLE, POWER OFF z P* P EJECT P* . P* 8 P********** B P* TABLES * T P********** f P* x P* P IFT CROOM=1 P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTERS ( P DATA /2122,/2426,/3B3C,/3E4
0x0c0ba8…0c0d3c Dummy {f00=0x0035, f01=0x0190, f02=» DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE $ . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE H P EJECT z P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P* H P* ORDER 00: TEST STAT
0x0c0d3c…0c0ed0 Dummy {f00=0x0035, f01=0x0190, f02=»N CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM | P* CHANNEL UNIT. 8 P* > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER f " P* FROM ECB-BUFFER P* F P* ORDER 06: STANDARD WRITE. CHARACTERS ARE SE
0x0c0ed0…0c1064 Dummy {f00=0x0035, f01=0x0190, f02=»OF MESSAGE ~ P LDK A3,0 RESET BUFFER INDEX P LDK A4,0 6 P LDR A7,A7 ORDER 0? H P RF(E) AGP410 d P SUK A7,5 ORDER 5? z P RF(E) ACGP05 P SUK A7,1 ORDER 6? & P ABL(NE) DISIOE I/O REQUEST ERROR $ P LD A1,4,A8 GET REQUESTED
0x0c1064…0c11f8 Dummy {f00=0x0035, f01=0x0190, f02=»ACGP02 EQU * * P SUK A3,/2B POSITIONING BEFORE WRITE? P RF(E) ACGP12 B . P LDK A4,2 INDICATE CR AND LF/FFED TO SEND X P EJECT P* . P* SEND DUMMY AND, IF CONTROL CHARACTER 2 P* # 2B, SEND CARRIAGE RETURN AND LINE FEED
0x0c11f8…0c138c Dummy {f00=0x0035, f01=0x0190, f02=»CGP15 STX P* $ P* SEND LINE FEED OR FORM FEED P* D & P SUK A3,5 CONTROL CHARACTER /30 ? N P RF(NE) ACGP07 x * P ADK A4,1 YES EXTRA LINE FEED TO SEND PACGP07 EQU * P LDK A2,LF & PACGP12 LDK A3,2 START BUFFER INDEX
0x0c138c…0c1520 Dummy {f00=0x0035, f01=0x0190, f02=»CT P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) > P* ` PACGP17 CF A5,OUTPUT j 0 PACGP18 IM DWTST,A6 POSITION COUNTER UPDATING PACGP19 EQU * * P LDKL A4,/400 INDICATE LINE FEED DONE P ORS A4,DWTS
0x0c1520…0c16b4 (0, 245) Dummy {f00=0x0035, f01=0x0190, f02=»TCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 LAST CHARACTER? * P RF(NP) AGP400 L P LDR A1,A2 b P SUK A7,5 ORDER 5? t P RF(E) ACGP24 BASIC WRITE $ P SUK A1,9 HARDWARE TABULATION ? P RF(NE) ACGP22 0 P ST A4,DWTAP,A6 RESET HEAD
0x0c16b4…0c1848 Dummy {f00=0x0035, f01=0x0190, f02=» P IFT FJOTON=0 P* P SUK A1,/F LESS THAN /20 ? ( P* J P XIF T P* ` P IFT TRETON=0 j P IFT FJOTON=1 P* P SUK A1,3 /14? P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* P XIF P*
0x0c1848…0c19dc Dummy {f00=0x0035, f01=0x0190, f02=» /20 ? | P XIF P* P* $ P IFT TRETON=1 . P IFT FJOTON=1 D P* Z P SUK A1,2 /13? d P RB(E) ACGP17 z P SUK A1,1 /14? P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* P XIF P* " P RF(N) ACG
0x0c19dc…0c1b70 Dummy {f00=0x0035, f01=0x018e, f02=»ACGP17 P SUK A1,/20 P RF(NN) ACGP30 " 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F 8 & P TO CHARACTER BETWEEN /40 TO /5F r P RB ACGP17 PACGP24 EQU * P SUK A1,/D P RF(NZ) ACGP26 NOT CR " P CM DWTST,A6 SET POS L
0x0c1b70…0c1d04 Dummy {f00=0x0035, f01=0x0190, f02=» * P ADS A1,DWTST,A6 DECREMENT POS COUNTER P RB ACGP17 2 P EJECT D P* R P* CODE CHECK ERROR P* z PACGP30 EQU * P LDK A1,CCERR P ORS A1,8,A8 RETURN CODE P RB ACGP20 P EJECT P* P* TABULATION
0x0c1d04…0c1e98 Dummy {f00=0x0035, f01=0x0190, f02=»CHARACTER p P ANK A2,/F P ANK A4,/F $ P RF(E) ACGP44 6 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL L P SUK A4,1 P RB(NE) ACGP43 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 , P SUR A2,A4 A
0x0c1e98…0c202c Dummy {f00=0x0035, f01=0x0190, f02=»E LOOP ALSO USED BY RECOVERY ROUTINE ~ PACGP46 CF A5,OUTPUT , ( P IM DWTST,A6 INCREMENT BUFFER INDEX H P SUK A4,1 t P RB(P) ACGP45 P LDR A3,A3 RECOVERY? P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER P LDK A3,2 ST
0x0c202c…0c21c0 Dummy {f00=0x0035, f01=0x0190, f02=»FT CROOM=1 P* ( P CF A15,GETCHR GET CHARACTER TO SEND P ANK A2,/F H P LC A2,ROMTAB,A2 TRANSFORM Z P* | P XIF P* P* P IFF CROOM=1 P* P ANK A2,/7F P* P XIF P* P RB ACGP17
0x0c21c0…0c2354 (0, 246) Dummy {f00=0x0036, f01=0x0190, f02=» * P LDK A2,ETB END OF MESSAGE P CF A5,OUTPUT SEND , PAGP410 LDK A2,ETX LAST DUMMY F P CF A5,OUTPUT SEND j PAGP420 EQU * 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER PENDIO CF A15,TENDIO END I/O $ PEXIT ABL TDISP GO TO DIS
0x0c2354…0c24e8 Dummy {f00=0x0036, f01=0x0190, f02=» , P* UPDAPP = SUBROUTINE TO UPDATE HEAD , P* POSITION POINTER WHEN END 8 ( P* OF REQUEST IS REACHED h PUPDAPP EQU * ( P LC A3,DWTBC,A6 GET POSITION COUNTER 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER
0x0c24e8…0c267c Dummy {f00=0x0036, f01=0x018e, f02=» * P* SKIPSP = SUBROTINE TO SKIP SPACES ( P* IN END OF ECB-BUFFER. 2 6 P* REQUESTED LENGTH IN ECB IS UPDATED. ^ & P* A1,A2,A4 - WORK REG P* PSKIPSP EQU * ( P LD A1,2,A8 GET BUFFER ADDRESS (BA)
0x0c267c…0c2810 Dummy {f00=0x0036, f01=0x0190, f02=» x P SUK A1,1 DECR. BA ! P LCR A4,A1 GET CHAR ! " P CCK A4,/2020 SPACE ? ! > P RF(NE) SKIP20 NO ! PSKIP07 SUK A2,1 DECR RL ! v P RB SKIP05 GET NEXT ! PSKIP20 CWK A2,4 ! P RF(NG) SKIP30 RL < 5 ! P LC A4,-2,A1 GET CHAR ! $ P C
0x0c2810…0c29a4 Dummy {f00=0x0036, f01=0x0190, f02=» ! | P* " " PSKIP30 ST A2,4,A8 STORE NEW RL " P RTN A15 " 8 P XIF " H P EJECT " T P* " b P* I H G P " l P* " P* INTERRUPT " P* " PIHGP EQU * " P LD A4,DWTST,A6 BUSY? " P RB(N) EXIT NO " P SLL A4,2 ECHO MODE ? "
0x0c29a4…0c2b38 Dummy {f00=0x0036, f01=0x0190, f02=»END=0 " P RB(NZ) EXIT # P XIF # " P IFT RECEND=1 # . P RB(NZ) AGP430 # D P XIF # Z P # f 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 # n P EJECT # P* # P* E C H O G P # P* # 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUT
0x0c2b38…0c2ccc Dummy {f00=0x0036, f01=0x0190, f02=»0 # P* $ P SUK A2,/80 EOR-CHARACTER $ P RF(NN) ECGP20 YES $ 6 P ADK A2,/80 $ P P* $ d P XIF $ n P* $ z P LDR A1,A2 $ P ANK A1,/7F $ P SUK A1,/8 $ P RF(E) ECGP40 BACKSPACE $ P SUK A1,/10 $ P RF(E) ECGP50 CLEAR $
0x0c2ccc…0c2e60 Dummy {f00=0x0036, f01=0x0190, f02=»10 CF A5,OUTPUT SEND CHARACTER $ ( P IM DWTST,A6 UPDATE POSITION COUNTER % & P SUK A4,1 READY ? % R P RF(N) ECGP20 YES % l * P RF(P) ECGP60 NO, GO TO CLEAR SECTION % P* % P IFT COSPAC=1 % P* % P LDK A2,SPACE NO SEND SPACE % P RB EC
0x0c2e60…0c2ff4 (0, 247) Dummy {f00=0x0036, f01=0x0190, f02=»RD % n P EJECT & P* & P* BACKSPACE & " P* & 8 PECGP40 EQU * & B & P LDK A2,GPBSP BACKSPACE CHARACTER & V P RB ECGP10 & P* & P* CANCEL & P* & PECGP50 EQU * & " P LDK A2,GPCLR CLEAR CHARACTER & P LDK A4,3 & P R
0x0c2ff4…0c3188 Dummy {f00=0x0036, f01=0x0190, f02=» A2,/08 BACKSPACE & P SUK A3,1 ' P RB(NN) ECGP70 ' , P LDK A3,0 ' B * P SC A3,DWTBC,A6 RESET POSITION COUNTER ' T P RB ECGP20 ' P EJECT ' P* ' P* R C G P ' P* ' 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER ' P* ' P
0x0c3188…0c331c Dummy {f00=0x0036, f01=0x018e, f02=»= DWT-ADDRESS ' P* A7 = ORDER ( P* A8 = ECB-ADDRESS ( . PRCGP EQU * ( L , P CF A15,SAVE8 SAVE 8 REGISTERS ON STACK ( ^ P LD A2,DWTST,A6 BUSY ? ( P RB(N) EXIT NO ( ( P LDK A2,SOH RESET PRINT BUFFER CODE ( P CF A5,OUTPUT SEND IT (
0x0c331c…0c34b0 Dummy {f00=0x0036, f01=0x0190, f02=» ( P RB EXIT ) PRCGP05 EQU * ) 0 P LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD ) , P ANK A2,/4 LINE FEED DONE ? ) ` P ABL(E) ACGP NO ) P LDK A2,SPACE ) P CF A5,OUTPUT SEND SPACE ) P LDK A2,STX ) P CF A5,OUTPUT SEND STX ) P LDK
0x0c34b0…0c3644 Dummy {f00=0x0036, f01=0x4040, f02=»ERR SET RETURN CODE ) P ABL AGP430 * P END * 0@ * <LEFT BYTE OF STATUS WORD ) , P ANK A2,/4 LINE FEED DONE ? ) ` P ABL(E) ACGP NO ) P LDK A2,SPACE ) P CF A5,OUTPUT SEND SPACE ) P LDK A2,STX ) P CF A5,OUTPUT SEND STX ) P LDK
0x0c3644…0c37d8 Dummy {f00=0x0036, f01=0x2008, f02=» + YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x0c37d8…0c396c Dummy {f00=0x0036, f01=0x018e, f02=» P IFT COMPL=1 $ 2 P RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED $ $ PTP645 LDK A1,PROUT 'VOUCHER OUT' $ N , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE $ v P RB TPDUMY $ P XIF $ P EJECT $ P* $ P* $ , P* ORDER 06 AND 0B: LIFT IS POSIT
0x0c396c…0c3b00 Dummy {f00=0x0036, f01=0x018e, f02=» $ l P RB TP410 PRINT ECB-BUFFER % P EJECT % * P IFT CUTPER=1 % 8 P* % N 4 P* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL % X P* % PTP700 EQU * % P LDK A1,1 SET INDEX % P RF TP760 % PTP750 EQU * % P LDK A1,0 SET INDEX %
0x0c3b00…0c3c94 (0, 248) Opaque[0x194]
0x0c3c94…0c3e28 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06d0, f03=0x0000}
0x0c3c94…0c3e28 IdxSect {
0x0c3c94…0c3e28 f00 = 0x0036 // 0xc3c94 @0x0
0x0c3c94…0c3e28 f01 = 0x0016 // 0xc3c96 @0x2
0x0c3c94…0c3e28 gno = [ // 0xc3c98 @0x4
0x0c3c94…0c3e28 [0x00]: C0x0036.0x2.0
0x0c3c94…0c3e28 [0x01]: C0x0036.0x3.0
0x0c3c94…0c3e28 [0x02]: C0x0037.0x0.0
0x0c3c94…0c3e28 [0x03]: C0x0037.0x2.0
0x0c3c94…0c3e28 [0x04]: C0x0037.0x3.0
0x0c3c94…0c3e28 [0x05]: C0x0038.0x0.0
0x0c3c94…0c3e28 [0x06]: C0x0038.0x1.0
0x0c3c94…0c3e28 [0x07]: C0x0038.0x2.0
0x0c3c94…0c3e28 [0x08]: C0x0038.0x3.0
0x0c3c94…0c3e28 [0x09]: C0x0048.0x2.0
0x0c3c94…0c3e28 [0x0a]: C0x0048.0x3.0
0x0c3c94…0c3e28 ]
0x0c3c94…0c3e28 }
0x0c3e28…0c3fbc Dummy {f00=0x0036, 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******************
0x0c3fbc…0c4150 Dummy {f00=0x0036, 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
0x0c4150…0c42e4 Dummy {f00=0x0036, 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*
0x0c42e4…0c4478 Dummy {f00=0x0036, 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*
0x0c4478…0c460c Dummy {f00=0x0036, 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*
0x0c460c…0c47a0 Dummy {f00=0x0036, 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
0x0c47a0…0c4934 (0, 249) Dummy {f00=0x0036, 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
0x0c4934…0c4ac8 Dummy {f00=0x0036, 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
0x0c4ac8…0c4c5c Dummy {f00=0x0036, 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
0x0c4c5c…0c4df0 Dummy {f00=0x0036, 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******
0x0c4df0…0c4f84 Dummy {f00=0x0036, 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
0x0c4f84…0c5118 Dummy {f00=0x0036, 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
0x0c5118…0c52ac Dummy {f00=0x0036, 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
0x0c52ac…0c5440 Dummy {f00=0x0036, 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
0x0c5440…0c55d4 (0, 250) Dummy {f00=0x0037, 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
0x0c55d4…0c5768 Dummy {f00=0x0037, 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
0x0c5768…0c58fc Dummy {f00=0x0037, 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 .
0x0c58fc…0c5a90 Dummy {f00=0x0037, 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*
0x0c5a90…0c5c24 Dummy {f00=0x0037, 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
0x0c5c24…0c5db8 Dummy {f00=0x0037, 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
0x0c5db8…0c5f4c Dummy {f00=0x0037, 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*
0x0c5f4c…0c60e0 Dummy {f00=0x0037, 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
0x0c60e0…0c6274 (0, 251) Dummy {f00=0x0037, 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
0x0c6274…0c6408 Dummy {f00=0x0037, 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
0x0c6408…0c659c Dummy {f00=0x0037, 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 *
0x0c659c…0c6730 Dummy {f00=0x0037, 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*
0x0c6730…0c68c4 Dummy {f00=0x0037, 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
0x0c68c4…0c6a58 Dummy {f00=0x0037, 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
0x0c6a58…0c6bec Dummy {f00=0x0037, 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
0x0c6bec…0c6d80 Dummy {f00=0x0037, 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
0x0c6d80…0c6f14 (0, 252) Dummy {f00=0x0037, 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
0x0c6f14…0c70a8 Dummy {f00=0x0037, 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
0x0c70a8…0c723c Dummy {f00=0x0037, 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 ?
0x0c723c…0c73d0 Dummy {f00=0x0037, 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
0x0c73d0…0c7564 Dummy {f00=0x0037, 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
0x0c7564…0c76f8 Dummy {f00=0x0037, 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
0x0c76f8…0c788c Dummy {f00=0x0037, 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
0x0c788c…0c7a20 Dummy {f00=0x0037, 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
0x0c7a20…0c7bb4 (0, 253) Dummy {f00=0x0038, 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
0x0c7bb4…0c7d48 Dummy {f00=0x0038, 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
0x0c7d48…0c7edc Dummy {f00=0x0038, 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
0x0c7edc…0c8070 Dummy {f00=0x0038, 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,
0x0c8070…0c8204 Dummy {f00=0x0038, 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* *
0x0c8204…0c8398 Dummy {f00=0x0038, 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
0x0c8398…0c852c Dummy {f00=0x0038, 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 ,
0x0c852c…0c86c0 Dummy {f00=0x0038, 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
0x0c86c0…0c8854 (0, 254) Dummy {f00=0x0038, 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
0x0c8854…0c89e8 Dummy {f00=0x0038, 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 /
0x0c89e8…0c8b7c Dummy {f00=0x0038, 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
0x0c8b7c…0c8d10 Dummy {f00=0x0038, 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
0x0c8d10…0c8ea4 Dummy {f00=0x0038, 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
0x0c8ea4…0c9038 Dummy {f00=0x0038, 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,
0x0c9038…0c91cc Dummy {f00=0x0038, 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
0x0c91cc…0c9360 Dummy {f00=0x0038, 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
0x0c9360…0c94f4 (0, 255) Dummy {f00=0x0038, 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
0x0c94f4…0c9688 Dummy {f00=0x0038, 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
0x0c9688…0c981c Dummy {f00=0x0038, 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
0x0c981c…0c99b0 Dummy {f00=0x0038, 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
0x0c99b0…0c9b44 Dummy {f00=0x0038, 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* :
0x0c9b44…0c9cd8 Dummy {f00=0x0038, 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
0x0c9cd8…0c9e6c Dummy {f00=0x0038, 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 <
0x0c9e6c…0ca000 Dummy {f00=0x0038, 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
0x0ca000…0ca194 (0, 256) Dummy {f00=0x0038, 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,
0x0ca194…0ca328 Dummy {f00=0x0038, 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 ?
0x0ca328…0ca4bc Dummy {f00=0x0038, 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
0x0ca4bc…0ca650 Dummy {f00=0x0038, 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
0x0ca650…0ca7e4 Dummy {f00=0x0038, 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
0x0ca7e4…0ca978 Dummy {f00=0x0038, 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
0x0ca978…0cab0c Dummy {f00=0x0038, 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
0x0cab0c…0caca0 Dummy {f00=0x0038, 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
0x0caca0…0cae34 (0, 257) Dummy {f00=0x0048, 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
0x0cae34…0cafc8 Dummy {f00=0x0048, 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 *
0x0cafc8…0cb15c Dummy {f00=0x0048, 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
0x0cb15c…0cb2f0 Dummy {f00=0x0048, 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
0x0cb2f0…0cb484 Dummy {f00=0x0048, 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
0x0cb484…0cb618 Dummy {f00=0x0048, 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
0x0cb618…0cb7ac Dummy {f00=0x0048, 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
0x0cb7ac…0cb940 Dummy {f00=0x0048, 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
0x0cb940…0cbad4 (0, 258) 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
0x0cbad4…0cbc68 Dummy {f00=0x0048, f01=0x2008, f02=»
0x0cbc68…0cbdfc Dummy {f00=0x0048, f01=0x0190, f02=» A6 DWT ADDRESS W P* X P* OUTPUT: A1 UNCHANGED X " 0 P* A2 ADDRESS TO WORD IN DWT AREA X D P* A3 UNCHANGED X x P* A6 UNCHANGED X P* X PSTDWT EQU * X P CF A5,DSPAD X P STR A3,A2 X P RTN A5
0x0cbdfc…0cbf90 Dummy {f00=0x0048, f01=0x0190, f02=»N ROUTINE IS ACTIVE X h > P* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND Y P* RETURN Y ^ P* Y z " P* INPUT: A6 DWT ADDRESS Y P* Y PSETINH INH Y P LD A1,DWTA2,A6 FDON Y P RF(Z) SET:10 NOT ACTIVE Y P ABL T
0x0cbf90…0cc124 Dummy {f00=0x0048, f01=0x0190, f02=» IFT IBM=1 Y P RES 60 Z P XIF Z " P EJECT Z . P* Z < P********************* Z F P* * Z d P* DEVICE WORK TABLE * Z P* * Z P********************* Z P* Z PDWFD01 EQU * Z P DATA 0 Z
0x0cc124…0cc2b8 Dummy {f00=0x0048, f01=0x018e, f02=»RESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR [ P DATA 0 TERMINAL QUEUE [ 4 P DATA 0 [ R P DATA 0 SAVE AREA [ b P DATA 0 [ | P DATA 0 [ P DATA 0,0,0,0 STACK [ ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD [ P DATA -1 [ * PDWTRTY EQU *-DWFD01
0x0cc2b8…0cc44c Dummy {f00=0x0048, f01=0x0190, f02=» [ j P DATA 0 , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR P DATA 0 H , PDWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR X P DATA 0 ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 P DATA 0,0,0 ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 P DAT
0x0cc44c…0cc5e0 Dummy {f00=0x0048, f01=0x0190, f02=» P IFT CHAN=1 ] 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER ] P DATA 0 ] V , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 ] f P DATA 0 ] , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR ] P DATA 0 ] P XIF ] P IFT IBM=1 ] , PDWTB
0x0cc5e0…0cc774 (0, 259) Opaque[0x194]
0x0cc774…0cc908 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0728, f03=0x0000}
0x0cc774…0cc908 IdxSect {
0x0cc774…0cc908 f00 = 0x0039 // 0xcc774 @0x0
0x0cc774…0cc908 f01 = 0x0016 // 0xcc776 @0x2
0x0cc774…0cc908 gno = [ // 0xcc778 @0x4
0x0cc774…0cc908 [0x00]: C0x0039.0x1.0
0x0cc774…0cc908 [0x01]: C0x0039.0x2.0
0x0cc774…0cc908 [0x02]: C0x0039.0x3.0
0x0cc774…0cc908 [0x03]: C0x003a.0x0.0
0x0cc774…0cc908 [0x04]: C0x003a.0x1.0
0x0cc774…0cc908 [0x05]: C0x003a.0x2.0
0x0cc774…0cc908 [0x06]: C0x003a.0x3.0
0x0cc774…0cc908 [0x07]: C0x003b.0x0.0
0x0cc774…0cc908 [0x08]: C0x003b.0x1.0
0x0cc774…0cc908 [0x09]: C0x003b.0x2.0
0x0cc774…0cc908 [0x0a]: C0x003b.0x3.0
0x0cc774…0cc908 ]
0x0cc774…0cc908 }
0x0cc908…0cca9c Dummy {f00=0x0039, 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
0x0cca9c…0ccc30 Dummy {f00=0x0039, 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
0x0ccc30…0ccdc4 Dummy {f00=0x0039, 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*
0x0ccdc4…0ccf58 Dummy {f00=0x0039, 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*
0x0ccf58…0cd0ec Dummy {f00=0x0039, 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
0x0cd0ec…0cd280 Dummy {f00=0x0039, 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
0x0cd280…0cd414 (0, 260) Dummy {f00=0x0039, 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
0x0cd414…0cd5a8 Dummy {f00=0x0039, 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
0x0cd5a8…0cd73c Dummy {f00=0x0039, 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
0x0cd73c…0cd8d0 Dummy {f00=0x0039, 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*
0x0cd8d0…0cda64 Dummy {f00=0x0039, 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*************
0x0cda64…0cdbf8 Dummy {f00=0x0039, 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
0x0cdbf8…0cdd8c Dummy {f00=0x0039, 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
0x0cdd8c…0cdf20 Dummy {f00=0x0039, 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.
0x0cdf20…0ce0b4 (0, 261) Dummy {f00=0x0039, 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
0x0ce0b4…0ce248 Dummy {f00=0x0039, 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* :
0x0ce248…0ce3dc Dummy {f00=0x0039, 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
0x0ce3dc…0ce570 Dummy {f00=0x0039, 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
0x0ce570…0ce704 Dummy {f00=0x0039, 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************************************************
0x0ce704…0ce898 Dummy {f00=0x0039, 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
0x0ce898…0cea2c Dummy {f00=0x0039, 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
0x0cea2c…0cebc0 Dummy {f00=0x0039, 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*
0x0cebc0…0ced54 (0, 262) Dummy {f00=0x003a, 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
0x0ced54…0ceee8 Dummy {f00=0x003a, 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-
0x0ceee8…0cf07c Dummy {f00=0x003a, 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
0x0cf07c…0cf210 Dummy {f00=0x003a, 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
0x0cf210…0cf3a4 Dummy {f00=0x003a, 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
0x0cf3a4…0cf538 Dummy {f00=0x003a, 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
0x0cf538…0cf6cc Dummy {f00=0x003a, 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
0x0cf6cc…0cf860 Dummy {f00=0x003a, 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
0x0cf860…0cf9f4 (0, 263) Dummy {f00=0x003a, 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*
0x0cf9f4…0cfb88 Dummy {f00=0x003a, 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*
0x0cfb88…0cfd1c Dummy {f00=0x003a, 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
0x0cfd1c…0cfeb0 Dummy {f00=0x003a, 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 !
0x0cfeb0…0d0044 Dummy {f00=0x003a, 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
0x0d0044…0d01d8 Dummy {f00=0x003a, 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
0x0d01d8…0d036c Dummy {f00=0x003a, 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
0x0d036c…0d0500 Dummy {f00=0x003a, 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
0x0d0500…0d0694 (0, 264) Dummy {f00=0x003a, 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
0x0d0694…0d0828 Dummy {f00=0x003a, 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
0x0d0828…0d09bc Dummy {f00=0x003a, 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 * (
0x0d09bc…0d0b50 Dummy {f00=0x003a, 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 )
0x0d0b50…0d0ce4 Dummy {f00=0x003a, 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
0x0d0ce4…0d0e78 Dummy {f00=0x003a, 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 ** +
0x0d0e78…0d100c Dummy {f00=0x003a, 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
0x0d100c…0d11a0 Dummy {f00=0x003a, 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* -
0x0d11a0…0d1334 (0, 265) Dummy {f00=0x003a, 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
0x0d1334…0d14c8 Dummy {f00=0x003a, 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
0x0d14c8…0d165c Dummy {f00=0x003a, 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
0x0d165c…0d17f0 Dummy {f00=0x003a, 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
0x0d17f0…0d1984 Dummy {f00=0x003a, 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
0x0d1984…0d1b18 Dummy {f00=0x003a, 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
0x0d1b18…0d1cac Dummy {f00=0x003a, 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,
0x0d1cac…0d1e40 Dummy {f00=0x003a, 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
0x0d1e40…0d1fd4 (0, 266) Dummy {f00=0x003b, 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
0x0d1fd4…0d2168 Dummy {f00=0x003b, 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
0x0d2168…0d22fc Dummy {f00=0x003b, 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
0x0d22fc…0d2490 Dummy {f00=0x003b, 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
0x0d2490…0d2624 Dummy {f00=0x003b, 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
0x0d2624…0d27b8 Dummy {f00=0x003b, 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=
0x0d27b8…0d294c Dummy {f00=0x003b, 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
0x0d294c…0d2ae0 Dummy {f00=0x003b, 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
0x0d2ae0…0d2c74 (0, 267) Dummy {f00=0x003b, 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
0x0d2c74…0d2e08 Dummy {f00=0x003b, 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* ?
0x0d2e08…0d2f9c Dummy {f00=0x003b, 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
0x0d2f9c…0d3130 Dummy {f00=0x003b, 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*
0x0d3130…0d32c4 Dummy {f00=0x003b, 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
0x0d32c4…0d3458 Dummy {f00=0x003b, 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
0x0d3458…0d35ec Dummy {f00=0x003b, 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
0x0d35ec…0d3780 Dummy {f00=0x003b, 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*
0x0d3780…0d3914 (0, 268) Dummy {f00=0x003b, 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
0x0d3914…0d3aa8 Dummy {f00=0x003b, 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
0x0d3aa8…0d3c3c Dummy {f00=0x003b, 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*
0x0d3c3c…0d3dd0 Dummy {f00=0x003b, 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
0x0d3dd0…0d3f64 Dummy {f00=0x003b, 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
0x0d3f64…0d40f8 Dummy {f00=0x003b, 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
0x0d40f8…0d428c Dummy {f00=0x003b, 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
0x0d428c…0d4420 Dummy {f00=0x003b, 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
0x0d4420…0d45b4 (0, 269) Dummy {f00=0x003b, 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
0x0d45b4…0d4748 Dummy {f00=0x003b, f01=0x0008, f02=» 0 8 @ H
0x0d4748…0d48dc Dummy {f00=0x003b, 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*
0x0d48dc…0d4a70 Dummy {f00=0x003b, 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
0x0d4a70…0d4c04 Dummy {f00=0x003b, 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
0x0d4c04…0d4d98 Dummy {f00=0x003b, 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
0x0d4d98…0d4f2c Dummy {f00=0x003b, 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
0x0d4f2c…0d50c0 Dummy {f00=0x003b, 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
0x0d50c0…0d5254 (0, 270) Opaque[0x194]
0x0d5254…0d53e8 # DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0790, f03=0x0000}
0x0d5254…0d53e8 IdxSect {
0x0d5254…0d53e8 f00 = 0x003c // 0xd5254 @0x0
0x0d5254…0d53e8 f01 = 0x0010 // 0xd5256 @0x2
0x0d5254…0d53e8 gno = [ // 0xd5258 @0x4
0x0d5254…0d53e8 [0x00]: C0x003c.0x2.0
0x0d5254…0d53e8 [0x01]: C0x003c.0x3.0
0x0d5254…0d53e8 [0x02]: C0x003d.0x0.0
0x0d5254…0d53e8 [0x03]: C0x003d.0x1.0
0x0d5254…0d53e8 [0x04]: C0x003d.0x2.0
0x0d5254…0d53e8 [0x05]: C0x003d.0x3.0
0x0d5254…0d53e8 [0x06]: C0x003e.0x0.0
0x0d5254…0d53e8 [0x07]: C0x003e.0x1.0
0x0d5254…0d53e8 ]
0x0d5254…0d53e8 }
0x0d53e8…0d557c Dummy {f00=0x003c, 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
0x0d557c…0d5710 Dummy {f00=0x003c, 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
0x0d5710…0d58a4 Dummy {f00=0x003c, 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
0x0d58a4…0d5a38 Dummy {f00=0x003c, 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
0x0d5a38…0d5bcc Dummy {f00=0x003c, 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
0x0d5bcc…0d5d60 Dummy {f00=0x003c, 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
0x0d5d60…0d5ef4 (0, 271) Dummy {f00=0x003c, 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
0x0d5ef4…0d6088 Dummy {f00=0x003c, 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
0x0d6088…0d621c Dummy {f00=0x003c, 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*
0x0d621c…0d63b0 Dummy {f00=0x003c, 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
0x0d63b0…0d6544 Dummy {f00=0x003c, 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* &
0x0d6544…0d66d8 Dummy {f00=0x003c, 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*
0x0d66d8…0d686c Dummy {f00=0x003c, 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
0x0d686c…0d6a00 Dummy {f00=0x003c, 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
0x0d6a00…0d6b94 (0, 272) Dummy {f00=0x003d, 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
0x0d6b94…0d6d28 Dummy {f00=0x003d, 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 *
0x0d6d28…0d6ebc Dummy {f00=0x003d, 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
0x0d6ebc…0d7050 Dummy {f00=0x003d, 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
0x0d7050…0d71e4 Dummy {f00=0x003d, 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
0x0d71e4…0d7378 Dummy {f00=0x003d, 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*
0x0d7378…0d750c Dummy {f00=0x003d, 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
0x0d750c…0d76a0 Dummy {f00=0x003d, 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
0x0d76a0…0d7834 (0, 273) Dummy {f00=0x003d, 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
0x0d7834…0d79c8 Dummy {f00=0x003d, 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
0x0d79c8…0d7b5c Dummy {f00=0x003d, 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
0x0d7b5c…0d7cf0 Dummy {f00=0x003d, 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
0x0d7cf0…0d7e84 Dummy {f00=0x003d, 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
0x0d7e84…0d8018 Dummy {f00=0x003d, 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
0x0d8018…0d81ac Dummy {f00=0x003d, 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
0x0d81ac…0d8340 Dummy {f00=0x003d, 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)
0x0d8340…0d84d4 (0, 274) Dummy {f00=0x003d, 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
0x0d84d4…0d8668 Dummy {f00=0x003d, 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
0x0d8668…0d87fc Dummy {f00=0x003d, 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
0x0d87fc…0d8990 Dummy {f00=0x003d, 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
0x0d8990…0d8b24 Dummy {f00=0x003d, 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*
0x0d8b24…0d8cb8 Dummy {f00=0x003d, 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
0x0d8cb8…0d8e4c Dummy {f00=0x003d, 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 $
0x0d8e4c…0d8fe0 Dummy {f00=0x003d, 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 %
0x0d8fe0…0d9174 (0, 275) Dummy {f00=0x003d, 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
0x0d9174…0d9308 Dummy {f00=0x003d, 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
0x0d9308…0d949c Dummy {f00=0x003d, 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
0x0d949c…0d9630 Dummy {f00=0x003d, 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
0x0d9630…0d97c4 Dummy {f00=0x003d, 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
0x0d97c4…0d9958 Dummy {f00=0x003d, 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
0x0d9958…0d9aec Dummy {f00=0x003d, 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
0x0d9aec…0d9c80 Dummy {f00=0x003d, 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
0x0d9c80…0d9e14 (0, 276) Dummy {f00=0x003e, 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)
0x0d9e14…0d9fa8 Dummy {f00=0x003e, 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:
0x0d9fa8…0da13c Dummy {f00=0x003e, 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
0x0da13c…0da2d0 Dummy {f00=0x003e, 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
0x0da2d0…0da464 Dummy {f00=0x003e, 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
0x0da464…0da5f8 Dummy {f00=0x003e, 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
0x0da5f8…0da78c Dummy {f00=0x003e, 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
0x0da78c…0da920 Dummy {f00=0x003e, 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
0x0da920…0daab4 (0, 277) Dummy {f00=0x003e, 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
0x0daab4…0dac48 Dummy {f00=0x003e, 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
0x0dac48…0daddc Dummy {f00=0x003e, 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
0x0daddc…0daf70 Dummy {f00=0x003e, 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 . @
0x0daf70…0db104 Dummy {f00=0x003e, 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
0x0db104…0db298 Dummy {f00=0x003e, 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* ;
0x0db298…0db42c Dummy {f00=0x003e, 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
0x0db42c…0db5c0 Dummy {f00=0x003e, 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
0x0db5c0…0db754 (0, 278) Opaque[0x194]
0x0db754…0db8e8 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d0, f03=0x0000}
0x0db754…0db8e8 IdxSect {
0x0db754…0db8e8 f00 = 0x003e // 0xdb754 @0x0
0x0db754…0db8e8 f01 = 0x000a // 0xdb756 @0x2
0x0db754…0db8e8 gno = [ // 0xdb758 @0x4
0x0db754…0db8e8 [0x00]: C0x003e.0x2.0
0x0db754…0db8e8 [0x01]: C0x003e.0x3.0
0x0db754…0db8e8 [0x02]: C0x003f.0x0.0
0x0db754…0db8e8 [0x03]: C0x003f.0x2.0
0x0db754…0db8e8 [0x04]: C0x003f.0x3.0
0x0db754…0db8e8 ]
0x0db754…0db8e8 }
0x0db8e8…0dba7c Dummy {f00=0x003e, 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*
0x0dba7c…0dbc10 Dummy {f00=0x003e, 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
0x0dbc10…0dbda4 Dummy {f00=0x003e, 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
0x0dbda4…0dbf38 Dummy {f00=0x003e, 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
0x0dbf38…0dc0cc Dummy {f00=0x003e, 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*
0x0dc0cc…0dc260 Dummy {f00=0x003e, 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
0x0dc260…0dc3f4 (0, 279) Dummy {f00=0x003e, 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
0x0dc3f4…0dc588 Dummy {f00=0x003e, 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
0x0dc588…0dc71c Dummy {f00=0x003e, 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
0x0dc71c…0dc8b0 Dummy {f00=0x003e, 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,..
0x0dc8b0…0dca44 Dummy {f00=0x003e, 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**************************
0x0dca44…0dcbd8 Dummy {f00=0x003e, 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
0x0dcbd8…0dcd6c Dummy {f00=0x003e, 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*
0x0dcd6c…0dcf00 Dummy {f00=0x003e, 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
0x0dcf00…0dd094 (0, 280) Dummy {f00=0x003f, 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*
0x0dd094…0dd228 Dummy {f00=0x003f, 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
0x0dd228…0dd3bc Dummy {f00=0x003f, 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,
0x0dd3bc…0dd550 Dummy {f00=0x003f, 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
0x0dd550…0dd6e4 Dummy {f00=0x003f, 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
0x0dd6e4…0dd878 Dummy {f00=0x003f, 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
0x0dd878…0dda0c Dummy {f00=0x003f, 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.
0x0dda0c…0ddba0 Dummy {f00=0x003f, 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
0x0ddba0…0ddd34 (0, 281) Dummy {f00=0x003f, 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
0x0ddd34…0ddec8 Dummy {f00=0x003f, f01=0x0190, f02=» P* * P************************************* * P* * < * P* S.O.P POWER UP RECOVERY ROUTINE * j * P* * * P************************************* P* P* : P
0x0ddec8…0de05c Dummy {f00=0x003f, 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
0x0de05c…0de1f0 Dummy {f00=0x003f, 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
0x0de1f0…0de384 Dummy {f00=0x003f, 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
0x0de384…0de518 Dummy {f00=0x003f, 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
0x0de518…0de6ac Dummy {f00=0x003f, 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
0x0de6ac…0de840 Dummy {f00=0x003f, f01=0x2008, f02=» -ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE @ P* ^ P END h@ t P* z P* P* D W S O P U : OUTPUT DWT P* P* PDWSOPU EQU * P DATA 0 CHANNEL PARAMETER , P DATA /8000
0x0de840…0de9d4 (0, 282) Dummy {f00=0x003f, 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
0x0de9d4…0deb68 Dummy {f00=0x003f, 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
0x0deb68…0decfc Dummy {f00=0x003f, 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*
0x0decfc…0dee90 Dummy {f00=0x003f, 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
0x0dee90…0df024 Dummy {f00=0x003f, 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* &
0x0df024…0df1b8 Dummy {f00=0x003f, 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*
0x0df1b8…0df34c Dummy {f00=0x003f, 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
0x0df34c…0df4e0 Dummy {f00=0x003f, 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
0x0df4e0…0df674 (0, 283) Opaque[0x194]
0x0df674…0df808 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x0df674…0df808 IdxSect {
0x0df674…0df808 f00 = 0x0040 // 0xdf674 @0x0
0x0df674…0df808 f01 = 0x001a // 0xdf676 @0x2
0x0df674…0df808 gno = [ // 0xdf678 @0x4
0x0df674…0df808 [0x00]: C0x0040.0x0.0
0x0df674…0df808 [0x01]: C0x0040.0x1.0
0x0df674…0df808 [0x02]: C0x0040.0x2.0
0x0df674…0df808 [0x03]: C0x0040.0x3.0
0x0df674…0df808 [0x04]: C0x0041.0x0.0
0x0df674…0df808 [0x05]: C0x0041.0x1.0
0x0df674…0df808 [0x06]: C0x0041.0x3.0
0x0df674…0df808 [0x07]: C0x0042.0x0.0
0x0df674…0df808 [0x08]: C0x0042.0x1.0
0x0df674…0df808 [0x09]: C0x0042.0x2.0
0x0df674…0df808 [0x0a]: C0x0042.0x3.0
0x0df674…0df808 [0x0b]: C0x0049.0x0.0
0x0df674…0df808 [0x0c]: C0x0049.0x1.0
0x0df674…0df808 ]
0x0df674…0df808 }
0x0df808…0df99c Dummy {f00=0x0040, f01=0x018e, f02=» 2 P IDENT DRFD01 REL 8.2 78-09-15 870105040820 P : P LOAD BUG (EOD=74001) B P REL 8.1 78-04-121 b P* ~ 2 P********************************************** P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD01 = DRIV
0x0df99c…0dfb30 Dummy {f00=0x0040, f01=0x0190, f02=» ` 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, < 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON n & P* MULTIPLEX OR PROGRAMMED CHANNEL P* P********* P* P* ORDERS: P*
0x0dfb30…0dfcc4 Dummy {f00=0x0040, f01=0x018e, f02=» /05 BASIC WRITE D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ b P* /15 PHYSICAL WRITE P* /1A SEARCH KEY P* /24 WRITE DELETED DATA P* /26 LOCK D P* /31 REWIND
0x0dfcc4…0dfe58 Dummy {f00=0x0040, f01=0x0190, f02=» P* ENTRY PARAMETERS: P* P* A5 STACK BASE * P* A6 DWT-ADDRESS F P* A7 ORDER b P* A8 ECB-ADDRESS x P EJECT P* P*********** P* * P* ENTRIES * P* * P***********
0x0dfe58…0dffec Dummy {f00=0x0040, 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
0x0dffec…0e0180 Dummy {f00=0x0040, 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
0x0e0180…0e0314 (0, 284) Dummy {f00=0x0040, 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:
0x0e0314…0e04a8 Dummy {f00=0x0040, 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
0x0e04a8…0e063c Dummy {f00=0x0040, 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
0x0e063c…0e07d0 Dummy {f00=0x0040, 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
0x0e07d0…0e0964 Dummy {f00=0x0040, 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,
0x0e0964…0e0af8 Dummy {f00=0x0040, 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
0x0e0af8…0e0c8c Dummy {f00=0x0040, 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
0x0e0c8c…0e0e20 Dummy {f00=0x0040, 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
0x0e0e20…0e0fb4 (0, 285) Dummy {f00=0x0040, 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,
0x0e0fb4…0e1148 Dummy {f00=0x0040, 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
0x0e1148…0e12dc Dummy {f00=0x0040, 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
0x0e12dc…0e1470 Dummy {f00=0x0040, 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
0x0e1470…0e1604 Dummy {f00=0x0040, 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* *
0x0e1604…0e1798 Dummy {f00=0x0040, 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
0x0e1798…0e192c Dummy {f00=0x0040, 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
0x0e192c…0e1ac0 Dummy {f00=0x0040, 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
0x0e1ac0…0e1c54 (0, 286) Dummy {f00=0x0040, 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 *
0x0e1c54…0e1de8 Dummy {f00=0x0040, 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
0x0e1de8…0e1f7c Dummy {f00=0x0040, 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,
0x0e1f7c…0e2110 Dummy {f00=0x0040, 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
0x0e2110…0e22a4 Dummy {f00=0x0040, 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
0x0e22a4…0e2438 Dummy {f00=0x0040, 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
0x0e2438…0e25cc Dummy {f00=0x0040, 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 *
0x0e25cc…0e2760 Dummy {f00=0x0040, 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
0x0e2760…0e28f4 (0, 287) Dummy {f00=0x0041, f01=0x0190, f02=»INHIBIT P LDK A1,DWTEOD $ P CF A5,STDWT STORE EOD NO IN DWT & P* N PLOA:70 EQU * X P XIF l P LD A2,DWTA3,A6 x " P ORS A2,DWTLC,A6 INDICATE LOCK & PLOA:75 LD A3,DWTRCW,A6 RETURN CODE PLOA:80 ABL FD:RC P IFF DAMA+IBM=0
0x0e28f4…0e2a88 Dummy {f00=0x0041, f01=0x018e, f02=» UNLOCK P CF A5,FD:REA P RB LOA:75 & P* 8 : P*---------------------------------------------------- B P* LD:RC SUBROUTINE P* PLD:RC ORS A3,DWTRCW,A6 P ANKL A3,/2007 FATAL ERROR P RB(NZ) LOA:90 & P LDKL A4,B
0x0e2a88…0e2c1c Dummy {f00=0x0041, f01=0x0190, f02=» P* * P********** P* ( PUNLOAD EQU * 2 P IFT IBM=1 F P* X P* DATA SET OPEN? b P* ~ P CF A5,DSOPCH A1,AFFECTED P LDR A7,A7 EOD P RF(Z) UNL:70 NOT OPEN 8 P ST A7,ECBCW,A8 STORE EOD-NO IN CONTROL WO
0x0e2c1c…0e2db0 Dummy {f00=0x0041, f01=0x0190, f02=»READ DATA SET LABEL $ P CF A5,UNL:RC RETURN CODE CHECK ! P ENB ! D P** ! P $ P*------------------------------ ! Z < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) ! P* ! P CF A5,DSOPCH EOD-NO TO A7 ! P* ! P* DIVIDE EOD BY
0x0e2db0…0e2f44 Dummy {f00=0x0041, f01=0x0190, f02=»27 ! P* " P* A1 = BINARY TRACK NO " * P* A7 = SECTOR NO WITHIN TRACK (0-25) " 4 P* " b ( P CF A5,BINDEC TRANSFORM SEC.NO TO A3 " l ( P LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 " P SCR A3,A4 " P SUK A4,1 " P SRL A3,8 LEFT BYTE " P SCR
0x0e2f44…0e30d8 Dummy {f00=0x0041, f01=0x018e, f02=»O BUF " | P CF A5,SETINH INHIBIT # P* # , P* WRITE DATA SET LABEL # 6 P* # V P CF A5,DSLIO PREPARE FOR I/O # ` P ORK A2,5 PHYSICAL WRITE # ( P CF A5,FD:WRITE WRITE DATA SET LEBEL # $ P CF A5,UNL:RC CHECK RETURN CODE # P CF A5,DSOPCH #
0x0e30d8…0e326c Dummy {f00=0x0041, f01=0x0190, f02=» P CF A5,FD:REA $ P ORS A3,DWTRCW,A6 $ P ANK A3,1 $ 4 , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED $ F P LD A2,DWTA3,A6 INDEX MASK $ v , P XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT $ PUNL:80 EQU * $ P RB LOA:75 END:IO $ P IFF DAMA+IBM=0 $
0x0e326c…0e3400 Dummy {f00=0x0041, f01=0x018e, f02=»L:80 ENDIO $ P RTN A5 % P XIF % " P IFT IBM=1 % . P EJECT % @ P* % N P******************* % X P* SEQUENTIAL READ * % t P******************* % P* % PSQREAD EQU * % * P CF A5,DSOPCH GET EOD AND EOD ADDRESS % P LDR A7,A7 EOD %
0x0e3400…0e3594 (0, 288) Dummy {f00=0x0041, f01=0x0190, f02=» % ~ & P ST A3,ECBCW,A8 STORE CRN+1 IN ECB & P CWR A3,A7 & 2 P RF(NL) SQR:10 END OF DATA & D P CF A5,BIO:RE & f P LDKL A4,BUF BUFFER ADDRESS & | 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 & ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS & $ P LD A7
0x0e3594…0e3728 Dummy {f00=0x0041, f01=0x0190, f02=»N & | P* ' P* END OF DATA ' P* ' , $ PSQR:10 LDKL A1,/1000 RETURN CODE ' 6 P RF END:IO ' ^ P EJECT ' p P* ' ~ P******************* ' P* SEQUENTIAL WRITE * ' P******************* ' P* ' PSQWRIT EQU * ' P CF A5,DSOPCH
0x0e3728…0e38bc Dummy {f00=0x0041, f01=0x0190, f02=»TEOE ' & P CF A5,DSPAD EOE-NO ADDRESS TO A2 ( * P ST A7,ECBCW,A8 STORE EOD IN ECB C. W. ( 6 P CWR* A7,A2 ( d P RF(G) SQW:20 YES,EOE ( x P CF A5,BIO ( P LDK A7,128 ( , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF ( P ORK A2,5 PHYS. WRITE (
0x0e38bc…0e3a50 Dummy {f00=0x0041, f01=0x0190, f02=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT ( PSQW:15 RF FD:RC ) . P* ) F P* ) P P* END OF EXTENT ) Z $ PSQW:20 LDKL A1,/400 RETURN CODE ) r P RF END:IO ) P EJECT ) P* ) P********** ) P* REWIND * ) P********** ) P* ) PREWI
0x0e3a50…0e3be4 Dummy {f00=0x0041, f01=0x0190, f02=» LDK A1,DWTBOE ) P CF A5,DSPAD * P LDR* A4,A2 BOE * * P STR A4,A3 EOD = BOE * B P LDK A1,DWTCRN * ^ P CF A5,DSPAD * t P SUK A4,1 BOE - 1 * P STR A4,A2 CRN = BOE -1 * P LDK A1,0 RETURN CODE * P RF END:IO * P XIF * P EJECT *
0x0e3be4…0e3d78 Dummy {f00=0x0041, f01=0x0190, f02=» * ~ P* + P* + P* INPUT: A2 BIO CONTENTS + 0 P* A3 NO OF BYTES TO BE TRANSFERED + @ " P* A4 BUFFER ADDRESS + t P* + PFD:WRI EQU * + P IFT CHAN=0 + P LDKL A1,/C000 WORDS,WRITE + P XIF + P IFT CHAN=1 +
0x0e3d78…0e3f0c Dummy {f00=0x0041, f01=0x0190, f02=»1,1 + P ST A1,DWTRW,A6 READ MODE , P XIF , . P IFT CHAN=0 , : P LDKL A1,/8000 WORDS READ , N P XIF , p PFD:800 EQU * , | P IFT CHAN=0 , " P SRL A3,1 FROM BYTES TO WORDS , P ORR A3,A1 , PWER1 WER A3,MUXADR FIRST WER , $ PWER2 WER
0x0e3f0c…0e40a0 Dummy {f00=0x0041, f01=0x0190, f02=»T A4,DWTUB,A6 , P ADR A3,A4 - " P ST A3,DWTUBE,A6 END ADDRESS+2 - ( P XIF - N PFD:820 EQU * - Z & P ST A5,DWTA5,A6 SAVE STACK POINTER - n $ PFD:CIO CIO A2,1,CUADR CIO-START - ( P RF(3) FD:840 DEVICE ADDRESS UNKNOWN - P RF T:DISP - PFD:840 LDK
0x0e40a0…0e4234 (0, 289) Dummy {f00=0x0041, f01=0x0190, f02=» * - z * P* FD:RC - STORE EFF LEN, END:IO * . * P* * . F * P************************************* . t P* . P* INPUT: A3 RETURN CODE . P* . PFD:RC EQU * . P LDR A1,A3 . P* . " P
0x0e4234…0e43c8 Dummy {f00=0x0041, f01=0x0190, f02=» . P* * / P* END:IO * / P* * / , P********** / > P* / P PEND:IO EQU * / Z P CF A15,TENDIO / n PT:DISP ABL TDISP / P* / P* / " P* ENTRY FROM RECOVERY ROUTINE / P* / 0 PEND:05 CM DWTECB,A6 RESET ECB ADDRESS IN
0x0e43c8…0e455c Dummy {f00=0x0041, f01=0x0190, f02=» P******************** 0 P* * 0 P* RECOVERY ROUTINE * 0 < P* * 0 X P******************** 0 t P* 0 PFDON INH 0 P CF A15,SAVE8 0 P LDKL A6,DWFD01 DWT ADDRESS 0 P IFT INI=1 0 P LD A1,INIFLG 0
0x0e455c…0e46f0 Dummy {f00=0x0041, f01=0x0190, f02=»T RETRY FLAG 0 ~ P XIF 1 P IFT IBM+INI=2 1 P LDR A1,A6 1 6 P ADK A1,DWTEOD 1 H P LDK A2,4 1 ^ PFDON02 EQU * 1 p P CMR A1 CLOSE DATA SET 1 P ADK A1,2 1 P SUK A2,1 1 P RB(P) FDON02 1 P XIF 1 PFDON05 EQU * 1 P IM DWTA2,A6
0x0e46f0…0e4884 Dummy {f00=0x0041, f01=0x0190, f02=»* DWTST IS SET BUSY 1 P* 2 P LD A2,DWTST2,A6 2 ( P CWK A2,-1 2 @ P RF(NE) FDON08 ALREADY SAVED 2 R P LD A2,DWTST,A6 2 v P ST A2,DWTST2,A6 2 PFDON08 CM DWTST,A6 SET BUSY 2 P* 2 P* DELAY 2 SEC 2 P* 2 P LD A4,DWTTP,A6 2
0x0e4884…0e4a18 Dummy {f00=0x0041, f01=0x0190, f02=» 2 | P ADR A4,A6 3 P LDR A1,A6 SAVE A6 3 P CF A15,SETIMP 3 4 P DATA FDON20,TIME 3 J P RB T:DISP 3 d P* 3 v P* TIME OUT ROUTINE 3 P* 3 PFDON20 LDR A6,A1 3 P CM DWTTP,A6 3 P LDK A5,DWTSB2 3 P ADR A5,A6 STACK BASE 3 P*
0x0e4a18…0e4bac Dummy {f00=0x0041, f01=0x0190, f02=»F(Z) FDON30 NOT LOCKED 3 P ST A2,DWTA3,A6 SAVE 4 P* 4 : P* PUT DRIVE NO IN CIO INSTR 4 D P* 4 h P SRN A2,A3 DRIVE NO IN A3 4 r * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR 4 P LDK A2,/14 LOCK 4 P CF A5,FD:REA 4 P LD A2,DWTA3,A6 DRIVE IN
0x0e4bac…0e4d40 Dummy {f00=0x0041, f01=0x0190, f02=»2,/0010 4 P RB(NE) FDON25 5 P* 5 & P* ANY REQUEST? 5 0 P* 5 H P* 5 R . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. 5 P* SET DWTST2 TO -1 5 " P LD A2,DWTST2,A6 SAVED STATUS 5 * P ST A2,DWTST,A6 PUT IN CUURENT STATUS 5 P LDKL A2,-
0x0e4d40…0e4ed4 (0, 290) Dummy {f00=0x0042, f01=0x0190, f02=»B(N) END:05 NO REQUEST, RETURN VIA TENDIO 5 P* 6 2 P* RETRY REQUEST 6 < P* 6 T P IM DWTRTY,A6 INDICATE RETRY 6 ^ P LD A7,DWTOR,A6 6 P ANK A7,/3F ORDER 6 P LD A8,DWTECB,A6 ECB ADDRESS 6 P ABL FDAD REACTIVATE 6 P EJECT 6 P* 6
0x0e4ed4…0e5068 Dummy {f00=0x0042, f01=0x0190, f02=»********* 6 P* 7 PIHFD EQU * 7 $ P ST P,INTSAV SAVE LAST INTERRUPT 7 . P IFT CHAN=1 7 V P STR A1,A15 7 j P STR A2,A15 7 ~ P STR A3,A15 7 P LDKL A2,DWFD01 7 . P LD A1,DWTUB,A2 POINTER AT WORD IN BUFFER 7 * P LD A2,DWTRW,A2 READ / W
0x0e5068…0e51fc Dummy {f00=0x0042, f01=0x0190, f02=»POINTER 7 x P LCR A2,A1 SECOND CHAR. 8 P OTR A2,0,CUADR WRITE 8 0 P RF(A) IH020 ACCEPTED 8 N P RF IH040 NOT ACCEPTED 8 l PIH010 INR A2,0,CUADR READ 8 P RF(NA) IH040 NOT ACCEPTED 8 P ECR A3,A2 8 & P SCR A3,A1 FIRST CHAR. INTO BUFFER 8 $
0x0e51fc…0e5390 Dummy {f00=0x0042, f01=0x0190, f02=» 8 * P ST A1,DWTUB,A2 POINTER AT NEXT CHAR. 9 P CW A1,DWTUBE,A2 9 6 P RF(NE) IH030 NOT LAST WORD 9 N P CIO A2,0,CUADR CIO HALT 9 r PIH030 EQU * 9 P LDR* A3,A15 9 P LDR* A2,A15 9 P LDR* A1,A15 9 P RTN A15 9 P* 9 P* SAVE A4-A8
0x0e5390…0e5524 Dummy {f00=0x0042, f01=0x018e, f02=»TR A8,A15 9 P XIF : P IFF CHAN=1 : P CF A15,SAVE8 : 2 P XIF : H P SST A3,CUADR STATUS : T P LDKL A6,DWFD01 DWT ADDRESS : p P LD A8,DWTECB,A6 ECB ADDRESS : " P LD A5,DWTA5,A6 STACK POINTER : P SLL A3,1 : P RF(N) FDRE READY INTERR
0x0e5524…0e56b8 Dummy {f00=0x0042, f01=0x0190, f02=» : P ANKL A1,/0405 ; P RF(Z) IH:10 RETURN CODE OK ; P LDK A1,/4 ; B P ORR A3,A1 CRC ERROR ; T PIH:10 EQU * ; p P* ; & P* TRANSFORM RETURN CODE, CU - ECB ; P* ; P ANKL A3,/FF37 ; P RF(Z) IH:80 ; P LDR A1,A3 ; " P ANKL A3,/
0x0e56b8…0e584c Dummy {f00=0x0042, f01=0x0190, f02=» ; P LDR A4,A1 < P ANKL A4,/2000 BIT 2 < P SLL A4,1 TO BIT 1 < 6 P ORR A3,A4 < P P XIF < b P LDR A4,A1 < n P ANK A4,/20 BIT 10 < P SLL A4,3 TO BIT 7 < P ORR A3,A4 < P ANK A1,/10 BIT 11 < P SRC A1,5 TO BIT 0 < P ORR A3,A1 <
0x0e584c…0e59e0 Dummy {f00=0x0042, f01=0x0190, f02=»PT * < P* * = P******************** = ( P* = D PFDRE EQU * = N P LD A2,DWTA2,A6 = ` , P ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE = x P LDK A5,DWTSB2 = P ADR A5,A6 STACK BASE = P RB FDON60 = P EJECT = P* = 0 P**
0x0e59e0…0e5b74 (0, 291) Dummy {f00=0x0042, f01=0x0190, f02=» * = n 0 P* * > 0 P******************************************* > F P* > z P******* > P* * > P* BIO * > P* * > P******* > P* > P* > P* INPUT: A8 ECB ADDRESS >
0x0e5b74…0e5d08 Dummy {f00=0x0042, f01=0x0190, f02=» A4 BUFFER ADDRESS > P* ? PBIO EQU * ? * P LDK A4,0 FLAG ? < P RF BIO010 ? R PBIO:RE LDK A4,1 ? d PBIO010 EQU * ? | P LD A3,ECBRL,A8 REQ LEN ? P RF(N) BIOERR ILLEGAL LENGTH ? P IFT DAMA+IBM=2 ? P LD A2,DWTLAB,A6 ? P AN
0x0e5d08…0e5e9c Dummy {f00=0x0042, f01=0x0190, f02=»FT DAMA+IBM=2 ? P RF BIO030 @ P XIF @ ( P IFT DAMA=1 @ 4 PBIO020 LDKL A7,TOSLEN @ H P LDK A2,3 @ f PBIO030 EQU * @ x P XIF @ P IFF DAMA+IBM=0 @ P LDR A4,A4 @ P RF(Z) BIO060 WRITE @ P LDK A2,0 @ P LDR A1,A3 REQ LEN @ &
0x0e5e9c…0e6030 Dummy {f00=0x0042, f01=0x0190, f02=»NO OF SECTORS @ | P RB BIO040 A P* A ( P* WRITE, CHECK REQ LENGTH A 2 P* A T PBIO060 CWR A3,A7 A ^ " P RF(NE) BIOERR ILLEGAL REQ LEN A v P XIF A P IFT DAMA+IBM=0 A P* A > P* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH A
0x0e6030…0e61c4 Dummy {f00=0x0042, f01=0x0190, f02=»D! A ~ P SUK A1,128 B " P RF(Z) BIO100 REQ LEN ACCEPTED B P RF BIO045 B D P* B V PBIO035 SUK A1,128 B ` & P RF(NP) BIO100 REQ LENGTH ACCEPTED B z PBIO045 ADK A2,1 B P CWK A2,3 B P RB(NG) BIO015 B $ P RF BIOERR REQ LEN OUTSIDE RANGE B
0x0e61c4…0e6358 Dummy {f00=0x0042, f01=0x0190, f02=»B IS B f ( P* WITHIN RANGE, PUT IT IN POS 2-12 C P* C 8 P LD A1,ECBCW,A8 SECTOR NO C B P RF(N) BIOER2 OUTSIDE RANGE C d P IFT DAMA+IBM=2 C P ANK A7,/A C P RF(Z) BIO110 IBM DISC C P XIF C P IFT DAMA=1 C P CWK A1,499 C P RF(
0x0e6358…0e64ec Dummy {f00=0x0042, f01=0x018e, f02=» C P IFT IBM=1 D PBIO110 CWK A1,1923 D P RF(P) BIOER2 OUT OF RANGE D 4 P XIF D V P IFT DAMA+IBM=0 D b ( P CWK A1,2001 SECTOR NO OUT OF RANGE D z P RF(G) BIOER2 YES! D P XIF D PBIO120 EQU * D P SLL A1,3 D P ORR A2,A1 D " P LD
0x0e64ec…0e6680 Dummy {f00=0x0042, f01=0x0190, f02=» P* E P* E 2 P* ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO E P* E N PBIOERR ABL END:10 E X P* ILLEGAL SECTOR NO E r PBIOER2 ABL FD:DIS E P* E P********* E P* * E P* FDIX * E P* * E P********* E
0x0e6680…0e6814 (0, 292) Dummy {f00=0x0042, f01=0x0190, f02=»FDIX10 EQU * E P RF(Z) FDIX20 F P SLL A3,1 F * P SUK A2,1 F < P RB FDIX10 F N PFDIX20 RTN A5 F ` P EJECT F v P IFF DAMA+IBM=0 F P****************** F P* * F P* VOLADR * F P* * F P****
0x0e6814…0e69a8 Dummy {f00=0x0042, f01=0x0190, f02=»O F ~ P* G PVOLADR LDK A2,DWTVO0 G P ADR A2,A6 G 0 P LC A3,DWTOR,A6 DRIVE NO G B P ANK A3,/3 G b PVOLA10 EQU * G t P RF(Z) VOLA20 G P ADK A2,6 UPDATE ADDRESS G P SUK A3,1 G P RB VOLA10 G PVOLA20 RTN A5 G P XIF G P G
0x0e69a8…0e6b3c Dummy {f00=0x0042, f01=0x0190, f02=»ORMS A STRING FROM EBCDIC TO G v P* ASCII CODE H $ . P* INPUT STRING ADDRESS IS BUF H D & P* INPUT: A7 NO OF CHARACTERS H v , P* A4 OUTPUT STRING ADDRESS H P* OUTPUT: A1 CHANGED H P* A4 CHANG
0x0e6b3c…0e6cd0 Dummy {f00=0x0042, f01=0x0190, f02=»1 H P RF(N) ASC:20 I P SUK A4,1 I " P LC A1,BUF,A7 GET EBCDIC CHAR I 2 ( P LC A1,TASCII,A1 TRANSFORM TO ASCII I X 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER I P RB ASC:10 I PASC:20 EQU * I " P RF EBC:90 SET INH AND RETURN I P EJE
0x0e6cd0…0e6e64 Dummy {f00=0x0042, f01=0x0190, f02=» TO I P* EBCDIC CODE J 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER J . P* J j & P* INPUT: A7 NO OF CHARACTERS J t * P* A4 INPUT STRING ADDRESS J P* J P* OUTPUT: A1 CHANGED J , P* A
0x0e6e64…0e6ff8 Dummy {f00=0x0042, f01=0x0190, f02=»C:10 SUK A7,1 J P RF(N) EBC:80 K P SUK A4,1 K , P LCR A1,A4 GET ASCII CHAR. K > P LC A1,TEBCDIC,A1 K ` P SC A1,BUF,A7 K z P RB EBC:10 K PEBC:80 EQU * K P LDKL A4,BUF K PEBC:90 EQU * K P CF A5,SETINH K P RTN A5 K P EJE
0x0e6ff8…0e718c Dummy {f00=0x0042, f01=0x0190, f02=»TANDARD K , P* LOGICAL SECTOR (BINARY). L < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) L @ * P* TT = TRACK, SS=SECTOR L P* L , P* INPUT: A4 ADDRESS TO PHYS. SECTOR L P* L & P* OUTPUT: A3 BINAR
0x0e718c…0e7320 Dummy {f00=0x0042, f01=0x0190, f02=»4,2 L P* M P* MULTIPLY BY 26 M P* M 0 P SLL A3,5 *32 M : P LDR A2,A1 M P P SLL A2,2 M b P SUR A3,A2 *28 M t P SLL A1,1 M P SUR A3,A1 *26 M P CF A5,DECBIN M P SUK A1,1 M P ADR A3,A1 M P* M P* CHECK SECTOR NO
0x0e7320…0e74b4 (0, 293) Dummy {f00=0x0042, f01=0x0190, f02=»L A1,1898 M P RF LOG:04 N P* N $ " P* CHECK EOD LESS/EQUAL 74001 N . P* N T PLOG:02 SUKL A1,1899 N ^ PLOG:04 EQU * N z " P RF(P) LOG:10 NOT ACC SEC. NO N " P SUK A4,4 RESET BUFFER POINTER N P RTN A5 N P* N P* FATAL ERROR N
0x0e74b4…0e7648 Dummy {f00=0x0042, f01=0x0190, f02=» N P ABL LOA:90 ERROR ROUTINE O P* O * P********** O 4 P* DECBIN* O F P********** O X P* O j > P* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO O t D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED O , P* INPU
0x0e7648…0e77dc Dummy {f00=0x0042, f01=0x018e, f02=»DK A7,2 O PDEC:10 LCR A2,A4 DIGIT P P ANK A2,/FF P . P SUK A2,/F0 P B P RB(N) LOG:05 P V P SUK A2,9 P l P RB(P) LOG:05 NOT DIGIT P ~ P ADK A2,9 P P SUK A7,1 P P RF(Z) DEC:30 P & P ADK A4,1 ADDRESS TO SECOND DIGIT P PDEC:20
0x0e77dc…0e7970 Dummy {f00=0x0042, f01=0x018e, f02=» P P XIF Q P EJECT Q P* Q " P********** Q , P* SETCIO * Q > P********** Q P P* Q b 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION Q l P* Q 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES Q P* Q P* OUTPUT: A3 CHANGED
0x0e7970…0e7b04 Dummy {f00=0x0042, f01=0x0190, f02=» P RTN A5 R P IFT IBM=1 R P EJECT R & P* R 4 P********** R > P* BINDEC * R P P********** R b P* R t : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO R ~ 0 P* EBCDIC-CODED DIGITS (DECIMAL) R P* R P* INPUT: A7
0x0e7b04…0e7c98 Dummy {f00=0x0042, f01=0x0190, f02=»0 R PBIN:10 SUK A7,10 S P RF(N) BIN:20 S " P ADK A3,1 S 8 P RB BIN:10 S J PBIN:20 ADK A7,10 S P SLL A3,8 S t * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 S P ORKL A3,/F0F0 EBCDIC CODED S P RTN A5 S P EJECT S P********* S P
0x0e7c98…0e7e2c Dummy {f00=0x0042, f01=0x0190, f02=»SS S x P* T : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES T P* A3 128 T R ( P* A4 DRIVER BUFFER ADDRESS T n P* A6 DWT ADDRESS T P* A1 IS CHANGED T P* T PDSLIO LDK A1,DWTDSS T P CF
0x0e7e2c…0e7fc0 Dummy {f00=0x0042, f01=0x0190, f02=»******** T P* DSOPCH * U P********** U " P* U 4 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT U > P* U x P* INPUT: A6 DWT ADDRESS U P* U P* OUTPUT: A2 EOD ADDRESS U , P* A7 EOD-NO (0=NOT OPEN) U P*
0x0e7fc0…0e8154 (0, 294) Dummy {f00=0x0049, f01=0x018e, f02=»********* U P* DSPAD * V P********* V $ P* V 6 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED V @ 6 P* TYPE OF DATA FOR COORESSPONDING DRIVE V v P* V P* INPUT: A1 DWT OFFSET V P* A6 DWT ADDRESS V P* V " P
0x0e8154…0e82e8 Dummy {f00=0x0049, f01=0x0190, f02=» P ADR A2,A2 W P ADR A2,A6 W P ADR A2,A1 W ( P RTN A5 W : P EJECT W J P* W X P********* W b P* STDWT * W t P********* W P* W : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF W P* DRIVE NO W P* W ( P
0x0e82e8…0e847c Dummy {f00=0x0049, f01=0x0190, f02=» P* OUTPUT: A1 UNCHANGED X 0 P* A2 ADDRESS TO WORD IN DWT AREA X & P* A3 UNCHANGED X Z P* A6 UNCHANGED X | P* X PSTDWT EQU * X P CF A5,DSPAD X P STR A3,A2 X P RTN A5 X P EJECT X P* X
0x0e847c…0e8610 Dummy {f00=0x0049, f01=0x0190, f02=» ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND X P* RETURN Y @ P* Y " P* INPUT: A6 DWT ADDRESS Y f P* Y PSETINH INH Y P LD A1,DWTA2,A6 FDON Y P RF(Z) SET:10 NOT ACTIVE Y P ABL T:DISP ESCAPE Y PSET:10 RTN
0x0e8610…0e87a4 Dummy {f00=0x0049, f01=0x0190, f02=» P XIF Z P EJECT Z P* Z P********************* Z ( P* * Z F P* DEVICE WORK TABLE * Z d P* * Z P********************* Z P* Z PDWFD01 EQU * Z P DATA 0 Z P DATA /8000 DWT STATUS Z
0x0e87a4…0e8938 Dummy {f00=0x0049, f01=0x0190, f02=»ATE INDICATOR Z ~ P DATA 0 TERMINAL QUEUE [ P DATA 0 [ 4 P DATA 0 SAVE AREA [ D P DATA 0 [ ^ P DATA 0 [ n P DATA 0,0,0,0 STACK [ ~ ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD [ P DATA -1 [ * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG [ P DAT
0x0e8938…0e8acc Dummy {f00=0x0049, f01=0x0190, f02=»QU *-DWFD01 DISC LABEL INDICATOR [ P DATA 0 ( , PDWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR 8 P DATA 0 h ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 x P DATA 0,0,0 ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 P DATA 0,0,0 ( PDWTVO2 EQU *-DWF
0x0e8acc…0e8c60 Dummy {f00=0x0049, 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
0x0e8c60…0e8df4 (0, 295) Dummy {f00=0x0049, 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 ^ @ ^
0x0e8df4…0e8f88 Dummy {f00=0x0049, f01=0x2008, f02=» _ END @
0x0e8f88…0e911c Dummy {f00=0x0049, f01=0x2008, f02=»
0x0e911c…0e92b0 Dummy {f00=0x0049, 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
0x0e92b0…0e9444 Dummy {f00=0x0049, 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*
0x0e9444…0e95d8 Dummy {f00=0x0049, 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
0x0e95d8…0e976c Dummy {f00=0x0049, 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*
0x0e976c…0e9900 Dummy {f00=0x0049, 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.
0x0e9900…0e9a94 (0, 296) Opaque[0x194]
0x0e9a94…0e9c28 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0860, f03=0x0000}
0x0e9a94…0e9c28 IdxSect {
0x0e9a94…0e9c28 f00 = 0x0043 // 0xe9a94 @0x0
0x0e9a94…0e9c28 f01 = 0x0004 // 0xe9a96 @0x2
0x0e9a94…0e9c28 gno = [ // 0xe9a98 @0x4
0x0e9a94…0e9c28 [0x00]: C0x0043.0x0.0
0x0e9a94…0e9c28 [0x01]: C0x0043.0x1.0
0x0e9a94…0e9c28 ]
0x0e9a94…0e9c28 }
0x0e9c28…0e9dbc Dummy {f00=0x0043, 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*
0x0e9dbc…0e9f50 Dummy {f00=0x0043, 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*
0x0e9f50…0ea0e4 Dummy {f00=0x0043, 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,
0x0ea0e4…0ea278 Dummy {f00=0x0043, 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
0x0ea278…0ea40c Dummy {f00=0x0043, 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
0x0ea40c…0ea5a0 Dummy {f00=0x0043, 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
0x0ea5a0…0ea734 (0, 297) Dummy {f00=0x0043, 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
0x0ea734…0ea8c8 Dummy {f00=0x0043, 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
0x0ea8c8…0eaa5c Dummy {f00=0x0043, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x0eaa5c…0eabf0 Dummy {f00=0x0043, 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
0x0eabf0…0ead84 Dummy {f00=0x0043, 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
0x0ead84…0eaf18 Dummy {f00=0x0043, 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
0x0eaf18…0eb0ac Dummy {f00=0x0043, 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
0x0eb0ac…0eb240 Dummy {f00=0x0043, 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
0x0eb240…0eb3d4 (0, 298) Opaque[0x194]
0x0eb3d4…0eb568 # DirEnt {nam=»ATTACX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0198, f03=0x0000}
0x0eb3d4…0eb568 IdxSect {
0x0eb3d4…0eb568 f00 = 0x000c // 0xeb3d4 @0x0
0x0eb3d4…0eb568 f01 = 0x0002 // 0xeb3d6 @0x2
0x0eb3d4…0eb568 gno = [ // 0xeb3d8 @0x4
0x0eb3d4…0eb568 [0x00]: C0x000c.0x3.0
0x0eb3d4…0eb568 ]
0x0eb3d4…0eb568 }
0x0eb568…0eb6fc Dummy {f00=0x000c, 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*
0x0eb6fc…0eb890 Dummy {f00=0x000c, 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*
0x0eb890…0eba24 Dummy {f00=0x000c, 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
0x0eba24…0ebbb8 Dummy {f00=0x000c, 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
0x0ebbb8…0ebd4c Dummy {f00=0x000c, 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
0x0ebd4c…0ebee0 Dummy {f00=0x000c, 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
0x0ebee0…0ec074 (0, 299) Opaque[0x194]
0x0ec074…0ec208 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0890, f03=0x0000}
0x0ec074…0ec208 IdxSect {
0x0ec074…0ec208 f00 = 0x0044 // 0xec074 @0x0
0x0ec074…0ec208 f01 = 0x0006 // 0xec076 @0x2
0x0ec074…0ec208 gno = [ // 0xec078 @0x4
0x0ec074…0ec208 [0x00]: C0x0044.0x2.0
0x0ec074…0ec208 [0x01]: C0x0044.0x3.0
0x0ec074…0ec208 [0x02]: C0x0045.0x0.0
0x0ec074…0ec208 ]
0x0ec074…0ec208 }
0x0ec208…0ec39c Dummy {f00=0x0044, 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*
0x0ec39c…0ec530 Dummy {f00=0x0044, 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 *
0x0ec530…0ec6c4 Dummy {f00=0x0044, 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
0x0ec6c4…0ec858 Dummy {f00=0x0044, 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
0x0ec858…0ec9ec Dummy {f00=0x0044, 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
0x0ec9ec…0ecb80 Dummy {f00=0x0044, 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
0x0ecb80…0ecd14 (0, 300) Dummy {f00=0x0044, 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
0x0ecd14…0ecea8 Dummy {f00=0x0044, 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
0x0ecea8…0ed03c Dummy {f00=0x0044, 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
0x0ed03c…0ed1d0 Dummy {f00=0x0044, 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 =
0x0ed1d0…0ed364 Dummy {f00=0x0044, 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
0x0ed364…0ed4f8 Dummy {f00=0x0044, 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
0x0ed4f8…0ed68c Dummy {f00=0x0044, 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
0x0ed68c…0ed820 Dummy {f00=0x0044, 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
0x0ed820…0ed9b4 (0, 301) Dummy {f00=0x0045, 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
0x0ed9b4…0edb48 Dummy {f00=0x0045, f01=0x408e, f02=» J F IDENT INTLT1 REL 8.1 78-04-21 870105040810 INTLT1 R INTLT1 d x@
0x0edb48…0edcdc Dummy {f00=0x0045, f01=0x408e, f02=» J F IDENT INTLT2 REL 8.1 78-04-21 870105040810 INTLT2 R INTLT2 d x@
0x0edcdc…0ede70 Dummy {f00=0x0045, f01=0x408e, f02=» J F IDENT INTLT3 REL 8.1 78-04-21 870105040810 INTLT3 R INTLT3 d x@
0x0ede70…0ee004 Dummy {f00=0x0045, f01=0x408e, f02=» J F IDENT INTLT4 REL 8.1 78-04-21 870105040810 INTLT4 R INTLT4 d x@
0x0ee004…0ee198 Dummy {f00=0x0045, f01=0x408e, f02=» J F IDENT INTRT1 REL 8.1 78-04-21 870105040810 INTRT1 R INTRT1 d x@
0x0ee198…0ee32c Dummy {f00=0x0045, f01=0x408e, f02=» J F IDENT INTRT2 REL 8.1 78-04-21 870105040810 INTRT2 R INTRT2 d x@
0x0ee32c…0ee4c0 Dummy {f00=0x0045, f01=0x408e, f02=» J F IDENT INTRT3 REL 8.1 78-04-21 870105040810 INTRT3 R INTRT3 d x@
0x0ee4c0…0ee654 (0, 302) Opaque[0x194]
0x0ee654…0ee7e8 # DirEnt {nam=»GRBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0940, f03=0x0000}
0x0ee654…0ee7e8 IdxSect {
0x0ee654…0ee7e8 f00 = 0x004a // 0xee654 @0x0
0x0ee654…0ee7e8 f01 = 0x0004 // 0xee656 @0x2
0x0ee654…0ee7e8 gno = [ // 0xee658 @0x4
0x0ee654…0ee7e8 [0x00]: C0x004a.0x0.0
0x0ee654…0ee7e8 [0x01]: C0x004a.0x1.0
0x0ee654…0ee7e8 ]
0x0ee654…0ee7e8 }
0x0ee7e8…0ee97c Dummy {f00=0x004a, 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*
0x0ee97c…0eeb10 Dummy {f00=0x004a, 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
0x0eeb10…0eeca4 Dummy {f00=0x004a, 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
0x0eeca4…0eee38 Dummy {f00=0x004a, 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,-
0x0eee38…0eefcc Dummy {f00=0x004a, 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
0x0eefcc…0ef160 Dummy {f00=0x004a, 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
0x0ef160…0ef2f4 (0, 303) Dummy {f00=0x004a, 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
0x0ef2f4…0ef488 Dummy {f00=0x004a, 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
0x0ef488…0ef61c Dummy {f00=0x004a, 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
0x0ef61c…0ef7b0 Dummy {f00=0x004a, 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*
0x0ef7b0…0ef944 Dummy {f00=0x004a, 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
0x0ef944…0efad8 Dummy {f00=0x004a, 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
0x0efad8…0efc6c Dummy {f00=0x004a, f01=0x40dc, f02=» J F IDENT DVTMS REL 8.1 78-04-21 870105040810 DVTMS R DVTMS b MSADN t & " ! ( @
0x0efc6c…0efe00 Dummy {f00=0x004a, f01=0x40ce, f02=» J F IDENT DC:TAB REL 8.1 78-04-21 870105040810 DC:TAB DCTAB R DCTAB j DC:TAB | @
0x0efe00…0eff94 (0, 304) Opaque[0x194]
0x0eff94…0f0128 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0968, f03=0x0000}
0x0eff94…0f0128 IdxSect {
0x0eff94…0f0128 f00 = 0x004b // 0xeff94 @0x0
0x0eff94…0f0128 f01 = 0x0004 // 0xeff96 @0x2
0x0eff94…0f0128 gno = [ // 0xeff98 @0x4
0x0eff94…0f0128 [0x00]: C0x004b.0x1.0
0x0eff94…0f0128 [0x01]: C0x004b.0x2.0
0x0eff94…0f0128 ]
0x0eff94…0f0128 }
0x0f0128…0f02bc Dummy {f00=0x004b, 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*
0x0f02bc…0f0450 Dummy {f00=0x004b, 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
0x0f0450…0f05e4 Dummy {f00=0x004b, 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
0x0f05e4…0f0778 Dummy {f00=0x004b, 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
0x0f0778…0f090c Dummy {f00=0x004b, 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
0x0f090c…0f0aa0 Dummy {f00=0x004b, 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
0x0f0aa0…0f0c34 (0, 305) Dummy {f00=0x004b, 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
0x0f0c34…0f0dc8 Dummy {f00=0x004b, f01=0x2008, f02=»
0x0f0dc8…0f0f5c Dummy {f00=0x004b, 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
0x0f0f5c…0f10f0 Dummy {f00=0x004b, 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
0x0f10f0…0f1284 Dummy {f00=0x004b, 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
0x0f1284…0f1418 Dummy {f00=0x004b, 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
0x0f1418…0f15ac Dummy {f00=0x004b, 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
0x0f15ac…0f1740 Dummy {f00=0x004b, 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
0x0f1740…0f18d4 (0, 306) Opaque[0x194]
0x0f18d4…0f1a68 # DirEnt {nam=»CTAB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x0f18d4…0f1a68 IdxSect {
0x0f18d4…0f1a68 f00 = 0x0015 // 0xf18d4 @0x0
0x0f18d4…0f1a68 f01 = 0x0002 // 0xf18d6 @0x2
0x0f18d4…0f1a68 gno = [ // 0xf18d8 @0x4
0x0f18d4…0f1a68 [0x00]: C0x0015.0x3.0
0x0f18d4…0f1a68 ]
0x0f18d4…0f1a68 }
0x0f1a68…0f1bfc Dummy {f00=0x0015, f01=0x0190, f02=» 2 P IDENT CTAB04 REL 8.2 78-09-15 870105040820 P* : P* D P* CODE CONVERSION TABLE N P* p P* z P ENTRY CTAB04 P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 < P
0x0f1bfc…0f1d90 Dummy {f00=0x0015, f01=0x415c, f02=» 4 t ( PC5 EQU 0 5 ( PC6 EQU 0 6 < ( PC7 EQU 0 7 h P* P* P* PCTAB04 DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P
0x0f1d90…0f1f24 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 @
0x0f1f24…0f20b8 Dummy {f00=0x0015, 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*
0x0f20b8…0f224c Dummy {f00=0x0015, f01=0x018e, f02=» # " P RB(NZ) ERT10 ERASE NOT READY $ P RB READ50 $ . P* $ @ P* $ J P* O L O C K $ T P* $ j P* ORDER LOCK CASSETTE $ t P* $ P* $ " POLOCK CF A8,LOCK LOCK CASSETTE $ " P RB(Z) REW010 CASSETTE LOCKED $ P RB LOAD10 $ P X
0x0f224c…0f23e0 Dummy {f00=0x0015, f01=0x018e, f02=» PSELECT EQU * % P LDK A2,/FF LOAD MASK % " P ANS A2,DWTST,A6 SET DWT BUSY % 6 P IFT DBCAS=1 % P LDK A3,0 SELECT CODE % p 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 SELE
0x0f23e0…0f2574 (0, 307) Opaque[0x194]
0x0f2574…0f2708 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x0f2574…0f2708 IdxSect {
0x0f2574…0f2708 f00 = 0x0002 // 0xf2574 @0x0
0x0f2574…0f2708 f01 = 0x0002 // 0xf2576 @0x2
0x0f2574…0f2708 gno = [ // 0xf2578 @0x4
0x0f2574…0f2708 [0x00]: C0x0002.0x3.0
0x0f2574…0f2708 ]
0x0f2574…0f2708 }
0x0f2708…0f289c Dummy {f00=0x0002, 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
0x0f289c…0f2a30 Dummy {f00=0x0002, 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
0x0f2a30…0f2bc4 Dummy {f00=0x0002, 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
0x0f2bc4…0f2d58 Dummy {f00=0x0002, 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
0x0f2d58…0f2eec Dummy {f00=0x0002, 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
0x0f2eec…0f3080 Dummy {f00=0x0002, 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
0x0f3080…0f3214 (0, 308) Opaque[0x194]
0x0f3214…0f33a8 # DirEnt {nam=»DVTP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0060, f03=0x0000}
0x0f3214…0f33a8 IdxSect {
0x0f3214…0f33a8 f00 = 0x0003 // 0xf3214 @0x0
0x0f3214…0f33a8 f01 = 0x0002 // 0xf3216 @0x2
0x0f3214…0f33a8 gno = [ // 0xf3218 @0x4
0x0f3214…0f33a8 [0x00]: C0x0003.0x0.0
0x0f3214…0f33a8 ]
0x0f3214…0f33a8 }
0x0f33a8…0f353c 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 *
0x0f353c…0f36d0 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
0x0f36d0…0f3864 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
0x0f3864…0f39f8 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
0x0f39f8…0f3b8c Dummy {f00=0x0003, 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
0x0f3b8c…0f3d20 Dummy {f00=0x0003, 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
0x0f3d20…0f3eb4 (0, 309) Opaque[0x194]
0x0f3eb4…0f4048 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x0f3eb4…0f4048 IdxSect {
0x0f3eb4…0f4048 f00 = 0x0003 // 0xf3eb4 @0x0
0x0f3eb4…0f4048 f01 = 0x0002 // 0xf3eb6 @0x2
0x0f3eb4…0f4048 gno = [ // 0xf3eb8 @0x4
0x0f3eb4…0f4048 [0x00]: C0x0003.0x1.0
0x0f3eb4…0f4048 ]
0x0f3eb4…0f4048 }
0x0f4048…0f41dc 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
0x0f41dc…0f4370 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
0x0f4370…0f4504 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
0x0f4504…0f4698 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
0x0f4698…0f482c Dummy {f00=0x0003, f01=0x0190, f02=» h , ( @ _.$ X2 8 X ! " B X ( , ( 0P } _^ > X 8 , ( ( ] 2 ! X V h , ( ! ! ! ! ! * & X X4 %_< * * X * & !
0x0f482c…0f49c0 Dummy {f00=0x0003, 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
0x0f49c0…0f4b54 (0, 310) Opaque[0x194]
0x0f4b54…0f4ce8 # DirEnt {nam=»DVTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0178, f03=0x0000}
0x0f4b54…0f4ce8 IdxSect {
0x0f4b54…0f4ce8 f00 = 0x000b // 0xf4b54 @0x0
0x0f4b54…0f4ce8 f01 = 0x0002 // 0xf4b56 @0x2
0x0f4b54…0f4ce8 gno = [ // 0xf4b58 @0x4
0x0f4b54…0f4ce8 [0x00]: C0x000b.0x3.0
0x0f4b54…0f4ce8 ]
0x0f4b54…0f4ce8 }
0x0f4ce8…0f4e7c Dummy {f00=0x000b, 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 *
0x0f4e7c…0f5010 Dummy {f00=0x000b, 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
0x0f5010…0f51a4 Dummy {f00=0x000b, 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
0x0f51a4…0f5338 Dummy {f00=0x000b, 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
0x0f5338…0f54cc Dummy {f00=0x000b, 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
0x0f54cc…0f5660 Dummy {f00=0x000b, 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
0x0f5660…0f57f4 (0, 311) Opaque[0x194]
0x0f57f4…0f5988 # DirEnt {nam=»DVTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0438, f03=0x0000}
0x0f57f4…0f5988 IdxSect {
0x0f57f4…0f5988 f00 = 0x0021 // 0xf57f4 @0x0
0x0f57f4…0f5988 f01 = 0x0002 // 0xf57f6 @0x2
0x0f57f4…0f5988 gno = [ // 0xf57f8 @0x4
0x0f57f4…0f5988 [0x00]: C0x0021.0x3.0
0x0f57f4…0f5988 ]
0x0f57f4…0f5988 }
0x0f5988…0f5b1c Dummy {f00=0x0021, 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 *
0x0f5b1c…0f5cb0 Dummy {f00=0x0021, 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
0x0f5cb0…0f5e44 Dummy {f00=0x0021, 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
0x0f5e44…0f5fd8 Dummy {f00=0x0021, 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
0x0f5fd8…0f616c Dummy {f00=0x0021, f01=0x2008, f02=»
0x0f616c…0f6300 Dummy {f00=0x0021, 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
0x0f6300…0f6494 (0, 312) Opaque[0x194]
0x0f6494…0f6628 # DirEnt {nam=»DVKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0448, f03=0x0000}
0x0f6494…0f6628 IdxSect {
0x0f6494…0f6628 f00 = 0x0022 // 0xf6494 @0x0
0x0f6494…0f6628 f01 = 0x0002 // 0xf6496 @0x2
0x0f6494…0f6628 gno = [ // 0xf6498 @0x4
0x0f6494…0f6628 [0x00]: C0x0022.0x1.0
0x0f6494…0f6628 ]
0x0f6494…0f6628 }
0x0f6628…0f67bc Dummy {f00=0x0022, f01=0x0190, f02=» 2 P IDENT DVKB03 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DVKB03 TABLE ENTRY t P EXTRN CTAB04 ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY03 P* P* PDVKB03
0x0f67bc…0f6950 Dummy {f00=0x0022, f01=0x0190, f02=»3 LAST OUTPUT, ORDER AND ECB-ADDRESS | ( P DATA KBAD POINTER TO ADDRESS BLOCK , P DATA 'KB' TTAB-ADDRESS X $ P DATA 0 WAIT/INDICATE INDICATOR x P DATA 0 TERMINAL QUEUE * P DATA CTAB04 CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3
0x0f6950…0f6ae4 Dummy {f00=0x0022, f01=0x415c, f02=»WDY03O DEVICE $ P DATA /95A3 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO > 6 P DATA DWTSQ+DVKB03 POINTER TO FIRST PLACE IN QUEUE f 6 P DATA DWTSQ+DVKB03 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DVKB03 P DATA 0,0,0,0,0,0,0,
0x0f6ae4…0f6c78 Dummy {f00=0x0022, 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
0x0f6c78…0f6e0c 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
0x0f6e0c…0f6fa0 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 , ( @
0x0f6fa0…0f7134 (0, 313) Opaque[0x194]
0x0f7134…0f72c8 # DirEnt {nam=»DVDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0440, f03=0x0000}
0x0f7134…0f72c8 IdxSect {
0x0f7134…0f72c8 f00 = 0x0022 // 0xf7134 @0x0
0x0f7134…0f72c8 f01 = 0x0002 // 0xf7136 @0x2
0x0f7134…0f72c8 gno = [ // 0xf7138 @0x4
0x0f7134…0f72c8 [0x00]: C0x0022.0x0.0
0x0f7134…0f72c8 ]
0x0f7134…0f72c8 }
0x0f72c8…0f745c Dummy {f00=0x0022, f01=0x0190, f02=» 2 P IDENT DVDY03 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DVDY03 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDVDY03 EQU * TABLE ENT
0x0f745c…0f75f0 Dummy {f00=0x0022, 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
0x0f75f0…0f7784 Dummy {f00=0x0022, f01=0x4084, f02=»850 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
0x0f7784…0f7918 Dummy {f00=0x0022, 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
0x0f7918…0f7aac 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 |
0x0f7aac…0f7c40 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,
0x0f7c40…0f7dd4 (0, 314) Opaque[0x194]
0x0f7dd4…0f7f68 # DirEnt {nam=»TTABTC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04b0, f03=0x0000}
0x0f7dd4…0f7f68 IdxSect {
0x0f7dd4…0f7f68 f00 = 0x0025 // 0xf7dd4 @0x0
0x0f7dd4…0f7f68 f01 = 0x0002 // 0xf7dd6 @0x2
0x0f7dd4…0f7f68 gno = [ // 0xf7dd8 @0x4
0x0f7dd4…0f7f68 [0x00]: C0x0025.0x2.0
0x0f7dd4…0f7f68 ]
0x0f7dd4…0f7f68 }
0x0f7f68…0f80fc Dummy {f00=0x0025, f01=0x018e, 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
0x0f80fc…0f8290 Dummy {f00=0x0025, 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
0x0f8290…0f8424 Dummy {f00=0x0025, f01=0x40b2, f02=» P DATA /0231 P DATA DWTP01 $ P DATA /0132 D P DATA DWTP01 d PTTABE EQU * P* P END @ TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB
0x0f8424…0f85b8 Dummy {f00=0x0025, 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
0x0f85b8…0f874c Dummy {f00=0x0025, 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*
0x0f874c…0f88e0 Dummy {f00=0x0025, 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
0x0f88e0…0f8a74 (0, 315) Opaque[0x194]
0x0f8a74…0f8c08 # DirEnt {nam=»TTABTB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04b8, f03=0x0000}
0x0f8a74…0f8c08 IdxSect {
0x0f8a74…0f8c08 f00 = 0x0025 // 0xf8a74 @0x0
0x0f8a74…0f8c08 f01 = 0x0002 // 0xf8a76 @0x2
0x0f8a74…0f8c08 gno = [ // 0xf8a78 @0x4
0x0f8a74…0f8c08 [0x00]: C0x0025.0x3.0
0x0f8a74…0f8c08 ]
0x0f8a74…0f8c08 }
0x0f8c08…0f8d9c Dummy {f00=0x0025, f01=0x0190, f02=» 2 P IDENT TTABTB 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 TTABTB TABLE ENTRY P* P* P* P EXTRN DWKB08 P EXTRN DWDY08 P*
0x0f8d9c…0f8f30 Dummy {f00=0x0025, f01=0x415e, f02=»R r P DATA 0 LAST SEGMENT ADDRESS P DATA 0 SEGMENT POINTER . P DATA 0 TERMINAL SAVE AREA N P RES 14 p P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0021 P DATA DWKB08 P DATA /0031
0x0f8f30…0f90c4 Dummy {f00=0x0025, 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
0x0f90c4…0f9258 Dummy {f00=0x0025, 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
0x0f9258…0f93ec Dummy {f00=0x0025, 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
0x0f93ec…0f9580 Dummy {f00=0x0025, 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
0x0f9580…0f9714 (0, 316) Opaque[0x194]
0x0f9714…0f98a8 # DirEnt {nam=»DWKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02f8, f03=0x0000}
0x0f9714…0f98a8 IdxSect {
0x0f9714…0f98a8 f00 = 0x0017 // 0xf9714 @0x0
0x0f9714…0f98a8 f01 = 0x0002 // 0xf9716 @0x2
0x0f9714…0f98a8 gno = [ // 0xf9718 @0x4
0x0f9714…0f98a8 [0x00]: C0x0017.0x3.0
0x0f9714…0f98a8 ]
0x0f9714…0f98a8 }
0x0f98a8…0f9a3c Dummy {f00=0x0017, 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
0x0f9a3c…0f9bd0 Dummy {f00=0x0017, 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
0x0f9bd0…0f9d64 Dummy {f00=0x0017, 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
0x0f9d64…0f9ef8 Dummy {f00=0x0017, 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
0x0f9ef8…0fa08c Dummy {f00=0x0017, 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
0x0fa08c…0fa220 Dummy {f00=0x0017, 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
0x0fa220…0fa3b4 (0, 317) Opaque[0x194]
0x0fa3b4…0fa548 # DirEnt {nam=»DWTP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0520, f03=0x0000}
0x0fa3b4…0fa548 IdxSect {
0x0fa3b4…0fa548 f00 = 0x0029 // 0xfa3b4 @0x0
0x0fa3b4…0fa548 f01 = 0x0002 // 0xfa3b6 @0x2
0x0fa3b4…0fa548 gno = [ // 0xfa3b8 @0x4
0x0fa3b4…0fa548 [0x00]: C0x0029.0x0.0
0x0fa3b4…0fa548 ]
0x0fa3b4…0fa548 }
0x0fa548…0fa6dc Dummy {f00=0x0029, 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 *
0x0fa6dc…0fa870 Dummy {f00=0x0029, 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
0x0fa870…0faa04 Dummy {f00=0x0029, 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
0x0faa04…0fab98 Dummy {f00=0x0029, 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
0x0fab98…0fad2c Dummy {f00=0x0029, f01=0x40e0, f02=»0,0,0,0,0,0,0,0 z * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 P XIF F PMXINDE EQU * END INDEX INDEX R 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX v PMXAR EQU * P RES MXSIZ P END @ EQU * * PMXIND DATA MXINDE-* LENGTH
0x0fad2c…0faec0 Dummy {f00=0x0029, 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*
0x0faec0…0fb054 (0, 318) Opaque[0x194]
0x0fb054…0fb1e8 # DirEnt {nam=»DWDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0538, f03=0x0000}
0x0fb054…0fb1e8 IdxSect {
0x0fb054…0fb1e8 f00 = 0x0029 // 0xfb054 @0x0
0x0fb054…0fb1e8 f01 = 0x0002 // 0xfb056 @0x2
0x0fb054…0fb1e8 gno = [ // 0xfb058 @0x4
0x0fb054…0fb1e8 [0x00]: C0x0029.0x3.0
0x0fb054…0fb1e8 ]
0x0fb054…0fb1e8 }
0x0fb1e8…0fb37c Dummy {f00=0x0029, 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
0x0fb37c…0fb510 Dummy {f00=0x0029, 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
0x0fb510…0fb6a4 Dummy {f00=0x0029, 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
0x0fb6a4…0fb838 Dummy {f00=0x0029, 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
0x0fb838…0fb9cc Dummy {f00=0x0029, 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
0x0fb9cc…0fbb60 Dummy {f00=0x0029, 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 %
0x0fbb60…0fbcf4 (0, 319) Opaque[0x194]
0x0fbcf4…0fbe88 # DirEnt {nam=»DWKB08«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09f0, f03=0x0000}
0x0fbcf4…0fbe88 IdxSect {
0x0fbcf4…0fbe88 f00 = 0x004f // 0xfbcf4 @0x0
0x0fbcf4…0fbe88 f01 = 0x0002 // 0xfbcf6 @0x2
0x0fbcf4…0fbe88 gno = [ // 0xfbcf8 @0x4
0x0fbcf4…0fbe88 [0x00]: C0x004f.0x2.0
0x0fbcf4…0fbe88 ]
0x0fbcf4…0fbe88 }
0x0fbe88…0fc01c Dummy {f00=0x004f, f01=0x0190, f02=» 2 P IDENT DWKB08 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB08 TABLE ENTRY t P EXTRN CTAB04 ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY08 P* P* PDWKB08
0x0fc01c…0fc1b0 Dummy {f00=0x004f, f01=0x0190, f02=»8 LAST OUTPUT, ORDER AND ECB-ADDRESS | ( P DATA KBAD POINTER TO ADDRESS BLOCK , P DATA 'KB' TTAB-ADDRESS X $ P DATA 0 WAIT/INDICATE INDICATOR x P DATA 0 TERMINAL QUEUE * P DATA CTAB04 CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3
0x0fc1b0…0fc344 Dummy {f00=0x004f, f01=0x415c, f02=»WDY08O DEVICE $ P DATA /95A3 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO > 6 P DATA DWTSQ+DWKB08 POINTER TO FIRST PLACE IN QUEUE f 6 P DATA DWTSQ+DWKB08 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB08 P DATA 0,0,0,0,0,0,0,
0x0fc344…0fc4d8 Dummy {f00=0x004f, 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
0x0fc4d8…0fc66c 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
0x0fc66c…0fc800 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
0x0fc800…0fc994 (0, 320) Opaque[0x194]
0x0fc994…0fcb28 # DirEnt {nam=»DWDY08«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x0fc994…0fcb28 IdxSect {
0x0fc994…0fcb28 f00 = 0x0050 // 0xfc994 @0x0
0x0fc994…0fcb28 f01 = 0x0002 // 0xfc996 @0x2
0x0fc994…0fcb28 gno = [ // 0xfc998 @0x4
0x0fc994…0fcb28 [0x00]: C0x0050.0x0.0
0x0fc994…0fcb28 ]
0x0fc994…0fcb28 }
0x0fcb28…0fccbc Dummy {f00=0x0050, f01=0x0190, f02=» 2 P IDENT DWDY08 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY08 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY08 EQU * TABLE ENT
0x0fccbc…0fce50 Dummy {f00=0x0050, 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
0x0fce50…0fcfe4 Dummy {f00=0x0050, f01=0x4084, f02=»850 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
0x0fcfe4…0fd178 Dummy {f00=0x0050, 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
0x0fd178…0fd30c 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
0x0fd30c…0fd4a0 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
0x0fd4a0…0fd634 (0, 321) Opaque[0x194]
0x0fd634…0fd7c8 # DirEnt {nam=»M:KMDV«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0a20, f03=0x0000}
0x0fd634…0fd7c8 IdxSect {
0x0fd634…0fd7c8 f00 = 0x0051 // 0xfd634 @0x0
0x0fd634…0fd7c8 f01 = 0x000c // 0xfd636 @0x2
0x0fd634…0fd7c8 gno = [ // 0xfd638 @0x4
0x0fd634…0fd7c8 [0x00]: C0x0051.0x0.0
0x0fd634…0fd7c8 [0x01]: C0x0051.0x1.0
0x0fd634…0fd7c8 [0x02]: C0x0051.0x2.0
0x0fd634…0fd7c8 [0x03]: C0x0051.0x3.0
0x0fd634…0fd7c8 [0x04]: C0x0052.0x0.0
0x0fd634…0fd7c8 [0x05]: C0x0052.0x1.0
0x0fd634…0fd7c8 ]
0x0fd634…0fd7c8 }
0x0fd7c8…0fd95c Dummy {f00=0x0051, f01=0x0190, f02=» -B v & (6 "", "" , W W W A K " UU ( ) ( ) A A A.
0x0fd95c…0fdaf0 Dummy {f00=0x0051, 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_ ( @ ! 3 @ PX ^ 9j U UL @ ? 4 A T T :J P@ ? ? , ? A >
0x0fdaf0…0fdc84 Dummy {f00=0x0051, 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
0x0fdc84…0fde18 Dummy {f00=0x0051, 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 > _& @ 2 8
0x0fde18…0fdfac Dummy {f00=0x0051, 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
0x0fdfac…0fe140 Dummy {f00=0x0051, f01=0x0190, f02=» r 2 T r r X B" # $ % "$&( J @ 0 D X P _ L R P @ R $P U ' U _ (@(@ I vP ^ r H Y H L W Y " Y , Y * D r B Y E B Y F_ W
0x0fe140…0fe2d4 (0, 322) Dummy {f00=0x0051, f01=0x0190, f02=» T E T F d P C X E X F S W C C W, B B Y ER Q X FU C '? T W6 : T.(@(@ P D0 T t t $ $ L L L L L F X $P R X $W G G : R $ - _ " P $ - : R
0x0fe2d4…0fe468 Dummy {f00=0x0051, f01=0x0190, f02=»W $ P $ - : * J ` X "Pl D ZV" D "? P P &P E Z ! V. P ( ( ( W ` B W C X '? v X " X $ )T 2 " X TV T A J ( 8 P W
0x0fe468…0fe5fc Dummy {f00=0x0051, f01=0x0190, f02=»T P ` 0 U, @ 0 , D Z D * , ] 0 X Wf ` 2 U @ 2 H @ 2 X WF J 4 5W P 0 @ 1 A (@_ - (@ / O $P % 4 < F (@ B P 9 4'
0x0fe5fc…0fe790 Dummy {f00=0x0051, f01=0x0190, f02=» G F G 2 " $ F " F +P P* X $ T U W R PB $P<W X $ X " F $ P W $ P $ - + X ZV" P "P: $P6W X " X ^T* ;AR ( ( ` T Y Z F " F D '? P
0x0fe790…0fe924 Dummy {f00=0x0051, f01=0x0190, f02=» B (@( =a 9a Q - _ - > @ PJ ` A V @ " , - M M M @ " A : A < @ <P 4 A < U <W A < A : @
0x0fe924…0feab8 Dummy {f00=0x0051, f01=0x0190, f02=»=hP Y X PX ,T( Y H D! R W 9a I D ^ W P ,! T T ( d : @ :P < $ ) 5 A : A A > @ A L "" P U @ P @ B E D "# P P @ > P * +W @ 2 0 R %
0x0feab8…0fec4c Dummy {f00=0x0051, f01=0x0190, f02=» W, A "R A A n t n v B B P ! Tl M > : A A " P @ "" P > v @ B (@ D D C C C jW C ( r( L " TOP > A t L A r L C p @
0x0fec4c…0fede0 Dummy {f00=0x0051, f01=0x0190, f02=» ( &( p @ @ T A t 0" U _ L !SSP !LL W L @ L A LV > P E N @ B E P P E ^ P E ` D NT nP > 2% P( R , X DT R ( @ tT R NT @ < > 6 2% P
0x0fede0…0fef74 (0, 323) Dummy {f00=0x0051, f01=0x0190, f02=» t S ( B | H @ LT W nT W| @ P R $ >a U Wd , =b P NP @ L ! T. W> P P D D Y P ^ Y P ` Y U ! T ! X6 _R _V @ P6 I @ P @ V V W H X I Z(@ @ nP -W P B
0x0fef74…0ff108 Dummy {f00=0x0051, f01=0x0190, f02=» R $ R & S ^ < & T A t 0" U _ L !SSP !LL W L @ L A LV P E N @ B E P P E ^ P E ` D NT nP 2% P R , X DT R ( @ tT R NT @ 6 2% P
0x0ff108…0ff29c Dummy {f00=0x0051, f01=0x0190, f02=» t S ( B | H @ LT W nT W @ P R $ >a U & =b P NP @ L ! T W P P D D Y P ^ Y P ` Y U ! T ! X6 _R _V @ P I @ P @ V W H I (@ @ nP -W P B
0x0ff29c…0ff430 Dummy {f00=0x0051, f01=0x0190, f02=» R $ R & S ^ < T A t 0" U _ L !SSP !LL W L @ " , L T L PF L T M Q M L V L A $ @ " : T @ $ [ [ M M M A " -(@ : - : @ " , L T M @ "
0x0ff430…0ff5c4 Dummy {f00=0x0051, f01=0x0190, f02=» t S ( B | H @ LT W nT W @ P R $ >a U =b P NP @ L ! T W P P D D Y P ^ Y P ` Y U ! T ! X6 _R _V @ P I @ P @ V W H I (@ @ nP -W P B
0x0ff5c4…0ff758 Dummy {f00=0x0051, f01=0x0190, f02=» R $ R & S ^ < T A t 0" U _ L !SSP !LL W L @ " , L T L PF L T M Q M L V L A $ @ " : T @ $ [ [ M M M A " -(@ : - : @ " , L T M @ "
0x0ff758…0ff8ec Dummy {f00=0x0051, f01=0x0190, f02=» Q S W S Q R S P W S _ R _ ;A [ [ : T PT PJV P>V SH? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V
0x0ff8ec…0ffa80 Dummy {f00=0x0051, f01=0x0190, f02=» L _P ? ? !? P P !> P W 9P _ V T T< R4 L PX P L P 4 M < X M M _8 Z D HW 0P Q P P E 'P W : X ' X H 1 Y H : H 4W 0P8 R Q P W R D ' Q ( 0 5 @ 1
0x0ffa80…0ffc14 (0, 324) Dummy {f00=0x0051, f01=0x0190, f02=» W X & , U U. _ Y * R P Y P X $ _ W Y " : B P8 T G W( X Z Y Z B I ~ B B : X "? P P X P _^ X * P X C C jW C C X %? : X "_
0x0ffc14…0ffda8 Dummy {f00=0x0051, f01=0x0190, f02=» L _P ? ? !? P 5lJ B B " " " A J ;h # <c$ # " Pz 4 5 T P ? X U X #Z > PV PB P 0 X T Y Wp #2 U T X T E % Y Y Tv 8RrWN #F 4 U
0x0ffda8…0fff3c Dummy {f00=0x0051, f01=0x0190, f02=»(@ L P "& " $P$ D P P, P P _ E W Q Y W 8 " E 4 % Y JB @" P A" #Z " P: P6 #Z Y Y Y Y _ X X Y X X X X ' 4 B U B (" W C Y Y Y X 9BV$ X " Y
0x0fff3c…1000d0 Dummy {f00=0x0051, f01=0x0190, f02=» Y B A&l P T YF ZJ X T X M A%, $r &P H% % &2% &(&D%B% % @ $r ' '$ Px X XP# Y ) Wf &d " P P & _ :CV + W* T T * _<#/ X T Y P ) Y C C Y A%, A&t X
0x1000d0…100264 Dummy {f00=0x0051, f01=0x0190, f02=»_ Y & ;g# + _ Y & _ Y C W A' _ A%j A& A' _$ _ _, _0 _4 _8 _< A ?M P: A' PdQ* ? A& @$ T M -W ,E A& A%j > > >M A& _ A& > ;I C X "A _@ A& A& A& A& & &P# X& & T X T
0x100264…1003f8 Dummy {f00=0x0051, f01=0x0190, f02=»P U & & _ : V # P W Y P X ' P Y _ Y " "' $h ( ( T 8TR 9WD 7P P B A' W B A' @' A.W A I.9 (| X R C A @' A. (| X V 9_8 ' @ ' ( X !. Y
0x1003f8…10058c Dummy {f00=0x0051, f01=0x0190, f02=»W< !-d* _ !-d* _& !-h X ( X P / !+ X ( X P B B !- + !+ !- C X ( X P ) + !+ # T / & !+ !* " 0 TOT 0 SST X Y (W 0 X Y ( Y & / !+ !* X &' P !- !- D/ ) P _ ! Tr X !& Ph B ) )
0x10058c…100720 Dummy {f00=0x0051, f01=0x0190, f02=»+ _ Y & / 4 !. PT C !. !+ !+ (@ !. R _ !. /R 1 ;h 1 !. 1 !. !. * !+ !+ !. ) !+ Y &# T X Y *_ Y &# 4 !. ( C V !-h / !+ B B !- b !. W0 W !. X@ Z !. C (Q !-d !. * !+ !. ! T )WL
0x100720…1008b4 (0, 325) Dummy {f00=0x0052, f01=0x0190, f02=» X T X Y Y X $P y $_F $ 1 ,L _V Y $ X * P Y : !. !+ X # P Y *:A , X Y Y Y X Z Y " X '? ( A ? ? ? / H D H HT $ $B P W&J T" % % / I D H FT B > > > > ? ? ? ? K / X ;AR>
0x1008b4…100a48 Dummy {f00=0x0052, f01=0x0190, f02=»P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 + ) P ;A _ 4 , X # P _ 4(@ R / D/ 1_ W (@ R 0 D0 ]/ _ / !. 4 !.z ;E :B 9A !.z U /RP jW kQ 4 Y & !. * 0" Z Y" P
0x100a48…100bdc Dummy {f00=0x0052, f01=0x0190, f02=»+ 4 T X Y Y X P y _F _V Y X P Y : ! !+ X # P Y :A , X Y Y (
0x100bdc…100d70 Dummy {f00=0x0052, f01=0x0190, f02=»bcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS T
0x100d70…100f04 Dummy {f00=0x0052, f01=0x0190, f02=» @ 1 A _ P 9 J $P H L P _ 2 Tj $ ) 5 P "2 # (P0 4 T D ? ? ? T 2 > > > P 5 ) <_4 n 0 $P , # > "R2 4 P* X T$ X R ? V X " 5
0x100f04…101098 Dummy {f00=0x0052, f01=0x0190, f02=» 3p 3v 3| 3 3 3 3 3 3 3 3 3 3 4 4 R @ T ! 5 ! 5 R P X T X P X P Y @ P@ X P2 X "P0 P( P H T~ H Pn H Pr I Y # C C '? Y
0x101098…10122c Dummy {f00=0x0052, f01=0x0190, f02=» U W C < 4 P "Z Y _ _ f < X4 @ P L t_B 2 ' (| ( / / / / ! 5 5 5| 5 6 6Z6~ 6 6 6 Z 4 <TC , # > "R2 4 P* 6 06Z P6~ 16Z 26Z 7TB
0x10122c…1013c0 Dummy {f00=0x0052, f01=0x0190, f02=» $7&TP &< DY 3 3 $ J: KB B R 6 6 6 &< DY P X P 7@9`9 !"&';<>@^_ 9: X ! Y M78P ^ Y
0x1013c0…101554 (0, 326) Dummy {f00=0x0052, f01=0x0190, f02=» V !# W !9 !8t Y T !# V 76 !# B C !# T " T W Q " T ) !9 7 Y _ !9 Y "P Q W !# Y #" 9 _" 7 _6 !9 _b !9 _h B B , ! T _ D ! P ! P W C V B P !# !# !# Y 4 RNQ
0x101554…1016e8 Dummy {f00=0x0052, f01=0x0190, f02=» X ' W Y !# _ X RD P P # W2 8 8& X R !# Y # !# 7N R _ 4 !# !# " T !# !# 4 X # 4 Y # 7" !# " P ,$ , !# 4: < Y U -P -P R ; X ( ) Y * ;X 8!@P" X P P y
0x1016e8…10187c Dummy {f00=0x0052, f01=0x0190, f02=» P $$ R % C < WV Y &X !; 8$ P W 8$ P $ T W $ Y 'PX Y %P Y $P T < !$, B Z W < W !; * T !$, X P y Y C !$( 0 Z < !$, B Z ZX X * ,T J W X (P Y * 0 %_. % Y * _t _ P
0x10187c…101a10 Dummy {f00=0x0052, f01=0x0190, f02=»P $ , X R ;GV X P P y # X ( $4 P < X *T * W Y ( - Y X Z @_8 B 1 " W JT , < @,@>@ ? !# 8! P !# P P ? & > B P B H " +P P. T Y # !# R X $ Y "R Y " _
0x101a10…101ba4 Dummy {f00=0x0052, f01=0x0190, f02=»$ ? X`" E< P( 8'0P E< TJ ! T 9 _ ! T @_ ! $ B P 8' T( !A B C ? ^T PR RF ?] _ X X "" X %# C V C !# Y B !# Y _` C _ $ $ " $ P X # X ] !# @ = B
0x101ba4…101d38 Dummy {f00=0x0052, f01=0x0190, f02=» $U X $ X " R P !# W Y "_ Y " B Y %U X % T T W V X # Y %U P"R !# _ R _ !# Y # = " !# 8!0T 8 !@P !# $ P !# !# @ !# T Y " X " C X Y " Y > X " X "" Y %Q Y > X
0x101d38…101ecc Dummy {f00=0x0052, f01=0x0190, f02=»A = R V P P" !# @ W @ $X X $ X !A _ X $ X 8! P !A _( X " !A !A Y _D X " X "" Y %U W !# !# !# Y 4 B = U )X R@ X X "" C X % V Y !A X $ X " !A B =
0x101ecc…102060 Dummy {f00=0x0052, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : FDBMIA0 L MXIND ^ , ( > @ (@ X BP @ n * & D P R T D T DR T , ( D U D D @ D , ( 1
0x102060…102d00 (1, 0) DirGranule ((1, 0)) {
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
[…0x1…]
0x102060…102d00 DirEnt {nam=» & P I«, typ=»DE«, f00=0x4e54, f01=0x2020, f02=0x543a, f03=0x5357}
0x102060…102d00 DirEnt {nam=»I0 O«, typ=»RG«, f00=0x2037, f01=0x372d, f02=0x3034, f03=0x2d32}
0x102060…102d00 DirEnt {nam=»7/ULJO«, typ=» «, f00=0x0004, f01=0x0018, f02=0x0050, f03=0x5c5c}
0x102060…102d00 DirEnt {nam=» REL 7«, typ=»8-«, f00=0x3034, f01=0x2d30, f02=0x3120, f03=0x2333}
0x102060…102d00 DirEnt {nam=».1 .«, typ=» «, f00=0x0050, f01=0x5c5c, f02=0x5c52, f03=0x454c}
0x102060…102d00 DirEnt {nam=» 78-03«, typ=»-0«, f00=0x3320, f01=0x2333, f02=0x2e30, f03=0x0000}
0x102060…102d00 DirEnt {nam=» J P«, typ=» «, f00=0x5c52, f01=0x454c, f02=0x2037, f03=0x372d}
0x102060…102d00 DirEnt {nam=»12-07 «, typ=»#2«, f00=0x2e34, f01=0x0000, f02=0x0066, f03=0x0018}
0x102060…102d00 DirEnt {nam=» P R«, typ=»EL«, f00=0x2037, f01=0x372d, f02=0x3132, f03=0x2d30}
0x102060…102d00 DirEnt {nam=»7 #2.4«, typ=» «, f00=0x0082, f01=0x0018, f02=0x0050, f03=0x5c5c}
0x102060…102d00 DirEnt {nam=» REL 7«, typ=»7-«, f00=0x3132, f01=0x2d30, f02=0x3720, f03=0x2332}
0x102060…102d00 DirEnt {nam=».4 «, typ=» «, f00=0x0050, f01=0x5c5c, f02=0x5c52, f03=0x454c}
0x102060…102d00 DirEnt {nam=» 77-09«, typ=»-0«, f00=0x3720, f01=0x2332, f02=0x2e33, f03=0x0000}
0x102060…102d00 DirEnt {nam=» P«, typ=» «, f00=0x5c52, f01=0x454c, f02=0x2037, f03=0x372d}
0x102060…102d00 DirEnt {nam=»06-16 «, typ=»#2«, f00=0x2e32, f01=0x0000, f02=0x00d6, f03=0x0018}
0x102060…102d00 DirEnt {nam=» P R«, typ=»EL«, f00=0x2037, f01=0x372d, f02=0x3036, f03=0x2d31}
0x102060…102d00 DirEnt {nam=»6 #2.2«, typ=» «, f00=0x00f2, f01=0x0018, f02=0x0050, f03=0x5c5c}
0x102060…102d00 DirEnt {nam=» REL 7«, typ=»7-«, f00=0x3036, f01=0x2d31, f02=0x3620, f03=0x2332}
0x102060…102d00 DirEnt {nam=».2 «, typ=» «, f00=0x0050, f01=0x5c5c, f02=0x5c52, f03=0x454c}
0x102060…102d00 DirEnt {nam=» 77-06«, typ=»-1«, f00=0x3620, f01=0x2332, f02=0x2e32, f03=0x0000}
0x102060…102d00 DirEnt {nam=» * P«, typ=» «, f00=0x5c52, f01=0x454c, f02=0x2037, f03=0x372d}
0x102060…102d00 DirEnt {nam=»04-29 «, typ=»#2«, f00=0x2e32, f01=0x0000, f02=0x0146, f03=0x0018}
0x102060…102d00 DirEnt {nam=» P O«, typ=»RG«, f00=0x2037, f01=0x372d, f02=0x3034, f03=0x2d32}
0x102060…102d00 DirEnt {nam=»7/ULJO«, typ=» «, f00=0x0162, f01=0x0004, f02=0x0050, f03=0x0000}
0x102060…102d00 DirEnt {nam=» ~ . P«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x102060…102d00 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x102060…102d00 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a20}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x2020}
[…0x1…]
0x102060…102d00 DirEnt {nam=»* («, typ=» .«, f00=0x0050, f01=0x2a20, f02=0x2043, f03=0x5245}
0x102060…102d00 DirEnt {nam=»DIT AS«, typ=»SE«, f00=0x4d42, f01=0x4c45, f02=0x5220, f03=0x5355}
0x102060…102d00 DirEnt {nam=»BROUTI«, typ=»NE«, f00=0x2045, f01=0x4e54, f02=0x5249, f03=0x4553}
0x102060…102d00 DirEnt {nam=» * «, typ=» Z«, f00=0x002e, f01=0x0050, f02=0x2a20, f03=0x2020}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x2020}
[…0x1…]
0x102060…102d00 DirEnt {nam=» * «, typ=» «, f00=0x008c, f01=0x002e, f02=0x0050, f03=0x2a2a}
0x102060…102d00 DirEnt {nam=»******«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
[…0x1…]
0x102060…102d00 DirEnt {nam=»******«, typ=»* «, f00=0x0001, f01=0x00be, f02=0x0004, f03=0x0050}
0x102060…102d00 DirEnt {nam=» «, typ=» P«, f00=0x5c45, f01=0x4e54, f02=0x5259, f03=0x5c53}
0x102060…102d00 DirEnt {nam=»WITCH «, typ=» «, f00=0x00f8, f01=0x0004, f02=0x0050, f03=0x0001}
0x102060…102d00 DirEnt {nam=» P«, typ=» E«, f00=0x5854, f01=0x524e, f02=0x5c54, f03=0x3a53}
0x102060…102d00 DirEnt {nam=»WIT «, typ=» «, f00=0x0004, f01=0x0050, f02=0x0001, f03=0x012c}
0x102060…102d00 DirEnt {nam=» P «, typ=» 4«, f00=0x0022, f01=0x0050, f02=0x5357, f03=0x4954}
0x102060…102d00 DirEnt {nam=»CH ABL«, typ=» T«, f00=0x3a53, f01=0x5749, f02=0x545c, f03=0x5357}
0x102060…102d00 DirEnt {nam=»ITCH T«, typ=»AS«, f00=0x4b20, f01=0x0001, f02=0x013c, f03=0x0008}
0x102060…102d00 DirEnt {nam=» P END«, typ=» «, f00=0x0162, f01=0x4004, f02=0x0000, f03=0x0001}
0x102060…102d00 DirEnt {nam=» nULJO«, typ=» «, f00=0x0162, f01=0x0004, f02=0x0050, f03=0x0000}
0x102060…102d00 DirEnt {nam=» ~ . P«, typ=»**«, f00=0x2a2a, f01=0x2a2a, f02=0x2a2a, f03=0x2a2a}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x001e, f01=0x4142, f02=0x4f52, f03=0x545c}
0x102060…102d00 DirEnt {nam=»ABL T:«, typ=»AB«, f00=0x4f52, f01=0x5c41, f02=0x424f, f03=0x5254}
0x102060…102d00 DirEnt {nam=» REQUE«, typ=»ST«, f00=0x0003, f01=0x000a, f02=0x0028, f03=0x0023}
0x102060…102d00 DirEnt {nam=»GETTID«, typ=» A«, f00=0x424c, f01=0x5c54, f02=0x3a47, f03=0x4554}
0x102060…102d00 DirEnt {nam=»I GET «, typ=»TA«, f00=0x534b, f01=0x2049, f02=0x4445, f03=0x4e54}
0x102060…102d00 DirEnt {nam=»ITY «, typ=» 0«, f00=0x0004, f01=0x0000, f02=0x0003, f03=0x005c}
0x102060…102d00 DirEnt {nam=» E«, typ=»ND«, f00=0x0003, f01=0x0064, f02=0x4004, f03=0x0000}
0x102060…102d00 DirEnt {nam=» p T«, typ=» «, f00=0x000c, f01=0x5c41, f02=0x424c, f03=0x5c54}
0x102060…102d00 DirEnt {nam=»:RREA1«, typ=» «, f00=0x007a, f01=0x0024, f02=0x001f, f03=0x5257}
0x102060…102d00 DirEnt {nam=»RTE CF«, typ=» P«, f00=0x532c, f01=0x543a, f02=0x4644, f03=0x5350}
0x102060…102d00 DirEnt {nam=» RANDO«, typ=»M «, f00=0x5752, f01=0x4954, f02=0x4520, f03=0x0002}
0x102060…102d00 DirEnt {nam=» «, typ=» A«, f00=0x424c, f01=0x5c54, f02=0x3a52, f03=0x5752}
0x102060…102d00 DirEnt {nam=»T1 «, typ=» «, f00=0x0000, f01=0x0002, f02=0x00ca, f03=0x0022}
0x102060…102d00 DirEnt {nam=» SWIT«, typ=»CH«, f00=0x5c41, f01=0x424c, f02=0x5c54, f03=0x3a53}
0x102060…102d00 DirEnt {nam=»WIT SW«, typ=»IT«, f00=0x4348, f01=0x2054, f02=0x4153, f03=0x4b20}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x4445, f01=0x4c41, f02=0x595c, f03=0x4142}
0x102060…102d00 DirEnt {nam=»L T:DE«, typ=»LA«, f00=0x5c44, f01=0x454c, f02=0x4159, f03=0x0002}
0x102060…102d00 DirEnt {nam=» ( #«, typ=»SE«, f00=0x5454, f01=0x494d, f02=0x5c41, f03=0x424c}
0x102060…102d00 DirEnt {nam=» T:SET«, typ=»T «, f00=0x5345, f01=0x5420, f02=0x4d4f, f03=0x4e49}
0x102060…102d00 DirEnt {nam=»TOR CL«, typ=»OC«, f00=0x4b20, f01=0x0002, f02=0x0116, f03=0x0026}
0x102060…102d00 DirEnt {nam=» !GETT«, typ=»IM«, f00=0x5c41, f01=0x424c, f02=0x5c54, f03=0x3a47}
0x102060…102d00 DirEnt {nam=»ETT GE«, typ=»T «, f00=0x4d4f, f01=0x4e49, f02=0x544f, f03=0x5220}
0x102060…102d00 DirEnt {nam=»CLK «, typ=» B«, f00=0x002a, f01=0x0026, f02=0x5445, f03=0x5354}
0x102060…102d00 DirEnt {nam=»IO ABL«, typ=» T«, f00=0x3a54, f01=0x4553, f02=0x545c, f03=0x5445}
0x102060…102d00 DirEnt {nam=»ST IF «, typ=»I/«, f00=0x4f20, f01=0x4953, f02=0x2052, f03=0x4541}
0x102060…102d00 DirEnt {nam=» d «, typ=» «, f00=0x1d03, f01=0xb507, f02=0x5604, f03=0xe994}
0x102060…102d00 DirEnt {nam=»W V «, typ=» «, f00=0x0300, f01=0x0700, f02=0xe134, f03=0x210f}
0x102060…102d00 DirEnt {nam=» P «, typ=» «, f00=0x840c, f01=0x3c02, f02=0x5388, f03=0x9310}
0x102060…102d00 DirEnt {nam=»S S «, typ=» «, f00=0xff1c, f01=0x581e, f02=0x1501, f03=0xe234}
0x102060…102d00 DirEnt {nam=» 9d «, typ=» *«, f00=0xe126, f01=0xe921, f02=0xc000, f03=0x5202}
0x102060…102d00 DirEnt {nam=» + :«, typ=» «, f00=0x02b0, f01=0x1e01, f02=0x810c, f03=0x1d01}
0x102060…102d00 DirEnt {nam=» V «, typ=» «, f00=0x5702, f01=0xed06, f02=0x5210, f03=0xe334}
0x102060…102d00 DirEnt {nam=» 0R «, typ=» «, f00=0x591c, f01=0xac0c, f02=0x02b0, f03=0x3701}
0x102060…102d00 DirEnt {nam=»Y& P «, typ=» «, f00=0x5a2c, f01=0x3b44, f02=0xa90c, f03=0xe139}
0x102060…102d00 DirEnt {nam=»_8 8«, typ=» «, f00=0x5f3c, f01=0xaf20, f02=0x8000, f03=0xb507}
0x102060…102d00 DirEnt {nam=»V W «, typ=» «, f00=0x594c, f01=0x1400, f02=0x5402, f03=0x0200}
0x102060…102d00 DirEnt {nam=» 9 :«, typ=» «, f00=0x497a, f01=0xe126, f02=0x3964, f03=0x210f}
0x102060…102d00 DirEnt {nam=» + «, typ=» «, f00=0xea98, f01=0x508c, f02=0xb208, f03=0x8720}
0x102060…102d00 DirEnt {nam=» & «, typ=»T «, f00=0x3964, f01=0x210f, f02=0xe920, f03=0x000f}
0x102060…102d00 DirEnt {nam=»T 7 V «, typ=» «, f00=0xef08, f01=0x591a, f02=0x91a0, f03=0x0001}
0x102060…102d00 DirEnt {nam=» Pd_$«, typ=» «, f00=0x9a06, f01=0x9208, f02=0x535a, f03=0x8118}
0x102060…102d00 DirEnt {nam=» Q «, typ=»V «, f00=0x0701, f01=0x1a01, f02=0xe908, f03=0x501c}
0x102060…102d00 DirEnt {nam=» V «, typ=»Q «, f00=0x5704, f01=0xe908, f02=0x510e, f03=0x3701}
0x102060…102d00 DirEnt {nam=»Y «, typ=» «, f00=0x502e, f01=0x5f36, f02=0xe126, f03=0xa71c}
0x102060…102d00 DirEnt {nam=»Q 9d! «, typ=»)0«, f00=0xe12b, f01=0x92a0, f02=0x0001, f03=0xea98}
0x102060…102d00 DirEnt {nam=»P 7 Y «, typ=»Z «, f00=0x91a0, f01=0x0001, f02=0xe994, f03=0x5c24}
0x102060…102d00 DirEnt {nam=» «, typ=»_ «, f00=0xf03a, f01=0x8256, f02=0x0002, f03=0xa029}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x8820, f01=0x4962, f02=0x810c, f03=0xb110}
0x102060…102d00 DirEnt {nam=»! I^«, typ=»" «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x102060…102d00 DirEnt {nam=» Ib «, typ=» «, f00=0x26fe, f01=0x811a, f02=0x9918, f03=0x9918}
0x102060…102d00 DirEnt {nam=» 6 «, typ=»I~«, f00=0x9e98, f01=0x821a, f02=0x9e98, f03=0x845b}
0x102060…102d00 DirEnt {nam=» «, typ=» [«, f00=0xffee, f01=0x81db, f02=0xfff0, f03=0x1202}
0x102060…102d00 DirEnt {nam=» [ «, typ=» [«, f00=0xfffc, f01=0xe618, f02=0x24f0, f03=0xac18}
0x102060…102d00 DirEnt {nam=» [ [«, typ=» «, f00=0x3e68, f01=0x9618, f02=0x863b, f03=0x9ea0}
0x102060…102d00 DirEnt {nam=» «, typ=» <«, f00=0x0c08, f01=0xf6a1, f02=0x200e, f03=0x1b3c}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x0808, f01=0x815a, f02=0x0014, f03=0x1901}
0x102060…102d00 DirEnt {nam=»PF [«, typ=» «, f00=0x3961, f01=0x915a, f02=0x0010, f03=0xe124}
0x102060…102d00 DirEnt {nam=»" T 9d«, typ=»! «, f00=0x190f, f01=0x5002, f02=0x110f, f03=0xf904}
0x102060…102d00 DirEnt {nam=» [ [«, typ=» «, f00=0x5014, f01=0xf6a1, f02=0x200e, f03=0x1910}
0x102060…102d00 DirEnt {nam=» V «, typ=» H«, f00=0xfffe, f01=0xa929, f02=0x5f1a, f03=0xf6a1}
0x102060…102d00 DirEnt {nam=» N «, typ=»_N«, f00=0xe17a, f01=0x0010, f02=0x19c0, f03=0x520e}
0x102060…102d00 DirEnt {nam=» z ! «, typ=»P «, f00=0x3160, f01=0xe17b, f02=0x0008, f03=0x8256}
0x102060…102d00 DirEnt {nam=» (9h«, typ=» «, f00=0x5406, f01=0x1103, f02=0xe149, f03=0xfffe}
0x102060…102d00 DirEnt {nam=» Z ! «, typ=» «, f00=0x1114, f01=0x9684, f02=0xf03a, f03=0x0100}
0x102060…102d00 DirEnt {nam=» 4 «, typ=»P «, f00=0x39c4, f01=0xe135, f02=0x3944, f03=0x5f10}
0x102060…102d00 DirEnt {nam=» ! :d«, typ=»" «, f00=0xa908, f01=0xe135, f02=0xf03a, f03=0x820c}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x4962, f01=0x810c, f02=0xb110, f03=0x2110}
0x102060…102d00 DirEnt {nam=» I^" «, typ=» «, f00=0x4962, f01=0x9e0a, f02=0x1602, f03=0x26fe}
0x102060…102d00 DirEnt {nam=» «, typ=» 6«, f00=0x191a, f01=0x8a20, f02=0x497e, f03=0x9e98}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x845b, f01=0xfff0, f02=0x81db, f03=0xffee}
0x102060…102d00 DirEnt {nam=» [ «, typ=» [«, f00=0xfffa, f01=0x9a18, f02=0x825b, f03=0xfff6}
0x102060…102d00 DirEnt {nam=» $ «, typ=» [«, f00=0xfff8, f01=0x845b, f02=0xfff4, f03=0x9ea0}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x4010, f01=0x0000, f02=0x0033, f03=0x3000}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x0008, f01=0x4802, f02=0x0000, f03=0x000e}
0x102060…102d00 DirEnt {nam=» < «, typ=» «, f00=0x200e, f01=0x1b3c, f02=0x0c04, f03=0xf6a1}
0x102060…102d00 DirEnt {nam=» «, typ=» z«, f00=0x000c, f01=0x22ff, f02=0x8108, f03=0x21f0}
0x102060…102d00 DirEnt {nam=»P ! «, typ=»R «, f00=0x3260, f01=0xe22b, f02=0xe27a, f03=0x0010}
0x102060…102d00 DirEnt {nam=»" P «, typ=» !«, f00=0xc000, f01=0x5206, f02=0x3260, f03=0xe27b}
0x102060…102d00 DirEnt {nam=» 1 ! «, typ=» {«, f00=0x0008, f01=0xe15b, f02=0x0015, f03=0x0700}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x510c, f01=0xf6a1, f02=0x200e, f03=0x1e4e}
0x102060…102d00 DirEnt {nam=» _ «, typ=» «, f00=0x5404, f01=0xe77b, f02=0x0008, f03=0x875b}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x0c00, f01=0x905b, f02=0x0016, f03=0x5142}
0x102060…102d00 DirEnt {nam=» [ «, typ=» «, f00=0x200e, f01=0x1916, f02=0x100c, f03=0x01c0}
0x102060…102d00 DirEnt {nam=» { R «, typ=» [«, f00=0x0012, f01=0x5f16, f02=0xf6a1, f03=0x200e}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x1e4e, f01=0x0808, f02=0xe15a, f03=0x0006}
0x102060…102d00 DirEnt {nam=»! Z «, typ=» «, f00=0xe224, f01=0x925a, f02=0x0012, f03=0xe225}
0x102060…102d00 DirEnt {nam=»_P [«, typ=» «, f00=0x512a, f01=0xf6a1, f02=0x200e, f03=0x1910}
0x102060…102d00 DirEnt {nam=» «, typ=» «, f00=0x1004, f01=0x5218, f02=0x0101, f03=0xe15b}
0x102060…102d00 DirEnt {nam=» Z «, typ=» «, f00=0xe17b, f01=0x000c, f02=0xf6a1, f03=0x200e}
0x102060…102d00 DirEnt {nam=» z«, typ=» «, f00=0x3965, f01=0x2103, f02=0x5710, f03=0x0100}
0x102060…102d00 DirEnt {nam=» Z «, typ=» «, f00=0x9684, f01=0xf03a, f02=0x0103, f03=0x8256}
0x102060…102d00 DirEnt {nam=» I «, typ=»_ «, f00=0x830a, f01=0xe12c, f02=0x8204, f03=0x22f0}
0x102060…102d00 DirEnt {nam=» -! 9H«, typ=» «, f00=0xeb18, f01=0x5822, f02=0xe12c, f03=0x39e4}
0x102060…102d00 DirEnt {nam=» -9d_ «, typ=» Z«, f00=0x0004, f01=0x0100, f02=0xe148, f03=0x0002}
0x102060…102d00 DirEnt {nam=» «, typ=» D«, f00=0xfffe, f01=0xe610, f02=0x26ff, f03=0x960a}
0x102060…102d00 DirEnt {nam=» H «, typ=» «, f00=0x911a, f01=0x81a4, f02=0x8344, f03=0xfffe}
0x102060…102d00 DirEnt {nam=» % «, typ=» «, f00=0x915b, f01=0x0004, f02=0x8f28, f03=0x90c2}
0x102060…102d00 DirEnt {nam=»!! «, typ=» «, f00=0xccc0, f01=0x0000, f02=0x0063, f03=0x0030}
0x102060…102d00 DirEnt {nam=» 0«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x000c}
0x102060…102d00 }
0x102d00…1b0680 (1, 1) [
0x102d00…1b0680 [0x000]: Pad {f00=0x006d, f01=0x0190, f02=» 2 F IDENT I:NTP VER=T,REL=3.0,DATE=78-03-03 ^ 4 0 I:TRC I:NTP I:NTPA I:NTPR I:RT0 I:RT1 I:RT2 ^ : I:MOV ^ r I:ADD ^ I:SUB ^ I:CMP ^ I:MUL ^ * & T ^ I:DIV ^ * &
0x102d00…1b0680 [0x001]: Pad {f00=0x006d, f01=0x0002, f02=»
0x102d00…1b0680 [0x002]: Pad {f00=0x006d, f01=0x0190, f02=» & P IDENT T:TEI0 ORG 77-04-27/ULJO P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2
0x102d00…1b0680 [0x003]: Pad {f00=0x006d, f01=0x0190, f02=»******************************* . P* * ( . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * Z . P* * . P***************************************** P P ENTRY TESTIO,ABOR
0x102d00…1b0680 [0x004]: Pad {f00=0x006d, f01=0x401c, f02=»UEST v P END @ *** . P* * ( . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * Z . P* * . P***************************************** P P ENTRY TESTIO,ABOR
0x102d00…1b0680 [0x005]: Pad {f00=0x006d, f01=0x2008, f02=» ABORT ABL T:ABOR ABORT REQUEST ( #GETTID ABL T:GETI GET TASK IDENTITY 0 END d@ p T ABL T:RREA1 z $ RWRTE CF PS,T:FDSP RANDOM WRITE ABL T:RWRT1 " SWITCH ABL T:SWIT SWITCH TASK DELAY ABL T:DELA D
0x102d00…1b0680 [0x006]: Pad {f00=0x006d, f01=0x0190, f02=» 9 W 6 2 " T v c , ( Y @ : " # d , I:ERR9 d , ( y ;b , (V ; d n , ( [ @ Z H (;AR H d I:ERRA d , ( & z ;AV Z H # d
0x102d00…1b0680 [0x007]: Pad {f00=0x006d, f01=0x0190, f02=» : ,P T d p , ( - 4W P e , ( K " 2@P : [ e @ * & k @ [ @ & @ P e p , ( Z [ 6 [ Z e I:FML e , ( 7 Z 7 : e
0x102d00…1b0680 [0x008]: Pad {f00=0x006d, f01=0x0190, f02=»ARCH CURRENT POSITION t P BZ SETCREAD JUMP IF FOUND " P BL KTHOME POSITION NOT FOUND @ P* f P* COMPULSORY FIELD FOUND p P* & P MOVE SPBINW4,SPBINW3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* P EJECT P* P*
0x102d00…1b0680 [0x009]: Pad {f00=0x006d, f01=0x001e, f02=»
0x102d00…1b0680 [0x00a]: Pad {f00=0x006d, f01=0x0190, f02=» & P IDENT TRABUG UPD 77-02-27/POEG P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P UPD 77-02-27/POEG f P UPD 77-11-08/UKF P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P UPD 77-02-01/ULJO P REL 77-09-07 #2.3
0x102d00…1b0680 [0x00b]: Pad {f00=0x006d, f01=0x0190, f02=»JO ~ P REL 76-12-13 #1.3 P REL 76-11-15 #1.2 & P REL 76-10-07 #1.1 B P EXT 76-10-06/POEG ^ P UPDATE #2 76.05.18 z P REL #1,76-06-15 P* 8 P*************************************************** P* $ P* PH
0x102d00…1b0680 [0x00c]: Pad {f00=0x006d, f01=0x0190, f02=» r P* " P* RELEASE #6 75.11.11 OK P* 8 8 P*************************************************** B P* ~ P* T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T P P* P* ENTRIES
0x102d00…1b0680 [0x00d]: Pad {f00=0x006d, f01=0x0190, f02=»OR RESTART AFTER ABORT t P P & P* . P* EXTERNALS 8 P* L P V P EXTRN T:ATAB TCA TABLE ^ * P EXTRN TT:TON,TT:TRP,TT:LOP TRAP TABLE ~ 2 P EXTRN TT:VON,TT:VER,TT:VMM VERIFICATION TABLE 4 P EXTRN TT:RON,TT:REP,TT:RMD REPORT (TRAC
0x102d00…1b0680 [0x00e]: Pad {f00=0x006d, f01=0x0190, f02=»XTRN TT:MSG ERROR MESSAGE (INDIRECT) & P EXTRN TC:RMP REPORT MODE POINTER , , P EXTRN P:BAS START OF APPL PROGRAM CODE V P P P P P PTRABUG EQU * P P* P* VERSION P* P P DATA /0002 T
0x102d00…1b0680 [0x00f]: Pad {f00=0x006d, f01=0x0190, f02=»NE STACK P* P P RES 100 " PA8STB EQU *-2 2 P H P P P* X P* RELOCATION REGISTERS b P* * PQREGS DATA 0,0,0,0,0,0,0,0 Q REGISTERS $ P DATA 0,0,0,TRABUG,0,P:BAS,0,-8 P P P* P* MODE P*
0x102d00…1b0680 [0x010]: Pad {f00=0x006d, f01=0x0190, f02=» T B P P* P* ENTRY FOR ABORT P* 6 P @ PTB:ABT LDKL A8,RDECB H P LKM d P DATA 10 p P LKM P DATA 3 T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T P P* , P* EN
0x102d00…1b0680 [0x011]: Pad {f00=0x006d, f01=0x018e, f02=»DECB ABORT CONSOLE P LKM P DATA 10 & " P LDKL A8,A8STB LOAD STACK BASE 6 P LDR A5,A1 SAVE ENTRY MODE P CF A8,PRCRLF ~ P LDR A1,A5 " P CF A8,PRCHAR PRINT ENTRY MODE P CF A8,PRSP P LD A2,TT:PRC P CF A8,PRWORD PRINT
0x102d00…1b0680 [0x012]: Pad {f00=0x006d, f01=0x018e, f02=» P * PENT10 SUK A5,2 FIND CLOSEST Q REGISTER $ P RF(N) ENT40 ALL REGISTERS DONE : P LDR A10,A3 b ( P SU A10,QREGS,A5 GET NEXT QREG DISPL v & P TNM A9,A10 AND COMPARE WITH PREV P RF(NN) ENT20 P CWR A10,A9 P RF ENT30 PEN
0x102d00…1b0680 [0x013]: Pad {f00=0x006d, f01=0x018e, f02=» PENT40 LDK A1,'=' P CF A8,PRCHAR P LDR A2,A9 2 P CF A8,PRWORD PRINT DISPL D P LDK A1,',' f P CF A8,PRCHAR z P LDR A1,A6 P SRL A1,1 P CF A8,PRHEX PRINT REG NO P CF A8,PRSP P LDK A1,':' P CF A8,PRCHA
0x102d00…1b0680 [0x014]: Pad {f00=0x006d, f01=0x0190, f02=» | P P CF A8,PR2SP P LD A2,TT:MSG+2 $ P CF A8,PRSTR PRINT MESSAGE < , P CM TT:MSG CLEAR MESSAGE FLAG (ADDRESS) ^ PENT50 EQU * P CM MODE SET DEBUGGER MODE T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T
0x102d00…1b0680 [0x015]: Pad {f00=0x006d, f01=0x018e, f02=» P* EXIT: P* A1: COM CHAR P* A2: ARG2 * P* CR: RES (LD A2,ARG2) < P* Z P d PTB:RDC EQU * l P P . PRDCOM LDKL A8,SOPECB CHECK IF SOP STARTED P LDR* A1,A8 P RF(NN) RDCOM0 YES P LDK A1,0 NO START IT
0x102d00…1b0680 [0x016]: Pad {f00=0x006d, f01=0x0190, f02=» P RF(Z) RDCOM1 P LDK A1,'U' P RF RDCOM2 . PRDCOM1 LDK A1,'T' @ " PRDCOM2 CF A8,PRCHAR PRINT MODE Z P CF A8,PRSP P C2 MODE P RF(Z) RDCOM3 DEBUGGER MODE * P CF A8,WTCHAR WAIT FOR FIRST CHARACTER & PRDCOM3 CF A8,RDARGS
0x102d00…1b0680 [0x017]: Pad {f00=0x006d, f01=0x0190, f02=»G TRABUG TRABUG TRABUG TRABUG T n P 6 P > PCOMTAB DATA 16,ERRIS F P DATA /3D,CALC = b P DATA /57,OPNW W z P DATA /51,OPNQ Q P DATA /4D,DUMP M P DATA /2F,OPEN / P DATA /53,OPNS S P DATA /49,ITEM I P
0x102d00…1b0680 [0x018]: Pad {f00=0x006e, f01=0x0190, f02=» P P DATA /48,HALT H P DATA /52,REPO R " P DATA /56,VERI V : T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T R P P* P* ERROR ENTRIES P* P PERRIS CF A8,PRSP P CF A8,PRQMK
0x102d00…1b0680 [0x019]: Pad {f00=0x006e, f01=0x0190, f02=» ' NO!' T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T P h P* p & P* RDARGS READ <ARG1>;<ARG2>:<TID> z P* * P* EXIT: NORM OR IF SYNTAX ERROR ERRIS P* ARG1,ARG2,TID UPDATED P* A1: ENDING C
0x102d00…1b0680 [0x01a]: Pad {f00=0x006e, f01=0x0190, f02=»Y VALUE P* INDEX: =0: NO INDEX ( P* TID: TERMINAL IDENT 0: NONE GIVEN . P* Z P d PARG1 DATA 0,0,0,0 l PARG2 DATA 0,0,0,0 PTID DATA 0 PTERM DATA 0,0 PSIGN DATA 0 P PVAL EQU 2 PIX1 EQU 4 PIX
0x102d00…1b0680 [0x01b]: Pad {f00=0x006e, f01=0x0190, f02=» CM TID P PRDARG2 CM ARG2 CLEAR ARG2 P CM ARG2+VAL : P CM ARG2+IX1 N P CM ARG2+IX2 b P CM SIGN v PRDTERM CM TERM CLEAR TERM P CM TERM+VAL P CF A8,RDVAL READ VALUE P RF(Z) RDTE10 NONE GIVEN $ P IM TERM INDIC
0x102d00…1b0680 [0x01c]: Pad {f00=0x006e, f01=0x018e, f02=»BR A3 GO TO HANDLER P P $ PCHTAB1 DATA 6,RDARGE , P DATA /2C,QRRELO , H P DATA /2B,ETERM + b P DATA /2D,ETERM - | P DATA /3B,EARG ; P DATA /3A,RDATID : P DATA /28,RDINX ( T P EJECT TRABUG TRABUG TRABUG T
0x102d00…1b0680 [0x01d]: Pad {f00=0x006e, f01=0x0190, f02=» P RB(Z) ERRIS NONE GIVEN P ANK A2,/F CALC ADDR TO REG $ P ADR A2,A2 H P ADR A3,A2 Z P LDR* A2,A3 GET REG VALUE l P ADS A2,TERM+VAL RELOC TERM P IM TERM IND TERM NOT EMPTY P RB RDTE10 P P & PRDINX CF A8,RDVAL
0x102d00…1b0680 [0x01e]: Pad {f00=0x006e, f01=0x0190, f02=»COND INDEX | " P CF A8,RDVAL READ SECOND INDEX P LDR A4,A2 8 P RB(Z) ERRIS ZERO ILLEGAL J P l PRDIN10 CWK A1,')' t & P RB(NE) ERRIS INDEX NOT ENDED CORR P ST A3,ARG2+IX1 SAVE INDEX P ST A4,ARG2+IX2 P CF A8,RDCHAR READ NEXT
0x102d00…1b0680 [0x01f]: Pad {f00=0x006e, f01=0x018e, f02=» P DATA /3B,EARG ; P DATA /3A,RDATID : T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T 6 P . PETERM CF A8,UPDARG TERM ENDED WITH + OR - $ P LD A2,TERM CHECK IF TERM EMPTY P RF(Z) ETER10 YES & P
0x102d00…1b0680 [0x020]: Pad {f00=0x006e, f01=0x0190, f02=» P RB RDTERM P P & PEARG CF A8,UPDARG END OF ARGUMENT & P LD A2,ARG2 SHIFT ARG2, ARG1 P P ST A2,ARG1 t P LD A2,ARG2+VAL P ST A2,ARG1+VAL P LD A2,ARG2+IX1 P ST A2,ARG1+IX1 P LD A2,ARG2+IX2 P ST A2,ARG
0x102d00…1b0680 [0x021]: Pad {f00=0x006e, f01=0x0190, f02=» TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T P R P* Z " P* UPDARG UPDATE ARG2 WITH TERM d P* P* ENTRY: P* TERM,SIGN P* P* EXIT: P* ARG2: UPDATED P* A2,A3: DESTR P* P
0x102d00…1b0680 [0x022]: Pad {f00=0x006e, f01=0x0190, f02=» r P LD A3,SIGN P RF(Z) UPDA20 POS TERM P NGR A2,A2 NEG TERM : & PUPDA20 ADS A2,ARG2+VAL UPDATE ARG2 V P IM ARG2 IND ARG2 NOT EMPTY P RTN A8 T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T
0x102d00…1b0680 [0x023]: Pad {f00=0x006e, f01=0x0190, f02=» P LD A2,ARG2+VAL GET VALUE P CF A8,PRWORD & P ABL RDCOM < T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T N P P* P* W OPEN MEMORY WORD P* P* <ARG2>W OPEN ARG2 ( P* W
0x102d00…1b0680 [0x024]: Pad {f00=0x006e, f01=0x0190, f02=»OPNW20 P & POPNW10 LD A4,ARG2+VAL GET ADDRESS POPNW20 ANKL A4,/FFFE @ P ST A4,LASTAD SAVE LAST ADDR P CF A8,PRSLSH $ P CF A8,GETNEW WAIT FOR NEW VALUE P RF OPNW30 @ OPEN INDIRECT P ADK A4,2 LF OPEN NEXT WORD P CF
0x102d00…1b0680 [0x025]: Pad {f00=0x006e, f01=0x0190, f02=» P LDR A2,A4 $ P CF A8,PRWORD PRINT NEW ADDRESS P LDK A1,'W' > P CF A8,PRCHAR R P RB OPNW20 h T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T z P P P* P* Q OPEN Q REGISTERS P*
0x102d00…1b0680 [0x026]: Pad {f00=0x006e, f01=0x0190, f02=» ( PREGS LDR A2,A2 CHECK IF REG NO GIVEN ( P RF(Z) REGS20 NO PRINT ALL REISTERS 0 " PREGS05 LDR A7,A1 SAVE REG TYPE P LD A6,ARG2+VAL GET REG NO P PREGS10 ANK A6,/F " P LDR A4,A5 CALC ADDRESS TO REG P ADR A4,A6 P ADR A4,A6
0x102d00…1b0680 [0x027]: Pad {f00=0x006e, f01=0x0190, f02=»RCR P CF A8,PR2SP P LDR A1,A6 " P CF A8,PRHEX PRINT NEW REG NO 2 P LDR A1,A7 X P CF A8,PRCHAR j P RB REGS10 P P ( PREGS20 LDK A3,2 PRINT ALL REGISTERS P PREGS30 CF A8,PRCRLF P CF A8,PR8WDS P S
0x102d00…1b0680 [0x028]: Pad {f00=0x006e, f01=0x0190, f02=» T B P P* P* M DUMP MEMORY CONTENTS P* < & P* <ARG1>;ARG2>M DUMP ARG1-ARG2 F ( P* <ARG2>M DUMP ARG2-ARG2+14 p . P* M DUMP FROM LAST ADDRESS P* P & PDUMP RF(NZ) DUMP10 ARG2 NOT EMPTY . P
0x102d00…1b0680 [0x029]: Pad {f00=0x006e, f01=0x0190, f02=» ARG1 NOT EMPTY P LD A5,ARG2+VAL P RF DUMP30 0 PDUMP20 LD A5,ARG1+VAL B PDUMP30 LD A6,ARG2+VAL ` P ~ * PDUMP40 ANKL A5,/FFFE A5=FIRST ADDRESS " P SRL A6,1 A6=LAST ADDRESS / 2 P PDUMP50 CF A8,PRCRLF " P LD A1,SOPEC
0x102d00…1b0680 [0x02a]: Pad {f00=0x006e, f01=0x0190, f02=»,PR2SP & P CF A8,PR8WDS PRINT 8 WORDS IN HEX P 8 & P CF A8,PR2SP PRINT WORDS IN ASCII @ P CF A8,PR2SP j P LDK A2,16 ~ P LDR A3,A5 P SUK A3,16 P CF A8,PRSTR P PDUMP70 C2 WRAP , P ABL(NZ) RDCOM DON'T WRAP AROUND MEM
0x102d00…1b0680 [0x02b]: Pad {f00=0x006e, f01=0x018e, f02=»Y CHECK IF LF x P XRK A1,/0A ! P ABL(NE) RDCOM NOT LF ! * & P CF A8,PRCR LF PRINT NEXT 8 WORDS ! H P RB DUMP60 ! r T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T ! P ! P* ! . P* GETNEW PRINT CONTENTS, GET
0x102d00…1b0680 [0x02c]: Pad {f00=0x006e, f01=0x018e, f02=» ! z P* A4: ADDRESS TO LOCATION " P* " * & P* EXIT: IF END CHAR CR: RDCOM " 4 * P* LF: RETURN LF " ^ ( P* @: RETURN @ " & P* ANY OTHER CHAR: ERRIS " P* A1,A2,A3: DESTR " P* " P "
0x102d00…1b0680 [0x02d]: Pad {f00=0x006e, f01=0x0190, f02=» " P SUK A2,/0D # P RF(Z) GETN10 CR # P SUK A2,/40-/0D # 4 P RF(Z) GETN10 @ # L P SUKL A2,/0A-/40 # d P ABL(NZ) ERRIS ILLEGAL CHAR # | P # $ P LDK A3,2 LF UPDATE RET ADDRESS # P ADS A3,4,A8 # P # PGETN10 LD A3,ARG2 # P RF(
0x102d00…1b0680 [0x02e]: Pad {f00=0x006e, f01=0x018e, f02=»RDCOM CR # P RTN A8 $ T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T $ P $ x P* $ P* / OPEN BYTE $ P* $ P* <ARG2>/ OPEN ARG2 $ " P* / OPEN LAST ADDRESS $ P* $ P $ $ POPEN R
0x102d00…1b0680 [0x02f]: Pad {f00=0x006e, f01=0x0190, f02=» $ l P % * POPEN20 ST A4,LASTAD SAVE LAST ADDRESS % P LCR A2,A4 GET CONTENTS % > P CF A8,PRBYTE PRINT VALUE % ^ P CF A8,PRSP % P CF A8,RDARGS READ NEW VALUE % P % P CWK A1,/0A % P RF(E) OPEN40 LF % P CWK A1,/0D % P ABL(NE) E
0x102d00…1b0680 [0x030]: Pad {f00=0x006e, f01=0x0190, f02=» A2,A4 UPDATE WITH NEW VALUE % POPEN50 SUK A1,/0D & $ P ABL(Z) RDCOM CR RETURN & > P & ^ P CF A8,PRCR LF OPEN NEXT & f P CF A8,PR2SP & P ADK A4,1 & P LDR A2,A4 & $ P CF A8,PRWORD PRINT NEXT ADDRESS & P CF A8,PRSLSH & P RB OPEN20 &
0x102d00…1b0680 [0x031]: Pad {f00=0x006e, f01=0x0190, f02=» P* ' P* S OPEN STATUS ' P* ' & ( P* <ARG2>:<TID>S OPEN TCA + ARG2 ' 0 & P* :<TID>S OPEN COND REG ' P* ' P ' POPNS LD A6,TID ' P RF(NZ) OPNS10 ' , P LD A6,TT:TID NO TID GIVEN TAKE CURRENT ' $ POPNS10 CF A8,FNDTCA LO
0x102d00…1b0680 [0x032]: Pad {f00=0x006e, f01=0x0190, f02=»,ARG2+VAL ' P ADR A4,A7 OPEN TCA ( P ABL OPNW20 ( . P ( B & POPNS20 CF A8,PRSLSH OPEN COND REG ( J ( P LD A4,2,A7 CALC ADDRESS TO COND REG ( t P SUK A4,2 ( P LCR A1,A4 ( P ANK A1,3 ( P CF A8,PRHEX PRINT COND REG ( P CF A8,PRSP (
0x102d00…1b0680 [0x033]: Pad {f00=0x006e, f01=0x0190, f02=» NEW VALUE ( P LD A2,ARG2+VAL ) P ANK A2,3 ) * " P SCR A2,A4 STORE NEW COND REG ) < P ) b POPNSOK ABL RDCOM ) j P ) POPNSER ABL ERRIS ) T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T ) P ) P* )
0x102d00…1b0680 [0x034]: Pad {f00=0x006e, f01=0x0190, f02=» ARGUMENT ) | P * " P LD A3,ARG2+VAL GET EL ADDRESS * P LD A4,ARG2+IX1 AND INDEX * @ P LD A5,ARG2+IX2 * b P LD A6,TID AND TID * z P RF(NZ) ITEM10 * , P LD A6,TT:TID NO TID GIVEN TAKE CURRENT * P * & PITEM10 CF A8,FNDEL GO AND FIND EL *
0x102d00…1b0680 [0x035]: Pad {f00=0x006e, f01=0x0190, f02=»M30 ASCII ITEM * P SUK A1,2 + P ABL(Z) OPNW20 BINARY ITEM + ( P + J P CF A8,INILIN BCD ITEM + R P LCR A1,A9 GET SIGN + p P SRL A1,4 + P ANK A1,/F + P ORK A1,/20 + P CF A8,PRALIN AND PRINT + P RF ITEM25 + PITEM20 ADKL A9,1 +
0x102d00…1b0680 [0x036]: Pad {f00=0x006e, f01=0x0190, f02=» A1,A9 + P CF A8,PRDLIN , P RB ITEM20 , $ P , 6 " PITEM30 CF A8,INILIN ASCII ITEM , > ( PITEM40 LCR A1,A9 GET CHAR AND PRINT , d P CF A8,PRALIN , P ADKL A9,1 , P SUKL A11,1 , P RB(NZ) ITEM40 , P , PITEMOK ABL RDCOM , PITEMER A
0x102d00…1b0680 [0x037]: Pad {f00=0x006e, f01=0x0190, f02=»BCD OR ASCII PRINT , | P* - PINILIN ST A1,INILA1+2 - $ P LDKL A1,-74 - B P ST A1,LINCTR - V P CF A8,PRCRLF - l " P LD A1,SOPECB CHECK IF SOP HIT - P RB(N) ITEMOK - P CF A8,PR2SP - PINILA1 LDKL A1,0 - P RTN A8 - P - PLINCTR D
0x102d00…1b0680 [0x038]: Pad {f00=0x006f, f01=0x0190, f02=»1,/FF-'0' ILL BCD - P ADK A1,'0' . P* . . P* PRINT ONE ASCII IN LINE . 8 P* . Z PPRALIN IM LINCTR . d P RF(NP) PRAL10 . | " P CF A8,INILIN LAST LINE READY . P RB PRALIN . PPRAL10 CF A8,PRASC . P RTN A8 . T P EJECT TRABUG TRA
0x102d00…1b0680 [0x039]: Pad {f00=0x006f, f01=0x0190, f02=»TID>J OPEN ARG2 TID . P* / P / ( " POPNB RF(Z) OPNBER NO ARGUMENT / 0 P LD A5,ARG2+VAL GET EL NO / V P LDR A3,A5 CALC BLK NO / x P ANK A3,/F0 / P LDK A4,0 / P LD A6,TID / P RF(NZ) OPNB10 / , P LD A6,TT:TID NO TID GIVEN TAKE CURREN
0x102d00…1b0680 [0x03a]: Pad {f00=0x006f, f01=0x0190, f02=»RESS TO BOOL WORD / | P SUK A7,2 0 P ANK A5,/F GET BIT NO 0 , P LDR* A4,A7 GET BOOL WORD 0 J ( P ORKL A5,/3CE0 FORM SRC A4,- INSTR 0 l P EXR A5 SHIFT BIT TO BIT 15 0 P 0 P CF A8,PRSLSH 0 P LDR A1,A4 0 P ANK A1,1 0 P CF A8,PRHEX
0x102d00…1b0680 [0x03b]: Pad {f00=0x006f, f01=0x0190, f02=»RG2 0 P RF(Z) OPNBOK NO NEW VALUE 1 " P LD A1,ARG2+VAL GET NEW VALUE 1 . P ANK A1,1 1 T P ANKL A4,/FFFE 1 f P ORR A4,A1 AND PUT IT IN 1 | & P XRK A5,/0020 FORM SLC A4,- INSTR 1 " P EXR A5 SHIFT BITS RIGHT AGAIN 1 " P STR A4,A7 STORE NEW BOOL WORD
0x102d00…1b0680 [0x03c]: Pad {f00=0x006f, f01=0x0190, f02=»RABUG T 1 J P 2 P* 2 P* T SET TRAP 2 $ P* 2 8 P* <ARG1>;<ARG2>:<TID>T 2 B 0 P* SET A TRAP AT ARG1,TID AND LOOPCT TO ARG2 2 ` P* 2 P* <ARG2>:<TID>T 2 , P* SET A TRAP AT ARG2,TID AND LOOPCT TO 0 2 P* 2 P 2 & PSETT ABL(Z) ERRIS
0x102d00…1b0680 [0x03d]: Pad {f00=0x006f, f01=0x0190, f02=»RABUG T 2 J P 3 P* 3 P* Y RESET TRAP 3 $ P* 3 : ( P* <ARG2>Y RESET TRAP AT ADDR ARG2 3 D P* Y RESET ALL TRAPS 3 p P* 3 P 3 PRSTT RF(Z) RSTT10 RESET ALL 3 $ P LD A1,ARG2+VAL RESET THIS TRAP 3 " P ABL(Z) ERRIS ILLEGAL AD
0x102d00…1b0680 [0x03e]: Pad {f00=0x006f, f01=0x0190, f02=»SET IT 3 | P CM TT:TON IND TRAP NOT ON 4 P 4 0 PRSTT20 ABL RDCOM 4 8 T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T 4 P P 4 P* 4 $ P* G GO AND RESTART USER PROGRAM 4 P* 4 ( P* <ARG2>G RESTART AT ADDRES
0x102d00…1b0680 [0x03f]: Pad {f00=0x006f, f01=0x0190, f02=»TO10 LD A1,TT:PRC GET PROGRAM COUNTER 4 P RF GOTO30 5 . P 5 @ * PGOTO20 LD A1,ARG2+VAL GET NEW ADDRESS 5 H P 5 v PGOTO30 C2 MODE 5 ~ P ABL(NZ) ERRNO USER MODE 5 P IM MODE SET USER MODE 5 & P ST A1,TT:PRC STORE START ADDRESS 5 " P LD A7,TT:TID
0x102d00…1b0680 [0x040]: Pad {f00=0x006f, f01=0x0190, f02=»G TRABUG TRABUG T 5 Z P 6 " P* 6 * . P* L CONTINUE EXECUTION AFTER TRAP AND LOOP 6 4 P* 6 f 0 P* <ARG2>L LOOP ARG2 TIMES ON CURRENT TRAP 6 p P* L LOOP ON TRAP 6 P* 6 P 6 PLOOP C2 MODE 6 P ABL(NZ) ERRNO USER MODE 6 &
0x102d00…1b0680 [0x041]: Pad {f00=0x006f, f01=0x018e, f02=»GET LOOPCT 6 P ADK A3,1 7 P ABL(Z) ERRIS ILLEGAL LOOPCT 7 $ P ST A3,TT:LOP,A2 AND STORE 7 H P RB GOTO30 7 j T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T 7 | P 7 P* 7 4 P* P SET NEW TRAP, REMOVE CURR TRAP A
0x102d00…1b0680 [0x042]: Pad {f00=0x006f, f01=0x0190, f02=» P 8 " PPROC RF(Z) PROC10 NO NEW TRAP 8 P CF A8,STOTRP SET NEW TRAP 8 2 ( PPROC10 LD A1,TT:PRC REMOVE CURR TRAP 8 T P CF A8,REMTRP 8 P RB GOTO30 8 T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T 8 P 8 P*
0x102d00…1b0680 [0x043]: Pad {f00=0x006f, f01=0x0190, f02=» C2 MODE 8 P ABL(Z) ERRNO DEBUGGER MODE 9 P LDK A1,1 9 4 P ST A1,TT:HLT INDICATE HALT 9 F P LD A1,TID SET TID 9 j P ST A1,TT:HLT+2 9 P ABL RDCOM 9 T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T 9 P 9
0x102d00…1b0680 [0x044]: Pad {f00=0x006f, f01=0x0190, f02=» REMOVE REP FLAG AT ARG2 9 2 P* R REMOVE ALL REP FLAGS : 0 P* : f P : p PREPO RF(Z) REPO30 NO ADDRESS : x P : P LD A5,ARG2+VAL GET ARG2 : P LD A2,ARG1 : P RF(Z) REPO20 NO ARG1 REMOVE : P : P LD A4
0x102d00…1b0680 [0x045]: Pad {f00=0x006f, f01=0x0190, f02=»EP : P RF(NN) REPO10 FOUND ; P ; & " P LDK A1,0 FIND AN EMPTY ENTRY ; . P CF A8,LOOKUP ; T P DATA TT:REP ; j P RF(N) REPOER TABLE FULL ; ~ P ; PREPO10 ANK A5,3 MASK MODE ; P STR A4,A2 STORE ADDRESS ; P LD A1,TID ; P ST A1,2,A2 AND
0x102d00…1b0680 [0x046]: Pad {f00=0x006f, f01=0x0190, f02=» ADDRESS ; | " P RF(Z) REPOER ILLEGAL ADDRESS < " P CF A8,LOOKUP LOOK UP ADDRESS < 6 P DATA TT:REP < P RF(N) REPOER NOT FOUND < p P CMR A2 RESET < P RF REPOOK < P < . PREPO30 LDKL A1,TT:REP REMOVE ALL REP FLAGS < P CF A8,RSTTAB < P C
0x102d00…1b0680 [0x047]: Pad {f00=0x006f, f01=0x0190, f02=»RABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T < P = N P* = V . P* V VERIFY CONTENTS (16-BIT WORD) AND TRAP = ` P* = 4 P* <ARG1>;<ARG2>VXX VERIFY (ARG1)&MASK XX ARG2 = 0 P* XX MEANING CR CND = . P*
0x102d00…1b0680 [0x048]: Pad {f00=0x006f, f01=0x018e, f02=»2 2 = l . P* NE NOT EQUAL #0 4 > . P* NG NOT GREAT #1 5 > @ . P* NL NOT LOWER #2 6 > r P* > 2 P* <ARG1>;<ARG2>VMK SET MASK TO ARG2 AT ARG1 > 0 P* <ARG2>V TURN OFF VERIF AT
0x102d00…1b0680 [0x049]: Pad {f00=0x006f, f01=0x0190, f02=» > P LD A5,ARG2+VAL GET ARG2 ? P LD A2,ARG1 ? ( " P RF(Z) VERI30 NO ARG1 TURN OFF ? < P ? b P LD A4,ARG1+VAL ? j " P RF(Z) VERIER ILLEGAL ADDRESS ? $ P CF A8,RDCHAR READ COMMAND CHARS ? P ECR A2,A1 ? P CF A8,RDCHAR ? P ORR A1,A2 ? P
0x102d00…1b0680 [0x04a]: Pad {f00=0x006f, f01=0x0190, f02=» ? P RF(N) VERIER NOT FOUND @ P @ ( P LDR A6,A3 GET CND TO MODE @ 0 P LDKL A7,/FFFF PRESET MASK @ R P @ t P LDR A1,A4 GET ADDRESS @ | P CF A8,LOOKUP AND LOOK IT UP @ P DATA TT:VER @ ( P RF(NN) VERI10 ENTRY ALREADY EXISTS @ P @ P LDK
0x102d00…1b0680 [0x04b]: Pad {f00=0x006f, f01=0x0190, f02=» ADDRESS @ z P ST A5,2,A2 AND VALUE A , P ST A6,TT:VMM,A2 AND MODE = ABR(CND) A5 A . P ST A7,TT:VMM+2,A2 AND MASK A ^ P ST A4,TT:VON IND VERIFY ON A P RF VERIOK A P A PVERI20 LDR A1,A4 SET MASK A & P CF A8,LOOKUP TRY TO FIND ADDRESS A
0x102d00…1b0680 [0x04c]: Pad {f00=0x006f, f01=0x0190, f02=» TURN OFF A " P RF(Z) VERIER ILLEGAL ADDRESS B & P CF A8,LOOKUP TRY TO FIND ADDRESS B 8 P DATA TT:VER B b P RF(N) VERIER NOT FOUND B v P CMR A2 SET ENTRY FREE B P RF VERIOK B P B & PVERI40 LDKL A1,TT:VER TURN OFF ALL B P CF A8,RSTTAB B
0x102d00…1b0680 [0x04d]: Pad {f00=0x006f, f01=0x0190, f02=»MMAND TABLE B z 4 P DATA 'EQ',/8814 LAYOUT: COM, MODE= ABR(CND) A5 C P DATA 'GR',/8914 C L P DATA 'LO',/8A14 C d P DATA 'NE',/8C14 C | P DATA 'NG',/8D14 C P DATA 'NL',/8E14 C T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T
0x102d00…1b0680 [0x04e]: Pad {f00=0x006f, f01=0x0190, f02=»N C r ( P* ARG2: LOOPCT IF ARG1 ELSE ADDRESS D P* TID: TERMINAL ID D 6 P* D R ( P* EXIT: NORM OR IF TABLE FULL ERRIS D P* A1,A2,A3,A4,A5: DESTR D P* D P D ( PSTOTRP LDK A1,0 FIND AN EMPTY ENTRY D P CF A8,LOOKUP D P DATA TT:TRP D
0x102d00…1b0680 [0x04f]: Pad {f00=0x006f, f01=0x0190, f02=»NO LOOPCT D , P XRR A1,A5 LOOPCT GIVEN SWITCH REGISTERS E P XRR A5,A1 E B P XRR A1,A5 E T PSTOT10 LDR A1,A1 E f " P RF(Z) TRPERR ILLEGAL ADDRESS E ~ P LDR A4,A2 E P CF A8,LOOKUP E P DATA TT:TRP E ( P ABL(NN) ERRNO TRAP ALREADY IN TABLE E &
0x102d00…1b0680 [0x050]: Pad {f00=0x006f, f01=0x0190, f02=»T:TON IND TRAP ON E P RTN A8 F T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T F * P F P* F ( P* REMTRP REMOVE TRAP FROM TRAP TABLE F P* F P* ENTRY: F P* A1: ADDRESS TO TRAP F P* F ( P* EXIT:
0x102d00…1b0680 [0x051]: Pad {f00=0x006f, f01=0x0190, f02=»:TRP F P RF(N) TRPERR NOT FOUND G P CMR A2 SET ENTRY FREE G , P RTN A8 G J P G Z PTRPERR ABL ERRIS G b T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T G z P G P* G P* RSTTAB RESET TABLE G P* G P
0x102d00…1b0680 [0x052]: Pad {f00=0x006f, f01=0x0190, f02=»LENGTH G z P H PRSTTA1 ADK A1,4 H P CMR A1 RESET H . P SUK A2,1 H D P RB(NZ) RSTTA1 H V P RTN A8 H l T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T H | P H P* H P* RDVAL READ VALUE H P* H 8 P
0x102d00…1b0680 [0x053]: Pad {f00=0x006f, f01=0x0190, f02=»* A1: FIRST CHAR H P* I * P* EXIT: NORM OR IF SYNTAX ERROR ERRIS I " P* A1: ENDING CHAR I P P* A2: VALUE, NO VAL =0 I j P* A9,A10,A11,A12: DESTR I P* CR: Z=NO VAL, NZ=VAL I P* I P* REGISTER USE: I P* A3: NUM I P* A4: INDEX1 I
0x102d00…1b0680 [0x054]: Pad {f00=0x006f, f01=0x0190, f02=»VAL1 STR A3,A8 PUSH A3-A7 ON STACK I P ST A4,-2,A8 J * P ST A5,-4,A8 J > P ST A6,-6,A8 J R P ST A7,-8,A8 J f P SUKL A8,10 J z P LDK A3,0 CLEAR NUM J P LDK A4,0 AND INDEX J P LDK A5,0 J P LDK A7,0 CLEAR *,# IND J P J P CWK A1,'*
0x102d00…1b0680 [0x055]: Pad {f00=0x006f, f01=0x0190, f02=» J P LDK A7,1 INDICATE # K PRDVA10 CF A8,RDCHAR K $ * PRDVA20 CF A8,RDNUM1 READ NUMERIC VALUE K @ P RF(Z) RDVANO NONE GIVEN K n P LDR A3,A2 SAVE NUM K P LDR A7,A7 K P RF(Z) RDVAVA NOT * OR # K P K P CWK A1,'(' CHECK IF INDEXED K P R
0x102d00…1b0680 [0x056]: Pad {f00=0x006f, f01=0x0190, f02=»Y SECOND INDEX K P RF(NE) RDVA30 NO L " P CF A8,RDVAL READ SECOND INDEX L 0 P LDR A5,A2 L V $ P RF(Z) RDVAER NONE GIVEN OR ZERO L h P L 0 PRDVA30 CWK A1,')' INDEX MUST BE ENDED WITH ) L P RF(NE) RDVAER L P CF A8,RDCHAR L P L $ PRDVA40 CF
0x102d00…1b0680 [0x057]: Pad {f00=0x006f, f01=0x0190, f02=»50 CF A8,FNDEL GO AND FIND ELEMENT L P RF(N) RDVAER NOT FOUND M * " P LDR A2,A9 GET ADDRESS TO ITEM M J P SRL A7,1 CHECK IF * M p P RF(Z) RDVAVA NO M * P LDR* A2,A10 CHECK TYPE MUST BE BINARY M P SRL A2,12 M P ANK A2,3 M P SUK A2,2 M P R
0x102d00…1b0680 [0x058]: Pad {f00=0x0070, f01=0x0190, f02=»VANO LDK A3,0 NO VAL GIVEN CR=0 M P LDR A7,A7 N ( & P RF(NZ) RDVAER *,# IN EMPTY VALUE N : P N d PRDVART SC A3,12,A8 UPDATE CR N l & P LD A7,2,A8 PULL A7-A3 FROM STACK N P LD A6,4,A8 N P LD A5,6,A8 N P LD A4,8,A8 N P LD A3,10,A8 N P
0x102d00…1b0680 [0x059]: Pad {f00=0x0070, f01=0x018e, f02=»BUG TRABUG TRABUG T N P O $ P* O , P* FNDEL FIND ELEMENT O 6 P* O R P* ENTRY: O P* A3: EL O l P* A4: INDEX1 O | P* A5: INDEX2 O P* A6: TID O P* O P* EXIT: O & P* A9: ADDRESS TO EL =0 ILL INDEX O , P* A10: ADDRESS T
0x102d00…1b0680 [0x05a]: Pad {f00=0x0070, f01=0x0190, f02=» O l P* P P P ( PFNDEL ST A1,FNDEA1+2 SAVE REGISTERS P P ST A2,FNDEA2+2 P F P ST A3,FNDEA3+2 P ^ P ST A4,FNDEA4+2 P v P ST A5,FNDEA5+2 P P ST A7,FNDEA7+2 P P P $ P CF A8,FNDTCA GET TCA ADDR TO A7 P P RF(N) FNDER1 NOT FOUND P
0x102d00…1b0680 [0x05b]: Pad {f00=0x0070, f01=0x0190, f02=» P RF(G) FNDER1 TOO BIG Q $ P SLL A3,2 CALC WB POINTER IN TCA Q " P ADR A7,A3 Q J P LDR A12,A7 AND SAVE IT Q P LDR* A10,A12 GET DT ADDRESS Q | P SUR A9,A9 Q P ANK A1,/F ADD EL ADDRESS Q P SLL A1,1 Q P RF(Z) FNDE05 EL 0 Q P ADR A10,A
0x102d00…1b0680 [0x05c]: Pad {f00=0x0070, f01=0x0190, f02=» A11,A9 Q P LDR* A1,A10 GET TYPE R P RF(N) FNDE10 INDEXED R . P LDR A4,A4 R L P RF(Z) FNDE40 NO INDEX GIVEN R ^ . P RF FNDER2 INDEX GIVEN BUT EL NOT INDEXED R P R & PFNDE10 LDR A2,A4 CHECK FIRST INDEX R P RF(Z) FNDER2 NO FIRST INDEX R P
0x102d00…1b0680 [0x05d]: Pad {f00=0x0070, f01=0x0190, f02=» PRESENT OK R t $ P RF FNDER2 SECOND INDEX PRESENT S P S < 2 PFNDE20 LDR A3,A5 TWO INDICES SHOULD BE PRESENT S D " P RF(Z) FNDER2 NO SECOND INDEX S z P SUK A3,1 S & P LC A4,2,A10 CALC INX1*DIM2 + INX2 S P ANK A4,/FF S P CF A8,MUL242 A2:=A4*A2 S
0x102d00…1b0680 [0x05e]: Pad {f00=0x0070, f01=0x0190, f02=»F A8,MUL242 CALC DISPL S P ADR A9,A2 AND EL ADDRESS T P T @ PFNDE40 LDK A1,0 FOUND CR=0 T H ( P AD A9,2,A12 ADD WB ADDRESS TO DISPL T j P T PFNDE50 SC A1,2,A8 UPDATE CR T PFNDEA1 LDKL A1,0 T PFNDEA2 LDKL A2,0 T PFNDEA3 LDKL A3,0 T P
0x102d00…1b0680 [0x05f]: Pad {f00=0x0070, f01=0x0190, f02=»,TID T r PFNDER2 SUR A9,A9 ILL INDEX U P LDK A1,2 NOT FOUND CR=2 U . P RB FNDE50 U N T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T U ` P U P* U P* MUL242 A2 := A4*A2 U P* U P* EXIT: U P* A1:DESTR
0x102d00…1b0680 [0x060]: Pad {f00=0x0070, f01=0x0190, f02=»F(NN) *+4 U P ADR A2,A1 V P ADR A1,A1 V $ P SUK A3,1 V 6 P RB(NZ) MULLOP V H P V ^ PMULA3 LDKL A3,0 V f P RTN A8 V ~ T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T V P V P* V P* FNDTCA FIND TCA
0x102d00…1b0680 [0x061]: Pad {f00=0x0070, f01=0x0190, f02=»WATLEN: WB MAX V P* CR: N=NOT FOUND, NN=FOUND W P* W : P W D PFNDTCA ST A1,FNDTA1+2 W L $ P LD A9,T:ATAB GET TCA TABLE ADDR W j P LDR* A1,A9 AND LENGTH W P W PFNDT10 ADKL A9,2 W P LDR* A7,A9 GET TCA ADDRESS W P CW A6,-4,A7 CHECK TID
0x102d00…1b0680 [0x062]: Pad {f00=0x0070, f01=0x0190, f02=»30 W P X ( PFNDT20 LD A9,-8,A7 FOUND GET WATLEN X P LD A9,6,A9 X > P LDK A1,0 CR=0 X R P X h PFNDT30 SC A1,2,A8 UPDATE CR X p PFNDTA1 LDKL A1,0 X P RTN A8 X T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG
0x102d00…1b0680 [0x063]: Pad {f00=0x0070, f01=0x0190, f02=» X & P* A1: NEXT CHAR OR SAME IF NO TID Y P* A6: TID OT IF NO TID =0 Y 2 P* Y T P Y ^ PRDTID CWK A1,':' Y f P RF(NE) RDTI10 NO TID Y ~ P CF A8,RDCHAR GET TID Y P ECR A6,A1 Y P CF A8,RDCHAR Y P ORR A6,A1 Y P CF A8,RDCHAR READ NEX
0x102d00…1b0680 [0x064]: Pad {f00=0x0070, f01=0x0190, f02=»RABUG TRABUG TRABUG TRABUG T Y h P Z 0 P* Z 8 P* LOOKUP LOKKUP KEY IN TABLE Z B P* Z f & P* ENTRY: CF A8,LOOKUP Z p " P* DATA TABLE Z P* Z " P* TABLE DATA N,VALE Z & P* DATA KE
0x102d00…1b0680 [0x065]: Pad {f00=0x0070, f01=0x0190, f02=» Z " P* A2: ADDRESS TO KEYX IN TABLE [ " P* A3: VALX, IF NOT FOUND VALE [ . P* CR: N=NOT FOND, NN=FOUND [ T P* [ v P [ PLOOKUP ADKL A8,4 [ P LDR* A3,A8 [ " P LDR* A3,A3 GET TABLE ADDRESS [ P LDR* A2,A3 GET LENGTH [ P ST A2,TABLEN [
0x102d00…1b0680 [0x066]: Pad {f00=0x0070, f01=0x0190, f02=» [ P RF(E) LOOKU2 FOUND P SUK A2,4 $ P RB LOOKU1 6 P H PLOOKU2 IMR A8 P P IMR A8 f P LD A3,2,A2 GET VAL v P C2 TABLEN SET CR P ABR* A8 P PTABLEN DATA 0 T P EJECT TRABUG TRABUG TRABUG TRABUG
0x102d00…1b0680 [0x067]: Pad {f00=0x0070, f01=0x0190, f02=»UMS ~ P* OPT ENTRY: CF A8,RDNUM1 ] P* A1: FIRST CHAR ] . P* ] F P* EXIT: ] P P* A1: LAST READ CHAR ] ` P* A2: NUM VALUE IF NONE =0 ] | P* CR: Z=NO NUM, NZ=NUM ] P* ] P ] ( PRDNUMS CF A8,RDCHAR READ FIRST CHAR ] $ PRDNUM1 CWK A1,'$
0x102d00…1b0680 [0x068]: Pad {f00=0x0070, f01=0x0190, f02=»BUG TRABUG TRABUG T ] P ^ $ P* ^ , " P* RDDECS READ A DECIMAL VALUE ^ 6 P* ^ P* ENTRY: CF A8,RDDECS ^ f P* OPT ENTRY: CF A8,RDDEC1 ^ P* A1:FIRST CHAR ^ P* ^ P* EXIT: ^ P* A1: LAST READ CHAR ^ P* A2: DEC VALUE IF NON
0x102d00…1b0680 [0x069]: Pad {f00=0x0070, f01=0x0190, f02=»ET CONTER ^ z P ST A2,DECCTR _ P LDK A2,0 _ ( P ST A3,RDDEA3+2 _ : P _ R PRDDE10 CWK A1,'0' _ Z P RF(L) RDDE20 NOT DEC _ t P CWK A1,'9' _ P RF(G) RDDE20 NOT DEC _ P SUK A1,'0' OK DECIMAL _ P IM DECCTR INCR COUNTER _ P LDR A3,
0x102d00…1b0680 [0x06a]: Pad {f00=0x0070, f01=0x0190, f02=»R READ NEXT CHAR _ P RB RDDE10 ` P ` * PRDDE20 ADKL A8,4 ` 2 PRDDEA3 LDKL A3,0 ` J P C1S DECCTR SET CR ` b P ABR* A8 ` | P ` PDECCTR DATA 0 ` T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T ` P* ` *
0x102d00…1b0680 [0x06b]: Pad {f00=0x0070, f01=0x0190, f02=»: FIRST CHAR ` P* a P* EXIT: a P* A1: LAST READ CHAR a . P* A2: HEX VALUE IF NO HEX 0 a J P* CR: Z=NO HEX, NZ=HEX a n P* a P a ( PRDHEXS CF A8,RDCHAR READ FIRST CHAR a P a $ PRDHEX1 LDKL A2,-1 PRESET COUNTER a P ST A2,HEXCTR a
0x102d00…1b0680 [0x06c]: Pad {f00=0x0070, f01=0x0190, f02=» P CWK A1,'A' b P RF(L) RDHEX5 NOT HEX b P CWK A1,'F' b 6 P RF(G) RDHEX5 NOT HEX b J P b h P SUK A1,'A'-'0'-/A HEX A-F b p PRDHEX3 SUK A1,'0' b P SLL A2,4 b PRDHEX4 ADR A2,A1 b P IM HEXCTR b P CF A8,RDCHAR READ NEXT CHAR b
0x102d00…1b0680 [0x06d]: Pad {f00=0x0070, f01=0x0190, f02=» SLL A2,8 b P RB RDHEX4 c P c $ * PRDHEX6 ADKL A8,4 ADJUST STACK POINTER c , P C1S HEXCTR LOAD CR c Z P ABR* A8 c v P c PHEXCTR DATA 0 c T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T c P c P* c
0x102d00…1b0680 [0x06e]: Pad {f00=0x0070, f01=0x0190, f02=»* A1,A2: DESTR c & P* A5: UPDATED TO NEXT WORD =A5+16 d P* d @ P d J PPR8WDS LDKL A1,-8 d R P ST A1,WDCTR d l P CM WRAP d P d PPR8WD1 LDR* A2,A5 d P CF A8,PR2SP d P CF A8,PRWORD d P ADK A5,2 d P RF(NZ) PR8WD2 d " P IM WR
0x102d00…1b0680 [0x06f]: Pad {f00=0x0070, f01=0x0190, f02=» DATA 0 d T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T e P e h P* e p " P* PRSTR PRINT STRING IN ASCII e z * P* IF CHAR IS NOT /20-/5F A DOT (.) IS e P* PRINTED INSTEAD e P* e P* ENTRY: e P* A2: LE
0x102d00…1b0680 [0x070]: Pad {f00=0x0070, f01=0x0190, f02=»A3+A2 e t P* f P f PPRSTR LCR A1,A3 GET CHAR f P CF A8,PRASC AND PRINT f @ P ADK A3,1 f ^ P SUK A2,1 f p P RB(NZ) PRSTR f P RTN A8 f T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T f P f P*
0x102d00…1b0680 [0x071]: Pad {f00=0x0070, f01=0x0190, f02=»Y: f P* A1: CHAR g P* g P* EXIT: g & P* A1: CHAR PRINTED g 6 P* g P P g Z PPRASC ANK A1,/7F g b P CWK A1,/20 g z P RF(L) PRAS10 g P CWK A1,/5F g " P RF(NG) PRAS20 OK CHAR /20-/5F g ( PPRAS10 LDK A1,'.' BAD CHAR PUT IN . g P
0x102d00…1b0680 [0x072]: Pad {f00=0x0070, f01=0x0190, f02=»WORD PRINT WORD IN HEX g P* h P* ENTRY: h ( P* A2: WORD h 8 P* h J P* EXIT: h T P* A1: DESTR h d P* h x P h PPRWORD LDKL A1,-4 h P ST A1,NIBCTR h P h PPRWOR1 SLC A2,4 h P LDR A1,A2 h P CF A8,PRHEX h P IM NIBCTR
0x102d00…1b0680 [0x073]: Pad {f00=0x0070, f01=0x0190, f02=» TRABUG TRABUG T h V P i P* i & P* PRBYTE PRINT BYTE i 0 P* i L P* ENTRY: i V P* A2: BYTE i f P* i x P* EXIT: i P* A1: DESTR i P* i P i PPRBYTE LDR A1,A2 i P SRL A1,4 i P CF A8,PRHEX i P LDR A1,A2 i T P E
0x102d00…1b0680 [0x074]: Pad {f00=0x0070, f01=0x0190, f02=» i z P* j P* ENTRY: j P* A1: HEX IN BINARY j " P* j > P* EXIT: j H P* A1: HEX IN ASCII j X P* j r P j | PPRHEX ANK A1,/F j P SUK A1,/A j P RF(N) PRHEX2 0-9 j P ADK A1,'A'-'0'-/A A-F j PPRHEX2 ADK A1,'0'+/A j P RF PRCH
0x102d00…1b0680 [0x075]: Pad {f00=0x0070, f01=0x018e, f02=»ARACTERS: SP,2SP,CRLF,CR,QMK,SLSH j ~ P* k * P* EXIT: k 4 P* A1: CHAR k D P* k V P k ` PPR2SP LDK A1,' ' k h P CF A8,PRCHAR k P k PPRSP LDK A1,' ' k P RF PRCHAR k P k PPRCRLF LDK A1,/0D k P CF A8,PRCHAR k P LDK A1,/0
0x102d00…1b0680 [0x076]: Pad {f00=0x0070, f01=0x0190, f02=» PPRSLSH LDK A1,'/' l T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T l P l v P* l ~ P* PRCHAR PRINT CHAR ON CTW l P* l P* ENTRY: l P* A1: CHAR l P* l P l . PPRCHAR SC* A1,BUFPNT STORE CHAR IN
0x102d00…1b0680 [0x077]: Pad {f00=0x0070, f01=0x018e, f02=» A8 l T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T m P m d P* m l P* RDCHAR READ CHAR FROM CTW m v P* m P* EXIT: m P* A1: CHAR m P* m P m & PRDCHAR LD A1,RDRDY CHECK IF READY m P RF(NZ)
0x102d00…1b0680 [0x078]: Pad {f00=0x0071, f01=0x0190, f02=» P LDKL A8,RDECB n P LKM n P DATA 1 n & P n 6 PRDCH10 LDKL A7,0 n > PRDCH20 LDKL A8,0 n V P n n PRDCH30 LD A1,INPBUF GET CHAR n v P CM RDRDY n P RTN A8 n T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG
0x102d00…1b0680 [0x079]: Pad {f00=0x0071, f01=0x0190, f02=» P* o P o * PWTCHAR CF A8,PRBUF PRINT OUTPUT BUFFER o P ST A8,WTCHSA o D P LDK A7,/84 SKIP BUFFER o Z P LDKL A8,RDECB o z P LKM o P DATA 1 o P LDK A7,/41 READ CHAR o P LKM o P DATA -1 o P DATA WTCH10 o PWTCEX LKM o
0x102d00…1b0680 [0x07a]: Pad {f00=0x0071, f01=0x0190, f02=» RTN A8 o P p PRDRDY DATA 0 p T P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG T p , P p P* p P* PRBUF PRINT OUTPUT BUFFER p P* p P* EXIT: p P* BUFPNT UPDATED p P* p P p PPRBUF ST A7,
0x102d00…1b0680 [0x07b]: Pad {f00=0x0071, f01=0x0190, f02=»ER EMPTY p ~ P q P ST A7,PRECB+4 STORE LENGTH q P LDK A7,/85 PRINT BUFFER q < P LDKL A8,PRECB q P LKM q r P DATA 1 q ~ P q " P LDKL A7,OUTBUF UPDATE BUFPNT q P ST A7,BUFPNT q PPRBU10 LDKL A7,0 q PPRBU20 LDKL A8,0 q P RTN A8
0x102d00…1b0680 [0x07c]: Pad {f00=0x0071, f01=0x4112, f02=»ERS q | P* r P r & PRDECB DATA /8021,INPBUF+1,1,0,0,0 r P r H $ PPRECB DATA /8031,OUTBUF,0,0,0,0 r P P r x PINPBUF DATA 0 r PBUFPNT DATA OUTBUF r POUTBUF RES 50 r P r PSOPECB DATA /8014,0,0,0,0,0 r P r P r P END r
0x102d00…1b0680 [0x07d]: Pad {f00=0x0071, f01=0x2008, f02=» s P XIF Z P Z P ABL START1 Z P Z 4 P Z < PBUGEND EQU * Z D P END BUG Z X@ Z h PSW Y R . P RF(NN) TRAP40 INH, RUN BUGGER IN INH ALSO Y x P IM BINT ENB Y PTRAP40 EQU * Y P Y P IFT DOS=1 Y P C2 CTWON Y P ABL(NZ) STA
0x102d00…1b0680 [0x07e]: Pad {f00=0x0071, f01=0x406c, f02=»P UW aP iR qR yV T W P P ;Q s v Y aQB wR Q* R W t 2 t V@ t h Z ! Z s V , ( $ Z %_P [ Q s , ( P R [ Z { s , ( z 9e! W Z
0x102d00…1b0680 [0x07f]: Pad {f00=0x0071, f01=0x40ce, f02=» 2 F IDENT I:NTF VER=T,REL=3.0,DATE=78-03-03 u I:NTFAK u : I:NTFAK u L , ( Z H D & H u ` $ ! D % [ ( u 8 u @ u [ Z { s , ( z 9e! W Z
0x102d00…1b0680 [0x080]: Pad {f00=0x0071, f01=0x409c, f02=» ; : f H D ! L P: W W P( !P % ( 7 ?W< OT w V V: )P ?W f & CP _P f r f @ f
0x102d00…1b0680 [0x081]: Pad {f00=0x0071, f01=0x0002, f02=» (
0x102d00…1b0680 [0x082]: Pad {f00=0x0071, f01=0x0190, f02=» & P IDENT T:CLO0 ORG 77-04-27/ULJO P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2
0x102d00…1b0680 [0x083]: Pad {f00=0x0071, f01=0x0190, f02=»******************************* . P* * ( . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * Z . P* * . P***************************************** P P ENTRY SETTIM,GETT
0x102d00…1b0680 [0x084]: Pad {f00=0x0071, f01=0x401e, f02=»R CLK t P END @ * . P* * ( . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * Z . P* * . P***************************************** P P ENTRY SETTIM,GETT
0x102d00…1b0680 [0x085]: Pad {f00=0x0071, f01=0x2008, f02=» ABORT ABL T:ABOR ABORT REQUEST ( #GETTID ABL T:GETI GET TASK IDENTITY 0 END d@ p T ABL T:RREA1 z $ RWRTE CF PS,T:FDSP RANDOM WRITE ABL T:RWRT1 " SWITCH ABL T:SWIT SWITCH TASK DELAY ABL T:DELA D
0x102d00…1b0680 [0x086]: Pad {f00=0x0071, f01=0x018e, f02=» , ( V 4! P < S S l , ( S X 4 9d * & ! R + l 4 , ( : V W R 4 0R l d , ( ! Y 7 Y& P Z,;D 9_8 l , ( A 8 _< V W YL T 9 l I:ERR8 l , (
0x102d00…1b0680 [0x087]: Pad {f00=0x0071, f01=0x4122, f02=» l f , ( V Q W Q 7 Y P _6 & Q m , ( 9d! )0 + P 7 Y Z $ m 8 _ : m h H D ! f P P PN P +P: MQ OP WP oP sQ { S S S m < 8 R R R 1P wP T Pd SZ P Q Q P. P m
0x102d00…1b0680 [0x088]: Pad {f00=0x0071, f01=0x0190, f02=» 2 F IDENT I:MUL VER=T,REL=3.0,DATE=78-03-03 n I:MUL I:SH1L n : I:MUL n R I:ERR2 n d I:ERR1L n v , ( V ) 0 !0 n , ( " T *V &V : V n , ( = S W P 9 S W _
0x102d00…1b0680 [0x089]: Pad {f00=0x0071, f01=0x0002, f02=» 0
0x102d00…1b0680 [0x08a]: Pad {f00=0x0071, f01=0x0190, f02=» & P IDENT T:DEL0 ORG 77-04-27/ULJO P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2
0x102d00…1b0680 [0x08b]: Pad {f00=0x0071, f01=0x417e, f02=»******************************* . P* * ( . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * Z . P* * . P***************************************** P P ENTRY DELAY
0x102d00…1b0680 [0x08c]: Pad {f00=0x0071, f01=0x2008, f02=» ABORT ABL T:ABOR ABORT REQUEST ( #GETTID ABL T:GETI GET TASK IDENTITY 0 END d@ p T ABL T:RREA1 z $ RWRTE CF PS,T:FDSP RANDOM WRITE ABL T:RWRT1 " SWITCH ABL T:SWIT SWITCH TASK DELAY ABL T:DELA D
0x102d00…1b0680 [0x08d]: Pad {f00=0x0071, f01=0x0190, f02=» [ Q [ r x I:ADD s * & g( { R [ _ s ( , ( Z ! Z s V , ( $ Z %_P [ Q s , ( P R [ Z { s , ( z 9e! W Z
0x102d00…1b0680 [0x08e]: Pad {f00=0x0071, f01=0x406c, f02=»P UW aP iR qR yV T W P P ;Q s v Y aQB wR Q* R W t 2 t V@ t h Z ! Z s V , ( $ Z %_P [ Q s , ( P R [ Z { s , ( z 9e! W Z
0x102d00…1b0680 [0x08f]: Pad {f00=0x0071, f01=0x40ce, f02=» 2 F IDENT I:NTF VER=T,REL=3.0,DATE=78-03-03 u I:NTFAK u : I:NTFAK u L , ( Z H D & H u ` $ ! D % [ ( u 8 u @ u E,OP2T P IFT MAXL=255 P ANK OP2E,MAXL P X
0x102d00…1b0680 [0x090]: Pad {f00=0x0071, f01=0x0190, f02=» LABEL = INT DATE = 77-06-16 PACK NBR = -0- f
0x102d00…1b0680 [0x091]: Pad {f00=0x0071, f01=0x0006, f02=» 8 @ H
0x102d00…1b0680 [0x092]: Pad {f00=0x0071, f01=0x018e, f02=» $ P IDENT T:USE UPD 78-03-01/POEG P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d P REL 77-09-07 #2.3 P REL 77-04-29 #2.2 P REL 77-04-15 #2.1 P REL 76-12-13 #1.3 P REL 76-11-15 #1.2
0x102d00…1b0680 [0x093]: Pad {f00=0x0071, f01=0x0190, f02=» 0 P* * * P* ALLOCATION OF USER WORK BLOCKS * 8 0 P* * f 0 P******************************************** P P P ENTRY T:USE P* P EXTRN I:EVA0
0x102d00…1b0680 [0x094]: Pad {f00=0x0071, f01=0x0190, f02=»:USE T:USE T:USE T:USE b P* * $ P* CONDITIONAL ASSEMBLY FLAGS: 4 P* PCOMP EQU 855 f PTEST EQU 1 z PNOTEST EQU 0 PPARM EQU TEST P* ( P* TEMPORARY INTERPRETER REGISTERS: P* PWK1 EQU A1 WORK REGI
0x102d00…1b0680 [0x095]: Pad {f00=0x0071, f01=0x0190, f02=»QU A9 OPERAND 2 ADDRESS P* P* NON-TEMPORARY REGISTERS: * P* N PPP EQU A12 PROGRAM POINTER X PPS EQU A14 STACK POINTER z PTCA EQU A13 TCA BASE ADDRESS P P* P* STACK BASE POINTER REG.: P* PB3 EQU A8
0x102d00…1b0680 [0x096]: Pad {f00=0x0071, f01=0x0190, f02=» P P* P* T:D DISPLACEMENTS: P* 4 * PWATLEN EQU 6 NUMBER OF ENTRIES IN WAT > & PDWBMSK EQU 14 DUMMY WORKBLOCK MASK l P P* P* U:BTAB DISPLACEMENTS P* " PU:NAM0 EQU 0 ADDR TO FIRST UWB , PMAXIND EQU 2 NUMBE
0x102d00…1b0680 [0x097]: Pad {f00=0x0071, f01=0x0190, f02=»SE T:USE T:USE T:USE T:USE T:USE T:USE T:USE P* L P* V " P* STRUCTURE OF UWB IN CORE ` P* P* : P* V:NAM0 DATA U:NAM0 POINTER TO FIRST UWB 4 P* DATA MAXINDEX NUMBER OF UWBS
0x102d00…1b0680 [0x098]: Pad {f00=0x0072, f01=0x0190, f02=»AM1 ******* *** n 8 P* * * * * * 8 P* * * * * * V 8 P* * * * * * B P* * * * * *** LENGT
0x102d00…1b0680 [0x099]: Pad {f00=0x0072, f01=0x0190, f02=» ******* * * * 8 P* U:NAM2 ******* *** 8 4 P* * * t 4 P* * * P* P* 4 P*
0x102d00…1b0680 [0x09a]: Pad {f00=0x0072, f01=0x0190, f02=»******* h 4 P* * * 4 P* * * H 4 P* * * 4 P* * * 4 P*
0x102d00…1b0680 [0x09b]: Pad {f00=0x0072, f01=0x018e, f02=» ` 4 P* ******* T P EJECT T:USE T:USE T:USE T:USE T:USE T:USE T:USE T:USE @ P* P* P* PT:USE EQU * P LCR WK1,PP GET UWB INDEX P ADKL PP,1 UPDATE PP P A
0x102d00…1b0680 [0x09c]: Pad {f00=0x0072, f01=0x018e, f02=» & P LD WK1,T:CAT,WK1 GET UWB ADDRESS P IFT PARM=TEST . P RF(Z) ERR4 VALIDITY TEST D P XIF f P* r $ P* ADDRESS TO V:NAM IS NOW IN WK1 | P* T P EJECT T:USE T:USE T:USE T:USE T:USE T:USE T:USE T:USE P*
0x102d00…1b0680 [0x09d]: Pad {f00=0x0072, f01=0x018e, f02=» P ANK WK7,X'FF' ISOLATE BYTE * P CF PS,I:EVA0 GET BINARY INDEX ADDRESS ( " P LD B3,STKB,TCA GET STACK BASE V & P LDR* WK2,OP2A GET VALUE OF INDEX | P P P CW WK2,MAXIND,WK1 . P RF(G) USE500 INDEX GREATER THAN MAX VALUT P T P
0x102d00…1b0680 [0x09e]: Pad {f00=0x0072, f01=0x0190, f02=» $ P LDR* WK3,WK1 ADDRESS TO U:NAM0 P SUK WK2,1 0 $ P RF(N) USE500 INDEX = 0, INVALID B P RF(Z) USE100 INDEX = 1 j P ( P LD WK3,U:NAM1,WK1 ADDRESS TO U:NAM1 * P LDR* WK1,WK1 ADDRESS TO PROTOTYPE UWB P PUSE050 EQU * P S
0x102d00…1b0680 [0x09f]: Pad {f00=0x0072, f01=0x0190, f02=»T:USE T:USE T:USE T:USE T:USE T:USE T:USE ~ P* F P* P P* Z PUSE100 EQU * d P LDR WK4,WK7 _____ x $ P ADR WK4,WK4 TWO-WORD STEP INDEX P ADR WK4,TCA * P ST WK3,2,WK4 STORE UWB ADDRESS IN TCA P* < P* L
0x102d00…1b0680 [0x0a0]: Pad {f00=0x0072, f01=0x0190, f02=» P & P LD WK1,T:DAD,TCA GET T:D POINTER 4 P LD WK4,WATLEN,WK1 GET NUMBER OF ENTRIES IN WAT 6 P LDR WK2,TCA WAT-POINTER n P ( P ADK WK1,DWBMSK FORM DWBMSK-POINTER P ( PUSE200 ADK WK1,1 BUMP DWBMSK-POINTER " P ADK WK2,4 ... AND W
0x102d00…1b0680 [0x0a1]: Pad {f00=0x0072, f01=0x416c, f02=»50 SUK WK4,1 COUNT P RB(P) USE200 LOOP THE LOOP P > P SUR WK1,WK1 LOAD CR F $ P EJECT T:USE T:USE T:USE b P* P* STORE CR ON STACK, RETURN P* PUSE500 EQU * P CFR B3,P P ABL I:RT0 P P P
0x102d00…1b0680 [0x0a2]: Pad {f00=0x0072, f01=0x2008, f02=» , ' AD WK3,6,WK1 ADDRESS TO U:NAM(INDEX-2) RB USE050 D EJECT V * d * n * x USE100 EQU * ( $ ANK WK7,/FF MASK INDEX IN WAT TABLE $ ADR WK7,WK7 TWO-WORD STEP INDEX ADR WK7,TCA , ' STR WK3,2,W
0x102d00…1b0680 [0x0a3]: Pad {f00=0x0072, f01=0x40ec, f02=» 2 F IDENT TYPET VER=T,REL=3.0,DATE=78-03-03 TYPET : TYPET J I:EVA0 I:ERR2 n I:RT1 , ( B #03 ;d # + @ @
0x102d00…1b0680 [0x0a4]: Pad {f00=0x0072, f01=0x40f0, f02=» 2 F IDENT ICLEAR VER=T,REL=3.0,DATE=78-03-03 ICLEARK : ICLEARK L I:EVA0 ` I:RT1 r , ( @ #0 0T ' ' _ T $ @ P ADKL OP2A,1 ... BUMP PO
0x102d00…1b0680 [0x0a5]: Pad {f00=0x0072, f01=0x4110, f02=» 2 F IDENT EMPTYT VER=T,REL=3.0,DATE=78-03-03 EMPTYTK : EMPTYTK L I:EVA0 ` , ( @ #0 0T & ! T r I:RT1 , ( P & ! X T C T T !P < @
0x102d00…1b0680 [0x0a6]: Pad {f00=0x0072, f01=0x0190, f02=» 2 F IDENT T:STIN VER=T,REL=3.0,DATE=78-03-03 STRIN1K : STRIN1K L T:STEV ` , ( @ X x & Y " X R W r T:RNOK I:EVA0 , ( P _ Y $ I:ER17
0x102d00…1b0680 [0x0a7]: Pad {f00=0x0072, f01=0x412a, f02=» u X $ X " R W V R , ( W V % _ " D $ D , I:MOV T:GRFC l T:ROK ~ * & $ X $ X y & @ < R W 'P W aP eP gW: kP R W V R W
0x102d00…1b0680 [0x0a8]: Pad {f00=0x0072, f01=0x2008, f02=» ADK OP2A,1 ... BUMP POINTER ... & ! RB L1 ... AND GO TAKE NEXT BYTE. 0 Z END b@ nL1 NO ! j " * CLEAR 1:ST BYTE OF DECIMAL LDK WK1,X'0F' SCR WK1,OP2A ADK OP2A,1 BUMP PTR & ! LDK WK2,X'FF' DEC
0x102d00…1b0680 [0x0a9]: Pad {f00=0x0072, f01=0x0006, f02=» P X `
0x102d00…1b0680 [0x0aa]: Pad {f00=0x0072, f01=0x0190, f02=» " P IDENT T:DMR UPD 78-04-19/ST P UPD 78-04-19/ST * P UPD 78-03-15/ST D P REL 78-04-01 #3.1 ^ P UPD 78-01-11/ST z P UPD 77-11-07/UKF P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P UPD
0x102d00…1b0680 [0x0ab]: Pad {f00=0x0072, f01=0x0190, f02=» UPD 77-04-27/ULJO P REL 77-04-29 #2.2 P UPD 77-04-27/ULJO 8 P T 4 P*********************************************** 4 P* * 4 P* C R E D I T D A T A M A N A G E M E N T * 4 P*
0x102d00…1b0680 [0x0ac]: Pad {f00=0x0072, f01=0x0190, f02=»WRITE * t 4 P* * 4 P*********************************************** T P P ENTRY T:RREA,T:RRE1 P ENTRY T:RWRI,T:RWR1 P " P EXTRN I:EVA0 EVALUATE ADDRESS , P EXTRN I:RT1 RET
0x102d00…1b0680 [0x0ad]: Pad {f00=0x0072, f01=0x0190, f02=» T:IO2 PERFORM I/O REQUEST (T:IO) $ P EXTRN I:ERR ERROR PRINT ROUTINE * P EXTRN I:FML R ( P EXTRN T:STCW STORE ECB CONTROL WORD h P P T P EJECT T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR P* $ P*
0x102d00…1b0680 [0x0ae]: Pad {f00=0x0072, f01=0x0190, f02=» P* P* ERROR CODES: P* * ( PERR19 EQU 19 FIX BUFFER NOT ALLOWED 4 T P EJECT T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR ` P P* ( P* TEMPORARY INTERPRETER REGISTERS: P* P PWK
0x102d00…1b0680 [0x0af]: Pad {f00=0x0072, f01=0x0190, f02=»RAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 END ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR B " POP2A EQU A9 OPERAND 2 ADDRESS n POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION POPCD EQU A11 OPCODE P P
0x102d00…1b0680 [0x0b0]: Pad {f00=0x0072, f01=0x0190, f02=»EQU A13 TCA BASE ADDRESS P T P EJECT T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR ( P* ( P* TERMINAL STACK BASE DISPLACEMENT: P* P PSTKB EQU 2 PSTKE EQU -2 P P* P* DATA SE
0x102d00…1b0680 [0x0b1]: Pad {f00=0x0072, f01=0x0190, f02=»0 PECBCW2 EQU 12 PDSLEN EQU 14 PDSINX EQU 16 4 PDSCBLN EQU 14 <LENGTH>ITEM H & PDSCBIX EQU 16 <INDEX>ITEM (CTL WD) j & PDSCBRI EQU 18 DATA RECIEVING ITEM P PDSCBL EQU 20 LENGTH OF DSCB P P P* BIT VALUES:
0x102d00…1b0680 [0x0b2]: Pad {f00=0x0072, f01=0x0190, f02=»BT EQU X'80' WAIT BIT (REQUEST) $ PARITHB EQU X'10' ARITHMETIC BIT ( PNUMBIT EQU X'20' NUMERIC BIT P T P EJECT T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR t P* P* RREAD - RANDOM READ P* , P* RREAD
0x102d00…1b0680 [0x0b3]: Pad {f00=0x0072, f01=0x0190, f02=» CF PS,BFITEM HANDLE FIRST ITEMS P LDR OP1E,OP2E SAVE * " P CF PS,I:EVA0 GET <LENG> ITEM F P IFT PARM=TEST l P ANK OP2T,ARITHB+NUMBIT P SUK OP2T,NUMBIT BINARY? P RF(NZ) ERR2 NO;ILLEGAL TYPE . P CWR* OP1E,OP2A ILLEGAL REQUESTED LE
0x102d00…1b0680 [0x0b4]: Pad {f00=0x0072, f01=0x0190, f02=» USE BUFFER LENGTH P ST WK1,ECBRL,A8 STORE ECB " P CF PS,T:STCW GET RECORD ITEM < P ORK A7,/0A ORDER b P | P IFT PARM=TEST P LCR WK1,A8 P ANK WK1,BUFBIT FIX BUFFER ? P RF(Z) *+8 NO * P LDK WK1,ERR19 FIX BUFFER NOT ALLO
0x102d00…1b0680 [0x0b5]: Pad {f00=0x0072, f01=0x018e, f02=»:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR T:DMR P* N P* RWRITE - RANDOM WRITE X P* z & P* RWRITE <DSET>,<ITEM>,<RECNO> P PT:RWRI EQU * , P CF PS,T:FDSP FETCH DATA SET PARAMETERS PT:RWR1 EQU *
0x102d00…1b0680 [0x0b6]: Pad {f00=0x0072, f01=0x0190, f02=» P LCR WK1,A8 P ANK WK1,BUFBIT FIX BUFFER? P RF(Z) *+8 NO < * P LDK WK1,ERR19 FIX BUFFER NOT ALLOWED R " P ABL I:ERR ERROR PRINT ROUTINE P XIF P " P ABL T:IO1 PERFORM I/O REQUEST P P T P EJECT T:DMR T:DMR
0x102d00…1b0680 [0x0b7]: Pad {f00=0x0072, f01=0x0190, f02=» EQU * , P CF PS,I:EVA0 GET <ITEM> BUFFER ADDRESS P IFT PARM=TEST > P ANK OP2T,ARITHB+NUMBIT T P RF(NZ) ERR2 NOT STRING t P XIF $ P ST OP2A,ECBBA,A8 STORE B.A ECB $ P SUR OP2E,OP2A GET BUFFER LENGTH " P ST OP2E,ECBRL,A8 STORE IN
0x102d00…1b0680 [0x0b8]: Pad {f00=0x0073, f01=0x4076, f02=»LLEGAL REQUESTED LENGTH & PERR ABL I:ERR ERROR PRINT ROUTINE P XIF J P V P ^ P END f@ r
0x102d00…1b0680 [0x0b9]: Pad {f00=0x0073, f01=0x2008, f02=» WK1,ECBCW,A8 STORE IT IN ECB RTN PS , < D IFT PARM=TEST L ERR2 LDK WK1,2 b RF ERR x ERR6 LDK WK1,6 & !ERR ABL I:ERR ERROR PRINT ROUTINE XIF END @
0x102d00…1b0680 [0x0ba]: Pad {f00=0x0073, f01=0x4166, f02=» 2 F IDENT I:CPA VER=T,REL=2.4,DATE=77-12-07 H I:CPA H : I:CPA H J * & R W H , ( ( V W Q P W ! W V H , ( ? P , V W Q P W $ W V H * & _ P T V W
0x102d00…1b0680 [0x0bb]: Pad {f00=0x0073, f01=0x0190, f02=» 2 F IDENT I:MOV VER=T,REL=2.4,DATE=77-12-07 I I:MOV I:MVC I : I:MOV I P I:MVC I b , ( $0#0;b P P P P I t , ( ! 0 - P V W Z _ I , ( A 4 V W Q P ) P 9_ &" I , ( a
0x102d00…1b0680 [0x0bc]: Pad {f00=0x0073, f01=0x018e, f02=» , ( V 4! P < S S J , ( S X 4 9d * & ! R + J 4 , ( : V W R 4 0R J d , ( ! Y 7 Y& P Z,;D 9_8 J , ( A 8 _< V W YL T 9 J I:ERR8 J , (
0x102d00…1b0680 [0x0bd]: Pad {f00=0x0073, f01=0x4120, f02=» J f , ( Q W Q 7 Y P _4 & Q 9d K , ( ! )0 + P 7 Y Z $ K 8 _ : K h H D ! f P P PN P +P: MQ OP WP oP sQ { S S S K ~ < 8 R R R 1P wP T Pb SX P Q Q P. P K
0x102d00…1b0680 [0x0be]: Pad {f00=0x0073, f01=0x8190, f02=» 2 F IDENT I:MUL VER=T,REL=2.4,DATE=77-12-07 L I:MUL I:SH1L L : I:MUL L R I:ERR2 L d I:ERR1L L v , ( V ) ! L I:ERR9 L , ( " & 6 L , ( 9 [
0x102d00…1b0680 [0x0bf]: Pad {f00=0x0073, f01=0xc18a, f02=» Z L , ( P [ 9a Z $" T 9d! P M I:ADD M P , ( [ [ P V H M ` , ( )_ _N z R z ! M , ( P 1` { V (9h T I Z ! M I:SH1L M , (
0x102d00…1b0680 [0x0c0]: Pad {f00=0x0073, f01=0x0190, f02=» 2 F IDENT T:STOU VER=T,REL=3.1,DATE=78-04-01 STROU1K : STROU1K L T:STEV ` I:EVA0 r , ( @ X x & Y " I:ER17 I:ERR2L , ( !0P ! P ! T , (
0x102d00…1b0680 [0x0c1]: Pad {f00=0x0073, f01=0x0004, f02=» h p
0x102d00…1b0680 [0x0c2]: Pad {f00=0x0073, f01=0x0190, f02=» & P IDENT T:GTCW UPD 78-04-05/POEG P UPD 78-04-05/POEG . P REL 78-04-01 #3.1 J P UPD 78-01-17/ST f P UPD 77-03-09/ULJO P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3
0x102d00…1b0680 [0x0c3]: Pad {f00=0x0073, f01=0x0190, f02=» | P REL 77-03-16 #2.1 P UPD 77-03-09/ULJO $ P REL 76-12-13 #1.3 @ P REL 76-11-15 #1.2 P REL 76-10-07 #1.1 x P UPD 00-00-00 #0 P REL #1,76-06-15 P & P******************************** $ P*
0x102d00…1b0680 [0x0c4]: Pad {f00=0x0073, f01=0x0190, f02=»** r P P ENTRY GETCW P ( , P EXTRN T:GTCW TRANSFER CW TO NUMERIC DI 0 $ P EXTRN I:EVA0 EVALUATE E ADDRESS ` * P EXTRN T:FDSP FETCH DATASET PARAMETERS P EXTRN I:RT1 RETURN ADDRESS $ P EXTRN I:ERR ERROR PRINT ROUTINE P P
0x102d00…1b0680 [0x0c5]: Pad {f00=0x0073, f01=0x018e, f02=» P******************** P " P* TEMPORARY REGISTERS: * P J PDISP EQU A7 DISPLACEMENT R PBCD EQU DISP DIGIT INDICATOR r POP1A EQU A10 SAVE REGISTER , PFLIP EQU A11 LEFT/RIGHT DIGIT INDICATOR POP2A EQU A9 OPERAND ADDRESS *
0x102d00…1b0680 [0x0c6]: Pad {f00=0x0073, f01=0x0190, f02=» PWK3 EQU A3 PWK4 EQU A4 PWK6 EQU A6 , PDSCB EQU A8 DATASET CB BASE > P b P* NON-TEMPORARY REGISTERS: j P PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS T P EJECT T:GTC
0x102d00…1b0680 [0x0c7]: Pad {f00=0x0073, f01=0x0190, f02=» PCOMP EQU 855 PTEST EQU 1 PNOTEST EQU 0 . PPARM EQU TEST B P X P* ` P* BIT VALUES j P* $ PARITHB EQU X'10' ARITHMETIC BIT PNUMBIT EQU X'20' NUMERIC BIT $ PZEROBT EQU X'8000' ZERO BIT SET $ PNOTSGN EQU X
0x102d00…1b0680 [0x0c8]: Pad {f00=0x0073, f01=0x0190, f02=»* v P* * P*************************** . P R PDSCBBA EQU 2 Z PDSCBRL EQU 4 n PDSCBEL EQU 6 PDSCBST EQU 8 PDCBCW1 EQU 10 PDCBCW2 EQU 12 PDSLEN EQU 14 PDSINX EQU 16 T P EJECT T:G
0x102d00…1b0680 [0x0c9]: Pad {f00=0x0073, f01=0x4120, f02=» PROCEDURE * P* * P*************** . P F 2 PGETCW CF PS,T:FDSP FETCH DATASET CB PARAMETERS N * P CF PS,I:EVA0 FETCH DATA ITEM ADDRESS " P CF PS,T:GTCW GET CONTROL WORD $ P ABL I:RT1 RETURN TO INTERPRETER P P
0x102d00…1b0680 [0x0ca]: Pad {f00=0x0073, f01=0x2008, f02=» ETER | END @ (***** : *INSERT B EJECT R ` * PROCEDURE * h * * *************** 2 .GETCW CF PS,T:FDSP FETCH DATASET CB PARAMETERS * % CF PS,I:EVA0 FETCH DATA ITE
0x102d00…1b0680 [0x0cb]: Pad {f00=0x0073, f01=0x0190, f02=»LATOR ( ~ $ P DATA 0 BLOCK ERROR ACKUMULATOR ) , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ) 6 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ) f P* ) P XIF ) P IFT RECHAN=3 ) PDWA6 EQU /11 DEVICE ADDRESS ) P* ) P DATA 0 LAST OUTPUT DWT )
0x102d00…1b0680 [0x0cc]: Pad {f00=0x0073, f01=0x0190, f02=»A6 CIO-START ) " P DATA 0 RETRANSMISSION COUNTER * P DATA 0 QUEUE TERMINAL 1 * : P DATA 0 QUEUE TERMINAL 2 * Z P* * z P IFT ACKMUL=1 * P DATA 0 NAK-ACKUMULATOR * $ P DATA 0 BLOCK ERROR ACKUMULATOR * , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR
0x102d00…1b0680 [0x0cd]: Pad {f00=0x0073, f01=0x0190, f02=» * P DATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD + ( P DATA INTRT2 INTERRUPT TABLE + H P INR A2,0,DWA6 INR + l P OTR A2,0,DWA6 OTR + P CIO A2,1,DWA6 CIO-START + " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + P DAT
0x102d00…1b0680 [0x0ce]: Pad {f00=0x0073, f01=0x0190, f02=»ATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR , . P* , Z P XIF , d P IFT RECHAN=2 , p P DATA 0 TIMER POINTER , P DATA /7055 SYNC-CHARACTER , 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 , 0 P DATA 0 DWT OF G
0x102d00…1b0680 [0x0cf]: Pad {f00=0x0073, f01=0x0190, f02=»L STATUS WORD (LOOP-TESTS) , $ P DATA 0 BLOCK SENDING INDICATOR - " P XIF - J P IFT RECHAN=3 - V P DATA 0 TIMER POINTER - l P DATA /7055 SYNC-CHARACTER - 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 - 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL
0x102d00…1b0680 [0x0d0]: Pad {f00=0x0073, f01=0x0190, f02=» 2 F IDENT T:ENLI VER=T,REL=3.0,DATE=78-03-03 & T:DNL T:DSL & : I:EVNO & P I:ECPY & b I:EPIC & t I:ETXTL & I:ETAB & I:EBRI & I:EBRB & I:EBR & * & &
0x102d00…1b0680 [0x0d1]: Pad {f00=0x0073, f01=0x0004, f02=» x
0x102d00…1b0680 [0x0d2]: Pad {f00=0x0073, f01=0x0190, f02=» & P IDENT T:GTID UPD 77-04-27/ULJO P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2
0x102d00…1b0680 [0x0d3]: Pad {f00=0x0073, f01=0x0190, f02=».1 ~ P UPD 77-03-09/ULJO P REL 76-12-13 #1.3 & P REL 76-11-15 #1.2 B P REL 76-10-07 #1.1 ^ P UPD 00-00-00 #0 z P REL #1,76-06-15 P & P******************************** $ P* * $ P*
0x102d00…1b0680 [0x0d4]: Pad {f00=0x0073, f01=0x0190, f02=» T:GETI P $ P EXTRN I:EVA0 EVALUATE E ADDRESS P EXTRN I:RT1 RETURN ADDRESS @ $ P EXTRN I:ERR ERROR PRINT ROUTINE d P P******************** P* * P* REGISTER USAGE * P* * P****
0x102d00…1b0680 [0x0d5]: Pad {f00=0x0073, f01=0x0190, f02=»ION x POP2E EQU A5 OPERAND 2 LENGTH PWK1 EQU A1 WORK REGISTER 0 P P P* NON-TEMPORARY REGISTERS: X P | PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS P* P* DISPLACEMENT VALUE:
0x102d00…1b0680 [0x0d6]: Pad {f00=0x0073, f01=0x018e, f02=» @ P* $ P* CONDITIONAL ASSEMBLY FLAGS: P* : P D PCOMP EQU 855 L PTEST EQU 1 ` PNOTEST EQU 0 r PPARM EQU TEST P P* P* BIT VALUES P* $ PARITHB EQU X'10' ARITHMETIC BIT PNUMBIT EQU X'20' NUM
0x102d00…1b0680 [0x0d7]: Pad {f00=0x0073, f01=0x0190, f02=» P* * P* PROCEDURE * P* * 4 P*************** L P* GETID <ITEM> d P | PT:GETI RES 0 * P CF PS,I:EVA0 FETCH DATA ITEM ADDRESS P IFT PARM=TEST P ANK OP2T,ARITHB+NUMBIT P RF(NZ) GET05
0x102d00…1b0680 [0x0d8]: Pad {f00=0x0074, f01=0x0190, f02=»OP2T,NUMBIT P RF(NZ) ERR2 NOT BINARY PGET10 EQU * 4 P XIF H , P LD WK1,TID,TCA LOAD CONTROL WORD VALUE T " P SC WK1,1,OP2A STORE FOR USER P SRL WK1,8 P SCR WK1,OP2A P P P $ P ABL I:RT1 RETURN TO INTERPRETER
0x102d00…1b0680 [0x0d9]: Pad {f00=0x0074, f01=0x4052, f02=»GTH l PERR ABL I:ERR ERROR PRINT P XIF . P : P END B@ N P LD WK1,TID,TCA LOAD CONTROL WORD VALUE T " P SC WK1,1,OP2A STORE FOR USER P SRL WK1,8 P SCR WK1,OP2A P P P $ P ABL I:RT1 RETURN TO INTERPRETER
0x102d00…1b0680 [0x0da]: Pad {f00=0x0074, f01=0x2008, f02=» ER ~ P $ P ABL I:RT1 RETURN TO INTERPRETER P B P END J@ V P ^ P*************** f P* * ~ P* PROCEDURE * P* * P*************** P 2 PGETCW CF PS,T:FDSP FETCH DATASET CB
0x102d00…1b0680 [0x0db]: Pad {f00=0x0074, f01=0x4138, f02=» 2 F IDENT T:SETC VER=T,REL=3.0,DATE=78-03-03 1 T:SETCK T:SCUR 1 : T:SETCK 1 T T:GRFC 1 h T:EDWI 1 z T:RCTS 1 T:SCUR 1 , ( A C 1 T:WRDY 1 X :
0x102d00…1b0680 [0x0dc]: Pad {f00=0x0074, f01=0x40d6, f02=» 2 F IDENT T:CLMI VER=T,REL=3.0,DATE=78-03-03 2 T:CLMIK 2 : T:CLMIK 2 L , ( "0P ' Q W ' 2 ` ! Y : 2 P Q W 2 ( 2 @ 2 P LDK A2,/0F CLEAR VALUE FOR FIRST P SCR A2,
0x102d00…1b0680 [0x0dd]: Pad {f00=0x0074, f01=0x0190, f02=» 2 F IDENT T:ATTF VER=T,REL=3.0,DATE=78-03-03 3 J F " T:ATTFK T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC@ T:WRDY T:CLDYC 3 : T:ATTFK 3 I:EVA6 3 T:ROK 3 T:RCR 3 I:RT1 3 , ( Y Y V E
0x102d00…1b0680 [0x0de]: Pad {f00=0x0074, f01=0x4092, f02=» : C 3 v T:EDIOA 4 T:CLDYC H 4 ( , ( = C : C : 4 < , 4 l X 4 |@ 4 3 I:EVA6 3 T:ROK 3 T:RCR 3 I:RT1 3 , ( Y Y V E
0x102d00…1b0680 [0x0df]: Pad {f00=0x0074, f01=0x4156, f02=» 2 F IDENT T:DC00 VER=T,REL=3.0,DATE=78-03-03 5 & " WRITELK DCREAD DCWRTE DCEXCH 5 : T:FDS0 5 d DCREAD 5 v T:DCR1 5 DCWRTE 5 T:DCW1 5 DCEXCH 5 T:DCE1L 5 , ( I$
0x102d00…1b0680 [0x0e0]: Pad {f00=0x0074, f01=0x0190, f02=»LE CODE v " P SC WK1,I:ECB+1 ... TO CONSOLE * P LDK WK1,'0' PRINTER CONTROL CHARACTER 6 P SC WK1,I:BUF+1 d 0 P LDK A7,STDWRT+WAIT REPEAT ERRMSG ON CONSOLE | P LKM P DATA 1 P P XIF P P LDK A7,X'80' EXIT CODE P L
0x102d00…1b0680 [0x0e1]: Pad {f00=0x0074, f01=0x0006, f02=»
0x102d00…1b0680 [0x0e2]: Pad {f00=0x0074, f01=0x0190, f02=» ( P IDENT TRACHK UPD 76-11-15/POEG P REL 78-04-01 #3.1 0 P REL 78-03-03 #3.0 L P REL 77-12-07 #2.4 h P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-04-29 #2.2 P REL 77-04-15 #2.1
0x102d00…1b0680 [0x0e3]: Pad {f00=0x0074, f01=0x0190, f02=»#1.1 P EXT 76-10-06/POEG P UPDATE #1 76.05.18 ( P REL #1,76-06-15 H P* b 8 P*************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TRACHK = TRALA CHECKER P*
0x102d00…1b0680 [0x0e4]: Pad {f00=0x0074, f01=0x0190, f02=»***************************** z P* & P* 0 T P EJECT TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK T : P P* P* ENTRIES P* P P ENTRY TC:CHK CHECK THINGS P ENTRY TC:ABT ABORT DEBUGGER
0x102d00…1b0680 [0x0e5]: Pad {f00=0x0074, f01=0x0190, f02=» P* EXTERNALS P* P " P EXTRN TB:ENT DEBUGGER ENTRY * P EXTRN TB:ABT - ABORT N P EXTRN TB:RDC - RESTART n " P EXTRN TT:PRC PROGRAM COUNTER * P EXTRN TT:TID TERMINAL IDENTIFICATION P EXTRN TT:HLT HALT FLAG * P EXTRN
0x102d00…1b0680 [0x0e6]: Pad {f00=0x0074, f01=0x018e, f02=»TABLE h $ P EXTRN I:TRC REPORT (TRACE) MODE * P EXTRN TT:MSG ERROR MESSAGE (INDIRECT) 6 T P EJECT TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK T d P P* P* FIRST TIME SWITCH P* P PFIRST DATA 1
0x102d00…1b0680 [0x0e7]: Pad {f00=0x0074, f01=0x0190, f02=» P PTC:RMP DATA I:TRC T P EJECT TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK T * P P* 4 P* TC:CHK CHECK THIGS AND PERHAPS ENTER DEBUGGER P* P* ENTRY: CF A14,TC:CHK P* A12: PROGRAM COUNT
0x102d00…1b0680 [0x0e8]: Pad {f00=0x0074, f01=0x0190, f02=»: DESTR | P* P* REGISTER USE: ( P* A11: TID TERMINAL IDENTIFICATION 2 P* A12: PRC PROGRAM COUNTER ^ P* P PTC:CHK LD A11,-4,A13 GET TID P P LD A1,STOPP CHECK IF STOP P RF(Z) CHK010 NO P P LDKL A8
0x102d00…1b0680 [0x0e9]: Pad {f00=0x0074, f01=0x0190, f02=»NO P LD A3,TT:HLT+2 TEST TID P RF(Z) HALT NO TID * P CWR A3,A11 D P RF(E) HALT THIS TID X P t ( PCHK020 LD A1,TT:TON CHECK IF TRAP ON | P RF(Z) CHK060 NO P LDKL A1,TT:TRP CHECK TRAPS P LDR* A2,A1 PCHK030 ADK A1,4
0x102d00…1b0680 [0x0ea]: Pad {f00=0x0074, f01=0x0190, f02=» P RF(NE) CHK060 0 PCHK040 LD A3,TT:LOP,A1 THIS TID TEST LOOPCT P RF(Z) TRAP ZERO R P SUK A3,1 j P ST A3,TT:LOP,A1 DECR LOOPCT | P RF CHK060 PCHK050 SUK A2,1 P RB(NZ) CHK030 P P * PCHK060 LD A1,TT:VON CHECK
0x102d00…1b0680 [0x0eb]: Pad {f00=0x0074, f01=0x018e, f02=»70 ADK A1,4 & P LDR* A3,A1 GET ADDRESS TO VERIFY P RF(Z) CHK080 NO ADDRESS > $ P LDR* A4,A3 VERIFY THIS ADDRESS ^ P AN A4,TT:VMM+2,A1 MASK P CW A4,2,A1 AND TEST P EX TT:VMM,A1 ABR(CND) A5 PCHK080 SUK A2,1 P RB(NZ) CHK070
0x102d00…1b0680 [0x0ec]: Pad {f00=0x0074, f01=0x0190, f02=» P LDR* A2,A1 PCHK100 ADK A1,4 " P CWR* A12,A1 COMP PRC ADDRESS 0 P RF(NE) CHK120 V P LD A3,2,A1 TEST TID l P RF(Z) CHK110 NO TID P CWR A3,A11 P RF(NE) CHK130 , PCHK110 LD A4,TT:RMD,A1 THIS TID SET MODE P ST* A4,TC:R
0x102d00…1b0680 [0x0ed]: Pad {f00=0x0074, f01=0x018e, f02=»RACHK TRACHK TRACHK TRACHK TRACHK T r P : P* B P* SOMETHING HAS HAPPENED L P* l P v ( PHALT LD A1,FIRST CHECK IF FIRST TIME ~ P RF(Z) HALT10 NO " P LDK A1,'S'-'H' INDICATE START P CM FIRST $ PHALT10 ADK A1,'H
0x102d00…1b0680 [0x0ee]: Pad {f00=0x0074, f01=0x018e, f02=» P & PVERI LDK A1,'V' INDICATE VERIFIED P 6 $ PPAUSE ST A1,STOPP SET STOP MODE > P ST A11,TT:TID STORE TID f & P ST A12,TT:PRC AND PROGRAM COUNTER P P LDKL A7,'TB' ENTER DEBUGGER P LKM P DATA -4,TB:ENT P P L
0x102d00…1b0680 [0x0ef]: Pad {f00=0x0074, f01=0x0190, f02=» P P* P* RESTART TERMINAL P* 0 P : P CM STOPP RESET STOP B & P LD A12,TT:PRC GET PROGRAM COUNTER ^ P RB TC:CHK T P EJECT TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK T P P* P* TC:A
0x102d00…1b0680 [0x0f0]: Pad {f00=0x0074, f01=0x0190, f02=» PTC:ABT LDKL A7,'TB' P LKM $ P DATA -4,TB:ABT 0 P RTN A14 H P X P ` P* h P* TC:RDC RESTART DEBUGGER r P* P* ENTRY: CF A14,TC:RDC P* P* EXIT: RTN A14 P* A7: DESTR P* P PTC
0x102d00…1b0680 [0x0f1]: Pad {f00=0x0074, f01=0x0190, f02=» TRACHK TRACHK T X P P* ( , P* TC:ERR ENTER DEBUGGER AFTER SOME ERROR 2 P* b P* ENTRY: CF A14,TC:ERR l P* A12: PROGRAM COUNTER P* A13: TCA ADDRESS P* P* EXIT: RTN A14 & P* A12: NEW OR OLD PROGRAM COUNTER
0x102d00…1b0680 [0x0f2]: Pad {f00=0x0074, f01=0x0190, f02=»STOP MODE P ST A1,STOPP P LD A11,-4,A13 GET TID & P ST A11,TT:TID AND STORE D ( P ST A12,TT:PRC STORE PROGRAM COUNTER d P P LDKL A7,'TB' ENTER DEBUGGER P LKM P DATA -4,TB:ENT P P LKM PAUSE THIS TERMINAL P
0x102d00…1b0680 [0x0f3]: Pad {f00=0x0074, f01=0x4008, f02=»@ E P ST A1,STOPP P LD A11,-4,A13 GET TID & P ST A11,TT:TID AND STORE D ( P ST A12,TT:PRC STORE PROGRAM COUNTER d P P LDKL A7,'TB' ENTER DEBUGGER P LKM P DATA -4,TB:ENT P P LKM PAUSE THIS TERMINAL P
0x102d00…1b0680 [0x0f4]: Pad {f00=0x0074, f01=0x2008, f02=»
0x102d00…1b0680 [0x0f5]: Pad {f00=0x0074, f01=0x0190, f02=» L _( W 0 R _ 8H 0 dR _ 8H 0 d R _ 8H : : W j H # W | H W R WNW _*_, B B P B ) Y N 9 V" j * (XB R *P _ V : N :IV :BR 8 8 N 9 V O V _ _ JOB BYE
0x102d00…1b0680 [0x0f6]: Pad {f00=0x0074, f01=0x0190, f02=» * 1 1 ZHW _4 N ! QPP: O V ~ P8 h H W*W W W W $ W W W W W J_ W W R W W W W V ~ : & 0 : D L R b l v |
0x102d00…1b0680 [0x0f7]: Pad {f00=0x0074, f01=0x0190, f02=»OVERFLOW I/O TOO MANY COMMAND ALLOWED DEVICE NAME MISSING 2ND ADDRESS UNKNOWN FCT LFT ASSIGNED EQU ASSIGN CORE INPUT OUTPUT /L EMPTY PROGRAM CLOSED DIRECTORY SYSTEM SESSION NO OBJECT LOAD MODULE W N & >B >A
0x102d00…1b0680 [0x0f8]: Pad {f00=0x0075, f01=0x0190, f02=» &Wz N % T U O 0 W i _0 ]$ Z & W & < U Z & & W R W W W W X~ X Q Pv N 4 # l R W W W W T" $ ( - - N _N
0x102d00…1b0680 [0x0f9]: Pad {f00=0x0075, f01=0x0004, f02=»
0x102d00…1b0680 [0x0fa]: Pad {f00=0x0075, f01=0x0190, f02=» 0 P IDENT TRATAB X 1.1.01 EXT 76-10-06/POEG P REL 78-04-01 #3.1 8 P REL 78-03-03 #3.0 T P REL 77-12-07 #2.4 p P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 P REL 77-04-29 #2.2 P REL 77-04-15 #2
0x102d00…1b0680 [0x0fb]: Pad {f00=0x0075, f01=0x0190, f02=»-06/POEG P UPDATE #0 75.11.11 P REL #1,76-06-15 0 P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TRATAB = TRALA TABLES P* P* " P* LEVE
0x102d00…1b0680 [0x0fc]: Pad {f00=0x0075, f01=0x0190, f02=»***** b P* P* P " T P EJECT TRATAB TRATAB TRATAB TRATAB TRATAB TRATAB TRATAB T * P P* P* ENTRIES P* P P ENTRY TT:TON,TT:TRP,TT:LOP P ENTRY TT:VON,TT:VER,TT:VMM P ENTRY TT:
0x102d00…1b0680 [0x0fd]: Pad {f00=0x0075, f01=0x0190, f02=» P* P* TRAP TABLE P* " P* LAYOUT: ADDRESS TID , P* N P X PTT:TON DATA 0 TRAP ON FLAG ` P PTT:TRP DATA 16,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,
0x102d00…1b0680 [0x0fe]: Pad {f00=0x0075, f01=0x0190, f02=» P* VERIFICATION TABLE P* P* LAYOUT: ADDRESS VALUE * P* MODE MASK N P* p P z & PTT:VON DATA 0 VERIFICATION ON FLAG P PTT:VER DATA 16,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P D
0x102d00…1b0680 [0x0ff]: Pad {f00=0x0075, f01=0x0190, f02=»TAB TRATAB TRATAB TRATAB TRATAB TRATAB T z P B P* J P* REPORT (TRACE) TABLE T P* r P* LAYOUT: ADDRESS TID | P* P " PTT:RON DATA 0 REPORTS ON FLAG P PTT:REP DATA 16,0 P DATA 0,0,0,0,0,0,0,
0x102d00…1b0680 [0x100]: Pad {f00=0x0075, f01=0x0190, f02=» TABLE x P* P PTT:LOP EQU *-TT:TRP-4 PTT:RMD EQU *-TT:REP-2 > P RES 32 P l P t P* | P* HALT FLAG P* P* LAYOUT: FLAG TID P* P PTT:HLT DATA 1,0 P P* 2 P* PROGRAM
0x102d00…1b0680 [0x101]: Pad {f00=0x0075, f01=0x4066, f02=»ESSAGE: P* PTT:MSG DATA 0 ADDRESS P DATA 0 LENGTH 8 P N P END V@ b P l P t P* | P* HALT FLAG P* P* LAYOUT: FLAG TID P* P PTT:HLT DATA 1,0 P P* 2 P* PROGRAM
0x102d00…1b0680 [0x102]: Pad {f00=0x0075, f01=0x2008, f02=» END @ * * TRACE TABLE ( * > * LAYOUT: ADDRESS TYPE H * j t TT:TRC DATA 16,0 | DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0
0x102d00…1b0680 [0x103]: Pad {f00=0x0075, f01=0x0190, f02=» : UF W _D F R, F T V LW W W R 4W W X N ! 4 V # R _* V 4 4Pl Tf V 9$ TH V V PP W N ! V # W N R _ W U V 6 W 6 V 5 U U U V
0x102d00…1b0680 [0x104]: Pad {f00=0x0075, f01=0x0190, f02=» # R W 6 0=a 08g9A:l @ . A .;` $ 9(@ 4 N ! # f R W* V T U V T W 2 : X W V , P8 PB W T W T 9 VH9 V # R W& V V P W !
0x102d00…1b0680 [0x105]: Pad {f00=0x0075, f01=0x0190, f02=» j W - Z N " N /OBJCTOB W 0 V P , W 0 V , W W 4 V # V P W j W R W W W W W V < NOT V > N X4 ( 2 W V T" W B U V T W V T C n R _f
0x102d00…1b0680 [0x106]: Pad {f00=0x0075, f01=0x0190, f02=» C _( W ( W" C V J R _4 W _ W _" B U W 6 < R WNW W V T$ C X R W2 W U _: U W _D C | R W W W W W U _ T T Y T T W Z_( C 5 Z V j W (P. H
0x102d00…1b0680 [0x107]: Pad {f00=0x0075, f01=0x0190, f02=» <A W 6 V 6 R 6 V Q J 4 % Y # R W _ _ _ , T 4<A $ % 4 % Y j W 4P6 T V W ZW4 V 5 Z B W V W P V W _R C , U F R _ V T@ V , T 9
0x102d00…1b0680 [0x108]: Pad {f00=0x0075, f01=0x0190, f02=» 2 F IDENT I:EDT VER=T,REL=3.0,DATE=78-03-03 v F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:EFLI I:ETABL I:EXIT I:ETXT v : F B I:ECPY I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC` I:EFIL I:EPICN v , ( !! gg++ v , ( ! L
0x102d00…1b0680 [0x109]: Pad {f00=0x0075, f01=0x0002, f02=»
0x102d00…1b0680 [0x10a]: Pad {f00=0x0075, f01=0x0190, f02=» & P IDENT T:GTI0 ORG 77-04-27/ULJO P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2
0x102d00…1b0680 [0x10b]: Pad {f00=0x0075, f01=0x4178, f02=»******************************* . P* * ( . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * Z . P* * . P***************************************** P P ENTRY GETTID
0x102d00…1b0680 [0x10c]: Pad {f00=0x0075, f01=0x2008, f02=» ABORT ABL T:ABOR ABORT REQUEST ( #GETTID ABL T:GETI GET TASK IDENTITY 0 END d@ p T ABL T:RREA1 z $ RWRTE CF PS,T:FDSP RANDOM WRITE ABL T:RWRT1 " SWITCH ABL T:SWIT SWITCH TASK DELAY ABL T:DELA D
0x102d00…1b0680 [0x10d]: Pad {f00=0x0075, f01=0x0190, f02=» z h * & _ 9P F " X<# ; W )0_@ { , ( D R Z R 4! P ;)0 { 6 I:ERRE { f , ( ( Z ] 49d_* { x , ( _>P ; :X _ _ z 9d! ) ^ _~ { , ( ,_ 8 _ : W 8W * 8 ! { , (
0x102d00…1b0680 [0x10e]: Pad {f00=0x0075, f01=0x4110, f02=» W4 P T { ^ H D ! W T W AQ oPd wT^ WR WD W. W V T | H D ! R P T W ` = P CP GWn KW: M OWf ST WW. [P aT | f D @ gW m @ oWF sP wU P W R R P P #W 'W | h | @
0x102d00…1b0680 [0x10f]: Pad {f00=0x0075, f01=0x018e, f02=» 2 F IDENT I:EDTE VER=T,REL=3.0,DATE=78-03-03 } D @ I:EKIHK I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNOC } : I:EGTD I:EGTB } I:EKIHK } I:EINH } I:ETAB } I:EVIN } , ( @ : ! P
0x102d00…1b0680 [0x110]: Pad {f00=0x0075, f01=0xc114, f02=» 2 F IDENT T:TEI VER=T,REL=2.2,DATE=77-04-29 T:TESTK T:ABOR : T:TESTK T T:FDSP h I:RT1 z T:ABOR * & @ "R V I ( _ R *
0x102d00…1b0680 [0x111]: Pad {f00=0x0075, f01=0x0014, f02=»
0x102d00…1b0680 [0x112]: Pad {f00=0x0075, f01=0x0190, f02=» 0 P IDENT TRACON VER=T,REL=2.2,DATE=77-04-29 P REL 77-04-29 #2.2 8 P REL 77-04-15 #2.1 T P UPD 77-04-06/CWA p P UPD 77-03-30/ULJO P REL 77-03-16 #2.1 P UPD 77-03-12/ULJO P UPD 77-03-11/ULJO P UPD 77-03-1
0x102d00…1b0680 [0x113]: Pad {f00=0x0075, f01=0x018e, f02=»6-12-13 #1.3 P UPD 76-12-10/CWA P UPD 76-11-22/CWA 0 P REL 76-11-15 #1.2 L P UPD 76-11-01/CWA h P UPD 76-10-21/CWA P REL 76-10-07 #1.1 P UPD 76-08-24/POEG P REL #1,76-06-15 P* 2 P************
0x102d00…1b0680 [0x114]: Pad {f00=0x0075, f01=0x0190, f02=» P* P* 2 P********************************************* P* R P* P* f P* p P ENTRY I:INIT z , P ENTRY T:BPCB BUFFER POOL CONTROL BLOCK P* ( P EXTRN U:BTAB USER WORK BLOCK TABLE . P EXTRN T:ATAB TERMIN
0x102d00…1b0680 [0x115]: Pad {f00=0x0075, f01=0x018e, f02=»CON TRACON TRACON p P* P* * P* T:A LAYOUT 4 P* H P* R * PCIA EQU -6 CURRENT INSTRUCTION ADDRESS PTID EQU -4 TERMINAL IDENTITY PSTE EQU -2 STACK END PPA EQU 0 PROGRAM POINTER PSTB EQU 2 STACK BASE & PWAT
0x102d00…1b0680 [0x116]: Pad {f00=0x0075, f01=0x0190, f02=» P* PDSCBFC EQU 1 FILE CODE PDSCBBA EQU 2 BUFFER ADDRESS , " PDSCBRL EQU 4 REQUESTED LENGTH P " PDSCBEL EQU 6 EFFECTIVE LENGTH v PDSCBRC EQU 8 RETURN CODE PDSCBCW EQU 10 CONTROL WORD & PDSCBLN EQU 12 LENGTH ITEM ADDRESS $ PDS
0x102d00…1b0680 [0x117]: Pad {f00=0x0075, f01=0x0190, f02=»ROL BLOCK p , PDSCBE EQU -6 END DISPLACEMENT OF DSCB:S 4 PDSCB0 EQU DSCBE-DSCBL DISPLACEMENT OF FIRST DSCB B P* z P* P* < P EJECT TRACON TRACON TRACON TRACON TRACON P* P* P* ECB EQUATES USED P*
0x102d00…1b0680 [0x118]: Pad {f00=0x0076, f01=0x0190, f02=»RETURN CODE PECBCW EQU 10 CONTROL WORD P* 6 P* @ P* MORE EQUATES J P* ` P* j & PFCSPIN EQU /10 FILE CODE SOP INPU t ( PFCSPUT EQU /11 FILE CODE SOP OUTPUT , PMASK EQU /180C CASSETTE RETURN CODE MASK 8 PCVTSBA EQU /8A S
0x102d00…1b0680 [0x119]: Pad {f00=0x0076, f01=0x0190, f02=» T:D z PTWBLEN EQU 10 DITTO P ( $ PBUFL EQU 8 BUFFER SIZE IN WORDS 0 & PMAXTSK EQU 37 MAX NUMBER OF TASKS X . PCASSFC DATA /0013 FILE CODE RIGHT CASSETTE ( P DATA /0012 FILE CODE LEFT CASSETTE , PFCCASS DATA 0 RUNNING CASSETTE FILE CODE
0x102d00…1b0680 [0x11a]: Pad {f00=0x0076, f01=0x018e, f02=»OL BLOCK h 6 PTCATAB DATA 0 TEMPORARY TCATAB******************** < P EJECT TRACON TRACON TRACON TRACON TRACON J P* 8 P*************************************************** P* START OF TRACON PROGRAM 8 P************************
0x102d00…1b0680 [0x11b]: Pad {f00=0x0076, f01=0x0190, f02=» b 8 P*************************************************** P* D PI:INIT EQU * N P LDKL A14,STACK b P LDKL A8,ECB z P LD A2,CASSFC ( PTRA005 ST A2,FCCASS ACTUAL CASSETTE P STR A2,A8 STORE FILE CODE P* P* TEST IF CASS
0x102d00…1b0680 [0x11c]: Pad {f00=0x0076, f01=0x0190, f02=» LD A1,ECBRC,A8 GET RETURN CODE . P RF(N) TRA007 REQUEST ERROR, NO SUCH FILE ( P SRC A1,1 Z P RF(N) TRA007 NOT LOADED l P* SWITCH ON LAMP ON SOP P LDKL A1,/400 $ P ST A1,ECBCW,A8 STORE LAMP CODE P LDK A1,FCSPUT FILE CODE P
0x102d00…1b0680 [0x11d]: Pad {f00=0x0076, f01=0x0190, f02=»,CASSFC+2 P RF(E) TRA010 LAST CASSETTE P 6 " P LD A2,CASSFC+2 NEXT CASSETTE > P RB TRA005 d < P EJECT TRACON TRACON TRACON TRACON TRACON v P* 6 P* READ SOP SWITCH INDICATING WHICH CASSETTE DRIVE $ P* HOLDS CONFIGU
0x102d00…1b0680 [0x11e]: Pad {f00=0x0076, f01=0x0190, f02=»READ SOP SWITCH P LKM P DATA 1 $ P 4 $ P LD A1,ECBCW,A8 GET CONTROL WORD < & P SUK A1,/9 SECOND SOP SWITCH CODE d P RB(N) TRA010 WRONG SWITCH P ADR A1,A1 GET INDEX P 0 P LD A1,CASSFC,A1 GET CORRESPONDING FILE CODE ( P S
0x102d00…1b0680 [0x11f]: Pad {f00=0x0076, f01=0x0190, f02=»* LOCK CASSETTE P* P LDK A7,/B7 LOCK CASSETTE " P LDK A1,1 D 0 P ST A1,ECBCW,A8 INDICATE NO SEQUENCE NUMBER V P LKM P DATA 1 P $ P LD A1,ECBRC,A8 GET RETURN CODE P ANKL A1,/A011 2 P RB(NZ) TRA010 NO CASSETTE IN
0x102d00…1b0680 [0x120]: Pad {f00=0x0076, f01=0x0190, f02=» P LDK A1,FCSPUT P STR A1,A8 P LDK A7,/B7 TURN ON LAMP , P LKM L P DATA 1 X P* h 4 P* RESET FILE CODE TO CASSETTE AND READ TAPE MARK r P* P LD A1,FCCASS P STR A1,A8 P LDK A7,/82 READ TM P LKM P DATA
0x102d00…1b0680 [0x121]: Pad {f00=0x0076, f01=0x018e, f02=»WING INSTRUCTION MUST | 0 P* START ON AN ADDRESS GREATER THAN OR EQUAL 2 P* TO TCATAB+X'98' , TO GIVE SPACE FOR 37 TASKS R P* P* PTABEND EQU * < P EJECT TRACON TRACON TRACON TRACON TRACON P* P* ALLOCATE BUFF
0x102d00…1b0680 [0x122]: Pad {f00=0x0076, f01=0x0190, f02=» $ PSBA EQU A2 START OF AVAIL. CORE PEBA EQU A3 END OF DITO 0 P N PALLBUF EQU * V * P LD SBA,BASE GET START OF BUFFER AREA j " P LD EBA,CVTEBA GET END OF DITO P* P* ASSERT SBA EVEN ADDRESS P* P ADK SBA,1 P ANK
0x102d00…1b0680 [0x123]: Pad {f00=0x0076, f01=0x0190, f02=»,WK1 P RF(N) *+6 P CWR SBA,WK1 P RF *+4 2 P CWR WK1,SBA B P RF(G) *+4 V P LDR SBA,WK1 IF SBA < BUFMIN h $ P ST SBA,POOL1 ADDR OF 1:ST BUFFR * P LDR A8,SBA FOR USE LATER AS LKM-PARAM P ADKL A8,2 < P EJECT TRACON TRA
0x102d00…1b0680 [0x124]: Pad {f00=0x0076, f01=0x0190, f02=» * P SRL EBA,1 .....ADDRESS FOR COMPARISON P LDR WK1,SBA SAVE 2 P L PBUFLOP EQU * T $ P CWR SBA,EBA ADDRESS COMPARISON h P RF(NL) ENLOOP END OF MEMORY P P LDR WK1,SBA SAVE , P ADK SBA,BUFL+1 ONE EXTRA WORD FOR LINK & P RF(
0x102d00…1b0680 [0x125]: Pad {f00=0x0076, f01=0x0190, f02=»,WK1 RESTORE TO BYTE ADDRESS POINTER * P SLL SBA,1 ...LAST WORD IN BUFFER POOL , P Z < P EJECT TRACON TRACON TRACON TRACON TRACON b P* P CMR SBA . P ADK SBA,1 SET BIT 15 IN BUFFER CHAIN PTR P ST* SBA,POOL1 P ADK S
0x102d00…1b0680 [0x126]: Pad {f00=0x0076, f01=0x0190, f02=» RELEASE BUFFR - STRUCTURES BUF POOL P DATA -8,POOL1 . 6 P LD A1,APPDAT APPLICATION DATA ON CONFIG CASSETTE D P RF(NZ) TRA015 YES ~ P P LDK A1,/3F P LDK A7,/38 P LDR* 8,P P DATA ECB * P CALL ENDSOP TURN OFF LAMP AND
0x102d00…1b0680 [0x127]: Pad {f00=0x0076, f01=0x018e, f02=»A2,T:ATAB GET ADDRESS . P LDR* A3,A2 GET NUMBER OF PAIRS IN TCATAB P P ( PTRA020 SUK A3,1 ALL TASKS ACTIVATED X P RF(N) TRA050 YES & P ADK A2,2 STEP POINTER TO TCATAB & P LDR* A11,A2 GET ADDRESS TO T:DX00 & P LD A13,2,A2 GET ADDRESS
0x102d00…1b0680 [0x128]: Pad {f00=0x0076, f01=0x0190, f02=» t . PTRA030 RF(Z) TRA040 JUMP IF NO MORE TWB:S " P RF(P) TRA035 JUMP IF NOT TWB : & P ADKL A10,2 STEP ADDRESS TO T:DX00 ` , PTRA035 SLL A6,1 SHIFT TWB-MASK LEFT ONCE P RB TRA030 PTRA040 LD A7,TID,A13 GET TID P LDR* A4,A10 GET STALEN
0x102d00…1b0680 [0x129]: Pad {f00=0x0076, f01=0x0190, f02=»NTPA ACTIVATE TASK P P SUK A4,1 " . P RB(P) TRA045 JUMP IF MORE START ADDRESSES 4 $ P ADK A2,2 STEP POINTER TO TCATAB f P RB TRA020 GET NEXT TASK P* P* EXIT OF RUNNING TASK " P* RUNNING OF TRACON IS ENDED P* PTR
0x102d00…1b0680 [0x12a]: Pad {f00=0x0076, f01=0x0190, f02=» P RES 2 PSTACK EQU *-2 ( PSWITCH DATA 0 IND LAST TASK IN CLASS ( * PINDEX DATA 0 COUNT NO OF TASK IN CLASS T PSAVE1 DATA 0 SAVE AREA ( PCOUNT DATA 0 NO OF CHAR TO ALLOCATE 0 PAPPDAT DATA 0 APPL. DATA ON CONFIG. CASSETTE ( PBASE DATA
0x102d00…1b0680 [0x12b]: Pad {f00=0x0076, f01=0x0190, f02=» b 0 PRBUFNO DATA 0 COUNTS NBR OF REQUIRED BUFFRS P < 2 PECB DATA 0,BUFF,15,0,0,0 CASSETTE AND SOP ECB D PBUFF RES 8 z P* < P EJECT TRACON TRACON TRACON TRACON TRACON P* P* P* . P* MOVE FROM ADDRESS GI
0x102d00…1b0680 [0x12c]: Pad {f00=0x0076, f01=0x0190, f02=»WER LIMIT j P* P* PMOVE EQU * & P ADR A2,A1 MOVE POINTERS TO 8 P ADR A3,A1 END OF AREAS PMOV050 SUK A2,1 P SUK A3,1 P SUK A1,1 P RF(N) MOVRTN END OF BYTES P P CW A3,BASE ( P RF(E) MOVERR JU
0x102d00…1b0680 [0x12d]: Pad {f00=0x0076, f01=0x0190, f02=» RB MOV050 P PMOVRTN RTN A14 < P EJECT TRACON TRACON TRACON TRACON TRACON 0 P* p P* z P* 4 P* GETNUM GET A 3-CHARACTER ASCII NUMERICAL VALUE . P* FROM BUFFER GIVEN BY A6, AND CONVERT TO P* BINARY STORED I
0x102d00…1b0680 [0x12e]: Pad {f00=0x0076, f01=0x0190, f02=»INTER z P * PGET030 ADK A6,1 POINTER TO NEXT DIGIT ( P LCR A3,A6 GET CHARACTER FROM BUFFER D " P ANK A3,/F MASK AWAY ZONE PART p P* P* ADDING LOOP P* PGET050 SUK A3,1 " P RF(N) GET100 JUMP IF NO MORE P P ADR
0x102d00…1b0680 [0x12f]: Pad {f00=0x0076, f01=0x0190, f02=»0) p P RB(P) GET030 P & P ADK A4,81 LOAD 1 (=100-90-90+81) ( P RB(P) GET030 INCREMENT = 1 R P v P RTN A14 ~ < P EJECT TRACON TRACON TRACON TRACON TRACON P* P* ( P* SUBROUTINE FOR SWITCHING OFF LAMP
0x102d00…1b0680 [0x130]: Pad {f00=0x0076, f01=0x0190, f02=»CBCW,A8 STORE LAMP CODE P LDK A1,FCSPUT P STR A1,A8 6 P LKM H P DATA 1 T P* d " P* RESET FILE CODE TO CASSETTE n P* P LD A1,FCCASS P STR A1,A8 P LDK A7,/38 UNLOCK P LKM P DATA 1 P PEND100
0x102d00…1b0680 [0x131]: Pad {f00=0x0076, f01=0x0190, f02=»N TRACON d P* P* . P* SUBROUTINE TO CONTROL MEMORY ALLOCATION ( P* Z P* d PUPDBAS EQU * n P C2 COUNT NEGATE LENGTH , P LD A3,CVTEBA GET ADDRESS FOR COMPARISON PUPD100 CW A3,BASE ( P RF(E) ERRMEM JUMP IF NO MORE
0x102d00…1b0680 [0x132]: Pad {f00=0x0076, f01=0x0190, f02=»RACON TRACON h P* P* " P* ERROR ENTRY IN TRACON , : P* LIT UP LAMP 2 - 6 FROM LEFT ON SOP AND HALT PROGRAM L P* ( P* ERRMEM MEMORY CORE OVERFLOW LAMP 2 P* ( P* ERRCAS CASSETTE TAPE ERROR LAMP 3 P* P* ERRTYP I
0x102d00…1b0680 [0x133]: Pad {f00=0x0076, f01=0x0190, f02=» P* ! P* ! PERRMEM LDK A1,/10 ! P RF ERR100 ! 2 PERRCAS LDK A1,8 ! D P RF ERR100 ! PERRTYP LDK A1,4 ! n P RF ERR100 ! PERRTID LDK A1,2 ! P RF ERR100 ! PERRUWB LDK A1,1 ! P ! , PERR100 LDK A7,/37 ORDER TO TURN ON LAMP
0x102d00…1b0680 [0x134]: Pad {f00=0x0076, f01=0x0190, f02=»A050 EXIT ! P* " , PBUFMIN EQU * BUFFER AREA MAY START HERE " < P EJECT TRACON TRACON TRACON TRACON TRACON " L PTRA100 EQU * " P* " P* READ DATA FROM CASSETTE " P* " ( P LD A1,FCCASS GET CASSETTE FILE CODE " P STR A1,
0x102d00…1b0680 [0x135]: Pad {f00=0x0076, f01=0x0190, f02=» JUMP IF NOT FINISHED " P # $ P LD A1,ECBRC,A8 GET RETURN CODE # & P ANKL A1,MASK # N . P RF(NZ) TRA150 JUMP IF RETURN CODE NOT OK # d P # & P LD A6,ECBBA,A8 GET BUFFER ADDRESS # " PTRA110 LCR A1,A6 GET CHARACTER # P CCK A1,/FFFF # & P RF(NE
0x102d00…1b0680 [0x136]: Pad {f00=0x0076, f01=0x0190, f02=» # P CCK A1,'UU' $ ( P ABL(E) TRA720 JUMP IF U-BLOCK DEF. $ P RF TRA300 $ H < P EJECT TRACON TRACON TRACON TRACON TRACON $ Z P* $ 2 P* CHECK IF END OF CONFIGURATION OR READ ERROR $ P* $ PTRA150 EQU * $ P ANKL A1,/1000 $
0x102d00…1b0680 [0x137]: Pad {f00=0x0076, f01=0x0190, f02=»CK PROTOTYPE T:A:S FOR SHARED TWB:S, $ 4 P* THEN ALLOCATE BUFFER POOL, UNLOCK CASSETTE % , P* AND EXIT % d P* % z < P EJECT TRACON TRACON TRACON TRACON TRACON % P* % * P* LOOP THROUGH T:ATAB TO TAKE CARE OF % * P* TWB:S REFER
0x102d00…1b0680 [0x138]: Pad {f00=0x0077, f01=0x0190, f02=»* A1 - A4 - WORK % , P* A5 - HOLDS LOGICAL PRODUCT OF & . P* TWBMSK:S IN RESPACTIVE T:D & L : P* A6 - LOOP INDEX IN LOOP OVER WAT:S (LOP43) & ~ 8 P* A7 - LOOP INDEV IN INNER LOOP OVER T:ATAB & 8 P* A8 - LO
0x102d00…1b0680 [0x139]: Pad {f00=0x0077, f01=0x0190, f02=»EY CONTAIN POINTERS) & n 8 P* A9 - COMPARISION VALUE FOR THE SUBR. MOVE ' . P* A10- A11 - POINTERS TO RESPECTIVE T:D ' X < P* A12- A13 - POINTERS TO WAT-ITEMS IN RESPECTIVE T:A ' P* ' P* ' 2 P LDKL A9,TRA300 LOWER LIMIT FOR TWB ALLOCATI
0x102d00…1b0680 [0x13a]: Pad {f00=0x0077, f01=0x0190, f02=»E UPPER LIMIT FOR MIDDLE AND OUTER LOOP ' P* ENTER OUTER LOOP ( 0 $ PLOP41 ADKL A8,2 INCR LOOP INDEX ( L P CW A8,TATABE ( t & P RF(E) LOP41X EXIT FROM OUTER LOOP ( P ( P* ENTER MIDDLE LOOP ( & P LDR A7,A8 REINIT INNER LOOP INDEX ( < P EJECT
0x102d00…1b0680 [0x13b]: Pad {f00=0x0077, f01=0x0190, f02=»A11,A8 GET 2:ND DITTO ( P ) P LDR* A12,A10 GET 1:ST T:A ) & P LDR* A13,A11 GET 2:ND DITTO ) H P ) l P LDK A1,6 GET CONSTANT ) t 4 P ADR A12,A1 GET PTR TO 2:ND WD OF 1:ST WAT-ITEM ) P ADR A13,A1 DITTO ) P ) $ P LDK A6,0 INIT INNER LOOP INDE
0x102d00…1b0680 [0x13c]: Pad {f00=0x0077, f01=0x0190, f02=» EJECT TRACON TRACON TRACON TRACON TRACON ) ( PLOP43 RF(NN) TRA280 TEST SIGN OF A5 * @ P* J IF NOT BOTH TWB:S * l P LDR* A1,A12 1:ST TWB ADDR * P CWR* A1,A13 CMP W 2:ND * P RF(NZ) TRA280 NOT SAME TWB * P * P* * P* FIN
0x102d00…1b0680 [0x13d]: Pad {f00=0x0077, f01=0x0190, f02=») TRA260 * P ADK A1,2 + PTRA260 SLL A3,1 + " P SUK A2,1 + : P RB(NN) LOP44 + L P + b P ADR A1,A10 + j . P LD A1,TWBLEN-2,A1 GET LENGTH OF THIS TWB + ~ P* + " P* ALLOCATE SPACE AND COPY TWB + P* + P LD A3,CVTEBA + P SUR A3,A1
0x102d00…1b0680 [0x13e]: Pad {f00=0x0077, f01=0x0190, f02=» WAT IN T:A + | P SUK A3,2 1:ST WD OF TWB , P CALL MOVE COPY ! , 4 P , N PTRA280 ADK A6,1 LOOP COUNTER , V P ADKL A12,4 NEXT WAT , z P ADKL A13,4 DITTO , 0 P SLL A5,1 TEST NEXT BIT IN TWBMSK:S PRODUCT , P RB(NZ) LOP43 IF MORE TWB:S , P ,
0x102d00…1b0680 [0x13f]: Pad {f00=0x0077, f01=0x0190, f02=»OP , j ( P RB LOP41 YES! - LOOP IN OUTER LOOP - P - 6 * PLOP41X EQU * THAT WAS THAT THAT !!! - > < P EJECT TRACON TRACON TRACON TRACON TRACON - l P* - ( P* MOVE TCATAB AND PLACE NEW ADDRESS - P* IN T:ATAB - P* - $ P LDKL A2,T
0x102d00…1b0680 [0x140]: Pad {f00=0x0077, f01=0x0190, f02=» - p P LD A3,CVTEBA . P SUR A3,A1 . $ P ST A3,CVTEBA STORE NEW ADDRESS . 0 P ADK A3,2 GET TO-ADDRESS . X P ST A3,T:ATAB STORE LINK . x P CALL MOVE . P . ( P ABL ALLBUF GO ALLOCATE BUFFER POOL . < P EJECT TRACON TRACON TRACON TRACO
0x102d00…1b0680 [0x141]: Pad {f00=0x0077, f01=0x0190, f02=»****************** . z PTRA300 EQU * / 0 P LDKL A9,TRA720 LOAD ADDRESS TO COMPARE WITH / . P CCK A1,'TT' / b P RF(E) TRA310 JUMP IF T / v P CCK A1,'AA' / & P ABL(NE) ERRTYP JUMP IF NOT U,T,A / , P* APPLICATION DATA ON CONFIG. CASSETTTE / P IM AP
0x102d00…1b0680 [0x142]: Pad {f00=0x0077, f01=0x0190, f02=»6 GET 'I' / P SLL A1,8 0 P LC A1,3,A6 GET 'ID' 0 $ P LDKL A12,T:ATAB 0 @ P LDR* A2,A12 GET LENGTH 0 X PTRA320 ADKL A12,2 0 x $ P LDR* A11,A12 GET T:DX00-ADDRESS 0 $ P LDR* A13,A11 GET T:AX00-ADDRESS 0 P CW A1,TID,A13 0 & P RF(E) TRA350 JUMP
0x102d00…1b0680 [0x143]: Pad {f00=0x0077, f01=0x018e, f02=»N TRACON TRACON TRACON 0 x P* 1 ( P* T:AX00 FOUND 1 2 " P* A13 = T:AXOO; A11 = T:DX00 1 J P* 1 p PTRA350 EQU * 1 z P CM SWITCH 1 & P ADK A6,5 POINT AT LEFTMOST DIGIT 1 $ P CALL GETNUM GET NUMBER OF TCA:S 1 P CWK A5,MAXTSK 1 P A
0x102d00…1b0680 [0x144]: Pad {f00=0x0077, f01=0x0190, f02=» 1 r PTRA355 LDKL A1,/8000 2 P ST A1,SWITCH 2 $ PTRA360 LDR A2,A13 COPY A13 2 : P LDK A1,0 RESET DSET LENGTH 2 P LD A3,2,A11 GET DATLEN 2 P RF(Z) TRA367 NO DSET 2 2 P EJECT TRACON TRACON TRACON TRACON 2 P* 2 . P* COMPUTE DA
0x102d00…1b0680 [0x145]: Pad {f00=0x0077, f01=0x0190, f02=»A1 COPY TO GET INCREMENT 2 PTRA364 SUK A3,1 COUNT DOWN 3 P RF(Z) TRA367 3 B " P ADR A1,A5 INCREMENT DSET AREA 3 X P RB TRA364 3 ~ P* 3 P* RESULT IN BYTES IN A1 3 PTRA367 EQU * 3 0 P ADK A1,PA-DSCBE ADJUST TO TCA DISPLACEMENT 3 P ST A1,S
0x102d00…1b0680 [0x146]: Pad {f00=0x0077, f01=0x0190, f02=»2 GET NUMBER OF BYTES 3 P SUR A2,A1 GET FROM ADDRESS 4 P LDR A5,A2 SAVE FR0M-ADDRESS 4 B P IM SWITCH 4 f ( P RF(N) TRA370 JUMP IF LAST IN CLASS 4 x P* COPY T:AX00 4 P ADR A1,A3 4 " P ADK A1,4 GET NUMBER OF BYTES 4 " P LD A3,CVTEBA GET END AD
0x102d00…1b0680 [0x147]: Pad {f00=0x0077, f01=0x0190, f02=»OPY T:AX00 4 4 P LD A1,SAVE1 RESTORE A1 (LENGTH OF DSET BLOCKS) 5 2 P EJECT TRACON TRACON TRACON TRACON 5 J P* 5 . P* ALLOCATE MEMORY FOR FIX DATASET BUFFERS 5 P* 5 " P* A1 - LENGTH OF DSET BLOCKS 5 P* A5 - ADDRESS TO T:AX00 5
0x102d00…1b0680 [0x148]: Pad {f00=0x0077, f01=0x0190, f02=»5,DSCBL GET ADDRESS TO DSET BLOCK 5 P LDR* A2,A5 6 * P SLL A2,1 6 > , P RF(NN) TRA395 JUMP IF NOT FIXED BUFFER 6 P . P LD A2,BASE GET ALLOCATION MEMORY ADDRESS 6 & P ST A2,DSCBBA,A5 STORE BUFFER ADD 6 P LD A2,DSCBRL,A5 6 ( P ST A2,DSCBLN,A5 STORE
0x102d00…1b0680 [0x149]: Pad {f00=0x0077, f01=0x0190, f02=» 6 l P LDR A2,A5 7 PTRA380 SUK A3,1 7 P RF(N) TRA385 DSET FOUND 7 2 P ADK A2,DSCBL NEXT 7 R P RB TRA380 7 l 4 PTRA385 LD A2,DSCBBA,A2 GET SHARED I/O-BUFFER ADD 7 ~ 0 P ST A2,DSCBBA,A5 AND STORE IT IN REQ. DSET 7 P RF TRA395 NEXT DSET 7 " P* A
0x102d00…1b0680 [0x14a]: Pad {f00=0x0077, f01=0x0190, f02=»RA375 JUMP IF MORE DATASETS 7 P* RF TRA450 8 $ 2 P EJECT TRACON TRACON TRACON TRACON 8 8 P* 8 n P* MAKE TEMPORARY TCATAB 8 x P* 8 PTRA450 EQU * 8 $ P AD A5,SAVE1 GET T:AX00-ADDRESS 8 0 P LD A2,TCATAB GET NUMBER OF PAIRS IN TCATAB
0x102d00…1b0680 [0x14b]: Pad {f00=0x0077, f01=0x018e, f02=»ORE T:DX00-ADDRESS 8 P IM TCATAB INCREMENT COUNTER 9 P LD A2,BASE 9 > P* RESERVE MEMORY FOR STACK 9 R P ADK A2,1 9 v $ P ANKL A2,/FFFE MAKE EVEN ADDRESS 9 " P ST A2,STE,A5 STORE STACK END 9 " P STR A2,A5 STORE PA=STACK END 9 P LD A3,6,A11 G
0x102d00…1b0680 [0x14c]: Pad {f00=0x0077, f01=0x018e, f02=» 2 P EJECT TRACON TRACON TRACON TRACON : P* : : P* COPY TWB BLOCKS : D P* : ^ ( P LDR A10,A11 SAVE ADDRESS TO T:DX00 : h 0 P ADKL A10,10 GET ADDRESS TO FIRST TWBLENGTH : . P ADK A5,6 GET ADDRESS TO FIRST BLOCK PAIR : P LD A6,8,A11 GET
0x102d00…1b0680 [0x14d]: Pad {f00=0x0077, f01=0x0190, f02=» : r ( P ADKL A10,2 UPDATE POINTER IN T:DX00 ; P IM SWITCH ; 4 ( P RF(N) TRA500 JUMP IF LAST IN CLASS ; F P LD A3,CVTEBA ; r P SUR A3,A1 ; ( P ST A3,CVTEBA STORE UPDATED POINTER ; P LDR* A2,A5 ; P SUK A2,2 GET FR0M-ADDRESS ; P ADK A3,4 ;
0x102d00…1b0680 [0x14e]: Pad {f00=0x0077, f01=0x0190, f02=»BMASK ; ~ P RB TRA480 < 2 P EJECT TRACON TRACON TRACON TRACON < P* < V 2 P* LOOP THROUGH T:DX00 TO FIND START ADDRESSES < ` , P* TO UPDATE NUMBER OF REQUESTED BUFFERS < P* < PTRA550 EQU * < P LDR* A2,A10 GET STALEN < P CWK A
0x102d00…1b0680 [0x14f]: Pad {f00=0x0077, f01=0x018e, f02=» ( P RF(N) TRA570 JUMP IF LAST IN CLASS = P IM TID,A13 UPDATE TID = 0 P IM INDEX = N . P ABL(Z) TRA355 JUMP IF LAST OF THAT CLASS = ` P ABL(N) TRA360 = PTRA570 EQU * = ( P ABL TRA100 JUMP TO READ NEXT BLOCK = P* = < P EJECT TRACON TRACO
0x102d00…1b0680 [0x150]: Pad {f00=0x0077, f01=0x0190, f02=» , P**************************************** > P* > 4 ( P* CASSETTE LAYOUT IS U:NAME,NUMBER > > & P* WHERE NAME IS 1 TO 3 CHARACTERS > j P* AND NUMBER IS 3 DIGITS > P* > P* > PTRA720 EQU * > 0 P LDKL A9,ENDCON LOAD ADDRESS FOR COMPARISON
0x102d00…1b0680 [0x151]: Pad {f00=0x0077, f01=0x0190, f02=»CT TRACON TRACON TRACON TRACON TRACON > P* ? < * P* GET NAME OF UWB FROM CASSETTE BUFFER ? F P* ? t PTRA722 EQU * ? ~ P ADK A6,2 POINTER TO UB NAME ? P LCR A1,A6 ? & P CCK A1,',,' COMMA IS END OF NAME ? P RB(E) RETERR NO NAME ?
0x102d00…1b0680 [0x152]: Pad {f00=0x0077, f01=0x0190, f02=» NOT END OF NAME ? P @ & P SUK A1,','-' ' MAKE SPACE IN NAME @ P LDKL A2,' ' SPACE TO NAME @ J P SUK A6,1 REVERSE POINTER @ n P RF TRA724 @ P @ PTRA723 ADK A6,1 NEXT CHAR @ P LCR A2,A6 @ P CCK A2,',,' @ " P RF(NE) TRA724 NOT E
0x102d00…1b0680 [0x153]: Pad {f00=0x0077, f01=0x0190, f02=»NUMBER OF UWB:S @ t < P EJECT TRACON TRACON TRACON TRACON TRACON A P* A X " P* SEARCH UWB IN DATA DIVISION A b P* A PTRA725 CW A1,2,A10 A * P RF(NE) TRA740 JUMP IF NOT THAT BLOCK A P CC A2,4,A10 A P RF(E) TRA750 BLOCK FOUND A
0x102d00…1b0680 [0x154]: Pad {f00=0x0077, f01=0x018e, f02=»T FOUND A x P RB TRA725 CONTINUE B < P EJECT TRACON TRACON TRACON TRACON TRACON B , P* B l P* U-BLOCK FOUND B v P* B PTRA750 CALL GETNUM B * P ST A5,4,A10 STORE MAX INDEX IN U:BTAB B " P LD A6,CVTEBA GET END ADDRESS B P LDR
0x102d00…1b0680 [0x155]: Pad {f00=0x0077, f01=0x0190, f02=» B p & P SU A6,6,A10 DECREMENT WITH LENGTH C P RB TRA760 C 2 < P EJECT TRACON TRACON TRACON TRACON TRACON C D P* C P* COPY UWB INTO CORE C P* C * PTRA800 ST A6,CVTEBA STORE NEW ADDRESS C P ADK A6,2 C $ PTRA820 LDR A3,A6 LOAD
0x102d00…1b0680 [0x156]: Pad {f00=0x0077, f01=0x4106, f02=»L MOVE COPY BLOCK C P AD A6,6,A10 UPDATE POINTER D P CWR A6,A11 D > P RB(NE) TRA820 CONTINUE D R P LD A1,CVTEBA D r P ADK A1,4 D ( P ST A1,2,A10 STORE BLOCK POOL START D P ABL TRA100 D PENDCON EQU * D P END I:INIT D @ D OAD
0x102d00…1b0680 [0x157]: Pad {f00=0x0077, f01=0x2008, f02=» E
0x102d00…1b0680 [0x158]: Pad {f00=0x0078, f01=0x0190, f02=» E P* F P F PRSTTAB LDR* A2,A1 GET LENGTH F P F > PRSTTA1 ADK A1,4 F F P CMR A1 RESET F ^ P SUK A2,1 F t P RB(NZ) RSTTA1 F P RTN A8 F D P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG F P F P* F P* RD
0x102d00…1b0680 [0x159]: Pad {f00=0x0078, f01=0x0190, f02=»OPT ENTRY: CF A8,RDVA1 F P* A1: FIRST CHAR G P* G 8 * P* EXIT: NORM OR IF SYNTAX ERROR ERRIS G B P* A1: ENDING CHAR G p P* A2: VALUE, NO VAL =0 G P* A9,A10,A11,A12: DESTR G P* CR: Z=NO VAL, NZ=VAL G P* G P* REGISTER USE: G P*
0x102d00…1b0680 [0x15a]: Pad {f00=0x0078, f01=0x0190, f02=»RDCHAR READ FIRST CHAR G ( PRDVAL1 STR A3,A8 PUSH A3-A7 ON STACK H P ST A4,-2,A8 H J P ST A5,-4,A8 H ^ P ST A6,-6,A8 H r P ST A7,-8,A8 H P SUKL A8,10 H P LDK A3,0 CLEAR NUM H P LDK A4,0 AND INDEX H P LDK A5,0 H P LDK A7,0 CLEAR *,
0x102d00…1b0680 [0x15b]: Pad {f00=0x0078, f01=0x0190, f02=»WK A1,'#' H P RF(NE) RDVA20 I P LDK A7,1 INDICATE # I ( PRDVA10 CF A8,RDCHAR I D * PRDVA20 CF A8,RDNUM1 READ NUMERIC VALUE I ` P RF(Z) RDVANO NONE GIVEN I P LDR A3,A2 SAVE NUM I P LDR A7,A7 I P RF(Z) RDVAVA NOT * OR # I P I P CWK A
0x102d00…1b0680 [0x15c]: Pad {f00=0x0078, f01=0x0190, f02=»EN OR ZERO I z P CWK A1,',' ANY SECOND INDEX J P RF(NE) RDVA30 NO J 6 " P CF A8,RDVAL READ SECOND INDEX J P P LDR A5,A2 J v $ P RF(Z) RDVAER NONE GIVEN OR ZERO J P J 0 PRDVA30 CWK A1,')' INDEX MUST BE ENDED WITH ) J P RF(NE) RDVAER J P CF A8,R
0x102d00…1b0680 [0x15d]: Pad {f00=0x0078, f01=0x0190, f02=»NO TAKE CURRENT TID J * PRDVA50 CF A8,FNDEL GO AND FIND ELEMENT K P RF(N) RDVAER NOT FOUND K J " P LDR A2,A9 GET ADDRESS TO ITEM K j P SRL A7,1 CHECK IF * K P RF(Z) RDVAVA NO K * P LDR* A2,A10 CHECK TYPE MUST BE BINARY K P SRL A2,12 K P ANK A
0x102d00…1b0680 [0x15e]: Pad {f00=0x0078, f01=0x0190, f02=» P RF RDVART L P L & PRDVANO LDK A3,0 NO VAL GIVEN CR=0 L P LDR A7,A7 L H & P RF(NZ) RDVAER *,# IN EMPTY VALUE L Z P L PRDVART SC A3,12,A8 UPDATE CR L & P LD A7,2,A8 PULL A7-A3 FROM STACK L P LD A6,4,A8 L P LD A5,6,A8 L P LD A4,8
0x102d00…1b0680 [0x15f]: Pad {f00=0x0078, f01=0x0190, f02=»RABUG TRABUG TRABUG TRABUG TRABUG L | P M 4 P* M < P* FNDEL FIND ELEMENT M F P* M b P* ENTRY: M l P* A3: EL M | P* A4: INDEX1 M P* A5: INDEX2 M P* A6: TID M P* M P* EXIT: M & P* A9: ADDRESS TO EL =0 ILL INDEX M , P
0x102d00…1b0680 [0x160]: Pad {f00=0x0078, f01=0x018e, f02=»$ b P!!JN SEQ:@V=T,0,999 P!!EN & * PKPF 28,OBSOR@V=T 2:ND AND 3:RD PART 2 PMES PREPARE 1:ST PART ` 0 PLED OBSOR@V=T,28,/EE IGNORE ERROR MESSAGE P!!CH $$&PROC P=$$INC $$ P!!CH $$,&PARM$$ $$ 4 P!!CH $$ASG 224,TY10$$MES S
0x102d00…1b0680 [0x161]: Pad {f00=0x0078, f01=0x0014, f02=» ( 0 8 @ H P
0x102d00…1b0680 [0x162]: Pad {f00=0x0078, f01=0x0190, f02=» P IDENT T:IO UPD 78-04-19/ST P UPD 78-04-19/ST ( P UPD 78-04-05/POEG B P REL 78-04-01 #3.1 ^ P UPD 78-04-04/ST z P UPD 77-11-10/UKF P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P UPD 77-08-31/UKF P UPD
0x102d00…1b0680 [0x163]: Pad {f00=0x0078, f01=0x0190, f02=» REL 77-03-16 #2.1 P UPD 77-03-03/ULJO P EXT 77-02-03/ULJO 8 P REL 76-12-13 #1.3 T P UPD 76-12-02/POEG p P UPD 76-12-01/JON P REL 76-11-15 #1.2 P UPD 76-11-12/POEG P UPD 76-11-08/POEG P EXT 76-10-2
0x102d00…1b0680 [0x164]: Pad {f00=0x0078, f01=0x0190, f02=»6-08-24/CWA P EXT 76-06-21/CWA P UPD 76-06-15/LEE 0 P REL #1,76-06-15 L P f 6 P************************************************** n 6 P* * 6 P* T R A L A I / O - I N S T R U C T I
0x102d00…1b0680 [0x165]: Pad {f00=0x0078, f01=0x0190, f02=» R P* THIS IS A VERSION THAT SUPPORTS REQUESTS W/O ACTIVATION ACCORDING TO REV IV P ^ P f 2 P EJECT T:IO T:IO T:IO T:IO T:IO n P ENTRY T:WRIT,T:READ P ENTRY T:KI,T:NKI P ENTRY T:KIA,T:NKIA P ENTRY T:EDWR,T:DSC0
0x102d00…1b0680 [0x166]: Pad {f00=0x0078, f01=0x0190, f02=»A,T:WAIT $ P ENTRY T:IO1 PERFORM I/O REQUEST P ENTRY T:IO2 DITO 8 P ENTRY T:IO3 DITO R P ENTRY T:IO4 DITO l . P ENTRY T:FDS0,T:FDSP FETCH DSET PARAMETERS * P ENTRY DSCBL LENGTH OF DATA SET BLOCK * P ENTRY CIA CURRENT INSTRUCTIO ADDRES
0x102d00…1b0680 [0x167]: Pad {f00=0x0078, f01=0x0190, f02=»:GDSP GET DATASET POINTER " P ENTRY T:GTCW GET CONTROL WORD " P H P EXTRN I:EVA0,I:EVA3 P P EXTRN I:EVA2 l P EXTRN I:RT1 2 P EXTRN I:FML FORMAL PARAMETER LINKAGE ROUTINE P EXTRN I:EDW , P EXTRN T:BPCB BUFFER POOL CONTROL BLOCK
0x102d00…1b0680 [0x168]: Pad {f00=0x0078, f01=0x0190, f02=» T:IO T:IO R P* $ P* CONDITIONAL ASSEMBLY FLAGS: $ P* L P V PCOMP EQU 855 ^ PTEST EQU 1 r PNOTEST EQU 0 PPARM EQU TEST P PSMALL EQU 0 PLARGE EQU 1 PDISC EQU LARGE P* P* ERROR COD
0x102d00…1b0680 [0x169]: Pad {f00=0x0078, f01=0x0190, f02=»NOT ALLOWED x T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO P l P* t ( P* TEMPORARY INTERPRETER REGISTERS: ~ P* P PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER PWK3 EQU A3 WOR
0x102d00…1b0680 [0x16a]: Pad {f00=0x0078, f01=0x0190, f02=» POP1E EQU A6 OPERAND 1 END ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR & " POP2A EQU A9 OPERAND 2 ADDRESS R POP2E EQU A5 OPERAND 2 LENGTH x * POP2T EQU A3 OPERAND 2 TYPE INDICATION POPCD EQU A11 OPCODE PFLIP EQU OPCD P P*
0x102d00…1b0680 [0x16b]: Pad {f00=0x0078, f01=0x0190, f02=»3 TCA BASE ADDRESS P P* " P* LOCAL REGISTERS: , P* H P R PPBF EQU A4 Z T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO l P* ( P* TERMINAL STACK BASE DISPLACEMENT: P* P
0x102d00…1b0680 [0x16c]: Pad {f00=0x0078, f01=0x018e, f02=»L EQU 4 PECBEL EQU 6 PECBST EQU 8 $ PECBCW EQU 10 8 PECBCW1 EQU 10 L PECBCW2 EQU 12 b PDSLEN EQU 14 x PDSINX EQU 16 PDSCBLN EQU 14 <LENGTH>ITEM & PDSCBIX EQU 16 <INDEX>ITEM (CTL WD) & PDSCBRI EQU 18 DATA RECIEVING I
0x102d00…1b0680 [0x16d]: Pad {f00=0x0078, f01=0x018e, f02=» P* T:A LAYOUT P* P* " * PCIA EQU -6 CURRENT INSTRUCTION ADDRESS , PTID EQU -4 TERMINAL IDENTITY Z PSTE EQU -2 STACK END ~ PPA EQU 0 PROGRAM POINTER PSTB EQU 2 STACK BASE & PWAT EQU 4 WORK BLOCK ADDRESS TABLE P* T P
0x102d00…1b0680 [0x16e]: Pad {f00=0x0078, f01=0x0190, f02=» P PMASK1 EQU /1000 EOF PMASK2 EQU /E8DF ERROR ( PMASK3 EQU /0420 BOV,EOV F P f P n P* BIT VALUES: v P P 2 PBUFBIT EQU X'40' BUFFER ALLOCATION BIT (DECB) 4 PEBIT EQU X'40' ECHO OR EXCL.ACCESS BIT (REQUEST) ( P
0x102d00…1b0680 [0x16f]: Pad {f00=0x0078, f01=0x0190, f02=»000' ZERO BIT SET $ PNOTSGN EQU X'7FFF' EXCLUDE SIGN P B P* MISCELLANOUS EQUATES J $ PRIGHT EQU X'FF' RIGHT BYTE MASK h P P T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO P P* P
0x102d00…1b0680 [0x170]: Pad {f00=0x0078, f01=0x0190, f02=»ALPHANUMERIC REQUEST P RF KIPRE P . $ PT:NKIA LDK OP1E,3+3+1 NUM. REQ. 6 P RF ACTPRE ^ P p ( PT:KIA LDK OP1E,2+2+1 ALPHANUM. REQ. x $ P*** RF ACTPRE *** EFFECTIVE *** P 2 PACTPRE EQU * PREPROCESSING FOR KEYBOARD INPUT P
0x102d00…1b0680 [0x171]: Pad {f00=0x0078, f01=0x018e, f02=»:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO ~ ( PKIPRE EQU * COMMON PREPROCESSING FOR F P KEYBOARD INPUT FUNCTIONS r P . P CF PS,GTWEDS GET WAIT,ECHO-BITS AND DSET 2 P CF PS,STBARL STORE BUFFER ADDRESS AND LENGTH P* C
0x102d00…1b0680 [0x172]: Pad {f00=0x0078, f01=0x0190, f02=» P ADK A1,1 BUMP POINTER P SUK OP2E,1 KEEP COUNTING " $ P RB(P) KICBL LOOP WHILE COUNT>0 D P l & P CF PS,I:EVA3 STORE KEYTAB ADDRESS t P ST OP2A,ECBCW,A8 , P CM ECBCW2,A8 CLEAR SECOND CONTROL WORD * P CF PS,I:EVA0 GET LENGTH ITEM ADDR
0x102d00…1b0680 [0x173]: Pad {f00=0x0078, f01=0x0190, f02=»ARM=TEST P RF(NP) KICERR P XIF & P IFF PARM=TEST 2 P RF(N) KICBL2 H P XIF ^ 2 P SU OP2A,ECBRL,A8 REQ. LENGTH VS. ELEM. LENGTH j P IFT PARM=TEST P RF(NP) *+8 2 PKICERR LDK A1,IOERR1 ILLEGAL REQUESTED LENGTH PIOERR ABL
0x102d00…1b0680 [0x174]: Pad {f00=0x0078, f01=0x0190, f02=» LENGTH r PKICBL2 EQU * ( P CF PS,I:EVA0 GET INDEX ITEM ADDRESS $ P ST OP2A,DSINX,A8 P P j P IFT PARM=TEST r P LCR WK1,A8 P ANK WK1,BUFBIT FIX BUFFER ? P RF(Z) *+8 NO * P LDK WK1,ERR19 FIX BUFFER NOT ALLOWED " P ABL I
0x102d00…1b0680 [0x175]: Pad {f00=0x0078, f01=0x0190, f02=» KI/NKI r P 8 P****** RF KIPRE2 PERFORM I/O WITH ACTIVATION REQUEST T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T P* P* I/O AND ACTIVATION P* PKIPRE2 EQU * P ST PP,2,OP1A SAVE PP
0x102d00…1b0680 [0x176]: Pad {f00=0x0078, f01=0x018e, f02=» P LKM P DATA -1,KIACTP P LKM ( P DATA 3 4 T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO D $ PKIACTP EQU * REACTIVATION POINT P ADDR OF SAVE AREA IN A1 " P* RESTORE PP,PA,TCA,ECB-ADDR.
0x102d00…1b0680 [0x177]: Pad {f00=0x0078, f01=0x018e, f02=» n . P ANR A7,A7 CHECK IF THIS TASK WAS ABORTED P RF(Z) KIACT JUMP IF NOT : $ P LDKL WK2,/C000 LOAD RETURN CODE Z " P ST WK2,ECBST,A8 STORE IN ECB P ST WK2,ECBCW,A8 PKIACT ABL IOREQE P EJECT T:IO P P* P* WRITE FU
0x102d00…1b0680 [0x178]: Pad {f00=0x0079, f01=0x0190, f02=» P ANK WK1,BUFBIT FIX BUFFER? P RF(Z) WRIT05 NO ( " P CF PS,I:EVA0 EVALUATE ADDRESS @ P SUR OP2E,OP2A GET R.L. f P IFT PARM=TEST P CW OP2E,DSCBLN,A8 * P RB(G) KICERR ILLEGAL REQUESTED LENGTH P XIF P ST OP2E,ECBRL,A8 STORE R.
0x102d00…1b0680 [0x179]: Pad {f00=0x0079, f01=0x0190, f02=»RFORM WRITE x P LCR WK2,OP2A GET CHAR " P SCR WK2,WK1 STORE FIX BUFFER 2 $ P ADKL OP2A,1 INCR BUFFER POINTER X " P ADK WK1,1 INCR BUFFER POINTER P RB WRIT10 P PWRIT05 EQU * . P CF PS,STBARL STORE BUFFER ADDR AND LENGTH P RF
0x102d00…1b0680 [0x17a]: Pad {f00=0x0079, f01=0x018e, f02=»UNCTION P* P . PT:READ CF PS,GTWEDS GET WAIT-BIT AND DSET " . P CF PS,STBARL STORE BUFFER ADDR AND LENGTH T * P CF PS,I:EVA0 GET LENGTH ITEM ADDRESS $ P ST OP2A,DSLEN,A8 STORE IN DSET P ORK A7,/02 PERFORM READ P P IFT P
0x102d00…1b0680 [0x17b]: Pad {f00=0x0079, f01=0x018e, f02=» h " P ABL I:ERR ERROR PRINT ROUTINE P XIF . P : P RF IOREQ2 B T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T P P* P* EDIT AND WRITE FUNCTION P* P . PT:EDWR CF PS,GTWEDS GET
0x102d00…1b0680 [0x17c]: Pad {f00=0x0079, f01=0x018e, f02=» t P CF PS,EDWE10 * P CM DSINX,A8 CLEAR INDEX ITEM ADDRESS , P ABL TRIOEX NO MORE END-OF-I/O HANDLING L T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO | P P* P* EDIT AND WRITE FUNCTION P*
0x102d00…1b0680 [0x17d]: Pad {f00=0x0079, f01=0x0190, f02=» , PT:EDWF EQU * ENTRY FOR "FEOR"-PROCESSING $ P LDK WK1,X'86' WRITE ORDER, WAIT 4 P 4 PEDWE10 EQU * CALLED FROM ABOVE AT END OF FORMAT d P LD A7,DSINX,A8 AND A7 $ P SU PBF,ECBBA,A8 CALC REQ LENGTH P RF(Z) EDWRTN NO OUTPUT " P ST PBF,
0x102d00…1b0680 [0x17e]: Pad {f00=0x0079, f01=0x0190, f02=»SAVE CR z PEDWRTN RTN PS T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO & P ~ P* " P* DATA SET CONTROL FUNCTION 0 P* P . PT:DSC0 CF PS,GTWEDS GET WAIT-BIT AND DSET " P LCR OP1A,PP GET
0x102d00…1b0680 [0x17f]: Pad {f00=0x0079, f01=0x0190, f02=» T:IO T:IO T:IO T:IO T:IO T:IO p P 8 P* @ " P* DATA SET CONTROL FUNCTION 1 J P* p P z . PT:DSC1 CF PS,GTWEDS GET WAIT-BIT AND DSET " P LCR OP1A,PP GET CONTROL CODE P ADKL PP,1 P CF PS,I:EVA2 P LDK WK1
0x102d00…1b0680 [0x180]: Pad {f00=0x0079, f01=0x0190, f02=»OP1T,OP2T SAVE TYPE $ P LDR OP1E,OP2E SAVE END ADDRESS ( P ANK OP1T,ARITHB+NUMBIT ISOLATE TYPE D P SUK OP1T,NUMBIT BINARY? p P RF(Z) DSC02 YES! P IFT PARM=TEST P SUK OP1T,ARITHB DECIMAL? & P ABL(NZ) I:ERR2 NO: ILLEGAL TYPE!
0x102d00…1b0680 [0x181]: Pad {f00=0x0079, f01=0x0190, f02=»DDRESS f PDSC03 CF PS,STCW0 * PDSCE ANKL OP1A,/00FF GET CONTROL CODE ( " P LC WK1,CTRTAB,OP1A GET ORDER V P ORR A7,WK1 | P CM ECBRL,A8 P RF IOREQ3 F PCTRTAB DATA /3738,/3122,/2624,/0B00,/0C09,/3339,/2324,/3B3C,/1C00 P EJECT T
0x102d00…1b0680 [0x182]: Pad {f00=0x0079, f01=0x018e, f02=» LD OP1E,ECBST,A8 GET STATUS P CF PS,I:EVA0 $ P STR OP1E,OP2A STORE STATUS : P RF TRIOEX ^ P p P x P* P* WAIT FUNCTION P* P PT:WAIT CF PS,GTWEDS GET DSET P LKM P DATA 2 P P RF IOREQE
0x102d00…1b0680 [0x183]: Pad {f00=0x0079, f01=0x0190, f02=» x P* ! P ! 0 PIOREQ1 CM DSLEN,A8 CLEAR LENGTH ITEM ADDRESS ! 0 PIOREQ2 CM DSINX,A8 CLEAR INDEX ITEM ADDRESS ! N 4 PIOREQ3 CM DSCBRI,A8 CLEAR RECIEVING ITEM ADDRESS ! $ PIOREQ4 LKM PERFORM I/O REQUEST ! P DATA 1 ! P ! ( P ANK A7,WAITBT S
0x102d00…1b0680 [0x184]: Pad {f00=0x0079, f01=0x0190, f02=» P " P " P " P* " P* I/O REQUEST ENTRIES " & P* " D P " N PT:IO1 EQU IOREQ1 " V P " n PT:IO2 EQU IOREQ2 " v P " PT:IO3 EQU IOREQ3 " P " PT:IO4 EQU IOREQ4 " T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:I
0x102d00…1b0680 [0x185]: Pad {f00=0x0079, f01=0x0190, f02=» CODE AS 2-BIT COND.VAL. " t P SC WK1,-2,WK2 SET CR # $ P LCR WK5,A8 CHECK IF FIX BUFFER # > P ANK WK5,BUFBIT # f 0 P RF(NZ) REQE30 FIX BUFFER: HANDLE INDEX ITEM # ~ 4 P LD WK5,ECBRL,A8 CHECK IF NO REQ. LENGTH * FIXUP # * P RF(Z) REQE30 REQUESTED LENGTH =
0x102d00…1b0680 [0x186]: Pad {f00=0x0079, f01=0x0190, f02=» WK2,WK5 # * PREQE30 LD OP2A,DSINX,A8 GET INDEX ITEM $ P RF(Z) REQE40 NONE $ > $ P LDK OP2T,NUMBIT SET TYPE=BINARY $ X , P LC OP2E,ECBCW2,A8 GET LENGTH IF DECIMAL $ ( P ANK OP2E,RIGHT MASK OUT RIGHT BYTE $ P RF(Z) REQE35 $ P LDK WK1,0 $ ( P SC WK
0x102d00…1b0680 [0x187]: Pad {f00=0x0079, f01=0x0190, f02=»DSCBRI,A8 GET RECIEVING ITEM $ P RF(Z) TRIOEX THERE'S NONE % $ P % F P* % N " P* MOVE DATA TO RECIEVING ITEM % X P* % ~ $ P ANK WK1,3 CHECK I/O RETURN CODE % . P RF(NZ) TRIOEX IF NOT ZERO NO MOVE OF DATA % P LD WK2,ECBBA,A8 % & P LD WK3,ECBEL,A8
0x102d00…1b0680 [0x188]: Pad {f00=0x0079, f01=0x0190, f02=» BUMP PTR % P ADK WK2,1 DITO & P SUK WK3,1 COUNT & * P RB REQE44 LOOP & B P & Z 4 PREQE50 LDK A7,X'22' RELEASE DATACOM READ BUFFER & b P LKM & P DATA 1 & P & PTRIOEX ABL I:RT1 & 2 P EJECT T:IO T:IO T:IO T:IO T:IO &
0x102d00…1b0680 [0x189]: Pad {f00=0x0079, f01=0x0190, f02=» WK1,BUFBIT FIX BUFFER AVAILBLE? & P RF(NZ) EDWR10 ' ( ( P LDK WK1,IOERR2 NO BUFFER ALLOCATED ' > P ABL I:ERR ' j PEDWR10 EQU * ' | P XIF ' P LD WK2,STKB,TCA ' " P CM -2,WK2 SET INITIAL CR = 0 ' P ST A7,DSINX,A8 SAVE A7 ' ( P LD OP2A,ECBBA,A
0x102d00…1b0680 [0x18a]: Pad {f00=0x0079, f01=0x018e, f02=»O T:IO T:IO T:IO T:IO ' P* ( * P* PERFORM I/O REQUEST ( 4 P* AND SAVE CR ON STACK ( R P* ( r PT:EDIO EQU * ( | P ( P LKM ( P DATA 1 ( P ( ( P ANK A7,WAITBT SEE IF I/O WITH WAIT ( * P RF(Z) EDIORT NO CR-SETTING IF NO
0x102d00…1b0680 [0x18b]: Pad {f00=0x0079, f01=0x0190, f02=» P RTN PS ) 2 P EJECT T:IO T:IO T:IO T:IO T:IO ) P* ) J P* SAVE STACK ETC ) T P* ) n PT:SVE EQU * ) x P ) , P* COMPUTE NBR OF REQ. BUFFRS AND ALLOC. ) P ) P LDR* WK2,TCA GET PA ) P LDR A7,WK2 ) , P SU A7,STKE,TC
0x102d00…1b0680 [0x18c]: Pad {f00=0x0079, f01=0x018e, f02=» P * P * P LKM GET BUFFER * P DATA -7,T:BPCB * , T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO * D 2 P* SAVE PA,TCA AND AUX.STACK IN ALLOCATED AREA * > P* RESERVE TWO WORDS (2,A8 AND 6,A8) FOR PP AND ECB.ADDR
0x102d00…1b0680 [0x18d]: Pad {f00=0x0079, f01=0x0190, f02=» * " P LD WK2,STKE,TCA GET STACK END + PSAVSTK ADK WK3,2 + . $ P CWR* WK2,A8 COMP. WITH PA-VALUE + F P RF(E) RSTA8 32K SAFE + n P LDR* WK4,WK2 + P STR WK4,WK3 + P ADK WK2,2 + P RB SAVSTK + P + , PRSTA8 LDR OP1A,A8 SAVE SAVE AREA ADDRESS
0x102d00…1b0680 [0x18e]: Pad {f00=0x0079, f01=0x0190, f02=» EQU * + P STR WK2,TCA RESTORE PA , P , . P LD PP,2,A1 RESTORE PP , 6 ( P LDR A8,A1 SAVE ADDR FOR RELBUF REQ. , T P , P ADK A1,6 , P LDR* OP1E,A1 ECB ADDR. , P , P* RESTORE STACK , P , P LD WK3,STKE,TCA , PRSTSTK ADK A1,2
0x102d00…1b0680 [0x18f]: Pad {f00=0x0079, f01=0x0190, f02=»TK , P - P - PRELBUF LKM - P DATA -8,T:BPCB - , P LDR A8,OP1E ECB ADDR - D P RTN PS - b T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO - r P* - P* IOREQS - GET I/O STATUS - P* - ( P* OUT
0x102d00…1b0680 [0x190]: Pad {f00=0x0079, f01=0x0190, f02=»QS LDK WK1,2 GET STATUS AND SET CR - P LD WK2,ECBST,A8 . * P LDKL WK3,MASK2 . B P TM WK2,WK3 . Z P RF(NZ) IORRTN . n P LDK WK1,3 . P LDKL WK3,MASK3 . P TM WK2,WK3 . P RF(NZ) IORRTN . P LDK WK1,1 . P ANKL WK2,MASK1 . P RF(NZ)
0x102d00…1b0680 [0x191]: Pad {f00=0x0079, f01=0x018e, f02=»:IO T:IO T:IO T:IO T:IO T:IO . n P* / 6 F P* T:FDS0 - FETCH DATASET PARAM WHEN WAIT-BIT IS IN SEPARATE BYTE / @ P* / > P* T:FDSP - FETCH DATASET PARAM WHEN WAIT-BIT AND ECHO-BIT / 8 P* AND DATASET IDENTIFIER IS IN SAME BYTE
0x102d00…1b0680 [0x192]: Pad {f00=0x0079, f01=0x0190, f02=» $ P ADKL PP,1 STEP PROGRAM POINTER 0 0 P ANK A7,WAITBT+EBIT ISOLATE WAIT- AND E-BIT 0 , P RF GDSET 0 ` PT:FDSP EQU * 0 r P 0 P* GET W- AND E-BITS 0 P LCR A7,PP 0 P ANK A7,WAITBT+EBIT 0 P* GET DSET 0 PT:GDSP EQU * 0 PGDSET EQU *
0x102d00…1b0680 [0x193]: Pad {f00=0x0079, f01=0x0190, f02=»ISOLATE DSET INDEX 0 P LDR WK2,WK3 COPY FOR I:FML 1 ( P SUK WK3,16 SEE IF FORMAL PARAMETER 1 > & P ABL(N) I:FML GO FETCH ACTUAL DITO 1 j P 1 P ADKL PP,1 ADJUST PP 1 ( P* COMPUTE: WK3 := WK3 *20 + DSCB0 1 P 1 P LDR WK2,WK3 SAVE 1 P SLL
0x102d00…1b0680 [0x194]: Pad {f00=0x0079, f01=0x0190, f02=» 1 | P SUR A8,WK3 + DSCBN 2 P 2 $ P RTN PS 2 , T P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO 2 < P 2 P 2 ( P* GTWEDS GET WAIT,ECHO-BITS AND DSET 2 P 2 PGTWEDS EQU T:FDSP 2 P 2 P 2 P* 2 8
0x102d00…1b0680 [0x195]: Pad {f00=0x0079, f01=0x0190, f02=» " P ST OP2A,ECBBA,A8 STORE IN ECB 3 " P SUR OP2E,OP2A COMPUTE LENGTH 3 * P ST OP2E,ECBRL,A8 3 P P RTN PS 3 j P EJECT T:IO 3 z P* 3 & P* T:STCW - STORE ECB CONTROL WORD 3 P* 3 PT:STCW EQU * 3 " P CF PS,I:EVA2 GET <RECNO> ITEM 3 PST
0x102d00…1b0680 [0x196]: Pad {f00=0x0079, f01=0x0190, f02=»OAD BINARY RECNO 3 2 P ST WK1,ECBCW1,A8 STORE IN FIRST CONTROL WORD 4 , P CM ECBCW2,A8 CLEAR SECOND CONTROL WORD 4 N PRET RTN PS 4 ~ P IFT DISC=LARGE 4 P IFT PARM=TEST 4 P SUK OP2T,ARITHB DECIMAL ? 4 & P ABL(NZ) I:ERR2 NO; ILLEGAL TYPE! 4 P
0x102d00…1b0680 [0x197]: Pad {f00=0x0079, f01=0x0190, f02=»ND OF ITEM 4 | P SUK OP2E,4 MAX 7 DIGITS 5 P TNM OP2E,OP2A EQUAL SIGN? 5 2 P RF(NN) *+6 YES 5 T P CWR OP2A,OP2E A9<A5? 5 l P RF *+4 5 P CWR OP2E,OP2A A5<A9? 5 P RF(NL) *+4 NO! 5 & P LDR WK5,OP2A LESS THAN 7 DIGITS? 5 P LDR OP2A,WK4 5
0x102d00…1b0680 [0x198]: Pad {f00=0x007a, f01=0x0190, f02=»F(G) *+6 YES! 5 P LDK WK6,40 ADJUST POINTER 6 P RF STOR10 6 8 $ P CWK WK6,2 MOORE THAN 3 DIGITS? 6 J P RF(G) *+6 YES 6 r P LDK WK6,24 ADJUST POINTER 6 P RF STOR10 6 " P CWK WK6,3 MOORE THAN 5 DIGITS 6 P RF(G) *+8 6 P LDK WK6,8 ADJUST POIN
0x102d00…1b0680 [0x199]: Pad {f00=0x007a, f01=0x0190, f02=»ADDRESS 6 n ( P ADR WK6,WK1 INITIATE POINTER IN IT 7 ( P LDKL WK1,COTAB2 2:ND TABLE ADDRESS 7 < ( P ADR WK4,WK1 INITIATE POINTER IN IT 7 h $ P LCR WK1,WK5 GET FIRST CHARACTER 7 & P ORKL FLIP,/8000 SET INITIAL VALUE 7 $ PSTOR20 ANK WK1,15 ISOLATE DIGIT 7
0x102d00…1b0680 [0x19a]: Pad {f00=0x007a, f01=0x0190, f02=»1,WK3 TEST BIT IN DECIMAL DIGIT 7 P RF(NZ) *+8 BIT = 1 8 ( " P LDR* WK2,WK4 END OF COTAB2 ? 8 D & P RF(Z) STOR50 YES;DON'T INCREMENT 8 j P RF STOR40 8 " P LDR* WK2,WK6 GET COTAB1 ITEM 8 " P ADS WK2,ECBCW1,A8 ADD TO CW1 8 P RF(O) *+4 CARRY? 8
0x102d00…1b0680 [0x19b]: Pad {f00=0x007a, f01=0x0190, f02=»ST 8 $ P ABL(O) I:ERR2 ERROR IF OVERFLOW 9 P XIF 9 2 * PSTOR35 XRR WK2,WK2 CLEAR WORK REGISTER 9 > P LCR WK2,WK4 GET COTAB2 ITEM 9 l P CWK WK2,0 9 P RF(E) STOR50 ZERO! 9 " P ADS WK2,ECBCW2,A8 ADD TO CW2 9 P IFT PARM=TEST 9 P ABL(O) I:ERR2 9
0x102d00…1b0680 [0x19c]: Pad {f00=0x007a, f01=0x0190, f02=» MASK 9 P RB(NZ) STOR30 NEXT BIT : P LCR WK1,WK5 GET DIGIT : . $ P XRKL FLIP,/8000 FLIP FLIP/FLOP : L P RB(N) STOR20 : t P ADK WK5,1 NEXT CHARACTER : $ P CWR WK5,A9 END OF DECIMAL ITEM : P RF(NE) STOR60 NO : $ P ANKL FLIP,/7FFF RESTORE OPC
0x102d00…1b0680 [0x19d]: Pad {f00=0x007a, f01=0x0190, f02=» : r P* ; P* CONVERTING TABLE ; P* ; . PCOTAB1 EQU * ; 8 : P DATA /1200,/0900,/0480,/4240,/3500,/1A80,/0D40,/06A0 ; L : P DATA /3880,/1C40,/4E20,/2710,/1F40,/0FA0,/07D0,/03E8 ; : P DATA /0320,/0190,/00C8,/0064,/0050,/0028,/0014,/000A ; " P DAT
0x102d00…1b0680 [0x19e]: Pad {f00=0x007a, f01=0x018e, f02=»:IO ; P < P* < : P* T:GTCW - TRANSFER ECB CONTROL WORD(S) TO DATA ITEM < P* < P < f P* LOCAL REG.S: < n P < PDISP EQU A7 DISPLACEMENT < PBCD EQU DISP DIGIT INDICATOR < PDSCB EQU A8 DATASET CB BASE < PT:GTCW EQU * < P
0x102d00…1b0680 [0x19f]: Pad {f00=0x007a, f01=0x0190, f02=» < b P STR WK1,OP2A STORE FOR USER = $ P RF DCW150 RETURN TO INTERPRETER = , P EJECT T:GTCW = T P* = l P* DECIMAL CONTROL WORD = v P* = PGTDCW EQU * = P IFT PARM=TEST = " P SUK OP2T,ARITHB DECIMAL ITEM? = P ABL(NZ) I:ERR2 NO ! =
0x102d00…1b0680 [0x1a0]: Pad {f00=0x007a, f01=0x018e, f02=»HT BYTE = | $ P LDR OP1A,OP2A SAVE ITEM ADDRESS > $ P ORKL FLIP,ZEROBT SET FLIP/FLOP > 8 ( P LDKL DISP,-1 INITIATE DISPLACEMENT > ` $ P LDK A6,X'F0' LOAD INITIAL VALUE > , PDCW10 ADK DISP,1 INCREMENT DISPLACEMENT > ( P LDR WK4,DISP INCREMENT DISPLACEMENT >
0x102d00…1b0680 [0x1a1]: Pad {f00=0x007a, f01=0x0190, f02=» P CWK WK4,EOT END OF TABLE? ? P RF(E) DCW100 YES! ? & $ P LDR WK3,DISP LOAD DISPLACEMENT ? @ " P ANKL WK3,NOTSGN MASK OUT SIGN ? h ( P ADR WK3,WK3 MAKE WORD DISPLACEMENT ? , P LD WK3,CVTAB1,WK3 GET VALUE FROM CVTAB1 ? * PDCW20 SUR WK2,WK4 SUBTRACT TABLE
0x102d00…1b0680 [0x1a2]: Pad {f00=0x007a, f01=0x0190, f02=» TO BORROW! ? r & P ADK WK6,1 ADD 1 TO DECIMAL DIGIT @ P ORKL BCD,ZEROBT @ > P RB DCW20 LOOP @ V " PDCW40 ADR WK1,WK3 RESTORE WK1 @ l P SUK WK2,1 BORROW 32 K @ " P RF(N) *+8 NOTHING TO BORROW! @ $ P ADKL WK1,/8000 ADD 32 K TO WK1 @ " P RB DCW30 PE
0x102d00…1b0680 [0x1a3]: Pad {f00=0x007a, f01=0x0190, f02=»NK WK3,15 ISOLATE RIGHTMOST DIGIT @ P RF(P) DCW60 NOT ZERO! A * & P LDR WK3,BCD DECIMAL VALUE >0 YET? A H P RF(N) *+4 YES A r $ P ADK WK6,X'0F' INSERT SPACE('F') A * PDCW60 XRKL FLIP,ZEROBT FLIP FLIP/FLOP A P RF(NN) *+6 A , P SLA WK6,4 SHIFT DIGIT T
0x102d00…1b0680 [0x1a4]: Pad {f00=0x007a, f01=0x0190, f02=»DDRESS A r ( P CWR OP2A,OP2E END OF DECIMAL ITEM? B P RF(E) DCW100 YES B : $ P LDK WK6,0 RESET DEC. VAL. ACC. B T P RB DCW10 NEXT B | 2 PDCW100 LDR WK3,OP1A LOAD DECIMAL ITEM ADDRESS B P CWR OP2E,OP2A 7 DIGITS? B P RF(E) DCW140 B P LDK WK2,X'F
0x102d00…1b0680 [0x1a5]: Pad {f00=0x007a, f01=0x0190, f02=»POINTER B t P LCR WK1,OP2A GET DIGIT C P SCR WK1,WK4 STORE IT C 0 $ P CWR OP2A,WK3 ALL DIGITS MOVED? C N P RB(NE) DCW110 NO C v , PDCW120 CWR WK4,WK3 DECIMAL ITEM FILLED? C P RF(E) DCW140 YES! C $ P SUK WK4,1 DECREMENT TO-POINTER C P SCR WK2
0x102d00…1b0680 [0x1a6]: Pad {f00=0x007a, f01=0x0190, f02=» P SCR WK1,WK3 STORE IT BACK D " P LDR WK1,BCD ONLY BCD SPACES? D & P RF(N) DCW150 NO! D L & P LC WK1,-1,OP2E GET RIGHTMOST BYTE D f 2 P SUK WK1,X'0F' CHANGE RIGHTMOST DIGIT TO ZERO D " P SC WK1,-1,OP2E STORE IT BACK D ( PDCW150 ANKL FLIP,/7FFF RESTORE
0x102d00…1b0680 [0x1a7]: Pad {f00=0x007a, f01=0x4094, f02=»/03E8,/0064,/000A,/0001 D r > PCVTAB2 DATA /001E,/0003,/0000,/0000,/0000,/0000,/0000,EOT E PEOT EQU * E b P E t P E | P END E @ E WK1,X'0F' CHANGE RIGHTMOST DIGIT TO ZERO D " P SC WK1,-1,OP2E STORE IT BACK D ( PDCW150 ANKL FLIP,/7FFF RESTORE
0x102d00…1b0680 [0x1a8]: Pad {f00=0x007a, f01=0x2008, f02=» F TM WK2,WK3 RF(NZ) IOREQE LDK WK1,3 2 LDKL WK3,MASK11 D TM WK2,WK3 RF(NZ) IOREQE p LDK WK1,1 ANKL WK2,MASK10 RF(NZ) IOREQE LDK WK1,0 IOREQE ECR WK1,WK1 STR WK1,TCA RTN
0x102d00…1b0680 [0x1a9]: Pad {f00=0x007a, f01=0x40cc, f02=» I @ , % ( & . , ( # T : _ ( / $ I:ERR / T @ / d 4 0 IT UTx a kUb oQ^ {TR P T / ~ / @ / I:EVA0 . , ( ? #0 T , #0T
0x102d00…1b0680 [0x1aa]: Pad {f00=0x007a, f01=0x0190, f02=» < F IDENT T:DMR UPD 78-01-11/ST & " T:RREA T:RRE1 T:RWRI T:RWR1K D T:RREA n T:FDSP T:RRE1 I:EVA0 , ( @ #0 T &R STORCW I:ERR
0x102d00…1b0680 [0x1ab]: Pad {f00=0x007a, f01=0x40a4, f02=»/ "!@P t T:IO1 , ( S #0T : W $ m@ T X TP RP A X _T iW j p @ I:EVA0 , ( @ #0 T &R STORCW I:ERR
0x102d00…1b0680 [0x1ac]: Pad {f00=0x007a, f01=0x40a0, f02=» 2 F IDENT T:SWI VER=T,REL=2.4,DATE=77-12-07 2 T:SWITK 2 : T:SWITK 2 L I:RT1 2 ` ( 2 p 2 @ 2 PT:SWIT EQU * P LKM P DATA 0 P ABL I:RT1 P END @ EL 77-06-16 #2.2
0x102d00…1b0680 [0x1ad]: Pad {f00=0x007a, f01=0x4114, f02=» 2 F IDENT T:TEI VER=T,REL=2.4,DATE=77-12-07 3 T:TESTK T:ABOR 3 : T:TESTK 3 T T:FDSP 3 h I:RT1 3 z T:ABOR 3 * & @ "R V I 3 ( _ 3 R 3 * 3
0x102d00…1b0680 [0x1ae]: Pad {f00=0x007a, f01=0x415c, f02=» 2 F IDENT T:CLO VER=T,REL=2.4,DATE=77-12-07 4 T:SETTK T:GETT 4 : T:SETTK 4 T I:EVA0 4 h I:RT1 4 z T:GETT 4 , ( @H ( 4 ( _ 4 # R #0T : 4 I:ERR
0x102d00…1b0680 [0x1af]: Pad {f00=0x007a, f01=0x40e8, f02=» 2 F IDENT T:DEL VER=T,REL=2.4,DATE=77-12-07 5 T:DELAK 5 : T:DELAK 5 L I:EVA0 5 ` I:ERR 5 r I:RT1 5 , ( @ #0 P ( 5 P 5 5 @ 5 RY * P LDK WK1,2 NOT BINARY; S
0x102d00…1b0680 [0x1b0]: Pad {f00=0x007a, f01=0x40f0, f02=» 2 F IDENT T:TSTC VER=P,REL=3.0,DATE=78-03-03 T:TSTCK : T:TSTCK L , ( N " 9b! N :c 2" ` T:RTES $ ! H @ ' . 6 @ $ @
0x102d00…1b0680 [0x1b1]: Pad {f00=0x007a, f01=0x000e, f02=» X ` h p x
0x102d00…1b0680 [0x1b2]: Pad {f00=0x007a, f01=0x018e, f02=» " P IDENT I:NTP UPD 77-11-22/UKF P REL 78-04-01 #3.1 * P REL 78-03-03 #3.0 F P REL 77-12-07 #2.4 b P REL 77-12-07 #2.4 ~ P REL 77-12-07 #2.4 P UPD 77-06-02/UKF P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P
0x102d00…1b0680 [0x1b3]: Pad {f00=0x007a, f01=0x0190, f02=» z P UPD 77-03-24/ULJO P REL 77-03-16 #2.1 $ P UPD 77-03-08/ULJO @ P UPD 77-01-28/ULJO P REL 76-12-13 #1.3 x P UPD 76-11-18/POEG P UPD 76-11-17/POEG P REL 76-11-15 #1.2 P UPD 76-11-10/POEG P REL
0x102d00…1b0680 [0x1b4]: Pad {f00=0x007a, f01=0x0190, f02=»OL WORD x P* 0 P* TERMINAL ORIENTED TRANSACTION INTERPRETER P* N " P ENTRY I:NTP SINGLE-USER ENTRY X " P ENTRY I:NTPA ACTIVATION ENTRY ~ P ENTRY I:NTPR RESTART ENTRY 8 P ENTRY I:RT0 RETURN POINT # 0 (USED BY SUBROUTINES) P ENTRY
0x102d00…1b0680 [0x1b5]: Pad {f00=0x007a, f01=0x0190, f02=»MP P EXTRN I:MUL P EXTRN I:DIV P EXTRN I:CON 2 P EXTRN I:EDT F P EXTRN I:CPY Z P EXTRN I:XCP n P EXTRN I:EDS EDIT SUBSTRING P EXTRN I:INS P EXTRN I:MCH P EXTRN I:DLT P* P EXTRN I:EVA0 P EXTRN I
0x102d00…1b0680 [0x1b6]: Pad {f00=0x007a, f01=0x0190, f02=»P I:NTP I:NTP V P P* & P* CHECKOUT EXTERNALS: 0 P* N * P EXTRN I:CHK CHECKOUT SUPERVISOR ENTRY X P EXTRN I:TRA0 P EXTRN I:PRT P EXTRN I:TRB P EXTRN I:TRA P* 0 P EXTRN I:ERR ERROR MESSAGE PRINTOUT ROUT
0x102d00…1b0680 [0x1b7]: Pad {f00=0x007a, f01=0x018e, f02=» BASE n & P EXTRN T:BAT BRANCH ADDRESS TABLE $ P EXTRN T:CAT CALL " " 8 $ P EXTRN T:PAT PERFORM " " ` P* P* VERSION SELECTOR: P* PV EQU 1 T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:N
0x102d00…1b0680 [0x1b8]: Pad {f00=0x007b, f01=0x0190, f02=» PPARM EQU TEST P* ( P* TEMPORARY INTERPRETER REGISTERS: ( P* T PWK1 EQU A1 WORK REGISTER ^ PWK2 EQU A2 WORK REGISTER ~ PWK3 EQU A3 WORK REGISTER PWK4 EQU A4 OPCODE REGISTER , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER
0x102d00…1b0680 [0x1b9]: Pad {f00=0x007b, f01=0x0190, f02=»OPERAND 2 END * POP2T EQU A3 OPERAND 2 TYPE INDICATION P* D POPCD EQU A11 OPCODE N P* j P* NON-TEMPORARY REGISTERS: t P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS P*
0x102d00…1b0680 [0x1ba]: Pad {f00=0x007b, f01=0x0190, f02=»INSTR ADDR x T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP P* j P* MAIN CODE TABLE: t P* PMNTAB EQU * P* & P DATA ARITHC CODE 0 - ARITHMETICS , P DATA ARITHC CODE 1 - COMPARE AND BRANCH
0x102d00…1b0680 [0x1bb]: Pad {f00=0x007b, f01=0x0190, f02=»- LOGIC INSTRUCTIONS ~ & P DATA SBH CODE 5 - SHORT BRANCHES ( P DATA STRH CODE 6 - STRING HANDLING F P* r , P* ARITHMETIC INSTRUCTIONS BRANCH TABLE | P* PATAB EQU * P DATA I:MOV CODE 00 - MOVE P DATA I:ADD 01 - ADD
0x102d00…1b0680 [0x1bc]: Pad {f00=0x007b, f01=0x0190, f02=» P DATA I:DIV 06 - DVR P IFT PARM=TEST & * P DATA NOTIMP 07 - NOT IMPLEMENTED < P XIF j T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP v P* " P* BRANCH INSTRUCTIONS TABLE: P* P D
0x102d00…1b0680 [0x1bd]: Pad {f00=0x007b, f01=0x0190, f02=» P XIF * P DATA IBPH 2 - INDEXED BRANCH , P DATA IBPH 3 - INDEXED PERFORM > " P DATA RETH 4 - RETURN n ( P DATA I:RT1 5 - NOOPERATION $ P DATA IBPH 6 - S F I B $ P DATA IBPH 7 - S B I B
0x102d00…1b0680 [0x1be]: Pad {f00=0x007b, f01=0x0190, f02=»I:CPY 62-63 P DATA I:INS 64-65 P DATA I:DLT 66-67 : P DATA I:MCH 68-69 Z P DATA I:XCP 6A-6B z P DATA I:EDS 6C-6D P IFT PARM=TEST P DATA NOTIMP P XIF T P EJECT I:NTP I:NTP
0x102d00…1b0680 [0x1bf]: Pad {f00=0x007b, f01=0x0190, f02=»DE 40 P DATA SET P DATA ITEST P DATA TST 43 4 P IFT PARM=TEST P P DATA NOTIMP f P DATA NOTIMP z P DATA NOTIMP P DATA NOTIMP PTABA RES 0 P XIF P IFT PARM=NOTEST PTABA EQU *+8 P XIF &
0x102d00…1b0680 [0x1c0]: Pad {f00=0x007b, f01=0x0190, f02=»ESET TO LEVEL 0 TRACE: P XIF 0 P IFT PARM=NOTEST DUMMY DEF OF ENTRY 'TRACE' * PTRACE EQU -4 ^ P XIF r PI:TRC EQU TRACE ~ T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP P* $ P* INTERPRETER ACT
0x102d00…1b0680 [0x1c1]: Pad {f00=0x007b, f01=0x0190, f02=»PASSED AS PARAMETER P* 6 P* SEARCH TCA ACCORDING TO TERMINAL IDENTITY CODE: & P* ` & P LD WK3,T:ATAB GET T:ATAB ADDRESS j $ P LDR* WK1,WK3 GET T:ATAB LENGTH P ( PSTCA ADK WK3,2 NEXT ENTRY IN T:ATAB $ P LDR* TCA,WK3 GET T:AXXX A
0x102d00…1b0680 [0x1c2]: Pad {f00=0x007b, f01=0x0190, f02=» P ( PTRAP MUR P TRAP OUT IF TID IN ERROR P* 8 & P* TCA FOUND; LOAD STACK POINTERS: B P* l PTCAFND RES 0 v & P LD WK1,STKE,TCA FETCH STACK BASE P STR WK1,TCA INITIALIZE P.A. P LD PS,STKB,TCA LOAD P.S. P CF PS,I:NTPR GO
0x102d00…1b0680 [0x1c3]: Pad {f00=0x007b, f01=0x0190, f02=»TART-UP POINT: P* " PI:NTP EQU * V/0 STARTUP POINT & P IFT PARM=TEST PRINT TRACE HEADER F " P LD WK1,TRACE GET TRACE LEVEL p P RF(N) *+6 NO TRACE ON P CF PS,I:PRT P XIF T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP
0x102d00…1b0680 [0x1c4]: Pad {f00=0x007b, f01=0x0190, f02=»ER RESTART POINT * $ P* * $ P******************************* D P l PI:NTPR RES 0 t P @ PMNLOOP RES 0 MAIN LOOP; ENTERED FOR EACH PSEUDO INSTRUCTION P 2 P ST PP,CIA,TCA SAVE INSTRUCTION ADDR FOR TRACE
0x102d00…1b0680 [0x1c5]: Pad {f00=0x007b, f01=0x0190, f02=»PCD,PP GET OPCODE & P ADKL PP,1 ADJUST PROGRAM POINTER P IFT V=1 D $ P CWK OPCD,X'80' CHECK IF PERFORM T P RF(NL) PERFH | P XIF P IFT PARM=TEST , P CWK OPCD,X'70' TEST FOR ILLEGAL OPCODES P RF(NL) NOTIMP P XIF " PCLAS
0x102d00…1b0680 [0x1c6]: Pad {f00=0x007b, f01=0x0190, f02=» I:NTP I:NTP T P* $ P* BRANCH TO MAIN CODE HANDLER: & P* N P ABI MNTAB,WK1 X P* n 8 P* COMMON PREPROCESSING FOR ARITHMETIC INSTRUCTIONS: x P* PARITHC EQU * P 6 P CF PS,I:EVA0 GET OPERAND 1 DESCRIPTOR AND ADDRE
0x102d00…1b0680 [0x1c7]: Pad {f00=0x007b, f01=0x0190, f02=» & P CWK OPCD,15 SEE IF CB INSTRUCTION P RF(G) ARITHE . P* D . P* MUST BE ADD,SUB,MOV,CMP,MUL OR DIV(R): N P* PARITHD CFI PS,ATAB,OPCD P RF I:RT2 P* P* & P* COMPARE AND BRANCH PROCESSING: P* PARITHE
0x102d00…1b0680 [0x1c8]: Pad {f00=0x007b, f01=0x0190, f02=»BRANCH PROCESSING T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP P* r PI:RT2 EQU * | P IFT PARM=TEST P LDK WK1,2 LEVEL & P CW WK1,TRACE SEE IF TRACE LEVEL=2 * P RB(G) MNLOOP DON'T TRACE IF LEVEL
0x102d00…1b0680 [0x1c9]: Pad {f00=0x007b, f01=0x0190, f02=» PS j $ P LD WK1,TRACE CHECK TRACE LEVEL P RB(NP) MNLOOP 4 P ABL I:TRB J P XIF PI:RT0 EQU * h . P IFT PARM=TEST PRINTOUT TRACE IF LEVEL OK | P LD WK1,TRACE P RB(NP) MNLOOP " P IFT PARM=TEST PRINTOUT TRACE P ABL I:TRA
0x102d00…1b0680 [0x1ca]: Pad {f00=0x007b, f01=0x0190, f02=»R ABL I:ERR P XIF P $ P IFT PARM=NOTEST TRAP ILLE INST ( PNOTIMP EQU TRAP P P XIF h T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP t P* P* SHORT BRANCH HANDLING: P* PSBH EQU
0x102d00…1b0680 [0x1cb]: Pad {f00=0x007b, f01=0x0190, f02=» DISPLACEMENT: | P ADKL PP,1 STEP P.P. * P LDK WK3,X'08' TEST BACKWARD INDICATOR 2 P TM WK2,WK3 ` P RF(Z) SBH20 t P IFT COMP=852 ( P NGR WK1,WK1 COMPLEMENT DISPLACEMENT P XIF P IFT COMP=855 ( P C1R WK1,WK1 COMPLEMENT DISPLA
0x102d00…1b0680 [0x1cc]: Pad {f00=0x007b, f01=0x0190, f02=» EVALUATE CONDITION P* P* TEST AND BRANCH HANDLING: & P* J & PTBH ADR WK2,WK2 PREPARE CONDITION T P LDK WK1,0 CLEAR WK1 ~ P RB SBH10 T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP P*
0x102d00…1b0680 [0x1cd]: Pad {f00=0x007b, f01=0x018e, f02=» PARM=TEST P LDK WK1,1 P TM PP,WK1 $ P RF(NZ) ERR3 ODD P.P. ERROR 6 P XIF Z P IFT V=0 f P ADKL PP,1 SET TO SKIP OVER v P XIF P IFT V=1 & P LCR WK3,PP GET BRANCH TABLE INDEX P ADKL PP,1 STEP P.P. P ANK WK3,255
0x102d00…1b0680 [0x1ce]: Pad {f00=0x007b, f01=0x0190, f02=» P XIF P IFT PARM=TEST P RF(Z) ERR4 & P XIF : , P LDR WK2,OPCD SET CND ACCORDING TO OPCD F T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP v P* P* " P* EVALUATE BRANCH CONDITION: P*
0x102d00…1b0680 [0x1cf]: Pad {f00=0x007b, f01=0x0190, f02=»STKB,TCA GET STACK BASE " P LC WK1,-2,WK1 GET CR CONTENTS P ANK WK1,3 ISOLATE CR BITS: F ( P XRR WK1,WK2 TEST AGAINST CONDITION j ( P SUK WK1,3 0,1,2 ARE BRANCH VALUES: P RF(L) LBH20 , P SUK WK1,7-3 4,5,6 ARE NOBRANCH VALUES: P RF(
0x102d00…1b0680 [0x1d0]: Pad {f00=0x007b, f01=0x0190, f02=»ESS OF BRANCH ^ P IFT PARM=TEST P RF(Z) ERR4 MISSING ADDRESS , P XIF P P* . PLBH30 RB I:RT1 GO PROCESS NEXT INSTRUCTION f T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP P* 4 P* INDEXED BRANC
0x102d00…1b0680 [0x1d1]: Pad {f00=0x007b, f01=0x018e, f02=»H HANDLE LONG BRANCHES P ADR WK1,WK1 0 P ABI TAB3,WK1 BRANCH TO INSTRUCTION HANDLERS 2 P* f P* PERFORM HANDLING: p P* PPERFH EQU * P IFT V=0 $ P LDR* WK3,PP GET BRANCH ADDRESS P IFT PARM=TEST CHECK PP EVEN P LDK
0x102d00…1b0680 [0x1d2]: Pad {f00=0x007b, f01=0x0190, f02=» P XIF P IFT V=1 P LDR WK1,OPCD FORM INDEX P @ 2 P* COMMON PATH FOR PERF AND PERFI OPERATIONS: H P ~ , PPERFH1 ANK WK1,127 MASK OUT PROCEDURE # P ADR WK1,WK1 FORM WORD INDEX P IFT PARM=TEST P RF(Z) ERR4 P XIF
0x102d00…1b0680 [0x1d3]: Pad {f00=0x007b, f01=0x018e, f02=»1,TCA FETCH AUX STACK POINTER , P STR PP,WK1 PUSH RETURN ADDRESS ON STACK ! & $ P ADK WK1,2 UPDATE STACK POINTER ! V $ P STR WK1,TCA SAVE STACK POINTER ! ~ P* ! P* JUMP TO SUBROUTINE: ! P* ! P RB LBH20 ! T P EJECT I:NTP I:NTP I:NTP
0x102d00…1b0680 [0x1d4]: Pad {f00=0x007b, f01=0x0190, f02=» ! P IFT V=0 " ( P LDR* WK3,PP GET SUBROUTINE ADDRESS " P IFT PARM=TEST " D $ P RF(Z) ERR4 NONEXISTENT ROUTINE " Z P LDK WK1,1 " P TM PP,WK1 " P RF(NZ) ERR3 ODD P.P. ERROR " P XIF " P IFT V=0 " & P ADKL PP,2 EVALUATE RETURN ADDRESS "
0x102d00…1b0680 [0x1d5]: Pad {f00=0x007b, f01=0x0190, f02=» ANK WK3,255 " P ADR WK3,WK3 MAKE WORD INDEX # P IFF PARM=TEST # 8 P ABI T:CAT,WK3 # N P XIF # d P IFT V=1 # p P IFT PARM=TEST # P RF(Z) ERR4 # $ P LD WK3,T:CAT,WK3 FETCH ADDRESS # P RF(Z) ERR4 VALIDITY TEST # $ P ABR WK3 TRANSFER TO S
0x102d00…1b0680 [0x1d6]: Pad {f00=0x007b, f01=0x018e, f02=»DEXED BRANCH/PERFORM HANDLER: # P* $ & . PIBPH CF PS,I:EVA0 GET BINARY INDEX ADDRESS $ 0 P LCR WK2,PP GET LIST LENGTH $ b P ANK WK2,255 $ P IFT V=0 $ P ADR WK2,WK2 $ P XIF $ ( P ADR WK2,PP EVALUATE RETURN ADDRESS $ $ P ADK WK2,1 "
0x102d00…1b0680 [0x1d7]: Pad {f00=0x007b, f01=0x0190, f02=» P TM WK2,WK1 % P RF(NZ) ERR3 ODD P.P. ERROR % P XIF % < P* % H " P LDR* WK1,OP2A GET INDEX VALUE % R & P RB(NP) LBH20 IF .LE. 0 NO BRANCH % x P IFT V=0 % P ADR WK1,WK1 FORM WD INDEX % P SUK WK1,1 % P XIF % 4 P ADR WK1,PP COMPUTE ADDR
0x102d00…1b0680 [0x1d8]: Pad {f00=0x007c, f01=0x0190, f02=» P RF *+4 & & P CWR WK2,WK1 WHEN NOT EQUAL SIGNS & * P RB(NL) LBH20 IF .GT. LIMIT NO BRANCH & > P IFT V=0 & l ( P LDR* WK3,WK1 GET EFFECTIVE ADDRESS & | P XIF & P IFT V=1 & P LCR WK1,WK1 GET TABLE INDEX & P ANK WK1,255 & P & $ P* RES
0x102d00…1b0680 [0x1d9]: Pad {f00=0x007c, f01=0x0190, f02=»FIB YES - FORWARD ! & P RF(P) SBIB YES - BACKWARD ! ' P ' @ P ANK WK4,1 TEST LSN ' H P RF(NZ) IPH IF 1 THEN PERFI ' d P ADR WK1,WK1 WORD INDEX ' P IFT PARM=TEST ' P RF(Z) ERR4 ' P XIF ' P IFT V=1 ' $ P LD WK3,T:BAT,WK1 FETCH AD
0x102d00…1b0680 [0x1da]: Pad {f00=0x007c, f01=0x0190, f02=»ERFI HANDLING: ' P ( PIPH RES 0 ( , P LDR PP,WK2 ENTER RETURN ADDRESS IN P.P. ( 0 P* ( ` & P RB PERFH1 PROCESS PERFORM ACTION ( j P* ( P* ( P* SHORT INDEXED BRANCH: ( P* ( P IFT COMP=855 ( ( PSBIB C1R WK1,WK1 NEGATE DISPLACEME
0x102d00…1b0680 [0x1db]: Pad {f00=0x007c, f01=0x0190, f02=» WK3,WK1 ADD DISPLACEMENT ( P ) " P RB LBH20 GO BRANCHING ) * P ) H P ) P P IFT PARM=TEST ) X P* ) n P* ERROR EXITS: ) x P* ) * PERR3 LDK WK1,3 ODD WORD ADDRESS ERROR ) P RB ERROR ) ( PERR4 LDK WK1,4 MISSING ADDRESS ERROR ) P RB
0x102d00…1b0680 [0x1dc]: Pad {f00=0x007c, f01=0x0190, f02=» EXIT, NOOP, TRAP HANDLERS: ) P* * $ P* * . P* EXIT HANDLER: * 8 P* * P PEXITH EQU * * Z & P IFT PARM=TEST PRINT OUT TRACE$$ * n P* CF PS,I:PRT * P XIF * P* LKM SUPERVISOR CALL * P* DATA 3 * P* * P* RETURN HANDLER: *
0x102d00…1b0680 [0x1dd]: Pad {f00=0x007c, f01=0x0190, f02=»55 * & P ADR* PP,WK1 ADD TO RETURN ADDRESS + P* + 4 . PRETH1 RB LBH30 GO PROCESS NEXT INSTRUCTION + > P* + p P* EXEQUTE HANDLER: + z P* + ( PXQH ABR PP EXECUTE NEXT INSTRUCTION + P* + T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP
0x102d00…1b0680 [0x1de]: Pad {f00=0x007c, f01=0x0190, f02=»AB-/60,OPCD INDEXED BRANCH TO HANDLER + P IFT PARM=NOTEST , . P RB I:RT2 , F P XIF , X P IFT PARM=TEST , d P ABL I:RT2 , z P XIF , T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP , P* , " P* LOGICAL INSTR
0x102d00…1b0680 [0x1df]: Pad {f00=0x007c, f01=0x0190, f02=» * P ANR* OP2T,OP2A TEST OLD BOOLEAN VALUE - T P EJECT I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP I:NTP - 2 P* - P* SAVE CONDITION REGISTER: - P* - P CFR WK4,P - P LDR WK2,OPCD - P ADR WK2,WK2 - P SUK WK2,X'4
0x102d00…1b0680 [0x1e0]: Pad {f00=0x007c, f01=0x4144, f02=» P XIF . 2 P ABI TABA,WK2 BRANCH TO INSTRUCTION PROCESSORS . P . F PSET ORRS A5,OP2A SET BIT . N P RF SCR0 . n P . ~ ( PCLEAR C1R A5,A5 COMPLEMENT BIT MASK . P ANRS A5,OP2A CLEAR BIT . P RF SCR0 . P . PITEST XRRS A5,OP2A . PTST EQ
0x102d00…1b0680 [0x1e1]: Pad {f00=0x007c, f01=0x2008, f02=» / A5,A5 COMPLEMENT BIT MASK P ANRS A5,WK1 CLEAR BIT * P RF SCR0 H P* X PITEST XRRS A5,WK1 b PTST EQU * | PSCR0 RB LBH30 P* P END @ DATA CLEAR P DATA TST P DATA ITEST P DATA TBH P
0x102d00…1b0680 [0x1e2]: Pad {f00=0x007c, f01=0x40e4, f02=» 2 F IDENT T:CLO VER=P,REL=3.0,DATE=78-03-03 H T:SETTK T:GETT H : T:SETTK H T I:EVA0 H h I:RT1 H z T:GETT H , ( A ( ( _ H H @ H _ G R G * G
0x102d00…1b0680 [0x1e3]: Pad {f00=0x007c, f01=0x40ba, f02=» 2 F IDENT T:DEL VER=P,REL=3.0,DATE=78-03-03 I T:DELAK I : T:DELAK I L I:EVA0 I ` I:RT1 I r A ( I I @ I ( _ H H @ H _ G R G * G
0x102d00…1b0680 [0x1e4]: Pad {f00=0x007c, f01=0x40c0, f02=» 2 F IDENT T:MSK0 VER=P,REL=3.0,DATE=78-03-03 J MASKY J : MASKY J J I:EVA0 J I:RT1 J n ( $ D V J ~ J @ J ( _ H H @ H T,ARITHB+NUMBIT STRING? P RF(NZ
0x102d00…1b0680 [0x1e5]: Pad {f00=0x007c, f01=0x4182, f02=» 2 F IDENT T:SCD VER=P,REL=3.0,DATE=78-03-03 K T:ACTVK T:PAUS T:RSTR K : T:ACTVK K T:BAT K p I:NTPA K T:RSTR K , ( 2 ( W K I:EVA0 K T:PAUS 4 K I:RT1 K ,
0x102d00…1b0680 [0x1e6]: Pad {f00=0x007c, f01=0x4178, f02=» 2 F IDENT T:USE VER=P,REL=3.0,DATE=78-03-03 L T:USE L : T:USE L J T:CAT L I:EVA0 L l , ( 2 ! D 2 ' L ~ , ( & D Q $ R P D $ P D L , ( = _ Q ?! V D % L
0x102d00…1b0680 [0x1e7]: Pad {f00=0x007c, f01=0x408a, f02=» 2 F IDENT T:EXIT VER=P,REL=3.0,DATE=78-03-03 M T:EXITK M : T:EXITK M L ( M ` M t@ M ! D 2 ' L ~ , ( & D Q $ R P D $ P D L , ( = _ Q ?! V D % L
0x102d00…1b0680 [0x1e8]: Pad {f00=0x007c, f01=0x0190, f02=» 2 F IDENT T:GTCW VER=P,REL=3.0,DATE=78-03-03 N GETCW N : T:FDSP N J GETCW N I:EVA0 N n , ( H #0 T B 'W B B N , ( A A A A @ N , ( = P @ P @ L R R N
0x102d00…1b0680 [0x1e9]: Pad {f00=0x007c, f01=0x000a, f02=»
0x102d00…1b0680 [0x1ea]: Pad {f00=0x007c, f01=0x0190, f02=» & P IDENT I:EVA UPD 78-02-28/POEG P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P UPD 78-02-28/POEG f P UPD 77-02-27/POEG P REL 77-12-07 #2.4 P UPD 77-09-01/UKF P REL 77-09-07 #2.3 P UPD 76-11-24/POEG
0x102d00…1b0680 [0x1eb]: Pad {f00=0x007c, f01=0x0190, f02=».2 ~ P UPD 76-11-12/POEG P UPD 76-11-11/CWA & P REL 76-10-07 #1.1 B P EXT 76-10-05/CWA ^ P EXT 76-07-22/CWA z P UPD 76-02-11 #1 P REL #1,76-06-15 P 2 P******************************************** 0 P
0x102d00…1b0680 [0x1ec]: Pad {f00=0x007c, f01=0x0190, f02=» * r 2 P******************************************** P L P ENTRY I:EVA0 T P ENTRY I:EVA1 j P ENTRY I:EVA2 P ENTRY I:EVA3 P ENTRY I:EVA5 P ENTRY I:EVA6 P ENTRY I:EVB P ENTRY I:EVI P ENTRY I:F
0x102d00…1b0680 [0x1ed]: Pad {f00=0x007c, f01=0x0190, f02=»L TABLE v " P EXTRN I:ERR9 STACK OVFL ERROR & P EXTRN I:ERRA INDEX OVERFLOW ERROR 6 " P EXTRN I:ERRB INDEX TYPE ERROR ` P* $ P* CONDITIONAL ASSEMBLY FLAGS: P* PCOMP EQU 852 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST
0x102d00…1b0680 [0x1ee]: Pad {f00=0x007c, f01=0x0190, f02=» @ P* ( P* TEMPORARY INTERPRETER REGISTERS: P* > PWK1 EQU A1 WORK REGISTER H PWK2 EQU A2 WORK REGISTER h , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 LENGTH ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR " POP
0x102d00…1b0680 [0x1ef]: Pad {f00=0x007c, f01=0x018e, f02=»QU A11 OPCODE P* P* MULTIPLICATION REGISTERS: P* D PMD EQU OP2A N PMR EQU OP2T b PMC EQU WK2 v PRES: EQU A1 P* P* NON-TEMPORARY REGISTERS: P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POI
0x102d00…1b0680 [0x1f0]: Pad {f00=0x007c, f01=0x0190, f02=» PT:DAD EQU -8 $ PSYSVAR EQU /0C CODE FOR :FMTITEM T P EJECT I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA D P* B P* I:EVA2 - EVALUATE OPERAND-2 (VARIABLE OR LITERAL CONSTANT) P* PI:EVA2 LDK OP2T,1 MA
0x102d00…1b0680 [0x1f1]: Pad {f00=0x007c, f01=0x0190, f02=»:EVA I:EVA I:EVA I:EVA I:EVA I:EVA t P* < * P* I:EVA1 - EVALUATE LITERAL CONSTANT F P* t 4 PI:EVA1 LDKL WK1,T:LIT GET LIT POOL POINTER BASE ~ P RF EVAL02 COMMON PATH P P P* 2 P* I:EVA3 - EVALUATE PICTURE
0x102d00…1b0680 [0x1f2]: Pad {f00=0x007c, f01=0x0190, f02=» F P* I:EVA6 - EVALUATEVARIABLE OR FORMAT LILIERAADEPENDING ON OPCD P* R " PI:EVA6 LDK OP2T,1 GET BIT MASK " P TM OPCD,OP2T TEST LITERAL BIT P RF(Z) I:EVA0 IF VARIABLE P P* , P* I:EVA5 - EVALUATE FORMAT LIST ADDRESS
0x102d00…1b0680 [0x1f3]: Pad {f00=0x007c, f01=0x0190, f02=»AL02 LDK WK2,1 P ANR* WK2,WK1 * P RF(Z) EVAL05 ONE-BYTE ADDRESSING MODE , P CF PS,EVAL05 Z $ P LDR WK1,OP2A POOL POINTER BASE p P* P < PEVAL05 LDR* OP2E,TCA FETCH AUX. STACK POINTER FOR I:FML P LCR OP2T,PP FETCH 'L' ADCON
0x102d00…1b0680 [0x1f4]: Pad {f00=0x007c, f01=0x0190, f02=» P SUK OP2T,16 SEE IF FORMAL & P ABL(N) I:FML CALL I:FML TORESOLVE & * P LDR WK2,OP2T ENTER RESOLVED REFERENCE P ( P LDR OP2T,WK1 GET POOL POINTER BASE ~ * P LDR WK1,OP2E RETURN EVAL.LEVEL IN WK1 P RF EVAL10 COMMON PATH T P EJECT I:EVA I:
0x102d00…1b0680 [0x1f5]: Pad {f00=0x007c, f01=0x0190, f02=»I:EVA0 LDR* OP2E,TCA FETCH AUX.STACK POINTER FOR I:FML P LCR OP2T,PP FETCH 'E' ADCON > , P LDR OP2A,P SET RETURN ADDRESS FOR I:FML b P LDR WK2,OP2T P ANK WK2,/FF P CWK WK2,SYSVAR :FMTITEM P RF(NE) EVAL07 NO P YES * P LD* W
0x102d00…1b0680 [0x1f6]: Pad {f00=0x007c, f01=0x0190, f02=»AND | & P LDR* PP,WK2 LET IT POINT VIA FCB . P CF PS,I:EVA0 EVALUATE FORMAT ITEM IN FCB 6 P ADKL PS,2 GET FORMAT LIST h " P LDR* PP,PS POINTER FORM STACK P ADKL PP,1 P RTN PS PEVAL07 EQU * P LDR WK2,OP2T ... & P ANK WK2,X
0x102d00…1b0680 [0x1f7]: Pad {f00=0x007c, f01=0x018e, f02=» OP2T,2 FORM TCA INDEX . P ADR OP2T,TCA EVALUATE WORK BLOCK ADDRESS P* P ( P* HERE: (OP2T)=A(TCA), (WK2)=VAR.# Z P* PEVAL10 ADKL PP,1 ADJUST P.P. P IFT PARM=TEST * P LDR* OP2A,TCA FETCH AUX STACK POINTER , P SUR OP2A,PS COMPA
0x102d00…1b0680 [0x1f8]: Pad {f00=0x007d, f01=0x018e, f02=» P ADR WK2,WK2 DT DISPLACEMENT P LDR OP2A,WK2 ( P ADR* WK2,OP2T DT POINTER > P LDR* OP2E,WK2 DT ITEM ` T P EJECT I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA ~ P* P* I N D E X I N G : P* & P IFF
0x102d00…1b0680 [0x1f9]: Pad {f00=0x007d, f01=0x0190, f02=» " P* AND WB BASE POINTER (OP2T) P* * " P STR OP2T,PS SAVE AT DISPL. 4 4 " P ST WK2,-2,PS SAVE AT DISPL. 2 Z $ P SUKL PS,4 ADJUST STACK POINTER T P EJECT I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA P* , P
0x102d00…1b0680 [0x1fa]: Pad {f00=0x007d, f01=0x0190, f02=»T INDEX d P LDK WK1,0 RESET ( P LD WK2,2,PS LOAD DESCRIPTOR ADDRESS ( & P LC WK1,3,WK2 LOAD FIRST INDEX DIM T " P LDR* OP2T,WK2 DESCRIPTOR WORD ~ " P SLL OP2T,1 TEST INDEX COUNTER P RF(N) *+6 TWO INDICES " P LD WK1,2,WK2 LOAD ONLY INDEX
0x102d00…1b0680 [0x1fb]: Pad {f00=0x007d, f01=0x0190, f02=»PASS ON NO OR ONE INDEX ALLOWED: P ( 0 P LD* OP2T,2,PS LOAD AND TEST DESCRIPTOR WORD 0 P SLL OP2T,1 TEST BIT 1 d 4 P RF(NN) EVAL12 BYPASS IF INDEXED BY SINGLE INDEX T P EJECT I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA
0x102d00…1b0680 [0x1fc]: Pad {f00=0x007d, f01=0x0190, f02=»ESCRIPTOR WORD # 2 z 4 P ANK OP2T,255 ISOLATE SECOND INDEX RANGE (DIM2) P* R 4 P LDR* MD,OP2A FETCH INDEX VALUE TO MULTIPLICAND & P SUKL MD,1 INDEX RANGE STARTS BY 1 P* < P IFT PARM=TEST EXECUTE VALIDITY TEST ON 2'D INDEX VALUE P A
0x102d00…1b0680 [0x1fd]: Pad {f00=0x007d, f01=0x0190, f02=» DIM1 l T P EJECT I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA P* f $ P* NOW RES: CONTAINS INDX1*DIM1 p P* P* PUSH RESULT ONTO STACK: P* P STR RES:,PS P SUKL PS,2 P IFT PARM=TEST * P
0x102d00…1b0680 [0x1fe]: Pad {f00=0x007d, f01=0x0190, f02=»BL(NN) I:ERR9 PS=>AUX POINTER STACK OFL P XIF 0 P* < & P* FETCH ADDRESS OF SECOND INDEX: F P* p P CF PS,I:EVA0 z P* ( P* FETCH PREVIOUS RESULT FROM STACK: P* P P ADKL PS,2 P LDR* RES:,PS P XIF
0x102d00…1b0680 [0x1ff]: Pad {f00=0x007d, f01=0x018e, f02=» p P ABL(NP) I:ERRA P XIF , P ADR* RES:,OP2A COMPUTE INDEX*DIM2+INDEX , ( P LD OP2E,2,PS FETCH D. ITEM POINTER " P LDR* OP2T,OP2E FETCH D. ITEM P ANKL OP2T,4095 LENGTH P LDR MD,RES: & P SUKL MD,1 INDEX RANGE BEGINS BY 1 (
0x102d00…1b0680 [0x200]: Pad {f00=0x007d, f01=0x0190, f02=» j P LDR OP2A,RES: & P LDR* OP2T,PS RESTORE TCA POINTER " P CWR* OP2E,OP2T FIRST IN D.T.? H . P RF(Z) EVAL13 YES: NO DISPLACEMENT IN W.B. n , P LD WK2,-2,OP2E FETCH PRECEDING D. ITEM & P ANKL WK2,4095 MASK OFF TYPE BITS , P ADR OP2A,WK2 AD
0x102d00…1b0680 [0x201]: Pad {f00=0x007d, f01=0x0190, f02=»ARRAY END DISPLACEMENT x P XIF , PEVAL13 LDR* OP2E,OP2E FETCH D. ITEM WD 1 * $ P RF EVAL20 AND ENTER COMMON PATH Z T P EJECT I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA P* $ P* PROCESSING FOR SINGLE ITEMS:
0x102d00…1b0680 [0x202]: Pad {f00=0x007d, f01=0x0190, f02=»ECEDING DT ITEM ~ " P ANKL OP2A,4095 MASK OFF TYPE * P SUR OP2E,OP2A COMPUTE DESCRIPTOR WORD > * PEVAL20 AD OP2A,2,OP2T COMPUTE ADDRESS l P ECR OP2T,OP2E GET TYPE " P ANKL OP2E,4095 ISOLATE LENGTH P* P* CHECK IF LITERAL TABLE
0x102d00…1b0680 [0x203]: Pad {f00=0x007d, f01=0x0190, f02=»VAL30 YES P & P ADR OP2E,OP2A COMPUTE END ADDRESS P RTN PS D P EJECT I:EVA I:EVA T P* t P* INDEXING IN LITERAL TABLE ~ P* P* STACK LAYOUT P* & P* -> * * & P*
0x102d00…1b0680 [0x204]: Pad {f00=0x007d, f01=0x0190, f02=»* LGTH /PA * z & P* ************ & P* PS AT CALL -> * ADDR * > & P* ************ h PEVAL30 EQU * " P STR OP2A,PS PUSH ADDRESS ... " P ST OP2E,-2,PS ... AND LENGTH $ P ST WK1,-4,PS ... AND EV
0x102d00…1b0680 [0x205]: Pad {f00=0x007d, f01=0x0190, f02=»ESSING MODE | P AN WK1,T:FMT & P RF(Z) *+4 IF ONE-BYTE ADDRESSING * ( P ADR WK2,WK2 ELSE DOUBLE INDEX VALUE T P , P IFT PARM=TEST CHECK FOR INDEX OVERFLOW P LDR WK2,WK2 P ABL(NP) I:ERRA P CW WK2,4,PS P ABL(G) I:ERRA
0x102d00…1b0680 [0x206]: Pad {f00=0x007d, f01=0x0190, f02=»DEX TO TABLE ADDRESS | " P LDR* WK2,TCA GET PA-VALUE ... P ST WK2,4,PS ... AND SAVE IT B $ P LD WK2,2,PS GET EVAL LEVEL ... f & P STR WK2,TCA ... TO CONTROL I:EVA5 P P ST PP,2,PS SAVE PP & P LD PP,6,PS SET PP TO ADDRESS LIST P CF
0x102d00…1b0680 [0x207]: Pad {f00=0x007d, f01=0x0190, f02=» P ADKL PS,6 P RTN PS T P EJECT I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA I:EVA & P* ~ " P* FORMAL PARAMETER LINKAGE: P* , PI:FML SUK OP2E,2 ADJUST POINTER TO STACK , P ADR* WK2,OP2E FORM POINTER TO LIS
0x102d00…1b0680 [0x208]: Pad {f00=0x007d, f01=0x0190, f02=»RESS MULTIPLICATION: P* PADMPY LDK MC,16 SETUP COUNT & 8 PADMPZ SRC MR,1 TEST LAST BINARY DIGIT OF MULTIPLIER J $ P RF(NN) *+4 NO ADDITION IF ZERO * P ADR RES:,MD ADD MULIPLICAND TO RESULT " P ADR MD,MD SHIFT MULTIPLICAND P SUK MC,
0x102d00…1b0680 [0x209]: Pad {f00=0x007d, f01=0x018e, f02=» I:EVA d P* P* EVAL IMMEDIATE P* 2 P* < PI:EVI EQU * F P LCR WK1,PP GET LENGTH Z P ANK WK1,255 ISOLATE IT x P LDR OP2A,PP P ADKL OP2A,1 TEXT ADDR P LDR OP2E,OP2A P ADR OP2E,WK1 TEXT END P LDR PP,OP2E
0x102d00…1b0680 [0x20a]: Pad {f00=0x007d, f01=0x0190, f02=» P* PI:EVB EQU * P LCR OP2T,PP " 0 P LDR* OP2E,TCA FETCH AUX STACKPOINTER VALUE 6 & P LDR OP2A,P SET REENTRY FOR I:FML j P LDR WK2,OP2T PP , P ANK WK2,15 ISOLATE BOOLEAN ITEM NUMBER & P ANK OP2T,240 ISOLATE BLOCK NUMBER 2 P ABL
0x102d00…1b0680 [0x20b]: Pad {f00=0x007d, f01=0x4170, f02=»OP2A,2,OP2T OP2A:=A(WB) & P SUKL OP2A,2 ADJUST TO A(BOOLEANS) ! P LDK OP2T,1 BIT MASK ! J ( P ORKL WK2,/3BC0 MAKE SLC OP2T INSTR ! f P IFT COMP=852 ! P EXR WK2 EXECUTE SHIFT ! P XIF ! P IFT COMP=855 ! P ST WK2,*+4 ! P RES 1 ! P
0x102d00…1b0680 [0x20c]: Pad {f00=0x007d, f01=0x2008, f02=» " ET PARAMETER LIST ITEM P ABR A8 RETURN JUMP & P* B P L P END T P ` P h@ pET TYPE d " P ANKL OP2L,4095 ISOLATE LENGTH P ADKL PP,1 ADJUST PP P RTN PS P EJECT P* " P* FORMAL PARAMETER LINKAGE
0x102d00…1b0680 [0x20d]: Pad {f00=0x007d, f01=0x40ca, f02=» WD W. W V r h H D ! R P T W H 3 8 9P =Wf AW2 C EW^ IT MW& QP WT ]W s $ @ < c @ eW> iP mU P x W R R P P W W s p P s @ s ++P !-- z ;$# + ^" _( r " ; L lP(
0x102d00…1b0680 [0x20e]: Pad {f00=0x007d, f01=0x0190, f02=» 2 F IDENT I:EDTE VER=P,REL=3.0,DATE=78-03-03 t D @ I:EKIHK I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNOC t : I:EGTD I:EGTB t I:EKIHK t I:EINH t I:ETAB t I:EVIN t , ( @ : ! P
0x102d00…1b0680 [0x20f]: Pad {f00=0x007d, f01=0x4142, f02=» : ! )P9H # T &W t I:EBR j u I:EBRB n u 2 , ( Y &" :I : : P & u F I:ESKI u v I:EVNOC u I:EGTD u I:EGTB u & " y _ &X _ : : : : u 8 4 P P 'P -P 7
0x102d00…1b0680 [0x210]: Pad {f00=0x007d, f01=0x40de, f02=» 2 F IDENT I:EDS VER=P,REL=3.0,DATE=78-03-03 v I:EDS v : I:EDS v J I:EVS2 v I:ED1 v n , ( v ~ : { : v & v @ v : u 8 4 P P 'P -P 7
0x102d00…1b0680 [0x211]: Pad {f00=0x007d, f01=0x0008, f02=»
0x102d00…1b0680 [0x212]: Pad {f00=0x007d, f01=0x0190, f02=» & P IDENT I:ADS UPD 77-01-26/ULJO P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2
0x102d00…1b0680 [0x213]: Pad {f00=0x007d, f01=0x0190, f02=»JO ~ P REL 76-12-13 #1.3 P REL 76-11-15 #1.2 & P REL 76-10-07 #1.1 B P UPD 76-10-05/CWA ^ P UPD 76-02-09 #1 z P REL #1,76-06-15 P 0 P******************************************* 0 P*
0x102d00…1b0680 [0x214]: Pad {f00=0x007d, f01=0x0190, f02=»*********************************** P , P 4 P ENTRY I:ADD ADDITION ENTRY < " P ENTRY I:SUB SUBTRACTION ENTRY ` P , P EXTRN I:CPA COMPARE ABSOLUTE SUBROUTINE ( P EXTRN I:ERR1 MIXED ARITH ERROR EXIT $ P EXTRN I:ERR2 ILL OP ERROR EXIT
0x102d00…1b0680 [0x215]: Pad {f00=0x007d, f01=0x0190, f02=»PARM EQU TEST PSETCR EQU 1 PYES EQU 1 * PNO EQU 0 < PSPACES EQU YES L PCORE EQU 32 b T P EJECT I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS v P* ( P* TEMPORARY INTERPRETER REGISTERS: P*
0x102d00…1b0680 [0x216]: Pad {f00=0x007d, f01=0x0190, f02=»OP1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 LENGTH 0 ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR T " POP2A EQU A9 OPERAND 2 ADDRESS POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION P* POPCD EQU
0x102d00…1b0680 [0x217]: Pad {f00=0x007d, f01=0x0190, f02=» x PTCA EQU A13 TCA BASE ADDRESS P* , ( P* BASE AND POINTER REGISTER USAGE: 6 P* b PB3 EQU A8 STORE BASE l PP1 EQU OP1E LOAD POINTER PP2 EQU OP2E MODIFY POINTER PP3 EQU A7 STORE POINTER P* ( P* TERMINAL STACK BASE
0x102d00…1b0680 [0x218]: Pad {f00=0x007e, f01=0x0190, f02=» BIT p PNUMBIT EQU X'20' NUMERIC BIT T P EJECT I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS 0 P* PI:ADD EQU * ADD ENTRY P* P LDKL OPCD,-96 ADD:=X'60' P RF ADDSUB TO COMMON PATH P* " PI:
0x102d00…1b0680 [0x219]: Pad {f00=0x007e, f01=0x0190, f02=»PTOR t P IFT PARM=TEST . P ANR WK2,OP1T TEST AGAINST OP1 DESCRIPTOR " , P LDK WK1,NUMBIT SEE IF BOTH ARE NUMERIC T P TM WK1,WK2 ( P ABL(Z) I:ERR2 IF NOT, REPORT ERROR P LDR WK3,OP2T GET OP1 DESCR. ( P XRR WK3,OP1T TEST AGAINST OP1 DES
0x102d00…1b0680 [0x21a]: Pad {f00=0x007e, f01=0x018e, f02=»F(NZ) DECIMAL GO PROCESS DECIMAL OPERATION T P EJECT I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS 2 P " P***************************** " P* BINARY ADD/SUB HANDLING * " P***************************** P &
0x102d00…1b0680 [0x21b]: Pad {f00=0x007e, f01=0x0190, f02=» P XIF P IFT COMP=855 P RF(NZ) *+6 * P C1R WK1,WK1 > P ADK WK1,1 R P XIF d " P LD B3,STKB,TCA GET STACK BASE p 6 P ADRS WK1,OP1A ADD OP1 POSITIVE OR NEGATIVE TO OP2 P CFR B3,P SAVE C.R. P P RTN PS T P EJECT
0x102d00…1b0680 [0x21c]: Pad {f00=0x007e, f01=0x0190, f02=»MAL ADD/SUB HANDLING * P**************************** P B PDECIMAL EQU * J " P LDR P3,P1 LOLD STORE POINTER ` P LDR B3,OP1A GET STORE BASE & P LCR WK1,OP1A GET OPERAND 1 SIGN P LCR WK2,OP2A GET OP2 SIGN P XRR WK1,WK2 EQUAL S
0x102d00…1b0680 [0x21d]: Pad {f00=0x007e, f01=0x018e, f02=»PCD,WK1 OPCODE: NEG => ADD UNEQ SIGNS, ZERO=ADD ACTION, POS=>SUB E P RF(Z) DEC20 SPEEDS IT UP J P* l 8 P* COMPARE ABSOLUTE TO DETERMINE ORDER OF OPERATION: v P* P CF PS,I:CPA P RF(G) DEC20 P* 0 P* OP2 IS GT OP1; SWITCH POI
0x102d00…1b0680 [0x21e]: Pad {f00=0x007e, f01=0x0190, f02=» P LDR OP2A,WK1 T P EJECT I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS P* r 0 P* POINTERS ARE SET UP: START ADD/SUB ACTION | P* PDEC20 LDK WK4,0 CARRY:=0 P* P* $ P* SET ZERO INDICATOR ON STA
0x102d00…1b0680 [0x21f]: Pad {f00=0x007e, f01=0x0190, f02=»1 P SUK P3,1 P P LCR WK1,P1 GET OP1 BYTE $ P LDR WK3,WK1 V D P IFT CORE=32 Z $ P TNM P1,OP1A TEST IF EQUAL SIGN n P RF(NN) *+6 YES P CWR OP1A,P1 P RF *+4 P XIF * P CWR P1,OP1A OUTSIDE GREATER OPERAND?
0x102d00…1b0680 [0x220]: Pad {f00=0x007e, f01=0x0190, f02=»OLATE RIGHT DIGIT P IFT SPACES=YES P SUK WK3,15 2 P RF(Z) *+4 F P ADK WK3,15 X P XIF l P ANK WK1,240 x P IFT SPACES=YES P SUK WK1,240 P RF(Z) *+4 P ADK WK1,240 P XIF & P ADR WK3,WK4 ADD ON CARRY TO R.D
0x102d00…1b0680 [0x221]: Pad {f00=0x007e, f01=0x0190, f02=» v P* P LCR WK2,P2 GET OP2 DIGITS P LDR WK4,WK2 V 4 P IFT CORE=32 J P TNM P2,OP2A ^ P RF(NN) *+6 r P CWR OP2A,P2 P RF *+4 P XIF * P CWR P2,OP2A OUTSIDE SMALLER OPERAND? P RF(G) *+8 NO $ P LDK WK2,0 FAKE
0x102d00…1b0680 [0x222]: Pad {f00=0x007e, f01=0x0190, f02=»YES P SUK WK4,15 P RF(Z) *+4 P ADK WK4,15 2 P XIF F P ANK WK2,240 R P IFT SPACES=YES f P SUK WK2,240 ~ P RF(Z) *+4 P ADK WK2,240 P XIF $ P LDR OPCD,OPCD TEST ADD/SUB FLAG " P RF(NZ) SUBR GO SUBTRACT R.D.
0x102d00…1b0680 [0x223]: Pad {f00=0x007e, f01=0x018e, f02=»* P ADR WK3,WK4 P CWK WK3,10 CARRY? P RF(L) *+4 NO: BYPASS 8 P ADK WK3,6 YES: ADD CPM V P* v 0 PADSU10 CWR P3,B3 OUTSIDE OF RECEIVING ITEM? $ P RF(E) SETSGN BRANCH ON "NEARLY" P* P* ADD LEFT DIGITS: P*
0x102d00…1b0680 [0x224]: Pad {f00=0x007e, f01=0x018e, f02=» P* & P* STORE RESULT AND PREPARE CARRY: P* 8 * PADSU20 SCR WK3,P3 STORE RESULT DIGITS B P LDR WK4,WK3 GET CARRY p P SRA WK4,8 MAKE WORD P* P* UPDATE ZERO INDICATOR: P* P ORRS A3,PS P* P RB ADSU
0x102d00…1b0680 [0x225]: Pad {f00=0x007e, f01=0x0190, f02=» P* PSUBR SUR WK3,WK4 $ P RF(NN) *+4 BYPASS IF NO BORROW & P SUK WK3,6 BORROW SOME MORE N P* r * P CWR P3,B3 OUTSIDE OF RECEIVING ITEM? | $ P RF(E) SETSGN BRANCH ON "NEARLY" P* P* SUBTRACT LEFT DIGITS: P* PSUBL
0x102d00…1b0680 [0x226]: Pad {f00=0x007e, f01=0x0190, f02=»CT I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS I:ADS P* T & P* AT END OF SUBTRACTION: SET SIGN ^ P* P IFT SETCR=1 AND CR & PSETSGN LDK WK4,0 ZERO RETURN CODE P LDR WK2,WK3 P ANK WK2,15 P CWR WK2,W
0x102d00…1b0680 [0x227]: Pad {f00=0x007e, f01=0x0190, f02=»K2,/FF DELETE ANY OLD CARRY P ANK WK3,/F MASK AWAY CARRY $ 0 P ORR WK2,WK3 CHECK IF ZERO ON LAST DIGIT TOO H " P RF(Z) STS10 STORE ZERO W/SIGN | $ P LCR WK1,OP1A FETCH SGO ON SOP1 P LDR OPCD,OPCD TEST OF MODE ( P RF(NP) STS STORE SIGN IF NO
0x102d00…1b0680 [0x228]: Pad {f00=0x007e, f01=0x0190, f02=»1,/F0 " P RF(NZ) STS05 NONZERO SIGN OK " P LDK WK1,/B0 ZERO SIGN IS '+' 4 4 PSTS05 ORR WK3,WK1 MERGE SIGN WITH LEADING DIGIT Z P SRL WK1,5 CREATE P ANK WK1,3 RETURN CODE P ORR WK4,WK1 FROM SIGN 0 PSTS10 SCR WK3,P3 SSTORE SIGN W
0x102d00…1b0680 [0x229]: Pad {f00=0x007e, f01=0x0190, f02=»* * PSETSGN LDR* WK2,PS GET ZERO INDICATOR & P ANK WK2,255 DELETE ANY OLD CARRY 8 P ANK WK3,15 MASK AWAY CARRY b 0 P ORR WK2,WK3 CHECK IF ZERO ON LAST DIGIT TOO " P RF(Z) STS+8 STORE ZERO W/SIGN $ P LCR WK1,OP1A FETCH SGO OR SOP1 P L
0x102d00…1b0680 [0x22a]: Pad {f00=0x007e, f01=0x411c, f02=»N IS O.K. ~ P XRK WK1,96 YES: FLIP SIGN PSTS ANK WK1,240 4 " P RF(NZ) *+4 NONZERO SIGN O.K. L $ P LDK WK1,X'B0' ZERO SIGN IS '+' r , P ORR WK3,WK1 MERGE SIGN W/ LEADING DIGIT P SCR WK3,P3 AND STORE P XIF P RTN PS P
0x102d00…1b0680 [0x22b]: Pad {f00=0x007e, f01=0x2008, f02=» ,X'60' " PSTOSGN ORR WK3,WK1 OR IN SIGN P SCR WK3,P3 AND STORE < P XIF Z P RB RETURN f P x , PSETSGO EQU * SET SIGN OF GRETAER OPERAND . P LCR WK1,OP1A GET SIGN OF GREATER OPERAND P ANK WK1,240 P RB STOSGN P
0x102d00…1b0680 [0x22c]: Pad {f00=0x007e, f01=0x0190, f02=» t P PDECIMAL EQU * " P LDR P3,P1 LOLD STORE POINTER & P LDR B3,OP1A GET STORE BASE L & P LCR WK1,OP1A GET OPERAND 1 SIGN p P LCR WK2,OP2A GET OP2 SIGN P XRR WK1,WK2 EQUAL SIGNS? P ANK WK1,64 EQ=0,NE#0 P RF(Z) *+4 IF
0x102d00…1b0680 [0x22d]: Pad {f00=0x007e, f01=0x0190, f02=»S=>SUB E P P RF(Z) DEC20 SPEEDS IT UP P* 2 8 P* COMPARE ABSOLUTE TO DETERMINE ORDER OF OPERATION: < P* x P CF PS,I:CPA P RF(G) DEC20 P* 0 P* OP2 IS GT OP1; SWITCH POINTERS AND BASES: P* P LDR WK1,P1 P LDR
0x102d00…1b0680 [0x22e]: Pad {f00=0x007e, f01=0x0190, f02=» I:ADS I:ADS I:ADS I:ADS I:ADS n P* 6 0 P* POINTERS ARE SET UP: START ADD/SUB ACTION @ P* t PDEC20 LDK WK4,0 CARRY:=0 ~ P* P* $ P* SET ZERO INDICATOR ON STACK: P* P STR WK4,PS P* P* ADJUS
0x102d00…1b0680 [0x22f]: Pad {f00=0x007e, f01=0x0190, f02=» x P LDR WK3,WK1 V P IFT CORE=32 $ P TNM P1,OP1A TEST IF EQUAL SIGN 2 P RF(NN) *+6 YES Z P CWR OP1A,P1 r P RF *+4 P XIF * P CWR P1,OP1A OUTSIDE GREATER OPERAND? P RF(G) *+8 NO P LDK WK1,0 AT SIGN OR BEYOND P
0x102d00…1b0680 [0x230]: Pad {f00=0x007e, f01=0x0190, f02=» LT:USE P 780331 T:USE T:CAT I:EVA0 I:RT0 I:ERR x ,T:EXIT R 780331 T:EXITK NT:GTCW S 780331 T:FDSP GETCW I:EVA0 I:RT1 I:ERR FT:GTID U 780331 T:GETIK I:EVA0 I:RT1 I:ERR
0x102d00…1b0680 [0x231]: Pad {f00=0x007e, f01=0x0006, f02=»
0x102d00…1b0680 [0x232]: Pad {f00=0x007e, f01=0x0190, f02=» . P IDENT I:CMP X 1.1.01 UPD 76-10-05/CWA P REL 78-04-01 #3.1 6 P REL 78-03-03 #3.0 R P REL 77-12-07 #2.4 n P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16
0x102d00…1b0680 [0x233]: Pad {f00=0x007e, f01=0x0190, f02=»12-13 #1.3 P REL 76-11-15 #1.2 P REL 76-10-07 #1.1 . P UPD 76-10-05/CWA J P UPD 76-02-19 #1 f P REL #1,76-06-15 0 P******************************************* 0 P* * 0 P* INTE
0x102d00…1b0680 [0x234]: Pad {f00=0x007e, f01=0x0190, f02=»******* l P P P ENTRY I:CMP CMPITION ENTRY P D , P EXTRN I:CPA COMPARE ABSOLUTE SUBROUTINE L , P EXTRN I:ERR1 ERROR HANDLER (TEST ONLY) | P P* $ P* CONDITIONAL ASSEMBLY FLAGS: P* PCOMP EQU 852 PTEST E
0x102d00…1b0680 [0x235]: Pad {f00=0x007e, f01=0x0190, f02=»P I:CMP I:CMP I:CMP I:CMP h P* 0 ( P* TEMPORARY INTERPRETER REGISTERS: : P* f PWK1 EQU A1 WORK REGISTER p PWK2 EQU A2 WORK REGISTER PWK3 EQU A3 WORK REGISTER PWK4 EQU A4 OPCODE REGISTER , POP1A EQU A10 OPERAND 1 A
0x102d00…1b0680 [0x236]: Pad {f00=0x007e, f01=0x0190, f02=» r POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION , P* Z POPCD EQU A11 OPCODE d P* P* NON-TEMPORARY REGISTERS: P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PTCA EQU A13 TCA
0x102d00…1b0680 [0x237]: Pad {f00=0x007e, f01=0x0190, f02=»ER z PP2 EQU OP2E MODIFY POINTER PP3 EQU A7 STORE POINTER , P* L ( P* TERMINAL STACK BASE DISPLACEMENT V P* PSTKB EQU 2 P* P* P* BIT MASKS: P* ( PARITHB EQU X'10' ARITHMETIC BASE BIT PNUMBIT EQU X
0x102d00…1b0680 [0x238]: Pad {f00=0x007f, f01=0x0190, f02=»CMP ENTRY P* " P LD B3,STKB,TCA GET STACK BASE $ P LDR WK2,OP1T GET OP1 DESCRIPTOR B P IFT PARM=TEST j P LDR WK3,OP2T GET OP1 DESCR. ( P XRR WK3,OP1T TEST AGAINST OP1 DESCR 4 P ANK WK3,ARITHB+NUMBITB CHECK ARITHM BASE EQUAL P A
0x102d00…1b0680 [0x239]: Pad {f00=0x007f, f01=0x0190, f02=»II COMPARE p " P ANK WK2,ARITHB SEE IF DECIMAL 0 P RF(NZ) DECIMAL GO PROCESS DECIMAL OPERATION 8 P l " P***************************** t " P* BINARY COMPARE HANDLING * " P***************************** P & PBINARY LDR* WK1,OP1A GET OP2
0x102d00…1b0680 [0x23a]: Pad {f00=0x007f, f01=0x0190, f02=»RETURN T P EJECT I:CMP I:CMP I:CMP I:CMP I:CMP I:CMP I:CMP I:CMP P f " P**************************** n P* DECIMAL COMPARE HANDLING * P**************************** P PDECIMAL EQU * P* * P LDK W
0x102d00…1b0680 [0x23b]: Pad {f00=0x007f, f01=0x0190, f02=»K1,X'60' 6 P RF(Z) ABSCMP IF ZQUAL SIGNS THZN COMPARZ ABSOLUTZ * P* UNEQUAL SIGNS: SETTLE MATTER +>0>- J & P SLL WK2,10 TEST OP2 SIGN 76-05-19 x , P RB(NZ) SETCRG IF OP2 NOT ZERO 76-05-19 P CCR WK3,OP1A P RB SETCRG GO SET COND. REG.
0x102d00…1b0680 [0x23c]: Pad {f00=0x007f, f01=0x0190, f02=» P* $ P* REORDER POINTERS FOR COMPARE: P* : P LDR WK1,P1 D P LDR P1,P2 X P LDR P2,WK1 j P LDR WK1,OP1A ~ P LDR OP1A,OP2A P LDR OP2A,WK1 P* ( PABSCMQ CF PS,I:CPA COMPARE ABSOLUTES P RB SETCRG AND SET C
0x102d00…1b0680 [0x23d]: Pad {f00=0x007f, f01=0x0190, f02=» t P* STRING COMPARE HANDLING * P*************************** , P P PASCCMP EQU * X " P LDR WK3,OP1A LOAD OP1 POINTER l " P LDR WK4,OP2A LOAD OP2 POINTER ( PASCC1 LCR WK1,WK3 GET OP1 CHARACTER P IFT CORE=32 P TNM WK3,OP1E
0x102d00…1b0680 [0x23e]: Pad {f00=0x007f, f01=0x018e, f02=»S IF NOT P LDK WK2,0 SET FLAG FOR THIS P LDK WK1,' ' LOAD SPACE 4 P IFT CORE=32 T P TNM WK4,OP2E h P RF(NN) *+6 EQUAL SIGN ~ P CWR OP2E,WK4 P RF *+4 P XIF P CWR WK4,OP2E OUTSIDE OP2? P RF(L) ASCC2 " P ADK
0x102d00…1b0680 [0x23f]: Pad {f00=0x007f, f01=0x40cc, f02=» $ PASCC2 CCR WK1,WK4 COMPARE CHARS & P RB(NE) SETCRG THROUGH IF UNEQUAL 0 P ADK WK3,1 BUMP Z P ADK WK4,1 POINTERS r P RB ASCC1 AND TRY AGAIN P P END @ P CWR WK4,OP2E OUTSIDE OP2? P RF(L) ASCC2 " P ADK
0x102d00…1b0680 [0x240]: Pad {f00=0x007f, f01=0x2008, f02=» n P RF *+4 $ PASCC2 CCR WK1,WK4 COMPARE CHARS & P RB(NE) SETCRG THROUGH IF UNEQUAL F P ADK WK3,1 BUMP p P ADK WK4,1 POINTERS P RB ASCC1 AND TRY AGAIN P P END @ P CWR WK4,OP1L OUTSIDE OP2? P
0x102d00…1b0680 [0x241]: Pad {f00=0x007f, f01=0x0006, f02=» P X `
0x102d00…1b0680 [0x242]: Pad {f00=0x007f, f01=0x000c, f02=»780331 EVS y 780331 I:EVA0 I:EVS1K 8 I:EVA2 I:EVS2 J VTRACON z 780331 T:BPCB T:ATABK I:NTPA U:BTAB I:INIT 6 7 I:ESKI I:EVNOC I:EGTD I:EGTB <I:EDS v 780331 I:EDS
0x102d00…1b0680 [0x243]: Pad {f00=0x007f, f01=0x0190, f02=» FFMOVE 780331 FMOVE I:EVA0 I:EVA5 I:RT1 ( <TYPET 780331 TYPET I:EVA0 I:RT1 >ICLEAR 780331 ICLEARK I:EVA0 I:RT1 $ >EMPTYT 780331 EMPTYTK I:EVA0 I:RT1 < nT:
0x102d00…1b0680 [0x244]: Pad {f00=0x007f, f01=0x0190, f02=» STROU1K T:STEV I:EVA0 T:DUPX T:GRFC T:ROK T:RNOK JT:STEV 780331 T:STEVK T:GRFC I:EVA0 I:ERR2 * T:EDFL 780331 T:EDFLK T:PM1 T:PM2 T:CASP T:DUPX T:CLRD T:SCUW@ T:SVE T:REST
0x102d00…1b0680 [0x245]: Pad {f00=0x007f, f01=0x0190, f02=» T:CLRD T:EKEY@ 8 T:RCR T:IOER j T:CLR1 x T:CLR2 T:SCUW` T:BELL T:IOWR I:EVA0C T:CLMIA T:PM1 T:PM2 ZT:UPDF 780331 T:UPDFK I:EVA0 I:MOV T:RCR T:REWR T:RCTS B T:DUPL 780331 T
0x102d00…1b0680 [0x246]: Pad {f00=0x007f, f01=0x0190, f02=»GETA 780331 T:GETAK I:EVA0 T:RNOK T:ROK T:RCR $ 6T:TSTC 780331 T:TSTCK T:RTES 6 T:TFWD 780331 T:TLEFK T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOMC " T:GRFC T
0x102d00…1b0680 [0x247]: Pad {f00=0x007f, f01=0x0190, f02=» T:ERAS " T:GTIT T:TABD T:TABC T:RNOK I:RT1 T:CLDY T:WRDY T:EDIO F vT:GETF 780331 T:GETFK T:TABC T:TABN T:GTIT T:GRFC T:GTIP I:EVA0 I:EVA2 D T:REWR 780331 T:IOWR T:SCUW
0x102d00…1b0680 [0x248]: Pad {f00=0x007f, f01=0x0190, f02=»:ESKIR I:EVA0 I:EBRIr I:EBRBa I:EBR I:ECWC I:EXIT! I:EFLI T:DNL T:TINP T:TKI T:DSL T:TABCK $ T:TABD ( T:TABE , T:EDWI I:EVT I:EDSK T:GRFC T:ENIN T:EDWF T:SCR2 T:SCUR T:TABN @ T:RCR J T:ENLI $
0x102d00…1b0680 [0x249]: Pad {f00=0x007f, f01=0x0004, f02=»
0x102d00…1b0680 [0x24a]: Pad {f00=0x007f, f01=0x018e, f02=» " P IDENT I:CPA UPD 76-12-21/CWA P REL 78-04-01 #3.1 * P REL 78-03-03 #3.0 F P REL 77-12-07 #2.4 b P REL 77-12-07 #2.4 ~ P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2 P
0x102d00…1b0680 [0x24b]: Pad {f00=0x007f, f01=0x0190, f02=» z P REL 76-12-13 #1.3 P REL 76-11-15 #1.2 $ P REL 76-10-07 #1.1 @ P UPD 76-10-05/CWA P UPD 76-03-10 #1 x P REL #1,76-06-15 P P P********************* P* COMPARE ABSOLUTES * P************
0x102d00…1b0680 [0x24c]: Pad {f00=0x007f, f01=0x0190, f02=»ITIONAL ASSEMBLY FLAGS: P* PCOMP EQU 855 * PTEST EQU 1 > PNOTEST EQU 0 P PPARM EQU TEST d PYES EQU 1 z PNO EQU 0 PSPACES EQU YES PCORE EQU 32 T P EJECT I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA
0x102d00…1b0680 [0x24d]: Pad {f00=0x007f, f01=0x0190, f02=»GISTER ~ PWK3 EQU A3 WORK REGISTER PWK4 EQU A4 OPCODE REGISTER . , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER P POP1E EQU A6 OPERAND 1 LENGTH ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR " POP2A EQU A9 OPERAND 2 ADDRESS POP2E EQU A5 OPERAND
0x102d00…1b0680 [0x24e]: Pad {f00=0x007f, f01=0x0190, f02=»RS: x P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER 8 PTCA EQU A13 TCA BASE ADDRESS X P* | T P EJECT I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA P ( PI:CPA ADKL PS,4 ADJUST STACK POINTER
0x102d00…1b0680 [0x24f]: Pad {f00=0x007f, f01=0x0190, f02=» SUR WK1,OP1A , P LDR WK4,OP2E GET OPERAND 2 END ADDRESS * P SUR WK4,OP2A COMPUTE OPERAND 2 LENGTH F P SUR WK1,WK4 t & P RF(N) CPA05 BRANCH ON OP2 LONGER P* , P SUR WK3,WK1 BASE 2 - LENGTH DIFFERENCE P RF CPA08 P* 2 PCP
0x102d00…1b0680 [0x250]: Pad {f00=0x007f, f01=0x0190, f02=» T P EJECT I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA P* < P* NOW THE BEGINNING POINTERS ARE SET: START COMPARISON: f P* " PCPA10 LCR WK1,WK2 GET OP1 CHAR P IFT CORE=32 P TNM WK2,OP1A P RF(NN) *+
0x102d00…1b0680 [0x251]: Pad {f00=0x007f, f01=0x0190, f02=»GN v P RF(E) CPA20 YES: P* $ , P LDK WK1,0 SIGN NOT REACHED. ENTER ZERO. . P IFT SPACES=YES ^ P RF CPA30 v " PCPA20 ANK WK1,15 MASK OUT SIGN P IFT SPACES=YES P RF CPA25 PCPA22 EQU * P SUK WK1,240 P RF(NN)
0x102d00…1b0680 [0x252]: Pad {f00=0x007f, f01=0x0190, f02=»NO PCPA22 EQU * P XIF T P EJECT I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA * P " PCPA30 LCR WK4,WK3 GET OP2 CHAR P IFT CORE=32 P TNM WK3,OP2A P RF(NN) *+6 EQUAL SIGN P CWR OP2A,WK2
0x102d00…1b0680 [0x253]: Pad {f00=0x007f, f01=0x0190, f02=» SIGN NOT REACHED. ENTER ZERO. P IFT SPACES=YES & P RF CPA50 > " PCPA40 ANK WK4,15 MASK OUT SIGN P P IFT SPACES=YES v P RF CPA45 PCPA42 EQU * P SUK WK4,240 P RF(NN) *+4 P ADK WK4,240 PCPA45 EQU * P SUK W
0x102d00…1b0680 [0x254]: Pad {f00=0x007f, f01=0x0190, f02=»4 COMPARE BYTES , P RF(NE) THRU COMPARE ENDED WHEN UNEQUAL T P EJECT I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA I:CPA H P* P* SET FOR NEXT CHARACTER: P* P ADK WK2,1 BUMP OP1 POINTER P ADK WK3,1 BUMP
0x102d00…1b0680 [0x255]: Pad {f00=0x007f, f01=0x40dc, f02=» " P CWR WK2,OP1E AT END OF ITEMS? P RB(L) CPA10 . P* B P* COMPARE IS ENDED: L ( P* RESULT IS IN CONDITION REGISTER. h P* PTHRU ABR* PS RETURN JUMP. P P END @ K2,1 BUMP OP1 POINTER P ADK WK3,1 BUMP
0x102d00…1b0680 [0x256]: Pad {f00=0x007f, f01=0x2008, f02=» OMPARE IS ENDED: ( P* RESULT IS IN CONDITION REGISTER. P* L PTHRU ABR* PS RETURN JUMP. V P x P END @
0x102d00…1b0680 [0x257]: Pad {f00=0x007f, f01=0x0190, f02=» 1 W. M * M L $ Q X Q Q 6 1 M * I 6 I L , L T W 6 1 X L *(@ M * G _D X Hm H 1P ] I (@ I 1 Q M * 6 1 M * M 6 1 0 M " L '? L U "T > WP T > WF T
0x102d00…1b0680 [0x258]: Pad {f00=0x0080, f01=0x0190, f02=» M L PH=GV L L 4 7 M 2 9> M L 9G L 4 L M L M M L 4 88 W M " ?. L L 9JR@ P P T ? 5 U P T Q P P W Q P T*(@ L Q L Q L ( L ! TNW P T P P W Q L ' " P
0x102d00…1b0680 [0x259]: Pad {f00=0x0080, f01=0x000c, f02=» (
0x102d00…1b0680 [0x25a]: Pad {f00=0x0080, f01=0x0190, f02=» " P IDENT I:MOV UPD 78-02-23/ST P REL 78-04-01 #3.1 * P REL 78-03-03 #3.0 F P UPD 77-11-15/ST b P REL 77-12-07 #2.4 | P REL 77-12-07 #2.4 P UPD 77-06-15/POEG P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P
0x102d00…1b0680 [0x25b]: Pad {f00=0x0080, f01=0x0190, f02=» P UPD 77-04-14/POEG P REL 77-03-16 #2.1 P REL 76-12-13 #1.3 < P REL 76-11-15 #1.2 X P REL 76-10-07 #1.1 t P UPD 76-10-05/CWA P UPD 76-03-01 #1 P REL #1,76-06-15 P P 0 P************************
0x102d00…1b0680 [0x25c]: Pad {f00=0x0080, f01=0x0190, f02=» * 0 P******************************************* 2 P f P n P ENTRY I:MOV MOVE ENTRY v & P ENTRY I:MVC MOVE CHARACTERS ENTRY P , P EXTRN I:ERR8 ERROR HANDLER (TEST ONLY) P P* $ P
0x102d00…1b0680 [0x25d]: Pad {f00=0x0080, f01=0x0190, f02=»R EQU 0 PYES EQU 1 PNO EQU 0 " PSPACES EQU YES 2 PCORE EQU 32 H T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV P* ( P* TEMPORARY INTERPRETER REGISTERS: P* PWK1 EQU A1 WORK REGIST
0x102d00…1b0680 [0x25e]: Pad {f00=0x0080, f01=0x0190, f02=»RESS REGISTER v POP1E EQU A6 OPERAND 1 LENGTH ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR : " POP2A EQU A9 OPERAND 2 ADDRESS f POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION P* POPCD EQU A11 OPCODE P*
0x102d00…1b0680 [0x25f]: Pad {f00=0x0080, f01=0x0190, f02=»SE ADDRESS ~ P* ( P* BASE AND POINTER REGISTER USAGE: P* H PB3 EQU A8 STORE BASE R PP1 EQU OP1E LOAD POINTER n PP2 EQU OP2E MODIFY POINTER PP3 EQU A7 STORE POINTER P* ( P* TERMINAL STACK BASE DISPLACEMENT P*
0x102d00…1b0680 [0x260]: Pad {f00=0x0080, f01=0x0190, f02=»0' NUMERIC BIT T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV P* n PI:MOV EQU * ADD ENTRY x P* P* RESOLVE OPERATION TYPE: P* & P ANK OP1T,X'30' GET OPERAND 1 TYPE & P ANK OP2T,X'30' GET
0x102d00…1b0680 [0x261]: Pad {f00=0x0080, f01=0x0190, f02=») UNPACK YES; UNPACK , P SUK OP1T,X'2C'-X'0C' DECIMAL-TO-BINARY? ( P RF(Z) MVDTB YES: GO MOVE DEC-TO-BIN L ( P SUK OP1T,X'30'-X'2C' STRING-TO-DEC? x P RF(Z) PACK YES: GO PACK , P SUK OP1T,X'38'-X'30' BINARY-TO-DECIMAL? ( P RF(Z) MVBTD YES: GO M
0x102d00…1b0680 [0x262]: Pad {f00=0x0080, f01=0x018e, f02=»E: MOVE CHARACTERS. T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV P* t P* MOVE CHARACTERS: ~ P* PI:MVC EQU * P* P* SET UP POINTERS: P* $ P LDR WK3,OP1A OPERAND 1 POINTER
0x102d00…1b0680 [0x263]: Pad {f00=0x0080, f01=0x0190, f02=» P SCR WK1,WK3 STORE IN OP2 P ADK WK3,1 BUMP OP1 POINTER & $ P CWR WK3,OP1E 32K SAFE SEQUENCE: J P RF(E) RETURN r P ADK WK4,1 BUMP OP2 POINTER P IFT CORE=32 P TNM WK4,OP2E P RF(NN) *+6 EQUAL SIGN P CWR OP2E,WK4 P
0x102d00…1b0680 [0x264]: Pad {f00=0x0080, f01=0x0190, f02=»T CHARACTER t P* T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV P* v P* MOVE DECIMAL DIGITS: P* PMVDD EQU * P* P* $ PMVD10 SUK P1,1 BUMP OP1 POINTER P SUK P2,1 BUMP OP2
0x102d00…1b0680 [0x265]: Pad {f00=0x0080, f01=0x0190, f02=» z P CWR OP2A,P2 P RF *+4 P XIF , P CWR P2,OP2A AT OP2 SIGN?? 8 * P RF(G) MVD12 IF NOT YET, GO STORE BYTE Z & P RF(E) MVD11 IF BEYOND, STORE ZERO , P LDK WK1,255 IF BEYOND SIGN, GET SPACES 2 PMVD11 ORK WK1,240 ..MASK AWAY SIGN.. 76-
0x102d00…1b0680 [0x266]: Pad {f00=0x0080, f01=0x0190, f02=» p P RB MVD10 P* $ PMVD20 LCR WK2,OP2A GET OP2 SIGN $ P ANK WK2,X'F0' SIGN MASK L & P ANK WK1,15 ISOLATE DIGIT 76-03-01 l , P ORR WK1,WK2 MERGE SIGN W/LEADING DIGIT P SCR WK1,P1 STORE PRETURN RTN PS P* T P EJECT I
0x102d00…1b0680 [0x267]: Pad {f00=0x0080, f01=0x0190, f02=»EQU * P* $ P LDR* WK1,OP2A GET BINARY VALUE P LDK WK4,0 INITIALIZE RESULT @ P LDK WK2,0 INITIALIZE SIGN d @ P RF(Z) BNDC0 ZERO SHORTCUT (THIS INSTRUCTION MAY BE OMITTED) , P LDK WK2,X'B0' INITIALIZE POSITIVE SIGN , P RF(P) BINDEC CO
0x102d00…1b0680 [0x268]: Pad {f00=0x0080, f01=0x0190, f02=»P=852 $ P NGR WK1,WK1 ELSE 2'S COMPLEMENT P XIF 6 $ P LDK WK2,X'D0' AND SET SIGN ZERO B P* j 4 PBINDEC LDKL WK3,K10000 INITIALIZE POINTER TABLE t P $ PBNDC2 ADK WK4,1 ADD 1 TO RESULT ( P SUR* WK1,WK3 SUBTRACT OFF TEN POWER , P R
0x102d00…1b0680 [0x269]: Pad {f00=0x0080, f01=0x0190, f02=»E DEC.DIGIT $ P ADK WK3,2 TO GET NEXT 10 POWER P CWK WK3,K1 < . P RB(NE) BNDC2 CONTINUE IF MORE TEN POWERS P P* T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV P* & P* STORE DECIMAL NUMBER ON S
0x102d00…1b0680 [0x26a]: Pad {f00=0x0080, f01=0x018e, f02=»EE r $ P ORR WK4,WK1 MERGE IN LAST DIGIT P ORR WK2,WK3 AND FIRST 2 P STR WK4,PS KEEP DIGITS 2-5 P P SC WK2,-1,PS STORE SIGN t P* ( P* INITIALIZE DIGIT MOVING TO ITEM: P* $ P LDR P2,PS OP 2 POINTER MODIFIED P SUK P2,1 TO P
0x102d00…1b0680 [0x26b]: Pad {f00=0x0080, f01=0x018e, f02=» n P* " PK10000 DATA 10000,1000,100,10 " PK1 EQU * CONSTANT 1 NEVER USED 8 T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV ^ P* P* MOVE DECIMAL TO BINARY: P* PMVDTB EQU * P* P
0x102d00…1b0680 [0x26c]: Pad {f00=0x0080, f01=0x0190, f02=» ^ & P IFT CORE=32 32 K SAFE SEQUENCE P TNM P2,OP2A 2 P RF(NN) *+6 EQUAL SIGN F P CWR OP2A,P2 d P RF *+4 x P XIF $ P CWR P2,OP2A LESS THAN 5 DIGITS/ P RF(NL) *+4 $ P LDR P2,OP2A YES: START AT SIGN P* P* CONVE
0x102d00…1b0680 [0x26d]: Pad {f00=0x0080, f01=0x0190, f02=»RIGHT9 DIGIT z P* T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV P* v $ PMVDTB1 ANK WK1,15 ISOLATE DIGIT P * P IFT SPACES=YES X'F' -> X'0' 76-05-19 P SUK WK1,15 P RF(Z) *+4 IF NUM X'F'
0x102d00…1b0680 [0x26e]: Pad {f00=0x0080, f01=0x0190, f02=»BLE P LDR WK4,WK3 COPY P SLA WK4,2 AND MULTIPLY BY 8 & P IFT PARM=TEST J " P RF(O) OVFL ABORT ON OVERFLOW ` P XIF P ADR WK3,WK4 OBTAIN RESULT P IFT PARM=TEST " P RF(O) OVFL ABORT ON OVERFLOW P XIF P* P* A
0x102d00…1b0680 [0x26f]: Pad {f00=0x0080, f01=0x0190, f02=» EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV P* X P* GET NEXT DIGIT: b P* | P LDR WK1,WK2 GET RIGHT DIGIT P C1R P3,P3 WAS IT ASKED FOR? $ P RB(Z) MVDTB1 YES: GO PROCESS IT P ADK P2,1 BUM] POINT
0x102d00…1b0680 [0x270]: Pad {f00=0x0080, f01=0x0190, f02=»NE) MVDTB1 NO, PROCESS THIS BYTE (32K SAFE) P* RF MVDTB2 GO STORE RESULT 4 T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV X P* & P* STORE RESULT ACCORDING TO SIGN: P* PMVDTB2 LCR WK1,OP2A GET SIGN
0x102d00…1b0680 [0x271]: Pad {f00=0x0080, f01=0x0190, f02=»K3,WK3 2'S COMPLEMENT: P ADK WK3,1 P XIF 0 P IFT COMP=852 < P NGR WK3,WK3 2'S COMPLEMENT R P XIF v P PMVDTB3 EQU * & P STR WK3,OP1A STORE BINARY RESULT P RTN PS T P EJECT I:MOV I:MOV I:MOV I:MOV I:MOV
0x102d00…1b0680 [0x272]: Pad {f00=0x0080, f01=0x0190, f02=»ETUP: P* $ P LDK P3,0 LEFT/RIGHT DIGIT FLAG 8 P LDK WK2,X'B0' DEFAULT SIGN FOR ZERO VALUES 76-03-01 @ P* | P* PACK CHARACTER: P* " PPK1 SUK P1,1 BUMP OP1 POINTER P LDR WK1,WK3 KEEP LAST DIGIT P SUK P2,1 BUMP OP2 POI
0x102d00…1b0680 [0x273]: Pad {f00=0x0080, f01=0x0190, f02=»SIGN ~ P CWR OP2A,P2 P RF *+4 P XIF 0 " P CWR P2,OP2A BEYOND OP2 SIGN? < * P RF(L) PK21 YES: DONT PACK THIS FIGURE b P LCR WK3,P2 ELSE GET CHAR P SUK WK3,'0' NUMERIC TEST: P RF(N) NONNUM P CWK WK3,9 * P RB(P) PK1+4 I
0x102d00…1b0680 [0x274]: Pad {f00=0x0080, f01=0x0190, f02=»ADING MINUS f P* PPK21 EQU * . P XRK P3,1 FLIP LEFT/RIGHT DIGIT INDICATOR 0 ( P RB(P) PK1+2 GO PROCESS RIGHT DIGIT b P CWR P1,OP1A AT OP1 SIGN? " P RF(E) SETSGN YES: GO SET SIGN P LDR P3,P3 SEARCHIN' SIGN ? P RB(N) PK1+4 YES
0x102d00…1b0680 [0x275]: Pad {f00=0x0080, f01=0x0190, f02=» I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV I:MOV P* J * P* NONNUMERIC (CODE 20-2F) CHARACTER: T P* & PNONNUM ADK WK3,'0'-'-' MINUS SIGN? ( P RB(NZ) PK1+4 NO: TAKE DEFAULT PLUS " P LDK WK2,X'D0' YES: TAKE MINUS P R
0x102d00…1b0680 [0x276]: Pad {f00=0x0080, f01=0x018e, f02=»CHIN' SIGN r & P IFT CORE=32 32 K SAFE SEQUENCE P TNM P2,OP2A < P RF(NN) *+6 EQUAL SIGN P P CWR OP2A,P2 n P RF *+4 P XIF $ P CWR P2,OP2A AT BEGIN OF STRING? P RB(G) PK1+4 NO: GET A SIGN 0 P* ORR WK4,WK1 UPDATE LEADING ZER
0x102d00…1b0680 [0x277]: Pad {f00=0x0080, f01=0x0190, f02=» . P ORR WK2,WK1 MERGE SIGN WITH LEADING DIGIT P SCR WK2,P1 STORE BYTE 6 P RTN PS T P* d P IFT PARM=TEST n P* P* OVERFLOW ERROR HANDLER: P* POVFL EQU * P ABL I:ERR8 P XIF P P* . P EJECT I:M
0x102d00…1b0680 [0x278]: Pad {f00=0x0081, f01=0x0190, f02=» P* " P LCR A1,A9 GET FIRST CHARACTER P SRL A1,4 RIGHT ALIGN 8 P ANK A1,X'0F' GET SIGN V P ADK A1,' ' ADD SPACE t P SCR A1,A10 STORE SIGN . P ADKL A10,1 INCREMENT STRING BASE POINTER P CWR A10,A6 ENF OF STRING ? P RF(
0x102d00…1b0680 [0x279]: Pad {f00=0x0081, f01=0x0190, f02=»G BCD SPACES (X'F':S) P* & PUP10 LCR A1,A9 GET FIRST CHARACTER ( P CWR A7,A2 LEFT DIGIT ? R P RF(NE) *+4 NO! r P SRL A1,4 RIGHT ALIGN P ANK A1,X'0F' GET DIGIT P CWK A1,X'0F' BCD SPACE ? P RF(NE) UP20 N0! . P XRK A7,
0x102d00…1b0680 [0x27a]: Pad {f00=0x0081, f01=0x018e, f02=»A2 LEFT DIGIT P RB(G) UP10 YES! " P ADKL A9,1 INCREMENT BCD BASE . P CWR A9,A5 END OF BCD ? T P RF(E) UPRET YES; RETURN t P RB UP10 NEXT CHARACTER P* < P* SKIP CHARACTERS FROM LEFT IF THE NUMBER OF CHARACTERS 8 P* TO MOVE E
0x102d00…1b0680 [0x27b]: Pad {f00=0x0081, f01=0x0190, f02=» * P ADR A2,A2 CONVERT TO NUMBER OF DIGITS ! P RF(O) UPRET OVERFLOW ! 2 P LDR A1,A6 GET END OF STRING ! P ( P SUR A1,A10 SUBTRACT START OF STRING ! t P ANR A7,A7 FIRST DIGIT ? ! P RF(P) *+6 RIGHT DIGIT ! P RF(NN) *+6 NO! ! " P LDK A7,1 INDICATE L
0x102d00…1b0680 [0x27c]: Pad {f00=0x0081, f01=0x018e, f02=»2 K BYTE EXCESS ? ! P RF(NN) *+8 NO! " * P CWR A2,A1 LENGTH OF A1>LENGTH OF A2 ? " 2 P RF(G) UP50 YES! " ` P RF *+6 " x * P CWR A1,A2 LENGTH OF A1>LENGTH OF A2 ? " P RF(G) UP50 " . P XRK A7,1 FLIP LEFT/RIGHT DIGIT INDICATOR " P RB(P) UP30 RI
0x102d00…1b0680 [0x27d]: Pad {f00=0x0081, f01=0x0190, f02=» . P EJECT I:MOV I:MOV I:MOV I:MOV # P* # 6 P* MOVE BCD DIGITS TO STRING # @ , P* PAD WITH NULL CHARACTERS TO THE RIGHT # d P* # PUP50 LCR A1,A9 GET CHARACTER # P ANR A7,A7 RIGHT DIGIT ? # P RF(P) *+4 YES! # P SRL A1,4 RIGHT
0x102d00…1b0680 [0x27e]: Pad {f00=0x0081, f01=0x018e, f02=»1 # P CWR A10,A6 END OF STRING ? $ P RF(E) UPRET YES;RETURN $ . . P XRK A7,1 FLIP LEFT/RIGHT DIGIT INDICATOR $ N P RB(P) UP50 RIGHT DIGIT $ P RB(N) UP60 END OF BCD $ " P ADKL A9,1 INCREMENT BCD BASE $ P CWR A9,A5 END OF BCD ? $ P RB(NE
0x102d00…1b0680 [0x27f]: Pad {f00=0x0081, f01=0x401c, f02=» P % P END % @ % STRING ? $ P RF(E) UPRET YES;RETURN $ . . P XRK A7,1 FLIP LEFT/RIGHT DIGIT INDICATOR $ N P RB(P) UP50 RIGHT DIGIT $ P RB(N) UP60 END OF BCD $ " P ADKL A9,1 INCREMENT BCD BASE $ P CWR A9,A5 END OF BCD ? $ P RB(NE
0x102d00…1b0680 [0x280]: Pad {f00=0x0081, f01=0x2008, f02=» & * COMMON RETURN JUMP: P* & , PRETURN ABL TRACE2 RETURN TO INTERPRETER 0 P* ` P IFT PARM=TEST j P* P* OVERFLOW ERROR HANDLER: P* POVFL LDK WK1,2 P ABL ERROR P XIF P P* P P END
0x102d00…1b0680 [0x281]: Pad {f00=0x0081, f01=0x018e, f02=» [ [ $ [ [ n I:MOV I:NTFA o * , ( >h ; o B I:SUB o r , ( ( Z P [ 9a Z o I:ADD o , ( $" T 9d! P [ [ P o , ( V H
0x102d00…1b0680 [0x282]: Pad {f00=0x0081, f01=0x4082, f02=» o f $ i P 9 59D_ ! :d" 5 : p 8 4 TV 9V GP WV cW PF P % ` 1R 9P KT iP p 0 p l@ p ~ ( Z P [ 9a Z o I:ADD o , ( $" T 9d! P [ [ P o , ( V H
0x102d00…1b0680 [0x283]: Pad {f00=0x0081, f01=0x0190, f02=» 2 F IDENT I:DIV VER=T,REL=3.0,DATE=78-03-03 q I:DIV I:SH1R q : I:DIV q R I:ERR2 q d I:ERR1 q v , ( 0 !0 " T q , ( *V &V P = q , ( ; ;@ R P
0x102d00…1b0680 [0x284]: Pad {f00=0x0081, f01=0x0190, f02=» 6 [ q , ( [ [ [ $ [ [ r * I:MOV I:NTFAL r Z I:SUB r r , ( r , ( P z " ! P ! R 2` r , ( + z " P ! R 2` { 1 ! {
0x102d00…1b0680 [0x285]: Pad {f00=0x0081, f01=0x0190, f02=» [ Q [ r x I:ADD s * & g( { R [ _ s ( , ( Z ! Z s V , ( $ Z %_P [ Q s , ( P R [ Z { s , ( z 9e! W Z
0x102d00…1b0680 [0x286]: Pad {f00=0x0081, f01=0x406c, f02=»P UW aP iR qR yV T W P P ;Q s v Y aQB wR Q* R W t 2 t V@ t h Z ! Z s V , ( $ Z %_P [ Q s , ( P R [ Z { s , ( z 9e! W Z
0x102d00…1b0680 [0x287]: Pad {f00=0x0081, f01=0x40ce, f02=» 2 F IDENT I:NTF VER=T,REL=3.0,DATE=78-03-03 u I:NTFAK u : I:NTFAK u L , ( Z H D & H u ` $ ! D % [ ( u 8 u @ u E,OP2T P IFT MAXL=255 P ANK OP2E,MAXL P X
0x102d00…1b0680 [0x288]: Pad {f00=0x0081, f01=0x0190, f02=» 2 F IDENT I:EDT VER=T,REL=3.0,DATE=78-03-03 v F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:EFLI I:ETABL I:EXIT I:ETXT v : F B I:ECPY I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC` I:EFIL I:EPICN v , ( !! gg++ v , ( ! L
0x102d00…1b0680 [0x289]: Pad {f00=0x0081, f01=0x000a, f02=» 0 8 @ H P
0x102d00…1b0680 [0x28a]: Pad {f00=0x0081, f01=0x0190, f02=» $ P IDENT I:MUL UPD 78-02-28/ST P REL 78-04-01 #3.1 , P UPD 77-02-01/ULJO H P REL 77-12-07 #2.4 d P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2 P REL 77-04-29 #2.2
0x102d00…1b0680 [0x28b]: Pad {f00=0x0081, f01=0x0190, f02=» | P UPD 76-11-22/CWA P REL 76-11-15 #1.2 $ P REL 76-10-07 #1.1 @ P UPD 76-10-05/CWA P UPD 76-04-05 #1 x P REL #1,76-06-15 P ( P********************************** & P* * &
0x102d00…1b0680 [0x28c]: Pad {f00=0x0081, f01=0x0190, f02=» P ENTRY I:MUL P ENTRY I:SH1L P . P EXTRN I:NTFA 6 P EXTRN I:MOV L P EXTRN I:ADD ` P EXTRN I:SUB t * P EXTRN I:ERR1 MIXED ARITHM ERROR EXIT & P EXTRN I:ERR2 ILLEGAL OPERAND TYPE P EXTRN I:ERR9 STACK OVERFLOW P
0x102d00…1b0680 [0x28d]: Pad {f00=0x0081, f01=0x0190, f02=» PSETCR EQU 1 PMAXL EQU 255 P* 0 P* EMUL ROUTINE CALL: : P* X ( PEMUL FORM 16=/F6A1,16=I:NTFA,16,8,8 b T P EJECT I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL P* ( P* TEMPORARY INTERPRETER R
0x102d00…1b0680 [0x28e]: Pad {f00=0x0081, f01=0x018e, f02=» OPCODE REGISTER ( POP1A EQU A10 OPERAND 1 BASE ADDRESS $ POP1E EQU A6 OPERAND 1 END " D ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR l " POP2A EQU A9 OPERAND 2 ADDRESS $ POP2E EQU A5 OPERAND 2 END " * POP2T EQU A3 OPERAND 2 TYPE INDICATIO
0x102d00…1b0680 [0x28f]: Pad {f00=0x0081, f01=0x018e, f02=» POPCD EQU A11 OPCODE P* $ P* NON-TEMPORARY REGISTERS: . P* R PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER ~ PTCA EQU A13 TCA BASE ADDRESS P* ( P* BASE AND POINTER REGISTER USAGE: P* PB3 EQU A
0x102d00…1b0680 [0x290]: Pad {f00=0x0081, f01=0x0190, f02=» v P* ( P* TERMINAL STACK BASE DISPLACEMENT P* > PSTKB EQU 2 H PSTKE EQU -2 Z P* n P* x P* BIT MASKS: P* ( PARITHB EQU X'10' ARITHMETIC BASE BIT PNUMBIT EQU X'20' NUMERIC BIT T P EJECT I:MUL I:MUL
0x102d00…1b0680 [0x291]: Pad {f00=0x0081, f01=0x0190, f02=» USAGE: * P* * P****************** , P H P* STACK (PS): P P f P******** n P* * ~ 4 P** O2 ** PARAMETERS FOR OPERAND 2 (MULTIPLIER) P* * P******** P* * 6 P** O1 ** PARAMETER
0x102d00…1b0680 [0x292]: Pad {f00=0x0081, f01=0x0190, f02=» P******** P* * P** PD ** PARAMETERS FOR MR $ P* * H P******** X P* AC * ADDITION COUNTER h P******** P* PC * POSITION COUNTER P******** P* * @ P* MC * TEMPORARY STORAGE FOR SHIFTED M
0x102d00…1b0680 [0x293]: Pad {f00=0x0081, f01=0x0190, f02=» * P******** T P EJECT I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL P* v P* STACK DISPLACEMENTS: P* PO2 EQU 4 PO1 EQU 8 PPM EQU 12 PPD EQU 16 PAC EQU 18 PPC EQU 20
0x102d00…1b0680 [0x294]: Pad {f00=0x0081, f01=0x018e, f02=»UL I:MUL I:MUL I:MUL ` P* ( P* MULTIPLICATION ENTRY: 2 P* R PI:MUL EQU * $ P LD WK2,STKB,TCA GET STACK BASE p P CMR WK2 RESET STACK $ P LDR WK2,OP2T GET OP2 DESCRIPTOR P IFT PARM=TEST . P ANR WK2,OP1T TEST AGAIN
0x102d00…1b0680 [0x295]: Pad {f00=0x0081, f01=0x0190, f02=» P LDR WK1,OP2T GET OP1 DESCR. ( P XRR WK1,OP1T TEST AGAINST OP1 DESCR ( 2 P ANK WK1,ARITHB+NUMBIT CHECK ARITHM BASE EQUAL T P ABL(NZ) I:ERR1 REPORT ERROR P XIF " P ANK WK2,ARITHB SEE IF DECIMAL P RF(NZ) DECIMAL YES P EJECT I:MUL
0x102d00…1b0680 [0x296]: Pad {f00=0x0081, f01=0x0190, f02=»NN) *+6 POSITIVE P NGR WK1,WK1 MAKE POSITIVE " P C1R SIGN,SIGN COMPLEMENT SIGN : $ P LDR* WK2,OP2A GET MULTIPLICATOR ` P RF(NN) *+6 POSITIVE P NGR WK2,WK2 MAKE POSITIVE " P C1R SIGN,SIGN COMPLEMENT SIGN P SUR RES,RES CLEAR RESULT
0x102d00…1b0680 [0x297]: Pad {f00=0x0081, f01=0x0190, f02=»SULT z P P RF(O) *+4 OVERFLOW? P RF *+4 NO! 0 " P ADK OVFL,1 INDICATE OVERFLOW D ( PBMUL20 ANKL WK2,/7FFF SKIP SIGN BIT j P RF(Z) BMUL25 P SLA WK1,1 NEXT POWER OF 2 P RF(O) *+4 OVERFLOW? P RF *+4 NO! " P ADK OVFL,1
0x102d00…1b0680 [0x298]: Pad {f00=0x0082, f01=0x0190, f02=»BMUL30 NO! P NGR RES,RES NEGATE RESULT " P LDK WK2,2 SET NEGATIVE RESULT 4 * PBMUL30 ANR OVFL,OVFL CHECK IF OVERFLOW Z P RF(Z) *+6 NO! P LDK WK2,3 INDICATE OVERFLOW P RF BMUL40 & P ANR RES,RES CHECK IF ZERO RESULT P RF(NZ) *+4
0x102d00…1b0680 [0x299]: Pad {f00=0x0082, f01=0x0190, f02=» , P STR RES,OP1A STORE RESULT IN OPERAND 1 P RTN PS RETURN 4 T P EJECT I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL J P* ( P* DECIMAL MULTIPLICATION ALGORITHM: P* PDECIMAL EQU * P* " P* ALLOC
0x102d00…1b0680 [0x29a]: Pad {f00=0x0082, f01=0x0190, f02=»-1 MAKE EVEN NO. OF WDS P XIF " P IFT MAXL=4095 . ( P ANKL OP1E,-2 MAKE EVEN NO. OF WDS D P XIF p P | P IFT PARM=TEST " P LDR WK1,PS GET STACK POINTER P SUR WK1,OP1E ITEM LENGTH P SUR WK1,OP1E TWO TIMES P SUR* WK
0x102d00…1b0680 [0x29b]: Pad {f00=0x0082, f01=0x0190, f02=»OP1E RESERVE FOR ITEMS P LDR WK2,PS ADDRESS TO MR & P SUR PS,OP1E RESERVE FOR TWO ITEMS @ T P EJECT I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL j P* P* FORM PARAMETER BLOCKS: P* P ST OP1T,O1-2-STKI
0x102d00…1b0680 [0x29c]: Pad {f00=0x0082, f01=0x0190, f02=»-STKI,PS P SUR WK2,OP1E P ST WK2,PD-STKI,PS & P IFT MAXL=255 @ P ECR OP1E,OP1E V P ANK OP1T,/F0 l P ORR OP1T,OP1E P ST OP1T,PM-2-STKI,PS P ST OP1T,PD-2-STKI,PS P XIF P IFT MAXL=4095 P CWR WK1,OP1E
0x102d00…1b0680 [0x29d]: Pad {f00=0x0082, f01=0x018e, f02=»UL I:MUL I:MUL I:MUL ` P* ( $ P* INITIALIZE POSITION COUNTER: 2 P* Z P SRL OP1E,8 COMPUTE LENGTH d P ADR OP1E,OP1E IN BCD WDS P STR OP1E,PS STORE IN PC P* P* ADJUST STACK POINTER: P* P SUKL PS,STKI
0x102d00…1b0680 [0x29e]: Pad {f00=0x0082, f01=0x0190, f02=» P EMUL I:MOV,PD,O2 P* " P* ZERO RESULT , P* B P EMUL I:SUB,O1,O1 L T P EJECT I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL f P* P************************* P* *
0x102d00…1b0680 [0x29f]: Pad {f00=0x0082, f01=0x0190, f02=»* " P* FETCH MULTIPLIER LSD TO AC: P* 0 P LD WK1,PC,PS GET DIGIT # : P SUK WK1,1 DECREMENT $ P RF(Z) MUL50 BREAK WHEN AT SIGN x P LDR WK2,WK1 P ST WK1,PC,PS * P SRL WK1,1 BYTE DISPLACEMENT FROM END . P AD WK1,PD,PS ADD
0x102d00…1b0680 [0x2a0]: Pad {f00=0x0082, f01=0x0190, f02=»FT EVEN DIGIT P ANK WK1,15 ISOLATE DIGIT P SUK WK1,15 MODIFY 8 P RF(Z) *+4 NUMERICAL R P ADK WK1,15 SPACES p P C1R WK1,WK1 1'S COMPLEMENT " P ST WK1,AC,PS STORE IN ADD CTR T P EJECT I:MUL I:MUL I:MUL I:MUL I:MUL
0x102d00…1b0680 [0x2a1]: Pad {f00=0x0082, f01=0x0190, f02=» NO ADD REQD. P EMUL I:ADD,O1,PM P IFT SETCR=1 0 $ P LD WK2,STKB,TCA GET STACK BASE D P LD WK1,-2,WK2 PSW l * P ORRS WK1,WK2 SAVE CONDITION ON STACK P XIF P RB MUL30 P* P* SHIFT MULTIPLIER 1 LEFT: P* P
0x102d00…1b0680 [0x2a2]: Pad {f00=0x0082, f01=0x0190, f02=»:MUL I:MUL I:MUL I:MUL b P* * P* POSTPROCESSING: 4 P* N 2 P* CHANGE RESULT SIGN IF MULTIPLIER NEGATIVE: X P* 4 PMUL50 LC* WK1,PD,PS GET SIGN BYTE OF MULTIPLIER P SUK WK1,X'C0' . P RF(L) MUL60 NO CHANGE IF POSITIVE O
0x102d00…1b0680 [0x2a3]: Pad {f00=0x0082, f01=0x0190, f02=»NVERT " P SC* WK1,O1,PS AND STORE BACK T P EJECT I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL I:MUL 4 PMUL60 EQU * P IFT SETCR=1 P* P* SET CONDITION REGISTER P* $ P LD WK2,STKB,TCA GET STACK BASE
0x102d00…1b0680 [0x2a4]: Pad {f00=0x0082, f01=0x0190, f02=»ATE OVERFLOW $ P SC WK1,-2,WK2 STORE CR ON STACK PMUL62 EQU * < P XIF P P* $ P* DEALLOCATE TEMPORARY STORAGE: f P* P IFT MAXL=255 $ P LC WK1,PM-2,PS FETCH PM LENGTH P ANK WK1,255 P ADR WK1,WK1 P ADK WK1,STK
0x102d00…1b0680 [0x2a5]: Pad {f00=0x0082, f01=0x0190, f02=»UL I:MUL I:MUL I:MUL I:MUL I:MUL r P* : ( P* SH1L: SHIFT OPERAND 1 STEP LEFT: D P* p PI:SH1L EQU * z P LDK WK1,0 P* PSH1L00 SUK P2,1 BUMP POINTER P LCR WK1,P2 FETCH BYTE P CWR P2,OP2A AT SIGN BYTE?
0x102d00…1b0680 [0x2a6]: Pad {f00=0x0082, f01=0x0150, f02=»ONCE MORE p P RB SH1L00 P* $ P* HANDLE SIGN BYTE: . P* J * PSH1L10 ECR WK2,WK1 GET PREVIOUS DIGIT T P ANK WK1,X'F0' ISOLATE SIGN P SRL WK2,4 ALIGN DIGIT P ANK WK2,15 ISOLATE IT & P ORR WK1,WK2 APPEND DIGIT TO SIGN
0x102d00…1b0680 [0x2a7]: Pad {f00=0x0082, f01=0x2008, f02=» E p P RB SH1L00 P* $ P* HANDLE SIGN BYTE: . P* J * PSH1L10 ECR WK2,WK1 GET PREVIOUS DIGIT T P ANK WK1,X'F0' ISOLATE SIGN P SRL WK2,4 ALIGN DIGIT P ANK WK2,15 ISOLATE IT & P ORR WK1,WK2 APPEND DIGIT TO SIGN
0x102d00…1b0680 [0x2a8]: Pad {f00=0x0082, f01=0x0190, f02=» 2 F IDENT TRABUG VER=T,REL=3.0,DATE=78-03-03 TB:ENTK TB:ABT TB:RDC : P:BAS n , ( ~ TB:ABT TB:ENTK , ( ( ( ( T
0x102d00…1b0680 [0x2a9]: Pad {f00=0x0082, f01=0x0190, f02=» 9a : x TT:TID TT:MSG * , ( g @ P @ < TB:RDC l , ( A A "V # ( , ( D A P UW T A , ( P @ = W
0x102d00…1b0680 [0x2aa]: Pad {f00=0x0082, f01=0x0190, f02=» p , ( U ? A 2 A 4 A 6 A 8 A B , ( UT _ A : A < A > A @ A H A D A F @ , ( ( P A D A F , + - p , ( ; : ( X " , , ( P A F A D_@ X ,T , ( X
0x102d00…1b0680 [0x2ab]: Pad {f00=0x0082, f01=0x0190, f02=» B ? A 8_ A B " @ DT " @ F , ( E( _ @ HP A < A : " @ < 0 , ( T @ W @ < A W ` , ( W 0 W _2 , ( B P @ <& _8 , (
0x102d00…1b0680 [0x2ac]: Pad {f00=0x0082, f01=0x0190, f02=» A , ( _ ;a ]@ 1 _D 0 , ( J P 3P P , ( C @ :P @ < 1 "T @ W , ( @ @ < A 0 J P , ( R @ :P @ < 1
0x102d00…1b0680 [0x2ad]: Pad {f00=0x0082, f01=0x0190, f02=»" 1 p , ( J ] P @ < @ > @ @ @ BT @ , ( @ { R *9l! P &9d! ) @ , ( W P &9d & _ p , ( & A , ( A @ Z " ! , ( @
0x102d00…1b0680 [0x2ae]: Pad {f00=0x0082, f01=0x0190, f02=» Y T @ :P @ <! 5 = TT:TRP 0 , ( Q( y P @ < W B TT:TON r , ( @ B A T @ W @ , ( < A " A A @ ( , ( A " @ @
0x102d00…1b0680 [0x2af]: Pad {f00=0x0082, f01=0x0190, f02=» h TT:REP , ( R # @ < @ 2P @ 4P V TT:RMD J TT:RON , ( A@ R % ) @ B I I A n TC:RMP , ( [ W P R )W a , ( w A P @ < @ 2P @
0x102d00…1b0680 [0x2b0]: Pad {f00=0x0082, f01=0x0190, f02=» TT:VON , ( $ I I A W * & @R I W P R )W F , ( A EQ GR t , ( LO NE NG NL R @ , ( ; < @ 4 @ 2P P , ( H Y
0x102d00…1b0680 [0x2b1]: Pad {f00=0x0082, f01=0x000a, f02=» X ` h p x
0x102d00…1b0680 [0x2b2]: Pad {f00=0x0082, f01=0x018e, f02=» " P IDENT I:DIV UPD 78-02-28/ST P REL 78-04-01 #3.1 * P UPD 77-02-01/ULJO F P REL 77-12-07 #2.4 b P REL 77-12-07 #2.4 ~ P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2 P REL 77-04-29 #2.2 P
0x102d00…1b0680 [0x2b3]: Pad {f00=0x0082, f01=0x018e, f02=» z P REL 76-11-15 #1.2 P REL 76-10-07 #1.1 $ P UPD 75-08-02 #2 @ P REL #1,76-06-15 P v P**************************** ~ P* * P* TRALA DIVISION HANDLER * P* *
0x102d00…1b0680 [0x2b4]: Pad {f00=0x0082, f01=0x0190, f02=» P EXTRN I:SUB P EXTRN I:MOV P EXTRN I:CPA 0 P EXTRN I:NTFA D * P EXTRN I:ERR1 MIXED ARITHM ERROR EXIT Z & P EXTRN I:ERR2 ILLEGAL OPERAND TYPE P EXTRN I:ERR9 STACK OVERFLOW , P EXTRN I:ERRC DIV BY ZERO ERROR HANDLER P
0x102d00…1b0680 [0x2b5]: Pad {f00=0x0082, f01=0x0190, f02=»T PSETCR EQU 1 PMAXL EQU 255 P* 2 P* OPCODE VALUE < P* T PDVRCD EQU 12 ^ T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV r P* ( P* TEMPORARY INTERPRETER REGISTERS: P* P
0x102d00…1b0680 [0x2b6]: Pad {f00=0x0082, f01=0x0190, f02=» EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 LENGTH , ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR P " POP2A EQU A9 OPERAND 2 ADDRESS | POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION P* P* BINARY DI
0x102d00…1b0680 [0x2b7]: Pad {f00=0x0082, f01=0x0190, f02=»2 z PSIGN EQU A6 P* P* ( POPCD EQU A11 OPCODE 2 P* N P* NON-TEMPORARY REGISTERS: X P* | PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS P* ( P* BASE AND POINTER
0x102d00…1b0680 [0x2b8]: Pad {f00=0x0083, f01=0x0190, f02=» A7 STORE POINTER P EJECT I:DIV P* 0 ( P* TERMINAL STACK BASE DISPLACEMENT : P* f PSTKB EQU 2 p PSTKE EQU -2 P* P* P* BIT MASKS: P* ( PARITHB EQU X'10' ARITHMETIC BASE BIT PNUMBIT EQU X'20' NUM
0x102d00…1b0680 [0x2b9]: Pad {f00=0x0083, f01=0x0190, f02=»PLACEMENTS: P* PO2 EQU 4 PO1 EQU 8 . PDS EQU 12 > PDN EQU 16 P PSC EQU 18 b PPC EQU 22 t POC EQU 20 PSQ EQU 21 P* P* STACK INCREMENT: P* PSTKI EQU 22 P* T P EJECT I:DIV
0x102d00…1b0680 [0x2ba]: Pad {f00=0x0083, f01=0x0190, f02=»GE: * P* * P****************** ( P B P* STACK (PS) J P ` P******** h P* * x ( P** O2 ** PARAMETERS FOR OPERAND 2 P* * P******** P* * ( P** O1 ** PARAMETERS FOR OPERAND 1
0x102d00…1b0680 [0x2bb]: Pad {f00=0x0083, f01=0x0190, f02=»* * , P** DN ** PARAMETERS FOR DIVIDEND (OP1) P* * @ P******** P " P* SC * SUBTRACTION COUNTER ` P******** * P* OC SQ* OPCD - ROUNDING INDICATOR P******** P* PC * SHIFT COUNTER P******** P*
0x102d00…1b0680 [0x2bc]: Pad {f00=0x0083, f01=0x018e, f02=»TORAGE FOR DIVIDEND (OP1) z P* * " P******** 2 T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV B PI:DIV EQU * $ P LDR WK2,OP2T GET OP2 DESCRIPTOR P IFT PARM=TEST . P ANR WK2,OP1T TEST AGAINST OP1
0x102d00…1b0680 [0x2bd]: Pad {f00=0x0083, f01=0x0190, f02=» P LDR WK1,OP2T GET OP1 DESCR. ( P XRR WK1,OP1T TEST AGAINST OP1 DESCR ( 2 P ANK WK1,ARITHB+NUMBIT CHECK ARITHM BASE EQUAL T ( P ABL(NZ) I:ERR1 REPORT ERROR IF NOT P XIF " P ANK WK2,ARITHB SEE IF DECIMAL P RF(NZ) DECIMAL YES P EJECT
0x102d00…1b0680 [0x2be]: Pad {f00=0x0083, f01=0x0190, f02=»S1 P NGR RP,RP MAKE POSITIVE P C1R SIGN,SIGN FLIP FLIPFLOP * PS1 LDR* RQ,OP2A GET DIVISOR N P RF(NN) S2 r P NGR RQ,RQ MAKE POSITIVE P C1R SIGN,SIGN FLOP FLIPFLOP PS2 SUR RES,RES CLEAR RESULT P LDR WK2,RQ P ANKL WK2,
0x102d00…1b0680 [0x2bf]: Pad {f00=0x0083, f01=0x018e, f02=» P ADR WK2,WK1 P LDK POW2,1 GET 2**0 P EXR WK2 EXECUTE SHUFT 6 P LDR WK2,RP SAVE DIVIDEND T 2 PLOOP LDR WK1,RP SAVE RP FOR SIGN COMPARISATION v P SUR RP,RQ TRY TO SUBTRACT $ P TNM RP,WK1 SEE IF SIGN CHANGED P RF(N) L1 IT DID!
0x102d00…1b0680 [0x2c0]: Pad {f00=0x0083, f01=0x0190, f02=» P RF L2 , PL1 ADR RP,RQ ADD BACK WHEN SIGN CHANGED * PL2 SRL POW2,1 TAKE PRECEEDING 2-POWER B P SRL RQ,1 p P RB(NZ) LOOP & PENDLOP LDR WK1,WK2 REMAINDER=ZERO? P RF(Z) L3 YES! P LDR WK2,OPCD LOAD OPCODE & P ANK WK2,/FF OPCOD
0x102d00…1b0680 [0x2c1]: Pad {f00=0x0083, f01=0x0190, f02=» P CWR WK1,WK2 >0.5? P RF(L) L3 NO! P ADK RES,1 ADD ONE TO RESULT 4 PL3 LDK WK2,1 X , PSETSGN LDR SIGN,SIGN TEST OPERAND SIGNS l P RF(NN) L4 EQUAL SIGNS P NGR RES,RES NEGATE RESULT P LDK WK2,2 ( PL4 ANR RES,RES CHECK IF ZERO
0x102d00…1b0680 [0x2c2]: Pad {f00=0x0083, f01=0x0190, f02=» SC WK2,-2,WK1 , P STR RES,OP1A STORE RESULT IN OPERAND 1 P RTN PS F T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV V P* P* DECIMAL DIVISION: P* PDECIMAL EQU * P* , P* ALLOCATE
0x102d00…1b0680 [0x2c3]: Pad {f00=0x0083, f01=0x0190, f02=»E,MAXL-1 P XIF P IFT MAXL=4095 P ANKL WK1,-4 MAKE IT EVEN 2 P XIF T P IFT PARM=TEST ` " P LDR WK1,PS GET STACK POINTER v P SUR WK1,OP1E ITEM LENGTH P SUR WK1,OP1E TWO TIMES P SUR* WK1,TCA SUB PA , P SUK WK1,STK
0x102d00…1b0680 [0x2c4]: Pad {f00=0x0083, f01=0x0190, f02=» T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV P* P* PREPARE PARAMETER LISTS: f P* P ST OP1A,O1-STKI,PS P ST OP1T,O1-2-STKI,PS P ST OP2A,O2-STKI,PS P ST OP2T,O2-2-STKI,PS P A
0x102d00…1b0680 [0x2c5]: Pad {f00=0x0083, f01=0x018e, f02=» ANK OP1T,X'F0' P ORR OP1T,OP1E P ST OP1T,DN-2-STKI,PS . P ST OP1T,DS-2-STKI,PS L P SUKL PS,STKI j P* P* SAVE OPCODE SOMEWHERE: P* P SC OPCD,OC,PS T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV
0x102d00…1b0680 [0x2c6]: Pad {f00=0x0083, f01=0x0190, f02=» 0 P* MOVE DIVISOR TO TEMPORARY ACCUMULATOR DS: P* 8 P EMUL I:MOV,DS,O2 B P* P* CLEAR QUOTIENT (OP1) f P* P EMUL I:SUB,O1,O1 T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV P*
0x102d00…1b0680 [0x2c7]: Pad {f00=0x0083, f01=0x0190, f02=» P ANK WK1,240 2 P RF(Z) DIVBYZ ABORT PROCESSING IF DIV BY ZERO P CCK WK2,X'C000' NEG. SIGN? N P RF(L) *+6 r & P XRK WK2,X'60' MAKE SIGN POSITIVE P SCR WK2,OP1A P* P* PROCESS SIGN OF DIVIDEND* P* P LC* WK2,DN,PS
0x102d00…1b0680 [0x2c8]: Pad {f00=0x0083, f01=0x018e, f02=».SIGN? | P RF(L) *+8 P XRK WK2,X'60' MAKE POSITIVE P SC* WK2,DN,PS D P* Z P* DETERMINE QUOTIENT SIGN: d P* " P XRK WK1,X'B0' MAKE VALID SIGN P ANK WK1,240 AND ZERO DIGIT * P SC* WK1,O1,PS (PS SET FROM LAST EMUL , P
0x102d00…1b0680 [0x2c9]: Pad {f00=0x0083, f01=0x0190, f02=» P* P* ALIGN DIVISOR IN DS P* , $ P LDK P3,0 INITIALIZE POS COUNTER 6 8 PDIVALN EMUL I:CPA,DS,DN SHIFTED DIVISOR > DIVIDEND? ^ P RF(G) DIV05 YES: THROUGH ( P EMUL I:SH1L,DS,DS ELSE SHIFT 1 MORE P SUK P3,1 COUNT SHIFTS P RB
0x102d00…1b0680 [0x2ca]: Pad {f00=0x0083, f01=0x0190, f02=» ST P3,PC,PS STORE SHIFT COUNTER T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV ( P P****************** P* * P* DIVIDE LOOP: * P* * P****************** P
0x102d00…1b0680 [0x2cb]: Pad {f00=0x0083, f01=0x0190, f02=» COMP=852 P CM SC,PS P XIF $ P IFT COMP=855 0 P LDK WK1,0 F P ST WK1,SC,PS X P XIF n P* z 2 P* INNER LOOP: SUBTRACT DIVISOR FROM DIVIDEND P* PDIV20 EMUL I:SUB,DN,DS $ P LDK WK1,X'C0' COMPARISON VALUE * P
0x102d00…1b0680 [0x2cc]: Pad {f00=0x0083, f01=0x0190, f02=»B DIV20 T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV P* h $ P* RESET DN AND UPDATE QUOTIENT: r P* PDIV30 EMUL I:ADD,DN,DS , P EMUL I:SH1L,O1,O1 SHIFT PREVIOUS DIGITS P IFT MAXL=255 P L
0x102d00…1b0680 [0x2cd]: Pad {f00=0x0083, f01=0x0190, f02=» ( P AD WK1,O1,PS CALCULATE A(LAST BYTE) P SUK WK1,1 4 $ P LCR WK2,WK1 FETCH LAST 2 DIGITS F " P AD WK2,SC,PS ENTER NEW DIGIT n P SCR WK2,WK1 UPDATE QUOTIENT P RB DIV10 LOOP T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV
0x102d00…1b0680 [0x2ce]: Pad {f00=0x0083, f01=0x0190, f02=» P RF(G) DIV95 NO: THROUGH P* $ & P* ROUND RESULT IF DVR PROCESSING . P* X & P EMUL I:ADD,DN,DN DOUBLE REMAINDER b 4 P EMUL I:CPA,DN,O2 COMPARE 2*REMAINDER TO DIVISOR & P RF(L) DIV95 NO ROUNDING: THROUGH P* , P* ELSE SET UP CON
0x102d00…1b0680 [0x2cf]: Pad {f00=0x0083, f01=0x0190, f02=» ( P SC* WK1,DS,PS STORE CONSTANT VALUE T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV 4 P* P* ADD 1 TO QUOTIENT: P* P EMUL I:ADD,O1,DS P* 8 P* RETURN PROCESSING: DEALLOCATE TEMPORA
0x102d00…1b0680 [0x2d0]: Pad {f00=0x0083, f01=0x0190, f02=» t P ANK WK1,3 MASK CONDITION P RF DIVB10 STORE CONDITION * P XIF L PDIV97 EQU * X P IFT MAXL=255 l P LDK WK1,0 P LC WK1,DN-2,PS FETCH LENGTH P XIF P IFT MAXL=4095 P******NOT IMPLEMENTED****** P XIF P
0x102d00…1b0680 [0x2d1]: Pad {f00=0x0083, f01=0x0190, f02=» & PDIVBYZ LDK WK1,3 INDICATE OVERFLOW PDIVB10 LD WK2,STKB,TCA . $ P SC WK1,-2,WK2 STORE OFLO IN CR L P RB DIV97 t T P EJECT I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV I:DIV P* $ P* ENTRY I:SH1R : SHIFT 1 RIGHT
0x102d00…1b0680 [0x2d2]: Pad {f00=0x0083, f01=0x0190, f02=»ND ISOLATE P SCR WK2,WK3 P* & P ANK WK1,15 ISOLATE DIGIT 0 P SLL WK1,8 SHIFT TO POSITION R P* v P* SHIFT LOOP P* " PSH1R00 ADK WK3,1 BUMP POINTER P CWR WK3,OP1E AT END? & P RB(E) DIV99 RETURN THROUGH DIV99
0x102d00…1b0680 [0x2d3]: Pad {f00=0x0083, f01=0x402a, f02=»B SH1R00 P* ! P END ! @ ! & & P ANK WK1,15 ISOLATE DIGIT 0 P SLL WK1,8 SHIFT TO POSITION R P* v P* SHIFT LOOP P* " PSH1R00 ADK WK3,1 BUMP POINTER P CWR WK3,OP1E AT END? & P RB(E) DIV99 RETURN THROUGH DIV99
0x102d00…1b0680 [0x2d4]: Pad {f00=0x0083, f01=0x2008, f02=» " * SH1R00 ADK P2,1 BUMP POINTER CWR P2,OP1A AT END? 6 RF(E) SH1R10 R LCR WK1,P2 FETCH BYTE h SRC WK1,4 EXECUTE SHIFT SCR WK1,P2 STORE BYTE SRL WK1,4 ADJUST DIGIT ADK P2,1 BUMP POINTER RB SH1R
0x102d00…1b0680 [0x2d5]: Pad {f00=0x0083, f01=0x0190, f02=» ' : A8 P 8 = 8 P 8p R P '`# P&W 'p#{P ; R _ 8 = W * ;AV MW ;AV U I8 nZ = _ P = : 3 EJECT 1 SPACE 1 LIST 1^NLIST 1tDDIV 2 DDUM 2 IDENT 2|END CON 2KTAB z
0x102d00…1b0680 [0x2d6]: Pad {f00=0x0083, f01=0x0190, f02=»-HPROC ! PEND ! C)Z X)Z W)Z D)Z ')j , ): , @')j ):@')r )j , )r 6 A)6 P "P P $0P A)6Wj P P @TP )j A5 . . T2 @ P A)4 5X_> W A5 A5
0x102d00…1b0680 [0x2d7]: Pad {f00=0x0083, f01=0x0190, f02=» P P V P ;A<A A)3T U U W U +2 P ,( @)8 A. . )8 P F P 4 , P: 6 !+ P !- P P Q W % # T W @)8 3 T <D P _ A. . 9 _ P"
0x102d00…1b0680 [0x2d8]: Pad {f00=0x0084, f01=0x0190, f02=»T l , ( A.(@ [ ( ! T , ( _ !AAT A W !UUT @ P , < , ( !$ @ T A @ P , l , ( / W A a ( !,,P - , ( @ O _ P - , ( ( o _
0x102d00…1b0680 [0x2d9]: Pad {f00=0x0084, f01=0x0004, f02=»
0x102d00…1b0680 [0x2da]: Pad {f00=0x0084, f01=0x0190, f02=» & P IDENT I:NTF T,-1,1,-/76-09-14 P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2 P REL 77-04-29 #2.2
0x102d00…1b0680 [0x2db]: Pad {f00=0x0084, f01=0x0190, f02=».1 ~ P UPD 75-08-02 #1 P REL #1,76-06-15 & P @ ( P********************************** H & P* * t * P* ARITHMETICS INTERFACE ROUTINE * $$ & P* * ( P********************
0x102d00…1b0680 [0x2dc]: Pad {f00=0x0084, f01=0x0190, f02=» EQU 855 PTEST EQU 1 PNOTEST EQU 0 " PPARM EQU TEST 6 PSETCR EQU 0 L PMAXL EQU 255 ` T P EJECT I:NTF I:NTF I:NTF I:NTF I:NTF I:NTF I:NTF I:NTF t P* ( P* TEMPORARY INTERPRETER REGISTERS: P*
0x102d00…1b0680 [0x2dd]: Pad {f00=0x0084, f01=0x018e, f02=»1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 LENGTH . ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR R " POP2A EQU A9 OPERAND 2 ADDRESS ~ POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION P* POPCD EQU A
0x102d00…1b0680 [0x2de]: Pad {f00=0x0084, f01=0x0190, f02=» v PTCA EQU A13 TCA BASE ADDRESS P* , ( P* BASE AND POINTER REGISTER USAGE: 6 P* b PB3 EQU A8 STORE BASE l PP1 EQU OP1E LOAD POINTER PP2 EQU OP2E MODIFY POINTER PP3 EQU A7 STORE POINTER P* ( P* TERMINAL STACK BASE
0x102d00…1b0680 [0x2df]: Pad {f00=0x0084, f01=0x0190, f02=» BIT p PNUMBIT EQU X'20' NUMERIC BIT T P EJECT I:NTF I:NTF I:NTF I:NTF I:NTF I:NTF I:NTF I:NTF 0 P* @ P* ENTRY I:NTFA: PERFORM EMULATION OF ARITHMETIC INSTRUCTION P* PI:NTFA EQU * P LD WK2,4,PS PARAM.LIS
0x102d00…1b0680 [0x2e0]: Pad {f00=0x0084, f01=0x0190, f02=»M:S ^ $ P ADK WK1,4 ADJUST FOR EMUL CALL $ P ADR WK1,PS COMPUTE LIST POINTER 4 $ P LDR* OP1A,WK1 FETCH OP1 ADDRESS 0 P LD OP1T,-2,WK1 FETCH OP1 TYPE (AND LENGTH) P ECR OP1E,OP1T P IFT MAXL=255 P ANK OP1E,MAXL P XIF P IFT
0x102d00…1b0680 [0x2e1]: Pad {f00=0x0084, f01=0x018e, f02=»NTF I:NTF I:NTF I:NTF I:NTF j P* 2 P* FETCH OP2 PARAMETERS: < P* P LDK WK1,0 f P LC WK1,3,WK2 x P ADK WK1,4 P ADR WK1,PS P LDR* OP2A,WK1 P LD OP2T,-2,WK1 P ECR OP2E,OP2T P IFT MAXL=255
0x102d00…1b0680 [0x2e2]: Pad {f00=0x0084, f01=0x00aa, f02=» P* P* ADJUST RETURN ADDRESS P LDK WK1,4 . P ADS WK1,4,PS @ P* V P* BRANCH TO HANDLER: ` P* ~ P ABR* WK2 P P END S P LDR* OP2A,WK1 P LD OP2T,-2,WK1 P ECR OP2E,OP2T P IFT MAXL=255
0x102d00…1b0680 [0x2e3]: Pad {f00=0x0084, f01=0x2008, f02=» P* ADJUST RETURN ADDRESS P LDK WK1,4 . P ADS WK1,4,PS @ P* V P* BRANCH TO HANDLER: ` P* ~ P ABR* WK2 P P END S P LDR* OP2A,WK1 P LD OP2T,-2,WK1 P ECR OP2E,OP2T P IFT MAXL=255
0x102d00…1b0680 [0x2e4]: Pad {f00=0x0084, f01=0x018e, f02=»2,A1 COMP PRC ADDRESS P RF(NE) CHK120 P LD A3,2,A1 TEST TID 4 P RF(Z) CHK110 NO TID P P CWR A3,A11 l P RF(NE) CHK130 , PCHK110 LD A4,TT:RMD,A1 THIS TID SET MODE P ST* A4,TC:RMP P RF CHK130 PCHK120 SUK A2,1 P RB(
0x102d00…1b0680 [0x2e5]: Pad {f00=0x0084, f01=0x018e, f02=» P P* P* SOMETHING HAS HAPPENED P* 6 P @ ( PHALT LD A1,FIRST CHECK IF FIRST TIME H P RF(Z) HALT10 NO t " P LDK A1,'S'-'H' INDICATE START P CM FIRST $ PHALT10 ADK A1,'H' INDICATE HALT P CM TT:HLT RESET HALT P
0x102d00…1b0680 [0x2e6]: Pad {f00=0x0084, f01=0x018e, f02=» $ PPAUSE ST A1,STOPP SET STOP MODE P ST A11,TT:TID STORE TID 0 & P ST A12,TT:PRC AND PROGRAM COUNTER P P z P LDKL A7,'TB' ENTER DEBUGGER P LKM P DATA -4,TB:ENT P P LKM PAUSE THIS TERMINAL P DATA 5 T P EJECT
0x102d00…1b0680 [0x2e7]: Pad {f00=0x0084, f01=0x0190, f02=» P P CM STOPP RESET STOP & P LD A12,TT:PRC GET PROGRAM COUNTER ( P RB TC:CHK R T P EJECT TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK TRACHK T d P P* P* TC:ABT ABORT DEBUGGER P* P* ENTRY: CF A14,
0x102d00…1b0680 [0x2e8]: Pad {f00=0x0084, f01=0x0190, f02=»-4,TB:ABT P RTN A14 P " P * P* 2 P* TC:RDC RESTART DEBUGGER < P* ^ P* ENTRY: CF A14,TC:RDC h P* P* EXIT: RTN A14 P* A7: DESTR P* P PTC:RDC LDKL A7,'TB' P LKM P DATA -4,TB:RDC
0x102d00…1b0680 [0x2e9]: Pad {f00=0x0084, f01=0x0016, f02=»
0x102d00…1b0680 [0x2ea]: Pad {f00=0x0084, f01=0x0190, f02=» 0 P IDENT I:EDT P,3.1,78-02-20,870136940310 P REL 78-04-01 #3.1 8 P UPD 78-02-27/UKF T P REL 78-03-03 #3.0 p P UPD 77-11-28/UKF P REL 77-12-07 #2.4 P UPD 77-06-07/UKF P REL 77-09-07 #2.3 P REL 77-06-1
0x102d00…1b0680 [0x2eb]: Pad {f00=0x0084, f01=0x0190, f02=»7-02-16/ULJO P UPD 77-01-03/CWA P UPD 76-12-29/CWA 0 P REL 76-12-13 #1.3 L P UPD 76-11-24/POEG h P REL 76-11-15 #1.2 P UPD 76-11-12/POEG P UPD 76-10-19/CWA P REL 76-10-07 #1.1 P EXT 76-09-29/POEG
0x102d00…1b0680 [0x2ec]: Pad {f00=0x0084, f01=0x0190, f02=»KM P UPD 76-06-15 #1 P REL #1,76-06-15 & P @ 0 P******************************************* H 0 P* * | 0 P* INTERPRETER EDITING INSTRUCTION HANDLER * 0 P*
0x102d00…1b0680 [0x2ed]: Pad {f00=0x0084, f01=0x0190, f02=»TRY | * P ENTRY I:EDW EDIT FOR T:EDWR FUNCTION ( P ENTRY I:ED1 EDIT SUBSTRING (EDSUB) : & P ENTRY I:EDSK SKIP FUNCTION ENTRY f " P ENTRY I:EVT EVAL I:EBR TABLE P ENTRY I:EFLI FLINK P ENTRY I:ETAB FTAB P ENTRY I:EXIT EXIT P ENT
0x102d00…1b0680 [0x2ee]: Pad {f00=0x0084, f01=0x0190, f02=»NTRY I:ENL NEW LINE P ENTRY I:EOR END OF RECORD P ENTRY I:ECW CONTROL WORD > * P ENTRY I:ECWC CONTROL WORD RESET,NO IO ` P ENTRY I:EFIL FILLER P ENTRY I:EPIC FMEL/FMELI P EJECT I:EDT I:EDT , P EXTRN I:EBRI BRANCH UPON VARIAB
0x102d00…1b0680 [0x2ef]: Pad {f00=0x0084, f01=0x0190, f02=»ITEM t 0 P EXTRN I:EVNO PROCESS NOT IMPLEMENTED CODES P EXTRN I:EGTD DUMMY EVAL @ " P EXTRN I:EGTB EVAL BYTE VALUE ` P EXTRN I:EKIH FKI HANDLER P EXTRN I:EINH FINP HANDLER P EXTRN I:EVA0 P EXTRN I:EVA3 P EXTRN I:EVA5
0x102d00…1b0680 [0x2f0]: Pad {f00=0x0084, f01=0x0190, f02=» v " P EXTRN T:EDWF DITTO FOR "FEOR" , P EXTRN I:ERRD BUFFER OVERFLOW INDICATION . & P EXTRN I:ERRE PICTURE/ITEM MISFIT ^ . P EJECT I:EDT I:EDT I:EDT I:EDT P* $ P* CONDITIONAL ASSEMBLY FLAGS: P* PCOMP EQU 855 P
0x102d00…1b0680 [0x2f1]: Pad {f00=0x0084, f01=0x0190, f02=» I:EDT I:EDT I:EDT I:EDT I:EDT p P* 8 ( P* TEMPORARY INTERPRETER REGISTERS: B P* n , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER x POP1E EQU A6 OPERAND 1 LENGTH ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR " POP2A EQU A9 OPERAN
0x102d00…1b0680 [0x2f2]: Pad {f00=0x0084, f01=0x0190, f02=»P2 EQU OP2E OP2 POINTER P* POPCD EQU A11 OPCODE * P* F P* NON-TEMPORARY REGISTERS: P P* t PPP EQU A12 PROGRAM POINTER ~ PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS P* P* LOCAL REGISTER USAGE:
0x102d00…1b0680 [0x2f3]: Pad {f00=0x0084, f01=0x0190, f02=»PI EQU OP2E ITEM POINTER PPPI EQU OP1E PICTURE POINTER * PLRD EQU A11 LEFT/RIGHT DIGIT FLIP/FLOP D PLINK EQU A7 LINKAGE REGISTER r PEI EQU OP2A ITEM END " PLP EQU PP FORMAT LIST POINTER PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK RE
0x102d00…1b0680 [0x2f4]: Pad {f00=0x0084, f01=0x0190, f02=» DISPLACEMENT z P* PSTKB EQU 2 P* 2 P* 'S' STACK USAGE: < P* X * P* 'S' STACK b . P* * * . P* *************** . P* STACK POINTER AT CA
0x102d00…1b0680 [0x2f5]: Pad {f00=0x0084, f01=0x0190, f02=» * PROCESSTAB * . P* * EVALTAB * , . P* * DESCR ITEM * ^ . P* * CTRLCHAR * . P* * SAVE PP * . P*
0x102d00…1b0680 [0x2f6]: Pad {f00=0x0084, f01=0x0190, f02=»CK POINTER AT LVL 0> * SAVE LP(0) * . P* * SAVE PA(1) * , . P* * SAVE EL(1) * ^ . P* *************** . P* STACK POINTER AT LVL 1> * SAVE LP(1) * . P*
0x102d00…1b0680 [0x2f7]: Pad {f00=0x0084, f01=0x0190, f02=»CK POINTER AT LVL 2> * ZERO IND. * . P* * ITEM BASE * , . P* * FILL CHAR * ^ . P* * SAVE PI * . P* * * . P EJECT I:EDT I:ED
0x102d00…1b0680 [0x2f8]: Pad {f00=0x0085, f01=0x0190, f02=»FC EQU -4 FILL CHARACTER & PBI EQU -2 ITEM BASE (LOCAL TO PPC) PLPSAV EQU 6 LP SAVE J PPA EQU 4 AUX. STACK PTR SAVE f PEL EQU 2 LIST END P* PSTKI EQU 6 STACK INCREMENT P* P* P* WORK AREA DISPLACEMENTS: P*
0x102d00…1b0680 [0x2f9]: Pad {f00=0x0085, f01=0x0190, f02=»-6 PROCESS TABLE NO PSBF EQU -4 START OF BUFFER PEBF EQU -2 END OF DITTO > PEPI EQU 0 END OF PICTURE ^ P* ~ $ PWKALEN EQU 14 SIZE OF WORK AREA P P P ( PARITHB EQU X'10' ARITHMETIC BASE BIT PNUMBIT EQU X'20' NUMER
0x102d00…1b0680 [0x2fa]: Pad {f00=0x0085, f01=0x018e, f02=» PTEXT EQU 3 PTAB EQU 4 PCTRC EQU 5 ( PBITEM EQU 6 : PBBOOL EQU 7 N PBUNC EQU 8 b PEOR EQU 9 t PEXT EQU 10 PCW EQU 11 PLNK EQU 12 PNL EQU 13 PIN EQU 14 PKI EQU 15 PFMEL EQU 2 PFILLR
0x102d00…1b0680 [0x2fb]: Pad {f00=0x0085, f01=0x0190, f02=» PEV:EVI EQU 5 PEV:EV3 EQU 6 PEV:EV0 EQU 7 0 P D P* L P* BYTE-PACKING FORM: V P* t PBYTE FORM 8,8 ~ P PTABF FORM 3,5,3,5 P P* 4 P* FOR FORMAT CODES 00-FF EVAL. TYPE FOR FIRST 6 P* PARAME
0x102d00…1b0680 [0x2fc]: Pad {f00=0x0085, f01=0x0190, f02=»0-CF $ PEDTAB TABF EV:EV2,CPY,EV:EV2,CPY " P TABF EV:EVI,FMELI,EV:EVI,TEXT 4 " P TABF EV:GTB,TAB,EVNONE,UNUSED Z & P TABF EVNONE,UNUSED,EVNONE,UNUSED " P TABF EVNONE,CTRC,EVNONE,CTRC " P TABF EVNONE,CTRC,EVNONE,CTRC & P TABF EVNONE,UNUSED,
0x102d00…1b0680 [0x2fd]: Pad {f00=0x0085, f01=0x0190, f02=»ITEM,EVNONE,UNUSED $ P TABF EV:EV0,BITEM,EV:EV0,BITEM $ P TABF EV:EV0,BITEM,EVNONE,UNUSED B $ P TABF EV:GTB,BUNC,EVNONE,UNUSED j $ P TABF EV:EVB,BBOOL,EV:EVB,BBOOL P TABF EV:EV2,CW,EV:EV2,CW " P TABF EVNONE,UNUSED,EV:EV5,LNK P E0-EF
0x102d00…1b0680 [0x2fe]: Pad {f00=0x0085, f01=0x0190, f02=»NONE,UNUSED,EVNONE,UNUSED P TABF EVNONE,EOR,EVNONE,EXT " & P TABF EVNONE,UNUSED,EVNONE,UNUSED F " P TABF EV:GTB,IN,EVNONE,UNUSED p P TABF EV:GTB,IN,EV:GTB,IN P F0-FF " P TABF EV:GTB,KI,EVNONE,UNUSED P TABF EV:GTB,KI,EV:GTB,KI
0x102d00…1b0680 [0x2ff]: Pad {f00=0x0085, f01=0x018e, f02=»:GTB,KI ~ " P TABF EV:GTB,KI,EVNONE,UNUSED P TABF EV:GTB,KI,EV:GTB,KI 6 . P EJECT I:EDT I:EDT I:EDT I:EDT X P* P* EVAL I:EBR TABLE $ P* USES I:EBR VALUE FROM EDTAB P* PI:EVT EQU * P DATA I:EGTD P
0x102d00…1b0680 [0x300]: Pad {f00=0x0085, f01=0x0190, f02=» P* P* PROCESS I:EBR TABLE $ P* USES I:EBR VALUE FROM EDTAB 2 P* Z PI:EDPT EQU * d P DATA I:EVNO x P DATA I:ECPY P DATA I:EPIC P DATA I:ETXT P DATA I:ETAB P DATA I:ESKI P DATA I:EBRI P DATA
0x102d00…1b0680 [0x301]: Pad {f00=0x0085, f01=0x0190, f02=» DATA I:EINH P DATA I:EKIH P DATA I:EFIL ( P DATA I:ESL < . P EJECT I:EDT I:EDT I:EDT I:EDT P P P**************************** P* * P* DISPLAY MANAGEMENT ENTRY * P*
0x102d00…1b0680 [0x302]: Pad {f00=0x0085, f01=0x018e, f02=»TE WORK AREA ON S-STACK z P CF PS,SOEDT INIT VALUES P LDR OP2E,A7 FORMAT LIST END @ " P LDR OP2A,A6 FORMAT LIST ADDR d P LDR* A1,TCA P* P RF FLIN P* P EJECT I:EDT I:EDT P* $ P* START OF EDIT INIT VALUE
0x102d00…1b0680 [0x303]: Pad {f00=0x0085, f01=0x0190, f02=» $ P ST A4,EVT,WKAR EVAL TABLE ADDR " P ST OP2A,SBF,WKAR BUFFER START , P ST OP2E,EBF,WKAR BUFFER END R ( P CM CCC,WKAR CLEAR CTRL CHAR COUNTER v " P LDR PBF,OP2A INIT BUFFER PTR P RTN PS T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT
0x102d00…1b0680 [0x304]: Pad {f00=0x0085, f01=0x0190, f02=»NTRY * | P* * P************************** 0 P R P Z P* b PI:EDT EQU * ADD ENTRY l P* P* GET BUFFER PARAMETERS: P* P CF PS,I:EVA0 P* $ PI:ED1 EQU * EDIT SUBSTRING ENTRY P*
0x102d00…1b0680 [0x305]: Pad {f00=0x0085, f01=0x0190, f02=» P************************** P* * * P* EDWRT SUBROUTINE ENTRY * L P* * n P************************** P P* P* PROCESS FORMAT LIST: P* PI:EDW EQU * P LDR WKA
0x102d00…1b0680 [0x306]: Pad {f00=0x0085, f01=0x0190, f02=»VT P CF PS,SOEDT INIT VALUES P* * P* EVAL. MAIN FORMAT 4 P* P & P CF PS,I:EVA6 GET LIST PARAMETERS Z PFLIN EQU * ( P CF PS,I:EFLI FORMAT LINKAGE HANDLER T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT
0x102d00…1b0680 [0x307]: Pad {f00=0x0085, f01=0x0190, f02=» EOLH IF END THEN PROCESS END-OF LIST P . P* 6 $ P LCR LINK,LP GET FIRST LIST BYTE @ P LDR A2,LINK COPY IT h " P ANK A2,128 SEE IF 'T' BIT SET P RF(NZ) PLI10 , P LDKL A2,-1 LOAD DISPL FOR PICTURE PROC P RF PLI30 PPLI10 EQ
0x102d00…1b0680 [0x308]: Pad {f00=0x0085, f01=0x0190, f02=»2,64 P RF(NZ) PLI20 * P LDKL A2,-2 LOAD DISPL FOR FILLER PROC " " P ANK LINK,/3F MAX 63 FILL CHAR P P RF PLI30 v P EJECT I:EDT I:EDT PPLI20 EQU * P ANKL OPCD,255 ISOLATE P LDR A2,OPCD $ P ANK A2,/3F COMPUTE DISPLACE
0x102d00…1b0680 [0x309]: Pad {f00=0x0085, f01=0x0190, f02=»M r P SRL A2,5 ISOLATE EVALTYPE P ADR A2,A2 COMPUTE INDEX , P L ( P AD A2,EVT,WKAR COMPUTE ITEM ADDRESS T , P CFR* PS,A2 EXECUTE PROPER EVAL RUOUINE P ( P LD A2,EPB,WKAR GET SAVED DESCR ITEM P ANK A2,31 ISOLATE PROCESS P ADR
0x102d00…1b0680 [0x30a]: Pad {f00=0x0085, f01=0x0190, f02=» RB PLI P* . P EJECT I:EDT I:EDT I:EDT I:EDT & P* PROCESS FORMAT LINKAGE HANDLING L P* v PI:EFLI EQU * P & P LD LINK,4,PS SAVE RETURN ADDRESS * P STR OP2E,PS SAVE END-OF-LIST ADDRESS ( P SUKL PS,STKI-4 ADJUST
0x102d00…1b0680 [0x30b]: Pad {f00=0x0085, f01=0x0190, f02=» ST A2,PA,PS SAVE " P STR A1,TCA NEW PA FROM I:EVA5 ! P ABR LINK *RETURN JUMP ! @ P* ! ^ P* ! h P ! r P* ! z P* TABULATION HANDLER ! P* ! PI:ETAB EQU * ! , P AD OP2A,CCC,WKAR COUNT NO OF CTRL CHAR ! P LDR A2,OP2A NO OF TAB STE
0x102d00…1b0680 [0x30c]: Pad {f00=0x0085, f01=0x018e, f02=» A2,A2 GET RID OF OVFL CONDITION ! $ P RF(P) FILH10 FORWARD TABULATION " ( * P ADR PBF,A2 BACKWARD - JUST RESET PBF " P P RTN PS " ~ @ P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT " P* " P* TERMINATE EDITING " P* " PI:EXIT
0x102d00…1b0680 [0x30d]: Pad {f00=0x0085, f01=0x0190, f02=» " P* # : P* END-OF-LIST HANDLING: RETURN TO MAIN FORMAT LIST OR # . P* TERMINATE EDITING # P P* # PEOLH EQU * # P* # " P LD A1,PA,PS GET SAVED AUX SP # P STR A1,TCA ... AND RESTORE # P # & P ADKL PS,STKI LO
0x102d00…1b0680 [0x30e]: Pad {f00=0x0085, f01=0x0190, f02=» * # ( P RB(NE) PLI GO PROCESS FORMER LEVEL $ P $ 6 & P LDR PS,WKAR DEALLOCATE WORK AREA $ > P RTN PS RETURN IF ON LEVEL 0 $ h T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT $ P* $ P* IMMEDIATE TEXT HANDLER $
0x102d00…1b0680 [0x30f]: Pad {f00=0x0085, f01=0x0190, f02=»OPY ITEM PROCESSOR: $ P* % PI:ECPY EQU * % & P XRR OP2A,P2 * % : 2 P XRR P2,OP2A * EXCHANGE CONT'S OF P2 AND OP2A % P P XRR OP2A,P2 * % * P LDR LINK,P SET LINK REGISTER TO LOOP % PCOPY EQU * % P CWR P2,OP2A END OF ITEM? % $ P RF(E) RTNPL
0x102d00…1b0680 [0x310]: Pad {f00=0x0085, f01=0x0190, f02=» RF(NZ) SCB STORE CHAR IN BUFFER IF NOT % P RB COPY ELSE IGNORE & 0 . P EJECT I:EDT I:EDT I:EDT I:EDT & L P* & ~ $ P* CONTROL CHARACTER PROCESSING & P* & PI:ECTR EQU * & " P IM CCC,WKAR COUNT NO OF CHRS & , PCTRLCR EQU * END OF CT
0x102d00…1b0680 [0x311]: Pad {f00=0x0085, f01=0x018e, f02=» I:EDT I:EDT I:EDT & P* ' " P* FIRST LINE PROCESSING ' , P* ' L PI:ESL EQU * ' V P LDK A1,2 ' j ( P ADS A1,CCC,WKAR TREAT AS CTRL CHAR ' | . P LDKL LINK,I:ESL010 SET RETURN TO I:ESL010 ' P LDK A1,' ' ' P RF SCB STORE CHAR ' PI:
0x102d00…1b0680 [0x312]: Pad {f00=0x0085, f01=0x0190, f02=» P CF PS,I:EOR ( P LDK A1,2 ( ( P ADS A1,CCC,WKAR TREAT AS CTRL CHAR ( * ( P LDKL LINK,I:ENL010 SET RETURN ADDR ( V P LDK A1,' ' ( P RF SCB STORE CHAR ( PI:ENL010 EQU * ( P LDK A1,' ' ( P RB CTRLCR ( T P EJECT I:EDT I:EDT I:E
0x102d00…1b0680 [0x313]: Pad {f00=0x0085, f01=0x0190, f02=» ( P ) P LDR A8,A8 TEST IF EDWRT ) * P RB(Z) I:EXIT NO ! - TERMINATE EDITING ) 0 P ) ^ P CF PS,T:EDWF OUTPUT RECORD ) f P RF I:ECWC GO RESET PBF ) P ) P* ) P* CONTROL WORD PROCESSOR: ) P* ) PI:ECW EQU * ) P LDR A8,A8 TES
0x102d00…1b0680 [0x314]: Pad {f00=0x0085, f01=0x0190, f02=»FROM SKIP TABLE ) PI:ECWC EQU * * & P LD PBF,SBF,WKAR RESET BUFFER PTR * , * P CM CCC,WKAR CLEAR CTRL CCHAR COUNTER * V P RTN PS * T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT * P* * P* FILLER PROCESSOR:
0x102d00…1b0680 [0x315]: Pad {f00=0x0085, f01=0x0190, f02=» LINK,P SET LINK REGISTER TO L00P * P + * PFILL SUK A2,1 COUNT + 2 . P RF(NN) SCB LOOP WHILE COUNT NOT NEGATIVE + N P + P* + P* + PRTNPLI EQU * + * P RTN PS DONE ! - TAKE NEXT LIST ITEM + . P EJECT I:EDT I:EDT I:EDT I:EDT +
0x102d00…1b0680 [0x316]: Pad {f00=0x0085, f01=0x0190, f02=»LINK REGISTER. + | P* , . P* BUFFER OVERFLOW IS CHECKED IF ASSEMBLY , P* PARAMETER IS 'TEST'. , R P* , r PSCB EQU * , | P IFT PARM=TEST , $ P CW PBF,EBF,WKAR END-OF-BUFFER? , P RF(NE) SCB010 NO: BYPASS , ( P ABL I:ERRD INDICATE BUFFER
0x102d00…1b0680 [0x317]: Pad {f00=0x0085, f01=0x0190, f02=»RETURN JUMP , T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT - P - l $ P****************************** - t " P* * - " P* PROCESS PICTURE ITEM * - " P* * -
0x102d00…1b0680 [0x318]: Pad {f00=0x0086, f01=0x0190, f02=»,OP2A POINTER - . P STR OP2E,WKAR SAVE END-OF-PICTURE ADDRESS . P . H & P CF PS,I:EVA0 GET ITEM PARAMETERS . P ( P ST OP2A,BI,PS STACK DOWN ITEM BASE . z T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT . P . P****
0x102d00…1b0680 [0x319]: Pad {f00=0x0086, f01=0x018e, f02=»**************** . P / " P* LOCAL REGISTER ALLOCATION: / " P / H " PCOUNT EQU A1 POSITION COUNTER / P ( PPT EQU A2 PICTURE CHAR TABLE POINTER / v & PPPII EQU LINK PICTURE CHAR POINTER / PW EQU OP2T WORK REGISTER / P / PFPSC RES 0 / P LDK
0x102d00…1b0680 [0x31a]: Pad {f00=0x0086, f01=0x0190, f02=» / l P 0 . P LDR PPII,PPI SET UP PICTURE CHAR POINTER 0 P 0 B PFPSC10 RES 0 0 J P 0 ^ & P LCR W,PPII GET PICTURE CHARACTER 0 f P LDK PT,LCTAB+1 AND LENGTH 0 P 0 PFPSC20 RES 0 0 P 0 P CCK W,'AA' 0 ( P RF(E) FPSC2A JUMP IF PICTURE CO
0x102d00…1b0680 [0x31b]: Pad {f00=0x0086, f01=0x0190, f02=»IONS SHALL 0 p " P BE SKIPPED (T AND A CODES) 1 P RF FPSC2B 1 8 PFPSC21 EQU * 1 J P CCK W,'**' 1 ^ . P RF(NE) FPSC22 JUMP IF NOT POCTURE CODE * 1 r P LDK PI,'*' FILL CHAR * 1 PFPSC2B EQU * 1 & P ST PI,FC,PS STORE FILL CHARACTER 1 PFPSC22 E
0x102d00…1b0680 [0x31c]: Pad {f00=0x0086, f01=0x0190, f02=»F' SKIP NEXT CHARACTER 1 P RF(E) FPSC23 2 * P CCK W,'EE' IF 'E' SKIP NEXT CHARACTER 2 4 P RF(NE) FPSC25 2 b PFPSC23 EQU * 2 x P ADK PPII,2 2 P RF FPSC42 2 P XIF 2 P 2 PFPSC25 RES 0 2 ( P CC W,PCTAB,PT COMPARE TO TABLE CHAR 2 , P RB(
0x102d00…1b0680 [0x31d]: Pad {f00=0x0086, f01=0x0190, f02=»ICTURE POINTER 2 x P 3 PFPSC42 RES 0 3 $ P CWR* PPII,WKAR END-OF-PICTURE? 3 2 P RB(NE) FPSC10 NO: CONTINUE 3 Z P 3 ~ P EJECT I:EDT 3 P* 3 P* COMPUTE ITEM START POINT: 3 P* 3 P LD PI,SAVPI,PS RESTRORE PI 3 4 P LDR EI,OP2E INITI
0x102d00…1b0680 [0x31e]: Pad {f00=0x0086, f01=0x0190, f02=» ANK COUNT,255 KNOCK OFF SIGN BIT 3 * P SUR PI,COUNT INITIALIZE ITEM POINTER 4 * P* 4 X P* INITIALIZE SOME FLAGS: 4 b P* 4 8 P LDK FREG,0 INITIALIZE FLOATING INSERT CHAR TO NONE 4 0 P STR FREG,PS INITIALIZE LEFT ZERO INDICATOR 4 * P* RF PPC GO
0x102d00…1b0680 [0x31f]: Pad {f00=0x0086, f01=0x0190, f02=» 4 " P* PROCESS PICTURE CHARACTER: 5 P* 5 . PPPC EQU * 5 8 P 5 J " P CWR* PPI,WKAR OUT OF PICTURE? 5 R * P RB(E) RTNPLI YES: GET NEXT LIST ITEM 5 x 0 P LDR LINK,P GET BASE VALUE TO LINK REGISTER 5 PLB EQU * LINK BASE 5 P LDK A1,0 5 & P LCR
0x102d00…1b0680 [0x320]: Pad {f00=0x0086, f01=0x0190, f02=»' ISOLATE ASCII CODE 5 P CWR A1,A2 6 4 P RF(NE) ICH IF BIT 8 SET, THEN INSERT CHARACTER 6 . P XIF 6 f P 6 r P* 6 z 2 P* ELSE BRANCH TO PICTURE CHARACTER PROCESSOR: 6 P* 6 P ANK A1,15 6 $ P LC A1,DTAB,A1 GET DISPLACEMENT 6 8 P ADR P,A1 EX
0x102d00…1b0680 [0x321]: Pad {f00=0x0086, f01=0x0190, f02=» EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT 6 P* 7 X $ P* PICTURE CHARACTER PROCESSORS: 7 b P* 7 PP0PP SUK A2,'0' IS IT "0" 7 " P RF(Z) STZ YES: GO STORE ZERO 7 P* 7 P* NO: SKIP ITEM DIGIT: 7 P* 7
0x102d00…1b0680 [0x322]: Pad {f00=0x0086, f01=0x0190, f02=»* 7 PSTZ LDK A1,'0' GET THE ZERO 8 " P RF STCH GO STORE IT UNCNDLLY 8 . P* 8 T @ P* STORE ASTERISC OR ZERO DEPENDING ON LEFT ZERO CONDITION: 8 ^ P* 8 . PSTAS ADK LINK,STCA-LB GO FETCH ITEM DIGIT: 8 P RF FID 8 0 PSTCA LDR* A2,PS TEST LEADING
0x102d00…1b0680 [0x323]: Pad {f00=0x0086, f01=0x0190, f02=»CT I:EDT 8 P* 9 , P* FLOATING INSERT AND POINT INSERTION: 9 P* 9 L PPFVP EQU * RESOLVE F AND V 9 V P SUK A2,'F' SEE IF "F" 9 x 0 P RF(Z) LFC YES: GO LOAD "FLOATING" CHARACTER 9 " P LDK A1,'.' ELSE LOAD THE DOT 9 , P* STORE CHARACTER IN A1 O
0x102d00…1b0680 [0x324]: Pad {f00=0x0086, f01=0x0190, f02=»ARACTER 9 x P CCK A1,/00 SKIP FILL CHAR : , P RB(E) PPC YES: NO MOVE TO OUTPUT BUFFER : 2 & P RF STCH STORE IT UNCONDITIONALLY : b T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT : P* : & P* PROCESS * , Z AND Y CHARA
0x102d00…1b0680 [0x325]: Pad {f00=0x0086, f01=0x018e, f02=»TORE AN ASTERISC IF LEADING ZERO : ~ ( P* RF STDSP NO: STORE DIGIT OR SPACE: ; ( P* ; T P* ; ^ 4 P* STORE DIGIT OR SPACE DEPENDING ON LEFT ZERO: ; h P* ; * PSTDSP ADK LINK,STCS-LB RETURN TO STCS ; P RF FID FETCH ITEM DIGIT ; P* ; ( P* STORE
0x102d00…1b0680 [0x326]: Pad {f00=0x0086, f01=0x0190, f02=» 0 P* STORE CHARACTER WITH CONDITIONAL INSERT: < P* < 8 8 PSTCC ANK FREG,255 IS THERE A FLOATING INSERT TO DO? < B $ P RF(NP) STCH NO: STORE CHARACTER < ~ P IFT PARM=TEST < $ P CW PBF,EBF,WKAR END-OF-BUFFER? < " P ABL(E) I:ERRD BUFFER OVERFLOW < P
0x102d00…1b0680 [0x327]: Pad {f00=0x0086, f01=0x0190, f02=»G INSERT < t P* RF STCH EFFECTIVE = T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT = , P* = ( P* STORE CHARACTER UNCONDITIONALLY: = P* = PSTCH EQU * = $ P LDKL LINK,PPC SET RETURN TO PPC = P CCK A1,'00'
0x102d00…1b0680 [0x328]: Pad {f00=0x0086, f01=0x0190, f02=» = $ P* STORE SPACE UNCONDITIONALLY: > P* > 0 PSTB LDK A1,' ' GET SPACE > : P RB STCH AND STORE UNCNDLLY > Z P EJECT I:EDT I:EDT > ~ P* > & P* MOVE DIGIT ('9' PICTURE CHAR.) > < P* OR Y PICTURE CHAR (WHEN LAST DIGIT IN ITEM NOT = /F)
0x102d00…1b0680 [0x329]: Pad {f00=0x0086, f01=0x0190, f02=» A2,/F > P CWK A2,/F LAST DIGIT = /F ? ( P RB(E) STDSP YES, PROCESS AS Z CHAR ? 0 P ELSE PROCESS AS 9 CHAR ? PMVD0 EQU * ? ~ $ P ANK FREG,255 ENABLE INSERTIONS ? ( P IMR PS TURN OFF LEFT ZERO INDICATOR ? ( P ADK LINK,MVD1-LB SET RETURN TO MVD1 ?
0x102d00…1b0680 [0x32a]: Pad {f00=0x0086, f01=0x0190, f02=» MOVE DIGIT OR SPACE ('X' PICTURE CHAR.) ? P* @ 2 PMVX RES 0 @ < ( P ADK LINK,STCC-LB SET RETURN TO STCC @ N P* RF FID GO FETCH DIGIT @ z T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT @ P* @ $ P* FETCH ITEM
0x102d00…1b0680 [0x32b]: Pad {f00=0x0086, f01=0x0190, f02=»HARACTER IS RETURNED IN A1 REGISTER. @ $ P* SPACES ARE INDICATED BY CR=0 A , P* A T PFID EQU * A ^ $ P C1R LRD,LRD FLIP ODD/EVEN FLAG A p P RF(N) FLD FETCH LEFT DIGIT A P A , P LDR A1,PI A1 IS WORK REG FOR ADDR CMP. A $ P SU A1,BI,PS SEE IF IN
0x102d00…1b0680 [0x32c]: Pad {f00=0x0086, f01=0x0190, f02=»T RIGHT DIGIT: A ~ P* B P* PROCESS DIGIT: B P* B : PPDIG ANK A1,15 B D " P CWK A1,15 TEST IF SPACE DIGIT B Z P RF(E) SPACE B & P ORRS A1,PS UPDATE ZERO INDICATOR B P ORK A1,X'30' ZONE DIGIT B P ABR LINK RETURN JUMP B , PSPACE LDK A1
0x102d00…1b0680 [0x32d]: Pad {f00=0x0086, f01=0x018e, f02=» I:EDT B L P* C P* FETCH LEFT DIGIT: C P* C : PFLD ADK PI,1 C D P IFT PARM=TEST C X P CWR PI,EI C n " P ABL(E) I:ERRE INDICATE MISFIT C P XIF C P C * P LDR A1,PI A1 IS WORK REG FOR ADDR CMP C $ P SU A1,BI,PS SEE IF INSIDE ITEM C
0x102d00…1b0680 [0x32e]: Pad {f00=0x0086, f01=0x0190, f02=» C " P RB PDIG GO PROCESS LEFT DIGIT D P* D . T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT D 8 P* D , P* SKIP SPACES ( A PICTURE CHARACTER ): D P* D PSSP EQU * D 2 P ADK LINK,SSPA-LB SET RETURN ADDRESS
0x102d00…1b0680 [0x32f]: Pad {f00=0x0086, f01=0x0190, f02=»R D r PSSPB EQU * E , P LDR* A2,PS TEST LEADING ZERO INDICATOR E P RB(Z) PPC IGNORE SPACES E L * P RB STCC NO: STORE CHAR CONDITIONALLY E l P* E < P* SKIP LEFT ZEROES AND SPACES ( T PICTURE CHARACTER ): E P* E PSSZ ADK LINK,SSPB-LB E , P
0x102d00…1b0680 [0x330]: Pad {f00=0x0086, f01=0x0190, f02=» E v P SRL A1,4 F P ANK A1,15 F PSTSA ORK A1,X'20' ZONE IT F . 0 P CWR A1,A2 COMPARE ITEM SIGN WITH REQUESTED F P 0 P RB(NL) STCH STORE IF VALUE GREATER OR EQUAL F P RB STB GO STORE BLANK F P* F $ PICC RES 0 INSERT COMMA CHARACTER F P L
0x102d00…1b0680 [0x331]: Pad {f00=0x0086, f01=0x0190, f02=»* F P* INSERT CHARACTER: G P* G & P G 0 P IFT E=1 G 8 PICH LCR A1,PPI GET CHAR G H P ADK PPI,1 G h P XIF G z P G P IFF E=1 G PICH LDR A1,A2 GET CHAR G P XIF G P G * P RB STCP GO STORE CHAR OR PADDING CHAR G P* G P*
0x102d00…1b0680 [0x332]: Pad {f00=0x0086, f01=0x0190, f02=» RB(NZ) STCC NO: INSERT G P RF PCSP YES: IGNORE H P* H < ( P* LOAD "FLOATING INSERT" CHARACTER: H F P* H r & PLFC LCR FREG,PPI GET "F" CHARACTER H | P RF LFCS FLOATING SIGN H 4 PLFCA ADK PPI,1 DON'T PROCESS THIS CHAR. FURTHER H ( P* RB PPC GO AD
0x102d00…1b0680 [0x333]: Pad {f00=0x0086, f01=0x0190, f02=»* H P* I $ P* CONDITIONAL AND SIGN EXTEND: I P* I < & PPCSP EQU ERPC ARE NOT IMPLEMENTED I F P* I p P* I z 4 P* LOAD "FLOATING INSERT" SIGN CHARACTER '+' '-' I P* I & PLFCS LCR A2,PPI GET 'F' CHARACTER I P CCK A2,'++' I P RF(E)
0x102d00…1b0680 [0x334]: Pad {f00=0x0086, f01=0x018e, f02=»REG,/F I P ORK FREG,/20 ZONE IT J 2 P CWR FREG,A2 COMPARE ITEM SIGN WITH REQUESTED J , ( P RB(NL) LFCA STORE IF VALUE GR OR EQ J b * P LCK FREG,' ' ELSE SPACE AS 'F' CHAR J P RB LFCA J T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT
0x102d00…1b0680 [0x335]: Pad {f00=0x0086, f01=0x0190, f02=» & P BYTE STB-DT,PCSP-DT B & C,S " K $ P BYTE SSZ-DT,ICH-DT T,E HANDLERS K . & P BYTE PFVP-DT,ERPC-DT F,V HANDLER K V $ P BYTE MVX-DT,MVD-DT X & 9,Y " K * P BYTE PAZP-DT,STS-DT *,Z & + HANDLERS K P K P IFF E=1 K 0 P BYTE ICH-DT,STS-DT .(ROOMLE
0x102d00…1b0680 [0x336]: Pad {f00=0x0086, f01=0x4098, f02=» . HANDLER K | P L P L P* POSITION CHARACTER TABLE: L " P L F PPCTAB DATA 'PT*AXYZ9' L N PLCTAB EQU *-PCTAB-1 L l P END L @ L 9,Y " K * P BYTE PAZP-DT,STS-DT *,Z & + HANDLERS K P K P IFF E=1 K 0 P BYTE ICH-DT,STS-DT .(ROOMLE
0x102d00…1b0680 [0x337]: Pad {f00=0x0086, f01=0x2008, f02=» M DT,PCSP-DT B & C,S " " P BYTE SSZ-DT,ERPC-DT T HANDLER ( & P BYTE PFVP-DT,ERPC-DT F,V HANDLER N " P BYTE ERPC-DT,MVD-DT 9 " x * P BYTE PAZP-DT,STS-DT *,Z & + HANDLERS 0 P BYTE IRP-DT,STS-DT .(ROOMLESS) & - HANDLERS " P BYTE ICH-
0x102d00…1b0680 [0x338]: Pad {f00=0x0087, f01=0x0190, f02=» > F IDENT I:ERR X 1.1.03 EXT 76-10-06/POEG 8 D @ I:ERR I:ERR0 I:ERR1 I:ERR2 I:ERR3 I:ERR4 I:ERR8 I:ERR9C 8 F I:ERRA I:ERRB I:ERRC 8 I:ERR0 8 I:ERR1 8 I:ERR2 8 I:ERR3 8 I:ERR4
0x102d00…1b0680 [0x339]: Pad {f00=0x0087, f01=0x0002, f02=»
0x102d00…1b0680 [0x33a]: Pad {f00=0x0087, f01=0x00ac, f02=» SCR /O TRA OBJSUB TRA OBJWRL $ TRA OBJDMP 6 KPF /O H TRA OBJREF V TLK U h LKE U,M v KPF /L,OBJREF ASG 224,TY10
0x102d00…1b0680 [0x33b]: Pad {f00=0x0087, f01=0x2008, f02=» /O TRA OBJSUB TRA OBJWRL $ TRA OBJDMP 6 KPF /O H TRA OBJREF V TLK U h LKE U,M v KPF /L,OBJREF ASG 224,TY10
0x102d00…1b0680 [0x33c]: Pad {f00=0x0087, f01=0x40f2, f02=» ( F IDENT I:HEX T,-1,1,-/76-09-14 < I:HEXBK I:HEXW I:HEX < 0 I:HEXBK < P I:HEXW < d I:HEX < x , ( W 9 " R 0 1 Y < ! : < W < " < @ <
0x102d00…1b0680 [0x33d]: Pad {f00=0x0087, f01=0x410a, f02=» ( F IDENT I:CHK T,-1,1,-/76-09-14 = I:CHK = 0 I:CHK = @ P:BAS = R P:END = b TC:CHK = r * & @ ;a <a R <a V = I:ERR = : = R V = $ = @ =
0x102d00…1b0680 [0x33e]: Pad {f00=0x0087, f01=0x018e, f02=» ( F IDENT T:SCD T,-1,1,-/76-09-14 > T:ACTVK T:PAUS T:RSTR > 0 T:ACTVK > R T:BAT > f I:ERR4 > v , ( 2 P ( > I:NTPA > T:RSTR " > I:EVA0 > , ( @ W ( W
0x102d00…1b0680 [0x33f]: Pad {f00=0x0087, f01=0x4008, f02=»@ ? ENT T:SCD T,-1,1,-/76-09-14 > T:ACTVK T:PAUS T:RSTR > 0 T:ACTVK > R T:BAT > f I:ERR4 > v , ( 2 P ( > I:NTPA > T:RSTR " > I:EVA0 > , ( @ W ( W
0x102d00…1b0680 [0x340]: Pad {f00=0x0087, f01=0x0190, f02=» > F IDENT I:EVA UPD 76-11-24/POEG 4 0 I:EVA0K I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:FML F I:EVA2 ~ T:LIT I:EVA1 I:EVA3 T:KPI I:EVA5 T:FMT , (
0x102d00…1b0680 [0x341]: Pad {f00=0x0087, f01=0x000a, f02=»
0x102d00…1b0680 [0x342]: Pad {f00=0x0087, f01=0x018e, f02=» " P IDENT I:STR UPD 77-09-27/UKF P REL 78-04-01 #3.1 * P REL 78-03-03 #3.0 F P REL 77-12-07 #2.4 b P REL 77-12-07 #2.4 ~ P UPD 77-01-28/ULJO P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-04-29 #2.2 P
0x102d00…1b0680 [0x343]: Pad {f00=0x0087, f01=0x0190, f02=» z P REL 76-10-07 #1.1 P UPD #1 76-06-01/POEG $ P REL #1,76-06-15 D P ^ 2 P********************************************** f 2 P* * 2 P* INTERPRETER STRING OPERATION HANDLER * 2 P*
0x102d00…1b0680 [0x344]: Pad {f00=0x0087, f01=0x0190, f02=» INSERT OPERATION HANDLER P ENTRY I:DLT DELETE " P ENTRY I:MCH MATCH > P ENTRY I:CPY COPY X P ENTRY I:XCP COPY EXTENTED r P P 8 P EXTRN I:EVS1,I:EVS2 SUBSTRING OPERAND EVAL ROUTINES ( P EXTRN I:MVC MOVE CHARACTERS ROUTINE
0x102d00…1b0680 [0x345]: Pad {f00=0x0087, f01=0x0190, f02=» CONDITIONAL ASSEMBLY FLAGS: P* & PCOMP EQU 855 0 PTEST EQU 1 D PNOTEST EQU 0 V PPARM EQU TEST j P* ( P* TEMPORARY INTERPRETER REGISTERS: P* PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER PWK3 EQU A3
0x102d00…1b0680 [0x346]: Pad {f00=0x0087, f01=0x0190, f02=» ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR " POP2A EQU A9 OPERAND 2 ADDRESS 0 POP2E EQU A5 OPERAND 2 END V * POP2T EQU A3 OPERAND 2 TYPE INDICATION x P* POPCD EQU A11 OPCODE P* P* NON-TEMPORARY REGISTERS: P* PPP EQU
0x102d00…1b0680 [0x347]: Pad {f00=0x0087, f01=0x0190, f02=»SE DISPLACEMENT | P* PSTKB EQU 2 " P* 4 P* BIT MASKS > P* R * PARITHB EQU X'10' ARITHMETRIC BASE BIT PNUMBIT EQU X'20' NUMERIC BIT T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR P
0x102d00…1b0680 [0x348]: Pad {f00=0x0087, f01=0x0190, f02=»D LEFT/RIGHT IND. v " PI2 EQU OP1T SENDING FIELD DITO , PP1 EQU OP1E POINTER INTO RECIEVING FIELD @ * PP2 EQU OP2E POINTER INTO SENDING FIELD p P* PSAV1 EQU A8 PLENG1 EQU OP2A & PPTR1 EQU OP2E <POINTER1> (MATCH) PWK5 EQU OP1E
0x102d00…1b0680 [0x349]: Pad {f00=0x0087, f01=0x0190, f02=»R2 EQU 10 ILLEGAL INDEX VALUE $ PSTRER3 EQU 1 MOXED MODE (COPY) & T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR N P P***************** P* * 0 P* ENTRY I:DLT * DELETE OPERATION HAN
0x102d00…1b0680 [0x34a]: Pad {f00=0x0087, f01=0x0190, f02=»- SUBSTRING TO BE DELETED P* " P CF PS,I:EVS1 , " P IFT PARM=TEST CHECK ITEM TYPE B P ANK OP1T,ARITHB+NUMBIT h P RF(NZ) ERR1 P XIF P P* P* SET UP PARAMS FOR I:MVC P* & P LDR OP2E,OP1E END OF MAIN STRING
0x102d00…1b0680 [0x34b]: Pad {f00=0x0087, f01=0x0190, f02=» P* P* PERFORM RIGHT SHIFT P* 0 * P CF PS,MOVCH2 I:MVC INTERFACE ROUTINE : T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR h P* P* PAD WITH SPACES P* PPADD LDK WK1,' ' P
0x102d00…1b0680 [0x34c]: Pad {f00=0x0087, f01=0x0190, f02=»CT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR P T P***************** P* * v 0 P* ENTRY I:MCH * MATCH OPERATION HANDLER P* * P***************** P P PI:
0x102d00…1b0680 [0x34d]: Pad {f00=0x0087, f01=0x0190, f02=»1> n P ANK OP1T,ARITHB+NUMBIT P RF(NZ) ERR1 * P XIF > P J P* R P* PUSH SOME REGS. P* v P STR OP2A,PS <POINTER1> P ST LENG,-4,PS , P ST OP1A,-2,PS START OF FIRST SUBSTRING $ P SUKL PS,6 ADJUST STACK POINTER
0x102d00…1b0680 [0x34e]: Pad {f00=0x0087, f01=0x0190, f02=»ITHB+NUMBIT P RF(NZ) ERR1 P XIF ( P 4 P* < P* GET STACK BASE F P* ` P LD B3,STKB,TCA j P* P* POP SAVED REGS P* " P ADKL PS,6 RESET STACH POINTER & P LD WK3,-2,PS START OF 1:ST SUBSTR P LD LENG1,
0x102d00…1b0680 [0x34f]: Pad {f00=0x0087, f01=0x0190, f02=» P SUR LENG1,LENG P * P* NO MATCH IF SECOND SUBSTRING LONGER ( P V T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR ^ P , P* CR REMAINS FROM COMPUTATION OF LENG1 P " PMCHLP1 EQU * OUTER L
0x102d00…1b0680 [0x350]: Pad {f00=0x0087, f01=0x0190, f02=»OR r * P LDR WK2,LENG LENGTH OF PATTERN STRING 0 P RF(Z) SETCR NULL STRING ALLWAYS MATCHES !!! 8 P l PMCHLP2 EQU * INNER LOOP t P LCR WK5,WK1 P CCR WK5,WK4 " P RF(NE) MLP2X NO MATCH HERE ! P ADK WK1,1 P ADK WK4,1 P SUK
0x102d00…1b0680 [0x351]: Pad {f00=0x0087, f01=0x0190, f02=»SETCR MATCH ! ! 1 P PMLP2X EQU * $ P IFT COMP=852 8 P IMR PTR1 UPDATE <POINTER1> N P XIF r P IFT COMP=855 ~ P LDK WK1,1 $ P ADRS WK1,PTR1 UPDATE <POINTER1> P XIF P P ADK WK3,1 STEP IN <ITEM1> P SUKL
0x102d00…1b0680 [0x352]: Pad {f00=0x0087, f01=0x018e, f02=»STR F P P* , P* EXIT FROM OUTER LOOP - STORE CR-VALUE P* P PSETCR CFR B3,P Z P p P* x P* RETURN P* PRETURN RTN PS T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR
0x102d00…1b0680 [0x353]: Pad {f00=0x0087, f01=0x0190, f02=» | P***************** P " P * PI:INS EQU * 2 P* F : P* FETCH FIRST SUBSTRING (<ITEM1><POINTER1><LENGTH>) P P* P CF PS,I:EVS1 & P IFT PARM=TEST CHECK <ITEM1> TYPE P ANK OP1T,NUMBIT+ARITHB P RF(NZ) ERR1
0x102d00…1b0680 [0x354]: Pad {f00=0x0087, f01=0x0190, f02=»************* " P* * " P* PERFORM RIGTH SHIFT * < " P* * b " P***************************** P P P LDK WK4,0 COND REG VALUE P $ P LDR WK1,OP1E END OF MAIN STRING
0x102d00…1b0680 [0x355]: Pad {f00=0x0087, f01=0x0190, f02=»OVE OR TEST v P* ( P* COMPARE ADDRESSES IN WK2 AND OP1E P* J P TNM WK2,OP1E COMPARE SIGNS T " P RF(N) INS300 IF SIGNS DIFFER x P CWR WK2,OP1E IF SIGNS EQUAL P RF INS302 ( PINS300 CWR OP1E,WK2 IF SIGNS DIFFER PINS302 EQU
0x102d00…1b0680 [0x356]: Pad {f00=0x0087, f01=0x0190, f02=» P* 4 P* OUTSHIFTED CHARACTER - TEST FOR NULL OR SPACE P* F P ANK WK3,255-' ' P P RF(Z) INS350 GO AND TEST h P P LDK WK4,3 OVERFLOW CR VALUE P RF INS350 GO AND TEST P P* P* MOVE CHARACTER P* P
0x102d00…1b0680 [0x357]: Pad {f00=0x0087, f01=0x018e, f02=»* * P* LOOP EXIT - STORE COND-VALUE IN WK4 P* 8 * PINS360 LD WK1,STKB,TCA GET STACK BASE B P SC WK4,-2,WK1 p T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR P P* $ P* SAVE START OF FIRST SUB
0x102d00…1b0680 [0x358]: Pad {f00=0x0088, f01=0x0190, f02=» P CF PS,I:EVS2 & P IFT PARM=TEST CHECK <ITEM2> TYPE P ANK OP1T,ARITHB+NUMBIT D P RF(NZ) ERR1 d P XIF x P P* P* SET UP PARAMS FOR I:MVC P* , P LDR OP2A,OP1A START OF SENDING SUBSTR. P $ P ADKL PS,2 ADJUS
0x102d00…1b0680 [0x359]: Pad {f00=0x0088, f01=0x0190, f02=» P* P RF MOVCHA T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR P x " P IFT PARM=TEST ERROR HANDLING P PERR1 LDK WK1,STRER1 P RF ERROR P PERR2 LDK WK1,STRER2 P RF ERROR
0x102d00…1b0680 [0x35a]: Pad {f00=0x0088, f01=0x0190, f02=»:STR I:STR I:STR I:STR b P * P***************** 2 P* * L P* ENTRY I:CPY * f P* * P***************** P* * P* ENTRY I:XCP * P* * P********
0x102d00…1b0680 [0x35b]: Pad {f00=0x0088, f01=0x0190, f02=»GET FIRST SUBFIELD " P STR OP1A,PS SAVE ADDRESS AND P ST OP1T,-2,PS TYPE ON STACK @ P SUKL PS,4 ADJUST STACK PTR d P & P CF PS,I:EVS2 GET SECOND SUBFIELD ( P*** LDR I2,OP1T *** EFFECTIVE *** * P LDR P2,OP1A START OF SENDING SUBFIE
0x102d00…1b0680 [0x35c]: Pad {f00=0x0088, f01=0x0190, f02=»/R IND. n T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR P h P* p P* TEST MODE z P* P LDR WK1,I1 TYPE OF <ITEM1> P ( P IFT PARM=TEST CHECK FOR MIXED MODE P XRR WK1,I2 P ANK W
0x102d00…1b0680 [0x35d]: Pad {f00=0x0088, f01=0x0190, f02=»R STRING COPY P * P IFT PARM=TEST CHECK THAT TYPE IS BCD P SUK WK1,ARITHB+NUMBIT L P RB(NZ) ERR1 j P XIF ~ P T P EJECT I:STR I:STR I:STR I:STR I:STR I:STR I:STR I:STR P* P* BCD COPY P*
0x102d00…1b0680 [0x35e]: Pad {f00=0x0088, f01=0x0190, f02=» P $ P SRL WK2,4 SHIFT DOWN LEFT DIGIT P 4 P ANK WK2,15 ISOLATE DIGIT < P ^ , P LCR WK1,P1 GET BYTE IN RECIEVING FIELD f P LDR I1,I1 TEST L/R IND. P RF(N) COP220 IF RIGHT DIGIT P $ P ANK WK1,15 ISOLATE RIGHT DIGIT 0 P
0x102d00…1b0680 [0x35f]: Pad {f00=0x0088, f01=0x0190, f02=»P240 ORR WK2,WK1 $ P SCR WK2,P1 STORE MODIFIED BYTE P @ * P C1R I1,I1 INVERT SENDING FLD R/L IND. H & P RF(N) *+4 IF RIGHT DIGIT IS NEXT v P ADK P1,1 NEXT BYTE P P C1R I2,I2 P RF(N) *+4 P ADK P2,1 P & P SUK LEN
0x102d00…1b0680 [0x360]: Pad {f00=0x0088, f01=0x0190, f02=» I:STR I:STR I:STR I:STR d P* , P* STRING COPY 6 P* L PCOPSTR EQU * V P j P* r & P* SET UP PARAMS FOR MOVE ROUTINE | P* P LDR OP2A,P2 P P LDR OP1A,P1 P P* FLOW INTO MOVE ROUTINE T P
0x102d00…1b0680 [0x361]: Pad {f00=0x0088, f01=0x0190, f02=»TO I:MVC t P* & P* OPERAND ADDRESSES IN OP1A,OP2A P* LENGTH IN (LENG) D P* ` PMOVCHA EQU * j P LDR OP1E,OP1A ~ P LDR OP2E,OP2A P ADR OP1E,LENG P ADR OP2E,LENG P * PMOVCH2 EQU * ENTRY FOR DELETE HANDLER
0x102d00…1b0680 [0x362]: Pad {f00=0x0088, f01=0x406e, f02=»H v P P P . PEND EQU * SYMBOL VALUE GIVES MODULE LENGTH " P T P END @ jHA EQU * j P LDR OP1E,OP1A ~ P LDR OP2E,OP2A P ADR OP1E,LENG P ADR OP2E,LENG P * PMOVCH2 EQU * ENTRY FOR DELETE HANDLER
0x102d00…1b0680 [0x363]: Pad {f00=0x0088, f01=0x2008, f02=» !
0x102d00…1b0680 [0x364]: Pad {f00=0x0088, f01=0x0190, f02=» h * & * & 6 * & - d * & K * & i " &
0x102d00…1b0680 [0x365]: Pad {f00=0x0088, f01=0x0190, f02=» & & & $ & 4 & D & + T & I d & g t & & & & & & & 9 & W & u
0x102d00…1b0680 [0x366]: Pad {f00=0x0088, f01=0x0190, f02=» & & & $ & 4 & D & T & 7 d & U t & s & & & & & & ' & E & c
0x102d00…1b0680 [0x367]: Pad {f00=0x0088, f01=0x0190, f02=» & q & & $ & 4 & D & T & % d & C t & a & & & & & & & 3 & Q
0x102d00…1b0680 [0x368]: Pad {f00=0x0088, f01=0x0190, f02=» & _ & } & $ & 4 & D & T & d & 1 t & O & m & & & & & & ! & ?
0x102d00…1b0680 [0x369]: Pad {f00=0x0088, f01=0x0008, f02=» (
0x102d00…1b0680 [0x36a]: Pad {f00=0x0088, f01=0x0190, f02=» & P IDENT I:EVS UPD 77-04-26/ULJO P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-04-29 #2.2 P UPD 77-04-26/ULJO
0x102d00…1b0680 [0x36b]: Pad {f00=0x0088, f01=0x0190, f02=».1 ~ P UPD 76-10-06/POEG P UPD #1 76-06-01/POEG & P REL #1,76-06-15 F P ` , P*************************************** h , P* * , P* INTERPRETER SUBSTRING OPERAND * , P* ADDRESS EVALU
0x102d00…1b0680 [0x36c]: Pad {f00=0x0088, f01=0x0190, f02=» P******************* P* * $ P ENTRY I:EVS1 * @ P* * P******************* x P* 0 P* EVALUATES SUBSTINNG OPERANDS ON THE FORM: P* <ITEM><POINTER><LENGTH> P* P P
0x102d00…1b0680 [0x36d]: Pad {f00=0x0088, f01=0x0190, f02=»********* P P* 0 P* EVALUATES SUBSTRING OPERANDS ON THE FORM: $ P* <ITEM><POINTER> X P* LENGTH IN REG. LENG r P* P P , P EXTRN I:EVA0,I:EVA2 ITEM ADDRESS EVAL. P EXTRN I:ERR ERROR EXIT T P EJECT I:EVS
0x102d00…1b0680 [0x36e]: Pad {f00=0x0088, f01=0x0190, f02=»MP EQU 855 PTEST EQU 1 PNOTEST EQU 0 $ PPARM EQU TEST 8 P* N ( P* TEMPORARY INTERPRETER REGISTERS: X P* PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER PWK3 EQU A3 WORK REGISTER PWK4 EQU A4 OPCODE REGISTER
0x102d00…1b0680 [0x36f]: Pad {f00=0x0088, f01=0x018e, f02=»2A EQU A9 OPERAND 2 ADDRESS POP2E EQU A5 OPERAND 2 END $ * POP2T EQU A3 OPERAND 2 TYPE INDICATION F P* t POPCD EQU A11 OPCODE ~ P* P* NON-TEMPORARY REGISTERS: P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINT
0x102d00…1b0680 [0x370]: Pad {f00=0x0088, f01=0x0190, f02=» P* P* BIT MASKS P* " * PARITHB EQU X'10' ARITHMETRIC BASE BIT , PNUMBIT EQU X'20' NUMERIC BIT Z T P EJECT I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS ~ P P*************** P* *
0x102d00…1b0680 [0x371]: Pad {f00=0x0088, f01=0x0190, f02=» LENG : VALUE OF <LENGTH> (INPUT TO I:EVS2 ONLY) P* > P* H P* OUTPUT: R , P* OP1A : START OF SUBSTRING d 2 P* OP2A : ADDRESS OF <POINTER> ITEM @ P* OP1T : TYPE OF <ITEM> ITEM - IF ITEM IS BCD,
0x102d00…1b0680 [0x372]: Pad {f00=0x0088, f01=0x0190, f02=» OF <LENGTH> ITEM t , P* PP WILL BE BROPERLY UPDATED P* J P* T @ P* USED REGISTERS: ALL TEMPORARY REGS (A1-A10) WILL BE USED ^ P* P P* P* LOCAL REGISTER SYMBOLS: P* & PLENG EQU A7 VALUE OF <LENGTH> IT
0x102d00…1b0680 [0x373]: Pad {f00=0x0088, f01=0x0190, f02=» 10 ILLEGAL INDEX VALUE T P EJECT I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS P x P************************** P* * P* INTERNAL SUBROUTINES * P* * P**
0x102d00…1b0680 [0x374]: Pad {f00=0x0088, f01=0x0190, f02=»<POINTER> r P* PEVASS EQU * P* 0 P* FETCH <ITEM> OPERAND : P* Z P CF PS,I:EVA0 d P LDR OP1A,OP2A z P LDR OP1E,OP2E P LDR OP1T,OP2T P P IFT PARM=TEST SAVE OP1A P LDR SAV1,OP1A P XIF P
0x102d00…1b0680 [0x375]: Pad {f00=0x0088, f01=0x018e, f02=»ITHB+NUMBIT P XRK OP2T,NUMBIT P RF(NZ) ERR1 , P XIF @ P L T P EJECT I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS T P* * P* SET STRING IF COPY EXTENDED (XCOPY) P* P CWK OPCD,/6A P RF(E)
0x102d00…1b0680 [0x376]: Pad {f00=0x0088, f01=0x0190, f02=» P LDK WK1,NUMBIT P TM OP1T,WK1 P RF(NZ) EVS170 0 P F P* N P* <ITEM> WAS STRING X P* t , P* COMPUTE OP1A := <ITEM> + (<POINTER>) ~ P* P ADR* OP1A,OP2A P RTN PS P PEVS170 EQU * P* P* <
0x102d00…1b0680 [0x377]: Pad {f00=0x0088, f01=0x0190, f02=» P LDR WK2,WK1 SAVE P SRA WK1,1 / 2 P ADR OP1A,WK1 + 4 P L P* SET BIT 0 IN OP1T T P ANK WK2,1 ISOLATE LAST BIT p . P* - INDICATES IF START IN 2:ND HALFBYTE $ P SRC WK2,1 TO SIGN BIT POSITION * P ANK OP1T,255 CLEAR BIT 0 (
0x102d00…1b0680 [0x378]: Pad {f00=0x0089, f01=0x0190, f02=» I:EVS J P , P IFT PARM=TEST CHECK SUBSTRING VALIDITY P* J 0 P* CHKSS - CHECK THAT THE DEFINED SUBSTRING T 6 P* IS WHOLLY CONTAINED IN THE MAIN STRING P* PCHKSS EQU * P* P* COMPUTE END OF SUBSTRING
0x102d00…1b0680 [0x379]: Pad {f00=0x0089, f01=0x0190, f02=» P* TYPE OF <ITEM> IS STRING P* ( & P ADR WK2,LENG END OF SUBSTR IN WK2 2 P RF EVS390 P n P* v P* <ITEM> IS BCD P* PEVS370 EQU * P* 6 P* COMPUTE WK2 := OP1A [ OP1T(0) + LENG + 1 ] / 2 P* P LDR W
0x102d00…1b0680 [0x37a]: Pad {f00=0x0089, f01=0x018e, f02=» WK1,1 + 1 P SRA WK1,1 / 2 P ADR WK2,WK1 + ( P > T P EJECT I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS F P PEVS390 EQU * P* " P* HERE REGISTER CONTENTS ARE: P* $ P* SAV1: START OF M
0x102d00…1b0680 [0x37b]: Pad {f00=0x0089, f01=0x0190, f02=» P P* COMPARE ADDRESSES P , P* COMPARE SAV1,OP1A 4 P TNM SAV1,OP1A COMPARE SIGNS R P RF(N) *+6 SIGNS DIFFER v P CWR SAV1,OP1A SIGNS EQUAL P RF *+4 P CWR OP1A,SAV1 SIGNS DIFFER P RF(G) ERR2 P P*
0x102d00…1b0680 [0x37c]: Pad {f00=0x0089, f01=0x0190, f02=»4 P CWR WK2,OP1A SIGNS DIFFER P RF(G) ERR2 . P B P* COMPARE WK2,OP1E J P TNM WK2,OP1E COMPARE SIGNS f P RF(N) *+6 SIGNS DIFFER P CWR WK2,OP1E SIGNS EQUAL P RF *+4 P CWR OP1E,WK2 SIGNS DIFFER P RF(G) ERR
0x102d00…1b0680 [0x37d]: Pad {f00=0x0089, f01=0x0190, f02=» P****************** P* * " P* ENTRY I:EVS1 * < P* * V P****************** p P . P* EVALUATE SUBSTRING OPERAND OF THE FORM: P* <ITEM><POINTER><LENGTH> P* PI:EVS1 EQU * P ,
0x102d00…1b0680 [0x37e]: Pad {f00=0x0089, f01=0x018e, f02=»ERAND | P* P CF PS,I:EVA2 P . P IFT PARM=TEST CHECK TYPE 6 P ANK OP2T,ARITHB+NUMBIT X P XRK OP2T,NUMBIT x P RF(NZ) ERR1 P XIF P . P* SWITCH CONTENTS OF REGS. LENG AND OP2A P LDR WK1,OP2A $ P LDR OP2A,
0x102d00…1b0680 [0x37f]: Pad {f00=0x0089, f01=0x018e, f02=» P XIF P P IFF PARM=TEST P RTN PS 2 P XIF B T P EJECT I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS I:EVS N P P****************** P* * P* ENTRY I:EVS2 * P*
0x102d00…1b0680 [0x380]: Pad {f00=0x0089, f01=0x0190, f02=» " P IFT PARM=TEST EVAL AND CHECK PI:EVS2 CF PS,EVASS . P RB CHKSS H P XIF Z P f P IFT PARM=NOTEST JUST EVAL n PI:EVS2 EQU EVASS P XIF P P P P IFT PARM=TEST P PERR1 LDK WK1,EVSER1 P RF
0x102d00…1b0680 [0x381]: Pad {f00=0x0089, f01=0x4024, f02=»ULE LENGTH p P END @ K PI:EVS2 CF PS,EVASS . P RB CHKSS H P XIF Z P f P IFT PARM=NOTEST JUST EVAL n PI:EVS2 EQU EVASS P XIF P P P P IFT PARM=TEST P PERR1 LDK WK1,EVSER1 P RF
0x102d00…1b0680 [0x382]: Pad {f00=0x0089, f01=0x4008, f02=»@ VS2 EI:EVS2 EQU EVASS XIF & 2 : B ERR1 EQU * J ERR2 EQU * n v END ~@ RY I:EVS2 * . ** EVALUATE SUBSTRING OPERAND ON THE FORM: * <ITEM><POINTER> * "
0x102d00…1b0680 [0x383]: Pad {f00=0x0089, f01=0x2008, f02=» VS2 EI:EVS2 EQU EVASS XIF & 2 : B ERR1 EQU * J ERR2 EQU * n v END ~@ RY I:EVS2 * . ** EVALUATE SUBSTRING OPERAND ON THE FORM: * <ITEM><POINTER> * "
0x102d00…1b0680 [0x384]: Pad {f00=0x0089, f01=0x0190, f02=» P DSC0 INPUT,REWIND P DSC0 OUTPUT,REWIND P MOVE INLEN,='80' : PTOPLOOP MOVE BUFER,=' ' T P READ INPUT,BUFER,INLEN t P PERF CHKIO,INPUT,=C'INPUT' P IB INSTAT,END,END P MOVE I,='80' P PTRIMLOOP SUB I,='1'
0x102d00…1b0680 [0x385]: Pad {f00=0x0089, f01=0x0190, f02=» POUT WAIT OUTPUT " P PERF CHKIO,OUTPUT,=C'OUTPUT' P EDWRT .NW,OUTPUT,F F PF FRMT b P FCOPY BUFER p P FMEND P SB TOPLOOP P PEND DSC0 OUTPUT,REWIND P DSC0 OUTPUT,REWIND P DSC0 INPUT,REWIND P EXIT
0x102d00…1b0680 [0x386]: Pad {f00=0x0089, f01=0x4146, f02=»RR | P RET P PERR EDWRT CONSOLE,EF P EXIT : PEF FRMT H P FTEXT ' 0 ' X P FCOPY $TEXT l P FTEXT ' I/O ERROR' P FMEND P PEND P PZ EQU 0 PNE EQU 4 PLT EQU 2 PGT EQU 1 P PRE
0x102d00…1b0680 [0x387]: Pad {f00=0x0089, f01=0x2008, f02=» QU 1 END @ ( 0 CHKIO PROC DSET $TEXT 8 XSTAT DSET INSTAT V CB LT,INSTAT,='0',ERR r CB GT,INSTAT,='2',ERR RET ERR EDWRT CONSOLE,EF EXIT EF FRMT FTEXT ' 0 '
0x102d00…1b0680 [0x388]: Pad {f00=0x0089, f01=0x0190, f02=»R$ 9U AR FQ 0:D A _* A " A $ 4 l F T A & A $ " , R _U . " A ^: ` A ^ " ! R :W W W W ?W / A W ! A A PL _ @ _ I T " T
0x102d00…1b0680 [0x389]: Pad {f00=0x0089, f01=0x0006, f02=» 0 8 @
0x102d00…1b0680 [0x38a]: Pad {f00=0x0089, f01=0x0190, f02=» & P IDENT I:TRA UPD 77-03-10/ULJO P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-04-29 #2.2 P REL 77-04-15 #2.1
0x102d00…1b0680 [0x38b]: Pad {f00=0x0089, f01=0x0190, f02=».2 ~ P UPD 76-11-12/POEG P UPD 76-11-10 POEG & P REL 76-10-07 #1.1 B P UPD 76-10-06/POEG ^ P UPD 76-10-01/POEG z P UPD 76-02-17 #1 P REL #1,76-06-15 P & P********************************* & P*
0x102d00…1b0680 [0x38c]: Pad {f00=0x0089, f01=0x0190, f02=»************* | P P P & & P ENTRY I:NTR TRACE INITIALIZATION . P ENTRY I:PRT TRACE PRINTOUT X P ENTRY I:TRA0 | ( P ENTRY I:TRA ENCODE MODIFIED OPERAND " P ENTRY I:TRB ENCODE CR AND PS P ENTRY I:BUF TRACE BUFFER P ENT
0x102d00…1b0680 [0x38d]: Pad {f00=0x0089, f01=0x0190, f02=» ALIAS I:HEXW P EXTRN I:EVA0 P EXTRN I:NTPR , P B P EXTRN P:BAS PROGRAM BASE J T P EJECT I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA l P* P* INTERPRETER VERSION FLAG: P* PV EQU 1
0x102d00…1b0680 [0x38e]: Pad {f00=0x0089, f01=0x0190, f02=»LUSIVE ACCESS TO TRACE MODULE ~ $ PPRTNW EQU YES PRINT WITH NO WAIT & P N P* V P* I/O ORDERS: ` P* v P IFT PRTNW=YES $ PPRTOR EQU X'06' STD WRTE NO WAIT P XIF P P IFT PRTNW=NO & PPRTOR EQU X'86' STD WRTE WITH WAIT
0x102d00…1b0680 [0x38f]: Pad {f00=0x0089, f01=0x0190, f02=»RARY INTERPRETER REGISTERS: P* $ PWK1 EQU A1 WORK REGISTER . PWK2 EQU A2 WORK REGISTER N PWK3 EQU A3 WORK REGISTER n PWK4 EQU A4 OPCODE REGISTER , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 LENGTH ( POP1T E
0x102d00…1b0680 [0x390]: Pad {f00=0x0089, f01=0x0190, f02=»TYPE INDICATION z P* PLINK EQU 7 " POPCD EQU A11 OPCODE 4 P* P P* NON-TEMPORARY REGISTERS: Z P* ~ PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS P* ( P* TERMINAL STACK
0x102d00…1b0680 [0x391]: Pad {f00=0x0089, f01=0x0190, f02=» I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA v P* > ( P* COLUMNS FOR TRACE OUTPUT ENCODING H P* t PPPCOL EQU 8 POS FOR PP-VALUE ~ " PCRCOL EQU 18 POS FOR CR-VALUE * POPCOL EQU 26 POS FOR MODIFIED OPERAND P P* P*
0x102d00…1b0680 [0x392]: Pad {f00=0x0089, f01=0x0190, f02=»RA I:TRA I:TRA I:TRA I:TRA I:TRA r P* : P* PRINT BUFFER D P* PI:BUF RES 0 f P z P* TEXT DISPL IN BUF P P DATA '*1 TID ' 0-7 P DATA 'ADDR ' 8-13 P DATA 'OP CR LVL ' 14-25 " P DATA 'MOD
0x102d00…1b0680 [0x393]: Pad {f00=0x0089, f01=0x0190, f02=» ' j P DATA ' ' PBUFEND EQU * ( PLBUF EQU *-I:BUF < & P DATA 0 DUMMY FOR DRLP01 (DRIVER) T P* ~ P P IFT EXCTRA=YES P* 4 P* BUFFER POOL FOR "ATTACH PRINTER" TRICKY TRICK P* 2 PBUFPOL DATA BUFFRS,2 B
0x102d00…1b0680 [0x394]: Pad {f00=0x0089, f01=0x0190, f02=» I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA P* R P* TRACE INITIALIZATION: P* | PI:NTR EQU * P P IFT EXCTRA=YES P* "ATTACH" PRINTER P P LDK A7,1 TRY TO GET ... P LKM ... TH
0x102d00…1b0680 [0x395]: Pad {f00=0x0089, f01=0x0190, f02=»G READY ? r P RF(N) READY YES ! P , P LKM SWITCH 4 P DATA 0 H P RB WAIT X PREADY EQU * h P XIF | P* PRINT INITIAL BUFFER P LDK A7,'*' P CC A7,I:BUF P RF(NZ) RDY05 NOT INITIAL P LDKL A8,PRINT ECB
0x102d00…1b0680 [0x396]: Pad {f00=0x0089, f01=0x0190, f02=»WK2,I:BUF P LKM P DATA 1 PRDY05 EQU * . P B & P LDKL WK2,I:BUF BLANK OUT BUFFER: J . P LDR WK4,WK2 SET BUFFER POINTER FOR ENCODE t P LDK WK3,LBUF P ST WK3,PRINT+4 SET LENGTH P LDK WK1,' ' PCLEAR SCR WK1,WK2
0x102d00…1b0680 [0x397]: Pad {f00=0x0089, f01=0x0190, f02=» LDKL A4,I:BUF+PPCOL INITIALIZE BUFFER POINTER & P LD A1,CIA,TCA INSTRUCTION ADDRESS 6 P IFT V=1 ` , P SUKL A1,P:BAS COMPUTE RELATIVE ADDRESS p P XIF P CF PS,I:HEX P ADK A4,2 P LC* A1,CIA,TCA GET OPCODE P CF A14,I:HEXB P
0x102d00…1b0680 [0x398]: Pad {f00=0x008a, f01=0x0190, f02=» PROGRAM r T P EJECT I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA P* h 4 P* I:TRA0 - LEVEL 1 TRACE (TID,ADDR AND OPCODE) r P* PI:TRA0 EQU * P CF PS,I:NTR P RF RETUR T P EJECT I:TRA I:TRA I
0x102d00…1b0680 [0x399]: Pad {f00=0x008a, f01=0x018e, f02=» P CF PS,I:NTR P LDR LINK,PP SAVE PP P LD PP,CIA,TCA 8 P ADKL PP,1 ADJUST PP N P LCR WK1,PP FETCH ADCON j & P XRR OPCD,OPCD SET FOR E TYPE ITEM P CF PS,I:EVA0 P LDR PP,LINK RESTORE PP & P LDKL WK4,I:BUF+OPCOL FIELD STAR
0x102d00…1b0680 [0x39a]: Pad {f00=0x008a, f01=0x0190, f02=» P* " P* ENCODE VALUE I:HEXADECIMAL: P* 4 PVALUE LCR WK1,OP2A > P CF PS,I:HEXB X P ADKL OP2A,1 n & P CWK WK4,BUFEND-2 OUTSIDE BUFFER? P RF(G) VAL2 P CWR OP2A,OP2E P RB(NE) VALUE P* PVAL2 RES 0 & P S
0x102d00…1b0680 [0x39b]: Pad {f00=0x008a, f01=0x0190, f02=»A I:TRA I:TRA I:TRA I:TRA I:TRA I:TRA z P* B P* I:TRB: ENCODE CR AND PS: L P* p PI:TRB EQU * z P CF PS,I:NTR $ P LDKL A4,I:BUF+CRCOL FIELD START P LD A1,STKB,TCA P LC A1,-2,A1 P ANK A1,3 P O
0x102d00…1b0680 [0x39c]: Pad {f00=0x008a, f01=0x0190, f02=»1,1 $ P CF A14,I:HEXB ENCODE SUBR LEVEL $ P LDK WK4,OPCOL-2 LENGTH OF LINE 4 P ST WK4,PRINT+4 TO ECB PRETUR EQU * z P CF PS,I:PRT PRINT OUT TRACE & P ABL I:NTPR RETURN TO INTERPRETER T P EJECT I:TRA I:TRA I:TRA I:TRA I
0x102d00…1b0680 [0x39d]: Pad {f00=0x008a, f01=0x4156, f02=»A8,PRINT P LDK A7,PRTOR P LKM & P DATA 1 2 P* B P IFT EXCTRA=YES L P* d < P* "DETACH" PRINTER BY RELEASING THE (ONLY) DUMMY BUFFER n P* " P LDKL A8,DUMBUF ADDR OF BUFFER P LKM RELEASE IT P DATA -8,BUFPOL
0x102d00…1b0680 [0x39e]: Pad {f00=0x008a, f01=0x2008, f02=» D WRITE P LKM P DATA 1 $ P LCR OPCD,PP RESTORE OPCD 4 P* V P* ` P RTN PS j P* z P END @ P LDR A1,PS P CF A14,HEX P LDK WK4,20 LENGTH P ST WK4,PRINT+4 TO ECB P* P RTN PS
0x102d00…1b0680 [0x39f]: Pad {f00=0x008a, f01=0x0190, f02=» P* P PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER 6 PWK3 EQU A3 WORK REGISTER V PWK4 EQU A4 DITO v PWK5 EQU A5 DITO , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 END ( POP1T EQU A4 OPERAN
0x102d00…1b0680 [0x3a0]: Pad {f00=0x008a, f01=0x018e, f02=»ION n POPCD EQU A11 OPCODE P ( P* 0 P* NON-TEMPORARY REGISTERS: : P* ^ P h PPP EQU A12 PROGRAM POINTER p PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS P P* P* LOCAL REGISTERS: P*
0x102d00…1b0680 [0x3a1]: Pad {f00=0x008a, f01=0x0008, f02=» H P X `
0x102d00…1b0680 [0x3a2]: Pad {f00=0x008a, f01=0x0190, f02=» $ P IDENT I:ERR UPD 78-02-27/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P UPD 77-12-06/UKF d P REL 77-12-07 #2.4 P UPD 77-06-03/UKF P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P UPD 77-03-03/ULJO
0x102d00…1b0680 [0x3a3]: Pad {f00=0x008a, f01=0x0190, f02=» | P REL 76-11-15 #1.2 P UPD 76-11-10/POEG $ P REL 76-10-07 #1.1 @ P EXT 76-10-06/POEG P EXT 76-10-01/POEG x P UPD 76-06-09/POEG P REL #1,76-06-15 F P**************************************************************
0x102d00…1b0680 [0x3a4]: Pad {f00=0x008a, f01=0x0190, f02=»** P P EJECT I:ERR I:ERR P ENTRY I:ERR * P ENTRY I:ERR0 > P ENTRY I:ERR1 T P ENTRY I:ERR2 j P ENTRY I:ERR3 P ENTRY I:ERR4 P ENTRY I:ERR5 P ENTRY I:ERR6 P ENTRY I:ERR7 P ENTRY I:ERR8 P ENTRY
0x102d00…1b0680 [0x3a5]: Pad {f00=0x008a, f01=0x0190, f02=»:ERRF P ENTRY I:ER10 P ENTRY I:ER11 $ P ENTRY I:ER12 : P ENTRY I:ER13 P P ENTRY I:ER14 f P ENTRY I:ER15 | P ENTRY I:ER16 P ENTRY I:ER17 P ENTRY I:ER18 P P EXTRN I:BUF P EXTRN I:ECB P EXTRN
0x102d00…1b0680 [0x3a6]: Pad {f00=0x008a, f01=0x0190, f02=» & P EXTRN TC:ERR DEBUG ERROR HANDLER P EJECT I:ERR I:ERR 2 P* R $ P* CONDITIONAL ASSEMBLY FLAGS: P* PCOMP EQU 855 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST PSETCR EQU 0 PMAXL EQU 255 T P EJE
0x102d00…1b0680 [0x3a7]: Pad {f00=0x008a, f01=0x018e, f02=» P* PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER . PWK3 EQU A3 WORK REGISTER N PWK4 EQU A4 OPCODE REGISTER n , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 LENGTH ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR
0x102d00…1b0680 [0x3a8]: Pad {f00=0x008a, f01=0x0190, f02=» POPCD EQU A11 OPCODE P* P* NON-TEMPORARY REGISTERS: * P* N PPP EQU A12 PROGRAM POINTER X PPS EQU A14 STACK POINTER z PTCA EQU A13 TCA BASE ADDRESS P* ( P* BASE AND POINTER REGISTER USAGE: P* PB3 EQU A8 ST
0x102d00…1b0680 [0x3a9]: Pad {f00=0x008a, f01=0x0190, f02=»L STACK BASE DISPLACEMENT P* " PSTKB EQU 2 , P* > PCIA EQU -6 CURR INSTR ADDR H T P EJECT I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR j P* P* BIT MASKS: P* ( PARITHB EQU X'10' ARITHMETIC BA
0x102d00…1b0680 [0x3aa]: Pad {f00=0x008a, f01=0x0190, f02=»26 FIELD FOR !ERR XX! , PTXCOL EQU ERCOL+8 FIELD FOR MESSAGE TEXT T P EJECT I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR N P* P* ERROR 0: ILLEGAL OPCODE P* PI:ERR0 LDK WK1,0 P RF I:ERR P*
0x102d00…1b0680 [0x3ab]: Pad {f00=0x008a, f01=0x0190, f02=»ERAND TYPE z P* PI:ERR2 LDK WK1,2 P RF I:ERR 4 P* F P* ERROR 3: ODD WORD ADDRESS P P* t PI:ERR3 LDK WK1,3 ~ P RF I:ERR P* P* ERROR 4: MISSING ADDRESS P* PI:ERR4 LDK WK1,4 P RF I:ERR P
0x102d00…1b0680 [0x3ac]: Pad {f00=0x008a, f01=0x0190, f02=»I:ERR P* P* ERROR 6: P* , PI:ERR6 LDK WK1,6 6 P RF I:ERR N P* ` P* ERROR 7: STACK UNDERFLOW j P* PI:ERR7 LDK WK1,7 P RF I:ERR T P EJECT I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR
0x102d00…1b0680 [0x3ad]: Pad {f00=0x008a, f01=0x0190, f02=»OR 9: STACK OVERFLOW P* PI:ERR9 LDK WK1,9 & P RF I:ERR > P* P P* ERROR A: INDEX OVERFLOW Z P* | PI:ERRA LDK WK1,10 P RF I:ERR P* " P* ERROR B: ILLEGAL INDEX TYPE P* PI:ERRB LDK WK1,11 P RF
0x102d00…1b0680 [0x3ae]: Pad {f00=0x008a, f01=0x0190, f02=»ERR | P* $ P* ERROR D: EDIT BUFFER OVERFLOW P* > PI:ERRD LDK WK1,13 H P RF I:ERR b P* t & P* ERROR E: EDIT PICTURE OVERFLOW ~ P* PI:ERRE LDK WK1,14 P RF I:ERR P* 2 P* ERROR F: ALLOCATION ERROR AT IN
0x102d00…1b0680 [0x3af]: Pad {f00=0x008a, f01=0x0190, f02=» PI:ER10 LDK WK1,16 P RF I:ERR " P* 4 $ P* ERROR 11: ILLEGAL FORMAT CODE > P* f PI:ER11 LDK WK1,17 p P RF I:ERR P* P EJECT I:ERR I:ERR P* ( P* ERROR 12: NO FIX BUFFER ALLOCATED P* PI:ER
0x102d00…1b0680 [0x3b0]: Pad {f00=0x008a, f01=0x0190, f02=»I:ERR P* & P* ERROR 14: ILLEGAL CONTROL CODE P* B PI:ER14 LDK WK1,20 L P RF I:ERR f P* x $ P* ERROR 15: ILLEGAL INDEX VALUE P* PI:ER15 LDK WK1,21 P RF I:ERR P* * P* ERROR 16: FORMAT CONDITIONS C
0x102d00…1b0680 [0x3b1]: Pad {f00=0x008a, f01=0x0190, f02=»DK WK1,23 P RF I:ERR P* $ P* ERROR 18: LENGTH ERROR . P* P PI:ER18 LDK WK1,24 Z P RF I:ERR t T P EJECT I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR P* P* COMMON HANDLING: P*
0x102d00…1b0680 [0x3b2]: Pad {f00=0x008a, f01=0x0190, f02=»PS,I:NTR ENCODE TID,PP AND OPCODE . P LD PS,STKB,TCA REINITIALIZE STACK POINTER * P SUKL PS,4 P* n P LDKL WK3,'**' ERROR MARKER x P ST WK3,I:BUF+2 P ST WK3,I:BUF+6 P LDKL WK3,'ER' P ST WK3,I:BUF+ERCOL P LDKL WK3,'R
0x102d00…1b0680 [0x3b3]: Pad {f00=0x008a, f01=0x0190, f02=» EJECT I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR P* X 0 P* FIND MESSAGE BY LOOPING THROUGH TEXT AREA b P* $ P LDKL OP2E,TXAREA TEXT AREA BASE PTXLOOP SUK OP1E,1 P RF(N) TXFND $ P ADR* OP2E,OP2E BYPA
0x102d00…1b0680 [0x3b4]: Pad {f00=0x008a, f01=0x0190, f02=»LDR* WK1,OP2E TEXT LENGTH P LDR WK2,WK1 " 2 P ADK WK2,TXCOL-2 COMPUTE REQ.LENGTH FOR PRINT 6 P ST WK2,I:ECB+4 l P* MOVE TEXT TO PRINT BUFFER P 8 P LDKL WK3,I:BUF+TXCOL RECIEVING FIELD IN PRINT BUFFR PTXMOVE SUK WK1,2 P RF(NP
0x102d00…1b0680 [0x3b5]: Pad {f00=0x008a, f01=0x0190, f02=» P " P CF PS,I:PRT PRINT TRACE LINE T P EJECT I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR I:ERR 6 P* . P* SET UP PARAMS FOR DEBUGGER AND CALL IT P* & P LDKL A1,I:BUF+ERCOL ADDR OF TEXT P LD A2,I:ECB
0x102d00…1b0680 [0x3b6]: Pad {f00=0x008a, f01=0x0190, f02=»ERR I:ERR I:ERR I:ERR I:ERR j P* ERROR MESSAGES: 2 P* L PTXAREA EQU * V , PMES0 DATA MES1-MES0,'ILLEGAL OPERATION' j * PMES1 DATA MES2-MES1,'MIXED ARITHMETIC' & PMES2 DATA MES3-MES2,'ILLEGAL TYPE' $ PMES3 DATA MES4-*,'ODD WO
0x102d00…1b0680 [0x3b7]: Pad {f00=0x008a, f01=0x0190, f02=»-* * PMES7 DATA MES8-MES7,'STACK UNDERFLOW' & PMES8 DATA MES9-*,'ARITHM OVERFLOW' 8 & PMES9 DATA MES10-*,'STACK OVERFLOW' b ( PMES10 DATA MES11-*,'INDEX OVERFLOW' ( PMES11 DATA MES12-*,'ILL INDEX TYPE' $ PMES12 DATA MES13-*,'DIV BY ZERO'
0x102d00…1b0680 [0x3b8]: Pad {f00=0x008b, f01=0x0190, f02=» MES16-* , P DATA 'ALLOCATION ERR AT INITIALIZATION' PMES16 DATA MES17-* @ ( P DATA 'ILLEGAL INSTRUCTION ADDRESS' Z PMES17 DATA MES18-* P DATA 'ILLEGAL FORMAT CODE' PMES18 DATA MES19-* $ P DATA 'NO FIX BUFFER ALLOCATED' PMES1
0x102d00…1b0680 [0x3b9]: Pad {f00=0x008b, f01=0x412c, f02=»ES22-* P DATA 'ILLEGAL INDEX VALUE' PMES22 DATA MES23-* 2 & P DATA 'FORMAT CONDITIONS CHANGED' L PMES23 DATA MES24-* v P DATA 'ILLEGAL PARAMETER' PMES24 DATA MES25-* P DATA 'LENGTH ERROR' PMES25 EQU * PTXAEND DATA 0
0x102d00…1b0680 [0x3ba]: Pad {f00=0x008b, f01=0x2008, f02=» MES6 EQU * * %MES7 DATA MES8-MES7,'STACK UNDERFLOW' & !MES8 DATA MES9-*,'STACK OVERFLOW' N & "MES9 DATA MES10-*,'INDEX OVERFLOW' x ( #MES10 DATA MES11-*,'INDEX OVERFLOW' ( #MES11 DATA MES12-*,'ILL INDEX TYPE' MES12 EQU *
0x102d00…1b0680 [0x3bb]: Pad {f00=0x008b, f01=0x0190, f02=» GET INDEX , P STR WK2,WK5 AND STORE IT IN INDEX ITEM ! P ! B . PREQE40 LD WK5,DSCBRI,A8 GET RECIEVING ITEM ! J P RF(Z) TRIOEX THERE'S NONE ! | P ! P* ! " P* MOVE DATA TO RECIEVING ITEM ! P* ! $ P ANK WK1,3 CHECK I/O RETURN CODE ! . P R
0x102d00…1b0680 [0x3bc]: Pad {f00=0x008b, f01=0x0190, f02=» MOVE DONE ! | P LCR WK4,WK2 GET BYTE " P SCR WK4,WK5 PUT BYTE " 0 P ADK WK5,1 BUMP PTR " N P ADK WK2,1 DITO " j P SUK WK3,1 COUNT " P RB REQE44 LOOP " P " 4 PREQE50 LDK A7,X'22' RELEASE DATACOM READ BUFFER " P LKM " P DATA 1 "
0x102d00…1b0680 [0x3bd]: Pad {f00=0x008b, f01=0x0190, f02=» OUTPUT: WK1 - CONDITION VALUE " , P* WK2 - STACK BASE POINTER # ( P* # X P* WRK.REG: WK3 # b P* # | * PIOREQS LDK WK1,2 GET STATUS AND SET CR # P LD WK2,ECBST,A8 # P LDKL WK3,MASK2 # P TM WK2,WK3 # P RF(NZ) IORRTN #
0x102d00…1b0680 [0x3be]: Pad {f00=0x008b, f01=0x0190, f02=»NZ) IORRTN # P LDK WK1,0 $ PIORRTN LD WK2,STKB,TCA $ $ " P RTN PS RETURN WITH CR IN WK2 $ B P EJECT T:IO T:IO T:IO $ h P $ ( P* T:FDSP - FETCH DATASET PARAMETERS $ P $ P* EXIT: A7=W,E-BITS $ P* A8=DSET ADDR $ P $ PT:FDSP
0x102d00…1b0680 [0x3bf]: Pad {f00=0x008b, f01=0x0190, f02=»:FML $ t P % " P ANK WK3,63 ISOLATE DSET INDEX % P LDR WK2,WK3 COPY FOR I:FML % : ( P SUK WK3,16 SEE IF FORMAL PARAMETER % ^ & P ABL(N) I:FML GO FETCH ACTUAL DITO % P*GET W- AND E-BITS % P LCR A7,PP % P ANK A7,WAITBT+ECHBIT % P % P ADK
0x102d00…1b0680 [0x3c0]: Pad {f00=0x008b, f01=0x0190, f02=»1 5 t P RF(O) *+4 CARRY? 6 P RF STOR35 NO! 6 $ P LDKL WK2,/7FFF 6 : & P ANS WK2,ECBCW1,A8 CLEAR SIGN BIT 6 R P IM ECBCW2,A8 ADD CARRY 6 | P IFT PARM=TEST 6 " P RF(O) ERR2 ERROR IF OVERFLOW 6 P XIF 6 * PSTOR35 XRR WK2,WK2 CLEAR WORK REGISTER
0x102d00…1b0680 [0x3c1]: Pad {f00=0x008b, f01=0x0004, f02=» h p
0x102d00…1b0680 [0x3c2]: Pad {f00=0x008b, f01=0x0190, f02=» & P IDENT I:CHK T,-1,1,-/76-09-14 P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-04-29 #2.2 P REL 77-04-15 #1.2
0x102d00…1b0680 [0x3c3]: Pad {f00=0x008b, f01=0x0190, f02=» ~ P REL #1,76-06-15 P " * P************************************ * ( P* * X ( P* TRALA RUNTIME CHECKOUT HANDLER * ( P* * * P************************************ P
0x102d00…1b0680 [0x3c4]: Pad {f00=0x008b, f01=0x0190, f02=» ERROR HANDLER * P EXTRN TC:CHK DEBUG SUPERVISION ENTRY P D * P EXTRN P:BAS INTERPRETIVE PROGRAM BAS L * P EXTRN P:END - " - - " - END z P P********************* P* * P* REGISTER USAGE * P
0x102d00…1b0680 [0x3c5]: Pad {f00=0x008b, f01=0x0190, f02=»NTER z PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS , P P P* LOCALLY USED REGISTERS: X P z PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER PWK3 EQU A3 WORK REGISTER PWK4 EQU A4 OPCODE REGISTER T P EJECT
0x102d00…1b0680 [0x3c6]: Pad {f00=0x008b, f01=0x0190, f02=» P* PROCEDURE * P* * P*************** 4 P L * PI:CHK LDR WK3,PP FETCH PROGRAM POINTER T $ P SRL WK3,1 SHIFT FOR COMPARISON & P LDKL WK4,P:BAS FETCH PROGRAM BASE P SRL WK4,1 SHIFT FOR C P CWR WK3,WK4 COMPARE
0x102d00…1b0680 [0x3c7]: Pad {f00=0x008b, f01=0x4104, f02=» | P RF(NL) ERRAD ADDRESS ERROR P , P CF PS,TC:CHK CALL TRABUG 4 P RTN PS RETURN V P l P t P* ADDRESS ERROR: | P 8 PERRAD LDK WK1,X'10' ERROR CODE FOR ILLEGAL INSTR ADR P ABL I:ERR P P END @ RE
0x102d00…1b0680 [0x3c8]: Pad {f00=0x008b, f01=0x2008, f02=» END @ RE " RF(L) ERRAD ERRONEOUS ADDRESS * $ LD WK4,P:END FETCH PROGRAM END P SRL WK4,1 SHIFT FOR C x CWR WK3,WK4 COMPARE RF(NL) ERRAD ADDRESS ERROR CF PS,TC:CHK CALL TRABUG RTN PS RE
0x102d00…1b0680 [0x3c9]: Pad {f00=0x008b, f01=0x0006, f02=» 0 H
0x102d00…1b0680 [0x3ca]: Pad {f00=0x008b, f01=0x0190, f02=» F " Z T 6 $ J X | N v @ ^ X h ` TDCU DLU LIC PRC RSU ` RDS RDO PRT LST RDA PRD LSD PCH POB PLD DUF INC MOV
0x102d00…1b0680 [0x3cb]: Pad {f00=0x008b, f01=0x0190, f02=»p FCL p BCL p FRT p FOR p LKE p LED DEB p EDT SVD ` SVU REW ULD FFS FBS RFS RBS WEF WES WEV SDM HSF p JOB END MES PSE WLB
0x102d00…1b0680 [0x3cc]: Pad {f00=0x008b, f01=0x0190, f02=»XRF P , . BUG p TLT p 0 * LKF p 2 N P 9B 9A R D P < N P N 9 V O O b N 9CV < N 9 R N 9AV < N 9 V O W $ j R (P R *PT _ O & V j !
0x102d00…1b0680 [0x3cd]: Pad {f00=0x008b, f01=0x0190, f02=» , P^ PZ P R T TYT O , P T O , P4 P0 T O T O : W 0 V T _^ @ D H ;DRB I H P0 H P* " P _ D 4 # - ] (@ I H R ;A;i _X : F 0 1P T T
0x102d00…1b0680 [0x3ce]: Pad {f00=0x008b, f01=0x0190, f02=» Y X , P P , P P C U T T U T P0 @ ( P _ , ) % ] U (@ T ;F^ N 4 T C R W:_ _ _ B , @ T * ,P 8g:k9A 4Y H % Y _ W _ @ @
0x102d00…1b0680 [0x3cf]: Pad {f00=0x008b, f01=0x0190, f02=»_ B , ,P 8g9A *Y :k H % Y W YN R W _ _ _ W V V W V N C R W _ _ _ V W W V @ D * ( V ,P0R 9 :AW H - Q - 9a:K8G # P _8 Y> W V V : Y f
0x102d00…1b0680 [0x3d0]: Pad {f00=0x008b, f01=0x408a, f02=» 2 F IDENT T:EXIT VER=T,REL=2.2,DATE=77-04-29 F T:EXITK F : T:EXITK F L ( F ` F t@ F 6-12-13 #1.3 P REL 76-11-15 #1.2 P REL 76-10-07 #1.1 P UPD XX-XX-XX P REL #1,76-06-15 P*
0x102d00…1b0680 [0x3d1]: Pad {f00=0x008b, f01=0x0004, f02=» x
0x102d00…1b0680 [0x3d2]: Pad {f00=0x008b, f01=0x0190, f02=» & P IDENT T:SCD T,-1,1,-/76-09-14 P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2
0x102d00…1b0680 [0x3d3]: Pad {f00=0x008b, f01=0x0190, f02=».1 ~ P REL 76-12-13 #1.3 P REL 76-11-15 #1.2 & P REL 76-10-07 #1.1 B P UPD 76-06-09/POEG ^ P REL #1,76-06-15 z H P* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * H P*
0x102d00…1b0680 [0x3d4]: Pad {f00=0x008b, f01=0x0190, f02=» * x H P* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 4 P P P ENTRY T:ACTV ACTIVATION P ENTRY T:PAUS PAUSE $ P ENTRY T:RSTR RESTART FROM PAUS P P P EXTRN
0x102d00…1b0680 [0x3d5]: Pad {f00=0x008b, f01=0x0190, f02=»CT T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD P* T $ P* CONDITIONAL ASSEMBLY FLAGS: ^ P* PCOMP EQU 855 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST P* ( P* TEMPORARY INTERPRETER REGISTE
0x102d00…1b0680 [0x3d6]: Pad {f00=0x008b, f01=0x0190, f02=»E REGISTER , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1L EQU A6 OPERAND 1 END B ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR d " POP2A EQU A9 OPERAND 2 ADDRESS POP2L EQU A5 OPERAND 2 END * POP2T EQU A3 OPERAND 2 TYPE INDICATION P*
0x102d00…1b0680 [0x3d7]: Pad {f00=0x008b, f01=0x0190, f02=» STACK POINTER PTCA EQU A13 TCA BASE ADDRESS T P EJECT T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD : P P******************* PT:ACTV EQU * P******************* P P* 0 P* GET FIRST PAR
0x102d00…1b0680 [0x3d8]: Pad {f00=0x008c, f01=0x0190, f02=»OGRAM PTR | P ADR WK3,WK3 P & P IFT PARM=TEST . P RF(Z) ERR4 D P XIF X P d < P LD OP1A,T:BAT,WK3 LOAD ACT.ADDR. FROM BRANCH ADDR TABLE l P IFT PARM=TEST PERR4 ABL(Z) I:ERR4 P XIF P* 0 P* GET SECOND PARAMETE
0x102d00…1b0680 [0x3d9]: Pad {f00=0x008c, f01=0x0190, f02=»TO A1 d P* P LDR A1,OP1A P , P LKM 4 P DATA -4 @ . P DATA I:NTPA INTERPRETER ACTIVATION POINT P P P RF RETURN T P EJECT T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD P P**************
0x102d00…1b0680 [0x3da]: Pad {f00=0x008c, f01=0x0190, f02=» CF PS,GETTID LOADS PARAM INTO A7 P * P* 2 & P* LKM REQUEST WITH PARAM IN A7 < P* f P LKM p P DATA 4 | P P RF RETURN P P P******************* PGETTID EQU * P******************* P* :
0x102d00…1b0680 [0x3db]: Pad {f00=0x008c, f01=0x0190, f02=»OAD 1:ST BYTE " P ECR A7,A7 INTO LEFT HALFWORD 4 P LC A7,1,OP2A LOAD 2:ND BYTE INTO RIGHT HALFWORD < P RTN PS t T P EJECT T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD P P******************* PT:PAUS EQU
0x102d00…1b0680 [0x3dc]: Pad {f00=0x008c, f01=0x4054, f02=» P P PRETURN ABL I:RT1 P , P 4 P < P END D@ PBYTE INTO RIGHT HALFWORD < P RTN PS t T P EJECT T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD T:SCD P P******************* PT:PAUS EQU
0x102d00…1b0680 [0x3dd]: Pad {f00=0x008c, f01=0x2008, f02=» METERS - JUST SUPERVISOR REQUEST * 0 LKM : DATA 5 F V ^ RETURN ABL I:RT1 f ~ END @ VES ITEM ADDR IN OP2A * & !* LKM REQUEST WITH PARAM IN A7 *
0x102d00…1b0680 [0x3de]: Pad {f00=0x008c, f01=0x0190, f02=» LABEL = INT DATE = 77-06-16 PACK NBR = -0- f
0x102d00…1b0680 [0x3df]: Pad {f00=0x008c, f01=0x0190, f02=» LABEL = INT DATE = 77-06-16 PACK NBR = -0- f
0x102d00…1b0680 [0x3e0]: Pad {f00=0x008c, f01=0x0190, f02=» 5 h , ( R $ R W R # X _ )_" V 6 I:EVS2 6 8 , ( E $0T W 6 J I:ERR 6 z I:CPY 6 I:XCP 6 , ( W W [ 6 , ( : Z !0 , !0P 0 6
0x102d00…1b0680 [0x3e1]: Pad {f00=0x008c, f01=0x0004, f02=»
0x102d00…1b0680 [0x3e2]: Pad {f00=0x008c, f01=0x0190, f02=» & P IDENT T:MSK0 ORG=76-11-11/JON P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P REL 77-09-07 #2.3 P REL 77-06-16 #2.2 P REL 77-06-16 #2.2
0x102d00…1b0680 [0x3e3]: Pad {f00=0x008c, f01=0x0190, f02=».1 ~ P REL 76-12-13 #1.3 P REL 76-11-15 #1.2 & P* B P* L P********************* V P* * t P* T E S T M A S K * P* * P********************* P* * P* TEST MASK OF TWO
0x102d00…1b0680 [0x3e4]: Pad {f00=0x008c, f01=0x0190, f02=» MASK P* , P EXTRN I:EVA0 EVALUATE VARIABLE ADDRESS P EXTRN I:EVA2 H P EXTRN I:RT1 RETURN ADDRESS ^ $ P EXTRN I:ERR ERROR PRINT ROUTINE P* P* CONDITIONAL ASSEMBLY P* PTEST EQU 1 PNOTEST EQU 0 " PPARM E
0x102d00…1b0680 [0x3e5]: Pad {f00=0x008c, f01=0x0190, f02=»A2 WORK REGISTER , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 LENGTH H * POP1T EQU A4 OPERAND 1 TYPE INDICATION l * POP2A EQU A9 OPERAND 2 ADDRESS REGISTER POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE IND
0x102d00…1b0680 [0x3e6]: Pad {f00=0x008c, f01=0x0190, f02=»SE ADDRESS ~ PPS EQU A14 STACK POINTER P* 2 ( P* TERMINAL STACK BASE DISPLACEMENT < P* h PSTKB EQU 2 r PSTKE EQU -2 P* P* BIT MASKS P* & PARITHB EQU /10 ARITHMETIC BASE BIT PNUMBIT EQU /20 NUMERIC BIT T
0x102d00…1b0680 [0x3e7]: Pad {f00=0x008c, f01=0x0190, f02=» * P****************** P* * , P* GET 1:ST PARAMETER - BINARY DATA ITEM 4 P* d PT:MSK RES 0 n ( P CF PS,I:EVA0 EVALUATE 1:ST OPERAND P IFT PARM=TEST P ANK OP2T,ARITHB+NUMBIT P SUK OP2T,NUMBIT TYPE? P RF(NZ)
0x102d00…1b0680 [0x3e8]: Pad {f00=0x008c, f01=0x018e, f02=» ( P CF PS,I:EVA0 EVALUATE 2:ND OPERAND P IFT PARM=TEST 0 P ANK OP2T,ARITHB+NUMBIT F P SUK OP2T,NUMBIT TYPE? f P RF(NZ) MSK010 NOT BINARY P XIF P $ P LD WK2,STKB,TCA GET STACK BASE P ANR* OP1A,OP2A TEST MASK P
0x102d00…1b0680 [0x3e9]: Pad {f00=0x008c, f01=0x404e, f02=» P ABL I:ERR PRINT ERROR P XIF " P . P 6 P END >@ JT,ARITHB+NUMBIT F P SUK OP2T,NUMBIT TYPE? f P RF(NZ) MSK010 NOT BINARY P XIF P $ P LD WK2,STKB,TCA GET STACK BASE P ANR* OP1A,OP2A TEST MASK P
0x102d00…1b0680 [0x3ea]: Pad {f00=0x008c, f01=0x2008, f02=» T MASK CFR WK2,P SAVE CR ON STACK ABL I:RT1 B END T@ `BINARY DATA ITEM L * | T:MSK RES 0 $ LD WK2,STKB,TCA GET STACK BASE ( # CF PS,I:EVA0 EVALUATE 1:ST OPERAND & " LDR* OP1A,OP2A SAVE VALUE O
0x102d00…1b0680 [0x3eb]: Pad {f00=0x008c, f01=0x40fc, f02=» 2 F IDENT I:HEX VER=T,REL=2.2,DATE=77-04-29 A I:HEXBK I:HEXW I:HEX A : I:HEXBK A Z I:HEXW A n I:HEX A , ( W 9 " R 0 1 Y A ! : A W A " A @ A GIT P*
0x102d00…1b0680 [0x3ec]: Pad {f00=0x008c, f01=0x4114, f02=» 2 F IDENT I:CHK VER=T,REL=2.2,DATE=77-04-29 B I:CHK B : I:CHK B J P:BAS B P:END B l TC:CHK B | * & @ ;a <a R <a V B I:ERR B : B R V B $ B
0x102d00…1b0680 [0x3ed]: Pad {f00=0x008c, f01=0x0190, f02=» 2 F IDENT T:SCD VER=T,REL=2.2,DATE=77-04-29 C T:ACTVK T:PAUS T:RSTR C : T:ACTVK C T:BAT C p I:ERR4 C , ( 2 P ( C I:NTPA C T:RSTR " C I:EVA0 C , ( @ W
0x102d00…1b0680 [0x3ee]: Pad {f00=0x008c, f01=0x4010, f02=» B C @ D CD VER=T,REL=2.2,DATE=77-04-29 C T:ACTVK T:PAUS T:RSTR C : T:ACTVK C T:BAT C p I:ERR4 C , ( 2 P ( C I:NTPA C T:RSTR " C I:EVA0 C , ( @ W
0x102d00…1b0680 [0x3ef]: Pad {f00=0x008c, f01=0x4166, f02=» 2 F IDENT T:USE VER=T,REL=2.2,DATE=77-04-29 E T:USE E : T:USE E J T:CAT E I:EVA0 E l , ( 2 ! P D P 2 E ~ , ( V & D Q $ R P D P D E I:RT0 E I:ERR E * & = D_ '
0x102d00…1b0680 [0x3f0]: Pad {f00=0x008c, f01=0x0190, f02=» @ Q F 4 1 A : 2" P0 P, P( V P T * @ P . 60 FOR.O/R.1 SYMBOL TABLE0 UND.ENT.0 UND.LAB.0 ASS.ERR.1 X $ ) $ 0P P $ ) _ : d ' L R L _ 0 ) ^ : 9 R : ) Y : @ @ P
0x102d00…1b0680 [0x3f1]: Pad {f00=0x008c, f01=0x0004, f02=»
0x102d00…1b0680 [0x3f2]: Pad {f00=0x008c, f01=0x0190, f02=» & P IDENT T:DUPL UPD 78-01-17/PEEN P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P REL 77-12-07 #2.4 f D P*************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* D P****
0x102d00…1b0680 [0x3f3]: Pad {f00=0x008c, f01=0x018e, f02=»T:EDFL z P* P EXTRN I:EVA0 P EXTRN I:MOV . " P EXTRN T:RNOK RETURN WITH CR 2 B " P EXTRN T:ROK RETURN WITH CR 0 h P EXTRN I:ERR2 ILLEGAL TYPE P EJECT T:DUPL T:DUPL P* " P* CONDITIONAL ASSEMBLY FLAGS P*
0x102d00…1b0680 [0x3f4]: Pad {f00=0x008c, f01=0x0190, f02=» P* PT:DAD EQU -8 P* & PDUPL EQU 20 0 PTYP2 EQU 48 D PPP EQU A12 PROGRAM POINTER X PTCA EQU A13 TCA BASE ADDRESS z PPS EQU A14 P* " PBFCB EQU A11 FCB BASE ADDRESS * POP2T EQU A3 OPERAND 2 TYPE INDICATION
0x102d00…1b0680 [0x3f5]: Pad {f00=0x008c, f01=0x0190, f02=»L T:DIS T:DIS T:DIS T:DIS x P* . P* DUPLICATION 8 P* N PT:DUPL EQU * X P LD* BFCB,T:DAD,TCA l " P ADR BFCB,TCA GET FCB ADDRESS $ P CALL I:EVA0 GET OPERAND ADDRESS P* TEST IF STRING P IFT PARM=TEST P LDR
0x102d00…1b0680 [0x3f6]: Pad {f00=0x008c, f01=0x0190, f02=»EX h , P ABL(Z) T:RNOK JUMP IF DUPL NOT ALLOWED P CALL T:DUPX : P ABL T:ROK N P EJECT T:DUPL T:DUPL ` P* " P* SPECIAL ENTRY USED BY T:EDFL P* PT:DUPX EQU * P LDR A10,A9 P LDR A6,A5 P LDR A4,A3 P L
0x102d00…1b0680 [0x3f7]: Pad {f00=0x008c, f01=0x0190, f02=»0 PDUP100 EQU * P SCR A1,A9 P ADKL A9,1 0 P CWR A9,A5 B ( P RB(NE) DUP100 JUMP IF NOT FINISHED T 0 P CALL I:EVA0 CALCULATE ADDRESS TO DUPL ITEM P LDR A1,OP2T COPY TYPE P ANK A1,NUMBIT ( P ST A1,TYP2,BFCB STORE TYPE OF FIE
0x102d00…1b0680 [0x3f8]: Pad {f00=0x008d, f01=0x40f4, f02=»2,A10 GET LENGTH OF RECEIVING ITEM P SUR A1,A2 * ( P RF(NN) DUP200 IF RECEIVING SHORTER < " P ADR A6,A1 ADJUST END ADDRESS h PDUP200 EQU * P LDR PP,A8 RESTORE PP P CALL I:MOV P RTN PS P END @
0x102d00…1b0680 [0x3f9]: Pad {f00=0x008d, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x3fa]: Pad {f00=0x008d, f01=0x0190, f02=» P T < _ R h T* P" P F 4 P @ G 4 @ P _> G 4 4 G T_ x PX P x @V P ,,Q R A W$ < P N N$ <c! 9A _P ((RL 07Q , * ( ))R W
0x102d00…1b0680 [0x3fb]: Pad {f00=0x008d, f01=0x0190, f02=» O _ 2! Q : F A 2 : ,,Q R A : Z J R R @ R : h P P ( : 6 : 0 : 2' ?A 2&p h : @ P @ P P P R P 9 G T 4 N G 4 h P : JX Q : $" *
0x102d00…1b0680 [0x3fc]: Pad {f00=0x008d, f01=0x0190, f02=» _ J 1 A X A @ T @ B JU A A 4 A R 4 F A D t E ^ ( A I ^ @ A @ A A @ " A @ @ @ P $ )_ ASM 04 J A J JR6 ,,Q
0x102d00…1b0680 [0x3fd]: Pad {f00=0x008d, f01=0x0190, f02=» _, P " @ @ A PT $ $# P $ ] T A A @ T A 0_Z ] A @ P W P @ % A @ P 6 d P~ $Y $# Y $
0x102d00…1b0680 [0x3fe]: Pad {f00=0x008d, f01=0x0190, f02=» P N d A " 4 & ( 4 X d A P 0 IASS.ERR.Q D @ "1 I T A I D @ i DS A I U @ i US A I N @ i NS A I R @ i RS A I R @ i RS A
0x102d00…1b0680 [0x3ff]: Pad {f00=0x008d, f01=0x0190, f02=» I C A I X A I M A P F W P B _ p DR "1 p TR ! 1 h DR DRS !h UR URS !h NR NRS !h RR RRS !h RR RRS !h FR h 1R h WR | h CR h CR z !h CR r p MR ! a h 2R ! 1RS !h TN p BR
0x102d00…1b0680 [0x400]: Pad {f00=0x008d, f01=0x0190, f02=» h RK ( RKL h RK 0 RKL I F ! i WK ~ i CK t P B q BL ` IO@ @ h NR H h TR @ ` STH ? h ST H ` NB(@ h LT h NH h KM ( ` IT > h CR !i CK ! ` LA8 h RA 8 h LL 8@h RL 8`h LC 8 h RC 8 p LN8
0x102d00…1b0680 [0x401]: Pad {f00=0x008d, f01=0x0004, f02=»
0x102d00…1b0680 [0x402]: Pad {f00=0x008d, f01=0x0190, f02=» $ P IDENT T:GETC UPD 78-01-17/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d @ P************************************************************ P* $ P* DISPLAY MANAGEMENT IN CREDIT P* @ P**********
0x102d00…1b0680 [0x403]: Pad {f00=0x008d, f01=0x0190, f02=» I:EVA0 P EXTRN I:ERR2 ILLEGAL TYPE & P EXTRN I:ER14 ILLEGAL CONTROL CODE 2 B P EJECT T:GETC T:GETC T:DIS T:DIS T:DIS T:DIS P* " P* CONDITIONAL ASSEMBLY FLAGS P* PTEST EQU 1 PNOTEST EQU 0 PPARM EQU
0x102d00…1b0680 [0x404]: Pad {f00=0x008d, f01=0x0190, f02=»QU -8 PFCBCTR EQU 16 PFCBAPP EQU 24 $ PFCBC01 EQU 34 CONTROLS : P* X PPP EQU A12 PROGRAM POINTER b PTCA EQU A13 TCA BASE ADDRESS PPS EQU A14 STACK POINTER P* " PBFCB EQU A11 FCB BASE ADDRESS * POP2T EQU A3 OPERAN
0x102d00…1b0680 [0x405]: Pad {f00=0x008d, f01=0x0190, f02=»CURRENT INFORMATION FROM CONTROLS P* GETCTL ITEM * P* @ PT:GETC EQU * J P LD* BFCB,TDAD,TCA ^ " P ADR BFCB,TCA GET FCB ADDRESS x P LCR A7,PP GET PARAMETER P ANK A7,/F P* TEST CONTROL CODE P IFT PARM=TEST P CWK A7,
0x102d00…1b0680 [0x406]: Pad {f00=0x008d, f01=0x0190, f02=» IF BINARY P IFT PARM=TEST P LDR A2,OP2T ( P ANK A2,NUMBIT < P RF(Z) GETC10 NOT NUMERIC R P ANK OP2T,ARITHB t P RF(Z) GETC20 BINARY PGETC10 EQU * P ABL I:ERR2 ILL. TYPE PGETC20 EQU * P XIF P SUK A7,1 "
0x102d00…1b0680 [0x407]: Pad {f00=0x008d, f01=0x0190, f02=» T:GETC T:GETC P* P* STANDARD CHECKS $ P* > P LC A7,FCBCTR+2,BFCB H , P ANK A7,7 MASK OUT STANDARD CHECK NUMBER d " PSTORE STR A7,A9 STORE IN ITEM P ABL I:RT1 P* P* FCBAPP- VALUE P* PGFCBAPP EQU *
0x102d00…1b0680 [0x408]: Pad {f00=0x008d, f01=0x40f6, f02=» LD A7,FCBCTR,BFCB P ANK A7,/7F & P RB STORE STORE IN ITEM AND RETURN . P* X P* MINL b P* p PGMINL EQU * z P LC A7,FCBCTR,BFCB P ANK A7,/3F & P RB STORE STORE IN ITEM AND RETURN P END @
0x102d00…1b0680 [0x409]: Pad {f00=0x008d, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x40a]: Pad {f00=0x008d, f01=0x0190, f02=» & P IDENT SPDDIV UPD 78-03-01/UKF P* . & P* DATA DIVISION FOR DISPLAY TASKS 8 P* b P DDIV l P* z P TERM T1 P TWB TB1 P TWB TB2 P TWB TB3 P TWB TB4 P TWB TB5 P TWB TB6 P START START P S
0x102d00…1b0680 [0x40b]: Pad {f00=0x008d, f01=0x018e, f02=»INDS=SPDSDYKB,OUTDS=SPDSSCRN P* $ PTB1 BLK . PSPPROMPT BOOL > PSPCHANGE BOOL T PFIRST BOOL j PSPBINW1 BIN | PSPBINW2 BIN PSPBINW3 BIN PSPBINW4 BIN PSPINPUT STRG 62 P* PTB2 BLK PWKBIN1 BIN
0x102d00…1b0680 [0x40c]: Pad {f00=0x008d, f01=0x0190, f02=» PDISP BCD 7 PERA BCD 7 PBCD1 BCD 9 , PBCD2 BCD 9 > PBCD3 BCD 9 P PSTRG1 STRG 60 b PWKSTRG1 STRG 2 x PWKSTRG2 STRG 8 P* PTB3 BLK PBTABX BCD 3 PBAPPL BCD 5 PBSCHK BCD 1 PBMAXL BCD 3
0x102d00…1b0680 [0x40d]: Pad {f00=0x008d, f01=0x0190, f02=» PVERIFF STRG 1 PDUPLF STRG 1 PBCDX BCD 1 2 PSTRG2 STRG 5 D PWKSTRG3 STRG 4 X PTB4 BLK n PWIX1 BIN '1' ~ PWIX2 BIN '2' PWIX3 BIN '3' PWIX5 BIN '5' PWIX4 BIN '4' PGTF BCD 7 PPRI BCD 7 PWANR
0x102d00…1b0680 [0x40e]: Pad {f00=0x008d, f01=0x417a, f02=» PWKBIN4 BIN PWKBIN5 BIN PWKBCD4 BCD 9 ( PWKBCD5 BCD 9 < PSTRTYP BCD 1 P PSTRRC BCD 3 d PSTRIX1 BCD 3 x PSTRIX2 BCD 3 PSTRCOD BCD 1 PSTRSTA BCD 3 PSTRUS STRG 1 PWKSTRG4 STRG 9 PWKSTRG5 STRG 7 PWK
0x102d00…1b0680 [0x40f]: Pad {f00=0x008d, f01=0x2008, f02=» NW1 BIN SPBINW2 BIN SPBINW3 BIN , SPBINW4 BIN @ SPINPUT STRG 40 T * l TWB2 BLK v BCDWK BCD 1 PDIV EXT START END @ DSET FC=20 SPDSSCRN DSET FC=50,BUFL=75 SPDSPRT
0x102d00…1b0680 [0x410]: Pad {f00=0x008d, f01=0x0190, f02=»I30 P EJECT I:EDT PPLI20 EQU * " P ANKL OPCD,255 ISOLATE 6 P LDR A2,OPCD T $ P ANK A2,/3F COMPUTE DISPLACEMENT h PPLI30 EQU * ( P LC A2,EDTAB,A2 GET DESCRIPTOR ITEM P ANK A2,255 ISOLATE $ P ST A2,EPB,WKAR SAVE DESCR ITE
0x102d00…1b0680 [0x411]: Pad {f00=0x008d, f01=0x0004, f02=»
0x102d00…1b0680 [0x412]: Pad {f00=0x008d, f01=0x018e, f02=» $ P IDENT T:GETA UPD 78-01-26/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d B P************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* B P********
0x102d00…1b0680 [0x413]: Pad {f00=0x008d, f01=0x0190, f02=» P EXTRN I:EVA0 " P EXTRN T:ROK RETURN WITH CR 0 " P EXTRN T:RNOK RETURN WITH CR 2 @ $ P EXTRN T:RCR STORE CR AND RETURN f P EXTRN I:ERR2 ILLEGAL TYPE B P EJECT T:GETA T:GETA T:DIS T:DIS T:DIS T:DIS PCALL FORM 16=/F6A1,1
0x102d00…1b0680 [0x414]: Pad {f00=0x008d, f01=0x0190, f02=» P* P* EQUATES P* PNUMBIT EQU /20 NUMERIC BIT * & PARITHB EQU /10 ARITHMETIC BASE BIT L PT:DAD EQU -8 v PFCBCTR EQU 16 PFCBIX EQU 12 P* PTCA EQU A13 TCA BASE ADDRESS P* " PBFCB EQU A11 FCB BASE ADDRESS
0x102d00…1b0680 [0x415]: Pad {f00=0x008d, f01=0x0190, f02=»S T P* P* GET TABULATION INDEX P* GETABX ITEM 2 P* H PT:GETA EQU * R P LD* BFCB,T:DAD,TCA f " P ADR BFCB,TCA GET FCB ADDRESS " P CALL I:EVA0 GET ITEM ADDRESS P* TEST IF BINARY P IFT PARM=TEST P LDR A1,OP2T
0x102d00…1b0680 [0x416]: Pad {f00=0x008d, f01=0x4174, f02=»:ERR2 ILL TYPE NOT BIN PGETA20 EQU * OK P XIF 6 , P LD A1,FCBIX,BFCB GET TAB INDEX FROM FCB B P STR A1,A9 STORE IN ITEM r , P ABL(Z) T:RNOK JUMP IF NO CURRENT FIELD P LDK A3,1 INDICATE CR=1 ( P LD A1,FCBCTR+2,BFCB GET FIELD TYPE
0x102d00…1b0680 [0x417]: Pad {f00=0x008d, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x418]: Pad {f00=0x008e, f01=0x0190, f02=»SSING % v P* & PI:ECTR EQU * & " P IM CCC,WKAR COUNT NO OF CHRS & , , PCTRLCR EQU * END OF CTRL CHAR PROCESSING & R * P LDKL LINK,RTNPLI SET RETURN TO RTNPLI & " P RF SCB AND GO STORE CHARACTER & P & $ P EJECT I:EDT I:EDT I:EDT & P* &
0x102d00…1b0680 [0x419]: Pad {f00=0x008e, f01=0x018e, f02=»L LINK,I:ESL010 SET RETURN TO I:ESL010 & P LDK A1,' ' ' . P RF SCB STORE CHAR ' B PI:ESL010 EQU * ' P LDK A1,'+' ' r P RB CTRLCR ' P ' P* ' P* NEW LINE PROCESSING ' P* ' PI:ENL EQU * ' P CF PS,I:EOR ' P LDK A1,2 ' (
0x102d00…1b0680 [0x41a]: Pad {f00=0x008e, f01=0x018e, f02=» PI:ENL010 EQU * ( P LDK A1,' ' ( P RB CTRLCR ( . T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT ( @ P* ( P* END OF RECORD PROCESSING ( P* ( PI:EOR EQU * ( P ( P ( P LDR A8,A8 TEST IF EDW
0x102d00…1b0680 [0x41b]: Pad {f00=0x008e, f01=0x0190, f02=» ( P* ) P* CONTROL WORD PROCESSOR: ) P* ) 4 PI:ECW EQU * ) > P LDR A8,A8 TEST IF EDWRT ) R P RB(Z) I:EXIT NO ! ) r P ) $ P LDR* LINK,OP2A GET CONTROL WORD ) P CF PS,T:EDWE OUTPUT ) " P ENTER HERE FROM SKIP TABLE ) PI:ECWC EQU *
0x102d00…1b0680 [0x41c]: Pad {f00=0x008e, f01=0x018e, f02=»T I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT ) z P* * B P* FILLER PROCESSOR: * L P* * h PI:EFIL EQU * * r P LDR A2,LINK NO OF FILL CHAR * P LDR A1,OP2A LOAD A1 W/CHAR * PFILH10 EQU * * * P LDR LINK,P SET LINK REGISTER TO L00P *
0x102d00…1b0680 [0x41d]: Pad {f00=0x008e, f01=0x0190, f02=» * * P RTN PS DONE ! - TAKE NEXT LIST ITEM + $ P EJECT I:EDT I:EDT I:EDT + 6 P* + ^ , P* STORE CHARACTER IN BUFFER SUBROUTINE. + h . P* THE RETURN POINT OF THIS SUBROUTINE IS + & P* CONTAINED IN THE LINK REGISTER. + P* + . P* BUFFER OV
0x102d00…1b0680 [0x41e]: Pad {f00=0x008e, f01=0x0190, f02=»AR END-OF-BUFFER? + P RF(NE) SCB010 NO: BYPASS , ( P ABL I:ERRD INDICATE BUFFER OVERFLOW , < PSCB010 EQU * , h P XIF , | " P SCR A1,PBF STORE CHAR IF NOT , " P ADK PBF,1 BUMP BUFFER POINTER , P ABR LINK RETURN JUMP , T P EJECT I:EDT I:EDT
0x102d00…1b0680 [0x41f]: Pad {f00=0x008e, f01=0x0190, f02=» * , z " P* PROCESS PICTURE ITEM * - " P* * - 6 $ P****************************** - P* - P - PI:EPIC RES 0 - P - P* SET UP POINTERS: - P - P LDR PPI,OP2A POINTER - . P STR OP2E,WKAR SAVE EN
0x102d00…1b0680 [0x420]: Pad {f00=0x008e, f01=0x0190, f02=»DT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT - P . L P************************ . T P* * . v P* FIRST PICTURE SCAN * . P* * . P************************ . P . " P* LOCAL R
0x102d00…1b0680 [0x421]: Pad {f00=0x008e, f01=0x0004, f02=»
0x102d00…1b0680 [0x422]: Pad {f00=0x008e, f01=0x0190, f02=» $ P IDENT T:TSTC UPD 78-01-11/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d @ P************************************************************ P* $ P* DISPLAY MANAGEMENT IN CREDIT P* @ P**********
0x102d00…1b0680 [0x423]: Pad {f00=0x008e, f01=0x0190, f02=» T:RTES RETURN DEPENDING ON CURRENT CR & P EXTRN I:ER14 ILLEGAL CONTROL CODE . P EJECT T:TSTC T:TSTC X P* z " P* CONDITIONAL ASSEMBLY FLAGS P* PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST P* PCALL FORM 16=/F6
0x102d00…1b0680 [0x424]: Pad {f00=0x008e, f01=0x0190, f02=»AM POINTER PTCA EQU A13 TCA BASE ADDRESS P* 6 " PBFCB EQU A11 FCB BASE ADDRESS @ P* f P* p B P EJECT T:TSTC T:TSTC T:DIS T:DIS T:DIS T:DIS z P* P* TEST ON CONTROL BITS P* PT:TSTC EQU * P LD*
0x102d00…1b0680 [0x425]: Pad {f00=0x008e, f01=0x0190, f02=»SK OUT ME,NUM/ALPHA P SRL A1,2 P ANK A1,/20 MASK OUR NEOI . P ADR A1,A2 MIX TOGETHER P & P LC A2,FCBCTR+2,BFCB GET 3RD BYTE p $ P SRL A2,3 SHIFT AWAY STD. CHKS. P ADR A1,A2 MIX TOGETHER P LCR A2,PP GET VALUE P ANK A2,/FF
0x102d00…1b0680 [0x426]: Pad {f00=0x008e, f01=0x40aa, f02=»PP,1 " P LC A2,MASK,A2 GET MASK VALUE P TM A1,A2 2 P ABL T:RTES D P* X PMASK EQU * b " P DATA /4010,/8020,/0804,/0200 t P END @ AWAY STD. CHKS. P ADR A1,A2 MIX TOGETHER P LCR A2,PP GET VALUE P ANK A2,/FF
0x102d00…1b0680 [0x427]: Pad {f00=0x008e, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x428]: Pad {f00=0x008e, f01=0x0190, f02=» P ANK A1,15 6 $ P LC A1,DTAB,A1 GET DISPLACEMENT 6 8 P ADR P,A1 EXECUTE BRANCH THROUGH DISPLACEMENT TABLE 6 > P* 6 z > PDT EQU * JUMP BASE; DISPLACEMENT TABLE AT END OF PROGRAM. 6 P* 6 T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:ED
0x102d00…1b0680 [0x429]: Pad {f00=0x008e, f01=0x0190, f02=» YES: GO STORE ZERO 6 P* 7 P* NO: SKIP ITEM DIGIT: 7 & P* 7 F 8 PSID SUK LINK,LB-PPC SET RETURN TO PROCESS NEXT CHAR 7 P P RF FID GO FETCH ITEM DIGIT 7 P* 7 P* STORE ZERO: 7 P* 7 PSTZ LDK A1,'0' GET THE ZERO 7 " P RF STCH GO
0x102d00…1b0680 [0x42a]: Pad {f00=0x008e, f01=0x018e, f02=»B GO FETCH ITEM DIGIT: 7 | P RF FID 8 0 PSTCA LDR* A2,PS TEST LEADING ZERO CONDITION 8 . . P RF(NZ) STCC NO: STORE CHAR CONDITIONALLY 8 b $ P LDK A1,'*' YES: STORE ASTERISC 8 P RF STCH 8 P EJECT 8 P* 8 , P* FLOATING INSERT AND POINT INSERTION
0x102d00…1b0680 [0x42b]: Pad {f00=0x008e, f01=0x0190, f02=» " P LDK A1,'.' ELSE LOAD THE DOT 9 , P* STORE CHARACTER IN A1 OR PADDING CHAR 9 * ( PSTCP LDR* A2,PS LEFT ZERO PRECEDING? 9 Z ( P RF(NZ) STCC NO; STORE CONDITIONALLY 9 $ P LD A1,FC,PS GET FILL CHARACTER 9 P CCK A1,/00 SKIP FILL CHAR 9 , P RB(E) PPC YES
0x102d00…1b0680 [0x42c]: Pad {f00=0x008e, f01=0x0190, f02=»T I:EDT I:EDT 9 V P* : & P* PROCESS * , Z AND Y CHARACTERS : ( , P* (Y ONLY WHEN LAST DIGIT IN ITEM = /F) : R P* : ( PPAZP SUK A2,'*' WAS IT AN ASTERISC? : 6 P RB(Z) STAS YES: STORE AN ASTERISC IF LEADING ZERO : ( P* RF STDSP NO: STORE DIG
0x102d00…1b0680 [0x42d]: Pad {f00=0x008e, f01=0x0190, f02=»N TO STCS : t P RF FID FETCH ITEM DIGIT ; P* ; 2 ( P* STORE CHARACTER (IN A1) OR SPACE: ; < P* ; h ( PSTCS LDR* A2,PS LEFT ZERO PRECEDING? ; r P RF(Z) STB YES: STORE BLANK ; P* ; 0 P* STORE CHARACTER WITH CONDITIONAL INSERT: ; P* ; 8 P
0x102d00…1b0680 [0x42e]: Pad {f00=0x008e, f01=0x0190, f02=»WKAR END-OF-BUFFER? ; " P ABL(E) I:ERRD BUFFER OVERFLOW < P XIF < B . P SCR FREG,PBF YES: STORE F CHAR IN BUFFER < N ( P ADK PBF,1 AND ADJUST BUFFER POINTER < ( P LDK FREG,0 KILL THE FLOATING INSERT < P* RF STCH EFFECTIVE < T P EJECT I:EDT I:ED
0x102d00…1b0680 [0x42f]: Pad {f00=0x008e, f01=0x0190, f02=» EQU * < $ P LDKL LINK,PPC SET RETURN TO PPC = P CCK A1,'00' = 6 P RB(NE) SCB CONT IF NOT ZERO = J $ P IMR PS INDICATE NO SUPPRESSION = n " P RB SCB AND GO STORE CHARACTER = P* = P* = $ P* STORE SPACE UNCONDITIONALLY: = P* = PSTB LDK
0x102d00…1b0680 [0x430]: Pad {f00=0x008e, f01=0x0190, f02=» 2 F IDENT T:ENIN VER=T,REL=3.0,DATE=78-03-03 . T:ENINK T:ENI T:EVOU . : T:ENINK . Z T:ENI . n , ( X Y " X Y $ X Y & " . I:EGTB . , ( ! ! T W ! P . , ( ? =H
0x102d00…1b0680 [0x431]: Pad {f00=0x008e, f01=0x0008, f02=»
0x102d00…1b0680 [0x432]: Pad {f00=0x008e, f01=0x0190, f02=» $ P IDENT T:DISP UPD 78-02-02/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d B P************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* B P********
0x102d00…1b0680 [0x433]: Pad {f00=0x008e, f01=0x0190, f02=»ERASE P* P EXTRN I:RT1 " P EXTRN T:RNOK RETURN WITH CR 2 , & P EXTRN I:ER14 ILLEGAL CONTROL CODE R & P EXTRN I:ER15 ILLEGAL INDEX VALUE | " P EXTRN T:GRFC GET FCB ADDRESS * P EXTRN T:FDSP FETCC DATASET PARAMETERS ( P EXTRN T:EDIO IO
0x102d00…1b0680 [0x434]: Pad {f00=0x008e, f01=0x0190, f02=»E j ( P EXTRN T:CLDY ERASE FIELD ON DISPLAY P EXTRN T:EDWI INIT FOR WRITE 6 & P EXTRN T:GTIT GET PARAMETER ITEMS Z , P EXTRN T:GTIP GET PARAMETER ITEMS PRINT F P EJECT T:DISP T:DISP T:DIS1 T:DIS1 T:DIS1 T:DIS1 P* " P*
0x102d00…1b0680 [0x435]: Pad {f00=0x008e, f01=0x0190, f02=»12 PROGRAM POINTER PTCA EQU A13 TCA BASE ADDRESS PPS EQU A14 STACK POINTER > P* ^ PRFCB EQU A6 FCB BASE ADDRESS h P* " PSTKB EQU 2 STACK BASE POINTER P* 0 PBUFBIT EQU /40 BUFFER ALLOCATION BIT (DECB) PWAITBT EQU /80 W
0x102d00…1b0680 [0x436]: Pad {f00=0x008e, f01=0x0190, f02=»* P* DISPLAY FUNCTION EQUATES P* . PFULEFT EQU 1 8 PFURIGH EQU 2 L PFULDOW EQU 3 ` PFUDOWN EQU 4 t PFUTUP EQU 5 PFUGETF EQU 6 PFUHOME EQU 7 PFUFWD EQU 8 PFUBWD EQU 9 PFUDISP EQU 10 PFUERAS E
0x102d00…1b0680 [0x437]: Pad {f00=0x008e, f01=0x0190, f02=»NTS TO FCB P* * PFCBELA EQU 0 ADDRESS TO ELEMENT INDEX ( PFCBFMA EQU 2 ADDR TO FORMAT OP CODE J PFCBLP EQU 4 FORMAT LIST ADDR v ( PFCBEOL EQU 6 END OF FORMAT LIST ADDR PFCBKB EQU 8 DSET ADDR KB PFCBDY EQU 10 DSET ADDR DY PFC
0x102d00…1b0680 [0x438]: Pad {f00=0x008f, f01=0x018e, f02=»ALUE x ( PFCBDUP EQU 20 ADDR TO DUPL EL INDEX PFCBLEN EQU 22 8 PFCBAPP EQU 24 APPL VALUE N P* n . PFCBECP EQU 26 TAB INDEX TO EMPTY COMP FLD x , PFCBSLP EQU 28 SAVED FORMAT LIST POINTER $ PFCBSCO EQU 30 SAVED COLUMN VALUE P* ,
0x102d00…1b0680 [0x439]: Pad {f00=0x008f, f01=0x0190, f02=» , PFCBTCT EQU 38 TEMP ADDR TO CONTROL ITEM PFCBFLG EQU 40 FLAGS 4 PFCBFUN EQU 42 FUNCTION VALUE P 2 PFCBTYP EQU 43 KI/INP TYPE 0=KI 1=INP 2=KI/INP t $ PFCBNIX EQU 44 INDEX COUNT VALUE " PFCBNLI EQU 46 LINE COUNT VALUE P* $ PFCBIT1 E
0x102d00…1b0680 [0x43a]: Pad {f00=0x008f, f01=0x0190, f02=»TEM2> x PFCBWRK EQU 56 WORK PFCBWK2 EQU 58 WORK ( F P EJECT T:DISP T:DISP T:DIS1 T:DIS1 T:DIS1 T:DIS1 B P* P* EQUATES TO FCBFLG P* PENDED EQU 1 SEARCH IS ENDED PGKIPOS EQU 2 GET AN INDEX PGLINE
0x102d00…1b0680 [0x43b]: Pad {f00=0x008f, f01=0x0190, f02=»KI INFO SAVED | * PEMPCOM EQU /40 EMPTY COMP FIELD FOUND * PERNCLR EQU /80 CLEAR ONLE WHEN NCLR=0 D " PERASE1 EQU /100 CLEAR DISPLAY r , PERASE2 EQU /300 CLEAR DISPLAY AND MEMORY PERASE3 EQU /200 CLEAR MEMORY PFCBCR1 EQU /4000 CR 1 P
0x102d00…1b0680 [0x43c]: Pad {f00=0x008f, f01=0x0190, f02=» GKILIN v P* P* P* EQUATES TO ECB $ P* > PECBRL EQU 4 REQUESTED LENGTH H PECBBA EQU 2 BUFFER ADDRESS l P* PDSINX EQU 16 INDEX ITEM ADDR F P EJECT T:DISP T:DISP T:DIS1 T:DIS1 T:DIS1 T:DIS1 P*
0x102d00…1b0680 [0x43d]: Pad {f00=0x008f, f01=0x0190, f02=»INIT FOR WRITE P CF PS,T:GRFC P LDK A1,FUPRIN FUNCTION , P SLL A1,8 L P ST A1,FCBFUN,RFCB SAVE ^ P LDK A1,4 "<TYPE>" ~ P CF PS,T:GTIP P RF TABB10 PT:DISP EQU * P LDK A1,10 P RF TABB PT:ERAS EQU * P
0x102d00…1b0680 [0x43e]: Pad {f00=0x008f, f01=0x0190, f02=» DISPLAY/ERASE P* PTABB EQU * " P CF PS,T:GTIT 4 P LDK A7,WAITBT J P LD A8,FCBDY,RFCB ` P CF PS,T:EDWI INIT FOR WRITE z P******* RF TABB10 P* P* PRINT P* PTABB10 EQU * P LD A2,FCBIT1,RFCB
0x102d00…1b0680 [0x43f]: Pad {f00=0x008f, f01=0x0190, f02=»:ER15 ILL. INDEX VALUE PTABB20 EQU * P LD A2,FCBIT2,RFCB <ITEM2> 2 P RB(N) TABB15 NEGATIVE ! T P XIF t P LC A2,FCBTYP,RFCB P ANK A2,/FF P LD A1,FCBFUN,RFCB P SRL A1,8 P CWK A1,11 P RF(E) TABB50 ERASE P E
0x102d00…1b0680 [0x440]: Pad {f00=0x008f, f01=0x0190, f02=»B30 TYPE=0 P IFT PARM=TEST P RF(L) TABB24 ( P XIF > P CWK A2,4 J P RF(E) TABB35 TYPE=4 P IFT PARM=TEST x P RF(L) TABB25 PTABB24 EQU * & P ABL I:ER14 TYPE NOT 0-4 ILL.CODE PTABB25 EQU * P XIF P SUK A2,
0x102d00…1b0680 [0x441]: Pad {f00=0x008f, f01=0x018e, f02=»* P* CLEAR DISPLAY P* $ PTABB30 EQU * . P CF PS,DISCLE B P* X P* DISPLAY LINE(S) b P* ~ PTABB35 EQU * P LDK A7,WAITBT P LDK A2,2 KI/INP P SC A2,FCBTYP,RFCB P CF PS,IT2TST =24 WHEN 0 P CF PS
0x102d00…1b0680 [0x442]: Pad {f00=0x008f, f01=0x018e, f02=» P* P* ERASE P* PTABB50 EQU * * P LDR A2,A2 TYPE > P RF(NZ) TABB55 V P*TEST TYPE l P IFT PARM=TEST ~ P RF(N) TABB66 P XIF P CF PS,IT2TST =24 WHEN 0 P CF PS,ERLINE ERASE LINES P RF TABNRT CR PREV
0x102d00…1b0680 [0x443]: Pad {f00=0x008f, f01=0x0190, f02=» & P RF(G) TABB60 ERASE ONLY KI FIELDS * P LDK A3,2 ERASE BOTH KI AND INP FIELDS . P RF TABB65 PTABB60 EQU * n " P LDK A3,0 ERASE ONLY KI FIELDS P SUK A2,8 PTABB65 EQU * ( P SC A3,FCBTYP,RFCB SAVE KI/INP TYPE P LDK A3,0
0x102d00…1b0680 [0x444]: Pad {f00=0x008f, f01=0x0190, f02=» P ABL I:ER14 ILL CONTROL CODE PTABB68 EQU * ( P CWK A2,3 < P RB(G) TABB66 N P XIF d * P LDK A3,ERNCLR ERASE ONLY WHEN NCLR=0 p P EJECT T:DISP T:DISP PTABB70 EQU * P CWK A2,2 P RF(G) TABB76 P RF(E) TABB74
0x102d00…1b0680 [0x445]: Pad {f00=0x008f, f01=0x018e, f02=»F TABB78 PTABB76 EQU * P ORKL A3,ERASE3 CLEAR MEMORY $ PTABB78 EQU * H P ORS A3,FCBFLG,RFCB P* x P* DISPLAY/ERASE FIELDS P* PTABB80 EQU * P CF PS,T:TABC SEARCH INDEX PTABNRT EQU * P CM DSINX,A8 P
0x102d00…1b0680 [0x446]: Pad {f00=0x008f, f01=0x0190, f02=» P* & P LD A3,STKB,TCA GET CR FROM STACK P LC A1,-2,A3 8 P ANK A1,3 L . P ABL(NZ) T:RNOK JUMP IF CR NOT 0 RETURN 2 ^ PTABNRE EQU * P ABL I:RT1 F P EJECT T:DISP T:DISP T:DIS2 T:DIS2 T:DIS2 T:DIS2 P* P
0x102d00…1b0680 [0x447]: Pad {f00=0x008f, f01=0x0190, f02=» j P* PERLINE EQU * P LD A2,FCBIT1,RFCB & . P ST A2,FCBWRK,RFCB SAVE FIRST CLEARED LINE @ PERLI05 EQU * r . P CF PS,ERLCUR COMPUTE POSITION SET CURSOR P LDK A1,LINLEN LINE LENGTH P CF PS,T:CLDY ERASE LINE P* P IM FC
0x102d00…1b0680 [0x448]: Pad {f00=0x008f, f01=0x0190, f02=»CB RESTORE FIRST CLEARED LINE P CF PS,ERLCUR & P RTN PS < P EJECT T:DISP T:DISP L P* n 8 P* COMPUTE CURSOR POSITION FROM LINE AND SET CURSOR x P* P* INPUT: RFCB,FCB P* WORK: A1,A2 P* SUBR.CALLS: T:WRDY
0x102d00…1b0680 [0x449]: Pad {f00=0x008f, f01=0x018e, f02=» A2,1 SET COLUMN = 1 P CF PS,T:WRDY SET CURSOR P RTN PS < F P EJECT T:DISP T:DISP T:DIS2 T:DIS2 T:DIS2 T:DIS2 L P* . P* CHANGES THE VALUE OF <ITEM2> IN FCB TO P* 24 WHEN IT IS ZERO P* P* INPUT: RFCB
0x102d00…1b0680 [0x44a]: Pad {f00=0x008f, f01=0x0190, f02=» P LDK A2,24 P ST A2,FCBIT2,RFCB PIT2T10 EQU * 0 P RTN PS D F P EJECT T:DISP T:DISP T:DIS2 T:DIS2 T:DIS2 T:DIS2 T P* " P* CLEAR ALL LINES ON DISPLAY P* P* INPUT: RFCB,FCB P* WORK: A1,A7,A8
0x102d00…1b0680 [0x44b]: Pad {f00=0x008f, f01=0x40a2, f02=»A1,ECBRL,A8 REQUESTED LENGTH P LDK A1,/31 ERASE AND HOME $ P ST* A1,ECBBA,A8 F P CF PS,T:EDIO IO AND SAVE CR ^ P RTN PS P END @ " P* CLEAR ALL LINES ON DISPLAY P* P* INPUT: RFCB,FCB P* WORK: A1,A7,A8
0x102d00…1b0680 [0x44c]: Pad {f00=0x008f, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x44d]: Pad {f00=0x008f, f01=0x0190, f02=»DWRT PRINTER,HEADLINE P EJECT P* , P* COMPUTE AND PRINT 6 P* R P MOVE COUNT,='0' P t PLOOP ADD COUNT,='1' | P MOVE D1,BEL P MUL D1,RTESATS P DIVR D1,='4' P DIV D1,='100000' P MOVE RTA,D1 P M
0x102d00…1b0680 [0x44e]: Pad {f00=0x008f, f01=0x0190, f02=» P EDWRT PRINTER,SLUT P EXIT $ P EJECT 2 P @ PCNSLIN PROC P H P PFRMT P ^ P n PPP FRMT v P FILLR '0',2 P FLINK P P FMEND P P MOVE S1,=' ' P EDIT S1,P P WRITE CONSOLE,S1 P P
0x102d00…1b0680 [0x44f]: Pad {f00=0x008f, f01=0x0190, f02=» P EDWRT PRINTER,LINE P RET $ P PEND 0 P EJECT > P L PP1 FRMT T P FTEXT 'RANTESATS: ' d P FMEND P PP2 FRMT P FTEXT ' BELOPP: ' P FMEND P PP3 FRMT P FTEXT ' ANNUITET: ' P FMEND
0x102d00…1b0680 [0x450]: Pad {f00=0x008f, f01=0x0190, f02=»* OR Y PICTURE CHAR (WHEN LAST DIGIT IN ITEM NOT = /F) = P* > @ PMVD EQU * > J P SUK A2,'9' SEE IF '9' > P RF(Z) MVD0 YES > z $ P LC A2,-1,EI GET LAST CHARACTER > P ANK A2,/F > P CWK A2,/F LAST DIGIT = /F > ( P RB(E) STDSP YES, PROCESS AS
0x102d00…1b0680 [0x451]: Pad {f00=0x008f, f01=0x0006, f02=»
0x102d00…1b0680 [0x452]: Pad {f00=0x008f, f01=0x0190, f02=» $ P IDENT T:TFWD UPD 78-01-18/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d B P************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* B P********
0x102d00…1b0680 [0x453]: Pad {f00=0x008f, f01=0x0190, f02=»DOWN P ENTRY T:TDOW TDOWN P ENTRY T:TUP TUP ( P ENTRY T:TFWD TFWD @ P ENTRY T:TBWD TBWD Z P ENTRY T:THOM THOME t P* P EXTRN T:TABC SEARCH INDEX ( P EXTRN T:TABE SEARCH LINE WITH INDEX $ P EXTRN T:TABN SAVE CR AND RETURN
0x102d00…1b0680 [0x454]: Pad {f00=0x008f, f01=0x0190, f02=»1 T:DIS1 T:DIS1 T:DIS1 n PPP EQU A12 PROGRAM POINTER ( PPS EQU A14 STACK POINTER J PRFCB EQU A6 FCB BASE ADDRESS j P* P* DISPLAY FUNCTION EQUATES P* PFULEFT EQU 1 PFURIGH EQU 2 PFULDOW EQU 3 PFUDOWN E
0x102d00…1b0680 [0x455]: Pad {f00=0x008f, f01=0x018e, f02=»FUERAS EQU 11 PFUPRIN EQU 12 F P EJECT T:TFWD T:TFWD T:DIS1 T:DIS1 T:DIS1 T:DIS1 , P* v P* DISPLACEMENTS TO FCB P* * PFCBELA EQU 0 ADDRESS TO ELEMENT INDEX ( PFCBFMA EQU 2 ADDR TO FORMAT OP CODE PFCBLP
0x102d00…1b0680 [0x456]: Pad {f00=0x008f, f01=0x018e, f02=» t PFCBIX EQU 12 TAB INDEX VALUE PFCBROW EQU 14 ROW VALUE , PFCBCOL EQU 15 COLUMN VALUE L P* n PFCBCTR EQU 16 CONTROLS VALUE x ( PFCBDUP EQU 20 ADDR TO DUPL EL INDEX PFCBLEN EQU 22 PFCBAPP EQU 24 APPL VALUE P* . PFC
0x102d00…1b0680 [0x457]: Pad {f00=0x008f, f01=0x018e, f02=» P* , PFCBSCT EQU 32 SAVED ADDR TO CONTROL ITEM * PFCBTLP EQU 34 TEMP FORMAT LIST POINTER > $ PFCBTCO EQU 36 TEMP COLUMN NALUE l , PFCBTCT EQU 38 TEMP ADDR TO CONTROL ITEM PFCBFLG EQU 40 FLAGS PFCBFUN EQU 42 FUNCTION VALUE 2 PFCBTYP
0x102d00…1b0680 [0x458]: Pad {f00=0x0090, f01=0x018e, f02=» $ PFCBIT1 EQU 48 <ITEM1> LINE/INDEX $ PFCBIT2 EQU 50 <ITEM2> LINE/INDEX , " PFCBAD1 EQU 52 ADDR TO <ITEM1> T " PFCBAD2 EQU 54 ADDR TO <ITEM2> z PFCBWRK EQU 56 WORK PFCBWK2 EQU 58 WORK F P EJECT T:TFWD T:TFWD T:DIS1 T:DIS1 T:DIS
0x102d00…1b0680 [0x459]: Pad {f00=0x0090, f01=0x0190, f02=» t PGLINE EQU 4 GET A LINE ( PGKILIN EQU 8 GET A LINE WITH KI/INP & * PBKILIN EQU /10 SEARCH LINE BEFORE THIS R & PSAVPOS EQU /20 TEMP KI INFO SAVED * PEMPCOM EQU /40 EMPTY COMP FIELD FOUND * PERNCLR EQU /80 CLEAR ONLE WHEN NCLR=0 " PERAS
0x102d00…1b0680 [0x45a]: Pad {f00=0x0090, f01=0x018e, f02=» CR 1 PFCBCR2 EQU /8000 CR 2 PFCBCR3 EQU /C000 CR 3 , , PINPKI EQU /400 1=IN AND 0=KI PROCESSED J & PBCLEAR EQU 8 CLEAR ALL BUT GKILIN z P* P* P EJECT T:TFWD T:TFWD P* P* TABULATION ROUTINES P*
0x102d00…1b0680 [0x45b]: Pad {f00=0x0090, f01=0x0190, f02=» P RF TABA PT:TLDO EQU * P LDK A1,3 ( P RF HOME10 : PT:TDOW EQU * L P LDK A1,4 ` P RF HOME10 r PT:TUP EQU * P LDK A1,5 P RF TBWD10 PT:TFWD EQU * P LDK A1,8 P RF HOME10 PT:TBWD EQU * P L
0x102d00…1b0680 [0x45c]: Pad {f00=0x0090, f01=0x018e, f02=» A2,1 F P EJECT T:TFWD T:TFWD T:DIS1 T:DIS1 T:DIS1 T:DIS1 P* X P* TAB INSTR b P* v PTABA EQU * P CF PS,T:GRFC P CM FCBFLG,RFCB CLEAR FLAGS ( P ST A2,FCBIT1,RFCB SAVE DISPLACEMENT P SLL A1,8 . P
0x102d00…1b0680 [0x45d]: Pad {f00=0x0090, f01=0x0190, f02=» P SRL A1,8 REMOVE TYPE P SUK A1,6 " P RF(G) TABA10 GET INDEX 4 P LD A2,FCBROW,RFCB 1-5 T P SRL A2,8 r . P ADS A2,FCBIT1,RFCB COMPUTE SEARCHED LINE & P CF PS,T:TABE SEARCH LINE WITH KI P RF TABN F P EJECT T:TFWD T:TFWD
0x102d00…1b0680 [0x45e]: Pad {f00=0x0090, f01=0x416c, f02=» RF(NG) TABA40 HOME ( P LD A1,FCBIX,RFCB GET CURRENT INDEX P TBWD/TFWD H & P ADR A2,A1 COMPUTE SEARCHED INDEX P RF(P) TABA30 P CF PS,T:SCR2 P RF TABN PTABA30 EQU * & P ST A2,FCBIT1,RFCB STORE NEW INDEX PTABA40 EQU
0x102d00…1b0680 [0x45f]: Pad {f00=0x0090, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x460]: Pad {f00=0x0090, f01=0x0190, f02=» P* F $ PICC RES 0 INSERT COMMA CHARACTER F P LDK A1,',' FETCH COMMA F 6 P RB STCP F V T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT F f P* F P* INSERT CHARACTER: F P* F P F P IFT E=1 F PICH
0x102d00…1b0680 [0x461]: Pad {f00=0x0090, f01=0x0190, f02=»B STCP GO STORE CHAR OR PADDING CHAR F P* G , P* INSERT ROOMLESS POINT: G 6 P* G X . PIRP LDK A1,128+'.' GET ROOMLESS POINT CODE G b & P LDR* A2,PS PRECEDED BY LEFT ZERO? G P RB(NZ) STCC NO: INSERT G P RF PCSP YES: IGNORE G P* G ( P* LOA
0x102d00…1b0680 [0x462]: Pad {f00=0x0090, f01=0x0190, f02=» DON'T PROCESS THIS CHAR. FURTHER G ( P* RB PPC GO ADD 1 TO PICTURE POINTER H * P* H V $ P* ERRONEOUS PICTURE CHARACTER: H ` P* H PERPC EQU * H P ABL PPC NO ACTION H P* H P* H $ P* CONDITIONAL AND SIGN EXTEND: H P* H & PPCSP E
0x102d00…1b0680 [0x463]: Pad {f00=0x0090, f01=0x0190, f02=»PPI GET 'F' CHARACTER H P CCK A2,'++' I P RF(E) *+8 I 2 P CCK A2,'--' I D " P RB(NE) LFCA NOT FLOATING SIGN I X " P LC* FREG,BI,PS GET ITEM SIGN I ~ P SRA FREG,4 I P ANK FREG,/F I P ORK FREG,/20 ZONE IT I 2 P CWR FREG,A2 COMPARE ITEM SIGN W
0x102d00…1b0680 [0x464]: Pad {f00=0x0090, f01=0x018e, f02=» I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I:EDT I P* J R ( PDTAB EQU * BRANCH DISPLACEMENT TABLE J P* J * P BYTE P0PP-DT,SSP-DT 0,P & A HANDLERS J & P BYTE STB-DT,PCSP-DT B & C,S " J $ P BYTE SSZ-DT,ICH-DT T,E HANDLERS
0x102d00…1b0680 [0x465]: Pad {f00=0x0090, f01=0x4156, f02=» P K P IFF E=1 K 0 P BYTE ICH-DT,STS-DT .(ROOMLESS) & - HANDLERS K P XIF K P P K P IFT E=1 K d & P BYTE ICC-DT,STS-DT , & - HANDLERS K t P XIF K " P BYTE IRP-DT,ERPC-DT . HANDLER K P K P K P* POSITION CHARACTER TABLE: K P K
0x102d00…1b0680 [0x466]: Pad {f00=0x0090, f01=0x2008, f02=» L DT,PCSP-DT B & C,S " " P BYTE SSZ-DT,ERPC-DT T HANDLER ( & P BYTE PFVP-DT,ERPC-DT F,V HANDLER N " P BYTE ERPC-DT,MVD-DT 9 " x * P BYTE PAZP-DT,STS-DT *,Z & + HANDLERS 0 P BYTE IRP-DT,STS-DT .(ROOMLESS) & - HANDLERS " P BYTE ICH-
0x102d00…1b0680 [0x467]: Pad {f00=0x0090, f01=0x40aa, f02=» > F IDENT T:ATAB TRA 3.1 78-03-02 O111 UPD 78-03-02/UKF T:ATAB F T:ATABA X T:AT10 l @ ~ :A @ D UB1 UB2 :U @ , (
0x102d00…1b0680 [0x468]: Pad {f00=0x0090, f01=0x0190, f02=»T WILL BE FILLED WITH X'00' j P* $ B P* CALL STRIN1,<INPUT STRING>,<INPUT START>,<UNIT SEPARATOR> . P* WHERE t . P* <INPUT STRING> STRING TO HOLD INPUT @ P* <INPUT START> BINARY ITEM WITH START POSITION WITHIN @ P*
0x102d00…1b0680 [0x469]: Pad {f00=0x0090, f01=0x0004, f02=»
0x102d00…1b0680 [0x46a]: Pad {f00=0x0090, f01=0x0190, f02=» $ P IDENT T:GETF UPD 78-01-26/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d B P************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* B P********
0x102d00…1b0680 [0x46b]: Pad {f00=0x0090, f01=0x0190, f02=»NTRY T:GTIP GET PARAMETER ITEMS PRINT P* . P EXTRN I:EVA0 8 P EXTRN I:EVA2 N P EXTRN I:ERR2 ILLEGAL TYPE d & P EXTRN I:ER14 ILLEGAL CONTROL CODE & P EXTRN I:ER15 ILLEGAL INDEX VALUE " P EXTRN T:GRFC GET FCB ADDRESS P EXTRN T:T
0x102d00…1b0680 [0x46c]: Pad {f00=0x0090, f01=0x0190, f02=» P* " P* CONDITIONAL ASSEMBLY FLAGS P* 4 PTEST EQU 1 > PNOTEST EQU 0 P PPARM EQU TEST d P** z P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER P* PRFCB EQU A6 FCB BASE ADDRESS POP2A EQU A9
0x102d00…1b0680 [0x46d]: Pad {f00=0x0090, f01=0x0190, f02=» P* & PARITHB EQU /10 ARITHMETIC BASE BIT PNUMBIT EQU /20 NUMERIC BIT 8 F P EJECT T:GETF T:GETF T:DIS1 T:DIS1 T:DIS1 T:DIS1 Z P* P* DISPLACEMENTS TO FCB P* * PFCBELA EQU 0 ADDRESS TO ELEMENT INDEX ( PFCBF
0x102d00…1b0680 [0x46e]: Pad {f00=0x0090, f01=0x018e, f02=»ET ADDR KB PFCBDY EQU 10 DSET ADDR DY PFCBIX EQU 12 TAB INDEX VALUE 4 PFCBROW EQU 14 ROW VALUE X PFCBCOL EQU 15 COLUMN VALUE x P* PFCBCTR EQU 16 CONTROLS VALUE ( PFCBDUP EQU 20 ADDR TO DUPL EL INDEX PFCBLEN EQU 22 P
0x102d00…1b0680 [0x46f]: Pad {f00=0x0090, f01=0x0190, f02=» f $ PFCBSCO EQU 30 SAVED COLUMN VALUE P* 0 , PFCBSCT EQU 32 SAVED ADDR TO CONTROL ITEM : * PFCBTLP EQU 34 TEMP FORMAT LIST POINTER j $ PFCBTCO EQU 36 TEMP COLUMN NALUE , PFCBTCT EQU 38 TEMP ADDR TO CONTROL ITEM PFCBFLG EQU 40 FLAGS
0x102d00…1b0680 [0x470]: Pad {f00=0x0090, f01=0x0190, f02=»BNLI EQU 46 LINE COUNT VALUE P* $ $ PFCBIT1 EQU 48 <ITEM1> LINE/INDEX . $ PFCBIT2 EQU 50 <ITEM2> LINE/INDEX V " PFCBAD1 EQU 52 ADDR TO <ITEM1> ~ " PFCBAD2 EQU 54 ADDR TO <ITEM2> PFCBWRK EQU 56 WORK PFCBWK2 EQU 58 WORK F P EJECT T:G
0x102d00…1b0680 [0x471]: Pad {f00=0x0090, f01=0x0190, f02=» P CF PS,T:GTIT P IFT PARM=TEST P LC A1,FCBTYP,RFCB GET TYPE 0 P ANK A1,/FF T P CWK A1,3 h & P ABL(NL) I:ER14 ILL COTNTR CODE >2 z P* TYPE MUST BE 0 1 OR 2 P XIF & P CF PS,T:TABC GETFLD SEARCH INDEX P ABL T:TABN
0x102d00…1b0680 [0x472]: Pad {f00=0x0090, f01=0x0190, f02=»LD P* DISPLAY P* ERASE P* PRINT 0 P* B P* OUTPUT: FCB,RFCB L P* h PT:GTIT EQU * r P CF PS,T:GRFC P SLL A1,8 * P ST A1,FCBFUN,RFCB SAVE FUNCTION TYPE P LCR A1,LP GET VALUE P ADKL LP,1 P
0x102d00…1b0680 [0x473]: Pad {f00=0x0090, f01=0x018e, f02=» r P CF PS,I:EVA0 GET <ITEM1> P IFT PARM=TEST * P CF PS,BINTST BINARY TEST @ P XIF b . P ST OP2A,FCBAD1,RFCB SAVE <ITEM1> ADDRESS n P LDR* OP2A,OP2A GET VALUE , P ST OP2A,FCBIT1,RFCB SAVE <ITEM1> VALUE P EJECT T:GETF T:GET
0x102d00…1b0680 [0x474]: Pad {f00=0x0090, f01=0x0190, f02=» j P LDR* OP2A,OP2A GET VALUE & P ST OP2A,FCBIT2,RFCB <ITEM2> VALUE * P* TEST VALUE T P IFT PARM=TEST j P LD A1,FCBIT1,RFCB <ITEM1> , P ABL(N) I:ER15 NEGATIVE ILL INDEX VALUE P XIF P RTN PS F P EJECT T:GETF T:GETF
0x102d00…1b0680 [0x475]: Pad {f00=0x0090, f01=0x417e, f02=»RK: A1 > P* RETURN: LONG BRANCH TO I:ERR ERROR HANDLER WHEN ERROR & P* ELSE RETURN TO CALLER R P* | P IFT PARM=TEST PBINTST EQU * P LDR A1,OP2T P ANK A1,NUMBIT P RF(Z) BINT10 P ANK OP2T,ARITHB P R
0x102d00…1b0680 [0x476]: Pad {f00=0x0090, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x477]: Pad {f00=0x0090, f01=0x818e, f02=» K K $ 4 K D J F " D 1?R22 RRRRRRRRRRRRRRR_ 0X 01?R0X 01?R0X 01?R0X 01?R0X 01?R0X 01? T K K K
0x102d00…1b0680 [0x478]: Pad {f00=0x0091, f01=0x8190, f02=» J F " D R0X 01?R0X 01?R0X 01?R0X 01?R0X 01?R0X 01?R0X 01?R62 _ 0X 01W R b r K $ M " K $ ) 0
0x102d00…1b0680 [0x479]: Pad {f00=0x0091, f01=0x0004, f02=» (
0x102d00…1b0680 [0x47a]: Pad {f00=0x0091, f01=0x0190, f02=» $ P IDENT T:REWR UPD 78-02-28/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d D P**************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* D P******
0x102d00…1b0680 [0x47b]: Pad {f00=0x0091, f01=0x0190, f02=»NTRY T:SCUW SET CURSOR AND WRITE ( P ENTRY T:CLRD CLEAR FIELD ON DISPLAY ( P ENTRY T:IOWR WRITE T 0 P ENTRY T:CASP CALCULATE MAX LENGTH TO CLEAR p P* P EXTRN I:EVA0 P EXTRN I:EVA3 P EXTRN I:EVI P EXTRN I:EPIC P EXTRN
0x102d00…1b0680 [0x47c]: Pad {f00=0x0091, f01=0x0190, f02=»EQU 8 PFCBDY EQU 10 PFCBROW EQU 14 " PFCBCTR EQU 16 8 PSAVPP EQU 40 WORK FCB N PFCBEND EQU 58 l P* PECBBA EQU 2 PECBRL EQU 4 PECBCW EQU 10 P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINT
0x102d00…1b0680 [0x47d]: Pad {f00=0x0091, f01=0x0190, f02=»ORDER; WRITE PIOREQ1 EQU * * P ST A1,ECBRL,A8 STORE REQUESTED LENGTH ( P LKM V P DATA 1 b * P ST A5,ECBBA,A8 RESTORE BUFFER ADDRESS r P RTN PS B P EJECT T:REWR T:REWR T:DIS T:DIS T:DIS T:DIS P* P* SET CURS
0x102d00…1b0680 [0x47e]: Pad {f00=0x0091, f01=0x0190, f02=» LD A8,FCBDY,BFCB GET ECB ADDRESS * P ST A2,ECBCW,A8 STORE CURSOR POSITION * P LD A5,ECBBA,A8 DUMMY X P RB IOREQ1 v P EJECT T:REWR T:REWR P* P* CLEAR FIELD ON SCREEN P* A3=NUMBER OF SPACES P* PT:CLRD EQU *
0x102d00…1b0680 [0x47f]: Pad {f00=0x0091, f01=0x0190, f02=» R P* P* T:REWRE P* $ PT:REWR EQU * . * P LD A2,FCBROW,BFCB GET CURSOR POSITION B P CALL T:SCUW SET CURSOR p P CALL T:CASP EDIT TO BUFFER P CWR A4,A3 , P RF(E) REW100 JUMP IF NO CLEARING NEEDED & P CALL T:CLRD CLEAR F
0x102d00…1b0680 [0x480]: Pad {f00=0x0091, f01=0x0190, f02=» P RB T:IOWR WRITE ON DISPLY B P EJECT T:REWR T:REWR T:DIS T:DIS T:DIS T:DIS & P********** l P* ~ 2 P* EDIT FIELD AND CALCULATE EFFECTIVE CONTENTS P* PT:CASP EQU * ( P LDR A8,BFCB SAVE BFCB (FCB-ADDRESS) " P S
0x102d00…1b0680 [0x481]: Pad {f00=0x0091, f01=0x018e, f02=» ( P AD A3,12,A1 ADD WITH BUFFER LENGTH P LDKL A10,FCBEND 0 * P ADR A10,BFCB GET ADDRESS TO WORK AREA H 4 P ST A3,-2,A10 STORE BUFFER END ADDRESS(FOR EDIT) v " P LDK A1,/2B CONTROL CHARACTER P SC A1,1,A4 STORE IN BUFFER $ P ADK A4,2 ADD UP B
0x102d00…1b0680 [0x482]: Pad {f00=0x0091, f01=0x0190, f02=» P RF(Z) COPY JUMP IF FCOPY P SUK A1,2 & P RF(Z) FMELI JUMP IF FMELI 8 P EJECT T:REWR T:REWR Z P* | P* FMEL P* ( P CALL I:EVA3 CALCULATE PICT. ADDRESS PPICT EQU * P CALL I:EPIC CALL EDIT PBACK EQU * $
0x102d00…1b0680 [0x483]: Pad {f00=0x0091, f01=0x0190, f02=»GET REQUESTED LENGTH , P SUK A4,2 ADJUST FOR CONTROL CHARACTERS P LD A3,FCBCTR,BFCB L P ANK A3,/7F MASK OUT MAXL f P ADK A3,1 ADJUST FOR EOI KEY P CWR A3,A4 & P RF(NL) CALC10 JUMP IF A3 GREATER ( P LDR A3,A4 SET GREATEST VALUE IN A
0x102d00…1b0680 [0x484]: Pad {f00=0x0091, f01=0x4144, f02=»L PP,1 GET ADDRESS TO ITEM " P CALL I:EVA0 CALCULATE ADDRESS " P CALL I:ECPY CALL EDIT H P RB BACK f P EJECT T:REWR T:REWR v P* P* FMELI DIRECTIVE P* PFMELI EQU * P ADKL PP,1 * P CALL I:EVI CALCULATE ADDRESS
0x102d00…1b0680 [0x485]: Pad {f00=0x0091, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x486]: Pad {f00=0x0091, f01=0x8190, f02=» & NAMN & - & A-PRIS ( $ < $ J $ X $ f $ t $ $ $ & & & TYPE: & E X " ;
0x102d00…1b0680 [0x487]: Pad {f00=0x0091, f01=0x8190, f02=» L ZZZZZY-T " 8 $ & 4 & FIELDB B & %E V & ^ h & - v & FIELDC & 4 L *V**YVYY+: " 9 & & & TEST A &
0x102d00…1b0680 [0x488]: Pad {f00=0x0091, f01=0x0190, f02=»,B4 v P BE GETN01 OM DEC.PKT FANNS P 0 P MOVE B2,B1 8 P INSRT S1,B2,B4,PERIOD,BK0 L P ADD B1,='1' n PGETN01 P MOVE B3,B1 TOT LGD P SUB B3,B2 ANT SIFFROR F PKT & P SUB B3,='1' GER ANT SIFFROR E PKT P MOVE B4,$NDEC
0x102d00…1b0680 [0x489]: Pad {f00=0x0091, f01=0x000a, f02=» 0 8 @ H P
0x102d00…1b0680 [0x48a]: Pad {f00=0x0091, f01=0x018e, f02=» $ P IDENT T:DEDT UPD 78-03-03/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d @ P*********************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* @ P**********
0x102d00…1b0680 [0x48b]: Pad {f00=0x0091, f01=0x0190, f02=» ( P ENTRY T:TABE SEARCH LINE WITH INDEX $ P ENTRY T:TABN SAVE CR AND RETURN 0 P ENTRY T:SCR2 CR 2 HANDLING X P* | P EXTRN I:EDSK SKIP FUNCTION , P EXTRN I:ER16 FORMAT CONDITIONS CHANGED P EXTRN T:EDWI INIT FOR WRITE P EXTRN T:EDW
0x102d00…1b0680 [0x48c]: Pad {f00=0x0091, f01=0x0190, f02=»NL NEW LINE DISPLAY ( P EXTRN T:TINP FINP HANDLER SKIP MODE & P EXTRN T:TKI FKI HANDLER SKIP MODE H $ P EXTRN T:DSL FIRST LINE DISPLAY r $ P EXTRN T:RCR STORE CR AND RETURN P EXTRN I:EVT P EXTRN I:EVA0 0 P EXTRN I:EVNO PROCESS NOT IMPL
0x102d00…1b0680 [0x48d]: Pad {f00=0x0091, f01=0x0190, f02=»OLEAN VALUE t P EXTRN I:EXIT FEXIT & P EXTRN I:EBR UNCONDITIONAL BRANCH 0 , P EXTRN I:ECWC CONTROL WORD RESET, NO IO Z P EXTRN I:EFLI FLINK P* P EXTRN X:RESE NO STD F P EJECT T:DEDT T:DEDT T:DIS2 T:DIS2 T:DIS2 T:D
0x102d00…1b0680 [0x48e]: Pad {f00=0x0091, f01=0x0190, f02=»NAL ASSEMBLY FLAGS P* PTEST EQU 1 $ PNOTEST EQU 0 6 PPARM EQU TEST J P* ` P* j PPS EQU A14 STACK POINTER t PTCA EQU A13 TCA BASE ADDRESS PRFCB EQU A6 FCB BASE ADDRESS PPBF EQU A4 BUFFER POINTER P* " PST
0x102d00…1b0680 [0x48f]: Pad {f00=0x0091, f01=0x0190, f02=» T:DIS2 X P* P* DISPLAY FUNCTION EQUATES P* @ PFULEFT EQU 1 J PFURIGH EQU 2 ^ PFULDOW EQU 3 r PFUDOWN EQU 4 PFUTUP EQU 5 PFUGETF EQU 6 PFUHOME EQU 7 PFUFWD EQU 8 PFUBWD EQU 9 PFUDISP EQU 1
0x102d00…1b0680 [0x490]: Pad {f00=0x0091, f01=0x0190, f02=» P* DISPLACEMENTS TO FCB P* $ * PFCBELA EQU 0 ADDRESS TO ELEMENT INDEX . ( PFCBFMA EQU 2 ADDR TO FORMAT OP CODE PFCBLP EQU 4 FORMAT LIST ADDR ( PFCBEOL EQU 6 END OF FORMAT LIST ADDR PFCBKB EQU 8 DSET ADDR KB PFCBDY EQU 10 DSET
0x102d00…1b0680 [0x491]: Pad {f00=0x0091, f01=0x0190, f02=» EQU 16 CONTROLS VALUE ( PFCBDUP EQU 20 ADDR TO DUPL EL INDEX PFCBLEN EQU 22 J PFCBAPP EQU 24 APPL VALUE ` P* . PFCBECP EQU 26 TAB INDEX TO EMPTY COMP FLD , PFCBSLP EQU 28 SAVED FORMAT LIST POINTER $ PFCBSCO EQU 30 SAVED COLUMN VAL
0x102d00…1b0680 [0x492]: Pad {f00=0x0091, f01=0x0190, f02=»OLUMN NALUE | , PFCBTCT EQU 38 TEMP ADDR TO CONTROL ITEM PFCBFLG EQU 40 FLAGS D PFCBFUN EQU 42 FUNCTION VALUE ` 2 PFCBTYP EQU 43 KI/INP TYPE 0=KI 1=INP 2=KI/INP $ PFCBNIX EQU 44 INDEX COUNT VALUE " PFCBNLI EQU 46 LINE COUNT VALUE P*
0x102d00…1b0680 [0x493]: Pad {f00=0x0091, f01=0x0190, f02=»QU 54 ADDR TO <ITEM2> PFCBWRK EQU 56 WORK PFCBWK2 EQU 58 WORK 8 F P EJECT T:DEDT T:DEDT T:DIS2 T:DIS2 T:DIS2 T:DIS2 R P* P* EQUATES TO FCBFLG P* PENDED EQU 1 SEARCH IS ENDED PGKIPOS EQU 2 GET AN INDE
0x102d00…1b0680 [0x494]: Pad {f00=0x0091, f01=0x0190, f02=»OS EQU /20 TEMP KI INFO SAVED * PEMPCOM EQU /40 EMPTY COMP FIELD FOUND & * PERNCLR EQU /80 CLEAR ONLE WHEN NCLR=0 T " PERASE1 EQU /100 CLEAR DISPLAY , PERASE2 EQU /300 CLEAR DISPLAY AND MEMORY PERASE3 EQU /200 CLEAR MEMORY PFCBCR1 EQU /40
0x102d00…1b0680 [0x495]: Pad {f00=0x0091, f01=0x0190, f02=» 8 CLEAR ALL BUT GKILIN P* P* * P* EQUATES TO ECB 4 P* N PECBBA EQU 2 BUFFER ADDRESS X P* z PDSINX EQU 16 INDEX ITEM ADDR F P EJECT T:DEDT T:DEDT T:DIS2 T:DIS2 T:DIS2 T:DIS2 P* P* DISPLAY SK
0x102d00…1b0680 [0x496]: Pad {f00=0x0091, f01=0x0190, f02=»ESKI P DATA I:ESKI P DATA I:EBRI P DATA I:EBRB 4 P DATA I:EBR H P DATA I:ECWC P DATA I:EXIT p P DATA I:ECWC P DATA I:EFLI P DATA T:DNL P DATA T:TINP P DATA T:TKI P DATA I:ESKI P DATA T:DSL
0x102d00…1b0680 [0x497]: Pad {f00=0x0091, f01=0x0190, f02=»INPUT: RFCB,FCB P* OUTPUT: FCB $ P* WORK: A1,A2,A3,A4,A6,A7,A8 0 > P* SUBR.CALLS: T:SCR2 T:EDWI I:EDSK T:GRFC T:ENIN T:EDWF X > P* RETURN: LONG BRANCH TO I:ERR ERROR HANDLER WHEN ERROR & P* ELDE RETURN TO CALLER P*
0x102d00…1b0680 [0x498]: Pad {f00=0x0092, f01=0x0190, f02=»F TABE10 ( PT:TABE EQU * SEARCH LINE WITH KI/INP P LDK A1,GKILIN < PTABE10 EQU * R P LD A2,FCBIT1,RFCB f P RF(G) TABF PTABE20 EQU * " P CF PS,T:SCR2 LINE WAS NOT > 0 P ABL TABFRZ RETURN P EJECT T:DEDT T:DEDT P
0x102d00…1b0680 [0x499]: Pad {f00=0x0092, f01=0x0190, f02=» P CC A1,FCBFUN,RFCB PRINT ? P RF(E) TABF05 YES & P LD A8,FCBDY,RFCB @ PTABF05 EQU * Z P LDK A7,WAITBT n * P CF PS,T:EDWI CLEAR CR GET BUFFER INFO PTABF10 EQU * P LDKL A4,I:EVT EVAL TABLE , P CM FCBNIX,RFCB CLEAR POS INDEX CO
0x102d00…1b0680 [0x49a]: Pad {f00=0x0092, f01=0x0190, f02=»CBLP,RFCB LIST ADDRESS F P EJECT T:DEDT T:DEDT T:DIS2 T:DIS2 T:DIS2 T:DIS2 P* h P* CALL EDIT r P* P CF PS,I:EDSK P CF PS,T:GRFC P LC A3,FCBFUN,RFCB P ANK A3,/FF P* P* P LD A2,FCB
0x102d00…1b0680 [0x49b]: Pad {f00=0x0092, f01=0x018e, f02=»ET FLAGS P ANK A2,GKIPOS P RF(E) TABF20 & F P EJECT T:DEDT T:DEDT T:DIS2 T:DIS2 T:DIS2 T:DIS2 < < P******************************************************* P* P* INDEX WAS SEARCHED P* < P******************
0x102d00…1b0680 [0x49c]: Pad {f00=0x0092, f01=0x0190, f02=» , P RF(NL) TABFRT ERASE OR DISPL OK RETURN P RB TABE20 ERROR CR=2 8 P* V ( PTABF20 EQU * INDEX WAS NOT SEARCHED ` P LDR A2,A1 GET FLAGS P ANK A2,GKILIN GET KI LINE P RF(E) TABF50 NO P EJECT T:DEDT T:DEDT < P******
0x102d00…1b0680 [0x49d]: Pad {f00=0x0092, f01=0x0190, f02=»************************************** ~ P LINE WITH KI WAS SEARCHED . P CWK A3,FURIGH TRIGHT R P RF(NE) TABF30 NO p P IFT PARM=TEST P LDR A2,A1 GET FLAGS P ANK A2,SAVPOS TEMP KI SAVED P RF(E) TABFER NO P XIF PTABF25
0x102d00…1b0680 [0x49e]: Pad {f00=0x0092, f01=0x018e, f02=» GET FLAGS * P ANK A2,BKILIN STEB BACKWARDS ONE LINE P RF(Z) TABF35 NO @ P LDKL A2,-1 X P ADS A2,FCBIT1,RFCB l P RB(NG) TABE20 ERROR CR=2 ( P LDK A2,GKILIN CLEAR ALL EXCEPT THIS P ANS A2,FCBFLG,RFCB P RB TABF10 ONE MORE TIME
0x102d00…1b0680 [0x49f]: Pad {f00=0x0092, f01=0x0190, f02=» P RF(E) TABF40 P CWK A3,FULDOW OR TLDOWN P RF(NE) TABFER NO > P XIF X P* d ( P* HANDLE SAVED INDEX POS OR ERROR n P* PTABF40 EQU * P LDR A2,A1 GET FLAGS P ANK A2,SAVPOS INFO SAVED P RB(E) TABE20 NO ERR
0x102d00…1b0680 [0x4a0]: Pad {f00=0x0092, f01=0x0190, f02=»******** ` P* P* LINE WAS SEARCHED P* 8 < P******************************************************** B PTABF50 EQU * P IFT PARM=TEST P LDR A2,A1 GET FLAGS $ P ANK A2,GLINE LINE WAS SEARCHED P RF(E) TABFER NO P X
0x102d00…1b0680 [0x4a1]: Pad {f00=0x0092, f01=0x0190, f02=» PTABF55 EQU * & P LD PBF,ECBBA,A8 INIT BUF POINTER P LDKL A1,/2020 ONE LINEFEED B P STR A1,PBF f P ADK PBF,2 z P CF PS,T:EDWF EXTRA LINEFEED PTABF60 EQU * P RF TABFRT P IFT PARM=TEST P* PTABFER EQU * $ P
0x102d00…1b0680 [0x4a2]: Pad {f00=0x0092, f01=0x0190, f02=» PTABF90 EQU * P LDR A2,A1 GET FLAGS $ P ANK A2,GLINE LINE WAS SEARCHED 8 P RF(E) TABFRT NO ` P CWK A3,FUDISP x P RB(E) TABF60 DISPAY P CWK A3,FUPRIN P RB(E) TABF55 PRINT PTABFRT EQU * P IFT RESE=YES P CF
0x102d00…1b0680 [0x4a3]: Pad {f00=0x0092, f01=0x0190, f02=»E) TABFRX P CWK A1,FUPRIN P RF(NE) TABFRY ( PTABFRX EQU * > P LC A1,FCBROW,RFCB R P ANK A1,/FF l P CF PS,X:RESE PTABFRY EQU * P XIF P CM DSINX,A8 PTABFRZ EQU * P RTN PS RETURN F P EJECT T:DEDT T:D
0x102d00…1b0680 [0x4a4]: Pad {f00=0x0092, f01=0x0190, f02=» P* OUTPUT: FCB P* WORK: A1 > P* RETURN: LONG BRANCH TO I:ERR ERROR HANDLER WHEN ERROR 2 & P* ELSE RETURN TO CALLER t P* PT:SCR2 EQU * P LC A1,FCBFUN,RFCB P ANK A1,/FF P IFT PARM=TEST P CWK A1,FU
0x102d00…1b0680 [0x4a5]: Pad {f00=0x0092, f01=0x0190, f02=» * P ABL I:ER16 FORMAT CONDITIONS CHANGED PSCR2A EQU * 6 P XIF J P CWK A1,FUGETF V P RF(E) SCR2B l P LD A8,FCBDY,RFCB P LDK A7,WAITBT P CF PS,T:EDWI INIT FOR WRITE P CF PS,T:SCUR P CM DSINX,A8 P RF SCR2C
0x102d00…1b0680 [0x4a6]: Pad {f00=0x0092, f01=0x0190, f02=» P RF(NZ) SCR2B3 YES P LDK A1,0 NO, RETURN ZERO P RF SCR2B7 @ PSCR2B3 EQU * R 0 P LD A1,FCBECP,RFCB RETURN INDEX TO EMP COMP f PSCR2B7 EQU * " P ST* A1,FCBAD2,RFCB IN <ITEM2> PSCR2C EQU * P LDKL A1,FCBCR2 P ORS A1,FC
0x102d00…1b0680 [0x4a7]: Pad {f00=0x0092, f01=0x406c, f02=» * P LD A3,FCBFLG,RFCB P SRL A3,14 $ " P ABL T:RCR STORE CR AND RETURN 6 P END @ h,FCBECP,RFCB RETURN INDEX TO EMP COMP f PSCR2B7 EQU * " P ST* A1,FCBAD2,RFCB IN <ITEM2> PSCR2C EQU * P LDKL A1,FCBCR2 P ORS A1,FC
0x102d00…1b0680 [0x4a8]: Pad {f00=0x0092, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x4a9]: Pad {f00=0x0092, f01=0x0004, f02=»
0x102d00…1b0680 [0x4aa]: Pad {f00=0x0092, f01=0x0190, f02=» $ P IDENT STROUT UPD 78-03-14/UKF P REL 78-03-03 #1.0 , H P******************************************************************** H P* & P* DISPLAY MANAGEMENT IN CREDIT P* H P********************************************************
0x102d00…1b0680 [0x4ab]: Pad {f00=0x0092, f01=0x0190, f02=» A COMPLETE OR ^ $ P* A PART OF A DISPLAY FORMAT P* @ P* PARAMETERS: J T P* <TYPE> BINARY ITEM HOLDING FIELD TYPE 0=FKI 1=FINP 2=FKI/FINP b 0 P* <OUTPUT STRING> THE OUTPUT STRING P P* <OUTPUT START> BIN
0x102d00…1b0680 [0x4ac]: Pad {f00=0x0092, f01=0x0190, f02=» AT RETURN <OUTPUT START> POINTS WHERE MOVE WAS ENDED z P P* <UNIT SEPARATOR> STRING THAT HOLDS A CHARACTER WHICH SEPARATES EACH @ 8 P* FIELD IN THE OUTPUT STRING P P* <INDEX1> BINARY ITEM HOLDING THE FIRST VAR
0x102d00…1b0680 [0x4ad]: Pad {f00=0x0092, f01=0x0190, f02=»INDEX TO T 2 P* THE LAST MOVED FIELD P P* <INDEX2> BINARY ITEM HOLDING THE LAST VARIABLE FIELD INDEX F , P* MUST NOT BE 0 J P* <RETURN CODE> BINARY ITEM HOLDING RETURN CODE FROM ST
0x102d00…1b0680 [0x4ae]: Pad {f00=0x0092, f01=0x0190, f02=»* P P DDUM SPDDIV P PDIV . P ENTRY STROUT OUTPUT FROM FORMAT TO STRING , P* ^ & P EXT STROU1 MOVE TO OUTPUT STRING h P* & P* DESCRIPTION OF ROUTINE STROU1* @ P************************************************************ P
0x102d00…1b0680 [0x4af]: Pad {f00=0x0092, f01=0x0190, f02=»CALLED FORM CREDIT STANDARD MODULE 'S T R O U T' P* 8 F P* A CHECK THAT OUTPUT STRING IS LARGE ENOUGH IS PERFORMED FIRST. B H P* MOVE ROUTINE T:DUPX USED BY T:DUPL FUNCTION IS USED, NOT NEEDED 4 P* BYTES IN OUTPUT STRING ARE FILLED WITH X'00'
0x102d00…1b0680 [0x4b0]: Pad {f00=0x0092, f01=0x0190, f02=»LL STROU1,<OUTPUT STRING>,<OUTPUT START>,<UNIT SEPARATOR> P* WHERE B 0 P* <OUTPUT STRING> STRING TO HOLD OUTPUT T B P* <OUTPUT START> BINARY ITEM WITH START POSITION WITHIN B P* <OUTPUT STRING> FIRST POSITION COUNT
0x102d00…1b0680 [0x4b1]: Pad {f00=0x0092, f01=0x0008, f02=» X ` h p
0x102d00…1b0680 [0x4b2]: Pad {f00=0x0092, f01=0x0190, f02=» $ P IDENT T:ENLI UPD 78-01-17/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d @ P************************************************************ P* $ P* DISPLAY MANAGEMENT IN CREDIT P* @ P**********
0x102d00…1b0680 [0x4b3]: Pad {f00=0x0092, f01=0x0190, f02=»LAY t P* P EXTRN I:EXIT P EXTRN I:ENL FNL , P EXTRN I:ESL FSL D , P EXTRN I:ECTR COUNT AND STORE CTRL CHAR , P EXTRN T:ENIN END HANKLING FOR FKI/FINP P EXTRN T:GRFC , P EXTRN T:WRDY POSITION CURSOR AND WRITE , P EXTRN I
0x102d00…1b0680 [0x4b4]: Pad {f00=0x0092, f01=0x0190, f02=»FMEL P EXTRN I:ETXT FTEXT P EXTRN I:ETAB FTAB ( , P EXTRN I:EBRB BRANCH UPON BOOLEAN VALUE B , P EXTRN I:EBRI BRANCH UPON VARIABLE VALUE r & P EXTRN I:EBR UNCONDITIONAL BRANCH P EXTRN I:EOR FEOR P EXTRN I:ECW FCW P EXTRN I:EFL
0x102d00…1b0680 [0x4b5]: Pad {f00=0x0092, f01=0x0190, f02=» P* P EXTRN X:RESE NO STD F P EJECT T:ENLI T:ENLI T:DIS4 T:DIS4 T:DIS4 T:DIS4 * * P* NO STD CONDITIONAL ASSEMBLY FLAGS t PNO EQU 0 PYES EQU 1 PRESE EQU NO P* " P* CONDITIONAL ASSEMBLY FLAGS P*
0x102d00…1b0680 [0x4b6]: Pad {f00=0x0092, f01=0x0190, f02=»TACK POINTER PRFCB EQU A6 FCB BASE ADDRESS POPCD EQU A11 OPCODE 8 " PWKAR EQU A10 WORK AREA POINTER T P* z " PPRT EQU -6 PROCESS TABLE ADDR PHIGH EQU /1F HIGH INTENSITY PLOW EQU /1E LOW INTENSITY P EJECT T:ENLI T:ENLI
0x102d00…1b0680 [0x4b7]: Pad {f00=0x0092, f01=0x0190, f02=» 4 PFUTUP EQU 5 PFUGETF EQU 6 PFUHOME EQU 7 2 PFUFWD EQU 8 F PFUBWD EQU 9 Z PFUDISP EQU 10 n PFUERAS EQU 11 PFUPRIN EQU 12 F P EJECT T:ENLI T:ENLI T:DIS4 T:DIS4 T:DIS4 T:DIS4 P* P* DI
0x102d00…1b0680 [0x4b8]: Pad {f00=0x0093, f01=0x0190, f02=»U 4 FORMAT LIST ADDR ( PFCBEOL EQU 6 END OF FORMAT LIST ADDR PFCBKB EQU 8 DSET ADDR KB H PFCBDY EQU 10 DSET ADDR DY h PFCBIX EQU 12 TAB INDEX VALUE PFCBROW EQU 14 ROW VALUE PFCBCOL EQU 15 COLUMN VALUE P* PFCBCTR EQU 16 CO
0x102d00…1b0680 [0x4b9]: Pad {f00=0x0093, f01=0x0190, f02=» EQU 26 TAB INDEX TO EMPTY COMP FLD , PFCBSLP EQU 28 SAVED FORMAT LIST POINTER , $ PFCBSCO EQU 30 SAVED COLUMN VALUE P* , PFCBSCT EQU 32 SAVED ADDR TO CONTROL ITEM * PFCBTLP EQU 34 TEMP FORMAT LIST POINTER $ PFCBTCO EQU 36 TEMP COLUMN NALU
0x102d00…1b0680 [0x4ba]: Pad {f00=0x0093, f01=0x0190, f02=»3 KI/INP TYPE 0=KI 1=INP 2=KI/INP $ PFCBNIX EQU 44 INDEX COUNT VALUE * " PFCBNLI EQU 46 LINE COUNT VALUE R P* x $ PFCBIT1 EQU 48 <ITEM1> LINE/INDEX $ PFCBIT2 EQU 50 <ITEM2> LINE/INDEX " PFCBAD1 EQU 52 ADDR TO <ITEM1> " PFCBAD2 EQU 54 ADDR
0x102d00…1b0680 [0x4bb]: Pad {f00=0x0093, f01=0x0190, f02=» N P* P* EQUATES TO FCBFLG P* 0 PENDED EQU 1 SEARCH IS ENDED : PGKIPOS EQU 2 GET AN INDEX ^ PGLINE EQU 4 GET A LINE ( PGKILIN EQU 8 GET A LINE WITH KI/INP * PBKILIN EQU /10 SEARCH LINE BEFORE THIS & PSAVPOS EQU /20 TEM
0x102d00…1b0680 [0x4bc]: Pad {f00=0x0093, f01=0x0190, f02=»EAR DISPLAY ~ , PERASE2 EQU /300 CLEAR DISPLAY AND MEMORY PERASE3 EQU /200 CLEAR MEMORY D PFCBCR1 EQU /4000 CR 1 h PFCBCR2 EQU /8000 CR 2 PFCBCR3 EQU /C000 CR 3 , PINPKI EQU /400 1=IN AND 0=KI PROCESSED & PBCLEAR EQU 8 CLEAR ALL B
0x102d00…1b0680 [0x4bd]: Pad {f00=0x0093, f01=0x0190, f02=»PROCESS TABLE P* PEDDTAB EQU * P DATA I:EVNO 4 P DATA I:ECPY H P DATA I:EPIC P DATA I:ETXT p P DATA I:ETAB P DATA T:DCTR P DATA I:EBRI P DATA I:EBRB P DATA I:EBR P DATA I:EOR P DATA I:EXIT
0x102d00…1b0680 [0x4be]: Pad {f00=0x0093, f01=0x0190, f02=»DSL F P EJECT T:ENLI T:ENLI T:DIS4 T:DIS4 T:DIS4 T:DIS4 P* V P* FIRST LINE AND NEW LINE ` P* P* INPUT: FCB,WKAR,OPCD $ P* OUTPUT: FCB, PRT,WKAR=EDDTAB P* WORK: A1,A2,A3 4 P* SUBR.CALLS: T:WRDY
0x102d00…1b0680 [0x4bf]: Pad {f00=0x0093, f01=0x018e, f02=»ROUTINE WHEN FINNISHED p 8 P* OR LONG BRANCH TO I:ERR ERROR HANDLER WHEN ERROR P* ELSE RETURN TO CALLER Z P* | PT:DSL EQU * P CF PS,T:GRFC P LDK A2,1 P ST A2,FCBNLI,RFCB P RF TABS10 PT:DNL EQU * NEW LINE P
0x102d00…1b0680 [0x4c0]: Pad {f00=0x0093, f01=0x0190, f02=» P XIF P LD A1,FCBFLG,RFCB P LDR A2,A1 * & P LD A3,FCBNLI,RFCB GET FOUND LINE < P ANK A2,GLINE LINE SEARCHED f P RF(E) TABS30 NO P EJECT T:ENLI T:ENLI P* P* LINE SEARCHED P* & P CW A3,FCBIT1,RFCB FOUND
0x102d00…1b0680 [0x4c1]: Pad {f00=0x0093, f01=0x0190, f02=» P CWK A3,1 P RF(NG) TABS15 P SUK A3,1 , PTABS15 EQU * > P LDR A2,A3 R P SLL A2,8 d P ADK A2,1 ROW AND COL v P LDK A1,0 REQ LENGTH P SET CURSOR P CF PS,T:WRDY P* PTABS17 EQU * P LDKL A3,EDDTAB
0x102d00…1b0680 [0x4c2]: Pad {f00=0x0093, f01=0x0190, f02=»* PTABS18 EQU * P CWK OPCD,/E1 NL P RF(NE) TABS20 NO(SL) 6 P CF PS,I:ENL T P RF TABS25 h PTABS20 EQU * z P CF PS,I:ESL P* PTABS25 EQU * & P LD A3,FCBNLI,RFCB GET FOUND LINE ( P CW A3,FCBIT2,RFCB FOUND - SEARC
0x102d00…1b0680 [0x4c3]: Pad {f00=0x0093, f01=0x018e, f02=» P CF PS,I:ECTR SET LOW P RTN PS & F P EJECT T:ENLI T:ENLI T:DIS4 T:DIS4 T:DIS4 T:DIS4 6 P* * P* INDEX OR LINE WITH KI/INP SEQRCHED P* P* PTABS30 EQU * P LDR A2,A1 GET FLAGS $ P ANK A2,GKILIN
0x102d00…1b0680 [0x4c4]: Pad {f00=0x0093, f01=0x0190, f02=» | P ANK A3,/FF P CWK A3,FURIGH TRIGHT P RF(E) TABS50 YES : P CWK A3,FUTUP TUP T P RF(E) TABS40 YES n P CWK A3,FUDOWN TDOWN P RF(NE) TABSRT NO P TUP TDOWN PTABS40 EQU * P LDR A2,A1 GET FLAGS P ANK A2,
0x102d00…1b0680 [0x4c5]: Pad {f00=0x0093, f01=0x0190, f02=»IGHT P* PTABS50 EQU * P IFT PARM=TEST * P LDR A2,A1 GET FLAGS @ P ANK A2,SAVPOS , P ABL(E) I:ER16 FORMAT CONDITIONS CHANGED r P XIF P* P* FINNISHED ! P* PTABS60 EQU * P LDKL A1,-1 RESET LINE
0x102d00…1b0680 [0x4c6]: Pad {f00=0x0093, f01=0x0190, f02=»:EXIT F P EJECT T:ENLI T:ENLI T:DIS2 T:DIS2 T:DIS2 T:DIS2 P* X " P* CONTROL CHARACTER PROCESSING b P* P* INPUT: OPCD P* OUTPUT: A1 P* WORK: A1,A2 P* PT:DCTR EQU * P CF PS,T:GRFC
0x102d00…1b0680 [0x4c7]: Pad {f00=0x0093, f01=0x411e, f02=»CD P LDR A2,OPCD P ANK A2,2 UL/NUL P RF(NZ) CTRL10 YES 6 P ANK A1,1 HIGH/LOW P P XRK A1,/1F j P RF CTRL20 ~ PCTRL10 EQU * P ANK A1,3 P ORK A1,/10 PCTRL20 EQU * P CF PS,I:ECTR STORE CHAR P RTN PS
0x102d00…1b0680 [0x4c8]: Pad {f00=0x0093, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x4c9]: Pad {f00=0x0093, f01=0x0002, f02=»
0x102d00…1b0680 [0x4ca]: Pad {f00=0x0093, f01=0x000c, f02=»780322 < <:ERRE JT:STEV : 780322 T:STEVK T:GRFC I:EVA0 I:ERR2 < VA0 I:EVNO! I:ESKI I:EBRI I:EBRBR I:EBR I:EINH I:EKIH I:EDSK v I:EDT I:ED1 I:EDW I:EVA6 I:EFLI I:ETABL . I:EXIT F
0x102d00…1b0680 [0x4cb]: Pad {f00=0x0093, f01=0x0190, f02=» FSTRINP 780322 STRINPR STRIN1: T:GETF T:SWIT 9 < FSTROUT . 780322 STROUTR STROU1: T:GETF T:SWIT 9 < T:STIN / 780322 STRIN1K T:STEV T:RNOK I:EVA0 I:ER17 T:CLMI I:ERR2C I:MOV T:GRFC T:ROK
0x102d00…1b0680 [0x4cc]: Pad {f00=0x0093, f01=0x0190, f02=» I:EDT 3 780322 I:EVT B I:EGTD I:EVA2 I:EVA5 I:EVB I:EGTB I:EVI I:EVA3 I:EVA0 I:EVNO! I:ESKI I:EBRI I:EBRBR I:EBR I:EINH I:EKIH I:EDSK v I:EDT I:ED1 I:EDW I:EVA6 I:EFLI I:ETABL . I:EXIT F
0x102d00…1b0680 [0x4cd]: Pad {f00=0x0093, f01=0x406a, f02=»:EPICN I:ERRE JT:STEV : 780322 T:STEVK T:GRFC I:EVA0 I:ERR2 < VA0 I:EVNO! I:ESKI I:EBRI I:EBRBR I:EBR I:EINH I:EKIH I:EDSK v I:EDT I:ED1 I:EDW I:EVA6 I:EFLI I:ETABL . I:EXIT F
0x102d00…1b0680 [0x4ce]: Pad {f00=0x0093, f01=0x0190, f02=» * P RB STCC NO: STORE CHAR CONDITIONALLY D P* D 2 < P* SKIP LEFT ZEROES AND SPACES ( T PICTURE CHARACTER ): D < P* D | PSSZ ADK LINK,SSPB-LB D , P RB SSP+2 EXECUTE SSP WITH MODIFICATION D P* D $ P* STORE SIGN (ZERO HAS NO SIGN) D P* D
0x102d00…1b0680 [0x4cf]: Pad {f00=0x0093, f01=0x0190, f02=»SIGN WITH REQUESTED D x 0 P RB(NL) STCH STORE IF VALUE GREATER OR EQUAL E P RB STB GO STORE BLANK E P P* E n $ PICC RES 0 INSERT COMMA CHARACTER E x P LDK A1,',' FETCH COMMA E P RB STCP E T P EJECT I:EDT I:EDT I:EDT I:EDT I:EDT I:ED
0x102d00…1b0680 [0x4d0]: Pad {f00=0x0093, f01=0x0190, f02=»B 30 P FLINK P2 P FMEL 'ZZZZ9V99',BEL P FTAB 55 : P FLINK P3 J P FMEL 'ZZZZ9V99',ANNU P FEOR z P FILLR '0',2 P FEOR P FTAB 5 P FTEXT 'PERIOD' P FTAB 20 P FTEXT 'SKULD' P FTAB 40 P F
0x102d00…1b0680 [0x4d1]: Pad {f00=0x0093, f01=0x000c, f02=» x
0x102d00…1b0680 [0x4d2]: Pad {f00=0x0093, f01=0x0190, f02=» $ P IDENT T:EINP UPD 78-01-25/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d B P************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* B P********
0x102d00…1b0680 [0x4d3]: Pad {f00=0x0093, f01=0x018e, f02=»NP HANDLER PROCESS MODE & P ENTRY T:TKI FKI HANDLER SKIP MODE ( P ENTRY T:TINP FINP HANDLER SKIP MODE J P* v F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 , P EXTRN T:WRDY POSITION CURSOR AND WRITE $ P EXTRN T:CLMI CL
0x102d00…1b0680 [0x4d4]: Pad {f00=0x0093, f01=0x0190, f02=» P EXTRN I:EVA5 P EXTRN I:EVI P EXTRN I:EGTB . P EXTRN I:EVIN D " P EXTRN T:GRFC GET FCB ADDRESS Z P EXTRN I:ETAB P EXTRN I:ECTR P EXTRN I:EPIC P EXTRN I:ECPY ( P EXTRN T:CLDY ERASE FIELD ON DISPLAY * P EXTRN
0x102d00…1b0680 [0x4d5]: Pad {f00=0x0093, f01=0x0190, f02=»P b F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 P* T $ P* CONDITIONAL ASSEMBLY FLAGS* ^ PNOTEST EQU 0 PTEST EQU 1 PPARM EQU TEST P* P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK P
0x102d00…1b0680 [0x4d6]: Pad {f00=0x0093, f01=0x018e, f02=»AND2 TYPE P* & PARITHB EQU /10 ARITHMETIC BASE BIT PNUMBIT EQU /20 NUMERIC BIT F P* h PPBF EQU A4 BUFFER POINTER r PLINK EQU A7 LINKAGE REGISTER POPCD EQU A11 OPCODE " PLP EQU PP FORMAT LIST POINTER P* PHIGH E
0x102d00…1b0680 [0x4d7]: Pad {f00=0x0093, f01=0x018e, f02=» PFURIGH EQU 2 PFULDOW EQU 3 PFUDOWN EQU 4 0 PFUTUP EQU 5 D PFUGETF EQU 6 X PFUHOME EQU 7 l PFUFWD EQU 8 PFUBWD EQU 9 PFUDISP EQU 10 PFUERAS EQU 11 PFUPRIN EQU 12 F P EJECT T:EINP T:EINP T:D
0x102d00…1b0680 [0x4d8]: Pad {f00=0x0094, f01=0x0190, f02=» h ( PFCBFMA EQU 2 ADDR TO FORMAT OP CODE PFCBLP EQU 4 FORMAT LIST ADDR 4 ( PFCBEOL EQU 6 END OF FORMAT LIST ADDR X PFCBKB EQU 8 DSET ADDR KB PFCBDY EQU 10 DSET ADDR DY PFCBIX EQU 12 TAB INDEX VALUE PFCBROW EQU 14 ROW VALUE P
0x102d00…1b0680 [0x4d9]: Pad {f00=0x0094, f01=0x0190, f02=» 22 PFCBAPP EQU 24 APPL VALUE P* , . PFCBECP EQU 26 TAB INDEX TO EMPTY COMP FLD 6 , PFCBSLP EQU 28 SAVED FORMAT LIST POINTER h $ PFCBSCO EQU 30 SAVED COLUMN VALUE P* , PFCBSCT EQU 32 SAVED ADDR TO CONTROL ITEM * PFCBTLP EQU 34 TE
0x102d00…1b0680 [0x4da]: Pad {f00=0x0094, f01=0x0190, f02=»AGS PFCBFUN EQU 42 FUNCTION VALUE 2 PFCBTYP EQU 43 KI/INP TYPE 0=KI 1=INP 2=KI/INP 0 $ PFCBNIX EQU 44 INDEX COUNT VALUE f " PFCBNLI EQU 46 LINE COUNT VALUE P* $ PFCBIT1 EQU 48 <ITEM1> LINE/INDEX $ PFCBIT2 EQU 50 <ITEM2> LINE/INDEX
0x102d00…1b0680 [0x4db]: Pad {f00=0x0094, f01=0x0190, f02=»JECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 P* H P* EQUATES TO FCBFLG R P* p PENDED EQU 1 SEARCH IS ENDED z PGKIPOS EQU 2 GET AN INDEX PGLINE EQU 4 GET A LINE ( PGKILIN EQU 8 GET A LINE WITH KI/INP * P
0x102d00…1b0680 [0x4dc]: Pad {f00=0x0094, f01=0x0190, f02=»ERNCLR EQU /80 CLEAR ONLE WHEN NCLR=0 " PERASE1 EQU /100 CLEAR DISPLAY . , PERASE2 EQU /300 CLEAR DISPLAY AND MEMORY T PERASE3 EQU /200 CLEAR MEMORY PFCBCR1 EQU /4000 CR 1 PFCBCR2 EQU /8000 CR 2 PFCBCR3 EQU /C000 CR 3 , PINPKI EQ
0x102d00…1b0680 [0x4dd]: Pad {f00=0x0094, f01=0x0190, f02=» AFTER CONTROLS IN FCB DISPL 19 & PINPTYP EQU 1 INP INDICATION IN FCB * $ PKITYP EQU 0 KI INDICATION IN FCB T P* | PCTRME EQU /80 CONTROLS ME PCTRNCL EQU /40 CONTROLS NCLR PCTRTAB EQU /20 CONTROLS CTAB F P EJECT T:EINP T:EINP
0x102d00…1b0680 [0x4de]: Pad {f00=0x0094, f01=0x0190, f02=»* P* WORK: A1 0 P* SUBR.CALLS: T:GRFC I:EVTAB I:EVIN EDFLD P* T PT:PKI EQU * ^ PT:PINP EQU * r P CF PS,T:GRFC * P CF PS,I:ETAB <COLUMN> EXEC TAB FUNCT 2 P CF PS,I:EVIN EVAL AND SKIP APPL,DUPL,CONTROL P LDK A1,FU
0x102d00…1b0680 [0x4df]: Pad {f00=0x0094, f01=0x0190, f02=» RTN PS P EJECT T:EINP T:EINP P* 2 P* EDIT A FIELD INTO BUFFER < P* ` P* WORK: A1 j " P* SUBR.CALLS: I:ECTR T:EVOU P* PEDFLD EQU * P LDK A1,HIGH P CF PS,I:ECTR $ P CF PS,T:EVOU EVAL OUTPUT DE
0x102d00…1b0680 [0x4e0]: Pad {f00=0x0094, f01=0x0190, f02=»INP T:DIS3 T:DIS3 T:DIS3 T:DIS3 z P* 4 $ P* KI/INP HANDLER IN SKIP MODE > P* f $ P* INPUT: FCB,LP,PBF,OPCD,OP2A p P* OUTPUT: RFCB,FCB P* WORK: A1,A2 < P* SUBR.CALLS: I:EVIN T:EVOU EMPCMP TKISAV T:ENIN T:ENI
0x102d00…1b0680 [0x4e1]: Pad {f00=0x0094, f01=0x0190, f02=»ERR ERROR HANDLER WHEN ERROR t D P* OR LONG BRANCH TO I:EDT EXIT ROUTINE WHEN FINNISHED $ $ P* OR RETURN TO CALLER l P* PT:TINP EQU * PT:TKI EQU * P CF PS,T:GRFC , P ST LP,FCBTLP,RFCB SAVE ADDR TO KI PAR 2
0x102d00…1b0680 [0x4e2]: Pad {f00=0x0094, f01=0x0190, f02=» p P CF PS,I:EVIN , P ST OP2A,FCBTCT,RFCB SAVE CONTROLS ADDR P LD A1,FCBFLG,RFCB GET FLAGS N P LDR A2,A1 r P ANK A2,GLINE LINE SEARCHED P RF(G) TKIRTX YES P* P* P LDK A2,1 ( P CC A2,FCBTYP,RFCB CHECK INPUT TYP
0x102d00…1b0680 [0x4e3]: Pad {f00=0x0094, f01=0x018e, f02=»F(E) TKI040 YES P RF TKIRTN P ONLY KI * PTKI020 EQU * < P LDR A2,OPCD P P ANK A2,/10 KI d P RF(G) TKI040 YES z P RF TKIRTN P* P* PTKI040 EQU * & P CF PS,KIIND INDICATE TYPE IN FCB $ P IM FCBNIX,RFCB CO
0x102d00…1b0680 [0x4e4]: Pad {f00=0x0094, f01=0x0190, f02=» P LDR A2,A1 GET FLAGS , P ANK A2,GKILIN LINE WITH INPUT SEARCHED ( P ABL(NG) I:ER16 FORMAT COND CHANGED P P XIF | F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 P* , P* HERE IS A LINE WITH KI/INP SEARCHED
0x102d00…1b0680 [0x4e5]: Pad {f00=0x0094, f01=0x0190, f02=»INE > SEARCHED P LD A2,FCBFUN,RFCB P SRL A2,8 0 P CWK A2,FULDOW TLDOWN B P RF(E) TKI200 ` P CWK A2,FUDOWN TDOWN v P RF(E) TKI090 P IFT PARM=TEST P CWK A2,FUTUP TUP ( P ABL(NE) I:ER16 FORMAT COND CHANGED P XIF
0x102d00…1b0680 [0x4e6]: Pad {f00=0x0094, f01=0x0190, f02=» T:DIS3 T:DIS3 b P* P FOUND LINE = SEARCHED & PTKI060 EQU * F P LD A2,FCBFUN,RFCB Z P SRL A2,8 t P CWK A2,FULEFT P RF(E) TKI200 P CWK A2,FULDOW P RF(E) TKI200 P CWK A2,FUDOWN P RF(E) TKI090 P
0x102d00…1b0680 [0x4e7]: Pad {f00=0x0094, f01=0x0190, f02=»IF & P CF PS,EMPCMP CHECK IF EMPTY COMP P LDR A2,A2 4 P RF(E) TKI106 YES F P CF PS,TKISAV ` PTKIRTX EQU * v P RF TKIRTN F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 P* P* TDOWN TUP P*
0x102d00…1b0680 [0x4e8]: Pad {f00=0x0094, f01=0x0190, f02=»NK A2,/FF DELETE ROW & P CWR A1,A2 CURRENT COL - FOUND COL P RF(E) TKI200 CURRENT=FOUND F & P RF(G) TKI100 CURRENT COL > FOUND j P LD A3,FCBFLG,RFCB GET FLAGS $ P ANK A3,SAVPOS GOT SAVED COLUMN P RF(E) TKI200 NO ( P LD A3,FCBSCO,RFCB
0x102d00…1b0680 [0x4e9]: Pad {f00=0x0094, f01=0x0190, f02=»2,A1 RESULT - CURRENT COL " P RF(L) TKI200 TAKE CURRENT COL " P RF TKI110 TAKE SAVED COL H P* j P EJECT T:EINP T:EINP t P* PTKI100 EQU * P CF PS,TKISAV SAVE IN FCB PTKI104 EQU * $ P CF PS,EMPCMP CHECK IF EMP COMP
0x102d00…1b0680 [0x4ea]: Pad {f00=0x0094, f01=0x0190, f02=»B IND EMPTY COMP ~ P RF TKI200 F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 * P* t P* TAKE SAVED ~ P* PTKI110 EQU * " P LDKL A1,-1 RESET INDEX BY ONE P ADS A1,FCBNIX,RFCB P CF PS,T:ENIN P
0x102d00…1b0680 [0x4eb]: Pad {f00=0x0094, f01=0x0190, f02=»DK A2,ENDED P ORS A2,FCBFLG,RFCB P* 0 PTKIEXT EQU * : P ABL I:EXIT N P* b PTKIRTN EQU * l P RTN PS F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 P* " P* HERE IS AN INDEX SEARCHED P
0x102d00…1b0680 [0x4ec]: Pad {f00=0x0094, f01=0x0190, f02=» - SEARCHED x P RF(E) TKI350 P* * P FOUND NOT = SEARCHED 4 P CF PS,EMPCMP T P LDR A2,A2 EMPTY COMP FIELD j P RF(NE) TKI320 NO P LD A2,FCBFUN,RFCB P SRL A2,8 P CWK A2,FUDISP P RB(E) TKIRTN P CWK A2,FU
0x102d00…1b0680 [0x4ed]: Pad {f00=0x0094, f01=0x0190, f02=» ~ " P LDK A1,EMPCOM NO IND EMP COMP P ORS A1,FCBFLG,RFCB . P LD A1,FCBNIX,RFCB J ( P ST A1,FCBECP,RFCB SAVE INDEX IN FCB d PTKI310 EQU * P CWK A2,FUGETF P RB(NE) TKI200 NOT GETFLD PTKI320 EQU * GETFLD P LDK A2,0 P
0x102d00…1b0680 [0x4ee]: Pad {f00=0x0094, f01=0x0190, f02=»OUND INDEX = SEARCHED P CWK A2,FUERAS ERASE P RF(E) TKI400 YES : P CWK A2,FUDISP DISPLAY T P RB(NE) TKI200 NO r P* F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 P* P* DISPLAY FIELDS P*
0x102d00…1b0680 [0x4ef]: Pad {f00=0x0094, f01=0x0190, f02=» FIRST WORD IN BUFFER P CF PS,EDFLD EDIT FIELD P LDR A1,PBF SAVE > P CF PS,T:GRFC V P LD PBF,FCBWRK,RFCB RESTORE l P SUR A1,PBF REQ LENGTH P LD A2,FCBTCO,RFCB LINE COL P CF PS,T:WRDY POS AND WRITE P RF TKI440 PTK
0x102d00…1b0680 [0x4f0]: Pad {f00=0x0094, f01=0x0190, f02=» P* PTKI400 EQU * P LDR A2,A1 " P ANK A2,ERNCLR 4 , P RF(E) TKI410 ITEM NOT ALLOWED TO CLEAR J P LD A2,FCBFLG,RFCB z P ANKL A2,INPKI FINP ? , P RF(NZ) TKI410 YES FINP HAS NO CONTROLS 0 P LD A2,FCBTCT,RFCB GET 3:RD BYTE IN CONT
0x102d00…1b0680 [0x4f1]: Pad {f00=0x0094, f01=0x0190, f02=»E IF EMPTY P LDR A2,A2 EMPTY P RF(Z) TKI430 YES * P ST LP,FCBSLP,RFCB SAVE LP D $ P LDKL A2,ERASE1 CLEAR DISPLAY ? f P AN A2,FCBFLG,RFCB P RF(E) TKI420 NO $ P CF PS,T:EVOU EVAL OUTPUT DESCR P CF PS,CLRDIT CLEAR DISPLAY
0x102d00…1b0680 [0x4f2]: Pad {f00=0x0094, f01=0x018e, f02=»430 NO & P CF PS,GETOUT GET OUTPUT ITEM INFO P CF PS,T:CLMI CLEAR MEMORY 8 PTKI430 EQU * Z 0 P LD LP,FCBWRK,RFCB POINT TO NEXT FORMAT CODE n P LP WAS SAVED IN 'GETOUT' F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3
0x102d00…1b0680 [0x4f3]: Pad {f00=0x0094, f01=0x018e, f02=» & P RB(Z) TKIRTN LAST FIELD REQ BY 0 ! " P CW A2,FCBIT1,RFCB ITEM2-ITEM1 ! . P RB(NL) TKIRTN ! T P RB TKIEN1 ! j F P EJECT T:EINP T:EINP T:DIS3 T:DIS3 T:DIS3 T:DIS3 ! | P* ! 4 P* PUT KI/INP TYPE INDICATE IN FCB AFTER FCBCTR ! P*
0x102d00…1b0680 [0x4f4]: Pad {f00=0x0094, f01=0x0190, f02=» * P ANS A2,FCBFLG,RFCB CLEAR KI/INP IND. " P LDR A2,OPCD " 2 P ANK A2,/10 " F P RF(NZ) KIIRTN KI " Z P LDKL A2,INPKI INDICATE INP " t * P ORS A2,FCBFLG,RFCB PUT TYPE IN FLAGS " PKIIRTN EQU * " P* " P RTN PS " F P EJECT T:EINP T:E
0x102d00…1b0680 [0x4f5]: Pad {f00=0x0094, f01=0x0190, f02=» " x P* OUTPUT: FCB # P* WORK: A2 # " P* SUBR.CALLS: T:EVOU I:EVA0 # 6 P* # PGETOUT EQU * # f P ST LP,FCBWRK,RFCB SAVE # z $ P CF PS,T:EVOU EVAL OUTPUT DESCR # " P CF PS,I:EVA0 EVAL OUTPUT ITEM # P LDR A2,LP # P LD LP,FCBWRK,RF
0x102d00…1b0680 [0x4f6]: Pad {f00=0x0094, f01=0x0190, f02=»IS4 T:DIS4 T:DIS4 # f P* $ ( P* TESTS IF EMPTY COMPULSORY FIELD $ * P* $ V P* INPUT: RFCB,FCB,OPCD $ ` 2 P* OUTPUT: A2 0=EMP.COMP 1=NOT COMP/NOT EMPTY $ P* WORK: A2 $ P* SUBR.CALLS: TSTEMP $ P* $ PEMPCMP EQU * $ P
0x102d00…1b0680 [0x4f7]: Pad {f00=0x0094, f01=0x0190, f02=»F(E) EPC010 NO $ $ P CF PS,TSTEMP YES CHECK IF EMPTY % P RTN PS % > P* % N PEPC010 EQU * % X P LDK A2,1 NOT COMP % l P RTN PS % F P EJECT T:EINP T:EINP T:DIS4 T:DIS4 T:DIS4 T:DIS4 % P* % P* TESTS IF FIELD IS EMPTY %
0x102d00…1b0680 [0x4f8]: Pad {f00=0x0095, f01=0x018e, f02=» CF PS,GETOUT GET OUTPUT ITEM INFO % P LDR A2,OP2T & * P ANK A2,NUMBIT+ARITHB & > P RF(Z) TEMP10 STRING & P LC A2,-1,OP2E BCD & x P ANK A2,/F & P CWK A2,/F EMPTY & P RF(E) TEMP30 YES & P RF TEMP20 NO & PTEMP10 EQU * & P LDR A1,OP
0x102d00…1b0680 [0x4f9]: Pad {f00=0x0095, f01=0x0190, f02=» P RB(NE) TEMP15 ' P RF TEMP30 ' PTEMP20 EQU * ' , P LDK A2,1 NOT EMPTY ' @ P RTN PS ' P* ' l PTEMP30 EQU * ' v P LDK A2,0 EMPTY ' P RTN PS ' F P EJECT T:EINP T:EINP T:DIS4 T:DIS4 T:DIS4 T:DIS4 ' P* ' 0 P*
0x102d00…1b0680 [0x4fa]: Pad {f00=0x0095, f01=0x0190, f02=» ' PTKISAV EQU * ( P LDK A2,SAVPOS ( P ORS A2,FCBFLG,RFCB IND SAVE ( 2 P LD A2,FCBTCO,RFCB SAVE ( V P ST A2,FCBSCO,RFCB COLUMN ( v P LD A2,FCBTLP,RFCB SAVE ( ( P ST A2,FCBSLP,RFCB FORMAT LIST ADDR ( P LD A2,FCBTCT,RFCB SAVE ( ( P ST A2
0x102d00…1b0680 [0x4fb]: Pad {f00=0x0095, f01=0x0190, f02=» P* CLEAR DISPLAY ITEM ) P* ) " " P* INPUT: RFCB,FCB,PBF,LINK ) , P* WORK: A1,A2 ) R 8 P* SUBR.CALLS: T:WRDY T:CLDY I:EPIC/I:ECPY-VIA-LINK ) l P* T:GRFC ) P* ) PCLRDIT EQU * ) P ST PBF,FCBWK2,RFCB SAVE ) & P CFR P
0x102d00…1b0680 [0x4fc]: Pad {f00=0x0095, f01=0x0190, f02=»LENGTH ) P LD A2,FCBFLG,RFCB * P ANKL A2,INPKI FINP ? * ( P RF(NZ) CLR010 YES * F P LD A2,FCBTCT,RFCB * ` P LC A2,1,A2 * z P ANK A2,/7F * P CWR A1,A2 * P RF(NL) CLR010 * P LDR A1,A2 REQ LENGTH = MAXL * PCLR010 EQU * * P ST A1,F
0x102d00…1b0680 [0x4fd]: Pad {f00=0x0095, f01=0x401e, f02=»TN PS * P END + @ + CB * P ANKL A2,INPKI FINP ? * ( P RF(NZ) CLR010 YES * F P LD A2,FCBTCT,RFCB * ` P LC A2,1,A2 * z P ANK A2,/7F * P CWR A1,A2 * P RF(NL) CLR010 * P LDR A1,A2 REQ LENGTH = MAXL * PCLR010 EQU * * P ST A1,F
0x102d00…1b0680 [0x4fe]: Pad {f00=0x0095, f01=0x2008, f02=» , NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x4ff]: Pad {f00=0x0095, f01=0x0190, f02=» , ( @ W Y ( : X , Y X - , ( $ Y X &T Y Y Y W - 4 I:EVA0C - d , ( $:H D Y D :H Y ! P - v I:EVA1 - , ( @ W Y ! P W - I:ECPY - T:EVOU . -
0x102d00…1b0680 [0x500]: Pad {f00=0x0095, f01=0x40bc, f02=»W - r O : $ : . H D ! -T 3W =P K WT" gT oW0 yW( P W P W W T W< P . 2 $ W P W . 7P =T GW . ~ . @ .
0x102d00…1b0680 [0x501]: Pad {f00=0x0095, f01=0x0008, f02=»
0x102d00…1b0680 [0x502]: Pad {f00=0x0095, f01=0x0190, f02=» $ P IDENT T:ENIN UPD 78-02-27/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d B P************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* B P********
0x102d00…1b0680 [0x503]: Pad {f00=0x0095, f01=0x0190, f02=» HANDLING OF FKI/FINP (NO SAVE) 4 P ENTRY T:EVOU EVAL OUTPUT FORMAT AFTER FKI/FINP ( P* ` , P EXTRN T:WRDY POSITION CURSOR AND WRITE j P EXTRN I:ECPY FCOPY P EXTRN I:EPIC FMEL " P EXTRN I:EGTB EVAL BYTE VALUE P EXTRN I:EVA0
0x102d00…1b0680 [0x504]: Pad {f00=0x0095, f01=0x0190, f02=»:DIS3 T:DIS3 T:DIS3 T:DIS3 r * P* NO STD CONDITIONAL ASSEMBLY FLAGS , PNO EQU 0 Z PYES EQU 1 j PRESE EQU NO | P* P* P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PRFCB EQU A6 FCB BASE ADDRE
0x102d00…1b0680 [0x505]: Pad {f00=0x0095, f01=0x0190, f02=»GISTER z POPCD EQU A11 OPCODE " PLP EQU PP FORMAT LIST POINTER * P* P P* DISPLAY FUNCTION EQUATES Z P* ~ PFULEFT EQU 1 PFURIGH EQU 2 PFULDOW EQU 3 PFUDOWN EQU 4 PFUTUP EQU 5 PFUGETF EQU 6 PFUHOME EQU
0x102d00…1b0680 [0x506]: Pad {f00=0x0095, f01=0x0190, f02=» T:ENIN T:DIS3 T:DIS3 T:DIS3 T:DIS3 ~ P* 8 P* DISPLACEMENTS TO FCB B P* b * PFCBELA EQU 0 ADDRESS TO ELEMENT INDEX l ( PFCBFMA EQU 2 ADDR TO FORMAT OP CODE PFCBLP EQU 4 FORMAT LIST ADDR ( PFCBEOL EQU 6 END OF FORMAT LIST
0x102d00…1b0680 [0x507]: Pad {f00=0x0095, f01=0x0190, f02=»LUE | PFCBCOL EQU 15 COLUMN VALUE P* . PFCBCTR EQU 16 CONTROLS VALUE 8 ( PFCBDUP EQU 20 ADDR TO DUPL EL INDEX PFCBLEN EQU 22 PFCBAPP EQU 24 APPL VALUE P* . PFCBECP EQU 26 TAB INDEX TO EMPTY COMP FLD , PFCBSLP EQU 28 SA
0x102d00…1b0680 [0x508]: Pad {f00=0x0095, f01=0x0190, f02=»LP EQU 34 TEMP FORMAT LIST POINTER $ PFCBTCO EQU 36 TEMP COLUMN NALUE * , PFCBTCT EQU 38 TEMP ADDR TO CONTROL ITEM R PFCBFLG EQU 40 FLAGS PFCBFUN EQU 42 FUNCTION VALUE 2 PFCBTYP EQU 43 KI/INP TYPE 0=KI 1=INP 2=KI/INP $ PFCBNIX EQU 44 INDE
0x102d00…1b0680 [0x509]: Pad {f00=0x0095, f01=0x0190, f02=»NE/INDEX x " PFCBAD1 EQU 52 ADDR TO <ITEM1> " PFCBAD2 EQU 54 ADDR TO <ITEM2> 6 PFCBWRK EQU 56 WORK PFCBWK2 EQU 58 WORK v F P EJECT T:ENIN T:ENIN T:DIS3 T:DIS3 T:DIS3 T:DIS3 P* P* EQUATES TO FCBFLG P*
0x102d00…1b0680 [0x50a]: Pad {f00=0x0095, f01=0x0190, f02=»INP p * PBKILIN EQU /10 SEARCH LINE BEFORE THIS & PSAVPOS EQU /20 TEMP KI INFO SAVED : * PEMPCOM EQU /40 EMPTY COMP FIELD FOUND d * PERNCLR EQU /80 CLEAR ONLE WHEN NCLR=0 " PERASE1 EQU /100 CLEAR DISPLAY , PERASE2 EQU /300 CLEAR DISPLAY AND ME
0x102d00…1b0680 [0x50b]: Pad {f00=0x0095, f01=0x0190, f02=» , PINPKI EQU /400 1=IN AND 0=KI PROCESSED & PNINPKI EQU /FBFF CLEAR INPKI MASK 4 & PBCLEAR EQU 8 CLEAR ALL BUT GKILIN ^ P* & P AFTER CONTROLS IN FCB DISPL 19 & PINPTYP EQU 1 INP INDICATION IN FCB $ PKITYP EQU 0 KI INDICATION IN FCB
0x102d00…1b0680 [0x50c]: Pad {f00=0x0095, f01=0x0190, f02=»* . P* HANDLING OF REQUESTED KI/INP POSITION P* BEFORE RETURN FROM EDIT < P* ` P* INPUT: RFCB,FCB j P* OUTPUT: FCB P* WORK: A1,A2 ( P* SUBR.CALLS: I:EGTB UPDFCB T:WRDY P* PT:ENIN EQU * $ P LD A1,F
0x102d00…1b0680 [0x50d]: Pad {f00=0x0095, f01=0x0190, f02=»O,RFCB SAVE IT IN TEMP COL . P LD A1,FCBSCT,RFCB GET SAVED CONTROLS ADDR " 2 P ST A1,FCBTCT,RFCB SAVE IT IN TEMP CONTR ADDR T P* PT:ENI EQU * ( P ST LP,FCBSLP,RFCB *SAVE LP IN FCB* $ P LD LP,FCBTLP,RFCB POINT AT APPL P LC OPCD,-2,LP
0x102d00…1b0680 [0x50e]: Pad {f00=0x0095, f01=0x0190, f02=» APPL NOT PRESENT P RF KIEN30 P EJECT T:ENIN T:ENIN , PKIEN20 EQU * N P CF PS,I:EGTB b P LDR A1,OPCD x P ANK A1,1 & P RF(Z) KIEN30 APPL 2 NOT PRESENT P LDR OP2E,OP2A SAVE APPL 1 P SLL OP2E,8 P CF PS,I:EGT
0x102d00…1b0680 [0x50f]: Pad {f00=0x0095, f01=0x0190, f02=» P CWK A1,FUGETF P RF(NE) KIEN50 NOT GETFLD F P EJECT T:ENIN T:ENIN T:DIS3 T:DIS3 T:DIS3 T:DIS3 @ P* P* GETFLD P* ( P LD A1,FCBIX,RFCB RETURN FOUND INDEX " P ST* A1,FCBAD1,RFCB IN <ITEM1> P LDK A1,
0x102d00…1b0680 [0x510]: Pad {f00=0x0095, f01=0x0190, f02=» r P RF KIECR0 CR=0 PKIEN40 EQU * P WHEN EMPTY COMP 4 * P LD A1,FCBECP,RFCB RETURN INDEX TO EMP N " P ST* A1,FCBAD2,RFCB IN <ITEM2> | P RF KIECR3 CR=3 F P EJECT T:ENIN T:ENIN T:DIS3 T:DIS3 T:DIS3 T:DIS3 P*
0x102d00…1b0680 [0x511]: Pad {f00=0x0095, f01=0x018e, f02=» P* P BY INDEX TO EMPTY COMP P RF KIECR3 CR=3 0 P* H P NOT EMPTY COMP R PKIEN60 EQU * l * P LD A1,FCBTCT,RFCB GET CONTROLS BYTE 3 P LC A1,2,A1 P ANK A1,CTRTAB P RF(Z) KIEN70 NOT COND TAB P* P CON
0x102d00…1b0680 [0x512]: Pad {f00=0x0095, f01=0x0190, f02=» P LD A2,FCBROW,RFCB LINE+COL " P CF PS,T:WRDY POSITION CURSOR ( PKIECR0 EQU * N P RF KIER b P EJECT T:ENIN T:ENIN r PKIECR3 EQU * P LDKL A1,FCBCR3 PKIERTN EQU * $ P ORS A1,FCBFLG,RFCB CR TO FLAGS PKIER EQU *
0x102d00…1b0680 [0x513]: Pad {f00=0x0095, f01=0x0190, f02=»* P* FCB UPDATE ROUTINE P* ( & P* INPUT: RFCB,FCB,LP,OP2A,OPCD 2 P* OUTPUT: FCB P* WORK: A1,A2 t ( P* SUBR.CALLS: I:EVA0 I:EVA5 T:EVOU P* PUPDFCB EQU * P LD A1,FCBNIX,RFCB $ P ST A1,FCBIX,RFCB "INDEX
0x102d00…1b0680 [0x514]: Pad {f00=0x0095, f01=0x0190, f02=» ( P LD A1,FCBTCT,RFCB CONTROLS ADDRESS P RF(NE) UPDF10 0 ( P ST A1,FCBDUP,RFCB "DUPL ADDR=0 INP" F ( P ST A1,FCBCTR,RFCB "CONTROLS=0 INP" r P LDK A1,INPTYP INDICATE INP P ST A1,FCBCTR+2,RFCB P RF UPDF50 P EJECT T:ENIN T:ENIN
0x102d00…1b0680 [0x515]: Pad {f00=0x0095, f01=0x0190, f02=»2 l " P LC A2,2,A1 GET CONTROLS VALUE , P SLL A2,8 INTO LEFT BYTE AND INDICATE KI 0 * P ST A2,FCBCTR+2,RFCB "CONTROLS BYTE 3" ` P LDR A1,OPCD P ANK A1,8 DUPL P RF(Z) UPDF20 NO 0 P ST LP,FCBDUP,RFCB "DUPL ADDR T ELEM INDEX" P CF PS
0x102d00…1b0680 [0x516]: Pad {f00=0x0095, f01=0x0190, f02=»S | P LDR A1,OPCD P ANK A1,4 P RF(Z) UPDF40 0 P CF PS,I:EVA1 F P RF UPDF50 PUPDF40 EQU * n P ADKL LP,3 CONTROLS F P EJECT T:ENIN T:ENIN T:DIS3 T:DIS3 T:DIS3 T:DIS3 P* P* END OF KI/INP PARAMET
0x102d00…1b0680 [0x517]: Pad {f00=0x0095, f01=0x0190, f02=»1,/FF P CF PS,X:RESE P XIF $ * P ST LP,FCBFMA,RFCB ADDR TO FORMAT CODE 0 $ P CF PS,T:EVOU EVAL OUTPUT DESCR ^ * P ST LP,FCBELA,RFCB ADDR TO ITEM INDEX P RTN PS P EJECT T:ENIN T:ENIN P* P* COPY HANDELER DISPLAY
0x102d00…1b0680 [0x518]: Pad {f00=0x0096, f01=0x0190, f02=»ITEM v " P CF PS,I:ECPY COPY PROCESSING P RTN PS 2 F P EJECT T:ENIN T:ENIN T:DIS4 T:DIS4 T:DIS4 T:DIS4 B P* & P* EVAL OUTPUT FORMAT AFTER KI/INP P* P* INPUT: LP 0 P* OUTPUT: LP,A7=ADDR TO FMEL/FCOPY HANDL
0x102d00…1b0680 [0x519]: Pad {f00=0x0096, f01=0x0190, f02=»NK A7,/FF P LDR A2,A7 P ANK A2,128 'T' BIT SET $ P RF(Z) KIM020 FMEL D P CWK A7,/C2 ^ P RF(NE) KIM040 FCOPY r P ADKL LP,1 P CF PS,I:EVI P RF KIM030 PKIM020 EQU * FMEL P CF PS,I:EVA3 PKIM030 EQU * , P
0x102d00…1b0680 [0x51a]: Pad {f00=0x0096, f01=0x4038, f02=»R TO FCOPY PROC v P RTN PS P END (@ 4SET $ P RF(Z) KIM020 FMEL D P CWK A7,/C2 ^ P RF(NE) KIM040 FCOPY r P ADKL LP,1 P CF PS,I:EVI P RF KIM030 PKIM020 EQU * FMEL P CF PS,I:EVA3 PKIM030 EQU * , P
0x102d00…1b0680 [0x51b]: Pad {f00=0x0096, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x51c]: Pad {f00=0x0096, f01=0x0190, f02=»:GRFC T:ROK zT:STOU 780331 STROU1K T:STEV I:EVA0 I:ER17 I:ERR2L T:DUPX T:GRFC T:ROK T:RNOK JT:STEV 780331 T:STEVK T:GRFC I:EVA0 I:ERR2 < T:EDFL 780331 T:EDFLK T:P
0x102d00…1b0680 [0x51d]: Pad {f00=0x0096, f01=0x0190, f02=»KI 780331 T:DYKIK I:EVA3 T:SVE T:RESTA T:CASP T:CLRD T:EKEY@ 8 T:RCR T:IOER j T:CLR1 x T:CLR2 T:SCUW` T:BELL T:IOWR I:EVA0C T:CLMIA T:PM1 I:ERR2R I:ERR5 T:PM2 nT:UPDF 780331 T:U
0x102d00…1b0680 [0x51e]: Pad {f00=0x0096, f01=0x0190, f02=»RR2@ T:RNOK T:ROK T:DUPX " I:MOV RT:GETC 780331 T:GETCK I:ER14 I:EVA0 I:ERR2 I:RT1 T ZT:GETA 780331 T:GETAK I:EVA0 I:ERR2 T:RNOK T:ROK T:RCR 2 @T:TSTC 780331 T:TSTCK
0x102d00…1b0680 [0x51f]: Pad {f00=0x0096, f01=0x0190, f02=» T:THOMC " T:GRFC T:TABE T:SCR2 T:TABC T:TABN x T:DISP 780331 T:PRINK T:FDSP T:EDWIC T:GRFCC T:GTIP T:DISP T:ERAS " T:GTIT I:ER15 I:ER14 T:TABD T:TABC T:RNOK I:RT1 T:CLDY T:WRDY T:E
0x102d00…1b0680 [0x520]: Pad {f00=0x0096, f01=0x4168, f02=» 2 F IDENT T:GETC VER=T,REL=3.0,DATE=78-03-03 T:GETCK : T:GETCK L I:ER14 ` I:EVA0 r , ( 2' I:ERR2 I:RT1 , ( " P # P R P P N ' ' ( $
0x102d00…1b0680 [0x521]: Pad {f00=0x0096, f01=0x0002, f02=»
0x102d00…1b0680 [0x522]: Pad {f00=0x0096, f01=0x0190, f02=» $ P IDENT T:SETC UPD 78-02-02/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d @ P*********************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* @ P**********
0x102d00…1b0680 [0x523]: Pad {f00=0x0096, f01=0x0190, f02=» P* " P EXTRN T:GRFC GET FCB ADDRESS , P EXTRN T:WRDY POSITION CURSOR AND WRITE 4 P EXTRN T:EDWI INIT FOR WRITE d 2 P EXTRN T:RCTS RETURN DEPENDING ON ECB RET CODE P* P EJECT T:SETC T:SETC P* P* EQUATES P*
0x102d00…1b0680 [0x524]: Pad {f00=0x0096, f01=0x0190, f02=»OW EQU 14 ROW VALUE P* PDSINX EQU 16 INDEX ITEM ADDR & P* J PWAITBT EQU /80 WAIT BIT T F P EJECT T:SETC T:SETC T:DIS1 T:DIS1 T:DIS1 T:DIS1 t P* P* SET CURSOR P* PT:SETC EQU * P* P CF
0x102d00…1b0680 [0x525]: Pad {f00=0x0096, f01=0x417e, f02=»A8 ( P ABL T:RCTS RET DEP ON ECB RET CODE P EJECT T:SETC T:SETC 6 P* X P* SET CURSOR FROM FCB INFO b P* P* INPUT: RFCB FCB P* WORK: A1,A2 P* SUBR.CALLS: T:WRDY PT:SCUR EQU * P LDK A1,0 REQUESTE
0x102d00…1b0680 [0x526]: Pad {f00=0x0096, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x527]: Pad {f00=0x0096, f01=0x416e, f02=» X 0 Y 8 P Y 0 X 0 X 2 T:WRDY . , ( # ] X 8 Y 0 : X 0 :H* @ , ( A : X 2T Y 2 : C 1 c p T:EDIO a : H D ! c W !W 7T SP0 WP YR _P aR mWl q P } B WZ T R(
0x102d00…1b0680 [0x528]: Pad {f00=0x0096, f01=0x018e, f02=» 2 F IDENT T:GETF VER=T,REL=3.0,DATE=78-03-03 T:GETFK T:GTIT T:GTIP : T:GETFK I:ER14L p T:TABC T:TABN * & H X +! T:GTIT T:GRFC T:GTIP ,
0x102d00…1b0680 [0x529]: Pad {f00=0x0096, f01=0x0002, f02=»
0x102d00…1b0680 [0x52a]: Pad {f00=0x0096, f01=0x0190, f02=» $ P IDENT T:CLMI UPD 78-01-11/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d B P************************************************************* P* $ P* DISPLAY MANAGEMENT IN CREDIT P* B P********
0x102d00…1b0680 [0x52b]: Pad {f00=0x0096, f01=0x018e, f02=»LMI T:CLMI P* P* EQUATES P* 4 P* > PPS EQU A14 STACK POINTER H POP2A EQU A9 OPERAND2 ADDRESS h POP2E EQU A5 OPERAND2 END POP2T EQU A3 OPERAND2 TYPE P* & PARITHB EQU /10 ARITHMETIC BASE BIT PNUMBIT E
0x102d00…1b0680 [0x52c]: Pad {f00=0x0096, f01=0x0190, f02=» x P* P* INPUT: OP2A,OP2E,OP2T P* OUTPUT: OP2A-VALUE 4 P* WORK: A1,A2 R P* l PT:CLMI EQU * v P LDR A1,OP2E P SUR A1,OP2A LENGTH P LDR A2,OP2T P ANK A2,NUMBIT+ARITHB P RF(Z) CLRM10 STRING & P L
0x102d00…1b0680 [0x52d]: Pad {f00=0x0096, f01=0x40ec, f02=» CLRM20 P RF CLRM30 PCLRM10 EQU * " P LDK A2,0 6 PCLRM20 EQU * H P SCR A2,OP2A CLEAR LOOP P ADKL OP2A,1 | P SUK A1,1 P RB(G) CLRM20 PCLRM30 EQU * P RTN PS P END @ RF(Z) CLRM10 STRING & P L
0x102d00…1b0680 [0x52e]: Pad {f00=0x0096, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x52f]: Pad {f00=0x0096, f01=0x40e0, f02=» T:RCR $ * & g X y 6 Y ( : X (;n , % H D ! 'W +W 3Q 7 $ ; " GP Q P PJ V PD T P` Wp P P % > < 8 P T0 P" P W P /P 5P ;T EP YW aT eW % % @ % " P X X( C : X *! $ , (
0x102d00…1b0680 [0x530]: Pad {f00=0x0096, f01=0x0190, f02=» 2 F IDENT T:ENLI VER=T,REL=3.0,DATE=78-03-03 & T:DNL T:DSL & : I:EVNO & P I:ECPY & b I:EPIC & t I:ETXTL & I:ETAB & I:EBRI & I:EBRB & I:EBR & * & &
0x102d00…1b0680 [0x531]: Pad {f00=0x0096, f01=0x0004, f02=»
0x102d00…1b0680 [0x532]: Pad {f00=0x0096, f01=0x0190, f02=» $ P IDENT T:ATTF UPD 78-02-27/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d F P***************************************************************** P* $ P* DISPLAY MANAGEMENT IN CREDIT P* F P****
0x102d00…1b0680 [0x533]: Pad {f00=0x0096, f01=0x0190, f02=»N WITH CR 0 ~ " P ENTRY T:RNOK RETURN WITH CR 2 $ P ENTRY T:RCR STORE CR AND RETURN : 2 P ENTRY T:RCTS RETURN DEPENDING ON ECB RET CODE b 0 P ENTRY T:RTES RETURN DEPENDING ON CURRENT CR 2 P ENTRY T:GRFC GET FORMAT CONTROL BLOCK ADDRESS , P ENTRY T
0x102d00…1b0680 [0x534]: Pad {f00=0x0096, f01=0x0190, f02=»:EDIO IO REQUEST AND SAVE CR P* $ P EJECT T:ATTF T:ATTF . P* P P* EQUATES Z P* l PTDAD EQU -8 v $ PFCBLP EQU 4 FORMAT START ADDRESS $ PFCBEOL EQU 6 FORMAT END ADDRESS PFCBDY EQU 10 DSET ADDR DY PFCBIX EQU 12
0x102d00…1b0680 [0x535]: Pad {f00=0x0096, f01=0x0190, f02=»DDRESS z P* P* EQUATES TO ECB P* 2 PECBCW EQU 10 CONTROL WORD < PECBRL EQU 4 REQUESTED LENGTH ^ PECBRC EQU 8 RETURN CODE B P EJECT T:ATTF T:ATTF T:DIS T:DIS T:DIS T:DIS P* P* ATTACH FORMAT P
0x102d00…1b0680 [0x536]: Pad {f00=0x0096, f01=0x0190, f02=»TURN: TO MAIN LOOP VIA T:ROK P* $ P . PT:ATTF EQU * 6 P J P CF PS,T:GRFC R P CF PS,I:EVA6 h 0 P ST A9,FCBLP,RFCB STORE FORMAT START ADDRESS ~ 0 P ST A5,FCBEOL,RFCB STORE FORMAT END ADDRESS P CM FCBIX,RFCB STORE INDEX 0 P
0x102d00…1b0680 [0x537]: Pad {f00=0x0096, f01=0x0190, f02=»CR: A3 $ P* INPUT TO T:RTES: CURRENT CR P* 6 PT:ROK EQU * @ P SET CR 0 T P LDK A3,0 h PT:RCR EQU * z P LD A1,STKB,TCA " P SC A3,-2,A1 STORE CR ON STACK P ABL I:RT1 " PT:RCTS EQU * TEST RETURN CODE P LD A1
0x102d00…1b0680 [0x538]: Pad {f00=0x0097, f01=0x0190, f02=» LDK A3,2 P RB T:RCR F P EJECT T:ATTF T:ATTF T:DIS2 T:DIS2 T:DIS2 T:DIS2 $ P* n ( P* GET FORMAT CONTROL BLOCK ADDRESS x P* P* OUTPUT: RFCB P* PT:GRFC EQU * " P LD* RFCB,TDAD,TCA GET ADDRESS P
0x102d00…1b0680 [0x539]: Pad {f00=0x0097, f01=0x018e, f02=» CURSOR AND WRITE P* P* INPUT: RFCB,FCB,A1,A2 $ P* OUTPUT: CR ON STACK F P* WORK: A7,A8 f P* SUBR.CALLS: T:EDIO P* PT:WRDY EQU * P LD A8,FCBDY,RFCB P LDK A7,/8B " P ST A1,ECBRL,A8 REQ LENGTH = 0
0x102d00…1b0680 [0x53a]: Pad {f00=0x0097, f01=0x416c, f02=» P* ERASE FIELD ON DISPLAY P* * P* INPUT: RFCB,FCB 4 P* OUTPUT: CR ON STACK P P* WORK: A7,A8 p P* SUBR.CALLS: T:EDIO P* PT:CLDY EQU * P LD A8,FCBDY,RFCB P LDK A7,/B1 ERASE ( P ST A1,ECBCW,A8
0x102d00…1b0680 [0x53b]: Pad {f00=0x0097, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x53c]: Pad {f00=0x0097, f01=0x40d6, f02=» 2 F IDENT T:CLMI VER=T,REL=3.0,DATE=78-03-03 2 T:CLMIK 2 : T:CLMIK 2 L , ( "0P ' Q W ' 2 ` ! Y : 2 P Q W 2 ( 2 @ 2 P LDK A2,/0F CLEAR VALUE FOR FIRST P SCR A2,
0x102d00…1b0680 [0x53d]: Pad {f00=0x0097, f01=0x0190, f02=» 2 F IDENT T:ATTF VER=T,REL=3.0,DATE=78-03-03 3 J F " T:ATTFK T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC@ T:WRDY T:CLDYC 3 : T:ATTFK 3 I:EVA6 3 T:ROK 3 T:RCR 3 I:RT1 3 , ( Y Y V E
0x102d00…1b0680 [0x53e]: Pad {f00=0x0097, f01=0x4092, f02=» : C 3 v T:EDIOA 4 T:CLDYC H 4 ( , ( = C : C : 4 < , 4 l X 4 |@ 4 3 I:EVA6 3 T:ROK 3 T:RCR 3 I:RT1 3 , ( Y Y V E
0x102d00…1b0680 [0x53f]: Pad {f00=0x0097, f01=0x4156, f02=» 2 F IDENT T:DC00 VER=T,REL=3.0,DATE=78-03-03 5 & " WRITELK DCREAD DCWRTE DCEXCH 5 : T:FDS0 5 d DCREAD 5 v T:DCR1 5 DCWRTE 5 T:DCW1 5 DCEXCH 5 T:DCE1L 5 , ( I$
0x102d00…1b0680 [0x540]: Pad {f00=0x0097, f01=0x0190, f02=» e * & * * & X * & * & * &
0x102d00…1b0680 [0x541]: Pad {f00=0x0097, f01=0x0006, f02=»
0x102d00…1b0680 [0x542]: Pad {f00=0x0097, f01=0x0190, f02=» $ P IDENT I:EDTE UPD 78-01-27/UKF P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P REL 77-12-07 #2.4 d B P************************************************************* P* : P* INTERPRETER EDITING INSTRUCTION HANDLER (EXTENDED)
0x102d00…1b0680 [0x543]: Pad {f00=0x0097, f01=0x0190, f02=» I:EINH FINP HANDLER P ENTRY I:EVIN EVAL KI/INP , P ENTRY I:EBRI BRANCH UPON VARIABLE VALUE > , P ENTRY I:EBRB BRANCH UPON BOOLEAN VALUE n & P ENTRY I:EBR UNCONDITIONAL BRANCH $ P ENTRY I:ESKI DUMMY PROCESS ITEM 0 P ENTRY I:EVNO PROCESS NOT
0x102d00…1b0680 [0x544]: Pad {f00=0x0097, f01=0x0190, f02=»XTRN I:EVA0 P EXTRN I:EVA1 & P EXTRN I:ER11 ILLEGAL FORMAT CODE * P EXTRN I:ERR2 ILLEGAL TYPE T P* v 0 P EJECT I:EDTE I:EDTE I:EDT I:EDT P* $ P* CONDITIONAL ASSEMBLY FLAGS: P* PCOMP EQU 855 PTEST E
0x102d00…1b0680 [0x545]: Pad {f00=0x0097, f01=0x0190, f02=»EDT I:EDT I:EDT I:EDT I:EDT h P* 0 ( P* TEMPORARY INTERPRETER REGISTERS: : P* f , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER p POP1E EQU A6 OPERAND 1 LENGTH ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR " POP2A EQU A9 OPERAND 2 ADDR
0x102d00…1b0680 [0x546]: Pad {f00=0x0097, f01=0x018e, f02=» P* NON-TEMPORARY REGISTERS: P* , PPP EQU A12 PROGRAM POINTER 6 PPS EQU A14 STACK POINTER X P* x P* LOCAL REGISTER USAGE: P* " PLP EQU PP FORMAT LIST POINTER PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER
0x102d00…1b0680 [0x547]: Pad {f00=0x0097, f01=0x0190, f02=» b P* P* KI PROCESSING P* IN PROCESSING * P* B PI:EKIH EQU * L PI:EINH EQU * ` P <COLUMN> t * P CF PS,I:ETAB EXECUTE I:ETAB FUNCTION P CF PS,I:EVIN P RTN PS P* ( P* EVAL AND SKIP KI/INP PARAMETERS
0x102d00…1b0680 [0x548]: Pad {f00=0x0097, f01=0x0190, f02=» d P RF(Z) KIH007 P ADKL LP,1 P <APPL 1> OPTIONAL 0 P LDR WK1,OPCD N 0 P ANK WK1,1 BIT EQUAL ZERO MEANS NOT PRESENT d P RF(Z) KIH007 P ADKL LP,1 PKIH007 EQU * P LDKL OP2A,0 P LDR WK1,OPCD . P ANK WK1,16
0x102d00…1b0680 [0x549]: Pad {f00=0x0097, f01=0x0190, f02=»NAL P LDR WK1,OPCD GET OPCODE 0 P ANK WK1,8 BIT EQUAL ZERO MEANS NOT PRESENT , P RF(Z) KIH010 ` P CF PS,I:EVA0 SKIP DUPL v PKIH010 EQU * P LDR WK1,OPCD <CONTROL> . P ANK WK1,4 BIT EQUAL ZERO MEANS IMMEDIATE P EQUAL ONE M
0x102d00…1b0680 [0x54a]: Pad {f00=0x0097, f01=0x0190, f02=»L LP,3 PKIH030 EQU * P RTN PS " 0 P EJECT I:EDTE I:EDTE I:EDT I:EDT 2 P* f P* BRANCH PROCESSING p P* PI:EBRI EQU * P BUILD BRANCH INSTR IN WK1 P LDR WK1,OPCD P ANK WK1,7 ISOLATE CONDITION P O
0x102d00…1b0680 [0x54b]: Pad {f00=0x0097, f01=0x0190, f02=» NUMERIC | P LDR WK2,OP2T P ANK WK2,NUMBIT & P ABL(Z) I:ERR2 ILL. TYPE > P XIF ^ P ANK OP2T,ARITHB j P RF(NZ) BBCD ( P LDR* WK2,OP2A SET CR WHEN BIN ITEM P RF BEXR PBBCD EQU * P LCR WK2,OP2A P ANK WK2,/F0 SAV
0x102d00…1b0680 [0x54c]: Pad {f00=0x0097, f01=0x0190, f02=»BRANCH P RTN PS 0 P EJECT I:EDTE I:EDTE I:EDT I:EDT P* R & P* UNCONDITIONAL BRANCH PROCESSING P* PBUNCND EQU * " P CF PS,I:EGTB GET BRANCH DISPL PI:EBR EQU * " P ADR LP,OP2A BRANCH IN FORMAT P RTN P
0x102d00…1b0680 [0x54d]: Pad {f00=0x0097, f01=0x0190, f02=»NCH IF TRUE P ANR* OP2T,OP2A P RB(NZ) BUNCND BIT WAS 1 , P RB BNOT L PBFLAGF EQU * P BRANCH IF FALSE p P ANR* OP2T,OP2A P RB(Z) BUNCND BIT WAS 0 P RB BNOT 0 P EJECT I:EDTE I:EDTE I:EDT I:EDT P*
0x102d00…1b0680 [0x54e]: Pad {f00=0x0097, f01=0x018e, f02=» h P* PI:EVNO EQU * P IFT PARM=TEST ILL CODE TEST & P ABL I:ER11 ILL. FORMAT CODE J P* n P* WHEN NOTEST RETURN x P* P XIF P RTN PS P* 2 P* DUMMY, EVAL ROUTINE USED WHEN NO PARAMETER P* PI:
0x102d00…1b0680 [0x54f]: Pad {f00=0x0097, f01=0x4072, f02=» P LCR OP2A,LP GET CHAR P ANKL OP2A,255 ISOLATE " P ADKL LP,1 @ P RTN PS R P END b@ n n P* WHEN NOTEST RETURN x P* P XIF P RTN PS P* 2 P* DUMMY, EVAL ROUTINE USED WHEN NO PARAMETER P* PI:
0x102d00…1b0680 [0x550]: Pad {f00=0x0097, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x551]: Pad {f00=0x0097, f01=0x0190, f02=» * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : V ) ! " & 6 [ [ [ [ $ [ [ >h ; 6 Z PF [
0x102d00…1b0680 [0x552]: Pad {f00=0x0097, f01=0x0190, f02=» : 4 P 9 59D_ ! :d" 5 : ! " & 6 [ [ [ [ $ [ [ 6 z " ! P ! R 2` + z " P ! R 2` { 1 ! { [ Q _ T { [ j
0x102d00…1b0680 [0x553]: Pad {f00=0x0097, f01=0x0190, f02=» { 0 z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( & K [ 6 [ 7 PZ 2 ' " P ! V V (P ( o ( 2 XV 2 P* J
0x102d00…1b0680 [0x554]: Pad {f00=0x0097, f01=0x0190, f02=»V _ + & < R !FFP !EET W I 2 * & 9 ! ; * 8 ! D " 0P Wf 0W< W^ :T *W0 FP . :T P W *X @W> :P(# U J T Wh 1 J T WT 1 _ # ; xW )0_8 D R Z R 4! P ;)0 T W Z ] 4
0x102d00…1b0680 [0x555]: Pad {f00=0x0097, f01=0x0190, f02=» l`( PT*AXZ9 J : { : 2$0T Pd 9 _ 2$0T [ 2$0T Z : R& P $ 1T Y ThW 5 _( : 2$0TJ R $ R W R # X _ )_" V E J$0T Wp
0x102d00…1b0680 [0x556]: Pad {f00=0x0097, f01=0x0190, f02=» t : &  T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : #03 T $_X _^ W f p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 2.1 TRACE
0x102d00…1b0680 [0x557]: Pad {f00=0x0097, f01=0x0190, f02=» n V D v A ^ : Wr 2 & & Q f A ^W* x V D ! )0 1 6 V 9 A ^ T Z ( : W$ W W W W W W W W W ** A h A l ER A R A
0x102d00…1b0680 [0x558]: Pad {f00=0x0098, f01=0x00e2, f02=»INTUKF SPDDIVSC SPLITTSC OBDIR UF T:STEVSC NF02UF P LINKUF X /OBJCTOB ` T:STINSC DIR UF T:STOUSC I:EDT SC STRINPSC @ STROUTSC
0x102d00…1b0680 [0x559]: Pad {f00=0x0098, f01=0x0004, f02=»
0x102d00…1b0680 [0x55a]: Pad {f00=0x0098, f01=0x0190, f02=» $ P IDENT T:STEV UPD 78-03-21/UKF P REL 78-04-01 #3.1 , P UPD 78-02-15/UKF H P REL 78-03-03 #3.0 d @ P************************************************************ P* & P* DISPLAY MANAGEMENT IN CREDIT P* @ P********
0x102d00…1b0680 [0x55b]: Pad {f00=0x0098, f01=0x018e, f02=» P EXTRN I:ERR2 ILLEGAL TYPE " P EXTRN T:GRFC GET FCB ADDRESS * F P EJECT T:STEV T:STEV T:DIS1 T:DIS1 T:DIS1 T:DIS1 P P* " P* CONDITIONAL ASSEMBLY FLAGS P* PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST
0x102d00…1b0680 [0x55c]: Pad {f00=0x0098, f01=0x0190, f02=» r POP2E EQU A5 OPERAND2 END POP2T EQU A3 OPERAND2 TYPE ( P* J & PARITHB EQU /10 ARITHMETIC BASE BIT T PNUMBIT EQU /20 NUMERIC BIT ~ F P EJECT T:STEV T:STEV T:DIS1 T:DIS1 T:DIS1 T:DIS1 P* P* DISPLACEMENTS TO F
0x102d00…1b0680 [0x55d]: Pad {f00=0x0098, f01=0x018e, f02=» P* * PFCBP2A EQU 38 OP2A FOR INP/OUTP START P* < * PFCBP3A EQU 40 OP2A FOR UNIT SEPARATOR F P* t P EJECT T:STEV T:STEV ~ P* 6 P* EVALUATE PARAMETERS REQUIRED BY T:STIN/T:STOU P* AND SAVE IN FCB P* * P
0x102d00…1b0680 [0x55e]: Pad {f00=0x0098, f01=0x0190, f02=» P* WORK: A1 ( P* OUTPUT: FCB,RFCB,OP2A,OP2E,OP2T P* J PT:STEV EQU * T P CF PS,T:GRFC GET FCBADDRESS h 0 P CF PS,I:EVA0 EVAL INPUT/OUTPUT STRING (P1) P IFT PARM=TEST P ANK OP2T,ARITHB+NUMBIT P RF(NZ) STEERR NOT S
0x102d00…1b0680 [0x55f]: Pad {f00=0x0098, f01=0x0190, f02=»V x . P CF PS,I:EVA0 EVAL INPUT/OUTPUT START (P2) P IFT PARM=TEST < P LDR A1,OP2T R P ANK A1,ARITHB f P RF(NZ) STEERR NOT BINARY | P ANK OP2T,NUMBIT P RF(Z) STEERR NOT BINARY P XIF P ST OP2A,FCBP2A,RFCB * P CF PS,I:EVA
0x102d00…1b0680 [0x560]: Pad {f00=0x0098, f01=0x408e, f02=» ST OP2A,FCBP3A,RFCB P RTN PS P IFT PARM=TEST , " PSTEERR ABL I:ERR2 ILLEGAL TYPE B P XIF h P* t P END ~@
0x102d00…1b0680 [0x561]: Pad {f00=0x0098, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x562]: Pad {f00=0x0098, f01=0x0190, f02=» & P IDENT SPDDIV UPD 78-03-02/UKF P* . & P* DATA DIVISION FOR DISPLAY TASKS 8 P* b P DDIV l P* z P TERM T1 P CWB CB1 P TWB TB1 P TWB TB2 P TWB TB4 P TWB TB3 P TWB TB5 P TWB TB6 P UWB U
0x102d00…1b0680 [0x563]: Pad {f00=0x0098, f01=0x0190, f02=»B1) P DWB DB6(UB2) P START START " P STACK 84 6 P* H PSPDSDYKB DSET FC=20 R PSPDSSCRN DSET FC=50,BUFL=100 n PSPDSPRT DSET FC=30,BUFL=100 ( P FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN P EJECT PCB1 BLK PW1 BIN '1'
0x102d00…1b0680 [0x564]: Pad {f00=0x0098, f01=0x0190, f02=» PFIRST BOOL PSPBINW1 BIN PSPBINW2 BIN * PSPBINW3 BIN > PSPBINW4 BIN R PSPINPUT STRG 62 f P* ~ PTB2 BLK PWKBIN1 BIN PWKBIN2 BIN PWKBIN3 BIN PBCDWK BCD 3 PWKBCD1 BCD 3 PWKBCD2 BCD 3 P
0x102d00…1b0680 [0x565]: Pad {f00=0x0098, f01=0x018e, f02=»STRG 60 PWKSTRG1 STRG 2 PWKSTRG2 STRG 8 & P* < PTB3 BLK F PBTABX BCD 3 V PBAPPL BCD 5 j PBSCHK BCD 1 ~ PBMAXL BCD 3 PBMINL BCD 3 PTYP STRG 1 PMEF STRG 1 PREWRTF STRG 1 PNEOIF STRG 1 PNC
0x102d00…1b0680 [0x566]: Pad {f00=0x0098, f01=0x0190, f02=» PTB4 BLK PWIX1 BIN '1' PWIX2 BIN '2' , PWIX3 BIN '3' @ PWIX5 BIN '5' T PWIX4 BIN '4' h PGTF BCD 7 | PPRI BCD 7 PWANR BCDI (8),10 PWAPRIS BCDI (8),12 PWNAMN STRGI (8),20 P* PTB5 BLK PBINT
0x102d00…1b0680 [0x567]: Pad {f00=0x0098, f01=0x0190, f02=»WKBIN5 BIN PWKBCD4 BCD 9 PWKBCD5 BCD 9 & PSTRTYP BCD 1 : PSTRRC BCD 3 N PSTRIX1 BCD 3 b PSTRIX2 BCD 3 v PSTRCOD BCD 1 PSTRSTA BCD 3 PSTRUS STRG 1 PWKSTRG4 STRG 9 PWKSTRG5 STRG 7 PWKSTRG6 STRG 1 PWK
0x102d00…1b0680 [0x568]: Pad {f00=0x0098, f01=0x0190, f02=» 2 F IDENT I:EDT VER=T,REL=3.0,DATE=78-03-03 v F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:EFLI I:ETABL I:EXIT I:ETXT v : F B I:ECPY I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC` I:EFIL I:EPICN v , ( !! gg++ v , ( ! L
0x102d00…1b0680 [0x569]: Pad {f00=0x0098, f01=0x0006, f02=»
0x102d00…1b0680 [0x56a]: Pad {f00=0x0098, f01=0x0190, f02=» $ P IDENT T:STIN UPD 78-03-13/UKF P REL 78-04-01 #3.1 , P UPD 78-02-27/UKF H P REL 78-03-03 #3.0 d @ P************************************************************ P* & P* DISPLAY MANAGEMENT IN CREDIT P* @ P********
0x102d00…1b0680 [0x56b]: Pad {f00=0x0098, f01=0x0190, f02=»URRENT FIELD INDICATED IN FCB P* & 8 P* CALLED FROM CREDIT STANDARD MODULE 'S T R I N P' 0 P* l . P* THE UNIT SEPARATOR IS FIRST SEARCHED. v @ P* SEARCH STARTS AT GIVEN STARTPOSITION WITHIN THE STRING. < P* WHEN THE UNIT SEPARATOR IS
0x102d00…1b0680 [0x56c]: Pad {f00=0x0098, f01=0x0190, f02=»N RECIEVING ITEM IS STRING AND SENDING ~ F P* ITEM IS SHORTER THE REST WILL BE FILLED WITH X'00' . P* x B P* CALL STRIN1,<INPUT STRING>,<INPUT START>,<UNIT SEPARATOR> P* WHERE . P* <INPUT STRING> STRING TO HOLD INPUT @
0x102d00…1b0680 [0x56d]: Pad {f00=0x0098, f01=0x0190, f02=» H P* AT RETURN INPUT START POINTS WHERE MOVE ENDED D P* <UNIT SEPARATOR> STRING TO HOLD A CHARACTER THAT SEPARATES P 6 P* THE FIELDS IN <INPUT STRING> P* D P**********************************************
0x102d00…1b0680 [0x56e]: Pad {f00=0x0098, f01=0x018e, f02=»AMETERS TO STRIN1 z " P EXTRN T:GRFC GET FCB ADDRESS P EXTRN I:MOV @ P EXTRN I:EVA0 T $ P EXTRN I:ER17 ILLEGAL PARAMETER j P EXTRN I:ERR2 ILLEGAL TYPE " P EXTRN T:ROK RETURN WITH CR 0 " P EXTRN T:RNOK RETURN WITH CR 2 F P EJECT T
0x102d00…1b0680 [0x56f]: Pad {f00=0x0098, f01=0x0190, f02=» PNOTEST EQU 0 PPARM EQU TEST P** 2 P* < PPP EQU A12 PROGRAM POINTER F PPS EQU A14 STACK POINTER h P* PRFCB EQU A6 FCB BASE ADDRESS P* POP1A EQU A10 POP1E EQU A6 POP1T EQU A4 P* POP2A
0x102d00…1b0680 [0x570]: Pad {f00=0x0098, f01=0x0190, f02=»OR CHARACTER v P* & PARITHB EQU /10 ARITHMETIC BASE BIT PNUMBIT EQU /20 NUMERIC BIT H F P EJECT T:STIN T:STIN T:DIS1 T:DIS1 T:DIS1 T:DIS1 j P* P* DISPLACEMENTS TO FCB P* P* PFCBSPP EQU 26 SAVED PP
0x102d00…1b0680 [0x571]: Pad {f00=0x0098, f01=0x0190, f02=» 34 OP2A FOR SUBSTR TO INP/OUTP STRING PFCBS1E EQU 36 OP2E . P* H * PFCBP2A EQU 38 OP2A FOR INP/OUTP START R P* P EJECT T:STIN T:STIN PSTRIN1 EQU * 0 P CF PS,T:STEV EVAL INPUT STRG,START,UNIT SEP $ P LCR USCHAR,OP2A FETCH
0x102d00…1b0680 [0x572]: Pad {f00=0x0098, f01=0x0190, f02=»RT ADDR OF INP STRG v 2 P LD A2,FCBP1E,RFCB FETCH END ADDR OF INP STRG PSTI050 EQU * R P* COMPARE POINTERS f P TNM A1,A2 ( P RF(N) STI060 JUMP IF SIGNS UNEQUAL P CWR A1,A2 P RF STI070 PSTI060 CWR A2,A1 PSTI070 EQU *
0x102d00…1b0680 [0x573]: Pad {f00=0x0098, f01=0x0190, f02=» z P RB STI050 P EJECT T:STIN T:STIN P* < P* UNIT SEPARATOR FOUND F P* f PSTI100 EQU * US FOUND p 0 P ST A1,FCBS1E,RFCB NEW END ADDR FOR INP STRG & P ST PP,FCBSPP,RFCB SAVE PP IN FCB 2 P LDR* PP,RFCB GET ADDR TO CURR
0x102d00…1b0680 [0x574]: Pad {f00=0x0098, f01=0x0190, f02=»CBP1A,RFCB SAME ITEM ? * P ABL(E) I:ER17 YES: ILLEGAL PARAMETER P XIF L " P LDR OP1A,OP2A TEMP SAVE OP2A X & P CF PS,T:CLMI CLEAR CURRENT FIELD ~ P LD A1,FCBS1A,RFCB P CW A1,FCBS1E,RFCB $ P ABL(E) STI350 JUMP IF LENGTH 0 P EJECT
0x102d00…1b0680 [0x575]: Pad {f00=0x0098, f01=0x0190, f02=»1,NUMBIT " P RF(Z) STI200 JUMP IF NOT BCD P IFT PARM=TEST 6 P ANK A2,ARITHB L P RF(Z) STI210 ILLEGAL TYPE b P XIF P RF STI300 BCD PSTI200 EQU * P IFT PARM=TEST P ANK A2,ARITHB P RF(Z) STI220 JUMP IF STRING P
0x102d00…1b0680 [0x576]: Pad {f00=0x0098, f01=0x0190, f02=»ECIAL HANDLING FOR STRING P* " P LDR A2,OP2E , . P SUR A2,OP2A COMPUTE RECIEVING ITEM LENGTH @ P LD A1,FCBS1E,RFCB r 2 P SU A1,FCBS1A,RFCB COMPUTE SENDING ITEM LENGTH $ P* COMPARE SENDING - RECIEVING P TNM A1,A2 ( P RF(N) STI230
0x102d00…1b0680 [0x577]: Pad {f00=0x0098, f01=0x018e, f02=» P* & P* SENDING SMALLER THAN RECIEVING P* < P LDK A3,0 F 4 P ADR A1,OP2A RECIEVING POSITION TO FILL WITH /00 X P LDR A2,OP2E P LDR OP2E,A1 NEW END ADDRESS PSTI250 EQU * ( P* COMPARE RECIEVING POS - END POS P T
0x102d00…1b0680 [0x578]: Pad {f00=0x0099, f01=0x0190, f02=» P* P RF(NL) STI300 P SCR A3,A1 CLEAR ( P ADK A1,1 LOOK AT NEXT @ P RB STI250 ^ P EJECT T:STIN T:STIN p P* > P* EXECUTE MOVE TO CURRENT FIELD (FCB) FROM INPUT STRING P* PSTI300 EQU * , P LDR A1,RFCB T
0x102d00…1b0680 [0x579]: Pad {f00=0x0099, f01=0x4178, f02=»STRING IN INPUT STRING z P LD OP2E,FCBS1E,A1 P LD OP2T,FCBP1T,A1 8 P CF PS,I:MOV R " P CF PS,T:GRFC GET FCB ADDRESS f PSTI350 EQU * ( P LD A1,FCBS1E,RFCB END OF SUBSTRING ( P SU A1,FCBP1A,RFCB NEXT INPUT START P ADK A1,1 ADJUST F
0x102d00…1b0680 [0x57a]: Pad {f00=0x0099, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x57b]: Pad {f00=0x0099, f01=0x0190, f02=» @ 2P R A p H A A F 4 I >! A >!P H A I 0 @ tP " A A _, A Q @ U " D @ A $ U A : @ PH @ @ T 0 $" B $" P A t $ A A A ( A ) >C % :
0x102d00…1b0680 [0x57c]: Pad {f00=0x0099, f01=0x0190, f02=» @ A r I 0 ^ t A & . x A v **QX JRRQ 4 J J , T@ @# P T P A R A W *W _ ( @ P zP @ I @ T~ Ut A " Ub A UT A @ PJ A @ $ T&
0x102d00…1b0680 [0x57d]: Pad {f00=0x0099, f01=0x0190, f02=»( 0FATAL ERROR HAS OCCURRED,NO OBJECT CODE PRODUCED W W 1 @ B J J 1P A A X_ @ TZ *W @ TN & @ T JU> 4 B ,,Y R * _ J @ T JU @ Q A a A A 0
0x102d00…1b0680 [0x57e]: Pad {f00=0x0099, f01=0x0190, f02=» J T & % a A : $ B : W @ B T B J J 0 @ 0 A a P2 4 ,,RR F $" T @ = ," W A 2 = ] ] R ( U Q P ;A_ ;a Y ==Q$ ::QV P P
0x102d00…1b0680 [0x57f]: Pad {f00=0x0099, f01=0x0190, f02=» Y T2 < = T$ P &T F T W R ,,Y W ,,Y F @ 2 P R ^ ` " a Qx T //Q J Y 9a 09R, Z YV D 4" Y^ E 4 9 E T ,,Q - = _4 ZN a Q D T _ A A# @ B JV @ T~ @ Tt
0x102d00…1b0680 [0x580]: Pad {f00=0x0099, f01=0x0190, f02=» J @ B JPLQ @ @ P8 $T % _ 4 R $ R % ,,Y" J JU4 ( @ T( R" @ d 9a R 9 @ J @ B J J , P @ P @ ) $" % ]: @ P @ A W @
0x102d00…1b0680 [0x581]: Pad {f00=0x0099, f01=0x0006, f02=» ( 0 8
0x102d00…1b0680 [0x582]: Pad {f00=0x0099, f01=0x0190, f02=» $ P IDENT T:STOU UPD 78-03-13/UKF P REL 78-04-01 #3.1 , P UPD 78-02-27/UKF H P REL 78-03-03 #3.0 d @ P************************************************************ P* & P* DISPLAY MANAGEMENT IN CREDIT P* @ P********
0x102d00…1b0680 [0x583]: Pad {f00=0x0099, f01=0x0190, f02=»D IN P P* FCB TO A OUTPUT STRING P* . 8 P* CALLED FORM CREDIT STANDARD MODULE 'S T R O U T' 8 P* t F P* A CHECK THAT OUTPUT STRING IS LARGE ENOUGH IS PERFORMED FIRST. ~ H P* MOVE ROUTINE T:DUPX USED BY T:DUPL FUNCTION IS USED, NOT NEEDE
0x102d00…1b0680 [0x584]: Pad {f00=0x0099, f01=0x0190, f02=» L P* FIELD IN OUTPUT STRING. P* , D P* CALL STROU1,<OUTPUT STRING>,<OUTPUT START>,<UNIT SEPARATOR> 6 P* WHERE ~ 0 P* <OUTPUT STRING> STRING TO HOLD OUTPUT B P* <OUTPUT START> BINARY ITEM WITH START POSITION WITHIN B P
0x102d00…1b0680 [0x585]: Pad {f00=0x0099, f01=0x0190, f02=»ENDED P D P* <UNIT SEPARATOR> STRING TO HOLD A CHARACTER THAT SEPARATES 8 P* THE FIELDS IN <OUTPUT STRING> V P* D P**************************************************************** 6 P ENTRY STROU1 MOVE CURRENT FIELD TO OU
0x102d00…1b0680 [0x586]: Pad {f00=0x0099, f01=0x018e, f02=» T:GRFC GET FCB ADDRESS P EXTRN I:EVA0 $ P EXTRN I:ER17 ILLEGAL PARAMETER 6 P EXTRN I:ERR2 ILLEGAL TYPE ^ " P EXTRN T:ROK RETURN WITH CR=0 " P EXTRN T:RNOK RETURN WITH CR=2 F P EJECT T:STOU T:STOU T:DIS1 T:DIS1 T:DIS1 T:D
0x102d00…1b0680 [0x587]: Pad {f00=0x0099, f01=0x0190, f02=» P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER 4 P* T PRFCB EQU A6 FCB BASE ADDRESS ^ P* POP2A EQU A9 OPERAND2 ADDRESS POP2E EQU A5 OPERAND2 END POP2T EQU A3 OPERAND2 TYPE P* * PPOINT EQU A7 P
0x102d00…1b0680 [0x588]: Pad {f00=0x0099, f01=0x018e, f02=» T:STOU T:STOU T:DIS1 T:DIS1 T:DIS1 T:DIS1 P* D P* DISPLACEMENTS TO FCB N P* n PFCBSPP EQU 26 SAVED PP x P* * PFCBP1A EQU 28 OP2A FOR INP/OUTP STRING PFCBP1E EQU 30 OP2E PFCBP1T EQU 32 OP2T P* 4
0x102d00…1b0680 [0x589]: Pad {f00=0x0099, f01=0x0190, f02=» h P* * PFCBP3A EQU 40 OP2A FOR UNIT SEPARATOR P EJECT T:STOU T:STOU @ P* b P* l PSTROU1 EQU * v 2 P CF PS,T:STEV EVAL OUTPUT STRG,START,UNIT SEP ( P LD A1,FCBP1A,RFCB GET STRING START 0 P AD* A1,FCBP2A,RFCB ADJUST WIT
0x102d00…1b0680 [0x58a]: Pad {f00=0x0099, f01=0x0190, f02=» TO CURRENT FIELD INDEX z $ P CF PS,I:EVA0 EVAL CURRENT FIELD " P LD PP,FCBSPP,RFCB RESTORE PP H P IFT PARM=TEST n $ P CW OP2A,FCBP1A,RFCB SAME ITEM ? * P ABL(E) I:ER17 YES: ILLEGAS PARAMETER P XIF P LDR POINT,OP2A P LDR A1,OP2T
0x102d00…1b0680 [0x58b]: Pad {f00=0x0099, f01=0x0190, f02=»D --> STRING P* P IFT PARM=TEST P LDR A1,OP2T 4 P ANK A1,NUMBIT H P RF(Z) STU010 ^ P LDR A1,OP2T t P ANK A1,ARITHB P RF(NZ) STU020 PSTU010 EQU * P ABL I:ERR2 ILLEGAL TYPE PSTU020 EQU * P XIF $ P L
0x102d00…1b0680 [0x58c]: Pad {f00=0x0099, f01=0x0190, f02=» EQU * P ADK POINT,1 0 P CWR POINT,OP2E END OF CURRENT VAR REACHED ? " P RF(NE) STU110 NO V ( P LDKL POINT,0 CURRENT ITEM WAS EMPTY p P RF STU250 PSTU110 EQU * P LCR A1,POINT GET NEXT BYTE P CWK A1,/FF P RB(E) STU100
0x102d00…1b0680 [0x58d]: Pad {f00=0x0099, f01=0x0190, f02=» SUR POINT,OP2E ( P SLL POINT,1 CALCULATE STRING LENGTH 6 P ADK POINT,1 ADJUST WHEN UNEQUAL AMOUNT OF DIGITS D P RF STU250 ~ PSTU200 EQU * P LDR A1,POINT STRING START P LDR POINT,OP2E STRING END * P SUR POINT,A1 CALCULATE STRING LEN
0x102d00…1b0680 [0x58e]: Pad {f00=0x0099, f01=0x0190, f02=»G | P* PSTU300 EQU * P LCR A1,POINT ( P ANK A1,/FF > P CWK A1,/00 R P RF(E) STU320 JUMP IF EMPTY f P ADK POINT,1 0 P CWR POINT,OP2E END OF CURRENT VAR REACHED ? P RB(NE) STU300 NO PSTU320 EQU * P SUR POINT
0x102d00…1b0680 [0x58f]: Pad {f00=0x0099, f01=0x0190, f02=» $ P AD A1,FCBS1A,RFCB END OF SUBSTR P LD A2,FCBP1E,RFCB 0 . P* COMPARE END OF SUBSTRING - MAIN STRING J P TNM A1,A2 | ( P RF(N) STU360 JUMP IF SIGNS UNEQUAL P CWR A1,A2 P RF STU370 PSTU360 CWR A2,A1 PSTU370 EQU * P
0x102d00…1b0680 [0x590]: Pad {f00=0x0099, f01=0x4190, f02=»ADDR TO US x , P LDR* A1,RFCB ADDR TO SENDING ITEM INDEX * P LD OP2A,FCBS1A,RFCB ADDR TO REC ITEM B P LD OP2T,FCBP1T,RFCB p P LD OP2E,FCBP1E,RFCB P CF PS,T:DUPX " P CF PS,T:GRFC GET ADDR TO FCB P LC* A1,FCBP3A,RFCB P SC* A1,FC
0x102d00…1b0680 [0x591]: Pad {f00=0x0099, f01=0x2008, f02=» NT MOD UPD 77-12-28/UKF END *@ 6V < 8 ? 4 EVV MP@ kP oQ( J P Q2 n U 1 J ? F u ~ D @ C o XH N n , ( U n X N # _ , ( 1 _ B C
0x102d00…1b0680 [0x592]: Pad {f00=0x0099, f01=0x4138, f02=» 2 F IDENT FMOVE VER=T,REL=3.0,DATE=78-03-03 FMOVE : FMOVE J I:EVA0 I:ERR2 n I:EVA5 , ( D #0 & + I:ER18 I:RT1 * & $ P _
0x102d00…1b0680 [0x593]: Pad {f00=0x0099, f01=0x40ec, f02=» 2 F IDENT TYPET VER=T,REL=3.0,DATE=78-03-03 TYPET : TYPET J I:EVA0 I:ERR2 n I:RT1 , ( B #03 ;d # + @ @
0x102d00…1b0680 [0x594]: Pad {f00=0x0099, f01=0x40f0, f02=» 2 F IDENT ICLEAR VER=T,REL=3.0,DATE=78-03-03 ICLEARK : ICLEARK L I:EVA0 ` I:RT1 r , ( @ #0 0T ' ' _ T $ @ P ADKL OP2A,1 ... BUMP PO
0x102d00…1b0680 [0x595]: Pad {f00=0x0099, f01=0x4110, f02=» 2 F IDENT EMPTYT VER=T,REL=3.0,DATE=78-03-03 EMPTYTK : EMPTYTK L I:EVA0 ` , ( @ #0 0T & ! T r I:RT1 , ( P & ! X T C T T !P < @
0x102d00…1b0680 [0x596]: Pad {f00=0x0099, f01=0x0190, f02=» 2 F IDENT T:STIN VER=T,REL=3.0,DATE=78-03-03 STRIN1K : STRIN1K L T:STEV ` , ( @ X x & Y " X R W r T:RNOK I:EVA0 , ( P _ Y $ I:ER17
0x102d00…1b0680 [0x597]: Pad {f00=0x0099, f01=0x412a, f02=» u X $ X " R W V R , ( W V % _ " D $ D , I:MOV T:GRFC l T:ROK ~ * & $ X $ X y & @ < R W 'P W aP eP gW: kP R W V R W
0x102d00…1b0680 [0x598]: Pad {f00=0x009a, f01=0x0190, f02=»T P FILLR '1',2 P FTAB 10 P FLINK P1 . P FMEL 'Z9V999',RTESATS @ P FTAB 30 ^ P FLINK P2 n P FMEL 'ZZZZ9V99',BEL P FTAB 55 P FLINK P3 P FMEL 'ZZZZ9V99',ANNU P FEOR P FILLR '0',2 P FEOR
0x102d00…1b0680 [0x599]: Pad {f00=0x009a, f01=0x0006, f02=» @ H P
0x102d00…1b0680 [0x59a]: Pad {f00=0x009a, f01=0x0190, f02=» " P IDENT T:ASG0 UPD 78-03-29/ST P REL 78-04-01 #3.1 * P UPD 78-01-05/ST F P UPD 77-11-07/UKF ` P REL 77-12-07 #2.4 | P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P UPD 77-04-27/ULJO P REL 77-09-07 #2.3 P
0x102d00…1b0680 [0x59b]: Pad {f00=0x009a, f01=0x0190, f02=» P UPD 77-04-27/ULJO P 4 P*********************************************** ( 4 P* * ` 4 P* C R E D I T D A T A M A N A G E M E N T * 4 P* * 4 P*
0x102d00…1b0680 [0x59c]: Pad {f00=0x009a, f01=0x0190, f02=»*********************** x P P ENTRY ASSGN ( P < " P EXTRN I:EVA0 EVALUATE ADDRESS D , P EXTRN I:RT1 RETURN INTERPRETER (I:NTP) j $ P EXTRN I:ERR ERROR PRINT ROUTINE & P EXTRN T:FDSP FETCH DSET PARAMETER T P EJECT T:ASG0 T:ASG0 T
0x102d00…1b0680 [0x59d]: Pad {f00=0x009a, f01=0x0190, f02=» 855 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST 2 P H T P EJECT T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T P P P* ( P* TEMPORARY INTERPRETER REGISTERS: P* P PWK1 EQU A1 WORK RE
0x102d00…1b0680 [0x59e]: Pad {f00=0x009a, f01=0x0190, f02=»EGISTER p POP1E EQU A6 OPERAND 1 END ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR 2 " POP2A EQU A9 OPERAND 2 ADDRESS ^ POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION POPCD EQU A11 OPCODE P P* P* NON
0x102d00…1b0680 [0x59f]: Pad {f00=0x009a, f01=0x018e, f02=» ADDRESS | P P* P* LOCAL REGISTERS: " P* > P H PNV EQU A7 NO OF VOLUMES P $ PPAS EQU A8 POINTER ASSIGN BLOCK p T P EJECT T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T P* ( P* TERMINAL STAC
0x102d00…1b0680 [0x5a0]: Pad {f00=0x009a, f01=0x0190, f02=» P* P PECBBA EQU 2 PECBRL EQU 4 * PECBEL EQU 6 > PECBST EQU 8 R $ PECBCW EQU 10 ECB CONTROL WORD 1 f $ PECBCW2 EQU 12 ECB CONTROL WORD 2 PDSLEN EQU 14 PDSINX EQU 16 PDSCBLN EQU 14 <LENGTH>ITEM & PDSCBIX EQU
0x102d00…1b0680 [0x5a1]: Pad {f00=0x009a, f01=0x0190, f02=» P* & PMAXVOL EQU 4 MAX NUMBER OF VOLUMES PTC EQU 0 COMMON ASSIGN 8 P V P ^ P* BIT VALUES: f P | P 2 PBUFBIT EQU X'40' BUFFER ALLOCATION BIT (DECB) ( PECHBIT EQU X'40' ECHO BIT (REQUEST) ( PWAITBT EQU X'80' WAIT BIT (R
0x102d00…1b0680 [0x5a2]: Pad {f00=0x009a, f01=0x0190, f02=»SG0 T:ASG0 T:ASG0 T:ASG0 T f P* . P* BUFFER POOL 8 P* N 2 PBUFPOL DATA BUFFRS,2 BUFFER POOL CONTROL BLOCK X PBUFFRS DATA POLEND PDUMBUF DATA 'AB' PPOLEND DATA 0 P* P* ASSIGN BLOCK P* PASBLK EQ
0x102d00…1b0680 [0x5a3]: Pad {f00=0x009a, f01=0x0190, f02=»0 2 P DATA 0,0,0 3 P DATA 0,0,0 4 : P* P* f " PRCINX DATA 0 ADD TO <RC> ITEM p T P EJECT T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T:ASG0 T P* . P* ASSGN - ASSIG
0x102d00…1b0680 [0x5a4]: Pad {f00=0x009a, f01=0x0190, f02=»ET BUFFER & P* PREVENT ANOTHER TASK TO ASSIGN P LDK A7,1 NO OF BUFFERS < P LKM P DATA -7,BUFPOL h * P CF PS,T:FDSP FETCH DATASET PARAMETERS P LDR* WK1,A8 GET FILE CODE " P SC WK1,NVFC+1 STORE IN BLOCK $ P CF PS,I:EVA0 GET <F
0x102d00…1b0680 [0x5a5]: Pad {f00=0x009a, f01=0x0190, f02=» OP2E,OP2A COMPUTE LENGTH P LDK WK1,8 NO OF MOVE " 2 P LDKL PAS,FLNAME SET ADDRESS TO ASSIGN BLOCK @ * P CF PS,MOVE <FN> ITEM TO ASSIGN BLOCK v 0 P LCR WK1,PP GET VALUE <NV> NUMBER OF VOLUMES $ P ADKL PP,1 STEP PROGRAM POINTER P LDR NV,WK
0x102d00…1b0680 [0x5a6]: Pad {f00=0x009a, f01=0x0190, f02=»PE v P XIF & P SC NV,NVFC STORE IN ASSIGN BLOCK PASS010 EQU * @ , P CF PS,I:EVA0 GET ITEM <VN> VOLUME NAME T P IFT PARM=TEST $ P ANK OP2T,ARITHB+NUMBIT STRING? P RF(NZ) ERR2 NO;ILLEGAL TYPE P XIF " P SUR OP2E,OP2A COMPUTE L
0x102d00…1b0680 [0x5a7]: Pad {f00=0x009a, f01=0x018e, f02=» READY ~ 2 P CF PS,I:EVA0 GET ITEM <RC> RETURN CODE INDEX P IFT PARM=TEST D P ANK OP2T,ARITHB+NUMBIT Z P SUK OP2T,NUMBIT BINARY? z P RF(NZ) ERR2 NO;ILLEGAL TYPE P XIF * P ST OP2A,RCINX SAVE ADDRESS <RC> ITEM P* * P* A S S
0x102d00…1b0680 [0x5a8]: Pad {f00=0x009a, f01=0x0190, f02=» > P* SET CONDITION REGISTER (CR) CR=0 ASSIGMENT PERFORMED < P* CR=2 ASSIGMENT REFUSED F P* P* P LDK WK1,0 CR=0 P LDR A7,A7 & P RF(Z) ASS030 ASSIGMENT PERFORMED & P LDK WK1,2 CR=2; ASSIGMENT R
0x102d00…1b0680 [0x5a9]: Pad {f00=0x009a, f01=0x0190, f02=» v P* $ P LD WK1,RCINX ADDRESS <RC> ITEM 6 P STR A7,WK1 STORE RESULT OF ASSIGMENT IN <RC> ITEM : P* t P* RELEASE BUFFER ~ P* P LDKL A8,DUMBUF P LKM P DATA -8,BUFPOL $ P ABL I:RT1 RETURN TO INTERPRETER P
0x102d00…1b0680 [0x5aa]: Pad {f00=0x009a, f01=0x0190, f02=» ITEM TO ASSIGN BLOCK x P* AT ENTRY WK1=NO OF CHAR P* B PMOVE EQU * L $ P LCR WK3,OP2A GET CHAR FROM ITEM ^ , PMO010 SCR WK3,PAS STORE IN ASSIGN BLOCK P ADKL OP2A,1 INCR ADD P ADKL PAS,1 INCR ADD P SUK WK1,1 COUNT MOVES
0x102d00…1b0680 [0x5ab]: Pad {f00=0x009a, f01=0x4110, f02=»L OUT WITH SPACE P RB MO010 P * P IFT PARM=TEST 2 PERR2 LDK WK1,2 ILLEGAL TYPE H P* RELEASE BUFFER l P LDKL A8,DUMBUF P LKM P DATA -8,BUFPOL PERR ABL I:ERR ERROR PRINT P XIF P P P END @
0x102d00…1b0680 [0x5ac]: Pad {f00=0x009a, f01=0x2008, f02=» ADK PAS,1 INCR ADD SUK WK1,1 COUNT MOVES $ RB(NZ) MOVE NOT READY B RTN PS ` p IFT PARM=TEST x ERR2 LDK WK1,2 ILLEGAL TYPE ERR ABL I:ERR ERROR PRINT XIF END @ Y WK1=NO OF CHAR
0x102d00…1b0680 [0x5ad]: Pad {f00=0x009a, f01=0x0190, f02=» z P&PROC P=T:SCD,&PARM P&PROC P=T:USE,&PARM $ P&PROC P=T:EXIT,&PARM @ P&PROC P=T:GTCW,&PARM P&PROC P=T:GTID,&PARM x P&PROC P=T:IO,&PARM P&PROC P=I:NTP,&PARM P&PROC P=I:EVA,&PARM P&PROC P=I:ADS,&PARM P&PROC P=
0x102d00…1b0680 [0x5ae]: Pad {f00=0x009a, f01=0x00d2, f02=»ROC P=I:NTF,&PARM P&PROC P=I:EDT,&PARM P&PROC P=I:EDTE,&PARM 6 P&PROC P=I:EDS,&PARM R P&PROC P=I:STR,&PARM n P&PROC P=I:EVS,&PARM P&PROC P=TRACON,&PARM PASG 224,TY10 I:EVA,&PARM P&PROC P=I:ADS,&PARM P&PROC P=
0x102d00…1b0680 [0x5af]: Pad {f00=0x009a, f01=0x2008, f02=» NTF,&PARM P&PROC P=I:EDT,&PARM P&PROC P=I:EDTE,&PARM 6 P&PROC P=I:EDS,&PARM R P&PROC P=I:STR,&PARM n P&PROC P=I:EVS,&PARM P&PROC P=TRACON,&PARM PASG 224,TY10 I:EVA,&PARM P&PROC P=I:ADS,&PARM P&PROC P=
0x102d00…1b0680 [0x5b0]: Pad {f00=0x009a, f01=0x0190, f02=» 2 F IDENT T:SCD VER=T,REL=3.0,DATE=78-03-03 N T:ACTVK T:PAUS T:RSTR N : T:ACTVK N T:BAT N p I:ERR4 N , ( 2 P ( N I:NTPA N T:RSTR " N I:EVA0 N , ( @ W
0x102d00…1b0680 [0x5b1]: Pad {f00=0x009a, f01=0x0002, f02=» X
0x102d00…1b0680 [0x5b2]: Pad {f00=0x009a, f01=0x018e, f02=» " P IDENT T:ASS0 ORG 78-03-10/ST P REL 78-04-01 #3.1 * 0 P******************************************** F 2 P* * z 2 P* CREDIT ASSEMBLER SUBROUTINE ENTRY * 2 P*
0x102d00…1b0680 [0x5b3]: Pad {f00=0x009a, f01=0x4028, f02=» P ABL T:ASSI P END @ $ P REL 78-04-01 #3.1 * 0 P******************************************** F 2 P* * z 2 P* CREDIT ASSEMBLER SUBROUTINE ENTRY * 2 P*
0x102d00…1b0680 [0x5b4]: Pad {f00=0x009a, f01=0x2008, f02=» :ASS0 ORG 78-03-10/ST 4 / ********************************************** * 2 .* * b 2 .* CREDIT ASSEMBLER SUBROUTINE ENTRY * 2 .* * 2 .******
0x102d00…1b0680 [0x5b5]: Pad {f00=0x009a, f01=0x0190, f02=» 2 F IDENT T:GTCW VER=T,REL=3.0,DATE=78-03-03 S GETCW S : T:FDSP S J GETCW S I:EVA0 S n , ( H #0 T B 'W T B S , ( B A A A A S , ( = @ P @ P @ L R S
0x102d00…1b0680 [0x5b6]: Pad {f00=0x009a, f01=0x4122, f02=» P S p I:RT1 T I:ERR T , ( 1_ , @ - T 0 , ( B@ ' d T ` H D ! T W T % - 1 5 ; ? E I KPR O U YR ]R T , ( c uW P P P T
0x102d00…1b0680 [0x5b7]: Pad {f00=0x009a, f01=0x411c, f02=» 2 F IDENT T:GTID VER=T,REL=3.0,DATE=78-03-03 U T:GETIK U : T:GETIK U L I:EVA0 U ` , ( @ #0T R W T V G 9h U r I:RT1 U I:ERR U ' W U T R W T 'W U
0x102d00…1b0680 [0x5b8]: Pad {f00=0x009b, f01=0x0190, f02=» 2 F IDENT T:IO VER=T,REL=3.0,DATE=78-03-03 V H D ! T:WRITK T:READ T:KIY T:NKI T:KIA T:NKIAA T:EDWR T:DSC0` T:DSC1 V : H D ! T:EDWEN T:EDWF T:EDWIA T:EDIOA T:XSTA T:WAIT` T:IO1 T:IO2 T:IO3 V J F " T:IO4 T:FDS0 T:FDSP DSCBLdCIA IOREQSa T:SVE T:REST
0x102d00…1b0680 [0x5b9]: Pad {f00=0x009b, f01=0x0002, f02=» `
0x102d00…1b0680 [0x5ba]: Pad {f00=0x009b, f01=0x0190, f02=» " P IDENT T:IAS0 ORG 78-03-10/ST P REL 78-04-01 #3.1 * 2 P********************************************** F 2 P* * | 2 P* CREDIT ASSEMBLER SUBROUTINE ENTRY * 2 P*
0x102d00…1b0680 [0x5bb]: Pad {f00=0x009b, f01=0x4028, f02=» P ABL T:IASS P END @ $ P REL 78-04-01 #3.1 * 2 P********************************************** F 2 P* * | 2 P* CREDIT ASSEMBLER SUBROUTINE ENTRY * 2 P*
0x102d00…1b0680 [0x5bc]: Pad {f00=0x009b, f01=0x2008, f02=» :IAS0 ORG 78-03-10/ST 2 .********************************************** * 2 .* * ` 2 .* CREDIT ASSEMBLER SUBROUTINE ENTRY * 2 .* * 2 .********
0x102d00…1b0680 [0x5bd]: Pad {f00=0x009b, f01=0x0190, f02=» Z I:FML [ , ( ' 6 2 #? ;D:B [ STORCW [ J I:EVA2 [ ^ , ( : C : [ p , ( #0 T & C : T C C [ , ( V W V Q (W [ , ( =
0x102d00…1b0680 [0x5be]: Pad {f00=0x009b, f01=0x0190, f02=» P C S ;a : 4 A L T [ , ( : 49d_Z B@5 @ 0 , ( 8 @N ' @ d P ( ` z= H D ! W W W 0 ?U i { d P P$ R H D !no W
0x102d00…1b0680 [0x5bf]: Pad {f00=0x009b, f01=0x4086, f02=» L H D !@ #P ' WP yP T T T W T 9W CW OW W ] {P, }W( ] W S. P S ] T ] p@ ] ` z= H D ! W W W 0 ?U i { d P P$ R H D !no W
0x102d00…1b0680 [0x5c0]: Pad {f00=0x009b, f01=0x0190, f02=» R P2 WV PR R P WF PB t H D ! D )P 3W MT Q W ] q u } Q P P 0 H D !s WH R Q 8 R$ U R Q 8 | H D ! q %T ) 5 8 A ` E b K O ST W b [ ` i r yR U WN
0x102d00…1b0680 [0x5c1]: Pad {f00=0x009b, f01=0x0006, f02=» h p x
0x102d00…1b0680 [0x5c2]: Pad {f00=0x009b, f01=0x0190, f02=» " P IDENT T:ASSI UPD 78-03-10/ST P REL 78-04-01 #3.1 * P UPD 78-01-17/ST F P UPD 77-11-07 UKF ` P REL 77-12-07 #2.4 | P REL 77-12-07 #2.4 P REL 77-12-07 #2.4 P UPD 77-04-27/ULJO P REL 77-09-07 #2.3 P
0x102d00…1b0680 [0x5c3]: Pad {f00=0x009b, f01=0x0190, f02=» P UPD 77-04-27/ULJO P 4 P*********************************************** ( 4 P* * ` 4 P* C R E D I T D A T A M A N A G E M E N T * 4 P* * 2 P*
0x102d00…1b0680 [0x5c4]: Pad {f00=0x009b, f01=0x0190, f02=»********************* v P P ENTRY T:ASSI & P < " P EXTRN I:EVA0 EVALUATE ADDRESS D , P EXTRN I:RT1 RETURN INTERPRETER (I:NTP) j $ P EXTRN I:ERR ERROR PRINT ROUTINE & P EXTRN T:FDSP FETCH DSET PARAMETER T P EJECT T:ASSI T:ASG T:
0x102d00…1b0680 [0x5c5]: Pad {f00=0x009b, f01=0x0190, f02=» 855 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST 2 P H T P EJECT T:ASSI T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG P P P* ( P* TEMPORARY INTERPRETER REGISTERS: P* P PWK1 EQU A1 WORK RE
0x102d00…1b0680 [0x5c6]: Pad {f00=0x009b, f01=0x0190, f02=»EGISTER p POP1E EQU A6 OPERAND 1 END ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR 2 " POP2A EQU A9 OPERAND 2 ADDRESS ^ POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION POPCD EQU A11 OPCODE P P* P* NON
0x102d00…1b0680 [0x5c7]: Pad {f00=0x009b, f01=0x0190, f02=» ADDRESS | P P* P* LOCAL REGISTERS: " P* > P H $ PPAS EQU A8 POINTER ASSIGN BLOCK P T P EJECT T:ASSI T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG x P* ( P* TERMINAL STACK BASE DISPLACEMENT: P*
0x102d00…1b0680 [0x5c8]: Pad {f00=0x009b, f01=0x018e, f02=» PECBRL EQU 4 PECBEL EQU 6 PECBST EQU 8 0 PECBCW EQU 10 D $ PECBCW2 EQU 12 ECB CONTROL WORD 2 X PDSLEN EQU 14 PDSINX EQU 16 PDSCBLN EQU 14 <LENGTH>ITEM & PDSCBIX EQU 16 <INDEX>ITEM (CTL WD) & PDSCBRI EQU 18 DATA REC
0x102d00…1b0680 [0x5c9]: Pad {f00=0x009b, f01=0x018e, f02=» P P P* BIT VALUES: P * P 2 2 PBUFBIT EQU X'40' BUFFER ALLOCATION BIT (DECB) : ( PECHBIT EQU X'40' ECHO BIT (REQUEST) p ( PWAITBT EQU X'80' WAIT BIT (REQUEST) $ PARITHB EQU X'10' ARITHMETIC BIT PNUMBIT EQU X'20' NUMERIC B
0x102d00…1b0680 [0x5ca]: Pad {f00=0x009b, f01=0x0190, f02=» 2 PBUFPOL DATA BUFFRS,2 BUFFER POOL CONTROL BLOCK PBUFFRS DATA POLEND > PDUMBUF DATA 'AB' X PPOLEND DATA 0 p P* P* ASSIGN BLOCK P* PASBLK EQU * $ PNVFC DATA 0 NO OF VOL,FILE CODE " PFLNAME DATA 0,0,0,0 FILE NAM
0x102d00…1b0680 [0x5cb]: Pad {f00=0x009b, f01=0x0190, f02=» 4 z P* P* " PRCINX DATA 0 ADD TO <RC> ITEM T P EJECT T:ASSI T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG F P* 0 P* ASSIGN - ASSIGN DATASET TO A DATA FILE P* B P* <LABEL> ASSIGN <DSET>,<CODE>,<RC>
0x102d00…1b0680 [0x5cc]: Pad {f00=0x009b, f01=0x0190, f02=»7,1 NO OF BUFFERS P LKM P DATA -7,BUFPOL & * P CF PS,T:FDSP FETCH DATASET PARAMETERS > P LDR* WK1,A8 GET FILE CODE l " P SC WK1,NVFC+1 STORE IN BLOCK P XRR A7,A7 CLEAR REGISTER A7 P LCR A7,PP GET INDEX CODE $ P ADKL PP,1 STEP
0x102d00…1b0680 [0x5cd]: Pad {f00=0x009b, f01=0x0190, f02=»UK OP2T,NUMBIT BINARY? P RF(NZ) ERR2 NO;ILLEGAL TYPE P XIF B * P ST OP2A,RCINX SAVE ADDRESS <RC> ITEM N $ P CF PS,I:EVA0 GET <FN> FILE NAME | P IFT PARM=TEST $ P ANK OP2T,ARITHB+NUMBIT STRING? P RF(NZ) ERR2 NO;ILLEGAL TYPE P XIF
0x102d00…1b0680 [0x5ce]: Pad {f00=0x009b, f01=0x0190, f02=»PS,MOVE <FN> ITEM TO ASSIGN BLOCK 0 P LCR WK1,PP GET VALUE <NV> NUMBER OF VOLUMES * $ P ADKL PP,1 STEP PROGRAM POINTER ^ P LDR WK4,WK1 SAVE NO OF VOL P IFT PARM=TEST P RF(NP) ERR2 ILLEGAL TYPE P SUK WK1,MAXVOL >4? P RF(P) ERR2
0x102d00…1b0680 [0x5cf]: Pad {f00=0x009b, f01=0x0190, f02=»AME l P IFT PARM=TEST $ P ANK OP2T,ARITHB+NUMBIT STRING? " P RF(NZ) ERR2 NO;ILLEGAL TYPE J P XIF n " P SUR OP2E,OP2A COMPUTE LENGTH z P LDK WK1,6 NO OF MOVE ( P CF PS,MOVE VOL NAME TO ASSIGN BLOCK P SUK WK4,1 COUNT VOL P RB(
0x102d00…1b0680 [0x5d0]: Pad {f00=0x009b, f01=0x0190, f02=»15 P* P* > P* SET CONDITION REGISTER (CR) CR=0 ASSIGMENT PERFORMED < P* CR=2 ASSIGMENT REFUSED ` P* P* P LDK WK1,0 CR=0 P LDR A7,A7 & P RF(Z) ASS030 ASSIGMENT PERFORMED & P L
0x102d00…1b0680 [0x5d1]: Pad {f00=0x009b, f01=0x018e, f02=»* SET RESULT OF ASSIGMENT P* " $ P LD WK1,RCINX ADDRESS <RC> ITEM , 6 P STR A7,WK1 STORE RESULT OF ASSIGMENT IN <RC> ITEM T P* P* RELEASE BUFFER P* P LDKL A8,DUMBUF P LKM P DATA -8,BUFPOL $ P ABL I:RT1 RETURN
0x102d00…1b0680 [0x5d2]: Pad {f00=0x009b, f01=0x0190, f02=» 2 P* MOVE - MOVE CURRENT ITEM TO ASSIGN BLOCK P* AT ENTRY WK1=NO OF CHAR : P* ^ PMOVE EQU * h $ P LCR WK3,OP2A GET CHAR FROM ITEM z , PMO010 SCR WK3,PAS STORE IN ASSIGN BLOCK P ADKL OP2A,1 INCR ADD P ADKL PAS,1 INCR ADD
0x102d00…1b0680 [0x5d3]: Pad {f00=0x009b, f01=0x412c, f02=»ADY ~ $ P LDK WK3,/20 FILL OUT WITH SPACE P RB MO010 4 P F P IFT PARM=TEST N PERR2 LDK WK1,2 ILLEGAL TYPE d P* RELEASE BUFFER P LDKL A8,DUMBUF P LKM P DATA -8,BUFPOL PERR ABL I:ERR ERROR PRINT P XIF
0x102d00…1b0680 [0x5d4]: Pad {f00=0x009b, f01=0x2008, f02=» ADK PAS,1 INCR ADD SUK WK1,1 COUNT MOVES $ RB(NZ) MOVE NOT READY B RTN PS ` p IFT PARM=TEST x ERR2 LDK WK1,2 ILLEGAL TYPE ERR ABL I:ERR ERROR PRINT XIF END @ Y WK1=NO OF CHAR
0x102d00…1b0680 [0x5d5]: Pad {f00=0x009b, f01=0x0190, f02=»^t @^r:H 2 * $H : D: P & X^z ' G G P 0 ' : W W W W W W D :W U Cc Xc Wc Dc 'c" , b , @'c" b @'c* c" , c* ) )6 Ab P P *Z P R E W @^nP W T
0x102d00…1b0680 [0x5d6]: Pad {f00=0x009b, f01=0x0190, f02=» Ab , _B )4 E W A) A) b T Q b P E P b T b T f @b ! T Ab P @b R P @b P e P P P V @b ! T P U U W" ! P P U
0x102d00…1b0680 [0x5d7]: Pad {f00=0x009b, f01=0x0190, f02=»Q W % # T W @b 3 T <D P _ A( A( ( 9 _ P" 6 !0 R !9 Q % _D _L @b T b W @b A( ( Q W. 6 !- P !+ T *Z P P @b Y =h 9 W @b T f @b # P P, 6 !
0x102d00…1b0680 [0x5d8]: Pad {f00=0x009c, f01=0x018e, f02=» EJECT T:DIS1 T:DIS1 T:DIS1 T:DIS1 P* 6 P* DISPLACEMENTS TO FCB @ P* ` P* j PFCBSPP EQU 26 SAVED PP t P* * PFCBP1A EQU 28 OP2A FOR INP/OUTP STRING PFCBP1E EQU 30 OP2E PFCBP1T EQU 32 OP2T P* 4 PFC
0x102d00…1b0680 [0x5d9]: Pad {f00=0x009c, f01=0x0006, f02=»
0x102d00…1b0680 [0x5da]: Pad {f00=0x009c, f01=0x0190, f02=» " P IDENT T:IASS UPD 78-03-10/ST P REL 78-04-01 #3.1 * P UPD 78-01-17/ST F P ORG 78-01-10/ST ` P z @ P*********************************************************** @ P* * P
0x102d00…1b0680 [0x5db]: Pad {f00=0x009c, f01=0x0190, f02=» DATA FILE * p @ P* * " @ P*********************************************************** f P P ENTRY T:IASS P P " P EXTRN I:EVA0 EVALUATE ADDRESS , P EXTRN I:RT1
0x102d00…1b0680 [0x5dc]: Pad {f00=0x009c, f01=0x0190, f02=» T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG P* H $ P* CONDITIONAL ASSEMBLY FLAGS: R P* z P PCOMP EQU 855 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST P T P EJECT T:IASS T:ASG T:ASG T
0x102d00…1b0680 [0x5dd]: Pad {f00=0x009c, f01=0x0190, f02=»EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER PWK3 EQU A3 WORK REGISTER < PWK4 EQU A4 DITO , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER t POP1E EQU A6 OPERAND 1 END ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR " POP2A EQU A9 OPERAND 2 AD
0x102d00…1b0680 [0x5de]: Pad {f00=0x009c, f01=0x0190, f02=» P* NON-TEMPORARY REGISTERS: P* , P 6 PPP EQU A12 PROGRAM POINTER > PPS EQU A14 STACK POINTER ` PTCA EQU A13 TCA BASE ADDRESS P P* P* LOCAL REGISTERS: P* P PNV EQU A7 NO OF VOLUMES $ PPAS EQ
0x102d00…1b0680 [0x5df]: Pad {f00=0x009c, f01=0x0190, f02=» TERMINAL STACK BASE DISPLACEMENT: P* * P 4 PSTKB EQU 2 < PSTKE EQU -2 N P b P* j P* DATA SET DISPLACEMENTS: t P* P PECBBA EQU 2 PECBRL EQU 4 PECBEL EQU 6 PECBST EQU 8 PECBCW EQU 10 $
0x102d00…1b0680 [0x5e0]: Pad {f00=0x009c, f01=0x0190, f02=»EX>ITEM (CTL WD) ~ & PDSCBRI EQU 18 DATA RECIEVING ITEM P B PDSCBL EQU 20 LENGTH OF DSCB J P* n P* x P* & PMAXVOL EQU 4 MAX NUMBER OF VOLUMES P P P* BIT VALUES: P P 2 PBUFBIT EQU X'40' BUFFER ALLOCA
0x102d00…1b0680 [0x5e1]: Pad {f00=0x009c, f01=0x0190, f02=»METIC BIT z PNUMBIT EQU X'20' NUMERIC BIT T P EJECT T:IASS T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG 6 P* P* BUFFER POOL P* 2 PBUFPOL DATA BUFFRS,2 BUFFER POOL CONTROL BLOCK PBUFFRS DATA POLEND PDU
0x102d00…1b0680 [0x5e2]: Pad {f00=0x009c, f01=0x0190, f02=» * PIXFIL DATA 0,0,0,0 NAME OF INDEX FILE PVOLNAM DATA 0,0,0 VLUME NAME 2 . PMIFIL DATA 0,0,0,0 MASTER INDEX FILE NAME V P* P* " PRCINX DATA 0 ADD TO <RC> ITEM T P EJECT T:IASS T:ASG T:ASG T:ASG T:ASG T:ASG T:ASG
0x102d00…1b0680 [0x5e3]: Pad {f00=0x009c, f01=0x018e, f02=» ` P* PT:IASS EQU * P* & P* GET BUFFER 0 & P* PREVENT ANOTHER TASK TO ASSIGN F P LDK A7,1 NO OF BUFFERS p P LKM P DATA -7,BUFPOL * P CF PS,T:FDSP FETCH DATASET PARAMETERS P LDR* WK1,A8 GET FILE CODE " P SC WK
0x102d00…1b0680 [0x5e4]: Pad {f00=0x009c, f01=0x0190, f02=» v P SUK OP2T,NUMBIT BINARY? P RF(NZ) ERR2 NO;ILLEGAL TYPE ( P XIF L * P ST OP2A,RCINX SAVE ADDRESS <RC> ITEM X $ P CF PS,I:EVA0 GET <FN> FILE NAME P IFT PARM=TEST $ P ANK OP2T,ARITHB+NUMBIT STRING? P RF(NZ) ERR2 NO;ILLEGAL TYPE
0x102d00…1b0680 [0x5e5]: Pad {f00=0x009c, f01=0x0190, f02=» * P CF PS,MOVE <FN> ITEM TO ASSIGN BLOCK P EJECT T:IASS 2 0 P CF PS,I:EVA0 GET NAME OF MASTER INDEX FILE J P IFT PARM=TEST ~ $ P ANK OP2T,ARITHB+NUMBIT STRING? P RF(NZ) ERR2 NO:ILLEGAL TYPE P XIF " P SUR OP2E,OP2A COMPUTE LENGTH
0x102d00…1b0680 [0x5e6]: Pad {f00=0x009c, f01=0x0190, f02=» , P CF PS,I:EVA0 GET ITEM <VN> VOLUME NAME P IFT PARM=TEST 4 $ P ANK OP2T,ARITHB+NUMBIT STRING? J P RF(NZ) ERR2 NO;ILLEGAL TYPE r P XIF " P SUR OP2E,OP2A COMPUTE LENGTH P LDK WK1,6 NO OF MOVE , P LDKL PAS,VOLNAM ADDRESS TO ASSIGN B
0x102d00…1b0680 [0x5e7]: Pad {f00=0x009c, f01=0x0190, f02=»LK P LKM P DATA 16 P* & P* 0 > P* SET CONDITION REGISTER (CR) CR=0 ASSIGMENT PERFORMED : < P* CR=2 ASSIGMENT REFUSED | P* P* P LDK WK1,0 CR=0 P LDR A7,A7 & P RF(Z) ASS030 AS
0x102d00…1b0680 [0x5e8]: Pad {f00=0x009c, f01=0x0190, f02=» CONDITION | P* P* SET RESULT OF ASSIGMENT P* > $ P LD WK1,RCINX ADDRESS <RC> ITEM H 6 P STR A7,WK1 STORE RESULT OF ASSIGMENT IN <RC> ITEM p P* P* RELEASE BUFFER P* P LDKL A8,DUMBUF P LKM P DATA -8,BUFPO
0x102d00…1b0680 [0x5e9]: Pad {f00=0x009c, f01=0x0190, f02=»G T:ASG L P* 2 P* MOVE - MOVE CURRENT ITEM TO ASSIGN BLOCK P* AT ENTRY WK1=NO OF CHAR T P* x PMOVE EQU * $ P LCR WK3,OP2A GET CHAR FROM ITEM , PMO010 SCR WK3,PAS STORE IN ASSIGN BLOCK P ADKL OP2A,1 INCR ADD P
0x102d00…1b0680 [0x5ea]: Pad {f00=0x009c, f01=0x4146, f02=» t P RB(P) MOVE NOT READY $ P LDK WK3,/20 FILL OUT WITH SPACE & P RB MO010 N P ` P IFT PARM=TEST h PERR2 LDK WK1,2 ILLEGAL TYPE ~ P* RELEASE BUFFER P LDKL A8,DUMBUF P LKM P DATA -8,BUFPOL PERR ABL I:ERR ERRO
0x102d00…1b0680 [0x5eb]: Pad {f00=0x009c, f01=0x2008, f02=» ADK PAS,1 INCR ADD SUK WK1,1 COUNT MOVES $ RB(NZ) MOVE NOT READY B RTN PS ` p IFT PARM=TEST x ERR2 LDK WK1,2 ILLEGAL TYPE ERR ABL I:ERR ERROR PRINT XIF END @ Y WK1=NO OF CHAR
0x102d00…1b0680 [0x5ec]: Pad {f00=0x009c, f01=0x0190, f02=» V 6P $ - _ ( 2 / "!@P C B R & % _ W / W V I C B C W C B B P C ( ' P f I : 2 W 2 & C & X C W*781"&$ 3 B 'Wp (
0x102d00…1b0680 [0x5ed]: Pad {f00=0x009c, f01=0x0190, f02=» B T T T V : 6 2 #? 2' ;D : C : l l l P $ * R . B B B B 4 T v 4 . < @ , V P V 7 H @ R V pVP 9c D
0x102d00…1b0680 [0x5ee]: Pad {f00=0x009c, f01=0x0190, f02=»P L DP " 2 P V D ! R T P|_l 8^: D ! Pf D RP` 6 7_* 2 # PJ L FPD 2" &]P ^V $! 6P Q $ T P D DP _r _b _| _ _ 6 7 _ 2 6 " # ;b L ; V $ H %W %W
0x102d00…1b0680 [0x5ef]: Pad {f00=0x009c, f01=0x0190, f02=» H (;AR H & z ;AV: Z H # ; 6 : & & Z 4 : ,P T 4W P : 4 ( ; V Y : W # " T & T + : * &
0x102d00…1b0680 [0x5f0]: Pad {f00=0x009c, f01=0x40e2, f02=» I:RT1 E , ( $ @ " % ( & # F I:ERR F @ , ( T : Y _ ( F P F 4 0 ?T KTz W _Tf k sTR P T F F @ F
0x102d00…1b0680 [0x5f1]: Pad {f00=0x009c, f01=0x0002, f02=»
0x102d00…1b0680 [0x5f2]: Pad {f00=0x009c, f01=0x0190, f02=» " P IDENT T:DMI0 UPD 78-03-15/ST P REL 78-04-01 #3.1 * P UPD 78-01-11/ST F P ORG 78-01-10/ST ` P z . P***************************************** . P* * . P* CREDIT ASSEMBLER SUBROUTINE ENTRI
0x102d00…1b0680 [0x5f3]: Pad {f00=0x009c, f01=0x0190, f02=» INDEXED RANDOM READ $ P ENTRY IRNEXT INDEXED READ NEXT " P ENTRY IRWRIT INDEXED REWRITE D P ENTRY IINS INDEXED INSERT j P P EXTRN T:IRE1 P EXTRN T:IRN1 P EXTRN T:IRW1 P EXTRN T:INS1 P EXTRN T:FDS0 P* (
0x102d00…1b0680 [0x5f4]: Pad {f00=0x009c, f01=0x018e, f02=» t P* P PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER < P* P* BIT VALUES f P* | PWAITBT EQU X'80' WAIT-BIT ( PEBIT EQU X'40' EXCLUSIVE ACCESS BIT P EJECT T:DMI0 P* P* DATA MANGEMENT
0x102d00…1b0680 [0x5f5]: Pad {f00=0x009c, f01=0x40d6, f02=» " P ABL T:IRN1 INDEXED READ NEXT PIRWRIT EQU * . P CF PS,T:FDS0 B P ABL T:IRW1 INDEXED REWRITE X PIINS EQU * | P CF PS,T:FDS0 P ABL T:INS1 INDEXED INSERT P END @ JECT T:DMI0 P* P* DATA MANGEMENT
0x102d00…1b0680 [0x5f6]: Pad {f00=0x009c, f01=0x2008, f02=» ABORT ABL T:ABOR ABORT REQUEST ( #GETTID ABL T:GETI GET TASK IDENTITY 0 END d@ p T ABL T:RREA1 z $ RWRTE CF PS,T:FDSP RANDOM WRITE ABL T:RWRT1 " SWITCH ABL T:SWIT SWITCH TASK DELAY ABL T:DELA D
0x102d00…1b0680 [0x5f7]: Pad {f00=0x009c, f01=0x4118, f02=» 2 F IDENT T:MSK0 VER=T,REL=3.0,DATE=78-03-03 M MASKY M : MASKY M J I:EVA0 M , ( @ #0 T #0 T V M n I:RT1 M M I:ERR M # M T T M (
0x102d00…1b0680 [0x5f8]: Pad {f00=0x009d, f01=0x0190, f02=» T B 9 R 9 N ! T T:CASP ( T:CLRD : , ( _ o C Q " T L , ( N ! N N ! n | , ( Y O _ N "@P B R o , ( C B P 9 V _F9 V N ! ,
0x102d00…1b0680 [0x5f9]: Pad {f00=0x009d, f01=0x0006, f02=»
0x102d00…1b0680 [0x5fa]: Pad {f00=0x009d, f01=0x0190, f02=» " P IDENT T:DMI UPD 78-04-20/ST P UPD 78-04-20/ST * P UPD 78-04-19/ST D P UPD 78-03-15/ST ^ P REL 78-04-01 #3.1 x P UPD 78-01-18/ST P ORG 78-01-09/ST P UPD 78-01-11/ST 0 P****************************************
0x102d00…1b0680 [0x5fb]: Pad {f00=0x009d, f01=0x0190, f02=» * l 0 P* IREAD - INDEXED RANDOM READ * 0 P* IRNEXT - INDEXED READ NEXT * D . P* IRERITE - INDEXED REWRITE * x . P* IINS - INDEXED INSERT * 0 P* *
0x102d00…1b0680 [0x5fc]: Pad {f00=0x009d, f01=0x018e, f02=» | P ENTRY T:IINS,T:INS1 P* $ " P EXTRN I:EVA0 EVALUATE ADDRESS . . P EXTRN I:RT1 RETURN TO INTERPRETER (I:NTP) T . P EXTRN I:FML GET FORMAL PARAMETER ADDRESS $ P EXTRN I:ERR ERROR PRINT ROUTINE * P EXTRN T:FDSP FETCH DATASET PARAMETERS
0x102d00…1b0680 [0x5fd]: Pad {f00=0x009d, f01=0x0190, f02=» P* " P* CONDITIONAL ASSEMBLY FLAGS P* 4 PCOMP EQU 855 > PTEST EQU 1 R PNOTEST EQU 0 d PPARM EQU TEST x P* P* ERROR CODES: P* PERR19 EQU 19 P EJECT T:DMI P* & P* TEPORARY INTERPRETER REGI
0x102d00…1b0680 [0x5fe]: Pad {f00=0x009d, f01=0x0190, f02=»K REGISTER ( POP1A EQU A10 OPERAND 1 START ADDRESS & POP1E EQU A6 OPERAND 1 END ADDRESS > POP1T EQU A4 OPERAND 1 TYPE h ( POP2A EQU A9 OPERAND 2 START ADDRESS & POP2E EQU A5 OPERAND 2 END ADDRESS POP2T EQU A3 OPERAND 2 TYPE POPCD EQU
0x102d00…1b0680 [0x5ff]: Pad {f00=0x009d, f01=0x0190, f02=»QU A14 STACK POINTER PTCA EQU A13 TCA STACK BASE P EJECT T:DMI > P* T $ P* TERMINAL STACK DISPLACEMENT: ^ P* PSTKB EQU 2 PSTKE EQU -2 P* P* DATASET DISPLACEMENTS: P* PECBBA EQU 2 BUFFER ADDRESS
0x102d00…1b0680 [0x600]: Pad {f00=0x009d, f01=0x0190, f02=»WORD 1 v $ PECBCW2 EQU 12 ECB CONTROL WORD 2 PDSCBLN EQU 14 <LENGTH> ITEM 6 PDSCBIX EQU 16 <INDEX> ITEM Z & PDSCBRI EQU 18 DATA RECIEVING ITEM | P PDSCBL EQU 20 LENGTH OF DSCB P EJECT T:DMI P* P* BIT DEFINITIONS:
0x102d00…1b0680 [0x601]: Pad {f00=0x009d, f01=0x0190, f02=»IT BIT (REQUEST) | $ PARITHB EQU X'10' ARITHMETIC BIT PNUMBIT EQU X'20' NUMERIC BIT @ P* d P* ORDER DEFINITIONS: n P* $ PIRR EQU /1A INDEXED RANDOM READ PIRWR EQU /1B INDEXED REWRITE PIINS EQU /1D INDEXED INSERT " PIRN
0x102d00…1b0680 [0x602]: Pad {f00=0x009d, f01=0x0190, f02=»:FDSP FETCH DATASET PARAMETERS PT:IRE1 EQU * & 0 P CF PS,CRFIRR COMMON FOR INDEXED RANDOM READ : & P CF PS,KEYHDL HANDLE SOMBOLIC KEY n P ORK A7,IRR ORDER P IFT PARM=TEST P LCR WK1,A8 P ANK WK1,BUFBIT FIX BUFFER? P RF(Z) *+8
0x102d00…1b0680 [0x603]: Pad {f00=0x009d, f01=0x0190, f02=»UEST v P EJECT T:DMI P* " P* INDEXED READ NEXT , P* H PT:IRNE EQU * R P CF PS,T:FDSP f PT:IRN1 EQU * | 0 P CF PS,CRFIRR COMMON FOR INDEXED RANDOM READ P ORK A7,IRN ORDER P IFT PARM=TEST P LCR WK1,A8 P A
0x102d00…1b0680 [0x604]: Pad {f00=0x009d, f01=0x0190, f02=»ERFORM I/O REQUEST P EJECT T:DMI P* 0 P* INDEXED REWRITE : P* T PT:IRWR EQU * ^ * P CF PS,T:FDSP FETCH DATASET PARAMETERS r PT:IRW1 EQU * " P CF PS,RITEM GET AREA ADDRESS , P CF PS,T:STCW STORE <RECNO> IN CW-FIELD P
0x102d00…1b0680 [0x605]: Pad {f00=0x009d, f01=0x018e, f02=»,ERR19 P ABL I:ERR ERROR ROUTINE P XIF . " P ABL T:IO1 PERFORM I/O REQUEST : P EJECT T:DMI ` P* v P* INDEXED INSERT P* PT:IINS EQU * * P CF PS,T:FDSP FETCH DATASET PARAMETERS PT:INS1 EQU * P CF PS,RITEM
0x102d00…1b0680 [0x606]: Pad {f00=0x009d, f01=0x0190, f02=» P XIF * P ST OP2A,DSCBLN,A8 STORE <NRR> ADDRESS P ORK A7,IINS ORDER B P IFT PARM=TEST P LCR WK1,A8 r P ANK WK1,BUFBIT FIX BUFFER? P RF(Z) *+8 NO! P LDK WK1,ERR19 P ABL I:ERR ERROR ROUTINE P XIF P ABL T:I
0x102d00…1b0680 [0x607]: Pad {f00=0x009d, f01=0x0190, f02=»PS,RITEM GET <AREA> ADDRESS P LDR OP1E,OP2E SAVE $ P CF PS,I:EVA0 GET <LENGTH> @ P IFT PARM=TEST b P ANK OP2T,ARITHB+NUMBIT x P SUK OP2T,NUMBIT BINARY? " P RF(NZ) ERR2 NO:ILLEGAL TYPE! , P CWR* OP1E,OP2A ILLEGAL REQUESTED LENGTH
0x102d00…1b0680 [0x608]: Pad {f00=0x009d, f01=0x0190, f02=»UFFER LENGTH ( P ST WK1,ECBRL,A8 STORE RECORD LENGTH P RTN PS @ P* P " P* RITEM - GET <AREA> ADDRESS Z P* PRITEM EQU * , P CF PS,I:EVA0 GET <ITEM> BUFFER ADDRESS P IFT PARM=TEST P ANK OP2T,ARITHB+NUMBIT P RF(NZ
0x102d00…1b0680 [0x609]: Pad {f00=0x009d, f01=0x0190, f02=»E IN ECB z P RTN PS P EJECT T:DMI P* 6 $ P* KEYHDL - HANDLE SYMBOLIC KEY @ P* h PKEYHDL EQU * r $ P CF PS,I:EVA0 GET <KEY> ADDRESS P IFT PARM=TEST P ANK OP2T,ARITHB+NUMBIT P RF(NZ) ERR2 P XIF ( P ST OP
0x102d00…1b0680 [0x60a]: Pad {f00=0x009d, f01=0x40be, f02=»FT PARM=TEST PERR2 LDK WK1,2 ILLEGAL TYPE P RF ERR 8 , PERR5 LDK WK1,5 ILLEGAL REQUESTED LENGTH H & PERR ABL I:ERR ERROR PRINT ROUTINE x P XIF P END @ P ANK OP2T,ARITHB+NUMBIT P RF(NZ) ERR2 P XIF ( P ST OP
0x102d00…1b0680 [0x60b]: Pad {f00=0x009d, f01=0x2008, f02=» ILLEGAL TYPE " ABL I:ERR ERROR PRINT ROUTINE XIF D END P@ QU * X $ CF PS,I:EVA0 GET <KEY> ADDRESS l IFT PARM=TEST ANK OP2T,ARITHB+NUMBIT RF(NZ) ERR2 XIF ( $ ST OP2A,ECBCW1,A8 STORE KEY ADD
0x102d00…1b0680 [0x60c]: Pad {f00=0x009d, f01=0x0190, f02=»
0x102d00…1b0680 [0x60d]: Pad {f00=0x009d, f01=0x0190, f02=»
0x102d00…1b0680 [0x60e]: Pad {f00=0x009d, f01=0x0190, f02=»
0x102d00…1b0680 [0x60f]: Pad {f00=0x009d, f01=0x0190, f02=» 8 0 + ,0 -.,@ W A A 1 2# 3# 0 0 2 0 32 36 _4) ? M+ ? ) ? J! + WO
0x102d00…1b0680 [0x610]: Pad {f00=0x009d, f01=0x0190, f02=» 2 F IDENT I:EDT VER=T,REL=3.0,DATE=78-03-03 v F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:EFLI I:ETABL I:EXIT I:ETXT v : F B I:ECPY I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC` I:EFIL I:EPICN v , ( !! gg++ v , ( ! L
0x102d00…1b0680 [0x611]: Pad {f00=0x009d, f01=0x0024, f02=» ( 0 8 @
0x102d00…1b0680 [0x612]: Pad {f00=0x009d, f01=0x0190, f02=» & P IDENT TRACON UPD 78-03-29/ULJO P REL 78-04-01 #3.1 . P UPD 78-03-29/ULJO J P REL 78-03-03 #3.0 f P UPD 78-02-22/ULJO P UPD 77-01-22 #2/ST 4 P*********************************************** P* P* TRACON:
0x102d00…1b0680 [0x613]: Pad {f00=0x009d, f01=0x0190, f02=»RACON TRACON TRACON 0 P******************************************** " P* V P* ENTRIES AND EXTERNALS ` P* 0 P******************************************* $ P ENTRY I:INIT TRACON START ENTRY $ P ENTRY T:BPCB BUFFE NTROL BLOCK
0x102d00…1b0680 [0x614]: Pad {f00=0x009d, f01=0x0190, f02=»NTRY OF INTERPRTER v ( P EJECT TRACON TRACON TRACON 2 P********************************************** F P* | P* TASK CONTROL TABLE LAYOUT P* 2 P********************************************** PDTADR EQU -8 POINTER TO T:D
0x102d00…1b0680 [0x615]: Pad {f00=0x009d, f01=0x0190, f02=»NTER | PSTKSIZ EQU 2 STACK SIZE PSTB EQU 2 STACK BASE , & PWAT EQU 4 WORK BLOCK ADDRESS TABLE H ( P EJECT TRACON TRACON TRACON r 2 P********************************************** P* $ P* DATA SET CONTROL BLOCK LAYOUT P*
0x102d00…1b0680 [0x616]: Pad {f00=0x009d, f01=0x0190, f02=» EQU 4 REQUESTED LENGTH " PDSCBEL EQU 6 EFFECTIVE LENGTH PDSCBRC EQU 8 RETURN CODE F PDSCBC1 EQU 10 CONTROL WORD 1 f PDSCBC2 EQU 12 CONTROL WORD 2 & PDSCBLN EQU 14 LENGTH ITEM ADDRESS $ PDSCBIX EQU 16 INDEX ITEM ADDRESS ( PDSCBRI EQU
0x102d00…1b0680 [0x617]: Pad {f00=0x009d, f01=0x018e, f02=»* P* DESCRIPTOR BLOCK LAYOUT P* , 4 P*********************************************** 6 $ PDATLEN EQU 4 NUMBER OF DATASETS n & PWATLEN EQU 6 NUMBER OF WORKBLOCKS PTWBMSK EQU 8 MASK FOR TWB:S PDWBMSK EQU 14 MASK FOR DWB:S , PSW
0x102d00…1b0680 [0x618]: Pad {f00=0x009e, f01=0x0190, f02=» j ( P EJECT TRACON TRACON TRACON 6 P************************************************** 4 P* n " P* DISPLACEMENT IN VOLUME LABEL x P* 6 P************************************************** PVL:VL EQU 6 VTOC-LENGTH PVL:VB EQ
0x102d00…1b0680 [0x619]: Pad {f00=0x009e, f01=0x018e, f02=»******************************** ~ P* ( " P* DISPLACEMENT IN VTOC-RECORD 2 P* X 6 P************************************************** b PVT:FN EQU 0 FILE NAME " PVT:FEB EQU 18 FILE EXTENT BASE $ PVT:LRN EQU 22 LAST-RECORD-NUMBER PVT
0x102d00…1b0680 [0x61a]: Pad {f00=0x009e, f01=0x0190, f02=» j ( P EJECT TRACON TRACON TRACON 2 P********************************************** 4 P* j P* MISCELLANOUS EQUATES t P* 2 P********************************************** 2 PDSCBL EQU 20 LENGTH OF DATA SET CONTROL BLOCK , PDS
0x102d00…1b0680 [0x61b]: Pad {f00=0x009e, f01=0x018e, f02=»OP p 6 PCHCR EQU /0E DEVICE ADDRESS FOR CASSETTE TAPE UNIT 2 PFDDV EQU /09 DEVICE ADR FOR FLEXIBLE DISC UNIT D 2 PFDIOP EQU FDDV+FDDV MUX. ADR FOR FLEXIBLE DISC z > PMXCC EQU /80CD 1ST WER INST.;CONTROL BITS AND REQ. LENGTH 2 PFDMC EQU /0511 LDK A5,11
0x102d00…1b0680 [0x61c]: Pad {f00=0x009e, f01=0x0190, f02=» : PIPLPC EQU /1E DISPLACEMENT IN IPL-PROGRAM TO MUX INST. 8 PCVTSBA EQU /8A START OF FREE AREA AFTER APL-PROGRAM B 8 PCVTEBA EQU /8C END OF FREE AREA BEFORE MONITOR TABLE ~ & PWBLEN EQU -4 LENGTH OF WORK BLOCK " PUBLEN EQU -2 LENGTH OF U:BTAB $ P
0x102d00…1b0680 [0x61d]: Pad {f00=0x009e, f01=0x0190, f02=»QU 10 DISPL. OF 2:ND FCB DSET ( P EJECT TRACON TRACON TRACON & 4 P*********************************************** R P* P* CALL DEFINITION P* P* DATA USED IN APPLICATION P* 2 P**************************************
0x102d00…1b0680 [0x61e]: Pad {f00=0x009e, f01=0x0190, f02=»ENDCON POINTER TO RUNTIME TCATAB ( P EJECT TRACON TRACON TRACON ( 6 P************************************************* T P* P* PHASE 6: TASK ACTIVATION P* < P* NOTE: BUFFER AREA MUST NOT OVERLAP THIS CODE SEQUENCE P*
0x102d00…1b0680 [0x61f]: Pad {f00=0x009e, f01=0x0190, f02=» LDR* A3,A2 GET NUMBER OF POINTERS PTRA610 EQU * * $ P SUK A3,1 ALL TASKS ACTIVATED ? > P RF(N) TRA630 YES f P ADK A2,2 NEXT POINTER $ P LDR* A13,A2 GET ADDRESS TO T:A ( P LD A11,DTADR,A13 GET ADDRESS TO T:D $ P LDR A10,A11 SAVE ADDRES
0x102d00…1b0680 [0x620]: Pad {f00=0x009e, f01=0x0190, f02=» EVEN ADDRESS | * P LDR* A4,A10 GET NUMBER OF STARTPOINTS P LD A7,TID,A13 GET TID D PTRA620 EQU * b P ADKL A10,2 NEXT STARTPOINT v " P LDR* A1,A10 GET START-ADDRESS P LKM P DATA -4 P DATA I:NTPA ACTIVATE TASK " P SUK A4,1 MO
0x102d00…1b0680 [0x621]: Pad {f00=0x009e, f01=0x018e, f02=»****************************** | P* & P* EXIT OF RUNNING TASK 0 P* N P* RUNNING OF TRACON IS ENDED X P* | 6 P************************************************** PTRA630 EQU * P LKM P DATA 3 ( P EJECT TRACON TRACON
0x102d00…1b0680 [0x622]: Pad {f00=0x009e, f01=0x0190, f02=» 6 P************************************************** PALLBUF EQU * > ( P LD A2,BASE GET START OF BUFFER AREA R " P LD A3,CVTEBA GET END OF DITO ~ P ADK A2,1 , P ANKL A2,/FFFE MAKE SURE OF EVEN ADDRESS P* 8 P* MAKE SURE ALLOCATION ST
0x102d00…1b0680 [0x623]: Pad {f00=0x009e, f01=0x0190, f02=» A2,A1 NEGATIVE ADDRESSES ? 0 P RF(N) *+6 YES; BYPASS NEXT TWO INSTRUCTIONS $ 0 P CWR A2,A1 ALLOCATION STARTS BEYOND LIMIT ? X $ P RF *+4 BYPASS NEXT INSTRUCTION 0 P CWR A1,A2 ALLOCATION STARTS BEYOND LIMIT ? , P RF(G) *+4 YES; BYPASS NEXT INSTRU
0x102d00…1b0680 [0x624]: Pad {f00=0x009e, f01=0x0190, f02=» INCREMENT ADDRESS ( P EJECT TRACON TRACON TRACON P* F P* ALLOCATE BUFFERS P P* l PBUFALL EQU * v P SRL A2,1 CONVERT TO WORDS P SRL A3,1 DITO P LDR A1,A2 SAVE PBUFLOP EQU * P CWR A2,A3 COMPARE ADDRESSES
0x102d00…1b0680 [0x625]: Pad {f00=0x009e, f01=0x0190, f02=» ? z P IM ABUFNO INCREMENT COUNTER P RB BUFLOP . PENDLOP EQU * @ , P LDR A2,A1 LAST RESERVED BUFFER ADDRESS T P SLL A2,1 CONVERT TO BYTES P CMR A2 CLEAR LAST LINK P ADK A2,1 SET BIT 15 4 P ST* A2,POOL1 STORE ADDRESS TO LAST RES.
0x102d00…1b0680 [0x626]: Pad {f00=0x009e, f01=0x018e, f02=»A1,RBUFNO COMPARE WITH REQUESTED NUMBER $ P ABL(L) ERRMEM NOT ENOUGH MEMORY 0 P LKM X P DATA -8,POOL1 d $ P RB TRA600 CONTINUE WITH PHASE 6 z PMEMALL EQU * ( P EJECT TRACON TRACON TRACON 8 P****************************************
0x102d00…1b0680 [0x627]: Pad {f00=0x009e, f01=0x0190, f02=» $ P* -EXTINGUISH LOAD LAMP (LAMP 1) " P* -REWIND AND UNLOCK CASSETTE , P* -EXIT FROM TRACON R P* n 2 P* THE LAMPS ARE ENUMERATED FROM LEFT TO RIGHT x P* P* LAMP 1 LOAD LAMP " P* LAMP 2 MEMORY CORE OVERFLOW 8 P* LAMP 3 CONFIGURA
0x102d00…1b0680 [0x628]: Pad {f00=0x009e, f01=0x0190, f02=» ERROR x P* LAMP 7 RESERVED P* LAMP 8 RESERVED ( P* LAMP 9 RESERVED B P* LAMP 10 RESERVED P* v 8 P*************************************************** ( P EJECT TRACON TRACON TRACON PERRMEM LDKL A1,/0200 P RF ER
0x102d00…1b0680 [0x629]: Pad {f00=0x009e, f01=0x0190, f02=»R100 PERRUWB LDK A1,/20 PERR100 EQU * & P OTR A1,0,SOP : P LD A1,CASS P P RF(Z) ERR110 NOT CASSETTE d P LDK A1,/F UNLOAD ORDER P CALL CIOST UNLOAD CASSTTE PERR110 ENB ENABLE INTERRUPT P ABL TRA630 EXIT @ P******
0x102d00…1b0680 [0x62a]: Pad {f00=0x009e, f01=0x0190, f02=»1 - CIO COMMAND CODE P* OUTPUT: A3 - STATUS P* : 4 P************************************************ D PCIOST CIO A1,1,CHCR | P SST A3,CHCR P RB(NA) CIOST P RTN A14 ( P EJECT TRACON TRACON TRACON 8 P************
0x102d00…1b0680 [0x62b]: Pad {f00=0x009e, f01=0x0190, f02=»********************** r . PENDCON DATA EOP END OF APPLICATION PROGRAM * PDSCBAD DATA 0 DESCRIPTOR BLOCK ADDRESS P , PCD:UWB DATA 0 ADDRESS TO UWB DATA TABLE ~ 6 PCD:TDD DATA 0 ADDRESS TO TERMINAL DEF. DATA TABLE , PRBUFNO DATA 0 NUMBER OF REQUIRED B
0x102d00…1b0680 [0x62c]: Pad {f00=0x009e, f01=0x0190, f02=» ON CONFIGURATION CASSETTE r ( PCOUNT DATA 0 NO OF CHAR. TO ALLOCATE " PSAVE1 DATA 0 SAVE AREA N 0 PINDEX DATA 0 COUNT NUMBER OF TASKS IN CLASS l . PSWITCH DATA 0 INDICATE LAST TASK IN CLASS , PCASS DATA 0 CASSETTE USED AS LOAD DEVICE 2 PDVTAB DA
0x102d00…1b0680 [0x62d]: Pad {f00=0x009e, f01=0x0190, f02=»R CONFIG. FILE l * PBFAK DATA 0 SAVE AREA FOR BLOCK FACTOR P RES 8 D & PSTACK EQU *-2 STACK USED IN TRACON R PBUFMIN EQU * | ( P EJECT TRACON TRACON TRACON 8 P*************************************************** P* 2 P* MOVE:
0x102d00…1b0680 [0x62e]: Pad {f00=0x009e, f01=0x0190, f02=»* A3 - TO-ADDRESS P* P* OUTPUT: NONE $ P* : P* WORK REGISTERS: A4 D P* ` 8 P**************************************************** j PMOVE EQU * P ADR A2,A1 END OF FROM-AREA P ADR A3,A1 END OF TO-AREA PMOV050 EQU *
0x102d00…1b0680 [0x62f]: Pad {f00=0x009e, f01=0x0190, f02=»READY ( P CALL EOMCHK CHECK IF END OF MEMORY P LCR A4,A2 GET CHARACTER : P SCR A4,A3 STORE CHARACTER Z P RB MOV050 NEXT | PMOVRTN RTN A14 ( P EJECT TRACON TRACON TRACON : P****************************************************
0x102d00…1b0680 [0x630]: Pad {f00=0x009e, f01=0x0190, f02=»6 - ADDRESS TO FIRST CHARACTER P* & P* OUTPUT: A5 - BINARY VALUE 0 P* T P* WORK REGISTER: A3,A4 ^ P* | : P****************************************************** PGETNUM EQU * P LDK A4,100 FIRST INCREMENT & P LDK A5,0 RESE
0x102d00…1b0680 [0x631]: Pad {f00=0x009e, f01=0x0190, f02=» GET CHARACTER " P ANK A3,/F MASK AWAY ZONE PART PGET050 EQU * < P SUK A3,1 P & P RF(N) GET100 THIS DIGIT IS READY b , P ADR A5,A4 INCREMENT BINARY ACCUMULATOR P RB GET050 PGET100 EQU * $ P SUK A4,90 NEXT INCREMENT IS 10 P
0x102d00…1b0680 [0x632]: Pad {f00=0x009e, f01=0x0190, f02=»N TRACON x < P******************************************************** P* T 4 P* UPDBAS: SUROUTINE TO CONTROL MEMORY ALLOCATION ^ P* P* INPUT: NONE P* P* OUTPUT: NONE P* P* WORK REGISTER: A3 P* 2 P* NO
0x102d00…1b0680 [0x633]: Pad {f00=0x009e, f01=0x0190, f02=»**************************************** PUPDBAS EQU * ! 0 P C2 COUNT NEGATE LENGTH ! D , P LD A3,CVTEBA GET END OF MEMORY ADDRESS ! d PUPD100 EQU * ! ( P CALL EOMCHK CHECK IF END OF MEMORY ! P IM BASE ALLOCATE THIS BYTE ! P IM COUNT INCREMEN
0x102d00…1b0680 [0x634]: Pad {f00=0x009e, f01=0x0190, f02=»****************** ! h P* " 8 P* EOMCHK: SUBROUTINE TO CHECK THAT THE MOVE TO " $ 8 P* ADDRESS IS GREATER THAN THE START OF " ` & P* ALLOCATION ADDRESS " P* " ( P* INPUT: A3 - MOVE TO ADDRESS " P* " P*
0x102d00…1b0680 [0x635]: Pad {f00=0x009e, f01=0x0190, f02=»** " X PEOMCHK EQU * # ( P LD A4,BASE GET START OF ALLOCATION # ( P TNM A3,A4 CHECK IF NEGATIVE ADDRESS # J P RF(N) *+6 YES! # v & P CWR A3,A4 COMPARE WHEN EQUAL SIGN # P RF *+4 # ( P CWR A4,A3 COMPARE WHEN UNEQUAL SIGN # " P ABL(NP) ERRMEM END OF
0x102d00…1b0680 [0x636]: Pad {f00=0x009e, f01=0x0190, f02=» P* $ " P* DCBAS: SUBROUTINE TO COMPUTE $ P* DATASET CONTROL BLOCK $ 4 P* AREA SIZE $ T P* $ h $ P* INPUT: A3 - NUMBER OF DATASETS $ r P* $ ( P* OUTPUT: A1 - SIZE OF DATASET AREA $ P* $ P* WORK REGISTER: A4 $ P* $ : P**********
0x102d00…1b0680 [0x637]: Pad {f00=0x009e, f01=0x018e, f02=»A4 $ x $ PDSCB10 SUK A3,1 DECREMENT NUMBER % P RF(Z) DSCB20 NO MOORE % 2 P ADR A1,A4 INCREMENT AREA % P P RB DSCB10 NEXT % r PDSCB20 RTN A14 % ( P EJECT TRACON TRACON TRACON % : P***************************************************** % P
0x102d00…1b0680 [0x638]: Pad {f00=0x009f, f01=0x0190, f02=» P* & * P* MAKE SURE THAT THERE IS NOT TWO T:A & " P* WITH IDENTICAL IDENTIFIERS & < P* & b ( P LD* A2,TCATAB GET ADDRESS TO TCATAB & l & P LDR* A1,A2 LOAD NUMBER OF ENTRIES & & P ADK A2,2 ADDRESS TO FIRST POINTER & PTRA510 EQU * & P LDR* A3,A
0x102d00…1b0680 [0x639]: Pad {f00=0x009f, f01=0x0190, f02=»ENTRIES & z & P ADK A4,2 ADDRESS TO FIRST POINTER ' PTRA520 EQU * ' : P LDR* A6,A4 LOAD T:A POINTER ' N & P LD A6,TID,A6 LOAD TID OF THIS T:A ' r P CWR A6,A3 SAME TID ? ' P RF(NE) TRA530 NO ' P CWR A2,A4 SAME T:A ? ' 2 P ABL(NE) ERRTID NO; NOT
0x102d00…1b0680 [0x63a]: Pad {f00=0x009f, f01=0x018e, f02=» A4,2 NEXT INNER LOOP ENTRY ' P RB TRA520 LOOP ( $ ( P EJECT TRACON TRACON TRACON ( < PTRA540 EQU * ( h & P SUK A1,1 DECR.OUTER LOOP COUNTER ( | " P RF(Z) TRA550 EXIT OUTER LOOP ( $ P ADK A2,2 NEXT OUTER LOOP ENTRY ( P RB TRA510 LOOP (
0x102d00…1b0680 [0x63b]: Pad {f00=0x009f, f01=0x0190, f02=» & P LDR* A1,A2 GET NUMBER OF ENTRIES ) " P SLL A1,1 CONVERT IT TO BYTES ) . " P ADK A1,2 INCLUDE LENGTH WORD ) T $ P LD A3,CVTEBA STORE NEW ADDRESS ) z $ P ANKL A3,/FFFE MAKE EVEN ADDRESS ) , P SUR A3,A1 RESERV CORE SPACE FOR TCATAB ) $ P ST A3,CVTEBA ST
0x102d00…1b0680 [0x63c]: Pad {f00=0x009f, f01=0x0190, f02=»RACON ) | P* * N P* LOOP THROUGH ALL T:A TO CHANGE WB-ADR IN WAT WHEN DUMMY WORK BLOCK(DWB) * " P* WITH HELP OF DWBMSK IN T:D * j P* * $ P LD A2,T:ATAB GET ADR TO TCATAB * & P LDR* A3,A2 GET NUMBER OF POINTERS * PTRA560 EQU * * $ P* LOOP TC
0x102d00…1b0680 [0x63d]: Pad {f00=0x009f, f01=0x0190, f02=» * v P LDR* A13,A2 ADR TO T:A + P LDR A7,A13 ADR + ( & P ADK A7,WAT-2 ... TO WAT-2 IN T:A + @ P LD A4,DTADR,A13 ADR TO T:D + j & P LD A5,WATLEN,A4 GET NUMBER OF WB + ( P ADK A4,DWBMSK ADR TO DWBMSK IN T:D + P* LOOP DWBMSK + PTRA565 SUK A5,1
0x102d00…1b0680 [0x63e]: Pad {f00=0x009f, f01=0x0190, f02=»6,A6 + * P LCR A6,A4 GET DWBMSK ELEMENT FROM T:D , P SLL A6,2 MAKE INDEX TO WAT , : $ P RB(Z) TRA565 'REAL' WORK BLOCK , ^ , P* CHANGE WB-ADR OF DUMMY ELEMENT IN WAT , P LDR A1,A13 ADR TO T:A , & P ADK A1,WAT-2 ADR TO WAT-2 IN T:A , & P ADR A1,A6 P
0x102d00…1b0680 [0x63f]: Pad {f00=0x009f, f01=0x0190, f02=» , ( P EJECT TRACON TRACON TRACON - PTRA200 EQU * - 4 0 P* MOVE TERMINAL DEFINITION DATA TO OVERLAP - H P* UWB PROCESSING CODE - | P* - 4 P LD A2,CD:TDD LOAD POINTER TO TERMINAL DEF. DATA - . P ABL(Z) ERRTID NO TERMINAL DEFINITION DATA -
0x102d00…1b0680 [0x640]: Pad {f00=0x009f, f01=0x0190, f02=»DRESS TO START OF UWB-PROCESSING - ~ ( P ST A3,CD:TDD UPDATE CD:TDD POINTER . ( P LDR A9,A3 SAVE TO-ADDRESS . T P ADR A3,A1 ADD LENGTH . v P ADK A3,1 . $ P ANKL A3,/FFFE MAKE EVEN ADDRESS . P ST A3,ENDCON UPDATE ENDCON . P LDK A4,0 CLEAR LENGTH .
0x102d00…1b0680 [0x641]: Pad {f00=0x009f, f01=0x0190, f02=»,ENDCON . P ADK A3,/98 MAKE SPACE / 4 P ST A3,CVTSBA UPDATE START OF BUFFER ALLOCATION / . ( P LDKL A1,MEMALL START OF ALLOCATION / f P ST A1,BASE / 4 P LD A6,CD:TDD LOAD POINTER TO TERMINAL DEF. DATA / P LDR* A7,A6 LOAD LENGTH / ( P ADK A6,2 TE
0x102d00…1b0680 [0x642]: Pad {f00=0x009f, f01=0x0190, f02=»LE / ` * P* AND SEARCH FOR PROTOTYPE IN T:ATAB 0 P* 0 8 PTRA210 EQU * 0 B * P LC A1,0,A6 GET FIRST IDENT CHARACTER 0 V P SLL A1,8 SHIFT TO LEFT BYTE 0 * P LC A1,1,A6 GET SECOND IDENT CHARACTER 0 ( P LDKL A12,T:ATAB GET T:ATAB ADDRESS 0 P LDR* A2
0x102d00…1b0680 [0x643]: Pad {f00=0x009f, f01=0x0190, f02=»13 T:A FOUND 0 P RF(E) TRA250 YES 1 P SUK A2,2 DECREMENT COUNTER 1 . . P ABL(Z) ERRTID NO T:A WITH THIS IDENTIFIER 1 R P RB TRA220 1 ( P EJECT TRACON TRACON TRACON 1 P* 1 P* T:A PROTOTYPE FOUND 1 P* 1 2 P* GET NUMBER OF TASKS
0x102d00…1b0680 [0x644]: Pad {f00=0x009f, f01=0x0190, f02=» A6,2 POINT TO FIRST DIGIT IN NUMBER 1 P CALL GETNUM GET NUMBER 2 , $ P CWK A5,MAXTSK TOO MANY TASKS ? 2 L P ABL(P) ERRTID YES 2 t P NGR A5,A5 NEGATE NUMBER 2 P ADK A5,1 INCREMENT NUMBER 2 P ST A5,INDEX STORE NUMBER 2 & P RF(NZ) TRA270 MOORE THA
0x102d00…1b0680 [0x645]: Pad {f00=0x009f, f01=0x018e, f02=» LDR* A1,A11 LOAD FCBD 2 P RF(Z) TRA275 NO FCB! 3 * P NGR A1,A1 MAKE POSITIVE DISPLACEMENT 3 < P RF TRA295 3 j PTRA275 EQU * 3 | P LD A3,DATLEN,A11 GET DATLEN 3 P RF(Z) TRA290 NO DATASET 3 ( P EJECT TRACON TRACON TRACON 3 P CALL DCBA
0x102d00…1b0680 [0x646]: Pad {f00=0x009f, f01=0x0190, f02=» P* 4 8 P* COMPUTE SIZE OF WORKING STORAGE ALLOCATION TABLE 4 P* 4 J P LD A3,WATLEN,A11 GET WATLEN 4 T $ P SLL A3,2 NUMBER OF BYTES IN WAT 4 x P SUR A2,A1 GET FROM-ADDRESS 4 P LDR A5,A2 SAVE FROM-ADDRESS 4 P IM SWITCH 4 ( P RF(N) TRA300
0x102d00…1b0680 [0x647]: Pad {f00=0x009f, f01=0x0190, f02=» 4 | P ADK A1,4 PA+STKB 5 & P LD A3,CVTEBA GET END OF FREE CORE 5 " $ P ANKL A3,/FFFE MAKE EVEN ADDRESS 5 L P SUR A3,A1 UPDATE 5 t $ P ST A3,CVTEBA STORE NEW ADDRESS 5 P ADK A3,2 TO-ADDRESS 5 P LDR A5,A3 START OF T:A 5 P CALL MOVE COPY T:A 5
0x102d00…1b0680 [0x648]: Pad {f00=0x009f, f01=0x018e, f02=» 5 d " P* A1=LENGTH OF DATASET BLOCKS 6 P* A5=ADDRESS TO T:A 6 . P* 6 J PTRA300 EQU * 6 T $ P LD A3,DATLEN,A11 ANY DATASET ? 6 h P RF(Z) TRA360 NO ! 6 P SUK A1,PA-DSCBE A1=DSCB+FCB 6 P LDR* A2,A11 ANY FCB ? 6 P RF(Z) TRA305 NO ! 6 P ADR
0x102d00…1b0680 [0x649]: Pad {f00=0x009f, f01=0x0190, f02=» 6 f " P LDR A2,A1 SAVE DSCB AREA SIZE 7 * P ADK A2,PA-DSCBE ADD DSCB DISPLACEMENT 7 . P ST A2,SAVE1 SAVE 7 PTRA305 EQU * 7 v $ P ADR A5,A1 ADDRESS TO FIRST DSCB 7 ( P EJECT TRACON TRACON TRACON 7 PTRA310 EQU * 7 0 P SUK A5,DSCBL GET ADDRES
0x102d00…1b0680 [0x64a]: Pad {f00=0x009f, f01=0x0190, f02=»D A2,BASE GET ALLOCATION MEMORY ADDRESS 7 * P ST A2,DSCBBA,A5 STORE BUFFER ADDRESS 8 0 * P LD A2,DSCBRL,A5 GET REQUESTED LENGTH 8 ^ ( P ST A2,DSCBLN,A5 STORE BUFFER LENGTH 8 * P LD A3,DSCBEL,A5 GET EFFECTIVE LENGTH 8 ( P RF(Z) TRA340 NOT SHARED I/O BUFFERS
0x102d00…1b0680 [0x64b]: Pad {f00=0x009f, f01=0x0190, f02=» P SUK A3,1 DECREMENT INDEX 9 & P ABL(N) ERRTID ILLEGAL INDEX VALUE 9 & P RF(Z) TRA330 DATASET FOUND 9 P P SUK A2,DSCBL NEXT 9 t P CW A2,DSCBAD ADDRESS OK ? 9 & P ABL(L) ERRTID ILLEGAL INDEX VALUE 9 P RB TRA320 9 PTRA330 EQU * 9 ( P LD A3,DSC
0x102d00…1b0680 [0x64c]: Pad {f00=0x009f, f01=0x0190, f02=»RE BUFFER ADDRESS 9 | P RF TRA350 : ( P EJECT TRACON TRACON TRACON : , P* : X * P* ALLOCATE MEMORY FOR DATASET BUFFERS : b P* : PTRA340 EQU * : P ST A2,COUNT NUMBER OF BYTES : P CALL UPDBAS ALLOCATE MEMORY : PTRA350 EQU * : P
0x102d00…1b0680 [0x64d]: Pad {f00=0x009f, f01=0x0190, f02=» $ P* TO ASSOCIATED DATASETS IN FCB ; P* ; , $ P AD A5,SAVE1 GET POINTER TO T:A ; 6 P LDR* A2,A11 ANY FCB ? ; ^ P RF(Z) TRA365 NO ! ; | P LDR A3,A5 GET T:A POINTER ; & P ADR A3,A2 POINTER TO START OF FCB ; P LDR A2,A5 GET T:A POINTER ; 2 P ADS A
0x102d00…1b0680 [0x64e]: Pad {f00=0x009f, f01=0x0190, f02=»TRA365 EQU * ; P* < P* MAKE TEMPORARY TCATAB < P* < > ( P LD* A3,TCATAB GET ADDRESS TO TCATAB < H P LDR A4,A3 SAVE ADDRESS < t " P LDR* A2,A3 NUMBER OF POINTERS < P SLL A2,1 CONVERT TO BYTES < P ADK A3,2 FIRST POINTER < P ADR A3,A2 NEX
0x102d00…1b0680 [0x64f]: Pad {f00=0x009f, f01=0x0190, f02=» < x P* = P* RESERV MEMORY FOR STACK = P* = 4 * P LD A2,BASE START OF MEMORY ALLOCATION = > P ADK A2,1 = l $ P ANKL A2,/FFFE MAKE EVEN ADDRESS = ~ " P ST A2,STE,A5 STORE STACK END = " P STR A2,A5 STORE PA=STACK END = $ P LD A3,STKSIZ,A5 GET STA
0x102d00…1b0680 [0x650]: Pad {f00=0x009f, f01=0x0190, f02=» ST A2,STB,A5 STORE STACK BASE = P* > & P* COPY TWB IF ALREADY USED > 0 P* > T 0 P ADK A5,WAT+2 FIRST WB-ADDRESS ENTRY IN WAT > ^ P LD A4,TWBMSK,A11 GET TWBMSK > PTRA370 EQU * > P ST A4,SAVE1 STORE TWBMSK > P RF(Z) TRA400 > P RF(P) T
0x102d00…1b0680 [0x651]: Pad {f00=0x009f, f01=0x0190, f02=» ( P EJECT TRACON TRACON TRACON ? P* ? 0 4 P* NOTE! THE FOLLOWING METHOD OF CHECKING IF THE ? : 4 P* TWB IS USED BY ANOTHER ALREADY PROCESSED TASK ? r 0 P* DOES NOT WORK IF THE LENGTH OF THE TWB IS ? 4 P* GREATER THAN 32767 BYTES.BIT 0 IN LENGTH
0x102d00…1b0680 [0x652]: Pad {f00=0x009f, f01=0x0190, f02=»,/7FFF MASK AWAY BIT 0 ? $ P SUR A3,A1 DECREMENT WITH LENGTH @ $ P ANKL A3,/FFFE MAKE EVEN ADDRESS @ F , P ST A3,CVTEBA STORE NEW END OF FREE CORE @ n P LDR* A2,A5 @ P SUK A2,2 GET FROM ADDRESS @ P ADK A3,4 @ * P STR A3,A5 STORE ADDRESS TO COPIED T
0x102d00…1b0680 [0x653]: Pad {f00=0x009f, f01=0x0190, f02=»T A2,WBLEN,A8 INDICATE TWB USED @ PTRA390 EQU * A ( P ADK A5,4 NEXT ENTRY IN WAT A < P LD A4,SAVE1 GET TWBMSK A ` P SLL A4,1 NEXT BIT IN TWBMSK A P RB TRA370 A ( P EJECT TRACON TRACON TRACON A P* A * P* UPDATE NUMBER OF REQUESTED
0x102d00…1b0680 [0x654]: Pad {f00=0x009f, f01=0x0190, f02=»TART NUMBER OF STARTPOINTS A * P LDR* A2,A1 GET NUMBER OF START POINTS B " P CWK A2,1 MOORE THAN ONE ? B P P RF(NG) TRA410 NO B r 2 P ADS A2,RBUFNO UBDATE NO OF REQUESTED BUFFERS B PTRA410 EQU * B $ P ADKL A10,2 FIRST START ADDRESS B P IM SWITCH L
0x102d00…1b0680 [0x655]: Pad {f00=0x009f, f01=0x0190, f02=»BL(Z) TRA260 PROCESS THE PROTOTYPE B $ P ABL(N) TRA270 PROCESS NEXT COPY C * PTRA420 EQU * C R , P ADK A6,1 NEXT TERMINAL CLASS IDENTIFIER C f P SUK A7,5 DECREMENT LENGTH C 0 P ABL(NZ) TRA210 PROCESS NEXT TERMINAL CLASS C , P ABL TRA500 NO MOORE TERMINAL
0x102d00…1b0680 [0x656]: Pad {f00=0x009f, f01=0x0190, f02=»PHASE 2: USER WORK BLOCK PROCESSING C P* D , 8 P*************************************************** D 6 P* D r 0 P* MOVE CD:UWB AND CD:TDD TABLES TO OVERLAP D | $ P* READ CONFIGURATION DATA CODE D P* D PTRA100 EQU * D * P LD A2,CD:UWB LOAD P
0x102d00…1b0680 [0x657]: Pad {f00=0x009f, f01=0x0190, f02=» D r , P LDKL A9,I:INIT NEW ADDRESS FOR UWB DATA E P ST A9,CD:UWB UPDATE POINTER E 8 " P ADK A1,2 INCLUDE LENGTH WORD E . P LD A3,CD:TDD LOAD POINTER TO CD:TDD TABLE E P RF(Z) TRA101 NO TDD DATA E , P LDR* A3,A3 LOAD LENGTH OF CD:TDD TABLE E " P RF(
0x102d00…1b0680 [0x658]: Pad {f00=0x00a0, f01=0x018e, f02=» ADR A1,A3 TOTAL LENGTH OF CONFIGURATION DATA E PTRA101 EQU * F 6 " P LDKL A9,I:INIT GET TO-ADDRESS F J P LDR A3,A9 SAVE TO-ADDRESS F p $ P ADR A3,A1 INCREMENT WITH LENGTH F , P ST A3,ENDCON UPDATE END OF APL. ADDRESS F ( P EJECT TRACON TRACON TRA
0x102d00…1b0680 [0x659]: Pad {f00=0x00a0, f01=0x0190, f02=» . P* INITIATE POINTERS TO CD:UWB AND U:BTAB G P* G 6 * P LD A6,CD:UWB LOAD POINTER TO UWB DATA G @ ( P LDR* A7,A6 LOAD LENGTH OF UWB TABLE G n " P ADK A6,2 FIRST NAME IN CD:UWB G 0 P LDKL A9,ENDCON LOAD ADDRESS FOR COMPARISION G P ST A9,BASE G PTR
0x102d00…1b0680 [0x65a]: Pad {f00=0x00a0, f01=0x0190, f02=»EFINED ? G l PRETERR ABL ERRUWB NO H P* H , 0 P* GET UWB IDENTITY FROM CONFIGURATION DATA H 6 P* H j PTRA110 EQU * H t P ADKL A10,2 H $ P LCR A1,A6 FIRST CHARACTER TO A1 H P SLL A1,8 SHIFT TO LEFT BYTE H P ADK A6,1 NEXT CHARACTER H & P L
0x102d00…1b0680 [0x65b]: Pad {f00=0x00a0, f01=0x0190, f02=»F THIS UWB H t ( P EJECT TRACON TRACON TRACON I P* I > . P* SEARCH UWB PROTOTYPE WITH THIS IDENTITY I H P* I z PTRA120 EQU * I , P CW A1,2,A10 COMPARE WITH NAME IN U:BTAB I P RF(NE) TRA130 NOT EQUAL I ( P CC A2,4,A10 THIRD CHARACTER EQUAL
0x102d00…1b0680 [0x65c]: Pad {f00=0x00a0, f01=0x0190, f02=»N) RETERR NO PROTOTYPE WITH THIS IDENTITY! I P RB TRA120 J 2 ( P EJECT TRACON TRACON TRACON J D P* J p & P* USER WORK BLOCK PROTOTYPE FOUND J z . P* ALLOCATE MEMORY FOR THE TOTAL NUMBER OF J 0 P* COPIES OF THIS UWB. ALLOCATION STARTS AT J & P
0x102d00…1b0680 [0x65d]: Pad {f00=0x00a0, f01=0x0190, f02=»,A10 STORE MAX INDEX FOR THIS UWB J ( P CWK A5,1 DUPLICATE THIS PROTOTYPE ? K * P RF(E) TRA190 NO K V " P LD A8,CVTEBA LOAD END ADDRESS K n P LDR A11,A8 SAVE IT K " P ADKL A11,2 ADJUST FOR COMPARE K ( P LDR* A2,A10 LOAD WORK BLOCK ADDRESS K * P LD A4,W
0x102d00…1b0680 [0x65e]: Pad {f00=0x00a0, f01=0x0190, f02=» PTRA150 EQU * L 0 P SUK A5,1 DECREMENT NUMBER OF THIS WORKBLOCK L & P RB(N) RETERR ERROR IF LESS THAN 1 L L P RF(Z) TRA160 L v , P SUR A8,A4 ALLOCATE MEMORY FOR THIS COPY L P RB TRA150 NEXT L P EJECT TRACON TRACON L P* L P* DUPLICA
0x102d00…1b0680 [0x65f]: Pad {f00=0x00a0, f01=0x0190, f02=»2 ADJUST FOR BOOLEAN WORD L P LDR A5,A4 SAVE LENGTH M " PTRA170 EQU * M @ " P CWR A8,A11 DUPLICATION READY M T P RF(E) TRA180 YES M z P LDR A3,A8 LOAD TO-ADDRESS M P LDR A1,A5 GET TWB LENGTH M " P CALL MOVE DUPLICATE PROTOTYPE M P ADR A8,A5 U
0x102d00…1b0680 [0x660]: Pad {f00=0x00a0, f01=0x0190, f02=»F FREE CORE M n P ADK A1,4 N ( P ST A1,4,A10 STORE BLOCK POOL START N & PTRA190 EQU * N R ( P SUK A7,6 DECREMENT LENGTH OF CD:UWB N f $ P ABL(Z) TRA200 NO MOORE UWB DATA N P ADK A6,1 NEXT UWB DATA N P RB TRA102 N ( P EJECT TRACON TRACON T
0x102d00…1b0680 [0x661]: Pad {f00=0x00a0, f01=0x0190, f02=» N P* AT ENTRY FROM MONITOR O * P* A1: LEFT BYTE = START UP DEVICE O ( & P* =0 CASSETTE O V & P* =F0 FIX DISC O , P* =F1 CARTRIDGE DISC O 0 P* =F8 LEFT FLEXIBLE DISC O
0x102d00…1b0680 [0x662]: Pad {f00=0x00a0, f01=0x0190, f02=»ENT O N F P* PROGRAM --- 1,2,3...8,9,10 WHEN CASSETTE =0 P P* P V 4 P* A2: ADR TO READ SECTOR ROUTINE IN IPL PROGRAM P ` P* P H P* READ CONFIGURATION DATA FROM START UP DEVICE AND IF DISC RESISTENT P L P* PROGRAM GET CORRECT DATA F
0x102d00…1b0680 [0x663]: Pad {f00=0x00a0, f01=0x0190, f02=»READ SOP-SWITCHES. WHEN SOP SWITCH PRESSED, SEARCH FOR CONFIGURATION P $ P* DATA ON CORRESPONDING DEVICE. Q L J P* WHEN CORRECT CONFIGURATION DATA FILE FOUND, INDICATE DATA 'READ' ON Q t J P* LEFTMOST LAMP. BUILD CONFIG. DATA TABLE AND INITIATE POINTERS TO UWB Q
0x102d00…1b0680 [0x664]: Pad {f00=0x00a0, f01=0x0190, f02=»AND LIT OFF SOP LAMPS. Q ^ P* R P* CONTINUE WITH PHASE 2. R ( P* R H P* R R L P************************************************************************ R 0 P EJECT TRACON TRACON TRACON TRACON R PI:INIT EQU * R . P LDKL A14,STACK LOAD S
0x102d00…1b0680 [0x665]: Pad {f00=0x00a0, f01=0x0190, f02=»L TO LAST MEMORY WORD? R ~ P RF(NE) *+4 NO! S " P SUK A2,2 DON'T USE LAST WORD S 6 2 P ST A2,CVTEBA RESTORE ADR TO LAST MEMORY WORD S P* S P* START I/O OPERATION S P* CHECK TYPE OF DEVICE S P* S P INH INHIBIT INTERRUPT S P LDR A
0x102d00…1b0680 [0x666]: Pad {f00=0x00a0, f01=0x0190, f02=»ONFIG APP NUMBER? S P RF(E) TRA015 =10 T P ADS A2,CONFIL <10 T 4 P RF TRA020 T N PTRA015 LDK A2,/31 T ` P SC A2,CONFIL T z 0 P* GET INDEX TO DEVICE ADDRESS TABLE(DVTAB) T " PTRA020 SRL A1,8 GET FILE CODE T " P LDKL A2,FCTAB FILE CODE TABLE T
0x102d00…1b0680 [0x667]: Pad {f00=0x00a0, f01=0x0190, f02=» A3,1 STEP ADR FCTAB T P SUK A4,1 COUNT NUMBER U P RB(NZ) TRA025 NOT READY U : PTRA030 LDR A1,A3 SAVE INDEX U Z P SUK A3,4 U ~ P RF(N) TRA035 FLOPPY U , PTRA032 CALL DUINIT INITIALIZE DISC UNIT U P RF TRA050 U H P* FLOPPY, CHECK IN IPL PROG
0x102d00…1b0680 [0x668]: Pad {f00=0x00a0, f01=0x0190, f02=»040 PROGRAMMED CH. UNIT U * P ADK A1,2 INDICATE MULTIPLEX CH. UNIT V ( PTRA040 CALL FDINIT INITIALIZE FLOPPY V N P* SEARCH CONFIGURATION FILE V z PTRA050 CALL SFILE V P LDR A1,A1 FOUND? V P ABL(NZ) RDSOP NO! V P* SWITCH ON LOAD LAMP V P
0x102d00…1b0680 [0x669]: Pad {f00=0x00a0, f01=0x0190, f02=»CON TRACON TRACON TRACON V P* W ( P* INITIATE CASSETTE W 2 P* W N PTRA055 EQU * W X * P LDKL A13,CIOST SET ADR TO I/O ROUTINE W l P LDK A1,/A W P CFR A14,A13 READ CASSETTE W P ANK A3,1 CASSETTE LOADED? W P ABL(NZ) RDSOP NO! READ SO
0x102d00…1b0680 [0x66a]: Pad {f00=0x00a0, f01=0x0190, f02=»RDSOP W PTRA057 EQU * X P LDKL A1,/0400 X " & P OTR A1,0,SOP SWITCH ON LOAD LAMP X 8 P* X b P* READ ONE BLOCK X l P* X ( PTRA058 LDKL A4,CDBUF TEMP BUFFER ADR X P LDR A2,A4 SAVE IT X P LDK A1,/A X " P CIO A1,1,CHCR READ ONE BLOCK X
0x102d00…1b0680 [0x66b]: Pad {f00=0x00a0, f01=0x0190, f02=»R? X v P ABL(E) ERRTYP YES! Y ( P SCR A1,A4 STORE CHARACTER IN BUFFER Y & " P ADK A4,1 INCREMENT BUFFER ADR Y R $ PTRA070 SST A1,CHCR SENSE STATUS Y x $ P RB(NA) TRA060 NOT END OF BLOCK Y P ANKL A1,/FCFF CHECK STATUS Y P RF(NZ) TRA075 READY Y P*
0x102d00…1b0680 [0x66c]: Pad {f00=0x00a0, f01=0x0190, f02=»PE MARK? Y ~ & P ABL(NN) ERRCAS NO; CASSETTE ERROR Z P* Z : P* COMMON END OF PHASE 1 Z D P* Z d " PTRA080 CWK A13,FDREAD FLOPPY? Z n P RF(NE) TRA085 NO! Z P CALL UNLDV UNLOAD DEVICE Z 6 PTRA085 LD A5,APPDAT APPDATLICATION ON SAME DEVICE? Z P
0x102d00…1b0680 [0x66d]: Pad {f00=0x00a0, f01=0x0190, f02=» ENABLE INTERRUPT Z & P ABL TRA100 CONTINUE WITH PHASE 2 [ 0 P EJECT TRACON TRACON TRACON TRACON [ D J P********************************************************************** [ x P* [ & P* PROBLO PROCESS LATEST READ BLOCK [ P* [ J P******
0x102d00…1b0680 [0x66e]: Pad {f00=0x00a0, f01=0x0190, f02=» A1 [ P* A3 - OUTPUT BUFFER P* A5 * P* 8 PPROBLO EQU * B P STR A9,A14 SAVE REGISTER V P ST A4,-2,A14 SAVE REGISTER x & P SUKL A14,4 JUSTIFY STACK POINTER " PPRO002 LCR A1,A2 GET CHARACTER P CCK A1,/FFFF FILLER ? P
0x102d00…1b0680 [0x66f]: Pad {f00=0x00a0, f01=0x0190, f02=» APPLICATION DATA INDICATION ? P RF(NE) PRO010 NO ] & ( P IM APPDAT INDICATE APPLICATION DATA ] @ P RF PRORET ] l PPRO010 EQU * ] ~ P CCK A1,'UU' UWB DATA ? ] P RF(NE) PRO070 NO ] P* ] P* USER WORK BLOCK ELEMENTS ] P* ] P LD A3
0x102d00…1b0680 [0x670]: Pad {f00=0x00a0, f01=0x0190, f02=»DR A2,A3 FROM-ADDRESS ] P LDR* A1,A3 NC ^ $ P ADK A1,2 INCLUDE LENGTH POINTER ^ 4 P LD A4,CD:UWB ^ " P RF(NZ) PRO015 UWB INITIALIZED ^ r P ADK A3,2 TO-ADDRESS ^ PPRO015 ADK A3,6 TO-ADDRESS ^ " P ST A3,CD:TDD NEW LINK ADDRESS ^ P XRR A9,A9 LIM
0x102d00…1b0680 [0x671]: Pad {f00=0x00a0, f01=0x0190, f02=»,CD:UWB LOAD POINTER TO UWB DATA ^ " P RF(Z) PRO027 NOT INITIALIZED _ ( P LDR* A1,A3 LENGTH _ N P ADR A3,A1 GET STORE ADR _ h P RF PRO030 _ 2 PPRO027 LDKL A3,EOP END OF APPLICATION ADDRESS _ " P ST A3,CD:UWB STORE IN POINTER _ P CM* CD:UWB CLEAR LE
0x102d00…1b0680 [0x672]: Pad {f00=0x00a0, f01=0x0190, f02=»ACTER COUNTER _ | PPRO035 EQU * ` P LCR A1,A2 GET CHARACTER ` * P CCK A1,',,' END OF NAME ? ` J P RF(E) PRO040 YES ` l P SCR A1,A3 STORE CHARACTER ` $ P ADK A2,1 INCREMENT FROM-ADDRESS ` " P ADK A3,1 INCREMENT TO-ADDRESS ` P SUK A5,1 COUNT CHAR
0x102d00…1b0680 [0x673]: Pad {f00=0x00a0, f01=0x0190, f02=»ACTER ? ` ~ P ABL(E) ERRUWB NO a * P LDR A5,A5 THREE CHARACTERS IN NAME ? a * P RF(E) PRO045 YES a X P LDK A1,' ' LOAD SPACE a r P SCR A1,A3 FILL WITH SPACE a " P ADK A3,1 INCREMENT TO-ADDRESS a $ P SUK A5,1 STEP CHARACTER COUNTER a P RB PRO040
0x102d00…1b0680 [0x674]: Pad {f00=0x00a0, f01=0x0190, f02=»ATA a n $ P ADS* A5,CD:UWB INCREMENT LENGTH b P RF PRORET b 4 0 P EJECT TRACON TRACON TRACON TRACON b F P* b z P* TERMINAL DEFINITION DATA b P* b PPRO070 EQU * b , P CCK A1,'TT' TERMINAL DEFINITION DATA ? b ( P ABL(NE) ERRTYP NO;
0x102d00…1b0680 [0x675]: Pad {f00=0x00a0, f01=0x0190, f02=»1 YES b P LDR* A1,A3 GET NC c P ADR A3,A1 TO-ADDRESS c ( P RF PRO085 c F $ PPRO071 LD A3,CD:UWB FIRST DATA ? c X P RF(Z) PRO080 YES c P LDR* A1,A3 GET NC c P ADR A3,A1 TO-ADDRESS c P ADK A3,2 BYPASS UWB LENGTH c P RF PRO082 c 4 PPR
0x102d00…1b0680 [0x676]: Pad {f00=0x00a0, f01=0x0190, f02=» GET TERMINAL TASK NAME c " PPRO085 ADK A3,2 BYPASS LENGTH d P ADK A2,2 POINTER TO NAME d F $ P LDK A5,2 SET CHARACTER COUNTER d h PPRO090 EQU * d P LCR A1,A2 GET CHARACTER d P CCK A1,',,' END OF NAME ? d P RF(E) PRO095 YES d P SCR A1,A3
0x102d00…1b0680 [0x677]: Pad {f00=0x00a0, f01=0x0190, f02=»ERS ? d p P ABL(N) ERRTID YES e P RB PRO090 NEXT CHARACTER e ( , PPRO095 LDR A5,A5 TWO CHARACTERS IN NAME e J P ABL(NZ) ERRTID NO e z $ P* GET NUMBER OF TERMINAL TASKS e P CALL NUMPRO e & P LDK A5,5 FIVE CHARACTERS PER TDD e $ P ADS* A5,CD:TDD
0x102d00…1b0680 [0x678]: Pad {f00=0x00a1, f01=0x0190, f02=» RTN A14 e ( P EJECT TRACON TRACON TRACON f P* f < P* NUMPRO SCAN NUMBER-FIELD f F P* f h PNUMPRO EQU * f r P LDK A5,3 NUMBER CHARACTER f " PNUM005 ADK A2,1 NEXT CHARACTER f P LCR A1,A2 GET CHAR f P CCK A1,';;' DELIMITER ? f P
0x102d00…1b0680 [0x679]: Pad {f00=0x00a1, f01=0x018e, f02=»1 INCREMENT FROM-ADDRESS f P RF NUM015 g PNUM010 ADR A3,A5 TO-ADRESS g 2 PNUM015 LDK A5,3 TO-ADDRESS g T * PNUM017 SUK A2,1 DECREMENT FROM-ADDRESS g v " P SUK A3,1 DECREMENT TO-ADDRESS g P LCR A1,A2 GET CHAR g & P CCK A1,',,' START OF NUMBER FIELD g
0x102d00…1b0680 [0x67a]: Pad {f00=0x00a1, f01=0x0190, f02=» g n P SUK A5,1 COUNT CHARACTER h P RB(NZ) NUM017 NOT READY h * P RTN A14 h J 0 P EJECT TRACON TRACON TRACON TRACON h Z @ P************************************************************ h P* h 0 P* RDSOP READ SOP SWITCHES FOR TYPE OF DEVICE h
0x102d00…1b0680 [0x67b]: Pad {f00=0x00a1, f01=0x0190, f02=» P* OUTPUT i P* WORK A1,A2,A3,A13 i PRDSOP EQU * i 0 P CALL UNLDV UNLOAD DEVICE i D P* LIT SOP LAMPS i f PRDS020 LDKL A1,/7F8 i ~ P OTR A1,0,SOP i P* READ SOP i P CIO A1,1,SOP i P INR A1,0,SOP i P RB(NA) *-2 i P LDK A
0x102d00…1b0680 [0x67c]: Pad {f00=0x00a1, f01=0x0190, f02=»1,A2 GET BIT NO i P LDR A1,A2 SAVE INDEX j P SLL A2,1 DOUBLE IT j 6 P ABI RDSTAB,A2 BRANCH j R 8 PRDSTAB DATA RFD,RFD,RFD,RFD,TRA032,TRA032,RDC2,RDC1 j p 0 P EJECT TRACON TRACON TRACON TRACON j P* CASSETTE j PRDC1 LDK A1,0 j P
0x102d00…1b0680 [0x67d]: Pad {f00=0x00a1, f01=0x0190, f02=»2 j P CFR A14,A13 LOCK CASSETTE k P ANK A3,1 NOT OPERABLE? k , ( P RB(NZ) RDS020 NO CASSETTE; READ SOP k L P LDK A1,8 k x P CFR A14,A13 SEARCH BOT k P LDK A1,/C k " P CFR A14,A13 SEARCH TM FORWARD k P ABL TRA057 k P* FLOPPY k PRF
0x102d00…1b0680 [0x67e]: Pad {f00=0x00a1, f01=0x0190, f02=» k ~ 0 P EJECT TRACON TRACON TRACON TRACON l @ P************************************************************ l < P* l P* SFILE SEARCH FILE l P* l @ P************************************************************ l 0 P* INPUT CONFIL = SEARC
0x102d00…1b0680 [0x67f]: Pad {f00=0x00a1, f01=0x0190, f02=»R l t P* A12 - ADR TO VTOC RECORD m " P* WORK A2,A3,A4,A6,A7,A10,A11 m . P* m T PSFILE EQU * m ^ ( P LDKL A11,CDBUF+2 ADR TO DISC BUFFER m r P LDK A6,0 SECTOR NUMBER m " P CFR A14,A13 READ VOLUME LABEL m P LDKL A1,'TO' m " P CW A1,VT:REL,A1
0x102d00…1b0680 [0x680]: Pad {f00=0x00a1, f01=0x0190, f02=»,A11 VTOC-REC-LENGTH m & PSFI010 LDR A12,A11 POINTER BUFFER n P ADK A6,1 NEXT SECTOR n F " P CFR A14,A13 READ VTOC SECTOR n d ( P LDK A7,VTOCBF RECORD FACTOR IN VTOC n 0 PSFI015 LCR A1,A12 GET 1ST CHAR IN FILE NAME n , P CCK A1,/2020 VTOC RECORD EMPTY
0x102d00…1b0680 [0x681]: Pad {f00=0x00a1, f01=0x0190, f02=» EJECT TRACON TRACON TRACON n P* o , , P* LOOK IF EXPECTED FILE NAME '$XXXX:NN' o 6 $ P* XXXX 1-4 ALFA CHAR, NN 01-10 o f P* o P* o P LDR A2,A12 ADR TO FILE NAME o P ADK A2,VT:FN o . P LDK A1,'$' START CHAR OF CONFIG FILE NAME o
0x102d00…1b0680 [0x682]: Pad {f00=0x00a1, f01=0x0190, f02=» FOUND? o P RF(E) SFI025 YES! p P SUK A2,1 NEXT p * P CWK A2,1 p @ P RF(E) SFI030 AT END p R P RB SFI020 p n P* COMPARE 'SOP'-NUMBER p ( PSFI025 LD A1,CONFIL EXPECTED SOP:NR p P LC A3,1,A2 SOP:NR IN p P SLL A3,8 ..FILE p P LC A3,2
0x102d00…1b0680 [0x683]: Pad {f00=0x00a1, f01=0x0190, f02=»I027 CWR A1,A3 COMPARE IF EQUAL p P RF(NE) SFI030 NOT EQUAL q ( ( P EJECT TRACON TRACON TRACON q H & P* VTOC TO EXPECTED FILE IS FOUND q t P LDK A1,0 q P RTN A14 q P* q * PSFI030 SUK A7,1 READ NEXT VTOC SECTOR? q P RF(NZ) SFI040 NO!
0x102d00…1b0680 [0x684]: Pad {f00=0x00a1, f01=0x018e, f02=» RTN A14 q P* r 4 PSFI040 ADR A12,A10 GET ADR TO NEXT VTOC RECORD r , P ADKL A12,1 STEP ADR TO PASS STATUS CHAR r R P RB SFI015 r 0 P EJECT TRACON TRACON TRACON TRACON r @ P************************************************************ r
0x102d00…1b0680 [0x685]: Pad {f00=0x00a1, f01=0x0190, f02=» r R ( P* INPUT A11 - ADR TO SECTOR BUFFER+2 s P* A12 - ADR TO VTOC RECORD s 4 ( P* A13 - ADR TO READ SECTOR ROUTINE s X P* OUTPUT s P* WORK A4,A6,A8,A9,A10 s P* s PRCONF EQU * s & P LD A6,VT:FEB,A12 FILE EXTENT BASE s ( P LD A8,VT:LRN,A1
0x102d00…1b0680 [0x686]: Pad {f00=0x00a1, f01=0x018e, f02=»RR A10,A10 RESET RECORD COUNTER s ( PRCO010 LDR A12,A11 POINTER TO RECORD t ( P* READ FILE SECTOR t T P CFR A14,A13 READ SECTOR t p . P XRR A4,A4 RESET RECORD COUNTER PER BLOCK t P* PROCESS ONE RECORD t $ PRCO015 LDR A2,A12 ADR TO RECORD t P C
0x102d00…1b0680 [0x687]: Pad {f00=0x00a1, f01=0x0190, f02=» P CWR A10,A8 LAST RECORD? u P RF(E) RCO020 YES! u $ $ P ADK A4,1 COUNT RECORD PER BLOCK u > " P CW A4,BFAK ONE BLOCK READY? u f P RB(NE) RCO015 NO! u P ADK A6,1 NEXT SECTOR u P RB RCO010 YES u PRCO020 RTN A14 u 0 P EJECT TRACON TRACON
0x102d00…1b0680 [0x688]: Pad {f00=0x00a1, f01=0x018e, f02=»* u @ P************************************************************ v $ P* INPUT A13 - ADR TO I/O ROUTINE v N P* OUTPUT v v P* WORK A1 v PUNLDV EQU * v P CWK A13,DUREAD DISC UNIT? v P RF(E) UNLRET YES! v P CWK A13,FDREAD FLOPPY? v P
0x102d00…1b0680 [0x689]: Pad {f00=0x00a1, f01=0x0190, f02=» v P RB(NA) *-2 w P RF UNLRET w P* UNLOAD CASSETTE w . PUNL010 LDK A1,/F w H P CFR A14,A13 w ` PUNLRET RTN A14 w t 0 P EJECT TRACON TRACON TRACON TRACON w @ P************************************************************ w P* w
0x102d00…1b0680 [0x68a]: Pad {f00=0x00a1, f01=0x0190, f02=» TO DVTAB w ~ & P* OUTPUT A13 - ADR TO READ ROUTINE x P* WORK x < P* x J PDUINIT EQU * x T * P LDKL A13,DUREAD SET READ ROUTINE ADR x h " P LC A1,DVTAB,A1 GET DEVICE ADR x P* INITIATE DISC COMMANDS x P ADK A1,/C0 CONTROL BITS x P SC A1,DKSST
0x102d00…1b0680 [0x68b]: Pad {f00=0x00a1, f01=0x0190, f02=»OF INTERRUPT x v * P RB(A) DUI010 LOOP UNTIL NOT ACCEPTED y $ P* INITIALIAZE WER INSTRUCTIONS y B P ANK A1,/F y j P SLL A1,1 MULTIPLEXOR ADR y | P SC A1,WERIO+1 y P ADK A1,1 IND 2ND WER y P SC A1,WERIO+3 y P RTN A14 y 0 P EJECT TRACON
0x102d00…1b0680 [0x68c]: Pad {f00=0x00a1, f01=0x0190, f02=» SUBROUTINE, DISC UNIT y | P* z @ P************************************************************ z ( P* INPUT A6 - SECTOR NUMBER z l P* OUTPUT z P* WORK A4,A5,A7 z P* z PDUREAD EQU * z P LDR A5,A6 SECTOR NUMBER z P SRL A5,5 z P SLL
0x102d00…1b0680 [0x68d]: Pad {f00=0x00a1, f01=0x0190, f02=»B(NA) *-2 LOOP UNTIL ACCEPTED z P* { & 2 PDKSST1 SST A5,0 STATUS CCCCCCCCCCCCCCCCCCCCCCC { 0 & P RB(NA) DKSST1 LOOP UNTIL ACCEPTED { f P* { & P* COMPUTE PHYSICAL SECTOR NUMBER { P* { " PREAD00 LDR A4,A6 SECTOR NUMBER { P ANK A4,/10 { P L
0x102d00…1b0680 [0x68e]: Pad {f00=0x00a1, f01=0x0190, f02=» { : PREAD01 LDKL A4,MXCC CONTROL BITS AND REQUESTED LENGTH | P LDKL A7,CDBUF SECTOR BUFFER | F P* | j 4 PWERIO DATA /7400 WER A4,0 CCCCCCCCCCCCCCCCCCCCC | t . P DATA /7700 WER A7,1 CCCCCCCCCCCCCCCCCCCCC | P* | PREADCD CIO A5,1,0 START I/O | &
0x102d00…1b0680 [0x68f]: Pad {f00=0x00a1, f01=0x018e, f02=»ACCEPTED | v P ANK A5,/F } $ P ABL(NE) ERRCAS DISC READ ERROR } " P* } J PRETURN RTN A14 } T P* } j 0 P EJECT TRACON TRACON TRACON TRACON } t B P************************************************************* } P* } " P* FDINIT INITATE F
0x102d00…1b0680 [0x690]: Pad {f00=0x00a1, f01=0x0190, f02=» : P* OUTPUT A5 -0 FLOPPY OPERABEL,=1 FLOPPY NOT OPERABEL ~ P* A13 - ADR TO READ ROUTINE ~ B P* WORK A2,A5 ~ f P* ~ z PFDINIT EQU * ~ , P LDKL A13,FDREAD SET FLOPPY ROUTINE ADR ~ " P LC A2,DVTAB,A1 GET DEVICE ADR ~ P* INITIATE FLOPPY COMMANDS
0x102d00…1b0680 [0x691]: Pad {f00=0x00a1, f01=0x0190, f02=» FDI010 PROGRAMMED CH. UNIT ~ P LDKL A1,FDMC $ P RF FDI015 : PFDI010 LDKL A1,FDPC L * PFDI015 ST A1,FDINR CHANGE INSTRUCTION h " P LDK A1,/FF SET LOOP CONSTANT P SUK A1,1 P RB(NZ) *-2 LOOP ( P SST A1,FDDV TAKE CARE OF INTERRUPT
0x102d00…1b0680 [0x692]: Pad {f00=0x00a1, f01=0x0190, f02=» RB(NA) *-4 LOOP UNTIL ACCEPTED P SST A5,FDDV SENSE STATUS ( $ P RB(NA) *-2 LOOP UNTIL ACCEPTED J P ANK A5,1 MASK STATUS r P RTN A14 0 P EJECT TRACON TRACON TRACON TRACON B P******************************************************
0x102d00…1b0680 [0x693]: Pad {f00=0x00a1, f01=0x0190, f02=»****************** d P* INPUT A6 - SECTOR NUMBER P* OUTPUT < P* WORK A4,A5,A7 L P* d PFDREAD EQU * n P LDR A5,A6 SECTOR NUMBER P SLL A5,5 P ORKL A5,/C000 " P LDKL A4,MXCC REQUESTED LENGTH $ P LDKL A7,CDBUF SECTOR BUFF
0x102d00…1b0680 [0x694]: Pad {f00=0x00a1, f01=0x018e, f02=»4,A7 BUFFER START ADR " P LDKL A7,EDBUF BUFFER END ADR P* D < PFDREA CIO A5,1,FDDV START I/O CCCCCCCCCCCCCCCCCCCCCCCCC N & P RB(NA) FDREA LOOP UNTIL ACCEPTED P* P* P* < PFDINR INR A5,0,FDDV WHEN MUX ... LDK A5,11 CCCCCCCCC
0x102d00…1b0680 [0x695]: Pad {f00=0x00a1, f01=0x0190, f02=» v P RB(NE) FDINR NO! " PFDCIOH CIO A5,0,FDDV STOP I/O " P RB FDINR H $ PFDPC20 SST A5,FDDV SENSE STATUS Z P RB(NA) FDINR P ANKL A5,/4015 FATAL ERROR? P* P ABL(NZ) ERRCAS READ ERROR P* P RTN A14 0 P EJECT
0x102d00…1b0680 [0x696]: Pad {f00=0x00a1, f01=0x4054, f02=»80 PEDBUF EQU * PEOP EQU EDBUF P 4 P END I:INIT <@ P H $ PFDPC20 SST A5,FDDV SENSE STATUS Z P RB(NA) FDINR P ANKL A5,/4015 FATAL ERROR? P* P ABL(NZ) ERRCAS READ ERROR P* P RTN A14 0 P EJECT
0x102d00…1b0680 [0x697]: Pad {f00=0x00a1, f01=0x2008, f02=» EQU EOBUF D END I:INIT D @ D . ) LD A5,APPDAT APL DATA ON SAME CASSETTE ? C 4 . * ABL(NZ) TRA100 YES; CONTINUE WITH PHASE 2 C f LDK A1,/F C CFR A14,A6 UNLOAD CASSETTE C LDKL A1,/0400 C & " OTR A1,1,SOP EXTINGUISH LOAD LAMP C
0x102d00…1b0680 [0x698]: Pad {f00=0x00a2, f01=0x0190, f02=»************************************************** m ( P* INPUT A11 - ADR TO SECTOR BUFFER+2 n : P* A12 - ADR TO VTOC RECORD n f ( P* A13 - ADR TO READ SECTOR ROUTINE n P* OUTPUT n P* WORK A4,A6,A8,A9,A10 n P* n PRCONF EQU * n & P LD A6,V
0x102d00…1b0680 [0x699]: Pad {f00=0x00a2, f01=0x0190, f02=»BLOCK FACTOR n ~ P ST A10,BFAK SAVE IT o & P XRR A10,A10 RESET RECORD COUNTER o 0 ( PRCO010 LDR A12,A11 POINTER TO RECORD o Z P* READ FILE SECTOR o P CFR A14,A13 READ SECTOR o . P XRR A4,A4 RESET RECORD COUNTER PER BLOCK o P* PROCESS ONE RECORD
0x102d00…1b0680 [0x69a]: Pad {f00=0x00a2, f01=0x0190, f02=» STATUS CHAR o t P ADKL A10,1 COUNT RECORD p P CWR A10,A8 LAST RECORD? p 4 P RF(E) RCO020 YES! p T $ P ADK A4,1 COUNT RECORD PER BLOCK p n " P CW A4,BFAK ONE BLOCK READY? p P RB(NE) RCO015 NO! p P ADK A6,1 NEXT SECTOR p P RB RCO010 YES p P
0x102d00…1b0680 [0x69b]: Pad {f00=0x00a2, f01=0x0190, f02=» p P* UNLDV UNLOAD DEVICE q P* q & @ P************************************************************ q 0 $ P* INPUT A13 - ADR TO I/O ROUTINE q t P* OUTPUT q P* WORK A1 q PUNLDV EQU * q P CWK A13,DUREAD DISC UNIT? q P RF(E) UNLRET YES! q
0x102d00…1b0680 [0x69c]: Pad {f00=0x00a2, f01=0x0190, f02=» P RB(NA) *-4 r P SST A1,FDDV r P RB(NA) *-2 r , P RF UNLRET r @ P* UNLOAD CASSETTE r R PUNL010 LDK A1,/F r l P CFR A14,A13 r PUNLRET RTN A14 r & P EJECT TRACON TRACON TRACON r @ P**************************************************
0x102d00…1b0680 [0x69d]: Pad {f00=0x00a2, f01=0x0190, f02=» r T P* INPUT A1 - INDEX TO DVTAB s & P* OUTPUT A13 - ADR TO READ ROUTINE s , P* WORK s V P* s d PDUINIT EQU * s n * P LDKL A13,DUREAD SET READ ROUTINE ADR s " P LC A1,DVTAB,A1 GET DEVICE ADR s P* INITIATE DISC COMMANDS s P ADK A1,/C0 CONTRO
0x102d00…1b0680 [0x69e]: Pad {f00=0x00a2, f01=0x0190, f02=»DUI010 SST A2,0 TAKE CARE OF INTERRUPT s * P RB(A) DUI010 LOOP UNTIL NOT ACCEPTED t . $ P* INITIALIAZE WER INSTRUCTIONS t P ANK A1,/F t P SLL A1,1 MULTIPLEXOR ADR t P SC A1,WERIO+1 t P ADK A1,1 IND 2ND WER t P SC A1,WERIO+3 t P RTN A14
0x102d00…1b0680 [0x69f]: Pad {f00=0x00a2, f01=0x0190, f02=»READ READ SECTOR SUBROUTINE, DISC UNIT t P* u . @ P************************************************************ u 8 P* INPUT A6 - SECTOR NUMBER u | P* OUTPUT u P* WORK A4,A5,A7 u P* u PDUREAD EQU * u P LDR A5,A6 SECTOR NUMBER u P SRL A
0x102d00…1b0680 [0x6a0]: Pad {f00=0x00a2, f01=0x2008, f02=»
0x102d00…1b0680 [0x6a1]: Pad {f00=0x00a2, f01=0x0004, f02=» H P
0x102d00…1b0680 [0x6a2]: Pad {f00=0x00a2, f01=0x0190, f02=» $ P IDENT FMOVE ORG 78-02-23/POEG P REL 78-04-01 #3.1 , P REL 78-03-03 #3.0 H P d * P************************************* l * P* * * P* FMOVE - MOVES A FORMAT LIST * * P* FROM THE FORMAT
0x102d00…1b0680 [0x6a3]: Pad {f00=0x00a2, f01=0x0190, f02=»********************* P P ENTRY FMOVE & P : < P EXTRN I:EVA0,I:EVA5 INTERPRETER ADDRESS EVAL. ROUTINES B * P EXTRN I:RT1 INTERPRETER RETURN LABEL 0 P EXTRN I:ERR2 ERROREXIT - ILLEGAL OPND TYPE 4 P EXTRN I:ER18 - "" - - 1:ST OPND
0x102d00…1b0680 [0x6a4]: Pad {f00=0x00a2, f01=0x0190, f02=» 852 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST 2 * PINDX EQU 2 2 INDICES ARE PROVIDED FOR H P* v ( P* TEMPORARY INTERPRETER REGISTERS: P* PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER , POP1A EQU A10 OPERAND
0x102d00…1b0680 [0x6a5]: Pad {f00=0x00a2, f01=0x018e, f02=»ESS v POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION 0 P* ^ POPCD EQU A11 OPCODE h P* P* NON-TEMPORARY REGISTERS: P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PTCA EQU A13
0x102d00…1b0680 [0x6a6]: Pad {f00=0x00a2, f01=0x0190, f02=» P* TYPE FIELD BIT MASKS: P* $ ( PARITHB EQU X'10' ARITHMETIC BASE BIT . PNUMBIT EQU X'20' NUMERIC BIT Z $ P EJECT FMOVE FMOVE FMOVE ~ P* . P* FILL CODE FOR TAIL OF RECIEVING STRING P* PFEXIT EQU X'E9' PFMOVE
0x102d00…1b0680 [0x6a7]: Pad {f00=0x00a2, f01=0x0190, f02=»BL(NZ) I:ERR2 P XIF P " P LDR OP1A,OP2A * P LDR OP1E,OP2E @ P V 4 P CF PS,I:EVA5 2:ND PARAM - FORMAT LIST FROM POOL ^ PLOAD LCR WK1,OP2A GET BYTE P ADKL OP2A,1 BUMP PTR " PSTORE SCR WK1,OP1A STORE BYTE P ADKL OP1A,1 B
0x102d00…1b0680 [0x6a8]: Pad {f00=0x00a2, f01=0x4168, f02=»END OF FORMAT LIST ~ $ P RB(NE) LOAD NO - GET NEXT BYTE P B 2 P LDK WK1,FEXIT ELSE FILL W END-OF-FORMAT CODE J P RB STORE P PRETURN EQU * 4 P IFT PARM=TEST ASSERT WHOLE LIST HAS BEEN MOVED P CWR OP2A,OP2E P ABL(NE) I:ER1
0x102d00…1b0680 [0x6a9]: Pad {f00=0x00a2, f01=0x2008, f02=» END @ ADK OP1 BMADK OP2A,1 BUMP PTR " H " STORE SCR WK1,OP1A STORE BYTE P ADK OP2A,1 BUMP POINTER v & ! CWR OP1A,OP1E AT END OF STRING ? * % RF(E) RETURN YES - STOP MOVING BYTES ( $ CWR OP2A,OP2E AT EN
0x102d00…1b0680 [0x6aa]: Pad {f00=0x00a2, f01=0x0190, f02=» P&PROC P=FMOVE,&PARM P&PROC P=TYPET,&PARM P&PROC P=ICLEAR,&PARM < P&PROC P=EMPTYT,&PARM X P&PROC P=T:STIN,&PARM t P&PROC P=T:STOU,&PARM P&PROC P=T:STEV,&PARM P&PROC P=T:EDFL,&PARM P&PROC P=T:DYKI,&PARM P&PROC P=T:
0x102d00…1b0680 [0x6ab]: Pad {f00=0x00a2, f01=0x0190, f02=»C P=T:TFWD,&PARM P&PROC P=T:DISP,&PARM P&PROC P=T:GETF,&PARM 4 P&PROC P=T:REWR,&PARM P P&PROC P=T:DEDT,&PARM l P&PROC P=T:ENLI,&PARM P&PROC P=T:EINP,&PARM P&PROC P=T:ENIN,&PARM P&PROC P=T:SETC,&PARM P&PROC P=T:CLMI,&PA
0x102d00…1b0680 [0x6ac]: Pad {f00=0x00a2, f01=0x018e, f02=»S0,&PARM P&PROC P=T:DMR0,&PARM P&PROC P=T:SWI0,&PARM , P&PROC P=T:TEI0,&PARM H P&PROC P=T:CLO0,&PARM d P&PROC P=T:DEL0,&PARM P&PROC P=T:GTI0,&PARM P&PROC P=T:DC,&PARM P&PROC P=T:DMI,&PARM P&PROC P=T:ASSI,&PARM P
0x102d00…1b0680 [0x6ad]: Pad {f00=0x00a2, f01=0x0190, f02=» z P&PROC P=T:CLO,&PARM P&PROC P=T:DEL,&PARM $ P&PROC P=T:MSK0,&PARM @ P&PROC P=T:SCD,&PARM P&PROC P=T:USE,&PARM x P&PROC P=T:EXIT,&PARM P&PROC P=T:GTCW,&PARM P&PROC P=T:GTID,&PARM P&PROC P=T:IO,&PARM P&PROC P=
0x102d00…1b0680 [0x6ae]: Pad {f00=0x00a2, f01=0x0126, f02=»ROC P=I:MOV,&PARM P&PROC P=I:MUL,&PARM P&PROC P=I:DIV,&PARM 6 P&PROC P=I:NTF,&PARM R P&PROC P=I:EDT,&PARM n P&PROC P=I:EDTE,&PARM P&PROC P=I:EDS,&PARM P&PROC P=I:STR,&PARM P&PROC P=I:EVS,&PARM P&PROC P=TRACON,&
0x102d00…1b0680 [0x6af]: Pad {f00=0x00a2, f01=0x2008, f02=» MOV,&PARM P&PROC P=I:MUL,&PARM P&PROC P=I:DIV,&PARM 6 P&PROC P=I:NTF,&PARM R P&PROC P=I:EDT,&PARM n P&PROC P=I:EDTE,&PARM P&PROC P=I:EDS,&PARM P&PROC P=I:STR,&PARM P&PROC P=I:EVS,&PARM P&PROC P=TRACON,&
0x102d00…1b0680 [0x6b0]: Pad {f00=0x00a2, f01=0x0190, f02=» 2 F IDENT I:NTP VER=T,REL=3.0,DATE=78-03-03 ^ 4 0 I:TRC I:NTP I:NTPA I:NTPR I:RT0 I:RT1 I:RT2 ^ : I:MOV ^ r I:ADD ^ I:SUB ^ I:CMP ^ I:MUL ^ * & T ^ I:DIV ^ * &
0x102d00…1b0680 [0x6b1]: Pad {f00=0x00a2, f01=0x0004, f02=» X `
0x102d00…1b0680 [0x6b2]: Pad {f00=0x00a2, f01=0x0190, f02=» ( P IDENT ICLEAR ORG 78-02-23/POEG P REL 78-04-01 #3.1 0 P REL 78-03-03 #3.0 L P h 2 P********************************************** p 2 P* * 2 P* ICLEAR - CLEAR DATA ITEM *
0x102d00…1b0680 [0x6b3]: Pad {f00=0x00a2, f01=0x0190, f02=» X'0FFF...FF' - DECIMAL * ~ 2 P* 0 - BINARY * $ 2 P* * Z 2 P********************************************** P P ENTRY ICLEAR P . P EXTRN I:EVA0 E-ADDRESS EVALUA
0x102d00…1b0680 [0x6b4]: Pad {f00=0x00a2, f01=0x0190, f02=» 852 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST 2 * PINDX EQU 2 2 INDICES ARE PROVIDED FOR H P* v ( P* TEMPORARY INTERPRETER REGISTERS: P* PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER , POP1A EQU A10 OPERAND
0x102d00…1b0680 [0x6b5]: Pad {f00=0x00a2, f01=0x018e, f02=»ESS v POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION 0 P* ^ POPCD EQU A11 OPCODE h P* P* NON-TEMPORARY REGISTERS: P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER PTCA EQU A13
0x102d00…1b0680 [0x6b6]: Pad {f00=0x00a2, f01=0x0190, f02=» P* TYPE FIELD BIT MASKS: P* $ ( PARITHB EQU X'10' ARITHMETIC BASE BIT . PNUMBIT EQU X'20' NUMERIC BIT Z P EJECT ICLEAR ICLEAR ~ PICLEAR EQU * P $ P CF PS,I:EVA0 EVAL OPND ADDRESS . P LDK WK2,X'00' STRING & BINARY CLEAR C
0x102d00…1b0680 [0x6b7]: Pad {f00=0x00a2, f01=0x4184, f02=» " P* CLEAR 1:ST BYTE OF DECIMAL P LDK WK1,X'0F' . P SCR WK1,OP2A D P ADKL OP2A,1 BUMP PTR Z & P LDK WK2,X'FF' DECIMAL CLEAR CODE x P PL1 CWR OP2A,OP2E AT END ? P ABL(Z) I:RT1 YES - RETURN & P SCR WK2,OP2A ELSE CLEAR BYT
0x102d00…1b0680 [0x6b8]: Pad {f00=0x00a3, f01=0x2008, f02=» ADK OP2A,1 ... BUMP POINTER ... & ! RB L1 ... AND GO TAKE NEXT BYTE. 0 Z END b@ nL1 NO ! j " * CLEAR 1:ST BYTE OF DECIMAL LDK WK1,X'0F' SCR WK1,OP2A ADK OP2A,1 BUMP PTR & ! LDK WK2,X'FF' DEC
0x102d00…1b0680 [0x6b9]: Pad {f00=0x00a3, f01=0x0190, f02=»TOR n P EJECT T:STOU P* $ P* . PSTROU1 EQU * 8 2 P CF PS,T:STEV EVAL OUTPUT STRG,START,UNIT SEP L ( P LD A1,FCBP1A,RFCB GET STRING START 0 P AD* A1,FCBP2A,RFCB ADJUST WITH OUTPUT START , P ST A1,FCBS1A,RFCB SAVE SUBSTRING START
0x102d00…1b0680 [0x6ba]: Pad {f00=0x00a3, f01=0x0190, f02=»LD r " P LD PP,FCBSPP,RFCB RESTORE PP P IFT PARM=TEST 0 $ P CW OP2A,FCBP1A,RFCB SAME ITEM ? F * P ABL(E) I:ER17 YES: ILLEGAS PARAMETER n P XIF P LDR POINT,OP2A P LDR A1,OP2T GET TYPE P ANK A1,ARITHB+NUMBIT P RF(Z) STU300
0x102d00…1b0680 [0x6bb]: Pad {f00=0x00a3, f01=0x0190, f02=» ANK A1,NUMBIT P RF(Z) STU010 P LDR A1,OP2T , P ANK A1,ARITHB @ P RF(NZ) STU020 V PSTU010 EQU * l P ABL I:ERR2 ILLEGAL TYPE PSTU020 EQU * P XIF $ P LCR A1,POINT GET FIRST BCD BYTE P ANK A1,/F REMOVE SIGN P CWK
0x102d00…1b0680 [0x6bc]: Pad {f00=0x00a3, f01=0x0190, f02=»CHED ? j P RF(NE) STU110 NO ( P LDKL POINT,0 CURRENT ITEM WAS EMPTY ( P RF STU250 T PSTU110 EQU * f P LCR A1,POINT GET NEXT BYTE z P CWK A1,/FF P RB(E) STU100 P EJECT * P ANK A1,/F0 CURRENT ITEM WAS NOT EMPTY & P CWK A
0x102d00…1b0680 [0x6bd]: Pad {f00=0x00a3, f01=0x0190, f02=» POINT,1 ADJUST WHEN UNEQUAL AMOUNT OF DIGITS P RF STU250 6 PSTU200 EQU * H P LDR A1,POINT STRING START P LDR POINT,OP2E STRING END ~ * P SUR POINT,A1 CALCULATE STRING LENGTH P SLL POINT,1 PSTU250 EQU * P RF STU350 P E
0x102d00…1b0680 [0x6be]: Pad {f00=0x00a3, f01=0x0190, f02=» CWK A1,/00 P RF(E) STU320 JUMP IF EMPTY P ADK POINT,1 8 0 P CWR POINT,OP2E END OF CURRENT VAR REACHED ? L P RB(NE) STU300 NO PSTU320 EQU * P SUR POINT,OP2A LENGTH P EJECT T:STOU P* P* STRING AND BCD P*
0x102d00…1b0680 [0x6bf]: Pad {f00=0x00a3, f01=0x0190, f02=» SUBSTRING - MAIN STRING ~ P TNM A1,A2 ( P RF(N) STU360 JUMP IF SIGNS UNEQUAL 2 P CWR A1,A2 ^ P RF STU370 p PSTU360 CWR A2,A1 PSTU370 EQU * P RF(NL) STU500 P ADK POINT,1 ADJUST FOR US 2 P ADS* POINT,FCBP2A,RFCB ADJUST <OUTP
0x102d00…1b0680 [0x6c0]: Pad {f00=0x00a3, f01=0x0190, f02=»BUFFER OVERFLOW INDICATION & P EXTRN I:ERRE PICTURE/ITEM MISFIT " $ P EJECT I:EDT I:EDT I:EDT L P* t $ P* CONDITIONAL ASSEMBLY FLAGS: ~ P* PCOMP EQU 855 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST PE EQU 1 E-
0x102d00…1b0680 [0x6c1]: Pad {f00=0x00a3, f01=0x0004, f02=» h p
0x102d00…1b0680 [0x6c2]: Pad {f00=0x00a3, f01=0x018e, f02=» & P IDENT TYPET ORG 78-02-23/POEG P REL 78-04-01 #3.1 . P REL 78-03-03 #3.0 J P f & P********************************* n & P* * ( P* TYPET T - TEST DATATYPE * & P*
0x102d00…1b0680 [0x6c3]: Pad {f00=0x00a3, f01=0x0190, f02=» l & P* THE FIRST ARG. RETURNS THE * & P* DATA TYPE OF THE SECOND ARG * 2 & P* * & P* 1 - BINARY * & P* 2 - PACKED DECIMAL * & P* 3 - STRING * & P*
0x102d00…1b0680 [0x6c4]: Pad {f00=0x00a3, f01=0x018e, f02=»ESS EVALUATION ROUTINE | * P EXTRN I:RT1 INTERPRETER RETURN LABEL 2 P EXTRN I:ERR2 ERROR EXIT - ILLEGAL OPND TYPE L P EJECT TYPET TYPET P* $ P* CONDITIONAL ASSEMBLY FLAGS: P* PCOMP EQU 852 PTEST EQU 1 PNOTEST
0x102d00…1b0680 [0x6c5]: Pad {f00=0x00a3, f01=0x0190, f02=» P* PWK1 EQU A1 WORK REGISTER PWK2 EQU A2 WORK REGISTER . , POP1A EQU A10 OPERAND 1 ADDRESS REGISTER N POP1E EQU A6 OPERAND 1 LENGTH ~ ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR " POP2A EQU A9 OPERAND 2 ADDRESS POP2E EQU A5 OPERAND 2
0x102d00…1b0680 [0x6c6]: Pad {f00=0x00a3, f01=0x0190, f02=»: v P* PPP EQU A12 PROGRAM POINTER PPS EQU A14 STACK POINTER 6 PTCA EQU A13 TCA BASE ADDRESS V P* z ( P* TERMINAL STACK BASE DISPLACEMENT P* PSTKB EQU 2 P* P* P* P* TYPE FIELD BIT MASKS: P
0x102d00…1b0680 [0x6c7]: Pad {f00=0x00a3, f01=0x0190, f02=» 0 P CF PS,I:EVA0 1:ST ARG BINARY - RETURNS TYPE P IFT PARM=TEST CHECK TYPE < . P ANK OP2T,ARITHB+NUMBIT ISOLATE TYPE BITS ^ P XRK OP2T,NUMBIT P ABL(NZ) I:ERR2 P XIF P P LDR OP1A,OP2A SAVE ADDR P P CF PS,I:EVA0
0x102d00…1b0680 [0x6c8]: Pad {f00=0x00a3, f01=0x40c4, f02=»' -> 1 (BINARY) P* B'11' -> 2 (DECIMAL) & P ANK OP2T,X'03' ISOLATE BITS 14-15 : $ P STR OP2T,OP1A MOVE TO 1:ST ARG d $ P ABL I:RT1 RETURN TO INTERPRETER P END @
0x102d00…1b0680 [0x6c9]: Pad {f00=0x00a3, f01=0x2008, f02=» -> 3 (STRING) * B'10' -> 1 (BINARY) * B'11' -> 2 (DECIMAL) > & " ANK OP2T,X'03' ISOLATE BITS 14-15 ` $ STR OP2T,OP1A MOVE TO 1:ST ARG $ ABL I:RT1 RETURN TO INTERPRETER END @ LDR OP1A,OP2A S
0x102d00…1b0680 [0x6ca]: Pad {f00=0x00a3, f01=0x0190, f02=» $ P IDENT T:STEV UPD 78-03-21/UKF P UPD 78-02-15/UKF , P REL 78-03-03 #3.0 H @ P************************************************************ d P* & P* DISPLAY MANAGEMENT IN CREDIT P* @ P************************************
0x102d00…1b0680 [0x6cb]: Pad {f00=0x00a3, f01=0x0190, f02=»L TYPE | " P EXTRN T:GRFC GET FCB ADDRESS < P EJECT T:STEV T:DIS1 T:DIS1 T:DIS1 T:DIS1 4 P* t " P* CONDITIONAL ASSEMBLY FLAGS ~ P* PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST P** P* PPS EQU A14 S
0x102d00…1b0680 [0x6cc]: Pad {f00=0x00a3, f01=0x0190, f02=»OP2T EQU A3 OPERAND2 TYPE P* " & PARITHB EQU /10 ARITHMETIC BASE BIT , PNUMBIT EQU /20 NUMERIC BIT V < P EJECT T:STEV T:DIS1 T:DIS1 T:DIS1 T:DIS1 x P* P* DISPLACEMENTS TO FCB P* P* * PFCBP1A EQU 28 OP2A F
0x102d00…1b0680 [0x6cd]: Pad {f00=0x00a3, f01=0x0190, f02=»T l P* * PFCBP3A EQU 40 OP2A FOR UNIT SEPARATOR P* B P EJECT T:STEV L P* d 6 P* EVALUATE PARAMETERS REQUIRED BY T:STIN/T:STOU n P* AND SAVE IN FCB P* * P* PARAMETER 1 INPUT/OUTPUT STRING ( P*
0x102d00…1b0680 [0x6ce]: Pad {f00=0x00a3, f01=0x0190, f02=»P2T p P* PT:STEV EQU * P CF PS,T:GRFC GET FCBADDRESS * 0 P CF PS,I:EVA0 EVAL INPUT/OUTPUT STRING (P1) N P IFT PARM=TEST P ANK OP2T,ARITHB+NUMBIT P RF(NZ) STEERR NOT STRING P XIF P ST OP2A,FCBP1A,RFCB P ST OP2E
0x102d00…1b0680 [0x6cf]: Pad {f00=0x00a3, f01=0x0190, f02=»ST P LDR A1,OP2T P ANK A1,ARITHB P RF(NZ) STEERR NOT BINARY 4 P ANK OP2T,NUMBIT V P RF(Z) STEERR NOT BINARY n P XIF P ST OP2A,FCBP2A,RFCB * P CF PS,I:EVA0 EVAL UNIT SEPARATOR (P3) P IFT PARM=TEST P ANK OP2T,ARITHB
0x102d00…1b0680 [0x6d0]: Pad {f00=0x00a3, f01=0x4134, f02=»TO REC ITEM v P LD OP2T,FCBP1T,RFCB P LD OP2E,FCBP1E,RFCB 0 P CF PS,T:DUPX L " P CF PS,T:GRFC GET ADDR TO FCB b P LC* A1,FCBP3A,RFCB P SC* A1,FCBS1E,RFCB STORE US P ABL T:ROK RETURN CR 0 PSTU500 EQU * P ABL T:RNOK RETU
0x102d00…1b0680 [0x6d1]: Pad {f00=0x00a3, f01=0x0004, f02=» x
0x102d00…1b0680 [0x6d2]: Pad {f00=0x00a3, f01=0x0190, f02=» ( P IDENT EMPTYT ORG 78-02-23/POEG P REL 78-04-01 #3.1 0 P REL 78-03-03 #3.0 L P h 8 P*************************************************** p 8 P* * 8 P* EMPTYT - TEST EMTINESS OF A D
0x102d00…1b0680 [0x6d3]: Pad {f00=0x00a3, f01=0x0190, f02=» * ` 8 P* * 8 P* X'0000...00' - STRING * H 8 P* X'0FFF...FF' - DECIMAL * 4 P* * 6 P******************
0x102d00…1b0680 [0x6d4]: Pad {f00=0x00a3, f01=0x0190, f02=» I:RT1 INTERPRETER RETURN LABEL ( P EJECT EMPTYT EMPTYT EMPTYT ( P* T $ P* CONDITIONAL ASSEMBLY FLAGS: ^ P* PCOMP EQU 852 PTEST EQU 1 PNOTEST EQU 0 PPARM EQU TEST * PINDX EQU 2 2 INDICES ARE PROVIDED FOR
0x102d00…1b0680 [0x6d5]: Pad {f00=0x00a3, f01=0x018e, f02=»1A EQU A10 OPERAND 1 ADDRESS REGISTER POP1E EQU A6 OPERAND 1 LENGTH . ( POP1T EQU A4 OPERAND 2 TYPE INDICATOR R " POP2A EQU A9 OPERAND 2 ADDRESS ~ POP2E EQU A5 OPERAND 2 LENGTH * POP2T EQU A3 OPERAND 2 TYPE INDICATION P* POPCD EQU A
0x102d00…1b0680 [0x6d6]: Pad {f00=0x00a3, f01=0x0190, f02=» v PTCA EQU A13 TCA BASE ADDRESS P* , ( P* TERMINAL STACK BASE DISPLACEMENT 6 P* b PSTKB EQU 2 l P* ~ P* P* P* TYPE FIELD BIT MASKS: P* ( PARITHB EQU X'10' ARITHMETIC BASE BIT PNUMBIT EQU X'20' NUMERIC
0x102d00…1b0680 [0x6d7]: Pad {f00=0x00a3, f01=0x018e, f02=»EMPTYT EQU * P CF PS,I:EVA0 EVAL OPND ADDR * P LD B3,STKB,TCA GET STACK BASE POINTER 8 * P LDK WK2,X'00' EMTY VALUE FOR STR/BIN f P . P ANK OP2T,ARITHB+NUMBIT ISOLATE TYPE BITS , P SUK OP2T,ARITHB+NUMBIT TEST FOR DECIMAL P RF(NZ) L2 N
0x102d00…1b0680 [0x6d8]: Pad {f00=0x00a4, f01=0x0190, f02=» t P CCK WK1,X'0F0F' < P RF(NE) SETCR NOT X'0F' - GO SAVE CURRENT CR (NON-ZERO) P ` * P LDK WK2,X'FF' EMTY VALUE FOR DECIMAL h P " P* SEARCH FOR A NONEMPTY BYTE PL2 CWR OP2A,OP2E AT END ? & P RF(E) SETCR YES - VALUE WAS EMPTY
0x102d00…1b0680 [0x6d9]: Pad {f00=0x00a4, f01=0x4184, f02=» BYTE | P CWR WK1,WK2 BYTE EMPTY ? & P RB(E) L2 YES - GO TAKE NEXT BYTE 0 ( P* ELSE SAVE CURRENT CR (NOT = 0) Z P* HERE CR=0 IF EMPTY P* PSETCR EQU * $ P LDK WK1,0 LEAVES CR UNMODIFIED P RF(NZ) *+4 IF NONEMPTY P
0x102d00…1b0680 [0x6da]: Pad {f00=0x00a4, f01=0x2008, f02=» ELSE SAVE CURRENT CR (NOT = 0) 2 -SETCR CFR B3,P TRANSFER MASHINE CR TO TASK CR 0 $ ABL I:RT1 RETYRN TO INTERPRETER f END @ AT END ? & " RF(E) SETCR YES - VALUE WAS EMPTY * GO SAVE CURRENT CR (=0) LCR
0x102d00…1b0680 [0x6db]: Pad {f00=0x00a4, f01=0x0190, f02=» ( V R V _0 (Q _* V , W ( V 0 ( V Z< W ( ( V ` ( V p 4 . , 0T ]V , 6 ( ERRONEOUS RECORD ON MAG. TAPE @ > "@T @ >% =B |W !0P
0x102d00…1b0680 [0x6dc]: Pad {f00=0x00a4, f01=0x0190, f02=» c f A I ! P _ P _ C T T T W C K P _< P _` ! ;A R Q ;B ! ;A R Q ! ;B 9e P V W R 9C _ _ A A A_ _ ,
0x102d00…1b0680 [0x6dd]: Pad {f00=0x00a4, f01=0x0190, f02=»Y : t R @W j W | H W ~_ 4 P V R W W W WvW P W 4 4 P _ V ~T j R *P V R W W W W$W P W END 4 . R *X _> QJ 0 V P R @WF_ r 8W2
0x102d00…1b0680 [0x6de]: Pad {f00=0x00a4, f01=0x0190, f02=»RE DEFINITION z ) W r ~W V ~R W Wx , nW| V x =Td @ ~WZ V ~ QP T nWT 5 V x ,X` T0WV V ~ P ~ V r ( P 5 ^ W r 8 8 TABLE N " UF W 0 R @W j
0x102d00…1b0680 [0x6df]: Pad {f00=0x00a4, f01=0x0190, f02=» ( f R FWj_ ~ h J ( I R W2_ _ _ ~ 8 8 END MISSING 8 ~ H j 4 ( % Y _ _` IN PROCEDURE GENERATION 4 H ( j F R *P W V R W @P f
0x102d00…1b0680 ]